-entradasusados.aspx

-- pv. mensaje de descuento por ajuste
-- clientes, generar RNC por bonificación

Acumuladores/EntradasUsados.aspx

@@ -0,0 +1,19 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntradasUsados.aspx.vb" Inherits="Acumuladores_EntradasUsados" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
+</asp:Content>
+

Acumuladores/EntradasUsados.aspx.vb

@@ -0,0 +1,5 @@
+
+Partial Class Acumuladores_EntradasUsados
+    Inherits System.Web.UI.Page
+
+End Class

App_Code/ClsAcumuladores.vb

@@ -840,6 +840,33 @@ Public Class ClsAcumuladores
         Return Retorno
     End Function
 
+    Public Function EntradasUsadosGet(CveAlmacen As Integer, FechaI As Date, FechaF As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        'Data = New DataTable
+
+        SqlDataAdapter("PA_Acum_EntradasUsadosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaI
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaF
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As SqlException
+
+            OnError("Ocurrió un error al consultar los movimientos. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+
+        End Try
+
+        Return Retorno
+    End Function
+
+
 
 
 #Region " IDisposable Support "

App_Code/ClsPaginas.vb

@@ -4093,6 +4093,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Inventarios/RepTraspasoEmitido.aspx".ToUpper(), 891)
             PaginaDict.Add("/Inventarios/KardexSeccionAlmacen.aspx".ToUpper(), 892)
             PaginaDict.Add("/Inventarios/RepTraspasoAlmacen.aspx".ToUpper(), 688)
+
 #End Region
 #Region "MF"
             PaginaDict.Add("/MF/BitacoraDiaria.aspx".ToUpper(), 801)
@@ -4579,6 +4580,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Acumuladores/CatTiposUso.aspx".ToUpper(), 1034)
             PaginaDict.Add("/Acumuladores/CatFoliosGarantia.aspx".ToUpper(), 1035)
             PaginaDict.Add("/Acumuladores/CatGarantiasMeses.aspx".ToUpper(), 1036)
+            PaginaDict.Add("/Acumuladores/EntradasUsados.aspx".ToUpper(), 543)
 
 
             'Antes de aquí.

Ventas/Clientes.aspx.vb

@@ -8745,7 +8745,7 @@ Partial Class Clientes
 
         'If ObjFactura.CveCliente > 0 Then
         '    If TmpDT.Rows.Count > 0 Then
-        '        Dim Retorno = ObjFactura.EmitirFactura()
+        '        Dim Retorno = ObjFactura.EmitirFactura(false)
         '        For Each Mensaje In Retorno.Mensajes
         '            Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion))
         '        Next
@@ -8792,14 +8792,16 @@ Partial Class Clientes
 
         CreaObjetosVenta(2)
 
-        'If ObjFactura.CveCliente > 0 Then
-        '    If TmpDT.Rows.Count > 0 Then
-        '        Dim Retorno = ObjFactura.EmitirFactura()
-        '        For Each Mensaje In Retorno.Mensajes
-        '            Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion))
-        '        Next
-        '    End If
-        'End If
+        If ObjFactura.CveCliente > 0 Then
+            If TmpDT.Rows.Count > 0 Then
+                Dim Retorno = ObjFactura.EmitirFactura(False)
+                For Each Mensaje In Retorno.Mensajes
+                    Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion))
+                Next
+            End If
+        End If
+
+        Alert("Listo")
 
         CargaUsados()
 
@@ -8857,7 +8859,7 @@ Partial Class Clientes
                     e.Row.FCCheckBox("ChkCargo").Visible = False
                 Else
                     e.Row.FCCheckBox("ChkCargo").Checked = False
-                    e.Row.FCCheckBox("ChkCargo").Visible = True
+                    e.Row.FCCheckBox("ChkCargo").Visible = False 'True
                 End If
 
                 If FacturadoBonificacion Then
@@ -9647,29 +9649,29 @@ Partial Class Clientes
     '        ObjVentas.Commit()
     '        CargaUsados()
 
-    '        Dim DtDetallesVenta As New DataTable
+    '        'Dim DtDetallesVenta As New DataTable
 
-    '        If ObjVentas.GetVentaDetalle(CveVenta) Then
+    '        'If ObjVentas.GetVentaDetalle(CveVenta) Then
 
-    '            DtDetallesVenta = ObjVentas.DtResultados
-    '            'CreaObjetosVenta(CveVenta, Serie, Folio, SubTotal, Iva, DtDetallesVenta)
+    '        '    DtDetallesVenta = ObjVentas.DtResultados
+    '        '    'CreaObjetosVenta(CveVenta, Serie, Folio, SubTotal, Iva, DtDetallesVenta)
 
-    '            ObjFactura.Timbre = PreParaTimbre(ObjFactura, ObjFactura.CveSubProyecto)
+    '        '    ObjFactura.Timbre = PreParaTimbre(ObjFactura, ObjFactura.CveSubProyecto)
 
-    '            Dim ObjTimbrado As New Timbrado
-    '            Dim SeTimbro As Boolean = False
+    '        '    Dim ObjTimbrado As New Timbrado
+    '        '    Dim SeTimbro As Boolean = False
 
-    '            SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
+    '        '    SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
 
-    '            If SeTimbro Then
-    '                Alert("Se timbro correctamente")
-    '            Else
-    '                Alert("No se pudo timbrar,  intente mas tarde.", TipoMensaje.MsgError)
-    '            End If
+    '        '    If SeTimbro Then
+    '        '        Alert("Se timbro correctamente")
+    '        '    Else
+    '        '        Alert("No se pudo timbrar,  intente mas tarde.", TipoMensaje.MsgError)
+    '        '    End If
 
-    '        Else
-    '            Alert("No se pudo timbrar, no se pudieron obtener los detalles de la venta.", TipoMensaje.MsgError)
-    '        End If
+    '        'Else
+    '        '    Alert("No se pudo timbrar, no se pudieron obtener los detalles de la venta.", TipoMensaje.MsgError)
+    '        'End If
 
     '    End If
 

Ventas/PV.aspx.vb

@@ -5393,6 +5393,7 @@ Partial Class PV
             DivDatosVenta.Attributes.Add("class", "col-md-6")
             TxtPrecio.Attributes.Add("onKeyUp", $"CambiaAjuste(this,{TxtPrecio.ClientID});")
             TxtPrecio.Text = TxtPrecio.Text
+            TxtObsPS.Text = "Descuento por garantía"
         Else
             For Each Gvr As GridViewRow In GvRecepcionUsados.Rows
                 If Gvr.RowType = DataControlRowType.DataRow Then

Ventas/Ventas.aspx

@@ -5871,9 +5871,8 @@
                             <div class="col-md-2">
                             </div>
                             <div class="col-md-4">
-                                <button type="button" class="btn btn-primary" data-toggle="modal" data-target="#ModalAplicarRemisionesNC">
-                                    Aplicar Remisiones
-                                </button>
+                                <asp:Button  ID = "BtnModalAplicarRemisionesNC" runat="server" OnClick="BtnModalAplicarRemisionesNC_Click" class="btn btn-primary" data-toggle="modal" data-target="#ModalAplicarRemisionesNC"/>
+                                     
                             </div>
                             <div class="col-md-6">
                             </div>

Ventas/Ventas.aspx.vb

@@ -20872,6 +20872,7 @@ Partial Class Ventas
         End If
         ObjMovtos.Dispose()
         GvRemisionesNC.DataBind()
+        UpModalRemisionesNC.Update()
     End Sub
     Private Sub CargaDescRNC()
 
@@ -23780,4 +23781,8 @@ Partial Class Ventas
     End Sub
 #End Region
 
+    Protected Sub BtnModalAplicarRemisionesNC_Click(sender As Object, e As EventArgs)
+        CargaRNC()
+        RegistraScript("$('#ModalAplicarRemisionesNC').modal()")
+    End Sub
 End Class