cambios isac

B4A/B4XMainPage.bas

@@ -178,6 +178,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CUESTIONARIO (HC_CLIENTE TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PAGARES (PA_ALMACEN TEXT, PA_RUTA TEXT, PA_FECHA TEXT, PA_CAPTURA TEXT, PA_MONTO TEXT, PA_USUARIO TEXT, PA_CLIENTE TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS NOVENTA (NV_CLIENTE TEXT, NV_FECHA TEXT, NV_USER TEXT, NV_MOTIVO TEXT, NV_COMM TEXT, NV_LAT TEXT, NV_LON TEXT)")
+	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)")
 	Subs.agregaColumna("PEDIDO", "PE_ENVIO_OK", "INT")
 	Subs.agregaColumna("NOVENTA", "NV_ENVIO_OK", "INT")
 	Subs.agregaColumna("kmt_info", "CAT_CL_BCREDITO", "TEXT")

B4A/C_Principal.bas

@@ -112,7 +112,6 @@ Sub Class_Globals
 	Private bpv1 As BatteryProgressView
 	Dim batterystatus(11) As Int
 	Private bu As BatteryUtilities
-	Private Panel4 As Panel
 	Private L_NES As Label
 	Private L_REAL As Label
 	Private L_ALCANCE As Label
@@ -215,6 +214,12 @@ Sub Class_Globals
 	Private L_PREVENTA As Label
 	Private p_abordo As Panel
 	Private Panel11 As Panel
+	Private CLV_PICK_CIEGO As CustomListView
+	Private P_PICK_CIEGO As Panel
+	Dim ET_PICK_CIEGO As EditText
+	Private L_PICK_CIEGO As Label
+	Private P_CIEGO As Panel
+	Dim Panel4 As Panel
 End Sub
 
 'You can add more parameters here.
@@ -536,9 +541,99 @@ Sub B4XPage_Appear
 		p_abordo.Visible = True
 	End If
 	
+'	d = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_GP_ID, CAT_GP_NOMBRE FROM CAT_GUNAPROD2")
+'	CLV_PICK_CIEGO.Clear
+'	For i = 0 To d.RowCount - 1
+'		d.Position = i
+'		CLV_PICK_CIEGO.Add(CreateListItem(d.GetString("CAT_GP_ID"), d.GetString("CAT_GP_NOMBRE")),i)
+'		Log(d.GetString("CAT_GP_ID"))
+'		Log(d.GetString("CAT_GP_NOMBRE"))
+'	Next
+'	d.Close
+	
 End Sub
 
+Sub ET_PICK_CIEGO_TextChanged (Old As String, New As String)
+	Dim et As EditText = Sender
+	If New.Length > 4 Then
+		et.Text = Old
+	End If
+End Sub
+
+Private Sub B_PC_ENV_Click
+	
+	Dim sDate As String
+	DateTime.DateFormat = "MM/dd/yyyy"
+	sDate = DateTime.Date(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))
+		
+		' Insert data into the database
+		Log($"Inserting: PC_ID_PROD=${idParts(0)}, PC_NOM_PROD=${idParts(1)}, PC_CANT=${inputText}, PC_ALMACEN=${ALMACEN}, PC_RUTA=${l_ruta.Text}, PC_FECHA=${sDate}"$)
+		B4XPages.MainPage.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, ALMACEN, l_ruta.Text, sDate))
+		
+		Log("Processed item " & i)
+	Next
+	
+	Log("Finished processing all items")
+	P_CIEGO.Visible = False
+End Sub
+
+
+
 Sub Subir_Click
+	Msgbox2Async("Parara hacer el envio de tu Informacion, antes debes revisar tu inventario abordo, ¿Deceas revisarlo?", "ATENCION","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
+	Wait For Msgbox_Result (resultado As Int)
+	If resultado = DialogResponse.POSITIVE Then
+		P_CIEGO.Visible=True
+		Log(2)
+		d = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_GP_ID, CAT_GP_NOMBRE FROM CAT_GUNAPROD2 WHERE CAT_GP_CLASIF <> 'PROMOS'")
+		CLV_PICK_CIEGO.Clear
+		For i = 0 To d.RowCount - 1
+			d.Position = i
+			CLV_PICK_CIEGO.Add(CreateListItem(d.GetString("CAT_GP_ID"), d.GetString("CAT_GP_NOMBRE")),i)
+'			Log(d.GetString("CAT_GP_ID"))
+'			Log(d.GetString("CAT_GP_NOMBRE"))
+		Next
+		d.Close
+		
+	Else
+		
+	End If
+End Sub
+
+Sub CreateListItem(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
+
+Sub envio_info
 	CARGA = "SUBIR"
 	p_mandaInfo.Width = Root.Width
 	p_mandaInfo.Height = Root.Height
@@ -2083,6 +2178,7 @@ Sub e_ruta_EnterPressed
 			B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_CODIGO_BARRAS")
 			B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ABONOSP")
 			B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ABONOS")
+			B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM PICK_CIEGO")
 			B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM RUTA_SUPLENCIA")
 			B4XPage_Appear
 			l_rutasuplencia.Visible = False
@@ -2281,7 +2377,7 @@ Sub resdia_Click
 	SCROLL_RESDIA.Visible = True
 	SCROLL_RESDIA.Panel.LoadLayout("RESDIA")
 	SCROLL_RESDIA.Panel.Height = Panel4.Height
-	Panel4.Visible = True
+	Panel4.Visible = False
 
 	NUEVO.Visible =False
 	BUSCA.Visible=False
@@ -2653,7 +2749,7 @@ Sub B_OK_PANEL5_Click
 	connecta.Visible=True
 	Resumen.Visible= True
 	P_RESUMEN.Visible=False
-	Panel4.Visible = False
+	Panel4.Visible=False
 	SCROLL_RESDIA.Visible = False
 	Btn_Ubicar.Visible=True
 	p_principal.Visible = True
@@ -2673,5 +2769,4 @@ Private Sub iv_abordo_Click
 	Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
 	B4XPages.MainPage.tipo_venta = "ABORDO"
 	B4XPages.ShowPage("Productos")
-End Sub
+End Sub
-

B4A/MARQUEZ.b4a

@@ -29,32 +29,33 @@ File33=nuevocliente.jpg
 File34=nuevo-cliente20.png
 File35=Nvo Cliente.jpg
 File36=palomita_verde.png
-File37=pedido.bal
+File37=PANEL_PICK_CIEGO.bal
-File38=planfia_logo.png
+File38=pedido.bal
-File39=principal.bal
+File39=planfia_logo.png
 File4=anterior.jpg
-File40=proditem.bal
+File40=principal.bal
-File41=proditem2.bal
+File41=proditem.bal
-File42=productos.bal
+File42=proditem2.bal
-File43=promociones.bal
+File43=productos.bal
-File44=resdia.bal
+File44=promociones.bal
-File45=ResDia.jpg
+File45=resdia.bal
-File46=resdia20.png
+File46=ResDia.jpg
-File47=resumendia.jpg
+File47=resdia20.png
-File48=salma.jpg
+File48=resumendia.jpg
-File49=salma.png
+File49=salma.jpg
 File5=bus-ar.png
-File50=scrollpromos.bal
+File50=salma.png
-File51=senial.jpg
+File51=scrollpromos.bal
-File52=sync.png
+File52=senial.jpg
-File53=tache_rojo.png
+File53=sync.png
-File54=Ticket dia.jpg
+File54=tache_rojo.png
-File55=ticketdia20.jpg
+File55=Ticket dia.jpg
-File56=ticketdia20.png
+File56=ticketdia20.jpg
-File57=ticketsdia.bal
+File57=ticketdia20.png
-File58=Tiendita.jpg
+File58=ticketsdia.bal
-File59=verde.png
+File59=Tiendita.jpg
 File6=carrito.png
+File60=verde.png
 File7=celltitle.bal
 File8=cliente.bal
 File9=clientes.bal
@@ -114,6 +115,7 @@ FileGroup57=Default Group
 FileGroup58=Default Group
 FileGroup59=Default Group
 FileGroup6=Default Group
+FileGroup60=Default Group
 FileGroup7=Default Group
 FileGroup8=Default Group
 FileGroup9=Default Group
@@ -182,7 +184,7 @@ Module6=C_Cuestionario
 Module7=C_Historico
 Module8=C_Mapas
 Module9=C_Nota
-NumberOfFiles=59
+NumberOfFiles=60
 NumberOfLibraries=34
 NumberOfModules=29
 Version=12.8

B4A/MARQUEZ.b4a.meta

@@ -88,6 +88,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Principal,cargar_Click,939,0,C_Principal,Subir_Click,776,0,C_Principal,t1_tick,2154,0,C_Clientes,Class_Globals,0,0,C_Cliente,t1_tick,836,0,C_Cliente,B_IMP_Click,827,6,C_Cliente,imprime_preventa,1018,6,Diseñador Visual,principal.bal,-100,2,Diseñador Visual,cliente.bal,-100,1,C_Cliente,imprime_venta,1266,0
+NavigationStack=C_Cuestionario,Initialize,21,0,B4XMainPage,B4XPage_Created,185,0,C_Principal,Initialize,222,0,C_Principal,B4XPage_Appear,549,0,C_Principal,CreateListItem,620,0,C_Principal,Class_Globals,214,4,Diseñador Visual,PANEL_PICK_CIEGO.bal,-100,4,Diseñador Visual,principal.bal,-100,6,C_Principal,Subir_Click,599,6,C_Principal,ET_PICK_CIEGO_TextChanged,555,0,C_Principal,B_PC_ENV_Click,590,6,C_Productos,B4XPage_Appear,226,0
 SelectedBuild=0
-VisibleModules=1,2,3,4,5,6,7,8,9,10,14,21,13
+VisibleModules=1,2,3,4,7,8,9,10,13,14,6