Histórico da Página

User Function M486PDFGEN()

    Local cSerieR  := PARAMIXB[1] // Sucursal que emitió el documento.
    Local cDocIniR := PARAMIXB[2] // Número de Documento
    Local cDocFinR := PARAMIXB[3] // Número de Documento
    Local lRecupPDF:= IIf(!Empty(cSerieR),.T.,.F.) //Valida si se ejecuta la opción "Recupera XML/PDF"
	Local cPerg := "M486PDF"

    If !lRecupPDF .And. Pergunte(cPerg,.T.)
 		MsgAlert("Aquí debe colocar lógica para imprimir pdf desde la opción Imprimir PDF")
    Else
	 	MsgAlert("Aquí debe colocar lógica para imprimir pdf desde la opción Recupera XML/PDF")
    EndIf   
	
Return Nil 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.) //Negrita - 8
	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