Código

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;