Duda
¿Cuál utilizar la rutina automática para la Reversión de la Constitución de una cuenta de cobranza dudosa FINA645?
Ambiente
Cross Segmentos - TOTVS Backoffice (Línea Protheus) - MI - Financiero (SIGAFIN) - Todas las versiones 12
Pais: Todos
Solución
Para la correcta ejecución automática de la rutina FINA645, es necesario informar los parámetros de la función, de acuerdo con lo siguiente:
Ejemplo - Reversión de la Constitución
#include "protheus.ch"
#include "topconn.ch"
#include "RWMAKE.CH"
#include "TBICONN.CH"
/*/{Protheus.doc} F645ReversReversión de la Constitución PDD@type function@version 1.0@author totvs@return nil/*/User Function F645Revers() Local lAutomato := .T.
Local nOperation:= 5
Local aSitCob := {}
Local cNroProc := "000010"
Local dDtRef := CTOD("14/10/2021")
Private lMsErroAuto := .f.
Private lAutoErrNoFile := .T.
PREPARE ENVIRONMENT EMPRESA "T1" SUCURSAL "D MG 01"
//Ajusta preguntas (F12)
Pregunta("FINA645E",.F.)
SetMVValue("FINA645E","MV_PAR01", 1 ) // ¿Revertir provisión? - 1 = Todos / 2 = Títulos dados de baja / 3 = Abertos
SetMVValue("FINA645E","MV_PAR02", "PDD001" ) // ¿De Cliente?
SetMVValue("FINA645E","MV_PAR03", "01" ) // ¿De Tienda del cliente?
SetMVValue("FINA645E","MV_PAR04", "PDD001" ) // ¿A Cliente?
SetMVValue("FINA645E","MV_PAR05", "01" ) // ¿A Tienda del cliente?
SetMVValue("FINA645E","MV_PAR06", 2 ) // ¿Selecciona sucursal? 1 = Sí 2 = No
SetMVValue("FINA645E","MV_PAR07", dDtRef ) // ¿Fecha de referencia?
SetMVValue("FINA645E","MV_PAR08", dDatabase ) // ¿De Emisión?
SetMVValue("FINA645E","MV_PAR09", dDatabase ) // E¿A Emisión?
//Reversión de la Constitución
MSExecAuto({|a,b,c,d| FINA645(a,b,c,d)}, lAutomato, nOperation, aSitCob, cNroProc )
If !lMsErroAuto
conout("¡éxito! ")
Else
conout("¡Error!")
mostraErro()
EndIf
Return
Conozca más.
0 Comentarios