Erro de impressão de duplicatas - não imprime data de vencto

[malcarli]

Boa tarde no prg ze_sefazdanfe.prg, no método METHOD QuadroDuplicatas() CLASS hbNFeDaNFe

especificamente nestas linhas

Código: Selecionar todos

         ::DrawTexto( 6 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), ::nLinhaPdf - 1,  80 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), NIL, cNumero, HPDF_TALIGN_LEFT, ::oPDFFontNormal, 8 )
         ::DrawTexto( 82 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), ::nLinhaPdf - 1, 128 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), NIL, cVencimento, HPDF_TALIGN_LEFT, ::oPDFFontNormal, 8 )
         ::DrawTexto( 130 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), ::nLinhaPdf - 1, 195 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), NIL, cValor, HPDF_TALIGN_RIGHT, ::oPDFFontNormal, 8 )

Não está imprimindo a data de vencimento

fiz a correção abaixo, para solucionar o problema, até a correção pelo mestre Quintas

Código: Selecionar todos

         ::DrawTexto( 6   + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), ::nLinhaPdf - 1, 195 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), NIL, cNumero, HPDF_TALIGN_LEFT, ::oPDFFontNormal, 8 )
         ::DrawTexto( 82  + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), ::nLinhaPdf - 1, 195 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), NIL, cVencimento, HPDF_TALIGN_LEFT, ::oPDFFontNormal, 8 )
         ::DrawTexto( 130 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), ::nLinhaPdf - 1, 195 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), NIL, cValor, HPDF_TALIGN_RIGHT, ::oPDFFontNormal, 8 )

No aguardo da correção da excelente classe.

[JoséQuintas]

Vou confirmar, mas acho estanho nenhum cliente ter reparado nisso.

[malcarli]

enviei no teu skype xml e danfe para testes

[JoséQuintas]

Ainda não olhei o fonte, ou impressão, mas a visualização do PDF:

valores.png (6.9 KiB) Exibido 10283 vezes

[JoséQuintas]

O danfe que enviou está diferente
usei o próprio test.exe da sefazclass

Nota: editei a imagem depois do post, pra retirar dados pessoais.

[JoséQuintas]

O fonte continua igual o que indicou, não houve alteração (pelo menos não percebi nada diferente).

Código: Selecionar todos

         ::DrawTexto( 6 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), ::nLinhaPdf - 1,  80 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), NIL, cNumero, HPDF_TALIGN_LEFT, ::oPDFFontNormal, 8 )
         ::DrawTexto( 82 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), ::nLinhaPdf - 1, 128 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), NIL, cVencimento, HPDF_TALIGN_LEFT, ::oPDFFontNormal, 8 )
         ::DrawTexto( 130 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), ::nLinhaPdf - 1, 195 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), NIL, cValor, HPDF_TALIGN_RIGHT, ::oPDFFontNormal, 8 )

[JoséQuintas]

Vamos pensar.....

a coluna inicial continua a mesma, a alteração que você fez foi na coluna final, o que aumenta o tamanho do "quadrado"
o alinhamento é à esquerda, então sempre começa na posição inicial, a modificação não altera o posicionamento do texto.

Possibilidades:

- texto maior do que o espaço disponível, que no PDF causa não mostrar.
Mas... aqui mostrou normal, com o mesmo XML e mesmo conteúdo, descarta seren letras que ocupam mais espaço.

- Mostrar PDF diferente conforme o computador/visualizador?
Apesar de parecer impossível, é uma possibilidade.

[malcarli]

vc abriu a danfe impressa, que está zipada? viu que nela não imprimiu a data de vencimento, portanto não seria por causa do vizualizador certo?

[JoséQuintas]

vc abriu a danfe impressa, que está zipada? viu que nela não imprimiu a data de vencimento, portanto não seria por causa do vizualizador certo?

Sim, e na minha máquina usei o mesmo visualizador pros dois PDFs.

Vou aumentar o espaço pro vencimento, que foi o que deu problema.
Os demais deixar como está.

Se o seu PDF também for direto da Sefazclass, aí fica sem explicação.

[malcarli]

obg e no aguardo da atualização. Fique em paz.

[JoséQuintas]

Outra possibilidade:

Diferença entre versão de Harbour+Harupdf.

Bom... aumentei em 10 o final do vencimento, e reduzi 10 no início do valor.
O vencimento é alinhado à esquerda, então tanto faz aonde termina, não muda a posição.
O valor é alinhado à direta, então não fez diferença aonde começa, não muda a posição final.

Como aqui continua funcionando, vai precisar testar aí.

Só pra curiosidade o test.exe da Sefazclass. Harbour 3.4 + mingw 8.1.
A primeira opção gera Danfe pra tudo que existir na pasta.

test.zip

(749.57 KiB) Baixado 433 vezes

Nota: Removi a sua mensagem com XML/PDF, porque expõe informações de empresa.

[malcarli]

Grande Mestre Quintas, agora imprimiu corretamente a data de vencimento. Obrigado e boa tarde