[firebase-br] [OFFOFF] problema com haver(pagamento parcial de parcela)

[Valdir Marcos da Silva]

Boa tarde.

Seria prudente que você colocasse seu procedimento em uma transação:
try
  StartTransaction
  ... faz tudo ...
  Commit
except
  ... avisa que deu erro ...
  Rollback
end;


Um abraço,

Valdir


Em 04/01/08, Jiuney Pachevitch<j1un3y em hotmail.com> escreveu:
> Opa... Vamos lá Reijanio.. Vamos ver se entendi o que vc ta fazendo,,, hehe e vamos ver se vc vai conseguir me entender dai.. hehe =)
>
>
> //Insere um novo pagamento parcelado
> dmdados.haver.insert;
> dmdados.haverCODCONTA.value := dmdados.contasreceberCODIGO.value;
>
> //Aqui nao entendi direito, vc atribui o valor como data com StrToDate??dmdados.haverVALOR.value := StrToDate(Edit3.Text);//onde lanço os valores de haveres
> //por se tratar do valor, acho que deve ficar assim
> dmdados.haverVALOR.AsFloat := StrToFloat(Edit3.Text);
> dmdados.haverDATA.value := date;
>
> dmdados.haver.Post; //Encerra o processo de insercaodmdados.haver.ApplyUpdates(0); // Grava efetivamente no banco.
>
>
> dmdados.contasreceber.edit;
>
> // O componente DBEdit10 recebe o valor atraves do seu procedimento SOMA()???// se sim, tem que chamar ele agora, se nao, pode estar ai o problema! ;-)soma; // querye q faz a soma dos valores dos haver ja a coloquei em variaspartes do codigo
> dmdados.contasreceberVLRECEBIDO.value := Dbedit10.field.AsFloat//esse dbeditrecebe a //soma de valoresdmdados.contasreceberVLRESTANTE.value := dmdados.contasreceberVLRTOTAL.value   - dmdados.contasreceberVLRECEBIDO.value;
> if dmdados.contasreceberVLRESTANTE.value <> 0 then   dmdados.contasreceberSTATUS.value := 'P'else  dmdados.contasreceberSTATUS.value := 'B';
>
> dmdados.contasreceber.Post; //Encerra o processo de edicao da conta a receber
> dmdados.contasreceber.ApplyUpdates(0); // grava a conta a receber no banco
>
>
> // Nao sei se fechar o DataSet aqui é necessario, pois vc ja o abre novamente, a nao ser que haja alguma razao para isso! hehedmdados.contasreceber.close;
> dmdados.contasreceber.Open;
>
> Pelo que entendi, assim ja deve funcionar! Eu espero, hehe
>
>
> Boa sorte =)
>
>
>
> > Date: Fri, 4 Jan 2008 11:59:10 -0300> From: rnribeiro em gmail.com> To: lista em firebase.com.br> Subject: Re: [firebase-br] [OFFOFF] problema com haver(pagamento parcial de parcela)> > é como te falei jiuney e tudo numa mesma procedure, e os passo são o> seguinte:> primeiro joga o valor na tabela haver depois subtrai a soma dos valores da> tabela haver pelo valor total do titulo da tavela contas receber e lança> esse valor em valor recebido e o saldo em valor restante> > Em 04/01/08, Jiuney Pachevitch <j1un3y em hotmail.com> escreveu:> >> > Boa tarde!> >> > Esse codigo que vc colocou esta todo na mesma procedure ou esta seperado,> > em locais diferentes??> >> > vc poderia explicar melhor a codificação? Tipo, a que momento vc faz cada> > passo.. Entendi o que vc quer fazer, porem nao entendi muito bem como> > atualmente esta sendo feito.. hehe> >> >> >> > > Date: Fri, 4 Jan 2008 11:18:52 -0300> From: rnribeiro em gmail.com> To:> > lista-delphi em yahoogrupos.com.br; lista em firebase.com.br> Subject:> > [firebase-br] problema com haver(pagamento parcial de parcela)> > bom dia> > pessoal pra alguns isso é off mais estou mandando pra varias listas> de> > delphi e fb, seguinte estou com um problema, pra gerar haveres de> clientes> > pois qdo clico no botão de haver ele simplesmente lança na tabela> de haver> > mais não diminue do total do titulo, porem qdo em seguida clico e> lanço> > outro valor ele abate do valor o 1 valor lançado no haver sempre assim> se> > lança 3 haveres ele abate 2 e assim sucessivamente alguem pode me ajudar> a> > sintase é a seguinte:> lenbrando q essa é so a parte q interessa:> >> > dmdados.haver.insert;> dmdados.haverCODCONTA.value :=> > dmdados.contasreceberCODIGO.value;> dmdados.haverVALOR.value := StrToDate(> > Edit3.Text);//onde lanço os valores de> haveres> dmdados.haverDATA.value:= date;> >> > dmdados.contasreceber.edit;> dmdados.contasreceberVLRECEBIDO.value :=> > Dbedit10.field.AsFloat//esse dbedit> recebe a> > //soma de valores>> > dmdados.contasreceberVLRESTANTE.value :=> > dmdados.contasreceberVLRTOTAL.value->> > dmdados.contasreceberVLRECEBIDO.value;> > if> > dmdados.contasreceberVLRESTANTE.value <> 0 then begin>> > dmdados.contasreceberSTATUS.value := 'P';> end> else>> > dmdados.contasreceberSTATUS.value := 'B';>> > dmdados.contasreceber.ApplyUpdates(0);> dmdados.haver.ApplyUpdates(0);>> > dmdados.contasreceber.close;> dmdados.contasreceber.Open;> soma; // querye> > q faz a soma dos valores dos haver ja a coloquei em varias> partes do> > codigo> //mesmo assim continua do mesmo jeito poderiam me ajudar> > uso> > delphi 2006 firebird 1.5xxx e DbExpress>> > ______________________________________________> FireBase-BR (> > www.firebase.com.br) - Hospedado em www.locador.com.br> Para editar sua> > configuração na lista, use o endereço> > http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br> Para> > consultar mensagens antigas: http://firebase.com.br/pesquisa> > _________________________________________________________________> > Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver> > offline. Conheça o MSN Mobile!> > http://mobile.live.com/signup/signup2.aspx?lc=pt-br> > ______________________________________________> > FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br> > Para editar sua configuração na lista, use o endereço> > http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br> > Para consultar mensagens antigas: http://firebase.com.br/pesquisa> >> ______________________________________________> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br> Para editar sua configuração na lista, use o endereço http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
> _________________________________________________________________
> Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça  o MSN Mobile!
> http://mobile.live.com/signup/signup2.aspx?lc=pt-br
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para editar sua configuração na lista, use o endereço http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>