[Resolvido] Erro No Registro 50

Pedro_Manoel · 8 Fevereiro, 2013

Boa tarde !

Gostaria de saber se alguem ja teve este erro em anexo .

o Comando que eu passo para a geração do arquivo é

with ACBrSintegra do

begin

wregistro50.CPFCNPJ := TiraMascara(sqlaux.FieldByName('CPFCNPJ').asstring);

wregistro50.Inscricao := TiraMascara(sqlaux.FieldByName('RGIE').asstring);

wregistro50.DataDocumento := Registro10.DataFinal;

wregistro50.UF := sqlaux.FieldByName('UF').asstring;

if Trim(sNFEAMBDEST) = '' then wregistro50.Modelo := '01'

else wregistro50.Modelo := '55';

wregistro50.Serie := sqlaux.FieldByName('SERIE').asstring;

wregistro50.Numero := sqlaux.FieldByName('DOCUMENTO').asstring;

wregistro50.Cfop := TiraMascara(sqlaux.FieldByName('NATUREZAOP').asstring);

wregistro50.EmissorDocumento:= sqlaux.FieldByName('EMITENTE').asstring;

wregistro50.ValorContabil := sqlaux.FieldByName('VLNOTA').AsCurrency;

wregistro50.Icms := sqlaux.FieldByName('ICMS').AsCurrency;

wregistro50.BasedeCalculo := sqlaux.FieldByName('BCICMS').AsCurrency;

wregistro50.Isentas := sqlaux.FieldByName('VLNOTA').AsCurrency;

wregistro50.Outras := 0;

ACBrSintegra.Registros50.Add(wregistro50);

end;

Editado 20 Fevereiro, 2013 por Pedro_Manoel

EMBarbosa · 9 Fevereiro, 2013

Nunca tive esse problema. Mas ajudaria saber em qual linha o erro está sendo gerado.

Veja também: http://stackoverflow.com/questions/89607/what-is-a-privileged-instruction

Pedro_Manoel · 9 Fevereiro, 2013

Bom dia .

Obrigado pela Ajuda

Esta dando o erro no Limparegistro

EMBarbosa · 13 Fevereiro, 2013

Faça debug do método Limparegistro e verifique onde é que acontece o erro dentro dele.

Pedro_Manoel · 19 Fevereiro, 2013

boa noite !

estou postando o modo que eu carrego os registros , pois estou com o seguinte problema...

o componente aceita passar todos dos dados mas quando vai gerar o arquivo ele sempre passa as informações do primeiro registro repetindo ate o fim do FOR .

a quantidade de informação é a mesma que o select retorna. mas dos dados são do 1º registro esta em anexo um pedaço do registro 50 isso acontece com todos os registros.

sqlaux.First;

wregistro50:=TRegistro50.Create;
while not sqlaux.Eof do begin
  with ACBrSintegra do begin
    wregistro50.CPFCNPJ         := TiraMascara(sqlaux.FieldByName('CPFCNPJ').asstring);
    wregistro50.Inscricao       := TiraMascara(sqlaux.FieldByName('RGIE').asstring);
    wregistro50.DataDocumento   := Registro10.DataFinal;
    wregistro50.UF              := sqlaux.FieldByName('UF').asstring;


    if sqlaux.FieldByName('CODCHACESSO').AsString = '' then wregistro50.Modelo := '01'
    else                                                    wregistro50.Modelo := '55';


    wregistro50.Serie           := sqlaux.FieldByName('SERIE').asstring;
    wregistro50.Numero          := sqlaux.FieldByName('DOCUMENTO').asstring;
    wregistro50.Cfop            := TiraMascara(sqlaux.FieldByName('NATUREZAOP').asstring);
    wregistro50.EmissorDocumento:= sqlaux.FieldByName('EMITENTE').asstring;
    wregistro50.ValorContabil   := sqlaux.FieldByName('VLNOTA').AsCurrency;
    wregistro50.Icms            := sqlaux.FieldByName('ICMS').AsCurrency;
    wregistro50.BasedeCalculo   := sqlaux.FieldByName('BCICMS').AsCurrency;
    wregistro50.Situacao        := 'N';
    wregistro50.Isentas         := 0;
    wregistro50.Outras          := 0;
    ACBrSintegra.Registros50.Add(wregistro50);
  end;
  sqlaux.Next;
end;

5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N

Editado 20 Fevereiro, 2013 por EMBarbosa
Use a tag CODE ao postar códigos

Régys Silveira · 20 Fevereiro, 2013

wregistro50:=TRegistro50.Create;

isso deve ficar dentro do loop, do contrário você está trabalhando sempre no mesmo objeto.

EMBarbosa · 20 Fevereiro, 2013

Fora o que o Régys mencionou, eu não vejo nenhum problema. Então corrija isso e tente fazer o debug até a linha que gera o erro mencionado no primeiro post.

Pedro_Manoel · 20 Fevereiro, 2013

boa tarde !

deu carto a geração do arquivo e o erro que estava dando do primeiro post tb foi resolvido.

Mto Obrigado .....

Régys Silveira · 21 Fevereiro, 2013

Marque o post como resolvido por favor.

Entrar

Sobre nós...

[Resolvido] Erro No Registro 50

Recommended Posts

Pedro_Manoel

EMBarbosa

Pedro_Manoel

EMBarbosa

Pedro_Manoel

Régys Silveira

EMBarbosa

Pedro_Manoel

Régys Silveira

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante