Duda
¿Cómo utilizar la rutina automática para hacer efectiva 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 - Hacer efectiva la Constitución
#include "protheus.ch"
#include "topconn.ch"
#include "RWMAKE.CH"
#include "TBICONN.CH"
/*/{Protheus.doc} F645EfeConEfetiva Constitución PDD@type function@version 1.0@author totvs@return nil/*/User Function F645EfeCon() Local lAutomato := .T.
Local nOperation:= 4
Local aSitCob := {}
Local cNroProc := "000010"
Private lMsErroAuto := .f.
Private lAutoErrNoFile := .T.
PREPARE ENVIRONMENT EMPRESA "T1" SUCURSAL "D MG 01"
//Ajusta perguntas (F12)
Pergunte("FINA645D",.F.)
SetMVValue("FINA645D","MV_PAR01", 2 ) // ¿Muestra asiento?
SetMVValue("FINA645D","MV_PAR02", 2 ) // ¿Agrupa asiento?
SetMVValue("FINA645D","MV_PAR03", 2 ) // ¿Considera movimiento posterior generación del proceso?
//Hacer efectivo MSExecAuto({|a,b,c,d| FINA645(a,b,c,d)}, lAutomato, nOperation, aSitCob, cNroProc )
If !lMsErroAuto
conout("¡éxito! ")
Else
conout("¡Error!")
mostraErro()
EndIf
Return
0 Comentarios