DACTE Quantidade Volume

[sergiorodriguesweb]

Olá Pessoal, estou tendo uma dificuldade em apresentar a quantidade de volumes no DACTE, ele mostra apenas 2 informação do volume, porem tenho 4 Qtde volume, queria saber se tem alguma forma de aumentar o campo ou ate mesmo reduzir a fonte para que tudo fique apresentado.
fiz um exemplo (como pode ver faltou apresentar KILOS E PESO) alguem tem alguma sugestão ou passou por algo parecido que poderia compartilhar.

 

[Juliomar Marchetti]

Qual componente está utilizando?

[Italo Giurizzato Junior]

Bom dia Sergio,

Mas as duas informações que você diz que esta faltando, elas estão presentes no quadro de Peso Aferido (Kg).

[sergiorodriguesweb]

Bom dia, amigos
é verdade Italo Giurizzato Junior, 
Criei um novo exemplo Com unidades diferentes, neste caso apenas o Litro ficou de fora, no primeiro exemplo ele entro na coluna QTDE VOLUME.
percebi que ele aceita 2 unidade, neste exemplo o (Litro) não entrou

[BigWings]

Por favor informe qual componente está usando (Fast ou Fortes), se Fast qual o fr3 e anexe também o XML para testes.

[sergiorodriguesweb]

Boa Tarde amigos, o componente utilizado é o (Fortes)  estou anexando o arquivo XML gerado no exemplo.

cte.xml

[Italo Giurizzato Junior]

Bom dia Sergio,

O quadro de Quantidades e volumes possui apenas 4 linhas, como ele coloca a descrição da unidade em uma linha e abaixo dela a quantidade e novamente a unidade, temos espaço apenas para duas informações.

Acredito que poderíamos mudar.

Em vez de:

   UNIDADE
1,0000 UND

Para:

UNIDADE: 1,0000 UND

Desta forma seria possível informar até 4 quantidades.

[sergiorodriguesweb]

Boa Tarde Italo Giurizzato Junior, Legal, vou fazer essa alteração e muito obrigado pela atenção companheiro! 
Abraço.

[sergiorodriguesweb]

Boa Tarde Pessoal, segue a alteração na impressão do Dacte, para o quadro de Quantidades e volumes, conforme a ideia no nosso amigo, segue uma imagem do resultado e os arquivos alterados. fiz para manter o anterior e o novo, meu caso vou usar o novo! 
Obrigado pessoal, espero poder ajudar!

Antes 

TInfQCollection = class(TACBrObjectList)
  private
    function GetItem(Index: Integer): TInfQCollectionItem;
    procedure SetItem(Index: Integer; Value: TInfQCollectionItem);
  public
    function Add: TInfQCollectionItem; overload; deprecated {$IfDef SUPPORTS_DEPRECATED_DETAILS} 'Obsoleta: Use a função New'{$EndIf};
    function New: TInfQCollectionItem;
    property Items[Index: Integer]: TInfQCollectionItem read GetItem write SetItem; default;
  end;

Depois

  TInfQCollection = class(TACBrObjectList)
  private
    FImprimirEmUmaLinha: Boolean;
    function GetItem(Index: Integer): TInfQCollectionItem;
    procedure SetItem(Index: Integer; Value: TInfQCollectionItem);
  public
    function Add: TInfQCollectionItem; overload; deprecated {$IfDef SUPPORTS_DEPRECATED_DETAILS} 'Obsoleta: Use a função New'{$EndIf};
    function New: TInfQCollectionItem;
    property Items[Index: Integer]: TInfQCollectionItem read GetItem write SetItem; default;
    property ImprimirEmUmaLinha: Boolean read FImprimirEmUmaLinha write FImprimirEmUmaLinha;
  end;

Retrato Antes

        begin
          rlmQtdUnidMedida5.Lines.Add(fpCTe.infCTeNorm.InfCarga.InfQ.Items[i].tpMed);
          rlmQtdUnidMedida5.Lines.Add(
            FormatFloatBr(msk6x4, fpCTe.infCTeNorm.InfCarga.InfQ.Items[i].qCarga) + ' ' +
            UnidMedToDescricaoStr(fpCTe.infCTeNorm.InfCarga.InfQ.Items[i].cUnid));
        end;

Depois

        if(fpCTe.infCTeNorm.InfCarga.InfQ.ImprimirEmUmaLinha)then
        begin
          rlmQtdUnidMedida5.Lines.Add(
            fpCTe.infCTeNorm.InfCarga.InfQ.Items[i].tpMed + ': ' +
            FormatFloatBr(msk6x4, fpCTe.infCTeNorm.InfCarga.InfQ.Items[i].qCarga) + ' ' +
            UnidMedToDescricaoStr(fpCTe.infCTeNorm.InfCarga.InfQ.Items[i].cUnid));
        end
        else
        begin
          rlmQtdUnidMedida5.Lines.Add(fpCTe.infCTeNorm.InfCarga.InfQ.Items[i].tpMed);
          rlmQtdUnidMedida5.Lines.Add(
            FormatFloatBr(msk6x4, fpCTe.infCTeNorm.InfCarga.InfQ.Items[i].qCarga) + ' ' +
            UnidMedToDescricaoStr(fpCTe.infCTeNorm.InfCarga.InfQ.Items[i].cUnid));
        end;

 

 

 

 

 

 

[Italo Giurizzato Junior]

Boa tarde Sergio,

Acredito não há necessidade dessa propriedade, a impressão em uma linha na minha opinião ficou muito boa.

[Italo Giurizzato Junior]

Boa tarde Sergio,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas.