Linha Microsiga Protheus

Árvore de páginas


01. DATOS GENERALES

Producto:

TOTVS Backoffice

Línea de producto:

Linha Protheus

Segmento:

Backoffice

Módulo:

TOTVS Backoffice (Linha Protheus) - Faturamento (SIGAFAT)

Función:
RutinaNombre TécnicoFecha
MATA486Documento Electrónicos05/07/2024
País:Perú (PER)
Ticket:20401088
Requisito/Story/Issue (informe el requisito vinculado):DMINA-23669


02. DESCRIPCIÓN

En la rutina de Documentos Electrónicos (MATA486), se tiene habilitado el Punto de Entrada M486PDFGEN, que permite la impresión gráfica personalizada de los Documentos Eelctrónicos en formato PDF desde la opción "Otras acciones >> Recupera XML/PDF".

Información

El Punto de Entrada M486PDFGEN, está habilitado desde la opción Otras acciones | Imprimir PDF, y para la acción Recuperar PDF y XML es necesario tener actualizada la rutina de Documentos Electrónicos (MATA486) con una fecha mayor o igual a 05/07/2024.

03. INFORMACIÓN ADICIONAL

IMPORTANTE:

  • Al ejecutarse el Punto de Entrada desde la acción Recupera XML/PDF, se reciben como parámetros los datos Serie del Documento, Número del Documento Inicial y Número del Documento Final (Los parámetros no son enviados al ejecutarse el Punto de Entrada desde la acción Imprimir PDF)
  • 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 responsabilidad 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.

Ejemplo del Punto de Entrada:

M486PDFGEN

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


IMPORTANTE!

La presente solución aplica para versión de Protheus 12.1.2210 o garantía extendida, y es necesario tener activa la funcionalidad de Transmisión Electrónica de UBL 2.1 directo a SUNAT a través de TSS.


04. ASUNTOS RELACIONADOS