#INCLUDE 'protheus.ch'
#INCLUDE 'parmtype.ch'
#INCLUDE 'FWMVCDEF.CH'
User function LOCX20VIEW()
Local oView := PARAMIXB[1] //Viewdef
//Remover un campo de usuario de la pantalla.
If oView:GetViewStruct("SF1_MASTER"):HasField("F1_NUMERO") //Verificación de la existencia del campo.
oView:GetViewStruct("SF1_MASTER"):RemoveField( "F1_NUMERO" )
EndIf
//Bloqueo de campo para edición. Encabezado.
If oView:GetViewStruct("SF1_MASTER"):HasField("F1_STRING") //Verificación de la existencia del campo.
oView:GetViewStruct("SF1_MASTER"):SetProperty("F1_STRING", MVC_VIEW_CANCHANGE, .F.)
EndIf
//Agregar un campo de sistema.
oView:GetViewStruct("SF1_MASTER"):AddField("F1_HORA" ,"99",AllTrim(FwX3Titulo("F1_HORA")) ,AllTrim(FwX3Titulo("F1_HORA")) ,{""},"GET","@!",NIL,"",.T.,NIL,NIL,{},NIL,NIL,.F.)
//Bloqueo de campo para edición. Grid.
oView:GetViewStruct("SD1_DETAIL"):SetProperty("D1_CF", MVC_VIEW_CANCHANGE, .F.)
Return |