erro ao gerar registro 0150

[Diego]

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?

[Eisenheim]

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

[Diego]

obrigado, era falta do bloco 140 mesmo eu tinha entendido ele de forma errado