From f3a9cac35a3749fb523258e6207be76b92dd5075 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Sat, 25 May 2024 01:26:15 -0600 Subject: [PATCH] =?UTF-8?q?-=20Se=20activ=C3=B3=20el=20c=C3=B3digo=20para?= =?UTF-8?q?=20enviar=20las=20encuestas=20al=20final=20del=20d=C3=ADa.=20-?= =?UTF-8?q?=20Se=20corrigio=20la=20declaracion=20del=20tipo=20de=20venta?= =?UTF-8?q?=20(Starter.tipov)=20porque=20no=20se=20veian=20los=20productos?= =?UTF-8?q?.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 14 ++---- B4A/C_Cliente.bas | 7 +-- B4A/C_Principal.bas | 105 ++++++++---------------------------------- B4A/C_Productos.bas | 4 +- B4A/Durakelo.b4a | 2 +- B4A/Durakelo.b4a.meta | 2 +- B4A/Files/cliente.bal | Bin 37890 -> 37890 bytes 7 files changed, 32 insertions(+), 102 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index ccc2845..01d5f03 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -289,19 +289,17 @@ End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. Sub Entrar_Click + user.Text = user.Text.Trim If user.Text = "ROOT" Then Starter.skmt.ExecNonQuery("delete from usuarioa") Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text)) - Starter.skmt.ExecNonQuery("delete from cat_almacen") Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (pass.Text)) B4XPages.ShowPage("Principal") End If - c=Starter.skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text)) c.Position=0 existe = c.GetString("EXISTE1") - 'existe = 1 If existe = 0 Then 'skmt.ExecNonQuery("delete from usuarioa") @@ -310,7 +308,6 @@ Sub Entrar_Click cmd.Name = "select_usuario_guna_DUR" cmd.Parameters = Array As Object(user.Text, pass.Text) reqManager.ExecuteQuery(cmd , 0, "usuario") - Dim cmd As DBCommand cmd.Initialize cmd.Name = "select_version_DUR" @@ -318,7 +315,6 @@ Sub Entrar_Click Else B4XPages.ShowPage("Principal") End If - End Sub Sub JobDone(Job As HttpJob) @@ -339,7 +335,7 @@ Sub JobDone(Job As HttpJob) Next End If End If - + If Job.JobName = "DBRequest" Then Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "agencia" Then 'query tag @@ -349,7 +345,7 @@ Sub JobDone(Job As HttpJob) End If End If - + If Job.JobName = "DBRequest" Then Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "fecha" Then 'query tag @@ -360,7 +356,7 @@ Sub JobDone(Job As HttpJob) Next End If End If - + If Job.JobName = "DBRequest" Then Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "usuario" Then 'query tag @@ -374,7 +370,7 @@ Sub JobDone(Job As HttpJob) End If Job.Release End If - + If paso1 =1 Then If name = "OKActivo" & IMEI Then Starter.skmt.ExecNonQuery("delete from usuarioa") diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index ae0538c..8ae320c 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -482,11 +482,11 @@ Sub gest_Click ' If Subs.traeCliente = 0 Then Starter.tipov = "ABORDO" ' B4XPages.ShowPage("Productos") ' End If + Starter.tipov = "PREVENTA" Log($"TOMAR_FOTO = ${TOMAR_FOTO}"$) If TOMAR_FOTO = 0 Then Cuestionario Else - Starter.tipov = "PREVENTA" B4XPages.ShowPage("Productos") ' StartActivity(colonia2) ' Cuestionario @@ -1315,11 +1315,11 @@ Sub B_VENTA_Click ' Starter.tipov = "VENTA" ' B4XPages.ShowPage("Productos") ' End If + Starter.tipov = "VENTA" Log($"TOMAR_FOTO = ${TOMAR_FOTO}"$) If TOMAR_FOTO = 0 Then Cuestionario Else - Starter.tipov = "VENTA" ' StartActivity(colonia2) B4XPages.ShowPage("Productos") ' Cuestionario @@ -1610,12 +1610,10 @@ Sub B_E_NEXT_Click 'TOMAR_FOTO = 1 Cuestionario 'StartActivity(colonia2) - End Sub Sub b_chk_e_Click Panel10.Visible = False - If Chk_1.Checked = True Then Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, chk_1_valor,sDate & sTime,c.GetString("CAT_EP_ID"))) else if chk_2.Checked = True Then @@ -1710,7 +1708,6 @@ Private Sub b_guadaenc_Click c.Position = 0 Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),itemselect2,sDate&" "&sTime,2,8 )) c.Close - If bandera = 1 Then rb_p7si.Checked = False rb_p7no.Checked = False diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 88764c9..2697bd4 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -481,18 +481,12 @@ Sub trabajar_Click c.Close skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" ) ' skmt.ExecNonQuery("delete from CAT_GUNAPROD2 WHERE CAT_GP_ID IN (SELECT CAT_DP_ID FROM CAT_DETALLES_PAQ WHERE CAT_DP_IDPROD NOT IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD2) and CAT_DP_TIPO = 0)") - ' StartActivity(colonia) B4XPages.ShowPage("Clientes") End If - End If - - End Sub - - Sub Subir_Click Awake.KeepAlive(True) CARGA = "SUBIR" @@ -534,7 +528,6 @@ Sub Subir_Click E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO")) E1.Position = 0 If E1.GetString("CUANTOS") > 0 Then - c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("ABORDO")) c.Position = 0 L_ABORDO.Text = c.GetString("MONTO_DIA") @@ -543,19 +536,16 @@ Sub Subir_Click L_ABORDO.Text = 0 End If E1.Close - c=skmt.ExecQuery2("select count(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL")) c.Position =0 PERFIL = c.GetString("CUANTOS") c.Close - If PERFIL > 0 Then c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL")) c.Position =0 PERFIL = c.GetString("CAT_VA_VALOR") c.Close End If - c=skmt.ExecQuery2("select count(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("NUMERO_PEDIDO")) c.Position =0 Cuantos = c.GetString("CUANTOS") @@ -569,7 +559,6 @@ Sub Subir_Click NUMERO_PEDIDO = 0 End If skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)") - c=skmt.ExecQuery("select usuario from usuarioa") c.Position = 0 usuario = c.GetString("USUARIO") @@ -635,23 +624,24 @@ Sub Subir_Click Next c.Close End If - -' c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA") -' ' S_CP.Text = "Envio Encuesta" -' ' PB2.Progress = 1 -' If c.RowCount>0 Then -' For i=0 To c.RowCount -1 -' c.Position=i -' Dim cmd As DBCommand -' cmd.Initialize -' cmd.Name = "insert_encuesta_DUR" -' cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"),l_ruta.Text ) -' reqManager.ExecuteQuery(cmd , 0, "inst_noventa") -' Next -' End If -' c.Close -' ' PEDIO - + + 'ENCUESTAS + c=skmt.ExecQuery("SELECT * FROM HIST_ENCUESTA") + ' S_CP.Text = "Envio Encuesta" + ' PB2.Progress = 1 + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_encuesta_DUR" + cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"),l_ruta.Text ) + reqManager.ExecuteQuery(cmd , 0, "inst_noventa") + Next + End If + c.Close + +' ' PEDIDO skmt.ExecNonQuery("update PEDIDO set PE_FOLIO = rowid ") If PERFIL = "V-ESPECIAL" Then @@ -916,6 +906,7 @@ Sub cargar_Click cmd.Initialize cmd.Name = "select_cat_gunaprod2_DUR" cmd.Parameters = Array As Object(ALMACEN, e_ruta.Text) + log(ALMACEN & "|" & e_ruta.Text) reqManager.ExecuteQuery(cmd , 0, "gunaprod2") cmd.Initialize @@ -2321,7 +2312,6 @@ Sub Resumen_Click trabajar.Visible = False B_PROXIMA.Visible =False Btn_UbicarR.Visible=False - NUEVO.Visible =False BUSCA.Visible=False connecta.Visible=False @@ -2329,19 +2319,16 @@ Sub Resumen_Click SUBIR_P.Visible = False cargar.Visible=False Resumen.Visible= False - Private r As ResultSet = Starter.skmt.ExecQuery($"Select CAT_GP_CLASIF, PEDIDO.* from pedido join cat_gunaprod on PE_PROID = CAT_GP_ID where CAT_GP_CLASIF = 'COLGATE'"$) Private cRes As String = 0 Do While r.NextRow cRes = cRes + r.GetString("PE_COSTO_TOT") Loop l_montoColgateResumen.Text = NumberFormat2(cRes, 1, 2, 2, True) - b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente where pc_cliente <> 0") b.Position=0 Cuantos = b.GetString("CUANTOS") ToastMessageShow(Cuantos , True) - d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0 and cat_cl_codigo <> 0") D.Position=0 b.Close @@ -2404,29 +2391,23 @@ Sub Resumen_Click l_monto_kc.Text = c.GetString("MONTO_DIA") c.Close Log("Cereal=" & l_monto_kc.text) - Else ImageView12.Bitmap = LoadBitmap(File.DirAssets, "unilever.jpg") c=skmt.ExecQuery2("select sum(pe_cant) as CAMBIOS from pedido where substr(pe_pronombre,1,6) = ?", Array As String("CAMBIO")) c.Position = 0 l_cambios.Text = c.GetString("CAMBIOS") c.Close - c=skmt.ExecQuery("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_CLASIF = 'UNILEVER' union Select CAT_GP_ID from cat_gunaprod2 where CAT_GP_CLASIF = 'UNILEVER')") c.Position = 0 l_monto_k.Text = c.GetString("MONTO_DIA") c.Close - l_monto_kp.Text = "0" l_monto_ks.Text = "0" End If - Log($"${l_monto_k.text}, ${l_monto_kp.text}, ${l_monto_ks.text}"$) - E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("VENTA")) E1.Position = 0 If E1.GetString("CUANTOS") > 0 Then - c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("VENTA")) c.Position = 0 L_VENTA.Text = c.GetString("MONTO_DIA") @@ -2435,11 +2416,9 @@ Sub Resumen_Click L_VENTA.Text = 0 End If E1.Close - E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("PREVENTA")) E1.Position = 0 If E1.GetString("CUANTOS") > 0 Then - c=skmt.ExecQuery2("Select ifnull(sum(PE_COSTO_TOT), 0) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("PREVENTA")) c.Position = 0 L_PREVENTA.Text = NumberFormat2(c.GetString("MONTO_DIA"), 1, 2, 2, True) @@ -2448,8 +2427,6 @@ Sub Resumen_Click L_PREVENTA.Text = 0 End If E1.Close - - E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO")) E1.Position = 0 If E1.GetString("CUANTOS") > 0 Then @@ -2462,12 +2439,10 @@ Sub Resumen_Click L_ABORDO.Text = 0 End If E1.Close - ' c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where (CAT_GP_CLASIF = ? Or CAT_GP_CLASIF = ?) And CAT_GP_TIPO = ?)", Array As String("KELLOGGS", "KELLOGGS 2","SNACK")) ' c.Position = 0 ' l_monto_ks.Text = c.GetString("MONTO_DIA") ' c.Close - c=skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente where pc_cliente <> 0") b=skmt.ExecQuery("select count(*) as CUANTOS from noventa") 'where pc_fecha = ?", Array As String(fecha) @@ -2498,12 +2473,9 @@ Sub Resumen_Click Else ImageView5.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png") End If - c.Close b.Close End If - - End Sub Sub B_PROXIMA_Click @@ -2514,8 +2486,6 @@ Sub B_PROXIMA_Click ' StartActivity(colonia2) End Sub - - Sub Timer_GIF1_Tick Timer_GIF1.Enabled = False Frame1 = Frame1 + 1 @@ -2528,36 +2498,23 @@ Sub Timer_GIF1_Tick End Sub Sub load_gif - gif1.DisposeFrames - - gif1.Load(ruta, "espera.gif") Frame1 = 0 - - Timer_GIF1.Interval = gif1.Delay(Frame1) i_gif.Bitmap = gif1.Frame(Frame1) - Timer_GIF1.Initialize("TG", 40) ' 1000 = 1 second - Timer_GIF1.Enabled = True - - - gif1.SaveFrame(0, ruta, "frame1.png", "P", 85) gif1.SaveFrame(0, ruta, "frame1.jpg", "J", 85) - End Sub Sub VALIDA_INFO - cmd.Initialize cmd.Name = "select_datos_enviados_pe" cmd.Parameters = Array As Object(ALMACEN, e_ruta.Text) reqManager.ExecuteQuery(cmd , 0, "pedido_env") PASO_info = 0 - For I = 0 To 2 T3.Initialize("T3", 8000) ' 1000 = 1 second T3.Enabled = True @@ -2566,7 +2523,6 @@ Sub VALIDA_INFO I = 0 End If Next - End Sub @@ -2578,16 +2534,15 @@ Sub B_MARCAS_Click pnlTitle.LoadLayout("CellTitle") c=skmt.ExecQuery("Select CAT_GP_CLASIF, SUM(TOTAL) AS TOTAL FROM TOTAL_MARCAS GROUP BY CAT_GP_CLASIF") CLV1.Clear - If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i AddTitle(c.GetString("CAT_GP_CLASIF")) CLV1.AddTextItem("TOTAL VENTA Y PREVENTA = $" & c.GetString("TOTAL"),"1") - Next End If End Sub + Sub AddTitle (Title As String) Dim p_MARCAS As B4XView = xui.CreatePanel("") p_MARCAS.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight) @@ -2598,10 +2553,8 @@ Sub AddTitle (Title As String) CLV1.Add(p_MARCAS, td) End Sub - Sub B_OK_PANEL5_Click Panel5.Visible = False - End Sub Sub e_ruta_TextChanged (Old As String, New As String) @@ -2633,13 +2586,11 @@ Sub SUBIR_P_Click trabajar.Visible = False B_PROXIMA.Visible =False Btn_UbicarR.Visible=False - NUEVO.Visible =False BUSCA.Visible=False connecta.Visible=False Subir.Visible=False SUBIR_P.Visible = False - cargar.Visible=False L_P_1.Visible = False S_CC.Visible = False @@ -2647,7 +2598,6 @@ Sub SUBIR_P_Click S_CH.Visible = False PB1.Visible = False Resumen.Visible= False - L_P_2.Text = "Envio de Pedidos" L_P_3.Text = "Envio de Pedidos" S_CH.Text = "EN PROCESO" @@ -2658,14 +2608,12 @@ Sub SUBIR_P_Click conteo = 0 'i_gif.Visible = True ' load_gif - PASO = 1 'End If If PASO =1 Then E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO")) E1.Position = 0 If E1.GetString("CUANTOS") > 0 Then - c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("ABORDO")) c.Position = 0 L_ABORDO.Text = c.GetString("MONTO_DIA") @@ -2674,10 +2622,7 @@ Sub SUBIR_P_Click L_ABORDO.Text = 0 End If E1.Close - - skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)") - c=skmt.ExecQuery("select usuario from usuarioa") c.Position = 0 usuario = c.GetString("USUARIO") @@ -2696,12 +2641,8 @@ Sub SUBIR_P_Click reqManager.ExecuteQuery(cmd , 0, "inst_noventa") d3.Close cuantos_pedidosc = 0 - - ' PEDIO - skmt.ExecNonQuery("update PEDIDO set PE_FOLIO = rowid ") - ' ' c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FOLIO")) ' c.Position =0 @@ -2730,8 +2671,6 @@ Sub SUBIR_P_Click ' cmd.Parameters = Array As Object(armafolio,l_ruta.Text , "1") ' reqManager.ExecuteQuery(cmd , 0, "folio") - - c=skmt.ExecQuery("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO,PE_TIPO FROM PEDIDO WHERE PE_CLIENTE = 0") d=skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO WHERE PE_CLIENTE = 0") d.Position=0 @@ -2740,7 +2679,6 @@ Sub SUBIR_P_Click For i=0 To c.RowCount -1 c.Position=i TIEMPO = TIEMPO + 1 - If TIEMPO > 20 Then If L_P_2.Text = "Envio de Pedidos" Then L_P_2.Text = "Envio de Pedidos --" @@ -2757,7 +2695,6 @@ Sub SUBIR_P_Click T3.Enabled = True Wait For t3_tick TIEMPO = 0 - End If conteo = conteo + 1 cuantos_ped = D.GetString("CUANTOS_PEDIDO") @@ -2767,7 +2704,6 @@ Sub SUBIR_P_Click cmd.Name = "insert_pedido_DUR" cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),ALMACEN,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO"), c.GetString("PE_TIPO")) reqManager.ExecuteQuery(cmd , 0, "ins_pedido") - Next c.Close End If @@ -2791,7 +2727,6 @@ Sub b_e_resumen_Click ' reqManager.ExecuteCommand(cmd,"inst_visitas") End Sub - 'Revisa si el cliente tiene venta o No venta y si es así modifica gestion en kmt_info Sub checaPedido Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE") diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index e8569ec..2772024 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -1330,9 +1330,11 @@ Sub LlenaProdsLL(p As ResultSet, extra As String) If p.IsInitialized Then ' Log($"YA HAY RESULTSET ${p.RowCount}"$) Else -' Log("NO HAY RESULTSET") + Log("NO HAY RESULTSET") ' Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$) Dim p As ResultSet = Starter.skmt.ExecQuery($"Select distinct ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, LISTA_PRECIOS.CAT_GP_ID as precioAlt from ${Subs.traeTablaProds(Starter.tipov)} left join LISTA_PRECIOS on LISTA_PRECIOS.CAT_GP_ID = ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$) + Log("|" & Starter.tipov & "|") + Log($"Select distinct ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, LISTA_PRECIOS.CAT_GP_ID as precioAlt from ${Subs.traeTablaProds(Starter.tipov)} left join LISTA_PRECIOS on LISTA_PRECIOS.CAT_GP_ID = ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$) End If Do While p.NextRow diff --git a/B4A/Durakelo.b4a b/B4A/Durakelo.b4a index 24fb829..5cbcac7 100644 --- a/B4A/Durakelo.b4a +++ b/B4A/Durakelo.b4a @@ -1398,7 +1398,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Durakelo #VersionCode: 1 - #VersionName: 4.05.22 + #VersionName: 4.05.24 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta index e06350d..2e22275 100644 --- a/B4A/Durakelo.b4a.meta +++ b/B4A/Durakelo.b4a.meta @@ -73,6 +73,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Cliente,b_encuesta_1_Click,2074,0,C_Cliente,GPS_LocationChanged,397,0,B4XMainPage,B4XPage_Created,148,0,C_Cliente,B_E_NEXT_Click,1607,0,C_Cliente,B_VENTA_Click,1314,1,C_Cliente,gest_Click,482,1,C_Cliente,Class_Globals,161,4,C_Cliente,B4XPage_Appear,219,6,C_Cliente,Cuestionario,2031,6,C_Cliente,B4XPage_CloseRequest,495,6 +NavigationStack=C_Principal,B_OK_PANEL5_Click,2560,0,C_Principal,b_e_resumen_Click,2732,0,C_Cliente,B4XPage_Appear,254,0,C_Principal,SUBIR_P_Click,2717,0,C_Principal,trabajar_Click,476,0,C_Principal,Subir_Click,636,1,B4XMainPage,Entrar_Click,305,5,Main,Process_Globals,20,0,Visual Designer,Cliente.bal,-100,1,B4XMainPage,JobDone,366,0 SelectedBuild=0 VisibleModules=2,10,4,19,5,6,8,9,11,24 diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index 4f645c8fe2232a162f0cefc03786f39bf12fc382..24c7c99b2ae93d98437372a0ec06c30a758e09f9 100644 GIT binary patch delta 27 jcmZo#!PK;ZX~Xu(ygG~w3~~$%42<9Y|NlSv$YeVJhdT<# delta 21 dcmZo#!PK;ZX~Xu(ljlw1oE#s