diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index ed72bc1d9..efc0a12fb 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -245,6 +245,7 @@
+
@@ -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;
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 5db262b65..7630de76c 100644
--- a/Compras/Compras.aspx.vb
+++ b/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)
diff --git a/OC/PopUpBuscarReq.aspx b/OC/PopUpBuscarReq.aspx
index 0944834f3..dc06b9084 100644
--- a/OC/PopUpBuscarReq.aspx
+++ b/OC/PopUpBuscarReq.aspx
@@ -25,6 +25,16 @@
+
+
+
+
+
+
@@ -109,8 +119,6 @@
-
-
@@ -153,14 +161,14 @@
-
+
-
+
diff --git a/OC/PopUpBuscarReq.aspx.vb b/OC/PopUpBuscarReq.aspx.vb
index 18094632b..0f9514e06 100644
--- a/OC/PopUpBuscarReq.aspx.vb
+++ b/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.Columns(4).Visible = False
+ GV.Width = 930
+ 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")
- 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)
-
- '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()
-
+ Dim tCveProveedor As Integer = ViewState("CveProveedor").ToString.ToEntero
+ If DdlProveedorMultiple.SelectedValue.ToEntero > 0 Then
+ ViewState("CveProveedorMultiple") = DdlProveedorMultiple.SelectedValue
+ ViewState("CveProveedor") = DdlProveedorMultiple.SelectedValue
+ tCveProveedor = DdlProveedorMultiple.SelectedValue.ToEntero
+ End If
'Cargar Datos
Dim ObjOC As New ClsOC
- 'ObjOC.GetOC(-1, UsuarioActual.CveEmpresa)
- ObjOC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, -1, ViewState("CveProveedor").ToString.ToEntero, -1, -1, -1, UsuarioActual.CveEmpresa, -1)
- Dim DtOC = ObjOC.DtResultados.FiltraParametros("TipoTermino = 3") ' tipotermino, esattus inicial
+ ObjOC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, -1, tCveProveedor, -1, -1, -1, UsuarioActual.CveEmpresa, -1)
+ Dim DtOC As Data.DataTable = 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: "
+ LblTotalRegistros.Text = "Número de registros: " & GV.Rows.Count.ToString
UPDatos.Update()
End Sub
Protected Sub BtnBuscar_Click(sender As Object, e As EventArgs)
- Dim CveProyecto = -1
- Dim CveSubProyecto = -1
+ Dim CveProyecto As Integer = -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