Duda
¿Cual es la funcionalidad del PE MT110END en las aprobaciones de las solicitudes de compra?
Ambiente
Cross Segmentos - TOTVS Backoffice (Línea Protheus) - MI - Compras (SIGACOM) - Todas las versiones 12
País: Todos.
Solución
El punto de entrada MT110END se ejecuta después de pulsar los botones "Solicitud Aprobada", "Rechazada" o "Bloqueada", debe utilizarse para validaciones de usuario tras ejecutar las acciones correspondientes.
User Function MT110END()
Local nNumSC := PARAMIXB[1] // Numero da Solicitação de compras
Local nOpca := PARAMIXB[2] // 1 = Aprovar; 2 = Rejeitar; 3 = Bloquear /
/
Validações do Usuario
Return
Ejemplo para llenar campos de usuario.
Local dData := dDatabase // Fecha del Sistema
Local nSC := SC1->C1_NUM // Num. Solicitud
Local nItem := SC1->C1_ITEM // Num. Item
Local cAprob := SC1->C1_APROV // Determina si esta aprobada la SC. Valores L = Aprobada, R = Rechazada, B = Bloqueada
Local csolicit:= SC1->C1_SOLICIT
Local nAprob := 0
Local cHora := TIME() // Hora de Aprobación TIME(dDatabase)
//dbSelectArea("SC1")
//dbSetOrder(1)
//dbSeek(xFilial("SC1") + nSC)//+ MAX(nItem)) // Busca el registro
IF FOUND() // Evalúa la devolución de la búsqueda realizada
RECLOCK("SC1", .F.)
//IIF (cAprob == "L" .And. Empty(SC1->C1_ZFCHAPR) , SC1->C1_ZFCHAPR := dData, SC1->C1_ZFCHAPR := SC1->C1_ZFCHAPR) // para que grabe la fecha de aprobacion original
IF cAprob == 'L'
SC1->C1_ZFCHAPR := dData
SC1->C1_ZHRAPRO := cHora
ELSE
SC1->C1_ZFCHAPR := SC1->C1_ZFCHAPR
SC1->C1_ZHRAPRO := SC1->C1_ZHRAPRO
ENDIF
MSUNLOCK() // Destraba el registro
ENDIF
Return
Conozca más.
MT110END - Validación de usuario después de ejecutar acciones en botones
0 Comentarios