[Componente ADRC-ST]

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

[Problema no totalizador tQRExpr Delphi rio quickreport 6]

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