Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
Oscar Irigoyen
@@ -366,7 +366,7 @@ Public Class ClsPaginas
|
||||
Property GlobalDTTipoOperacion() As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTTipoOperacion"
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjGrales As New ClsGenerales
|
||||
If ObjGrales.GetSATTipoOperacion() Then Application(AppNombre) = ObjGrales.DtResultados
|
||||
ObjGrales.Dispose()
|
||||
@@ -381,7 +381,7 @@ Public Class ClsPaginas
|
||||
Property GlobalDTSATMotivoTraslado() As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTSATMotivoTraslado"
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjGrales As New ClsGenerales
|
||||
If ObjGrales.GetSATMotivoTraslado() Then Application(AppNombre) = ObjGrales.DtResultados
|
||||
ObjGrales.Dispose()
|
||||
@@ -396,7 +396,7 @@ Public Class ClsPaginas
|
||||
Property GlobalDTUnidadAduana() As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTUnidadAduana"
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjGrales As New ClsGenerales
|
||||
If ObjGrales.GetSATUnidadesAduana() Then Application(AppNombre) = ObjGrales.DtResultados
|
||||
ObjGrales.Dispose()
|
||||
@@ -411,7 +411,7 @@ Public Class ClsPaginas
|
||||
Property GlobalDTGralPaises() As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTGralPaises"
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjGrales As New ClsGenerales
|
||||
If ObjGrales.GetSATPais() Then Application(AppNombre) = ObjGrales.DtResultados
|
||||
ObjGrales.Dispose()
|
||||
@@ -589,7 +589,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTCuentasDepositosClientes-{CveEmpresa}"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim P As New ClsGenerales
|
||||
If P.GetCuentasDepositos(CveEmpresa:=CveEmpresa, CveCliente:=-2) Then Application(AppNombre) = P.DtResultados
|
||||
P.Dispose()
|
||||
@@ -612,7 +612,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTProveedorClasificacion-{CveEmpresa}"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim P As New ClsCompProveedores
|
||||
If P.GetProveedorClasificacion(CveEmpresa) Then Application(AppNombre) = P.DtResultados
|
||||
P.Dispose()
|
||||
@@ -634,7 +634,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTProveedorSucursales-{CveEmpresa}"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim P As New ClsCompProveedores
|
||||
If P.GetSucursales(-1, CveEmpresa) Then Application(AppNombre) = P.DtResultados
|
||||
P.Dispose()
|
||||
@@ -922,19 +922,23 @@ Public Class ClsPaginas
|
||||
End Property
|
||||
Property GlobalDTClasificacionesDetalle(Optional CveEmpresa As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable
|
||||
Get
|
||||
If CveEmpresa <> -1 Then
|
||||
Dim Str As New StringBuilder
|
||||
Str.AppendFormat("CveEmpresa = {0}", CveEmpresa)
|
||||
If CveClasificacion <> -1 Then Str.AppendFormat(" AND CveClasificacion = {0}", CveClasificacion)
|
||||
Dim Dv As New DataView(DirectCast(Application("GlobalDTClasificacionesDetalle"), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
|
||||
GlobalDTClasificacionesDetalle = Dv.ToTable
|
||||
Dv.Dispose()
|
||||
Else
|
||||
GlobalDTClasificacionesDetalle = DirectCast(Application("GlobalDTClasificacionesDetalle"), DataTable)
|
||||
Dim AppNombre As String = $"GlobalDTClasificacionesDetalle-{CveEmpresa}"
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Using ObjVenta As New ClsVentas
|
||||
If ObjVenta.GetClasificacionDetalle(CveEmpresa, CveClasificacion:=-1) Then Application(AppNombre) = ObjVenta.DtResultados
|
||||
End Using
|
||||
End If
|
||||
|
||||
Dim Str As New StringBuilder
|
||||
If CveClasificacion <> -1 Then Str.AppendFormat(" CveClasificacion = {0}", CveClasificacion)
|
||||
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
|
||||
GlobalDTClasificacionesDetalle = Dv.ToTable
|
||||
Dv.Dispose()
|
||||
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
Application("GlobalDTClasificacionesDetalle") = value
|
||||
Dim AppNombre As String = $"GlobalDTClasificacionesDetalle-{CveEmpresa}"
|
||||
Application(AppNombre) = value
|
||||
End Set
|
||||
End Property
|
||||
Property GlobalDTSubFamilias(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable
|
||||
@@ -958,7 +962,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTFamilias-{CveEmpresa}"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjGenerales As New ClsGenerales
|
||||
If ObjGenerales.GetCategorias(CveEmpresa, 2) Then Application(AppNombre) = ObjGenerales.DtResultados
|
||||
ObjGenerales.Dispose()
|
||||
@@ -974,7 +978,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTCategoriasPresupuestos-{CveEmpresa}"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjGenerales As New ClsGenerales
|
||||
If ObjGenerales.GetCategorias(CveEmpresa, 3) Then Application(AppNombre) = ObjGenerales.DtResultados
|
||||
ObjGenerales.Dispose()
|
||||
@@ -1676,21 +1680,25 @@ Public Class ClsPaginas
|
||||
End Property
|
||||
Property GlobalDTInvMetodosInventario() As DataTable
|
||||
Get
|
||||
GlobalDTInvMetodosInventario = DirectCast(Application("GlobalDTInvMetodosInventario"), DataTable)
|
||||
Dim AppNombre As String = $"GlobalDTInvMetodosInventario"
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPS As New ClsProductosServicios
|
||||
If ObjPS.GetMetodosInv() Then Application(AppNombre) = ObjPS.DtResultados
|
||||
ObjPS.Dispose()
|
||||
End If
|
||||
GlobalDTInvMetodosInventario = DirectCast(Application(AppNombre), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
Application("GlobalDTInvMetodosInventario") = value
|
||||
Dim AppNombre As String = $"GlobalDTInvMetodosInventario"
|
||||
Application(AppNombre) = value
|
||||
End Set
|
||||
End Property
|
||||
Property GlobalDTInvCamiones(CveEmpresa As Integer, Optional CveCamion As Integer = -1) As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTInvCamiones-{CveEmpresa}"
|
||||
'sino existe, recarga los datos
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjInventarios As New ClsInventarios
|
||||
If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) Then
|
||||
Application(AppNombre) = ObjInventarios.DtResultados
|
||||
End If
|
||||
If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) Then Application(AppNombre) = ObjInventarios.DtResultados
|
||||
ObjInventarios.Dispose()
|
||||
End If
|
||||
Dim Str As New StringBuilder
|
||||
@@ -1715,7 +1723,6 @@ Public Class ClsPaginas
|
||||
Public Shared Property GlobalDTAFCaracteristicas(CveEmpresa As Integer) As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTAFCaracteristicas-{CveEmpresa}"
|
||||
'sino existe, recarga los datos
|
||||
If HttpContext.Current.Application(AppNombre) Is Nothing Then
|
||||
Dim ObjActivosFijos As New ClsAF
|
||||
If ObjActivosFijos.GetCaracteristicas(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
|
||||
@@ -1731,7 +1738,6 @@ Public Class ClsPaginas
|
||||
Public Shared Property GlobalDTAFCaracteristicasClasificaciones(CveEmpresa As Integer) As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTAFCaracteristicasClasificaciones-{CveEmpresa}"
|
||||
'sino existe, recarga los datos
|
||||
If HttpContext.Current.Application(AppNombre) Is Nothing Then
|
||||
Dim ObjActivosFijos As New ClsAF
|
||||
If ObjActivosFijos.GetCaracteristicasClasificaciones(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
|
||||
@@ -1747,7 +1753,6 @@ Public Class ClsPaginas
|
||||
Property GlobalDTImpuestosLocales(CvePS As Integer, CveEmpresa As Integer) As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTImpuestosLocales-{CveEmpresa}"
|
||||
'sino existe, recarga los datos
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPS As New ClsProductosServicios
|
||||
If ObjPS.GetPSImpuestosLocales(-1, CveEmpresa) Then Application(AppNombre) = ObjPS.DtResultados
|
||||
@@ -1767,9 +1772,6 @@ Public Class ClsPaginas
|
||||
Set(value As DataTable)
|
||||
Dim AppNombre As String = $"GlobalDTImpuestosLocales-{CveEmpresa}"
|
||||
Application(AppNombre) = value
|
||||
'Dim ObjPS As New ClsProductosServicios
|
||||
'If ObjPS.GetPSImpuestosLocales(-1, CveEmpresa) Then Application(AppNombre) = ObjPS.DtResultados
|
||||
'ObjPS.Dispose()
|
||||
End Set
|
||||
End Property
|
||||
'Bancos
|
||||
@@ -1803,7 +1805,6 @@ Public Class ClsPaginas
|
||||
Public Shared Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1, Optional CveTipoCuenta As Integer = -1) As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTBancosCuentas-{CveEmpresa}"
|
||||
'sino existe, recarga los datos
|
||||
If HttpContext.Current.Application(AppNombre) Is Nothing Then
|
||||
Using ObjBancos As New ClsBancos
|
||||
If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then
|
||||
@@ -1821,7 +1822,6 @@ Public Class ClsPaginas
|
||||
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str, "", DataViewRowState.CurrentRows)
|
||||
GlobalDTBancosCuentas = Dv.ToTable
|
||||
Dv.Dispose()
|
||||
'GlobalDTBancosCuentas = DirectCast(Application("GlobalDTBancosCuentas"), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
Dim AppNombre As String = $"GlobalDTBancosCuentas-{CveEmpresa}"
|
||||
@@ -2336,10 +2336,18 @@ Public Class ClsPaginas
|
||||
#Region "***********************************************************************DT EVENTOS****************************************************************************************"
|
||||
Property GlobalDTTiposEventos() As DataTable
|
||||
Get
|
||||
GlobalDTTiposEventos = DirectCast(Application("GlobalDTTiposEventos"), DataTable)
|
||||
Dim AppNombre As String = $"GlobalDTTiposEventos"
|
||||
If HttpContext.Current.Application(AppNombre) Is Nothing Then
|
||||
Dim ObjTiposEventos As New ClsTiposEventos
|
||||
If ObjTiposEventos.GetTiposEventos() Then HttpContext.Current.Application(AppNombre) = ObjTiposEventos.DtResultados
|
||||
ObjTiposEventos.Dispose()
|
||||
End If
|
||||
GlobalDTTiposEventos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
|
||||
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
Application("GlobalDTTiposEventos") = value
|
||||
Dim AppNombre As String = $"GlobalDTTiposEventos"
|
||||
Application(AppNombre) = value
|
||||
End Set
|
||||
End Property
|
||||
Property GlobalDTEventos() As DataTable
|
||||
@@ -2548,7 +2556,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTGralCategorias-{CveEmpresa}"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjGenerales As New ClsGenerales
|
||||
If ObjGenerales.GetCategorias(CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados
|
||||
ObjGenerales.Dispose()
|
||||
@@ -2570,7 +2578,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTGralCategorias2-{CveEmpresa}"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjGenerales As New ClsGenerales
|
||||
If ObjGenerales.GetCategorias(CveEmpresa, 4) Then Application(AppNombre) = ObjGenerales.DtResultados
|
||||
ObjGenerales.Dispose()
|
||||
@@ -2591,7 +2599,7 @@ Public Class ClsPaginas
|
||||
Property GlobalDTGralEscolaridades() As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTGralEscolaridades"
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjGenerales As New ClsGenerales
|
||||
If ObjGenerales.GetEscolaridades() Then Application(AppNombre) = ObjGenerales.DtResultados
|
||||
ObjGenerales.Dispose()
|
||||
@@ -2606,7 +2614,7 @@ Public Class ClsPaginas
|
||||
Property GlobalDTGralColectivas(CveEmpresa As Integer) As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTGralColectivas-{CveEmpresa}"
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjGenerales As New ClsGenerales
|
||||
If ObjGenerales.GetColectivas(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados
|
||||
ObjGenerales.Dispose()
|
||||
@@ -2622,7 +2630,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTGralMarcas-{CveEmpresa}"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjMarcas As New ClsProductosServicios
|
||||
If ObjMarcas.GetMarcas(CveEmpresa) Then Application(AppNombre) = ObjMarcas.DtResultados Else Application(AppNombre) = Nothing
|
||||
ObjMarcas.Dispose()
|
||||
@@ -3253,7 +3261,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTOCEstatusUsuarios-{CveEmpresa}"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjOC As New ClsOC
|
||||
If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, CveEmpresa) Then
|
||||
Application(AppNombre) = ObjOC.DtResultados
|
||||
@@ -3361,7 +3369,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTAsistenciaDetalle"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetAsistenciasDetalle() Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
ObjPersonal.Dispose()
|
||||
@@ -3377,7 +3385,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTAsistenciasInasistencias"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetAsistenciasInasistencias() Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
ObjPersonal.Dispose()
|
||||
@@ -3393,7 +3401,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTEstatusPersonal"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetEstatusPersonal() Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
ObjPersonal.Dispose()
|
||||
@@ -3409,7 +3417,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTRHPersonal-{CveEmpresa}"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetPersonal(-1, CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
ObjPersonal.Dispose()
|
||||
@@ -3421,27 +3429,25 @@ Public Class ClsPaginas
|
||||
Application(AppNombre) = value
|
||||
End Set
|
||||
End Property
|
||||
Property GlobalDTDepartamentos() As DataTable
|
||||
Property GlobalDTDepartamentos(CveEmpresa As Integer) As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTDepartamentos"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
Dim AppNombre As String = $"GlobalDTDepartamentos-{CveEmpresa}"
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetDepartamentos() Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
If ObjPersonal.GetDepartamentos(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
ObjPersonal.Dispose()
|
||||
End If
|
||||
GlobalDTDepartamentos = DirectCast(Application(AppNombre), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
Dim AppNombre As String = "GlobalDTDepartamentos"
|
||||
Dim AppNombre As String = $"GlobalDTDepartamentos-{CveEmpresa}"
|
||||
Application(AppNombre) = value
|
||||
End Set
|
||||
End Property
|
||||
Property GlobalDTRHPuestos(CveEmpresa As Integer) As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTRHPuestos-{CveEmpresa}"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetPuestos(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
ObjPersonal.Dispose()
|
||||
@@ -3457,7 +3463,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTEscolaridad"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetEscolaridades() Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
ObjPersonal.Dispose()
|
||||
@@ -3473,7 +3479,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTEstadoCivil"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetEstadoCivil() Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
ObjPersonal.Dispose()
|
||||
@@ -3489,7 +3495,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTDocumentos"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetDocumentos() Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
ObjPersonal.Dispose()
|
||||
@@ -3505,7 +3511,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTGenero"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetGeneros() Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
ObjPersonal.Dispose()
|
||||
@@ -3517,19 +3523,18 @@ Public Class ClsPaginas
|
||||
Application(AppNombre) = value
|
||||
End Set
|
||||
End Property
|
||||
Property GlobalDTMotivoBaja() As DataTable
|
||||
Property GlobalDTMotivoBaja(CveEmpresa As Integer) As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTMotivoBaja"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
Dim AppNombre As String = $"GlobalDTMotivoBaja-{CveEmpresa}"
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetMotivoBaja() Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
If ObjPersonal.GetMotivoBaja(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
ObjPersonal.Dispose()
|
||||
End If
|
||||
GlobalDTMotivoBaja = DirectCast(Application(AppNombre), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
Dim AppNombre As String = "GlobalDTMotivoBaja"
|
||||
Dim AppNombre As String = $"GlobalDTMotivoBaja-{CveEmpresa}"
|
||||
Application(AppNombre) = value
|
||||
End Set
|
||||
End Property
|
||||
@@ -3537,7 +3542,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTTiposContrato"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetTiposContrato() Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
ObjPersonal.Dispose()
|
||||
@@ -3549,35 +3554,33 @@ Public Class ClsPaginas
|
||||
Application(AppNombre) = value
|
||||
End Set
|
||||
End Property
|
||||
Property GlobalDTRutas() As DataTable
|
||||
Property GlobalDTRutas(CveEmpresa As Integer) As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTRutas"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
Dim AppNombre As String = $"GlobalDTRutas-{CveEmpresa}"
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetRutas() Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
If ObjPersonal.GetRutas(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
ObjPersonal.Dispose()
|
||||
End If
|
||||
GlobalDTRutas = DirectCast(Application(AppNombre), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
Dim AppNombre As String = "GlobalDTRutas"
|
||||
Dim AppNombre As String = $"GlobalDTRutas-{CveEmpresa}"
|
||||
Application(AppNombre) = value
|
||||
End Set
|
||||
End Property
|
||||
Property GlobalDTTurno() As DataTable
|
||||
Property GlobalDTTurno(CveEmpresa As Integer) As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTTurno"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
Dim AppNombre As String = $"GlobalDTTurno-{CveEmpresa}"
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetTurnos() Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
If ObjPersonal.GetTurnos(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
ObjPersonal.Dispose()
|
||||
End If
|
||||
GlobalDTTurno = DirectCast(Application(AppNombre), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
Dim AppNombre As String = "GlobalDTTurno"
|
||||
Dim AppNombre As String = $"GlobalDTTurno-{CveEmpresa}"
|
||||
Application(AppNombre) = value
|
||||
End Set
|
||||
End Property
|
||||
@@ -3585,7 +3588,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTJornadas"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetJornadas() Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
ObjPersonal.Dispose()
|
||||
@@ -3597,19 +3600,18 @@ Public Class ClsPaginas
|
||||
Application(AppNombre) = value
|
||||
End Set
|
||||
End Property
|
||||
Property GlobalDTMotivosHorasExtras() As DataTable
|
||||
Property GlobalDTMotivosHorasExtras(CveEmpresa As Integer) As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTMotivosHorasExtras"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
Dim AppNombre As String = $"GlobalDTMotivosHorasExtras-{CveEmpresa}"
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetMotivoHorasExtras() Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
If ObjPersonal.GetMotivoHorasExtras(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
ObjPersonal.Dispose()
|
||||
End If
|
||||
GlobalDTMotivosHorasExtras = DirectCast(Application(AppNombre), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
Dim AppNombre As String = "GlobalDTMotivosHorasExtras"
|
||||
Dim AppNombre As String = $"GlobalDTMotivosHorasExtras-{CveEmpresa}"
|
||||
Application(AppNombre) = value
|
||||
End Set
|
||||
End Property
|
||||
@@ -3617,7 +3619,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = "GlobalDTTipoBuzon"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetTipoBuzon() Then Application(AppNombre) = ObjPersonal.DtResultados
|
||||
ObjPersonal.Dispose()
|
||||
@@ -3818,7 +3820,7 @@ Public Class ClsPaginas
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTPaqueteriaGuiaTipos-{CveEmpresa}"
|
||||
'sino existe, recarga los datos
|
||||
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
Dim ObjGenerales As New ClsGenerales
|
||||
If ObjGenerales.GetGralPaqueteriasGuiasTipo(CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados
|
||||
ObjGenerales.Dispose()
|
||||
@@ -3830,24 +3832,26 @@ Public Class ClsPaginas
|
||||
Application(AppNombre) = value
|
||||
End Set
|
||||
End Property
|
||||
Public Shared Property GlobalDTClasificacionPorcentaje(CveEmpresa As Integer, Optional CveClasicacionPorcentaje As Integer = -1, Optional CveClasicacion As Integer = -1,
|
||||
Optional PorcentajeIVA As Double = -1) As DataTable
|
||||
Public Shared Property GlobalDTClasificacionPorcentaje(CveEmpresa As Integer, Optional CveClasicacionPorcentaje As Integer = -1, Optional CveClasicacion As Integer = -1, Optional PorcentajeIVA As Double = -1) As DataTable
|
||||
Get
|
||||
Dim Str As StringBuilder = New StringBuilder()
|
||||
If CveEmpresa <> -1 Or CveClasicacionPorcentaje <> -1 Or CveClasicacion <> -1 Or PorcentajeIVA <> -1 Then
|
||||
If CveEmpresa <> -1 Then Str.AppendFormat("CveEmpresa = {0}", CveEmpresa)
|
||||
If CveClasicacionPorcentaje <> -1 Then Str.AppendFormat(" {0} CveClasicacionPorcentaje = {1}", If(Str.Length > 0, "AND", ""), CveClasicacionPorcentaje)
|
||||
If CveClasicacion <> -1 Then Str.AppendFormat(" {0} CveClasicacion = {1}", If(Str.Length > 0, "AND", ""), CveClasicacion)
|
||||
If PorcentajeIVA <> -1 Then Str.AppendFormat(" {0} PorcentajeIVA = {1}", If(Str.Length > 0, "AND", ""), PorcentajeIVA)
|
||||
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTClasificacionPorcentaje"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
|
||||
GlobalDTClasificacionPorcentaje = Dv.ToTable
|
||||
Dv.Dispose()
|
||||
Else
|
||||
GlobalDTClasificacionPorcentaje = DirectCast(HttpContext.Current.Application("GlobalDTClasificacionPorcentaje"), DataTable)
|
||||
Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}"
|
||||
If HttpContext.Current.Application(AppNombre) Is Nothing Then
|
||||
Using ObjVenta As New ClsGenerales
|
||||
If ObjVenta.GetClasificacionPorcentaje(CveEmpresa, CveClasificacion:=-1) Then HttpContext.Current.Application(AppNombre) = ObjVenta.DtResultados
|
||||
End Using
|
||||
End If
|
||||
|
||||
Dim Str As StringBuilder = New StringBuilder()
|
||||
If CveClasicacionPorcentaje <> -1 Then Str.AppendFormat(" {0} CveClasicacionPorcentaje = {1}", If(Str.Length > 0, "AND", ""), CveClasicacionPorcentaje)
|
||||
If CveClasicacion <> -1 Then Str.AppendFormat(" {0} CveClasicacion = {1}", If(Str.Length > 0, "AND", ""), CveClasicacion)
|
||||
If PorcentajeIVA <> -1 Then Str.AppendFormat(" {0} PorcentajeIVA = {1}", If(Str.Length > 0, "AND", ""), PorcentajeIVA)
|
||||
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
|
||||
GlobalDTClasificacionPorcentaje = Dv.ToTable
|
||||
Dv.Dispose()
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
HttpContext.Current.Application("GlobalDTClasificacionPorcentaje") = value
|
||||
Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}"
|
||||
HttpContext.Current.Application(AppNombre) = value
|
||||
End Set
|
||||
End Property
|
||||
Property GlobalDTPaqueterias(CveEmpresa As Integer, Optional TipoPaqueteria As Integer = -1) As DataTable
|
||||
|
||||
@@ -448,9 +448,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
|
||||
#End Region
|
||||
|
||||
#Region "ClsRHDepartamentos"
|
||||
Public Function GetDepartamentos() As Boolean
|
||||
Public Function GetDepartamentos(CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_RH_DepartamentosGet")
|
||||
DataAdapter("PA_RH_DepartamentosGet")
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
@@ -982,7 +986,6 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
|
||||
|
||||
SqlAdapter.SelectCommand.Parameters.Add("@CveGenero", SqlDbType.Int).Value = CveGenero
|
||||
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
@@ -1074,9 +1077,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
|
||||
#End Region
|
||||
|
||||
#Region "ClsRHMotivoBaja"
|
||||
Public Function GetMotivoBaja() As Boolean
|
||||
Public Function GetMotivoBaja(CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_RH_MotivoBajaGet")
|
||||
DataAdapter("PA_RH_MotivoBajaGet")
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
@@ -1164,9 +1170,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
|
||||
#End Region
|
||||
|
||||
#Region "ClsRHMotivosHorasExtras"
|
||||
Public Function GetMotivoHorasExtras() As Boolean
|
||||
Public Function GetMotivoHorasExtras(CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_RH_MotivosHorasExtrasGet")
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
@@ -3249,9 +3258,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
|
||||
#End Region
|
||||
|
||||
#Region "ClsRHRuta"
|
||||
Public Function GetRutas() As Boolean
|
||||
Public Function GetRutas(CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_RH_RutaGet")
|
||||
DataAdapter("PA_RH_RutaGet")
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
|
||||
@@ -1582,8 +1582,6 @@ Partial Class Compras_Compras
|
||||
CargaFletesAgregados()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
InicializaOC()
|
||||
|
||||
'Valida si el IVA del XML es está bien calculado
|
||||
@@ -3210,6 +3208,10 @@ Partial Class Compras_Compras
|
||||
InventarioMov()
|
||||
HabilitaNCInv()
|
||||
|
||||
If Request("RG") IsNot Nothing Then
|
||||
BtnRegenerarPrePolizaAlmacen_Click(Nothing, Nothing)
|
||||
End If
|
||||
|
||||
Else
|
||||
Alert("La compra solicitada no se encontró. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
@@ -8108,6 +8110,10 @@ Partial Class Compras_Compras
|
||||
Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
|
||||
End If
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros
|
||||
Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>", CvePrePoliza)
|
||||
End If
|
||||
|
||||
If CveMovimientoInventario > 0 Then
|
||||
Dim TempParametros = Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoInventario))
|
||||
Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"">Ver Movimiento de Almacen</a>", CveMovimientoInventario)
|
||||
|
||||
@@ -5726,10 +5726,10 @@ Partial Class Compras_Proveedores
|
||||
End Sub
|
||||
Protected Sub DescargarFormatoCarta(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String)
|
||||
Try
|
||||
Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
|
||||
Dim PathRoot As String = Server.MapPath("/")
|
||||
Dim Documento As String = "CartaProveedor.docx"
|
||||
Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
|
||||
Dim PathDestino As String = PathRoot & "Temp\" & Documento
|
||||
Dim PathDestino As String = PathRoot & "Temp\" & Proveedor & "_" & Documento
|
||||
|
||||
If File.Exists(PathDestino) Then
|
||||
File.Delete(PathDestino)
|
||||
@@ -5749,10 +5749,10 @@ Partial Class Compras_Proveedores
|
||||
End Sub
|
||||
Protected Sub DescargarFormatoEvaluacion(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String)
|
||||
Try
|
||||
Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
|
||||
Dim PathRoot As String = Server.MapPath("/")
|
||||
Dim Documento As String = "FormatoEvaluacionProveedor.docx"
|
||||
Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
|
||||
Dim PathDestino As String = PathRoot & "Temp\" & Documento
|
||||
Dim PathDestino As String = PathRoot & "Temp\" & Proveedor & "_" & Documento
|
||||
|
||||
If File.Exists(PathDestino) Then
|
||||
File.Delete(PathDestino)
|
||||
|
||||
@@ -487,6 +487,10 @@ Partial Class Contratos_Default
|
||||
End If
|
||||
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then divResponsable.Visible = False
|
||||
|
||||
If UsuarioActual.CveEmpresa = 13 Then
|
||||
rpCompra.Visible = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub CargaDireccionesEnvios(CveCliente As Integer)
|
||||
@@ -728,11 +732,11 @@ Partial Class Contratos_Default
|
||||
DvTotal.Visible = True
|
||||
|
||||
|
||||
If CveContrato > 0 AndAlso CveContratoTipo <> 25 Then
|
||||
If CveContrato > 0 AndAlso Not CveContratoTipo.Contiene(25, 33) Then
|
||||
TableDatosCabecera.Visible = True
|
||||
End If
|
||||
|
||||
If CveContratoTipo = 25 Then
|
||||
If CveContratoTipo.Contiene(25, 33) Then
|
||||
DvMax.Visible = False
|
||||
DvMin.Visible = False
|
||||
DvTotal.Visible = False
|
||||
@@ -749,11 +753,11 @@ Partial Class Contratos_Default
|
||||
DvTotal.Visible = True
|
||||
'TxtCantidad.Visible = False
|
||||
|
||||
If CveContrato > 0 AndAlso CveContratoTipo <> 25 Then
|
||||
If CveContrato > 0 AndAlso Not CveContratoTipo.Contiene(25, 33) Then
|
||||
TableDatosCabecera.Visible = True
|
||||
End If
|
||||
|
||||
If CveContratoTipo = 25 Then
|
||||
If CveContratoTipo.Contiene(25, 33) Then
|
||||
DvMax.Visible = False
|
||||
DvMin.Visible = False
|
||||
DvTotal.Visible = False
|
||||
@@ -835,6 +839,48 @@ Partial Class Contratos_Default
|
||||
CargaPlantillas()
|
||||
TrContratoPlantilla.Visible = True
|
||||
TabPres.HeaderText = "Partidas"
|
||||
End If
|
||||
|
||||
|
||||
If CveContratoTipo = 33 Then
|
||||
TabContratosGastos.Visible = False
|
||||
TabAF.Visible = False
|
||||
TabReporteAvance.Visible = False
|
||||
TabAvanveDocumento.Visible = False
|
||||
TabContratosGastos.Visible = False
|
||||
TabAF.Visible = False
|
||||
TabPed.Visible = False
|
||||
TabAddendum.Visible = False
|
||||
TabFacCiclica.Visible = False
|
||||
|
||||
TabPVInsumos.Visible = False
|
||||
|
||||
thOcCliente.Visible = False
|
||||
tdOcCliente.Visible = False
|
||||
|
||||
thLimitar.Visible = False
|
||||
tdLimitar2.Visible = False
|
||||
|
||||
trLicitacion.Visible = False
|
||||
divResponsable.Visible = False
|
||||
'TrPeriodo.Visible = True
|
||||
trIva.Visible = False
|
||||
trAnticipo.Visible = False
|
||||
trAmortizacion.Visible = False
|
||||
trPorGarantia.Visible = False
|
||||
DvMin.Visible = False
|
||||
RowFlexible.Visible = False
|
||||
RowPorcentajeComision.Visible = False
|
||||
DvMax.Visible = False
|
||||
DvTotal.Visible = False
|
||||
'RowEstatus.Visible = False
|
||||
DdlSubProyectoContrato.AutoPostBack = False
|
||||
|
||||
dvAddendum.Visible = False
|
||||
|
||||
DivFianzas.Visible = False
|
||||
Div4.Visible = False
|
||||
DivImpuestosLocales.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
@@ -938,6 +984,27 @@ Partial Class Contratos_Default
|
||||
|
||||
thLimitar.Visible = False
|
||||
tdLimitar2.Visible = False
|
||||
|
||||
trLicitacion.Visible = False
|
||||
divResponsable.Visible = False
|
||||
'TrPeriodo.Visible = True
|
||||
trIva.Visible = False
|
||||
trAnticipo.Visible = False
|
||||
trAmortizacion.Visible = False
|
||||
trPorGarantia.Visible = False
|
||||
DvMin.Visible = False
|
||||
RowFlexible.Visible = False
|
||||
RowPorcentajeComision.Visible = False
|
||||
DvMax.Visible = False
|
||||
DvTotal.Visible = False
|
||||
RowEstatus.Visible = False
|
||||
DdlSubProyectoContrato.AutoPostBack = False
|
||||
|
||||
dvAddendum.Visible = False
|
||||
|
||||
DivFianzas.Visible = False
|
||||
Div4.Visible = False
|
||||
DivImpuestosLocales.Visible = False
|
||||
End If
|
||||
|
||||
If ObjContratos.CveProveedor > 0 Then
|
||||
@@ -1232,20 +1299,23 @@ Partial Class Contratos_Default
|
||||
|
||||
Private Sub CargarFianzas()
|
||||
|
||||
DivFianzas.Visible = True
|
||||
|
||||
Dim ObjContrato As ClsContratos = New ClsContratos()
|
||||
|
||||
If ObjContrato.GetContratoFianza(CveContrato, -1, "-1", "-1", UsuarioActual.CveEmpresa, -1) Then
|
||||
DtTmpFianzas = ObjContrato.DtResultados
|
||||
GvFianzas.DataSource = ObjContrato.DtResultados
|
||||
|
||||
DtTmpFianzasInicial = DtTmpFianzas.Copy()
|
||||
|
||||
If CveContratoTipo <> 33 Then
|
||||
DivFianzas.Visible = True
|
||||
|
||||
Dim ObjContrato As ClsContratos = New ClsContratos()
|
||||
|
||||
If ObjContrato.GetContratoFianza(CveContrato, -1, "-1", "-1", UsuarioActual.CveEmpresa, -1) Then
|
||||
DtTmpFianzas = ObjContrato.DtResultados
|
||||
GvFianzas.DataSource = ObjContrato.DtResultados
|
||||
|
||||
DtTmpFianzasInicial = DtTmpFianzas.Copy()
|
||||
|
||||
End If
|
||||
|
||||
ObjContrato.Dispose()
|
||||
GvFianzas.DataBind()
|
||||
End If
|
||||
|
||||
ObjContrato.Dispose()
|
||||
GvFianzas.DataBind()
|
||||
UpGvFianzas.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -3273,8 +3273,8 @@ Partial Class General_SaldosIniciales
|
||||
dtregistrospatronales = ObjRH.DtResultados
|
||||
dtregistrospatronales.CaseSensitive = False
|
||||
dTSubProyectos = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
|
||||
dTDepartamentos = GlobalDTDepartamentos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
|
||||
dTTurno = GlobalDTTurno().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
|
||||
dTDepartamentos = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
|
||||
dTTurno = GlobalDTTurno(UsuarioActual.CveEmpresa)
|
||||
dTSubProyectos.CaseSensitive = False
|
||||
dTDepartamentos.CaseSensitive = False
|
||||
dTTurno.CaseSensitive = False
|
||||
@@ -3774,7 +3774,7 @@ Partial Class General_SaldosIniciales
|
||||
crow = 1
|
||||
ccol = ccol + 1
|
||||
Catalogos.Cell(crow, ccol).Value = "Departamento"
|
||||
For Each row As DataRow In GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).Rows
|
||||
For Each row As DataRow In GlobalDTDepartamentos(UsuarioActual.CveEmpresa).Rows
|
||||
crow = crow + 1
|
||||
Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveDepartamento"), row("Departamento"))
|
||||
Next
|
||||
@@ -3788,7 +3788,7 @@ Partial Class General_SaldosIniciales
|
||||
crow = 1
|
||||
ccol = ccol + 1
|
||||
Catalogos.Cell(crow, ccol).Value = "Turno"
|
||||
For Each row As DataRow In GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).Rows
|
||||
For Each row As DataRow In GlobalDTTurno(UsuarioActual.CveEmpresa).Rows
|
||||
crow = crow + 1
|
||||
Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveTurno"), row("Turno"))
|
||||
Next
|
||||
|
||||
379
Global.asax
379
Global.asax
@@ -37,60 +37,6 @@
|
||||
'BANDERA PARA VALIDACION DE CFDI
|
||||
Application("GlobalValidarCFDI") = True
|
||||
|
||||
'----------------------------------------------------------------------------------------------------------------------
|
||||
'C A R G A - R H
|
||||
#If False Then
|
||||
GuardaLogAsax(String.Format("Globalasax 1:{0}", DateTime.Now))
|
||||
Using ObjRH As New ClsRH
|
||||
|
||||
If ObjRH.GetTipoBuzon() Then Application("GlobalDTTipoBuzon") = ObjRH.DtResultados Else Application("GlobalDTTipoBuzon") = Nothing
|
||||
If ObjRH.GetDepartamentos Then Application("GlobalDTDepartamentos") = ObjRH.DtResultados Else Application("GlobalDTDepartamentos") = Nothing
|
||||
If ObjRH.GetDocumentos() Then Application("GlobalDTDocumentos") = ObjRH.DtResultados Else Application("GlobalDTDocumentos") = Nothing
|
||||
If ObjRH.GetEscolaridades() Then Application("GlobalDTEscolaridad") = ObjRH.DtResultados Else Application("GlobalDTEscolaridad") = Nothing
|
||||
If ObjRH.GetEstadoCivil() Then Application("GlobalDTEstadoCivil") = ObjRH.DtResultados Else Application("GlobalDTEstadoCivil") = Nothing
|
||||
If ObjRH.GetEstatusPersonal() Then Application("GlobalDTEstatusPersonal") = ObjRH.DtResultados Else Application("GlobalDTEstatusPersonal") = Nothing
|
||||
If ObjRH.GetGeneros() Then Application("GlobalDTGenero") = ObjRH.DtResultados Else Application("GlobalDTGenero") = Nothing
|
||||
If ObjRH.GetMotivoBaja() Then Application("GlobalDTMotivoBaja") = ObjRH.DtResultados Else Application("GlobalDTMotivoBaja") = Nothing
|
||||
If ObjRH.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
|
||||
If ObjRH.GetRutas() Then Application("GlobalDTRutas") = ObjRH.DtResultados Else Application("GlobalDTRutas") = Nothing
|
||||
If ObjRH.GetTiposContrato() Then Application("GlobalDTTiposContrato") = ObjRH.DtResultados Else Application("GlobalDTTiposContrato") = Nothing
|
||||
If ObjRH.GetTurnos() Then Application("GlobalDTTurno") = ObjRH.DtResultados Else Application("GlobalDTTurno") = Nothing
|
||||
If ObjRH.GetJornadas() Then Application("GlobalDTJornadas") = ObjRH.DtResultados Else Application("GlobalDTJornadas") = Nothing
|
||||
If ObjRH.GetAsistenciasInasistencias() Then Application("GlobalDTAsistenciasInasistencias") = ObjRH.DtResultados Else Application("GlobalDTAsistenciasInasistencias") = Nothing
|
||||
If ObjRH.GetMotivoHorasExtras() Then Application("GlobalDTMotivosHorasExtras") = ObjRH.DtResultados Else Application("GlobalDTMotivosHorasExtras") = Nothing
|
||||
If ObjRH.GetAsistenciasDetalle() Then Application("GlobalDTAsistenciaDetalle") = ObjRH.DtResultados Else Application("GlobalDTAsistenciaDetalle") = Nothing
|
||||
End Using
|
||||
#End If
|
||||
'----------------------------------------------------------------------------------------------------------------------
|
||||
'C A R G A - O S
|
||||
'GuardaLogAsax(String.Format("Globalasax 2:{0}", DateTime.Now))
|
||||
|
||||
'Using ObjOS As New ClsOS
|
||||
' If ObjOS.GetEstatusOrdenServicio() Then Application("GlobalDTEstatusOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTEstatusOrdenServicios") = Nothing
|
||||
' If ObjOS.GetTipoOrdenesServicios(-1) Then Application("GlobalDTTipoOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTTipoOrdenServicios") = Nothing
|
||||
'End Using
|
||||
'-------------------------------------------------------------------------------------------------------------------------
|
||||
'A C T I V O S - F I J O S
|
||||
'GuardaLogAsax(String.Format("Globalasax 3:{0}", DateTime.Now))
|
||||
|
||||
'Using ObjActivosFijos As New ClsAF
|
||||
'If ObjActivosFijos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTAFCaracteristicasClasificaciones") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicasClasificaciones") = Nothing
|
||||
'If ObjActivosFijos.GetCaracteristicas(-1) Then Application("GlobalDTAFCaracteristicas") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicas") = Nothing
|
||||
'If ObjActivosFijos.GetSubTiposActivosFijos(-1) Then Application("GlobalDTSubTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTSubTipoActivoFijo") = Nothing
|
||||
'If ObjActivosFijos.GetTiposActivosFijos(-1) Then Application("GlobalDTTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTTipoActivoFijo") = Nothing
|
||||
'If ObjActivosFijos.GetEstatusActivoFijo() Then Application("GlobalDTEstadoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTEstadoActivoFijo") = Nothing
|
||||
'If ObjActivosFijos.GetMarcasActivosFijos(-1) Then Application(" GlobalDTMarcaActivoFijo") = ObjActivosFijos.DtResultados Else Application(" GlobalDTMarcaActivoFijo") = Nothing
|
||||
'If ObjActivosFijos.GetModelosActivosFijos(-1, -1) Then Application("GlobalDTModeloActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTModeloActivoFijo") = Nothing
|
||||
'End Using
|
||||
'-------------------------------------------------------------------------------------------------------------------------
|
||||
'C A R G A - O R D E N E S - D E - C O M P R A S
|
||||
|
||||
'GuardaLogAsax(String.Format("Globalasax 4:{0}", DateTime.Now))
|
||||
'Using ObjOC As New ClsOC
|
||||
'If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
|
||||
'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
|
||||
'End Using
|
||||
|
||||
'-------------------------------------------------------------------------------------------------------------------------
|
||||
'A M O R T I Z A C I O N - C O N T A B L E
|
||||
|
||||
@@ -139,13 +85,6 @@
|
||||
|
||||
GuardaLogAsax(String.Format("Globalasax 7:{0}", DateTime.Now))
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
''C A R G A - T I P O G A S T O S
|
||||
'Using ObjCompra As New ClsCompras()
|
||||
' If ObjCompra.GetTipoGasto(-1, -1) Then Application("GlobalDTTiposGastos") = ObjCompra.DtResultados Else Application("GlobalDTTiposGastos") = Nothing
|
||||
'End Using
|
||||
|
||||
GuardaLogAsax(String.Format("Globalasax 8:{0}", DateTime.Now))
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'C A R G A - N O M
|
||||
|
||||
Using ObjNom As New ClsNominas()
|
||||
@@ -190,115 +129,24 @@
|
||||
|
||||
GuardaLogAsax(String.Format("Globalasax 11:{0}", DateTime.Now))
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
'B A N C O S
|
||||
|
||||
'GuardaLogAsax(String.Format("Globalasax 12:{0}", DateTime.Now))
|
||||
'Using ObjBancos As New ClsBancos
|
||||
'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
|
||||
'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
|
||||
'If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing
|
||||
'If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing
|
||||
'If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing
|
||||
'If ObjBancos.GetBancos_TiposCuenta() Then Application("GlobalDTTipoCuenta") = ObjBancos.DtResultados Else Application("GlobalDTTipoCuenta") = Nothing
|
||||
'End Using
|
||||
|
||||
'GuardaLogAsax(String.Format("Globalasax 13:{0}", DateTime.Now))
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
'I N V E N T A R I O S
|
||||
|
||||
'Using Objinventarios As New ClsInventarios
|
||||
'If Objinventarios.GetAlmacenes(-1, -1, -1, -1) Then Application("GlobalDTAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTAlmacen") = Nothing
|
||||
'If Objinventarios.GetSeccionesAlmacenes(-1, -1) Then Application("GlobalDTSeccionAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTSeccionAlmacen") = Nothing
|
||||
'If Objinventarios.GetTiposAlmacenes Then Application("GlobalDTTipoAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTTipoAlmacen") = Nothing
|
||||
'If Objinventarios.GetConceptos Then Application("GlobalDTInvConceptos") = Objinventarios.DtResultados Else Application("GlobalDTInvConceptos") = Nothing
|
||||
'End Using
|
||||
|
||||
GuardaLogAsax(String.Format("Globalasax 14:{0}", DateTime.Now))
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'C O N T A B I L I D A D - P L A N T I L L A S
|
||||
|
||||
|
||||
'Using ObjContabilidad As New ClsContabilidad
|
||||
'If ObjContabilidad.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing
|
||||
'If ObjContabilidad.GetConta_ConceptosContables() Then Application("GlobalDTContaConceptosContables") = ObjContabilidad.DtResultados Else Application("GlobalDTContaConceptosContables") = Nothing
|
||||
'If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing
|
||||
'End Using
|
||||
|
||||
GuardaLogAsax(String.Format("Globalasax 15:{0}", DateTime.Now))
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'G E N E R A L E S
|
||||
|
||||
Using ObjGenerales As New ClsGenerales
|
||||
'If ObjGenerales.GetGralPaises Then Application("GlobalDTGralPaises") = ObjGenerales.DtResultados Else Application("GlobalDTGralPaises") = Nothing
|
||||
'If ObjGenerales.GetGralEstados Then Application("GlobalDTGralEstados") = ObjGenerales.DtResultados Else Application("GlobalDTGralEstados") = Nothing
|
||||
'If ObjGenerales.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = ObjGenerales.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing
|
||||
'If ObjGenerales.GetGralPoblaciones Then Application("GlobalDTGralPoblaciones") = ObjGenerales.DtResultados Else Application("GlobalDTGralPoblaciones") = Nothing
|
||||
'If ObjGenerales.GetEscolaridades Then Application("GlobalDTGralEscolaridades") = ObjGenerales.DtResultados Else Application("GlobalDTGralEscolaridades") = Nothing
|
||||
'If ObjGenerales.GetCategorias Then Application("GlobalDTGralCategorias") = ObjGenerales.DtResultados Else Application("GlobalDTGralCategorias") = Nothing
|
||||
'If ObjGenerales.GetCategorias(-1, 2) Then Application("GlobalDTFamilias") = ObjGenerales.DtResultados Else Application("GlobalDTFamilias") = Nothing
|
||||
'If ObjGenerales.GetCategorias(-1, 3) Then Application("GlobalDTCategoriasPresupuestos") = ObjGenerales.DtResultados Else Application("GlobalDTCategoriasPresupuestos") = Nothing
|
||||
'If ObjGenerales.GetCategorias(-1, 4) Then Application("GlobalDTCategorias2") = ObjGenerales.DtResultados Else Application("GlobalDTCategorias2") = Nothing
|
||||
'If ObjGenerales.GetColectivas(-1, "-1", "-1", "-1", -1) Then Application("GlobalDTGralColectivas") = ObjGenerales.DtResultados Else Application("GlobalDTGralColectivas") = Nothing
|
||||
'If ObjGenerales.GetGralPaqueterias Then Application("GlobalDTPaqueterias") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueterias") = Nothing
|
||||
'If ObjGenerales.GetGralPaqueteriasGuiasTipo Then Application("GlobalDTPaqueteriaGuiaTipos") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueteriaGuiaTipos") = Nothing
|
||||
If ObjGenerales.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
|
||||
End Using
|
||||
#If False Then
|
||||
'SAT
|
||||
Using ObjGrales As New ClsGenerales
|
||||
'If ObjGrales.GetSATProductosServicios Then Application("GlobalDTPSATPS") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATPS") = Nothing
|
||||
'If ObjGrales.GetSATUnidadMedida Then Application("GlobalDTPSATUM") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATUM") = Nothing
|
||||
If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados Else Application("GlobalDTSATUsosCFDI") = Nothing
|
||||
If ObjGrales.GetSATFraccionArancelaria Then Application("GlobalDTFraccionArancelaria") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTFraccionArancelaria") = Nothing
|
||||
If ObjGrales.GetSATIncoterm Then Application("GlobalDTIncoterm") = ObjGrales.DtResultados Else Application("GlobalDTIncoterm") = Nothing
|
||||
If ObjGrales.GetSATTipoOperacion Then Application("GlobalDTTipoOperacion") = ObjGrales.DtResultados Else Application("GlobalDTTipoOperacion") = Nothing
|
||||
If ObjGrales.GetSATMotivoTraslado Then Application("GlobalDTSATMotivoTraslado") = ObjGrales.DtResultados Else Application("GlobalDTSATMotivoTraslado") = Nothing
|
||||
If ObjGrales.GetSATUnidadesAduana Then Application("GlobalDTUnidadAduana") = ObjGrales.DtResultados Else Application("GlobalDTUnidadAduana") = Nothing
|
||||
If ObjGrales.GetSATClavePedimento Then Application("GlobalDTClavePedimento") = ObjGrales.DtResultados Else Application("GlobalDTClavePedimento") = Nothing
|
||||
'If ObjGrales.GetSATPais Then Application("GlobalDTGralPaises") = ObjGrales.DtResultados Else Application("GlobalDTGralPaises") = Nothing
|
||||
'If ObjGrales.GetSATEstado("-1") Then Application("GlobalDTEstado") = ObjGrales.DtResultados Else Application("GlobalDTEstado") = Nothing
|
||||
'If ObjGrales.GetSATMunicipio("-1") Then Application("GlobalDTMunicipio") = ObjGrales.DtResultados Else Application("GlobalDTMunicipio") = Nothing
|
||||
'If ObjGrales.GetSATColonia("-1") Then Application("GlobalDTColonia") = ObjGrales.DtResultados Else Application("GlobalDTColonia") = Nothing
|
||||
End Using
|
||||
'GuardaLogAsax(String.Format("Globalasax 16:{0}", DateTime.Now))
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'E V E N T O S
|
||||
|
||||
'Using ObjEventos As New ClsOIEventos
|
||||
'If ObjEventos.GetEstatusEventos(-1) Then Application("GlobalDTOIEstatusEventos") = ObjEventos.DtResultados Else Application("GlobalDTOIEstatusEventos") = Nothing
|
||||
'If ObjEventos.GetRevisionesEventos(-1) Then Application("GlobalDTOIRevision") = ObjEventos.DtResultados Else Application("GlobalDTOIRevision") = Nothing
|
||||
'If ObjEventos.GetAgendaTipo() Then Application("GlobalDTOIAgendaTipo") = ObjEventos.DtResultados Else Application("GlobalDTOIAgendaTipo") = Nothing
|
||||
'If ObjEventos.GetEventoTarea(-1, -1) Then Application("GlobalDTOIEventoTarea") = ObjEventos.DtResultados Else Application("GlobalDTOIEventoTarea") = Nothing
|
||||
'Using ObjGenerales As New ClsGenerales
|
||||
' 'If ObjGenerales.GetGralPaises Then Application("GlobalDTGralPaises") = ObjGenerales.DtResultados Else Application("GlobalDTGralPaises") = Nothing
|
||||
' 'If ObjGenerales.GetGralEstados Then Application("GlobalDTGralEstados") = ObjGenerales.DtResultados Else Application("GlobalDTGralEstados") = Nothing
|
||||
' 'If ObjGenerales.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = ObjGenerales.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing
|
||||
' 'If ObjGenerales.GetGralPoblaciones Then Application("GlobalDTGralPoblaciones") = ObjGenerales.DtResultados Else Application("GlobalDTGralPoblaciones") = Nothing
|
||||
' 'If ObjGenerales.GetEscolaridades Then Application("GlobalDTGralEscolaridades") = ObjGenerales.DtResultados Else Application("GlobalDTGralEscolaridades") = Nothing
|
||||
' 'If ObjGenerales.GetCategorias Then Application("GlobalDTGralCategorias") = ObjGenerales.DtResultados Else Application("GlobalDTGralCategorias") = Nothing
|
||||
' 'If ObjGenerales.GetCategorias(-1, 2) Then Application("GlobalDTFamilias") = ObjGenerales.DtResultados Else Application("GlobalDTFamilias") = Nothing
|
||||
' 'If ObjGenerales.GetCategorias(-1, 3) Then Application("GlobalDTCategoriasPresupuestos") = ObjGenerales.DtResultados Else Application("GlobalDTCategoriasPresupuestos") = Nothing
|
||||
' 'If ObjGenerales.GetCategorias(-1, 4) Then Application("GlobalDTCategorias2") = ObjGenerales.DtResultados Else Application("GlobalDTCategorias2") = Nothing
|
||||
' 'If ObjGenerales.GetColectivas(-1, "-1", "-1", "-1", -1) Then Application("GlobalDTGralColectivas") = ObjGenerales.DtResultados Else Application("GlobalDTGralColectivas") = Nothing
|
||||
' 'If ObjGenerales.GetGralPaqueterias Then Application("GlobalDTPaqueterias") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueterias") = Nothing
|
||||
' 'If ObjGenerales.GetGralPaqueteriasGuiasTipo Then Application("GlobalDTPaqueteriaGuiaTipos") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueteriaGuiaTipos") = Nothing
|
||||
' 'If ObjGenerales.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
|
||||
'End Using
|
||||
GuardaLogAsax(String.Format("Globalasax 17:{0}", DateTime.Now))
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'V E N T A S
|
||||
|
||||
Using ObjVentas As New ClsVentas
|
||||
'If ObjVentas.GetMesas Then Application("GlobalDTMesas") = ObjVentas.DtResultados Else Application("GlobalDTMesas") = Nothing
|
||||
If ObjVentas.GetPrecioListas Then Application("GlobalDTPrecioListas") = ObjVentas.DtResultados Else Application("GlobalDTPrecioListas") = Nothing
|
||||
If ObjVentas.GetCondicionesEntrega(-1) Then Application("GlobalDTVtaCondicionesEntrega") = ObjVentas.DtResultados Else Application("GlobalDTVtaCondicionesEntrega") = Nothing
|
||||
If ObjVentas.GetFormaPago() Then Application("GlobalDTVtaFormaPago") = ObjVentas.DtResultados Else Application("GlobalDTVtaFormaPago") = Nothing
|
||||
If ObjVentas.GetMetodoPago() Then Application("GlobalDTVtaMetodoPago") = ObjVentas.DtResultados Else Application("GlobalDTVtaMetodoPago") = Nothing
|
||||
If ObjVentas.GetTiposDocumentos() Then Application("GlobalDTTiposDocumentos") = ObjVentas.DtResultados Else Application("GlobalDTTiposDocumentos") = Nothing
|
||||
If ObjVentas.GetTiposRelacion() Then Application("GlobalDTVtaTiposRelacion") = ObjVentas.DtResultados Else Application("GlobalDTVtaTiposRelacion") = Nothing
|
||||
If ObjVentas.GetCobranzaEstatus(-1, -1) Then Application("GlobalDTVtaCobranzaEstatus") = ObjVentas.DtResultados Else Application("GlobalDTVtaCobranzaEstatus") = Nothing
|
||||
|
||||
End Using
|
||||
'GuardaLogAsax(String.Format("Globalasax 19:{0}", DateTime.Now))
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
''MF
|
||||
|
||||
'Dim ObjMF As New ClsMF
|
||||
'If ObjMF.GetActividad(-1, -1, -1) Then Application("GlobalDTActividad") = ObjMF.DtResultados Else Application("GlobalDTActividad") = Nothing
|
||||
'If ObjMF.GetOperador(-1, -1, -1) Then Application("GlobalDTOperador") = ObjMF.DtResultados Else Application("GlobalDTOperador") = Nothing
|
||||
'If ObjMF.GetEstatus(-1, -1, -1) Then Application("GlobalDTEstatus") = ObjMF.DtResultados Else Application("GlobalDTEstatus") = Nothing
|
||||
|
||||
|
||||
'ObjMF.Dispose()
|
||||
#End If
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'C L A S I F I C A C I O N E S
|
||||
|
||||
@@ -332,92 +180,14 @@
|
||||
GuardaLogAsax(String.Format("Globalasax 20:{0}", DateTime.Now))
|
||||
|
||||
|
||||
Using ObjVenta As New ClsVentas
|
||||
If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then
|
||||
Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados
|
||||
End If
|
||||
End Using
|
||||
GuardaLogAsax(String.Format("Globalasax 21:{0}", DateTime.Now))
|
||||
|
||||
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'S U C U R S A L E S
|
||||
|
||||
'Dim ObjSucursales As New ClsSucursales()
|
||||
'If ObjSucursales.GetSucursales() Then Application("GlobalDTSucursales") = ObjSucursales.DtResultados Else Application("GlobalDTSucursales") = Nothing
|
||||
'ObjSucursales.Dispose()
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'U N I D A D E S - D E - M E D I D A
|
||||
|
||||
'Dim ObjUnidadesMedida As New ClsUnidadesMedida()
|
||||
'If ObjUnidadesMedida.GetUnidadesMedida(-1) Then Application("GlobalDTUnidadesMedida") = ObjUnidadesMedida.DtResultados Else Application("GlobalDTUnidadesMedida") = Nothing
|
||||
'If ObjUnidadesMedida.GetUnidadesMedidaAlias() Then Application("GlobalDTUnidadesMedidaAlias") = ObjUnidadesMedida.DtResultados Else Application("GlobalDTUnidadesMedidaAlias") = Nothing
|
||||
'ObjUnidadesMedida.Dispose()
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'M E T O D O S - D E - P A G O
|
||||
|
||||
'Using ObjMetodoPago As New ClsMetodosPagos()
|
||||
' If ObjMetodoPago.GetMetodosPago() Then Application("GlobalDTMetodosPago") = ObjMetodoPago.DtResultados Else Application("GlobalDTMetodosPago") = Nothing
|
||||
'Using ObjVenta As New ClsVentas
|
||||
' If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then
|
||||
' Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados
|
||||
' End If
|
||||
'End Using
|
||||
'GuardaLogAsax(String.Format("Globalasax 21:{0}", DateTime.Now))
|
||||
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'M O N E D A S
|
||||
|
||||
'Using ObjMonedas As New ClsMonedas()
|
||||
' 'If ObjMonedas.GetMonedas() Then Application("GlobalDTMonedas") = ObjMonedas.DtResultados Else Application("GlobalDTMonedas") = Nothing
|
||||
' If ObjMonedas.GetMonedasAlias() Then Application("GlobalDTMonedasAlias") = ObjMonedas.DtResultados Else Application("GlobalDTMonedasAlias") = Nothing
|
||||
|
||||
'End Using
|
||||
'GuardaLogAsax(String.Format("Globalasax 22:{0}", DateTime.Now))
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'L E Y E N D A S - F I S C A L E S
|
||||
|
||||
'Using ObjLeyendasFiscales As New ClsLeyendasFiscales()
|
||||
' If ObjLeyendasFiscales.GetLeyendasFiscales() Then Application("GlobalDTLeyendasFiscales") = ObjLeyendasFiscales.DtResultados Else Application("GlobalDTLeyendasFiscales") = Nothing
|
||||
'End Using
|
||||
'GuardaLogAsax(String.Format("Globalasax 23:{0}", DateTime.Now))
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'F A C T U R A S
|
||||
|
||||
'Using ObjEstatusFactura As New ClsEstatusFactura()
|
||||
' If ObjEstatusFactura.GetEstatusFactura() Then Application("GlobalDTEstatusFactura") = ObjEstatusFactura.DtResultados Else Application("GlobalDTEstatusFactura") = Nothing
|
||||
|
||||
'End Using
|
||||
'GuardaLogAsax(String.Format("Globalasax 24:{0}", DateTime.Now))
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'P R O Y E C T O S
|
||||
|
||||
'Using ObjProyectos As New ClsProyectos
|
||||
' If ObjProyectos.GetProyectos Then Application("GlobalDTProyectos") = ObjProyectos.DtResultados Else Application("GlobalDTProyectos") = Nothing
|
||||
'End Using
|
||||
'GuardaLogAsax(String.Format("Globalasax 25:{0}", DateTime.Now))
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'S U B P R O Y E C T O S
|
||||
|
||||
'Using ObjSubProyectos As New ClsSubProyectos
|
||||
' 'If ObjSubProyectos.GetSubProyectos Then Application("GlobalDTSubProyectos") = ObjSubProyectos.DtResultados Else Application("GlobalDTSubProyectos") = Nothing
|
||||
' If ObjSubProyectos.GetSubProyectosUsuarios Then
|
||||
' Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
|
||||
' Application("GlobalDTSubProyectosUsuarios") = ObjSubProyectos.DtResultados
|
||||
' Else
|
||||
' Application("GlobalDTProyectosUsuarios") = Nothing
|
||||
' Application("GlobalDTSubProyectosUsuarios") = Nothing
|
||||
' End If
|
||||
' 'Else Application("GlobalDTProyectosUsuarios") = Nothing
|
||||
'End Using
|
||||
'GuardaLogAsax(String.Format("Globalasax 26:{0}", DateTime.Now))
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'T I P O S - D E - E V E N T O S
|
||||
Using ObjTiposEventos As New ClsTiposEventos
|
||||
@@ -425,66 +195,14 @@
|
||||
End Using
|
||||
GuardaLogAsax(String.Format("Globalasax 27:{0}", DateTime.Now))
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'P R O D U C T O S Y S E R V I C I O S - C A R A C T E R I S T I C A S
|
||||
|
||||
'Se comentan porque ya no se estan cargando con Global.
|
||||
|
||||
'Dim ObjProductosServiciosCaracteristicas As New ClsGralProductosServiciosCaracteristicas
|
||||
'If ObjProductosServiciosCaracteristicas.GetProductosServiciosCaracteristicas() Then Application("GlobalDTProductosServiciosCaracteristicas") = ObjProductosServiciosCaracteristicas.DtResultados Else Application("GlobalDTProductosServiciosCaracteristicas") = Nothing
|
||||
'If ObjProductosServiciosCaracteristicas.GetProductosServiciosCaracteristicasOpciones() Then Application("GlobalDTProductosServiciosCaracteristicasOpciones") = ObjProductosServiciosCaracteristicas.DtResultados Else Application("GlobalDTProductosServiciosCaracteristicasOpciones") = Nothing
|
||||
'ObjProductosServiciosCaracteristicas.Dispose()
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'P R O D U C T O S S E R V I C I O S
|
||||
|
||||
Using ObjPS As New ClsProductosServicios
|
||||
'If ObjPS.GetPSAlias(-1, -1) Then Application("GlobalDTProductosServiciosAlias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosAlias") = Nothing
|
||||
'If ObjPS.GetPSEquivalencias(-1, -1) Then Application("GlobalDTProductosServiciosEquivalencias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosEquivalencias") = Nothing
|
||||
'If ObjPS.GetPS(-1, -1, -1) Then Application("GlobalDTProductosServicios") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTProductosServicios") = Nothing
|
||||
If ObjPS.GetMetodosInv() Then Application("GlobalDTInvMetodosInventario") = ObjPS.DtResultados Else Application("GlobalDTInvMetodosInventario") = Nothing
|
||||
'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing
|
||||
'If ObjPS.GetPSAdicionales(-1, -1) Then Application("GlobalDTPSAdicionales") = ObjPS.DtResultados Else Application("GlobalDTPSAdicionales") = Nothing
|
||||
End Using
|
||||
|
||||
GuardaLogAsax(String.Format("Globalasax 28:{0}", DateTime.Now))
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'P R O V E E D O R E S
|
||||
|
||||
'Dim ObjProveedores As New ClsCompProveedores
|
||||
'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCompProveedores") = ObjProveedores.DtResultados Else Application("GlobalDTCompProveedores") = Nothing
|
||||
'If ObjProveedores.GetProveedorClasificacion(-1) Then Application("GlobalDTProveedorClasificacion") = ObjProveedores.DtResultados Else Application("GlobalDTProveedorClasificacion") = Nothing
|
||||
'If ObjProveedores.GetSucursales(-1, -1) Then Application("GlobalDTProveedorSucursales") = ObjProveedores.DtResultados Else Application("GlobalDTProveedorSucursales") = Nothing
|
||||
'ObjProveedores.Dispose()
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'P R O V E E D O R E S C U E N T A S
|
||||
Using ObjProveedoresBancos As New ClsGenerales
|
||||
If ObjProveedoresBancos.GetCuentasDepositos() Then Application("GlobalDTProveedoresCuentas") = ObjProveedoresBancos.DtResultados Else Application("GlobalDTProveedoresCuentas") = Nothing
|
||||
End Using
|
||||
|
||||
|
||||
GuardaLogAsax(String.Format("Globalasax 29:{0}", DateTime.Now))
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'C L I E N T E S
|
||||
|
||||
'Dim ObjClientes As New ClsClientes
|
||||
'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1, Estatus:=-1) Then Application("GlobalDTCliente") = ObjClientes.DtResultados Else Application("GlobalDTCliente") = Nothing
|
||||
'If ObjClientes.GetClienteClasificacion(-1) Then Application("GlobalDTClienteClasificaciones") = ObjClientes.DtResultados Else Application("GlobalDTClienteClasificaciones") = Nothing
|
||||
'ObjClientes.Dispose()
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'C O N T R A T O S
|
||||
|
||||
'Using ObjContratos As New ClsContratos
|
||||
' If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
|
||||
' If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
|
||||
' 'If ObjContratos.GetContratosTipos(-1) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
|
||||
'End Using
|
||||
|
||||
GuardaLogAsax(String.Format("Globalasax 30:{0}", DateTime.Now))
|
||||
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'V E N D E D O R E S
|
||||
|
||||
@@ -510,18 +228,6 @@
|
||||
End Using
|
||||
|
||||
GuardaLogAsax(String.Format("Globalasax 33:{0}", DateTime.Now))
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'A C U M U L A D O R E S
|
||||
|
||||
'Using ObjAcumuladores As New ClsAcumuladores()
|
||||
' If ObjAcumuladores.TamañoGet(-1, -1) Then Application("GlobalDTAcumTamaños") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTamaños") = Nothing
|
||||
' If ObjAcumuladores.TiposDefectoGet(-1, -1) Then Application("GlobalDTAcumTiposDefecto") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTiposDefecto") = Nothing
|
||||
' If ObjAcumuladores.TiposUsoGet(-1, -1) Then Application("GlobalDTAcumTiposUso") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTiposUso") = Nothing
|
||||
' 'If ObjAcumuladores.GarantiasMesesGet(-1, -1) Then Application("GlobalDTAcumGarantiasMesesTipoUso") = ObjAcumuladores.DtResultados.FiltraParametros("", DistinctColumns:={"CveMarca", "CveTipoUso", "TipoUso"}) Else Application("GlobalDTAcumGarantiasMesesTipoUso") = Nothing
|
||||
'End Using
|
||||
'GuardaLogAsax(String.Format("Globalasax 34:{0}", DateTime.Now))
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'------------------------------------------------------------------------------S I S T E M A ----------------------------------------------------------------------------------
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
@@ -533,20 +239,6 @@
|
||||
|
||||
GuardaLogAsax(String.Format("Globalasax 35:{0}", DateTime.Now))
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'U S U A R I O S
|
||||
|
||||
'Using ObjUsuarios As New ClsSisUsuarios
|
||||
' If ObjUsuarios.GetUsuariosEmpresas(-1, -1) Then
|
||||
' 'Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
|
||||
' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
|
||||
' Else
|
||||
' Application("GlobalDTUsuarios") = Nothing
|
||||
' End If
|
||||
' 'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
|
||||
'End Using
|
||||
'GuardaLogAsax(String.Format("Globalasax 36:{0}", DateTime.Now))
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'R O L E S
|
||||
|
||||
@@ -573,27 +265,6 @@
|
||||
End Using
|
||||
GuardaLogAsax(String.Format("Globalasax 39:{0}", DateTime.Now))
|
||||
|
||||
'----------------------------------------------------------------------------------7--------------------------------------------------------------------------------------------
|
||||
'E M P R E S A S
|
||||
|
||||
'Using ObjEmpresas As New ClsSisEmpresas()
|
||||
' If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then
|
||||
' Application("GlobalDTEmpresas") = ObjEmpresas.DtResultados
|
||||
' 'verifico si existe la carpeta de la empresa, sino la crea
|
||||
' For Each dr As Data.DataRow In ObjEmpresas.DtResultados.Rows
|
||||
' Dim Ruta As String = String.Format("{0}Empresas\{1}", ModExtensiones.DirectorioBaseEmpresas, dr("CveEmpresa"))
|
||||
' If Not IO.Directory.Exists(Ruta) Then IO.Directory.CreateDirectory(Ruta)
|
||||
' If Not System.IO.Directory.Exists(String.Format("{0}\XML\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\XML\", Ruta))
|
||||
' If Not System.IO.Directory.Exists(String.Format("{0}\PDF\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\PDF\", Ruta))
|
||||
|
||||
' Next
|
||||
' Else
|
||||
' Application("GlobalDTEmpresas") = Nothing
|
||||
' End If
|
||||
'End Using
|
||||
'GuardaLogAsax(String.Format("Globalasax 40:{0}", DateTime.Now))
|
||||
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'G L O B A L E S A P L I C A C I Ó N
|
||||
@@ -620,20 +291,6 @@
|
||||
ClsPaginas.EmpresaNotificacionesGPS = EmpresaNotificacionesGPS
|
||||
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'I M P U E S T O S L O C A L E S
|
||||
|
||||
'Using ObjPSImpuestos As New ClsProductosServicios
|
||||
'If ObjPSImpuestos.GetPSImpuestosLocales(-1, -1) Then
|
||||
' If ObjPSImpuestos.DtResultados.Rows.Count > 0 Then
|
||||
' Application("GlobalDTImpuestosLocales") = ObjPSImpuestos.DtResultados
|
||||
' Else
|
||||
' Application("GlobalDTImpuestosLocales") = Nothing
|
||||
' End If
|
||||
'End If
|
||||
'End Using
|
||||
|
||||
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
' R A S T R E O
|
||||
|
||||
@@ -82,7 +82,7 @@ Partial Class Nomina_CatPeriodos
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTurnos()
|
||||
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
|
||||
DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataBind()
|
||||
DdlTurno.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
End Sub
|
||||
|
||||
@@ -23,7 +23,7 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
|
||||
{
|
||||
if (!IsPostBack)
|
||||
{
|
||||
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa);
|
||||
DdlTurno.DataSource = get_GlobalDTTurno(UsuarioActual.CveEmpresa);
|
||||
DdlTurno.DataBind();
|
||||
|
||||
CargaTiposPeriodo();
|
||||
@@ -47,7 +47,7 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
|
||||
DdlmcPersonal.DataBind();
|
||||
}
|
||||
}
|
||||
DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras.FiltraParametros(string.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa));
|
||||
DdlMotivoHoraExtra.DataSource = get_GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa);
|
||||
DdlMotivoHoraExtra.DataBind();
|
||||
cargaChecadores();
|
||||
CargarCentrosDeCosto(DdlAsisProyecto, DdlAsisSubProyecto, LblAsisProyecto, LblAsisSubProyecto);
|
||||
@@ -351,7 +351,7 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
|
||||
DdlTurno.SelectedValueExist(drow["CveTurno"].ToString());
|
||||
}
|
||||
TxtFechalabel.Text = string.Format("{0:dd/MM/yyyy}", fechai);
|
||||
DataTable dtTurno = GlobalDTTurno.FiltraParametros(string.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa));
|
||||
DataTable dtTurno = get_GlobalDTTurno(UsuarioActual.CveEmpresa);
|
||||
|
||||
using (ClsNominas objnom = new ClsNominas())
|
||||
{
|
||||
|
||||
@@ -115,7 +115,7 @@ public partial class Nomina_Finiquito : ClsPaginas
|
||||
}
|
||||
private void CargaMotivoBaja()
|
||||
{
|
||||
DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa);
|
||||
DdlMotivoBaja.DataSource = get_GlobalDTMotivoBaja(UsuarioActual.CveEmpresa);
|
||||
DdlMotivoBaja.DataBind();
|
||||
}
|
||||
private void CargaDdlPersonal()
|
||||
|
||||
@@ -45,7 +45,7 @@ Partial Class Nomina_ListaAsistencias
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTurnos()
|
||||
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataBind()
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -312,7 +312,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
||||
cargaEjercicios();
|
||||
CargaTiposPeriodo();
|
||||
cargaPeriodos();
|
||||
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}");
|
||||
DdlTurno.DataSource = get_GlobalDTTurno(UsuarioActual.CveEmpresa);
|
||||
DdlTurno.DataBind();
|
||||
|
||||
DdlMetodoPago.DataSource = GlobalDTMetodosPago;
|
||||
|
||||
@@ -77,7 +77,7 @@ Partial Class Nomina_PreNomina
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTurnos()
|
||||
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataBind()
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -57,7 +57,7 @@ Partial Class Nomina_PreNominaHistorial
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTurnos()
|
||||
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataBind()
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -66,11 +66,11 @@ Partial Class Nomina_RepConceptosAcumulados
|
||||
If CveConcepto > 0 And CveTipoPeriodo > 0 Then
|
||||
Dim ObjNomina As New ClsNominas()
|
||||
|
||||
If ObjNomina.GetRepConceptosAcumulados(CveConcepto, DDlEjercicio.SelectedValue.ToEntero, CveTipoPeriodo, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
GvDatos.DataSource = ObjNomina.DtResultados
|
||||
Else
|
||||
GvDatos.DataSource = Nothing
|
||||
End If
|
||||
'If ObjNomina.GetRepConceptosAcumulados(CveConcepto, DDlEjercicio.SelectedValue.ToEntero, CveTipoPeriodo, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
' GvDatos.DataSource = ObjNomina.DtResultados
|
||||
'Else
|
||||
' GvDatos.DataSource = Nothing
|
||||
'End If
|
||||
ObjNomina.Dispose()
|
||||
GvDatos.DataBind()
|
||||
|
||||
|
||||
@@ -96,7 +96,7 @@ public partial class Nomina_RepInversiondeNomina : ClsPaginas
|
||||
DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1);
|
||||
DdlSubProyecto.DataBind();
|
||||
DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros(string.Format("CveEmpresa ={0} AND Departamento <> 'Seleccione' ", UsuarioActual.CveEmpresa));
|
||||
DdlDepartamento.DataSource =get_GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' " );
|
||||
DdlDepartamento.DataBind();
|
||||
DdlDepartamento.Items.Insert(0, new ListItem("Todos", "-1"));
|
||||
|
||||
|
||||
@@ -90,7 +90,7 @@ Partial Class RH_ActualizacionMasiva
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTurnos()
|
||||
Dim dt = GlobalDTTurno.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
|
||||
Dim dt = GlobalDTTurno(UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataSource = dt
|
||||
DdlTurno.DataBind()
|
||||
Dim row = dt.NewRow
|
||||
|
||||
@@ -87,7 +87,7 @@ Partial Class RH_Asistencias
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTurnos()
|
||||
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataBind()
|
||||
End Sub
|
||||
|
||||
@@ -201,7 +201,7 @@ Partial Class RH_Asistencias
|
||||
If e.Row.DBCampo("CveAsistenciasInasistencias") <> "-1" Then e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias")
|
||||
|
||||
'Carga Motivos Horas Extras
|
||||
e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa)
|
||||
e.Row.FCDropDownList("DdlMotivoHoraExtra").DataBind()
|
||||
If e.Row.DBCampo("CveMotivoHoraExtra") <> "-1" Then e.Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue = e.Row.DBCampo("CveMotivoHoraExtra")
|
||||
|
||||
|
||||
@@ -43,9 +43,8 @@ Partial Class RH_CatDepartamentos
|
||||
|
||||
Public Sub CargaDatos()
|
||||
Dim ObjDepartamentos As New ClsRH
|
||||
If ObjDepartamentos.GetDepartamentos() Then
|
||||
ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTDepartamentos = ObjDepartamentos.DtResultados
|
||||
If ObjDepartamentos.GetDepartamentos(UsuarioActual.CveEmpresa) Then
|
||||
ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados
|
||||
Else
|
||||
Me.GvDatos.DataSource = Nothing
|
||||
End If
|
||||
@@ -75,7 +74,7 @@ Partial Class RH_CatDepartamentos
|
||||
Alert("El nuevo Departamento se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
UpTitulos.Update()
|
||||
ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTDepartamentos = ObjDepartamentos.DtResultados
|
||||
GlobalDTDepartamentos(UsuarioActual.CveEmpresa) = Nothing
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
@@ -106,7 +105,7 @@ Partial Class RH_CatDepartamentos
|
||||
If ObjDepartamentos.RemoveDepartamento(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
||||
GvDatos.EditIndex = -1
|
||||
ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTDepartamentos = ObjDepartamentos.DtResultados
|
||||
GlobalDTDepartamentos(UsuarioActual.CveEmpresa) = Nothing
|
||||
Alert("El Departamento se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
ObjDepartamentos.Dispose()
|
||||
@@ -136,7 +135,7 @@ Partial Class RH_CatDepartamentos
|
||||
If ObjDepartamentos.UpdateDepartamento(Departamento, Estatus, CveDepartamento) Then
|
||||
GvDatos.EditIndex = -1
|
||||
ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTDepartamentos = ObjDepartamentos.DtResultados
|
||||
GlobalDTDepartamentos(UsuarioActual.CveEmpresa) = Nothing
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
ObjDepartamentos.Dispose()
|
||||
|
||||
@@ -57,9 +57,8 @@ Partial Class RH_CatMotivoBaja
|
||||
|
||||
Public Sub CargaDatos()
|
||||
Dim ObjMotivoBaja As New ClsRH
|
||||
If ObjMotivoBaja.GetMotivoBaja() Then
|
||||
ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTMotivoBaja = ObjMotivoBaja.DtResultados
|
||||
If ObjMotivoBaja.GetMotivoBaja(UsuarioActual.CveEmpresa) Then
|
||||
ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados
|
||||
Else
|
||||
Me.GvDatos.DataSource = Nothing
|
||||
End If
|
||||
@@ -79,7 +78,7 @@ Partial Class RH_CatMotivoBaja
|
||||
MotivoTxt.Text = ""
|
||||
Alert("El nuevo Motivo de Baja se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTMotivoBaja = ObjMotivoBaja.DtResultados
|
||||
GlobalDTMotivoBaja(UsuarioActual.CveEmpresa) = Nothing
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
@@ -110,7 +109,7 @@ Partial Class RH_CatMotivoBaja
|
||||
If ObjMotivoBaja.RemoveMotivoBaja(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
||||
GvDatos.EditIndex = -1
|
||||
ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTMotivoBaja = ObjMotivoBaja.DtResultados
|
||||
GlobalDTMotivoBaja(UsuarioActual.CveEmpresa) = Nothing
|
||||
Alert("El Motivo de Baja se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
@@ -145,7 +144,7 @@ Partial Class RH_CatMotivoBaja
|
||||
If ObjMotivoBaja.UpdateMotivoBaja(MotivoBaja, Estatus, CveMotivoBaja) Then
|
||||
GvDatos.EditIndex = -1
|
||||
ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTMotivoBaja = ObjMotivoBaja.DtResultados
|
||||
GlobalDTMotivoBaja(UsuarioActual.CveEmpresa) = Nothing
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
|
||||
@@ -44,9 +44,8 @@ Partial Class RH_CatMotivosHorasExtras
|
||||
|
||||
Public Sub CargaDatos()
|
||||
Dim ObjMotivosHorasExtras As New ClsRH
|
||||
If ObjMotivosHorasExtras.GetMotivoHorasExtras() Then
|
||||
ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados
|
||||
If ObjMotivosHorasExtras.GetMotivoHorasExtras(UsuarioActual.CveEmpresa) Then
|
||||
ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados
|
||||
Else
|
||||
Me.GvDatos.DataSource = Nothing
|
||||
End If
|
||||
@@ -77,7 +76,7 @@ Partial Class RH_CatMotivosHorasExtras
|
||||
Alert("El nuevo Motivo de Horas Extras se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
UpTitulos.Update()
|
||||
ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados
|
||||
GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) = Nothing
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
@@ -108,7 +107,7 @@ Partial Class RH_CatMotivosHorasExtras
|
||||
If ObjMotivosHorasExtras.RemoveMotivoHoraExtra(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
||||
GvDatos.EditIndex = -1
|
||||
ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados
|
||||
GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) = Nothing
|
||||
Alert("El MotivoHoraExtra se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
@@ -138,8 +137,8 @@ Partial Class RH_CatMotivosHorasExtras
|
||||
|
||||
If ObjMotivosHorasExtras.UpdateMotivoHoraExtra(MotivoHoraExtra, Estatus, CveMotivoHoraExtra) Then
|
||||
GvDatos.EditIndex = -1
|
||||
ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados
|
||||
ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados
|
||||
GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) = Nothing
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
|
||||
@@ -246,14 +246,14 @@ Partial Class RH_CatPersonal
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTurno()
|
||||
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlTurno2.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
|
||||
DdlTurno2.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
|
||||
DdlTurno2.DataBind()
|
||||
DdlTurno.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDepartamento()
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
|
||||
DdlDepartamentoAdd.DataSource = DdlDepartamento.DataSource
|
||||
DdlDepartamentoAdd.DataBind()
|
||||
DdlDepartamento.DataBind()
|
||||
@@ -267,12 +267,12 @@ Partial Class RH_CatPersonal
|
||||
End Sub
|
||||
|
||||
Private Sub CargaRuta()
|
||||
DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa)
|
||||
DdlRuta.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaMotivoBaja()
|
||||
DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlMotivoBaja.DataSource = GlobalDTMotivoBaja(UsuarioActual.CveEmpresa)
|
||||
DdlMotivoBaja.DataBind()
|
||||
End Sub
|
||||
|
||||
@@ -901,7 +901,7 @@ Partial Class RH_CatPersonal
|
||||
crow = 1
|
||||
ccol = ccol + 1
|
||||
Catalogos.Cell(crow, ccol).Value = "Departamento"
|
||||
For Each row As DataRow In GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).Rows
|
||||
For Each row As DataRow In GlobalDTDepartamentos(UsuarioActual.CveEmpresa).Rows
|
||||
crow = crow + 1
|
||||
Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveDepartamento"), row("Departamento"))
|
||||
Next
|
||||
@@ -915,7 +915,7 @@ Partial Class RH_CatPersonal
|
||||
crow = 1
|
||||
ccol = ccol + 1
|
||||
Catalogos.Cell(crow, ccol).Value = "Turno"
|
||||
For Each row As DataRow In GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).Rows
|
||||
For Each row As DataRow In GlobalDTTurno(UsuarioActual.CveEmpresa).Rows
|
||||
crow = crow + 1
|
||||
Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveTurno"), row("Turno"))
|
||||
Next
|
||||
|
||||
@@ -94,13 +94,13 @@ Partial Class RH_CatPersonalRequerido
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTurno()
|
||||
ReqTurnoDdl.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
ReqTurnoDdl.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
|
||||
ReqTurnoDdl.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDepartamento()
|
||||
DdlDepartamento.Items.Clear()
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
|
||||
DdlDepartamento.DataBind()
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -42,9 +42,8 @@ Partial Class RH_CatRuta
|
||||
|
||||
Public Sub CargaDatos()
|
||||
Dim ObjRuta As New ClsRH
|
||||
If ObjRuta.GetRutas() Then
|
||||
ViewState("DTRuta") = ObjRuta.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTRutas = ObjRuta.DtResultados
|
||||
If ObjRuta.GetRutas(UsuarioActual.CveEmpresa) Then
|
||||
ViewState("DTRuta") = ObjRuta.DtResultados
|
||||
Else
|
||||
Me.GvDatos.DataSource = Nothing
|
||||
End If
|
||||
@@ -85,7 +84,7 @@ Partial Class RH_CatRuta
|
||||
Alert("La nueva Ruta se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
UpTitulos.Update()
|
||||
ViewState("DTRuta") = ObjRuta.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTRutas = ObjRuta.DtResultados
|
||||
GlobalDTRutas(UsuarioActual.CveEmpresa) = Nothing
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
@@ -116,7 +115,7 @@ Partial Class RH_CatRuta
|
||||
If ObjRuta.RemoveRuta(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
||||
GvDatos.EditIndex = -1
|
||||
ViewState("DTRuta") = ObjRuta.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTRutas = ObjRuta.DtResultados
|
||||
GlobalDTRutas(UsuarioActual.CveEmpresa) = Nothing
|
||||
Alert("La Ruta se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
@@ -147,7 +146,7 @@ Partial Class RH_CatRuta
|
||||
If ObjRuta.UpdateRuta(Ruta, Estatus, CveRuta) Then
|
||||
GvDatos.EditIndex = -1
|
||||
ViewState("DTRuta") = ObjRuta.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTRutas = ObjRuta.DtResultados
|
||||
GlobalDTRutas(UsuarioActual.CveEmpresa) = Nothing
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
|
||||
@@ -40,7 +40,7 @@ Partial Class RH_ListaAsistenciaRH
|
||||
DdlClientes.DataBind()
|
||||
DdlClientes.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
|
||||
DdlDepartamento.DataBind()
|
||||
DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
|
||||
@@ -1216,7 +1216,7 @@ Partial Class RH_MiPerfil
|
||||
DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
|
||||
DdlPersonal.DataBind()
|
||||
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
|
||||
DdlDepartamento.DataBind()
|
||||
|
||||
DdlSupervisor.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
|
||||
|
||||
@@ -1177,7 +1177,7 @@ Partial Class RH_Personal
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTurno()
|
||||
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataBind()
|
||||
End Sub
|
||||
|
||||
@@ -1187,12 +1187,12 @@ Partial Class RH_Personal
|
||||
End Sub
|
||||
|
||||
Private Sub CargaMotivoHoraExtra()
|
||||
DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa)
|
||||
DdlMotivoHoraExtra.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDepartamento()
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
|
||||
DdlDepartamento.DataBind()
|
||||
End Sub
|
||||
|
||||
@@ -1202,12 +1202,12 @@ Partial Class RH_Personal
|
||||
End Sub
|
||||
|
||||
Private Sub CargaRuta()
|
||||
DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa)
|
||||
DdlRuta.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaMotivoBaja()
|
||||
DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlMotivoBaja.DataSource = GlobalDTMotivoBaja(UsuarioActual.CveEmpresa)
|
||||
DdlMotivoBaja.DataBind()
|
||||
End Sub
|
||||
|
||||
@@ -1318,7 +1318,7 @@ Partial Class RH_Personal
|
||||
End Sub
|
||||
|
||||
Private Sub CargaMotivosHorasExtras()
|
||||
DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa)
|
||||
DdlMotivoHoraExtra.DataBind()
|
||||
End Sub
|
||||
|
||||
@@ -1543,7 +1543,7 @@ Partial Class RH_Personal
|
||||
If e.Row.DBCampo("CveAsistenciasInasistencias") <> "-1" Then e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias")
|
||||
|
||||
'Carga Motivos Horas Extras
|
||||
e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa)
|
||||
e.Row.FCDropDownList("DdlMotivoHoraExtra").DataBind()
|
||||
If e.Row.DBCampo("CveMotivoHoraExtra") <> "-1" Then e.Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue = e.Row.DBCampo("CveMotivoHoraExtra")
|
||||
|
||||
|
||||
@@ -64,7 +64,7 @@ Partial Class RH_PopUpBuscarPersonal
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTurno()
|
||||
DdlTurnos.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlTurnos.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
|
||||
DdlTurnos.DataBind()
|
||||
End Sub
|
||||
|
||||
@@ -98,7 +98,7 @@ Partial Class RH_PopUpBuscarPersonal
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDepartamento()
|
||||
DdlDepartamentos.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlDepartamentos.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
|
||||
DdlDepartamentos.DataBind()
|
||||
End Sub
|
||||
|
||||
@@ -128,7 +128,7 @@ Partial Class RH_PopUpBuscarPersonal
|
||||
End Sub
|
||||
|
||||
Private Sub CargaRuta()
|
||||
DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa)
|
||||
DdlRuta.DataBind()
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -5418,11 +5418,11 @@ Partial Class RH_Reclutamiento
|
||||
|
||||
'If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
|
||||
DdlCliente.DataSource = GlobalDTCliente(7)
|
||||
'End If
|
||||
|
||||
'End If
|
||||
|
||||
DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & DdlEmpresaAsiganada.SelectedValue)
|
||||
'End If
|
||||
|
||||
DdlRuta.DataSource = GlobalDTRutas(DdlEmpresaAsiganada.SelectedValue.ToEntero)
|
||||
|
||||
If Not UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
|
||||
DDLUsuarioNomina.DataSource = GlobalDTUsuarios(-1, DdlEmpresaAsiganada.SelectedValue.ToEntero)
|
||||
|
||||
@@ -21,7 +21,7 @@ Partial Class RH_RepAusentismoLaboral
|
||||
|
||||
Private Sub CargaTurnos()
|
||||
|
||||
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataBind()
|
||||
DdlTurno.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
|
||||
@@ -156,7 +156,7 @@ Partial Class RH_RepChecadorPreAsistencia
|
||||
DdlTipoPeriodo.DataBind()
|
||||
DdlTipoPeriodo.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
|
||||
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataBind()
|
||||
' DdlTurno.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
|
||||
@@ -365,7 +365,7 @@ Partial Class RH_RepChecadorPreAsistencia
|
||||
DTHorarios = objRH.DtResultados
|
||||
|
||||
If DdlTurno.SelectedIndex > 0 Then
|
||||
Dim DTTemp As DataTable = GlobalDTTurno.FiltraParametros("CveTurno = " & DdlTurno.SelectedValue)
|
||||
Dim DTTemp As DataTable = GlobalDTTurno(UsuarioActual.CveEmpresa).FiltraParametros("CveTurno = " & DdlTurno.SelectedValue)
|
||||
Dim TMCveChecadorHorario As Integer = -1
|
||||
|
||||
If DTTemp.Rows.Count > 0 Then
|
||||
|
||||
@@ -20,7 +20,7 @@ Partial Class RH_RepCursos
|
||||
|
||||
Private Sub CargaCombos()
|
||||
|
||||
DdlDepartamentos.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlDepartamentos.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
|
||||
DdlDepartamentos.DataBind()
|
||||
DdlDepartamentos.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
|
||||
@@ -100,7 +100,7 @@ Partial Class RH_RepDocumentacionVencida
|
||||
DdlSupervisor.DataBind()
|
||||
|
||||
|
||||
DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa)
|
||||
DdlRuta.DataBind()
|
||||
|
||||
|
||||
|
||||
@@ -35,7 +35,7 @@ Partial Class Ventas_RepIndiceRotacionPersonal
|
||||
|
||||
Private Sub CargaTurnos()
|
||||
|
||||
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataBind()
|
||||
DdlTurno.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
|
||||
@@ -27,7 +27,7 @@ Partial Class RH_RepPersonalNecesidades
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTurnos()
|
||||
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataBind()
|
||||
DdlTurno.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
@@ -52,7 +52,7 @@ Partial Class RH_RepPersonalNecesidades
|
||||
Private Sub CargaDepartamento()
|
||||
|
||||
DdlDepartamento.Items.Clear()
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
|
||||
DdlDepartamento.DataBind()
|
||||
DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
|
||||
@@ -29,7 +29,7 @@ Partial Class RH_RepUniformes
|
||||
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
|
||||
DdlSubProyecto.DataBind()
|
||||
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa =" & UsuarioActual.CveEmpresa & " AND Departamento <> 'Seleccione' ")
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' ")
|
||||
DdlDepartamento.DataBind()
|
||||
DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
|
||||
@@ -29,7 +29,7 @@ Partial Class RH_RepUniformesResguardo
|
||||
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
|
||||
DdlSubProyecto.DataBind()
|
||||
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa =" & UsuarioActual.CveEmpresa & " AND Departamento <> 'Seleccione' ")
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' ")
|
||||
DdlDepartamento.DataBind()
|
||||
DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
|
||||
@@ -39,10 +39,10 @@ Partial Class RH_RepVacaciones
|
||||
DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
|
||||
DdlSupervisor.DataBind()
|
||||
|
||||
DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa)
|
||||
DdlRuta.DataBind()
|
||||
|
||||
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataBind()
|
||||
DdlTurno.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
|
||||
@@ -25,7 +25,7 @@ public partial class RH_ReporteViaticos : ClsPaginas
|
||||
DdlPersonal.DataBind();
|
||||
DdlPersonal.Items.Insert(0, new ListItem("Todos ", "-1"));
|
||||
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa));
|
||||
DdlDepartamento.DataSource = get_GlobalDTDepartamentos(UsuarioActual.CveEmpresa);
|
||||
DdlDepartamento.DataBind();
|
||||
DdlDepartamento.Items.Insert(0, new ListItem("Todos ", "-1"));
|
||||
}
|
||||
|
||||
@@ -111,7 +111,7 @@ public partial class RH_SolicitudViaticos : ClsPaginas
|
||||
DdlPersonal.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa);
|
||||
DdlPersonal.DataBind();
|
||||
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa));
|
||||
DdlDepartamento.DataSource = get_GlobalDTDepartamentos(UsuarioActual.CveEmpresa);
|
||||
DdlDepartamento.DataBind();
|
||||
|
||||
DdlSupervisor.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa);
|
||||
|
||||
@@ -216,20 +216,20 @@ Partial Class Sistemas_CatSesiones
|
||||
Private Sub CargaRH()
|
||||
Dim ObjRH As New ClsRH
|
||||
If ObjRH.GetTipoBuzon() Then Application("GlobalDTTipoBuzon") = ObjRH.DtResultados Else Application("GlobalDTTipoBuzon") = Nothing
|
||||
If ObjRH.GetDepartamentos Then Application("GlobalDTDepartamentos") = ObjRH.DtResultados Else Application("GlobalDTDepartamentos") = Nothing
|
||||
If ObjRH.GetDepartamentos(UsuarioActual.CveEmpresa) Then Application("GlobalDTDepartamentos") = ObjRH.DtResultados Else Application("GlobalDTDepartamentos") = Nothing
|
||||
If ObjRH.GetDocumentos() Then Application("GlobalDTDocumentos") = ObjRH.DtResultados Else Application("GlobalDTDocumentos") = Nothing
|
||||
If ObjRH.GetEscolaridades() Then Application("GlobalDTEscolaridad") = ObjRH.DtResultados Else Application("GlobalDTEscolaridad") = Nothing
|
||||
If ObjRH.GetEstadoCivil() Then Application("GlobalDTEstadoCivil") = ObjRH.DtResultados Else Application("GlobalDTEstadoCivil") = Nothing
|
||||
If ObjRH.GetEstatusPersonal() Then Application("GlobalDTEstatusPersonal") = ObjRH.DtResultados Else Application("GlobalDTEstatusPersonal") = Nothing
|
||||
If ObjRH.GetGeneros() Then Application("GlobalDTGenero") = ObjRH.DtResultados Else Application("GlobalDTGenero") = Nothing
|
||||
If ObjRH.GetMotivoBaja() Then Application("GlobalDTMotivoBaja") = ObjRH.DtResultados Else Application("GlobalDTMotivoBaja") = Nothing
|
||||
If ObjRH.GetMotivoBaja(UsuarioActual.CveEmpresa) Then Application("GlobalDTMotivoBaja") = ObjRH.DtResultados Else Application("GlobalDTMotivoBaja") = Nothing
|
||||
If ObjRH.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
|
||||
If ObjRH.GetRutas() Then Application("GlobalDTRutas") = ObjRH.DtResultados Else Application("GlobalDTRutas") = Nothing
|
||||
If ObjRH.GetRutas(UsuarioActual.CveEmpresa) Then Application("GlobalDTRutas") = ObjRH.DtResultados Else Application("GlobalDTRutas") = Nothing
|
||||
If ObjRH.GetTiposContrato() Then Application("GlobalDTTiposContrato") = ObjRH.DtResultados Else Application("GlobalDTTiposContrato") = Nothing
|
||||
If ObjRH.GetTurnos() Then Application("GlobalDTTurno") = ObjRH.DtResultados Else Application("GlobalDTTurno") = Nothing
|
||||
If ObjRH.GetJornadas() Then Application("GlobalDTJornadas") = ObjRH.DtResultados Else Application("GlobalDTJornadas") = Nothing
|
||||
If ObjRH.GetAsistenciasInasistencias() Then Application("GlobalDTAsistenciasInasistencias") = ObjRH.DtResultados Else Application("GlobalDTAsistenciasInasistencias") = Nothing
|
||||
If ObjRH.GetMotivoHorasExtras() Then Application("GlobalDTMotivosHorasExtras") = ObjRH.DtResultados Else Application("GlobalDTMotivosHorasExtras") = Nothing
|
||||
If ObjRH.GetMotivoHorasExtras(UsuarioActual.CveEmpresa) Then Application("GlobalDTMotivosHorasExtras") = ObjRH.DtResultados Else Application("GlobalDTMotivosHorasExtras") = Nothing
|
||||
If ObjRH.GetAsistenciasDetalle() Then Application("GlobalDTAsistenciaDetalle") = ObjRH.DtResultados Else Application("GlobalDTAsistenciaDetalle") = Nothing
|
||||
ObjRH.Dispose()
|
||||
|
||||
|
||||
@@ -555,7 +555,7 @@
|
||||
</td>
|
||||
</tr>
|
||||
<tr align="left" id="TrDescripcionVenta" runat="server" visible="false">
|
||||
<td><b>Descripción de factura:</b></td>
|
||||
<td><b>Descripción:</b></td>
|
||||
<td colspan="3">
|
||||
<asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="2" TextMode="MultiLine" Width="100%" MaxLength="300" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
|
||||
</tr>
|
||||
@@ -3226,7 +3226,7 @@
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<asp:GridView ID="GvContratoDetalles" runat="server" AutoGenerateColumns="False" DataKeyNames="CveContratoDetalle,CvePS, CveUM, Cantidad, CveClasificacion, Clasificacion, IVA, ModalidadDetalle,LimitarCantidad, Observaciones" EmptyDataText="Seleccione un Contrato Válido" CssClass="table table-striped table-advance table-hover Widthall GvContratoDetalles ScrollAD" data-height="300" data-sort="false" GridLines="None">
|
||||
<asp:GridView ID="GvContratoDetalles" runat="server" AutoGenerateColumns="False" DataKeyNames="CveContratoDetalle,CvePS, CveUM, Cantidad, CveClasificacion, Clasificacion, IVA, ModalidadDetalle,LimitarCantidad, Observaciones" EmptyDataText="El contrato no tiene productos y/o servicios" CssClass="table table-striped table-advance table-hover Widthall GvContratoDetalles ScrollAD" data-height="300" data-sort="false" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>OC Cliente</HeaderTemplate>
|
||||
|
||||
Reference in New Issue
Block a user