From 69c9ba36d1b0492c920d57cf00e8930b7d123be8 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 5 Dec 2019 10:16:04 -0700
Subject: [PATCH 1/2] Concatenar codigoCliente y nombreCliente y en clientes
 estaba enable = false en el checkbox de cargo usado

---
 Empresas/140/Formatos/Factura.rdlc | 14 ++++++++++++++
 Ventas/Clientes.aspx               |  2 +-
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/Empresas/140/Formatos/Factura.rdlc b/Empresas/140/Formatos/Factura.rdlc
index 02372f4e0..35ca50a70 100644
--- a/Empresas/140/Formatos/Factura.rdlc
+++ b/Empresas/140/Formatos/Factura.rdlc
@@ -601,6 +601,20 @@
                   <FontSize>9pt</FontSize>
                 </Style>
               </TextRun>
+              <TextRun>
+                <Value> - </Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!ClienteNombre.Value</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
             </TextRuns>
             <Style>
               <TextAlign>Left</TextAlign>
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 8c43686a8..5f9618df9 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -594,7 +594,7 @@
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright" runat="server" id="DivCargoUsado" visible="false">
                                             <label>Cargo Usado:</label>
-                                            <asp:CheckBox ID="ChkCargoUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" Enabled="false"  />
+                                            <asp:CheckBox ID="ChkCargoUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" Enabled="true"  />
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright" runat="server" id="DivBonificacionUsado" visible="false">
                                             <label>Bonificación Usado:</label>

From 2be6becfa7a922afbb3f92e9abcc7eba53e9c8c3 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 5 Dec 2019 14:00:01 -0700
Subject: [PATCH 2/2] agreando combo para las existencias en los almacenes

---
 App_Code/ClsInventarios.vb                  |  3 ++-
 Inventarios/KardexAlmacenHorizontal.aspx    | 10 ++++++++++
 Inventarios/KardexAlmacenHorizontal.aspx.vb | 10 +++++-----
 3 files changed, 17 insertions(+), 6 deletions(-)

diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 649c5f07f..01e316e08 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1453,7 +1453,7 @@ Public Class ClsInventarios
         Return Retorno
 
     End Function
-    Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
@@ -1469,6 +1469,7 @@ Public Class ClsInventarios
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedor
             .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
+            .Add("@ExistenciasCondicion", SqlDbType.Int).Value = CondicionExistencias
         End With
 
         Try
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index 74573a093..3b705d02a 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -110,6 +110,14 @@
                                     <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                                 </div>
                             </div>
+                            <label class="col-md-1 truncate" style="width:120px">Producto:</label>
+                            <div class="col-md-1">
+                                <asp:DropDownList ID="DdlExistencia" runat="server" CssClass="select2me">
+                                    <asp:ListItem Text="Todos" Value="1" />
+                                    <asp:ListItem Text="Con existencia" Value="2" />
+                                    <asp:ListItem Text="Sin existencia" Value="3" />
+                                </asp:DropDownList>
+                            </div>
                         </div>
                     </div>
                 </div>
@@ -169,6 +177,7 @@
                                 <asp:TemplateField ItemStyle-HorizontalAlign="Left">
                                     <HeaderTemplate>
                                         Código
+                                   
                                     </HeaderTemplate>
                                     <ItemTemplate>
                                         <div class='truncate' style='width: 200px;'>
@@ -179,6 +188,7 @@
                                 <asp:TemplateField ItemStyle-HorizontalAlign="Left">
                                     <HeaderTemplate>
                                         Producto
+                                   
                                     </HeaderTemplate>
                                     <ItemTemplate>
                                         <div class='truncate' style='width: 200px;'>
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index e73e41295..05f4dc33f 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -128,7 +128,7 @@ Partial Class Inventarios_KardexAlmacen
         Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
         Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
 
-        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), If(ChkIncluyeTransitorios.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), If(ChkIncluyeTransitorios.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue) Then
             If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
                 dt = ObjMovimientos.DtResultados
                 Dim ListaBorrar As New List(Of DataColumn)
@@ -137,9 +137,9 @@ Partial Class Inventarios_KardexAlmacen
                     For Each Dr As DataRow In dt.Rows
                         TotColumna += Dr.Item(index).ToString.ToDouble
                     Next
-                    If Not TotColumna > 0 Then
-                        ListaBorrar.Add(dt.Columns(index))
-                    End If
+                    'If Not TotColumna > 0 Then
+                    '    ListaBorrar.Add(dt.Columns(index))
+                    'End If
                 Next
                 For Each item As DataColumn In ListaBorrar
                     dt.Columns().Remove(item)
@@ -226,7 +226,7 @@ Partial Class Inventarios_KardexAlmacen
         e.Row.Cells(2).Visible = False
         e.Row.Cells(3).Visible = False
         If e.Row.RowType = DataControlRowType.Header Then
-            e.Row.Cells(6).ToolTip = "Costo Promedio"
+            'e.Row.Cells(6).ToolTip = "Costo"
         End If
     End Sub