..

B4A/C_Principal.bas

@@ -302,6 +302,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub
 
 Sub B4XPage_Appear
+	nvo_cliente.Enabled = False
 	HORAINGRESO ="000000"
 	Btn_Ubicar.Left = (Root.Width/2) - (Btn_Ubicar.Width/2)
 '	B4XPages.MainPage.reqManager.Initialize(Me, B4XPages.MainPage.SERVER)
@@ -452,6 +453,17 @@ Sub B4XPage_Appear
 	c.Close
 	'///////
 	CallSub(Starter, "ENVIA_ULTIMA_GPS")
+	
+	c=B4XPages.MainPage.skmt.ExecQuery("select AUTORIZADO from BANDERA")
+	c.Position = 0
+	If c.RowCount > 0 Then
+		If c.GetString("AUTORIZADO") = "0" Then
+			nvo_cliente.Enabled = False
+		Else if c.GetString("AUTORIZADO") = "1" Then
+			nvo_cliente.Enabled = True
+		End If
+	End If
+	c.Close
 End Sub
 
 Sub Subir_Click
@@ -745,6 +757,7 @@ Sub cargar_Click
 	
 	B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info")
 	B4XPages.MainPage.skmt.ExecNonQuery("delete from cod_result")
+	B4XPages.MainPage.skmt.ExecNonQuery("delete from BANDERA")
 	B4XPages.MainPage.skmt.ExecNonQuery("delete from hist_gest")
 	B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
 	B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
@@ -794,6 +807,16 @@ Sub cargar_Click
 	cmd.Parameters = Array As Object(ALMACEN)
 	B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprod")
 	
+	cmd.Initialize
+	cmd.Name = "select_cat_bandera_MARDS"
+	cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
+	B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "bandera")
+	
+	cmd.Initialize
+	cmd.Name = "select_cat_GIRO_MARDS"
+	cmd.Parameters = Array As Object(ALMACEN)
+	B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "giro")
+	
 '	cmd.Initialize
 '	cmd.Name = "select_resum_apk_INTMEX"   ''' va el nombre de archivo de config
 '	cmd.Parameters = Array As Object(ALMACEN)
@@ -974,6 +997,37 @@ Sub JobDone(Job As HttpJob)
 			End If
 		End If
 		
+		If Job.JobName = "DBRequest" Then
+			Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
+			If RESULT.Tag = "bandera" Then 'query tag
+				For Each records() As Object In RESULT.Rows
+					Dim aurotizado  As String = records(RESULT.Columns.Get("CAT_RU_B_ALTA_CLIENTES"))
+					
+					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO BANDERA(AUTORIZADO) VALUES (?)", Array As Object (aurotizado))
+				Next
+				If PB2.Progress = 0 Then
+					PB2.Progress = 30
+					S_CP.Text = "CARGANDO"
+				ELSE If PB2.Progress = 30 Then
+					PB2.Progress = 60
+				ELSE IF PB2.Progress = 60 Then
+					PB2.Progress = 100
+					S_CP.Text = "LISTO"
+				End If
+				Listo3 =1
+				If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
+					B4XPage_Appear
+					img2.Visible=False
+					EJECUTANDO=0
+				Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then
+					B4XPage_Appear
+					img2.Visible=False
+					EJECUTANDO=0
+				End If
+	   
+			End If
+		End If
+
 		If Job.JobName = "DBRequest" Then
 			Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
 			If RESULT.Tag = "kmt_datos" Then 'query tag

B4A/Mariana.b4a

@@ -749,7 +749,7 @@ Module9=C_NoVenta
 NumberOfFiles=347
 NumberOfLibraries=29
 NumberOfModules=22
-Version=12.2
+Version=12.5
 @EndOfDesignText@
 #Region  Project Attributes 
 	#ApplicationLabel: Mariana

B4A/Starter.bas

@@ -18,7 +18,7 @@ Sub Process_Globals
 	Public FLP As FusedLocationProvider
 '	Private flpStarted As Boolean
 	Dim reqManager As DBRequestManager
-	Dim server As String = "http://11.0.0.99:1782"
+	Dim server As String = "http://11.0.0.253:1782"
 '	Dim server As String = "http://187.189.244.154:1783"
 '	Dim server As String = "http://10.0.0.205:1782"
 '	Dim server As String = "http://11.0.0.231:1782"

B4A/Subs.bas

@@ -202,6 +202,7 @@ Sub revisaBD 'ignore
 	kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_AVANCE(HA_MARCA TEXT, HA_AVANCE TEXT, HA_OBJETIVO TEXT, HA_PORCENTAJE TEXT)") 'Historico avance mes actual
 	kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_FOTO_CLIENTE(CODIGO TEXT, ALMACEN TEXT, RUTA TEXT, NOM_FOTO TEXT)")
 	kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CLIENTES_NUEVOS(CN_ID TEXT, CN_FECHA TEXT, CN_USER TEXT, CN_LAT TEXT, CN_LON TEXT, CN_NOMBRE TEXT, CN_DIRECCION TEXT, CN_FOTO TEXT, CN_ALMACEN TEXT, CN_RUTA TEXT)")
+	kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS BANDERA(AUTORIZADO TEXT)")
 	Try 'Si no existe la columna PC_ENVIO_OK la agregamos.
 		kmt.ExecQuery("select count(PC_ENVIO_OK) from PEDIDO_CLIENTE")
 	Catch