AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2023-10-12 19:45:15 -07:00
parent e337e502e8
commit 31750b54f8
4 changed files with 80 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Compras/Compras.aspx
View File

@@ -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;

8
Compras/Compras.aspx.vb
View File

@@ -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)

16
OC/PopUpBuscarReq.aspx
View File

@@ -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>

107
OC/PopUpBuscarReq.aspx.vb
View File

@@ -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