Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Financiero (SIGAFIN) - Error "La modalidad seleccionada no existe" al utilizar el Punto de Entrada A085DEFS en Orden de Pago (FINA850)

Al ingresar a la rutina de Orden de Pago (FINA850) utilizando el Punto de Entrada A085DEFS para asignar una modalidad por defecto, el sistema muestra el mensaje de aviso indicando que la modalidad seleccionada no existe, aun cuando el registro se encuentra dado de alta correctamente en la tabla SED. Este comportamiento ocurre al migrar customizaciones de versiones anteriores hacia el release 12.1.2510.

Entorno: 

Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Financiero (SIGAFIN) - release 12.1.2510

Causa: 

En el release 12.1.2510, la rutina FINA850 requiere que la modalidad inicializada por defecto desde el Punto de Entrada A085DEFS se asigne directamente en la posición correspondiente del arreglo aPagos, en lugar de depender únicamente de la asignación previa de variables heredadas de versiones anteriores.

Solución: 

Esta solución aplica a partir del release vigente 12.1.2510.

Para que la rutina FINA850 reconozca la modalidad asignada por defecto mediante el Punto de Entrada A085DEFS, es necesario inicializar el valor directamente en la posición aPagos[1, 21] dentro del código fuente del punto de entrada.

Ejemplo:

 #Include "Protheus.ch"

User Function A085DEFS() aPagos[1, 21] := "PRNAC001" // Inicialización de la modalidad

MsgInfo("A085DEFS SE EJECUTO" + CRLF + ; "Naturaleza inicializada como: " + cNatureza, ; "PRUEBA FINA850") Return

Se debe sustituir "PRNAC001" por el código de la modalidad correspondiente en la tabla SED y retirar la función MsgInfo una vez validadas las pruebas en el ambiente.