Punto de entrada con la finalidad de habilitar o deshabilitar el campo Cobrador (FJT_COBRAD) de la tabla Encabezado de Recibo (FJT) y no permitir su edición.
| Parámetros recibidos: | Nombre | Tipo | Descripción |
|---|
| PARAMIXB[1] | O | Objeto del formulario o del modelo, conforme el caso | | PARAMIXB[2] | C | ID del local de ejecución del punto de entrada. | | PARAMIXB[3] | C | ID del formulario. | | PARAMIXB[4] | C | Acción del FWFORMGRID. | | PARAMIXB[5] | C | ID del Campo. |
|
| Respuesta: | Nombre | Tipo | Descripción |
|---|
| lRet | L | Si el valor retornado es .T. el campo Cobrador (FJT_COBRAD) sera habilitado, de lo contrario sera inhabilitado. |
|
| Bloco de código |
|---|
| language | java |
|---|
| firstline | 1 |
|---|
| title | Ejemplo: |
|---|
| linenumbers | true |
|---|
| collapse | true |
|---|
|
#include "Protheus.ch"
#include "FWMVCDEF.CH"
User Function FINA887()
Local aParam := PARAMIXB
Local oModel := aParam[1]
Local cIdPonto := ""
Local cIdModel := ""
Local lRet := .T.
If aParam <> NIL
If cIdPonto == 'FORMPRE'
oModel := aParam[1]
cIdPonto := aParam[2]
cIdModel := aParam[3]
cAccion := aParam[4]
cIdCamp := aParam[5]
CONOUT('FORMPRE')
IF cIdModel == 'FJT_MASTER' .AND. cAccion == 'CANSETVALUE' .AND. cIdCamp ==
'FJT_COBRAD' //Deshabilitamos en la accion de CANSETVALUE el campo retornando un .F.
lRet := .F.
ENDIF
EndIf
EndIf
Return lRet |
