From ee7902cc39ffa09c6438f16bfc42e1f8c0d107d8 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 20 Mar 2023 13:40:56 -0700 Subject: [PATCH] move llamados a bd desde clase --- App_Code/ClsCGame.vb | 12 +- App_Code/ClsGenerales.vb | 1256 +++++++++++++++-------------- App_Code/ClsInventarios.vb | 6 +- App_Code/ClsNominas.vb | 39 +- App_Code/ClsRH.vb | 112 ++- CGame/CatHuerta.aspx.cs | 11 +- Inventarios/CatUnidades.aspx.vb | 7 +- Nomina/Aguinaldo.aspx.cs | 358 +------- Nomina/ChecadorAsistencia.aspx.cs | 21 +- Nomina/Nomina.aspx.cs | 23 +- RH/ActualizacionMasiva.aspx.vb | 6 +- RH/Asistencias.aspx.vb | 12 +- RH/CalculoSBC.aspx.cs | 8 +- RH/CatTurno.aspx | 22 +- RH/CatTurno.aspx.vb | 7 +- RH/ChecadorAsistencia.aspx.cs | 4 +- RH/Personal.aspx.vb | 48 +- asmx/WSGPSApp.asmx | 6 +- 18 files changed, 879 insertions(+), 1079 deletions(-) diff --git a/App_Code/ClsCGame.vb b/App_Code/ClsCGame.vb index 58274dcbc..fa1ae71b7 100644 --- a/App_Code/ClsCGame.vb +++ b/App_Code/ClsCGame.vb @@ -790,7 +790,8 @@ Public Class ClsCGame Return Retorno End Function - Public Function AddHuerta(Huerta As String, CveProveedor As Integer, CveUsuario As Integer, CveEmpresa As Integer, TipoCobro As Integer, Importe As Double, CostoXTonelada As Double) As Boolean + Public Function AddHuerta(Huerta As String, CveProveedor As Integer, CveUsuario As Integer, CveEmpresa As Integer, TipoCobro As Integer, Importe As Double, CostoXTonelada As Double, + NombreRegistro As String, NumeroRegistro As String, CveOrigen As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_CGame_HuertaAdd") With SqlAdapter.SelectCommand.Parameters @@ -801,6 +802,9 @@ Public Class ClsCGame .Add("@TipoCobro", SqlDbType.Int).Value = TipoCobro .Add("@Importe", SqlDbType.Float).Value = Importe .Add("@CostoXTonelada", SqlDbType.Float).Value = CostoXTonelada + .Add("@NombreRegistro", SqlDbType.VarChar).Value = NombreRegistro + .Add("@NumeroRegistro", SqlDbType.VarChar).Value = NumeroRegistro + .Add("@CveOrigen", SqlDbType.Int).Value = CveOrigen End With Try SqlAdapter.Fill(Data) @@ -811,7 +815,8 @@ Public Class ClsCGame Return Retorno End Function - Public Function UpdateHuerta(CveHuerta As Integer, Huerta As String, CveProveedor As Integer, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer, TipoCobro As Integer, Importe As Double, CostoXTonelada As Double) As Boolean + Public Function UpdateHuerta(CveHuerta As Integer, Huerta As String, CveProveedor As Integer, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer, TipoCobro As Integer, Importe As Double, CostoXTonelada As Double, + NombreRegistro As String, NumeroRegistro As String, CveOrigen As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_CGame_HuertaUpdate") With SqlAdapter.SelectCommand.Parameters @@ -824,6 +829,9 @@ Public Class ClsCGame .Add("@TipoCobro", SqlDbType.Int).Value = TipoCobro .Add("@Importe", SqlDbType.Float).Value = Importe .Add("@CostoXTonelada", SqlDbType.Float).Value = CostoXTonelada + .Add("@NombreRegistro", SqlDbType.VarChar).Value = NombreRegistro + .Add("@NumeroRegistro", SqlDbType.VarChar).Value = NumeroRegistro + .Add("@CveOrigen", SqlDbType.Int).Value = CveOrigen End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index fa1c9f6d7..31fe1900e 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -3,11 +3,11 @@ Option Explicit On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports Stimulsoft.Base.Analysis - +Imports Stimulsoft.Base.Analysis + Public Class ClsGenerales - Implements IDisposable - + Implements IDisposable + #Region "Campos" Private _CveColectiva As Integer @@ -19,11 +19,11 @@ Public Class ClsGenerales Private DSet As New DataSet Private disposedValue As Boolean = False 'REGISTRAR CONEXIONES ABIERTAS - Private CveConexion As Integer = 0 - Private EsTransaccionCompartida As Boolean = False - + Private CveConexion As Integer = 0 + Private EsTransaccionCompartida As Boolean = False + #End Region - + #Region "Propiedades" Public Property Colectiva As String Public Property Codigo As String @@ -50,19 +50,19 @@ Public Class ClsGenerales Get DtResultados = Data End Get - End Property - - Public ReadOnly Property DSResultados() As DataSet - Get - DSResultados = DSet - End Get - End Property - - Public Property FolioInsertado As Integer - - Public Property SerieInsertada As String + End Property + + Public ReadOnly Property DSResultados() As DataSet + Get + DSResultados = DSet + End Get + End Property + + Public Property FolioInsertado As Integer + + Public Property SerieInsertada As String #End Region - + Public Function IniciaTransacSQL() As SqlTransaction If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() Return SqlTransacc @@ -86,7 +86,7 @@ Public Class ClsGenerales End Try Else SqlConexion = TransaccionCompartida.Connection - SqlTransacc = TransaccionCompartida + SqlTransacc = TransaccionCompartida EsTransaccionCompartida = True End If @@ -101,9 +101,9 @@ Public Class ClsGenerales End With Data = New DataTable If SqlTransacc IsNot Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc - End Sub + End Sub #Region "Conexiones" - + Private Sub ConexionAdd() If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then Try @@ -136,9 +136,9 @@ Public Class ClsGenerales CveConexion = 0 End If - End Sub + End Sub #End Region - + Private Sub DataCommand(ByVal pStrSQL As String, Optional ByVal TipoComando As CommandType = CommandType.StoredProcedure) With SqlCommand .Parameters.Clear() @@ -221,13 +221,13 @@ Public Class ClsGenerales OnError("Ocurrió un error al obtener los registros de solicitudes CFDI SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno - End Function - + End Function + Public Function SAT_DescargaSolicitudeUUIDSGET(CveSolicitudSat As Int32) As Boolean Dim retorno As Boolean = False DataAdapter("[PA_Gral_DescargaSolicitudesUUIDSGET]", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters - .Add("@CveSolicitudSat", SqlDbType.Int).Value = CveSolicitudSat + .Add("@CveSolicitudSat", SqlDbType.Int).Value = CveSolicitudSat End With Try SqlAdapter.Fill(Data) @@ -236,15 +236,15 @@ Public Class ClsGenerales OnError("Ocurrió un error al obtener los registros de solicitudes CFDI SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno - End Function - - + End Function + + Public Function SAT_DescargaSolicitudesAddNotificaciones(CveEmpresa As Int32, CveSolicitudSat As Int32) As Boolean Dim retorno As Boolean = False DataAdapter("[PA_Gral_SAT_DescargaSolicitudesAddNotificaciones]", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveSolicitudSat", SqlDbType.Int).Value = CveSolicitudSat + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveSolicitudSat", SqlDbType.Int).Value = CveSolicitudSat End With Try SqlAdapter.Fill(Data) @@ -253,12 +253,12 @@ Public Class ClsGenerales OnError("Ocurrió un error al obtener los registros de solicitudes CFDI SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno - End Function + End Function Public Function SAT_DescargaSolicitudesAddNotificacionesCOUNT(CveEmpresa As Int32) As Boolean Dim retorno As Boolean = False DataAdapter("[PA_Gral_SAT_DescargaSolicitudesAddNotificacionesCOUNT]", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try SqlAdapter.Fill(Data) @@ -267,8 +267,8 @@ Public Class ClsGenerales OnError("Ocurrió un error al obtener los registros de solicitudes CFDI SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno - End Function - + End Function + Public Function GetMotivosCancelacionSAT() As Boolean Dim retorno As Boolean = False DataAdapter("PA_Gral_SAT_MotivosCancelacionGet") @@ -279,15 +279,15 @@ Public Class ClsGenerales OnError("Ocurrió un error al obtener los motivos de cancelación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno - End Function - + End Function + Public Function GetMotivosCancelacionEmpresa(CveEmpresa As Integer, Optional CveMotivoCancelacion As Integer = -1, Optional CveSATMotivoCancelacion As Integer = -1) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Gral_MotivosCancelacionGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveMotivoCancelacion", SqlDbType.Int).Value = CveMotivoCancelacion - .Add("@CveSATMotivoCancelacion", SqlDbType.Int).Value = CveSATMotivoCancelacion + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveMotivoCancelacion", SqlDbType.Int).Value = CveMotivoCancelacion + .Add("@CveSATMotivoCancelacion", SqlDbType.Int).Value = CveSATMotivoCancelacion End With Try SqlAdapter.Fill(Data) @@ -296,13 +296,13 @@ Public Class ClsGenerales OnError("Ocurrió un error al obtener los motivos de cancelación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno - End Function - + End Function + Public Function GenerarMotivosCancelacionEmpresaDefault(CveEmpresa As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Gral_MotivosCancelacionDefaultAdd") With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try SqlAdapter.Fill(Data) @@ -311,8 +311,8 @@ Public Class ClsGenerales OnError("Ocurrió un error al agregar los motivos de cancelacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno - End Function - + End Function + #Region " I N D I C A D O R E S Y G R A F I C A S" Public Function GetIndicadores(CveEmpresa As Integer) As DataSet 'Dim Retorno As Boolean = False @@ -334,10 +334,10 @@ Public Class ClsGenerales End Try Return ds - End Function - + End Function + #End Region - + #Region " D I A S I N H A B I L E S " Public Function DiasInhabiles_Add(CveEmpresa As Integer, CveUsuario As Integer, DiaInhabil As String, Descripcion As String, Estatus As Integer, FechaInhabil As Date) As Boolean Dim Retorno As Boolean = False @@ -420,15 +420,15 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region - + #Region " P A Q U E T E R I A S" Public Function GetGralPaqueterias(Optional CveEmpresa As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_PaqueteriasGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try SqlAdapter.Fill(Data) @@ -559,11 +559,11 @@ Public Class ClsGenerales OnError("Ocurrió un error al actualizar en el Catálogo de Paqueterias Guias Tipos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function + End Function #End Region - + #Region "P L A N T I L L A S C O N T R A T O S" - + Public Function ContratoPlantillaAdd(CveEmpresa As Integer, CveUsuario As Integer, NombrePlantilla As String, URL As String, Tipo As String) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_ContratoPlantillaAdd") @@ -640,55 +640,55 @@ Public Class ClsGenerales End Try Return Retorno - End Function - + End Function + #End Region - - '#Region " E S T A D O S" - ' Public Function GetGralEstados() As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_Gral_EstadoGet") - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al obtener el Catálogo de Estados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - ' End Function - '#End Region - - '#Region " M U N I C I P I O S" - ' Public Function GetGralMunicipios() As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_Gral_MunicipioGet") - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al obtener el Catálogo de Municipios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - ' End Function - '#End Region - - '#Region " P A I S E S" - ' Public Function GetGralPaises() As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_Gral_PaisGet") - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al obtener el Catálogo de Paises.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - ' End Function - '#End Region - + + '#Region " E S T A D O S" + ' Public Function GetGralEstados() As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_Gral_EstadoGet") + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al obtener el Catálogo de Estados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + + ' Return Retorno + ' End Function + '#End Region + + '#Region " M U N I C I P I O S" + ' Public Function GetGralMunicipios() As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_Gral_MunicipioGet") + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al obtener el Catálogo de Municipios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + + ' Return Retorno + ' End Function + '#End Region + + '#Region " P A I S E S" + ' Public Function GetGralPaises() As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_Gral_PaisGet") + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al obtener el Catálogo de Paises.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + + ' Return Retorno + ' End Function + '#End Region + #Region " P O B L A C I O N E S" Public Function GetGralPoblaciones() As Boolean Dim Retorno As Boolean = False @@ -701,9 +701,9 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region - + #Region "E S C O L A R I D A D" Public Function GetEscolaridades() As Boolean Dim Retorno As Boolean = False @@ -793,9 +793,9 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region - + #Region "C A T E G O R I A S" Public Function GetCategorias(Optional CveEmpresa As Integer = -1, Optional Tipo As Integer = 1) As Boolean Dim Retorno As Boolean = False @@ -892,9 +892,9 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region - + #Region "M O D E L O S" Public Function GetModelos(CveEmpresa As Integer, Optional CveModelo As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -988,9 +988,9 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region - + #Region "R I M T A M A N I O S" Public Function GetRimTamanios(CveEmpresa As Integer, Optional CveRinTamaño As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1082,9 +1082,9 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region - + #Region "M E D I D A S" Public Function GetMedidas(CveEmpresa As Integer, Optional CveMedida As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1164,7 +1164,7 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function Public Function GetMedidasEquivalentes(CveEmpresa As Integer, Optional CveMedida As Integer = -1, Optional CveRin As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1184,7 +1184,7 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function Public Function AddMedidasEquivalentes(CveMedida As Integer, CveRin As Integer, CveMedidaEquivalente As Integer, CveRinEquivalente As Integer) As Boolean Dim Retorno As Boolean = False @@ -1205,14 +1205,14 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function Public Function UpdateMedidasEquivalentes(CveMedidaEquivalencia As Integer, CveMedida As Integer, CveRin As Integer, CveMedidaEquivalente As Integer, CveRinEquivalente As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_MedidasEquivalenciasUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMedidaEquivalencia", SqlDbType.Int).Value = CveMedidaEquivalencia + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMedidaEquivalencia", SqlDbType.Int).Value = CveMedidaEquivalencia .Add("@CveMedida", SqlDbType.Int).Value = CveMedida .Add("@CveRin", SqlDbType.Int).Value = CveRin .Add("@CveMedidaEquivalente", SqlDbType.Int).Value = CveMedidaEquivalente @@ -1227,7 +1227,7 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function Public Function RemoveMedidasEquivalentes(CveMedidaEquivalencia As Integer) As Boolean Dim Retorno As Boolean = False @@ -1245,9 +1245,9 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region - + #Region "C O L E C T I V A S" Public Function GetColectivas(Optional CveColectiva As Integer = -1, Optional Colectiva As String = "-1", Optional Codigo As String = "-1", Optional Tipo As String = "-1", Optional CveEmpresa As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1403,10 +1403,10 @@ Public Class ClsGenerales End Try Return Retorno - End Function - + End Function + #End Region - + #Region "C O L E C T I V A S - D E T A L L E S" Public Function GetColectivasDetalles(CveColectiva As Integer, Tipo As String, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -1524,9 +1524,9 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region - + #Region "S u b i r I m a g e n e s" Public Function ImagenUpload(pCveOpcion As Integer, pCveClave As Integer, pCveUsuario As Integer, IMEI As String, pCveEmpresa As Integer) As Integer Dim Retorno As Integer = -1 @@ -1550,10 +1550,10 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region - ' IDisposable - + ' IDisposable + #Region "G E N E R A L E S - C U E N T A S B A N C A R I A S " Public Function GetCuentasDepositos(Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCuentaDeposito As Integer = -1, Optional CveEmpresa As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1564,7 +1564,7 @@ Public Class ClsGenerales .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva - .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito + .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With @@ -1603,7 +1603,7 @@ Public Class ClsGenerales .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda .Add("@RefCrediProveedor", SqlDbType.VarChar).Value = RefCrediProveedor .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico - .Add("@Correo", SqlDbType.VarChar).Value = Correo + .Add("@Correo", SqlDbType.VarChar).Value = Correo .Add("@BBVAAlias", SqlDbType.VarChar).Value = BBVAAlias .Add("@EstatusPagoElectronico", SqlDbType.Bit).Value = EstatusPagoElectronico .Add("@EstatusPagoElectronicoGrupos", SqlDbType.Bit).Value = EstatusPagoElectronicoGrupos @@ -1623,13 +1623,13 @@ Public Class ClsGenerales ' End If Catch ex As Exception - If ex.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then - OnError($"Ocurrió un error al Guardar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - Else - OnError("Ocurrió un error al Guardar la cuenta", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End If - - + If ex.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then + OnError($"Ocurrió un error al Guardar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + Else + OnError("Ocurrió un error al Guardar la cuenta", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End If + + End Try Return Retorno @@ -1638,13 +1638,13 @@ Public Class ClsGenerales Public Function RemoveCuentasDepositos(CveCuentaDeposito As Integer, CveEmpresa As Integer, CveUsuarioModifico As Integer) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Gral_CuentasDepositosRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico - End With - + DataAdapter("PA_Gral_CuentasDepositosRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico + End With + Try SqlAdapter.Fill(Data) Retorno = True @@ -1659,15 +1659,15 @@ Public Class ClsGenerales End Try Return Retorno - End Function - + End Function + Public Function UpdateCuentasDepositosPersonal(CveCuentaDeposito As Integer, BancoNombre As String, Cuenta As String, CLABE As String, CveMoneda As Integer, CveUsuarioModifico As Integer, EstatusPagoElectronico As Boolean, Estatus As Boolean, CveSATBanco As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_CuentasDepositosPersonalUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@BancoNombre", SqlDbType.VarChar).Value = BancoNombre .Add("@Cuenta", SqlDbType.VarChar).Value = Cuenta @@ -1686,35 +1686,35 @@ Public Class ClsGenerales Catch Ex1 As SqlException If Ex1.Message.Contains("Número: 2627;") Then Alert("Ya existe un registro con el mismo nombre", TipoMensaje.MsgAdvertencia) - ElseIf Ex1.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then - OnError($"Ocurrió un error al actualizar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ElseIf Ex1.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then + OnError($"Ocurrió un error al actualizar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) Else Me.OnError("Ocurrió un error al guardar los cambios", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If Catch ex As Exception - If ex.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then - OnError($"Ocurrió un error al actualizar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - Else - OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End If - - + If ex.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then + OnError($"Ocurrió un error al actualizar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + Else + OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End If + + End Try Return Retorno - End Function + End Function - Public Function UpdateCuentasDepositos(CveCuentaDeposito As Integer, BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, - RefCrediProveedor As String, Predeterminada As Boolean, Estatus As Boolean, CveMoneda As Integer, CveEmpresa As Integer, Optional CveUsuarioModifico As Integer = -1, Optional Correo As String = "", + Public Function UpdateCuentasDepositos(CveCuentaDeposito As Integer, BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, + RefCrediProveedor As String, Predeterminada As Boolean, Estatus As Boolean, CveMoneda As Integer, CveEmpresa As Integer, Optional CveUsuarioModifico As Integer = -1, Optional Correo As String = "", Optional BBVAAlias As String = "-1", Optional EstatusPagoElectronico As Boolean = False, Optional EstatusPagoElectronicoGrupos As Boolean = False, Optional CveSATBanco As Integer = -1, Optional ConceptoCIE As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_CuentasDepositosUpdate") - With SqlAdapter.SelectCommand.Parameters + With SqlAdapter.SelectCommand.Parameters .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@BancoNombre", SqlDbType.VarChar).Value = BancoNombre .Add("@Plaza", SqlDbType.VarChar).Value = Plaza @@ -1745,52 +1745,52 @@ Public Class ClsGenerales Retorno = True Catch Ex1 As SqlException If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe un registro con el mismo nombre", TipoMensaje.MsgAdvertencia) - ElseIf Ex1.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then + Alert("Ya existe un registro con el mismo nombre", TipoMensaje.MsgAdvertencia) + ElseIf Ex1.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then OnError($"Ocurrió un error al actualizar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) Else Me.OnError("Ocurrió un error al guardar los cambios", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If - Catch ex As Exception - - If ex.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then - OnError($"Ocurrió un error al actualizar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - Else - OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End If + Catch ex As Exception + + If ex.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then + OnError($"Ocurrió un error al actualizar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + Else + OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End If End Try Return Retorno - End Function - - Public Function UpdateCuentasDepositosEstatusPagoElectronicoGrupos(CveCuentaDeposito As Integer, EstatusPagoElectronicoGrupos As Integer, CveSATBanco As Integer, BBVAAlias As String, Referencia As String, ConceptoCIE As String) As Boolean - + End Function + + Public Function UpdateCuentasDepositosEstatusPagoElectronicoGrupos(CveCuentaDeposito As Integer, EstatusPagoElectronicoGrupos As Integer, CveSATBanco As Integer, BBVAAlias As String, Referencia As String, ConceptoCIE As String) As Boolean + Dim Retorno As Boolean = False DataAdapter("PA_Gral_CuentasDepositosUpdateEstatusPagoElectronicoGrupos") With SqlAdapter.SelectCommand.Parameters .Add("@CveCuentaDeposito", SqlDbType.VarChar).Value = CveCuentaDeposito - .Add("@EstatusPagoElectronicoGrupos", SqlDbType.Int).Value = EstatusPagoElectronicoGrupos - .Add("@CveSATBanco", SqlDbType.Int).Value = CveSATBanco - .Add("@BBVAAlias", SqlDbType.VarChar).Value = BBVAAlias - .Add("@Referencia", SqlDbType.VarChar).Value = Referencia - .Add("@ConceptoCIE", SqlDbType.VarChar).Value = ConceptoCIE - End With - - + .Add("@EstatusPagoElectronicoGrupos", SqlDbType.Int).Value = EstatusPagoElectronicoGrupos + .Add("@CveSATBanco", SqlDbType.Int).Value = CveSATBanco + .Add("@BBVAAlias", SqlDbType.VarChar).Value = BBVAAlias + .Add("@Referencia", SqlDbType.VarChar).Value = Referencia + .Add("@ConceptoCIE", SqlDbType.VarChar).Value = ConceptoCIE + End With + + Try SqlAdapter.Fill(Data) - Retorno = True + Retorno = True Catch ex As Exception OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - + End Function + #End Region - + #Region "T I P O - C A M B I O" Public Function AddTipoCambio(TipoCambio As Double, Fecha As Date, Optional TipoCambioEuro As Double = 0, Optional TipoCambioFIX As Double = 0) As Boolean Dim Retorno As Boolean = False @@ -1815,7 +1815,7 @@ Public Class ClsGenerales Return Retorno - End Function + End Function Public Function GetTipoCambio(CveTipoCambio As Integer, Fecha As Date) As Boolean Dim Retorno = False @@ -1911,11 +1911,11 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region - + #Region "C l a s i f i c a c i o n e s C a r a c t e r i s t i c a s" - + Public Function AddClasificacionesCaracteristicas(CaracteristicaClasificacion As String, Orden As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_CaracteristicasClasificacionesAdd") @@ -1996,12 +1996,12 @@ Public Class ClsGenerales End Try Return Retorno - End Function - + End Function + #End Region - + #Region "C a r a c t e r í s t i c a s" - + Public Function GetCaracteristicasModulos() As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_CaracteristicasModuloGet") @@ -2255,9 +2255,9 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region - + #Region "O p c i o n e s" Public Function AddCaracteristicasOpciones(CaracteristicaOpcion As String, CveCaracteristica As Integer, Orden As Integer, Estatus As Boolean, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False @@ -2358,9 +2358,9 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region - + #Region "T I P O C U E N T A S E Q U I P O S" Public Function AddTipoCuentaEquipo(TipoCuentaEquipo As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -2447,9 +2447,9 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region - + #Region "C U E N T A S E Q U I P O S" Public Function AddCuentaEquipo(CveCliente As Integer, CveTipoCuentaEquipo As Integer, CuentaEquipo As String, NoSerie As String, CveClienteSucursal As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveCuentaEquipo As Integer = -1, Optional CveCuentaEquipoRelacionado As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -2622,17 +2622,17 @@ Public Class ClsGenerales End Try Return Retorno - End Function - - + End Function + + #End Region - + #Region "Bitacora" Public Function GetHistorialBitacora(CveAcarreo As Integer, CveOrdenCompra As Integer, CveActivoFijo As Integer, CveOS As Integer, CvePS As Integer, CveCompra As Integer, CveIE As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional CvePersonal As Integer = -1, Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveConceptoNomina As Integer = -1, Optional CvePromocion As Integer = -1, - Optional CveAsistencia As Integer = -1, Optional CveAsistenciaDetalle As Integer = -1, Optional CveTipoBitacora As Integer = -1, + Optional CveAsistencia As Integer = -1, Optional CveAsistenciaDetalle As Integer = -1, Optional CveTipoBitacora As Integer = -1, Optional FechaInicio As String = "", Optional FechaFin As String = "", Optional Fecha As Date = MinFecha) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_HistorialBitacoraGet") @@ -2651,18 +2651,18 @@ Public Class ClsGenerales .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo - .Add("@CveConceptoNomina", SqlDbType.Int).Value = CveConceptoNomina - .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion - - - .Add("@CveAsistencia", SqlDbType.Int).Value = CveAsistencia - .Add("@CveAsistenciaDetalle", SqlDbType.Int).Value = CveAsistenciaDetalle - .Add("@CveTipoBitacora", SqlDbType.Int).Value = CveTipoBitacora - .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio - .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin - .Add("@Fecha", SqlDbType.Date).Value = Fecha - - + .Add("@CveConceptoNomina", SqlDbType.Int).Value = CveConceptoNomina + .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion + + + .Add("@CveAsistencia", SqlDbType.Int).Value = CveAsistencia + .Add("@CveAsistenciaDetalle", SqlDbType.Int).Value = CveAsistenciaDetalle + .Add("@CveTipoBitacora", SqlDbType.Int).Value = CveTipoBitacora + .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio + .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin + .Add("@Fecha", SqlDbType.Date).Value = Fecha + + End With 'SqlTypes.SqlDateTime.Null Try @@ -2702,7 +2702,8 @@ Public Class ClsGenerales CveActivoFijo As Integer, CveOS As Integer, CvePS As Integer, CveCompra As Integer, CveIE As Integer, Actual As String, Anterior As String, CveUsuario As Integer, CveEmpresa As Integer, SeElimino As Integer, Descripcion As String, Tipo As String, - Id_Clave As String, Optional IdPoliza As Integer = -1, Optional CvePromocion As Integer = -1, Optional CveUsuarioTabla As Integer = -1) As Boolean + Id_Clave As String, Optional IdPoliza As Integer = -1, Optional CvePromocion As Integer = -1, Optional CveUsuarioTabla As Integer = -1, + Optional CvePersonal As Integer = -1, Optional Motivo As String = "", Optional Fecha As String = "1900/01/01") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_HistorialBitacoraAdd") @@ -2725,9 +2726,12 @@ Public Class ClsGenerales .Add("@Id_Clave", SqlDbType.VarChar, 100).Value = Id_Clave .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion - .Add("@CveUsuarioTabla", SqlDbType.Int).Value = CveUsuarioTabla - - + .Add("@CveUsuarioTabla", SqlDbType.Int).Value = CveUsuarioTabla + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@Motivo", SqlDbType.VarChar).Value = Motivo + .Add("@Fecha", SqlDbType.DateTime).Value = Fecha + + End With 'SqlTypes.SqlDateTime.Null Try @@ -2747,7 +2751,7 @@ Public Class ClsGenerales DataAdapter("PA_Gral_SAT_ProductosServiciosGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CodigoSAT", SqlDbType.VarChar).Value = CodigoSAT + .Add("@CodigoSAT", SqlDbType.VarChar).Value = CodigoSAT .Add("@SATClaveProductoServicio", SqlDbType.VarChar).Value = SATClaveProductoServicio .Add("@CveSATPS", SqlDbType.Int).Value = CveSATPS @@ -2798,10 +2802,10 @@ Public Class ClsGenerales End Try Return Retorno - End Function - + End Function + #End Region - + #Region "SAT CFDI COMERCIO EXTERIOR" Public Function GetSATClavePedimento() As Boolean Dim Retorno As Boolean = False @@ -2928,9 +2932,9 @@ Public Class ClsGenerales OnError("Ocurrió un error al obtener los municipios del SAT", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - - + End Function + + Public Function GetSATLocalidad(Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_SAT_LocalidadGet") @@ -2962,10 +2966,10 @@ Public Class ClsGenerales OnError("Ocurrió un error al obtener las colonias del SAT", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - + End Function + #End Region - + Public Function JAMComparativo(Opcion As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_JAM_Comparativo") @@ -2983,13 +2987,13 @@ Public Class ClsGenerales End Try Return Retorno - End Function - - + End Function + + Public Function GetSATObjetoImpuesto() As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Gral_SAT_ObjetosImpuestos") - + DataAdapter("PA_Gral_SAT_ObjetosImpuestos") + Try SqlAdapter.Fill(Data) If Data.Rows.Count > 0 Then @@ -3001,8 +3005,8 @@ Public Class ClsGenerales End Try Return Retorno - End Function - + End Function + #Region "P A Q U E T E R I A S G U I A S" Public Function AddPaqueteriasGuias(CvePaqueteria As Integer, CvePaqueteriaGuiaTipo As Integer, CveEstatus As Integer, CveSubProyecto As Integer, Fecha As String, Rastreo As String, Guia As String, NumCajas As Integer, Peso As Double, Dimensiones As String, FechaEstimada As String, Observaciones As String, CveUsuario As Integer, CveEmpresa As Integer, Optional ImplicaCosto As Boolean = True, @@ -3055,8 +3059,8 @@ Public Class ClsGenerales Return Retorno End Function - Public Function GetPaqueteriasGuias(CvePaqueteriaGuia As Integer, CvePaqueteriaGuiaTipo As Integer, CvePaqueteria As Integer, CveEstatus As Integer, CveSubProyecto As Integer, - CveEmpresa As Integer, Guia As String, FechaInicio As String, FechaFin As String, Optional FechaIngInicio As String = "-1", + Public Function GetPaqueteriasGuias(CvePaqueteriaGuia As Integer, CvePaqueteriaGuiaTipo As Integer, CvePaqueteria As Integer, CveEstatus As Integer, CveSubProyecto As Integer, + CveEmpresa As Integer, Guia As String, FechaInicio As String, FechaFin As String, Optional FechaIngInicio As String = "-1", Optional FechaIngFin As String = "-1", Optional Filtro As Integer = -1, Optional CveUsuarioEntrega As Integer = -1, Optional EsEntregaInterna As Boolean = False) As Boolean @@ -3078,9 +3082,9 @@ Public Class ClsGenerales .Add("@FechaIngFin", SqlDbType.VarChar).Value = FechaIngFin .Add("@Filtro", SqlDbType.Int).Value = Filtro .Add("@CveUsuarioEntrega", SqlDbType.Int).Value = CveUsuarioEntrega - .Add("@EsEntregaInterna", SqlDbType.Bit).Value = EsEntregaInterna - - + .Add("@EsEntregaInterna", SqlDbType.Bit).Value = EsEntregaInterna + + End With Try SqlAdapter.Fill(Data) @@ -3090,8 +3094,8 @@ Public Class ClsGenerales End Try Return Retorno - End Function - + End Function + Public Function UpdatePaqueteriasGuias(CvePaqueteriaGuia As Integer, CvePaqueteriaGuiaTipo As Integer, CveSubProyecto As Integer, CvePaqueteria As Integer, CveEstatus As Integer, Fecha As String, Rastreo As String, Guia As String, NumCajas As Integer, Peso As Double, Dimensiones As String, FechaEstimada As String, Observaciones As String, Optional ImplicaCosto As Boolean = True) As Boolean Dim Retorno As Boolean = False @@ -3147,15 +3151,15 @@ Public Class ClsGenerales End Try Return Retorno - End Function - - Public Function GetEntregasPorRealizar(CveEmpresa As Integer, Optional CveAsignacionEntrega As Long = -1) As Boolean + End Function + + Public Function GetEntregasPorRealizar(CveEmpresa As Integer, Optional CveAsignacionEntrega As Long = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_EntregasPorRealizarGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveAsignacionEntrega - + .Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveAsignacionEntrega + End With Try SqlAdapter.Fill(Data) @@ -3164,17 +3168,17 @@ Public Class ClsGenerales OnError("Ocurrió un error al obtener entregas por realizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try - Return Retorno - End Function - - Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveAsignacionEntrega As Long = -1, Optional CveMotivoRechazoPaqueteria As Integer = -1) As Boolean + Return Retorno + End Function + + Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveAsignacionEntrega As Long = -1, Optional CveMotivoRechazoPaqueteria As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_AsignarEntregasPorRealizar") With SqlAdapter.SelectCommand.Parameters .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CvePersonal .Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveAsignacionEntrega - .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria + .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria End With Try SqlAdapter.Fill(Data) @@ -3183,10 +3187,10 @@ Public Class ClsGenerales OnError("Ocurrió un error al asignar entregas por realizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try - Return Retorno - End Function - - Public Function GetMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria As Integer, CveEmpresa As Integer) As Boolean + Return Retorno + End Function + + Public Function GetMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("Gral_MotivoRechazoPaqueteriaGet") With SqlAdapter.SelectCommand.Parameters @@ -3200,10 +3204,10 @@ Public Class ClsGenerales OnError("Ocurrió un error al obtener los motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try - Return Retorno - End Function - - Public Function AddMotivoRechazoPaqueteria(Descripcion As String, CveEmpresa As Integer) As Boolean + Return Retorno + End Function + + Public Function AddMotivoRechazoPaqueteria(Descripcion As String, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("Gral_MotivoRechazoPaqueteriaAdd") With SqlAdapter.SelectCommand.Parameters @@ -3217,10 +3221,10 @@ Public Class ClsGenerales OnError("Ocurrió un error al agregar el motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try - Return Retorno - End Function - - Public Function RemoveMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria As Integer) As Boolean + Return Retorno + End Function + + Public Function RemoveMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("Gral_MotivoRechazoPaqueteriaDelete") With SqlAdapter.SelectCommand.Parameters @@ -3233,10 +3237,10 @@ Public Class ClsGenerales OnError("Ocurrió un error al eliminar el motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try - Return Retorno - End Function - - Public Function UpdateMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria As Integer, Optional Descripcion As String = "-1") As Boolean + Return Retorno + End Function + + Public Function UpdateMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria As Integer, Optional Descripcion As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("Gral_MotivoRechazoPaqueteriaUpdate") With SqlAdapter.SelectCommand.Parameters @@ -3250,10 +3254,10 @@ Public Class ClsGenerales OnError("Ocurrió un error al modificar el motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try - Return Retorno - End Function + Return Retorno + End Function #End Region - + #Region "P A Q U E T E R I A S G U I A S D E T A L L E S" Public Function AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia As Integer, CveVenta As Integer, CveOC As Integer, CveMovimiento As Integer, Optional CveCompra As Integer = -1) As Boolean @@ -3340,11 +3344,11 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region - + #Region "CLASIFICACIONES PORCENTAJE" - + Public Function GetClasificacionPorcentaje(CveEmpresa As Integer, Optional CveClasificacionPorcentaje As Integer = -1, Optional CveClasificacion As Integer = -1, Optional PorcentajeIVA As Double = -1, Optional Opcion As Integer = 1) As Boolean @@ -3420,13 +3424,13 @@ Public Class ClsGenerales OnError("Ocurrió un error al eliminar la clasificacion del porcentaje.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function - + End Function + #End Region - - + + #Region "C A R T A P O R T E" - + Public Function GetMaterialPeligroso() As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_CP_MaterialPeligrosoGet") @@ -3447,8 +3451,8 @@ Public Class ClsGenerales End Function Public Function GetEmbalajes() As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Gral_CP_EmbalajesGet") - + DataAdapter("PA_Gral_CP_EmbalajesGet") + Try SqlAdapter.Fill(Data) Retorno = True @@ -3456,11 +3460,11 @@ Public Class ClsGenerales OnError("Ocurrió un error al obtener embalajes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function - + End Function + Public Function GetCartaPorteTipoPermisoSCT() As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Gral_CP_TipoPermisoSCTGet") + DataAdapter("PA_Gral_CP_TipoPermisoSCTGet") Try SqlAdapter.Fill(Data) Retorno = True @@ -3468,11 +3472,11 @@ Public Class ClsGenerales OnError("Ocurrió un error al obtener los permisos de carta porte.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function - + End Function + Public Function GetCartaPorteConfigAutoTransportes() As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Gral_CP_ConfigAutoTransportesGet") + DataAdapter("PA_Gral_CP_ConfigAutoTransportesGet") Try SqlAdapter.Fill(Data) Retorno = True @@ -3480,12 +3484,12 @@ Public Class ClsGenerales OnError("Ocurrió un error al obtener los configuración de autotransporte de carta porte.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function - - + End Function + + Public Function GetCartaPorteTiposRemolques() As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Gral_CP_TiposRemolqueGet") + DataAdapter("PA_Gral_CP_TiposRemolqueGet") Try SqlAdapter.Fill(Data) Retorno = True @@ -3493,13 +3497,13 @@ Public Class ClsGenerales OnError("Ocurrió un error al obtener los tipos de remolque de carta porte.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function - + End Function + #End Region - - - - + + + + #Region "CRUD_Edoc_DocumentacionTipo" Public Function GetEdoc_DocumentacionTipo(CveDocumentacionTipo As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional EsCatalogo As Integer = 0, Optional Modulo As Integer = 1) As Boolean @@ -3580,23 +3584,23 @@ Public Class ClsGenerales Return retorno - End Function - + End Function + #End Region - - - - -#Region "" - - + + + + +#Region "" + + Public Function GetJAMCorveta(Opcion As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_JAM_Corteva") With SqlAdapter.SelectCommand.Parameters - .Add("@Opcion", SqlDbType.Int).Value = Opcion - + .Add("@Opcion", SqlDbType.Int).Value = Opcion + End With Try @@ -3608,23 +3612,23 @@ Public Class ClsGenerales Return Retorno - End Function - -#End Region - - - - - -#Region "CULTIVOS" - - + End Function + +#End Region + + + + + +#Region "CULTIVOS" + + Public Function GetCultivosCuadro(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Agro_CultivosCuadroGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try @@ -3636,18 +3640,18 @@ Public Class ClsGenerales Return Retorno - End Function - - - - + End Function + + + + Public Function GetTempordas(CveTemporada As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_AgroTemporadaGet") With SqlAdapter.SelectCommand.Parameters .Add("@cveTemporada", SqlDbType.Int).Value = CveTemporada - .Add("@cveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@cveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try @@ -3659,9 +3663,9 @@ Public Class ClsGenerales Return Retorno - End Function - - + End Function + + Public Function UpdateCierreCultivos(CveCultivoCuadro As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -3669,7 +3673,7 @@ Public Class ClsGenerales With SqlAdapter.SelectCommand.Parameters .Add("@CveCultivoCuadro", SqlDbType.Int).Value = CveCultivoCuadro .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try @@ -3681,8 +3685,8 @@ Public Class ClsGenerales Return Retorno - End Function - + End Function + Public Function GetCierreCultivos(CveTemporada As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -3690,7 +3694,7 @@ Public Class ClsGenerales With SqlAdapter.SelectCommand.Parameters .Add("@CveTemporada", SqlDbType.Int).Value = CveTemporada .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try @@ -3702,21 +3706,21 @@ Public Class ClsGenerales Return Retorno - End Function - - -#End Region - - - - - - + End Function + + +#End Region + + + + + + #Region " P O L I Z A V I R T U A L " Public Function ModelosAutosGet(Estatus As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_ModelosAutosGet") - With SqlAdapter.SelectCommand.Parameters + With SqlAdapter.SelectCommand.Parameters .Add("@Estatus", SqlDbType.Int).Value = Estatus .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa @@ -3773,50 +3777,50 @@ Public Class ClsGenerales OnError("Ocurrió un error al obtener los BCI de Usados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function + End Function #End Region - - - - -#Region "GRAL TIMBRES" - - - Public Function AddGralTimbre(TipoDocto As String, CveSubProyecto As Integer, Fecha As DateTime, CveUsuario As Integer, CveEmpresa As Integer, + + + + +#Region "GRAL TIMBRES" + + + Public Function AddGralTimbre(TipoDocto As String, CveSubProyecto As Integer, Fecha As DateTime, CveUsuario As Integer, CveEmpresa As Integer, Optional Serie As String = "-1", Optional Folio As Integer = -1, Optional Estatus As Integer = 0, Optional CveEntregaAlmacen As Integer = -1, Optional AplicaCP As Boolean = False, Optional CveVenta As Integer = -1) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Gral_TimbreAdd") - With SqlAdapter.SelectCommand.Parameters - - .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto - .Add("@Serie", SqlDbType.VarChar).Value = Serie - .Add("@Folio", SqlDbType.Int).Value = Folio - .Add("@Fecha", SqlDbType.DateTime).Value = Fecha - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Estatus", SqlDbType.Int).Value = Estatus - .Add("@AplicaCP", SqlDbType.Bit).Value = AplicaCP - .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen - .Add("@CveSubProyectoOrigen", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta - - .Add("@CveTimbre", SqlDbType.Int).Direction = ParameterDirection.Output + With SqlAdapter.SelectCommand.Parameters + + .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto + .Add("@Serie", SqlDbType.VarChar).Value = Serie + .Add("@Folio", SqlDbType.Int).Value = Folio + .Add("@Fecha", SqlDbType.DateTime).Value = Fecha + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@AplicaCP", SqlDbType.Bit).Value = AplicaCP + .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen + .Add("@CveSubProyectoOrigen", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + + .Add("@CveTimbre", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@FolioInsertado", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@SerieInsertada", SqlDbType.VarChar, 5).Direction = ParameterDirection.Output End With Try - SqlAdapter.Fill(Data) - - FolioInsertado = SqlAdapter.SelectCommand.Parameters("@FolioInsertado").Value.ToString.ToEntero - SerieInsertada = SqlAdapter.SelectCommand.Parameters("@SerieInsertada").Value.ToString - - Retorno = SqlAdapter.SelectCommand.Parameters("@CveTimbre").Value.ToString.ToEntero - + SqlAdapter.Fill(Data) + + FolioInsertado = SqlAdapter.SelectCommand.Parameters("@FolioInsertado").Value.ToString.ToEntero + SerieInsertada = SqlAdapter.SelectCommand.Parameters("@SerieInsertada").Value.ToString + + Retorno = SqlAdapter.SelectCommand.Parameters("@CveTimbre").Value.ToString.ToEntero + Catch ex As Exception OnError("Ocurrió un error al agregar el timbre", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try @@ -3830,12 +3834,12 @@ Public Class ClsGenerales With SqlAdapter.SelectCommand.Parameters .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto - .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaI", SqlDbType.Date).Value = FechaI .Add("@FechaF", SqlDbType.Date).Value = FechaF .Add("@Estatus", SqlDbType.Int).Value = Estatus - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta End With Try @@ -3856,12 +3860,12 @@ Public Class ClsGenerales With SqlAdapter.SelectCommand.Parameters .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre - .Add("@FolioFiscal", SqlDbType.VarChar).Value = FolioFiscal - .Add("@Fecha", SqlDbType.DateTime).Value = Fecha - .Add("@CvePAC", SqlDbType.Int).Value = CvePAC - .Add("@CDFIVersion", SqlDbType.VarChar).Value = CFDIVersion - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FolioFiscal", SqlDbType.VarChar).Value = FolioFiscal + .Add("@Fecha", SqlDbType.DateTime).Value = Fecha + .Add("@CvePAC", SqlDbType.Int).Value = CvePAC + .Add("@CDFIVersion", SqlDbType.VarChar).Value = CFDIVersion + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try @@ -3871,8 +3875,8 @@ Public Class ClsGenerales OnError("Ocurrió un error al actualizar el timbrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - + End Function + Public Function CancelarTimbreTimbrado(CveTimbre As Integer, FechaCancelacion As DateTime, CvePACCancelacion As Integer, SelloCancelacion As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_TimbreTimbradoCancelar") @@ -3880,11 +3884,11 @@ Public Class ClsGenerales With SqlAdapter.SelectCommand.Parameters .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre - .Add("@FechaCancelacion", SqlDbType.DateTime).Value = FechaCancelacion - .Add("@CvePACCancelacion", SqlDbType.Int).Value = CvePACCancelacion - .Add("@SelloCancelacion", SqlDbType.VarChar).Value = SelloCancelacion - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaCancelacion", SqlDbType.DateTime).Value = FechaCancelacion + .Add("@CvePACCancelacion", SqlDbType.Int).Value = CvePACCancelacion + .Add("@SelloCancelacion", SqlDbType.VarChar).Value = SelloCancelacion + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try @@ -3894,10 +3898,10 @@ Public Class ClsGenerales OnError("Ocurrió un error al actualizar el timbrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - - - + End Function + + + Public Function RemoveGralTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_TimbreRemove") @@ -3914,11 +3918,11 @@ Public Class ClsGenerales OnError("Ocurrió un error al eliminar Timbre", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - - Public Function GetGralMovimientosDetalleTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean - - + End Function + + Public Function GetGralMovimientosDetalleTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False DataAdapter("PA_Gral_MovimientosDetalleTimbreGet") @@ -3932,277 +3936,277 @@ Public Class ClsGenerales Retorno = True Catch ex As Exception OnError("Ocurrió un error al obtener los movimientos del timbre", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - - End Function - - Public Function AddInvEntregaAlmacenRuta(CveSubProyecto As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveMovimientoAlmacen As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, FechaLlegada As DateTime, Tipo As String, - FolioReferencia As String, Referencia As String, FechaLimite As Date, Orden As Integer, Estatus As Integer, Distancia As Integer, Optional CveConfigAutoTransporte As Integer = -1, + End Try + + Return Retorno + + End Function + + Public Function AddInvEntregaAlmacenRuta(CveSubProyecto As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveMovimientoAlmacen As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, FechaLlegada As DateTime, Tipo As String, + FolioReferencia As String, Referencia As String, FechaLimite As Date, Orden As Integer, Estatus As Integer, Distancia As Integer, Optional CveConfigAutoTransporte As Integer = -1, Optional CveCamionRemolque1 As Integer = -1, Optional CveCamionRemolque2 As Integer = -1, Optional CveCliente As Integer = -1) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Inv_EntregaAlmacenRutaAdd") - With SqlAdapter.SelectCommand.Parameters - - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = CveMovimientoAlmacen - .Add("@CveDireccionOrigen", SqlDbType.Int).Value = CveDireccionOrigen - .Add("@CveDireccionDestino", SqlDbType.Int).Value = CveDireccionDestino - .Add("@CveChofer", SqlDbType.Int).Value = CveChofer - .Add("@CveCamion", SqlDbType.Int).Value = CveCamion - .Add("@FechaEntrega", SqlDbType.DateTime).Value = FechaEntrega - .Add("@FechaLlegada", SqlDbType.DateTime).Value = FechaLlegada - .Add("@Tipo", SqlDbType.VarChar).Value = Tipo - .Add("@Orden", SqlDbType.Int).Value = Orden - .Add("@FolioReferencia", SqlDbType.VarChar).Value = FolioReferencia - .Add("@Referencia", SqlDbType.VarChar).Value = Referencia - .Add("@Estatus", SqlDbType.VarChar).Value = Estatus - .Add("@Distancia", SqlDbType.Int).Value = Distancia - - .Add("@FechaLimite", SqlDbType.DateTime).Value = FechaLimite - - .Add("@CveCamionRemolque1", SqlDbType.Int).Value = CveCamionRemolque1 - .Add("@CveCamionRemolque2", SqlDbType.Int).Value = CveCamionRemolque2 - .Add("@CveConfigAutoTransporte", SqlDbType.Int).Value = CveConfigAutoTransporte - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - - .Add("@CveEntregaAlmacen", SqlDbType.Int).Direction = ParameterDirection.Output + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = CveMovimientoAlmacen + .Add("@CveDireccionOrigen", SqlDbType.Int).Value = CveDireccionOrigen + .Add("@CveDireccionDestino", SqlDbType.Int).Value = CveDireccionDestino + .Add("@CveChofer", SqlDbType.Int).Value = CveChofer + .Add("@CveCamion", SqlDbType.Int).Value = CveCamion + .Add("@FechaEntrega", SqlDbType.DateTime).Value = FechaEntrega + .Add("@FechaLlegada", SqlDbType.DateTime).Value = FechaLlegada + .Add("@Tipo", SqlDbType.VarChar).Value = Tipo + .Add("@Orden", SqlDbType.Int).Value = Orden + .Add("@FolioReferencia", SqlDbType.VarChar).Value = FolioReferencia + .Add("@Referencia", SqlDbType.VarChar).Value = Referencia + .Add("@Estatus", SqlDbType.VarChar).Value = Estatus + .Add("@Distancia", SqlDbType.Int).Value = Distancia + + .Add("@FechaLimite", SqlDbType.DateTime).Value = FechaLimite + + .Add("@CveCamionRemolque1", SqlDbType.Int).Value = CveCamionRemolque1 + .Add("@CveCamionRemolque2", SqlDbType.Int).Value = CveCamionRemolque2 + .Add("@CveConfigAutoTransporte", SqlDbType.Int).Value = CveConfigAutoTransporte + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + + .Add("@CveEntregaAlmacen", SqlDbType.Int).Direction = ParameterDirection.Output End With Try - SqlAdapter.Fill(Data) - Retorno = SqlAdapter.SelectCommand.Parameters("@CveEntregaAlmacen").Value.ToString.ToEntero + SqlAdapter.Fill(Data) + Retorno = SqlAdapter.SelectCommand.Parameters("@CveEntregaAlmacen").Value.ToString.ToEntero Catch ex As Exception OnError("Ocurrió un error al agregar la entrega almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - + End Function + Public Function UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, CveEmpresa As Integer, - Optional FechaLlegada As DateTime = MinFecha, Optional CveCamionRemolque1 As Integer = -1, Optional CveCamionRemolque2 As Integer = -1, Optional Distancia As Integer = -1, + Optional FechaLlegada As DateTime = MinFecha, Optional CveCamionRemolque1 As Integer = -1, Optional CveCamionRemolque2 As Integer = -1, Optional Distancia As Integer = -1, Optional CveConfigAutoTransporte As Integer = -1, Optional FolioReferencia As String = "-1", Optional Referencia As String = "-1", Optional CveSubProyecto As Integer = -1) As Boolean - Dim Retorno As Boolean = False + Dim Retorno As Boolean = False DataAdapter("PA_Inv_EntregaAlmacenRutaUpdate") - With SqlAdapter.SelectCommand.Parameters - - - .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen - .Add("@CveDireccionOrigen", SqlDbType.Int).Value = CveDireccionOrigen - .Add("@CveDireccionDestino", SqlDbType.Int).Value = CveDireccionDestino - .Add("@CveChofer", SqlDbType.Int).Value = CveChofer - .Add("@CveCamion", SqlDbType.Int).Value = CveCamion - .Add("@FechaEntrega", SqlDbType.DateTime).Value = FechaEntrega - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - - .Add("@FechaLlegada", SqlDbType.DateTime).Value = FechaLlegada - .Add("@CveCamionRemolque1", SqlDbType.Int).Value = CveCamionRemolque1 - .Add("@CveCamionRemolque2", SqlDbType.Int).Value = CveCamionRemolque2 - .Add("@Distancia", SqlDbType.Int).Value = Distancia - .Add("@CveConfigAutoTransporte", SqlDbType.Int).Value = CveConfigAutoTransporte - .Add("@FolioReferencia", SqlDbType.VarChar).Value = FolioReferencia - .Add("@Referencia", SqlDbType.VarChar).Value = Referencia - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - + With SqlAdapter.SelectCommand.Parameters + + + .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen + .Add("@CveDireccionOrigen", SqlDbType.Int).Value = CveDireccionOrigen + .Add("@CveDireccionDestino", SqlDbType.Int).Value = CveDireccionDestino + .Add("@CveChofer", SqlDbType.Int).Value = CveChofer + .Add("@CveCamion", SqlDbType.Int).Value = CveCamion + .Add("@FechaEntrega", SqlDbType.DateTime).Value = FechaEntrega + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + .Add("@FechaLlegada", SqlDbType.DateTime).Value = FechaLlegada + .Add("@CveCamionRemolque1", SqlDbType.Int).Value = CveCamionRemolque1 + .Add("@CveCamionRemolque2", SqlDbType.Int).Value = CveCamionRemolque2 + .Add("@Distancia", SqlDbType.Int).Value = Distancia + .Add("@CveConfigAutoTransporte", SqlDbType.Int).Value = CveConfigAutoTransporte + .Add("@FolioReferencia", SqlDbType.VarChar).Value = FolioReferencia + .Add("@Referencia", SqlDbType.VarChar).Value = Referencia + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + End With Try - SqlAdapter.Fill(Data) - Retorno = True + SqlAdapter.Fill(Data) + Retorno = True Catch ex As Exception OnError("Ocurrió un error al actualizar la entrega almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - + End Function + Public Function AsignaEntregaAlmacenRuta(CveCamion As Integer, CveChofer As Integer, FechaEntrega As Date, FechaLlegada As DateTime, CveEntregaAlmacen As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False + Dim Retorno As Boolean = False DataAdapter("PA_Inv_EntregaAlmacenRutaAsignar") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCamion", SqlDbType.Int).Value = CveCamion - .Add("@CveChofer", SqlDbType.Int).Value = CveChofer - .Add("@FechaEntrega", SqlDbType.DateTime).Value = FechaEntrega - .Add("@FechaLlegada", SqlDbType.DateTime).Value = FechaLlegada - .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCamion", SqlDbType.Int).Value = CveCamion + .Add("@CveChofer", SqlDbType.Int).Value = CveChofer + .Add("@FechaEntrega", SqlDbType.DateTime).Value = FechaEntrega + .Add("@FechaLlegada", SqlDbType.DateTime).Value = FechaLlegada + .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try - SqlAdapter.Fill(Data) - Retorno = True + SqlAdapter.Fill(Data) + Retorno = True Catch ex As Exception OnError("Ocurrió un error al actualizar la entrega almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - - Public Function GetInvEntregaAlmacenRuta(CveSubProyecto As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Opcion As Integer, Optional Estatus As Integer = -1) As Boolean - - Dim Retorno As Boolean = False - + End Function + + Public Function GetInvEntregaAlmacenRuta(CveSubProyecto As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Opcion As Integer, Optional Estatus As Integer = -1) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_EntregaAlmacenRutaGet") - With SqlAdapter.SelectCommand.Parameters - - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio - .Add("@FechaFin", SqlDbType.Date).Value = FechaFin - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Opcion", SqlDbType.Int).Value = Opcion - .Add("@Estatus", SqlDbType.Int).Value = Estatus - + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Opcion", SqlDbType.Int).Value = Opcion + .Add("@Estatus", SqlDbType.Int).Value = Estatus + End With Try - SqlAdapter.Fill(Data) - Retorno = True + SqlAdapter.Fill(Data) + Retorno = True Catch ex As Exception OnError("Ocurrió un error al obtener las entregas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - - - - Public Function RemoveInvEntregaAlmacenRuta(CveEntregaAlmacen As Integer, CveEmpresa As Integer) As Boolean - - Dim Retorno As Boolean = False - + End Function + + + + Public Function RemoveInvEntregaAlmacenRuta(CveEntregaAlmacen As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_EntregaAlmacenRutaRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try - SqlAdapter.Fill(Data) - Retorno = True + SqlAdapter.Fill(Data) + Retorno = True Catch ex As Exception OnError("Ocurrió un error al eliminar la entregas o Recolección", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - - - Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer, CveUsuario As Integer, Optional CveTimbre As Integer = -1) As Boolean - - Dim Retorno As Boolean = False - + End Function + + + Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer, CveUsuario As Integer, Optional CveTimbre As Integer = -1) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_EntregaAlmacenRutaRepGet2") - With SqlAdapter.SelectCommand.Parameters - - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Estatus", SqlDbType.Int).Value = Estatus - .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio - .Add("@FechaFin", SqlDbType.Date).Value = FechaFin - .Add("@CveChofer", SqlDbType.Int).Value = CveChofer - .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@CveChofer", SqlDbType.Int).Value = CveChofer + .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario End With Try - SqlAdapter.Fill(Data) - Retorno = True + SqlAdapter.Fill(Data) + Retorno = True Catch ex As Exception OnError("Ocurrió un error al obtener las entregas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - - - - Public Function AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen As Integer, CvePS As Integer, Cantidad As Decimal, CveUnidadMedida As Integer, CveUsuario As Integer, Optional PesoKg As Decimal = -1D) As Boolean - - - Dim Retorno As Boolean = False - + End Function + + + + Public Function AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen As Integer, CvePS As Integer, Cantidad As Decimal, CveUnidadMedida As Integer, CveUsuario As Integer, Optional PesoKg As Decimal = -1D) As Boolean + + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_EntregaAlmacenRutaDetalleAdd") - With SqlAdapter.SelectCommand.Parameters - - .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@Cantidad", SqlDbType.Float).Value = Cantidad - .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@PesoKg", SqlDbType.SmallMoney).Value = PesoKg - + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@Cantidad", SqlDbType.Float).Value = Cantidad + .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@PesoKg", SqlDbType.SmallMoney).Value = PesoKg + End With Try - SqlAdapter.Fill(Data) - Retorno = True + SqlAdapter.Fill(Data) + Retorno = True Catch ex As Exception OnError("Ocurrió un error al agregar el detalle de recolección", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - - - - Public Function RemoveEntregaAlmacenRutaDetalle(CveEntregaAlmacenDetalle As Integer) As Boolean - - - Dim Retorno As Boolean = False - + End Function + + + + Public Function RemoveEntregaAlmacenRutaDetalle(CveEntregaAlmacenDetalle As Integer) As Boolean + + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_EntregaAlmacenRutaDetalleRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEntregaAlmacenDetalle", SqlDbType.Int).Value = CveEntregaAlmacenDetalle + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEntregaAlmacenDetalle", SqlDbType.Int).Value = CveEntregaAlmacenDetalle End With Try - SqlAdapter.Fill(Data) - Retorno = True + SqlAdapter.Fill(Data) + Retorno = True Catch ex As Exception OnError("Ocurrió un error al eliminar el detalle de recolección", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - - - Public Function GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen As Integer) As Boolean - - Dim Retorno As Boolean = False - + End Function + + + Public Function GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_EntregaAlmacenRutaDetalleGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen End With Try - SqlAdapter.Fill(Data) - Retorno = True + SqlAdapter.Fill(Data) + Retorno = True Catch ex As Exception OnError("Ocurrió un error al obtener el detalle de recolección", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - - -#End Region - - + End Function + + +#End Region + + Public Function GetMediosTransporte(CveOrigen As Integer, Estatus As Boolean, CveEmpresa As Integer, CveTipoNomina As Integer, CveSubProyecto As Integer, Tipo As Integer, GPO As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Agro_OrigenGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrigen", SqlDbType.Int).Value = CveOrigen - .Add("@Estatus", SqlDbType.Bit).Value = Estatus - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveTipoNomina", SqlDbType.Int).Value = CveTipoNomina - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@Tipo", SqlDbType.Int).Value = Tipo - .Add("@GPO", SqlDbType.Int).Value = GPO + .Add("@CveOrigen", SqlDbType.Int).Value = CveOrigen + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveTipoNomina", SqlDbType.Int).Value = CveTipoNomina + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@Tipo", SqlDbType.Int).Value = Tipo + .Add("@GPO", SqlDbType.Int).Value = GPO End With Try @@ -4212,16 +4216,16 @@ Public Class ClsGenerales OnError($"Ocurrió un error al obtener los medios de transporte.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try - Return Retorno - End Function - + Return Retorno + End Function + Public Function GetFolioFechaCancelacion(CveEmpresa As Integer, Tipo As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_FolioFechaCancelacionGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Tipo", SqlDbType.Int).Value = Tipo + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Tipo", SqlDbType.Int).Value = Tipo End With Try @@ -4231,10 +4235,10 @@ Public Class ClsGenerales OnError($"Ocurrió un error al obtener los datos de fechas de cancelación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try - Return Retorno - End Function - - + Return Retorno + End Function + + #Region "C I T R I C O S" Public Function GetTipoOrganicos(Optional CveEmpresa As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -4260,10 +4264,10 @@ Public Class ClsGenerales DataAdapter("PA_Gral_TipoOrganicosAdd") With SqlAdapter.SelectCommand.Parameters - .Add("@TipoOrganico", SqlDbType.VarChar).Value = TipoOrganico - .Add("@Estatus", SqlDbType.Bit).Value = Estatus - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@TipoOrganico", SqlDbType.VarChar).Value = TipoOrganico + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try @@ -4355,10 +4359,10 @@ Public Class ClsGenerales DataAdapter("PA_Gral_EmpacadosAdd") With SqlAdapter.SelectCommand.Parameters - .Add("@TipoEmpacado", SqlDbType.VarChar).Value = TipoEmpacado - .Add("@Estatus", SqlDbType.Bit).Value = Estatus - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@TipoEmpacado", SqlDbType.VarChar).Value = TipoEmpacado + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try @@ -4425,22 +4429,22 @@ Public Class ClsGenerales End Try Return Retorno - End Function -#End Region - + End Function +#End Region + #Region "IDisposable Support" - - - ' IDisposable + + + ' 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 Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing - If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() + 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 Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing + If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing End If @@ -4449,20 +4453,20 @@ Public Class ClsGenerales ' TODO: set large fields to null. End If Me.disposedValue = True - End Sub - - - - ' This code added by Visual Basic to correctly implement the disposable pattern. + 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 Sub +#End Region + + End Class diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index a86c1393f..87bb5d529 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -5629,7 +5629,7 @@ Public Class ClsInventarios Public Function AddCamiones(Placa As String, Especificacion As String, CveEmpresa As Integer, CveConfigAutoTransporte As Integer, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String, NumPolizaSeguroCarga As String, Optional CveTipoCamion As Integer = 1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "", - Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "", Optional Estatus As Boolean = False) As Boolean + Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "", Optional Estatus As Boolean = False, Optional CveProveedor As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesAdd") @@ -5656,6 +5656,7 @@ Public Class ClsInventarios .Add("@CAAT", SqlDbType.VarChar).Value = CAAT .Add("@NumeroTrailer", SqlDbType.VarChar).Value = NumeroTrailer .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor End With Try SqlAdapter.Fill(Data) @@ -5689,7 +5690,7 @@ Public Class ClsInventarios Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String, CveConfigAutoTransporte As Integer, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer, CveEmpresa As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String, NumPolizaSeguroCarga As String, Optional CveTipoCamion As Integer = -1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "", - Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "", Optional Estatus As Boolean = False) As Boolean + Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "", Optional Estatus As Boolean = False, Optional CveProveedor As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -5716,6 +5717,7 @@ Public Class ClsInventarios .Add("@CAAT", SqlDbType.VarChar).Value = CAAT .Add("@NumeroTrailer", SqlDbType.VarChar).Value = NumeroTrailer .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index d1728e4ba..d0cf74241 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -609,6 +609,24 @@ Public Class ClsNominas End Try Return retorno End Function + Public Function CalculosISRAguinaldo(fraccionII_1 As Decimal, salariomensual As Decimal, diasmes As Int32, ejercicio As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_CalculosISRAguinaldo", CommandType.StoredProcedure) + addParameters("@FraccionII_1", SqlDbType.Money, fraccionII_1) + addParameters("@salariomensual", SqlDbType.Money, salariomensual) + addParameters("@Diasmes", SqlDbType.Money, diasmes) + addParameters("@Ejercicio", SqlDbType.Int, ejercicio) + retorno = RunQuery("Ocurrió un error al obtener el Calculo ISR Aguinaldo.") + Return retorno + End Function + Public Function UMAFechaGet(cveempresa As Integer, fecha As String) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_UMAFechaGet", CommandType.StoredProcedure) + addParameters("@cveempresa", SqlDbType.Int, cveempresa) + addParameters("@Fecha", SqlDbType.VarChar, fecha) + retorno = RunQuery("Ocurrió un error al obtener el valor de la UMA.") + Return retorno + End Function Public Function GetDispersionnomina(CvePeriodo As Int32, CveEmpresa As Int32) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Nom_Dispersionnomina", CommandType.StoredProcedure) @@ -2294,7 +2312,26 @@ Public Class ClsNominas End Function #End Region - Public Function ValidaFechaFinPersonal(CvePersonal As Integer, CveEmpresa As Integer, FechaFin As String) + Public Function AgroValidacionNomGet(cveValidacionNomina As Int32, cveEmpresa As Int32, CveUsuario As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Agro_ValidacionNomGet", CommandType.StoredProcedure) + addParameters("@CveValidacionNomina", SqlDbType.Int, cveValidacionNomina) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + addParameters("@CveUsuario", SqlDbType.Int, CveUsuario) + retorno = RunQuery("Ocurrió un error al obtener el PA_Agro_ValidacionNomGet.") + Return retorno + End Function + Public Function ConceptosCveSistemaUp(cveConcepto As Int32, cveSistema As Int32, cveUsuario As Int32, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_ConceptosCveSistemaUp", CommandType.StoredProcedure) + addParameters("@CveConcepto", SqlDbType.Int, cveConcepto) + addParameters("@CveSistema", SqlDbType.Int, cveSistema) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + retorno = RunQuery("Ocurrió un error al obtener el PA_Nom_ConceptosCveSistemaUp.") + Return retorno + End Function + Public Function ValidaFechaFinPersonal(CvePersonal As Integer, CveEmpresa As Integer, FechaFin As String) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Nom_ValidaFechaFinPersonal") With SqlAdapter.SelectCommand.Parameters diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index f8ca5d0f7..466f25b58 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -3568,7 +3568,7 @@ Public Class ClsRH End Function Public Function AddTurno(Turno As String, HorarioDe As String, HorarioA As String, CveUsuario As Integer, CveEmpresa As Integer, CveChecadorHorario As Integer, ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer, - Comida As Integer, ComidaDe As String, ComidaA As String) As Boolean + Comida As Integer, ComidaDe As String, ComidaA As String, Optional DiaDescanso As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -3590,6 +3590,7 @@ Public Class ClsRH .Add("@ToleranciaEFalta", SqlDbType.Int).Value = ToleranciaEFalta .Add("@ToleranciaSRetardo", SqlDbType.Int).Value = ToleranciaSRetardo .Add("@ToleranciaSFalta", SqlDbType.Int).Value = ToleranciaSFalta + .Add("@DiaDescanso", SqlDbType.Int).Value = DiaDescanso End With Try @@ -3609,7 +3610,7 @@ Public Class ClsRH End Function Public Function UpdateTurno(Turno As String, HorarioDe As String, HorarioA As String, Estatus As Boolean, CveTurno As Integer, CveUsuario As Integer, CveChecadorHorario As Integer, ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer, - Comida As Integer, ComidaDe As String, ComidaA As String) As Boolean + Comida As Integer, ComidaDe As String, ComidaA As String, Optional DiaDescanso As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -3631,7 +3632,8 @@ Public Class ClsRH .Add("@ToleranciaERetardo", SqlDbType.Int).Value = ToleranciaERetardo .Add("@ToleranciaEFalta", SqlDbType.Int).Value = ToleranciaEFalta .Add("@ToleranciaSRetardo", SqlDbType.Int).Value = ToleranciaSRetardo - .Add("@ToleranciaSFalta", SqlDbType.Int).Value = ToleranciaSFalta + .Add("@ToleranciaSFalta", SqlDbType.Int).Value = ToleranciaSFalta + .Add("@DiaDescanso", SqlDbType.Int).Value = DiaDescanso End With @@ -7441,6 +7443,110 @@ Public Class ClsRH End Try Return Retorno End Function + + Public Function PersonalTurnoUp(cveTurno As Int32, cveUsuario As Int32, cveEmpresa As Int32, cvePersonal As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_PersonalTurnoUp", CommandType.StoredProcedure) + addParameters("@CveTurno", SqlDbType.Int, cveTurno) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + addParameters("@CvePersonal", SqlDbType.Int, cvePersonal) + retorno = RunQuery("Ocurrió un error al actualizar el turno del personal.") + Return retorno + End Function + + Public Function SupervisorOrganigramaGet(cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_SupervisorOrganigramaGet", CommandType.StoredProcedure) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + retorno = RunQuery("Ocurrió un error al obtener el PA_RH_SupervisorOrganigramaGet.") + Return retorno + End Function + + Public Function PersonalRPUpdate(cvePersonal As Int32, cveUsuario As Int32, cveEmpresa As Int32, registroPatronal As String) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_PersonalRPUpdate", CommandType.StoredProcedure) + addParameters("@CvePersonal", SqlDbType.Int, cvePersonal) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + addParameters("@RegistroPatronal", SqlDbType.VarChar, registroPatronal) + retorno = RunQuery("Ocurrió un error al obtener el PA_RH_PersonalRPUpdate.") + Return retorno + End Function + + Public Function PersonalTSUpdate(cvePersonal As Int32, cveUsuario As Int32, cveEmpresa As Int32, tipodeSalario As String) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_PersonalTSUpdate", CommandType.StoredProcedure) + addParameters("@CvePersonal", SqlDbType.Int, cvePersonal) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + addParameters("@TipodeSalario", SqlDbType.VarChar, tipodeSalario) + retorno = RunQuery("Ocurrió un error al obtener el PA_RH_PersonalTSUpdate.") + Return retorno + End Function + + Public Function GetAsistenciaChecador(cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_GetAsistenciaChecador", CommandType.StoredProcedure) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + retorno = RunQuery("Ocurrió un error al obtener el PA_RH_GetAsistenciaChecador.") + Return retorno + End Function + + Public Function PersonalDomUp(cveEstadoDomicilio As Int32, ciudadOrigen As String, cvePersonal As Int32, cveEmpresa As Int32, cveUsuario As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_PersonalDomUp", CommandType.StoredProcedure) + addParameters("@CveEstadoDomicilio", SqlDbType.Int, cveEstadoDomicilio) + addParameters("@CiudadOrigen", SqlDbType.VarChar, ciudadOrigen) + addParameters("@CvePersonal", SqlDbType.Int, cvePersonal) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + retorno = RunQuery("Ocurrió un error al obtener el PA_RH_PersonalDomUp.") + Return retorno + End Function + + + Public Function PersonalAltasRemove(cvePersonalAltas As Int32, cvePersonal As Int32, cveEmpresa As Int32, cveUsuario As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_PersonalAltasRemove", CommandType.StoredProcedure) + addParameters("@CvePersonalAltas", SqlDbType.Int, cvePersonalAltas) + addParameters("@CvePersonal", SqlDbType.Int, cvePersonal) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + retorno = RunQuery("Ocurrió un error al obtener el PA_RH_PersonalAltasRemove.") + Return retorno + End Function + + Public Function PersonalAltasUpFechas(cvePersonalAltas As Int32, fechaInicio As String, fechaFin As String, cvePersonal As Int32, cveEmpresa As Int32, cveUsuario As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_PersonalAltasUpFechas", CommandType.StoredProcedure) + addParameters("@CvePersonalAltas", SqlDbType.Int, cvePersonalAltas) + addParameters("@FechaInicio", SqlDbType.VarChar, fechaInicio) + addParameters("@FechaFin", SqlDbType.VarChar, fechaFin) + addParameters("@CvePersonal", SqlDbType.Int, cvePersonal) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + retorno = RunQuery("Ocurrió un error al obtener el PA_RH_PersonalAltasUpFechas.") + Return retorno + End Function + + + + + + Public Function AsistenciaDetTurnoUp(cveAsistenciaDetalle As Int32, fecha As String, cveTurno As Int32, cveTurnoOLD As Int32, cvePersonal As Int32, cveUsuario As Int32, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_AsistenciaDetTurnoUp", CommandType.StoredProcedure) + addParameters("@CveAsistenciaDetalle", SqlDbType.Int, cveAsistenciaDetalle) + addParameters("@Fecha", SqlDbType.VarChar, fecha) + addParameters("@CveTurno", SqlDbType.Int, cveTurno) + addParameters("@CveTurnoOLD", SqlDbType.Int, cveTurnoOLD) + addParameters("@CvePersonal", SqlDbType.Int, cvePersonal) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + retorno = RunQuery("Ocurrió un error al obtener el PA_RH_AsistenciaDetTurnoUp.") + Return retorno + End Function Public Function estatusPersonalUp(Fecha As DateTime, CvePersonal As Integer, CveEstatusPersonal As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional CveMotivoBaja As Integer = -1, Optional Observaciones As String = "") As Boolean Dim Retorno As Boolean = False Data = New DataTable diff --git a/CGame/CatHuerta.aspx.cs b/CGame/CatHuerta.aspx.cs index a1e0fa365..b7ac258f2 100644 --- a/CGame/CatHuerta.aspx.cs +++ b/CGame/CatHuerta.aspx.cs @@ -21,17 +21,10 @@ Alert("Tiene que seleccionar un proveedor."); return; - } ClsCGame ObjHuer =new ClsCGame(); bool Continuar = ObjHuer.AddHuerta(TxtHuerhuerta.Text, DdlProveedor.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,DdlTipoCobro.SelectedValue.ToEntero(),TxtImporte.Text.ToDouble(), TxtCostoXTonelada.Text.ToDouble()); ObjHuer.Dispose(); using(ClsClaseBase objclase = new ClsClaseBase()) - { - objclase.runQuerystr($"PA_CGame_HuertaaBX @CveHuerta={-1},@NombreRegistro='{TxtNombreRegistro.Text}',@NumeroRegistro='{TxtNumeroRegistro.Text}',@CveEmpresa={UsuarioActual.CveEmpresa}"); - } if(Continuar) { RegistraScript("$('#DModalHuerta').modal('hide');"); LimpiaHuerta(); UPModalHuer.Update(); Alert("El Productor se ha agregado"); + } ClsCGame ObjHuer =new ClsCGame(); bool Continuar = ObjHuer.AddHuerta(TxtHuerhuerta.Text, DdlProveedor.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,DdlTipoCobro.SelectedValue.ToEntero(),TxtImporte.Text.ToDouble(), TxtCostoXTonelada.Text.ToDouble(), TxtNombreRegistro.Text, TxtNumeroRegistro.Text,ddlOrigen.SelectedValue.ToEntero()); ObjHuer.Dispose(); if(Continuar) { RegistraScript("$('#DModalHuerta').modal('hide');"); LimpiaHuerta(); UPModalHuer.Update(); Alert("El Productor se ha agregado"); TxtNombreRegistro.Text = ""; TxtNumeroRegistro.Text = ""; - CargaHuerta(); } } protected void BtnHuerEdit_Click(object sender, EventArgs e) { ClsCGame ObjHuer =new ClsCGame(); bool Continuar = ObjHuer.UpdateHuerta(CveHuerta, TxtHuerhuerta.Text, DdlProveedor.SelectedValue.ToEntero(), ChkHuerestatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTipoCobro.SelectedValue.ToEntero(), TxtImporte.Text.ToDouble(), TxtCostoXTonelada.Text.ToDouble()); ObjHuer.Dispose(); if(Continuar) { - using (ClsClaseBase objclase = new ClsClaseBase()) - { - objclase.runQuerystr($"PA_CGame_HuertaaBX @CveHuerta={CveHuerta},@NombreRegistro='{TxtNombreRegistro.Text}',@NumeroRegistro='{TxtNumeroRegistro.Text}',@CveEmpresa={UsuarioActual.CveEmpresa}"); - } RegistraScript("$('#DModalHuerta').modal('hide');"); LimpiaHuerta(); UPModalHuer.Update(); Alert("El Productor se ha actualizado"); + CargaHuerta(); } } protected void BtnHuerEdit_Click(object sender, EventArgs e) { ClsCGame ObjHuer =new ClsCGame(); bool Continuar = ObjHuer.UpdateHuerta(CveHuerta, TxtHuerhuerta.Text, DdlProveedor.SelectedValue.ToEntero(), ChkHuerestatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTipoCobro.SelectedValue.ToEntero(), TxtImporte.Text.ToDouble(), TxtCostoXTonelada.Text.ToDouble(), TxtNombreRegistro.Text, TxtNumeroRegistro.Text, ddlOrigen.SelectedValue.ToEntero()); ObjHuer.Dispose(); if(Continuar) { RegistraScript("$('#DModalHuerta').modal('hide');"); LimpiaHuerta(); UPModalHuer.Update(); Alert("El Productor se ha actualizado"); TxtNombreRegistro.Text = ""; TxtNumeroRegistro.Text = ""; CargaHuerta(); } } protected void LnkEliminarHuer_Click(object sender, EventArgs e) { GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); ClsCGame ObjHuer = new ClsCGame(); bool Continuar = ObjHuer.RemoveHuerta(gvRow.DataKey("CveHuerta").ToEntero()); ObjHuer.Dispose(); if(Continuar) { CargaHuerta(); Alert("El Productor se ha eliminado"); } } diff --git a/Inventarios/CatUnidades.aspx.vb b/Inventarios/CatUnidades.aspx.vb index 245342d76..f2c2a8f17 100644 --- a/Inventarios/CatUnidades.aspx.vb +++ b/Inventarios/CatUnidades.aspx.vb @@ -207,18 +207,15 @@ Partial Class Inventarios_CatUnidades If CveCamion <= 0 Then If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, - TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked) Then + TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue) Then Alert("Unidad agregada correctamente") Else ErrorPrceso = True End If Else If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, - TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked) Then + TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue) Then Alert("Unidad actualizada correctamente") - Using objbase = New ClsClaseBase() - objbase.runQuerystr(String.Format("UPDATE Inv_Camiones SET CveProveedor={1} WHERE CveCamion={0}", CveCamion, DdlProveedor.SelectedValue)) - End Using Else ErrorPrceso = True End If diff --git a/Nomina/Aguinaldo.aspx.cs b/Nomina/Aguinaldo.aspx.cs index bfca04cea..b839c9955 100644 --- a/Nomina/Aguinaldo.aspx.cs +++ b/Nomina/Aguinaldo.aspx.cs @@ -53,14 +53,12 @@ public partial class Nomina_Aguinaldo : ClsPaginas LtlUma.Text = ""; int cveempresa = 1; if (UsuarioActual != null) { cveempresa = UsuarioActual.CveEmpresa; } - using (ClsClaseBaseD objbase = new ClsClaseBaseD()) + + using (ClsNominas onom = new ClsNominas()) { - if (objbase.runQuerystr($"SELECT Valor UMA FROM [dbo].[RH_TablasValores] WHERE Tipo =1 AND CveEmpresa ={cveempresa} AND Fecha<'{DateTime.Now:yyyy/MM/dd}' ORDER BY Fecha DESC")) + if (onom.UMAFechaGet(cveempresa, $"{DateTime.Now:yyyy/MM/dd}") && onom.DtResultados.Rows.Count > 0) { - if (objbase.DtResultados.Rows.Count > 0) - { - LtlUma.Text = objbase.DtResultados.Rows[0]["UMA"].ToString(); - } + LtlUma.Text = onom.DtResultados.Rows[0]["UMA"].ToString(); } } } @@ -395,7 +393,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas int CvePersonal = 0; int CveSubProyecto = 0; StringBuilder str = new StringBuilder(); - using (ClsClaseBaseD objbase = new ClsClaseBaseD()) + using (ClsNominas objbase = new ClsNominas()) { foreach (GridViewRow gvrow in GVCalcularAguinaldo.Rows) @@ -433,10 +431,11 @@ public partial class Nomina_Aguinaldo : ClsPaginas { FraccionI = (aguinaldogravado / diasanio) * diasmes; FraccionII_1 = salariomensual + FraccionI; - str.Clear(); - str.AppendFormat("SELECT dbo.Fnc_NomValues(40, 0, {2}, -1, {0}, {1}, {1}) isrFraccionII_2,", FraccionII_1, diasmes, DdlEjercicios.SelectedValue); - str.AppendFormat(" dbo.Fnc_NomValues(40, 0, {2}, -1, {0}, {1}, {1}) isrFraccionIII_1", salariomensual, diasmes, DdlEjercicios.SelectedValue); - if (objbase.runQuerystr(str.ToString())) + //str.Clear(); + //str.AppendFormat("SELECT dbo.Fnc_NomValues(40, 0, {2}, -1, {0}, {1}, {1}) isrFraccionII_2,", FraccionII_1, diasmes, DdlEjercicios.SelectedValue); + //str.AppendFormat(" dbo.Fnc_NomValues(40, 0, {2}, -1, {0}, {1}, {1}) isrFraccionIII_1", salariomensual, diasmes, DdlEjercicios.SelectedValue); + //if (objbase.runQuerystr(str.ToString())) + if(objbase.CalculosISRAguinaldo(FraccionII_1, salariomensual, diasmes, DdlEjercicios.SelectedValue)) { DataRow drow = objbase.DtResultados.Rows[0]; FraccionII_2 = drow["isrFraccionII_2"].ToString().ToDecimal(); @@ -658,340 +657,3 @@ public partial class Nomina_Aguinaldo : ClsPaginas Response.End(); } } - -class ClsClaseBaseD : IDisposable -{ - protected SqlConnection SqlConexion; - protected SqlDataAdapter SqlAdapter; - protected DataTable datos; - protected DataSet DTSet; - public DataTable DtResultados - { - get - { - return datos; - } - } - public DataSet DTSetResultados - { - get - { - return DTSet; - } - } - protected bool disposedValue = false; - protected bool EsTransaccion = false; - public string MyCurrentError; - // REGISTRAR CONEXIÓN - private int CveConexion = 0; - - public ClsClaseBaseD(ClsClaseBaseD adsObj = null, SqlTransaction sqlTransacc = null, SqlDataAdapter sqlAdapter = null) - { - - - if (adsObj != null && adsObj.SqlAdapter != null && adsObj.SqlAdapter.SelectCommand != null && adsObj.SqlAdapter.SelectCommand.Transaction != null) - { - SqlConexion = adsObj.SqlConexion; - SqlAdapter = adsObj.SqlAdapter; - EsTransaccion = true; - } - else - { - if (sqlTransacc != null) - { - SqlConexion = sqlTransacc.Connection; - SqlAdapter = sqlAdapter; - EsTransaccion = true; - } - else - { - SqlConexion = new SqlConnection(); - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString; - try - { - SqlConexion.Open(); - SqlAdapter = new SqlDataAdapter("", SqlConexion); - ConexionAdd(); - } - catch (Exception ex) - { - this.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex); - } - } - } - - } - - public void SqlDataAdapter(string StrSQL, CommandType TipoComando = CommandType.StoredProcedure) - { - if (SqlConexion.State == ConnectionState.Open) - { - SqlAdapter.SelectCommand.Parameters.Clear(); - SqlAdapter.SelectCommand.CommandText = StrSQL; - SqlAdapter.SelectCommand.CommandType = TipoComando; - datos = new DataTable(); - DTSet = new DataSet(); - } - } - protected void DataAdapter(string StrSQL, CommandType TipoComando = CommandType.Text) - { - - // if (SqlAdapter.SelectCommand == null) - // { - // if ((sqlCommand != null)) - // { - // SqlAdapter.SelectCommand = sqlCommand; - // } - // else - // { - // SqlAdapter.SelectCommand = new SqlCommand(); - // } - // SqlAdapter.SelectCommand.Connection = SqlConexion; - // } - - if (SqlConexion.State == ConnectionState.Open) - { - SqlAdapter.SelectCommand.Parameters.Clear(); - SqlAdapter.SelectCommand.CommandText = StrSQL; - SqlAdapter.SelectCommand.CommandType = TipoComando; - datos = new DataTable(); - DTSet = new DataSet(); - } - } - - private void ConexionAdd() - { - if (ConfigurationManager.AppSettings["RegistraConexion"] != null && ConfigurationManager.AppSettings["RegistraConexion"].ToString() == "1") - { - try - { - SqlDataAdapter("PA_Sis_RegistrarConexion"); - { - var withBlock = SqlAdapter.SelectCommand.Parameters; - withBlock.Add("@Clase", SqlDbType.VarChar).Value = this.GetType().Name; - withBlock.Add("@Modulo", SqlDbType.VarChar).Value = string.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString(), HttpContext.Current.Request.QueryString.ToString()); - withBlock.Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output; - } - SqlAdapter.Fill(datos); - CveConexion = SqlAdapter.SelectCommand.Parameters["@IDConexion"].Value.ToString().ToEntero(); - } - catch (Exception ex) - { - this.OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()); - } - } - } - - private void ConexionClose() - { - if (CveConexion > 0 && ConfigurationManager.AppSettings["RegistraConexion"] != null && ConfigurationManager.AppSettings["RegistraConexion"].ToString() == "1") - { - SqlDataAdapter(string.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text); - - try - { - SqlAdapter.Fill(datos); - } - catch (Exception ex) - { - this.OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()); - } - CveConexion = 0; - } - } - protected void addParameters(string name, SqlDbType tipo, object valor) - { - if (SqlConexion.State == ConnectionState.Open) - SqlAdapter.SelectCommand.Parameters.Add(name, tipo).Value = valor; - } - - public bool runQuerystr(string Query, List Listaparametros = null, string msgError = "", bool mostrarError = true) - { - bool retorno = false; - try - { - if (SqlConexion.State == ConnectionState.Open) - { - SqlAdapter.SelectCommand.Parameters.Clear(); - SqlAdapter.SelectCommand.CommandText = Query; - SqlAdapter.SelectCommand.CommandType = CommandType.Text; - datos = new DataTable(); - if (Listaparametros != null) - { - foreach (parametroQuery pr in Listaparametros) - { - SqlAdapter.SelectCommand.Parameters.Add(pr.ParameterName, pr.SqlDataType).Direction = pr.ParameterDirection; - } - } - - SqlAdapter.Fill(datos); - retorno = true; - } - else - { - string InfoAdicional = "Se intenta realizar una conexion con una conexion cerrada"; - InfoAdicional = $"{InfoAdicional}{Environment.NewLine}{msgError}{Environment.NewLine}"; - ModExtensiones.GuardaLog(InfoAdicional); - } - } - catch (SqlException sqEx) - { - retorno = false; - setOnError(msgError, sqEx); - } - catch (Exception ex) - { - retorno = false; - setOnError(msgError, ex); - } - return retorno; - } - public int ExecQuery(string Query, List Listaparametros = null, string msgError = "", bool mostrarError = true) - { - int retorno = -1; - try - { - if (SqlConexion.State == ConnectionState.Open) - { - SqlAdapter.SelectCommand.Parameters.Clear(); - SqlAdapter.SelectCommand.CommandText = Query; - SqlAdapter.SelectCommand.CommandType = CommandType.Text; - if (Listaparametros != null) - { - foreach (parametroQuery pr in Listaparametros) - { - SqlAdapter.SelectCommand.Parameters.Add(pr.ParameterName, pr.SqlDataType).Direction = pr.ParameterDirection; - } - } - - retorno = SqlAdapter.SelectCommand.ExecuteNonQuery(); - } - else - { - string InfoAdicional = "Se intenta realizar una conexion con una conexion cerrada"; - InfoAdicional = $"{InfoAdicional}{Environment.NewLine}{msgError}{Environment.NewLine}"; - this.GuardaLog(InfoAdicional); - } - } - catch (SqlException sqEx) - { - retorno = -1; - setOnError(msgError, sqEx); - } - catch (Exception ex) - { - retorno = -1; - setOnError(msgError, ex); - } - return retorno; - } - - - protected bool RunQuery(string msgOnError) - { - bool retorno = false; - - try - { - SqlAdapter.Fill(datos); - retorno = true; - } - catch (Exception ex) - { - retorno = false; - - setOnError(msgOnError, ex); - } - return retorno; - } - protected bool RunQueryDS(string msgOnError) - { - bool retorno = false; - - try - { - SqlAdapter.Fill(DTSet); - retorno = true; - } - catch (Exception ex) - { - retorno = false; - - setOnError(msgOnError, ex); - } - return retorno; - } - public void setOnError(string Mensaje, Exception Exeption) - { - string InfoAdicional = ""; - if (SqlAdapter != null && SqlAdapter.SelectCommand != null && SqlAdapter.SelectCommand.Parameters != null) - InfoAdicional = SqlAdapter.SelectCommand.Parameters.ParametrosInfo(); - MyCurrentError = string.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString(), "\r\n", InfoAdicional); - this.OnError(Mensaje, Exeption, InfoAdicional); - } - public void IniciaTransacSQL() - { - SqlAdapter.SelectCommand.Transaction = SqlConexion.BeginTransaction(); - EsTransaccion = true; - } - - public void Commit() - { - SqlAdapter.SelectCommand.Transaction.Commit(); - SqlConexion.Close(); - } - - public void RollBack() - { - SqlAdapter.SelectCommand.Transaction.Rollback(); - SqlConexion.Close(); - } - public void Dispose() - { - ConexionClose(); - if ((SqlConexion != null)) - { - if (SqlConexion.State == ConnectionState.Open) - { - try - { - if ((SqlAdapter != null)) - SqlAdapter.Dispose(); - - SqlConexion.Close(); - } - catch (Exception ex) - { - this.OnError("Ocurrió un error al intentar cerrar la base de datos.", ex); - } - } - SqlConexion.Dispose(); - } - - if (datos != null) - datos.Dispose(); - if (SqlAdapter != null) - SqlAdapter.Dispose(); - - if (DTSet != null) - DTSet.Dispose(); - - GC.SuppressFinalize(this); - } -} - -//public class parametroQuery -//{ -// public parametroQuery(string parameterName, object sqlValue, SqlDbType sqlDataType = default(SqlDbType), ParameterDirection parameterDirection = default(ParameterDirection)) -// { -// this.ParameterName = parameterName; -// this.SqlDataType = sqlDataType; -// this.ParameterDirection = parameterDirection; -// this.SqlValue = sqlValue; -// } - -// public string ParameterName { get; set; } -// public SqlDbType SqlDataType { get; set; } -// public ParameterDirection ParameterDirection { get; set; } -// public object SqlValue { get; set; } -//} diff --git a/Nomina/ChecadorAsistencia.aspx.cs b/Nomina/ChecadorAsistencia.aspx.cs index aabb4eaa7..253164b70 100644 --- a/Nomina/ChecadorAsistencia.aspx.cs +++ b/Nomina/ChecadorAsistencia.aspx.cs @@ -423,15 +423,9 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas if (continuar) { - using (ClsClaseBase objbase = new ClsClaseBase()) + using (ClsGenerales objbase = new ClsGenerales()) { - /* - - INSERT INTO Gral_HistorialBitacora(CvePersonal,CveConceptoHistorialBitacora,Descripcion,Motivo,CveUsuario,CveEmpresa,Fecha,Actual) - SELECT CvePersonal, 384,'se ingreso asistencia manual','se ingreso asistencia manual',100,@CveEmpresa,MIN(CAST(Fecha AS DATE)) - */ - objbase.runQuerystr(string.Format("INSERT INTO Gral_HistorialBitacora(CvePersonal,CveConceptoHistorialBitacora,Descripcion,Motivo,CveUsuario,CveEmpresa,Fecha,Actual)SELECT {0}, 384,'SE INGRESO ASISTENCIA MANUAL','SE INGRESO ASISTENCIA MANUAL',{3},{2},'{1:yyyy/MM/dd}','Asistió'", - DdlmcPersonal.SelectedValue.ToEntero(), fechaing, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)); + objbase.AddHistorialBitacora(384, -1, -1, -1, -1, -1, -1, -1, "Asistió", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,0, "SE INGRESO ASISTENCIA MANUAL","","",CvePersonal: DdlmcPersonal.SelectedValue.ToEntero(),Fecha: $"{fechaing:yyyy/MM/dd}" ,Motivo: "SE INGRESO ASISTENCIA MANUAL"); } Alert(string.Format("La asistencia se a agregado ({0:dd-MM-yyyy HH:mm:ss}).", fechaing), ModExtensiones.TipoMensaje.ToastInformacion); @@ -496,9 +490,9 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas int CvePersonal = TxtCvePersonal.Text.ToEntero(); List registros = new List(); int CveTurnoNEW = DdlTurno.SelectedValue.ToEntero(); - using (ClsClaseBase objbase = new ClsClaseBase()) + using (ClsRH objbase = new ClsRH()) { - objbase.runQuerystr(string.Format("UPDATE RH_Personal SET CveTurno={1} WHERE CvePersonal ={0}", CvePersonal, CveTurnoNEW)); + objbase.PersonalTurnoUp(CveTurnoNEW,UsuarioActual.CveUsuario,UsuarioActual.CveEmpresa, CvePersonal); } foreach (GridViewRow row in GvAsistenciaUp.Rows) @@ -522,11 +516,10 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas obj.Motivo = TxtMotivo.Text.Trim(); if (CveTurno != CveTurnoNEW) { - using (ClsClaseBase objbase = new ClsClaseBase()) + using (ClsRH objbase = new ClsRH()) { - objbase.runQuerystr(string.Format("UPDATE RH_PersonalAsistenciasDetalle SET CveTurno={1} WHERE CveAsistenciaDetalle ={0}", CveAsistenciaDetalle, CveTurnoNEW)); - objbase.runQuerystr(string.Format("UPDATE D SET CveTurno={1} FROM RH_PersonalAsistencias A INNER JOIN RH_PersonalAsistenciasDetalle D ON D.CveAsistencia =A.CveAsistencia AND D.CveTurno = {2} WHERE A.Fecha > '{0}' AND A.CvePersonal ={3}", Fecha, CveTurnoNEW, CveTurno, CvePersonal)); - + objbase.AsistenciaDetTurnoUp(CveAsistenciaDetalle, Fecha, CveTurnoNEW, CveTurno, CvePersonal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); + } } if (obj.Motivo.Length == 0 && CveAsistenciasInasistencias != obj.CveAsistenciasInasistencias) diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index d5e0217fb..ed4d5bb5b 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -941,7 +941,7 @@ public partial class Nomina_Nomina2 : ClsPaginas } if (dtempleados != null) { - LnkAutorizar.Visible = (dtempleados.COUNT("CvePersonal", "CvePersonal > 0 AND NomAutorizado =0") > 0) || (Estatus < 2); + LnkAutorizar.Visible = (dtempleados.COUNT("CvePersonal", "CvePersonal > 0 AND NomAutorizado =0 AND SumaPercepciones > 0 ") > 0) || (Estatus < 2); LnkCancelarNomina.Visible = (dtempleados.COUNT("CvePersonal", "CvePersonal > 0 AND NomAutorizado =1 AND SeTimbro=0") > 0); } UpDatos.Update(); @@ -1507,7 +1507,7 @@ public partial class Nomina_Nomina2 : ClsPaginas byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta); if (pdf != null) { - List objarch = new List(); + List objarch = new List(); using (ClsNominas ObjNomina = new ClsNominas()) { @@ -1614,7 +1614,7 @@ public partial class Nomina_Nomina2 : ClsPaginas byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta); if (pdf != null) { - List objarch = new List(); + List objarch = new List(); using (ClsNominas ObjNomina = new ClsNominas()) { @@ -2335,12 +2335,11 @@ public partial class Nomina_Nomina2 : ClsPaginas { Filesgral = TxtCargarNetos.getfiles().Archivos; - using (ClsClaseBase objbase = new ClsClaseBase()) + using (ClsNominas objbase = new ClsNominas()) { - if (objbase.runQuerystr(string.Format("UPDATE C SET C.CveSistema = C.CveSistemaOLD FROM Nom_Conceptos C WHERE CveEmpresa ={0} AND CveSistema =-2; UPDATE C SET C.CveSistemaOLD = C.CveSistema FROM Nom_Conceptos C WHERE CveConcepto ={1};UPDATE C SET C.CveSistema =-2 FROM Nom_Conceptos C WHERE CveConcepto ={1};", UsuarioActual.CveEmpresa, ddlConceptocomisionNeto.SelectedValue.ToEntero()))) - { + objbase.ConceptosCveSistemaUp(ddlConceptocomisionNeto.SelectedValue.ToEntero(), -2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); - } + } } @@ -2984,15 +2983,11 @@ public partial class Nomina_Nomina2 : ClsPaginas if (drow != null) { decimal UMA = 96.22M; - - using (ClsClaseBase objbase = new ClsClaseBase()) + using (ClsNominas onom = new ClsNominas()) { - if (objbase.runQuerystr($"SELECT Valor UMA FROM [dbo].[RH_TablasValores] WHERE Tipo =1 AND CveEmpresa ={UsuarioActual.CveEmpresa} AND Fecha<'{DateTime.Now:yyyy/MM/dd}' ORDER BY Fecha DESC")) + if (onom.UMAFechaGet(UsuarioActual.CveEmpresa, $"{DateTime.Now:yyyy/MM/dd}") && onom.DtResultados.Rows.Count > 0) { - if (objbase.DtResultados.Rows.Count > 0) - { - UMA = objbase.DtResultados.Rows[0]["UMA"].ToString().ToDecimal(); - } + UMA = onom.DtResultados.Rows[0]["UMA"].ToString().ToDecimal(); } } TxtCCSysUMA.Text = $"{UMA:N2}"; diff --git a/RH/ActualizacionMasiva.aspx.vb b/RH/ActualizacionMasiva.aspx.vb index 31871c530..2e455ab81 100644 --- a/RH/ActualizacionMasiva.aspx.vb +++ b/RH/ActualizacionMasiva.aspx.vb @@ -103,11 +103,9 @@ Partial Class RH_ActualizacionMasiva End Sub Private Sub CargaSuperioresOrganigrama() - Using objbase As New ClsClaseBase - Dim strquery As String = String.Format("SELECT CvePersonal,NombreCompleto FROM RH_Personal WHERE CveEmpresa = {0} AND CvePersonal IN (SELECT CvePersonalPadre FROM RH_Organigrama )", UsuarioActual.CveEmpresa) - If (objbase.runQuerystr(strquery)) Then + Using objbase As New ClsRH() + If (objbase.SupervisorOrganigramaGet(UsuarioActual.CveEmpresa)) Then DdlSupervisor.DataSource = objbase.DtResultados - End If End Using Dim ObjRH As New ClsRH diff --git a/RH/Asistencias.aspx.vb b/RH/Asistencias.aspx.vb index efea4804b..62bdc408a 100644 --- a/RH/Asistencias.aspx.vb +++ b/RH/Asistencias.aspx.vb @@ -34,18 +34,14 @@ Partial Class RH_Asistencias ' Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos") 'End If 'ObjRH.Dispose() - - Using objbase As New ClsClaseBase - Dim strquery As String = String.Format("SELECT CvePersonal,NombreCompleto FROM RH_Personal WHERE CveEmpresa = {0} AND CvePersonal IN (SELECT CvePersonalPadre FROM RH_Organigrama )", UsuarioActual.CveEmpresa) - If (objbase.runQuerystr(strquery)) Then + Using objbase As New ClsRH() + If (objbase.SupervisorOrganigramaGet(UsuarioActual.CveEmpresa)) Then DdlSupervisorOrganigrama.DataSource = objbase.DtResultados - + DdlSupervisorOrganigrama.DataBind() End If End Using - If DdlSupervisorOrganigrama.DataSource IsNot Nothing Then - DdlSupervisorOrganigrama.DataBind() - End If + End Sub #End Region Private Sub CargaClientes() diff --git a/RH/CalculoSBC.aspx.cs b/RH/CalculoSBC.aspx.cs index 0f2a316f1..d031bbd75 100644 --- a/RH/CalculoSBC.aspx.cs +++ b/RH/CalculoSBC.aspx.cs @@ -543,8 +543,7 @@ public partial class RH_CalculoSBC : ClsPaginas DataTable DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, true); StringBuilder str = new StringBuilder(); - //bool rollback = false; - using (ClsClaseBase objNomina = new ClsClaseBase()) + //bool rollback = false; using (ClsRH objpersonal = new ClsRH()) { @@ -567,7 +566,7 @@ public partial class RH_CalculoSBC : ClsPaginas } if (CvePersonal > 0) { - objNomina.runQuerystr(string.Format("EXEC PA_RH_PersonalRPUpdate {0},'{1}'", CvePersonal, RegistroPatronal)); + objpersonal.PersonalRPUpdate( CvePersonal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa , RegistroPatronal); } } @@ -584,7 +583,6 @@ public partial class RH_CalculoSBC : ClsPaginas StringBuilder str = new StringBuilder(); //bool rollback = false; - using (ClsClaseBase objNomina = new ClsClaseBase()) using (ClsRH objpersonal = new ClsRH()) { @@ -607,7 +605,7 @@ public partial class RH_CalculoSBC : ClsPaginas } if (CvePersonal > 0) { - objNomina.runQuerystr(string.Format("EXEC PA_RH_PersonalTSUpdate {0},'{1}'", CvePersonal, TipodeSalario)); + objpersonal.PersonalTSUpdate(CvePersonal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TipodeSalario); } } diff --git a/RH/CatTurno.aspx b/RH/CatTurno.aspx index cbd930149..7ce26474e 100644 --- a/RH/CatTurno.aspx +++ b/RH/CatTurno.aspx @@ -42,12 +42,12 @@ Entrada Salida - + + DataKeyNames="CveTurno,Turno,CveChecadorHorario,HorarioDe,DiaDescanso,HorarioA,Comida,ComidaDe,ComidaA,Estatus,FechaIng,CveUsuario,CveEmpresa,Usuario,ChecadorHorario,ToleranciaERetardo,ToleranciaEFalta,ToleranciaEFalta2,ToleranciaSRetardo,ToleranciaSFalta"> <%----%> @@ -63,6 +63,11 @@ + + + > + + > @@ -162,6 +167,19 @@ +
+ + + + + + + + + + + +
diff --git a/RH/CatTurno.aspx.vb b/RH/CatTurno.aspx.vb index 7fe9ebd7a..7ce3a67b0 100644 --- a/RH/CatTurno.aspx.vb +++ b/RH/CatTurno.aspx.vb @@ -42,14 +42,14 @@ Partial Class RH_CatTurno If ChkEstatus.Checked Then Estatus = True If HdnModalidad.Value = "A" Then If ObjRH.AddTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlChecadorHorario.SelectedValue.ToEntero(), - TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text) Then + TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text, ddlDiaDescanso.SelectedValue.ToEntero()) Then CargaDatos() CargaGlobalDTTurno() Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) End If ElseIf HdnModalidad.Value = "U" Then If ObjRH.UpdateTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, Estatus, HdnID.Value.ToEntero(), UsuarioActual.CveUsuario, DdlChecadorHorario.SelectedValue.ToEntero(), - TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text) Then + TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text, ddlDiaDescanso.SelectedValue.ToEntero()) Then CargaDatos() CargaGlobalDTTurno() Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) @@ -80,7 +80,7 @@ Partial Class RH_CatTurno chkComida.Checked = (GvRow.DataKey("Comida") = "1") TxtComidade.Text = GvRow.DataKey("ComidaDe") TxtComidaA.Text = GvRow.DataKey("ComidaA") - + ddlDiaDescanso.SelectedValueExist(GvRow.DataKey("DiaDescanso")) UpAddTurno.Update() @@ -100,6 +100,7 @@ Partial Class RH_CatTurno TxtRetardo.Text = "15" TxtFretardo.Text = "30" TxtFsalida.Text = "15" + ddlDiaDescanso.SelectedValueExist("-1") CargaDdlChecadorHorario() ChkEstatus.Checked = True UpAddTurno.Update() diff --git a/RH/ChecadorAsistencia.aspx.cs b/RH/ChecadorAsistencia.aspx.cs index d943312fc..88c044743 100644 --- a/RH/ChecadorAsistencia.aspx.cs +++ b/RH/ChecadorAsistencia.aspx.cs @@ -11,12 +11,12 @@ public partial class RH_ChecadorAsistencia : System.Web.UI.Page { if (!IsPostBack) { - using(ClsClaseBase objbase = new ClsClaseBase()) + using(ClsRH objbase = new ClsRH()) { try { Usuario user = (Usuario)Context.Session["UsuarioSIG"]; - if(objbase.runQuerystr(string.Format("EXEC PA_RH_GetAsistenciaChecador {0}", user.CveEmpresa))){ + if(objbase.GetAsistenciaChecador( user.CveEmpresa)){ GVGetAsistenciaChecador.DataSource = objbase.DtResultados; GVGetAsistenciaChecador.DataBind(); diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index a49bf4056..bc97f13a3 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -1968,8 +1968,8 @@ Partial Class RH_Personal -1, "-1", DdlEstatusPersonal.SelectedValue.ToEntero(), TxtFechaNacimiento.Text.ToDate, TxtLugarNacimiento.Text.Trim, TxtCalle.Text.Trim, TxtNumExt.Text.Trim, TxtNumInt.Text.Trim, TxtColonia.Text.Trim, TxtCP.Text.Trim, TxtCiudad.Text.Trim, - DdlEstados.SelectedValue.ToEntero(), TxtTelefono.Text.Trim, TxtTelefonoEmergencia.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim, TxtCredencialElector.Text.Trim, - TxtCURP.Text.Trim, TxtNombrePadre.Text.Trim, TxtNombreMadre.Text.Trim, DdlBanco.SelectedValue.ToEntero(), DdlRiesgoPuesto.SelectedValue.ToEntero(), DdlRegimenContratacion.SelectedValue.ToEntero(), + DdlEstados.SelectedValue.ToEntero(), TxtTelefono.Text.Trim, TxtTelefonoEmergencia.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim, TxtCURP.Text.Trim, TxtCredencialElector.Text.Trim, + TxtNombrePadre.Text.Trim, TxtNombreMadre.Text.Trim, DdlBanco.SelectedValue.ToEntero(), DdlRiesgoPuesto.SelectedValue.ToEntero(), DdlRegimenContratacion.SelectedValue.ToEntero(), DdlClienteAsignado.SelectedValue.ToEntero(), DdlSubProyectoAsignado.SelectedValue.ToEntero(), URL, DdlSupervisor.SelectedValue.ToEntero(), TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero(), DdlViaticos.SelectedValue.ToEntero(), DdlViaticos.SelectedItem.Text, DdlPrestamos.SelectedValue.ToEntero(), DdlPrestamos.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), TxtBeneficiario.Text.Trim, DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(), @@ -2116,10 +2116,8 @@ Partial Class RH_Personal GlobalDTCuentasDepositosPersonales(UsuarioActual.CveEmpresa) = Nothing If CvePersonal > 0 Then - Dim strquery As String = String.Format("UPDATE RH_Personal SET CveEstadoDomicilio = {2},CiudadOrigen ='{3}' WHERE CvePersonal ={1} AND CveEmpresa = {0} ", - UsuarioActual.CveEmpresa, CvePersonal, DdlEstadosDomicilio.SelectedValue.ToEntero(), TxtCiudadOrigen.Text) - Using objbase As New ClsClaseBase - If (objbase.runQuerystr(strquery)) Then + Using objbase As New ClsRH + If (objbase.PersonalDomUp(DdlEstadosDomicilio.SelectedValue.ToEntero(), TxtCiudadOrigen.Text, CvePersonal, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)) Then End If End Using CargaDatos() @@ -7041,16 +7039,13 @@ Partial Class RH_Personal Protected Sub LnkDAltas_Click(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) CvePersonalAltas = GvRow.DataKey("CvePersonalAltas").ToEntero() - Dim strquery As String = String.Format("DELETE [RH_PersonalAltas] WHERE CvePersonalAltas ={0} AND [CvePersonal] ={1}", CvePersonalAltas, CvePersonal) - Using objbase As New ClsClaseBase - If (objbase.runQuerystr(strquery)) Then - Using objrh As New ClsRH() - If objrh.GetPersonalAltas(CvePersonal) Then - GvPersonalAltas.DataSource = objrh.DtResultados - GvPersonalAltas.DataBind() - UpDatos.Update() - End If - End Using + Using objrh As New ClsRH() + If (objrh.PersonalAltasRemove(CvePersonalAltas, CvePersonal, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)) Then + If objrh.GetPersonalAltas(CvePersonal) Then + GvPersonalAltas.DataSource = objrh.DtResultados + GvPersonalAltas.DataBind() + UpDatos.Update() + End If Alert("Alta eliminada") End If End Using @@ -7066,16 +7061,13 @@ Partial Class RH_Personal strfin = String.Format(",[FechaFin]='{0:yyyy-MM-dd}'", fechafin) End If - Dim strquery As String = String.Format("UPDATE [RH_PersonalAltas] SET [FechaInicio]='{2:yyyy-MM-dd}' {3} WHERE CvePersonalAltas ={0} AND [CvePersonal] ={1}", CvePersonalAltas, CvePersonal, TxtFechaInicioUA.Text.ToDateTime(), strfin) - Using objbase As New ClsClaseBase - If (objbase.runQuerystr(strquery)) Then - Using objrh As New ClsRH() - If objrh.GetPersonalAltas(CvePersonal) Then - GvPersonalAltas.DataSource = objrh.DtResultados - GvPersonalAltas.DataBind() - UpDatos.Update() - End If - End Using + Using objrh As New ClsRH() + If (objrh.PersonalAltasUpFechas(CvePersonalAltas, TxtFechaInicioUA.Text.ToDateTime().ToString("yyyy-MM-dd"), strfin, CvePersonal, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)) Then + If objrh.GetPersonalAltas(CvePersonal) Then + GvPersonalAltas.DataSource = objrh.DtResultados + GvPersonalAltas.DataBind() + UpDatos.Update() + End If Alert("Alta actualizada") End If End Using @@ -7535,8 +7527,8 @@ Partial Class RH_Personal Dim vacacionesyprima As String = "" Dim Utilidades As String = "" Dim strquery As String = String.Format("EXEC PA_Agro_ValidacionNomGet @CveValidacionNomina=-1,@CveEmpresa ={0} ", UsuarioActual.CveEmpresa) - Using objbase As New ClsClaseBase - If (objbase.runQuerystr(strquery)) Then + Using objbase As New ClsNominas() + If (objbase.AgroValidacionNomGet(-1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)) Then Dim dbrow As DataRow dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =4") If Not IsNothing(dbrow) Then diff --git a/asmx/WSGPSApp.asmx b/asmx/WSGPSApp.asmx index 53f281618..384e3af6b 100644 --- a/asmx/WSGPSApp.asmx +++ b/asmx/WSGPSApp.asmx @@ -493,7 +493,7 @@ Public Class WSGPSApp } Dim JsonParams = Decripta(p) Dim Ent = JsonConvert.DeserializeAnonymousType(JsonParams, Estructura) - If ObjGPS.DispositivoAdd(Ent.TipoDispostivo, Ent.NumTelefono, Ent.CveModelo, Ent.CveProveedorComunicacionCuenta, Ent.CveCliente, Ent.IMEI, Ent.Serie, 1, Ent.SerieVehiculo, "", Ent.NombreVehiculo, Ent.NombreVehiculo, Ent.DevID, 0, "", Ent.Anio, "", "", False, 100D, "", 0D, "", "", 100) Then + If ObjGPS.DispositivoAdd(Ent.TipoDispostivo, Ent.NumTelefono, Ent.CveModelo, Ent.CveProveedorComunicacionCuenta, Ent.CveCliente, Ent.IMEI, Ent.Serie, 1, Ent.SerieVehiculo, "", Ent.NombreVehiculo, Ent.NombreVehiculo, Ent.DevID, 0, "", Ent.Anio, "", "", False, 100D, "", 0D, "", "", 100, "") Then Retorno = ObjGPS.CveDispositivo End If Catch ex As Exception @@ -531,11 +531,11 @@ Public Class WSGPSApp Dim Ent = JsonConvert.DeserializeAnonymousType(JsonParams, Estructura) If Ent.CveDispositivo > 0 Then - If ObjGPS.DispositivosUpdate(Ent.TipoDispostivo, Ent.NumTelefono, Ent.CveDispositivo, Ent.CveModelo, Ent.CveProveedorComunicacionCuenta, Ent.CveCliente, Ent.IMEI, Ent.Serie, 1, Ent.SerieVehiculo, "", Ent.NombreVehiculo, Ent.NombreVehiculo, Ent.DevID, 0, "", Ent.Anio, "", "", False, 100D, "", 0D, "", "", 100) Then + If ObjGPS.DispositivosUpdate(Ent.TipoDispostivo, Ent.NumTelefono, Ent.CveDispositivo, Ent.CveModelo, Ent.CveProveedorComunicacionCuenta, Ent.CveCliente, Ent.IMEI, Ent.Serie, 1, Ent.SerieVehiculo, "", Ent.NombreVehiculo, Ent.NombreVehiculo, Ent.DevID, 0, "", Ent.Anio, "", "", False, 100D, "", 0D, "", "", 100, "") Then Retorno = Ent.CveDispositivo End If Else - If ObjGPS.DispositivoAdd(Ent.TipoDispostivo, Ent.NumTelefono, Ent.CveModelo, Ent.CveProveedorComunicacionCuenta, Ent.CveCliente, Ent.IMEI, Ent.Serie, 1, Ent.SerieVehiculo, "", Ent.NombreVehiculo, Ent.NombreVehiculo, Ent.DevID, 0, "", Ent.Anio, "", "", False, 100D, "", 0D, "", "", 100) Then + If ObjGPS.DispositivoAdd(Ent.TipoDispostivo, Ent.NumTelefono, Ent.CveModelo, Ent.CveProveedorComunicacionCuenta, Ent.CveCliente, Ent.IMEI, Ent.Serie, 1, Ent.SerieVehiculo, "", Ent.NombreVehiculo, Ent.NombreVehiculo, Ent.DevID, 0, "", Ent.Anio, "", "", False, 100D, "", 0D, "", "", 100, "") Then Retorno = ObjGPS.CveDispositivo End If End If