com insert

[Wilke1 0]

Bom dia pessoal eo seguinte eu fiz um procedimento pra fazer um insert, mas estou com duvida se esse codigo esta certo. e tambem no caso de ser cancelado como fazer pra desfazer a inserção eu fiz assimif (Edit2.Text='DEVOLUCAO DE MERCADORIAS') AND (Edit3.Text='1.202') then begin QryMovbanco.Insert; if (QryMovbanco.State=dsinsert) then QRYINCRE.CLOSE; QRYINCRE.SQL.Clear; QRYINCRE.SQL.Add('SELECT LPAD(SQ_MOVIMENTO_BANCARIO.NEXTVAL,10,''0'') ID_MOVIMENTO_BANCARIO FROM DUAL'); QRYINCRE.OPEN; QryMovbanco['CD_MOVIMENTO_BANCARIO'] := QRYINCRE.FIELDBYNAME('ID_MOVIMENTO_BANCARIO').ASSTRING; QryMovbanco['DS_HISTORICO'] := 'SAIDA REF DEVL MERC VENDIDA'; QryMovbanco['NU_DOCUMENTO'] := Edit17.Text; QryMovbanco['DT_EFETIVACAO'] := Edit4.Text; QryMovbanco['DT_OPERACAO '] := Edit5.Text; QryMovbanco['CD_LOJA'] := QryPedidoDev['CD_LOJA']; QryMovbanco['VL_LANCAMENTO'] := QryPedidoDev['VL_PEDIDO_PENDENTE']; QryMovbanco['CD_CONTA_BANCO'] := '217005'; QryMovbanco['FL_TIPO_LANCAMENTO'] := 'R'; QryMovbanco.Prepare; QryMovbanco.ExecSQL; QryMovbanco.UnPrepare;

[Hugo Slepicka 0]

Pra voltar usa o RollBack...ou então depende do Banco...

[Wilke1 0]

Pra voltar usa o RollBack...ou então depende do Banco...

tipo assim ?if (Edit2.Text='DEVOLUCAO DE MERCADORIAS') AND (Edit3.Text='1.202') then begin QryMovbanco.Insert; if (QryMovbanco.State=dsinsert) then QRYINCRE.CLOSE; QRYINCRE.SQL.Clear; QRYINCRE.SQL.Add('SELECT LPAD(SQ_MOVIMENTO_BANCARIO.NEXTVAL,10,''0'') ID_MOVIMENTO_BANCARIO FROM DUAL'); QRYINCRE.OPEN; QryMovbanco['CD_MOVIMENTO_BANCARIO'] := QRYINCRE.FIELDBYNAME('ID_MOVIMENTO_BANCARIO').ASSTRING; QryMovbanco['DS_HISTORICO'] := 'SAIDA REF DEVL MERC VENDIDA'; QryMovbanco['NU_DOCUMENTO'] := Edit17.Text; QryMovbanco['DT_EFETIVACAO'] := Edit4.Text; QryMovbanco['DT_OPERACAO '] := Edit5.Text; QryMovbanco['CD_LOJA'] := QryPedidoDev['CD_LOJA']; QryMovbanco['VL_LANCAMENTO'] := QryPedidoDev['VL_PEDIDO_PENDENTE']; QryMovbanco['CD_CONTA_BANCO'] := '217005'; QryMovbanco['FL_TIPO_LANCAMENTO'] := 'R'; QryMovbanco.Prepare; QryMovbanco.ExecSQL; QryMovbanco.UnPrepare; FMPRINCIPAL.DATABASE1.STARTTRANSACTION; TRY QryMovBanco.ApplyUpdates; FMPRINCIPAL.DATABASE1.COMMIT; EXCEPT FMPRINCIPAL.DATABASE1.ROLLBACK; RAISE; END; QryMovBanco.COMMITUPDATES;

[Hugo Slepicka 0]

isso!

[Wilke1 0]

isso!

valeu hugo

[Hugo Slepicka 0]

Sussa Brother http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif