01. DATOS GENERALES

Producto:

Línea de producto:

Segmento:

Módulo:SIGAFIN - Financiero
Función:
RutinaNombre TécnicoFecha
FISA815.PRWCreación de archivos XML y PDF para el país de México14/06/2022
FISA815A.PRWCreación de archivos XML y PDF para países diferentes de México14/06/2022
País:Todos (Mercado Internacional)
Ticket:N/A
Requisito/Story/Issue (informe el requisito vinculado):DMINA-15827


02. DESCRIPCIÓN

Se necesita crear un punto de entrada en el cual permita al usuario personalizar el formato de impresión de los recibos.

Se crea el punto de entrada F998IMPREC la rutina FISA815 y FISA815A, con el objetivo de que el usuario pueda personalizar el formato con el cual serán impresos los recibos en formato PDF desde el programa de TOTVS Recibo.



03. INFORMACIÓN ADICIONAL


  1. Crear la función de usuario F998IMPREC para personalizar la impresión del recibo en formato PDF.

    El recibo en formato PDF debe quedar con el mismo nombre del archivo XML y en la misma ruta.

  2. Dentro del módulo Financiero ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar).
  3. En el aplicativo de TOTVS Recibo, ir a Buscar recibo, llenar los campos de consulta de acuerdo a los recibos que se desea buscar e imprimir.
  4. Al dar clic en Imprimir, se ejecutará el punto de entrada F998IMPREC.
DescripciónActualizaciones
Punto de entrada:F998IMPREC
Nombre del programa fuente:FISA815 y FISA815A
Parámetros recibidos:
NombreTipoDescripción
PARAMIXB[1,1]CNombre del archivo XML ya generado con extensión.
PARAMIXB[1,2]CVacío 
PARAMIXB[1,3]CVacío
PARAMIXB[1,4]A

Array que contiene la información del recibo (Títulos a cobrar y/o compensar)
[1] Serie título
[2] Número de documento
[3] Fecha del recibo
[4] Monto del pago
[5] Monto compensación
[6] Cliente
[7] Tienda

PARAMIXB[1,5]C

Número del recibo.

PARAMIXB[1,6]CSerie del recibo.
Respuesta:N/A



#Include 'Protheus.ch'

User Function F998IMPREC()

     Local aRecibos := PARAMIXB
     Local cDir := &(SuperGetmv( "MV_CFDRECP" , .F. , "GetSrvProfString('startpath','')+'\cfd\recpagos\'" ))
     Local cName := Replace(aRecibos[1][1], ".xml", ".pdf" )
     Local cRuta := "C:\Ambientes\2210\ARG\protheus_data"+cDir


    // Función para Crear PDF personalizado
    // U_CreaPDF(cName,cDir)

    
    ShellExecute("Open", cName+".pdf"),"",cRuta,1)   //Función para abrir archivo PDF — Esta función ocupa la ruta completa del archivo.
    

Return
  • El parámetro recibido PARAMIXB[1,1], contiene el nombre del archivo XML ya generado con extensión, este debe de ser usado para generar el nombre del recibo en formato PDF.
    Considerar que ambos archivos XML y PDF deben ubicarse en la misma ruta y tener el mismo nombre.
  • La ruta para el guardado de los Recibos se configura para México en el parámetro MV_CFDRECP de lo contrario se debe de guardar en la ruta ""\system\cfd\recpagos\",
    la cual debe ser referenciada de la siguiente forma: "GetSrvProfString('startpath','')+'\cfd\recpagos\'".
    En esta ruta se validará la existencia del archivo, si el archivo no se encuentra en esta ruta el sistema alertará que no se encontro el archivo PDF.
  • El PE F998IMPREC debe de abrir el Archivo PDF creado previamente.



04. ASUNTOS RELACIONADOS