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.
Ejemplo de uso:
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)