-entradasusados.aspx

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

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