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;

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

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

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

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.