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

40
asmx/WS_PuntoVenta.asmx
View File

@@ -76,7 +76,7 @@ Public Class WS_PuntoVenta
Partial Public Class ClsMetodosPagoWS
Public Property CveMetodoPago As Integer
Public Property MetodoPago As String
Public Property Importe As Double
Public Property Importe As Decimal
Public Sub New()
@@ -296,15 +296,15 @@ Public Class WS_PuntoVenta
Public FolioFact As Integer
Public CveCliente As Integer
Public CveClienteSucursal As Integer
Public SubTotal As Double
Public Descuento As Double
Public Amortizacion As Double
Public IVA As Double
Public RetIVA As Double
Public RetISR As Double
Public Total As Double
Public SubTotal As Decimal
Public Descuento As Decimal
Public Amortizacion As Decimal
Public IVA As Decimal
Public RetIVA As Decimal
Public RetISR As Decimal
Public Total As Decimal
Public CveMoneda As Integer
Public TipoCambio As Double
Public TipoCambio As Decimal
Public CveMetodoPago As Integer
Public CondicionesPago As Integer
Public FormaPago As Integer
@@ -816,7 +816,7 @@ Public Class WS_PuntoVenta
Dim Errores As Boolean = False
Dim CveVentas As New List(Of ListItem)
Dim TotalPagado As Double = 0
Dim TotalPagado As Decimal = 0
For Each objVenta As ClsVentaWS In ArregloVentas
@@ -947,7 +947,7 @@ Public Class WS_PuntoVenta
If CvePrePoliza > 0 Then
Dim TipoMovimientoVenta As Boolean = True
Dim TipoMovimientoImpuestos As Boolean = False
Dim ImporteMov As Double
Dim ImporteMov As Decimal
'Se agregan los movimientos de la Venta
'If DT.Rows.Count > 0 Then
@@ -987,11 +987,10 @@ Public Class WS_PuntoVenta
ErrorMovtosCxC = True
End If
End If
'Se agregan el Traslado de IVA
ImporteMov = objVenta.IVA
If ImporteMov <> 0 Then
Dim PorcentajeImpuesto = 0
Dim PorcentajeImpuesto As Decimal = 0
If objVenta.SubTotal > 0 Then
PorcentajeImpuesto = (objVenta.IVA / objVenta.SubTotal)
End If
@@ -1200,7 +1199,7 @@ Public Class WS_PuntoVenta
'End Function
<WebMethod()>
Public Function AddBancosIE(Importe As Double, Moneda As Integer, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer, Cuenta As Integer, Comprobante As String, Opcion As String) As Boolean
Public Function AddBancosIE(Importe As Decimal, Moneda As Integer, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer, Cuenta As Integer, Comprobante As String, Opcion As String) As Boolean
Dim ObjIE As New ClsBancos()
Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
Dim Folio As Long
@@ -1211,7 +1210,7 @@ Public Class WS_PuntoVenta
Dim MsgError As String = ""
Dim CveConceptoContable As Integer = 4
Dim CveConceptoCompra As Integer = 30
Dim CIF As Double = 0
Dim CIF As Decimal = 0
Dim CvePlantillaPoliza As Integer = 4
Dim CveTipoPoliza As Integer = 1
Dim CvePrePoliza As Integer = 0
@@ -1227,15 +1226,14 @@ Public Class WS_PuntoVenta
Folio = Banco.GetNextFolio(Cuenta, CveTipoTransaccion)
Banco.Dispose()
CveIE = ObjIE.AddBancos_IE(Cuenta, CveTipoTransaccion, Fecha, Folio, "", Importe, Moneda,
CveIE = ObjIE.AddBancos_IE(Cuenta, CveTipoTransaccion, Fecha, Folio.ToString, "", Importe, Moneda,
0, Opcion, "", False, False, -1, CvePrePoliza, "pdf", CveUsuario, CveEmpresa)
If CveIE > 0 Then
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Importe, Importe, "", CveConceptoContable, " ", CveIE:=CveIE) Then
Dim IVA As Double = 0
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Importe - IVA - CIF, Importe - IVA - CIF, "", CveConceptoCompra, " ", CveIE:=CveIE) Then
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Importe, Importe, CveConceptoContable, "", " ", CveIE:=CveIE) Then
Dim IVA As Decimal = 0
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Importe - IVA - CIF, Importe - IVA - CIF, CveConceptoCompra, "", " ", CveIE:=CveIE) Then
Else
MsgError = "no se pudo insertar el detalle de la póliza2"
@@ -1243,9 +1241,7 @@ Public Class WS_PuntoVenta
Else
MsgError = "no se pudo insertar el detalle de la póliza"
End If
End If
End If
ObjIE.Commit()