Libreria

Clase

Metodo

AhoraRutinas

Rutinas

DamePrecio_Articulo


Implementación:


 Function DamePrecio_Articulo (
 ' Parámetros de entrada:
             ByVal aIdArticulo As String, _
             ByVal aIdCliente As String, _
             ByVal aIdLista As Long, _
             ByVal aCantidad As Double, _
             ByVal aIdMoneda As Long, _
 ' Parámetros de salida:
                   aPrecio As Double, _
          Optional aIdMonedaDev As Long, _
          Optional aDescuento As Double, _
          Optional aComision As Double, _
          Optional aIdLista_Ret As Long, _
          Optional aDtoLP1 As Double, _
          Optional aDtoLP2 As Double, _
          Optional aDtoGD As Double, _
          Optional aIdAlmacen As Long = 0, _
          Optional aPrecioCosteEuros As Double, _
          Optional aPreciosGenericos As Long, _
          Optional aCampoPrecioCoste As String, _
          Optional aIdTipoUnidad As String, _
          Optional aFechaComprobacion As Variant, _
          Optional aIdDelegacion As Long = -1, _
          Optional aDtoLP3 As Double, _
          Optional aDtoLP4 As Double, _
          Optional aDtoLP5 As Double)
 As Boolean 


Descripción:


Busca en la base de datos los valores de precio 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"
gCn.AhoraProceso "DamePrecio_Articulo", False, aIdarticulo, aIdCliente,
      0, 0, EMonedas.eEuro, lPrecio_Euros,
      , , , , , , , , , , , , ,   gCn.IdDelegacion
msgbox "El precio es " & CStr(lPrecio _Euros)


Código C#:

using AhoraCl;
using AhoraCore;
using AhoraLogistica;
using AhoraUtil;
using System;

namespace AhoraScriptsVacia
{
    public class Script_29 : AhoraOCX.AhoraBaseScript
    {
        public void Main()
        {

            Object[] lParam_AP_DamePrecio_Articulo = { null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null };
            decimal _refpar_DamePrecio_Articulo_aDtoLP5 = 0;
            decimal _refpar_DamePrecio_Articulo_aDtoLP4 = 0;
            decimal _refpar_DamePrecio_Articulo_aDtoLP3 = 0;
            Valor _refpar_DamePrecio_Articulo_aFechaComprobacion = ValorEmpty.Value;
            string _refpar_DamePrecio_Articulo_aIdTipoUnidad = "";
            int _refpar_DamePrecio_Articulo_aPreciosGenericos = 0;
            decimal _refpar_DamePrecio_Articulo_aDtoGD = 0;
            decimal _refpar_DamePrecio_Articulo_aDtoLP2 = 0;
            decimal _refpar_DamePrecio_Articulo_aDtoLP1 = 0;
            int _refpar_DamePrecio_Articulo_aIdLista_Ret = 0;
            decimal _refpar_DamePrecio_Articulo_aComision = 0;
            decimal _refpar_DamePrecio_Articulo_aDescuento = 0;
            int _refpar_DamePrecio_Articulo_aIdMonedaDev = 0;
            decimal _refpar_DamePrecio_Articulo_aPrecio = 0;
            string _refpar_DamePrecio_Articulo_aCampoPrecioCoste = "";
            decimal lPrecioCoste = 0;
            int lIdLista = 0;
            string lCampo = "";
            _refpar_DamePrecio_Articulo_aPrecio = 0;
            _refpar_DamePrecio_Articulo_aIdMonedaDev = 0;
            _refpar_DamePrecio_Articulo_aDescuento = 0;
            _refpar_DamePrecio_Articulo_aComision = 0;
            _refpar_DamePrecio_Articulo_aIdLista_Ret = 0;
            _refpar_DamePrecio_Articulo_aDtoLP1 = 0;
            _refpar_DamePrecio_Articulo_aDtoLP2 = 0;
            _refpar_DamePrecio_Articulo_aDtoGD = 0;
            _refpar_DamePrecio_Articulo_aPreciosGenericos = 0;
            _refpar_DamePrecio_Articulo_aIdTipoUnidad = "";
            _refpar_DamePrecio_Articulo_aFechaComprobacion = ValorEmpty.Value;
            _refpar_DamePrecio_Articulo_aDtoLP3 = 0;
            _refpar_DamePrecio_Articulo_aDtoLP4 = 0;
            _refpar_DamePrecio_Articulo_aDtoLP5 = 0;
            string aIdArticulo = "0";
            string aIdCliente = "00001";
            int aIdAlmacen = 0;
            lParam_AP_DamePrecio_Articulo = new Object[] { aIdArticulo, aIdCliente, lIdLista, 1, (int)EMonedas.EEuro, _refpar_DamePrecio_Articulo_aPrecio, _refpar_DamePrecio_Articulo_aIdMonedaDev, _refpar_DamePrecio_Articulo_aDescuento, _refpar_DamePrecio_Articulo_aComision, _refpar_DamePrecio_Articulo_aIdLista_Ret, _refpar_DamePrecio_Articulo_aDtoLP1, _refpar_DamePrecio_Articulo_aDtoLP2, _refpar_DamePrecio_Articulo_aDtoGD, aIdAlmacen, lPrecioCoste, _refpar_DamePrecio_Articulo_aPreciosGenericos, _refpar_DamePrecio_Articulo_aCampoPrecioCoste, _refpar_DamePrecio_Articulo_aIdTipoUnidad, _refpar_DamePrecio_Articulo_aFechaComprobacion, gCn.DameValorCampo("SELECT IdDelegacion FROM Series_Facturacion WHERE SerieFactura = 0"), _refpar_DamePrecio_Articulo_aDtoLP3, _refpar_DamePrecio_Articulo_aDtoLP4, _refpar_DamePrecio_Articulo_aDtoLP5 };
            gCn.AhoraProceso("DamePrecio_Articulo", out _, lParam_AP_DamePrecio_Articulo);
        }
    }
}