PDF de NFe, CTe, MDFe, e Evento

[JoséQuintas]

Fiquem à vontade pra fazer teste.
É uma versão pra funcionar sozinha.


http://www.jpatecnologia.com.br/arquivos/geradanfe.exe

Modo de uso:

Código: Selecionar todos

geradanfe ArquivoXml ArquivoLogotipo ArquivoAuxiliar

Onde:

ArquivoXML

é o nome arquivo principal, que define o resultado.
Pode ser NFe, CTe, MDFe ou evento

ArquivoLogotipo

é o nome de um arquivo de imagem JPG

ArquivoAuxiliar

Pode ser um cancelamento, no caso de DaNFe, DaCTe, DaMDFe
Pode ser o autorizado, no caso de estar gerando para um evento

O resultado é um Documento Auxiliar em PDF aberto no Windows.
A partir daí, pode salvar, enviar por email, etc.
Vai ser aberto o programa default associado a PDFs, seja qual for, ou nenhum se não houver programa de visualizar PDF instalado.

Como aproveitei meu programa de teste existente, se não passar parâmetros, vai ser aberto um programa de teste de outras coisas.

Fonte de tudo, aqui:

https://github.com/JoseQuintas/sefazclass

[gilbertosilverio]

Ola Jose,

Parabéns, muito bom o seu DANFE.

Achei esses erros:

1) No campo TOTAL DA NOTA FISCAL, esta sendo sobreposto pelo "retângulo" do CNPJ/CPF do transportador

2) Falta o campo CNPJ/CPF do transportador

3) Em INFORMAÇÕES COMPLEMENTARES, esta faltando as informações de infAdFisco, estão saindo somente as do infCpl.

Tentei posta as imagens aqui, mais não sei como inclui-las aqui...


:-Y :-Y :-Y

[gilbertosilverio]

Jose,

Quanto a sobreposição da TOTAL DA NOTAFISCAL , corrija as linhas 688,690 e 692 para :

::DrawBoxTituloTexto( 500, ::nLinhaPdf, 90, 16, "CNPJ / CPF", Transform( ::aTransp[ "CNPJ" ], "@R 99.999.999/9999-99" ), HPDF_TALIGN_CENTER, ::oPDFFontNormal, 8 )

ela esta como:

::DrawBox( 500, ::nLinhaPdf, 90, 16, "CNPJ / CPF", Transform( ::aTransp[ "CNPJ" ], "@R 99.999.999/9999-99" ), HPDF_TALIGN_CENTER, ::oPDFFontNormal, 8 )

[JoséQuintas]

Valeu.
Os dois primeiros erros se referem a um só: nas mudanças deixei passar esse lugar de trocar DrawBox() pra DrawBoxTituloTexto(), então ficou só um box diferente sem texto.
Quanto a infAdFisco, por enquanto só uma alteração básica, vai imprimir o que couber na primeira página.
Vai precisar algo mais para o caso de precisar continuação, já que o limite são 2.000 caracteres

https://github.com/JoseQuintas/sefazcla ... ee903e3a39

[JoséQuintas]

Xi... agora que fui olhar o manual do usuário, pra ver o que fazer com a continuação do texto, encontrei isto na descrição do Danfe:

7.1.7 Reservado ao Fisco O contribuinte não deverá preencher este quadro, sendo seu preenchimento de uso exclusivo do fisco. Em caso de utilização de formulário de segurança provido de estampa fiscal, esse quadro não estará presente.

Agora fiquei na dúvida se removo a alteração.

[gilbertosilverio]

Jose,

Com relação as informações reservada ao fisco, ja tive problemas com de mercadorias apreendidas em barreiras, somente por esta descrito no campo informações destinadas ao usuário, ao inves de estar no campo destinados a eles, e você sabe, temos 27 estados e cada qual com suas normas, acho que e por isso que o pessoal, tipo o UNIDANFE, ACBR, inclui tudo...

Como você ja disse, o proprio emissor gera o DANFE fora das normas que eles mesmos impõem, o negocio e ir adaptando conforme vão aparecendo as queixas deles(SEFAZ)...

[rubens]

JoséQuintas...

Aqui não funcionou...

Tentei sem colocar o jpg e deu o mesmo erro...
Tem um tamanho espeficico para o jpg?

Rubens

[JoséQuintas]

Corrigi criando duas variáveis no DaGeral.
Aproveitei pra apagar código fonte não mais necessário do test.prg.

https://github.com/JoseQuintas/sefazcla ... 756f713088

[rubens]

Bom dia JoséQuintas...

Onde baixa só o Geradanfe compilado ?
Esse link aí vai para a sefazclass.

Obrigado
Rubens

[gilbertosilverio]

Ola Jose,

inclui na linha 870:

nLinhaInicial := ::nLinhaPdf - 1
cMemo := ::FormataMemo( ::aInfAdic[ "infAdFisco" ], 186 )

Por que esta sobrepondo as informações.

[JoséQuintas]

Não entendi sua alteração, mas agora está ok.
Não era a linha errada, e sim a coluna, estava colocando informações do fisco dentro do quadro informações adicionais.
No momento o limite de texto é esse que dá pra ver.

Aproveitei pra apagar a linha que mencionou e também a variável nLinhaInicial... rs

https://github.com/JoseQuintas/sefazcla ... 9088184b62

Nota: os blocos de informacões adicionais e informações ao fisco ficaram assim:

Código: Selecionar todos

      FOR nCont = 1 TO Min( MLCount( cMemo, 1000 ), Int( 13 * 6 / LAYOUT_FONTSIZE ) )
         ::DrawTexto( 6, ::nLinhaPDF - ( ( nCont - 1 ) * LAYOUT_FONTSIZE ), 399, NIL, Trim( MemoLine( cMemo, 1000, nCont ) ), HPDF_TALIGN_LEFT, ::oPDFFontNormal, LAYOUT_FONTSIZE )
      NEXT
      cMemo := ::FormataMemo( ::aInfAdic[ "infAdFisco" ], 186 )
      FOR nCont = 1 TO Min( MLCount( cMemo, 1000 ), Int( 13 * 6 / LAYOUT_FONTSIZE ) )
         ::DrawTexto( 401, ::nLinhaPDF - ( ( nCont - 1 ) * LAYOUT_FONTSIZE ), 588, NIL, Trim( MemoLine( cMemo, 1000, nCont ) ), HPDF_TALIGN_LEFT, ::oPDFFontNormal, LAYOUT_FONTSIZE )
      NEXT

Onde baixa só o Geradanfe compilado ?

Tá no primeiro post.

[JoséQuintas]

Só um comentário adicional:

Na NFE 4.0 tem mais texto pra esse informações do fisco.
A partilha.

A NFE tá virando uma novela, acho que em breve vai ser difícil fazer uma nota usando uma única folha.

[gilbertosilverio]

Jose,

Em poste anterior acho que me expressei errado, quando disse que tive problemas com o fisco por falta das informações em RESERVADO AO FISCO, fui em uma barreira(PE) que o fisco dizia que as informações deles deveriam estar descritas la, mais segundo a IOB, consultada pelo contador, na epoca, provamos que aquele campo era pra ficar em branco, e é por isso que te falo, cada SEFAZ cria as suas leis.

Pela sua imagem, vi que você colocou informação, eu acho, que dependendo do estado isso vai dar problema, melhor deixar em branco como todos fazem...

[JoséQuintas]

É que tudo se confunde.
Como interpretar isto da NFE 4.0?

Aí está como alteração no DANFE.
DANFE é impressão, mas o campo infAdFisco é um campo do XML.

E aí? vai imprimir nas informações do fisco ou não?

Pensei em algo intermediário agora:
Colocar naquele lugar apenas "vide obs.fisco contribuinte" ou algo assim, e colocar em outro lugar.
Senão não vamos conseguir atender o que está escrito.

[JoséQuintas]

Ao mesmo tempo, a NFE 4.0 não menciona alteração nesta parte da 3.10.