Tiempo aproximado de lectura 00:05:00 min
Duda
¿Para qué se utiliza el Punto de Entrada FORMPOS 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 FORMPOS, 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 | #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 == 'FORMPOS' //Validación total del formulario. xRet := .T. If cIdModel == "SF1_MASTER" If Empty(oObj:GetValue("F1_TPVENT")) xRet := .F. Help( ,, "HELP",, "El campo F1_TPVENT debe ser informado.", 1, 0) EndIf ElseIf cIdModel == "SD1_DETAIL" For nX := 1 To oObj:Length() If Empty(oObj:GetValue("D1_CONTA", nX)) xRet := .F. Help( ,, "HELP",, "El campo D1_CONTA debe ser informado.", 1, 0) EndIf Next EndIf EndIf EndIfReturn xRet |
| Parámetros recibidos: |
| |||||||||
| Respuesta: |
|
Ver Documentación Oficial en https://tdn.totvs.com/pages/releaseview.action?pageId=811258606
0 Comentarios