- 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.
2026-04-17 19:36:12 +00:00 · 2024-04-16 10:52:57 -06:00
parent 9e44af4b70
commit 25b16f0b25
4 changed files with 25 additions and 21 deletions
--- a/B4A/C_Cliente.bas
+++ b/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
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -1133,6 +1133,7 @@ Sub JobDone(Job As HttpJob)
 						Dim CAT_CL_BFACTURA As String = records(RESULT.Columns.Get("CAT_CL_BFACTURA"))
 						Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BBLOQUEOCRED"))
 						skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_BFACTURA,CAT_CL_BCREDITO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_BFACTURA,CAT_CL_BCREDITO))
+						Log(">>>>>>>>    " & CAT_CL_BCREDITO)
 					Next
 					skmt.TransactionSuccessful
 				Catch
--- a/B4A/Durakelo.b4a.meta
+++ b/B4A/Durakelo.b4a.meta
@@ -73,6 +73,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Productos,b_rmi_Click,1464,0,C_Productos,b_prodMas_Click,652,0,Subs,actualizaProducto,783,0,C_Productos,b_terminar1_Click,828,0,C_Productos,lv_prodsPedido_ItemLongClick,1082,5,Visual Designer,productos.bal,-100,2,Subs,revisaRMIs,1429,6,C_Productos,B4XPage_Appear,194,0,C_Productos,B4XPage_CloseRequest,505,0,C_Productos,b_rmi_mas_Click,1448,2
+NavigationStack=C_Principal,Subir_Click,600,0,MAPA_RUTAS,Activity_Create,106,0,MAPA_RUTAS,MapFragment1_Ready,214,6,Visual Designer,Cliente.bal,-100,1,C_Principal,connecta_Click,1964,0,C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,938,0,C_Principal,JobDone,1127,6,C_Cliente,B4XPage_Created,179,0,C_Cliente,B4XPage_Appear,253,6,C_Cliente,Class_Globals,27,0
 SelectedBuild=0
-VisibleModules=1,2,10,4,5,6,8,9,11,24,23
+VisibleModules=1,2,10,4,5,6,8,9,11,24,21
--- a/B4A/MAPA_RUTAS.bas
+++ b/B4A/MAPA_RUTAS.bas
@@ -139,8 +139,8 @@ Sub MapFragment1_Ready
 				CODIGO=c.GetString("CAT_CL_CODIGO")
 				Tienda= c.GetString("CAT_CL_NOMBRE")
 				NumSerie=c.GetInt("CAT_CL_NUM_SERIEFISICO")
-
-				MARK_AZUL = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO,LoadBitmap(File.DirAssets, NumSerie &".png"))
+				Log($"${File.DirAssets} - ${NumSerie}.png - ${c.RowCount} - ${i}"$)
+				MARK_AZUL = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO,LoadBitmap(File.DirAssets, i &".png"))
 				MARK_AZUL.Snippet = Tienda
 	'			MARK_AZUL = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO, gmap.HUE_BLUE)
 	'			MARK_AZUL.Snippet = Tienda
@@ -162,7 +162,7 @@ Sub MapFragment1_Ready
 			CODIGO=c2.GetString("CAT_CL_CODIGO")
 			Tienda= c2.GetString("CAT_CL_NOMBRE")
 			NumSerie=c2.GetInt("CAT_CL_NUM_SERIEFISICO")
-			MARK_VERDE = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, NumSerie&"marker-verde-"&".png"))
+			MARK_VERDE = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, i&"marker-verde-"&".png"))
 			MARK_VERDE.Snippet = Tienda
 '			MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO,gmap.HUE_GREEN)
 '			MARK_VERDE.Snippet = Tienda
@@ -180,7 +180,7 @@ Sub MapFragment1_Ready
 				Tienda= c2.GetString("CAT_CL_NOMBRE")
 				
 				NumSerie=c2.GetInt("CAT_CL_NUM_SERIEFISICO")
-				MARK_VERDE = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, NumSerie&"marker-verde"&".png"))
+				MARK_VERDE = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, i&"marker-verde"&".png"))
 				MARK_VERDE.Snippet = Tienda
 '				MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO,gmap.HUE_GREEN)
 '				MARK_VERDE.Snippet = Tienda
@@ -201,7 +201,7 @@ Sub MapFragment1_Ready
 			LatitudRu = c3.GetDouble("CAT_CL_LAT")
 			Tienda= c3.GetString("CAT_CL_NOMBRE")
 			NumSerie=c3.GetInt("CAT_CL_NUM_SERIEFISICO")
-			MARK_ROJO = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, NumSerie &"marker-rojo" & ".png"))
+			MARK_ROJO = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, i &"marker-rojo" & ".png"))
 			MARK_ROJO.Snippet = Tienda
 '			MARK_ROJO = gmap.AddMarker2(LatitudRu,LongitudRU,Tienda, gmap.HUE_RED)
 '			MARK_ROJO.Snippet = Tienda
@@ -218,7 +218,7 @@ Sub MapFragment1_Ready
 				LatitudRu = c3.GetDouble("CAT_CL_LAT")
 				Tienda= c3.GetString("CAT_CL_NOMBRE")
 				NumSerie=c3.GetInt("CAT_CL_NUM_SERIEFISICO")
-				MARK_ROJO = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, "marker-rojo-" & NumSerie &".png"))
+				MARK_ROJO = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, "marker-rojo-" & i &".png"))
 				MARK_ROJO.Snippet = Tienda
 '				MARK_ROJO = gmap.AddMarker2(LatitudRu,LongitudRU,Tienda, gmap.HUE_RED)
 '				MARK_ROJO.Snippet = Tienda