From 1ec803786e91dd05ab75fee6580abb7813c2c285 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 1 Jul 2024 19:30:03 -0700
Subject: [PATCH] Ventas Correcion sucursales - Almacenes, auxiliar correciones
  UI

---
 Contabilidad/PopUpAuxiliar.aspx    | 205 +++++++++++++++--------------
 Contabilidad/PopUpAuxiliar.aspx.vb |   3 +-
 Ventas/Ventas.aspx.vb              |  46 ++++++-
 3 files changed, 150 insertions(+), 104 deletions(-)

diff --git a/Contabilidad/PopUpAuxiliar.aspx b/Contabilidad/PopUpAuxiliar.aspx
index 9b3616a1b..c93a408c6 100644
--- a/Contabilidad/PopUpAuxiliar.aspx
+++ b/Contabilidad/PopUpAuxiliar.aspx
@@ -79,99 +79,109 @@
                             <tr>
                                 <td>
 
-                                      <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpDatos">
-                                          <ContentTemplate>
-                                               <asp:GridView ID="GVAuxiliar" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePrePoliza, Cargo, Abono, CveReferencia, IdPoliza,CvePrePolizaOriginal" EmptyDataText="No se encontraron Movimientos de Auxiliar" ToolTip="Listado de Auxiliar Contable" CssClass="table table-striped table-advance table-hover mysmallbtn Widthall" GridLines="None">
-                                        <Columns>
-                                            <asp:TemplateField>
-                                                <HeaderTemplate>Fecha</HeaderTemplate>
-                                                <ItemTemplate>
-                                                    <asp:Literal ID="LtlFechaMovto" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField>
-                                                <HeaderTemplate>Concepto</HeaderTemplate>
-                                                <ItemTemplate>
-                                                    <asp:Literal ID="LtlConcepto" runat="server" Text='<%# Eval("ConceptoContable") %>'></asp:Literal>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField>
-                                                <HeaderTemplate>Cargo</HeaderTemplate>
-                                                <ItemTemplate>
-                                                    <asp:Literal ID="LtlCargo" runat="server" Text='<%# If(CDbl(Eval("Cargo")) = 0, "", Eval("Cargo", "{0:N2}")) %>'></asp:Literal>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField>
-                                                <HeaderTemplate>Abono</HeaderTemplate>
-                                                <ItemTemplate>
-                                                    <asp:Literal ID="LtlAbono" runat="server" Text='<%# If(CDbl(Eval("Abono")) = 0, "", Eval("Abono", "{0:N2}")) %>'></asp:Literal>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField>
-                                                <HeaderTemplate>Folio (Ref.)</HeaderTemplate>
-                                                <ItemTemplate>
-                                                    &nbsp;<asp:HyperLink ID="HplReferencia" runat="server" Text='<%# Eval("Referencia", "{0}") %>' Target="_blank"></asp:HyperLink>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField Visible="false">
-                                                <HeaderTemplate>Contabilizado</HeaderTemplate>
-                                                <ItemTemplate>
-                                                    <asp:Literal ID="LtlContabilizado" runat="server" Text='<%# Eval("Contabilizado") %>'></asp:Literal>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField>
-                                                <HeaderTemplate>Póliza</HeaderTemplate>
-                                                <ItemTemplate>
-                                                    <asp:Literal ID="LtlPoliza" runat="server"></asp:Literal>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField Visible="false">
-                                                <HeaderTemplate>Fecha Conta.</HeaderTemplate>
-                                                <ItemTemplate>
-                                                    <asp:Literal ID="LtlFechaConta" runat="server" Text='<%# Eval("FechaConta", "{0:d}") %>'></asp:Literal>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField ItemStyle-Width="8000px">
-                                                <HeaderTemplate>Referencia</HeaderTemplate>
-                                                <ItemTemplate>
-                                                    <asp:HyperLink ID="LtlConceptoInfo" runat="server" Text='<%# Eval("Concepto") %>' NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}") %>'></asp:HyperLink>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField>
-                                                <HeaderTemplate>Usuario</HeaderTemplate>
-                                                <ItemTemplate>
-                                                    <asp:Label ToolTip='<%# Eval("Usuario") %>' runat="server">
-                                                        <asp:Literal ID="LtlUsuario" runat="server" Text='<%# If(Eval("Usuario").ToString.Length > 15, Eval("Usuario").ToString.Substring(0, 15), Eval("Usuario")) %>'></asp:Literal>
-                                                    </asp:Label>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
+                                    <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpDatos">
+                                        <ContentTemplate>
+                                            <asp:GridView ID="GVAuxiliar" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePrePoliza, Cargo, Abono, CveReferencia, IdPoliza,CvePrePolizaOriginal" EmptyDataText="No se encontraron Movimientos de Auxiliar" ToolTip="Listado de Auxiliar Contable" CssClass="table table-striped table-advance table-hover mysmallbtn Widthall" GridLines="None">
+                                                <Columns>
+                                                    <%--0--%>
+                                                    <asp:TemplateField>
+                                                        <HeaderTemplate>Fecha</HeaderTemplate>
+                                                        <ItemTemplate>
+                                                            <asp:Literal ID="LtlFechaMovto" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
+                                                        </ItemTemplate>
+                                                    </asp:TemplateField>
+                                                    <%--1--%>
+                                                    <asp:TemplateField>
+                                                        <HeaderTemplate>Concepto</HeaderTemplate>
+                                                        <ItemTemplate>
+                                                            <asp:Literal ID="LtlConcepto" runat="server" Text='<%# Eval("ConceptoContable") %>'></asp:Literal>
+                                                        </ItemTemplate>
+                                                    </asp:TemplateField>
+                                                    <%--2--%>
+                                                    <asp:TemplateField>
+                                                        <HeaderTemplate>Cargo</HeaderTemplate>
+                                                        <ItemTemplate>
+                                                            <asp:Literal ID="LtlCargo" runat="server" Text='<%# If(CDbl(Eval("Cargo")) = 0, "", Eval("Cargo", "{0:N2}")) %>'></asp:Literal>
+                                                        </ItemTemplate>
+                                                    </asp:TemplateField>
+                                                    <%--3--%>
+                                                    <asp:TemplateField>
+                                                        <HeaderTemplate>Abono</HeaderTemplate>
+                                                        <ItemTemplate>
+                                                            <asp:Literal ID="LtlAbono" runat="server" Text='<%# If(CDbl(Eval("Abono")) = 0, "", Eval("Abono", "{0:N2}")) %>'></asp:Literal>
+                                                        </ItemTemplate>
+                                                    </asp:TemplateField>
+                                                    <%--4--%>
+                                                    <asp:TemplateField>
+                                                        <HeaderTemplate>Folio (Ref.)</HeaderTemplate>
+                                                        <ItemTemplate>
+                                                            &nbsp;<asp:HyperLink ID="HplReferencia" runat="server" Text='<%# Eval("Referencia", "{0}") %>' Target="_blank"></asp:HyperLink>
+                                                        </ItemTemplate>
+                                                    </asp:TemplateField>
+                                                    <%--5--%>
+                                                    <asp:TemplateField Visible="false">
+                                                        <HeaderTemplate>Contabilizado</HeaderTemplate>
+                                                        <ItemTemplate>
+                                                            <asp:Literal ID="LtlContabilizado" runat="server" Text='<%# Eval("Contabilizado") %>'></asp:Literal>
+                                                        </ItemTemplate>
+                                                    </asp:TemplateField>
+                                                    <%--6--%>
+                                                    <asp:TemplateField>
+                                                        <HeaderTemplate>Póliza</HeaderTemplate>
+                                                        <ItemTemplate>
+                                                            <asp:Literal ID="LtlPoliza" runat="server"></asp:Literal>
+                                                        </ItemTemplate>
+                                                    </asp:TemplateField>
+                                                    <%--7--%>
+                                                    <asp:TemplateField Visible="false">
+                                                        <HeaderTemplate>Fecha Conta.</HeaderTemplate>
+                                                        <ItemTemplate>
+                                                            <asp:Literal ID="LtlFechaConta" runat="server" Text='<%# Eval("FechaConta", "{0:d}") %>'></asp:Literal>
+                                                        </ItemTemplate>
+                                                    </asp:TemplateField>
+                                                    <%--8--%>
+                                                    <asp:TemplateField ItemStyle-Width="8000px">
+                                                        <HeaderTemplate>Referencia</HeaderTemplate>
+                                                        <ItemTemplate>
+                                                            <asp:HyperLink ID="LtlConceptoInfo" runat="server" Text='<%# Eval("Concepto") %>' NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}") %>'></asp:HyperLink>
+                                                        </ItemTemplate>
+                                                    </asp:TemplateField>
+                                                    <%--9--%>
+                                                    <asp:TemplateField>
+                                                        <HeaderTemplate>Usuario</HeaderTemplate>
+                                                        <ItemTemplate>
+                                                            <asp:Label ToolTip='<%# Eval("Usuario") %>' runat="server">
+                                                                <asp:Literal ID="LtlUsuario" runat="server" Text='<%# If(Eval("Usuario").ToString.Length > 15, Eval("Usuario").ToString.Substring(0, 15), Eval("Usuario")) %>'></asp:Literal>
+                                                            </asp:Label>
+                                                        </ItemTemplate>
+                                                    </asp:TemplateField>
+                                                    <%--10--%>
+                                                    <asp:TemplateField HeaderText="Eliminar" Visible="false">
+                                                        <ItemTemplate>
+                                                            <asp:LinkButton ID="LnkDesAplicar" runat="server" ToolTip="DesAplicar" Visible='<%# Eval("CveConceptoContable").ToString() = "251"  %>' AlternateText="Eliminar" CausesValidation="False" CommandName="DesAplicar" CssClass="btn btn-circle btn-sm blue" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
+                                                            <asp:LinkButton ID="imgD" runat="server" Visible='<%# Eval("Eliminable").ToString() = "1" AndAlso Eval("CvePrePoliza").ToString.Length > 0 %>' AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
+                                                        </ItemTemplate>
+                                                    </asp:TemplateField>
+                                                    <%--11--%>
+                                                    <asp:TemplateField HeaderText="Cancelar" Visible="false">
+                                                        <ItemTemplate>
+                                                            <asp:ImageButton ID="imgE" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Update" ImageUrl="/Imagenes/Btn_Delete.png" Visible='<%# Eval("Cancelable").ToString.ToEntero > 0 And Eval("CvePrePoliza").ToString.ToEntero > 0 And Eval("CveReferencia").ToString.ToEntero > 0 And (Eval("Cargo").ToString.ToDecimal > 0 OrElse Eval("Abono").ToString.ToDecimal > 0) %>' OnClientClick="javascript:return C();" />
+                                                        </ItemTemplate>
+                                                    </asp:TemplateField>
+                                                    <%--12--%>
+                                                    <asp:TemplateField HeaderText="Cancelar" Visible="false">
+                                                        <ItemTemplate>
+                                                            <asp:LinkButton ID="imgCancelar" runat="server" CausesValidation="False" OnClick="imgCancelar_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
+                                                        </ItemTemplate>
+                                                    </asp:TemplateField>
 
-                                            <asp:TemplateField HeaderText="Eliminar" Visible="false">
-                                                <ItemTemplate>
-                                                    <asp:LinkButton ID="LnkDesAplicar" runat="server" ToolTip="DesAplicar" Visible='<%# Eval("CveConceptoContable").ToString() = "251"  %>' AlternateText="Eliminar" CausesValidation="False" CommandName="DesAplicar" CssClass="btn btn-circle btn-sm blue" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
-                                                    <asp:LinkButton ID="imgD" runat="server" Visible='<%# Eval("Eliminable").ToString() = "1" AndAlso Eval("CvePrePoliza").ToString.Length > 0 %>' AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-
-                                            <asp:TemplateField HeaderText="Cancelar" Visible="false">
-                                                <ItemTemplate>
-                                                    <asp:ImageButton ID="imgE" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Update" ImageUrl="/Imagenes/Btn_Delete.png" Visible='<%# Eval("Cancelable").ToString.ToEntero > 0 And Eval("CvePrePoliza").ToString.ToEntero > 0 And Eval("CveReferencia").ToString.ToEntero > 0 And (Eval("Cargo").ToString.ToDecimal > 0 OrElse Eval("Abono").ToString.ToDecimal > 0) %>' OnClientClick="javascript:return C();" />
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-
-                                             <asp:TemplateField HeaderText="Cancelar" Visible="false">
-                                                <ItemTemplate>
-                                                    <asp:LinkButton ID="imgCancelar" runat="server"  CausesValidation="False" OnClick="imgCancelar_Click"  CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>"   />
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-
-                                        </Columns>
-                                        <RowStyle CssClass="Texto" />
-                                        <AlternatingRowStyle CssClass="TextoAlterno" />
-                                        <HeaderStyle CssClass="Titulos" />
-                                    </asp:GridView>
-                                          </ContentTemplate>
-                                       </asp:UpdatePanel>
+                                                </Columns>
+                                                <RowStyle CssClass="Texto" />
+                                                <AlternatingRowStyle CssClass="TextoAlterno" />
+                                                <HeaderStyle CssClass="Titulos" />
+                                            </asp:GridView>
+                                        </ContentTemplate>
+                                    </asp:UpdatePanel>
 
                                    
                                 </td>
@@ -201,10 +211,11 @@
                     </div>
                     <div class="modal-body">
                         <div class="row" style="align-items: center; vertical-align: middle;">
-                            <label class="col-md-4" style="max-width: 155px;">Concepto:</label>
-                            <asp:TextBox ID="TxtConceptoCancelacion" runat="server" CssClass="form-control input-sm" Width="90%" CausesValidation="true" MaxLength="100" ValidationGroup="GrpCancelarPrepoliza"></asp:TextBox>
-                            <asp:RequiredFieldValidator ID="RFVTxtConceptoCancelacion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoCancelacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpCancelarPrepoliza"></asp:RequiredFieldValidator>
-
+                            <div class="col-md-12">
+                                <label for="<%# TxtConceptoCancelacion.ClientID  %>">Concepto:</label>
+                                <asp:TextBox ID="TxtConceptoCancelacion" runat="server" CssClass="form-control" Width="90%" CausesValidation="true" MaxLength="100" ValidationGroup="GrpCancelarPrepoliza"></asp:TextBox>
+                                <asp:RequiredFieldValidator ID="RFVTxtConceptoCancelacion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoCancelacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpCancelarPrepoliza"></asp:RequiredFieldValidator>
+                            </div>
                         </div>
                         <div class="row" style="align-items: center; vertical-align: middle;">
                             <label class="col-md-4" style="max-width: 155px;">Fecha de Cancelación:</label>
@@ -214,7 +225,7 @@
                                     <asp:TextBox ID="TxtFechaCancelacion" runat="server" CssClass="form-control input-sm" Width="80px" CausesValidation="true" MaxLength="10" ValidationGroup="GrpCancelarPrepoliza"></asp:TextBox>                                    
 
                                     <span class="input-group-btn ">
-                                        <asp:LinkButton ID="ImgCalendarioDel" class="btn default input-sm" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        <asp:LinkButton ID="ImgCalendarioDel" class="btn default input-sm"  Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                     </span>
 
                                     <ajax:MaskedEditExtender ID="MEEFechaCancelacion" runat="server" TargetControlID="TxtFechaCancelacion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb
index 9cdaaff03..9c6ceb7c4 100644
--- a/Contabilidad/PopUpAuxiliar.aspx.vb
+++ b/Contabilidad/PopUpAuxiliar.aspx.vb
@@ -176,7 +176,8 @@ Partial Class PopUpAuxiliar
                 e.Row.Cells(6).Visible = False
                 e.Row.Cells(7).Visible = False
                 e.Row.Cells(8).Visible = False
-                e.Row.Cells(12).Visible = False
+                'e.Row.Cells(12).Visible = False
+                e.Row.FCLinkButton("imgCancelar").Visible = False
             End If
 
             e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index ea5dbd214..513d5729a 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7079,7 +7079,14 @@ Partial Class Ventas
                 End If
 
                 DdlSucursalCliente.Items.Clear()
-                Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltraParametros("CveClienteSucursal > 0")
+                'Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltraParametros("CveClienteSucursal > 0")
+                Dim dtts As DataTable = New DataTable
+                Dim ObjClientes As New ClsClientes
+                If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
+                    dtts = ObjClientes.DtResultados.Copy()
+                End If
+                ObjClientes.Dispose()
+
                 If dtts IsNot Nothing AndAlso dtts.Rows.Count > 0 Then
                     DdlSucursalCliente.DataSource = dtts
                     DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
@@ -13881,10 +13888,21 @@ Partial Class Ventas
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then
 
-            If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then
-                Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}")
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then
+            Dim CveClientesucursatTemp As Integer = DdlClienteSucursalSucursal()
+            If CveClientesucursatTemp > 0 Then
+
+                'Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}")
+                Dim drr As DataRow = Nothing
+                Dim ObjClientes As New ClsClientes
+                If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
+
+                    drr = ObjClientes.DtResultados.Copy().FiltroPrimero($" CveClienteSucursal = {CveClientesucursatTemp}")
+
+                End If
+                ObjClientes.Dispose()
+
                 If drr IsNot Nothing Then
                     If RBLTipoVenta.SelectedValue.Contiene("3") Then 'cuando es A-vista
                         CveAlmacenTraspasoDestino = drr("CveAlmacenAlterno").ToString.ToEntero
@@ -37662,7 +37680,14 @@ Partial Class Ventas
 
     Private Sub CargaDdlClientesSucursal()
 
-        DdlClienteSucursal.DataSource = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa)
+        'DdlClienteSucursal.DataSource = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa)
+
+        Dim ObjClientes As New ClsClientes
+        If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
+            DdlClienteSucursal.DataSource = ObjClientes.DtResultados.Copy()
+        End If
+        ObjClientes.Dispose()
+
         DdlClienteSucursal.DataBind()
         DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
@@ -38169,7 +38194,16 @@ Partial Class Ventas
 
         If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
             If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then
-                Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}")
+
+                'Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}")
+
+                Dim drr As DataRow = Nothing
+                Dim ObjClientes As New ClsClientes
+                If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
+                    drr = ObjClientes.DtResultados.Copy().FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}")
+                End If
+                ObjClientes.Dispose()
+
                 If drr IsNot Nothing Then
                     If RBLTipoVenta.SelectedValue.Contiene("6") Then
                         tCveAlmacenExistencia = drr("CveAlmacenAlterno").ToString.ToEntero