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

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-23 00:04:25 -07:00
parent 3bc4f72658
commit e5c000432f
28 changed files with 192 additions and 279 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
asmx/WSApp.asmx
View File

@@ -390,7 +390,7 @@ Public Class WSApp
If Not Retorno.TieneError Then
Dim DtInv As DataTable = Nothing
Dim ObjInv As New ClsInventarios()
ObjInv.GetMovimientos(-1, -1, "-1", UsuarioActual.CveEmpresa)
ObjInv.GetMovimientos(-1, -1, -1, UsuarioActual.CveEmpresa)
If ObjInv.DtResultados.Rows.Count > 0 Then
DtInv = ObjInv.DtResultados.FiltraParametros($"CveVenta = {CveVenta}")
ObjInv.Dispose()
@@ -578,22 +578,22 @@ Public Class WSApp
If ObjFolios.GetFolios("Rem", UsuarioActual.CveEmpresa) Then
Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format("CveSubProyecto = {0} And Estado = 'Activo'", CveSubProyecto))
If DT.Rows.Count > 0 Then
ObjFactura.Folio = DT.Rows(0)("FActual").ToString
ObjFactura.Folio = DT.Rows(0)("FActual").ToString.ToEntero
ObjFactura.Serie = DT.Rows(0)("Serie").ToString
End If
DT.Dispose()
End If
ObjFolios.Dispose()
If Not String.IsNullOrEmpty(ObjFactura.Folio) Then
If Not String.IsNullOrEmpty(ObjFactura.Folio.ToString) Then
Select Case CveMoneda
Case 1
ObjFactura.TipoCambio = "1"
ObjFactura.TipoCambio = 1
Case 2
ObjFactura.TipoCambio = ClsPaginas.GlobalTipoCambio(Now).ToString
ObjFactura.TipoCambio = ClsPaginas.GlobalTipoCambio(Now).ToDecimal
Case Else
ObjFactura.TipoCambio = ClsPaginas.GlobalTipoCambio(Now).ToString
ObjFactura.TipoCambio = ClsPaginas.GlobalTipoCambio(Now).ToDecimal
End Select
ObjFactura.CveVendedor = -1
@@ -766,7 +766,7 @@ Public Class WSApp
TmpDT.Columns.Add("TotalImporte", GetType(Decimal))
TmpDT.Columns.Add("Total", GetType(Decimal))
'Para uso del módulo contable
TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer))
TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer))
TmpDT.Columns.Add("AplicaParaConcepto", GetType(Boolean))
TmpDT.Columns.Add("CveProyecto", GetType(Integer))
TmpDT.Columns.Add("Proyecto", GetType(String))
@@ -922,7 +922,7 @@ Public Class WSApp
Row("CvePS") = PS.CvePS
Row("Obs") = PS.Obs
TotalCalculableImpuestos = (PS.Cantidad.Value * PS.Precio) - PS.Descuento
TotalCalculableImpuestos = (PS.Cantidad * PS.Precio) - PS.Descuento
Row("PU") = PS.Precio
Row("Codigo") = DrPS("Codigo")
@@ -955,8 +955,8 @@ Public Class WSApp
Row("Descuento") = Math.Round(PS.Descuento, 2)
Row("TipoDescuento") = "2"
Row("Total") = (PS.Cantidad.Value * PS.Precio)
Row("TotalImporte") = Math.Round(PS.Cantidad.Value * PS.Precio, 2)
Row("Total") = (PS.Cantidad * PS.Precio)
Row("TotalImporte") = Math.Round(PS.Cantidad * PS.Precio, 2)
Row("SATClaveProdServ") = DrPS("SATClavePS")
Row("SATClaveUM") = DrPS("SATClaveUnidadMedida")
@@ -1088,8 +1088,8 @@ Namespace WebServiceAppModels2
Public Property CveUsuario As Integer
Public Property Usuario As String
Public Property CveEmpresa As Integer
Public Property CveCliente As String
Public Property CvePrecioLista As String
Public Property CveCliente As Integer
Public Property CvePrecioLista As Integer
Public Property Procesos As List(Of String)
Public Property Empresa As String
Public Property Cliente As String
@@ -1712,11 +1712,11 @@ Namespace WebServiceAppModels2
Public Class MVentaProductos
Public Property CvePS As Integer
Public Property Cantidad As Double?
Public Property Cantidad As Decimal = 0
Public Property Obs As String
Public Property PS As String
Public Property Precio As Double
Public Property Descuento As Double
Public Property Precio As Decimal
Public Property Descuento As Decimal
End Class
Public Class MMessage