Perguntas Impressão automatica do DANFE
- Portas
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 2
- Obrigados Recebidos: 0
5 anos 7 meses atrás #32686
por Portas
Impressão automatica do DANFE foi criado por Portas
Boa Tarde srs...
Estou trabalhando em ua integração de um sistema nativo da miha empresa com o protheus, nos modulos .
basicamente quando clicamos em enviar produto no nosso sistema nativo, ele gera e transmite o doc de saida pelo protheus de forma automatica , sem nenhuma interação do usuario no protheus( nessa parte foi tudo tranquilo) só não consigo realizar a impressão automatica do DANFE. peguei um codigo (fprintnfe) por esse forum mesmo, porem não sei como implanta-lo no Porthues pelo devstudio.
alguem poderia me dar uma Luz?
ou uma ideia melhor de como realizar essa impressão automatica?
agradeço desde já
Rodrigo Portas
Analista de sistemas I
Estou trabalhando em ua integração de um sistema nativo da miha empresa com o protheus, nos modulos .
basicamente quando clicamos em enviar produto no nosso sistema nativo, ele gera e transmite o doc de saida pelo protheus de forma automatica , sem nenhuma interação do usuario no protheus( nessa parte foi tudo tranquilo) só não consigo realizar a impressão automatica do DANFE. peguei um codigo (fprintnfe) por esse forum mesmo, porem não sei como implanta-lo no Porthues pelo devstudio.
alguem poderia me dar uma Luz?
ou uma ideia melhor de como realizar essa impressão automatica?
agradeço desde já
Rodrigo Portas
Analista de sistemas I
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
-
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
5 anos 7 meses atrás #32708
por kanaamlrr
Respondido por kanaamlrr no tópico Impressão automatica do DANFE
Boa tarde Portas,
Tente utilizar a estrutura abaixo:
Você só precisará ajustar os parâmetros de impressão.
Nesse caso ele está gerando PDF em disco, mas você pode mudar para mandar direto para o Spool.
Abraço!
Tente utilizar a estrutura abaixo:
#INCLUDE "FWPrintSetup.ch"
*---------------------------------*
Static Function PrintNF(cNF,cSerie)
*---------------------------------*
Local nFlags := 0
Local cFilePrint := "0_NFS"+cNF
nFlags := PD_DISABLEPREVIEW + PD_DISABLEMARGIN//+PD_ISTOTVSPRINTER+PD_DISABLEPAPERSIZE
DBSelectArea("SM0")
SM0->(DBGoTop())
SM0->(DBSeek(cEmpAnt + cFilAnt))
cIdEnt := StaticCall(SPEDNFE,GetIdEnt)
cPerg := "NFSIGW"
cPerg := PADR(cPerg,Len(SX1->X1_GRUPO))
Private mv_par01 := cNF //de nf
Private mv_par02 := cNF //ate nf
Private mv_par03 := cSerie //serie
Private mv_par04 := 2 //tipo: 2-saida/1-entrada
Private mv_par05 := 2 //imprime no verso
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
oDanfe := FWMSPrinter():New(cFilePrint,IMP_PDF,.F.,cCaminho,.T., ,oSetup, , , .F., ,.F. ,1)
U_PrtNfeSef(cIdEnt,,,oDanfe,oSetup,cFilePrint)
ReturnVocê só precisará ajustar os parâmetros de impressão.
Nesse caso ele está gerando PDF em disco, mas você pode mudar para mandar direto para o Spool.
Abraço!
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.102 segundos