Dúvida Geração Do Registro R05 - Tpaf_R.writeregistror05

[carlosmarian]

Olá,

   Atualizei recentemente o ACBR e ao comparar os arquivo gerados antes e depois da atualização verifiquei uma pequena diferença no valor gerado para o campo "NUM_CONT" na linha R05.

   Antes gerava "042165" depois da atualização passou a gerar "421650", completando o valor com o zero a direita e não a esquerda.

 

  Avaliando o código verifiquei a seguinte alteração no código:

  Antes era:

  "LFill(RegR04.NUM_CONT, 6) +"

  e agora é :

  "LFill( IfThen(NUM_CONT=-1, RegR04.NUM_CONT, NUM_CONT), 6) +"

 

  Ao debugar vi que o método LFILL que é invocado depois da alteração é o com a assinatura :

    "LFill(Value: Currency;  Size: Integer; Decimal: Integer = 2; Nulo: Boolean = false;  Caracter: Char = '0'; Mascara: String = ''): String; overload;";

   e não com a assinatura

    "LFill(Value: Integer; Size: Integer; Nulo: Boolean = false; Caracter: Char = '0'): String; overload;"

  

  Para contornar eu fiz a seguinte alteração de:

     "LFill( IfThen(NUM_CONT=-1, RegR04.NUM_CONT, NUM_CONT), 6) +"

  para:

     "LFill( IfThen(NUM_CONT=-1, IntToStr(RegR04.NUM_CONT), IntToStr(NUM_CONT)), 6) +"

 

  

  Mas eu acredito que não seja a melhor forma, outra coisa que vi é que o método "ifthen" que é chamado e o "function IfThen(AValue: Boolean; const ATrue: Char; AFalse: Char): Char; overload;" que esta na classe "ACBrSpedUtils" e não na classe "ACBrUtil".

  Acredito que se passar a usar o IFTHEN do ACBRUtil já deve corrigir isso pq ele tem uma assinatura que recebe dois valores inteiros e que retorna um iteiro, diferente dos que hj estão disponíveis no "ACBrSpedUtils".

 

 

No aguardo.

 

Obrigado pela  atenção.

 

 

[Isaque Pinheiro]

Estou anexando aqui duas Units modificadas para resolver essa questão. Por gentileza baixe-as e teste, em seguida me dê um retorno se funcionou.

ACBrPAF_R_Class.pas

ACBrSpedUtils.pas

ACBrPAF_R_Class.pas

ACBrSpedUtils.pas

[carlosmarian]

Olá, 

  OK Isaque, sua sugestão de alteração tbm resolveu o problema,

 

    Eu anteriormente não tinha percebido, mas o erro do R05 tbm refletia no registros 0200 do SPED, com esta sua sugestão de correção tbm ajustou o sped;

 

  Valeu.

 

at+

Editado 11 Junho, 2013 por carlosmarian

[Isaque Pinheiro]

Sim, essas funções são usadas por vários componentes, obrigado pelo retorno vou subir para o SVN.

[alansst]

CarlosMarian, como vc resolveu o layout do PafMF_RelMeiosPagamento?

[Régys Silveira]

CarlosMarian, como vc resolveu o layout do PafMF_RelMeiosPagamento?

Por favor leia as regras, principalmente a parte em se manter no assunto do tópico, abra um novo tópico para sua dúvida, mas antes utilize a busca.

[carlosmarian]

CarlosMarian, como vc resolveu o layout do PafMF_RelMeiosPagamento?

Alansst,  a alteração do Isaque corrigiu o problema, a princípio não identifiquei outro erro.

 

at++

[alansst]

Alansst,  a alteração do Isaque corrigiu o problema, a princípio não identifiquei outro erro.

 

at++

Carlos, por favor, leia atentamente o que pergunto porque estou sem solução para o problema que citei e não encontro tópico que fale sobre o mesmo

Editado 26 Julho, 2013 por alansst

[Isaque Pinheiro]

CarlosMarian, bom dia, veja só isso já aconteceu comigo, em outra situação na verdade o que faz com que a função LFILL invoque a função de assinatura errada é a função IfThen(), como vc citou, pois a mesma deve está tendo como retorno um tipo não Integer.

 

Bom vamos a melhor solução faça o seguinte antes a função ifThen coloque assim:

   ACBrUtil.ifThen();

Teste e nos retorne se funcionou, se funcionar já me mande a unit em anexo. 

[EMBarbosa]

Isaque,
   o problema do Carlos já foi resolvido. Ele mesmo disse acima.
 

Carlos, por favor, leia atentamente o que pergunto porque estou sem solução para o problema que citei e não encontro tópico que fale sobre o mesmo

alansst,
   O post do Carlos é sobre Tpaf_R.writeregistror05, e não sobre PafMF_RelMeiosPagamento. Se você não achou um tópico que fale sobre o seu problema com PafMF_RelMeiosPagamento, crie um outro. Não venha misturar os assuntos nos tópicos já resolvidos conforme o Régys disse acima.

   Veja neste em especial a "2.2 - Permaneça no assunto".