-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