== Descripción ==
Detecta que Control presiona y dependiendo de ello, ejecuta el calculo a través del [[PROC:ActualizaPreciosTabular]]
== Composición ==
== Codigo ==
<pre>
function RecalculaPrecios( oEvent ) as boolean
Dim SQLStatement As Object
Dim strSQLSearch As String
Dim strQRYSearch As String
Dim oConnection As Object
Dim oForm As Object
Dim TextoMensaje As String
Dim oBotonSeleccionado As String
Dim oTextoVariable As String
Dim oAccion As String
Dim oFiltro As String
Dim vProductoIDOrg, vProductoIDDst As String
	RecalculaPrecios = False
	oForm=oEvent.Source.Model.Parent
	oBotonSeleccionado=oEvent.Source.Model.Name
	select case oBotonSeleccionado
		case "BotonOpcionATP001":
			oTextoVariable="Precios en base al Costo"
			oAccion="1"
		case "BotonOpcionATP002":
			oTextoVariable="Costo en Base a Precio 1"
			oAccion="2"
		case "BotonOpcionATP003":
			oTextoVariable="Costo en Base a Precio 2"
			oAccion="3"
		case "BotonOpcionATP004":
			oTextoVariable="Costo en Base a Precio 3"
			oAccion="4"	
	end select
	TextoMensaje = "¿Está seguro de modificar los valores de " & oTextoVariable & " en base al filtro seleccionado?"
 	select case msgBox(TextoMensaje, 1, "!Atención!" )
 		case 1:
			oConnection = oEvent.Source.Model.getParent().ActiveConnection
			oFiltro = oForm.Filter
			if oForm.Filter<>"" then
				oFiltro = ReemplazaStr(oFiltro,"`ProductoID` IN","`precios`.`ProductoID` IN")
			end if
			'msgBox(oFiltro)
			SQLStatement = oConnection.preparestatement("CALL ActualizaPreciosTabular(?,?)")
	    	SQLStatement.setstring(1,oFiltro)
	    	SQLStatement.setstring(2,oAccion)
	    	SQLStatement.execute()
			SQLStatement.close()
			RecalculaPrecios = True
		case 2:
			RecalculaPrecios = False
	end select
	oForm.reload()
end function
</pre>
== Bitácora ==
*20120907
**Última actualización
== Uso ==
*[[FORM:PreciosTabularxProcesos]]