6.02.18

Se agrega para que no puedan cargar dos rutas sin antes dar fin dia Se modifica para que no pida codigo a mayoreo
2026-04-17 12:56:19 +00:00 · 2026-03-10 20:34:00 -06:00
parent 2f3449e347
commit 33c43419f2
4 changed files with 133 additions and 85 deletions
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -966,7 +966,7 @@ Sub checacredito
 			limite_credito = 0
 			If CREDITO = 1 And x1.GetString("CAT_CL_LIMITECREDITO") <> 0 Then '''' se debe de cambiar a si acepta o no credito, aparte de tener la bandera a credito
 				
-				If Subs.traeAlmacen = 81 Or Subs.traeAlmacen = 94 Or Subs.traeAlmacen = 6 Then
+				If Subs.traeAlmacen = 81 Or Subs.traeAlmacen = 6 Then
 					
 					
 					Dim c4 As Cursor = Starter.skmt.ExecQuery("SELECT IFNULL(CAT_CL_VCREDITO,0) AS CAT_CL_VCREDITO, IFNULL(CAT_CL_VCODIGO,0) AS CAT_CL_VCODIGO FROM kmt_info where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
@@ -1034,6 +1034,18 @@ Sub checacredito
 						banderaimp = 1
 					
 					End If
+				Else If Subs.traeAlmacen = 94 Then
+					
+'					p_codigo.Visible= False
+'					et_codigo.Text = ""
+	
+	
+					Log(12)
+					escreditoono = 1
+					limite_credito = x1.GetString("CAT_CL_LIMITECREDITO")
+					If l_total.Text <> ".00" Then
+						esPagoACreditoGuardamosPagare
+					End If
 					
 				Else
 				
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -1178,62 +1178,67 @@ Sub cargar_Click
 			pedidodiaanterior = True
 		End If
 	End If
-	If Not (pedidodiaanterior) Then
-'		P_carga.Visible = True
-		P_carga.Width = Root.Width
-		P_carga.Height = Root.Height
-		l_carga2.Text = "CARGANDO"
-		L_carga.Text = "CARGANDO"
-		PB_carga2.Progress = 0
-		PB_carga.Progress = 0
-		Log("CUMPLE")
-		EJECUTANDO = 1
-		reqs.Initialize
-		TOPE = 0
-		LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
-		reqManager.Initialize(Me, B4XPages.MainPage.server)
 	
-		Dim cmd As DBCommand
-		cmd.Initialize
-		cmd.Name = "insert_drop_rep_GUNA_VN2"
-		cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",0,0,0,0,0,0,0,0)
-		reqManager.ExecuteCommand(cmd , "inst_drop")
+	
+	If Not (pedidodiaanterior) Then
+		
+		
+		
+'		P_carga.Visible = True
+			P_carga.Width = Root.Width
+			P_carga.Height = Root.Height
+			l_carga2.Text = "CARGANDO"
+			L_carga.Text = "CARGANDO"
+			PB_carga2.Progress = 0
+			PB_carga.Progress = 0
+			Log("CUMPLE")
+			EJECUTANDO = 1
+			reqs.Initialize
+			TOPE = 0
+			LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
+			reqManager.Initialize(Me, B4XPages.MainPage.server)
+	
+			Dim cmd As DBCommand
+			cmd.Initialize
+			cmd.Name = "insert_drop_rep_GUNA_VN2"
+			cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",0,0,0,0,0,0,0,0)
+			reqManager.ExecuteCommand(cmd , "inst_drop")
 '	reqs.Add("inst_noventa")
 		

-		Starter.skmt.ExecNonQuery("delete from kmt_info")
-		Starter.skmt.ExecNonQuery("delete from cod_result")
-		Starter.skmt.ExecNonQuery("delete from hist_gest")
-		Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
-		Starter.skmt.ExecNonQuery("delete from telefonos")
+			Starter.skmt.ExecNonQuery("delete from kmt_info")
+			Starter.skmt.ExecNonQuery("delete from cod_result")
+			Starter.skmt.ExecNonQuery("delete from hist_gest")
+			Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
+			Starter.skmt.ExecNonQuery("delete from telefonos")
 '	Starter.skmt.ExecNonQuery("delete from VENTAS")
-		Starter.skmt.ExecNonQuery("delete from PUNTEO_GPS")
-		If l_ruta.Text = "0" Then '
-			Log("*********************  No hay ruta, BORRAMOS TODO")
-			Starter.skmt.ExecNonQuery("delete from cat_gunaprod")
-			Starter.skmt.ExecNonQuery("delete from cat_gunaprod3")
-			Starter.skmt.ExecNonQuery("delete from REPARTO")
-			Starter.skmt.ExecNonQuery("delete from HIST_VENTAS")
-			Starter.skmt.ExecNonQuery("delete from HIST_VENTAS2")
-			Starter.skmt.ExecNonQuery("delete from NOVENTA")
-			Starter.skmt.ExecNonQuery("DELETE FROM ABONOSP")
-		Else
-			Log("*********************  Hay ruta, NO BORRAMOS TODO")
-		End If
+			Starter.skmt.ExecNonQuery("delete from PUNTEO_GPS")
+			If l_ruta.Text = "0" Then '
+				Log("*********************  No hay ruta, BORRAMOS TODO")
+				Starter.skmt.ExecNonQuery("delete from cat_gunaprod")
+				Starter.skmt.ExecNonQuery("delete from cat_gunaprod3")
+				Starter.skmt.ExecNonQuery("delete from REPARTO")
+				Starter.skmt.ExecNonQuery("delete from HIST_VENTAS")
+				Starter.skmt.ExecNonQuery("delete from HIST_VENTAS2")
+				Starter.skmt.ExecNonQuery("delete from NOVENTA")
+				Starter.skmt.ExecNonQuery("DELETE FROM ABONOSP")
+			Else
+				Log("*********************  Hay ruta, NO BORRAMOS TODO")
+			End If

-		' NUEVOS CLIENTES
-		c=Starter.skmt.ExecQuery("select usuario from usuarioa")
-		c.Position = 0
-		usuario = c.GetString("USUARIO")
+			' NUEVOS CLIENTES
+			c=Starter.skmt.ExecQuery("select usuario from usuarioa")
+			c.Position = 0
+			usuario = c.GetString("USUARIO")

-		cargaGeneral ' Cargamos los datos del almacen principal.
+			cargaGeneral ' Cargamos los datos del almacen principal.

-		If multiAlmacen Then
-			Sleep(100)
-			Log(multiAlmacen)
-			Log("====================    CARGAMOS SEGUNDO ALMACEN  ======================")
-			cargaAlmacen2 ' Cargamos los datos del segundo almacen.
-		End If
+			If multiAlmacen Then
+				Sleep(100)
+				Log(multiAlmacen)
+				Log("====================    CARGAMOS SEGUNDO ALMACEN  ======================")
+				cargaAlmacen2 ' Cargamos los datos del segundo almacen.
+			End If

 		
 		
@@ -1262,7 +1267,7 @@ Sub cargar_Click
 '	End If
 '	c.Close

-		' NOVENTA
+			' NOVENTA
 '	c=Starter.skmt.ExecQuery("SELECT NV_CLIENTE, NV_FECHA, NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA")
 '	If c.RowCount > 0 Then
 '		For i=0 To c.RowCount -1
@@ -1276,18 +1281,19 @@ Sub cargar_Click
 '			reqs.Add("inst_noventa")
 '		Next
 '	End If
-''	c.Close	
-		D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
-		d.Position=0
-		cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
-		d.Close
-		cargar.Visible = False
-		Subir.Visible = False
-		connecta.Visible = True
-		inv.Visible = False
-		ToastMessageShow("Se actualizarán los datos, este proceso podria tardar hasta un minuto, gracias" , True)
-		ProgressDialogShow2("Descargando rutas, espere un momento.", False)
-		If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a Internet", "Revisa tu conexión")
+			''	c.Close
+			D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
+			d.Position=0
+			cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
+			d.Close
+			cargar.Visible = False
+			Subir.Visible = False
+			connecta.Visible = True
+			inv.Visible = False
+			ToastMessageShow("Se actualizarán los datos, este proceso podria tardar hasta un minuto, gracias" , True)
+			ProgressDialogShow2("Descargando rutas, espere un momento.", False)
+			If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a Internet", "Revisa tu conexión")
+		
 	Else
 		Log("XXXX")
 		MsgboxAsync("Para poder cargar día no puedes tener venta del día anterior. Por favor haz FIN DIA e intenta nuevamente.","Atención")
@@ -1473,27 +1479,57 @@ Sub JobDone(Job As HttpJob)
 					If HVD_IMPRESO_RECHAZO = 0 Then
 						LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
 						If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión")
-						If e_ruta.Text <> "" Then
-							imei = "" 'p.GetDeviceId
-							conn = "1"
-							ime.HideKeyboard
-
-							Dim cmd As DBCommand
-							cmd.Initialize
-							cmd.Name = "select_ruta_re_REPG_GUNA_VN"
-							cmd.Parameters = Array As Object()
-
-							reqManager.ExecuteQuery(cmd , 0, "ruta")
-							ToastMessageShow("Validando Conexión." , True)
-							Starter.skmt.ExecNonQuery("DELETE FROM RUTAA")
-							Starter.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT))
-							B4XPages.MainPage.rutaPreventa = e_ruta.TEXT
-		
-							cmd.Name = "selectAgrupadorAlmacen"
-							cmd.Parameters = Array As Object(ALMACEN)
-							Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$)
-							reqManager.ExecuteQuery(cmd , 0, "agrupaAlmacen")
+						
+						Dim checaruta As Boolean
+						Dim cr As Cursor = Starter.skmt.ExecQuery("select RUTAA from RUTAA")
+						If cr.RowCount > 0 Then
+							cr.Position=0
+							If cr.GetString("RUTAA") = e_ruta.Text Then
+								checaruta = True
+							Else
+								checaruta = False
+							End If
+						Else
+							checaruta = True
+						End If
+						c.Close
+						Log(checaruta)
+						
+						If e_ruta.Text <> "FIN DIA" Then
 							
+						
+							If checaruta Then
+						
+								If e_ruta.Text <> "" Then
+									imei = "" 'p.GetDeviceId
+									conn = "1"
+									ime.HideKeyboard
+
+									Dim cmd As DBCommand
+									cmd.Initialize
+									cmd.Name = "select_ruta_re_REPG_GUNA_VN"
+									cmd.Parameters = Array As Object()
+
+									reqManager.ExecuteQuery(cmd , 0, "ruta")
+									ToastMessageShow("Validando Conexión." , True)
+									Starter.skmt.ExecNonQuery("DELETE FROM RUTAA")
+									Starter.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT))
+									B4XPages.MainPage.rutaPreventa = e_ruta.TEXT
+		
+									cmd.Name = "selectAgrupadorAlmacen"
+									cmd.Parameters = Array As Object(ALMACEN)
+									Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$)
+									reqManager.ExecuteQuery(cmd , 0, "agrupaAlmacen")
+							
+								End If
+							Else
+								Log("XXXX")
+								MsgboxAsync("Para poder cargar día con una ruta diferente primero haz FIN DIA e intenta nuevamente.","Atención")
+							End If
+						
+						Else
+							Log("XXXX")
+							MsgboxAsync("No se puede realizar esta accion, intenta nuevamente.","Atención")
 						End If
 					Else
 						MsgboxAsync("No se puede realizar ninguna modificación","Rechazo confirmado")
--- a/B4A/guna_reparto.b4a
+++ b/B4A/guna_reparto.b4a
@@ -262,7 +262,7 @@ Version=12.8
 #Region Project Attributes 
 	#ApplicationLabel: Guna Reparto
 	#VersionCode: 1
-	#VersionName: 6.02.16
+	#VersionName: 6.02.18
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
--- a/B4A/guna_reparto.b4a.meta
+++ b/B4A/guna_reparto.b4a.meta
@@ -97,6 +97,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=DBRequestManager,HandleJob,193,0,DBRequestManager,ImageToBytes,233,0,C_Principal,cargar_Click,1181,6,Diseñador Visual,cliente.bal,-100,6,C_Cliente,B4XPage_Appear,331,1,C_Cliente,Class_Globals,133,0,C_Principal,JobDone,1926,6,C_Cliente,B_IMP_Click,1493,0,C_Cliente,Guardado,1237,0,C_Principal,cargaGeneral,1327,1,C_Principal,envioinfo,953,6
+NavigationStack=C_Principal,e_ruta_EnterPressed,2357,0,C_Principal,cargar_Click,1289,6,C_Principal,JobDone,1525,6,C_Cliente,Class_Globals,0,0,C_Cliente,gest_Click,799,0,C_Cliente,JobDone,2296,0,C_Cliente,b_aceptarFD_Click,5898,0,C_Cliente,esPagoACreditoGuardamosPagare,1090,0,C_Cliente,checacredito,941,0,Diseñador Visual,cliente.bal,-100,5
 SelectedBuild=0
-VisibleModules=2,17,5,6,8,10,31,30,28,7,23
+VisibleModules=2,17,5,6,8,10,31,30,28,7