Ir para conteúdo
  • Cadastre-se

dev botao

Erro Na Criação Do Registro I053


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

Recommended Posts

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

Link para o comentário
Compartilhar em outros sites

Já disponível no Rep. obrigado.

  • Curtir 1

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link para o comentário
Compartilhar em outros sites

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? 

Link para o comentário
Compartilhar em outros sites

  • Consultores

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

Seria melhor você testar...

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • 2 meses depois ...

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.

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

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. 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3137 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.