== Descripción ==
Despliega cartel indicador de Presupuesto Expirado en [[FORM:Presupuesto]]. Se asocia a [[MACRO:ControlFormPresupuesto]]
== Composición ==
*[[TABLA:contactos]]
*[[FORM:Presupuesto]]

== Código ==
<pre>
</pre>
== Bitácora ==
*20120911
**Cambio de macro por diseño de [[FORM:Presupuesto]]
<small><pre>
Sub PresupuestoExpirado (oEvent As Object)

Dim oForm		As Object
Dim oContactoID	As String
Dim oExpirado	As String
Dim oVigencia	As Integer
'Dim oFechaPresu As String

	oForm		= ThisComponent.Drawpage.Forms.getByName("Cabecera")
	oNombreImpControlador="org.openoffice.comp.svx.FormController"
	oNombreImpFormularios="com.sun.star.comp.forms.ODatabaseForm"
	if Not(oForm.IsNew) Then
		oExpirado	= ""
		oCondicion	= ""
		'oContactoID	= oForm.getByName("txtVidQuoteCliente").CurrentValue
		'oFechaPresu	= CDatefromISO(oForm.getByName("fmtVidQuoteFecha").CurrentValue)
		oContactoID	= oForm.Columns.getByName("VidQuoteCliente").getString()
		oFecha		= oForm.Columns.getByName("VidQuoteFecha").getDate()
		oFechaPresu	= DateSerial(oFecha.year,oFecha.Month,oFecha.day)
		oCondicion	= oCondicion & "ContactoID="&chr(39)& oContactoID &chr(39)
		oVigencia	= Val(QuerySimple("VigenciaDocs","","contactos",oCondicion,"Integer"))
		oDiferencia	= DateDiff("d",oFechaPresu,date())
		if oDiferencia > oVigencia Then
			oForm.getByName("Expirado").setString("Expirado")
		else
			oForm.getByName("Expirado").setString("Vigente")
		end if
	end if
end Sub
</pre></small>
== Uso ==
[[FORM:Presupuesto]]
[[MACRO:ControlFormPresupuesto]]