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)