Aplicar el paquete de expedición continua Financiero - Totvs Recibo MI con fecha del 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:
Nombre del campo nuevo a mostrar.
Deshabilitar o habilitar el campo de descuento, multa o interés.
Habilitar o deshabilitar el campo "Descuento por pronto pago".
Galeria
title
PE ejemplo
La siguiente imagen es un ejemplo del PE (F998VALBX):
Image RemovedImage Added
Dentro del módulo Financiero ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar).
En la rutina deClientes(MATA030), ubicada en el móduloFinanciero (Actualizaciones | Archivos) registré un cliente.
En la rutina de Facturaciones (MATA467N), ubicada en el módulo de Facturación (Actualizaciones | Facturaciones) generamos un nuevo título.
Totvs custom tabs box items
default
no
referencia
paso2
Ingresar a la rutinaTOTVS Recibo;SIGAFIN - Actualizaciones | Cuentas por Cobrar | TOTVS Recibo.
Ingresar a la opción Nuevo Recibo.
Informe el encabezado del recibo de cobro con el cliente configurado anteriormente, después de clic en el botón Extraer Títulos.
Informe una forma de pago de tipo CH con el número 1307001
con los datos configurados anteriormente y damos clic en "Extraer Títulos".
Localizamos el título generado anteriormente y damos clic en "Editar cobro".
Verificamos que se visualice el nuevo campo configurado "Descuento por pronto pago".
Verificamos que se realice la lógica matemática adecuadamenteConfirme el recibo de cobro.
Card documentos
Informacao
La presente solución aplica para versión 12.1.2210 o superior, siempre y cuando se encuentre aplicado el paquete de expedición continua Financiero - Totvs Recibo MI con fecha de corte superior a este comunicado.
Titulo
¡IMPORTANTE!
...
Descripción
Actualizaciones
Nombre del programa fuente:
RECEIPTFINANCIAL-TITLES.SERVICE.TLPP
Parámetros recibidosN/A
Punto de entrada:
F887ROTF998VALBX
Respuesta:
Arreglo que contiene el nombre de la nueva opción habilitada y la función que se ejecutara al dar clic en ella.
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
aRet[1]
C
Título de la nueva opción que se habilitara en Buscar Recibos
.
Si
aRet
oJson[
2
'disabledFine']
C
Función de usuario que será ejecutada al dar clic en la nueva opción
L
Deshabilitar o habilitar el campo de Multa.
Si
oJson['disabledInput']
L
Deshabilitar o habilitar el input nuevo
Si
Bloco de código
language
actionscript3
title
Ejemplo de PE F887ROT y función de usuario
linenumbers
true
#Include 'Protheus.ch'
//Punto de entrada F887ROT
User Function F887ROTF998VALBX()
Local oResponseaData As Array
as ObjectaDataoResponse := {"CANCEL FORZA","EjemploPE"} //{Nombre de la nueva opción, Funcion a ejecutarse}
Return aData
//Funcion de usuario que será ejecutada al dar clic en la nueva opción
User Function EjemploPE()
LOCAL aRet := {}
IF FJT->FJT_CLIENT == '000001' //Cancelara recibos que pertenezcan a este cliente
RecLock("FJT",.F.)
Replace FJT_CANCEL With "1"
MsUnLock()
aRet:={.T.,"PE EJECUTADO CORRECTAMENTE"} //{.T., Mensaje personalizado}
ELSE
aRet:={.F.,"ESTE CLIENTE NO PERMITE MODIFICACIONES"} //{.F., Mensaje personalizado}
ENDIF
Return aRet
JsonObject():New()
oResponse['label'] := "% Descuento" //Nombre del campo nuevo a mostrar.
oResponse['disabledDiscount']:= .T. //Deshabilitar o habilitar el campo de descuento.
oResponse['disabledInterest']:= .T. //Deshabilitar o habilitar el campo de Intereses.
oResponse['disabledFine']:= .T. //Deshabilitar o habilitar el campo de Multa.
oResponse['disabledInput']:= .T. //Deshabilitar o habilitar el input nuevo
Return oResponse