EwertonGerencial

Boa tarde, Quando gera o arquivo, a contagem de linhas no registro 1999 e 9999 estão limitados a 4 dígitos: Segue os arquivos ACBrADRCST_Bloco1_Class.pas e ACBrADRCST_Bloco9_Class.pas onde fiz a correções visto que no Manual_ADRC_ST_versao_1_3.pdf paginas 31 e 33 permite até 9 dígitos: Se tiver faltando algum lugar alterar me avisem, pois alterei somente nesses e funcionou para mim. ACBrADRCST_Bloco1_Class.pas ACBrADRCST_Bloco9_Class.pas

Para que tiver com o mesmo problema, consegui arrumar alterando a unit qrexpr.pas; Procure a function TQREvElementDataField.Value(FiFo : TQRFiFo) : TQREvResult; nela tem o mapeamento dos tipos de Fields e aonde tiver o TFloatField adiciona na condição TExtendedField e TSingleField Exemplo de como ficou: if (FField is TFloatField) or (FField is TCurrencyField) or (FField is TExtendedField) or // adicionado manualmente (FField is TSingleField) or // adicionado manualmente (FField.DataType = ftFMTbcd) then