Momento Em Que Foi Emitida A Nota

[leufmt]

boa tarde a todos.

Esta certo o que fiz abaixo?

Esta condição If ACBrNFSe.Enviar(Lote) then  diz que foi emitida com sucesso a nota?

Como faço para pegar o número do RPS e a data da emissão da RPS?

 

    If ACBrNFSe.Enviar(Lote) then
    begin
     ADOQNotas.Edit;
     ADOQNotas.FieldByName('CODIGOVERIFICACAO_NOT').AsString := ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao;
     ADOQNotas.FieldByName('NUMERONOTA_NOT').AsInteger := ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero;
     ADOQNotas.FieldByName('DATAEMISSAONOTA_NOT').AsDateTime := ACBrNFSe.NotasFiscais.Items[0].NFSe.DataEmissao;
     ADOQNotas.FieldByName('NUMERORPS_NOT').AsInteger := ????;
     ADOQNotas.FieldByName('SERIERPS_NOT').AsInteger := ????;
     ADOQNotas.FieldByName('DATAEMISSAORPS_NOT').AsDateTime := ACBrNFSe.NotasFiscais.Items[0].NFSe.DataEmissaoRps;
     ADOQNotas.Post;
    end;

[Leonardo Gregianin]

Bom dia leufmt,

 

Veja como funciona o exemplo do NFSe na procedure TfrmDemo_ACBrNFSe.GerarNFSe(NumNFSe: String).

 

As informações do número do RPS e data de emissão são geradas por você mesmo.

Editado 25 Outubro, 2013 por lvr