Estou Usando o IBDataset Corretamente?
gostaria de saber se está correto o uso do ibdataset::
//**************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;
//**************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
Curtidas 0
Respostas
Afarias
26/08/2004
quase!
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+
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
Tap_pedroso
26/08/2004
qual a diferença entre [b:3244630a94].value e .asstring ou asinteger ?[/b:3244630a94]
GOSTEI 0
Afarias
26/08/2004
Value é um VARIANT e variants são *muito* lentos!
T+
T+
GOSTEI 0