From 9cf113c724621cb2663dd9e4e206e6e673d4c4b6 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 6 Oct 2020 09:58:12 -0700 Subject: [PATCH] cantidad minima --- App_Code/ClsProductosServicios.vb | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index b4e247486..d64de3153 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -56,10 +56,8 @@ Public Class ClsProductosServicios Public Property CveMetodoInventario As Integer Public Property CveTipoPS As Integer Public Property Estado2 As Integer - Public Property CveMarca As Integer - - Public Property AlmacenSeccion As String - + Public Property CveMarca As Integer + Public Property IEPSPorcentaje As Double Public Property AplicaIEPS As Boolean @@ -283,7 +281,7 @@ Public Class ClsProductosServicios Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero - 'VentaMinima = Data.Rows(0)("VentaMinima").ToString.ToDecimal + VentaMinima = Data.Rows(0)("VentaMinima").ToString.ToDecimal CveMoneda = Data.Rows(0)("CveMoneda").ToString.ToEntero RetISR = Data.Rows(0)("RetISR").ToString.ToDouble @@ -2112,13 +2110,14 @@ Public Class ClsProductosServicios Return Retorno End Function - Public Function UpdateProductosServiciosSAT(CvePS As Integer, CveSATPS As Integer, CveUsuario As Integer) As Boolean + Public Function UpdateProductosServiciosSAT(CvePS As Integer, CveSATPS As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_ProductosServiciosSATUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CveSATPS", SqlDbType.Int).Value = CveSATPS .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try SqlAdapter.Fill(Data)