cargas de trabajo 1 y 2 terminadas

2020-06-16 00:40:21 -07:00
parent 75a8477d52
commit 25f1e212ac
10 changed files with 351 additions and 8 deletions
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -2849,6 +2849,72 @@ Public Class ClsGenerales
        Return Retorno
    End Function

+    Public Function GetMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("Gral_MotivoRechazoPaqueteriaGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddMotivoRechazoPaqueteria(Descripcion As String, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("Gral_MotivoRechazoPaqueteriaAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("Gral_MotivoRechazoPaqueteriaDelete")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria As Integer, Optional Descripcion As String = "-1") As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("Gral_MotivoRechazoPaqueteriaUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria
+            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al modificar el motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
 #End Region

 #Region "P A Q U E T E R I A S    G U I A S    D E T A L L E S"
--- a/App_Code/ClsOC.vb
+++ b/App_Code/ClsOC.vb
@@ -2532,7 +2532,23 @@ Public Class ClsOC
    End Function
 #End Region

+    Public Function GetVentasRelacionadas(CveOCDetalle As String) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_OC_VentaRelacionada")

+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveOCDetalles", SqlDbType.NVarChar).Value = CveOCDetalle
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener la venta relacionada", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function

 #Region " IDisposable Support "
    ' IDisposable
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -3668,6 +3668,7 @@ Public Class ClsPaginas
            PaginaDict.Add("/Sistemas/CatPlataformas.aspx".ToUpper(), -1)
            PaginaDict.Add("/Sistemas/PopUpAddUsuario.aspx".ToUpper(), -1)
            PaginaDict.Add("/General/JAMComparativos.aspx".ToUpper(), 643)
+            PaginaDict.Add("/General/CatMotivoRechazoGuias.aspx".ToUpper(), 729)

            '-------------------------------------------Q U I T A R----------------------------------
 #Region "Q U I T A R"
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -4462,6 +4462,21 @@ Public Class ClsVentas
        End Try
        Return retorno
    End Function
+
+    Public Function GetOCRelacionadas(CveVentasDetalles As String) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Vta_OrdenCompraRelacionada", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVentasDetalles", SqlDbType.NVarChar).Value = CveVentasDetalles
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener la orden de compra relacionada", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
 #Region "Conciliación emitidas SAT"

    Public Function ConciliacionemitidasSATGet(cveEmpresa As Int32) As Boolean
--- a/General/CatMotivoRechazoGuias.aspx
+++ b/General/CatMotivoRechazoGuias.aspx
@@ -0,0 +1,74 @@
+<%@ Page Title="General - Catálogo de motivo de rechazo de guías" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CatMotivoRechazoGuias.aspx.cs" Inherits="General_CatMotivoRechazoGuias" %>
+
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Catálogo de Motivos de Rechazo de Paquetes
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAgregar">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton runat="server" ID="BtnAgregarMotivoD" OnClick="BtnAgregarMotivoD_Click" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Motivo"></asp:LinkButton>
+            </li>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMotivoRechazoPaqueteria,Descripcion,Estado" EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Motivo de Baja" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;width:100%" GridLines="None">
+                <Columns>
+                    <asp:BoundField HeaderText ="Descripción" DataField="Descripcion"/>
+                    <asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="LnkEditar" runat="server" OnClick="LnkEditar_Click" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
+                            <asp:LinkButton ID="LnkEliminar" runat="server" OnClick="LnkEliminar_Click" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"/>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                </Columns>
+                <RowStyle CssClass="Texto" />
+                <AlternatingRowStyle CssClass="TextoAlterno" />
+            </asp:GridView>
+
+             <div id="DivAgregarTiposD" class="modal ADS fade" role="dialog">
+                <div class="modal-dialog" style="width: 450px;">
+                    <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <div class="modal-header ">
+                                <button type="button" class="close" data-dismiss="modal">×</button>
+                                <h4 class="modal-title">
+                                    <asp:Literal ID="LtlTituloModalTiposD" runat="server">Motivos de Rechazo</asp:Literal></h4>
+                            </div>
+                            <div class="modal-body">
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="DescripcionTxt" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvTxtTiposD" runat="server" ControlToValidate="DescripcionTxt" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
+                                    <label for="MotivoTxt">Descripción:</label>
+                                    <i></i>
+                                </div>
+                                <br />
+                            </div>
+                            <br />
+                            <div class="modal-footer">
+                                <asp:Button ID="BtnAgregarTiposDModal" OnClick="BtnAgregarTiposDModal_Click" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposD" />
+                                <button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                            </div>
+
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
--- a/General/CatMotivoRechazoGuias.aspx.cs
+++ b/General/CatMotivoRechazoGuias.aspx.cs
@@ -0,0 +1,96 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+using Extensiones;
+using System.Data;
+
+public partial class General_CatMotivoRechazoGuias : ClsPaginas
+{
+    private int CveMotivoRechazoPaqueteria
+    {
+        get
+        {
+            return ViewState["CveMotivoRechazoPaqueteria"].ToString().ToEntero();
+        }
+
+        set
+        {
+            ViewState["CveMotivoRechazoPaqueteria"] = value;
+        }
+    }
+
+    protected void Page_Load(object sender, EventArgs e)
+    {
+        if (!IsPostBack)
+        {
+            CargaDatos();
+            UpDatos.Update();
+        }
+    }
+
+    private void CargaDatos()
+    {
+        ClsGenerales ObjGeneral = new ClsGenerales();
+        if (ObjGeneral.GetMotivoRechazoPaqueteria(-1,UsuarioActual.CveEmpresa))
+        {
+            GvDatos.DataSource = ObjGeneral.DtResultados;
+            GvDatos.DataBind();
+        }
+        ObjGeneral.Dispose();
+    }
+
+    protected void BtnAgregarMotivoD_Click(object sender, EventArgs e)
+    {
+        BtnAgregarTiposDModal.Text = "Agregar";
+        UpModalTiposD.Update();
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
+    }
+
+    protected void LnkEditar_Click(object sender, EventArgs e)
+    {
+        BtnAgregarTiposDModal.Text = "Actualizar";
+        GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        CveMotivoRechazoPaqueteria = GvRow.DataKey("CveMotivoRechazoPaqueteria").ToEntero();
+        DescripcionTxt.Text = GvRow.DataKey("Descripcion");
+        UpModalTiposD.Update();
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
+    }
+
+    protected void BtnAgregarTiposDModal_Click(object sender, EventArgs e)
+    {
+        ClsGenerales ObjGeneral = new ClsGenerales();
+        if (BtnAgregarTiposDModal.Text == "Agregar")
+        {
+            if (ObjGeneral.AddMotivoRechazoPaqueteria(DescripcionTxt.Text,UsuarioActual.CveEmpresa))
+            {
+                Alert("Motivo Agregado Correctamente");
+            }
+        }else
+        {
+            if (ObjGeneral.UpdateMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria, DescripcionTxt.Text))
+            {
+                Alert("Motivo Actualizado Correctamente");
+            }
+        }
+        ObjGeneral.Dispose();
+        CargaDatos();
+        UpDatos.Update();
+    }
+
+    protected void LnkEliminar_Click(object sender, EventArgs e)
+    {
+        GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        int CveMotivoRechazoPaqueteriaAux = GvRow.DataKey("CveMotivoRechazoPaqueteria").ToEntero();
+        ClsGenerales ObjGeneral = new ClsGenerales();
+        if (ObjGeneral.RemoveMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteriaAux))
+        {
+            Alert("Motivo Eliminado con Correctamente");
+        }
+        ObjGeneral.Dispose();
+        CargaDatos();
+        UpDatos.Update();
+    }
+}
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -591,7 +591,7 @@
                                    Cliente:                               
                                </div>
                                <div class="col-md-2">
-                                    <ADS:Dropdownlost ID="Ddlcliente" Width="100%"  CssStyle="width: 100%;"  UsaWebService="true" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me"   data-metodo="getcliente" runat="server" DataTextField="NombreComercial"    DataValueField="CveCliente"  ></ADS:Dropdownlost>
+                                    <ADS:Dropdownlost ID="Ddlcliente" Width="100%" CssStyle="width: 100%;" UsaWebService="true" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"></ADS:Dropdownlost>
                                    <%--                                    <asp:RangeValidator ID="RVCliente" CssClass="form-control" runat="server" ControlToValidate="Ddlcliente" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cliente''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator>
                                    <ajax:ValidatorCalloutExtender ID="VCECliente" runat="server" HighlightCssClass="vco" TargetControlID="RVCliente" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                </div>
@@ -1503,6 +1503,25 @@

            </div>
        </div>
+        <div class="col-md-3" runat="server" id="DivVentaRelacionada">
+            <div class="portlet light xspadding  bordered">
+                <div class="portlet-title">
+                    <div class="caption font-green">
+                        <i class="icon-pin font-green"></i>
+                        <span class="caption-subject bold uppercase">Venta Relacionada </span>
+                    </div>
+                    <div class="tools">
+                        <a href="javascript;" class="expand" data-original-title="" title=""></a>
+                    </div>
+                </div>
+                <asp:GridView runat="server" ID="GvVentaRelacionadas" AutoGenerateColumns="False" DataKeyNames="CveVenta,Folio"
+                    CssClass="table table-striped table-advance table-hover Widthall  mysmallbtn" GridLines="None" ShowHeader="False">
+                    <Columns>
+                        <asp:HyperLinkField DataTextField="Folio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
+                    </Columns>
+                </asp:GridView>
+            </div>
+        </div>
    </div>


@@ -2559,7 +2578,7 @@
                                <%--<asp:DropDownList ID="DdlProveedorCot" runat="server" Width="100%" CssClass="select2me" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList>--%>
                                <ADS:Dropdownlost runat="server" ID="DdlProveedorCot" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />

-<%--                                <asp:RequiredFieldValidator ID="RFVProveedorExcel" runat="server" ControlToValidate="DdlProveedorCot" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor selecionarlo." ValidationGroup="GrpCargarExcel"></asp:RequiredFieldValidator>
+                                <%--                                <asp:RequiredFieldValidator ID="RFVProveedorExcel" runat="server" ControlToValidate="DdlProveedorCot" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor selecionarlo." ValidationGroup="GrpCargarExcel"></asp:RequiredFieldValidator>
                                <ajax:ValidatorCalloutExtender ID="VCProveedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVProveedorExcel" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                            </div>
                        </div>
@@ -2613,11 +2632,11 @@
                    <div class="modal-body">
                        <asp:UpdatePanel ID="UpCambiarMonedaBody" UpdateMode="Conditional" runat="server">
                            <ContentTemplate>
-                                <div class="row" style="width:100%">
-                                    <label class="col-md-1" style="width:100%">Desea Cambiar el Tipo de Moneda:</label>
+                                <div class="row" style="width: 100%">
+                                    <label class="col-md-1" style="width: 100%">Desea Cambiar el Tipo de Moneda:</label>
                                </div>
                                <br />
-                                <div class="row" runat="server" id="DivTCRow" style="width:100%">
+                                <div class="row" runat="server" id="DivTCRow" style="width: 100%">
                                    <label class="col-md-3">Tipo de Cambio:</label>
                                    <div class="col-md-3">
                                        <asp:TextBox ID="TxtTCCambioMoneda" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -518,6 +518,8 @@ Partial Class OC
                End If

                CargaDatos(CveOrdenCompra)
+                'CARGA VENTA RELACIONADA
+                CargaVentaRelacionada()
            Else
                EsNuevo = True
                InicializarValores()
@@ -7911,4 +7913,23 @@ Partial Class OC
        '    Alert("Moneda actualizada con exito")
        'End If
    End Sub
+
+    Private Sub CargaVentaRelacionada()
+        Dim GridViewPSAux As GridView = GvD
+        Dim CveOCDetalle As New StringBuilder()
+        For Each vd As GridViewRow In GridViewPSAux.Rows
+            Dim CveVentaDetalle As String = vd.DataKey("CveOrdenCompraDetalle")
+            CveOCDetalle.AppendFormat("{0},", CveVentaDetalle)
+        Next
+        Dim ObjVentas As New ClsOC()
+        If ObjVentas.GetVentasRelacionadas(CveOCDetalle.ToString) Then
+            Dim V As DataTable = ObjVentas.DtResultados
+            If V.Rows.Count > 0 Then
+                DivVentaRelacionada.Visible = True
+                GvVentaRelacionadas.DataSource = V
+                GvVentaRelacionadas.DataBind()
+            End If
+        End If
+        ObjVentas.Dispose()
+    End Sub
 End Class
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -3294,6 +3294,19 @@
                                <td>
                                    <asp:TextBox ID="TxtCorreoNotificaciones" runat="server" Width="100%" CssClass="form-control"></asp:TextBox></td>
                            </tr>
+                            <tr align="left" id="trOCRelacionadasLabel" runat="server" visible="false">
+                                <td id="Td3" runat="server">Ordenes de Compra Relacionadas:&nbsp;</td>
+                            </tr>
+                            <tr align="left" id="trOCRelacionadas" runat="server" visible="false">
+                                <td>
+                                    <asp:GridView runat="server" ID="GvOCRelacionadas" AutoGenerateColumns="False" DataKeyNames="CveOrdenCompra,Folio" 
+                                        CssClass="table table-striped table-advance table-hover Widthall  mysmallbtn" GridLines="None" ShowHeader="False">
+                                        <Columns>
+                                            <asp:HyperLinkField DataTextField="Folio" DataNavigateUrlFields="CveOrdenCompra" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" />
+                                        </Columns>
+                                    </asp:GridView>
+                                </td>
+                            </tr>
                            <tr align="left" id="trPaqueteriOpcionesLabel" runat="server" visible="false">
                                <td id="Td2" runat="server">Tipo de Entrega:&nbsp;</td>
                            </tr>
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2106,6 +2106,8 @@ Partial Class Ventas
                        DivDevAlm.Visible = True
                    End If

+                    'CARGA GV DE OC RELACIONADAS
+                    CargarOCRelacionadas()
                End If
            Else
                If Request("CveOS") IsNot Nothing AndAlso IsNumeric(Request("CveOS")) AndAlso Request("CveOS").ToEntero() > 0 Then
@@ -25699,4 +25701,24 @@ Partial Class Ventas
        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Entrega en mostrador", "Pendiente", CorreosCC)
        MailCls = Nothing
    End Sub
+
+    Private Sub CargarOCRelacionadas()
+        Dim GridViewPSAux As GridView = GvPS
+        Dim CveVentasDetalle As New StringBuilder()
+        For Each vd As GridViewRow In GridViewPSAux.Rows
+            Dim CveVentaDetalle As String = vd.DataKey("CveVentaDetalle")
+            CveVentasDetalle.AppendFormat("{0},", CveVentaDetalle)
+        Next
+        Dim ObjVentas As New ClsVentas()
+        If ObjVentas.GetOCRelacionadas(CveVentasDetalle.ToString) Then
+            Dim OC As DataTable = ObjVentas.DtResultados
+            If OC.Rows.Count > 0 Then
+                trOCRelacionadasLabel.Visible = True
+                trOCRelacionadas.Visible = True
+                GvOCRelacionadas.DataSource = OC
+                GvOCRelacionadas.DataBind()
+            End If
+        End If
+        ObjVentas.Dispose()
+    End Sub
 End Class