-- mejoras de GlobalDT

2024-08-01 19:44:55 -07:00
parent 0a938008e7
commit 19aba02fb6
11 changed files with 31 additions and 30 deletions
--- a/Inventarios/Equivalencia.aspx.vb
+++ b/Inventarios/Equivalencia.aspx.vb
@@ -29,7 +29,7 @@ Partial Class Inventarios_Equivalencia
    Private Sub InicializarListas()
        'Llenar el dropdownlist de unidad de medida

-        ddlUnidad.DataSource = GlobalDTUnidadesMedida()
+        ddlUnidad.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
        ddlUnidad.DataBind()


@@ -245,7 +245,7 @@ Partial Class Inventarios_Equivalencia
    Protected Sub gvEquivalencias_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvEquivalencias.RowDataBound

        If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
-            e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida()
+            e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
            e.Row.FCDropDownList("ddlEUnidad").SelectedValue = e.Row.DBCampo("CveUnidadMedida")
            e.Row.FCDropDownList("ddlEUnidad").DataBind()
        End If
--- a/OC/CotizacionEnvio.aspx.vb
+++ b/OC/CotizacionEnvio.aspx.vb
@@ -230,7 +230,7 @@ Partial Class OC_CotizacionEnvio

                    If objCotizacion.AddCotizacion(CveOrdenCompra, CveProveedor, CveColectiva, "-1", "-1", "", 1, 0, 0) Then
                        'Cargar los detalles de la cotizacion
-                        If objCotizacion.GetOrdenesDetalle(CveOrdenCompra) Then
+                        If objCotizacion.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then
                            'Agrega CveCotizacion a la lista
                            OrdenCotizacion.Add(objCotizacion.CveCotizacion)
                            For Each RowCD As DataRow In objCotizacion.DtResultados.Rows
@@ -397,7 +397,7 @@ Partial Class OC_CotizacionEnvio
        'verifico los permisos según el estatus

        Dim dtConceptos As DataTable = Nothing
-        If objOC.GetOrdenesDetalle(CveOrdenCompra) Then
+        If objOC.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then
            dtConceptos = objOC.DtResultados
        End If

--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -212,6 +212,7 @@
                                                <asp:Label runat="server" ID="lblFolio" Font-Bold="true"></asp:Label>
                                            </label>
                                            <b>
+                                                          
                                          <asp:Label runat="server" ID="LblPrioridad" Text="Prioridad:" class="col-md-2" /></b>
                                            <div class="col-md-4" id="DivPrioridad" runat="server">
                                                <asp:DropDownList ID="DdlPrioridad" CssClass="select2me" runat="server" Width="150px">
@@ -220,6 +221,9 @@
                                                    <asp:ListItem Text="Media" Value="2"></asp:ListItem>
                                                    <asp:ListItem Text="Baja" Value="3"></asp:ListItem>
                                                </asp:DropDownList>
+                                                 <asp:DropDownList ID="DdlSubProyectoGral" Visible="false" CssClass="form-control  select2me" runat="server" Width="85%" DataTextField="SubProyecto" DataValueField="CveSubProyecto" OnSelectedIndexChanged ="DdlSubProyectoGral_SelectedIndexChanged" AutoPostBack="true">
+                                                     <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
+                                                 </asp:DropDownList>
                                            </div>
                                        </div>
                                    </ContentTemplate>
@@ -447,14 +451,6 @@
                                             <asp:HiddenField ID="hdnCveSuperior" runat="server" Value="-1" />
                                        </td>
                                    </tr>                                   
-                                    <tr id="trSubProyecto">
-                                        <td><b>Sucursal:</b></td>
-                                        <td>
-                                            <asp:DropDownList ID="DdlSubProyectoGral" CssClass="form-control  select2me" runat="server" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto" OnSelectedIndexChanged ="DdlSubProyectoGral_SelectedIndexChanged" AutoPostBack="true">
-                                                <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
-                                            </asp:DropDownList>
-                                        </td>
-                                    </tr>
                                    <tr id="trCfdi" style="display:none;" >
                                        <td>
                                            <div class="caption font-green">
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -728,7 +728,7 @@ Partial Class OC_OC
                'temporal
                If UsuarioActual.CveEmpresa = 189 Then
                    'GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC)
-                    DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC) 'GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("", "SubProyecto")
+                    DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC).FiltraParametros("", "SubProyecto", DistinctColumns:={"CveSubProyecto", "SubProyecto"})
                    DdlSubProyectoGral.DataBind()
                    DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto)
                End If
@@ -957,8 +957,11 @@ Partial Class OC_OC
                End If
            End If

-            If UsuarioActual.CveRol = 1 Then
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
                chkSubProyectoEntrega.Visible = True
+                LblPrioridad.Text = "Sucursal"
+                DdlPrioridad.Visible = False
+                DdlSubProyectoGral.Visible = True
            End If

        End If
@@ -4956,7 +4959,7 @@ Partial Class OC_OC
        End If
    End Sub
    Private Sub BtnEliminarCotizacion_Click(sender As Object, e As EventArgs) Handles BtnEliminarCotizacion.Click
-        Dim Body As String = GeneraCorreoEliminarCotizacion(HdnCveCotizacion.Value.ToEntero, TxtMotivoEliminacion.Text.Trim)
+        Dim Body As String = GeneraCorreoEliminarCotizacion(HdnCveCotizacion.Value.ToEntero, TxtMotivoEliminacion.Text.Trim, UsuarioActual.CveEmpresa)
        RegistraScript("hideDivEC();")
    End Sub
 #End Region
@@ -6428,7 +6431,7 @@ Partial Class OC_OC

                'verifico los permisos según el estatus

-                If objOC.GetOrdenesDetalle(CveOrdenCompra) Then
+                If objOC.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then
                    For Each dr As DataRow In objOC.DtResultados.Rows
                        strBody.AppendFormat("<tr class='Texto'><td>{0}</td><td>{1}</td><td><span style='width: 220px; border-bottom: 1px solid gray;'>{2}</span><br>{3}</td><td>{4}</td><td style='width:150px;'><span style='width: 150px; border-bottom: 1px solid gray;'>{5}</span><br>{6}</td><td>{7}</td><td align='right'>{8}</td><td align='right'>{9}</td></tr>",
                                                    dr("Cantidad").ToString.FormatoNumero, dr("Abreviatura"), dr("Clasificacion"), dr("PS"), dr("Observacion"), dr("Proyecto"), If(CveEmpresaActual = 66, "", dr("SubProyecto")), dr("Codigo"), If(Not IsDBNull(dr("Importe")), FormatCurrency(dr("Importe").ToString), ""), If(Not IsDBNull(dr("Total")), FormatCurrency(dr("Total").ToString), ""))
@@ -6470,7 +6473,7 @@ Partial Class OC_OC
        objOC.GetOC(CveOrdenCompra, CveEmpresaActual)
        CveProveedor = objOC.CveProveedor
        Dim DttDetalle As DataTable = Nothing
-        If objOC.GetOrdenesDetalle(CveOrdenCompra) Then
+        If objOC.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then
            DttDetalle = objOC.DtResultados
        End If

@@ -6567,7 +6570,7 @@ Partial Class OC_OC
 #End Region

 #Region "Correo Eliminar Cotización"
-    Private Function GeneraCorreoEliminarCotizacion(CveCotizacion As Integer, Motivo As String) As String
+    Private Function GeneraCorreoEliminarCotizacion(CveCotizacion As Integer, Motivo As String, CveEmpresaActual As Integer) As String
        Dim ObjCotizacion As New ClsOC
        ObjCotizacion.GetCotizaciones(CveOrdenCompra, CveCotizacion)
        Dim strBody As New StringBuilder
@@ -6650,7 +6653,7 @@ Partial Class OC_OC
        strBody.Append("           </tr>")

        Dim dtConceptos As DataTable = Nothing
-        If ObjCotizacion.GetOrdenesDetalle(CveOrdenCompra) Then
+        If ObjCotizacion.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then
            dtConceptos = ObjCotizacion.DtResultados
        End If

@@ -9282,6 +9285,8 @@ Partial Class OC_OC
    End Sub

    Protected Sub DdlSubProyectoGral_SelectedIndexChanged(sender As Object, e As EventArgs)
+        DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue)
+        UPPDetalle.Update()
        CargaFolios()
    End Sub
 End Class
--- a/OC/RepCotizacionesDetalle.aspx.vb
+++ b/OC/RepCotizacionesDetalle.aspx.vb
@@ -131,7 +131,7 @@ Partial Class PopOCCotizacionesDetalle
    Private Sub CargaOCDetalle(pCveOrden As Integer)
        Dim objOC As New ClsOC

-        If objOC.GetOrdenesDetalle(pCveOrden) Then
+        If objOC.GetOrdenesDetalle(pCveOrden, UsuarioActual.CveEmpresa) Then
            DtDetalle = objOC.DtResultados
        End If

--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -474,7 +474,7 @@ Partial Class OS_OrdenesServicios
    End Sub

    Private Sub CargaTiposVenta()
-        DdlTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ")
+        DdlTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
        DdlTipoVenta.DataBind()
    End Sub

--- a/OS/PopUpMateriales.aspx.vb
+++ b/OS/PopUpMateriales.aspx.vb
@@ -127,7 +127,7 @@ Partial Class OS_PopUpMateriales
                    Dim RowPS As DataRow = DTPS.FiltraParametros("CvePS = " & Material("CvePS").ToString).Rows(0)
                    Dim PS As String = RowPS("PS").ToString
                    Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString.ToEntero
-                    Dim UM = GlobalDTUnidadesMedida.FiltraParametros("CveUnidadMedida = " & CveUnidadMedida).Rows(0)("UnidadMedida").ToString
+                    Dim UM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltraParametros("CveUnidadMedida = " & CveUnidadMedida).Rows(0)("UnidadMedida").ToString
                    Dim CveClasificacion As Integer = RowPS("CveClasificacion").ToString.ToEntero
                    Dim Clasificacion As String = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("CveClasificacion = " & CveClasificacion).Rows(0)("Clasificacion").ToString

--- a/Planeacion/CatSubProyectos.aspx.vb
+++ b/Planeacion/CatSubProyectos.aspx.vb
@@ -102,7 +102,7 @@ Partial Class CatSubProyectos

    Private Sub RecargaGlobal()
        GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing
-        GlobalDTSubProyectosUsuarios(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa) = Nothing
        GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa) = Nothing

    End Sub
--- a/Presupuestos/GenerarPresupuestos.aspx.vb
+++ b/Presupuestos/GenerarPresupuestos.aspx.vb
@@ -202,7 +202,7 @@ Partial Class Presupuestos_GenerarPresupuestos
        ddlUM.Items.Insert(0, New System.Web.UI.WebControls.ListItem("---------", "-1"))
        ddlMOUnidad.Items.Insert(0, New System.Web.UI.WebControls.ListItem("---------", "-1"))

-        ddlPUM.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa)
+        ddlPUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
        ddlPUM.DataBind()

        Dim ObjClientes As New ClsClientes
@@ -506,7 +506,7 @@ Partial Class Presupuestos_GenerarPresupuestos
            Dim PU As Double = DtPS.FiltraParametros("CvePS=" & ddlMOPS.SelectedValue.ToString).Rows(0)("Precio").ToString.ToDouble
            tbPrecioMO.Text = PU.ToString

-            ddlMOUnidad.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa)
+            ddlMOUnidad.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
            ddlMOUnidad.DataBind()
        End If

@@ -550,7 +550,7 @@ Partial Class Presupuestos_GenerarPresupuestos
        If ddlPS.SelectedIndex > 0 Then
            Dim PU As Double = DtPS.FiltroPrimero("CvePS=" & ddlPS.SelectedValue.ToString)("Precio").ToString.ToDouble
            tbPrecio.Text = PU.ToString
-            ddlUM.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa)
+            ddlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
            ddlUM.DataBind()
        End If
    End Sub
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -591,7 +591,7 @@ Partial Class Sistemas_CatSesiones
            Case ""
                dt = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
            Case Else
-                dt = DirectCast(Application(DdlVariable.SelectedValue & UsuarioActual.CveEmpresa), DataTable)
+                dt = DirectCast(HttpContext.Current.Application(DdlVariable.SelectedValue & "-" & UsuarioActual.CveEmpresa), DataTable)
        End Select

        Gv.DataSource = dt
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -1319,7 +1319,7 @@ Partial Class ProductosyServicios
 #Region "GV PAQUETE DETALLE"
    Protected Sub gvPaqueteDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvPaqueteDetalle.RowDataBound
        If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
-            e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida()
+            e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
            e.Row.FCDropDownList("ddlEUnidad").SelectedValue = e.Row.DBCampo("CveUnidadMedida")
            e.Row.FCDropDownList("ddlEUnidad").DataBind()
        End If