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
Curtir tópico
+ 0
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!
É 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]
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
Clique aqui para fazer login e interagir na Comunidade :)