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

20
asmx/WS_PuntoVenta.asmx
View File

@@ -330,7 +330,7 @@ Public Class WS_PuntoVenta
Public NumeroPersonas As Integer
Public CveSubProyecto As Integer
Public CveEmpresa As Integer
Public Propina As Double
Public Propina As Decimal
Public Detalle As List(Of ClsVentaDetalleWS)
Public MetodoPago As List(Of ClsMetodosPagoWS)
@@ -339,16 +339,16 @@ Public Class WS_PuntoVenta
Public Class ClsVentaDetalleWS
Public CveVenta As Integer
Public CvePS As Integer
Public Cantidad As Double
Public Cantidad As Decimal
Public CveUnidadMedida As Integer
Public PU As Double
Public IVA As Double
Public TotalIVA As Double
Public Total As Double
Public PU As Decimal
Public IVA As Decimal
Public TotalIVA As Decimal
Public Total As Decimal
Public Observaciones As String
Public Oferta As Double
Public PrecioFinal As Double
Public Descuento As Double
Public Oferta As Decimal
Public PrecioFinal As Decimal
Public Descuento As Decimal
Public TipoDescuento As Integer
Public CveSubProyecto As Integer
Public EsPaquete As Boolean
@@ -954,7 +954,7 @@ Public Class WS_PuntoVenta
'Se agrega movimiento separado por la cuenta de ventas (ER)
' For Each Row As DataRow In DT.Rows
ImporteMov = objVenta.SubTotal
Dim CveClasificacion_04 = -1
Dim CveClasificacion_04 As Integer = -1
If ImporteMov <> 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoVenta, ImporteMov, ImporteMov, CveConceptoVenta, " ", " ", CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, CveSubProyecto:=objVenta.CveSubProyecto, CveClasificacion:=CveClasificacion_04) Then
ErrorMovtosVentas = True