Jump to content

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

Recommended Posts

Posted

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

Posted

Já disponível no Rep. obrigado.

  • Like 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

 

Posted

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? 

  • Consultores
Posted

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.
  • 2 months later...
Posted

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.

 

  • Moderadores
Posted

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_Transparent-02.png
 

 

Posted

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. 

 

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.