- Cambios en MAPA_RUTAS para que el numero del globito sea consecutivo y no "numero de serie"

- Cambio en cliente, para que la variable CREDITO no se use para restringir venta, solo se usa para mostrar el tipo de forma de pago en el ticket.

B4A/C_Cliente.bas

@@ -255,6 +255,12 @@ Sub B4XPage_Appear
 	m_lon =c.GetString("CAT_CL_LONG")
 	FACTURA = c.GetString("CAT_CL_BFACTURA")
 	CREDITO = c.GetString("CAT_CL_BCREDITO")
+	'####################################################################################
+	'########  Ponemos CREDITO en CERO porque ahora se esta usando para #################
+	'########        INFO en el TICKET y no para restringir venta       #################
+	'####################################################################################
+		CREDITO = 0
+	'####################################################################################
 			
 	If l_total.Text <> Null Then
 
@@ -266,16 +272,6 @@ Sub B4XPage_Appear
 '			b_factura.Visible = True
 '		End If
 	End If
-			
-	If CREDITO = "1" Then
-		Msgbox("ALTO","Este cliente no se le puede vender ya que tienen adeudo en su crédito")
-		B_VENTA.Visible = False
-		gest.Visible = False
-	Else
-		B_VENTA.Visible = True
-		gest.Visible = True
-				
-	End If
 	
 	If c.GetString("CAT_CL_NUM_SERIEFISICO") = "0"  Then
 		L_QR.Visible = True
@@ -320,8 +316,7 @@ Sub B4XPage_Appear
 	If PASA_IMP = "1" Then
 		B_IMP.Enabled = True
 	End If
-	'''''''''Agregar la parte de si tiene credito o no tiene credito
-	If la_cuenta.Text="0" Then
+	If la_cuenta.Text = "0" Then
 		B_VENTA.Visible = False
 		gest.Visible = False
 	Else
@@ -353,8 +348,16 @@ Sub B4XPage_Appear
 		B_IMP2.Visible = False
 		B_INV.Visible = False
 		Guardar.Visible = False
-End If
+	End If
 	
+	If CREDITO = "1" Then
+		Msgbox("A este cliente no se le puede vender ya que tiene adeudo en su crédito","ALTO")
+		B_VENTA.Visible = False
+		gest.Visible = False
+	Else
+		B_VENTA.Visible = True
+		gest.Visible = True
+	End If
 	
 	c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
 	c.Position =0