Erro Query MySQL

gilsonpaulo · Mensagem por **gilsonpaulo** » 14 Mar 2012 10:46

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;

Código: Selecionar todos

	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.:

Código: Selecionar todos

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.

:%

gilsonpaulo · Mensagem por **gilsonpaulo** » 14 Mar 2012 11:12

Resolvido.::

Código: Selecionar todos

		pCod		:=	produto.txt_codigo.Value
		pDes		:=	produto.txt_descricao.Value
		pTam		:=	produto.txt_tamanho.Value
		pCor		:=	produto.txt_cor.Value
		pSecao	:=	str(produto.combo_secao.Value)
		pCodGru	:=	produto.txt_codgrupo.Value
		pDesGru	:=	produto.txt_grupo.Value
		pCodFor	:=	"1"
		pDesFor	:=	"JOSE MARIA DE PAULA"
		pEst		:=	str(produto.txt_estoque.Value)
		pCstAtu	:=	str(produto.txt_custoatual.Value)
		pVlrVen	:=	str(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()