DamePrecio_Alquiler

Creado por David Miralpeix, Modificado el Vie, 16 Feb a 12:26 P. M. por David Miralpeix

Libreria	Clase	Metodo
AhoraRutinas	Rutinas	DamePrecio_Alquiler

Implementación:

 Function DamePrecio_Alquiler(
 ' Parámetros de entrada:
                             ByVal aIdArticulo As String, _
                             ByVal aIdCliente As String, _
                             ByVal aIdLista As Long, _
                             ByVal aCantidad As Double, _
                             ByVal aTipoAlquiler As String, _
 ' Parámetros de salida:
                             aPrecio_Euros As Double, _
                             aSeguro_Euros As Double, _
                             aDescuento As Double, _
                             aComision As Double, _
                             Optional aIdDelegacion As Long = -1)
 As Boolean

Descripción:

Busca en la base de datos los valores de precio alquiler para el artículo, devolviendo True si los encuentra, en cuyo caso los valores se devuelven en los parámetros de salida.

Código VB6:

aIdArticulo = "AJ1212"
aIdCliente ="3111212"
aIdLista = 1
aCantidad = 1
aTipoAlquiler = 1
  
gCn.AhoraProceso "DamePrecio_Alquiler", lRet, aIdArticulo, aIdCliente,
  aIdLista, aCantidad, aTipoAlquiler, aPrecio_Euros, aSeguro_Euros,
  aDescuento, aComision, aIdDelegacion
  
if (CBool(lRet)) then
  msgbox "El precio es " & CStr(aPrecio_Euros)
end if

Código C#:

using System;

namespace AhoraScriptsVacia
{
    public class Script_28 : AhoraOCX.AhoraBaseScript
    {
        public void Main()
        {
            string aIdArticulo = "AJ1212";
            string aIdCliente = "3111212";
            int aIdLista = 1;
            decimal aCantidad = 1;
            int aTipoAlquiler = 1;
            decimal aPrecio_Euros = 0;
            decimal aSeguro_Euros = 0;
            decimal aDescuento = 0;
            decimal aComision = 0;
            int aIdDelegacion = 0;
            bool lRet;
            
            Object[] lParam_AP_DamePrecio_Alquiler = { null, null, null, null, null, null, null, null, null, null };
            lParam_AP_DamePrecio_Alquiler = new Object[] { aIdArticulo, aIdCliente, aIdLista, aCantidad, aTipoAlquiler.ToString(), aPrecio_Euros, aSeguro_Euros, aDescuento, aComision, aIdDelegacion };
            
            gCn.AhoraProceso("DamePrecio_Alquiler", out lRet, lParam_AP_DamePrecio_Alquiler);
            if (lRet)
            {
                AhoraCore.VBA.Interaction.MsgBox("El precio es " + aPrecio_Euros);
            }
        }
    }
}