Ir para conteúdo
  • Cadastre-se

dev botao

DACTE Quantidade Volume


Ver Solução Respondido por Italo Giurizzato Junior,
  • Este tópico foi criado há 1376 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

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.

 Screenshot_1.png.9cce9953d9d9aab125cc5173de9f05eb.png

  • Moderadores
Postado

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

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

  • Consultores
  • Solution
Postado

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.

  • Curtir 2
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

  • 2 semanas depois ...
Postado

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!

image.thumb.png.3687e60d212db129b86ec26c1aaf478e.png

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;

 

 

 

 

 

 

  • Curtir 2
  • 2 meses depois ...
  • Este tópico foi criado há 1376 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.