diff --git a/AF/AF.aspx b/AF/AF.aspx index 33c02cd41..93728a570 100644 --- a/AF/AF.aspx +++ b/AF/AF.aspx @@ -154,20 +154,22 @@ -
-
- -
+
-
-
- - -
-
-
- -
+
+ +
+ +
+
+ + +
+
+
+ +
+
@@ -195,7 +197,7 @@
-
+
diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 562bcad8c..7bb4c2f9b 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -2758,9 +2758,10 @@ Partial Class AF_AF CaracClasif = "" Dim ObjAFCaracteristicas As New ClsAF - If ObjAFCaracteristicas.GetActivosFijosValores(CveActivoFijo, CveEmpresaActual) Then - - Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0} OR (CveTipoActivoFijo = {1} AND CveSubTipoActivoFijo IS NULL)", DdlSubTipoActivoFijo.SelectedValue, DdlTipoActivoFijo.SelectedValue), String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue)) + If ObjAFCaracteristicas.GetActivosFijosValores(CveActivoFijo, CveEmpresaActual) Then + + Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, $"CveSubTipoActivoFijo = {DdlSubTipoActivoFijo.SelectedValue} OR (CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue} AND CveSubTipoActivoFijo IS NULL) OR (CveTipoActivoFijo IS NULL AND CveSubTipoActivoFijo IS NULL)", $"CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue}") + 'Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0} OR (CveTipoActivoFijo = {1} AND CveSubTipoActivoFijo IS NULL)", DdlSubTipoActivoFijo.SelectedValue, DdlTipoActivoFijo.SelectedValue), String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue)) GvC.DataSource = ObjAFCaracteristicas.DtResultados.FiltraParametros(Filtro, "CaracteristicaClasificacion, Orden") If ObjAFCaracteristicas.GetCaracteristicasOpcionesSubTipo(-1, DdlSubTipoActivoFijo.SelectedValue.ToEntero, CveEmpresaActual) Then diff --git a/AF/CatClasificacionesCaracteristicas.aspx b/AF/CatClasificacionesCaracteristicas.aspx index 29c63c4cb..dd23bcc36 100644 --- a/AF/CatClasificacionesCaracteristicas.aspx +++ b/AF/CatClasificacionesCaracteristicas.aspx @@ -238,7 +238,7 @@ - + <%-- --%> @@ -298,9 +298,16 @@ + - + + + + + +   @@ -391,10 +398,16 @@ - + -   - + +
+
 
+
+
+ + + diff --git a/AF/CatClasificacionesCaracteristicas.aspx.vb b/AF/CatClasificacionesCaracteristicas.aspx.vb index 8f6b1e18f..e88d642e9 100644 --- a/AF/CatClasificacionesCaracteristicas.aspx.vb +++ b/AF/CatClasificacionesCaracteristicas.aspx.vb @@ -52,6 +52,7 @@ Partial Class AF_CatClasificacionesCaracteristicas 'Carga Globals para DT CargaTiposActivosFijos() + DdlTiposActivosFijosCA_SelectedIndexChanged(Nothing, Nothing) ''CargaCaracteristicasClasificaciones() 'CargaCaracteristicas() End If @@ -64,6 +65,7 @@ Partial Class AF_CatClasificacionesCaracteristicas DdlTiposActivosFijosCA.DataBind() DdlTiposActivosFijosOpciones.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) DdlTiposActivosFijosOpciones.DataBind() + 'DdlTiposActivosFijosCA.Items.Insert(0, New ListItem("Todos", "-1")) End Sub #Region "CLASIFICACIONES" @@ -198,10 +200,10 @@ Partial Class AF_CatClasificacionesCaracteristicas #Region "CARACTERISTICAS" Protected Sub LbAgregarCA_Click(sender As Object, e As System.EventArgs) Handles LbAgregarCA.Click - If DdlTiposActivosFijosCA.SelectedValue.ToEntero < 0 And DdlSubTiposActivosFijosCA.SelectedValue.ToEntero < 0 Then - Alert("Debe seleccionar un ActivoFijo o un SubActivoFijo", TipoMensaje.MsgAdvertencia) - Exit Sub - End If + 'If DdlTiposActivosFijosCA.SelectedValue.ToEntero < 0 And DdlSubTiposActivosFijosCA.SelectedValue.ToEntero < 0 Then + ' Alert("Debe seleccionar un ActivoFijo o un SubActivoFijo", TipoMensaje.MsgAdvertencia) + ' Exit Sub + 'End If Dim ObjCaracteristicas As New ClsAF If ObjCaracteristicas.AddCaracteristica(TxtCaracteristicaCA.Text.Trim, DdlClasificacionesCA.SelectedValue.ToEntero, DdlTiposActivosFijosCA.SelectedValue.ToEntero, DdlSubTiposActivosFijosCA.SelectedValue.ToEntero, DdlTipoCampoCA.SelectedValue.ToEntero, TxtLongitudCA.Text.Trim.ToEntero, DdlRequeridoCA.SelectedValue.ToEntero, TxtOrdenCA.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then @@ -261,7 +263,7 @@ Partial Class AF_CatClasificacionesCaracteristicas End If e.Row.Cells(0).Width = Unit.Pixel(95) 'TipoActivoFijo - e.Row.Cells(1).Width = Unit.Pixel(100) 'SubTipoActivoFIjo + e.Row.Cells(1).Width = Unit.Pixel(140) 'SubTipoActivoFIjo e.Row.Cells(2).Width = Unit.Pixel(110) 'Clasificacion e.Row.Cells(3).Width = Unit.Pixel(120) 'Caracteristica e.Row.Cells(4).Width = Unit.Pixel(70) 'Orden @@ -271,8 +273,8 @@ Partial Class AF_CatClasificacionesCaracteristicas e.Row.Cells(8).Width = Unit.Pixel(70) 'Estatus e.Row.Cells(9).Width = Unit.Pixel(75) 'FechaIng e.Row.Cells(10).Width = Unit.Pixel(75) 'Usuario - e.Row.Cells(11).Width = Unit.Pixel(55) ' - e.Row.Cells(12).Width = Unit.Pixel(61) ' + e.Row.Cells(11).Width = Unit.Pixel(70) ' + e.Row.Cells(12).Width = Unit.Pixel(55) ' e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left @@ -285,10 +287,18 @@ Partial Class AF_CatClasificacionesCaracteristicas 'End If If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then + e.Row.FCDropDownList("DdlTiposActivosFijosCA").DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlTiposActivosFijosCA").DataBind() + e.Row.FCDropDownList("DdlTiposActivosFijosCA").Items.Insert(0, New ListItem("Todos", "-1")) e.Row.FCDropDownList("DdlTiposActivosFijosCA").SelectedValue = e.Row.DBCampo("CveTipoActivoFijo") - e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} ", e.Row.FCDropDownList("DdlTiposActivosFijosCA").SelectedValue)) + + If e.Row.FCDropDownList("DdlTiposActivosFijosCA").SelectedValue.ToEntero > 0 Then + e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} ", e.Row.FCDropDownList("DdlTiposActivosFijosCA").SelectedValue)) + Else + e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa) + End If + e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").DataBind() e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").SelectedValue = e.Row.DBCampo("CveSubTipoActivoFijo") e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").Items.Insert(0, New ListItem("Todos", "-1")) @@ -376,7 +386,12 @@ Partial Class AF_CatClasificacionesCaracteristicas Dim ddl As DropDownList = gvr.FCDropDownList("DdlSubTiposActivosFijosCA") ddl.Items.Clear() - ddl.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} AND CveEmpresa = {1}", ddl1.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)) + If ddl1.SelectedValue.ToEntero > 0 Then + ddl.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} AND CveEmpresa = {1}", ddl1.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)) + Else + ddl.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa) + End If + ddl.DataBind() ddl.Items.Insert(0, New ListItem("Todos", "-1")) End Sub diff --git a/App_Code/ClsAC.vb b/App_Code/ClsAC.vb index 7cfe17261..947830fc4 100644 --- a/App_Code/ClsAC.vb +++ b/App_Code/ClsAC.vb @@ -41,7 +41,7 @@ Public Class ClsAC If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index a1197aa13..eb935027b 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -100,7 +100,7 @@ Public Class ClsAF If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsAIMMGM.vb b/App_Code/ClsAIMMGM.vb index 70a4b2ddb..e3521eb2a 100644 --- a/App_Code/ClsAIMMGM.vb +++ b/App_Code/ClsAIMMGM.vb @@ -50,7 +50,7 @@ Public Class ClsAIMMGM If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection SqlCommand = New SqlCommand("", SqlConexion) - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsAcarreos.vb b/App_Code/ClsAcarreos.vb index e192b5e48..447932c3b 100644 --- a/App_Code/ClsAcarreos.vb +++ b/App_Code/ClsAcarreos.vb @@ -35,7 +35,7 @@ Public Class ClsAcarreos If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 77940930c..9e1e30aa8 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -176,7 +176,7 @@ Public Class ClsBancos If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception @@ -1475,7 +1475,8 @@ Public Class ClsBancos NotificarA As String, EsAbonoEnCuenta As Boolean, AplicaImpuestos As Boolean, IDPoliza As Integer, CvePrePoliza As Integer, Comprobante As String, CveUsuario As Integer, CveEmpresa As Integer, Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1, Optional Referencia As String = "-1", Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False, - Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1, Optional ImporteDeduccionesPago As Decimal = -1) As Integer + Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1, Optional ImporteDeduccionesPago As Decimal = -1, + Optional AnticipoPuntual As Boolean = False) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Banc_IEAdd") @@ -1516,7 +1517,7 @@ Public Class ClsBancos .Add("@Modulo", SqlDbType.VarChar).Value = Modulo .Add("@CveOCAnticipo", SqlDbType.Int).Value = CveOCAnticipo .Add("@ImporteDeduccionesPago", SqlDbType.Money).Value = ImporteDeduccionesPago - + .Add("@AnticipoPuntual", SqlDbType.Bit).Value = AnticipoPuntual End With Try diff --git a/App_Code/ClsBase.vb b/App_Code/ClsBase.vb index 88069ab6c..4092ccec9 100644 --- a/App_Code/ClsBase.vb +++ b/App_Code/ClsBase.vb @@ -35,7 +35,7 @@ Public Class ClsBase SqlConexion = New SqlConnection SqlAdapter = New SqlDataAdapter("", SqlConexion) sqlCommand = New SqlCommand("", SqlConexion) - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception @@ -48,11 +48,11 @@ Public Class ClsBase If SqlConexion Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB End If If SqlConexion.ConnectionString = "" Then - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB End If If SqlConexion.State <> ConnectionState.Open Then diff --git a/App_Code/ClsCGame.vb b/App_Code/ClsCGame.vb index bea872334..753dfe152 100644 --- a/App_Code/ClsCGame.vb +++ b/App_Code/ClsCGame.vb @@ -49,7 +49,7 @@ Public Class ClsCGame If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb index 866c58dfa..a0fb2d0c7 100644 --- a/App_Code/ClsCRM.vb +++ b/App_Code/ClsCRM.vb @@ -38,7 +38,7 @@ Public Class ClsCRM If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsClaseBase.vb b/App_Code/ClsClaseBase.vb index 026d983d0..b607febca 100644 --- a/App_Code/ClsClaseBase.vb +++ b/App_Code/ClsClaseBase.vb @@ -34,7 +34,7 @@ Public Class ClsClaseBase EsTransaccion = True Else SqlConexion = New SqlConnection() - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() SqlAdapter = New SqlDataAdapter("", SqlConexion) diff --git a/App_Code/ClsClasificaciones.vb b/App_Code/ClsClasificaciones.vb index bb1535594..fb2c585bf 100644 --- a/App_Code/ClsClasificaciones.vb +++ b/App_Code/ClsClasificaciones.vb @@ -40,7 +40,7 @@ Public Class ClsClasificaciones If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index e3d47be18..5764b4f20 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -158,6 +158,7 @@ Public Class ClsClientes Public Property RegimenFiscal As String Public Property RepresentanteLegal As String Public Property CveAlmacenAsignado As Integer = -1 + Public Property CveAlmacenAlterno As Integer = -1 Public Property UsaProductoAlterno As Boolean = False @@ -167,7 +168,7 @@ Public Class ClsClientes If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception @@ -407,8 +408,8 @@ Public Class ClsClientes _CodigoRegimenFiscal = Data(0)("CodigoRegimenFiscal").ToString _RepresentanteLegal = Data(0)("RepresentanteLegal").ToString _CveAlmacenAsignado = Data(0)("CveAlmacenAsignado").ToString.ToEntero + _CveAlmacenAlterno = Data(0)("CveAlmacenAlterno").ToString.ToEntero _UsaProductoAlterno = CBool(Data(0)("UsaProductoAlterno")) - Me.CveAlmacenAsignado = Data(0)("CveAlmacenAsignado").ToString.ToEntero End If Retorno = True @@ -526,7 +527,7 @@ Public Class ClsClientes Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False, Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False, - Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional UsaProductoAlterno As Boolean = False) As Boolean + Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False) As Boolean Dim Retorno As Boolean = False @@ -655,6 +656,7 @@ Public Class ClsClientes .Add("@ComExtCP", SqlDbType.VarChar).Value = ComExtCP .Add("@Genero", SqlDbType.Bit).Value = Genero .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado + .Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno .Add("@UsaProductoAlterno", SqlDbType.Bit).Value = UsaProductoAlterno End With Try @@ -701,7 +703,7 @@ Public Class ClsClientes Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False, Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False, - Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional UsaProductoAlterno As Boolean = False) As Boolean + Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False) As Boolean Dim Retorno As Boolean = False @@ -840,6 +842,7 @@ Public Class ClsClientes .Add("@ComExtCP", SqlDbType.VarChar).Value = ComExtCP .Add("@Genero", SqlDbType.Bit).Value = Genero .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado + .Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno .Add("@UsaProductoAlterno", SqlDbType.Bit).Value = UsaProductoAlterno End With @@ -1049,7 +1052,7 @@ Public Class ClsClientes 'End Function Public Function AddSucursal(CveCliente As Integer, Sucursal As String, CveUsuario As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer, LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "", - Optional CveAlmacenAsignado As Integer = -1) As Boolean + Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_SucursalClienteAdd") @@ -1085,7 +1088,7 @@ Public Class ClsClientes .Add("@RFC", SqlDbType.VarChar).Value = RFC .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado - + .Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno End With @@ -1106,7 +1109,7 @@ Public Class ClsClientes End Function Public Function UpdateSucursal(Sucursal As String, Estatus As Boolean, CveCliente As Integer, CveClienteSucursal As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer, LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI33 As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "-1", - Optional CveAlmacenAsignado As Integer = -1) As Boolean + Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_SucursalClienteUpdate") @@ -1145,6 +1148,7 @@ Public Class ClsClientes .Add("@RFC", SqlDbType.VarChar).Value = RFC .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado + .Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno End With diff --git a/App_Code/ClsCompEstatusFactura.vb b/App_Code/ClsCompEstatusFactura.vb index 1d25c41b5..6f5547957 100644 --- a/App_Code/ClsCompEstatusFactura.vb +++ b/App_Code/ClsCompEstatusFactura.vb @@ -36,7 +36,7 @@ Public Class ClsCompEstatusFactura If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsCompProveedores.vb b/App_Code/ClsCompProveedores.vb index 51cb4c675..d30f714a2 100644 --- a/App_Code/ClsCompProveedores.vb +++ b/App_Code/ClsCompProveedores.vb @@ -96,7 +96,7 @@ Public Class ClsCompProveedores If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index c3f151af4..83ee9fe20 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -56,7 +56,7 @@ Public Class ClsCompras If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 86a7d6533..9afc08dcc 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -94,7 +94,7 @@ Public Class ClsContabilidad If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 60795a215..a5899031b 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -63,7 +63,7 @@ Public Class ClsContratos If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsDesarrollo.vb b/App_Code/ClsDesarrollo.vb index d796cb2cb..7095490ea 100644 --- a/App_Code/ClsDesarrollo.vb +++ b/App_Code/ClsDesarrollo.vb @@ -36,7 +36,7 @@ Public Class ClsDesarrollo Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsEdoc.vb b/App_Code/ClsEdoc.vb index 82e6cf1e7..9e05e4671 100644 --- a/App_Code/ClsEdoc.vb +++ b/App_Code/ClsEdoc.vb @@ -92,7 +92,7 @@ Public Class ClsEdoc #End Region Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsEdocumentacion.vb b/App_Code/ClsEdocumentacion.vb index d9ea682f3..d2f56e68f 100644 --- a/App_Code/ClsEdocumentacion.vb +++ b/App_Code/ClsEdocumentacion.vb @@ -47,7 +47,7 @@ Public Class ClsEdocumentacion If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsEncuestas.vb b/App_Code/ClsEncuestas.vb index d7a8e0a51..061eb3349 100644 --- a/App_Code/ClsEncuestas.vb +++ b/App_Code/ClsEncuestas.vb @@ -31,7 +31,7 @@ Public Class ClsEncuestas If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() ConexionAdd() diff --git a/App_Code/ClsEsquemasComisiones.vb b/App_Code/ClsEsquemasComisiones.vb index c5343c3af..4f1197bb7 100644 --- a/App_Code/ClsEsquemasComisiones.vb +++ b/App_Code/ClsEsquemasComisiones.vb @@ -51,7 +51,7 @@ Public Class ClsEsquemasComisiones If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsEstatusFactura.vb b/App_Code/ClsEstatusFactura.vb index 11c8ad64a..6a02b1340 100644 --- a/App_Code/ClsEstatusFactura.vb +++ b/App_Code/ClsEstatusFactura.vb @@ -36,7 +36,7 @@ Public Class ClsEstatusFactura If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsEventos.vb b/App_Code/ClsEventos.vb index 02fccac02..be21fb262 100644 --- a/App_Code/ClsEventos.vb +++ b/App_Code/ClsEventos.vb @@ -49,7 +49,7 @@ Public Class ClsEventos Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsFISConfiguracion.vb b/App_Code/ClsFISConfiguracion.vb index e59bed34d..f37d6d0da 100644 --- a/App_Code/ClsFISConfiguracion.vb +++ b/App_Code/ClsFISConfiguracion.vb @@ -46,7 +46,7 @@ Public Class ClsFISConfiguracion If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsFinanzas.vb b/App_Code/ClsFinanzas.vb index a5d52f0f9..1b1921f60 100644 --- a/App_Code/ClsFinanzas.vb +++ b/App_Code/ClsFinanzas.vb @@ -99,7 +99,7 @@ Public Class ClsFinanzas If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsFlotillas.vb b/App_Code/ClsFlotillas.vb index 569737e73..b6afc7a94 100644 --- a/App_Code/ClsFlotillas.vb +++ b/App_Code/ClsFlotillas.vb @@ -53,7 +53,7 @@ Public Class ClsFlotillas If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsGPS.vb b/App_Code/ClsGPS.vb index 2a38bb5aa..d9b6bad0b 100644 --- a/App_Code/ClsGPS.vb +++ b/App_Code/ClsGPS.vb @@ -52,7 +52,7 @@ Public Class ClsGPS If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsGPSHerramientas.vb b/App_Code/ClsGPSHerramientas.vb index 94a74b82c..770a1a6b0 100644 --- a/App_Code/ClsGPSHerramientas.vb +++ b/App_Code/ClsGPSHerramientas.vb @@ -30,7 +30,7 @@ Public Class ClsGPSHerramientas Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 27998c296..ef9e785c4 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -76,7 +76,7 @@ Public Class ClsGenerales If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsGralFolios.vb b/App_Code/ClsGralFolios.vb index 44608558c..37b91f2c2 100644 --- a/App_Code/ClsGralFolios.vb +++ b/App_Code/ClsGralFolios.vb @@ -62,7 +62,7 @@ Public Class ClsGralFolios If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsGralProductosServiciosCaracteristicas.vb b/App_Code/ClsGralProductosServiciosCaracteristicas.vb index 593903c4f..82d8d90a9 100644 --- a/App_Code/ClsGralProductosServiciosCaracteristicas.vb +++ b/App_Code/ClsGralProductosServiciosCaracteristicas.vb @@ -43,7 +43,7 @@ Public Class ClsGralProductosServiciosCaracteristicas Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsImpuestos.vb b/App_Code/ClsImpuestos.vb index 8f410fac2..2a4e5a556 100644 --- a/App_Code/ClsImpuestos.vb +++ b/App_Code/ClsImpuestos.vb @@ -33,7 +33,7 @@ Public Class ClsImpuestos If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsIndicadores.vb b/App_Code/ClsIndicadores.vb index c9d8275aa..3b2e685a2 100644 --- a/App_Code/ClsIndicadores.vb +++ b/App_Code/ClsIndicadores.vb @@ -37,7 +37,7 @@ Public Class ClsIndicadores If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 6e398afc5..e1327629c 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -162,7 +162,7 @@ Public Class ClsInventarios If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception @@ -1570,7 +1570,6 @@ Public Class ClsInventarios .Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes .Add("@GPO", SqlDbType.Int).Value = GPO .Add("@CodigoPS", SqlDbType.VarChar).Value = CodigoPS - End With Try @@ -1588,7 +1587,8 @@ Public Class ClsInventarios End Function - Public Function GetKardex(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional AgruparAlmacen As Boolean = False, Optional Serie As String = "-1", Optional CveAlmacenes As String = "-1") As Boolean + Public Function GetKardex(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, + Optional AgruparAlmacen As Boolean = False, Optional Serie As String = "-1", Optional CveAlmacenes As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_KardexGet") @@ -1625,7 +1625,8 @@ Public Class ClsInventarios End Function - Public Function GetKardexPSNavegacion(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveAlmacenes As String = "-1", Optional Siguiente As Boolean = True) As Boolean + Public Function GetKardexPSNavegacion(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, + Optional CveAlmacenes As String = "-1", Optional Siguiente As Boolean = True, Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean Dim Retorno As Boolean = False @@ -1642,9 +1643,10 @@ Public Class ClsInventarios .Add("@CveTiposAlmacen", SqlDbType.VarChar).Value = CveTiposAlmacen .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveAlmacenes", SqlDbType.VarChar).Value = CveAlmacenes .Add("@Siguiente", SqlDbType.Bit).Value = Siguiente + .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio + .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin End With diff --git a/App_Code/ClsLeyendasFiscales.vb b/App_Code/ClsLeyendasFiscales.vb index 14da05f6f..33a8e1582 100644 --- a/App_Code/ClsLeyendasFiscales.vb +++ b/App_Code/ClsLeyendasFiscales.vb @@ -33,7 +33,7 @@ Public Class ClsLeyendasFiscales Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsMF.vb b/App_Code/ClsMF.vb index 518bbc842..946f78045 100644 --- a/App_Code/ClsMF.vb +++ b/App_Code/ClsMF.vb @@ -32,7 +32,7 @@ Public Class ClsMF If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsMetodosPagos.vb b/App_Code/ClsMetodosPagos.vb deleted file mode 100644 index fb55322f8..000000000 --- a/App_Code/ClsMetodosPagos.vb +++ /dev/null @@ -1,144 +0,0 @@ -Option Explicit On -Option Strict On - -Imports System.Data -Imports System.Data.SqlClient -Imports Extensiones - -Public Class ClsMetodosPagos - Implements IDisposable - -#Region "Campos" - - 'SQL - Private SqlConexion As SqlConnection - Private SqlAdapter As SqlDataAdapter - Private SqlCommand As SqlCommand - Private Data As DataTable - - 'Atributos de la clase - Private disposedValue As Boolean = False ' Para detectar llamadas redundantes - 'REGISTRAR CONEXIONES ABIERTAS - Private CveConexion As Integer = 0 - -#End Region - -#Region "Propiedades" - - Public ReadOnly Property DtResultados() As DataTable - Get - DtResultados = Data - End Get - End Property - -#End Region - - Sub New() - SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString - Try - SqlConexion.Open() - Catch ex As Exception - Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex) - End Try - SqlAdapter = New SqlDataAdapter("", SqlConexion) - ConexionAdd() - End Sub -#Region "Conexiones" - - Private Sub ConexionAdd() - If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then - Try - DataAdapter("PA_Sis_RegistrarConexion") - With SqlAdapter.SelectCommand.Parameters - .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name - .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString) - .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output - End With - SqlAdapter.Fill(Data) - CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero - Catch ex As Exception - OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - End If - End Sub - - Private Sub ConexionClose() - If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then - - DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - - Try - SqlAdapter.Fill(Data) - - Catch ex As Exception - OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - CveConexion = 0 - End If - - End Sub - Private Sub DataAdapter(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) - With SqlAdapter.SelectCommand - .Parameters.Clear() - .CommandText = pStrSQL - .CommandType = TipoComando - End With - Data = New DataTable - End Sub -#End Region - Public Function GetMetodosPago() As Boolean - Dim Retorno As Boolean = False - Data = New DataTable - SqlAdapter = New SqlDataAdapter("PA_MetodosPagosGet", SqlConexion) - SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As SqlException - OnError("Ocurrió un error al consultar los Métodos de Pago.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - SqlAdapter.Dispose() - Return Retorno - End Function - -#Region "IDisposable Support" - - - ' IDisposable - Protected Overridable Sub Dispose(disposing As Boolean) - If Not Me.disposedValue Then - If disposing Then - ' TODO: dispose managed state (managed objects). - If Not Data Is Nothing Then Data.Dispose() : Data = Nothing - If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing - If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing - If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() - If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing - - End If - - ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below. - ' TODO: set large fields to null. - End If - Me.disposedValue = True - End Sub - - ' TODO: override Finalize() only if Dispose(disposing As Boolean) above has code to free unmanaged resources. - 'Protected Overrides Sub Finalize() - ' ' Do not change this code. Put cleanup code in Dispose(disposing As Boolean) above. - ' Dispose(False) - ' MyBase.Finalize() - 'End Sub - - ' This code added by Visual Basic to correctly implement the disposable pattern. - Public Sub Dispose() Implements IDisposable.Dispose - ' Do not change this code. Put cleanup code in Dispose(disposing As Boolean) above. - ConexionClose() - Dispose(True) - GC.SuppressFinalize(Me) - End Sub -#End Region - -End Class diff --git a/App_Code/ClsModulos.vb b/App_Code/ClsModulos.vb index 19610b9bd..fe0b0c94b 100644 --- a/App_Code/ClsModulos.vb +++ b/App_Code/ClsModulos.vb @@ -134,7 +134,7 @@ Public Class ClsModulos Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsMonedas.vb b/App_Code/ClsMonedas.vb index 3a4ac8dcd..ab4a9a58c 100644 --- a/App_Code/ClsMonedas.vb +++ b/App_Code/ClsMonedas.vb @@ -38,7 +38,7 @@ Public Class ClsMonedas If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index 90f9a5b12..90618ea70 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -46,7 +46,7 @@ Public Class ClsMovimientos Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() @@ -367,6 +367,7 @@ Public Class ClsMovimientos End With Try + SqlAdapter.SelectCommand.CommandTimeout = 0 SqlAdapter.Fill(DS) Retorno = True Catch ex As Exception diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 418df87c3..c44001a64 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -165,7 +165,7 @@ Public Class ClsNominas End Sub Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() @@ -178,7 +178,7 @@ Public Class ClsNominas If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception @@ -2801,7 +2801,7 @@ Public Class ClsNominas .Add("@FactorISimula", SqlDbType.Decimal).Value = FactorISimula End With - + SqlAdapter.SelectCommand.CommandTimeout = 0 SqlAdapter.Fill(DTSet) retorno = True Catch sqEx As SqlException @@ -3209,7 +3209,7 @@ Public Class ClsNominas End Try Return retorno End Function - Public Function AddMovtoPermanente(cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As String, estatus As Boolean, CveCuenta As Integer, Optional CveIE As Integer = -1) As Integer + Public Function AddMovtoPermanente(cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer, Optional CveIE As Integer = -1) As Integer Dim retorno As Integer = 0 DataAdapter("PA_AddMovtoPermanente", CommandType.StoredProcedure) @@ -3221,7 +3221,7 @@ Public Class ClsNominas .Add("@valor", SqlDbType.Float).Value = (valor) .Add("@vecesAplicar", SqlDbType.Int).Value = (vecesAplicar) .Add("@montoLimite", SqlDbType.Decimal).Value = (montoLimite) - .Add("@fechaInicioAplicacion", SqlDbType.VarChar).Value = (fechaInicioAplicacion) + .Add("@fechaInicioAplicacion", SqlDbType.Date).Value = (fechaInicioAplicacion) .Add("@estatus", SqlDbType.Bit).Value = (estatus) .Add("@CveCuenta", SqlDbType.Int).Value = (CveCuenta) .Add("@CveIE", SqlDbType.Int).Value = (CveIE) @@ -3239,7 +3239,7 @@ Public Class ClsNominas End Try Return retorno End Function - Public Function UpMovtoPermanente(cveMovtoPermanente As Int32, cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As String, estatus As Boolean, CveCuenta As Integer) As Boolean + Public Function UpMovtoPermanente(cveMovtoPermanente As Int32, cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_UpMovtoPermanente", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters @@ -3251,7 +3251,7 @@ Public Class ClsNominas .Add("@valor", SqlDbType.Float).Value = (valor) .Add("@vecesAplicar", SqlDbType.Int).Value = (vecesAplicar) .Add("@montoLimite", SqlDbType.Decimal).Value = (montoLimite) - .Add("@fechaInicioAplicacion", SqlDbType.VarChar).Value = (fechaInicioAplicacion) + .Add("@fechaInicioAplicacion", SqlDbType.Date).Value = (fechaInicioAplicacion) .Add("@estatus", SqlDbType.Bit).Value = (estatus) .Add("@CveCuenta", SqlDbType.Int).Value = (CveCuenta) End With diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 28f1d50fd..029912473 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -157,7 +157,7 @@ Public Class ClsOC If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index 37c61db00..0e19ccc6d 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -157,7 +157,7 @@ Public Class ClsOIEventos If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb index 1f1c44696..1263b38d9 100644 --- a/App_Code/ClsOS.vb +++ b/App_Code/ClsOS.vb @@ -101,7 +101,7 @@ Public Class ClsOS If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsPV.vb b/App_Code/ClsPV.vb index 0e44deb77..e08ddaa83 100644 --- a/App_Code/ClsPV.vb +++ b/App_Code/ClsPV.vb @@ -52,7 +52,7 @@ Public Class ClsPV If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index f6868d9ec..ae4459a62 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -77,7 +77,7 @@ Public Class ClsPaginas Usuario.CerrarSession() Return Nothing Else - Return CType(Context.Session("UsuarioSIG"), Usuario) + Return DirectCast(Context.Session("UsuarioSIG"), Usuario) End If Catch ex As Exception Usuario.CerrarSession() @@ -85,6 +85,20 @@ Public Class ClsPaginas End Try End Get End Property + + Public Shared ReadOnly Property UsuarioActualRutaDB() As String + Get + Try + If HttpContext.Current.Session("UsuarioSIG") Is Nothing Then + Return "" + Else + Return DirectCast(HttpContext.Current.Session("UsuarioSIG"), Usuario).RutaDB + End If + Catch ex As Exception + Return "" + End Try + End Get + End Property Public Property CveModulo As Integer Get Try @@ -1171,7 +1185,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTMetodosPago" If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then - Dim ObjMetodoPago As New ClsMetodosPagos + Dim ObjMetodoPago As New ClsVentas If ObjMetodoPago.GetMetodosPago() Then HttpContext.Current.Application(AppNombre) = ObjMetodoPago.DtResultados ObjMetodoPago.Dispose() End If @@ -8863,7 +8877,7 @@ Public Class ClsPaginas Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(1, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor) 'cuando el Pago viene por NC, se utiliza un concepto - If Pago.TipoPago.Contiene("NC", "DEV") Then If CompraActual.CveMoneda = 2 Then ConPreP.CveConcepto = 304 Else ConPreP.CveConcepto = 272 'pago nota de crédito ME + If Pago.TipoPago.Contiene("NC", "DEV", "RNC") Then If CompraActual.CveMoneda = 2 Then ConPreP.CveConcepto = 304 Else ConPreP.CveConcepto = 272 'pago nota de crédito ME 'cuando el Pago viene por Venta, se utiliza un concepto 'If Pago.TipoPago.Contiene("Venta") Then If CompraActual.CveMoneda = 2 Then ConPreP.CveConcepto = 275 Else ConPreP.CveConcepto = 275 'Pago Compra con Venta @@ -9163,24 +9177,6 @@ Public Class ClsPaginas Ret.CveConceptoAcreditable = 333 Ret.CveConceptoxAcreditar = 334 End If - 'If UsuarioActual.Empresa.TipoContabilidad = 2 Then - ' Dim ObjConta As New ClsContabilidad - ' If UsuarioActual.Empresa.Funcionalidad(FuncionalidadxAcred).ToEntero > 0 Then - ' Ret.IdCtaContablexAcreditar = UsuarioActual.Empresa.Funcionalidad(FuncionalidadxAcred).ToEntero - ' Else - ' If ObjConta.GetRetCuenta(Ret.CveConceptoxAcreditar, UsuarioActual.CveEmpresa) Then - ' If ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero - ' End If - ' End If - ' If UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then - ' Ret.IdCtaContableAcreditable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero - ' Else - ' If ObjConta.GetRetCuenta(Ret.CveConceptoAcreditable, UsuarioActual.CveEmpresa) Then - ' If ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero - ' End If - ' End If - ' ObjConta.Dispose() - 'End If Return Ret End Get End Property @@ -10729,6 +10725,7 @@ Public Class ClsPaginas PaginaDict.Add("/Ventas/RepCotizacionesDetalle.aspx".ToUpper(), 430) PaginaDict.Add("/Ventas/RepVentasPV.aspx".ToUpper(), 9) PaginaDict.Add("/Ventas/RepVentaDetalle.aspx".ToUpper(), 9) + PaginaDict.Add("/Ventas/RepVentaDetalle.aspx?Menu=1".ToUpper(), 785) PaginaDict.Add("/Ventas/CatClasificaciones.aspx".ToUpper(), 12) PaginaDict.Add("/Ventas/CatClasificaciones2.aspx".ToUpper(), 396) PaginaDict.Add("/Ventas/CatClasificacionesDetalle.aspx".ToUpper(), 12) diff --git a/App_Code/ClsPresupuestos.vb b/App_Code/ClsPresupuestos.vb index b920feb35..ba7e03dfb 100644 --- a/App_Code/ClsPresupuestos.vb +++ b/App_Code/ClsPresupuestos.vb @@ -52,7 +52,7 @@ Public Class ClsPresupuestos If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index c9bcb106e..17d7860aa 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -112,7 +112,7 @@ Public Class ClsProductosServicios Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() @@ -139,7 +139,7 @@ Public Class ClsProductosServicios If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsProsEncuestas.vb b/App_Code/ClsProsEncuestas.vb index f15472b0d..dbe9fb6ea 100644 --- a/App_Code/ClsProsEncuestas.vb +++ b/App_Code/ClsProsEncuestas.vb @@ -38,7 +38,7 @@ Public Class ClsProsEncuestas If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsProspectos.vb b/App_Code/ClsProspectos.vb index 08aa72f85..dc09ffca4 100644 --- a/App_Code/ClsProspectos.vb +++ b/App_Code/ClsProspectos.vb @@ -151,7 +151,7 @@ Public Class ClsProspectos If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsProyectos.vb b/App_Code/ClsProyectos.vb index e5b3fe7a3..d108c8f74 100644 --- a/App_Code/ClsProyectos.vb +++ b/App_Code/ClsProyectos.vb @@ -42,7 +42,7 @@ Public Class ClsProyectos If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsPruebasJJMQ.vb b/App_Code/ClsPruebasJJMQ.vb index 1a812e2b5..4a6abd8f7 100644 --- a/App_Code/ClsPruebasJJMQ.vb +++ b/App_Code/ClsPruebasJJMQ.vb @@ -36,7 +36,7 @@ Public Class ClsPruebasJJMQ Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsPuntoVenta.vb b/App_Code/ClsPuntoVenta.vb index 416ba3ef3..cc16fe654 100644 --- a/App_Code/ClsPuntoVenta.vb +++ b/App_Code/ClsPuntoVenta.vb @@ -74,7 +74,7 @@ Public Class ClsPuntoVenta If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception @@ -404,6 +404,25 @@ Public Class ClsPuntoVenta OnError("Ocurrió un error al obtener los Movimientos de Caja del Cortes del Punto de Venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + Return Retorno + End Function + + Public Function GetVta_MovimientosCajasReporte(CveCorte As Integer, TipoMovimiento As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_MovimientosCajasRepGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCorte", SqlDbType.Int).Value = CveCorte + .Add("@TipoMovimiento", SqlDbType.Int).Value = TipoMovimiento + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de caja del cortes del punto de venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno End Function diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 8197581c5..c9290bf53 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -67,7 +67,7 @@ Public Class ClsRH If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception @@ -2719,6 +2719,27 @@ Public Class ClsRH OnError("Ocurrió un error al consultar las Asistencias del Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + Return Retorno + End Function + + + Public Function GetPersonalPreAsistenciaRegistros(InicioPeriodo As Date, FinPeriodo As Date, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + SqlDataAdapter("PA_RH_PersonalPreAsistenciaRegistrosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@InicioPeriodo", SqlDbType.Date).Value = InicioPeriodo + .Add("@FinPeriodo", SqlDbType.Date).Value = FinPeriodo + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al consultar las Asistencias del Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno End Function @@ -2768,6 +2789,44 @@ Public Class ClsRH End Function + Public Function AddPreAsistencia(CvePersonal As Integer, Fecha As Date, CveAsistenciasInasistencias As Integer, PorcentajePago As Double, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + Data = New DataTable + 'SqlAdapter = New SqlDataAdapter("PA_RH_PersonalAsistenciasAddUpd", SqlConexion) + 'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure + SqlDataAdapter("PA_RH_PersonalPreAsistenciasAddUpd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@CveAsistenciasInasistencias", SqlDbType.Int).Value = CveAsistenciasInasistencias + .Add("@PorcentajePago", SqlDbType.Float).Value = PorcentajePago + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue + End With + + Try + SqlAdapter.Fill(Data) + CveAsistencia = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya se registró la Asistencia del día " & Fecha & " para el empleado.", TipoMensaje.MsgAdvertencia) + ElseIf Ex1.Message.Contains("x50102;") Then + Alert("No se puede editar o agregar la asistencia ya que se encuentra vinculada a un periodo autorizado.", TipoMensaje.MsgAdvertencia) + GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al editar o agregar la asistencia ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())) + Else + Me.OnError("Ocurrió un error al guardar la Asistencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar la Pre Asistencia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function UpAsistenciaDetalle(CveEmpresa As Integer, CveUsuario As Integer, registros As List(Of RequestUpAsistenciaDetalle)) As Boolean Dim Retorno As Boolean = False Dim xmlProductos As System.Xml.Linq.XDocument = Nothing diff --git a/App_Code/ClsRMA.vb b/App_Code/ClsRMA.vb index 25726a92e..1b2244b6e 100644 --- a/App_Code/ClsRMA.vb +++ b/App_Code/ClsRMA.vb @@ -46,7 +46,7 @@ Public Class ClsRMA If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsRutas.vb b/App_Code/ClsRutas.vb index bde0252dc..bdafc4943 100644 --- a/App_Code/ClsRutas.vb +++ b/App_Code/ClsRutas.vb @@ -39,7 +39,7 @@ Public Class ClsRutas If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsSAT.vb b/App_Code/ClsSAT.vb index b7eb261df..35de3e019 100644 --- a/App_Code/ClsSAT.vb +++ b/App_Code/ClsSAT.vb @@ -62,7 +62,7 @@ Public Class ClsSAT 'ValidaDepurarConexiones(TransaccionCompartida) If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsSCTLicencias.vb b/App_Code/ClsSCTLicencias.vb index 7ae89385a..41c2b9c4a 100644 --- a/App_Code/ClsSCTLicencias.vb +++ b/App_Code/ClsSCTLicencias.vb @@ -47,7 +47,7 @@ Public Class ClsSCTLicencias Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try @@ -413,7 +413,7 @@ End Class ' Sub New() ' SqlConexion = New SqlConnection -' SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString +' SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB ' Try ' SqlConexion.Open() ' Catch ex As Exception diff --git a/App_Code/ClsSeguimiento.vb b/App_Code/ClsSeguimiento.vb index d3359629a..089a3b2df 100644 --- a/App_Code/ClsSeguimiento.vb +++ b/App_Code/ClsSeguimiento.vb @@ -29,7 +29,7 @@ Public Class ClsSeguimiento Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index c92c3b19a..a417989b0 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/App_Code/ClsSisEmpresas.vb @@ -204,11 +204,11 @@ Public Class ClsSisEmpresas 'Public Property PwdContPAQi As String #End Region - Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) + Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing, Optional NombreCadena As String = "Conexion") If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings(NombreCadena).ConnectionString Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsSisNotificaciones.vb b/App_Code/ClsSisNotificaciones.vb index 26574baba..d4f4ec8be 100644 --- a/App_Code/ClsSisNotificaciones.vb +++ b/App_Code/ClsSisNotificaciones.vb @@ -89,7 +89,7 @@ Public Class ClsSisNotificaciones #End Region Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsSisParametros.vb b/App_Code/ClsSisParametros.vb index 5773f5b29..0f4d8ae89 100644 --- a/App_Code/ClsSisParametros.vb +++ b/App_Code/ClsSisParametros.vb @@ -75,7 +75,7 @@ Public Class ClsSisParametros Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsSisProcesos.vb b/App_Code/ClsSisProcesos.vb index 5f7e1fd78..9f877382a 100644 --- a/App_Code/ClsSisProcesos.vb +++ b/App_Code/ClsSisProcesos.vb @@ -67,7 +67,7 @@ Public Class ClsSisProcesos Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsSisRoles.vb b/App_Code/ClsSisRoles.vb index c6777a6eb..6cc5d759b 100644 --- a/App_Code/ClsSisRoles.vb +++ b/App_Code/ClsSisRoles.vb @@ -37,7 +37,7 @@ Public Class ClsSisRoles If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb index 56477c6b5..be5aa595a 100644 --- a/App_Code/ClsSisUsuarios.vb +++ b/App_Code/ClsSisUsuarios.vb @@ -22,6 +22,7 @@ Public Class ClsSisUsuarios Private disposedValue As Boolean = False ' Para detectar llamadas redundantes 'PARA REGISTRAR CONEXION Private CveConexion As Integer = 0 + Private ConnStr As String = "" #End Region @@ -63,11 +64,12 @@ Public Class ClsSisUsuarios Public Property DescuentoAutorizado As Double #End Region - Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) + Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing, Optional NombreCadena As String = "Conexion") If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings(NombreCadena).ConnectionString + ConnStr = ConfigurationManager.ConnectionStrings(NombreCadena).ConnectionString Try SqlConexion.Open() Catch ex As Exception @@ -189,16 +191,12 @@ Public Class ClsSisUsuarios End Try Return Retorno End Function - Public Function ValidaUsuario(Usuario As String, Password As String, tIMEI As String, Optional CveEmpresa As Integer = -1, Optional GrupoEmpresa As String = "", Optional CvePlataforma As Integer = -1) As Usuario + Public Function ValidaUsuario(Usuario As String, Password As String, Optional CveEmpresa As Integer = -1, Optional GrupoEmpresa As String = "") As Usuario Dim Retorno As Usuario = Nothing - DataAdapter("PA_Sis_UsuariosGet") + DataAdapter("PA_Sis_UsuarioValidacionGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveUsuario", SqlDbType.Int).Value = -1 - .Add("@CveRol", SqlDbType.Int).Value = -1 .Add("@Usuario", SqlDbType.VarChar).Value = Usuario .Add("@Contraseña", SqlDbType.VarChar).Value = Password - .Add("@CvePlataforma", SqlDbType.Int).Value = CvePlataforma - .Add("@EsLogIn", SqlDbType.Bit).Value = 1 .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@GrupoEmpresa", SqlDbType.VarChar).Value = GrupoEmpresa End With @@ -230,12 +228,6 @@ Public Class ClsSisUsuarios Retorno.CveCliente = Data.Rows(0)("CveCliente").ToString().ToEntero() Retorno.CveProveedor = Data.Rows(0)("CveProveedor").ToString().ToEntero() - 'Retorno.CveSupervisor = Data.Rows(0)("CveSupervisor").ToString.ToEntero - 'Retorno.CveCoordinador = Data.Rows(0)("CveCoordinador").ToString.ToEntero - 'Retorno.CveProspecto = Data.Rows(0)("CveProspecto").ToString.ToEntero - 'Retorno.Referencia = Data.Rows(0)("Referencia").ToString - - '* Retorno.NombreAbreviatura = Data.Rows(0)("NombreAbreviatura").ToString() Retorno.DescuentoAutorizado = Data.Rows(0)("DescuentoAutorizado").ToString().ToDouble() @@ -245,6 +237,7 @@ Public Class ClsSisUsuarios Retorno.CodigoAutorizado = Data.Rows(0)("CodigoAutorizado").ToString() Dim autoip As String = Data.Rows(0)("AutorizadoxIP").ToString().ToUpper() Retorno.AutorizadoxIP = (autoip = "1" OrElse autoip = "TRUE") + Retorno.RutaDB = ConnStr ' Esto es parta el punto de venta Retorno.CveSucursal = Data.Rows(0)("CveSubProyecto").ToString().ToEntero @@ -3181,7 +3174,7 @@ End Class ' Sub New() ' SqlConexion = New SqlConnection -' SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString +' SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB ' Try ' SqlConexion.Open() ' Catch ex As Exception diff --git a/App_Code/ClsStiReports.vb b/App_Code/ClsStiReports.vb index 8d000882f..28563b8e4 100644 --- a/App_Code/ClsStiReports.vb +++ b/App_Code/ClsStiReports.vb @@ -43,7 +43,7 @@ Public Class ClsStiReports Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsSubProyectos.vb b/App_Code/ClsSubProyectos.vb index 2215fda48..bf6419ecc 100644 --- a/App_Code/ClsSubProyectos.vb +++ b/App_Code/ClsSubProyectos.vb @@ -36,7 +36,7 @@ Public Class ClsSubProyectos If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsSucursales.vb b/App_Code/ClsSucursales.vb index de03554ce..57407d3c7 100644 --- a/App_Code/ClsSucursales.vb +++ b/App_Code/ClsSucursales.vb @@ -99,7 +99,7 @@ Public Class ClsSucursales If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsSucursales.vb.exclude b/App_Code/ClsSucursales.vb.exclude index b7d3f0f00..9dcdcf579 100644 --- a/App_Code/ClsSucursales.vb.exclude +++ b/App_Code/ClsSucursales.vb.exclude @@ -101,7 +101,7 @@ Public Class ClsSucursales If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsTemporal.vb b/App_Code/ClsTemporal.vb index 75e1af8bf..642e06bb7 100644 --- a/App_Code/ClsTemporal.vb +++ b/App_Code/ClsTemporal.vb @@ -36,7 +36,7 @@ Public Class ClsTemporal If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsTiposEventos.vb b/App_Code/ClsTiposEventos.vb index 9da834644..b1f8a4e09 100644 --- a/App_Code/ClsTiposEventos.vb +++ b/App_Code/ClsTiposEventos.vb @@ -36,7 +36,7 @@ Public Class ClsTiposEventos Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsUnidadesMedida.vb b/App_Code/ClsUnidadesMedida.vb index ce7dd2a8b..d65865b1d 100644 --- a/App_Code/ClsUnidadesMedida.vb +++ b/App_Code/ClsUnidadesMedida.vb @@ -34,7 +34,7 @@ Public Class ClsUnidadesMedida Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() @@ -59,7 +59,7 @@ Public Class ClsUnidadesMedida If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index c6406dcbb..ff6047d0b 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -80,7 +80,7 @@ Public Class ClsVentas If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception @@ -275,6 +275,20 @@ Public Class ClsVentas Return Retorno End Function + + Public Function GetMetodosPago() As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_MetodosPagosGet") + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al consultar los Métodos de Pago.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + SqlAdapter.Dispose() + Return Retorno + End Function Public Function GetVentas(CveEmpresa As Integer, TipoDocto As String, Serie As String, Folio As Integer, Codigo As String, CveCliente As Integer, CveSubProyecto As Integer, CveEstatus As Integer, CveUsuario As Integer, FechaI As String, FechaF As String, FolioFiscal As String, Optional CveClienteSucursal As Integer = -1, Optional CvePS As Integer = -1, Optional PedidoContrato As String = "-1", Optional OrdenCompra As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional ClienteRFC As String = "-1", @@ -1620,7 +1634,7 @@ Public Class ClsVentas CveVendedor As String, CveUsuario As Integer, CveEstatus As String, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoDocto As String = "-1", Optional CveProyecto As Integer = -1, Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveUsuarioConsulta As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False, - Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1) As Boolean + Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFacturaGlobal As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasGetRep") @@ -1651,6 +1665,7 @@ Public Class ClsVentas .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable .Add("@CveTipoRelacion", SqlDbType.Int).Value = CveTipoRelacion .Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio + .Add("@EsFacturaGlobal", SqlDbType.Int).Value = EsFacturaGlobal End With Try @@ -1757,7 +1772,7 @@ Public Class ClsVentas CveSubProyectoEjecucion As Integer, CveEmpresa As Integer, FechaIEjec As Date, FechaFEjec As Date, Optional CveProyecto As Integer = -1, Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveMoneda As Integer = -1, Optional CveUsuarioConsulta As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False, - Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1) As Boolean + Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFacturaGlobal As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasGetRepDetalle") @@ -1793,6 +1808,7 @@ Public Class ClsVentas .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable .Add("@CveTipoRelacion", SqlDbType.Int).Value = CveTipoRelacion .Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio + .Add("@EsFacturaGlobal", SqlDbType.Int).Value = EsFacturaGlobal End With Try @@ -3531,7 +3547,7 @@ Public Class ClsVentas CveVentasError.Add(PCveVenta.ToEntero) Continue For End If - Usuario = ObjUsuario.ValidaUsuario(Nombre, Contraseña, IMEI) + Usuario = ObjUsuario.ValidaUsuario(Nombre, Contraseña) If ObjEmpresa.GetEmpresas(pCveEmpresa, "-1", "-1", "-1", "-1") Then Usuario.Empresa = ObjEmpresa.Empresa diff --git a/App_Code/ClsVtaPromociones.vb b/App_Code/ClsVtaPromociones.vb index 1df18d9a2..8b88f74e9 100644 --- a/App_Code/ClsVtaPromociones.vb +++ b/App_Code/ClsVtaPromociones.vb @@ -34,7 +34,7 @@ Public Class ClsVtaPromociones Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsVtaVendedores.vb b/App_Code/ClsVtaVendedores.vb index e6bd8101b..a4e7dfc10 100644 --- a/App_Code/ClsVtaVendedores.vb +++ b/App_Code/ClsVtaVendedores.vb @@ -29,7 +29,7 @@ Public Class ClsVtaVendedores Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() @@ -43,7 +43,7 @@ Public Class ClsVtaVendedores If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb index 2b0d41c6f..5a3da4e8d 100644 --- a/App_Code/Empresa.vb +++ b/App_Code/Empresa.vb @@ -97,7 +97,6 @@ Public Class Empresa Public Property Timbres As Integer Public Property _RutaArchivos As String Public Property ContaFormatoCuenta As String - Public ReadOnly Property Ruta As String Get If Not String.IsNullOrEmpty(_RutaArchivos) AndAlso ClsPaginas.EsProduccion Then diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 45da261d1..28c10e7e6 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -2428,30 +2428,30 @@ Public Class Timbrado Next End If - 'If Ventas.CveComplementoTimbrado > 0 Then + If Ventas.CveComplementoTimbrado > 0 Then - ' Select Case Ventas.CveComplementoTimbrado - ' Case 5 'INE Proceso Ordinario Directivo Estatal" - ' cfdi.Ine11("Ordinario", "Directivo Estatal", "0") + Select Case Ventas.CveComplementoTimbrado + Case 5 'INE Proceso Ordinario Directivo Estatal" + cfdi.Ine11("Ordinario", "Directivo Estatal", "0") - ' cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "") - ' cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad) - ' Case 6 'INE Proceso Ordinario Ejecutivo Estatal" - ' cfdi.Ine11("Ordinario", "Ejecutivo Estatal", "0") + cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "") + If Ventas.ComplementoINE.INEIdContabilidad > 0 Then cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad) + Case 6 'INE Proceso Ordinario Ejecutivo Estatal" + cfdi.Ine11("Ordinario", "Ejecutivo Estatal", "0") - ' cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "") - ' cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad) - ' Case 7 'INE Proceso Ordinario Ejecutivo Nacional" + cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "") + If Ventas.ComplementoINE.INEIdContabilidad > 0 Then cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad) + Case 7 'INE Proceso Ordinario Ejecutivo Nacional" - ' cfdi.Ine11("Ordinario", "Ejecutivo Nacional", Ventas.ComplementoINE.INEIdContabilidad.ToString) - ' Case 8 'INE PreCampaña - ' cfdi.Ine11(Ventas.ComplementoINE.INETipoProceso, "", "0") + cfdi.Ine11("Ordinario", "Ejecutivo Nacional", Ventas.ComplementoINE.INEIdContabilidad.ToString) + Case 8 'INE PreCampaña + cfdi.Ine11(Ventas.ComplementoINE.INETipoProceso, "", "") - ' cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, Ventas.ComplementoINE.INETipoComite) - ' cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad) - ' End Select + cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, Ventas.ComplementoINE.INETipoComite) + 'If Ventas.ComplementoINE.INEIdContabilidad > 0 Then cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad) + End Select - 'End If + End If @@ -3205,7 +3205,7 @@ concep.DescripcionesEspecificas.NumeroSerie) If result IsNot Nothing Then If result.timbradoOk Then Dim SelloCfdi As String - SelloCfdi = "" + SelloCfdi = cfdi.CfdiInfo.SelloCfdi UUID = result.UUID 'GUARDA EL XML RETORNADO POR EL PAC @@ -3224,7 +3224,6 @@ concep.DescripcionesEspecificas.NumeroSerie) Select Case ObjCFDITimbre.Comprobante.TipoComprobante Case "N" - Using ObjNomina2 As New ClsNominas() If ObjNomina2.UpdateEstatusNomNominas(3, CvePACEspecial, UUID, ObjCFDITimbre.Comprobante.Fecha, ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0, isFiniquito:=Ventas.Timbre.IStimbreFiniquito) Then @@ -3233,7 +3232,6 @@ concep.DescripcionesEspecificas.NumeroSerie) Retorno = "Error" End If End Using - Case "T" Dim objGrales As New ClsGenerales @@ -3252,7 +3250,6 @@ concep.DescripcionesEspecificas.NumeroSerie) End If End Using - Case Else 'Actualiza Estatus Factura diff --git a/App_Code/Usuario.vb b/App_Code/Usuario.vb index 465e618e6..4ddb1d980 100644 --- a/App_Code/Usuario.vb +++ b/App_Code/Usuario.vb @@ -50,23 +50,18 @@ Public Class Usuario Public Property ListaPersonalizacion As Hashtable Public Property Acceso As Integer Public Property TipoControl As Integer - Public Property CvePlataforma As Integer - Public Property DescuentoAutorizado As Double - Public Property AutorizadoxIP As Boolean Public Property CodigoAutorizado As String - Public Property UTCOffset As Integer Public Property PorcentajeMaximoAutorizacion As Decimal Public Property DiasMaximoAutorizacion As Integer - Public Property isLoginseted As Boolean = False - Public Property SesionBloqueada As Boolean = False Public Property ErrorDesbloqueo As Boolean = False - Public Property MsgErrorDesbloqueo As String = "" + Public Property MsgErrorDesbloqueo As String = "" + Public Property RutaDB As String Public ReadOnly Property FechaActualCliente As DateTime Get diff --git a/App_Code/WS/WSUSer.vb b/App_Code/WS/WSUSer.vb index 9f8f2f502..27213e81a 100644 --- a/App_Code/WS/WSUSer.vb +++ b/App_Code/WS/WSUSer.vb @@ -44,7 +44,7 @@ Namespace SIG Dim Retorno As List(Of String) = Nothing If continuar Then Using objuser As New ClsSisUsuarios - Dim user As Usuario = objuser.ValidaUsuario(username, Extensiones.ModExtensiones.Encripta(password), "-1", CveEmpresastr.ToEntero()) + Dim user As Usuario = objuser.ValidaUsuario(username, Extensiones.ModExtensiones.Encripta(password), CveEmpresa:=CveEmpresastr.ToEntero()) Dim OjEmpresa As Empresa = Nothing If user IsNot Nothing Then diff --git a/App_Code/WsSIGWeb.vb b/App_Code/WsSIGWeb.vb index d2c3bfe73..0f44f3b13 100644 --- a/App_Code/WsSIGWeb.vb +++ b/App_Code/WsSIGWeb.vb @@ -59,7 +59,7 @@ Public Class WsSIGWeb If ObjUsuario.GetUsuarios(CveUsuario, -1, -1) Then Contraseña = ObjUsuario.DtResultados.Rows(0)("Contraseña").ToString - Usuario = ObjUsuario.ValidaUsuario(Nombre, Contraseña, IMEI) + Usuario = ObjUsuario.ValidaUsuario(Nombre, Contraseña) If ObjEmpresa.GetEmpresas(pCveEmpresa, "-1", "-1", "-1", "-1") Then Usuario.Empresa = ObjEmpresa.Empresa diff --git a/App_Code/wsSIG.vb b/App_Code/wsSIG.vb index c94a13c60..d4d56b6d9 100644 --- a/App_Code/wsSIG.vb +++ b/App_Code/wsSIG.vb @@ -42,7 +42,7 @@ Public Class wsSIG Dim ttDato As Usuario Dim tUsuario As New ClsSisUsuarios - ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI) + ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia)) If ttDato IsNot Nothing Then Retorno = New UsuarioWs @@ -92,7 +92,7 @@ Public Class wsSIG Dim ttDato As Usuario = Nothing Using tUsuario As New ClsSisUsuarios() - ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI, CveEmpresa) + ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), CveEmpresa:=CveEmpresa) End Using If validatesubproyecto Then @@ -693,7 +693,7 @@ Public Class wsSIG Dim ttDato As Usuario Dim tUsuario As New ClsSisUsuarios - ttDato = tUsuario.ValidaUsuario(objuser.Usuario, Encripta(objuser.Contrasenia), IMEI) + ttDato = tUsuario.ValidaUsuario(objuser.Usuario, Encripta(objuser.Contrasenia)) If ttDato IsNot Nothing Then Retorno = New UsuarioWs diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx index cb056f393..a774331de 100644 --- a/Ashx/E119.ashx +++ b/Ashx/E119.ashx @@ -57,7 +57,7 @@ Public Class E119 : Implements IHttpHandler If ObjUsuarios.DtResultados.Rows.Count > 0 Then Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() - UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa) + UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa) UsuarioActual.CveEmpresa = CveEmpresa CreaObjetoEmpresa(UsuarioActual) End If @@ -79,6 +79,7 @@ Public Class E119 : Implements IHttpHandler End If UsuarioActual.Empresa = ObjEmpresa.Empresa + If UsuarioActual.Empresa.RutaDB = "" Then UsuarioActual.Empresa.RutaDB = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString End If ObjEmpresa.Dispose() End Sub diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx index cea15c20e..d173221f0 100644 --- a/Ashx/E141.ashx +++ b/Ashx/E141.ashx @@ -67,7 +67,7 @@ Public Class E141 : Implements IHttpHandler If ObjUsuarios.DtResultados.Rows.Count > 0 Then Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() - UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa) + UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa) UsuarioActual.CveEmpresa = CveEmpresa CreaObjetoEmpresa(UsuarioActual) End If diff --git a/Ashx/E48.ashx b/Ashx/E48.ashx index d56099cc6..e5a83564d 100644 --- a/Ashx/E48.ashx +++ b/Ashx/E48.ashx @@ -405,7 +405,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState If ObjUsuarios.DtResultados.Rows.Count > 0 Then Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() - UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa) + UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa) UsuarioActual.CveEmpresa = CveEmpresa CreaObjetoEmpresa(UsuarioActual) End If diff --git a/Ashx/MHRedes.ashx b/Ashx/MHRedes.ashx index 49649d0f9..f34ad59d3 100644 --- a/Ashx/MHRedes.ashx +++ b/Ashx/MHRedes.ashx @@ -58,7 +58,7 @@ Public Class MobileHandler : Implements IHttpHandler Dim Json As New StringBuilder - User = ObjUsuario.ValidaUsuario(Contexto.Request("Usuario"), Contexto.Request("Password"), IMEI) + User = ObjUsuario.ValidaUsuario(Contexto.Request("Usuario"), Contexto.Request("Password")) If User IsNot Nothing Then diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx index f223e5237..86a5949f7 100644 --- a/Ashx/SIGFacturacion.ashx +++ b/Ashx/SIGFacturacion.ashx @@ -227,7 +227,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState If ObjUsuarios.DtResultados.Rows.Count > 0 Then Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() - UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa) + UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa) UsuarioActual.CveEmpresa = CveEmpresa CreaObjetoEmpresa(UsuarioActual) End If diff --git a/Ashx/SIGFacturacionCiclica.ashx b/Ashx/SIGFacturacionCiclica.ashx index d123a32f1..1ce3d4f7c 100644 --- a/Ashx/SIGFacturacionCiclica.ashx +++ b/Ashx/SIGFacturacionCiclica.ashx @@ -63,7 +63,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt If ObjUsuarios.DtResultados.Rows.Count > 0 Then Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() - UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa) + UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa) UsuarioActual.CveEmpresa = CveEmpresa CreaObjetoEmpresa(UsuarioActual) End If diff --git a/Ashx/SIGFreightVerify.ashx b/Ashx/SIGFreightVerify.ashx index f09eafceb..5f35fc289 100644 --- a/Ashx/SIGFreightVerify.ashx +++ b/Ashx/SIGFreightVerify.ashx @@ -25,7 +25,7 @@ public class SIGFreightVerify : IHttpHandler, IRequiresSessionState { var Usuario = ObjUsuarios.DtResultados.Rows[0]["Usuario"].ToString(); var Contrasenia = ObjUsuarios.DtResultados.Rows[0]["Contraseña"].ToString(); - UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, ModExtensiones.IMEI, CveEmpresa); + UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa: CveEmpresa); UsuarioActual.CveEmpresa = CveEmpresa; UsuarioActual.CveCliente = 183798; CreaObjetoEmpresa(ref UsuarioActual); diff --git a/Ashx/SIGPolizaVirtual.ashx b/Ashx/SIGPolizaVirtual.ashx index f0d8daa67..73c700dde 100644 --- a/Ashx/SIGPolizaVirtual.ashx +++ b/Ashx/SIGPolizaVirtual.ashx @@ -31,7 +31,7 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState If ObjUsuarios.DtResultados.Rows.Count > 0 Then Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() - UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa) + UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa) UsuarioToken.CveEmpresa = CveEmpresa CreaObjetoEmpresa(UsuarioToken) End If diff --git a/Ashx/TareasProgramadas.ashx b/Ashx/TareasProgramadas.ashx index 16774b5f1..38dde9ef3 100644 --- a/Ashx/TareasProgramadas.ashx +++ b/Ashx/TareasProgramadas.ashx @@ -119,7 +119,7 @@ Public Class TareasProgramadas : Implements IHttpHandler If GlobalDTUsuarios.Rows.Count > 0 Then Dim dtrow As DataRow = GlobalDTUsuarios.Rows(0) Dim ObjUsuario As New ClsSisUsuarios - usuario = ObjUsuario.ValidaUsuario(dtrow("Usuario").ToString, dtrow("Contraseña").ToString, IMEI, cveEmpresa) + usuario = ObjUsuario.ValidaUsuario(dtrow("Usuario").ToString, dtrow("Contraseña").ToString, CveEmpresa:=cveEmpresa) ObjUsuario.Dispose() Dim ObjEmpresa As New ClsSisEmpresas() @@ -227,7 +227,7 @@ Public Class TareasProgramadas : Implements IHttpHandler #Region "obtengo el usuario con el username y la pass" Using ObjUsuario As New ClsSisUsuarios() - usuario = ObjUsuario.ValidaUsuario(username, pass, IMEI, CveEmpresa) + usuario = ObjUsuario.ValidaUsuario(username, pass, CveEmpresa:=CveEmpresa) End Using #End Region #Region "Asigno la empresa al usuario" @@ -352,7 +352,7 @@ Public Class TareasProgramadas : Implements IHttpHandler If ObjUsuarios.DtResultados.Rows.Count > 0 Then Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() - UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa) + UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa) UsuarioActual.CveEmpresa = CveEmpresa CreaObjetoEmpresa(UsuarioActual) End If diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index db0f577d6..45747d1ea 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -120,7 +120,8 @@
-
+
@@ -287,6 +284,20 @@
+
+ +
+ +
+ +
@@ -406,8 +417,7 @@ var saldo = 0; var IVA = 0; var ComisionIntermediario = 0; - - + var CuentaRetorno = 0; function FnSuma(chk, cantidad) { var saldoInicial = ToDouble($('#C_lblValorTotal').text()); @@ -528,6 +538,30 @@ } } } + + if ($('#C_ChkCuentaRetorno').attr('checked')) { + var txtcuentaretorno = ToDouble($('#C_TxtCuentaRetorno').val()); + if (txtcuentaretorno != 0) { + var DescuentoNegativa = 0; + if (txtcuentaretorno > 0) { + DescuentoNegativa = txtcuentaretorno * -1; + } + if (DescuentoNegativa > saldo) { + $('#C_TxtCuentaRetorno').val(0); + comision = 0; + descuento = 0; + txtdescuento = 0; + alert("No es posible poner un descuento superior a lo seleccionado"); + saldo = 0; + $('#C_lblValorTotal').text(FormatoNumero(ValorTotalSeleccionado, 2)); + } else { + //saldo = ValorTotalSeleccionado + txtdescuento + comision; + //$('#C_lblValorTotal').text(FormatoNumero(saldo, 2)); + //descuento = ToDouble($('#C_TxtDescuento').val()) + //debugger; + } + } + } } @@ -559,13 +593,28 @@ $('#C_TxtDescuento').val(descuento) alert("No es posible poner un IVA superior a lo seleccionado") } else { - saldo = ValorTotalSeleccionado - comision2 + comision - IVA - ComisionIntermediario; + saldo = ValorTotalSeleccionado - comision2 + comision - IVA - ComisionIntermediario - CuentaRetorno; $('#C_lblValorTotal').text(FormatoNumero(saldo, 2)); descuento = ToDouble($('#C_TxtDescuento').val()) } } + function txtSumaCuentaRetorno(txt) { + debugger; + var comision2 = ToDouble($('#C_TxtCuentaRetorno').val()); + if (comision2 > ValorTotalSeleccionado) { + $('#C_TxtCuentaRetorno').val(descuento) + alert("No es posible poner un IVA superior a lo seleccionado") + } else { + saldo = ValorTotalSeleccionado - comision2 + comision - IVA - ComisionIntermediario; + $('#C_lblValorTotal').text(FormatoNumero(saldo, 2)); + descuento = ToDouble($('#C_TxtCuentaRetorno').val()) + } + + } + + function txtSumaIVA(txt) { var comision2 = ToDouble($('#C_TxtIVA').val()); @@ -573,7 +622,7 @@ $('#C_TxtIVA').val(IVA); alert("No es posible poner un IVA superior a lo seleccionado"); } else { - saldo = ValorTotalSeleccionado - descuento + comision - comision2 - ComisionIntermediario; + saldo = ValorTotalSeleccionado - descuento + comision - comision2 - ComisionIntermediario - CuentaRetorno; $('#C_lblValorTotal').text(FormatoNumero(saldo, 2)); IVA = ToDouble($('#C_TxtIVA').val()); } @@ -586,7 +635,7 @@ //$('#C_TxtComisionIntermediario').val(ComisionIntermediario); //alert("No es posible poner un importe superior a lo seleccionado"); } else { - saldo = ValorTotalSeleccionado - descuento + comision - comision2 - IVA; + saldo = ValorTotalSeleccionado - descuento + comision - comision2 - IVA - CuentaRetorno; $('#C_lblValorTotal').text(FormatoNumero(saldo, 2)); ComisionIntermediario = ToDouble($('#C_TxtComisionIntermediario').val()); } @@ -638,9 +687,19 @@ Recalcular(); $('#DivInter').css("display", "none"); - $('#DivIntercheck').addClass("truncate"); - + $('#DivIntercheck').addClass("truncate"); + } + } + function CheckRowCuenta(chk) { + if (chk.checked == true) { + $('#DivRowCuenta2').css("display", "block"); + $('#DivRowCuenta').removeClass("truncate"); + } else { + + Recalcular(); + $('#DivRowCuenta2').css("display", "none"); + $('#DivRowCuenta').addClass("truncate"); } } @@ -650,8 +709,9 @@ var Descuento = ToDouble($('#C_TxtDescuento').val()); var IVA = ToDouble($('#C_TxtIVA').val()); var ImporteInter = ToDouble($('#C_TxtComisionIntermediario').val()); + var ImporteCuentaRetorno= ToDouble($('#C_TxtCuentaRetorno').val()); - var total = ValorTotalSeleccionado + Comision - Descuento - IVA - ImporteInter + var total = ValorTotalSeleccionado + Comision - Descuento - IVA - ImporteInter - ImporteCuentaRetorno $('#C_lblValorTotal').text(FormatoNumero(total, 2)); debugger; diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index f1d222eae..ca047fa89 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -25,6 +25,7 @@ Partial Class Bancos_DepositosCaja txtFechaF.Text = NowADS().ToShortDateString TxtComision.Attributes.Add("onKeyUp", "txtSuma(this);") TxtDescuento.Attributes.Add("onKeyUp", "txtSumaDescuento(this);") + TxtCuentaRetorno.Attributes.Add("onKeyUp", "txtSumaCuentaRetorno(this);") TxtIVA.Attributes.Add("onKeyUp", "txtSumaIVA(this);") TxtComisionIntermediario.Attributes.Add("onKeyUp", "txtSumaTntermediario(this);") @@ -32,7 +33,8 @@ Partial Class Bancos_DepositosCaja CargaCuentas() ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);") ChkDescuento.Attributes.Add("onclick", "CheckDescuento(this);") - ChkIntermediario.Attributes.Add("onclick", "CheckIntermediario(this);") + ChkIntermediario.Attributes.Add("onclick", "CheckIntermediario(this);") + ChkCuentaRetorno.Attributes.Add("onclick", "CheckRowCuenta(this);") BtnConsultar.Attributes.Add("onclick", "Consultar(this);") BtnDepositar.Attributes.Add("onclick", "Depositar(this);") @@ -41,7 +43,8 @@ Partial Class Bancos_DepositosCaja Private Sub CargaCuentas() DdlCuentaDeposito.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoCuenta <> 1", "", {"CveCuenta", "NumCuentaMoneda"}) - DdlCuentaDeposito.DataBind() + DdlCuentaDeposito.DataBind() + DdlCuentaDeposito.Items.Insert(0, New ListItem("-", "-1")) DdlCajaChica.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"}) DdlCajaChica.DataBind() @@ -54,6 +57,10 @@ Partial Class Bancos_DepositosCaja divFolio.Visible = True End If + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + DivRowCuenta.Visible = True + End If + DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) DdlSubProyectos.DataBind() DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) @@ -148,12 +155,19 @@ Partial Class Bancos_DepositosCaja Dim TotalImporte As Decimal = 0 Dim TotalImportePrePoliza As Decimal Dim Comision As Decimal = TxtComision.Text.ToDecimal - Dim Descuento As Decimal = TxtDescuento.Text.ToDecimal + Dim Descuento As Decimal = TxtDescuento.Text.ToDecimal + Dim CuentaRetorno As Decimal = TxtCuentaRetorno.Text.ToDecimal Dim IVA As Decimal = TxtIVA.Text.ToDecimal Dim ImporteInter As Decimal = TxtComisionIntermediario.Text.ToDecimal Dim MsgError As String = "Ocurrió un error al realizar los depositos" + If DdlCuentaDeposito.SelectedValue.ToEntero <= 0 Then + Alert("No se ha especificado la cuenta a depositar.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + For Each Gvr As GridViewRow In GvFacturas.Rows If Gvr.FCCheckBox("ChkFactura").Checked Then TotalImporte += Gvr.DataKey("Importe").ToDecimal Next @@ -183,6 +197,15 @@ Partial Class Bancos_DepositosCaja End If End If + If CuentaRetorno <> 0 Then + TotalImporte = TotalImporte - CuentaRetorno + 'Descuento = -(Descuento) ' se inverte el valor, va cargada + 'If DdlSubProyectoDescuento.SelectedValue.ToEntero = -1 Or DdlClasificacionDescuento.SelectedValue.ToEntero = -1 Then + ' Alert("Debes Seleccionar un Subproyecto y una Clasificación de descuento", TipoMensaje.MsgAdvertencia) + ' Exit Sub + 'End If + End If + If TxtComisionIntermediario.Text.ToDecimal <> 0 Then TotalImporte = TotalImporte - TxtComisionIntermediario.Text.ToDecimal - IVA End If @@ -321,6 +344,17 @@ Partial Class Bancos_DepositosCaja Else OcurrioError = True End If + + If Not OcurrioError AndAlso ChkCuentaRetorno.Checked Then + CveTransaccionBanco = 13 + FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, CveTransaccionBanco) + CveIEOrigen = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, "Retorno Depósito Bancario", CuentaRetorno, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + + If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, CuentaRetorno, CuentaRetorno * TipoCambio, 30, "", "Retorno", CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen) Then + OcurrioError = True + End If + End If + If Not OcurrioError Then Dim i As Integer = 0 For Each Gvr As GridViewRow In GvFacturas.Rows @@ -365,7 +399,7 @@ Partial Class Bancos_DepositosCaja Next Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEOrigen}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}") - documentos += String.Format("
Imprimir {1}

", StrEncript, "Depósito Bancario") + documentos += String.Format("Imprimir {1}
", StrEncript, "Depósito Bancario") End If diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs index d9521500b..588f11403 100644 --- a/Bancos/Devoluciones.aspx.cs +++ b/Bancos/Devoluciones.aspx.cs @@ -418,7 +418,7 @@ public partial class Bancos_Devoluciones : ClsPaginas int vecesAplicar = TxtVecesAplicar.Text.ToEntero(); decimal montoLimite = 0; - string fechaInicioAplicacion = NowADS().ToString("yyyy/MM/dd"); + DateTime fechaInicioAplicacion = NowADS(); bool estatus = true; int CveCuenta = -1; int CveMovtoPermanente = ObjNom.AddMovtoPermanente(cveConcepto, cvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus, CveCuenta); diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 72d6f420c..92e446f0c 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -25,7 +25,7 @@ Complemento Pago - +
  • PrePoliza
    • @@ -151,7 +151,7 @@
    -
    +
    @@ -225,7 +225,7 @@ Clientes Proveedor Viáticos - Acreedor + Acreedor @@ -245,7 +245,8 @@
    - + +
    @@ -438,23 +439,22 @@
    -
    - -
    - Folio OC: -
    -
    +
    - +
    + Folio OC: +
    +
    + + <%-- --%> - -
    -
    +
    +
    @@ -620,7 +620,7 @@
    -
    +
    @@ -759,7 +759,7 @@ - --%> + --%> Fecha Aplicación @@ -778,7 +778,7 @@ --%> - + @@ -790,11 +790,11 @@ - Deducciones Pago: - + Deducciones Pago: + - +
    @@ -834,7 +834,7 @@
    - +
    Registró: @@ -993,7 +993,7 @@ - +
    @@ -1010,7 +1010,7 @@
    - +
    @@ -1030,13 +1030,14 @@
    -
    - - +
    + + +
    @@ -1220,10 +1221,10 @@
    Cuenta Devolución: - + - - +
    @@ -1231,7 +1232,7 @@
    -
    +
    @@ -1249,10 +1250,10 @@
    - -
    - - + +
    + + @@ -1273,7 +1274,7 @@
    -<%--