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
Ticket:N/A
Requisito/Story/Issue (informe el requisito vinculado):DMINA-15827


02. SITUACIÓN/REQUISITO

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


03. SOLUCIÓN

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.


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

  2. Dentro del modulo Financiero ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar).
  3. Dentro del 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.


04. INFORMACIÓN ADICIONAL

DescripciónActualizaciones
Punto de entrada:F998IMPREC
Nombre del programa fuente:FISA815.PRW y FISA815A
Parámetros recibidos:
NombreTipoDescripción
PARAMIXB[1]CNombre del archivo XML ya generado con extensión.
PARAMIXB[2]CVacío 
PARAMIXB[3]CVacío
PARAMIXB[4]AArray que contiene la información del recibo (Títulos a cobrar y/o compensar y Formas de pago)
PARAMIXB[5]C

Numero del recibo.

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

Ejemplo:

#Include 'Protheus.ch'

User Function F998BRFLT
   Local querySelect := Paramixb[1]
   Local queryWhere := Paramixb[2]
   Local queryOption := Paramixb[3]
   Local whereNew := " AND SEL.EL_RECIBO >= 0040"
   Local queryNew := ""

   IF queryOption == 'complete'
         queryNew := " SELECT " + querySelect + " AS totalreceipts FROM " + RetSqlName("SEL")
         queryNew += +" SEL WHERE " + queryWhere + whereNew
   ELSEIF queryOption == 'where'
         queryNew := queryWhere + whereNew
   ENDIF

RETURN queryNew




05. ASUNTOS RELACIONADOS