Tiempo aproximado de lectura 00:05:00 min
Duda
¿Para que sirve el Punto de Entrada FORMPRE en los Documentos de Entrada?
Entorno
Cross Segmentos - TOTVS Backoffice (Linea Protheus) - MI - Compras (SIGACOM) - A partir de la versión 12.1.2410
Solución
El Punto de Entrada FORMPRE, ejecutado en la validación total del modelo de los Documentos de Entrada correspondiente al Nuevo Compras (https://tdn.totvs.com/display/public/PROT/Documentos+Fiscales+de+Entrada).
Ejemplo:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | #INCLUDE 'protheus.ch'#INCLUDE 'FWMVCDEF.CH'User Function LOCXIN()Local aParam := PARAMIXBLocal xRet := .T.Local oObj := ''Local cIdPonto := ''Local cIdModel := ''Local cAction := ''Local nLinha := 0Local nX := 0Local cIdCpo := 0 If aParam <> NIL oObj := aParam[1] cIdPonto := aParam[2] cIdModel := aParam[3] If cIdPonto == 'FORMPRE' //Ejecutado antes de la alteración de cualquier campo de formulario. If cIdModel == "SF1_MASTER" cAction := aParam[4] cIdCpo := aParam[5] elseIf cIdModel == "SD1_DETAIL" cAction := aParam[5] cIdCpo := aParam[6] EndIf If cAction == "CANSETVALUE" If cIdCpo == "F1_LOJA" xRet := !Empty(oObj:GetValue("F1_FORNECE")) EndIf ElseIf cAction == "SETVALUE" If cIdCpo == "D1_CF" If Empty(oObj:GetValue("D1_TES")) xRet := .F. Help( ,, "HELP",, "Informe primero un TES", 1, 0) EndIf EndIf EndIf EndIf EndIfReturn xRet |
| Parámetros recibidos: | Formulario.
Grid.
| ||||||||||||||||||||||||||||||||||||
| Respuesta: |
|
Ver Documentación Oficial en https://tdn.totvs.com/pages/releaseview.action?pageId=811258606
0 Comentarios