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
AF/PopUpBuscarAF.aspx.vb
View File

@@ -235,7 +235,7 @@ Partial Class AF_PopUpBuscarAF
End Sub End Sub
Private Sub CargaSubProyecto() Private Sub CargaSubProyecto()
DdlSubProyecto.Items.Clear() DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=DdlProyecto.SelectedValue.ToEntero)
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

8
AF/RepAF.aspx.vb
View File

@@ -43,10 +43,10 @@ Partial Class AF_RepAF
' If UsuarioActual.Empresa.GralSoloProyecto Then ' If UsuarioActual.Empresa.GralSoloProyecto Then
DivProyecto.Visible = False DivProyecto.Visible = False
LblSubProyecto.Text = "Proyecto: " LblSubProyecto.Text = "Proyecto: "
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
' End If ' End If
End If End If
End Sub End Sub

2
AF/RepFlotillas.aspx.vb
View File

@@ -31,7 +31,7 @@ Partial Class AF_RepFlotillas
DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
'CentroCosto 'CentroCosto
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub

6
AF/ResguardoAF.aspx.vb
View File

@@ -87,7 +87,7 @@ Partial Class AF_ResguardoAF
TxtFechaT.Text = NowADS().ToShortDateString TxtFechaT.Text = NowADS().ToShortDateString
CargaAFResguardosTraslado() CargaAFResguardosTraslado()
DdlSubProyectoT.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyectoT.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyectoT.DataBind() DdlSubProyectoT.DataBind()
DdlSubProyectoT.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyectoT.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlResponsableT.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("CveEstatusPersonal = 1", "NombreCompleto") DdlResponsableT.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("CveEstatusPersonal = 1", "NombreCompleto")
@@ -103,7 +103,7 @@ Partial Class AF_ResguardoAF
'RECEPCION 'RECEPCION
DdlSubProyectoRT.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyectoRT.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyectoRT.DataBind() DdlSubProyectoRT.DataBind()
DdlSubProyectoRT.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "0")) DdlSubProyectoRT.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "0"))
DdlSubProyectoRT.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyectoRT.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -115,7 +115,7 @@ Partial Class AF_ResguardoAF
'LIBERACION 'LIBERACION
DdlSubProyectoRL.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyectoRL.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyectoRL.DataBind() DdlSubProyectoRL.DataBind()
DdlSubProyectoRL.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "0")) DdlSubProyectoRL.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "0"))
DdlSubProyectoRL.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyectoRL.Items.Insert(0, New ListItem("Seleccione", "-1"))

4
AF/ValesCombustible.aspx.vb
View File

@@ -43,7 +43,7 @@ Partial Class AF_ValesCombustible
DdlRHPersonal.DataBind() DdlRHPersonal.DataBind()
DdlRHPersonal.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlRHPersonal.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -51,7 +51,7 @@ Partial Class AF_ValesCombustible
' LtlSubProyecto.Text = "Proyecto" ' LtlSubProyecto.Text = "Proyecto"
' DdlSubProyecto.Items.Clear() ' DdlSubProyecto.Items.Clear()
' DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) ' DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos( UsuarioActual.CveEmpresa ))
' DdlSubProyecto.DataBind() ' DdlSubProyecto.DataBind()
' DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) ' DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
' DivProyecto.Visible = False ' DivProyecto.Visible = False

4
Acarreos/AcarreosConcluidos.aspx.vb
View File

@@ -91,13 +91,13 @@ Partial Class Acarreos_AcarreosAutoConciliacion
Private Sub CargaDdlSubProyectoOrigen() Private Sub CargaDdlSubProyectoOrigen()
DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
DdlSubProyectoOrigen.DataBind() DdlSubProyectoOrigen.DataBind()
UPDatos.Update() UPDatos.Update()
End Sub End Sub
Private Sub CargaDdlSubProyectoDestino() Private Sub CargaDdlSubProyectoDestino()
DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
DdlSubProyectoDestino.DataBind() DdlSubProyectoDestino.DataBind()
UPDatos.Update() UPDatos.Update()
End Sub End Sub

4
Acarreos/RegistroContratosAcarreos.aspx.vb
View File

@@ -182,14 +182,14 @@ Partial Class Acarreos_ContratosAcarreos
Private Sub CargaDdlSubProyectoOrigen() Private Sub CargaDdlSubProyectoOrigen()
DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
DdlSubProyectoOrigen.DataBind() DdlSubProyectoOrigen.DataBind()
UpProyecto.Update() UpProyecto.Update()
End Sub End Sub
Private Sub CargaDdlSubProyectoDestino() Private Sub CargaDdlSubProyectoDestino()
DdlSubProyectoDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyectoDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
DdlSubProyectoDestino.DataBind() DdlSubProyectoDestino.DataBind()
UpProyecto.Update() UpProyecto.Update()
End Sub End Sub

4
Acarreos/RepAcarreos.aspx.vb
View File

@@ -76,13 +76,13 @@ Partial Class Acarreos_RepAcarreos
Private Sub CargaDdlSubProyectoOrigen() Private Sub CargaDdlSubProyectoOrigen()
DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyectoOrigen.DataBind() DdlSubProyectoOrigen.DataBind()
UPDatos.Update() UPDatos.Update()
End Sub End Sub
Private Sub CargaDdlSubProyectoDestino() Private Sub CargaDdlSubProyectoDestino()
DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyectoDestino.DataBind() DdlSubProyectoDestino.DataBind()
UPDatos.Update() UPDatos.Update()
End Sub End Sub

4
Acarreos/RepAcarreosDetalle.aspx.vb
View File

@@ -108,14 +108,14 @@ Partial Class Acarreos_RepAcarreosDetalle
Private Sub CargaDdlSubProyectoOrigen() Private Sub CargaDdlSubProyectoOrigen()
DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyectoOrigen.DataBind() DdlSubProyectoOrigen.DataBind()
UPDatos.Update() UPDatos.Update()
End Sub End Sub
Private Sub CargaDdlSubProyectoDestino() Private Sub CargaDdlSubProyectoDestino()
DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyectoDestino.DataBind() DdlSubProyectoDestino.DataBind()
UPDatos.Update() UPDatos.Update()
End Sub End Sub

4
Acarreos/RepContratosAcarreos.aspx.vb
View File

@@ -59,13 +59,13 @@ Partial Class Acarreos_RepContratosAcarreos
Private Sub CargaDdlSubProyectoOrigen() Private Sub CargaDdlSubProyectoOrigen()
DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyectoOrigen.DataBind() DdlSubProyectoOrigen.DataBind()
UPDatos.Update() UPDatos.Update()
End Sub End Sub
Private Sub CargaDdlSubProyectoDestino() Private Sub CargaDdlSubProyectoDestino()
DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyectoDestino.DataBind() DdlSubProyectoDestino.DataBind()
UPDatos.Update() UPDatos.Update()
End Sub End Sub

4
App_Code/ClsCompraManager.vb
View File

@@ -549,7 +549,7 @@ Public Class ClsCompraManager
Me.CveTipoPoliza = 3 Me.CveTipoPoliza = 3
Me.NumeroReembolso = NumeroReembolso Me.NumeroReembolso = NumeroReembolso
Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("") Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero("")
If dRowSubProyecto IsNot Nothing Then If dRowSubProyecto IsNot Nothing Then
Me.Proyecto = dRowSubProyecto("Proyecto").ToString Me.Proyecto = dRowSubProyecto("Proyecto").ToString
@@ -595,7 +595,7 @@ Public Class ClsCompraManager
Me.CveTipoPoliza = 3 Me.CveTipoPoliza = 3
Me.NumeroReembolso = NumeroReembolso Me.NumeroReembolso = NumeroReembolso
Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("") Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero("")
If dRowSubProyecto IsNot Nothing Then If dRowSubProyecto IsNot Nothing Then
Me.Proyecto = dRowSubProyecto("Proyecto").ToString Me.Proyecto = dRowSubProyecto("Proyecto").ToString

12
App_Code/ClsPaginas.vb
View File

@@ -270,7 +270,7 @@ Public Class ClsPaginas
Application("GlobalTipoCambioEuro") = value Application("GlobalTipoCambioEuro") = value
End Set End Set
End Property End Property
Public Shared Property GlobalDTUsuarios(Optional CveUsuario As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1) As DataTable Public Shared Property GlobalDTUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1) As DataTable
Get Get
Dim AppNombre As String = $"GlobalDTUsuarios-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTUsuarios-{CveEmpresa}"
If HttpContext.Current.Application(AppNombre) Is Nothing Then If HttpContext.Current.Application(AppNombre) Is Nothing Then
@@ -1572,7 +1572,7 @@ Public Class ClsPaginas
HttpContext.Current.Application(AppNombre) = value HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Public Shared Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable Public Shared Property GlobalDTSubProyectos(CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveProyecto As Integer = -1, Optional Estatus As Integer = 1) As DataTable
Get Get
Dim AppNombre As String = $"GlobalDTSubProyectos-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTSubProyectos-{CveEmpresa}"
'sino existe, recarga los datos 'sino existe, recarga los datos
@@ -5027,7 +5027,7 @@ Public Class ClsPaginas
If AplicaTodos <> "" Then DdlProyecto.Items.Insert(0, New ListItem(AplicaTodos, "-1")) If AplicaTodos <> "" Then DdlProyecto.Items.Insert(0, New ListItem(AplicaTodos, "-1"))
End If End If
If DdlSubProyectoMultiple IsNot Nothing Then If DdlSubProyectoMultiple IsNot Nothing Then
DdlSubProyectoMultiple.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) DdlSubProyectoMultiple.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1))
DdlSubProyectoMultiple.DataBind() DdlSubProyectoMultiple.DataBind()
If AplicaTodos <> "" Then DdlSubProyectoMultiple.Items.Insert(0, New ListItem(AplicaTodos, "-1")) If AplicaTodos <> "" Then DdlSubProyectoMultiple.Items.Insert(0, New ListItem(AplicaTodos, "-1"))
End If End If
@@ -5038,7 +5038,7 @@ Public Class ClsPaginas
Public Sub CargarSubProyecto(DdlSubProyecto As ListControl, CveProyecto As String, Optional AplicaTodos As String = "Seleccione") Public Sub CargarSubProyecto(DdlSubProyecto As ListControl, CveProyecto As String, Optional AplicaTodos As String = "Seleccione")
DdlSubProyecto.Items.Clear() DdlSubProyecto.Items.Clear()
DdlSubProyecto.ClearSelection() DdlSubProyecto.ClearSelection()
DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto.ToEntero(), UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto.ToEntero(), -1, UsuarioActual.CveEmpresa, 1)) DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto.ToEntero(), UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto.ToEntero(), Estatus:=1))
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
If AplicaTodos <> "" Then If AplicaTodos <> "" Then
If DdlSubProyecto.GetType() Is GetType(ListBox) Then If DdlSubProyecto.GetType() Is GetType(ListBox) Then
@@ -5608,7 +5608,7 @@ Public Class ClsPaginas
'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel) 'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel)
Dim CveSubProyecto As Integer = dtVentas(0)("CveSubProyecto").ToString().ToEntero() Dim CveSubProyecto As Integer = dtVentas(0)("CveSubProyecto").ToString().ToEntero()
Dim DtSubProyecto As DataTable = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=dtVentas(0)("CveEmpresa").ToString().ToEntero()) Dim DtSubProyecto As DataTable = GlobalDTSubProyectos(dtVentas(0)("CveEmpresa").ToString.ToEntero, CveSubProyecto:=CveSubProyecto)
Vta.SubProyecto = DtSubProyecto.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel) Vta.SubProyecto = DtSubProyecto.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
'Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel) 'Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
@@ -7776,7 +7776,7 @@ Public Class ClsPaginas
If CveSubProyectoEntrega > 0 Then If CveSubProyectoEntrega > 0 Then
Dim DTSubProyectoEntrega As DataTable = GlobalDTSubProyectos(-1, CveSubProyectoEntrega, UsuarioActual.CveEmpresa) Dim DTSubProyectoEntrega As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyectoEntrega)
params.Add(New ReportParameter("SubProyectoEntrega", DTSubProyectoEntrega(0)("SubProyecto").ToString)) params.Add(New ReportParameter("SubProyectoEntrega", DTSubProyectoEntrega(0)("SubProyecto").ToString))

18
App_Code/Modelos.vb
View File

@@ -1915,7 +1915,7 @@ Namespace Modelos
dr("Consec") = ii dr("Consec") = ii
If drpss("IVA").ToString = "-1" Then If drpss("IVA").ToString = "-1" Then
dr("PorcentajeIVA") = SubProyectoPorcentajeIVA ' GlobalDTSubProyectos(-1,cves DrPS("IVA") dr("PorcentajeIVA") = SubProyectoPorcentajeIVA
Else Else
dr("PorcentajeIVA") = drpss("IVA") dr("PorcentajeIVA") = drpss("IVA")
End If End If
@@ -3033,7 +3033,7 @@ Namespace Modelos
Dim DtPagosVenta As DataTable = Nothing Dim DtPagosVenta As DataTable = Nothing
If ObjClientes IsNot Nothing Then If ObjClientes IsNot Nothing Then
If ObjClientes.GetVentasRemisionesPagos(CveCliente, Me.CveVenta.ToString(), ObjFactura.TipoDocto) Then If ObjClientes.GetVentasRemisionesPagos(CveCliente, Me.CveVenta.ToString(), ObjFactura.CveEmpresa, ObjFactura.TipoDocto) Then
DtPagosVenta = ObjClientes.DtResultados.Copy() DtPagosVenta = ObjClientes.DtResultados.Copy()
Else Else
ErrorPrepoliza = True ErrorPrepoliza = True
@@ -3900,7 +3900,7 @@ Namespace Modelos
importeMovimiento = ((TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} AND CveSubProyecto = {1} AND PorcentajeIVA = {2}", Row2("CveClasificacion"), Row2("CveSubProyecto"), Row2("PorcentajeIVA"))).ToString.ToDecimal) * ValorMultiplicador) importeMovimiento = ((TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} AND CveSubProyecto = {1} AND PorcentajeIVA = {2}", Row2("CveClasificacion"), Row2("CveSubProyecto"), Row2("PorcentajeIVA"))).ToString.ToDecimal) * ValorMultiplicador)
importeMX = importeMovimiento * tipoCambio * Multiplicador importeMX = importeMovimiento * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago FechaMovimiento = ObjFactura.FechaPago
Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, ClsPaginas.GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}" Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}"
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas 'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -3938,7 +3938,7 @@ Namespace Modelos
importeMX = importeMovimiento * tipoCambio * Multiplicador importeMX = importeMovimiento * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago FechaMovimiento = ObjFactura.FechaPago
Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, ClsPaginas.GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}" Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}"
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas 'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -3971,7 +3971,7 @@ Namespace Modelos
importeMovimiento = (TmpDTDetalle.SUM("Descuento", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador importeMovimiento = (TmpDTDetalle.SUM("Descuento", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
importeMX = importeMovimiento * tipoCambio * Multiplicador importeMX = importeMovimiento * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago FechaMovimiento = ObjFactura.FechaPago
Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, ClsPaginas.GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}" Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas 'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -7888,12 +7888,12 @@ Namespace Modelos
Public Sub SetSubProyecto() Public Sub SetSubProyecto()
If CveSubProyecto > 0 AndAlso UsuarioActual IsNot Nothing Then If CveSubProyecto > 0 AndAlso UsuarioActual IsNot Nothing Then
SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")) SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero(""))
End If End If
End Sub End Sub
Public Sub SetSubProyectoMatriz() Public Sub SetSubProyectoMatriz()
If UsuarioActual IsNot Nothing Then If UsuarioActual IsNot Nothing Then
Dim Row As Data.DataRow = ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1") Dim Row As Data.DataRow = ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")
If Not IsNothing(Row) Then If Not IsNothing(Row) Then
SubProyectoMatriz = New Modelos.SubProyectoModel(Row) SubProyectoMatriz = New Modelos.SubProyectoModel(Row)
End If End If
@@ -7950,12 +7950,12 @@ Namespace Modelos
Public Sub SetSubProyecto(obj As ClsPaginas) Public Sub SetSubProyecto(obj As ClsPaginas)
If CveSubProyecto > 0 AndAlso Not IsNothing(obj) Then If CveSubProyecto > 0 AndAlso Not IsNothing(obj) Then
SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveEmpresa:=obj.UsuarioActual.CveEmpresa).FiltroPrimero($"CveSubProyecto = {CveSubProyecto}")) SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(obj.UsuarioActual.CveEmpresa).FiltroPrimero($"CveSubProyecto = {CveSubProyecto}"))
End If End If
End Sub End Sub
Public Sub SetSubProyectoMatriz(obj As ClsPaginas) Public Sub SetSubProyectoMatriz(obj As ClsPaginas)
If Not IsNothing(obj) Then If Not IsNothing(obj) Then
Dim Row As Data.DataRow = ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=obj.UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1") Dim Row As Data.DataRow = ClsPaginas.GlobalDTSubProyectos(obj.UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")
If Not IsNothing(Row) Then If Not IsNothing(Row) Then
SubProyectoMatriz = New Modelos.SubProyectoModel(Row) SubProyectoMatriz = New Modelos.SubProyectoModel(Row)
End If End If

10
Ashx/E141.ashx
View File

@@ -821,8 +821,8 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
ObjFactura.CveSubProyecto = CveSubProyecto ObjFactura.CveSubProyecto = CveSubProyecto
ObjFactura.CveSubProyectoCobranza = CveSubProyecto ObjFactura.CveSubProyectoCobranza = CveSubProyecto
ObjFactura.CveSubProyectoEjecucion = CveSubProyecto ObjFactura.CveSubProyectoEjecucion = CveSubProyecto
ObjFactura.SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveEmpresa:=CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto))) ObjFactura.SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos( CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto)))
ObjFactura.SubProyectoMatriz = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")) ObjFactura.SubProyectoMatriz = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos( UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1"))
'CLIENTE 'CLIENTE
ObjFactura.CveCliente = CveCliente ObjFactura.CveCliente = CveCliente
@@ -1326,7 +1326,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
Dim PorcentajeIVADefault As Decimal = 0.16D Dim PorcentajeIVADefault As Decimal = 0.16D
Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos(-1, JsonRequest("branch_office_id").ToEntero(), CveEmpresa:=CveEmpresa).Rows(0) Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos( CveEmpresa, cvesubproyecto:=JsonRequest("branch_office_id").ToEntero()).Rows(0)
If DrSubProyecto IsNot Nothing Then If DrSubProyecto IsNot Nothing Then
PorcentajeIVADefault = DrSubProyecto("IVA").ToString().ToDecimal() PorcentajeIVADefault = DrSubProyecto("IVA").ToString().ToDecimal()
@@ -1415,7 +1415,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
Dim Row As DataRow = Nothing Dim Row As DataRow = Nothing
Dim TotalCalculableImpuestos As Decimal = 0 Dim TotalCalculableImpuestos As Decimal = 0
PU = Math.Round(PU, 6) ' el precio unitario puede llevar hasta 6 decimales permitidos PU = Math.Round(PU, 6) ' el precio unitario puede llevar hasta 6 decimales permitidos
Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto).Rows(0) Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).Rows(0)
Row = TmpDT.NewRow() Row = TmpDT.NewRow()
Row("CveProyecto") = DrSubProyecto("CveProyecto").ToString().ToEntero() Row("CveProyecto") = DrSubProyecto("CveProyecto").ToString().ToEntero()
@@ -1593,7 +1593,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
Dim data As New JArray Dim data As New JArray
Dim DtSucursales As DataTable = ClsPaginas.GlobalDTSubProyectos(-1, CveEmpresa:=CveEmpresa).FiltraParametros("EsSucursal = True") Dim DtSucursales As DataTable = ClsPaginas.GlobalDTSubProyectos(CveEmpresa).FiltraParametros("EsSucursal = True")
If DtSucursales IsNot Nothing Then If DtSucursales IsNot Nothing Then
Try Try
For Each Row As DataRow In DtSucursales.Rows For Each Row As DataRow In DtSucursales.Rows

8
Ashx/SIGFacturacion.ashx
View File

@@ -143,7 +143,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
If DTRemisionesPS IsNot Nothing AndAlso DTRemisionesPS.Rows.Count > 0 Then If DTRemisionesPS IsNot Nothing AndAlso DTRemisionesPS.Rows.Count > 0 Then
Dim Resp As New Modelos.Factura.MMensajeFactura Dim Resp As New Modelos.Factura.MMensajeFactura
Dim CveSubProyectoMatriz As Integer = ClsPaginas.GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero() Dim CveSubProyectoMatriz As Integer = ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero()
Dim ObjFactura = CreaFactura(Resp, UsuarioActual, DTRemisionesPS, RowCliente("CveCliente").ToString().ToEntero(), CveSubProyectoMatriz, 1, DatosRemisiones, FechaI, FechaF) Dim ObjFactura = CreaFactura(Resp, UsuarioActual, DTRemisionesPS, RowCliente("CveCliente").ToString().ToEntero(), CveSubProyectoMatriz, 1, DatosRemisiones, FechaI, FechaF)
@@ -312,8 +312,8 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
ObjFactura.CveSubProyecto = CveSubProyecto ObjFactura.CveSubProyecto = CveSubProyecto
ObjFactura.CveSubProyectoCobranza = CveSubProyecto ObjFactura.CveSubProyectoCobranza = CveSubProyecto
ObjFactura.CveSubProyectoEjecucion = CveSubProyecto ObjFactura.CveSubProyectoEjecucion = CveSubProyecto
ObjFactura.SubProyecto = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto))) ObjFactura.SubProyecto = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto)))
ObjFactura.SubProyectoMatriz = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")) ObjFactura.SubProyectoMatriz = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=-1 ).FiltroPrimero("TipoSucursal=1"))
'CLIENTE 'CLIENTE
ObjFactura.CveCliente = CveCliente ObjFactura.CveCliente = CveCliente
@@ -677,7 +677,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Dim Row As DataRow = Nothing Dim Row As DataRow = Nothing
Dim TotalCalculableImpuestos As Decimal = 0 Dim TotalCalculableImpuestos As Decimal = 0
PU = Math.Round(PU, 6) ' el precio unitario puede llevar hasta 6 decimales permitidos PU = Math.Round(PU, 6) ' el precio unitario puede llevar hasta 6 decimales permitidos
Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto).Rows(0) Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto).Rows(0)
Row = TmpDT.NewRow() Row = TmpDT.NewRow()
Row("CveProyecto") = DrSubProyecto("CveProyecto").ToString().ToEntero() Row("CveProyecto") = DrSubProyecto("CveProyecto").ToString().ToEntero()

5
Ashx/SIGFacturacionCiclica.ashx
View File

@@ -332,9 +332,8 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
ObjFactura.CveSubProyectoCobranza = CveSubProyecto.ToEntero ObjFactura.CveSubProyectoCobranza = CveSubProyecto.ToEntero
ObjFactura.CveSubProyectoEjecucion = CveSubProyecto.ToEntero ObjFactura.CveSubProyectoEjecucion = CveSubProyecto.ToEntero
ObjFactura.SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1).FiltroPrimero(String.Format("CveSubProyecto = {0}", ObjFactura.CveSubProyecto))) ObjFactura.SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", ObjFactura.CveSubProyecto)))
ObjFactura.SubProyectoMatriz = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")) ObjFactura.SubProyectoMatriz = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=-1).FiltroPrimero("TipoSucursal=1"))
SubProyecto = DR("SubProyectoContrato").ToString SubProyecto = DR("SubProyectoContrato").ToString

6
Bancos/CuentasBancariasDetalle.aspx.vb
View File

@@ -38,7 +38,7 @@ Partial Class Bancos_CuentasBancariasDetalle
CargaCuentasPadre() CargaCuentasPadre()
ViewState("DTUsuarios") = Nothing ViewState("DTUsuarios") = Nothing
Dim tablaUsuariosAux As DataTable = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", DistinctColumns:={"CveUsuario", "Nombre", "Usuario"}) Dim tablaUsuariosAux As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", DistinctColumns:={"CveUsuario", "Nombre", "Usuario"})
DdlUsuarios.DataSource = CargarDdlUsuarios(tablaUsuariosAux) DdlUsuarios.DataSource = CargarDdlUsuarios(tablaUsuariosAux)
DdlUsuarios.DataBind() DdlUsuarios.DataBind()
@@ -123,7 +123,7 @@ Partial Class Bancos_CuentasBancariasDetalle
DdlBanco.DataBind() DdlBanco.DataBind()
DdlBanco.Items.Add(New ListItem("Empresa", "0")) DdlBanco.Items.Add(New ListItem("Empresa", "0"))
DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyectos.DataBind() DdlSubProyectos.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("-", "-1")) DdlSubProyectos.Items.Insert(0, New ListItem("-", "-1"))
End Sub End Sub
@@ -477,7 +477,7 @@ Partial Class Bancos_CuentasBancariasDetalle
sUsuarios = $"{sUsuarios} {row("CveUsuario").ToString}," sUsuarios = $"{sUsuarios} {row("CveUsuario").ToString},"
Next Next
If sUsuarios <> "" Then If sUsuarios <> "" Then
DdlUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario NOT IN ({sUsuarios.Substring(0, sUsuarios.Length - 1)})", "Nombre") DdlUsuarios.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario NOT IN ({sUsuarios.Substring(0, sUsuarios.Length - 1)})", "Nombre")
DdlUsuarios.DataBind() DdlUsuarios.DataBind()
End If End If
End Sub End Sub

6
Bancos/DepositosCaja.aspx.vb
View File

@@ -38,8 +38,8 @@ Partial Class Bancos_DepositosCaja
BtnConsultar.Attributes.Add("onclick", "Consultar(this);") BtnConsultar.Attributes.Add("onclick", "Consultar(this);")
BtnDepositar.Attributes.Add("onclick", "Depositar(this);") BtnDepositar.Attributes.Add("onclick", "Depositar(this);")
Dim StrEncriptPrueba As String = Encripta($"OP=DC&CveIE={2784391}&CuentaCaja={"TestCuantaCaja"}&CuentaDepo={"Test cuenta"}") 'Dim StrEncriptPrueba As String = Encripta($"OP=DC&CveIE={2784391}&CuentaCaja={"TestCuantaCaja"}&CuentaDepo={"Test cuenta"}")
HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncriptPrueba}" 'HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncriptPrueba}"
End If End If
End Sub End Sub
@@ -327,7 +327,7 @@ Partial Class Bancos_DepositosCaja
If CveSubProyecto <= 0 Then If CveSubProyecto <= 0 Then
'se saca de la cuenta de la caja chica 'se saca de la cuenta de la caja chica
CveSubProyecto = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, Estatus:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto") CveSubProyecto = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, Estatus:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
End If End If
End If End If

2
Bancos/Devoluciones.aspx.cs
View File

@@ -133,7 +133,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
} }
protected void CargaSubProyectos() protected void CargaSubProyectos()
{ {
DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa); DdlSubProyecto.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
DdlSubProyecto.DataBind(); DdlSubProyecto.DataBind();
DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione SubProyecto", "-1")); DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione SubProyecto", "-1"));
} }

7
Bancos/IE.aspx.vb
View File

@@ -2132,7 +2132,7 @@ Partial Class Bancos_IE
Dim importeMX As Decimal Dim importeMX As Decimal
Dim Multiplicador As Integer Dim Multiplicador As Integer
Dim tCveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero Dim tCveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
'OTROS INGRESOS/EGRESOS 'OTROS INGRESOS/EGRESOS
Dim TCC As Decimal = 1 Dim TCC As Decimal = 1
@@ -2288,7 +2288,7 @@ Partial Class Bancos_IE
If TxtOtrosIngresosEgresos.Text.ToDecimal <> 0 Then If TxtOtrosIngresosEgresos.Text.ToDecimal <> 0 Then
Dim TipoMovtoIE As Boolean = False Dim TipoMovtoIE As Boolean = False
Dim CveConcIE As Integer = 78 Dim CveConcIE As Integer = 78
Dim tCveSub As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero Dim tCveSub As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
If Impo < 0 Then If Impo < 0 Then
TipoMovtoIE = True TipoMovtoIE = True
Impo = Math.Abs(Impo) Impo = Math.Abs(Impo)
@@ -2355,8 +2355,7 @@ Partial Class Bancos_IE
Dim ImporteAplicarMN As Decimal = 0.0D Dim ImporteAplicarMN As Decimal = 0.0D
Dim ImporteAplicarME As Decimal = 0.0D Dim ImporteAplicarME As Decimal = 0.0D
Dim ReferenciaAplicar As String = ObjIE.Folio Dim ReferenciaAplicar As String = ObjIE.Folio
Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
Dim ConceptoAplicar As String = $"Devolución de Proveedor {PagueseA} {TxtImporte.Text} NC:{SerieFolioDeCDin}" Dim ConceptoAplicar As String = $"Devolución de Proveedor {PagueseA} {TxtImporte.Text} NC:{SerieFolioDeCDin}"
ImporteAplicar = TxtImporte.Text.ToDecimal ImporteAplicar = TxtImporte.Text.ToDecimal

4
Bancos/PagoAcreedor.aspx.cs
View File

@@ -57,12 +57,12 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
private void CargaSubproyectos() private void CargaSubproyectos()
{ {
DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa); DdlSubProyecto.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
DdlSubProyecto.DataBind(); DdlSubProyecto.DataBind();
DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlSubProyectoPago.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa); DdlSubProyectoPago.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
DdlSubProyectoPago.DataBind(); DdlSubProyectoPago.DataBind();
DdlSubProyectoPago.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlSubProyectoPago.Items.Insert(0, new ListItem("Seleccione", "-1"));

4
Bancos/PagoDeudor.aspx.cs
View File

@@ -60,12 +60,12 @@ public partial class Bancos_PagoDeudor : ClsPaginas
private void CargaSubproyectos() private void CargaSubproyectos()
{ {
DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa); DdlSubProyecto.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
DdlSubProyecto.DataBind(); DdlSubProyecto.DataBind();
DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlSubProyectoPago.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa); DdlSubProyectoPago.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
DdlSubProyectoPago.DataBind(); DdlSubProyectoPago.DataBind();
DdlSubProyectoPago.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlSubProyectoPago.Items.Insert(0, new ListItem("Seleccione", "-1"));

2
Bancos/RepCobrado.aspx.vb
View File

@@ -40,7 +40,7 @@ Partial Class Ventas_RepRecuperacion
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
'CargaUsuarios 'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind() DdlUsuario.DataBind()
'CargaResponsable 'CargaResponsable

2
Bancos/RepCobradoDetalle.aspx.vb
View File

@@ -59,7 +59,7 @@ Partial Class Ventas_RepRecuperacionDetalle
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
'CargaUsuarios 'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind() DdlUsuario.DataBind()
'CargaResponsable 'CargaResponsable

2
Bancos/RepCobradoPagado.aspx.vb
View File

@@ -217,7 +217,7 @@ Partial Class Bancos_RepCobradoPagado
Private Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged Private Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
DdlSubProyecto.Items.Clear() DdlSubProyecto.Items.Clear()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=DdlProyecto.SelectedValue.ToEntero)
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
End Sub End Sub
#End Region #End Region

4
Bancos/RepEgresosSinComprobante.aspx.vb
View File

@@ -34,7 +34,7 @@ Partial Class Bancos_RepEgresosSinComprobante
DdlUsuarioResponsable.DataBind() DdlUsuarioResponsable.DataBind()
If UsuarioActual.TienePermisoProceso(91) Then If UsuarioActual.TienePermisoProceso(91) Then
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
DdlUsuarioRegistro.DataBind() DdlUsuarioRegistro.DataBind()
DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1")) DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
Else Else
@@ -51,7 +51,7 @@ Partial Class Bancos_RepEgresosSinComprobante
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'") DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'")
DdlTipoTransaccion.DataBind() DdlTipoTransaccion.DataBind()
DdlUsuarioSolicito.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") DdlUsuarioSolicito.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
DdlUsuarioSolicito.DataBind() DdlUsuarioSolicito.DataBind()
DdlProveedores.setEsWebService(True) DdlProveedores.setEsWebService(True)

2
Bancos/RepIE.aspx.vb
View File

@@ -97,7 +97,7 @@ Partial Class Bancos_RepIE
CargaMoneda() CargaMoneda()
CargaTipoTransaccion("-1") CargaTipoTransaccion("-1")
CargaUsuarioConcilio() CargaUsuarioConcilio()
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", DistinctColumns:={"Nombre", "CveUsuario"}) DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", DistinctColumns:={"Nombre", "CveUsuario"})
DdlUsuarioRegistro.databind DdlUsuarioRegistro.databind
txtFechaI.Text = NowADS().ToShortDateString txtFechaI.Text = NowADS().ToShortDateString

6
Bancos/RepIngresosPorComprobar.aspx.vb
View File

@@ -41,11 +41,11 @@ Partial Class Bancos_RepIngresosPorComprobar
If UsuarioActual.TienePermisoProceso(91) Then If UsuarioActual.TienePermisoProceso(91) Then
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuarioRegistro.DataBind() DdlUsuarioRegistro.DataBind()
DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1")) DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
Else Else
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario) DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
DdlUsuarioRegistro.DataBind() DdlUsuarioRegistro.DataBind()
End If End If
@@ -261,7 +261,7 @@ Partial Class Bancos_RepIngresosPorComprobar
UPDatos.Update() UPDatos.Update()
End If End If
Next Next
DdlSubProyectoSaldar.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyectoSaldar.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyectoSaldar.DataBind() DdlSubProyectoSaldar.DataBind()
UPModalSaldar.Update() UPModalSaldar.Update()
End Sub End Sub

12
Bancos/RepProgramarRecursos.aspx.vb
View File

@@ -122,11 +122,11 @@ Partial Class Bancos_RepProgramarRecursos
DdlEstatusCompra.DataBind() DdlEstatusCompra.DataBind()
If UsuarioActual.TienePermisoProceso(91) Then If UsuarioActual.TienePermisoProceso(91) Then
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuarioRegistro.DataBind() DdlUsuarioRegistro.DataBind()
DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1")) DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
Else Else
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario) DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
DdlUsuarioRegistro.DataBind() DdlUsuarioRegistro.DataBind()
End If End If
@@ -167,14 +167,14 @@ Partial Class Bancos_RepProgramarRecursos
RegistraScript(script, "random12345") RegistraScript(script, "random12345")
proyectolabel.Visible = False proyectolabel.Visible = False
DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa))
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
' DdlEstatusCompra.SelectedValue = "2" 'las programadas ' DdlEstatusCompra.SelectedValue = "2" 'las programadas
'DdlAgrupador.SelectedValue = "2" 'DdlAgrupador.SelectedValue = "2"
'Gv.Columns(8).Visible = True 'Gv.Columns(8).Visible = True
DdlSubProyecto.Items.Insert(1, New ListItem("Sin Proyecto", "-2")) DdlSubProyecto.Items.Insert(1, New ListItem("Sin Proyecto", "-2"))
ListSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) ListSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa))
ListSubProyecto.DataBind() ListSubProyecto.DataBind()
End If End If
@@ -188,10 +188,10 @@ Partial Class Bancos_RepProgramarRecursos
DdlSubProyecto.SelectedValue = CveSubProyecto.ToString DdlSubProyecto.SelectedValue = CveSubProyecto.ToString
'confirmo la seleccion, de no tener el dato, lo recargo 'confirmo la seleccion, de no tener el dato, lo recargo
If DdlSubProyecto.SelectedValue <> CveSubProyecto.ToString Then If DdlSubProyecto.SelectedValue <> CveSubProyecto.ToString Then
Dim CveProy As Integer = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CveProyecto").ToEntero Dim CveProy As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CveProyecto").ToEntero
DdlSubProyecto.SelectedValue = CveSubProyecto.ToString DdlSubProyecto.SelectedValue = CveSubProyecto.ToString
DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProy, -1, UsuarioActual.CveEmpresa, 1) DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProy, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
End If End If

4
Bancos/RepProveedoresPagos.aspx.vb
View File

@@ -56,7 +56,7 @@ Partial Class Bancos_RepProveedoresPagos
'puede pagar de todos los usuarios o solo los que halla registrado 'puede pagar de todos los usuarios o solo los que halla registrado
If UsuarioActual.TienePermisoProceso(91) Then If UsuarioActual.TienePermisoProceso(91) Then
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuarioRegistro.DataBind() DdlUsuarioRegistro.DataBind()
DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1")) DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
Else Else
@@ -64,7 +64,7 @@ Partial Class Bancos_RepProveedoresPagos
DdlUsuarioRegistro.DataBind() DdlUsuarioRegistro.DataBind()
End If End If
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

4
Bancos/RepSaldosDAP.aspx.vb
View File

@@ -14,11 +14,11 @@ Partial Class Bancos_RepSaldosDAP
Private Sub Bancos_RepSaldosDAP_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub Bancos_RepSaldosDAP_Load(sender As Object, e As EventArgs) Handles Me.Load
If UsuarioActual.TienePermisoProceso(91) Then If UsuarioActual.TienePermisoProceso(91) Then
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuarioRegistro.DataBind() DdlUsuarioRegistro.DataBind()
DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1")) DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
Else Else
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario) DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
DdlUsuarioRegistro.DataBind() DdlUsuarioRegistro.DataBind()
End If End If

2
Bancos/Transferencias.aspx.vb
View File

@@ -461,7 +461,7 @@ Partial Class Bancos_Transferencias
For Each Row As DataRow In dtcorreo.Rows For Each Row As DataRow In dtcorreo.Rows
' CorreosCCP.Add(GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString) ' CorreosCCP.Add(GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString) StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa)(0)("correo").ToString)
Next Next
Dim strBody As New StringBuilder Dim strBody As New StringBuilder

2
CRM/AsignarVendedorEnProspectos.aspx.cs
View File

@@ -35,7 +35,7 @@ public partial class CRM_AsignarVendedorEnProspectos : ClsPaginas
private void CargaFiltros() private void CargaFiltros()
{ {
DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa); DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlSubProyecto.DataBind(); DdlSubProyecto.DataBind();

2
CRM/CatEmpresasCRM.aspx.cs
View File

@@ -240,7 +240,7 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas
} }
int CveSubProyecto = -1; int CveSubProyecto = -1;
DataRow SubProyecto = get_GlobalDTSubProyectos(-1,CveEmpresa:UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("SubProyecto = '{0}'",Sucursal)); DataRow SubProyecto = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("SubProyecto = '{0}'",Sucursal));
if(SubProyecto != null) if(SubProyecto != null)
{ {
CveSubProyecto = SubProyecto["CveSubProyecto"].ToString().ToEntero(); CveSubProyecto = SubProyecto["CveSubProyecto"].ToString().ToEntero();

2
CRM/EmpresaCRM.aspx.cs
View File

@@ -1972,7 +1972,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
#endregion #endregion
private void mandarCorreo(string Asunto, string body) private void mandarCorreo(string Asunto, string body)
{ {
DataTable Usuarios = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); DataTable Usuarios = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
int CveUsuario = Usuarios.FiltroPrimeroValor("CveUsuario", String.Format("CveVendedor = {0}", DdlVendedorAsignado.SelectedValue)).ToEntero(); int CveUsuario = Usuarios.FiltroPrimeroValor("CveUsuario", String.Format("CveVendedor = {0}", DdlVendedorAsignado.SelectedValue)).ToEntero();
if (CveUsuario != UsuarioActual.CveUsuario) if (CveUsuario != UsuarioActual.CveUsuario)
{ {

16
Compras/Compras.aspx.vb
View File

@@ -11123,7 +11123,7 @@ Partial Class Compras_Compras
e.Row.FCDropDownList("DdlPersonalGv").DataBind() e.Row.FCDropDownList("DdlPersonalGv").DataBind()
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
e.Row.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) e.Row.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa))
e.Row.FCDropDownList("DdlSubProyectoPersonal").Items.Insert(0, New ListItem("Seleccione", "-1")) e.Row.FCDropDownList("DdlSubProyectoPersonal").Items.Insert(0, New ListItem("Seleccione", "-1"))
e.Row.FCDropDownList("DdlSubProyectoPersonal").DataBind() e.Row.FCDropDownList("DdlSubProyectoPersonal").DataBind()
e.Row.FCDropDownList("DdlProyectoPersonal").Visible = False e.Row.FCDropDownList("DdlProyectoPersonal").Visible = False
@@ -14098,7 +14098,7 @@ Partial Class Compras_Compras
Dim porcentajes As String() = StringProrrateo.Split(New Char() {";"c}) Dim porcentajes As String() = StringProrrateo.Split(New Char() {";"c})
Dim prtDT As DataTable = TmpDT.Copy Dim prtDT As DataTable = TmpDT.Copy
Dim GBSP As DataTable = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToString.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa) Dim GBSP As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=DdlProyecto.SelectedValue.ToString.ToEntero)
TmpDT.Clear() TmpDT.Clear()
Dim subtotal As Decimal = TxtSubTotal.Text.ToDecimal Dim subtotal As Decimal = TxtSubTotal.Text.ToDecimal
@@ -14979,7 +14979,7 @@ Partial Class Compras_Compras
End If '876906 End If '876906
Dim PSRow As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS_RNC).FiltroPrimero("") Dim PSRow As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS_RNC).FiltroPrimero("")
Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal() Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal()
Dim SubProyecto As String = GlobalDTSubProyectos(-1, CveSubProyectoPrincipal, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto") Dim SubProyecto As String = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyectoPrincipal).FiltroPrimeroValor("SubProyecto")
Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero
If PSRow("CvePSCargo").ToString <> "" Then If PSRow("CvePSCargo").ToString <> "" Then
@@ -17103,7 +17103,7 @@ Partial Class Compras_Compras
'HdnIVAPS.Value = If(PS.Rows(0)("IVA").ToString = "-1", ViewState("IVA"), PS.Rows(0)("IVA").ToString).ToString 'HdnIVAPS.Value = If(PS.Rows(0)("IVA").ToString = "-1", ViewState("IVA"), PS.Rows(0)("IVA").ToString).ToString
ViewState("IVAPS") = PS("IVA").ToString ViewState("IVAPS") = PS("IVA").ToString
If ViewState("IVAPS").ToString.ToEntero() = -1 Then If ViewState("IVAPS").ToString.ToEntero() = -1 Then
Dim Drr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero())(0) Dim Drr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero())(0)
ViewState("IVAPS") = Drr("IVA").ToString().ToDouble() ViewState("IVAPS") = Drr("IVA").ToString().ToDouble()
DdlProyecto.SelectedValueExist(Drr("CveProyecto")) DdlProyecto.SelectedValueExist(Drr("CveProyecto"))
@@ -17755,7 +17755,7 @@ Partial Class Compras_Compras
'RESPETAR VALORES DE LA PANTALLA 'RESPETAR VALORES DE LA PANTALLA
'IVA = PSRow("IVA").ToString.ToDouble 'IVA = PSRow("IVA").ToString.ToDouble
'If IVA = -1 Then 'If IVA = -1 Then
' IVA = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero()).FiltroPrimeroValor("IVA").ToDouble ' IVA = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero()).FiltroPrimeroValor("IVA").ToDouble
'End If 'End If
'RetIVA = If(PSRow("RetIVA").ToString = "-1", ViewState("RetIVA"), PSRow("RetIVA").ToString).ToString.ToDouble 'RetIVA = If(PSRow("RetIVA").ToString = "-1", ViewState("RetIVA"), PSRow("RetIVA").ToString).ToString.ToDouble
'RetISR = If(PSRow("RetISR").ToString = "-1", ViewState("RetISR"), PSRow("RetISR").ToString).ToString.ToDouble 'RetISR = If(PSRow("RetISR").ToString = "-1", ViewState("RetISR"), PSRow("RetISR").ToString).ToString.ToDouble
@@ -21078,7 +21078,7 @@ Partial Class Compras_Compras
Return False Return False
End If End If
SubProyecto = GlobalDTSubProyectos(-1, CveSubProyectoPrincipal, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto") SubProyecto = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyectoPrincipal).FiltroPrimeroValor("SubProyecto")
If PSRow IsNot Nothing Then If PSRow IsNot Nothing Then
@@ -21833,7 +21833,7 @@ Public Class ClsCompraManagerCompras
Me.CveTipoPoliza = 3 Me.CveTipoPoliza = 3
Me.NumeroReembolso = NumeroReembolso Me.NumeroReembolso = NumeroReembolso
Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("") Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero("")
If dRowSubProyecto IsNot Nothing Then If dRowSubProyecto IsNot Nothing Then
Me.Proyecto = dRowSubProyecto("Proyecto").ToString Me.Proyecto = dRowSubProyecto("Proyecto").ToString
@@ -21884,7 +21884,7 @@ Public Class ClsCompraManagerCompras
Me.Total = Total Me.Total = Total
Me.PorcentajeIVA = PorcentajeIVA Me.PorcentajeIVA = PorcentajeIVA
Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("") Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero("")
If dRowSubProyecto IsNot Nothing Then If dRowSubProyecto IsNot Nothing Then
Me.Proyecto = dRowSubProyecto("Proyecto").ToString Me.Proyecto = dRowSubProyecto("Proyecto").ToString

23
Compras/PopUpVerFactura.aspx.vb
View File

@@ -2791,7 +2791,7 @@ Partial Class PopUpVerFactura
Dim CantidadProductos As Decimal = 0 Dim CantidadProductos As Decimal = 0
Dim CantidadUsados As Decimal = 0 Dim CantidadUsados As Decimal = 0
If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Or CveConcepto = 40 Then 'SALIDA Y DEVOLUCION DEL CLIENTE If CveConcepto.Contiene(3, 18, 30, 34, 16, 7, 40) Then 'SALIDA Y DEVOLUCION DEL CLIENTE
If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa, Resumen:=Resumen) Then If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa, Resumen:=Resumen) Then
DtMovimientos = ObjInventarios.DtResultados DtMovimientos = ObjInventarios.DtResultados
@@ -3151,7 +3151,7 @@ Partial Class PopUpVerFactura
End If End If
Case 3, 16, 37, 40, 45, 47 ' S A L I D A S Case 3, 16, 37, 40, 45, 47 ' S A L I D A S
'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72)) 'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72))
'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72)) 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72))
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
@@ -3611,7 +3611,7 @@ Partial Class PopUpVerFactura
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
End If End If
Case 8, 26 ' T R A S L A D O - S A L I D A Case 8, 26, 35 ' T R A S L A D O - S A L I D A
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)
Dim RutaFormato As String = "{0}Formatos\Traslado.rdlc" Dim RutaFormato As String = "{0}Formatos\Traslado.rdlc"
@@ -3619,8 +3619,6 @@ Partial Class PopUpVerFactura
RutaFormato = "{0}Formatos\TrasladoUsado.rdlc" RutaFormato = "{0}Formatos\TrasladoUsado.rdlc"
End If End If
params.Add(New ReportParameter("CveConcepto", "8")) 'FolioTraspaso.ToString params.Add(New ReportParameter("CveConcepto", "8")) 'FolioTraspaso.ToString
'params.Add(New ReportParameter("TipoTraslado", "AVISO")) 'FolioTraspaso.ToString 'params.Add(New ReportParameter("TipoTraslado", "AVISO")) 'FolioTraspaso.ToString
params.Add(New ReportParameter("SubProyecto", String.Format("Traslado de: {0} A {1}", Almacen, AlmacenDestino))) 'DdlAlmacenDestino.SelectedItem.ToString params.Add(New ReportParameter("SubProyecto", String.Format("Traslado de: {0} A {1}", Almacen, AlmacenDestino))) 'DdlAlmacenDestino.SelectedItem.ToString
@@ -3641,7 +3639,9 @@ Partial Class PopUpVerFactura
Dim CveContrato As Integer = 0 Dim CveContrato As Integer = 0
If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then
CveContrato = DtMovimientos.FiltroPrimeroValor("CveContrato").ToEntero If DtMovimientos.Columns.Contains("CveContrato") Then
CveContrato = DtMovimientos.FiltroPrimeroValor("CveContrato").ToEntero
End If
End If End If
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
@@ -3721,8 +3721,6 @@ Partial Class PopUpVerFactura
ObjVentas.Dispose() ObjVentas.Dispose()
End If End If
params.Add(New ReportParameter("ClienteNombre", ClienteNombre)) params.Add(New ReportParameter("ClienteNombre", ClienteNombre))
params.Add(New ReportParameter("EnvioContacto", EnvioContacto)) params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion)) params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
@@ -3767,7 +3765,6 @@ Partial Class PopUpVerFactura
End If End If
End If End If
Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta)) Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta))
Dim NombreArchivo As String = If(Consola <> "-1" And Consola.Trim.Length > 0, $"Aviso de Traslado - {Folio} Consola", $"Aviso de Traslado - {Folio}") Dim NombreArchivo As String = If(Consola <> "-1" And Consola.Trim.Length > 0, $"Aviso de Traslado - {Folio} Consola", $"Aviso de Traslado - {Folio}")
@@ -5129,7 +5126,7 @@ Partial Class PopUpVerFactura
If UsuarioActual.CveEmpresa.Contiene(72) Then If UsuarioActual.CveEmpresa.Contiene(72) Then
Dim SBDomicilioSucursal As New StringBuilder() Dim SBDomicilioSucursal As New StringBuilder()
Dim DRSucursal As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("") Dim DRSucursal As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("")
If DRSucursal IsNot Nothing Then If DRSucursal IsNot Nothing Then
Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado")) Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado"))
@@ -5253,7 +5250,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("CodigoPostal", "")) params.Add(New ReportParameter("CodigoPostal", ""))
If UsuarioActual.CveEmpresa = 119 Then 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 End If
If Archivo.Exists Then If Archivo.Exists Then
@@ -5465,7 +5462,7 @@ Partial Class PopUpVerFactura
If UsuarioActual.CveEmpresa.Contiene(141) Then If UsuarioActual.CveEmpresa.Contiene(141) Then
Dim InicialesUsuarioGenero As String = "" Dim InicialesUsuarioGenero As String = ""
Try Try
Dim NombreUsuarioRenero As String = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveUsuario ={ObjIE.CveUsuario}") Dim NombreUsuarioRenero As String = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveUsuario ={ObjIE.CveUsuario}")
If NombreUsuarioRenero.Trim.Length > 0 Then If NombreUsuarioRenero.Trim.Length > 0 Then
NombreUsuarioRenero.Split(" "c).ToList().ForEach(Sub(i) InicialesUsuarioGenero += i(0)) NombreUsuarioRenero.Split(" "c).ToList().ForEach(Sub(i) InicialesUsuarioGenero += i(0))
End If End If
@@ -6427,7 +6424,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Fecha", Fecha.ToShortDateString)) params.Add(New ReportParameter("Fecha", Fecha.ToShortDateString))
End If End If
If UsuarioActual.CveEmpresa.Contiene(119, 141, 193, 195, 197, 189) Then If UsuarioActual.CveEmpresa.Contiene(119, 141, 193, 195, 197, 189) Then
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(drp("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre"))) params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(drp("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre")))
End If End If
If UsuarioActual.CveEmpresa.Contiene(140, 141) Then If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))

4
Compras/Proveedores.aspx.vb
View File

@@ -4554,7 +4554,7 @@ Partial Class Compras_Proveedores
' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
'End If 'End If
'ObjUsuarios.Dispose() 'ObjUsuarios.Dispose()
GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
End Sub End Sub
Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound
@@ -4918,7 +4918,7 @@ Partial Class Compras_Proveedores
DdlSubProyectoFiltro.DataBind() DdlSubProyectoFiltro.DataBind()
'CargaUsuarios 'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind() DdlUsuario.DataBind()
'Carga Productos 'Carga Productos

2
Compras/RepAnt-NC-EXC.aspx.cs
View File

@@ -50,7 +50,7 @@ public partial class Compras_RepAnt_NC_EXC : ClsPaginas
protected void CargaSucursales() protected void CargaSucursales()
{ {
DdlSucursal.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa); DdlSucursal.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
DdlSucursal.DataBind(); DdlSucursal.DataBind();
DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1")); DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1"));
} }

2
Compras/RepAnt-NC-EXCDetalle.aspx.cs
View File

@@ -77,7 +77,7 @@ public partial class Compras_RepAnt_NC_EXCDetalle : ClsPaginas
protected void CargaSucursales() protected void CargaSucursales()
{ {
DdlSucursal.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa); DdlSucursal.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
DdlSucursal.DataBind(); DdlSucursal.DataBind();
DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1")); DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSucursal.SelectedValue = "-1"; DdlSucursal.SelectedValue = "-1";

2
Compras/RepCompras.aspx.vb
View File

@@ -96,7 +96,7 @@ Partial Class Compras_RepCompras
DdlUsuario.DataBind() DdlUsuario.DataBind()
'Carga Usuarios Captura 'Carga Usuarios Captura
DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DDlUsuarioCaptura.DataBind() DDlUsuarioCaptura.DataBind()
'Carga Monedas 'Carga Monedas

4
Compras/RepComprasDetalle.aspx.vb
View File

@@ -202,7 +202,7 @@ Partial Class Compras_RepComprasDetalle
DdlUsuario.DataBind() DdlUsuario.DataBind()
'Carga Usuario Capturo 'Carga Usuario Capturo
DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DDlUsuarioCaptura.DataBind() DDlUsuarioCaptura.DataBind()
'Carga Grupos 'Carga Grupos
@@ -223,8 +223,6 @@ Partial Class Compras_RepComprasDetalle
Dim AnioMes As String = If(FechaF <> "-1", "-1", IfNull(Request("AnioMes"), "-1").ToString()) Dim AnioMes As String = If(FechaF <> "-1", "-1", IfNull(Request("AnioMes"), "-1").ToString())
If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then
TCEspecifico = TxtEspecifico.Text.ToDouble TCEspecifico = TxtEspecifico.Text.ToDouble
Else Else

2
Compras/RepComprasPeriodo.aspx.vb
View File

@@ -66,7 +66,7 @@ Partial Class Compras_RepComprasPeriodo
DdlUsuario.DataBind() DdlUsuario.DataBind()
'Carga Usuarios Captura 'Carga Usuarios Captura
DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DDlUsuarioCaptura.DataBind() DDlUsuarioCaptura.DataBind()
'Carga Monedas 'Carga Monedas

2
Compras/RepCxP.aspx.vb
View File

@@ -166,7 +166,7 @@ Partial Class Compras_RepCxP
If UsuarioActual.CveEmpresa = 66 Then DdlEstatusCompra.SelectedIndex = 2 : DdlGrupo.SelectedValue = "8" If UsuarioActual.CveEmpresa = 66 Then DdlEstatusCompra.SelectedIndex = 2 : DdlGrupo.SelectedValue = "8"
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre") DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
DdlUsuarioRegistro.DataBind() DdlUsuarioRegistro.DataBind()
DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1")) DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
txtCorteA.Text = $"31/12/{NowADS().Year}" txtCorteA.Text = $"31/12/{NowADS().Year}"

2
Compras/RepCxPDetalle.aspx.vb
View File

@@ -259,7 +259,7 @@ Partial Class RepCxPDetalle
DdlUsuarioResponsable.SelectedValueExist(UsuarioResponsable) DdlUsuarioResponsable.SelectedValueExist(UsuarioResponsable)
Dim UsuarioRegistro As Integer = IfNull(Request("CveUsuario"), -1).ToString.ToEntero Dim UsuarioRegistro As Integer = IfNull(Request("CveUsuario"), -1).ToString.ToEntero
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuarioRegistro.DataBind() DdlUsuarioRegistro.DataBind()
DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1")) DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
DdlUsuarioRegistro.SelectedValueExist(UsuarioRegistro) DdlUsuarioRegistro.SelectedValueExist(UsuarioRegistro)

2
Compras/RepCxPPeriodo.aspx.cs
View File

@@ -81,7 +81,7 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas
if (UsuarioActual.CveEmpresa == 66) { DdlEstatusCompra.SelectedIndex = 2; DdlGrupo.SelectedValue = "8"; } if (UsuarioActual.CveEmpresa == 66) { DdlEstatusCompra.SelectedIndex = 2; DdlGrupo.SelectedValue = "8"; }
DdlUsuarioRegistro.DataSource = get_GlobalDTUsuarios().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre"); DdlUsuarioRegistro.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros( "", "Nombre");
DdlUsuarioRegistro.DataBind(); DdlUsuarioRegistro.DataBind();
DdlUsuarioRegistro.Items.Insert(0, new ListItem("Todos", "-1")); DdlUsuarioRegistro.Items.Insert(0, new ListItem("Todos", "-1"));

2
Compras/RepPUESinPago.aspx.vb
View File

@@ -27,7 +27,7 @@ Partial Class Compras_RepPUESinPago
TxtFechaI.Text = FirstDayOfMonth(NowADS()).ToShortDateString TxtFechaI.Text = FirstDayOfMonth(NowADS()).ToShortDateString
TxtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString TxtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

6
Compras/RepPagado.aspx.cs
View File

@@ -51,12 +51,12 @@ public partial class Compras_RepPagado : ClsPaginas
DdlProveedores.SelectedValue = "-1"; DdlProveedores.SelectedValue = "-1";
//Carga Usuarios //Carga Usuarios
DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); DdlUsuario.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
DdlUsuario.Items.Insert(0, new ListItem("Todos", "-1")); DdlUsuario.Items.Insert(0, new ListItem("Todos", "-1"));
DdlUsuario.DataBind(); DdlUsuario.DataBind();
//Carga Responsable //Carga Responsable
DdlResponsable.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); DdlResponsable.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
DdlResponsable.Items.Insert(0, new ListItem("Todos", "-1")); DdlResponsable.Items.Insert(0, new ListItem("Todos", "-1"));
DdlResponsable.DataBind(); DdlResponsable.DataBind();
@@ -73,8 +73,6 @@ public partial class Compras_RepPagado : ClsPaginas
TxtFechaICompra.Text = MinFecha.ToShortDateString(); //$"01/01/{NowADS().Year}"; TxtFechaICompra.Text = MinFecha.ToShortDateString(); //$"01/01/{NowADS().Year}";
TxtFechaFCompra.Text = NowADS().ToShortDateString(); TxtFechaFCompra.Text = NowADS().ToShortDateString();
} }
private void ProcesaRequest() private void ProcesaRequest()
{ {
if (DateTime.TryParse(Request["FechaInicio"], out DateTime fechaInicio)) if (DateTime.TryParse(Request["FechaInicio"], out DateTime fechaInicio))

4
Compras/RepPagadoDetalle.aspx.cs
View File

@@ -55,12 +55,12 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
DdlProveedores.SelectedValue = "-1"; DdlProveedores.SelectedValue = "-1";
//Carga Usuarios //Carga Usuarios
DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); DdlUsuario.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
DdlUsuario.Items.Insert(0, new ListItem("Todos", "-1")); DdlUsuario.Items.Insert(0, new ListItem("Todos", "-1"));
DdlUsuario.DataBind(); DdlUsuario.DataBind();
//Carga Responsable //Carga Responsable
DdlResponsable.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); DdlResponsable.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
DdlResponsable.Items.Insert(0, new ListItem("Todos", "-1")); DdlResponsable.Items.Insert(0, new ListItem("Todos", "-1"));
DdlResponsable.DataBind(); DdlResponsable.DataBind();

4
Compras/RepPagadoPeriodo.aspx.cs
View File

@@ -56,12 +56,12 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
DdlProveedores.SelectedValue = "-1"; DdlProveedores.SelectedValue = "-1";
//Carga Usuarios //Carga Usuarios
DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); DdlUsuario.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
DdlUsuario.Items.Insert(0, new ListItem("Todos", "-1")); DdlUsuario.Items.Insert(0, new ListItem("Todos", "-1"));
DdlUsuario.DataBind(); DdlUsuario.DataBind();
//Carga Responsable //Carga Responsable
DdlResponsable.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); DdlResponsable.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
DdlResponsable.Items.Insert(0, new ListItem("Todos", "-1")); DdlResponsable.Items.Insert(0, new ListItem("Todos", "-1"));
DdlResponsable.DataBind(); DdlResponsable.DataBind();

2
Compras/RepProductosServicios.aspx.vb
View File

@@ -81,7 +81,7 @@ Partial Class Compras_RepProductosServicios
DdlProveedor.SelectedValue = "-1" DdlProveedor.SelectedValue = "-1"
'CargaUsuarios 'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind() DdlUsuario.DataBind()
'CargaEstatus 'CargaEstatus

2
Compras/RepProductosServiciosDetalle.aspx.vb
View File

@@ -203,7 +203,7 @@ Partial Class Compras_RepProductosServiciosDetalle
DdlProveedor.SelectedValue = "-1" DdlProveedor.SelectedValue = "-1"
'CargaUsuarios 'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind() DdlUsuario.DataBind()
'CargaEstatus 'CargaEstatus

2
Compras/RepProductosServiciosPeriodo.aspx.cs
View File

@@ -76,7 +76,7 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas
//Carga Tipo de Gasto //Carga Tipo de Gasto
DdlTipoGasto.DataSource = get_GlobalDTTiposGastos(UsuarioActual.CveEmpresa); DdlTipoGasto.DataSource = get_GlobalDTTiposGastos(UsuarioActual.CveEmpresa);
DdlTipoGasto.DataBind(); DdlTipoGasto.DataBind();
//Carga Usuarios Responsable //Carga Usuarios Responsable
DdlUsuario.DataSource = get_GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa); DdlUsuario.DataSource = get_GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa);

2
Compras/eFacturas.aspx.vb
View File

@@ -5996,7 +5996,7 @@ Public Class ClsCompraManager
Me.CveTipoPoliza = 3 Me.CveTipoPoliza = 3
Me.NumeroReembolso = NumeroReembolso Me.NumeroReembolso = NumeroReembolso
Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("") Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero("")
If dRowSubProyecto IsNot Nothing Then If dRowSubProyecto IsNot Nothing Then
Me.Proyecto = dRowSubProyecto("Proyecto").ToString Me.Proyecto = dRowSubProyecto("Proyecto").ToString

2
Contabilidad/CatCuentasAsignaciones.aspx.vb
View File

@@ -105,7 +105,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) 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")) DdlSubProyectos.Items.Insert(0, New ListItem("-", "0"))
Dim ObjBancos As New ClsBancos 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.setEsWebService(true);
DdlClientes.Attributes.Add("data-metodo", "getcliente"); 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.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSubProyecto.DataBind(); 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("Moneda", ""))
params.Add(New ReportParameter("CodigoPostal", "")) params.Add(New ReportParameter("CodigoPostal", ""))
If UsuarioActual.CveEmpresa = 119 Then 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 End If
If UsuarioActual.CveEmpresa = 140 Then If UsuarioActual.CveEmpresa = 140 Then
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) 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.Items.Add(New ListItem("Algun específico", "-2"))
DdlTipoCuentas.SelectedIndex = 0 DdlTipoCuentas.SelectedIndex = 0
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyecto.DataBind() DdlSubproyecto.DataBind()
End Sub End Sub
Private Sub CargaDatos() Private Sub CargaDatos()

2
Contabilidad/PlantillasPolizasDetalle.aspx.vb
View File

@@ -368,7 +368,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
Public Sub CargaDDL() Public Sub CargaDDL()
DTSubProyectos = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DTSubProyectos = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DDLSubProyecto.DataSource = DTSubProyectos DDLSubProyecto.DataSource = DTSubProyectos
DDLSubProyecto.DataBind() DDLSubProyecto.DataBind()
DDLSubProyecto.Items.Insert(0, New ListItem(" - ", "-1")) 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 TxtFechaInicio.Text = NowADS().AddDays(-1).ToShortDateString
TxtFechaFin.Text = NowADS().ToShortDateString TxtFechaFin.Text = NowADS().ToShortDateString
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuarioRegistro.DataBind() DdlUsuarioRegistro.DataBind()
@@ -133,7 +133,7 @@ Partial Class Contabilidad_PolizasImpresion
DdlSegmentoNeg.DataValueField = "CveSubProyecto" DdlSegmentoNeg.DataValueField = "CveSubProyecto"
DdlSegmentoNeg.DataTextField = "SubProyecto" DdlSegmentoNeg.DataTextField = "SubProyecto"
DdlSegmentoNeg.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) DdlSegmentoNeg.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSegmentoNeg.DataBind() DdlSegmentoNeg.DataBind()
DdlSegmentoNeg.Items.Insert(0, New ListItem("Todos", "-1")) DdlSegmentoNeg.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSegmentoNeg.Items.Insert(1, New ListItem("Sin Asignar", "-2")) DdlSegmentoNeg.Items.Insert(1, New ListItem("Sin Asignar", "-2"))
@@ -196,7 +196,7 @@ Partial Class Contabilidad_PolizasImpresion
params.Add(New ReportParameter("CodigoPostal", "")) params.Add(New ReportParameter("CodigoPostal", ""))
If UsuarioActual.CveEmpresa = 119 Then 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 End If
ImprimirPDF(ArchivoReporte, objcont.DtResultados, params) 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 For Each drt As DataRow In dtt.Rows
'PrePólizaDetalle 'PrePólizaDetalle
Dim tCveCuenta As Integer = dtc.FiltroPrimeroValor("CveCuenta", $"IdCompaq={drt("IdCuenta")}").ToEntero 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 '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, 'End If ' NowADS(), drt("IdCuenta").ToString.ToEntero, 0,
If ObjConta.AddPrePolizasDetalle(tCvePrePoliza, drt("TipoMovto").ToString = "True", If ObjConta.AddPrePolizasDetalle(tCvePrePoliza, drt("TipoMovto").ToString = "True",
drt("Importe").ToString.ToDecimal, drt("Importe").ToString.ToDecimal,

10
Contabilidad/RegPrePoliza.aspx.vb
View File

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

2
Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx.vb
View File

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

2
Contabilidad/RepAnexoCatalogoVertical.aspx.vb
View File

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

2
Contabilidad/RepBalanceGeneral.aspx.vb
View File

@@ -175,7 +175,7 @@ Partial Class Contabilidad_RepBalanceGeneral
DdlEjercicio.DataBind() DdlEjercicio.DataBind()
DdlEjercicio.SelectedValue = NowADS().Year.ToString DdlEjercicio.SelectedValue = NowADS().Year.ToString
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyecto.DataBind() DdlSubproyecto.DataBind()
If UsuarioActual.TienePermisoProceso(346) Then LnkCerrar.Visible = True 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.DataBind()
DdlEjercicio.SelectedValueExist(NowADS().Year.ToString) DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.SelectedValue = "-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 'End If
End If End If
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyecto.DataBind() DdlSubproyecto.DataBind()
If Not ErrorParametros Then If Not ErrorParametros Then

2
Contabilidad/RepCambiosSituacionFinanciera.aspx.vb
View File

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

2
Contabilidad/RepEdoResultados2.aspx.vb
View File

@@ -55,7 +55,7 @@ Partial Class Contabilidad_RepEdoResultados2
DdlClasificacion.DataBind() DdlClasificacion.DataBind()
DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) 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); DdlClasificacion.DataSource = get_GlobalDTClasificaciones(CveEmpresa: UsuarioActual.CveEmpresa);

2
Contabilidad/RepEstadoResultados.aspx.vb
View File

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

2
Contabilidad/RepEstadoResultadosHorizontal.aspx.vb
View File

@@ -2159,7 +2159,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If IndexSubProyecto <= IndexSubProyectoMax Then 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(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
CType(GvTotalesSubProyectoH.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 ClsContPAQi(UsuarioActual.Empresa)
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyecto.DataBind() DdlSubproyecto.DataBind()
Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate) 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 DdlEjercicio.DataSource = Nothing
End If End If
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyecto.DataBind() DdlSubproyecto.DataBind()
DdlEjercicio.SelectedValue = NowADS().Year.ToString DdlEjercicio.SelectedValue = NowADS().Year.ToString

2
Contabilidad/RepVariacionHaciendaPublica.aspx.vb
View File

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

2
Contratos/CatPresupuestos.aspx.vb
View File

@@ -38,7 +38,7 @@ Partial Class Contratos_CatPresupuestos
Protected Sub CargaSubProyecto(CveProyecto As Integer) Protected Sub CargaSubProyecto(CveProyecto As Integer)
DdlSubProyecto.Items.Clear() DdlSubProyecto.Items.Clear()
If CveProyecto > 0 Then If CveProyecto > 0 Then
DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"}) DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione un SubProyecto", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione un SubProyecto", "-1"))
Else Else

4
Contratos/Contrato.aspx.vb
View File

@@ -921,7 +921,7 @@ Partial Class Contratos_Default
Dim ObjFolios As New ClsGralFolios Dim ObjFolios As New ClsGralFolios
If ObjFolios.GetFolios("Con", UsuarioActual.CveEmpresa) Then If ObjFolios.GetFolios("Con", UsuarioActual.CveEmpresa) Then
If ObjFolios.DtResultados.FiltraParametros($"CveSubProyecto = {DdlSubProyectoContrato.SelectedValue}").Rows.Count > 0 Then If ObjFolios.DtResultados.FiltraParametros($"CveSubProyecto = {DdlSubProyectoContrato.SelectedValue}").Rows.Count > 0 Then
FolioSugerido = $"{GlobalDTSubProyectos(-1, DdlSubProyectoContrato.SelectedValue.ToEntero).FiltroPrimeroValor("Serie")}-{ObjFolios.DtResultados.FiltroPrimeroValor("FActual", $"CveSubProyecto = {DdlSubProyectoContrato.SelectedValue}")}" FolioSugerido = $"{GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoContrato.SelectedValue.ToEntero).FiltroPrimeroValor("Serie")}-{ObjFolios.DtResultados.FiltroPrimeroValor("FActual", $"CveSubProyecto = {DdlSubProyectoContrato.SelectedValue}")}"
TxtNumeroContrato.Text = FolioSugerido TxtNumeroContrato.Text = FolioSugerido
Else Else
Alert("La sucursal no cuenta con folios de contratos", TipoMensaje.MsgAdvertencia) Alert("La sucursal no cuenta con folios de contratos", TipoMensaje.MsgAdvertencia)
@@ -1737,7 +1737,7 @@ Partial Class Contratos_Default
End Sub End Sub
Protected Sub CargaSubProyectoContrato(CveProyecto As Integer) Protected Sub CargaSubProyectoContrato(CveProyecto As Integer)
DdlSubProyectoContrato.Items.Clear() DdlSubProyectoContrato.Items.Clear()
DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"}) DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
DdlSubProyectoContrato.DataBind() DdlSubProyectoContrato.DataBind()
DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1")) DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1"))
End Sub End Sub

2
Contratos/ContratoObra.aspx.vb
View File

@@ -5548,7 +5548,7 @@ Partial Class Contratos_ContratoObra
Private Sub CargaDLLCargaGVCentrosConsto() Private Sub CargaDLLCargaGVCentrosConsto()
DdlCentroCostos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"}) DdlCentroCostos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
DdlCentroCostos.DataBind() DdlCentroCostos.DataBind()
DdlCentroCostos.Items.Insert(0, New ListItem("Seleccione uno", "-1")) DdlCentroCostos.Items.Insert(0, New ListItem("Seleccione uno", "-1"))

2
Contratos/FacturacionMasiva.aspx.vb
View File

@@ -106,7 +106,7 @@ Partial Class Contratos_FacturacionMasiva
DdlCliente.DataBind() DdlCliente.DataBind()
DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContrato.DataBind() DdlContrato.DataBind()
DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSucursal.DataBind() DdlSucursal.DataBind()
End Sub End Sub
Private Sub CargaDatos(CveContrato As Integer, CveCliente As Integer) Private Sub CargaDatos(CveContrato As Integer, CveCliente As Integer)

2
Contratos/PopUpBuscarContrato.aspx.vb
View File

@@ -56,7 +56,7 @@ Partial Class Contratos_PopUpBuscarContrato
End Sub End Sub
Protected Sub CargaSubProyectoContrato(CveProyecto As Integer) Protected Sub CargaSubProyectoContrato(CveProyecto As Integer)
DdlSubProtecto.Items.Clear() DdlSubProtecto.Items.Clear()
DdlSubProtecto.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"}) DdlSubProtecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
DdlSubProtecto.DataBind() DdlSubProtecto.DataBind()
DdlSubProtecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProtecto.Items.Insert(0, New ListItem("Todos", "-1"))
UPFiltros.Update() UPFiltros.Update()

2
Contratos/Presupuestos.aspx.vb
View File

@@ -81,7 +81,7 @@ Partial Class Contratos_Presupuestos
Protected Sub CargaSubProyectoContrato(CveProyecto As Integer) Protected Sub CargaSubProyectoContrato(CveProyecto As Integer)
DdlSubProyecto.Items.Clear() DdlSubProyecto.Items.Clear()
If CveProyecto > 0 Then If CveProyecto > 0 Then
DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"}) DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione un SubProyecto", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione un SubProyecto", "-1"))
Else Else

2
Contratos/RepPresupuestosDetalle.aspx.vb
View File

@@ -108,7 +108,7 @@ Partial Class Contratos_RepPresupuestosDetalle
DdlSubProyecto.SelectedValueExist(CveSubProyecto) DdlSubProyecto.SelectedValueExist(CveSubProyecto)
ElseIf DdlAgrupador.SelectedValue.ToEntero = 2 Then ElseIf DdlAgrupador.SelectedValue.ToEntero = 2 Then
If Not EsProyecto Then If Not EsProyecto Then
Dim Dr As DataRow = GlobalDTSubProyectos(-1, Gpo)(0) Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Gpo)(0)
DdlProyecto.SelectedValueExist(Dr("CveProyecto")) DdlProyecto.SelectedValueExist(Dr("CveProyecto"))
CargaSubProyecto() CargaSubProyecto()
DdlSubProyecto.SelectedValueExist(Gpo) DdlSubProyecto.SelectedValueExist(Gpo)

2
Contratos/RepPresupuestosDetalleCompras.aspx.vb
View File

@@ -102,7 +102,7 @@ Partial Class Contratos_RepPresupuestosDetalleCompras
DdlSubProyecto.SelectedValueExist(CveSubProyecto) DdlSubProyecto.SelectedValueExist(CveSubProyecto)
ElseIf Agrupador = 1 Then ElseIf Agrupador = 1 Then
If Not EsProyecto Then If Not EsProyecto Then
Dim Dr As DataRow = GlobalDTSubProyectos(-1, Gpo)(0) Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Gpo)(0)
DdlProyecto.SelectedValueExist(Dr("CveProyecto")) DdlProyecto.SelectedValueExist(Dr("CveProyecto"))
CargaSubProyecto() CargaSubProyecto()
DdlSubProyecto.SelectedValueExist(Gpo) DdlSubProyecto.SelectedValueExist(Gpo)

2
CxC/RepCxC.aspx.vb
View File

@@ -172,7 +172,7 @@ Partial Class RepCxC
End If End If
'CargaUsuarios 'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind() DdlUsuario.DataBind()
'CargaResponsable 'CargaResponsable

6
CxC/RepCxCPeriodo.aspx.cs
View File

@@ -39,10 +39,6 @@ public partial class CxC_RepCxCPeriodo : ClsPaginas
} }
} }
private void InicializaValores() private void InicializaValores()
{ {
TipoCambio = 1; TipoCambio = 1;
@@ -71,7 +67,7 @@ public partial class CxC_RepCxCPeriodo : ClsPaginas
DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor); DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor);
//CargaUsuarios //CargaUsuarios
DdlUsuario.DataSource = get_GlobalDTUsuarios().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}"); DdlUsuario.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
DdlUsuario.DataBind(); DdlUsuario.DataBind();
//CargaResponsable //CargaResponsable

4
CxC/RepCxCSemanal.aspx.vb
View File

@@ -25,13 +25,13 @@ Partial Class CxC_RepCxCSemanal
DdlClientes.DataBind() DdlClientes.DataBind()
'CargaSubProyectos 'CargaSubProyectos
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
'Vendedor 'Vendedor
'CargaUsuarios 'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind() DdlUsuario.DataBind()
'CargaEstatus 'CargaEstatus

2
Finanzas/RepBalanceGeneral.aspx.vb
View File

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

2
Finanzas/RepBalanceGeneralHorizontal.aspx.vb
View File

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

2
Finanzas/RepBalanceGeneralVertical.aspx.vb
View File

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

3
Finanzas/RepEstadoResultados.aspx.vb
View File

@@ -2,6 +2,7 @@
Option Strict On Option Strict On
Imports System.Data Imports System.Data
Imports System.Net
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Partial Class Contabilidad2_RepEstadoResultados Partial Class Contabilidad2_RepEstadoResultados
@@ -156,7 +157,7 @@ Partial Class Contabilidad2_RepEstadoResultados
DdlEjercicio.DataSource = Nothing DdlEjercicio.DataSource = Nothing
End If End If
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, eStatus:=-1)
DdlSubproyecto.DataBind() DdlSubproyecto.DataBind()

2
Finanzas/RepEstadoResultadosHorizontal.aspx.vb
View File

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

2
Finanzas/RepEstadoResultadosVertical.aspx.vb
View File

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

2
Finanzas/RepOrigenAplicacion.aspx.vb
View File

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

2
Finanzas/RepRazonesFinancieras.aspx.vb
View File

@@ -22,7 +22,7 @@ Partial Class Finanzas_RepRazonesFinancieras
DdlRazones.DataSource = GlobalDTFinan_RazonesFinancieras DdlRazones.DataSource = GlobalDTFinan_RazonesFinancieras
DdlRazones.DataBind() DdlRazones.DataBind()
DdlSubproyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubproyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyectos.DataBind() DdlSubproyectos.DataBind()
DdlSubproyectos.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubproyectos.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubproyectos.SelectedIndex = 0 DdlSubproyectos.SelectedIndex = 0

6
Finanzas/RepRazonesFinancieras2.aspx.vb
View File

@@ -13,10 +13,6 @@ Imports Microsoft.Reporting.WebForms
Partial Class Finanzas_RepRazonesFinancieras2 Partial Class Finanzas_RepRazonesFinancieras2
Inherits ClsPaginas Inherits ClsPaginas
Property DTRatios As DataTable Property DTRatios As DataTable
Get Get
If ViewState("DTRatios") Is Nothing Then If ViewState("DTRatios") Is Nothing Then
@@ -46,8 +42,6 @@ Partial Class Finanzas_RepRazonesFinancieras2
End Set End Set
End Property End Property
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then

2
Finanzas/RepRotacionCartera.aspx.cs
View File

@@ -231,7 +231,7 @@ public partial class Finanzas_RepRotacionCartera : ClsPaginas
private void CargaSucursales() private void CargaSucursales()
{ {
DdlSucursal.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa); DdlSucursal.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
DdlSucursal.DataBind(); DdlSucursal.DataBind();
//DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1")); //DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1"));
//DdlSucursal.SelectedValue = "-1"; //DdlSucursal.SelectedValue = "-1";

2
Finanzas/RepRotacionCarteraDetalle.aspx.cs
View File

@@ -248,7 +248,7 @@ public partial class Finanzas_RepRotacionCarteraDetalle : ClsPaginas
private void CargaSucursales() private void CargaSucursales()
{ {
//DdlSucursal.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa); //DdlSucursal.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
//DdlSucursal.DataBind(); //DdlSucursal.DataBind();
//DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1")); //DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1"));
//DdlSucursal.SelectedValue = "-1"; //DdlSucursal.SelectedValue = "-1";

11
GPS/CatDistribuidoresMaster.aspx.vb
View File

@@ -26,7 +26,6 @@ Partial Class GPS_CatDistribuidoresMaster
#End Region #End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
CveEmpresa = -1 CveEmpresa = -1
@@ -167,11 +166,11 @@ Partial Class GPS_CatDistribuidoresMaster
Else Else
Application("GlobalDTEmpresas") = Nothing Application("GlobalDTEmpresas") = Nothing
End If End If
Dim ObjUsuarios As New ClsSisUsuarios() 'Dim ObjUsuarios As New ClsSisUsuarios()
If ObjUsuarios.GetUsuarios(-1, -1, -1) Then 'If ObjUsuarios.GetUsuarios(-1, -1, -1) Then
GlobalDTUsuarios = ObjUsuarios.DtResultados ' GlobalDTUsuarios = ObjUsuarios.DtResultados
End If 'End If
ObjUsuarios.Dispose() 'ObjUsuarios.Dispose()
ObjEmpresas.Dispose() ObjEmpresas.Dispose()
End Sub End Sub

Some files were not shown because too many files have changed in this diff Show More