Duda
¿Cómo utilizar la rutina automática para realizar una 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 de constitución.
#include "protheus.ch"
#include "topconn.ch"
#include "RWMAKE.CH"
#include "TBICONN.CH"
/*/{Protheus.doc} F645ConstConstitución PDD@type function@version 1.0@author totvs@return nil/*/User Function F645Const() Local lAutomato := .T.
Local nOperation:= 3
Local aSitCob := {}
Private lMsErroAuto := .f.
Private lAutoErrNoFile := .T.
PREPARE ENVIRONMENT EMPRESA "T1" SUCURSAL "D MG 01"
//Situaciones de cobranza que se filtrarán
Aadd(aSitCob, '0')
Aadd(aSitCob, '3')
Aadd(aSitCob, '4')
Aadd(aSitCob, '5')
Aadd(aSitCob, '6')
Aadd(aSitCob, '7')
//Ajusta preguntas (F12)
Pregunta("FINA645C",.F.)
SetMVValue("FINA645C","MV_PAR01", DDATABASE ) // ¿Fecha de referencia?
SetMVValue("FINA645C","MV_PAR02", 1 ) // ¿Número de días de atraso?
SetMVValue("FINA645C","MV_PAR03", 3 ) // ¿Transferir a Provisión?
SetMVValue("FINA645C","MV_PAR04", "PDD001" ) // ¿De Cliente?
SetMVValue("FINA645C","MV_PAR05", "01" ) // ¿De Tienda del cliente?
SetMVValue("FINA645C","MV_PAR06", "PDD001" ) // ¿A Cliente?
SetMVValue("FINA645C","MV_PAR07", "01" ) // ¿A Tienda del cliente?
SetMVValue("FINA645C","MV_PAR08", CTOD("01/01/2001") ) // ¿De Emisión?
SetMVValue("FINA645C","MV_PAR09", CTOD("31/12/2049") ) // ¿A Emisión?
SetMVValue("FINA645C","MV_PAR10", 2 ) // ¿Selecciona sucursal? 1 = Sí 2 = No
SetMVValue("FINA645C","MV_PAR11", "8" ) // ¿Situación de cobranza PDD?
SetMVValue("FINA645C","MV_PAR12", 2 ) // ¿Selecciona Sit. de Cobranza? 1 = Sí 2 = No
SetMVValue("FINA645C","MV_PAR13", 2 ) // ¿Considera negociados? 1 = Sí 2 = No
//Constitución
MSExecAuto({|a,b,c| FINA645(a,b,c)}, lAutomato, nOperation, aSitCob )
If !lMsErroAuto
conout("¡éxito! ")
Else
conout("¡Error!")
mostraErro()
EndIf
Return
0 Comentarios