From 86481c478bc829bb2ec0c58d0806d16d84413946 Mon Sep 17 00:00:00 2001
From: Rene Molina <Rene.Molina@adssistemas.mx>
Date: Thu, 27 Feb 2020 08:33:22 -0700
Subject: [PATCH 1/7]  inventarios

---
 App_Code/ClsInventarios.vb                  |  3 +-
 Inventarios/KardexAlmacenHorizontal.aspx    | 49 +++++++++++++++++----
 Inventarios/KardexAlmacenHorizontal.aspx.vb |  4 +-
 vwd.webinfo                                 |  2 +
 4 files changed, 46 insertions(+), 12 deletions(-)

diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 7b8d53ecf..32297767a 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1472,7 +1472,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, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0) 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, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, Optional Orden As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
@@ -1490,6 +1490,7 @@ Public Class ClsInventarios
             .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedor
             .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
             .Add("@ExistenciasCondicion", SqlDbType.Int).Value = CondicionExistencias
+            .Add("@Orden", SqlDbType.Int).Value = Orden
         End With
 
         Try
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index 397af66ab..b0c469f31 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -58,6 +58,26 @@
             .psagregar > div.codigo > input[type="submit"] {
                 display: none;
             }
+
+        @media (min-width: 991px) {
+            .textfilter {
+                max-width: 80px;
+            }
+
+            .textfilter2 {
+                max-width: 70px;
+            }
+
+            .dateFilter {
+                min-width: 115px;
+            }
+        }
+
+        @media (min-width: 991px) and (max-width: 1400px) {
+            .titlefiltrosmedia .col-md-3 {
+                width: 22%;
+            }
+        }
     </style>
 </asp:Content>
 
@@ -87,18 +107,18 @@
                         <a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
                         <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
                     </div>
-                    <div class="titlefiltros caption ">
+                    <div class="titlefiltros titlefiltrosmedia  caption ">
                         <div class="row" style="padding-top: 10px; position: relative;">
-                            <div class="col-md-1 truncate">Proveedor</div>
+                            <div class="col-md-1 truncate textfilter">Proveedor</div>
                             <div class="col-md-3">
                                 <ADS:Dropdownlost ID="DdlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" Width="100%" CssClassDdl="select2me" CssStyle="width: 100%;"></ADS:Dropdownlost>
                             </div>
-                            <label class="col-md-1 truncate">Producto:</label>
-                            <div class="col-md-3" style="min-width: 250px; max-width: 300px;">
-                                <ADS:Dropdownlost ID="ddlProducto2" runat="server" AutoPostBack="False" DataTextField="PSCodigo" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width: 250px; "></ADS:Dropdownlost>
+                            <label class="col-md-1 truncate textfilter2">Producto:</label>
+                            <div class="col-md-3">
+                                <ADS:Dropdownlost ID="ddlProducto2" runat="server" AutoPostBack="False" DataTextField="PSCodigo" DataValueField="CvePS" CssClassDdl="select2me" Width="100%" CssStyle="width: 100%; "></ADS:Dropdownlost>
                             </div>
-                            <label class="col-md-1">Fecha Fin:</label>
-                            <div class="col-md-1">
+                            <label class="col-md-1 textfilter">Fecha Fin:</label>
+                            <div class="col-md-1" style="min-width: 110px;">
                                 <div style="display: inline-block; vertical-align: text-bottom;">
                                     <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
                                         <asp:TextBox ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 80px" MaxLength="10"></asp:TextBox>
@@ -110,7 +130,7 @@
                                     <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>
+                            <label class="col-md-1 truncate textfilter2">Producto:</label>
                             <div class="col-md-1">
                                 <asp:DropDownList ID="DdlExistencia" runat="server" CssClass="select2me">
                                     <asp:ListItem Text="Con existencia" Value="2" />
@@ -146,7 +166,7 @@
                         </div>
                         <label class="col-md-1 truncate">Tránsito?:</label>
                         <div class="col-md-1">
-                            <asp:DropDownList ID="DdlIncluyeTransitorios" CssClass="select2me" runat="server" AppendDataBoundItems="true"  Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
+                            <asp:DropDownList ID="DdlIncluyeTransitorios" CssClass="select2me" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
                                 <asp:ListItem Text="No" Value="0" Selected="True"></asp:ListItem>
                                 <asp:ListItem Text="Si (Origen)" Value="1"></asp:ListItem>
                                 <asp:ListItem Text="Si (Destino)" Value="2"></asp:ListItem>
@@ -154,6 +174,17 @@
                             <%--<asp:CheckBox ID="ChkIncluyeTransitorios" runat="server" Checked="false" />--%>
                         </div>
                     </div>
+                    <asp:Panel ID="pnlOrden" runat="server" CssClass="row">
+                        <label class="col-md-1 truncate">Orden:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlOrden" runat="server" CssClass="select2me" Width="100%">
+                                    <asp:ListItem Text="Seleccione" Value="-1" Selected="True" />
+                                    <asp:ListItem Text="Marca,Modelo,Rin,Medida de Barrenación" Value="1" />
+                                    <asp:ListItem Text="Familia,Marca,Rin,Medida de Barrenación" Value="2" />
+                                    <asp:ListItem Text="Familia,Linea,Rin,Medida de Barrenación" Value="3" />
+                                </asp:DropDownList>
+                            </div>
+                    </asp:Panel>
                 </div>
             </div>
         </ContentTemplate>
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index b8c30dfb3..92b34df1c 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -13,7 +13,7 @@ Partial Class Inventarios_KardexAlmacen
             TxtFechaF.Text = Now.ToShortDateString
             CargaCombos()
             ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
-
+            pnlOrden.Visible = UsuarioActual.CveEmpresa = 141
             If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
             ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
         End If
@@ -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(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue) Then
+        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero()) Then
             If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
                 dt = ObjMovimientos.DtResultados
                 Dim ListaBorrar As New List(Of DataColumn)
diff --git a/vwd.webinfo b/vwd.webinfo
index 2515705b1..bfda47f43 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -21,6 +21,8 @@
   
     
   
+    
+  
     <Service ID="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}"/>
   </StartupServices>
 </VisualWebDeveloper>
\ No newline at end of file

From 9fdfbcdd7250e0f77584db3a4f69018a4bef080f Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Mon, 2 Mar 2020 12:56:50 -0700
Subject: [PATCH 2/7] - checa la base de iva, para ver si lo agrega

---
 Ventas/Ventas.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 9ecd8ab82..bc28592cc 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8803,8 +8803,8 @@ Partial Class Ventas
             'siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura
             ' If drr("ImporteIVA").ToString.ToDouble > 0 Then
 
-            'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos
-            If Timbre.Comprobante.Total > 0 Then
+            'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos, y si la BASE de calculo es mayor a cero
+            If Timbre.Comprobante.Total > 0 AndAlso concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional > 0 Then
                 concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})
             End If
 

From 91b0b7772f50cc9dce44708b6c9139ac1986c47d Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 3 Mar 2020 11:47:06 -0700
Subject: [PATCH 3/7] - cambio en dropdownlost

---
 CxC/RepCxC.aspx.vb        |  8 +++-----
 CxC/RepCxCDetalle.aspx.vb | 10 ++++------
 2 files changed, 7 insertions(+), 11 deletions(-)

diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb
index 34a9b77b2..7c3b73753 100644
--- a/CxC/RepCxC.aspx.vb
+++ b/CxC/RepCxC.aspx.vb
@@ -114,13 +114,11 @@ Partial Class RepCxC
 #Region "CARGAS"
     Private Sub CargaCombos()
         'CargaClientes
-        If UsuarioActual.CveEmpresa = 119 Then
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
             DdlClientesWS.setEsWebService(True)
         Else
             DdlClientesWS.setEsWebService(False)
-            DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
-            DdlClientesWS.DataBind()
-            DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+            CargaClientes()
         End If
         'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
         'DdlClientes.DataBind()
@@ -1433,7 +1431,7 @@ Partial Class RepCxC
     End Sub
 
     Private Sub CargaClientes()
-        If UsuarioActual.CveEmpresa <> 119 Then
+        If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
             DdlClientesWS.ddl.Items.Clear()
             DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1")
             DdlClientesWS.DataBind()
diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb
index 9795b367f..8b2f794e6 100644
--- a/CxC/RepCxCDetalle.aspx.vb
+++ b/CxC/RepCxCDetalle.aspx.vb
@@ -205,13 +205,11 @@ Partial Class RepCxCDetalle
 
         'CargaClientes
         'CargaClientes
-        If UsuarioActual.CveEmpresa = 119 Then
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
             DdlClientesWS.setEsWebService(True)
         Else
-            DdlClientesWS.setEsWebService(False)
-            DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
-            DdlClientesWS.DataBind()
-            DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlClientesWS.setEsWebService(False)
+            CargaClientes()
         End If
         'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
         'DdlClientes.DataBind()
@@ -983,7 +981,7 @@ Partial Class RepCxCDetalle
     End Sub
 
     Private Sub CargaClientes()
-        If UsuarioActual.CveEmpresa <> 119 Then
+        If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
             DdlClientesWS.ddl.Items.Clear()
             DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1")
             DdlClientesWS.DataBind()

From 8e7287a941d2bad27cdae95790fab16f19418358 Mon Sep 17 00:00:00 2001
From: Rene Molina <Rene.Molina@adssistemas.mx>
Date: Wed, 4 Mar 2020 09:51:47 -0700
Subject: [PATCH 4/7]

---
 Inventarios/KardexAlmacenHorizontal.aspx    | 2 +-
 Inventarios/KardexAlmacenHorizontal.aspx.vb | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index b0c469f31..e0035b667 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -174,7 +174,7 @@
                             <%--<asp:CheckBox ID="ChkIncluyeTransitorios" runat="server" Checked="false" />--%>
                         </div>
                     </div>
-                    <asp:Panel ID="pnlOrden" runat="server" CssClass="row">
+                    <asp:Panel ID="pnlOrden" runat="server" CssClass="row"> 
                         <label class="col-md-1 truncate">Orden:</label>
                             <div class="col-md-2">
                                 <asp:DropDownList ID="DdlOrden" runat="server" CssClass="select2me" Width="100%">
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index 92b34df1c..32a4a710e 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -10,7 +10,7 @@ Partial Class Inventarios_KardexAlmacen
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             'TxtFechaI.Text =  Now.AddMonths(-1).ToShortDateString
-            TxtFechaF.Text = Now.ToShortDateString
+            TxtFechaF.Text = Now.ToShortDateString
             CargaCombos()
             ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
             pnlOrden.Visible = UsuarioActual.CveEmpresa = 141

From 47921db4db269cfd3bbf5baaf1b5b3051472fbe8 Mon Sep 17 00:00:00 2001
From: Rene Molina <Rene.Molina@adssistemas.mx>
Date: Wed, 4 Mar 2020 10:18:55 -0700
Subject: [PATCH 5/7]

---
 App_Code/ClsInventarios.vb                  |  5 +++--
 Inventarios/KardexAlmacenHorizontal.aspx    | 14 ++++++++++++--
 Inventarios/KardexAlmacenHorizontal.aspx.vb | 12 ++++++++++--
 3 files changed, 25 insertions(+), 6 deletions(-)

diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 32297767a..2a6016ebd 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1472,7 +1472,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, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, Optional Orden As Integer = -1) 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, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, Optional Orden As Integer = -1, Optional CveMarca As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
@@ -1490,7 +1490,8 @@ Public Class ClsInventarios
             .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedor
             .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
             .Add("@ExistenciasCondicion", SqlDbType.Int).Value = CondicionExistencias
-            .Add("@Orden", SqlDbType.Int).Value = Orden
+            .Add("@Orden", SqlDbType.Int).Value = Orden
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
         End With
 
         Try
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index e0035b667..333333643 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -110,12 +110,22 @@
                     <div class="titlefiltros titlefiltrosmedia  caption ">
                         <div class="row" style="padding-top: 10px; position: relative;">
                             <div class="col-md-1 truncate textfilter">Proveedor</div>
-                            <div class="col-md-3">
+                            <div class="col-md-2">
                                 <ADS:Dropdownlost ID="DdlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" Width="100%" CssClassDdl="select2me" CssStyle="width: 100%;"></ADS:Dropdownlost>
                             </div>
                             <label class="col-md-1 truncate textfilter2">Producto:</label>
-                            <div class="col-md-3">
+                            <div class="col-md-2">
                                 <ADS:Dropdownlost ID="ddlProducto2" runat="server" AutoPostBack="False" DataTextField="PSCodigo" DataValueField="CvePS" CssClassDdl="select2me" Width="100%" CssStyle="width: 100%; "></ADS:Dropdownlost>
+                            </div
+                            <div class="col-md-2">
+                                <div class="row">
+                                    <label class="col-md-2 truncate">Marca:</label>
+                                    <div class="col-md-10">
+                                        <asp:DropDownList ID="DdlMarca" runat="server" CssClass="select2me " Style="width: 100px !important;" DataTextField="Marca" DataValueField="CveMarca">
+                                            <asp:ListItem Text="Todas" Value="-1"></asp:ListItem>
+                                        </asp:DropDownList>
+                                    </div>
+                                </div>
                             </div>
                             <label class="col-md-1 textfilter">Fecha Fin:</label>
                             <div class="col-md-1" style="min-width: 110px;">
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index 32a4a710e..d85e92bbb 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -24,7 +24,15 @@ Partial Class Inventarios_KardexAlmacen
     Private Sub CargaCombos()
 
         CargaFuncionalidad105()
-        CargaPS()
+        CargaPS()
+
+        Using ObjPS As New ClsProductosServicios
+            If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+                DdlMarca.DataSource = ObjPS.DtResultados.Copy()
+            End If
+        End Using
+        DdlMarca.DataBind()
+        DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
 
         ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
         ddlAlmacen.DataBind()
@@ -128,7 +136,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(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero()) Then
+        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), CveMarca:=DdlMarca.SelectedValue.ToEntero()) Then
             If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
                 dt = ObjMovimientos.DtResultados
                 Dim ListaBorrar As New List(Of DataColumn)

From a03487fce4c464e0f2c90ff7897197165d74fca4 Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Wed, 4 Mar 2020 10:32:05 -0700
Subject: [PATCH 6/7]

---
 Inventarios/KardexAlmacenHorizontal.aspx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index 333333643..f7338501b 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -116,7 +116,7 @@
                             <label class="col-md-1 truncate textfilter2">Producto:</label>
                             <div class="col-md-2">
                                 <ADS:Dropdownlost ID="ddlProducto2" runat="server" AutoPostBack="False" DataTextField="PSCodigo" DataValueField="CvePS" CssClassDdl="select2me" Width="100%" CssStyle="width: 100%; "></ADS:Dropdownlost>
-                            </div
+                            </div>
                             <div class="col-md-2">
                                 <div class="row">
                                     <label class="col-md-2 truncate">Marca:</label>

From 1ef03c68fbfe5495ef02b69f7b666ffacb983bb6 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Wed, 4 Mar 2020 10:43:02 -0700
Subject: [PATCH 7/7] *-ventas  incluya ing, y dev, en las NC relacionadas -
 columnas neuvas en ingreso detalle

---
 Ventas/RepIngresosDetalle.aspx | 9 +++++++--
 Ventas/Ventas.aspx.vb          | 2 +-
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/Ventas/RepIngresosDetalle.aspx b/Ventas/RepIngresosDetalle.aspx
index acc505d4d..942f7bbe0 100644
--- a/Ventas/RepIngresosDetalle.aspx
+++ b/Ventas/RepIngresosDetalle.aspx
@@ -188,16 +188,21 @@
                             <asp:Label runat="server" Text='<%# Eval("Total", "${0:N2}")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Amortización" ItemStyle-HorizontalAlign ="Right">
+                    <asp:TemplateField HeaderText="Amortización"  >
                         <ItemTemplate>
                             <asp:Literal runat="server" Text='<%#If(Eval("EsAmortizacion").ToString = "True", "Si", "No")%>'> </asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Fecha Venta" ItemStyle-HorizontalAlign ="Right">
+                    <asp:TemplateField HeaderText="Fecha Venta"  >
                         <ItemTemplate>
                             <asp:Literal runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'> </asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                     <asp:TemplateField HeaderText="NC"  >
+                        <ItemTemplate>
+                            <asp:Literal runat="server" Text='<%# Eval("SerieFolioNC") %>'> </asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index bc28592cc..a9e07ac93 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -9315,7 +9315,7 @@ Partial Class Ventas
                            Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion) Then
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
         Else
-            If factura.TipoDocto.Contiene("Dev") Or DtVentasNC IsNot Nothing Then
+            If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Then
                 If DtVentasNC IsNot Nothing Then
                     For Each row As DataRow In DtVentasNC.Rows
                         If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, row("CveVenta").ToString.ToEntero) Then