Jump to content

dev botao

Erro Na Criação Registro 0210 (Bloco K)


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

Recommended Posts

  • Membros Pro

Bom dia pessoal, estou testando a geração dos blocos que serão necessários para o bloco K, e quando alimentei o componente especificamente no registro 0210, deu alguns erros que acredito ter corrigido, vou anexar as units alteradas para analise, coloquei em comentário a flag para geração apenas 2015 somente para teste.

ACBrEFDBloco_0.pas

ACBrEFDBloco_0_Class.pas

ACBrSpedFiscal.pas

  • Like 1

Jorge – Analise / Desenvolvimento de Sistemas

Netstart Informatica - (18)3642-0900

www.netstart.com.br

Link to comment
Share on other sites

  • Consultores

Por favor, poderia dizer quais são os erros que você corrigiu?

[]'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 to comment
Share on other sites

  • Membros Pro
Estava tentado alimentar o componente com os registros 0210 assim:
  IBQRegistros0210.First;
  while not(IBQRegistros0210.Eof) do
  begin
    with ACBrSPEDFiscal1.Bloco_0.Registro0210New do // aqui retorna erro de violação de acesso
    begin
      COD_ITEM_COMP := IBQRegistros0210.FieldByName('COD_ITEM_COMP').AsString;
      QTD_COMP      := IBQRegistros0210.FieldByName('QTD_COMP').AsFloat;
      PERDA         := IBQRegistros0210.FieldByName('PERDA').AsFloat;
    end;
    IBQRegistros0210.Next;
  end;
  Como esta dando erro, fui debugando percebi que a linha de criação estava faltando como nos outros registro:
  
unit ACBrEFDBloco_0;  
constructor TRegistro0200.Create(AOwner: TRegistro0001);
begin
   FRegistro0205 := TRegistro0205List.Create;
   FRegistro0206 := TRegistro0206List.Create;
   FRegistro0210 := TRegistro0210List.Create;  // linha inserida
   FRegistro0220 := TRegistro0220List.Create;
end;
 
destructor TRegistro0200.Destroy;
begin
  FRegistro0205.Free;
  FRegistro0206.Free;
  FRegistro0210.Free; // linha inserida
  FRegistro0220.Free;
  inherited;
end;
Outras alterações fiz fazendo busca no registro 0220 e verificando se existia algum parecido 0210 onde não tinha coloquei como na unit ACBrSpedFiscal: :
         //Inserido
         if Bloco_0.Registro0210Count > 0 then
         begin
            with New do
            begin
               REG_BLC := '0210';
               QTD_REG_BLC := Bloco_0.Registro0210Count;
            end;
         end;
        // Fim 

Jorge – Analise / Desenvolvimento de Sistemas

Netstart Informatica - (18)3642-0900

www.netstart.com.br

Link to comment
Share on other sites

  • Moderadores

Boa tarde

tomei a liberdade e conferi!

sim alguns haviam erros mas outro já havia sido corrigido!

mantenha se possível uma vez na semana atualizado seus fontes!

 

Obrigado pela contribuição já está disponível

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 to comment
Share on other sites

  • 5 weeks later...
  • Este tópico foi criado há 3555 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.

The popup will be closed in 10 seconds...