Pesquisar na Comunidade

Olá gostaria de sugerir uma correção na validação do Drawback da NFe, me deparei essa semana com uma nota de importação de um cliente, o qual tem seu registro de Drawback iniciando com 2016, sua concessão do Drawback é valido por 2 anos, conforme anexo abaixo destaquei data de registro e validade, acontece que o ACBR NFe existe uma validação que estava retornando Falso o qual impedia a emissão da NFe, ajustei o método ValidaDrawback do fonte ACBrDFeUtil.pas, anexei nesse post tanto o fonte completo como o patch de correção do ACBr como for mais fácil para comparar com minha alteração. Também aproveito para postar aqui o código de como estava: function ValidaDrawback(AValue: String): Boolean; var ano: integer; begin // AValue = AAAANNNNNND // Onde: AAAA Ano corrente do registro // NNNNNN Número sequencial dentro do Ano ( 6 dígitos ) // D Dígito Verificador, Módulo 11, Pesos de 2 a 9 AValue := OnlyNumber(AValue); ano := StrToInt(Copy(IntToStr(YearOf(Date)), 3, 2)); if length(AValue) = 11 then AValue := copy(AValue, 3, 9); if length(AValue) <> 9 then Result := False else if not ((StrToInt(copy(Avalue, 1, 2)) >= ano - 1) and (StrToInt(copy(Avalue, 1, 2)) <= ano + 1)) then Result := False else Result := copy(AValue, 9, 1) = Modulo11(copy(AValue, 1, 8)); end; E como ficou depois da minha alteração: function ValidaDrawback(AValue: String): Boolean; var ano: integer; begin // AValue = AAAANNNNNND // Onde: AAAA Ano corrente do registro // NNNNNN Número sequencial dentro do Ano ( 6 dígitos ) // D Dígito Verificador, Módulo 11, Pesos de 2 a 9 AValue := OnlyNumber(AValue); ano := StrToInt(Copy(IntToStr(YearOf(Date)), 3, 2)); if length(AValue) = 11 then AValue := copy(AValue, 3, 9); if length(AValue) <> 9 then Result := False else if not ((StrToInt(copy(Avalue, 1, 2)) >= ano - 2) and (StrToInt(copy(Avalue, 1, 2)) <= ano + 2)) then Result := False else Result := copy(AValue, 9, 1) = Modulo11(copy(AValue, 1, 8)); end; Qualquer dúvida estou a disposição e agradeço caso a sugestão de alteração seja aceita. ACBrDFeUtil.pas.patch ACBrDFeUtil.pas

Bom dia, estou importando um arquivo txt para NFe, que o mesmo arquivo tem a informação da Declaração de Importação (DI), onde na coluna I25 esta vindo as seguintes tags '§I25|NADICAO¨|NSEQADIC¨|CFABRICANTE¨|VDESCDI¨' E preciso Importar a tag NDRAW, que não está vindo. Ai nao consigo importar a informação. Class pcnNFeRTXT, Conforme imagem anexada. Também estou anexando o Layout para analise. Pag 8 de 13. I25|nAdicao|nSeqAdicC|cFabricante|VdescDI|nDraw| Obrigado... Manual de layout TXT-NF-e_v3.1.0.pdf Manual de layout TXT-NF-e_v3.1.0.pdf

Boa tarde! Estou fazendo uma nota fiscal de exportação na versão 3.10 com CFOP 7127 ( Venda de produção do estabelecimento sob o regime de drawback ) que exige a tag nDraw. Estou preenchendo esta tag, porém na validação está retornando que o numero Drawback é invalido. Mas o numero está correto. Estava olhando a Função "ValidaDrawback" da unit "ACBrDFeUtil" e percebi que na linha 866: Result := copy(AValue, 9, 1) = Modulo11(AValue); O parâmetro passado para a função "Mudulo11" está indo com o digito verificador, ai o calculo sempre retorna diferente do digito verificador do Drawback correto. Gostaria de saber se estou seguindo o preenchimento correto da tag, ou se realmente existe uma falha na validação do Numero Drawback?