- Correccion en el codigo del B_IMP2 y el pedido sugerido!!

B4A/C_Cliente.bas

@@ -1083,7 +1083,7 @@ End Sub
 
 Sub B_IMP2_Click
 	LogColor(kh.traeDisponibleAbordo,Colors.Green)
-	If kh.traeDisponibleAbordo < 0 Then
+	If kh.traeDisponibleAbordo < 0 And la_cuenta.Text = "0" Then
 		Msgbox2Async("No tienes venta suficiente","Atención", "Modificar pedido", "", "Borrar pedido",LoadBitmap(File.DirAssets,"alert2.png"),False)
 		Wait For Msgbox_Result (result As Int)
 		If result = DialogResponse.POSITIVE Then
@@ -1094,7 +1094,7 @@ Sub B_IMP2_Click
 			B4XPages.MainPage.nota.borra_Click
 			B4XPage_Appear
 		End If
-	Else If kh.traeDisponibleAbordo >= 0 Then
+	Else
 		Imprime_ticket
 	End If
 End Sub