Código

16/06/2008

0

QAtualizaEntradas.ParamByName(´par_Data1´).AsDate                  := Date;
                              QAtualizaEntradas.ParamByName(´par_CodFornecedor1´).AsInteger      := DMEntradaNota.CdsEntradaNota.FieldByName(´CDENCODFORNECEDOR´).AsInteger;
                              QAtualizaEntradas.ParamByName(´par_Nota1´).AsInteger               := DMEntradaNota.CdsEntradaNota.FieldByName(´CDENNUMNOTA´).AsInteger;
                              QAtualizaEntradas.ParamByName(´par_Qtde1´).AsInteger               := QInfoEntrada.FieldByName(´CDINQUANTIDADE´).AsInteger;
                              QAtualizaEntradas.ParamByName(´par_PrecoUnitario1´).AsFloat        := QInfoEntrada.FieldByName(´CDINPRECOUNITARIO´).AsFloat;

                              If QRetornaDadosProduto.FieldByName(´CDPRDATA2´).AsString <> ´´ Then
                              begin
                                   QAtualizaEntradas.ParamByName(´par_Data3´).AsDate             := QRetornaDadosProduto.FieldByName(´CDPRDATA2´).AsDateTime;
                                   QAtualizaEntradas.ParamByName(´par_CodFornecedor3´).AsInteger := QRetornaDadosProduto.FieldByName(´CDPRCODFORNECEDOR2´).AsInteger;
                                   QAtualizaEntradas.ParamByName(´par_Nota3´).AsInteger          := QRetornaDadosProduto.FieldByName(´CDPRNUMNOTA2´).AsInteger;
                                   QAtualizaEntradas.ParamByName(´par_Qtde3´).AsInteger          := QRetornaDadosProduto.FieldByName(´CDPRQTDE2´).AsInteger;
                                   QAtualizaEntradas.ParamByName(´par_PrecoUnitario3´).AsFloat   := QRetornaDadosProduto.FieldByName(´CDPRPRECOUNITARIO2´).AsFloat;
                              end
                              Else
                              begin
                                   QAtualizaEntradas.ParamByName(´par_Data3´).Value := Null;
                                   QAtualizaEntradas.ParamByName(´par_CodFornecedor3´).Value := Null;
                                   QAtualizaEntradas.ParamByName(´par_Nota3´).Value := Null;
                                   QAtualizaEntradas.ParamByName(´par_Qtde3´).Value := Null;
                                   QAtualizaEntradas.ParamByName(´par_PrecoUnitario3´).Value := Null;
                              end;



Rb2228

Rb2228

Responder

Posts

16/06/2008

Facc

Amigo... qual é o propósito desse código???
É resposta pra algum tópico, caso positivo, use o botão responder!


Responder

16/06/2008

Massuda

[quote:133b4f661c=´Moderação´][color=red:133b4f661c]Tópico bloqueado por Massuda

Para:[list:133b4f661c][*:133b4f661c][b:133b4f661c]responder em um tópico existente[/b:133b4f661c] use o [b:133b4f661c]botão responder[/b:133b4f661c][*:133b4f661c][b:133b4f661c]criar um novo tópico[/b:133b4f661c] use o [b:133b4f661c]botão novo tópico[/b:133b4f661c][/list:u:133b4f661c]Os botões encontram-se na parte inferior da página.[/color:133b4f661c][/quote:133b4f661c]


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar