Fórum Estou Usando o IBDataset Corretamente? #46324
26/08/2004
0
//**************insere dados***************
dm.IBDSCONTASPAGAR.Open;
dm.IBDSCONTASPAGAR.Insert;
dm.IBDSCONTASPAGARNCONTA.Value:=strtoint(edconta.Text);
dm.IBDSCONTASPAGARFORNECEDOR.Value:=strtoint(edcodforn.Text);
dm.IBDSCONTASPAGARORIGEM.Value:=edorigem.Text;
dm.IBDSCONTASPAGARNDOC.Value:=edndoc.Text;
dm.IBDSCONTASPAGARDATA.Value:=STRTODATE(mskentrada.Text);
dm.IBDSCONTASPAGARVALOR.Value:=STRTOFLOAT(edvalor.Text);
dm.IBDSCONTASPAGARPARCELA.Value:=´1´;
dm.IBDSCONTASPAGARVENCIMENTO.Value:=STRTODATE(mskvencimento.Text);
dm.IBDSCONTASPAGARFORMAPGTO.Value:=cbpagto.Text;
dm.IBDSCONTASPAGAROBS.Value:=memo.Lines.Text;
dm.IBDSCONTASPAGARPAGO.Value:=´False´;
dm.IBDSCONTASPAGARREFERENCIA.Value:=edref.Text;
dm.IBDSCONTASPAGARNBOLETO.Value:=ednboleto.Text;
dm.IBDSCONTASPAGARNCHEQUE.Value:=edcheque.Text;
dm.IBDSCONTASPAGARBANCO.Value:=1;
//**************insere dados***************
dm.IBDSCONTASPAGAR.ApplyUpdates;
dm.IBTransaction.Commit;
Tap_pedroso
Curtir tópico
+ 0Posts
26/08/2004
Afarias
mude a linha
dm.IBDSCONTASPAGAR.ApplyUpdates;
por
dm.IBDSCONTASPAGAR.Post;
e, vc pode otimizar MUITO seu programa se não usar VALUE, mas AsString, AsInteger, As...
T+
Gostei + 0
26/08/2004
Tap_pedroso
Gostei + 0
26/08/2004
Afarias
T+
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)