== Descripción ==
Control de Registro de [[TABLA:vidquoten1]] y su cascada. Despliegue de datos de acuerdo a condiciones propias de los atributos del registro.
== Composición ==
[[FORM:Presupuesto]]
== Código ==
<small><pre>
Sub ControlFormPresupuesto (oEvent as Object)

Dim oEstado		AS Boolean

	oForm			= oEvent.Source
	if NOT(oForm.IsNew) Then
		oEstado			= oForm.getByName("txtVidQuoteEstado").CurrentValue
		
		'Bloquea FormCabecera
		oForm.getByName("txtVidQuoteClienteDSC").setPropertyValue("Enabled",NOT(oEstado))
		oForm.getByName("txtVidQuoteCliente").setPropertyValue("Enabled",NOT(oEstado))
		oForm.getByName("datVidQuoteFecha").setPropertyValue("Enabled",NOT(oEstado))
		oForm.getByName("txtVidQuoteACom").setPropertyValue("Enabled",NOT(oEstado))
		oForm.getByName("fmtVidQuoteObra").setPropertyValue("Enabled",NOT(oEstado))
		oForm.getByName("txtVidQuoteEstado").setPropertyValue("Enabled",NOT(oEstado))
		oForm.getByName("txtVidQuoteAComDSC").setPropertyValue("Enabled",NOT(oEstado))
		
		oForm.getByName("BtnContactoExpress").setPropertyValue("Enabled",NOT(oEstado))
		oForm.getByName("BtnActualizar").setPropertyValue("Enabled",NOT(oEstado))
	
		'Bloquea FormProductos
		oSubForm		= oForm.getByName("Productos")
		oSubForm.getByName("fmtVidQuoteProdCantidad").setPropertyValue("Enabled",NOT(oEstado))
		oSubForm.getByName("txtVidQuoteQuick").setPropertyValue("Enabled",NOT(oEstado))
		oSubForm.getByName("txtVidQuoteProdID").setPropertyValue("Enabled",NOT(oEstado))
		oSubForm.getByName("txtVidQuoteProdDSC").setPropertyValue("Enabled",NOT(oEstado))
		oSubForm.getByName("fmtVidQuoteAncho").setPropertyValue("Enabled",NOT(oEstado))
		oSubForm.getByName("fmtVidQuoteAlto").setPropertyValue("Enabled",NOT(oEstado))
		
		'Bloquea FormComponentesDisplay
		oSSubForm		= oSubForm.getByName("ComponentesDisplay")
		oSSubForm.getByName("BtnEditar").setPropertyValue("Enabled",NOT(oEstado))
		oSSubForm.getByName("BtnAplicar").setPropertyValue("Enabled",NOT(oEstado))
		oSSubForm.getByName("BtnReset").setPropertyValue("Enabled",NOT(oEstado))
		
		'Despliega Estado (Expirado)
		oContactoID	= oForm.getByName("txtVidQuoteCliente").CurrentValue
		oFecha		= CDateFromIso(oForm.getByName("datVidQuoteFecha").CurrentValue)
		oCondicion	= oCondicion & "ContactoID="&chr(39)& oContactoID &chr(39)
		oVigencia	= Val(QuerySimple("VigenciaDocs","","contactos",oCondicion,"Integer"))
		oDiferencia	= DateDiff("d",oFecha,date())
		oStatus		= iif(oDiferencia > oVigencia,"Expirado","Vigente")
		oForm.getByName("Expirado").setString(iif(oDiferencia > oVigencia,"Expirado","Vigente"))
	end if
	'MsgBox "Test"
end Sub
</pre></small>
== Bitácora ==
*20120910
**Alta de MACRO
== Uso ==
FORM:Presupuesto