-- 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/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,7 +212,8 @@
                                                <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>
+                                                          
+                                          <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">
                                                    <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
@@ -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>
@@ -446,15 +450,7 @@
                                            <asp:Label ID="LblUsuarioAsignado" runat="server" Text=""></asp:Label>
                                             <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>                                   
                                    <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