-- poder relacionar oc relacionadas a ordenes de corte de otros proveedores, caso "castelos"

Compras/Compras.aspx

@@ -245,6 +245,7 @@
                                     <asp:Button ID="BtnBuscarOC" runat="server" Text="BuscarOC" ClientIDMode="Static" Style="display: none;" />
                                     <asp:HiddenField runat="server" ID="HdnVCveOC" ClientIDMode="Static" Value="-1" />
                                     <asp:HiddenField runat="server" ID="HdnCveEstatusOC" ClientIDMode="Static" Value="-1" />
+                                    <asp:HiddenField runat="server" ID="HdnCveProveedorOC" ClientIDMode="Static" Value="-1" />
                                     <asp:Button runat="server" ID="BtnVOC" ClientIDMode="Static" OnClick="CargaVOC" Style="display: none" />
                                 </div>
                             </div>
@@ -6180,7 +6181,7 @@
 
 
         //ORDENES DE COMPRA --- OC
-        function VinculaOC(CveOC, Folio, CveEstatus) {
+        function VinculaOC(CveOC, Folio, CveEstatus, CveProveedor) {
             $get("TxtOC").value = Folio;
             $get("HdnVCveOC").value = CveOC;
             $get("HdnCveEstatusOC").value = CveEstatus;

Compras/Compras.aspx.vb

@@ -13563,6 +13563,12 @@ Partial Class Compras_Compras
             Alert("Debe de Seleccionar un proveedor")
             Exit Sub
         End If
+        Dim tCveProveedor As Integer = CveProveedor
+
+        'código para cambiar de proveedor a la oc, para caso 172
+        If UsuarioActual.Empresa.Funcionalidad(267) = "1" AndAlso HdnCveProveedorOC.Value.ToEntero > 0 Then
+            tCveProveedor = HdnCveProveedorOC.Value.ToEntero
+        End If
 
         'BANDERA DE SURTIDO
         If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Then
@@ -13582,7 +13588,7 @@ Partial Class Compras_Compras
         If PopUpOC Then
             Dim ArrayCveOC As String() = CvesOC.Split(New Char() {","c})
             For i As Integer = 0 To ArrayCveOC.Count - 1
-                If OC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, ArrayCveOC(i).ToEntero, CveProveedor, -1, -1, -1, UsuarioActual.CveEmpresa, -1) Then
+                If OC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, ArrayCveOC(i).ToEntero, tCveProveedor, -1, -1, -1, UsuarioActual.CveEmpresa, -1) Then
                     If OC.DtResultados.FiltraParametros("TipoTermino =  3").Rows.Count = 1 Or DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
                         HdnVCveOC.Value += String.Format("{0}{1}", If(HdnVCveOC.Value <> "", ",", ""), OC.DtResultados.Rows(0)("CveOrdenCompra").ToString)
                         HdnCveEstatusOC.Value += String.Format("{0}{1}", If(HdnCveEstatusOC.Value <> "", ",", ""), OC.DtResultados.Rows(0)("CveEstatusSiguiente").ToString)

OC/PopUpBuscarReq.aspx

@@ -25,6 +25,16 @@
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
 
+    <asp:UpdatePanel ID="UPProveedorCompra" runat="server" UpdateMode="Conditional" Visible="false">
+         <ContentTemplate>
+             <div class="row">
+                 <div class="col-md-12">
+                       Proveedor: <asp:Dropdownlist runat="server" ID="DdlProveedorMultiple" CssClass="select2me" DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" autopostback="true"  OnSelectedIndexChanged ="DdlProveedoresmultiple_selectedindexchange" />
+                 </div>
+             </div>
+            </ContentTemplate>
+    </asp:UpdatePanel>
+
     <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:Panel ID="PnlPrincipal" runat="server" DefaultButton="BtnBuscar" Width="750px">
@@ -109,8 +119,6 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
-    <br />
-
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
 
@@ -153,14 +161,14 @@
                                 </div>
                             </ItemTemplate>
                         </asp:TemplateField>
-                        <asp:HyperLinkField HeaderText="Proveedor" Target="_blank" DataTextField="Proveedor" DataNavigateUrlFields="CveProveedor" DataNavigateUrlFormatString="~/Compras/Proveedores.aspx?CveProveedor={0}" ControlStyle-CssClass="truncate" ItemStyle-Width="20%" />
+                        <asp:HyperLinkField HeaderText="Proveedor" Target="_blank" DataTextField="Proveedor" DataNavigateUrlFields="CveProveedor" DataNavigateUrlFormatString="~/Compras/Proveedores.aspx?CveProveedor={0}" ControlStyle-CssClass="truncate" ItemStyle-Width="25%" />
                         <asp:BoundField DataField="DetallePS" HeaderText="Detalle Productos / Servicios" ControlStyle-CssClass="Texto" ItemStyle-Font-Size="X-Small"  />
                         <asp:TemplateField HeaderText="Importe" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" HeaderStyle-HorizontalAlign="Center">
                             <ItemTemplate>
                                 <asp:Label Text='<%#String.Concat(Eval("Total", "{0:c}"), " ", Eval("MonAbreviatura"))%>' ID="LbImporte" runat="server" />
                             </ItemTemplate>
                         </asp:TemplateField>
-                        <asp:TemplateField ItemStyle-Width="2.5%">
+                        <asp:TemplateField ItemStyle-Width="3%">
                             <ItemTemplate>
                                 <asp:CheckBox runat="server" ID="CheckVincular" ClientIDMode="AutoID" />
                             </ItemTemplate>

OC/PopUpBuscarReq.aspx.vb

@@ -17,6 +17,12 @@ Partial Class OC_PopUpBuscarReq
             Return ViewState("CveProveedor").ToString
         End Get
     End Property
+
+    Private ReadOnly Property CveProveedorMultiple As String
+        Get
+            Return ViewState("CveProveedorMultiple").ToString
+        End Get
+    End Property
     Private ReadOnly Property Ruta As String
         Get
             Return UsuarioActual.Empresa.Ruta
@@ -27,7 +33,7 @@ Partial Class OC_PopUpBuscarReq
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CType(Me.Master, BaseMasterPage).EsPopup = True
-            Dim UsaParametros = False
+            Dim UsaParametros As Boolean = False
 
             ViewState("VinculacionOC") = ""
             ViewState("CveProveedor") = ""
@@ -35,10 +41,29 @@ Partial Class OC_PopUpBuscarReq
             GV.Width = 750
             If Request("V") IsNot Nothing AndAlso Request("V").ToString <> "" Then
                 If Request("P") IsNot Nothing AndAlso Request("P").ToString <> "" Then
+                    ViewState("VinculacionOC") = Request("V")
+                    ViewState("CveProveedor") = Request("P")
+                    UPFiltros.Visible = False
+
+                    Dim NombreProv As String = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, ViewState("CveProveedor").ToString.ToEntero).FiltroPrimeroValor("RazonSocial")
+                    LbTitulo.Text = String.Format("Órdenes de Compra - {0}", NombreProv)
+
+                    If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then
+                        UPProveedorCompra.Visible = True
+                        'DdlProveedorMultiple.setEsWebService(True)
+                        'DdlProveedorMultiple.Attributes.Add("data-metodo", "getproveedores") ' proveedores tipo productores // proveedores
+                        DdlProveedorMultiple.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros("ProveedorClasificacion  like '%PRODUCTOR%'")
+                        DdlProveedorMultiple.DataBind()
+                        DdlProveedorMultiple.Items.Insert(0, New ListItem("-", "-1"))
+                    End If
+
                     CargarVinculacionCompras()
                     DivDatos.Attributes.Add("style", "overflow-y: auto; width: 950px; height: 700px;")
-                    GV.Width = 950
+                    GV.Width = 930
-                    GV.Columns(4).Visible = False
+                    GV.Columns(1).Visible = False ' folio req
+                    GV.Columns(2).Visible = False ' tipo 'oc/req
+                    GV.Columns(5).Visible = False ' nombre proveedor
+                    GV.Columns(9).Visible = False ' descarga pdf
                     If UsuarioActual.Empresa.MetodoOC <> 2 Then
                         BtnVincularOC.Visible = True
                     End If
@@ -71,21 +96,6 @@ Partial Class OC_PopUpBuscarReq
         CargaEstatus()
 
         CargarCentrosDeCosto(DdlProyectos, DdlSubProyectos, LblProyecto, LtSubProyecto)
-        'If UsuarioActual.Empresa.GralSoloProyecto Then
-        '    TdProyecto.Visible = False
-        '    TdProyecto2.Visible = False
-        '    LtSubProyecto.Text = "Proyecto:"
-        'Else
-        '    'DdlProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) 'GlobalDTProyectos(UsuarioActual.CveEmpresa, 1)
-        '    'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
-        '    '                            GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
-        '    DdlProyectos.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        '    DdlProyectos.DataBind()
-        '    DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
-        'End If
-
-        'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        'DdlProveedor.DataBind()
 
         'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlProveedor.setEsWebService(True)
@@ -127,28 +137,18 @@ Partial Class OC_PopUpBuscarReq
 
 #Region "  CARGA DATOS  "
     Protected Sub CargarVinculacionCompras() ' CUANDO VIENE DESDE COMPRAS
-        ViewState("VinculacionOC") = Request("V")
+        Dim tCveProveedor As Integer = ViewState("CveProveedor").ToString.ToEntero
-        ViewState("CveProveedor") = Request("P")
+        If DdlProveedorMultiple.SelectedValue.ToEntero > 0 Then
-        UPFiltros.Visible = False
+            ViewState("CveProveedorMultiple") = DdlProveedorMultiple.SelectedValue
-
+            ViewState("CveProveedor") = DdlProveedorMultiple.SelectedValue
-        Dim NombreProv As String = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, ViewState("CveProveedor").ToString.ToEntero).FiltroPrimeroValor("RazonSocial")
+            tCveProveedor = DdlProveedorMultiple.SelectedValue.ToEntero
-        LbTitulo.Text = String.Format("Órdenes de Compra - {0}", NombreProv)
+        End If
-
-        'Dim ObjPro As New ClsCompProveedores
-        'ObjPro.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, ViewState("CveProveedor").ToString.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa)
-        'If ObjPro.DtResultados.Rows.Count > 0 Then
-        '    LbTitulo.Text = String.Format("Órdenes de Compra - {0}", ObjPro.DtResultados.Rows(0)("RazonSocial").ToString)
-        'End If
-        'ObjPro.Dispose()
-
         'Cargar Datos
         Dim ObjOC As New ClsOC
-        'ObjOC.GetOC(-1, UsuarioActual.CveEmpresa)
+        ObjOC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, -1, tCveProveedor, -1, -1, -1, UsuarioActual.CveEmpresa, -1)
-        ObjOC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, -1, ViewState("CveProveedor").ToString.ToEntero, -1, -1, -1, UsuarioActual.CveEmpresa, -1)
+        Dim DtOC As Data.DataTable = ObjOC.DtResultados.FiltraParametros("TipoTermino =  3") ' tipotermino, esattus inicial
-        Dim DtOC = ObjOC.DtResultados.FiltraParametros("TipoTermino =  3") ' tipotermino, esattus inicial
         ObjOC.Dispose()
 
-
         If DtOC.Rows.Count > 0 Then ' tipotermino, esattus inicial
             BtnVincularOC.Visible = True
         End If
@@ -157,14 +157,13 @@ Partial Class OC_PopUpBuscarReq
         GV.DataSource = DtOC.FiltraParametros("CveOrdenCompraDisponible > 0")
 
         GV.DataBind()
-        LtlTotalRegistros.Text = GV.Rows.Count.ToString
+        LblTotalRegistros.Text = "Número de registros: " & GV.Rows.Count.ToString
-        LblTotalRegistros.Text = "Número de registros: "
 
         UPDatos.Update()
     End Sub
     Protected Sub BtnBuscar_Click(sender As Object, e As EventArgs)
-        Dim CveProyecto = -1
+        Dim CveProyecto As Integer = -1
-        Dim CveSubProyecto = -1
+        Dim CveSubProyecto As Integer = -1
 
         If LblProyecto.Visible Then
             CveProyecto = DdlProyectos.SelectedValue.ToEntero
@@ -184,7 +183,7 @@ Partial Class OC_PopUpBuscarReq
             ObjOC.GetOrdenesCompraRep(DdlTipo.SelectedValue, CveProyecto, CveSubProyecto, -1, DdlEstatus.SelectedValue.ToEntero, FI, MaxFecha, -1, CveProveedor,
                                   If(TxtFolio.Text.ToEntero <= 0, -1, TxtFolio.Text.ToEntero), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Guia:=guia,
                                   SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), TopSelect:=100)
-            Dim DtOC = ObjOC.DtResultados ' tipotermino, esattus inicial
+            Dim DtOC As Data.DataTable = ObjOC.DtResultados ' tipotermino, esattus inicial
             ObjOC.Dispose()
 
             GV.DataSource = DtOC
@@ -208,7 +207,7 @@ Partial Class OC_PopUpBuscarReq
                 e.Row.FCHyperLink("HLDescripcion").Visible = True
                 e.Row.FCLabel("LbDescripcion").Visible = False
 
-                Dim Link = String.Format("javascript:Ir3('{0}','{1}','{2}');", e.Row.DBCampo("CveOrdenCompra"), e.Row.DBCampo("Folio"), e.Row.DBCampo("CveEstatusSiguiente"))
+                Dim Link As String = String.Format("javascript:Ir3('{0}','{1}','{2}');", e.Row.DBCampo("CveOrdenCompra"), e.Row.DBCampo("Folio"), e.Row.DBCampo("CveEstatusSiguiente"), e.Row.DBCampo("CveProveedor"))
 
                 e.Row.FCHyperLink("HLFolio").NavigateUrl = Link
                 e.Row.FCHyperLink("HLDescripcion").NavigateUrl = Link
@@ -219,7 +218,7 @@ Partial Class OC_PopUpBuscarReq
 
                 e.Row.FCHyperLink("HLDescripcion").Visible = True
                 e.Row.FCLabel("LbDescripcion").Visible = False
-                Dim Link = String.Format("javascript:Ir4('{0}');", e.Row.DBCampo("CveOrdenCompra"))
+                Dim Link As String = String.Format("javascript:Ir4('{0}');", e.Row.DBCampo("CveOrdenCompra"))
 
                 e.Row.FCHyperLink("HLFolio").NavigateUrl = Link
                 e.Row.FCHyperLink("HLDescripcion").NavigateUrl = Link
@@ -231,7 +230,7 @@ Partial Class OC_PopUpBuscarReq
                 e.Row.FCHyperLink("HLDescripcion").Visible = True
                 e.Row.FCLabel("LbDescripcion").Visible = False
 
-                Dim Link = String.Format("javascript:Ir(""{0}"");", e.Row.DBCampo("CveOrdenCompra"))
+                Dim Link As String = String.Format("javascript:Ir(""{0}"");", e.Row.DBCampo("CveOrdenCompra"))
 
                 e.Row.FCHyperLink("HLFolio").NavigateUrl = Link
                 e.Row.FCHyperLink("HLDescripcion").NavigateUrl = Link
@@ -245,14 +244,11 @@ Partial Class OC_PopUpBuscarReq
             If e.Row.DataKey("FolioREQ").ToString.Trim.Length > 0 Then
 
                 Dim LbFolio As Label = e.Row.FCLabel("LbFolio")
-
                 LbFolio.Attributes.Add("data-toggle", "tooltip")
                 LbFolio.Attributes.Add("data-placement", "top")
                 LbFolio.Attributes.Add("title", "REQ: " & e.Row.DataKey("FolioREQ").ToString)
 
             End If
-
-
             If ViewState("CveProveedor").ToString <> "" And UsuarioActual.CveEmpresa.Contiene(72) Then
                 GV.Columns(2).Visible = False
             End If
@@ -274,6 +270,12 @@ Partial Class OC_PopUpBuscarReq
 
 #End Region
 
+    Protected Sub DdlProveedoresmultiple_selectedindexchange(sender As Object, e As EventArgs)
+
+        CargarVinculacionCompras()
+
+    End Sub
+
 #Region "  VINCULA CON COMPRAS  "
     Protected Sub BtnVincularOC_Click(sender As Object, e As EventArgs)
         Dim CveOC As String = ""
@@ -286,6 +288,15 @@ Partial Class OC_PopUpBuscarReq
                     CveOC &= String.Format(", {0}", GV.Rows(i).DataKey("CveOrdenCompra").ToString)
                     Folio &= String.Format(", {0}", GV.Rows(i).DataKey("Folio").ToString)
                     CveEstatus &= String.Format(", {0}", GV.Rows(i).DataKey("CveEstatusSiguiente").ToString)
+
+                    'código para cambiar de proveedor a la oc, para caso 172
+                    'If UsuarioActual.Empresa.Funcionalidad(267) = "1" AndAlso CveProveedorMultiple.ToEntero <> 0 Then
+                    '    Dim OC As New ClsOC
+                    '    If OC.UpdateProveedorOrdenCompra(CveProveedor.ToEntero, GV.Rows(i).DataKey("CveOrdenCompra").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+
+                    '    End If
+                    '    OC.Dispose()
+                    'End If
                 Else
                     CveOC = GV.Rows(i).DataKey("CveOrdenCompra").ToString
                     Folio = GV.Rows(i).DataKey("Folio").ToString
@@ -295,7 +306,7 @@ Partial Class OC_PopUpBuscarReq
         Next
 
         If CveOC <> "" AndAlso CveOC.Length > 0 Then
-            RegistraScript(String.Format("javascript: Ir3('{0}','{1}','{2}');", CveOC, Folio, CveEstatus))
+            RegistraScript(String.Format("javascript: Ir3('{0}','{1}','{2}','{3}');", CveOC, Folio, CveEstatus, CveProveedor))
         Else
             Alert("No seleccionó ninguna Orden de Compra, Por lo cual no se puede vincular.", TipoMensaje.MsgAdvertencia)
         End If