Perguntas PDF via job

black escreveu: 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

Temos uma integração entre o Protheus e o site nosse de CRM, e preciso disponibilizar todos os danfe em pdf numa pasta para consulto pelo CRM.

COnsigo apenas gerar o PDF nesta pasta? Com este seu fonte!
Nao preciso usar a JOB, apenas imprimiu a danfe no protheus ele ja gere numa determinada pasta o pdf

consegue.

é só você rodar a função.

local cFilePrint:= //nome do arquivo gerado
local cCaminho:= //caminho do arquivo gerado

black escreveu: consegue.

é só você rodar a função.

local cFilePrint:= //nome do arquivo gerado
local cCaminho:= //caminho do arquivo gerado

Estou fazendo algo errado
Gera o .REL mas nao gera o .PDF

Static Function GeraPDF()

local cIdEnt:= IIF(cEmpAnt = '01','Etiam','BR')
local cFilePrint:= "DANFE_"+cIdEnt+SF2->F2_DOC
local cCaminho:="\spool\Danfe\"
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. , )
oDanfe:Print()

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

return

quem gera o PDF é o fonte DANFEii.prw, no comando

IF __WebExec//alterado por vinicius para gerar o PDF via WEB
oDanfe:Print() //cria o pdf
endif

eu fiz umas modificações nesse fonte,
da uma olhada,ele está em anexo.

esqueci de te dizer para colocar uma variável private no GeraPDF()

Private __WebExec:=.T.

black escreveu: quem gera o PDF é o fonte DANFEii.prw, no comando

IF __WebExec//alterado por vinicius para gerar o PDF via WEB
oDanfe:Print() //cria o pdf
endif

eu fiz umas modificações nesse fonte,
da uma olhada,ele está em anexo.

Tb fiz, quem esta gerando é o Danfeii.prw ele chama a função Static GeraPDF, que é esta que mandei agora logo pra vc
e a linha :
oDanfe := FWMSPrinter():New(cFilePrint, IMP_PDF, .F. ,cCaminho, .T., , , , , .F., ,.F. , )
oDanfe:Print()
Deveria gera-lo