Ir para conteúdo
  • Cadastre-se

dev botao

erro ao gerar registro 0150


Diego
  • Este tópico foi criado há 4523 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.