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

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