Código

16/06/2008

1

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;



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

[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]



Responder