Salvar em 2 tabelas ao mesmo tempo...
04/12/2003
0
dmExp.tblLancaContas.Insert; dmExp.tblLancaContas.FieldByName(´DATA´).AsDateTime := DMeXP.tblCheques.FieldValues[´DATA´].AsDateTime; dmExp.tblLancaContas.FieldByName(´VALOR´).AsCurrency := DMeXP.tblCheques.FieldValues[´VALOR´].AsCurrency; dmExp.tblLancaContas.FieldByName(´OPERACAO´).AsString := ´D´; dmExp.tblLancaContas.FieldByName(´OBS´).AsString := DMeXP.tblCheques.FieldValues[´DESCRICAO´].AsString; dmExp.tblLancaContas.FieldByName(´DESCRICAO´).AsString := ´CHQ Nº´ + IntToStr(DMeXP.tblCheques.FieldValues[´NUMERO´].AsInteger); dmExp.tblLancaContas.Post;
o que pode estar errado?
Obrigado,
Douglas.
Douglas Bitencourt
Posts
04/12/2003
Luineumann
04/12/2003
Douglas Bitencourt
o relacionamento e feito em 3 campos (banco, agencia, conta).
acrescentei[b:b0ee53917b] dmExp.tblCheques.Edit; [/b:b0ee53917b]no inicio do código e lançou legal, mas...
agora tá dando este erro:
Agora tá dando sistem error code 87??
ce ja´viu alguma vez?
04/12/2003
Douglas Bitencourt
a tabela de cheques é onde acontece o lançamento. e a de contas é a que recebe também junto com a de cheques.
04/12/2003
Douglas Bitencourt
eis o código atual:
dmExp.tblCheques.Edit; dmExp.tblLancaContas.Insert; dmExp.tblLancaContas.FieldByName(´DATA´).AsDateTime := (DMeXP.tblChequesEMISSAO.AsDateTime); dmExp.tblLancaContas.FieldByName(´VALOR´).AsCurrency := (DMeXP.tblChequesVALOR.AsCurrency); dmExp.tblLancaContas.FieldByName(´OPERACAO´).AsString := ´D´; dmExp.tblLancaContas.FieldByName(´DESCRICAO´).AsString := (´CHQ Nº ´ + DMeXP.tblChequesNumeroCheque.Text + DMeXP.tblChequesDescricao.Text); dmExp.tblLancaContas.Post;
o que pode ser agora?
04/12/2003
Douglas Bitencourt
coloquei o código acima no evento AfterPost da tabela de entrada dos dados e funcionou!!
valeu a força!
[]s
Douglas.
Clique aqui para fazer login e interagir na Comunidade :)