Ir para conteúdo
  • Cadastre-se

dev botao

DACTE Quantidade Volume


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

Recommended Posts

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

Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia Sergio,

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

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

Link para o comentário
Compartilhar em outros sites

  • Consultores
  • Solution

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

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...

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
Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa tarde Sergio,

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

  • 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

Link para o comentário
Compartilhar em outros sites

  • 2 meses depois ...
  • Este tópico foi criado há 1356 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.

The popup will be closed in 10 segundos...