From 80ab86114698b1134081e6a1c0ed4720555acf94 Mon Sep 17 00:00:00 2001
From: Rene Molina <Rene.Molina@adssistemas.mx>
Date: Fri, 31 Jan 2020 13:26:15 -0700
Subject: [PATCH] - ventas relacionadas

---
 App_Code/ClsVentas.vb               | 40 ++++++++++++++++++++++++++++-
 Contratos/Contrato.aspx             |  1 +
 Inicio.aspx                         |  2 ++
 Inicio.aspx.vb                      | 10 +++++---
 Inventarios/RecepcionUsados.aspx.vb |  2 +-
 5 files changed, 50 insertions(+), 5 deletions(-)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 9a0fd3c83..0d8ac4700 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -2262,6 +2262,43 @@ Public Class ClsVentas
 
 #End Region
 
+
+
+#Region "Firmas"
+
+    Public Function GetVentasRelacionadas(CveVenta As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_VentasRelacionadasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las ventas relacionadas. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function AddVentasRelacionadas(CveVenta As Integer, CveVentaRelacionada As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_VentasRelacionadasAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CveVentaRelacionada", SqlDbType.Int).Value = CveVentaRelacionada
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar las ventas relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+#End Region
+
 #Region " I M P U E S T O S L O C A L E S"
     Public Function AddImpuestosLocales(ImpuestoLocal As String, Porcentaje As Double, Orden As Integer, TipoImpuesto As Integer, Estatus As Integer, IdCtaContable As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
@@ -4233,7 +4270,7 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function UpdateVentaUsadoRecibido(CveVenta As Integer, CvePS As Integer, Recibido As Boolean) As Boolean
+    Public Function UpdateVentaUsadoRecibido(CveVenta As Integer, CvePS As Integer, Recibido As Boolean, CveMovimiento As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_VentasUsadosRecibidoUpdate", CommandType.StoredProcedure)
@@ -4242,6 +4279,7 @@ Public Class ClsVentas
             .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@Recibido", SqlDbType.Bit).Value = Recibido
+            .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
         End With
 
         Try
diff --git a/Contratos/Contrato.aspx b/Contratos/Contrato.aspx
index dbe3e9d5b..c75733b7f 100644
--- a/Contratos/Contrato.aspx
+++ b/Contratos/Contrato.aspx
@@ -2247,6 +2247,7 @@
                                                 <asp:HyperLinkField HeaderText="Fecha" DataTextField="Fecha" Target="_blank" ItemStyle-Width="10%" ItemStyle-CssClass="Texto" DataTextFormatString="{0:d}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                                                 <asp:HyperLinkField HeaderText="Sucursal" DataTextField="SubProyecto" Target="_blank" ItemStyle-Width="15%" ItemStyle-CssClass="Texto Izquierda" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                                                 <asp:HyperLinkField HeaderText="Cliente" DataTextField="Cliente" Target="_blank" ItemStyle-Width="35%" ItemStyle-CssClass="Texto Izquierda" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
+                                                <asp:HyperLinkField HeaderText="Cantidad" DataTextField="Cantidad" Target="_blank" ItemStyle-Width="5%" ItemStyle-CssClass="Texto Derecha" DataTextFormatString="{0:###,##0.00##}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                                                 <asp:HyperLinkField HeaderText="Total" DataTextField="Total" Target="_blank" ItemStyle-Width="20%" ItemStyle-CssClass="Texto Derecha" DataTextFormatString="{0:###,###,##0.00##}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                                             </Columns>
                                         </asp:GridView>
diff --git a/Inicio.aspx b/Inicio.aspx
index f2f896e76..6ccfe6a7b 100644
--- a/Inicio.aspx
+++ b/Inicio.aspx
@@ -604,6 +604,7 @@
 
                 <div class="modal-body">
                     <div align="right">
+                        <asp:Label ID="LblVentasPUE" runat="server" Text="" Font-Italic="True"></asp:Label>
                         <input type="text" id="TxtBusq" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusq','{0}')", GvVtaPUE.ClientID) %>" style="display: inline-block; width: 150px;" />
                         <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusq','{0}')", GvVtaPUE.ClientID) %>" style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                     </div>
@@ -792,6 +793,7 @@
 
                 <div class="modal-body">
                     <div style="text-align:right">
+                        <asp:Label ID="LblComprasPUE" runat="server" Text="" Font-Italic="True"></asp:Label>
                         <input type="text" id="TxtBus" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBus','{0}')", GvCompPUE.ClientID) %>" style="display: inline-block; width: 150px;" />
                         <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBus','{0}')", GvCompPUE.ClientID) %>" style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                     </div>
diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index 822217cdb..eca249ee9 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -203,7 +203,9 @@ Partial Class Inicio
 
     Private Sub MuestraVentasPUE()
         Dim objVentas As New ClsVentas
-        If objVentas.GetPUESinPago(Now.AddYears(-4), Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+        Dim FechaInicio As Date = Now.AddYears(-2)
+        LblVentasPUE.Text = "Facturas apartir de " & FechaInicio.ToShortDateString
+        If objVentas.GetPUESinPago(FechaInicio, Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
             If objVentas.DtResultados.Rows.Count > 0 Then
                 GvVtaPUE.DataSource = objVentas.DtResultados
 
@@ -216,8 +218,10 @@ Partial Class Inicio
     End Sub
 
     Private Sub MuestraComprasPUE()
-        Dim objCompras As New ClsCompras
-        If objCompras.GetPUESinPago(Now.AddYears(-4), Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+        Dim objCompras As New ClsCompras
+        Dim FechaInicio As Date = Now.AddYears(-2)
+        LblComprasPUE.Text = "Facturas apartir de " & FechaInicio.ToShortDateString
+        If objCompras.GetPUESinPago(FechaInicio, Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
             If objCompras.DtResultados.Rows.Count > 0 Then
                 GvCompPUE.DataSource = objCompras.DtResultados
 
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index 5c4248dfb..511cd68a0 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -1138,7 +1138,7 @@ Partial Class Inventarios_RecepcionUsados
                                 Exit For
                             End If
 
-                            If CveVenta > 0 AndAlso Not ObjVentas.UpdateVentaUsadoRecibido(CveVenta, Dr("CvePS").ToString.ToEntero, True) Then
+                            If CveVenta > 0 AndAlso Not ObjVentas.UpdateVentaUsadoRecibido(CveVenta, Dr("CvePS").ToString.ToEntero, True, CveMovimiento) Then
                                 Mensaje = "Error al actualizar el recibo de los usados"
                                 ErrorMovInv = True
                                 Exit For