Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git
This commit is contained in:
Antonio Gonzalez
@@ -6,8 +6,8 @@ Imports System.Data.SqlClient
|
||||
Imports Extensiones
|
||||
|
||||
Public Class ClsGenerales
|
||||
Implements IDisposable
|
||||
|
||||
Implements IDisposable
|
||||
|
||||
#Region "Campos"
|
||||
Private _CveColectiva As Integer
|
||||
|
||||
@@ -48,9 +48,9 @@ Public Class ClsGenerales
|
||||
Get
|
||||
DtResultados = Data
|
||||
End Get
|
||||
End Property
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
|
||||
Public Function IniciaTransacSQL() As SqlTransaction
|
||||
If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
|
||||
Return SqlTransacc
|
||||
@@ -89,9 +89,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
|
||||
@@ -124,9 +124,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()
|
||||
@@ -209,7 +209,7 @@ 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
|
||||
#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
|
||||
@@ -231,10 +231,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
|
||||
@@ -317,9 +317,9 @@ 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
|
||||
@@ -453,11 +453,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")
|
||||
@@ -534,10 +534,10 @@ 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
|
||||
@@ -550,9 +550,9 @@ Public Class ClsGenerales
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
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
|
||||
@@ -565,9 +565,9 @@ Public Class ClsGenerales
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " P A I S E S"
|
||||
Public Function GetGralPaises() As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -580,9 +580,9 @@ Public Class ClsGenerales
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
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
|
||||
@@ -595,9 +595,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
|
||||
@@ -687,9 +687,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
|
||||
@@ -786,9 +786,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
|
||||
@@ -882,9 +882,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
|
||||
@@ -976,9 +976,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
|
||||
@@ -1058,9 +1058,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(CveColectiva As Integer, Colectiva As String, Codigo As String, Tipo As String, CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -1216,10 +1216,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
|
||||
@@ -1337,9 +1337,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
|
||||
@@ -1368,8 +1368,7 @@ Public Class ClsGenerales
|
||||
' 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) As Boolean
|
||||
|
||||
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
|
||||
|
||||
DataAdapter("PA_Gral_CuentasDepositosGet")
|
||||
@@ -1378,7 +1377,8 @@ 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
|
||||
|
||||
Try
|
||||
@@ -1641,11 +1641,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")
|
||||
@@ -1726,12 +1726,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")
|
||||
@@ -1985,9 +1985,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
|
||||
@@ -2088,9 +2088,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
|
||||
@@ -2177,9 +2177,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
|
||||
@@ -2352,11 +2352,11 @@ 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,
|
||||
@@ -2450,9 +2450,9 @@ Public Class ClsGenerales
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "SAT PRODUCTOS SERVICIOS Y UNIDAD DE MEDIDA"
|
||||
Public Function GetSATProductosServicios() As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -2508,10 +2508,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
|
||||
@@ -2653,10 +2653,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")
|
||||
@@ -3006,11 +3006,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
|
||||
@@ -3086,11 +3086,11 @@ 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
|
||||
|
||||
|
||||
|
||||
|
||||
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
|
||||
If Not disposedValue Then
|
||||
If disposing Then
|
||||
@@ -3106,9 +3106,9 @@ Public Class ClsGenerales
|
||||
' TODO: Establecer campos grandes como Null.
|
||||
End If
|
||||
disposedValue = True
|
||||
End Sub
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#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
|
||||
|
||||
@@ -3189,21 +3189,21 @@ Public Class ClsGenerales
|
||||
|
||||
|
||||
Return retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " IDisposable Support "
|
||||
' Visual Basic agregó este código para implementar correctamente el modelo descartable.
|
||||
' Visual Basic agregó este código para implementar correctamente el modelo descartable.
|
||||
Public Sub Dispose() Implements IDisposable.Dispose
|
||||
' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
|
||||
ConexionClose()
|
||||
Dispose(True)
|
||||
GC.SuppressFinalize(Me)
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " P O L I Z A V I R T U A L "
|
||||
Public Function ModelosAutosGet(CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -3263,7 +3263,7 @@ 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
|
||||
End Class
|
||||
|
||||
|
||||
@@ -442,6 +442,34 @@ Public Class ClsPaginas
|
||||
Application("GlobalDTProveedoresCuentas") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property GlobalDTCuentasDepositosClientes(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional Estatus As Boolean = True) As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = String.Format("GlobalDTCuentasDepositosClientes-{0}", CveEmpresa)
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
Dim P As New ClsGenerales
|
||||
If P.GetCuentasDepositos(CveEmpresa:=CveEmpresa, CveCliente:=-2) Then Application(AppNombre) = P.DtResultados
|
||||
P.Dispose()
|
||||
End If
|
||||
|
||||
Dim Str As New StringBuilder
|
||||
Str.AppendFormat("CveEmpresa = {0}", CveEmpresa)
|
||||
If CveCliente <> -1 Then Str.AppendFormat(" AND CveCliente = {0}", CveCliente)
|
||||
If Estatus = True Then Str.AppendFormat(" AND Estatus = 1 ")
|
||||
|
||||
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
|
||||
|
||||
GlobalDTCuentasDepositosClientes = Dv.ToTable
|
||||
Dv.Dispose()
|
||||
|
||||
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
Dim AppNombre As String = String.Format("GlobalDTCuentasDepositosClientes-{0}", CveEmpresa)
|
||||
Application(AppNombre) = value
|
||||
End Set
|
||||
End Property
|
||||
Property GlobalDTProveedorClasificacion(CveEmpresa As Integer) As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = String.Format("GlobalDTProveedorClasificacion-{0}", CveEmpresa)
|
||||
@@ -7254,7 +7282,7 @@ Public Class ClsPaginas
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
|
||||
Dim ObjCuentasBancos As New ClsGenerales()
|
||||
If ObjCuentasBancos.GetCuentasDepositos(ObjOC.CveProveedor) Then
|
||||
If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=ObjOC.CveProveedor) Then
|
||||
Dim CuentasActivas As DataTable = ObjCuentasBancos.DtResultados.FiltraParametros("EstatusTexto = 'Activo'")
|
||||
Dim CuentasStr As New StringBuilder("")
|
||||
For Each CuentasBancarios As DataRow In CuentasActivas.Rows
|
||||
|
||||
@@ -4743,7 +4743,7 @@ Partial Class Bancos_IE
|
||||
If CveProveedor > 0 Then
|
||||
Dim ObjCuentasBancos As New ClsGenerales
|
||||
|
||||
If ObjCuentasBancos.GetCuentasDepositos() Then
|
||||
If ObjCuentasBancos.GetCuentasDepositos(CveEmpresa:=UsuarioActual.CveEmpresa) Then
|
||||
GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
|
||||
End If
|
||||
ObjCuentasBancos.Dispose()
|
||||
|
||||
@@ -151,7 +151,7 @@ Partial Class Bancos_MovimientosBancarios
|
||||
If GvProveedores.Rows(i).FCCheckBox("CheckAgregar").Checked = True Then
|
||||
DTProveedorActual = DTProveedores.FiltraParametros(String.Format("CveProveedor = {0}", GvProveedores.Rows(i).DataKey("CveProveedor")))
|
||||
|
||||
If ObjCuentasBancos.GetCuentasDepositos(21109) Then
|
||||
If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=21109) Then
|
||||
DTProveedorBancos = ObjCuentasBancos.DtResultados
|
||||
RowBanco = DTProveedorBancos.Rows(0)
|
||||
Else
|
||||
@@ -319,7 +319,7 @@ Partial Class Bancos_MovimientosBancarios
|
||||
|
||||
DTProveedorActual = DTProveedores.FiltraParametros(String.Format("CveProveedor = 21114"))
|
||||
|
||||
If ObjCuentasBancos.GetCuentasDepositos(21114) Then
|
||||
If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=21114) Then
|
||||
DTProveedorBancos = ObjCuentasBancos.DtResultados
|
||||
RowBanco = DTProveedorBancos.Rows(0)
|
||||
Else
|
||||
|
||||
@@ -3976,7 +3976,7 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
|
||||
params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
|
||||
params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
|
||||
params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString))
|
||||
params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
|
||||
params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
|
||||
params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
|
||||
|
||||
|
||||
@@ -122,7 +122,7 @@ Partial Class Contabilidad_CatPeriodosBloqueo
|
||||
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarPeriodosBloqueo"), "jsHideModalPeriodosBloqueo")
|
||||
UpGral.Update()
|
||||
|
||||
Ejercicio = -1
|
||||
Alert("Bloqueo Agregado Correctamente", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Alert("Ocurrió un error al guardar el Periodo de Bloqueo", TipoMensaje.MsgError)
|
||||
@@ -138,15 +138,14 @@ Partial Class Contabilidad_CatPeriodosBloqueo
|
||||
|
||||
UpGral.Update()
|
||||
Alert("Bloqueo Actualizado Correctamente", TipoMensaje.MsgInformacion)
|
||||
Ejercicio = -1
|
||||
Actualizar = False
|
||||
Else
|
||||
Dim mensajeAlerta As String = AplicarBloqueso.Replace(";", Environment.NewLine)
|
||||
Alert(String.Format("No se puede bloquear el periodo por: <br/>{0} ", mensajeAlerta), TipoMensaje.MsgError)
|
||||
End If
|
||||
End If
|
||||
|
||||
Ejercicio = -1
|
||||
Actualizar = False
|
||||
|
||||
ObjConta.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -77,11 +77,12 @@ Partial Class RepTraspasoAlmacen
|
||||
If ObjInventarios.RepTraspasoAlmacen(FechaI.ToDate, FechaF.ToDate, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, ChkRecibido.Checked, UsuarioActual.CveEmpresa) Then
|
||||
GvDatos.DataSource = ObjInventarios.DtResultados
|
||||
DtInventarios = ObjInventarios.DtResultados
|
||||
GvDatos.DataBind()
|
||||
UPDatos.Update()
|
||||
|
||||
End If
|
||||
|
||||
ObjInventarios.Dispose()
|
||||
GvDatos.DataBind()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
@@ -5983,7 +5983,7 @@ Partial Class Clientes
|
||||
|
||||
#Region "C U E N T A S - B A N C A R I A S"
|
||||
|
||||
Private Sub CargaCuentasBancarias()
|
||||
Private Sub CargaCuentasBancarias(Optional RecargaGlobal As Boolean = False)
|
||||
|
||||
If CveCliente <= 0 Then Exit Sub
|
||||
|
||||
@@ -6004,9 +6004,8 @@ Partial Class Clientes
|
||||
End If
|
||||
|
||||
ObjCuentasBancos.Dispose()
|
||||
CargaPSGridCuentasBancos()
|
||||
|
||||
RecargaGlobalCuentasBancarias()
|
||||
CargaPSGridCuentasBancos()
|
||||
|
||||
CargaMonedas()
|
||||
End Sub
|
||||
Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
|
||||
@@ -6208,13 +6207,10 @@ Partial Class Clientes
|
||||
RecargaGlobalCuentasBancarias()
|
||||
End Sub
|
||||
Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
|
||||
If CveCliente > 0 Then
|
||||
Dim ObjCuentasBancos As New ClsGenerales
|
||||
|
||||
If ObjCuentasBancos.GetCuentasDepositos() Then
|
||||
GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
|
||||
End If
|
||||
ObjCuentasBancos.Dispose()
|
||||
If CveCliente > 0 Then
|
||||
|
||||
GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1, True) = Nothing
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user