== Descripción ==
Evento que ejecuta cuando carga el [[FORM:Presupuesto.Cabecera]]
== Biblioteca ==
*[[LIBR:FazzGlassMcr]]

== Composición ==
== Código ==
<small><pre>
Sub EventoWhenLoadingFormCabecera (oEvent as Object)
    
Dim oForm	 		As Object

	ChequeoValorLicenciaOK(oEvent)
	oForm		= ThisComponent.Drawpage.Forms.getByName("Cabecera")  
	oSubForm	= oForm.getByName("Productos")
	Hoy(oForm,oForm.getbyname("datVidQuoteFecha"))
	
	oSubForm.getByName("ComponentesDisplay").getByName("ComponentesDisplayGrid").setPropertyValue("EnableVisible",True)
	oSubForm.getByName("ComponentesSimple").getByName("ComponentesSimpleGrid").setPropertyValue("EnableVisible",False)
	oSubForm.getByName("ComponentesSimple").getByName("SubTotalProducto").getByName("Total").setPropertyValue("EnableVisible",False)	
	
end Sub
</pre></small>
== Bitácora ==
== Uso ==
*[[FORM:Presupuesto]]
**[[FORM:Presupuesto.Cabecera]]
***[[EVENTO:Presupuesto.Cabecera.WhenLoading]]