== Descripción ==
Función para aplicar ante acción de eliminar registro en [[TABLA:vidquoten1]] y [[TABLA:vidquoten2]] dentro de [[FORM:Presupuesto]]
== Composición ==
[[FORM:Presupuesto]]
== Código ==
<small><pre>
Function ConfirmaDeletePresupuesto (oEvent as Object)

Dim oEstado		AS Boolean
	
	select case oEvent.Source.Model.Name
		Case "Cabecera"
			oForm			= oEvent.Source.Model
			oEstado			= oForm.getByName("txtVidQuoteEstado").CurrentValue
			if oEstado Then
				oMensaje	= ""
				oMensaje	= oMensaje & "No es posible eliminar un Presupuesto Aprobado"
				MsgBox(SplitMsg(oMensaje,40),MB_OK+MB_ICONEXCLAMATION,"Atención")
				ConfirmaDeletePresupuesto	= False
			else
				oMensaje	= ""
				oMensaje	= oMensaje & "Se procederá a eliminar el Presupuesto seleccionado. ¿Desea continuar?"
				if MsgBox(SplitMsg(oMensaje,40),MB_YESNO+MB_ICONEXCLAMATION,"Atención!") = IDYES Then
					'MsgBox "Eliminó"
					ConfirmaDeletePresupuesto	= True
				else
					ConfirmaDeletePresupuesto	= False
				end if
			end if
		Case "Productos"
			oForm		= oEvent.Source.Model.Parent
			oSubForm	= oEvent.Source.Model
			oEstado		= oForm.getByName("txtVidQuoteEstado").CurrentValue
			if oEstado Then
				oMensaje	= ""
				oMensaje	= oMensaje & "No es posible eliminar Productos de un Presupuesto Aprobado"
				MsgBox(SplitMsg(oMensaje,40),MB_OK+MB_ICONEXCLAMATION,"Atención")
				ConfirmaDeletePresupuesto	= False
			else
				oMensaje	= ""
				oMensaje	= oMensaje & "Se procederá a eliminar el Producto seleccionado. ¿Desea continuar?"
				if MsgBox(SplitMsg(oMensaje,40),MB_YESNO+MB_ICONEXCLAMATION,"Atención!") = IDYES Then
					'MsgBox "Eliminó"
					ConfirmaDeletePresupuesto	= True
				else
					ConfirmaDeletePresupuesto	= False
				end if
			end if
	end select
end Function
</pre></small>
== Bitácora ==
*20120909
**Alta de MACRO

== Uso ==
*[[FORM:Presupuesto]]
**EVNT:ConfirmDelete