Recomendamos  se utilice una serie exclusiva por tipo de documento. En caso de que se registren diferentes tipos de documentos, para una misma serie, se podrían obtener errores por intento de generar llaves duplicadas

El Punto de Entrada M486PDFGEN ya se encuentra habilitado desde la opción "Otras acciones >> Imprimir PDF"

Dicho punto de entrada ya existía solo se habilito desde la opción "Recupera XML/PDF", solo que cuando se ejecute desde esta opción se obtendrán los siguientes parámetros:

• PARAMIXB[1] // Serie del Documento a imprimir PDF.

• PARAMIXB[2] // Número del Documento Inicial a imprimir PDF.

• PARAMIXB[3] // Número del Documento Final a imprimir PDF.

Cuando se ejecute desde la opción "Imprimir PDF", no se obtendrán acceso a dichos parámetros.

• Para el copiado de los archivos XML/PDF de documentos de tipo Factura de Venta, Boleta de Venta, Nota de Crédito, Nota de Débito, solamente aplica el copiado de los archivos de documentos que se encuentran en estatus Autorizado (F1_FLFTEX/F2_FLFTEX con valor igual a 6).
• Cuando existe compilado el Punto de Entrada siempre se realiza la generación del PDF (es reponsabilidad del usuario definir que no se genere el PDF si ya existe), y en caso contrario la generación del PDF sólo se realizará si NO existe el PDF en la ruta configurada en el parámetro MV_CFDDOCS, y en caso que exista solo se copia el archivo PDF del servidor a la ruta indicada.
• En el ejemplo del Punto de Entrada, en la función PRINTPE() se define la impresión del encabezado y detalle del informe, y se bifurca para que al ejecutar desde la acción Recupera XML/PDF no se muestra el grupo de preguntas al ejecutar desde la acción Imprimir PDF, ya que se toman los valores Serie, Folio del Documento Inicial y Folio del Documento Final del grupo de preguntas MATA486J.

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 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