Perguntas PDF via job

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.

Tem como me enviar?

Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.

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.

Oi Black, estou procurando uma alternativa para meu problema e achei esse seu tópico aqui (na verdade acho que esse tópico já até tem a resposta, mas queria uma luz sua).

Queria retirar a tela inicial de configuração da impressora quando é executada a função speddanfe(). Todas as danfes serão sempre impressas na impressora padrão do Windows, então não tem porque ficar perguntando para o vendedor (além de que, tem sempre que ficar especificando que é para imprimir 2 cópias blablabla, não fica salvo...)

A segunda tela que pergunta qual danfe quer imprimir eu já retirei, removendo o: "Pergunte("NFSIGW",.T.)" do fonte e passando os parâmetros diretos, funcionou legal.

Só essa questão da primeira janela mesmo..

Obrigado!