CREATE TABLE `produto` (
`codigo` CHAR(13) NULL DEFAULT '',
`descricao` CHAR(60) NULL DEFAULT '',
`tamanho` CHAR(3) NULL DEFAULT '',
`cor` CHAR(8) NULL DEFAULT '',
`secao` INT(1) NULL DEFAULT '1',
`grupo` INT(4) NULL DEFAULT '0',
`gru_descricao` CHAR(50) NULL DEFAULT '',
`fornecedor` INT(6) NULL DEFAULT '0',
`for_descricao` CHAR(60) NULL DEFAULT '',
`preco_venda` DECIMAL(10,2) NULL DEFAULT '0.00',
`preco_custo` DECIMAL(10,2) NULL DEFAULT '0.00',
`ultimo_custo` DECIMAL(10,2) NULL DEFAULT '0.00',
`custo_medio` DECIMAL(10,2) NULL DEFAULT '0.00',
`estoque` DECIMAL(10,2) NULL DEFAULT '0.00',
`data_cadastro` DATE NULL DEFAULT NULL,
`data_alteracao` DATE NULL DEFAULT NULL,
`data_p_venda` DATE NULL DEFAULT NULL,
`data_u_venda` DATE NULL DEFAULT NULL,
UNIQUE INDEX `codigo` (`codigo`),
INDEX `produto_fornecedor` (`fornecedor`),
INDEX `produto_grupo` (`grupo`),
INDEX `FK_produto_grupo` (`gru_descricao`),
INDEX `FK_produto_fornecedor` (`for_descricao`),
INDEX `descricao` (`descricao`),
CONSTRAINT `FK_produto_grupo` FOREIGN KEY (`gru_descricao`) REFERENCES `grupo` (`descricao`) ON UPDATE CASCADE,
CONSTRAINT `FK_produto_fornecedor` FOREIGN KEY (`for_descricao`) REFERENCES `fornecedor` (`razao_social`) ON UPDATE CASCADE,
CONSTRAINT `produto_fornecedor` FOREIGN KEY (`fornecedor`) REFERENCES `fornecedor` (`codigo`) ON UPDATE CASCADE,
CONSTRAINT `produto_grupo` FOREIGN KEY (`grupo`) REFERENCES `grupo` (`codigo`) ON UPDATE CASCADE
)
COLLATE='latin1_swedish_ci'
ENGINE=InnoDB;
Local pCod,pDes,pTam,pCor,pSecao,pCodGru,pDesGru,pCodFor,pDesFor,pEst,pCstAtu,pVlrVen,pDatCad
Local oQuery
if pInc = .t.
pCod := produto.txt_codigo.Value
pDes := produto.txt_descricao.Value
pTam := produto.txt_tamanho.Value
pCor := produto.txt_cor.Value
pSecao := produto.combo_secao.Value
pCodGru := val(produto.txt_codgrupo.Value)
pDesGru := produto.txt_grupo.Value
pCodFor := 1
pDesFor := "JOSE MARIA DE PAULA"
pEst := produto.txt_estoque.Value
pCstAtu := produto.txt_custoatual.Value
pVlrVen := produto.txt_venda.Value
pDatCad := dtos(date())
oQuery:=oServer:Query("insert into produto (codigo,descricao,tamanho,cor,secao,grupo,gru_descricao,fornecedor,for_descricao,estoque,preco_custo,preco_venda,data_cadastro) values ('"+pCod+"','"+pDes+"','"+pTam+"','"+pCor+"',"+pSecao+","+pCodGru+",'"+pDesgru+"',"+pCodFor+",'"+pDesFor+"',"+pEst+","+pCstAtu+","+pVlrVen+",'"+pDatCad+"')")
oQuery:Destroy()
endif
pCodGru,pCodFor,pEst,pCstAtu,pVlrVen são variaveis numéricas, quando dou o insert no banco acusa este erro.:
Error BASE/1081 Erro nos parÆ’metros: +
Called from PRODUTO_BTN_GRAVAR_ACTION(171)
Called from (b)PRODUTO(89)
Called from _DOCONTROLEVENTPROCEDURE(5268)
Called from EVENTS(1434)
Called from _DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(4933)
Called from DOMETHOD(7374)
Called from PRODUTO(13)
Called from (b)MAIN(9)
Called from _DOCONTROLEVENTPROCEDURE(5268)
Called from EVENTS(1396)
Called from _DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(4933)
Called from DOMETHOD(7374)
Called from MAIN(20)
Sei que deve ser algo com aspas simple e duplas, mas não consegui fazer funcionar.
:%