ActiveDelphi

[adsonazevedo]

Ola pessoal !!
estou querendo pegar as informações de uma tablela e importa para outra estou utilizando o seguinte rotina mas nao estou conseuindo

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with Qserver do
begin
close;
sql.Clear;
sql.Add('select * from contas_receber');
sql.Add('where filial =:vfilial and vencimento <datain>=:datafim');
Prepared := true;
Parameters.ParamByName('vfilial').Value := Edit1.Text;
Parameters.ParamByName('datain').Value := MaskEdit1.Text;
Parameters.ParamByName('datafim').Value := MaskEdit2.Text;
ExecSQL;

open;
while not Qserver.Eof do
begin
qnote.Append;
QnoteFilial.Value := QserverFilial.Value;
QnoteTipo.Value := QserverTipo.Value;
QnoteCliente.Value := QserverCliente.Value;
QnoteSequncia.Value := QserverSequncia.Value;
QnoteData_Criao.Value := QserverData_Criao.Value;
QnoteHora_Criao.AsString := QserverData_Criao.AsString;
QnoteIdentificador.Value := QserverIdentificador.Value;
QnoteTipo_Parcelamento.Value := QserverTipo_Parcelamento.Value;
QnotePlano_Contas3.Value := QserverPlano_Contas3.Value;
QnoteConta_Boleto.Value := QserverConta_Boleto.Value;
QnoteEmisso.Value := QserverEmisso.Value;
QnoteVencimento.Value := QserverVencimento.Value;
QnoteValor.Value := QserverValor.Value;
QnoteDesconto.Value := QserverDesconto.Value;
QnoteAcrscimo.Value := QserverAcrscimo.Value;
QnoteValor_Recebido.Value := QserverValor_Recebido.Value;
QnoteData_Recebimento.Value := QserverData_Recebimento.Value;
QnoteVendedor.Value := QserverVendedor.Value;
QnoteVendedor2.Value := QserverVendedor2.Value;
QnoteBanco.Value := QserverBanco.Value;
QnoteCheque.Value := QserverCheque.Value;
QnoteCheque_Terceiro.Value := QserverCheque_Terceiro.Value;
QnoteDevolvido.Value := QserverDevolvido.Value;
QnoteAdm_Carto.Value := QserverAdm_Carto.Value;
QnoteNum_Carto.Value := QserverNum_Carto.Value;
QnoteLote_Carto.Value := QserverLote_Carto.Value;
QnoteValor_Carto.Value := QserverValor_Carto.Value;
QnoteCarto_Recebido.Value := QserverCarto_Recebido.Value;
QnoteDescrio.Value := QserverDescrio.Value;
QnoteNota.Value := QserverNota.Value;
QnoteFatura.Value := QserverFatura.Value;
QnoteParcela.Value := QserverParcela.Value;
QnoteParcela_Desc.Value := QserverParcela_Desc.Value;
QnoteBoleto_Impresso.Value := QserverBoleto_Impresso.Value;
QnoteBoleto_Data.Value := QserverBoleto_Data.Value;
QnoteCarnet_Impresso.Value := QserverCarnet_Impresso.Value;
QnoteCarnet_Data.Value := QserverCarnet_Data.Value;
QnoteDepositado.Value := QserverDepositado.Value;
QnoteData_Alterao.Value := QserverData_Alterao.Value;
QnoteOrigem.Value := QserverOrigem.Value;
QnoteID_Out.Value := QserverID_Out.Value;
QnoteOrigem_Out.Value := QserverOrigem_Out.Value;
QnoteUsurio.Value := QserverUsurio.Value;
QnoteAlterado_Manualmente.Value := QserverAlterado_Manualmente.Value;
QnoteCarnet.Value := QserverCarnet.Value;
QnoteCaixa.Value := QserverCaixa.Value;
QnoteExtra1.Value := QserverExtra1.Value;
QnoteExtra2.Value := QserverExtra2.Value;
QnoteExtra3.Value := QserverExtra3.value;
QnoteExtra4.Value := QserverExtra4.value;
QnoteExtra5.Value := QserverExtra5.value;
QnoteExtra6.Value := QserverExtra6.Value;
qserver.Post;

end;
qserver.Next;

end;
ShowMessage('dados importados com sucesso');
end;
end.

[karlosrapanui]

qserver.Post; // ESSE POST NÃO DEVERIA SER DA TABELA qNote ????

end; // NÃO DEVERIA VIR DEPOIS DO NEXT ??
qserver.Next;

Esse "end;" não esta em lugar errado não ?

Desculpe-me se falei alguma besteira.

[]'s

Carlos

[pr.delphi]

Como o Karlos citou o Post é na tabela qNote
e o Next deve vir antes do End.