× Linguagem de Programação ADVPL

Perguntas Função FWPrintSetup

Mais
9 anos 8 meses atrás #27566 por ftvernier
Galera Bom Dia,

Utilizo a função FWPrintSetup em um Job onde realizo a impressão de Danfe, porém a mesma depois de algumas atualizações do sistema parou de funcionar, detalhe é que se eu chamar a função dentro do Smartclient ela funciona, somente não funciona em Job, segue o trecho abaixo:

Será que posso mudar alguma coisa dentro da rotina para ela funcionar?

Abraços.

nOrientation := 1
nLocal := 1

oDanfe := FWMSPrinter():New(cFilePrint,IMP_SPOOL, lAdjustToLegacy, cDirDanfe, .T., , ,GetMV("MV_YIMPRNF"), .F., , ,.F. , nVias)
oDanfe:lInJob := .T.
oDanfe:lServer := .T.

nFlags := PD_ISTOTVSPRINTER+ PD_DISABLEORIENTATION + PD_DISABLEPAPERSIZE + PD_DISABLEPREVIEW + PD_DISABLEMARGIN

oSetup := FWPrintSetup():New(nFlags, "DANFE")

oSetup:SetPropert(PD_PRINTTYPE , 2) //Spool
oSetup:SetPropert(PD_ORIENTATION , nOrientation)
oSetup:SetPropert(PD_DESTINATION , nLocal)
oSetup:SetPropert(PD_MARGIN , {60,60,60,60})
oSetup:SetPropert(PD_PAPERSIZE , 2)

Por favor Acessar ou Registrar para participar da conversa.

Mais
9 anos 5 meses atrás #28424 por robertosiga
Respondido por robertosiga no tópico Função FWPrintSetup
Boa tarde Fernando.

Estou com o mesmo problema que você: a minha rotina gera o PDF do DANFE sem problemas se chamada através do Menu ou do Debug no IDE. Mas quando agendada como JOB, apresenta a seguinte mensagem de erro:

Stack :
Invalid Width in FWTextResize! on FWTEXTRESIZE:NEW(FWTEXTRESIZE.PRW) 20/10/2014 10:17:46 line : 92

[build: 7.00.131227A-20150202]
[environment: SCHEDTST]
[thread: 10860]
[dbthread: 3468]
[rpodb: SQL]
[localfiles: CTREE]
[remark: ]
[threadtype: JobThread]
Called from FWTEXTRESIZE(FWGETFONT.PRW) 24/07/2014 16:29:26 line : 70
Called from FWLAYERWINDOW:SETTITLE(FWWINDOW.PRW) 20/10/2014 10:31:14 line : 334
Called from FWLAYERWINDOW:INIT(FWWINDOW.PRW) 20/10/2014 10:31:14 line : 155
Called from FWLAYERWINDOW:INIT(FWLAYERWINDOW.PRW) 08/05/2014 10:53:48 line : 58
Called from FWLAYERCOLLUMN:ADDWINDOW(FWLAYERCOLLUMN.PRW) 08/05/2014 10:53:30 line : 151
Called from FWLAYER:ADDWINDOW(FWLAYER.PRW) 08/05/2014 14:32:50 line : 277
Called from FWPRINTSETUP:NEW(FWPRINTSETUP.PRW) 18/02/2014 16:41:00 line : 136
Called from U_OPTIMPNF(DANFEII.PRW) 12/06/2015 16:04:16 line : 170
Called from U_DANFEPDF(DANFEII.PRW) 12/06/2015 16:04:16 line : 5276
Called from U_HFATP003(HFATP003.PRW) 08/06/2015 17:26:48 line : 9
Called from U_HOY001(HOY001.PRG) 12/06/2015 15:31:40 line : 187

IMPORTANTE: ESTE ERRO OCORRE NA SEGUINTE LINHA, QUANDO TENTO INSTANCIAR UM OBJETO "FWPrintSetup":

oSetup := FWPrintSetup():New(PD_ISTOTVSPRINTER+PD_DISABLEDESTINATION, "DANFE")


Obrigado.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.092 segundos
Joomla templates by a4joomla