Problemas Com O Número Re

[rafaeldalbosco]

Boa tarde pessoal, estou tento o alerta do comente que o Número da RE não é valido.

No Campo RE dos detalhes de exportação esta sendo informado esse número 150401963001 pelo que verifiquei nos códigos do componente o motivo é que quando é gerado o XML no Detalhe de Exportação é chamado o método "DFeUtil.ValidaRE". Então abri esse método e acredito que encontrei uma correção a ser feita conforme os comentário do métodos:

 // AValue = AANNNNNNNSSS
 // Onde: AA Ano corrente da geração do documento
 //       NNNNNNN Número sequencial dentro do Ano ( 7 dígitos )
 //       SSS Serie do RE (001, 002, ...)

Verifiquei que existe uma comparação que acredito que esta fazendo um copy errado dessa String, atual:

 else if not ((StrToInt(copy(Avalue, 2, 2)) >= ano -1) and (StrToInt(copy(Avalue, 2, 2)) <= ano +1)) then

Acredito que seria essa a condição do teste:

 else if not ((StrToInt(copy(Avalue, 1, 2)) >= ano -1) and (StrToInt(copy(Avalue, 1, 2)) <= ano +1)) then

Estou anexando o código fonte com a sugestão desta correção.

 

 

Abraços.

ACBrDFeUtil.pas

[Italo Giurizzato Junior]

Boa tarde Rafael,

 

Eu já tinha visto esse erro e feito a correção, que por sinal o fonte corrigido já encontra-se no repositório a um bom tempo.

[rafaeldalbosco]

Ok, obrigado Italo, atualizei aqui e realmente já esta correto.