Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

2020-01-31 14:02:41 -07:00
parent fc939e0998 5346e6e018
commit 75b9f8715e
5 changed files with 50 additions and 5 deletions
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -2270,6 +2270,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
@@ -4241,7 +4278,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)
@@ -4250,6 +4287,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
--- 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>
--- 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>
--- 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

--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -1140,7 +1140,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