DamePrecio_Alquiler

Creado por David Miralpeix, Modificado el Fri, 16 Feb 2024 a las 12:26 PM 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);
            }
        }
    }
}

¿Le ha sido útil este artículo?

¡Qué bien!

Gracias por sus comentarios

¡Sentimos mucho no haber sido de ayuda!

Gracias por sus comentarios

¡Háganos saber cómo podemos mejorar este artículo!

Seleccione al menos una de las razones
Se requiere la verificación del CAPTCHA.

Sus comentarios se han enviado

Agradecemos su esfuerzo e intentaremos corregir el artículo