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

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
 				

B4A/C_Principal.bas

@@ -1178,7 +1178,12 @@ 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
@@ -1276,7 +1281,7 @@ Sub cargar_Click
 '			reqs.Add("inst_noventa")
 '		Next
 '	End If
-''	c.Close	
+			''	c.Close
 			D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
 			d.Position=0
 			cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
@@ -1288,6 +1293,7 @@ Sub cargar_Click
 			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,6 +1479,27 @@ 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")
+						
+						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"
@@ -1495,6 +1522,15 @@ Sub JobDone(Job As HttpJob)
 									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")
 					End If

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

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