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);
            }
        }
    }
}