Perguntas PDF via job

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

o fonte DANFEii contem a função PrtNfeSef

essa função é chamada pela função _ImpDanfe
na linha:
u_PrtNfeSef(cIdEnt,,,oDanfe, oSetup, cFilePrint) //danfeii



eu nao vi essa linha no teu programa.

black escreveu: o fonte DANFEii contem a função PrtNfeSef

essa função é chamada pela função _ImpDanfe
na linha:
u_PrtNfeSef(cIdEnt,,,oDanfe, oSetup, cFilePrint) //danfeii



eu nao vi essa linha no teu programa.

Vc esta falando este:

User Function PrtNfeSef(cIdEnt,cVal1,cVal2,oDanfe,oSetup,cFilePrint)

Local aArea := GetArea()
Local lExistNfe := .F.

Private nConsNeg := 0.4 // Constante para concertar o cálculo retornado pelo GetTextWidth para fontes em negrito.
Private nConsTex := 0.5 // Constante para concertar o cálculo retornado pelo GetTextWidth.

oDanfe:SetResolution(78) //Tamanho estipulado para a Danfe
oDanfe:SetPortrait()
oDanfe:SetPaperSize(DMPAPER_A4)
oDanfe:SetMargin(60,60,60,60)
oDanfe:lServer := oSetup:GetProperty(PD_DESTINATION)==AMB_SERVER
//

---

// Define saida de impressão
//

---

If oSetup:GetProperty(PD_PRINTTYPE) == IMP_SPOOL
oDanfe:nDevice := IMP_SPOOL
//

---

// Salva impressora selecionada
//

---

fwWriteProfString(GetPrinterSession(),"DEFAULT", oSetup:aOptions[PD_VALUETYPE], .T.)
oDanfe:cPrinter := oSetup:aOptions[PD_VALUETYPE]
ElseIf oSetup:GetProperty(PD_PRINTTYPE) == IMP_PDF
oDanfe:nDevice := IMP_PDF
//

---

// Define para salvar o PDF
//

---

oDanfe:cPathPDF := oSetup:aOptions[PD_VALUETYPE]
Endif

Private PixelX := odanfe:nLogPixelX()
Private PixelY := odanfe:nLogPixelY()

RptStatus({|lEnd| DanfeProc(@oDanfe,@lEnd,cIdEnt,,,@lExistNfe)},"Imprimindo Danfe...")

If lExistNfe
oDanfe:Preview()//Visualiza antes de imprimir
Else
Aviso("DANFE","Nenhuma NF-e a ser impressa nos parametros utilizados.",{"OK"},3)
EndIf
FreeObj(oDanfe)
oDanfe := Nil
RestArea(aArea)
Return(.T.)

Poderia me ajudar a gerar o PDF INDEPEDENTE DA ESCOLHA DO USUÁRIO!?

me da teu email que eu te passo o fonte completo

black escreveu: me da teu email que eu te passo o fonte completo

Mano estou te dando uma asia, hen?
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.