kupac

BOA TARDE! SOU INICIANTE EM DELPHI E ESTOU COM UM PROBLEMA COM O EVENTO AFTER POST QUANDO MANDO GRAVAR UM REGISTRO EM UM FORM DE VENDA. TENHO 2 TABELAS COMO DESCRITO ABAIXO: "TBL_VENDPAI" ( "VENDPAI_CODIGO" INTEGER NOT NULL, "VENDPAI_CODCLI" INTEGER NOT NULL, "VENDPAI_DTVENDA" TIMESTAMP NOT NULL, "VENDPAI_VALOR" NUMERIC(15, 2), "VENDPAI_FORMPAGTO" VARCHAR(30), "VENDPAI_OBS" VARCHAR(150), CONSTRAINT "VENDPAI_PK" PRIMARY KEY ("VENDPAI_CODIGO") ); "TBL_CONTACORR" ( "CC_CODIGO" INTEGER NOT NULL, "CC_CLIENTE" INTEGER, "CC_PEDIDO" INTEGER, "CC_ENTRADA" NUMERIC(15, 2), "CC_SAIDA" NUMERIC(15, 2), "CC_FPAGTO" VARCHAR(30), "CC_DATA" TIMESTAMP, CONSTRAINT "CONTACORR_PK" PRIMARY KEY ("CC_CODIGO") ); O CÓDIGO NO EVENTO AFTER POST DA TBL_VENDPAI ESTÁ DESCRITO ABAIXO: procedure TDM_Dados.TBL_VendPaiAfterPost(DataSet: TDataSet); begin DM_Dados.TBL_Contacorr.Open; DM_Dados.TBL_Contacorr.Insert; DM_Dados.TBL_ContacorrCC_CODIGO:=DM_Dados.TBL_VendPaiVENDPAI_CODIGO; DM_Dados.TBL_ContacorrCC_PEDIDO:=DM_Dados.TBL_VendPaiVENDPAI_CODIGO; DM_Dados.TBL_ContacorrCC_SAIDA:=DM_Dados.TBL_VendPaiVENDPAI_VALOR; DM_Dados.TBL_ContacorrCC_FPAGTO:=DM_Dados.TBL_VendPaiVENDPAI_FORMPAGTO; DM_Dados.TBL_ContacorrCC_DATA:=DM_Dados.TBL_VendPaiVENDPAI_DTVENDA; DM_Dados.TBL_Contacorr.Post; DM_Dados.TBL_Contacorr.Close; POR FAVOR, SE ALGUÉM TIVER A RESPOSTA, EU FICAREI AGRADECIDO IMENSAMENTE.