v 5.09.14

B4A/C_Cliente.bas

@@ -103,6 +103,7 @@ Sub Class_Globals
 	Dim tipo_abonox As String
 	Private b_cancel_pagare As Button
 	Dim NOTA As String
+	Private B_IMP2 As Button
 End Sub
 
 'You can add more parameters here.
@@ -413,6 +414,20 @@ Sub B4XPage_Appear
 		End If
 	
 
+
+	If Subs.traeCliente = "63403" Then
+		gest.Visible = False
+		b_noEntrega.Visible = False
+		Tar.Visible = True
+		NUEVO.Visible = False
+		B_IMP2.Visible = False
+	Else
+		Tar.Visible = True
+		gest.Visible = True
+		b_noEntrega.Visible = True
+		NUEVO.Visible = True
+		B_IMP2.Visible = True
+	End If
 End Sub
 
 Sub Activity_Pause (UserClosed As Boolean)
@@ -466,8 +481,16 @@ Sub gest_Click
 			If u.GetString("SALDO_PENDIENTE") <> 0 Then
 				If y.RowCount > 0 Then
 					If u.GetString("SALDO_PENDIENTE") = y.GetString("a_abono") Then
-						B_IMP_Click
-						banderaimp = 1
+						
+						Dim cobra As Cursor = Starter.skmt.ExecQuery("SELECT * FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
+						cobra.Position = 0
+						If cobra.RowCount = 1 And cobra.GetString("HVD_PRONOMBRE") = "Cobranza Pendiente" Then
+							Guardado
+						Else	
+							B_IMP_Click
+							banderaimp = 1
+						End If
+						
 					Else
 						MsgboxAsync("Para poder hacer una entrega se necesita liquidar el(los) pagare(s)","Atención")
 					End If
@@ -555,6 +578,9 @@ Private Sub B4XPage_CloseRequest As ResumableSub
 		et_montoacredito.Text = ""
 		p_credito.Visible = False
 		Return False
+	Else if p_abono.Visible Then
+		p_abono.Visible = False
+		Return False
 	Else If la_cuenta.Text = "63403" Then
 		B4XPages.ShowPage("Principal")
 		Return False