Jump to content

click.png click.png click.png

click.png

click.png

click.png

Seja-Profissional-Saiba-mais.png Beneficios_banner.png

 

click.png

click.png

click.png

click.png

click.png

click.png

erro ao gerar registro 0150


Diego
  • Este tópico foi criado há 3733 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

quando uso o registro0150new retorna a mensagem "List Index out of bound (-1)"

uso da forma

while not cds.eof do

begin

  with registro0150new do

  begin

    #campos

  end;

cds.next;

end;

os dados estão chegando corretamente nele cheguei a tentar passar da cds pra variaveis temporarias e não resolveu, eu uso o acbr do repositorio e atualizo semanalmente, cheguei a tentar atualizar agora mas o erro persistiu

o 0150 seria filho do 0140? se sim como ficaria caso de um participante tipo pessoa fisica?

Link to comment
Share on other sites

Olá Diego!

Os registos 0140 e 0150 são filhos do Bloco 0.

Um exemplo de como estou preenchendo os campos:

          with Registro0140New do

          begin

            COD_EST := dtsBLOCO_0_EMISSOR.DataSet.FieldByName('CODIGO').AsString;

            NOME    := TrocaLetra( dtsBLOCO_0_EMISSOR.DataSet.FieldByName('NOME').AsString );

            CNPJ    := TiraMask  ( dtsBLOCO_0_EMISSOR.DataSet.FieldByName('CNPJ').AsString );

            IE      := TiraMask  ( dtsBLOCO_0_EMISSOR.DataSet.FieldByName('IE'  ).AsString );

            UF      := dtsBLOCO_0_EMISSOR.DataSet.FieldByName('UF'     ).AsString;

            COD_MUN := StrToIntDef(dtsBLOCO_0_EMISSOR.DataSet.FieldByName('COD_MUN').AsString, 0);

            IM      := dtsBLOCO_0_EMISSOR.DataSet.FieldByName('IM'     ).AsString;

            SUFRAMA := '';

          end;

          //

          with Registro0150New do

          begin

            COD_PART := ACBrNFe.NotasFiscais.Items[0].NFe.Dest.CNPJCPF;

            NOME     := ACBrNFe.NotasFiscais.Items[0].NFe.Dest.xNome;

            COD_PAIS := IntToStr(ACBrNFe.NotasFiscais.Items[0].NFe.Dest.EnderDest.cPais);


            if Length(ACBrNFe.NotasFiscais.Items[0].NFe.Dest.CNPJCPF) > 11 then

              CNPJ := ACBrNFe.NotasFiscais.Items[0].NFe.Dest.CNPJCPF

            else

              CPF  := ACBrNFe.NotasFiscais.Items[0].NFe.Dest.CNPJCPF;


            IE       := ACBrNFe.NotasFiscais.Items[0].NFe.Dest.IE;

            COD_MUN  := ACBrNFe.NotasFiscais.Items[0].NFe.Dest.EnderDest.cMun;

            SUFRAMA  := '';

            ENDERECO := ACBrNFe.NotasFiscais.Items[0].NFe.Dest.EnderDest.xLgr;

            NUM      := ACBrNFe.NotasFiscais.Items[0].NFe.Dest.EnderDest.nro;

            COMPL    := ACBrNFe.NotasFiscais.Items[0].NFe.Dest.EnderDest.xCpl;

            BAIRRO   := ACBrNFe.NotasFiscais.Items[0].NFe.Dest.EnderDest.xBairro;

          end;


[]s

Atenciosamente:

Jeferson Rodrigo Stefani

Link to comment
Share on other sites

  • Este tópico foi criado há 3733 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.