Erro Na Criação Do Registro I053

[Jerson Seling]

Tentei gerar o registro I053 e começou a ocorrer erro de violação de acesso, então vi no OnCreate do I050 que a lista do I053 não estava sendo criada.

 

Sugiro alterar:

constructor TRegistroI050.Create;
begin
   FRegistroI051 := TRegistroI051List.Create;
   FRegistroI052 := TRegistroI052List.Create;
end;

destructor TRegistroI050.Destroy;
begin
  FRegistroI051.Free;
  FRegistroI052.Free;
  inherited;
end;

Por:

constructor TRegistroI050.Create;
begin
   FRegistroI051 := TRegistroI051List.Create;
   FRegistroI052 := TRegistroI052List.Create;
   FRegistroI053 := TRegistroI053List.Create;
end;

destructor TRegistroI050.Destroy;
begin
  FRegistroI051.Free;
  FRegistroI052.Free;
  FRegistroI053.Free;
  inherited;
end;

Abraços

[Isaque Pinheiro]

Já disponível no Rep. obrigado.

[Jerson Seling]

Mais uma duvida, vi na função WriteRegistroI050 que aparentemente as linhas do I053 não estão sendo contadas para ser salvas no registro 9900. 

procedure TACBrSPEDContabil.WriteRegistroI050;
begin
   Bloco_I.WriteRegistroI050;
   if Bloco_I.RegistroI050.Count > 0 then
   begin
      with Bloco_9.Registro9900.New do
      begin
         REG_BLC := 'I050';
         QTD_REG_BLC := Bloco_I.RegistroI050.Count;
      end;
   end;
   if Bloco_I.RegistroI051Count > 0 then
   begin
      with Bloco_9.Registro9900.New do
      begin
         REG_BLC := 'I051';
         QTD_REG_BLC := Bloco_I.RegistroI051Count;
      end;
   end;
   if Bloco_I.RegistroI052Count > 0 then
   begin
      with Bloco_9.Registro9900.New do
      begin
         REG_BLC := 'I052';
         QTD_REG_BLC := Bloco_I.RegistroI052Count;
      end;
   end;
end;

A função é assim mesmo ou está faltando o contador para o I053? 

[EMBarbosa]

Acho que essa parte do código não foi muito bem testada.

Seria melhor você testar...

[araujolops]

Boa noite, como faço para implementar o Registro I052 ?

tentei com o código acima mas não dá certo.

       with RegistroI050.New do
        begin

       IF REgistroI052Count > 0 then

               COD_CCUS := como encontro ?

               COD_AGL -> como encontro ?

Alguém pode ajudar?

Obrigado.

 

[Juliomar Marchetti]

Bom dia!

primeiro basta postar em um lugar e aguardar

segundo chegou já a olhar a uses de dentro do componente?

basta segurar o control e clicar em cima da propriedade que irá abrir o local onde está declarado e assim poderá saber o nome da unit que deverá adicionar em seu form para ter a informação!

tente primeiramente isso

[araujolops]

Juliomar, Obrigado por responder.

Está postado em dois lugares, pois é justamente nas duas pessoas que passaram por esse problema. E pensei que ficaria na resposta deles. Quanto a verificar o uses, já verifiquei inclusive nas classes dos mesmos. porém justo esse não tem exemplo e nem tem o 'new' como o Registro anterior I051 e I050. E não tem mais ninguém na net comentando a respeito desse Registro. 

 

[Juliomar Marchetti]

Mas você fez o que sugeri pra achar a uses que está o enumerador da propriedade!

[araujolops]

Juliomar,

Resolvido.

Muito Obrigado,

Foi uma tremenda bobeira minha, acho que pelo fato de ter entrado no terceiro turno, passou desapercebido. 

Abraços.