[[Category:MACRO]]
== Descripción ==
Función de confirmación de eliminación de registro de [[TABLA:productos]]. Tiene asociado por medio de [[TRIG:productos.Baja_Producto]] la eliminación de los correspondientes en [[TABLA:precios]] y [[TABLA:composicion]]
== Biblioteca ==
*[[LIBR:FazzGlassMcr]]
== Composición ==
== Código ==
<small><pre>
function ConfirmeEliminarProductoCore (oEvent) as boolean

Dim oMensaje	As String

	if Left(oEvent.Source.Model.getByName("txtProductoID").CurrentValue,2) = "DT" Then
		oMensaje	= ""
		oMensaje	= oMensaje & "El codigo seleccionado no puede" & chr(13)
		oMensaje= oMensaje & "ser eliminado desde este proceso"
		MsgBox(oMensaje,MB_OK+MB_ICONEXCLAMATION,"Atencion")
		ConfirmeEliminarProductoCore = False
	else
		oMensaje	= ""
		oMensaje	= oMensaje & "   ¿Está seguro de eliminar la registración?" & chr(13)
		oMensaje= oMensaje & "(Puede generar inconsistencias en los procesos)"
	    select case MsgBox(oMensaje,MB_YESNO+MB_ICONEXCLAMATION,"Atencion") = IDYES
	        case IDYES : ConfirmeEliminarProductoCore = True
	        case IDNO  : ConfirmeEliminarProductoCore = False
	    end select
    end if
end function 
</pre></small>
== Bitácora ==
==== Bitácora.20131111 ====
*Se agrega la excepción de no permitir eliminar registros con código de producto con prefijo "T"
== Uso ==
*[[FORM:Productos]]