== Descripción ==
Ejecuta las operaciones al marcar el VidQuoteEstado dentro de un presupuesto.
== Biblioteca ==
== Composición ==
== Código ==
<small><pre>
Sub AprobacionPresupuesto (oEvent as Object)

Dim oEstado		AS Boolean

	oForm			= oEvent.Source.Model.Parent
	oMensaje		= ""
	oMensaje		= oMensaje & "Este proceso realiza las siguientes actividades:" & Chr(13)
	oMensaje		= oMensaje & "* Marca el presupuesto como aprobado y no permite su modificacion." & Chr(13)
	oMensaje		= oMensaje & "* Genera una obligacion para el cliente en su cuenta corriente." & Chr(13)
	oMensaje		= oMensaje & "* Genera una Orden de Trabajo (OT) para Producción/Taller." & Chr(13) & Chr(13)
	oMensaje		= oMensaje & "¿Desea Aprobar este Presupuesto?"
	
	if MsgBox(oMensaje,MB_YESNO+MB_ICONEXCLAMATION,"Atención") = IDYES AND Not(oForm.IsNew) Then
		oForm.getbyname("datVidQuoteFechaEst").BoundField.updateString(format(Clng(CDateToIso(Date)),"0000-00-00"))
		oForm.UpdateRow()
		'oEstado		= iiif(NOT(oForm.IsNew),oForm.getByName("txtVidQuoteEstado").CurrentValue,0)
		'oSubForm		= oForm.getByName("Productos")
		'oSubFormGrid	= oSubForm.getByName("ProductosGrid")
		'oSubFormGrid.setPropertyValue("Enabled",NOT(oEstado))
		'oSubForm.getByName("NavBarListaProductos").setPropertyValue("Enabled",NOT(oEstado))
		ControlFormPresupuesto()
	end if
end Sub
</pre></small>
== Bitácora ==
*20121030
**Se eliminan las líneas afectadas a redesplegar el presupuesto de acuerdo al Estado modificado y se reemplaza por [[MACRO:ControlFormPresupuesto
]]
*20121029
**Ultimo script
<small><pre>
Sub AprobacionPresupuesto (oEvent as Object)

Dim oEstado		AS Boolean

	oForm			= oEvent.Source.Model.Parent
	oMensaje		= ""
	oMensaje		= oMensaje & "Este proceso realiza las siguientes actividades:" & Chr(13)
	oMensaje		= oMensaje & "* Marca el presupuesto como aprobado y no permite su modificacion." & Chr(13)
	oMensaje		= oMensaje & "* Genera una obligacion para el cliente en su cuenta corriente." & Chr(13)
	oMensaje		= oMensaje & "* Genera una Orden de Trabajo (OT) para Producción/Taller." & Chr(13) & Chr(13)
	oMensaje		= oMensaje & "¿Desea Aprobar este Presupuesto?"
	
	if MsgBox(oMensaje,MB_YESNO+MB_ICONEXCLAMATION,"Atención") = IDYES AND Not(oForm.IsNew) Then
		oForm.getbyname("datVidQuoteFechaEst").BoundField.updateString(format(Clng(CDateToIso(Date)),"0000-00-00"))
		oForm.UpdateRow()
		oEstado		= iiif(NOT(oForm.IsNew),oForm.getByName("txtVidQuoteEstado").CurrentValue,0)
		oSubForm		= oForm.getByName("Productos")
		oSubFormGrid	= oSubForm.getByName("ProductosGrid")
		oSubFormGrid.setPropertyValue("Enabled",NOT(oEstado))
		oSubForm.getByName("NavBarListaProductos").setPropertyValue("Enabled",NOT(oEstado))
	end if
end Sub
</pre></small>
== Uso ==