diff --git a/OS/Asignaciones.aspx b/OS/Asignaciones.aspx index ee4ad4ec4..5aff96529 100644 --- a/OS/Asignaciones.aspx +++ b/OS/Asignaciones.aspx @@ -129,9 +129,16 @@
+ CssClass="table table-striped table-hover Widthall table-advance" GridLines="None" OnRowDataBound="GvA_RowDataBound"> - + + + Nombre + + + + + diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index f7ad121bc..f3eec6438 100644 --- a/OS/Asignaciones.aspx.vb +++ b/OS/Asignaciones.aspx.vb @@ -2,6 +2,7 @@ Option Strict On Imports System.Data +Imports System.Data.Entity.Core.Metadata.Edm Imports Extensiones Imports Microsoft.Reporting.WebForms Imports MKB.TimePicker @@ -68,9 +69,6 @@ Partial Class OS_Asignaciones End If ObjEstatusPermisos.Dispose() - - - End If End Sub @@ -153,7 +151,7 @@ Partial Class OS_Asignaciones DdlEstatusOS.DataBind() End Sub Private Sub DdlEstatusOS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusOS.SelectedIndexChanged - Dim TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue)) + Dim TipoEstatus As String = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue)) If TipoEstatus.ToEntero = 1 Then DivTecnico.Visible = False @@ -171,15 +169,18 @@ Partial Class OS_Asignaciones TecnicosSubProyectos = ObjOS.DtResultados End If - For Each SubProyecto As DataRow In DtOSSubProyectos.Rows - Dim TecnicosSubProyectoAux As DataTable = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}'", SubProyecto.Item("SubProyecto"))) - If TecnicosSubProyectoAux.Rows.Count > 0 Then - Dim EstatusDeTipoProcesoMenor As Integer = TecnicosSubProyectoAux.Rows(0).Item("CveEstatusOrdenServicio").ToString.ToEntero - Dim dtAuxiliar As New DataTable - dtAuxiliar = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}' AND CveEstatusOrdenServicio = {1}", SubProyecto.Item("SubProyecto"), EstatusDeTipoProcesoMenor), "", {"CveUsuario", "Nombre"}) - TecnicosResultado.Merge(dtAuxiliar) - End If - Next + If DtOSSubProyectos IsNot Nothing Then + For Each SubProyecto As DataRow In DtOSSubProyectos.Rows + Dim TecnicosSubProyectoAux As DataTable = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}'", SubProyecto.Item("SubProyecto"))) + If TecnicosSubProyectoAux.Rows.Count > 0 Then + Dim EstatusDeTipoProcesoMenor As Integer = TecnicosSubProyectoAux.Rows(0).Item("CveEstatusOrdenServicio").ToString.ToEntero + Dim dtAuxiliar As New DataTable + dtAuxiliar = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}' AND CveEstatusOrdenServicio = {1}", SubProyecto.Item("SubProyecto"), EstatusDeTipoProcesoMenor), "", {"CveUsuario", "Nombre"}) + TecnicosResultado.Merge(dtAuxiliar) + End If + Next + End If + DtTecnicosSubProyectos = TecnicosResultado DdlTecnico.DataSource = TecnicosResultado DdlTecnico.DataBind() @@ -191,12 +192,11 @@ Partial Class OS_Asignaciones #Region "BTN'S" Protected Sub BtnAsignar_Click(sender As Object, e As EventArgs) Handles BtnAsignar.Click Dim ObjOS As New ClsOS - Dim TieneError = False - Dim CveEstatusOS = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 2", "CveEstatusOrdenServicio ASC") + Dim TieneError As Boolean = False + Dim CveEstatusOS As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 2", "CveEstatusOrdenServicio ASC").ToEntero Dim time As DateTime Dim contadorOrdenesAsignadas As Integer = 0 - ObjOS.IniciaTransacSQL() For Each row As GridViewRow In GvNA.Rows @@ -228,13 +228,9 @@ Partial Class OS_Asignaciones TieneError = True End If - If Not TieneError Then - - Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1" + Dim RecurrenciaTipo As Integer = 0, Frecuencia As Integer = -1, DiasSemana As String = "-1", Dias As Integer = -1, Mes As Integer = -1, RecurrenciaFin As String = "-1" Dim Fecha As DateTime = time - - Dim OIDescripcion As String = $"{DdlTecnico.SelectedItem.Text} Orden de servicio {row.DataKey("Folio")} " Dim ObjEventos As New ClsOIEventos(ObjOS.IniciaTransacSQL()) @@ -285,9 +281,9 @@ Partial Class OS_Asignaciones Dim ObjOS As New ClsOS(TrasaccionSql) Dim params As New List(Of ReportParameter) - Dim CveFolio = "" + Dim CveFolio As String = "" - Dim TmpDTOS = New DataTable + Dim TmpDTOS As New DataTable TmpDTOS.Columns.Add("CveOSDetalle", GetType(Integer)) TmpDTOS.Columns.Add("CveClasificacion", GetType(Integer)) @@ -315,7 +311,7 @@ Partial Class OS_Asignaciones TmpDTOS.Columns.Add("ComentarioTecnico", GetType(String)) - Dim TmpDTMaterialesOS = New DataTable + Dim TmpDTMaterialesOS As New DataTable TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer)) TmpDTMaterialesOS.Columns.Add("CveConsecutivo", GetType(Integer)) TmpDTMaterialesOS.Columns.Add("CveConsecutivoDetalle", GetType(Integer)) @@ -440,7 +436,7 @@ Partial Class OS_Asignaciones End Sub Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click - Dim TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue)) + Dim TipoEstatus As String = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue)) If TipoEstatus.ToEntero <= 1 Then CargaOrdenesServiciosNoAsignadas() @@ -512,4 +508,13 @@ Partial Class OS_Asignaciones ImprimirPDF("Empresas/Grales/Formatos/RepOSAsignacion.rdlc", dt, params, "OrdenesServicio") End Sub #End Region + + Protected Sub GvA_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then + e.Row.FCHyperLink("HplNombre").NavigateUrl = $"/OS/RepOSMedicas.aspx?CveUsuarioTecnico={e.Row.DBCampo("CveUsuarioAtendio")}" + End If + End If + + End Sub End Class \ No newline at end of file diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx index 5b6998b80..e6ad88e15 100644 --- a/OS/OrdenesServicios.aspx +++ b/OS/OrdenesServicios.aspx @@ -1277,9 +1277,9 @@
- + CssClass="table table-striped table-advance table-hover Widthall" GridLines="None" OnRowDataBound="GvMU_RowDataBound"> Cant. @@ -1290,7 +1290,7 @@ Utilizado - + @@ -1299,19 +1299,19 @@ - + Serie - + Lote - + - + Fecha Cad. diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index a6f85520c..14d2968e4 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -3089,19 +3089,18 @@ Partial Class OS_OrdenesServicios Protected Sub LnkAccionesMaterialUtilizado_Click(sender As Object, e As EventArgs) LnkModalMaterialUtilizado.Visible = True - GvMaterialUtilizado.DataSource = Nothing DTSolicitudDev = New DataTable Dim Opcion As Integer = If(DdlTipoVenta.SelectedValue.Contiene("2", "3"), 2, 1) Dim ObjOS As New ClsOS If ObjOS.GetOrdenesServicioDevolucionMaterial(CveOS, CveVenta, Opcion, UsuarioActual.CveEmpresa) Then DTSolicitudDev = ObjOS.DtResultados - GvMaterialUtilizado.DataSource = DTSolicitudDev - GvMaterialUtilizado.Columns(3).Visible = DTSolicitudDev.MIN("Serie") <> "" - GvMaterialUtilizado.Columns(4).Visible = DTSolicitudDev.MIN("Lote") <> "" - GvMaterialUtilizado.Columns(5).Visible = DTSolicitudDev.MIN("FechaCaducidad") <> "" + GvMU.DataSource = DTSolicitudDev + GvMU.Columns(3).Visible = DTSolicitudDev.MIN("Serie") <> "" + GvMU.Columns(4).Visible = DTSolicitudDev.MIN("Lote") <> "" + GvMU.Columns(5).Visible = DTSolicitudDev.MIN("FechaCaducidad") <> "" End If ObjOS.Dispose() - GvMaterialUtilizado.DataBind() + GvMU.DataBind() Dim EsDevolucionVenta As Boolean = (DTSolicitudDev.FiltroPrimeroValor("EsDevolucionVenta", "").ToEntero > 0) @@ -3116,11 +3115,11 @@ Partial Class OS_OrdenesServicios End Sub - Protected Sub GvMaterialUtilizado_RowDataBound(sender As Object, e As GridViewRowEventArgs) + Protected Sub GvMU_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then - e.Row.FCTextBox("TxtDev").Attributes.Add("onblur", String.Format("ValidarCantidad(this, {0})", e.Row.DataKey("Cantidad"))) + e.Row.FCTextBox("TxtUtilizado").Attributes.Add("onblur", String.Format("ValidarCantidad(this, {0})", e.Row.DataKey("Cantidad"))) End If End Sub @@ -3131,88 +3130,42 @@ Partial Class OS_OrdenesServicios Dim CveMoneda As Integer = DTSolicitudDev.FiltroPrimeroValor("CveMoneda").ToEntero Dim CveSubProyectoPedido As Integer = DTSolicitudDev.FiltroPrimeroValor("CveSubProyecto").ToEntero Dim CveVentaPedido As Integer = DTSolicitudDev.FiltroPrimeroValor("CveVenta").ToEntero - - - Dim CveAlmacenDestino As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 10).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto = {CveSubProyectoPedido}").ToEntero If Not CveAlmacenDestino > 0 Then - Alert("No se encontro almacen de entrega por adelantado") + Alert("No se encontró almacen de entrega por adelantado", TipoMensaje.MsgAdvertencia) Exit Sub End If - - Dim SbErroresDev As New StringBuilder - - For Each GvRow As GridViewRow In GvMaterialUtilizado.Rows - - If GvRow.DataKey("Cantidad").ToDecimal > 0 Then - - Dim sbTemperror As New StringBuilder - Dim ErrorCountDev As Integer = 0 - 'sbTemperror.Append($"Producto: {GvRow.DataKey("CodigoPS") } requiere: ") - 'If Boolean.Parse(GvRow.DataKey("AplicaSerie")) Then - ' If GvRow.FCTextBox("TxtSerie").Text.Trim = String.Empty Then - ' sbTemperror.Append($" Serie, ") - ' ErrorCountDev = ErrorCountDev + 1 - ' End If - 'End If - - 'If Boolean.Parse(GvRow.DataKey("AplicaLote")) Then - ' If GvRow.FCTextBox("TxtLote").Text = String.Empty Then - ' sbTemperror.Append($" Lote, ") - ' ErrorCountDev = ErrorCountDev + 1 - ' End If - 'End If - - 'If Boolean.Parse(GvRow.DataKey("AplicaCaducidad")) Then - ' If Not IsDate(GvRow.FCTextBox("TxtFechaCaducidad").Text) Then - ' sbTemperror.Append($" Fecha de caducidad") - ' ErrorCountDev = ErrorCountDev + 1 - ' End If - 'End If - - 'If ErrorCountDev > 0 Then - ' sbTemperror.Append($"
") - ' SbErroresDev.AppendLine(sbTemperror.ToString) - 'End If - End If - Next - - 'If SbErroresDev.ToString.Length > 0 Then - ' Alert($"Se encontraron los siguientes errores:
{SbErroresDev.ToString}", TipoMensaje.MsgAdvertencia) - ' Exit Sub - 'End If - Dim ProcesoOK As Boolean = True Dim ObjV As New ClsVentas - ObjV.IniciaTransacSQL() + Dim ClsOS As New ClsOS(ObjV.IniciaTransacSQL()) + - If Not ObjV.UpdateVentasDevolucionAlmacen(1, CveVenta) Then - ProcesoOK = False - End If If ProcesoOK Then - For Each GvRow As GridViewRow In GvMaterialUtilizado.Rows - + Dim AplicaDevolucion As Boolean = False + For Each GvRow As GridViewRow In GvMU.Rows Dim CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero - Dim CantidadDev As Decimal = GvRow.DataKey("Cantidad").ToDecimal - GvRow.FCTextBox("TxtDev").Text.ToDecimal - + Dim CantidadDev As Decimal = GvRow.DataKey("Cantidad").ToDecimal - GvRow.FCTextBox("TxtUtilizado").Text.ToDecimal If CantidadDev > 0 Then + AplicaDevolucion = True If Not ObjV.UpdateVentasDetalleCantidadDevolucion(CveVentaDetalle, CantidadDev) Then ProcesoOK = False Exit For End If End If Next + If AplicaDevolucion Then + If Not ObjV.UpdateVentasDevolucionAlmacen(1, CveVenta) Then + ProcesoOK = False + End If + End If End If - - - Dim Respuesta As New RespuestaFacturacion() + Dim Respuesta As New RespuestaFacturacion() Dim DtVentaDetalle As New DataTable If ProcesoOK Then - Respuesta = GeneraRemision(CveVentaPedido, ObjV.IniciaTransacSQL()) If Respuesta.CveVenta > 0 Then @@ -3224,7 +3177,6 @@ Partial Class OS_OrdenesServicios Else ProcesoOK = False End If - End If If ProcesoOK Then @@ -3237,21 +3189,21 @@ Partial Class OS_OrdenesServicios If CveMovimiento > 0 Then Dim IndexMov1 As Integer = 0 - For Each GvRow As GridViewRow In GvMaterialUtilizado.Rows + For Each GvRow As GridViewRow In GvMU.Rows Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal - Dim CantidadRegistro As Decimal = GvRow.FCTextBox("TxtDev").Text.ToDecimal + Dim CantidadRegistro As Decimal = GvRow.FCTextBox("TxtUtilizado").Text.ToDecimal Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero Dim CveUM As Integer = GvRow.DataKey("CveUM").ToEntero Dim PU As Decimal = GvRow.DataKey("PU").ToDecimal - Dim CveVentaDetalle As Integer = DtVentaDetalle.Rows(IndexMov1)("CveVentaDetalle").ToString.ToEntero - Dim CveMovimientoDetalle As Integer = GvRow.DataKey("CveMovimientoDetalle").ToEntero - - Dim Serie As String = GvRow.DataKey("Serie") - Dim Lote As String = GvRow.DataKey("Lote") - Dim FechaCaducidad As DateTime = GvRow.DataKey("FechaCaducidad").ToDate If CantidadRegistro > 0 Then + Dim CveVentaDetalle As Integer = DtVentaDetalle.Rows(IndexMov1)("CveVentaDetalle").ToString.ToEntero + Dim CveMovimientoDetalle As Integer = GvRow.DataKey("CveMovimientoDetalle").ToEntero + + Dim Serie As String = GvRow.DataKey("Serie") + Dim Lote As String = GvRow.DataKey("Lote") + Dim FechaCaducidad As DateTime = GvRow.DataKey("FechaCaducidad").ToDate If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, CantidadRegistro, CveUM, CvePS, PU, CveVentaDetalle:=CveVentaDetalle, CveMovimientoDetalleEntrada:=CveMovimientoDetalle, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad) Then Alert("Error al agregar detalle de movimiento.", TipoMensaje.MsgAdvertencia) ProcesoOK = False @@ -3300,6 +3252,11 @@ Partial Class OS_OrdenesServicios ProcesoOK = False End If End If + If ProcesoOK Then + If Not ClsOS.UpdateOrdenesServiciosFinaliza(CveOS, -1, -1, UsuarioActual.CveEmpresa) Then + ProcesoOK = False + End If + End If Else ProcesoOK = False End If @@ -3321,12 +3278,9 @@ Partial Class OS_OrdenesServicios Private Function GeneraRemision(CveVentaPedido As Integer, ByRef TransaccionSQL As SqlTransaction) As RespuestaFacturacion Dim Respuesta As New RespuestaFacturacion() - Dim CveRemiocionGenerada As Integer = -1 - Dim ObjVentas As New ClsVentas(TransaccionSQL) Dim ProcesoOK As Boolean = True - Dim CveSubProyectoPedido As Integer = -1 Dim CveMoneda As Integer = -1 @@ -3340,29 +3294,27 @@ Partial Class OS_OrdenesServicios If ObjFactura IsNot Nothing AndAlso ProcesoOK Then - - ObjFactura.CveMedico = DdlMedico.SelectedValue.ToEntero ObjFactura.CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero ObjFactura.CveTipoVenta = DdlTipoVenta.SelectedValue.ToEntero - For Each GvRow As GridViewRow In GvMaterialUtilizado.Rows + For Each GvRow As GridViewRow In GvMU.Rows Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero - Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal - Dim CantidadDev As Decimal = GvRow.FCTextBox("TxtDev").Text.ToDecimal - Dim CantidadRegistro As Decimal = Cantidad - CantidadDev + Dim CantidadRegistro As Decimal = GvRow.FCTextBox("TxtUtilizado").Text.ToDecimal Dim PU As Decimal = GvRow.DataKey("PU").ToDecimal Dim Descuento As Decimal = GvRow.DataKey("Descuento").ToDecimal Dim Obs As String = GvRow.DataKey("Observaciones") - If Not ObjFactura.AgregarPS(CvePS, CantidadRegistro, PU, Descuento, Obs, CveSubProyecto:=CveSubProyectoPedido) Then - Alert("Error al agregar producto", TipoMensaje.MsgAdvertencia) - ProcesoOK = False - Exit For + If CantidadRegistro > 0 Then + If Not ObjFactura.AgregarPS(CvePS, CantidadRegistro, PU, Descuento, Obs, CveSubProyecto:=CveSubProyectoPedido) Then + Alert("Error al agregar producto", TipoMensaje.MsgAdvertencia) + ProcesoOK = False + Exit For + End If End If - Next + Next If ProcesoOK Then ObjFactura.CalculaTotales() diff --git a/OS/RepOSMedicas.aspx b/OS/RepOSMedicas.aspx index 94589e95c..4b9799620 100644 --- a/OS/RepOSMedicas.aspx +++ b/OS/RepOSMedicas.aspx @@ -169,7 +169,7 @@ <%----%> <%--1--%> - + <%--2--%> <%--3--%> @@ -181,7 +181,7 @@ <%--6--%> <%--7--%> - + <%--8--%> <%--9--%> diff --git a/OS/RepOSMedicas.aspx.vb b/OS/RepOSMedicas.aspx.vb index 537378182..a561100f0 100644 --- a/OS/RepOSMedicas.aspx.vb +++ b/OS/RepOSMedicas.aspx.vb @@ -29,24 +29,26 @@ Partial Class OS_RepOSMedicas DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) DdlEstatusOS.DataBind() DdlEstatusOS.Items.Insert(0, New ListItem("Todos", "-1")) - Dim DTTecnicos As New DataTable - Dim ObjUsuarios As New ClsSisUsuarios - - If ObjUsuarios.GetPermisosPorUsuarioProcesos(-1, -1, -1, -1, 351, UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) Then - If UsuarioActual.CveRol = 1 Then - DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0") - Else - DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0 and CveUsuario <> 100") - End If + Dim DTTecnicos As DataTable = Nothing + Dim ObjOS As New ClsOS + If ObjOS.GetSubProyectosEstatusInicial(-1, 3, UsuarioActual.CveEmpresa) Then + DTTecnicos = ObjOS.DtResultados End If - ObjUsuarios.Dispose() + ObjOS.Dispose() - DdlTecnico.DataSource = DTTecnicos 'GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True'") + DdlTecnico.DataSource = DTTecnicos DdlTecnico.DataBind() DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1")) DdlTecnico.Items.Insert(1, New ListItem("Sin Asignar", "-2")) + + If IfNull(Request("CveUsuarioTecnico"), 0).ToString.ToEntero > 0 Then + DdlTecnico.SelectedValueExist(Request("CveUsuarioTecnico").ToString) + Else + ViewState("CveUsuarioTecnico") = -1 + End If + 'CargaClientes Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) If EsWS Then diff --git a/OS/RepOrdenesServicios.aspx.vb b/OS/RepOrdenesServicios.aspx.vb index b96ecfa23..24d98f641 100644 --- a/OS/RepOrdenesServicios.aspx.vb +++ b/OS/RepOrdenesServicios.aspx.vb @@ -1,7 +1,6 @@ Option Explicit On Option Strict On -Imports System.Data Imports Extensiones Partial Class OS_RepOrdenesServicios @@ -30,9 +29,6 @@ Partial Class OS_RepOrdenesServicios Private Sub CargaCombos() 'CargaClientes DdlClientes.setEsWebService(True) - 'DdlClientes.DataSource() = GlobalDTCliente(UsuarioActual.CveEmpresa) - 'DdlClientes.DataBind() - 'DdlClientes.Items.Insert(0, New ListItem("Todos", "-1")) 'CargaSubProyectos DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)