Volumes dos itens na Danfe

[RicardoGarcia]

Olá,

Estou tendo problemas na geração da Danfe pois os volumes estão ficando com a grade duplicada de acordo com a quantidade de informações.

Exemplo:

Informo a quantidade, a espécie, a marca, o número, o peso líquido e o bruto. Quando gero o PDF, fica uma linha com os 6 campos sendo que na primeira aparece a informação da quantidade, na segunda linha a da espécie e assim por diante até a última linha totalizando 6 com o peso líquido.

Fica então uma tabela 6x6.

Alguém tem estre mesmo problema? Estou fazendo alguma coisa errada?

Estou alimentando os campos no mesmo momento, não havendo um loop ou coisa parecida.

Obrigado.

[juaumkiko]

Veja no demo como preencher os volumes... vc esta preenchendo errado

[ronaldoknr]

Bom dia

vc de estar colocando add para cada campo (peso, quantidade) que vc ta lançando,

att

Ronaldo

[RicardoGarcia]

Olhei novamente no exemplo e não consigo notar a diferença. Abaixo coloco o meu código e do exemplo.

// Meu código

(* Volume *)

Transp.Vol.Add.qVol := 1;

Transp.Vol.Add.esp := TrimPDR(Dados.FieldByName('T_ESPECIE').AsString);

Transp.Vol.Add.marca := TrimPDR(Dados.FieldByName('T_MARCA').AsString);

Transp.Vol.Add.nVol := TrimPDR(Dados.FieldByName('T_NUMERO').AsString);

Transp.Vol.Add.pesoL := Dados.FieldByName('T_PESO_LIQUIDO').AsVariant;

Transp.Vol.Add.pesoB := Dados.FieldByName('T_PESO_BRUTO').AsVariant;

// Exemplo

with Transp.Vol.Add do

begin

qVol := 1;

esp := 'Especie';

marca := 'Marca';

nVol := 'Numero';

pesoL := 100;

pesoB := 110;

//Lacres do volume. Pode ser adicionado vários

//Lacres.Add.nLacre := '';

end;

Como podem ver os dois são iguais, eu somente não estou utilizando o with que nada mais é para se evitar de digitar o mesmo código várias vezes, ou estou enganado?

Obrigado.

[juaumkiko]

Olá.

Mas vc pelo menos tentou fazer igual ao Demo?

[RicardoGarcia]

João, alterei para o padrão do exemplo e realmente resolveu. Deve ser algum detalhe da função Add da rotina.

Obrigado pela ajuda.

[Robson_Delphi]

Amigo estou com o mesmo problema.

Vc poderia postar aqui um exemplo de como ficou seu codigo ?

Grato.

[felipehf]

Se vcs derem um .add pra cada item, criará 6 objetos volume.

O código a ser usado basta ser copiado do demo, como abaixo:

// Exemplo

with Transp.Vol.Add do

begin

qVol := 1;

esp := 'Especie';

marca := 'Marca';

nVol := 'Numero';

pesoL := 100;

pesoB := 110;

//Lacres do volume. Pode ser adicionado vários

//Lacres.Add.nLacre := '';

end;

[Robson_Delphi]

Funcionou...

Obrigado..