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

-- cambio de GlobalDTSubProyectos

Browse Source 
- cambio en GlobalDTUsuarios
This commit is contained in:
rrene
2024-08-01 05:46:28 -07:00
parent 14f053bc86
commit 1c14bceea9
240 changed files with 692 additions and 689 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Contabilidad/CatCuentasAsignaciones.aspx.vb
View File

@@ -105,7 +105,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1)
DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=-1)
DdlSubProyectos.Items.Insert(0, New ListItem("-", "0"))
Dim ObjBancos As New ClsBancos

2
Contabilidad/ContabilizacionVentas.aspx.cs
View File

@@ -67,7 +67,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
DdlClientes.setEsWebService(true);
DdlClientes.Attributes.Add("data-metodo", "getcliente");
DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSubProyecto.DataBind();

2
Contabilidad/FiltraPolizas.aspx.vb
View File

@@ -449,7 +449,7 @@ Partial Class Contabilidad_FiltraPolizas
params.Add(New ReportParameter("Moneda", ""))
params.Add(New ReportParameter("CodigoPostal", ""))
If UsuarioActual.CveEmpresa = 119 Then
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre")))
End If
If UsuarioActual.CveEmpresa = 140 Then
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))

2
Contabilidad/MovimientosconProveedores.aspx.vb
View File

@@ -171,7 +171,7 @@ Partial Class MovimientosconProveedores
DdlTipoCuentas.Items.Add(New ListItem("Algun específico", "-2"))
DdlTipoCuentas.SelectedIndex = 0
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyecto.DataBind()
End Sub
Private Sub CargaDatos()

2
Contabilidad/PlantillasPolizasDetalle.aspx.vb
View File

@@ -368,7 +368,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
Public Sub CargaDDL()
DTSubProyectos = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DTSubProyectos = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DDLSubProyecto.DataSource = DTSubProyectos
DDLSubProyecto.DataBind()
DDLSubProyecto.Items.Insert(0, New ListItem(" - ", "-1"))

6
Contabilidad/PolizasImpresion.aspx.vb
View File

@@ -33,7 +33,7 @@ Partial Class Contabilidad_PolizasImpresion
TxtFechaInicio.Text = NowADS().AddDays(-1).ToShortDateString
TxtFechaFin.Text = NowADS().ToShortDateString
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuarioRegistro.DataBind()
@@ -133,7 +133,7 @@ Partial Class Contabilidad_PolizasImpresion
DdlSegmentoNeg.DataValueField = "CveSubProyecto"
DdlSegmentoNeg.DataTextField = "SubProyecto"
DdlSegmentoNeg.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
DdlSegmentoNeg.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSegmentoNeg.DataBind()
DdlSegmentoNeg.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSegmentoNeg.Items.Insert(1, New ListItem("Sin Asignar", "-2"))
@@ -196,7 +196,7 @@ Partial Class Contabilidad_PolizasImpresion
params.Add(New ReportParameter("CodigoPostal", ""))
If UsuarioActual.CveEmpresa = 119 Then
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("IdUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("IdUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre")))
End If
ImprimirPDF(ArchivoReporte, objcont.DtResultados, params)

4
Contabilidad/RegPoliza.aspx.vb
View File

@@ -1184,9 +1184,9 @@ Partial Class RegPoliza
For Each drt As DataRow In dtt.Rows
'PrePólizaDetalle
Dim tCveCuenta As Integer = dtc.FiltroPrimeroValor("CveCuenta", $"IdCompaq={drt("IdCuenta")}").ToEntero
Dim tCveSub As Integer = If(drt("IdSegNeg").ToString <> "", GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"SubProyecto ='{drt("SegNeg")}'").ToEntero, -1)
Dim tCveSub As Integer = If(drt("IdSegNeg").ToString <> "", GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"SubProyecto ='{drt("SegNeg")}'").ToEntero, -1)
'If tCveSub <= 0 AndAlso drt("IdSegNeg").ToString.ToEntero = 0 Then 'toma el primero
' tCveSub = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
' tCveSub = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
'End If ' NowADS(), drt("IdCuenta").ToString.ToEntero, 0,
If ObjConta.AddPrePolizasDetalle(tCvePrePoliza, drt("TipoMovto").ToString = "True",
drt("Importe").ToString.ToDecimal,

10
Contabilidad/RegPrePoliza.aspx.vb
View File

@@ -581,7 +581,7 @@ Partial Class ContabilidadC_RegPrePoliza
End If
If e.Row.RowType = DataControlRowType.Header Then
'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataBind()
'e.Row.FCDropDownList("DdlSubProyectoFiltro").Items.Insert(0, New ListItem("Todos", "-1"))
End If
@@ -660,7 +660,7 @@ Partial Class ContabilidadC_RegPrePoliza
End Sub
Private Sub CargaSubProyectos()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem(" - ", "-1"))
@@ -841,7 +841,7 @@ Partial Class ContabilidadC_RegPrePoliza
e.Row.FCTextBox("TxtAbono").Enabled = False
End If
e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("DdlSubProyecto").DataBind()
e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1"))
e.Row.FCDropDownList("DdlSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto")
@@ -1386,7 +1386,7 @@ Partial Class ContabilidadC_RegPrePoliza
DdlConceptosContablesE.Items.Insert(0, New ListItem(" - ", "-1"))
End Sub
Private Sub CargaSubProyectoE()
DdlSubProyectoE.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyectoE.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyectoE.DataBind()
DdlSubProyectoE.Items.Insert(0, New ListItem(" - ", "-1"))
End Sub
@@ -2536,7 +2536,7 @@ Partial Class ContabilidadC_RegPrePoliza
End If
If Row("SubProyecto").ToString.Trim <> "" Then
CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto").ToString.Trim)).ToEntero 'Row("CveSubProyecto").ToString.ToEntero
CveSubProyecto = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto").ToString.Trim)).ToEntero 'Row("CveSubProyecto").ToString.ToEntero
If CveSubProyecto = 0 Then
Alert(String.Format("El subproyecto <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("SubProyecto")))

10
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -577,7 +577,7 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
If e.Row.RowType = DataControlRowType.Header Then
'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataBind()
'e.Row.FCDropDownList("DdlSubProyectoFiltro").Items.Insert(0, New ListItem("Todos", "-1"))
End If
@@ -656,7 +656,7 @@ Partial Class ContabilidadC_RegPrePolizaS
End Sub
Private Sub CargaSubProyectos()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem(" - ", "-1"))
@@ -837,7 +837,7 @@ Partial Class ContabilidadC_RegPrePolizaS
e.Row.FCTextBox("TxtAbono").Enabled = False
End If
e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("DdlSubProyecto").DataBind()
e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1"))
e.Row.FCDropDownList("DdlSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto")
@@ -1382,7 +1382,7 @@ Partial Class ContabilidadC_RegPrePolizaS
DdlConceptosContablesE.Items.Insert(0, New ListItem(" - ", "-1"))
End Sub
Private Sub CargaSubProyectoE()
DdlSubProyectoE.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyectoE.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyectoE.DataBind()
DdlSubProyectoE.Items.Insert(0, New ListItem(" - ", "-1"))
End Sub
@@ -2532,7 +2532,7 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
If Row("SubProyecto").ToString.Trim <> "" Then
CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto").ToString.Trim)).ToEntero 'Row("CveSubProyecto").ToString.ToEntero
CveSubProyecto = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto").ToString.Trim)).ToEntero 'Row("CveSubProyecto").ToString.ToEntero
If CveSubProyecto = 0 Then
Alert(String.Format("El subproyecto <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("SubProyecto")))

4
Contabilidad/RepAnexoCatalogoAnual.aspx.vb
View File

@@ -180,8 +180,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
DdlEjercicio2.DataBind()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.SelectedValue = "-1"

2
Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx.vb
View File

@@ -167,7 +167,7 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
DdlCuentas.DataBind()
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyecto.DataBind()
End Sub
Private Sub CargaDatos()

2
Contabilidad/RepAnexoCatalogoVertical.aspx.vb
View File

@@ -55,7 +55,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoVertical
DdlEjercicio.DataBind()
DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.SelectedValue = "-1"

2
Contabilidad/RepBalanceGeneral.aspx.vb
View File

@@ -175,7 +175,7 @@ Partial Class Contabilidad_RepBalanceGeneral
DdlEjercicio.DataBind()
DdlEjercicio.SelectedValue = NowADS().Year.ToString
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyecto.DataBind()
If UsuarioActual.TienePermisoProceso(346) Then LnkCerrar.Visible = True

2
Contabilidad/RepBalanceGeneralVertical.aspx.vb
View File

@@ -44,7 +44,7 @@ Partial Class Contabilidad_RepBalanceGeneralVertical
DdlEjercicio.DataBind()
DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.SelectedValue = "-1"

2
Contabilidad/RepBalanzaComprobacion.aspx.vb
View File

@@ -97,7 +97,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
End If
'End If
End If
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyecto.DataBind()
If Not ErrorParametros Then

2
Contabilidad/RepCambiosSituacionFinanciera.aspx.vb
View File

@@ -129,7 +129,7 @@ Partial Class AC2_RepCambiosSituacionFinanciera
'TxtFechaAl.Text = NowADS().ToShortDateString
Dim Clsconta As New ClsContabilidad
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyecto.DataBind()
If Clsconta.GetEjercicios(UsuarioActual.CveEmpresa) Then

2
Contabilidad/RepEdoResultados2.aspx.vb
View File

@@ -55,7 +55,7 @@ Partial Class Contabilidad_RepEdoResultados2
DdlClasificacion.DataBind()
DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

2
Contabilidad/RepEdoResultados2Detalle.aspx.cs
View File

@@ -30,7 +30,7 @@ public partial class Contabilidad_RepEdoResultados2Detalle : ClsPaginas
}
}
public void InicializaValores()
public void InicializaValores()
{
DdlClasificacion.DataSource = get_GlobalDTClasificaciones(CveEmpresa: UsuarioActual.CveEmpresa);

2
Contabilidad/RepEstadoResultados.aspx.vb
View File

@@ -160,7 +160,7 @@ Partial Class Contabilidad2_RepEstadoResultados
End If
ClsConta.Dispose()
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyecto.DataBind()
DdlEjercicio.DataBind()

2
Contabilidad/RepEstadoResultadosHorizontal.aspx.vb
View File

@@ -2159,7 +2159,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If IndexSubProyecto <= IndexSubProyectoMax Then
Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
Dim TxtSub As String = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=dColumn.ColumnName.ToEntero).FiltroPrimeroValor("SubProyecto")
CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub

2
Contabilidad/RepFlujoEfectivo.aspx.vb
View File

@@ -64,7 +64,7 @@ Partial Class AC2_RepFlujoEfectivo
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjConta As New ClsContabilidad
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyecto.DataBind()
Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)

2
Contabilidad/RepOrigenAplicacion.aspx.vb
View File

@@ -84,7 +84,7 @@ Partial Class Contabilidad2_RepOrigenAplicacion
DdlEjercicio.DataSource = Nothing
End If
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyecto.DataBind()
DdlEjercicio.SelectedValue = NowADS().Year.ToString

2
Contabilidad/RepVariacionHaciendaPublica.aspx.vb
View File

@@ -97,7 +97,7 @@ Partial Class AC_RepVariacionHaciendaPublica
FechaDel = TxtFechaDel.Text
FechaAl = TxtFechaAl.Text
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyecto.DataBind()
Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString