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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-02-09 19:36:50 -07:00
parent 3adb2aa212 8c065ba73d
commit 3f9cd1ba79
13 changed files with 252 additions and 159 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
App_Code/ClsContabilidad.vb
View File

@@ -3770,7 +3770,7 @@ Public Class ClsContabilidad
End Function End Function
Public Function GetAnexoCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1, Optional SAT As Integer = 0) As Boolean Public Function GetAnexoCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1, Optional SAT As Integer = 0) As Boolean
Dim Retorno = False Dim Retorno = False
DataAdapter("PA_Conta_AnexoCatalogoGet") DataAdapter("PA_Conta_AnexoCatalogoGet")
@@ -3781,6 +3781,7 @@ Public Class ClsContabilidad
.Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta .Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta
.Add("@Tipo", SqlDbType.Int).Value = TipoMovtos .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
.Add("@OpcionCuentas", SqlDbType.Int).Value = OpcionCuentas .Add("@OpcionCuentas", SqlDbType.Int).Value = OpcionCuentas
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@SAT", SqlDbType.Int).Value = SAT .Add("@SAT", SqlDbType.Int).Value = SAT
@@ -3797,7 +3798,7 @@ Public Class ClsContabilidad
End Function End Function
Public Function GetMovimientosAuxiliaresCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, CveSubProyecto As String, CveEmpresa As Integer, TipoReporte As String) As Boolean Public Function GetMovimientosAuxiliaresCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, TipoReporte As String) As Boolean
Dim Retorno = False Dim Retorno = False
DataAdapter("PA_Conta_MovimientosAuxiliaresCatalogoGet") DataAdapter("PA_Conta_MovimientosAuxiliaresCatalogoGet")
@@ -3806,6 +3807,7 @@ Public Class ClsContabilidad
.Add("@FechaI", SqlDbType.Date).Value = FechaI .Add("@FechaI", SqlDbType.Date).Value = FechaI
.Add("@FechaF", SqlDbType.Date).Value = FechaF .Add("@FechaF", SqlDbType.Date).Value = FechaF
.Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta .Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Tipo", SqlDbType.Int).Value = TipoReporte .Add("@Tipo", SqlDbType.Int).Value = TipoReporte
@@ -3841,7 +3843,7 @@ Public Class ClsContabilidad
Return Retorno Return Retorno
End Function End Function
Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean
Dim Retorno = False Dim Retorno = False
DataAdapter("PA_Conta_EstadoActividadesGet") DataAdapter("PA_Conta_EstadoActividadesGet")
@@ -3850,6 +3852,7 @@ Public Class ClsContabilidad
.Add("@FechaI", SqlDbType.Date).Value = FechaI .Add("@FechaI", SqlDbType.Date).Value = FechaI
.Add("@FechaF", SqlDbType.Date).Value = FechaF .Add("@FechaF", SqlDbType.Date).Value = FechaF
.Add("@Tipo", SqlDbType.Int).Value = TipoMovtos .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@SAT", SqlDbType.Int).Value = SAT .Add("@SAT", SqlDbType.Int).Value = SAT

7
App_Code/ClsOC.vb
View File

@@ -1299,9 +1299,14 @@ Public Class ClsOC
#End Region #End Region
#Region " O R D E N E S - D E - C O M P R A - E S T A T U S" #Region " O R D E N E S - D E - C O M P R A - E S T A T U S"
Public Function GetEstatus() As Boolean Public Function GetEstatus(CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_OC_EstatusGet") DataAdapter("PA_OC_EstatusGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@_CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True

7
App_Code/ClsOS.vb
View File

@@ -357,9 +357,14 @@ Public Class ClsOS
'#End Region '#End Region
#Region "ClsOSEstatusOrdenServicio" #Region "ClsOSEstatusOrdenServicio"
Public Function GetEstatusOrdenServicio() As Boolean Public Function GetEstatusOrdenServicio(CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_OS_EstatusOrdenServicioGet") DataAdapter("PA_OS_EstatusOrdenServicioGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True

183
App_Code/ClsPaginas.vb
View File

@@ -1387,12 +1387,20 @@ Public Class ClsPaginas
' Application("GlobalDTMesas") = value ' Application("GlobalDTMesas") = value
' End Set ' End Set
'End Property 'End Property
Property GlobalDTTipoOrdenServicios(CveEmpresa As Integer) As DataTable Public Shared Property GlobalDTTipoOrdenServicios(CveEmpresa As Integer) As DataTable
Get Get
GlobalDTTipoOrdenServicios = DirectCast(Application("GlobalDTTipoOrdenServicios"), DataTable).FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresa)) Dim AppNombre As String = $"GlobalDTTipoOrdenServicios-{CveEmpresa}"
'sino existe, recarga los datos
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjOS As New ClsOS
If ObjOS.GetTipoOrdenesServicios(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjOS.DtResultados
ObjOS.Dispose()
End If
GlobalDTTipoOrdenServicios = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTTipoOrdenServicios") = value Dim AppNombre As String = $"GlobalDTTipoOrdenServicios-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTSubTipoOrdenServicios() As DataTable Property GlobalDTSubTipoOrdenServicios() As DataTable
@@ -1704,20 +1712,36 @@ Public Class ClsPaginas
Application("GlobalDTAFCaracteristicasOpciones") = value Application("GlobalDTAFCaracteristicasOpciones") = value
End Set End Set
End Property End Property
Property GlobalDTAFCaracteristicas() As DataTable Public Shared Property GlobalDTAFCaracteristicas(CveEmpresa As Integer) As DataTable
Get Get
GlobalDTAFCaracteristicas = DirectCast(Application("GlobalDTAFCaracteristicas"), DataTable) 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
ObjActivosFijos.Dispose()
End If
GlobalDTAFCaracteristicas = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTAFCaracteristicas") = value Dim AppNombre As String = $"GlobalDTAFCaracteristicas-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTAFCaracteristicasClasificaciones() As DataTable Public Shared Property GlobalDTAFCaracteristicasClasificaciones(CveEmpresa As Integer) As DataTable
Get Get
GlobalDTAFCaracteristicasClasificaciones = DirectCast(Application("GlobalDTAFCaracteristicasClasificaciones"), DataTable) 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
ObjActivosFijos.Dispose()
End If
GlobalDTAFCaracteristicasClasificaciones = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTAFCaracteristicasClasificaciones") = value Dim AppNombre As String = $"GlobalDTAFCaracteristicasClasificaciones-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTImpuestosLocales(CvePS As Integer, CveEmpresa As Integer) As DataTable Property GlobalDTImpuestosLocales(CvePS As Integer, CveEmpresa As Integer) As DataTable
@@ -1939,18 +1963,20 @@ Public Class ClsPaginas
Application(AppNombre) = value Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTEstatusOrdenServicios(CveEmpresa As Integer) As DataTable Public Shared Property GlobalDTEstatusOrdenServicios(CveEmpresa As Integer) As DataTable
Get Get
If CveEmpresa <> -1 Then Dim AppNombre As String = $"GlobalDTEstatusOrdenServicios-{CveEmpresa}"
Dim Dv As New DataView(DirectCast(Application("GlobalDTEstatusOrdenServicios"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows) 'sino existe, recarga los datos
GlobalDTEstatusOrdenServicios = Dv.ToTable If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dv.Dispose() Dim ObjOS As New ClsOS
Else If ObjOS.GetEstatusOrdenServicio(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjOS.DtResultados
GlobalDTEstatusOrdenServicios = DirectCast(Application("GlobalDTEstatusOrdenServicios"), DataTable) ObjOS.Dispose()
End If End If
GlobalDTEstatusOrdenServicios = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTEstatusOrdenServicios") = value Dim AppNombre As String = $"GlobalDTEstatusOrdenServicios-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
'Variables para Ventas 'Variables para Ventas
@@ -2428,87 +2454,94 @@ Public Class ClsPaginas
Application("GlobalDTActivoFijos") = value Application("GlobalDTActivoFijos") = value
End Set End Set
End Property End Property
Property GlobalDTEstadoActivoFijo() As DataTable Public Shared Property GlobalDTEstadoActivoFijo() As DataTable
Get Get
GlobalDTEstadoActivoFijo = DirectCast(Application("GlobalDTEstadoActivoFijo"), DataTable) Dim AppNombre As String = "GlobalDTEstadoActivoFijo"
End Get If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Set(value As DataTable) Dim ObjActivosFijos As New ClsAF
Application("GlobalDTEstadoActivoFijo") = value If ObjActivosFijos.GetEstatusActivoFijo() Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
End Set ObjActivosFijos.Dispose()
End Property
Property GlobalDTMarcaActivoFijo(CveEmpresa As Integer) As DataTable
Get
Dim dt As DataTable = Nothing
Dim ObjAF As New ClsAF
If ObjAF.GetMarcasActivosFijos(CveEmpresa) Then
dt = ObjAF.DtResultados
End If End If
ObjAF.Dispose() GlobalDTEstadoActivoFijo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
GlobalDTMarcaActivoFijo = dt
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTMarcaActivoFijo") = value Dim AppNombre As String = "GlobalDTEstadoActivoFijo"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTModeloActivoFijo(CveEmpresa As Integer, CveMarca As Integer) As DataTable Public Shared Property GlobalDTMarcaActivoFijo(CveEmpresa As Integer) As DataTable
Get Get
Dim dt As DataTable = Nothing Dim AppNombre As String = $"GlobalDTMarcaActivoFijo-{CveEmpresa}"
Dim ObjAF As New ClsAF 'sino existe, recarga los datos
If ObjAF.GetModelosActivosFijos(CveEmpresa, CveMarca) Then If HttpContext.Current.Application(AppNombre) Is Nothing Then
dt = ObjAF.DtResultados Dim ObjActivosFijos As New ClsAF
If ObjActivosFijos.GetMarcasActivosFijos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
ObjActivosFijos.Dispose()
End If End If
ObjAF.Dispose() GlobalDTMarcaActivoFijo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
GlobalDTModeloActivoFijo = dt
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTModeloActivoFijo") = value Dim AppNombre As String = $"GlobalDTMarcaActivoFijo-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTSubTipoActivoFijo(CveEmpresa As Integer, Optional CveTipoActivoFijo As Integer = -1) As DataTable Public Shared Property GlobalDTModeloActivoFijo(CveEmpresa As Integer, CveMarca As Integer) As DataTable
Get
Dim AppNombre As String = $"GlobalDTModeloActivoFijo-{CveEmpresa}"
'sino existe, recarga los datos
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjActivosFijos As New ClsAF
If ObjActivosFijos.GetModelosActivosFijos(CveEmpresa, -1) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
ObjActivosFijos.Dispose()
End If
If CveMarca > 0 Then
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), $"CveMarca = {CveMarca}", "", DataViewRowState.CurrentRows)
GlobalDTModeloActivoFijo = Dv.ToTable
Dv.Dispose()
Else
GlobalDTModeloActivoFijo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End If
End Get
Set(value As DataTable)
Dim AppNombre As String = $"GlobalDTModeloActivoFijo-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Public Shared Property GlobalDTSubTipoActivoFijo(CveEmpresa As Integer, Optional CveTipoActivoFijo As Integer = -1) As DataTable
Get Get
Dim AppNombre As String = $"GlobalDTSubTipoActivoFijo-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTSubTipoActivoFijo-{CveEmpresa}"
'sino existe, recarga los datos 'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjSubTipos As New ClsAF Dim ObjSubTipos As New ClsAF
If ObjSubTipos.GetSubTiposActivosFijos(CveEmpresa) Then Application(AppNombre) = ObjSubTipos.DtResultados If ObjSubTipos.GetSubTiposActivosFijos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubTipos.DtResultados
ObjSubTipos.Dispose() ObjSubTipos.Dispose()
End If End If
Dim Str As New StringBuilder Dim Str As New StringBuilder
If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa) If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
If CveTipoActivoFijo > 0 Then Str.AppendFormat("AND CveTipoActivoFijo = {0}", CveTipoActivoFijo) If CveTipoActivoFijo > 0 Then Str.AppendFormat("AND CveTipoActivoFijo = {0}", CveTipoActivoFijo)
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTSubTipoActivoFijo = Dv.ToTable GlobalDTSubTipoActivoFijo = Dv.ToTable
Dv.Dispose() Dv.Dispose()
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Dim AppNombre As String = $"GlobalDTSubTipoActivoFijo-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTSubTipoActivoFijo-{CveEmpresa}"
Application(AppNombre) = value HttpContext.Current.Application(AppNombre) = value
End Set End Set
'Get
' If CveEmpresa <> -1 Then
' Dim Dv As New DataView(DirectCast(Application("GlobalDTSubTipoActivoFijo"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
' GlobalDTSubTipoActivoFijo = Dv.ToTable
' Dv.Dispose()
' Else
' GlobalDTSubTipoActivoFijo = DirectCast(Application("GlobalDTSubTipoActivoFijo"), DataTable)
' End If
'End Get
'Set(value As DataTable)
' Application("GlobalDTSubTipoActivoFijo") = value
'End Set
End Property End Property
Property GlobalDTTipoActivoFijo(CveEmpresa As Integer) As DataTable Public Shared Property GlobalDTTipoActivoFijo(CveEmpresa As Integer) As DataTable
Get Get
If CveEmpresa <> -1 Then Dim AppNombre As String = $"GlobalDTTipoActivoFijo-{CveEmpresa}"
Dim Dv As New DataView(DirectCast(Application("GlobalDTTipoActivoFijo"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows) 'sino existe, recarga los datos
GlobalDTTipoActivoFijo = Dv.ToTable If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dv.Dispose() Dim GetTiposActivosFijos As New ClsAF
Else If GetTiposActivosFijos.GetCaracteristicas(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = GetTiposActivosFijos.DtResultados
GlobalDTTipoActivoFijo = DirectCast(Application("GlobalDTTipoActivoFijo"), DataTable) GetTiposActivosFijos.Dispose()
End If End If
GlobalDTTipoActivoFijo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTTipoActivoFijo") = value Dim AppNombre As String = $"GlobalDTTipoActivoFijo-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
#End Region #End Region
@@ -3202,18 +3235,20 @@ Public Class ClsPaginas
End Property End Property
#End Region #End Region
#Region "***********************************************************************GLOBAL DT ORDENES DE COMPRA***********************************************************************" #Region "***********************************************************************GLOBAL DT ORDENES DE COMPRA***********************************************************************"
Property GlobalDTOCEstatus(CveEmpresa As Integer) As DataTable Public Shared Property GlobalDTOCEstatus(CveEmpresa As Integer) As DataTable
Get Get
If CveEmpresa <> -1 Then Dim AppNombre As String = $"GlobalDTOCEstatus-{CveEmpresa}"
Dim Dv As New DataView(DirectCast(Application("GlobalDTOCEstatus"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows) 'sino existe, recarga los datos
GlobalDTOCEstatus = Dv.ToTable If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dv.Dispose() Dim ObjOC As New ClsOC
Else If ObjOC.GetEstatus(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjOC.DtResultados
GlobalDTOCEstatus = DirectCast(Application("GlobalDTOCEstatus"), DataTable) ObjOC.Dispose()
End If End If
GlobalDTOCEstatus = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTOCEstatus") = value Dim AppNombre As String = $"GlobalDTOCEstatus-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTOCEstatusUsuarios(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional Tipo As String = "") As DataTable Property GlobalDTOCEstatusUsuarios(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional Tipo As String = "") As DataTable

34
Contabilidad2/RepAnexoCatalogo.aspx
View File

@@ -90,17 +90,17 @@
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>> <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
<div class="row"> <div class="row">
<div class="col-md-1 truncate"> <div class="col-md-1 truncate">
Tipo Movto Tipo Movto
</div> </div>
<div class="col-md-2 truncate"> <div class="col-md-2 truncate">
<asp:DropDownList ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4" CssClass="form-control input-sm select2me" Width="100%"> <asp:DropDownList ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4" CssClass="form-control input-sm select2me" Width="100%">
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem> <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem> <asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
<asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem> <asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
<asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem> <asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
<asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem> <asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<div class="col-md-1 truncate" id="tdTipoReporte" visible="true"> <div class="col-md-1 truncate" id="tdTipoReporte" visible="true">
Tipo Tipo
</div> </div>
@@ -111,12 +111,16 @@
<asp:ListItem Text="Complementario" Value="2"></asp:ListItem> <asp:ListItem Text="Complementario" Value="2"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<div class="col-md-1 truncate"> <div class="col-md-1">
SubProyecto <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
</div> </div>
<div class="col-md-2"> <div class="col-md-2">
<asp:DropDownList ID="DdlSubproyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me"> <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem> </asp:DropDownList>
</div>
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
<div class="col-md-2">
<asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<div class="col-md-2"> <div class="col-md-2">

35
Contabilidad2/RepAnexoCatalogo.aspx.vb
View File

@@ -52,6 +52,14 @@ Partial Class AC2_RepAnexoCatalogo
' ViewState("DTCuentas") = value ' ViewState("DTCuentas") = value
' End Set ' End Set
'End Property 'End Property
Private Property CveProyecto As String
Get
CveProyecto = ViewState("CveProyecto").ToString
End Get
Set(value As String)
ViewState("CveProyecto") = value
End Set
End Property
Private Property CveSubProyecto As String Private Property CveSubProyecto As String
Get Get
CveSubProyecto = ViewState("CveSubProyecto").ToString CveSubProyecto = ViewState("CveSubProyecto").ToString
@@ -121,6 +129,12 @@ Partial Class AC2_RepAnexoCatalogo
DdlCuenta.SelectedValueExist(Request("CM").ToString) DdlCuenta.SelectedValueExist(Request("CM").ToString)
End If End If
If Request("CveProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveProyecto")) Then
CveProyecto = Request("CveProyecto").ToString
DdlProyecto.SelectedValueExist(CveProyecto)
DdlProyecto_SelectedIndexChanged(Nothing, Nothing)
End If
If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
CveSubProyecto = Request("CveSubProyecto").ToString CveSubProyecto = Request("CveSubProyecto").ToString
DdlSubproyecto.SelectedValueExist(CveSubProyecto) DdlSubproyecto.SelectedValueExist(CveSubProyecto)
@@ -187,9 +201,14 @@ Partial Class AC2_RepAnexoCatalogo
DdlCuentas.DataBind() DdlCuentas.DataBind()
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
DdlSubproyecto.DataBind()
End Sub End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
@@ -200,13 +219,11 @@ Partial Class AC2_RepAnexoCatalogo
TipoReporte = DdlTipoReporte.SelectedValue.ToEntero TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
End If End If
'Dim CveSubProyecto As String 'Dim CveSubProyecto As String
If Request("CveSubProyecto") IsNot Nothing Then
CveSubProyecto = Request("CveSubProyecto").ToString
Else
CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
End If
If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte) Then CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
CveProyecto = DdlProyecto.SelectedValue.ToEntero.ToString
If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveProyecto.ToEntero, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, TipoReporte) Then
If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
DtDatos = ObjConta.DtResultados.FiltraParametros(" SaldoInicial <> 0 OR Cargos <> 0 OR Abonos <> 0") DtDatos = ObjConta.DtResultados.FiltraParametros(" SaldoInicial <> 0 OR Cargos <> 0 OR Abonos <> 0")
@@ -270,7 +287,7 @@ Partial Class AC2_RepAnexoCatalogo
e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red
End If End If
e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveSubProyecto={3}&TP={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveSubProyecto, TipoReporte) e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}&TP={5}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto, TipoReporte)
End If End If
End Sub End Sub

28
Contabilidad2/RepEstadoActividades.aspx
View File

@@ -52,20 +52,27 @@
<asp:ListItem Text="Diciembre" Value="12"></asp:ListItem> <asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label class="col-md-2" style="width: 80px;">SubProyecto: </label>
<div class="col-md-2 ">
<asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
<li runat="server" id="liTipoReporte" visible="false">Tipo: <div class="col-md-1">
<asp:DropDownList ID="DdlTipoReporte" runat="server" Width="150px" > <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
</div>
<div class="col-md-2">
<asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
</asp:DropDownList>
</div>
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
<div class="col-md-2">
<asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
</asp:DropDownList>
</div>
<li runat="server" id="liTipoReporte" visible="false">Tipo:
<asp:DropDownList ID="DdlTipoReporte" runat="server" Width="150px">
<asp:ListItem Text="Contable" Value="1"></asp:ListItem> <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
<asp:ListItem Text="Contable y Complementario" Value="2"></asp:ListItem> <asp:ListItem Text="Contable y Complementario" Value="2"></asp:ListItem>
<asp:ListItem Text="Complementario" Value="3"></asp:ListItem> <asp:ListItem Text="Complementario" Value="3"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</li> </li>
</ul> </ul>
</div> </div>
</div> </div>
@@ -169,8 +176,7 @@
<td width="30%" align="right"> <td width="30%" align="right">
<asp:Label runat="server" Font-Bold="true" ID="LbTotalAnterior"></asp:Label> <asp:Label runat="server" Font-Bold="true" ID="LbTotalAnterior"></asp:Label>
</td> </td>
<td width="12%" align="right"> <td width="12%" align="right"></td>
</td>
</tr> </tr>
</table> </table>
</ContentTemplate> </ContentTemplate>

20
Contabilidad2/RepEstadoActividades.aspx.vb
View File

@@ -117,22 +117,26 @@ Partial Class AC_RepEstadoActividades
End If End If
DdlPeriodo.SelectedValue = Now.Month.ToString DdlPeriodo.SelectedValue = Now.Month.ToString
DdlSubproyecto.datasource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
DdlSubproyecto.databind
End Sub End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue)
FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy") FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy")
Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero 'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero, 1) Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero 'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero, 1)
Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa) Then
DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
Else Else
DtDatos = Nothing DtDatos = Nothing
@@ -254,8 +258,8 @@ Partial Class AC_RepEstadoActividades
End If End If
If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue) e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue) e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
End If End If
@@ -283,8 +287,8 @@ Partial Class AC_RepEstadoActividades
End If End If
If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue) e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue) e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
End If End If
If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then

16
Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
View File

@@ -109,10 +109,16 @@
<asp:DropDownList ID="DdlMoneda" CssClass="form-control input-sm select2me" runat="server" DataTextField="Moneda" DataValueField="CveMoneda" TabIndex="5" ClientIDMode="Static" Width="100%"> <asp:DropDownList ID="DdlMoneda" CssClass="form-control input-sm select2me" runat="server" DataTextField="Moneda" DataValueField="CveMoneda" TabIndex="5" ClientIDMode="Static" Width="100%">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label class="col-md-2" style="width: 80px;">SubProyecto: </label> <div class="col-md-1">
<div class="col-md-2 "> <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
<asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="100%"> </div>
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem> <div class="col-md-2">
<asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
</asp:DropDownList>
</div>
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
<div class="col-md-2">
<asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<div class="col-md-2" runat="server" id="tdTipoReporte" visible="true"> <div class="col-md-2" runat="server" id="tdTipoReporte" visible="true">
@@ -243,6 +249,6 @@
<asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
<script type="text/javascript"> <script type="text/javascript">
</script> </script>
</asp:Content> </asp:Content>

25
Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
View File

@@ -135,12 +135,14 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
TxtFechaF.Text = FechaInicio.ToShortDateString TxtFechaF.Text = FechaInicio.ToShortDateString
End If End If
If Request("CveSubProyecto") IsNot Nothing Then If Request("CveProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveProyecto")) Then
If IsNumeric(Request("CveSubProyecto")) Then DdlProyecto.SelectedValueExist(Request("CveProyecto"))
DdlSubproyecto.SelectedValueExist(Request("CveSubProyecto").ToString) DdlProyecto_SelectedIndexChanged(Nothing, Nothing)
End If
End If End If
If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
DdlSubproyecto.SelectedValueExist(Request("CveSubProyecto"))
End If
ErrorParametros = False ErrorParametros = False
@@ -207,9 +209,6 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
Dim ObjTipoCuenta As New ClsContabilidad '(UsuarioActual.Empresa) Dim ObjTipoCuenta As New ClsContabilidad '(UsuarioActual.Empresa)
Dim strGlobal As String = "" Dim strGlobal As String = ""
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
DdlSubproyecto.DataBind()
If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa, 1, -1) Then If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa, 1, -1) Then
Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')") Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
@@ -228,11 +227,19 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
End If End If
ObjTipoCuenta.Dispose() ObjTipoCuenta.Dispose()
DdlCuentas.DataBind() DdlCuentas.DataBind()
CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
End Sub End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero
Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
TipoReporte = DdlTipoReporte.SelectedValue.ToString TipoReporte = DdlTipoReporte.SelectedValue.ToString
If TipoReporte = "1" And DdlCuentas.SelectedValue.ToEntero < 0 Then If TipoReporte = "1" And DdlCuentas.SelectedValue.ToEntero < 0 Then
Alert("No ha seleccionado cuenta, Favor de especificar una", TipoMensaje.MsgAdvertencia) Alert("No ha seleccionado cuenta, Favor de especificar una", TipoMensaje.MsgAdvertencia)
@@ -241,7 +248,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
IdCuenta = DdlCuentas.SelectedValue.ToEntero IdCuenta = DdlCuentas.SelectedValue.ToEntero
Cuenta = DdlCuentas.SelectedItem.ToString Cuenta = DdlCuentas.SelectedItem.ToString
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, DdlMoneda.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte) Then If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, DdlMoneda.SelectedValue.ToEntero, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte) Then
DtDatos = ObjConta.DtResultados DtDatos = ObjConta.DtResultados
DtTotales = DtDatos.Clone DtTotales = DtDatos.Clone

2
General/ExcelToBD.aspx.cs
View File

@@ -146,7 +146,7 @@ public partial class General_ExcelToBD : System.Web.UI.Page
{ {
if (objbase.ExcelToBD(xml)) if (objbase.ExcelToBD(xml))
{ {
Alert("Información capturada", ModExtensiones.TipoMensaje.MsgInformacion); ClsPaginas.Alert("Información capturada", ModExtensiones.TipoMensaje.MsgInformacion);
} }
} }
GVDatos.DataSource = dt; GVDatos.DataSource = dt;

40
Global.asax
View File

@@ -63,33 +63,33 @@
#End If #End If
'---------------------------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------------
'C A R G A - O S 'C A R G A - O S
GuardaLogAsax(String.Format("Globalasax 2:{0}", DateTime.Now)) 'GuardaLogAsax(String.Format("Globalasax 2:{0}", DateTime.Now))
Using ObjOS As New ClsOS 'Using ObjOS As New ClsOS
If ObjOS.GetEstatusOrdenServicio() Then Application("GlobalDTEstatusOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTEstatusOrdenServicios") = Nothing ' 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 ' If ObjOS.GetTipoOrdenesServicios(-1) Then Application("GlobalDTTipoOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTTipoOrdenServicios") = Nothing
End Using 'End Using
'------------------------------------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------------------------------------
'A C T I V O S - F I J O S 'A C T I V O S - F I J O S
GuardaLogAsax(String.Format("Globalasax 3:{0}", DateTime.Now)) 'GuardaLogAsax(String.Format("Globalasax 3:{0}", DateTime.Now))
Using ObjActivosFijos As New ClsAF 'Using ObjActivosFijos As New ClsAF
If ObjActivosFijos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTAFCaracteristicasClasificaciones") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicasClasificaciones") = Nothing '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.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.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.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.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.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 'If ObjActivosFijos.GetModelosActivosFijos(-1, -1) Then Application("GlobalDTModeloActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTModeloActivoFijo") = Nothing
End Using 'End Using
'------------------------------------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------------------------------------
'C A R G A - O R D E N E S - D E - C O M P R A S '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)) 'GuardaLogAsax(String.Format("Globalasax 4:{0}", DateTime.Now))
Using ObjOC As New ClsOC 'Using ObjOC As New ClsOC
If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing '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 'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
End Using 'End Using
'------------------------------------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------------------------------------
'A M O R T I Z A C I O N - C O N T A B L E 'A M O R T I Z A C I O N - C O N T A B L E

1
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -982,6 +982,7 @@ Partial Class Sistemas_UsuarioDetalle
Exit For Exit For
End If End If
End If End If
GlobalDTUsuarios(-1, dr("CveEmpresa").ToString.ToEntero) = Nothing
Next Next
End If End If