Duda
¿Cómo utilizar la rutina automática para la reversión de documentos liberados MATA094?
Ambiente
Cross Segmentos - TOTVS Backoffice (Línea Protheus) - MI - Compras (SIGACOM) - Todas las versiones 12
Pais: Todos
Solución
Esta rutina automática se ejecuta en MVC:
Ejemplo de reversión para la rutina MATA094
#INCLUDE 'RWMAKE.CH'
#INCLUDE 'TBICONN.CH'
#INCLUDE 'PROTHEUS.CH'
User Function MyExec094()
Local cNum := "PMSA02" //-- Recibe el número del documento que se evaluará
Local cTipo := "PC" //-- Recibe el tipo del documento que se evaluará
Local cAprov := "000003" //-- Recibe el código del aprobador del documento
Local nLenSCR := 0 //-- Control de tamaño del campo del documento
Local lOk := .T. //-- Control de validación y commit
//-- Inicia el entorno
PREPARE ENVIRONMENT EMPRESA "01" FILIAL "01" USER "Administrador" PASSWORD "*" MODULO "COM"
nLenSCR := TamSX3("CR_NUM")[1] //-- Obtiene tamaño del campo CR_NUM
DbSelectArea("SCR")
SCR->(DbSetOrder(3)) //-- CR_FILIAL+CR_TIPO+CR_NUM+CR_APROV
If SCR->(DbSeek(xFilial("SCR") + cTipo + Padr(cNum, nLenSCR) + cAprov))
lOk := A094VldEst()
If lOk
MsgInfo("El documento "+cNum+" se revertió con éxito.")
Else
MsgInfo("Ocurrió un error al revertir el documento "+cNum)
EndIf
Else
MsgInfo("¡Documento no encontrado!", "MyExec094")
EndIf
//-- Finaliza el entorno
RESET ENVIRONMENT
Return Nil
Conozca más.
0 Comentarios