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

cambios de extensiones .SUM de double a decimal

Browse Source
This commit is contained in:
rrene
2023-11-12 21:21:50 -07:00
parent 7ab88313cb
commit 053512112c
57 changed files with 747 additions and 811 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
asmx/WSApp.asmx
View File

@@ -228,7 +228,7 @@ Public Class WSApp
<WebMethod()>
Public Function GetProductos(CvePrecioLista As Integer, CveClasificacion As Integer) As String
Dim retorno As String = "[]"
Dim CvePS = -1
Dim CvePS As Integer = -1
Dim ObjPS As New ClsProductosServicios
If ObjPS.GetPSExistenciasWS(CvePS, CvePrecioLista, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then
If CveClasificacion > 0 Then
@@ -261,7 +261,7 @@ Public Class WSApp
<WebMethod()>
Public Function AddPedido(CveCliente As Integer, CveSubProyecto As Integer, CveUsuario As Integer, Observaciones As String, Productos As String) As String
Dim Retorno = New Modelos.Factura.MMensajeFactura()
Dim Retorno As New Modelos.Factura.MMensajeFactura()
Try
Dim UsuarioActual As Usuario = ValidaUsuario(CveUsuario)
@@ -571,7 +571,7 @@ Public Class WSApp
Return Nothing
End If
End If
Dim ObjFactura = New Modelos.Factura(UsuarioActual)
Dim ObjFactura As New Modelos.Factura(UsuarioActual)
ObjFactura.DirectorioServidor = ModExtensiones.DirectorioBaseEmpresas
Dim ObjFolios As New ClsGralFolios()
@@ -690,12 +690,12 @@ Public Class WSApp
End If
ObjCliente.Dispose()
Dim TotalImporte As Decimal = ObjFactura.DtDetalle.SUM("TotalImporte").ToDecimal()
Dim ImporteIVA As Decimal = ObjFactura.DtDetalle.SUM("ImporteIVA").ToDecimal()
Dim ImporteRetIVA As Decimal = ObjFactura.DtDetalle.SUM("ImporteRetIVA").ToDecimal()
Dim ImporteRetISR As Decimal = ObjFactura.DtDetalle.SUM("ImporteRetISR").ToDecimal()
Dim ImporteIEPS As Decimal = ObjFactura.DtDetalle.SUM("ImporteIEPS").ToDecimal()
Dim Descuento As Decimal = ObjFactura.DtDetalle.SUM("Descuento").ToDecimal()
Dim TotalImporte As Decimal = ObjFactura.DtDetalle.SUM("TotalImporte")
Dim ImporteIVA As Decimal = ObjFactura.DtDetalle.SUM("ImporteIVA")
Dim ImporteRetIVA As Decimal = ObjFactura.DtDetalle.SUM("ImporteRetIVA")
Dim ImporteRetISR As Decimal = ObjFactura.DtDetalle.SUM("ImporteRetISR")
Dim ImporteIEPS As Decimal = ObjFactura.DtDetalle.SUM("ImporteIEPS")
Dim Descuento As Decimal = ObjFactura.DtDetalle.SUM("Descuento")
Dim Amortizacion As Decimal = 0
Dim Total As Decimal = (TotalImporte + ImporteIVA + ImporteIEPS) - (ImporteRetIVA + ImporteRetISR + Descuento + Amortizacion)
@@ -729,7 +729,7 @@ Public Class WSApp
End Function
Private Function CreaDTDetalle(ByRef Retorno As Modelos.Factura.MMensajeFactura, CveEmpresa As Integer, CvePrecioLista As Integer, CveSubProyecto As Integer, ClienteRetIVA As Double, ClienteRetISR As Double, ListaPS As List(Of MVentaProductos)) As DataTable
Dim TmpDT = New DataTable
Dim TmpDT As New DataTable
TmpDT.Columns.Add("CveVenta", GetType(Integer))
TmpDT.Columns.Add("Consec", GetType(Integer))
TmpDT.Columns.Add("Cantidad", GetType(Decimal))
@@ -828,7 +828,7 @@ Public Class WSApp
Return TmpDT
End Function
Private Function CreaDTInv(DtDetalle As DataTable) As DataTable
Dim TmpDT = New DataTable
Dim TmpDT As New DataTable
TmpDT.Columns.Add("CvePS", GetType(Integer))
TmpDT.Columns.Add("CveUM", GetType(Integer))
TmpDT.Columns.Add("Cantidad", GetType(Decimal))
@@ -881,7 +881,7 @@ Public Class WSApp
Dim ObjPS As New ClsProductosServicios
If ObjPS.GetPSPreciosLista(CveEmpresa, CvePrecioLista, CvePS:=PS.CvePS) Then
If ObjPS.DtResultados.Rows.Count > 0 Then
Dim PrecioLista = ObjPS.DtResultados.Rows(0)("PrecioLista").ToString().ToDecimal()
Dim PrecioLista As Decimal = ObjPS.DtResultados.Rows(0)("PrecioLista").ToString().ToDecimal()
If PrecioLista > 0 Then
PS.Precio = Math.Round(PrecioLista, 6)
Else