Histórico da Página

...

Producto

Solucoes_espanhol

Solucao	TOTVS Backoffice

Línea de producto:

Linhas_totvs_espanhol

Linha	Línea Protheus

Segmento:

Segmentos_totvs_espanhol

Segmento	Backoffice

Módulo:

SIGAFIN - FINANCIERO

Función:

Rutina	Nombre Técnico	Fecha
FINA998.APP	Aplicativo de TOTVS Recibo (Front-end)
FINA998.PRW	Aplicativo de TOTVS Recibo (Back-end)	23/07/2024
FINA998A.PRW	Llamada de servicios por ADVPL	23/07/2024
GETCONTENTINI.SERVICE.TLPP	Servicio para obtener las configuraciones iniciales	23/07/2024
FINANCIAL-TITLES.CONTROLLER.TLPP	Controlador para obtener los títulos financieros	24/07/2024
FINANCIAL-TITLES.SERVICE.TLPP	Servicio para obtener los títulos financieros	24/07/2024
SAVE-RECEIPT.SERVICE.TLPP	Servicio para guardar los recibosrecibos	24/07/2024

País:

Todos

Ticket:

N/A

Requisito/Story/Issue (informe el requisito vinculado):

DMINA-23387

...

Aplicativo de TOTVS Recibo (FINA998.PRW Y FINA998A.TLPP) habilitando el endpoint para obtener las configuraciones determinadas en el PE "Descuento por pronto pago" (F998VALBX) y aplicar la lógica matemática para realizar los descuentos.
Servicio para configuraciones iniciales (GETCONTENTINI.SERVICE.TLPP) se habilita una bandera para habilitar o deshabilitar la opción "Descuento por pronto pago" cuando se desea realizar la "Edición de cobro" a un título.
Controlador y servicio para obtener los títulos financieros (FINANCIAL-TITLES.CONTROLLER.TLPP y FINANCIAL-TITLES.SERVICE.TLPP) se realiza la ejecución del PE "Descuento por pronto pago"
Servicio para guardar un recibo (SAVE-RECEIPT.SERVICE.TLPP) se habilita el llamado del PE para el guardado del valor ingresado en el campo "Descuento por pronto pago" y se habilita el parametro mandado al PE F998NRG2.

Aviso

Importante

title		Importante

La solución estará presente en el patch de expedición continua (fin_recibo_mi) con fecha superior al 0131/0807/2024, para un funcionamiento correcto de la solución compilar de la siguiente manera:

Patch de la issue
Patch de expedición continua superior a la fecha 0131/0807/2024.

Totvs custom tabs box

tabs	Conf. Previas, Flujo de Pruebas
ids	paso1,paso2

Totvs custom tabs box items

default	yes
referencia	paso1

Por medio del módulo configurador (SIGACFG) damos de alta los siguientes campos

Aviso

title	Campos de ejemplo para el PE (No son estándar)

E1_XPERDES - En el cual se guardara el descuento aplicado al título.
1. Campo = E1_XPERDES.
2. Tipo = Numerico.
3. Tamaño = 5
4. Decimal = 2
5. Formato = @99.99
6. Contexto = Real
7. Propiedad = Modificar
8. Nombre = Desc. PP
E1_XCONDPP - En donde se indica la condición de pago.
1. Campo = E1_XCONDPP.
2. Tipo = Caracter.
3. Tamaño = 3
4. Decimal = 0
5. Formato = @!
6. Contexto = Real
7. Propiedad = Modificar
8. Nombre = Cond. PP
E4_XDESCON - En el cual se guardara el límite de descuento aplicado al título.
1. Campo = E4_XDESCON.
2. Tipo = Numerico.
3. Tamaño = 5
4. Decimal = 2
5. Formato = @99.99
6. Contexto = Real
7. Propiedad = Modificar
8. Nombre = Lim Desc. PP

Realizar un respaldo del repositorio (RPO).
Aplicar el paquete de expedición continua Financiero - Totvs Recibo MI con fecha del 0131/0807/2024 o posterior.
Aplicar el parche correspondiente al issue DMINA-23387.
Validar que las rutinas actualizadas en el repositorio, coincidan con las descritas en el encabezado del presente Documento Técnico, así como las fechas.
Crear la función de usuario "Descuento por pronto pago" (F998VALBX) el cual retornará un objeto Json con las siguientes opciones:
1. Nombre del campo nuevo a mostrar.
2. Deshabilitar o habilitar el campo de descuento, multa o interés.
3. Habilitar o deshabilitar el campo "Descuento por pronto pago".
Compilar el PE F998NRG2 el cual llame la función de usuario U_TAFINE45()funcion de usuario F998VALBX definiendo las propiedades para la vista , calculos matematicos para los campos descuento, multa, interes y total así como la funcion a ejecutar para guardar los datos.
Dentro del módulo Financiero ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar).
En la rutina de Clientes (MATA030), ubicada en el módulo Financiero (Actualizaciones | Archivos) registré un cliente.
En la rutina de Productos (MATA010), ubicada en el módulo Facturación (Actualizaciones | Archivos), incluir un nuevo producto.
En la rutina de Tipos de Entrada y Salida (MATA080), ubicada en el módulo Facturación (Actualizaciones | Archivos), incluir una TES de salida.
En la rutina de Facturaciones (MATA467N), ubicada en el módulo de Facturación (Actualizaciones | Facturaciones) generamos una factura que genere un título financiero al cliente configurado anteriormente.

Totvs custom tabs box items

default	no
referencia	paso2

Ingresar a la rutina TOTVS Recibo; SIGAFIN - Actualizaciones | Cuentas por Cobrar | TOTVS Recibo.
1. Ingresar a la opción Nuevo Recibo.
  1. Informe el encabezado del recibo con los datos configurados anteriormente y damos clic en "Extraer Títulos".
  2. Localizamos el título generado anteriormente y damos clic en "Editar cobro".
    1. Verificamos que se visualice el nuevo campo configurado "Descuento por pronto pago".
    2. Verificamos que se realice la lógica matemática adecuadamente proporcionada al descuento.
  3. Agregamos una forma de pago por el valor restante del título financiero.
  4. Guardamos el recibo:
    1. Verificamos que el valor se haya guardado correctamente en el campo configurado en el PE.

Actualización de la función de usuario U_TAFINE45() en el PE F998NRG2, para la generación de la NCC al momento de guardar el recibo.

Aviso

title	Importante

Hay que adaptar la manera de obtener la información del recibo y/o títulos en la función de usuario TAFINE45(), ya que en la nueva rutina de TOTVS Recibo no hay variables privadas como aCols.

El objeto Json obtiene los siguientes objetos:
- Encabezado - Valores ingresados en el encabezado del recibo.
- Títulos - Array de valores con los datos de cada título seleccionado.
- Monedas - Array con los valores de cada moneda registrada.
- Formas de pago - Array de valores por cada una de las formas de pago registradas en el recibo.
- Params - Parámetros registrados en el sistema.
Ejemplo para obtener el descuento por pronto pago en el título seleccionado es de la siguiente manera:
- oJson['titulos'][1]['percentDiscount'], en donde se busca el descuento por pronto pago del título número uno del objeto títulos.

Card documentos

Informacao	"La solución estará presente en el patch de expedición continua con fecha superior al 01/08/2024."
Titulo	¡IMPORTANTE!

...

Card documentos

Informacao	"La solución estará presente en el patch de expedición continua con fecha superior al 01/08/2024."
Titulo	¡IMPORTANTE!

Descripción

Actualizaciones

Punto de entrada:

F998VALBX

Parámetros recibidos

Nombre

Tipo

Descripción

PARAMIXB[1]

O

Definición de la vista del campo "Descuento por pronto pago"

Descripción del objeto PARAMIXB[1] cuando en el Json la bandera PARAMIXB[2] es Verdadera (.T.) y la bandera ["recalculate" ] este como falsa (.F.)

Expandir

title	Objeto Titulo

Nombre en Json	Equivalencia	Descripción
['recalculate´]	N/A	Si es True (.T.) realizará los calculos, si es False (.F.) realizara la vista
titulos[nX]['branch']	E1_FILIAL	Filial
titulos[nX]['billnumber']	E1_NUMERO	Numero de Titulo
titulos[nX]['type']	E1_TIPO	Tipo de Titulo
titulos[nX]['actualduedt']	E1_VENCREA	Vencimiento Real
titulos[nX]['currency']	E1_MOEDA	Moneda
titulos[nX]['unit']	E1_LOJA	Tienda
titulos[nX]['installment']	E1_PARCELA	Cuota
titulos[nX]['billvalue']	E1_VALOR	Valor
titulos[nX]['customer']	E1_CLIENTE	Cliente
titulos[nX]['class']	E1_NATUREZ	Modalidad
titulos[nX]['custname']	A1_NOME	Nombre del cliente
titulos[nX]['balance']	E1_SALDO	Saldo del titulo
titulos[nX]['prefix']	E1_PREFIXO	Prefijo del titulo
titulos[nX]['issuedt']	E1_EMISSAO	Fecha de emisión
titulos[nX]['writeoffne']	E1_VALLIQ	Valor neto de la baja
titulos[nX]['discount']	E1_DESCONT	Descuento
titulos[nX]['interest']	E1_JUROS	Intereses
titulos[nX]['fine']	E1_MULTA	Multas
titulos[nX]['series']	E1_SERIE	Serie
titulos[nX]['origin']	E1_ORIGEM	Ruta origen del titulo
titulos[nX]['recno']	R_E_C_N_O
titulos[nX]['client']	E1_CLIENTE	Cliente
titulos[nX]['originbranch']	E1_FILORIG	Filial Original
titulos[nX]['paycondf2']	F2_COND	Condicion SF2
titulos[nX]['paycondf1']	F1_COND	Condición SF1
titulos[nX]['serie2f2']	F2_SERIE2	Serie SF2
titulos[nX]['serie2f1']	F1_SERIE2	Serie SF1
titulos[nX]['paymentcondition']		Condición de pago
titulos[nX]['cobrar']		Monto a cobrar en Numeric
titulos[nX]['billvalueString']		Toyal o saldo (Dependiendo la pantalla)
titulos[nX]['balanceString']		Saldo en String
titulos[nX]['cobrarString']		Monto a cobrar en String
titulos[nX]['discountString']		Descuento del titulo en String
titulos[nX]['interestString']		Interes del titulo en String
titulos[nX]['fineString']		Multa del titulo en String

Definición de la lógica del campo "Descuento por pronto pago"

Descripción del objeto PARAMIXB[1] cuando en el Json la bandera PARAMIXB[2] es Verdadera (.T.) y la bandera ["recalculate" ] este como True (.T.)

Expandir

title	Objeto

Nombre en Json	Descripción
['recalculate´]	Si es True (.T.) realizará los calculos, si es False (.F.) realizara la vista
bind['discountInput']	Descuento ingresado en el campo Descuento Pronto Pago
bind['descuento']	Tipo de Titulo
bind['multa']	Interes del titulo en String
bind['interes']	Multa del titulo en String
bind['saldo']	Saldo total (Ya tomando en cuenta, descuento, multa e interes)

Definición de la grabación del campo "Descuento por pronto pago"

Descripción de los objetos (PARAMIXB[1]) mandados en el Json cuando la bandera PARAMIXB[2] es Falsa (.F.)

Expandir

title	Objeto Encabezado

Nombre en Json	Equivalencia	Descripción
encabezado['serie']	FJT_SERIE	Serie del recibo
encabezado['recibo']	FJT_RECIBO	Numero de recibo
encabezado['emissa']	FJT_EMISSA	Emisión
encabezado['nature']	FJT_NATURE	Cobrador
encabezado['client']	FJT_CLIENT	Cliente
encabezado['loja']	FJT_LOJA	Tienda
encabezado['cobrad']	FJT_COBRAD	Cobrador
encabezado['recprov']	FJT_RECPRV	Recibo Provisorio

Expandir

title	Objeto Titulos

Nombre en Json	Equivalencia	Descripción
titulos[nX]['branch']	E1_FILIAL	Filial
titulos[nX]['billnumber']	E1_NUMERO	Numero de Titulo
titulos[nX]['type']	E1_TIPO	Tipo de Titulo
titulos[nX]['actualduedt']	E1_VENCREA	Vencimiento Real
titulos[nX]['currency']	E1_MOEDA	Moneda
titulos[nX]['unit']	E1_LOJA	Tienda
titulos[nX]['installment']	E1_PARCELA	Cuota
titulos[nX]['billvalue']	E1_VALOR	Valor
titulos[nX]['customer']	E1_CLIENTE	Cliente
titulos[nX]['class']	E1_NATUREZ	Modalidad
titulos[nX]['custname']	A1_NOME	Nombre del cliente
titulos[nX]['balance']	E1_SALDO	Saldo del titulo
titulos[nX]['prefix']	E1_PREFIXO	Prefijo del titulo
titulos[nX]['issuedt']	E1_EMISSAO	Fecha de emisión
titulos[nX]['writeoffne']	E1_VALLIQ	Valor neto de la baja
titulos[nX]['discount']	E1_DESCONT	Descuento
titulos[nX]['interest']	E1_JUROS	Intereses
titulos[nX]['fine']	E1_MULTA	Multas
titulos[nX]['series']	E1_SERIE	Serie
titulos[nX]['origin']	E1_ORIGEM	Ruta origen del titulo
titulos[nX]['recno']	R_E_C_N_O
titulos[nX]['client']	E1_CLIENTE	Cliente
titulos[nX]['originbranch']	E1_FILORIG	Filial Original
titulos[nX]['paycondf2']	F2_COND	Condicion SF2
titulos[nX]['paycondf1']	F1_COND	Condición SF1
titulos[nX]['serie2f2']	F2_SERIE2	Serie SF2
titulos[nX]['serie2f1']	F1_SERIE2	Serie SF1
titulos[nX]['paymentcondition']		Condición de pago
titulos[nX]['cobrar']		Monto a cobrar en Numeric
titulos[nX]['billvalueString']		Toyal o saldo (Dependiendo la pantalla)
titulos[nX]['balanceString']		Saldo en String
titulos[nX]['cobrarString']		Monto a cobrar en String
titulos[nX]['discountString']		Descuento del titulo en String
titulos[nX]['interestString']		Interes del titulo en String
titulos[nX]['fineString']		Multa del titulo en String
titulos[nX]['quickSelected']		Titulo seleccionado en el GRID
titulos[nX]['reasonBx']		Motivos de baja
titulos[nX]['peso']		Total en moneda

Expandir

title	Objeto monedas

Nombre en Json	Descripción
monedas[nX]['coin']	Nombre Moneda
monedas[nX]['tasa']	Tasa
monedas[nX]['received']	Cantidad recibida en esta moenda
monedas[nX]['balance']	Saldo en Numeric
monedas[nX]['type']	Nombre de Moneda
monedas[nX]['moneda']	Numero de Moneda
monedas[nX]['stringTasa']	Tasa de moneda
monedas[nX]['balanceString']	Saldo en String
monedas[nX]['receivedString']	Cantidad recibida en esta moenda

Expandir

title	Objeto formas de pago

Nombre en Json	Descripción
formaspago[nX]['property']	Nombre de la propiedad (Trae el mismo nombre registrado en la SX3)
formaspago[nX]['value']	Valor de la propiedad

Expandir

title	Objeto parametros

Nombre en Json

Descripción

params[nX]['mv_par01']

Valor del parametro 01

params[nX]['mv_par01']

.

params[nX]['mv_parxx']

PARAMIXB[2]

L

True (.T.) si es momento del guardado y False (.F.) si es configuración de la vista

Respuesta:

Descripción del objeto de respuesta cuando en el Json la bandera PARAMIXB[2] es Verdadera (.T.) y la bandera ["recalculate" ] este como falsa (.F.)

Expandir

title	Objeto de respuesta

Nombre	Tipo	Descripción	Obligatorio
oJson['label']	L	Nombre del campo nuevo a mostrar.	Si
oJson['disabledDiscount']	L	Deshabilitar o habilitar el campo de descuento.	Si
oJson['disabledInterest']	L	Deshabilitar o habilitar el campo de Intereses.	Si
oJson['disabledFine']	L	Deshabilitar o habilitar el campo de Multa.	Si
oJson['disabledInput']	L	Deshabilitar o habilitar el input nuevo	Si
oJson['maxDiscount']	N	Se informa el descuento permitido debe tener un rango mayor a 0 y menor a 100	Si
oJson['warningMaxDiscount']	C	Mensaje personalizado por si se excede el descuento permitido, si no se informa el front mandará uno por default	No

Descripción del objeto de respuesta cuando en el Json la bandera PARAMIXB[2] es Verdadera (.T.) y la bandera ["recalculate" ] este como True (.T.)

Expandir

title	Objeto de respuesta

Nombre en Json	Descripción
oJson['descuento']	Valor que sera mostrado en el campo descuento
oJson['residuo']	Valor que sera mostrado como total del titulo (Despues de descuentos, multa e intereses)
oJson['multa']	Valor que sera mostrado como multa del titulo
oJson['interes']	Valor que sera mostrado como interes del titulo

Descripción de los objetos de respues en el Json cuando la bandera PARAMIXB[2] sea Falsa (.F.)

N/A

Bloco de código

language	actionscript3
title	Ejemplo de PE F998VALBX
linenumbers	true
collapse	true

#Include 'Protheus.ch'

User Function F998VALBX()

    Local oResponse := JsonObject():New() as Object
    
    IF PARAMIXB[2]  //Vista
        IF PARAMIXB[1]['recalculate']
            oResponse:=setValues(PARAMIXB[1])
        ELSE
	        oResponse['label']              := "% Descuento por pronto pago"        //Nombre del campo nuevo a mostrar.
            oResponse['readonlyDiscount']   := .T.                  //Deshabilitar o habilitar el campo de descuento.
            oResponse['readonlyInterest']   := .T.                  //Deshabilitar o habilitar el campo de Intereses.

...

Objeto json con las siguientes opciones:

Nombre	Tipo	Descripción	Obligatorio
oJson['label']	L	Nombre del campo nuevo a mostrar.	Si
oJson['disabledDiscount']	L	Deshabilitar o habilitar el campo de descuento.	Si
oJson['disabledInterest']	L	Deshabilitar o habilitar el campo de Intereses.	Si
oJson['disabledFine']	L	Deshabilitar o habilitar el campo de Multa.	Si
oJson['disabledInput']	L	Deshabilitar o habilitar el input nuevo	Si
oJson['maxDiscount']	N	Se informa el descuento permitido debe tener un rango mayor a 0 y menor a 100	Si
oJson['warningMaxDiscount']	C	Mensaje personalizado por si se excede el descuento permitido, si no se informa el front mandará uno por default	No

Bloco de código

language	actionscript3
title	Ejemplo de PE F887ROT y función de usuario
linenumbers	true
collapse	true

#Include 'Protheus.ch'

User Function F998VALBX()

    Local oResponse := JsonObject():New() as Object
    
    IF PARAMIXB[2]  //Vista 
        oResponse['labelreadonlyFine']       :=  .T.     := "% Descuento por pronto pago"        //Nombre del campo nuevo a mostrar.
Deshabilitar o habilitar el campo de Multa.
            oResponse['readonlyDiscountdisabledInput']      := .T.   F.//isDisable(PARAMIXB[1]) //Deshabilitar o habilitar el input nuevo
            oResponse['maxDiscount']   //Deshabilitar o habilitar el campo de descuento.
        oResponse['readonlyInterest']   := .T.    := 50//GetLimite(PARAMIXB[1]) //Se informa el descuento permitido debe tener un rango mayor a 0 y menor a 100
            oResponse['warningMaxDiscount']  //Deshabilitar o habilitar el campo de Intereses.
        oResponse['readonlyFine']       := .T.           := "Descuento por Pronto Pago mayor al permitido. En esta condición el tope es:"+ALLTRIM(STR(oResponse['maxDiscount'])) //Mensaje personalizado por si se excede el descuento permitido, si no se informa el front mandara uno por default
       //Deshabilitar o habilitar el campo de Multa. ENDIF
        oResponse['disabledInput']ELSE 
       := .T.//Deshabilitar o habilitar el input nuevo
        oResponse['maxDiscount']        := 50 //Se informa el descuento permitido debe tener un rango mayor a 0 y menor a 100
        oResponse['warningMaxDiscount'] := "Descuento por Pronto Pago mayor al permitido. En esta condición el tope es:"+ALLTRIM(STR(oResponse['maxDiscount'])) //Mensaje personalizado por si se excede el descuento permitido, si no se informa el front mandara uno por default
    ELSE 
       SaveData(PARAMIXB[1]) //Grabación
    ENDIF

Return oResponseSaveData(PARAMIXB[1]) //Grabación
    ENDIF

Return oResponse

/*/{Protheus.doc} setValues
Esta funcion determina los valores a mostrar en los campos de descuento, residuo,multa e interes
@type function
@version  
@author luis.aboytes
@since 25/7/2024
@param oJson, object, param_description
@return variant, return_description
/*/
Static Function setValues(oJson)
    Local oRes := JsonObject():New() 

    oRes['descuento']  := Round(PARAMIXB[1]['bind']['discountInput']/100*PARAMIXB[1]['bind']['saldo'],2)
    oRes['residuo']    := Round(PARAMIXB[1]['bind']['saldo']-oRes['descuento'],MsDecimais(SE1->E1_MOEDA))
    oRes['multa']      := 0
    oRes['interes']    := 0

Return oRes

/*/{Protheus.doc} SaveData
Guardamos el dato en un campo en especifico
@type function
@author luis.aboytes
@since 18/7/2024
/*/
Static Function SaveData(oJsonData)
    Local nCont as Numeric

    For nCont := 1 to LEN(oJsonData['titulos'])
        SE1->(dbSetOrder(1))
	    SE1->(dbSeek(xFilial("SE1")+PADR(oJsonData['titulos'][nCont]['prefix'],GetSx3Cache("E1_PREFIXO","X3_TAMANHO"))+PADR(oJsonData['titulos'][nCont]['billnumber'],GetSx3Cache("E1_NUM","X3_TAMANHO"))+PADR(oJsonData['titulos'][nCont]['installment'],GetSx3Cache("E1_PARCELA","X3_TAMANHO"))))
        RecLock("SE1",.F.)
            SE1->E1_XPERDES :=	oJsonData['titulos'][nCont]['percentDiscount']
		MsUnLock()
    Next
Return

/*/{Protheus.doc} GetLimite
Se retorna el limite de descuento
@type function
@author luis.aboytes
@since 18/7/2024
/*/
Static Function GetLimite(oJsonData)
    Local nTope := 0

    SE1->(dbSetOrder(1))
	SE1->(dbSeek(xFilial("SE1")+PADR(oJsonData['prefix'],GetSx3Cache("E1_PREFIXO","X3_TAMANHO"))+PADR(oJsonData['billnumber'],GetSx3Cache("E1_NUM","X3_TAMANHO"))+PADR(oJsonData['installment'],GetSx3Cache("E1_PARCELA","X3_TAMANHO"))))

    nTope:=IIF(VAZIO(Posicione("SE4", 1,xFilial("SE4")+SE1->E1_XCONDPP,"E4_XDESCON")),0,Posicione("SE4", 1,xFilial("SE4")+SE1->E1_XCONDPP,"E4_XDESCON"))
Return nTope

/*/{Protheus.doc} isDisable
Funcion que retorna si es editable o no el valor del input
@type function
@author luis.aboytes
@since 18/7/2024
/*/
Static Function isDisable(oJsonData)
    Local lRet := .t.

    SE1->(dbSetOrder(1))
	SE1->(dbSeek(xFilial("SE1")+PADR(oJsonData['prefix'],GetSx3Cache("E1_PREFIXO","X3_TAMANHO"))+PADR(oJsonData['billnumber'],GetSx3Cache("E1_NUM","X3_TAMANHO"))+PADR(oJsonData['installment'],GetSx3Cache("E1_PARCELA","X3_TAMANHO"))))

    IF SE1->E1_XCONDPP == '999'
        lRet := .f.
    ENDIF

Return lRet

04. ASUNTOS RELACIONADOS

TOTVS Recibo
5.2 Puntos de entrada disponibles

Templatedocumentos

Árvore de páginas

Versões comparadas

Versão antiga 31

Nova versão Atual

Chave

04. ASUNTOS RELACIONADOS