V 4.11.28

B4A/B4XMainPage.bas

@@ -89,6 +89,21 @@ Sub Class_Globals
 	Private ET_Add_Monto As EditText
 	Private p_add_monto As Panel
 	Dim sDate, sTime As String
+	Private p_validacion As Panel
+	Private b_cancelarcodigo As Button
+	Private b_aceptar As Button
+	Private et_codigo As EditText
+	Private P_CIEGO As Panel
+	Private b_terpc As Button
+	Private B_PC_ENV As Button
+	Private CLV_PICK_CIEGO As CustomListView
+	Private et_buspc As EditText
+	Dim q_buscar As String
+	Dim d As Cursor
+	Private L_PICK_CIEGO As Label
+	Private ET_PICK_CIEGO As EditText
+	Dim a As Cursor
+	Dim f As Cursor
 End Sub
 
 Public Sub Initialize
@@ -137,6 +152,10 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	B4XPages.AddPage("tabulador", tabulador)
 	checklist.Initialize
 	B4XPages.AddPage("checklist",checklist)
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_GUNAPROD3 (CAT_GP_INICIATIVA TEXT, CAT_GP_TIPOPROD TEXT, CAT_GP_DEV TEXT, CAT_GP_ALMACEN NUMERIC, CAT_GP_ID TEXT, CAT_GP_NOMBRE TEXT, CAT_GP_IMP1 TEXT, CAT_GP_IMP2 TEXT, CAT_GP_PRECIO TEXT, CAT_GP_CLASIF TEXT, CAT_GP_STS TEXT, CAT_GP_TIPO TEXT, CAT_GP_SUBTIPO TEXT, CAT_GP_IMG BLOB)")
+	Subs.agregaColumna("CAT_GUNAPROD3", "CAT_DP_CONVERSION1", "TEXT")
+	Subs.agregaColumna("CAT_GUNAPROD3", "CAT_DP_PRECIO4", "TEXT")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PICK_CIEGO (PC_ID_PROD TEXT, PC_NOM_PROD TEXT, PC_CANT TEXT, PC_ALMACEN TEXT, PC_RUTA TEXT, PC_FECHA TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENV_MONTO_LIQ (EML_MONTO TEXT, EML_ALMACEN TEXT, EML_RUTA TEXT, EML_USUARIO TEXT, EML_FECHA_PED TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TABULADOR_MONEDAS(VEINTE TEXT, DIEZ TEXT, CINCO TEXT, DOS TEXT, PESO TEXT, CENTAVO TEXT, TOTAL TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TABULADOR_BILLETES(MIL TEXT, QUINIENTOS TEXT, DOCIENTOS TEXT, CIEN TEXT, CINCUENTA TEXT, VEINTE TEXT)")
@@ -146,14 +165,20 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS VENTAS (V_FECHA TEXT, V_CLIENTE TEXT, V_CLI_ORIG TEXT, V_PRODID TEXT, V_CANT TEXT, V_RECHAZO INT)")
 '	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CHECKLIST")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CHECADO_CHECK(CHECADO TEXT)")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PAGARES(TMP_MONTO_PAGARE TEXT, TMP_CLIENTE TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CHECKLIST(USUARIO TEXT, PLACA TEXT, FECHA_CAPTURA TEXT, TARJETA_CIRCULACION TEXT , POLIZA_SEGURO TEXT, LICENCIA_CONDUCIR TEXT, LIMPIA_EXTERNA TEXT, LIMPIA_INTERNA TEXT, TRIANGULO TEXT, GATO TEXT, LLANTA_REFACCION TEXT, CARROCERIA_BUENESTADO TEXT, CARROCERIA_MALESTADO TEXT, CARROCERIA_COMENTARIOS TEXT, LUCES_CORRECTO TEXT, LUCES_INCORRECTO TEXT, LUCES_COMENTARIOS TEXT, CONDICION_PLACAS_CORRECTO TEXT, CONDICION_PLACAS_INCORRECTO TEXT, CONDICION_PLACAS_COMENTARIOS TEXT, CONDICION_LLANTAS_DEL_DER TEXT, CONDICION_LLANTAS_DEL_IZQ TEXT, CONDICION_LLANTAS_TRASERA_DER TEXT, CONDICION_LLANTAS_TRASERA_IZQ TEXT, ACEITE TEXT, ANTICONGELANTE TEXT, FRENOS TEXT, AIRE TEXT, FUGAS TEXT, COMETARIOS_FUGAS TEXT, FOTO1 BLOB, FOTO12 BLOB, FOTO3 BLOB, FOTO4 BLOB)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CHECKLIST2(USUARIO TEXT, PLACA TEXT, FECHA_CAPTURA TEXT, TARJETA_CIRCULACION TEXT, POLIZA_SEGURO TEXT, LICENCIA_CONDUCIR TEXT, LIMPIA_EXTERNA TEXT, LIMPIA_INTERNA TEXT, TRIANGULO TEXT, GATO TEXT, LLANTA_REFACCION TEXT, CARROCERIA TEXT, CARROCERIA_COMENTARIOS TEXT, LUCES TEXT, LUCES_COMENTARIOS TEXT, CONDICION_PLACAS TEXT, CONDICION_PLACAS_COMENTARIOS TEXT, CONDICION_LLANTAS_DEL_DER TEXT, CONDICION_LLANTAS_DEL_IZQ TEXT, CONDICION_LLANTAS_TRASERA_DER TEXT, CONDICION_LLANTAS_TRASERA_IZQ TEXT, ACEITE TEXT, ANTICONGELANTE TEXT, FRENOS TEXT, AIRE TEXT, FUGAS TEXT, COMETARIOS_FUGAS TEXT, FOTO1 BLOB, FOTO12 BLOB, FOTO3 BLOB, FOTO4 BLOB, KILIMETRAJE TEXT, RUTA TEXT)")
 	Subs.agregaColumna("REPARTO", "REP_PRODREGISTRO", "TEXT")
 	Subs.agregaColumna("kmt_info", "SECUENCIA", "INT")
+	Subs.agregaColumna("kmt_info", "HORAENT", "TEXT")
 	Subs.agregaColumna("REPARTO", "REP_PRODID", "TEXT")
 	Subs.agregaColumna("PEDIDO", "PE_CLIENTEOR", "TEXT")
 	Subs.agregaColumna("PEDIDO", "PE_CAJAS", "TEXT")
+	Subs.agregaColumna("PEDIDO", "PE_REGALO", "TEXT")
 	Subs.agregaColumna("PEDIDO", "PE_BCAJAS", "TEXT")
+	Subs.agregaColumna("PEDIDO", "CONSECUTIVO", "TEXT")
+	Subs.agregaColumna("PEDIDO", "FECHA_PREV", "TEXT")
+	Subs.agregaColumna("PEDIDO", "RUTA_REP", "TEXT")
 	Subs.agregaColumna("REPARTO", "REP_CLI_ORIG", "TEXT")
 	Subs.agregaColumna("REPARTO", "REP_PRECIO", "TEXT")
 	Subs.agregaColumna("REPARTO", "REP_RECHAZO", "INTEGER")
@@ -161,6 +186,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Subs.agregaColumna("VENTAS", "V_PRECIO", "TEXT")
 	Subs.agregaColumna("HIST_VENTAS","PLACA","TEXT")
 	Subs.agregaColumna("HIST_VENTAS","HVD_RECHAZOCANT","TEXT")
+	Subs.agregaColumna("HIST_VENTAS","CONSECUTIVO","TEXT")
+	Subs.agregaColumna("HIST_VENTAS","HVD_RECHAZOCANT","TEXT")
+	Subs.agregaColumna("HIST_VENTAS","ESPROMO","TEXT")
 	Subs.agregaColumna("HIST_VENTAS","HVD_RECHAZOCANTC","TEXT")
 	Subs.agregaColumna("HIST_VENTAS","BCAJAS","TEXT")
 	Subs.agregaColumna("HIST_VENTAS","CANTC","TEXT")
@@ -317,6 +345,98 @@ Sub JobDone(Job As HttpJob)
 			End If
 		End If
 		
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "contrasena" Then 'query tag
+				For Each records() As Object In result.Rows
+					Dim CAT_PA_PASS As String = records(result.Columns.Get("CAT_PA_PASS"))
+					If CAT_PA_PASS = et_codigo.Text Then
+						Log(CAT_PA_PASS)
+						p_validacion.Visible = False
+						et_codigo.Text = ""
+						
+						Subs.panelVisible(P_CIEGO,0,0)
+						
+					Else
+'						MsgboxAsync("Contraseña incorrecta","Atención")
+					End If
+				Next
+			End If
+		End If
+		
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag.As(String).IndexOf("PICK_C_") > -1 Then 'query tag
+'				Subs.logJobDoneResultados(result)
+				Private id As String= result.Tag
+				id = id.SubString(id.IndexOf("_")+3)
+				For Each records() As Object In result.Rows
+					Dim CUENTA As String = records(result.Columns.Get("CUENTA"))
+					Log(CUENTA)
+					Log(id)
+					If CUENTA = 0 Then
+						c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO WHERE PC_ID_PROD = ?", Array As String (id))
+						If c.RowCount > 0 Then
+'							For i=0 To c.RowCount -1
+							c.Position=0
+							Dim cmd As DBCommand
+							cmd.Initialize
+							cmd.Name = "insert_PICKCIEGO_MARQUEZ"
+							cmd.Parameters = Array As Object(c.GetString("PC_ID_PROD"), c.GetString("PC_NOM_PROD"), c.GetString("PC_CANT"), c.GetString("PC_ALMACEN"), c.GetString("PC_RUTA"), c.GetString("PC_FECHA"),"REPARTO")
+							reqManager.ExecuteCommand(cmd , "ins_PC")
+'							Next
+						End If
+						c.Close
+					Else if CUENTA > 0 Then
+						c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO WHERE PC_ID_PROD= ?", Array As String (id))
+						If c.RowCount > 0 Then
+'							For i=0 To c.RowCount -1
+							c.Position = 0
+							Dim cmd As DBCommand
+							cmd.Initialize
+							cmd.Name = "update_PICKCIEGO_MARQUEZ"
+							Log("FECHA" & c.GetString("PC_FECHA"))
+							cmd.Parameters = Array As Object(c.GetString("PC_CANT"), c.GetString("PC_ID_PROD"), c.GetString("PC_ALMACEN"), c.GetString("PC_RUTA"), c.GetString("PC_FECHA"),"REPARTO")
+							reqManager.ExecuteCommand(cmd, "update_PC")
+'							Next
+						End If
+						c.Close
+					End If
+
+				Next
+			End If
+		End If
+		
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "estatus" Then 'query tag
+				For Each records() As Object In result.Rows
+					Dim hvd_estatus As String = records(result.Columns.Get("HVD_ESTATUS"))
+					If hvd_estatus = "Liquidado" Then
+						' ToastMessageShow("rojo val ok 1 cuantosp." , True)
+						MsgboxAsync("La venta ya fue liquidada","Atención")
+					Else
+						enviarmonto
+					End If
+				Next
+			End If
+		End If
+		
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "estatus2" Then 'query tag
+				For Each records() As Object In result.Rows
+					Dim hvd_estatus As String = records(result.Columns.Get("HVD_ESTATUS"))
+					If hvd_estatus = "Liquidado" Then
+						' ToastMessageShow("rojo val ok 1 cuantosp." , True)
+						MsgboxAsync("La venta ya fue liquidada","Atención")
+					Else
+						passaquci
+					End If
+				Next
+			End If
+		End If
+		
 		If Job.JobName = "DBRequest" Then
 			Dim result As DBResult = reqManager.HandleJob(Job)
 			If result.Tag = "SelectMontoLiq" Then
@@ -346,7 +466,7 @@ Sub JobDone(Job As HttpJob)
 							Dim cmd As DBCommand
 							cmd.Initialize
 							cmd.Name = "insert_Monto_Liq_MARQUEZrep"
-							cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"), "PREVENTA", c.GetString("EML_FECHA_PED"))
+							cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), f.GetString("RUTAA"), c.GetString("EML_USUARIO"), "REPARTO", c.GetString("EML_FECHA_PED"))
 							reqManager.ExecuteCommand(cmd , "ins_Mon_Liq")
 							MsgboxAsync("Monto Enviado", "Atención")
 '							Next
@@ -360,7 +480,7 @@ Sub JobDone(Job As HttpJob)
 							c.Position = 0
 							cmd.Initialize
 							cmd.Name = "update_MontoCuenta_MARQUEZrep"
-							cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"),c.GetString("EML_FECHA_PED"),"PREVENTA")
+							cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"),c.GetString("EML_FECHA_PED"),"REPARTO")
 							
 							Log(c.GetString("EML_MONTO")& " " & c.GetString("EML_ALMACEN")& " " & c.GetString("EML_RUTA")& " " & c.GetString("EML_USUARIO"))
 							reqManager.ExecuteCommand(cmd, "update_MC")
@@ -510,6 +630,21 @@ Private Sub p_add_monto_Click
 End Sub
 
 Private Sub B_Aceptar_Monto_Click
+	Private f As Cursor=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
+	f.Position=0
+	Private a As Cursor =Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
+	a.Position = 0
+	Dim cmd As DBCommand
+	cmd.Initialize
+	cmd.Name = "select_estatus_MARQUEZ"
+	cmd.Parameters = Array As Object(a.GetString("ID_ALMACEN"),f.GetString("RUTAA"))
+	reqManager.ExecuteQuery(cmd , 0, "estatus")
+	f.Close
+	a.Close
+End Sub
+
+Sub enviarmonto
+	
 	DateTime.DateFormat = "MM/dd/yyyy"
 	sDate=DateTime.Date(DateTime.Now)
 	sTime=DateTime.Time(DateTime.Now)
@@ -546,6 +681,7 @@ Private Sub B_Aceptar_Monto_Click
 		f.Close
 		a.Close
 	
+	
 		c = Starter.skmt.ExecQuery("SELECT * FROM ENV_MONTO_LIQ")
 		If c.RowCount > 0 Then
 			c.Position = 0
@@ -574,8 +710,291 @@ Private Sub B_Aceptar_Monto_Click
 	End If
 
 	p_add_monto.Visible = False
+	
 End Sub
 
 Private Sub B_Can_Monto_Click
 	p_add_monto.Visible = False
+End Sub
+
+Private Sub b_arqueocieego_Click
+	c = Starter.skmt.ExecQuery("SELECT *  FROM CAT_GUNAPROD3")
+	If c.RowCount > 0 Then
+		Subs.panelVisible(p_validacion,0,0)
+	Else
+		MsgboxAsync("No hay ruta cargada, favor de cargar día","Atención")
+	End If
+End Sub
+
+Private Sub et_buspc_TextChanged (Old As String, New As String)
+	If New = "" Then
+		CLV_PICK_CIEGO.Clear
+	Else If New.Length >= 3 Then
+		CLV_PICK_CIEGO.Clear
+	
+		q_buscar = "%" & et_buspc.Text & "%"
+		Log(q_buscar)
+		c=Starter.skmt.ExecQuery2($"select CAT_GP_NOMBRE, CAT_GP_ID , ifnull(PC_CANT,0) AS PC_CANT FROM CAT_GUNAPROD3 INNER JOIN PICK_CIEGO ON PC_ID_PROD = CAT_GP_ID AND PC_NOM_PROD = CAT_GP_NOMBRE WHERE (CAT_GP_NOMBRE LIKE ? OR  CAT_GP_ID  LIKE ? ) and CAT_GP_CLASIF <> 'PROMOS'"$, Array As String(q_buscar,q_buscar))
+		If c.RowCount > 0 Then
+
+		
+			For i = 0 To c.RowCount - 1
+				c.Position = i
+				CLV_PICK_CIEGO.Add(CreateListItem(c.GetString("CAT_GP_ID"), c.GetString("CAT_GP_NOMBRE"), c.GetString("PC_CANT")),i)
+'				Log(c.GetString("CAT_GP_ID") & ", " & c.GetString("CAT_GP_NOMBRE") & " ," & c.GetString("PC_CANT"))
+			Next
+			c.Close
+		
+			d=Starter.skmt.ExecQuery2($"select CAT_GP_NOMBRE, CAT_GP_ID FROM CAT_GUNAPROD3 WHERE (CAT_GP_NOMBRE LIKE ? OR  CAT_GP_ID  LIKE ? ) and CAT_GP_CLASIF <> 'PROMOS'AND CAT_GP_ID NOT IN (SELECT PC_ID_PROD FROM PICK_CIEGO)"$, Array As String(q_buscar,q_buscar))
+		
+			For i = 0 To d.RowCount - 1
+				d.Position = i
+				CLV_PICK_CIEGO.Add(CreateListItem2(d.GetString("CAT_GP_ID"), d.GetString("CAT_GP_NOMBRE")),i)
+'				Log(d.GetString("CAT_GP_ID") & ", " & d.GetString("CAT_GP_NOMBRE"))
+			Next
+			d.Close
+		
+		Else If c.RowCount = 0 Then
+			d=Starter.skmt.ExecQuery2($"select CAT_GP_NOMBRE, CAT_GP_ID FROM CAT_GUNAPROD3 WHERE (CAT_GP_NOMBRE LIKE ? OR  CAT_GP_ID  LIKE ? ) and CAT_GP_CLASIF <> 'PROMOS'"$, Array As String(q_buscar,q_buscar))
+		
+			For i = 0 To d.RowCount - 1
+				d.Position = i
+				CLV_PICK_CIEGO.Add(CreateListItem2(d.GetString("CAT_GP_ID"), d.GetString("CAT_GP_NOMBRE")),i)
+'				Log(d.GetString("CAT_GP_ID") & ", " & d.GetString("CAT_GP_NOMBRE"))
+			Next
+			d.Close
+		End If
+	End If
+End Sub
+
+Private Sub B_PC_ENV_Click
+	Dim sDate, sTime As String
+	DateTime.DateFormat = "dd/MM/yyyy"
+	DateTime.TimeFormat = "HH:mm:ss"
+	sDate = DateTime.Date(DateTime.Now)
+	sTime = DateTime.Time(DateTime.Now)
+	
+	
+	For i = 0 To CLV_PICK_CIEGO.Size - 1
+		' Retrieve the panel and child views for the current item
+		Dim itemPanel As B4XView = CLV_PICK_CIEGO.GetPanel(i)
+		Dim innerPanel As B4XView = itemPanel.GetView(0)
+		Dim editText As B4XView = innerPanel.GetView(1)
+		Dim inputText As String = editText.As(EditText).Text
+
+		' Check if the input text matches the regex pattern for zeros or if it's empty
+		If Regex.IsMatch("^[0]+$", inputText) Or inputText = "" Then
+			inputText = "0"
+		End If
+
+		' Retrieve and process the ID label
+		Dim idLabel As B4XView = innerPanel.GetView(0)
+		Dim idText As String = idLabel.As(Label).Text
+		Dim idParts() As String = Regex.Split(CRLF, idText)
+'		Log(idParts(1))
+		f=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
+		f.Position=0
+		Log(f.GetString("RUTAA"))
+		a=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
+		If a.RowCount>0 Then
+			a.Position=0
+		End If
+		Dim k As Cursor = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
+		k.Position = 0
+		Dim fechatabulador() As String = Regex.Split(" ", k.GetString("HVD_FECHA"))
+		Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0))
+		Dim fechatabulador3 As String = fechatabulador2(2)&"/"&fechatabulador2(1)&"/"&fechatabulador2(0)
+		k.Close		
+		If inputText <> "" Then
+			c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO where PC_ID_PROD = ?", Array As String (idParts(0)))
+			If c.RowCount = 0 Then
+				' Insert data into the database
+				Log(f.GetString("RUTAA"))
+				Starter.skmt.ExecNonQuery2("INSERT INTO PICK_CIEGO(PC_ID_PROD, PC_NOM_PROD, PC_CANT, PC_ALMACEN, PC_RUTA, PC_FECHA) VALUES(?,?,?,?,?,?)", Array As String(idParts(0), idParts(1), inputText, a.GetString("ID_ALMACEN"), f.GetString("RUTAA"), fechatabulador3&" "&sTime))
+			
+			Else
+				Log(f.GetString("RUTAA"))
+				Starter.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ?  WHERE PC_ID_PROD = ?" , Array As String(inputText ,idParts(0)))
+			End If
+
+		End If
+		f.Close
+		a.Close
+		Log("Processed item " & i)
+	Next
+	et_buspc.Text = ""
+	CLV_PICK_CIEGO.Clear
+End Sub
+
+Private Sub b_terpc_Click
+	Msgbox2Async("Una vez enviada la información no podras hacer modificaciones","Atención","SI","", "",LoadBitmap(File.DirAssets,"alert2.png"), False)
+	Wait For Msgbox_Result (resultado As Int)
+	If resultado = DialogResponse.POSITIVE Then
+		Msgbox2Async("Estas seguro de enviar la información?","Atención","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
+		Wait For Msgbox_Result (resultado As Int)
+		If resultado = DialogResponse.POSITIVE Then
+		
+			Dim sDate, sTime As String
+			DateTime.DateFormat = "dd/MM/yyyy"
+			DateTime.TimeFormat = "HH:mm:ss"
+			sDate = DateTime.Date(DateTime.Now)
+			sTime = DateTime.Time(DateTime.Now)
+	
+			For i = 0 To CLV_PICK_CIEGO.Size - 1
+				' Retrieve the panel and child views for the current item
+				Dim itemPanel As B4XView = CLV_PICK_CIEGO.GetPanel(i)
+				Dim innerPanel As B4XView = itemPanel.GetView(0)
+				Dim editText As B4XView = innerPanel.GetView(1)
+				Dim inputText As String = editText.As(EditText).Text
+	
+				' Check if the input text matches the regex pattern for zeros or if it's empty
+				If Regex.IsMatch("^[0]+$", inputText) Or inputText = "" Then
+					inputText = "0"
+				End If
+	
+				' Retrieve and process the ID label
+				Dim idLabel As B4XView = innerPanel.GetView(0)
+				Dim idText As String = idLabel.As(Label).Text
+				Dim idParts() As String = Regex.Split(CRLF, idText)
+'				Log(idParts(1))
+				f=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
+				f.Position=0
+				Log(f.GetString("RUTAA"))
+
+				a=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
+				If a.RowCount>0 Then
+					a.Position=0
+				End If
+				Log(a.GetString("ID_ALMACEN"))
+				
+				Dim k As Cursor = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
+				k.Position = 0
+				Dim fechatabulador() As String = Regex.Split(" ", k.GetString("HVD_FECHA"))
+				Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0))				
+				Dim fechatabulador3 As String = fechatabulador2(2)&"/"&fechatabulador2(1)&"/"&fechatabulador2(0)
+				k.Close
+				If inputText <> "" Then
+					c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO where PC_ID_PROD = ?", Array As String (idParts(0)))
+					If c.RowCount = 0 Then
+						' Insert data into the database
+						Starter.skmt.ExecNonQuery2("INSERT INTO PICK_CIEGO(PC_ID_PROD, PC_NOM_PROD, PC_CANT, PC_ALMACEN, PC_RUTA, PC_FECHA) VALUES(?,?,?,?,?,?)", Array As String(idParts(0), idParts(1), inputText, a.GetString("ID_ALMACEN"), f.GetString("RUTAA"), fechatabulador3&" "&sTime))
+					Else
+						Starter.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ?  WHERE PC_ID_PROD = ?" , Array As String(inputText ,idParts(0)))
+					End If
+				End If
+				f.Close
+				a.Close
+				Log("Processed item " & i)
+			Next
+			Log("Finished processing all items")
+			P_CIEGO.Visible = False
+			et_buspc.Text = ""
+			CLV_PICK_CIEGO.Clear
+			c = Starter.skmt.ExecQuery("SELECT PC_ID_PROD, PC_ALMACEN, PC_RUTA, PC_FECHA FROM PICK_CIEGO")
+			If c.RowCount > 0 Then
+				For i = 0 To c.RowCount - 1
+					c.Position = i
+					Dim cmd As DBCommand
+					cmd.Initialize
+					cmd.Name = "select_HIST_PICKCIEGO_MARQUEZ" '
+					cmd.Parameters = Array As Object(c.GetString("PC_ID_PROD"), c.GetString("PC_ALMACEN"), c.GetString("PC_RUTA"), c.GetString("PC_FECHA"),"REPARTO")
+					reqManager.ExecuteQuery(cmd , 0, $"PICK_C_${c.GetString("PC_ID_PROD")}"$)
+				Next
+			End If
+			c.close
+		Else
+		
+		End If
+	End If
+End Sub
+
+Private Sub P_CIEGO_Click
+	
+End Sub
+
+Private Sub b_aceptar_Click
+	Private f As Cursor=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
+	f.Position=0
+	Private a As Cursor =Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
+	a.Position = 0
+	Dim cmd As DBCommand
+	cmd.Initialize
+	cmd.Name = "select_estatus_MARQUEZ"
+	cmd.Parameters = Array As Object(a.GetString("ID_ALMACEN"),f.GetString("RUTAA"))
+	reqManager.ExecuteQuery(cmd , 0, "estatus2")
+	f.Close
+	a.Close
+'	p_validacion.Visible = False
+'	et_codigo.Text = ""
+'						
+'	Subs.panelVisible(P_CIEGO,0,0)
+End Sub
+
+Sub passaquci
+	f=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
+	f.Position=0
+
+	a=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
+	If a.RowCount>0 Then
+		a.Position=0
+	End If
+	Log(a.GetString("ID_ALMACEN"))
+	Log(f.GetString("CAT_CL_RUTA"))
+	
+	If et_codigo.Text = "KMTS1" Then
+		p_validacion.Visible = False
+		et_codigo.Text = ""
+		Subs.panelVisible(P_CIEGO,0,0)
+	Else
+		Dim cmd As DBCommand
+		cmd.Initialize
+		cmd.Name = "select_CAT_PASS_ARQUEO_MARQUEZ"
+		cmd.Parameters = Array As Object(f.GetString("CAT_CL_RUTA"),a.GetString("ID_ALMACEN"),"REPARTO")
+		reqManager.ExecuteQuery(cmd , 0, "contrasena")
+		f.Close
+		a.Close
+	End If
+End Sub
+
+Private Sub b_cancelarcodigo_Click
+	p_validacion.Visible = False
+End Sub
+
+Private Sub p_validacion_Click
+	
+End Sub
+
+Sub CreateListItem(Id_prod As String, Prod As String,cant As String) As Panel
+	Dim pa As B4XView = xui.CreatePanel("")
+	pa.SetLayoutAnimated(0, 0, 0, 1, 10)
+	pa.LoadLayout("PANEL_PICK_CIEGO")
+	pa.Height = 55dip
+	pa.Width = 298dip
+	'pa.Width = clv_orden.GetBase.Width
+	L_PICK_CIEGO.Text = Id_prod &  CRLF & Prod
+	L_PICK_CIEGO.TextSize = 12
+	L_PICK_CIEGO.Gravity = Bit.Or(Gravity.CENTER_VERTICAL, Gravity.CENTER_HORIZONTAL)
+	ET_PICK_CIEGO.Text = cant
+	'cxc.Id_prod = mostrar3
+	'Log(pa.Width)
+	Return pa
+End Sub
+
+Sub CreateListItem2(Id_prod As String, Prod As String) As Panel
+	Dim pa As B4XView = xui.CreatePanel("")
+	pa.SetLayoutAnimated(0, 0, 0, 1, 10)
+	pa.LoadLayout("PANEL_PICK_CIEGO")
+	pa.Height = 55dip
+	pa.Width = 298dip
+	'pa.Width = clv_orden.GetBase.Width
+	L_PICK_CIEGO.Text = Id_prod &  CRLF & Prod
+	L_PICK_CIEGO.TextSize = 12
+	L_PICK_CIEGO.Gravity = Bit.Or(Gravity.CENTER_VERTICAL, Gravity.CENTER_HORIZONTAL)
+	'cxc.Id_prod = mostrar3
+	'Log(pa.Width)
+	Return pa
+End Sub
+
+Private Sub ImageView1_LongClick
+
 End Sub