Imprimi Página | Fechar janela

FWMsPrinter Preview

Impresso de: Helpfacil - Portal do conhecimento
Nome do Forum: ADVPL
Descrição do Forum: Dúvidas sobre a programação em ADVPL
URL:http://www.helpfacil.com.br/display_topic_threads.asp?ForumID=1&TopicID=41180
Data da Impressão: sábado, 18 de novembro de 2017 at 04:17


Topico: FWMsPrinter Preview

Postado por: CASSIOLORE
Assunto: FWMsPrinter Preview
Data Postagem: sexta-feira, 8 de setembro de 2017 at 12:01

Bom dia galera. Estava com problemas para visualizar a NF quando mandava para impressão, onde o sistema não estava respeitando o parâmetro MV_PAR07 para visualizar antes de imprimir e imprimia DIRETO. Para resolver o problema temporariamente alterei o fonte DANFEII.

alteração:
1 - antes da chamada dos comandos de configuração da impressão
oDanfe:SetResolution(78) //Tamanho estipulado para a Danfe
oDanfe:SetPortrait()
oDanfe:SetPaperSize(DMPAPER_A4)
oDanfe:SetMargin(60,60,60,60)
oDanfe:lServer := oSetup:GetProperty(PD_DESTINATION)==AMB_SERVER

colocar os seguintes comandos

Pergunte("NFSIGW",.F.)//chama as perguntas para ficar na memoria

2 - dentro da clausula If lExistNfe colocar mais uma validação para gerar a visualização e não imprimir diretamente.
exemplo de como vai ficar.

If lExistNfe
     if MV_PAR07 == 1
          oDanfe:nDevice := IMP_PDF
     endif
     oDanfe:Preview()//Visualiza antes de imprimir
Else
     If !lIsLoja
          Aviso("DANFE","Nenhuma NF-e a ser impressa nos parametros utilizados.",{"OK"},3)
     EndIf
EndIf

OBS: a visualização será gerada no navegador padrão do sistema operacional. caso não existe pode abrir no programa padrão para abrir PDF. ex: foxit reader


A principio corrigi o problema desta forma. se tiver outra solução serei grato tnm kkkk.







Imprimir Página | Fechar Janela