× Linguagem de Programação ADVPL

Perguntas PDF via job

Mais
10 anos 8 meses atrás #15734 por black
PDF via job foi criado por black
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.

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 6 meses atrás #16757 por Mjuniorfacic
Respondido por Mjuniorfacic no tópico PDF via job
Boa tarde Black
Nao encontrou nada?

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 6 meses atrás #16762 por black
Respondido por black no tópico PDF via job
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

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 6 meses atrás #16763 por Mjuniorfacic
Respondido por Mjuniorfacic no tópico PDF via job

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

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 6 meses atrás #16764 por black
Respondido por black no tópico PDF via job
segue o fonte DANFEii

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

se não entender alguma coisa me pergunta.
Anexos:

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 6 meses atrás #16766 por black
Respondido por black no tópico PDF via job
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

Por favor Acessar ou Registrar para participar da conversa.

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