Ir para conteúdo
  • Cadastre-se

dev botao

Alteração da geração do registro 0110


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

Recommended Posts

  • Consultores

Olá Filipe,

Eu fiz algumas alterações baseadas no sua sugestão.

Além do que você postou eu adicionei também a versão 2.0.0 e criei o tratamento específico para a versão de layout 2.0.1 mencionado no Guia Prático Contribuições 1.0.7. Removi assim o tratamento para os layouts anteriores no que se refere ao CAMPO 05, visto que agora temos na documentação claramente que eles não devem aparecer.

EDIT: revisão 3592.

[]'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

  • 1 mês depois ...
  • Membros Pro

Boa tarde

De acordo com o novo validador (2.01) estão ocorrendo alguns erros no registro 0110, fiz algumas modificações e estou enviando para avaliação.

O principal problema é que o valor do campo IND_REG_CUM de alguma forma mesmo não informando nada, ele está assumindo o valor 1. Quando o campo COD_INC_TRIB for <> 2 entao o campo IND_REG_CUM nao deverá ser informado e se o campo CON_INC_TRIB for = 2 nao devera ser informado valor no campo strIND_APRO_CRED;


       ///

       if FRegistro0000.COD_VER >= vlVersao201 then

       begin

         if (COD_INC_TRIB = codEscrOpIncCumulativo) then

           strIND_APRO_CRED := '';// Conforme Guia prático 1.0.5 Deve ser vazio caso COD_INC_TRIB = 2


         if (COD_INC_TRIB <> codEscrOpIncCumulativo) then // Mário Mesquita -- Conforme guia prático, Deve ser vazio caso COD_INC_TRIB <> 2

           strIND_REG_CUM := '';


         //Nota: Só a versão 2.01 ou superior do PVA vai estar pronta para validar esse arquivo.

         Add( LFill('0110') +

              LFill( strCOD_INC_TRIB  ) +

              LFill( strIND_APRO_CRED ) +

              LFill( strCOD_TIPO_CONT ) +

              LFill( strIND_REG_CUM ) );

Ederson Selvati

ACBrEPCBloco_0_Class (2).pas

Ederson Selvati
www.criareti.com.br

Skype: eselvati

Link para o comentário
Compartilhar em outros sites

Obrigado Ederson, realmente é preciso essas pequenas alterações para o registro 0110 ser gerado correto.

Assim que possível acho que o pessoal faz o merge nos fontes do componente.

Já ta disponível no SVN.

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

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