User Function M486PDFGEN()
Local cSerieR := PARAMIXB[ 1 ]
Local cDocIniR := PARAMIXB[ 2 ]
Local cDocFinR := PARAMIXB[ 3 ]
Local cPerg := "M486PDF"
Private cSerie := ""
Private cDocIni := ""
Private cDocFin := ""
Private cFormato := ""
Private cPath := &(SuperGetmv( "MV_CFDDOCS" , .F. , "'cfd\recibos\'" )) + "\Autorizados\"
Private oXML := Nil
Private nTotPag := 0
Private oFont1 := TFont():New( "ARIAL" , , 7 , .F., .F.)
Private oFont2 := TFont():New( "ARIAL" , , 8 , .F., .F.)
Private oFont3 := TFont():New( "ARIAL" , , 10 , .T., .T.)
Private oFont4 := TFont():New( "ARIAL" , , 8 , .F., .T.)
Private nLinea := 0
Private cPicture := "999,999,999,999.99"
cPath := Replace( cPath, "\\" , "\" )
If (!Empty(cSerieR) .Or. !Empty(cDocIniR) .Or. !Empty(cDocFinR))
Pergunte(cPerg,.T.)
EndIf
cSerie := IIf(!Empty(cSerieR),cSerieR,MV_PAR01)
cDocIni := IIf(!Empty(cDocIniR),cDocIniR,MV_PAR02)
cDocFin := IIf(!Empty(cDocFinR),cDocFinR,MV_PAR03)
cFormato:= IIf(!Empty(cSerieR) .Or. !Empty(cDocIniR) .Or. !Empty(cDocFinR), 1 ,MV_PAR04)
Processa({|| PRINTPE(cEspecie)}, "Espere.." , "Imprimiendo documento autorizado desde PE" )
Return Nil
|