From 75922233ffbfb92b402e4452040bb90ea241fdab Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Tue, 18 Jun 2024 15:19:38 -0600 Subject: [PATCH] cambios isac --- B4A/B4XMainPage.bas | 1 + B4A/C_Principal.bas | 105 ++++++++++++++++++++++++++++++++++++++-- B4A/Files/principal.bal | Bin 50877 -> 51261 bytes B4A/MARQUEZ.b4a | 50 ++++++++++--------- B4A/MARQUEZ.b4a.meta | 4 +- 5 files changed, 129 insertions(+), 31 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index acaa625..fab6dfa 100644 --- a/B4A/B4XMainPage.bas +++ b/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") diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index fdddee2..d9c0ffa 100644 --- a/B4A/C_Principal.bas +++ b/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 \ No newline at end of file diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index 79349af87e7fb512f50ad1622bedb195866d4358..9a00e9fa92be729e056902d906964d8b73622aa8 100644 GIT binary patch delta 1652 zcmY+^$x{DN`(cTkFPIY<WrQQ`9lgo#erHZ*Hkka=kZRF?TJs#3h-T`d z);1#E*?#F`B56<9bW|)tca)k%&2Z zmy;{VzKqTE$s4G!k?bc|lB-~~&}y2mfz_gG$#vvA zNNyr;BR7+`E93gw4mH4WCwUinH+c_vFS&)hkK9UbBZpyAZP$J(w382zJIDvg5ppNF zi`-2R)4>%@HJ!ziIa!PBjoE@oAQKFD%>F7BqzwX$hXON z$al$OTk6hedBn6?pm!Lk`Sl`=~7b-+7&wQN7s?qeVwr`%-54%zN>z!Y;fE z31PhUiUD6J^>yKco+tZ*?3{W)7lXsqBH!;4@mR5l4pr$P;hPJHx6`@xv-pPWyZR@5 z$X1gpyR=6lgr(O2?m{^V>SA)PvZxW0vXR)A7Jo050D7HBera~ehn^mO7SVW6jJ|P+ M#gDdZax9wm7bVP_Gynhq delta 1513 zcmYk+$xo9(7{~FMmJ&lOpeQPchzsswrLKr5b*)uVu_~^pRjW|c77Mt%?x+b#$(%_z zka+UcGY1pm-(vg=IQmT6X}^bG`k80mX=mv>^Evp6J1gz zj>O_2^Si0B)^+g7ra~CA=x7dp}rUHgv0PYc)$F9d3Fcj zgYY5vFx&+nfxF?Oa1VT}WY3=Kadh;;5%>gr5RG=rLMu(;T!M(d=tI}--hqNcj0^1_WbP;4BAG?_u&WdLpT9H z61#u?W3hYvo`{o@r;=yz5bO=3k%C9y=kN>oC7gyc@F@HW&KB(zW;ce8ad<-fTJlEn z7JesoE3-T3R{UP_ed%{`;ik)XFa7J&o%!~< z{`!_`srC(~5<_8oa~5yk%2oTTb!tv4)3q?>%V{&-7RfIz{M35D%>D_P++>ZJoe7ju H