- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Função FWPrintSetup
×
Linguagem de Programação ADVPL
Perguntas Função FWPrintSetup
- ftvernier
- Autor do Tópico
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 386
- Obrigados Recebidos: 2
9 anos 8 meses atrás #27566
por ftvernier
Função FWPrintSetup foi criado 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)
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.
- robertosiga
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 1
- Obrigados Recebidos: 0
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.
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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Função FWPrintSetup
Tempo para a criação da página:0.092 segundos