== Descripción ==
Ejecuta controles de:
*Licencia
*ListBoxes de Productos
*Asigna Defaults
== Composición ==
== Código ==
<small><pre>
'***********************************************************
Sub EventoWhenLoadingFormCabecera (oEvent as Object)
    
Dim oDocument 		As Object
Dim oForm	 		As Object
Dim oCampo			As Object
Dim oSubForm 		As Object
Dim oSubSubForm 	As Object
Dim oSubSubFormGrid	As Object
Dim oListBox		As Object

    'ChequeaLicenciaOK
    'MsgBox("EventoWhenLoadingFromCabecera: Inicio")
    'MsgBox("Call ChequeoValorLicenciaOK")
    ChequeoValorLicenciaOK(oEvent)

    oDocument 		= ThisComponent
	oForm 			= ThisComponent.Drawpage.Forms.getByName("Cabecera")  
	oSubForm 		= oForm.getByName("CabeceraAmpliada").getByName("DetallePresupuesto")
	oSubSubForm 	= oSubForm.getByName("DetalleProducto")
	oSubSubFormGrid = oSubSubForm.getByName("DetalleProductoGrid")
	
	oListBox 		= oSubSubFormGrid.getByName("txtElementoID")
	oListBox.ListSource = Array("")
	oListBox.Refresh

    oEstadoListBoxDetalleProducto	= 0
    'Inicialización de Tareas y objetos
    Hoy(oForm,oForm.getbyname("fmtVidQuoteFecha"))
    'MsgBox("Call NewResetListBox from EventoWhenLoadingFromCabecera")
	NewResetListBoxDetalleProducto(oEvent)
	'MsgBox("EventoWhenLoadingFromCabecera: Fin")
	
end Sub
'***********************************************************
</pre></small>
== Bitácora ==
*20120912
**Cambio de Diseño [[FORM:Presupuestos]]
<small><pre>
'***********************************************************
Sub EventoWhenLoadingFormCabecera (oEvent as Object)
    
Dim oDocument 		As Object
Dim oForm	 		As Object
Dim oCampo			As Object
Dim oSubForm 		As Object
Dim oSubSubForm 	As Object
Dim oSubSubFormGrid	As Object
Dim oListBox		As Object

    'ChequeaLicenciaOK
    'MsgBox("EventoWhenLoadingFromCabecera: Inicio")
    'MsgBox("Call ChequeoValorLicenciaOK")
    ChequeoValorLicenciaOK(oEvent)

    oDocument 		= ThisComponent
	oForm 			= ThisComponent.Drawpage.Forms.getByName("Cabecera")  
	oSubForm 		= oForm.getByName("CabeceraAmpliada").getByName("DetallePresupuesto")
	oSubSubForm 	= oSubForm.getByName("DetalleProducto")
	oSubSubFormGrid = oSubSubForm.getByName("DetalleProductoGrid")
	
	oListBox 		= oSubSubFormGrid.getByName("txtElementoID")
	oListBox.ListSource = Array("")
	oListBox.Refresh

    oEstadoListBoxDetalleProducto	= 0
    'Inicialización de Tareas y objetos
    Hoy(oForm,oForm.getbyname("fmtVidQuoteFecha"))
    'MsgBox("Call NewResetListBox from EventoWhenLoadingFromCabecera")
	NewResetListBoxDetalleProducto(oEvent)
	'MsgBox("EventoWhenLoadingFromCabecera: Fin")
	
end Sub
'***********************************************************
</pre></small>
== Uso ==