Fórum append com problemas #393548
10/01/2011
0
Eu usa Firedird 2.0 e Delphi 7 e ibtable , estou passando o seguinte em uma aplicaçao , tenho um form para dar entrada das ordens de servico , no botao "novo" eu insiro as OS usando um append, mas o problema esta que quando fecho o sistema e abro de novo o, e clieno no botao para uma OS nova em ves de vir em branco os dbedit que presciso vem com ainformacao do ultimo registro , alguem ja teve este problema .
o codgio que uso é este
dm.IBTbOrdemServico.Append; dm.IBTbOrdemServicoDATA_ENTRADA.Value:=date; dm.IBTbOrdemServicoCARRO.Value:=0; dm.IBTbOrdemServicoSTATUS.Value:=1; dm.IBTbOrdemServicoMES.Value:=strtoint(mes); --------------------------------------| dm.IBTbOrdemServicoIDSECUNDARIO.Value:=v_idsc; |----- uso para gerar o cod da OS dm.IBTbOrdemServicoIDORSEC.Value:=Format('%4.4d',[v_idsc])+'.'+mes+ano;| dm.IBTbOrdemServico.Post; dm.IBTrOrdemServico.Commit; dm.IBTbOrdemServico.Open; dm.IBTbOrdemServico.last; //// para voltar as informacoes ja gravadas dm.IBTbOrdemServico.Edit;
agradeço desde ja a ajuda.
Paulo Pattarelli
Paulo Pattarelli
Curtir tópico
+ 0Posts
10/01/2011
Wilson Junior
Se vc quer q os Edits venham em branco, de apenas um Append.
Espero ter colaborado.
Gostei + 0
10/01/2011
Paulo Pattarelli
mas entao é que uso assim pois gero um codigo interno no DB pele generation, ai gravo as informções primarias como "data , status etc..." , e depois volto para editar , o estranho é que uso este mesmo codigo em outars telas e funciona normal .
Att. Paulo
Gostei + 0
10/01/2011
Wilson Junior
Espero ter colaborado.
Gostei + 0
10/01/2011
Paulo Pattarelli
Gostei + 0
10/01/2011
Wilson Junior
Espero ter colaborado.
Gostei + 0
10/01/2011
Paulo Pattarelli
obrigado por enquanto
Gostei + 0
10/01/2011
Paulo Pattarelli
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)