Perguntas PDF via job

alguém sabe se já é possível gerar um PDF via JOB?

preciso gerar um PDF da DANFE para disponibilizá-lo no portal do cliente.

Boa tarde Black
Nao encontrou nada?

sim, mas tive que fazer algumas modificações no fonte danfeii.prw

segue fontes:
********************************************
user function CLI_012_NFE_SITE()
local cIdEnt:= GetIdEnt()
local cFilePrint:= "DANFE_"+cIdEnt+Dtos(MSDate())+StrTran(Time(),":","")
local cCaminho:="\spool\"

_ImpDanfe(cIdEnt,cFilePrint,cCaminho,/*NF inicial*/,/*nf final*/,/*serie*/,"2"/*saida entrada*/,"2"/*frente verso*/)

return

********************************************

static Function _ImpDanfe(cIdEnt,cFilePrint,cCaminho,_DeNf,_AteNf,_Serie,_EntSai,_ImpVers)
Local oSetup
local nFlags := PD_ISTOTVSPRINTER + PD_DISABLEPAPERSIZE + PD_DISABLEPREVIEW + PD_DISABLEMARGIN

oSetup:=FWPrintSetup():New(nFlags, "DANFE")
oSetup:SetPropert(PD_PRINTTYPE , 6)//ou 1 verificar
oSetup:SetPropert(PD_ORIENTATION , 1)
oSetup:SetPropert(PD_DESTINATION , 1)
oSetup:SetPropert(PD_MARGIN , {60,60,60,60})
oSetup:SetPropert(PD_PAPERSIZE , 2)
oSetup:aOptions[PD_VALUETYPE]:=cCaminho

FErase(oSetup:aOptions[PD_VALUETYPE]+cFilePrint+".pdf")
oDanfe := FWMSPrinter():New(cFilePrint, IMP_PDF, .F. ,cCaminho, .T., , , , , .F., ,.F. , )

private mv_par01:=_DeNf //de nf
private mv_par02:=_AteNf //ate nf
private mv_par03:=_Serie //serie
private mv_par04:=val(_EntSai) //tipo: 2-saida/1-entrada
private mv_par05:=val(_ImpVers)//imprime no verso

u_PrtNfeSef(cIdEnt,,,oDanfe, oSetup, cFilePrint) //danfeii


oDanfe := Nil
FreeObj(oSetup)
oSetup := Nil
cIdEnt:=Nil
Return

black escreveu: sim, mas tive que fazer algumas modificações no fonte danfeii.prw

segue fontes:
********************************************
user function CLI_012_NFE_SITE()
local cIdEnt:= GetIdEnt()
local cFilePrint:= "DANFE_"+cIdEnt+Dtos(MSDate())+StrTran(Time(),":","")
local cCaminho:="\spool\"

_ImpDanfe(cIdEnt,cFilePrint,cCaminho,/*NF inicial*/,/*nf final*/,/*serie*/,"2"/*saida entrada*/,"2"/*frente verso*/)

return

********************************************

static Function _ImpDanfe(cIdEnt,cFilePrint,cCaminho,_DeNf,_AteNf,_Serie,_EntSai,_ImpVers)
Local oSetup
local nFlags := PD_ISTOTVSPRINTER + PD_DISABLEPAPERSIZE + PD_DISABLEPREVIEW + PD_DISABLEMARGIN

oSetup:=FWPrintSetup():New(nFlags, "DANFE")
oSetup:SetPropert(PD_PRINTTYPE , 6)//ou 1 verificar
oSetup:SetPropert(PD_ORIENTATION , 1)
oSetup:SetPropert(PD_DESTINATION , 1)
oSetup:SetPropert(PD_MARGIN , {60,60,60,60})
oSetup:SetPropert(PD_PAPERSIZE , 2)
oSetup:aOptions[PD_VALUETYPE]:=cCaminho

FErase(oSetup:aOptions[PD_VALUETYPE]+cFilePrint+".pdf")
oDanfe := FWMSPrinter():New(cFilePrint, IMP_PDF, .F. ,cCaminho, .T., , , , , .F., ,.F. , )

private mv_par01:=_DeNf //de nf
private mv_par02:=_AteNf //ate nf
private mv_par03:=_Serie //serie
private mv_par04:=val(_EntSai) //tipo: 2-saida/1-entrada
private mv_par05:=val(_ImpVers)//imprime no verso

u_PrtNfeSef(cIdEnt,,,oDanfe, oSetup, cFilePrint) //danfeii


oDanfe := Nil
FreeObj(oSetup)
oSetup := Nil
cIdEnt:=Nil
Return

Mano esta funcionando blz?
Como seria esta ideia na Job, sou novate e leigo desculpe a pergunta

segue o fonte DANFEii

procura por "Vinicius" para verificar o que eu alterei.

se não entender alguma coisa me pergunta.

ta funcionando blz.

se você rodar a função a baixo ela vai gerar um pdf na pasta spool.

é só colocar o Numero da NF(de/até) e a série

pra que você quer isso?

---

user function CLI_012_NFE_SITE()
local cIdEnt:= GetIdEnt()
local cFilePrint:= "DANFE_"+cIdEnt+Dtos(MSDate())+StrTran(Time(),":","")
local cCaminho:="\spool\"

_ImpDanfe(cIdEnt,cFilePrint,cCaminho,/*NF inicial*/,/*nf final*/,/*serie*/,"2"/*saida entrada*/,"2"/*frente verso*/)

return