AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cantidad minima

Browse Source
This commit is contained in:
rrene
2020-10-06 09:58:12 -07:00
parent be84bb2f7d
commit 9cf113c724
1 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
App_Code/ClsProductosServicios.vb
View File

@@ -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)