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

-- limpieza de código de mandar idcta de contpaq

Browse Source
This commit is contained in:
rrene
2023-08-09 19:00:12 -07:00
parent eb4abbe9a5
commit 4e13b96c3a
90 changed files with 1583 additions and 10362 deletions
Download Patch File Download Diff File Expand all files Collapse all files

189
asmx/WS_PuntoVenta.asmx
View File

@@ -1,4 +1,4 @@
<%@ WebService Language="VB" Class="WS_PuntoVenta" %>
<%@ WebService Language="VB" Class="WS_PuntoVenta" %>
Imports System.Data
Imports System.Web.Services
Imports Extensiones
@@ -37,10 +37,7 @@ Public Class WS_PuntoVenta
Public Property Oferta As Double
Public Property IVA As Double
Public Property RetIVA As Double
Public Property MargenGanancia As Double
Public Property IdCtaContVentas As Integer
Public Property IdCtaContCompras As Integer
Public Property IdCtaContInventarios As Integer
Public Property MargenGanancia As Double
Public Property AsientoContableVentas As Integer
Public Property AsientoContableCompras As Integer
Public Property AplicaParaConcepto As Boolean
@@ -409,7 +406,7 @@ Public Class WS_PuntoVenta
Public CveMovimientoAlmacen As Integer
Public CveActivoFijo As Integer
End Class
End Class
End Class
#Region "Empresas, Sucursales, Clientes, Monedas, UnidadesMedida, Vta_Promociones, Vta_PromocionesDetalle"
<WebMethod()>
Public Function GetEmpresa(CveEmpresa As Integer) As RespuestaWS
@@ -545,9 +542,9 @@ Public Class WS_PuntoVenta
objMonedas.Dispose()
Return Respuesta
End Function
End Function
#End Region
#Region "ProductosServicios"
<WebMethod()>
Public Function GetProductosServicios(CvePS As Integer, CveClasificacion As Integer, Codigo As String, PS As String, CveEmpresa As Integer, CveSubProyecto As Integer) As RespuestaWS
@@ -666,9 +663,9 @@ Public Class WS_PuntoVenta
objPSPaquetes.Dispose()
Return Respuesta
End Function
End Function
#End Region
#Region "Usuarios"
<WebMethod()>
Public Function GetUsuariosDetalle(CveUsuario As Integer) As UsuarioWS
@@ -791,9 +788,9 @@ Public Class WS_PuntoVenta
objUsuariosProcesos.Dispose()
Return Respuesta
End Function
End Function
#End Region
#Region "MetodosPago"
<WebMethod()>
Public Function GetMetodosPagos() As RespuestaWS
@@ -808,10 +805,10 @@ Public Class WS_PuntoVenta
objMetodoPago.Dispose()
Return Respuesta
End Function
End Function
#End Region
#Region "Ventas"
<WebMethod()>
Public Function AddVenta(ArregloVentas As ClsVentaWS()) As List(Of ListItem)
@@ -938,9 +935,7 @@ Public Class WS_PuntoVenta
'Ingresar PrePoliza si no esta pagada
If Errores = False And ErrorDetalles = False And TotalPagado < objVenta.Total Then
Dim CveIE As Integer = -1
Dim IdCtaContClientes As Integer
Dim CveIE As Integer = -1
Dim CveConceptoAfectacion As Integer = 1 'Cliente
Dim CveConceptoAntCli As Integer = 3 'Anticipo Cliente
Dim CveConceptoVenta As Integer = 4 'Venta
@@ -948,26 +943,8 @@ Public Class WS_PuntoVenta
Dim CveConceptoDSV As Integer = 12 ' DSV
Dim CveConceptoIVA As Integer = 13 'IVA Trasladado
Dim CveConceptoRetIVA As Integer = 8 'Ret IVA
Dim CveConceptoRetISR As Integer = 9 'Ret ISR
Dim IdCtaContDSV As Integer
Dim ObjFisConfiguracion As New ClsFISConfiguracion
If ObjFisConfiguracion.GetConfiguracion(objVenta.CveEmpresa) Then
IdCtaContDSV = ObjFisConfiguracion.ERDSV
Else
IdCtaContDSV = 0
End If
ObjFisConfiguracion.Dispose()
Dim ObjCliente As New ClsClientes()
If ObjCliente.GetClientes(objVenta.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, objVenta.CveEmpresa) Then
If ObjCliente.DtResultados.Rows.Count > 0 Then
IdCtaContClientes = ObjCliente.IdCtaContClientes
End If
End If
ObjCliente.Dispose()
Dim CveConceptoRetISR As Integer = 9 'Ret ISR
If CvePrePoliza > 0 Then
Dim TipoMovimientoVenta As Boolean = True
Dim TipoMovimientoImpuestos As Boolean = False
@@ -989,7 +966,7 @@ Public Class WS_PuntoVenta
'Se agregan los DSV DESCUENTOS
ImporteMov = objVenta.Descuento
If ImporteMov <> 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, " ", CveConceptoDSV, " ", objVenta.Fecha, IdCtaContDSV, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, ImporteMX:=ImporteMov) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, " ", CveConceptoDSV, " ", objVenta.Fecha, 0, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, ImporteMX:=ImporteMov) Then
ErrorMovtosDSV = True
End If
End If
@@ -998,7 +975,7 @@ Public Class WS_PuntoVenta
'Se agregan las CxC
ImporteMov = objVenta.Total - TotalPagado
If ImporteMov <> 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, " ", CveConceptoAfectacion, " ", objVenta.Fecha, IdCtaContClientes, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, ImporteMX:=ImporteMov) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, " ", CveConceptoAfectacion, " ", objVenta.Fecha, 0, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, ImporteMX:=ImporteMov) Then
ErrorMovtosCxC = True
End If
End If
@@ -1007,7 +984,7 @@ Public Class WS_PuntoVenta
ImporteMov = TotalPagado
If ImporteMov <> 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, " ", 2, " ", objVenta.Fecha, IdCtaContClientes, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, ImporteMX:=ImporteMov) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, " ", 2, " ", objVenta.Fecha, 0, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, ImporteMX:=ImporteMov) Then
ErrorMovtosCxC = True
End If
End If
@@ -1074,11 +1051,11 @@ Public Class WS_PuntoVenta
Return CveVentas
End Function
End Function
#End Region
#Region "Cortes"
<WebMethod()>
Public Function GetVtaCortes(FechaI As String, FechaF As String, CveUsuario As Integer, CveEmpresa As Integer, Finalizado As Integer) As List(Of ClsVtaCortesWS)
@@ -1284,10 +1261,10 @@ Public Class WS_PuntoVenta
ObjIE.Dispose()
Return Respuesta
End Function
End Function
#End Region
#Region "Vendedores"
<WebMethod()>
Public Function GetVendedores(CveEmpresa As Integer) As RespuestaWS
@@ -1406,65 +1383,65 @@ Public Class WS_PuntoVenta
objInventario.Dispose()
Return Respuesta
End Function
End Function
#End Region
#Region "Contabilidad"
'<WebMethod()> _
'Public Function GetConta_ConceptosContables() As RespuestaWS
' Dim objConta As New ClsContabilidad
' Dim Respuesta As New RespuestaWS
' If objConta.GetConta_ConceptosContables() Then
' Respuesta.Datos = objConta.DtResultados
' Respuesta.Datos.TableName = "Conta_ConceptosContables"
' Respuesta.HuboError = False
' End If
' objConta.Dispose()
' Return Respuesta
'End Function
'<WebMethod()> _
'Public Function AddPrePolizas(ArregloPrePolizas As ClsPrePolizaWS()) As List(Of ListItem)
' Dim Errores As Boolean = False
' Dim CvePrePolizas As New List(Of ListItem)
' Dim CvePrePoliza As Integer
' Dim objConta As New ClsContabilidad
' For Each objPrepoliza As ClsPrePolizaWS In ArregloPrePolizas
' objConta.IniciaTransacSQL()
' CvePrePoliza = objConta.AddPrePolizas(objPrepoliza.Modulo, objPrepoliza.CveTipoPoliza, objPrepoliza.Cargos, objPrepoliza.Abonos, objPrepoliza.CveMoneda, objPrepoliza.Fecha, objPrepoliza.CveUsuario, objPrepoliza.CveEmpresa)
' If CvePrePoliza > 0 Then
' 'Ingresar los detalles
' For Each Detalle As ClsPrePolizaWS.ClsPrePolizaDetalleWS In objPrepoliza.Detalle
' If objConta.AddPrePolizasDetalle(objPrepoliza.CvePrepoliza, Detalle.TipoMovto, Detalle.Importe, Detalle.Referencia, Detalle.CveConceptoContable, Detalle.Concepto, Detalle.FechaVencimiento, Detalle.IdCtaContable, Detalle.IdSegmentoNegocio, Detalle.CveIE, Detalle.CveVenta, Detalle.CveCompra, Detalle.CveSubProyecto, Detalle.CveCliente, Detalle.CveProveedor, Detalle.CvePersonal, Detalle.CveMovimientoAlmacen, Detalle.CveActivoFijo) = False Then
' 'Error al ingresar el detalle de la venta
' Errores = True
' Exit For
' End If
' Next
' End If
' If Errores = False Then
' objConta.Commit()
' CvePrePolizas.Add(New ListItem(objPrepoliza.CvePrepolizaTerminal.ToString, CvePrePoliza.ToString))
' Else
' objConta.RollBack()
' CvePrePolizas.Add(New ListItem(objPrepoliza.CvePrepolizaTerminal.ToString, "-1"))
' End If
' Next
' objConta.Dispose()
' Return CvePrePolizas
'End Function
'<WebMethod()> _
'Public Function GetConta_ConceptosContables() As RespuestaWS
' Dim objConta As New ClsContabilidad
' Dim Respuesta As New RespuestaWS
' If objConta.GetConta_ConceptosContables() Then
' Respuesta.Datos = objConta.DtResultados
' Respuesta.Datos.TableName = "Conta_ConceptosContables"
' Respuesta.HuboError = False
' End If
' objConta.Dispose()
' Return Respuesta
'End Function
'<WebMethod()> _
'Public Function AddPrePolizas(ArregloPrePolizas As ClsPrePolizaWS()) As List(Of ListItem)
' Dim Errores As Boolean = False
' Dim CvePrePolizas As New List(Of ListItem)
' Dim CvePrePoliza As Integer
' Dim objConta As New ClsContabilidad
' For Each objPrepoliza As ClsPrePolizaWS In ArregloPrePolizas
' objConta.IniciaTransacSQL()
' CvePrePoliza = objConta.AddPrePolizas(objPrepoliza.Modulo, objPrepoliza.CveTipoPoliza, objPrepoliza.Cargos, objPrepoliza.Abonos, objPrepoliza.CveMoneda, objPrepoliza.Fecha, objPrepoliza.CveUsuario, objPrepoliza.CveEmpresa)
' If CvePrePoliza > 0 Then
' 'Ingresar los detalles
' For Each Detalle As ClsPrePolizaWS.ClsPrePolizaDetalleWS In objPrepoliza.Detalle
' If objConta.AddPrePolizasDetalle(objPrepoliza.CvePrepoliza, Detalle.TipoMovto, Detalle.Importe, Detalle.Referencia, Detalle.CveConceptoContable, Detalle.Concepto, Detalle.FechaVencimiento, Detalle.IdCtaContable, Detalle.IdSegmentoNegocio, Detalle.CveIE, Detalle.CveVenta, Detalle.CveCompra, Detalle.CveSubProyecto, Detalle.CveCliente, Detalle.CveProveedor, Detalle.CvePersonal, Detalle.CveMovimientoAlmacen, Detalle.CveActivoFijo) = False Then
' 'Error al ingresar el detalle de la venta
' Errores = True
' Exit For
' End If
' Next
' End If
' If Errores = False Then
' objConta.Commit()
' CvePrePolizas.Add(New ListItem(objPrepoliza.CvePrepolizaTerminal.ToString, CvePrePoliza.ToString))
' Else
' objConta.RollBack()
' CvePrePolizas.Add(New ListItem(objPrepoliza.CvePrepolizaTerminal.ToString, "-1"))
' End If
' Next
' objConta.Dispose()
' Return CvePrePolizas
'End Function
#End Region
#Region "ENVIO CORREO"
Protected Sub EnviarCorreo(CveCorte As Integer, CveEmpresa As Integer)
Dim Body As String ''GlobalDTUsuarios(CveUsuario)(0)("correo").ToString
@@ -1737,7 +1714,7 @@ Public Class WS_PuntoVenta
objPV.Dispose()
Return strBody.ToString
End Function
End Function
#End Region
End Class