PROBLEMAS COM GRAVAÇÃO DE DADOS EM EVENTO AFTER POST

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

[pimpocvl007]

kupac,

Qual o problema? ...e qual e o objetivo das duas tabelas?

Att.

Olimpio