version final

B4A/C_Principal.bas

@@ -214,6 +214,7 @@ Sub Class_Globals
 	Private L_VENTA As Label
 	Private L_PREVENTA As Label
 	Private p_abordo As Panel
+	Private Panel11 As Panel
 End Sub
 
 'You can add more parameters here.
@@ -636,6 +637,42 @@ Sub Subir_Click
 			Next
 		End If
 		c.Close
+		
+		' CLIENTES NUEVOS
+		Dim fotocn() As Byte
+		Dim Dirp As String = File.DirInternal
+		Dim Dir As String
+		Dim Dir2 As String
+		Dir = "/promotoriakmts"
+		
+		c=Starter.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO FROM CLIENTES_NUEVOS")
+		If c.RowCount>0 Then
+			For i = 0 To c.RowCount - 1
+				c.Position = i
+				Log(File.Exists(Dirp&Dir&Dir2,c.GetString("CN_FOTO")))
+				If File.Exists(Dirp&Dir&Dir2,c.GetString("CN_FOTO")) Then fotocn = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir,c.GetString("CN_FOTO")))
+				Dim dia As Int = DateTime.GetDayOfWeek(DateTime.Now)
+				If dia = 2  Then
+					Dim dialetra As String = "LUNES"
+				Else If dia = 3  Then
+					Dim dialetra As String = "MARTES"
+				Else If dia = 4  Then
+					Dim dialetra As String = "MIERCOLES"
+				Else If dia = 5  Then
+					Dim dialetra As String = "JUEVES"
+				Else If dia = 6  Then
+					Dim dialetra As String = "VIERNES"
+				Else If dia = 7  Then
+					Dim dialetra As String = "SABADO"
+				End If
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insert_clientesnuevos_MARQUEZ"
+				cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),ALMACEN, c.GetString("CN_RUTA"), fotocn, "En espera",c.GetString("CN_GIRO"),dialetra)
+				reqManager.ExecuteCommand(cmd , "inst_clientesn")
+			Next
+		End If
+		c.Close
 
 '		c=B4XPages.MainPage.skmt.ExecQuery("SELECT  HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
 '		If c.RowCount>0 Then
@@ -858,6 +895,7 @@ Sub cargar_Click
 		B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_CLIENTE_CANT_PROMOS")
 		B4XPages.MainPage.skmt.ExecNonQuery("delete from PROMOS_COMP")
 		B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_VERIFICACION")
+		Starter.skmt.ExecNonQuery("delete from CAT_GIRO")
 		B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM MARCAS_RUTAS")
 		B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_STAY_STORE")
 		B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GEOCERCA")
@@ -903,6 +941,10 @@ Sub cargar_Click
 		cmd.Name = "select_cat_gunaprod2_MARQUEZ"
 		cmd.Parameters = Array As Object(ALMACEN,e_ruta.Text)
 		reqManager.ExecuteQuery(cmd , 0, "gunaprod2")
+		
+		cmd.Initialize
+		cmd.Name = "select_cat_GIRO_MARQUEZ"
+		reqManager.ExecuteQuery(cmd , 0, "giro")
 
 '	cmd.Initialize
 '	cmd.Name = "select_resum_apk_INTMEX"   ''' va el nombre de archivo de config
@@ -966,7 +1008,7 @@ Sub cargar_Click
 			B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO RUTA_SUPLENCIA(RS_RUTA) VALUES(?)",Array As String(E_RUTA2.Text))
 			
 			E_RUTA2.Visible = False
-			ImageView9.Visible = False
+			Panel11.Visible = False
 			
 			cmd.Initialize
 			cmd.Name = "select_cat_clientes_MARQUEZ"
@@ -1114,6 +1156,37 @@ Sub JobDone(Job As HttpJob)
 			End If
 		End If
 
+		If Job.JobName = "DBRequest" Then
+			Dim RESULT As DBResult = reqManager.HandleJob(Job)
+			If RESULT.Tag = "giro" Then 'query tag
+				For Each records() As Object In RESULT.Rows
+					Dim giro  As String = records(RESULT.Columns.Get("CAT_GR_DESC"))
+					
+					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GIRO(GIRO) VALUES (?)", Array As Object (giro))
+				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 = reqManager.HandleJob(Job)
 			If RESULT.Tag = "kmt_datos" Then 'query tag
@@ -1988,6 +2061,7 @@ Sub e_ruta_EnterPressed
 		RES =  Msgbox2("Seguro que desea hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))  'ignore
 		If RES = DialogResponse.POSITIVE Then
 			e_ruta.Text = ""
+			Starter.skmt.ExecNonQuery("delete from CAT_GIRO")
 			B4XPages.MainPage.skmt.ExecNonQuery("delete from CLIENTE_NUEVO")
 			B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente")
 			B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido")
@@ -2026,7 +2100,8 @@ Sub e_ruta_EnterPressed
 	End If
 	If e_ruta.Text = "SUPLENCIA" Then
 		E_RUTA2.Visible = True
-		ImageView9.Visible = True
+		Panel11.Visible = True
+'		ImageView9.Visible = True
 		e_ruta.Text= ""
 	End If
 End Sub