From bb11a55157ed4b735329f48c88b36b5828e2958c Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Thu, 18 Jan 2024 16:37:42 -0600 Subject: [PATCH] =?UTF-8?q?encuestas,=20tickets,=20arreglo=20de=20carga=20?= =?UTF-8?q?d=C3=ADa,=20preventa=20de=20V-ESPECIAL=20se=20hace=20venta=204?= =?UTF-8?q?=5F01=5F18=5F2?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 1 + B4A/C_Cliente.bas | 436 ++++++++++++++++++++++++++++++++++++++---- B4A/C_Principal.bas | 102 ++++++++-- B4A/C_Productos.bas | 57 ++++-- B4A/Durakelo.b4a | 2 +- B4A/Durakelo.b4a.meta | 4 +- B4A/Files/cliente.bal | Bin 33774 -> 33517 bytes 7 files changed, 543 insertions(+), 59 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index ea13ec8..40119ff 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -154,6 +154,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",Starter.skmt)) End If Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA (HE_CLIE TEXT, HE_RES TEXT, HE_FECHA TEXT, HE_TIPO TEXT)") + Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA3 (HE_CLIE TEXT, HE_TIPO TEXT)") Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA2 (HE_CLIE TEXT, HE_RES TEXT, HE_FECHA TEXT, HE_TIPO TEXT, HE_PRECIO TEXT)") Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ENCUESTA_PREGUNTA (CAT_EP_ID TEXT,CAT_EP_IDTIPOPREGUNTA TEXT,CAT_CE_DESCRIPCION TEXT,CAT_EP_PREGUNTA TEXT,CAT_EP_RES1_PRED TEXT,CAT_EP_RES2_PRED TEXT,CAT_EP_RES3_PRED TEXT,CAT_EP_ORDEN_PREGUNTA TEXT)") Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ENCUESTA_PREGUNTA5P (CAT_EP_ID TEXT,CAT_EP_IDTIPOPREGUNTA TEXT,CAT_CE_DESCRIPCION TEXT,CAT_EP_PREGUNTA TEXT,CAT_EP_RES1_PRED TEXT,CAT_EP_RES2_PRED TEXT,CAT_EP_RES3_PRED TEXT,CAT_EP_ORDEN_PREGUNTA TEXT)") diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 00596e6..e61d75e 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -143,6 +143,12 @@ Sub Class_Globals Private et_pregunta2 As EditText Private cb_pregunta1 As B4XComboBox Private Label1 As Label + Private sv_encuesta As ScrollView + Private p_encuestas As Panel + Dim itemselect As String + Dim itemselect2 As String + Dim pregunta7 As String + Dim bandera As Int End Sub Sub initialize @@ -312,6 +318,48 @@ Sub B4XPage_Appear gest.Visible = True End If ' Log(">>>>>>>>>>>> "&Starter.tipov) + If sv_encuesta.Visible = False Then + b_factura.Visible = False + B_EXIBI.Visible = True + HIST.Visible = True + Tar.Visible = True + Tels.Visible = True + B_VENTA.Visible = True + B_IMP.Visible = True + gest.Visible = True + B_IMP2.Visible = True + B_INV.Visible = True + Guardar.Visible = True + Else if sv_encuesta.Visible = True Then + b_factura.Visible = False + B_EXIBI.Visible = False + HIST.Visible = False + Tar.Visible = False + Tels.Visible = False + B_VENTA.Visible = False + B_IMP.Visible = False + gest.Visible = False + B_IMP2.Visible = False + B_INV.Visible = False + Guardar.Visible = False +End If + + + c=Starter.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 + Log(perfil&"-------------------------") + If perfil = "V-ESPECIAL" Then + c= Starter.skmt.ExecQuery("SELECT CAT_GP_PRECIO, CAT_GP_ID FROM CAT_PRECIOS") + If c.RowCount > 0 Then + For i = 0 To c.RowCount -1 + c.Position = i + Starter.skmt.ExecNonQuery2("Update PEDIDO SET PE_PRECIO2 = ? WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)",Array As String(c.GetString("CAT_GP_PRECIO"),c.GetString("CAT_GP_ID"))) + Starter.skmt.ExecNonQuery("Update PEDIDO SET PE_TIPO = 'VENTA' WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)") + Next + End If + End If End Sub Sub GPS_LocationChanged (Location1 As Location) @@ -331,20 +379,61 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object) End Sub Sub gest_Click -'' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local -' If 1 = 1 Then -' '2=2 ----> si no esta en el historico local mostrar encuesta -' c = Starter.skmt.ExecQuery2("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA) ",Array As String()) -' If Then -' -' End If -' Else -' -'' End If - Starter.tipov = "PREVENTA" - B4XPages.ShowPage("Productos") - ' StartActivity(colonia2) - cuestionario +' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local + c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String("K001")) + If c2.RowCount = 0 Then +' 2=2 ----> si no esta en el historico local mostrar encuesta + c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)") + If c.RowCount = 0 Then + b_factura.Visible = False + B_EXIBI.Visible = False + HIST.Visible = False + Tar.Visible = False + Tels.Visible = False + B_VENTA.Visible = False + B_IMP.Visible = False + gest.Visible = False + B_IMP2.Visible = False + B_INV.Visible = False + Guardar.Visible = False + sv_encuesta.Visible = True + sv_encuesta.Height = Root.Height + sv_encuesta.Width = Root.Width + sv_encuesta.Panel.LoadLayout("encuesta") + sv_encuesta.Panel.Height = p_encuestas.Height + p_encuestas.Width = Root.Width + + Dim items As List + items.Initialize + items.Add("Selecciona una opción") + items.Add("ESQUINA") + items.Add("CALLE") + items.Add("AVENIDA") + cb_pregunta1.SetItems(items) + itemselect = "Selecciona una opción" + + Dim items2 As List + items2.Initialize + items2.Add("Selecciona una opción") + items2.Add("1 persona") + items2.Add("2 personas") + items2.Add("Mas de 2 personas") + cb_pregunta8.SetItems(items2) + itemselect2 = "Selecciona una opción" + + bandera = 2 + Else + Starter.tipov = "PREVENTA" + B4XPages.ShowPage("Productos") + End If + Else + Starter.tipov = "PREVENTA" + B4XPages.ShowPage("Productos") + End If +' Starter.tipov = "PREVENTA" +' B4XPages.ShowPage("Productos") +'' StartActivity(colonia2) +' cuestionario End Sub Sub Tels_Click @@ -354,7 +443,9 @@ Sub Tels_Click End Sub Private Sub B4XPage_CloseRequest As ResumableSub - If Subs.hayPedido Then + If sv_encuesta.Visible = True Then + Return False + Else If Subs.hayPedido Then ToastMessageShow("Hay VENTA, por favor presiona GUARDAR para continuar.", True) Return False Else @@ -464,12 +555,17 @@ Sub B_IMP_Click perfil = c.GetString("CUANTOS") c.Close - If perfil > 0 Then +' If perfil > 0 Then c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL")) + If c.RowCount > 0 Then c.Position =0 perfil = c.GetString("CAT_VA_VALOR") c.Close - End If + End If + LogColor(perfil,Colors.Magenta) +' End If + + c=Starter.skmt.ExecQuery("select USUARIO from usuarioa") c.Position=0 @@ -578,15 +674,20 @@ Sub B_IMP_Click s=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL, SUM(PE_PRECIO2 * PE_CANT) AS TOTAL2 FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("PREVENTA")) s.Position =0 If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then - Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL")) & CRLF) + Dim totaltotaltoal As Float = s.GetString("TOTAL2") - s.GetString("TOTAL") + Printer1.WriteString("Descuento: $" & NumberFormat2(totaltotaltoal, 1, 3, 2, False) & CRLF) End If Printer1.WriteString("Total Preventa: $" & s.GetString("TOTAL") & CRLF) s.Close - + c=Starter.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )") + C.Position=0 + Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & CRLF) + c.Close + Printer1.WriteString(" " & CRLF) Else Printer1.WriteString("-----------PREVENTA-----------" & CRLF) ' aqui es donde esta el pedo de julieta de los descuentos quitar el precio2 pero meter un if para saber si es ruta especial o es normal o que show. - s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PROID", Array As String("PREVENTA")) + s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND PE_CEDIS <> ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PROID", Array As String("PREVENTA","DUR")) If S.RowCount>0 Then For i=0 To S.RowCount -1 S.Position=i @@ -613,6 +714,7 @@ Sub B_IMP_Click Next End If s.Close + Printer1.WriteString(" " & CRLF) s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and LENGTH(PE_CEDIS) > 3 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_COSTOU", Array As String("PREVENTA")) If S.RowCount>0 Then Printer1.WriteString("----PROMOS----" & CRLF) @@ -639,7 +741,37 @@ Sub B_IMP_Click BLANCO = " " End If Next - Printer1.WriteString("--FIN PROMOS----" & CRLF) + Printer1.WriteString(" " & CRLF) + End If + s.Close + + Printer1.WriteString("-------------RMI..-----------" & CRLF) + ' aqui es donde esta el pedo de julieta de los descuentos quitar el precio2 pero meter un if para saber si es ruta especial o es normal o que show. + s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND PE_CEDIS = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PROID", Array As String("PREVENTA","DUR")) + If S.RowCount>0 Then + For i=0 To S.RowCount -1 + S.Position=i + If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then + Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF) + + Else + + Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF) + TAMANO = s.GetLong("L_CANT") + TAMANO + TAMANO = s.GetLong("L_COSTOU") + TAMANO + TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + + ESPACIO = ESPACIO - TAMANO + + For E=0 To ESPACIO -1 + BLANCO = " " & BLANCO + Next + Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & CRLF ) + TAMANO = 0 + ESPACIO = 21 + BLANCO = " " + End If + Next End If s.Close @@ -650,6 +782,10 @@ Sub B_IMP_Click ' End If Printer1.WriteString("Total Preventa: $" & s.GetString("TOTAL") & CRLF) s.Close + c=Starter.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )") + C.Position=0 + Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & CRLF) + c.Close End If Printer1.WriteString(" " & CRLF) @@ -678,12 +814,13 @@ Sub B_IMP2_Click perfil = c.GetString("CUANTOS") c.Close - If perfil > 0 Then - c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL")) + c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL")) + If c.RowCount > 0 Then c.Position =0 perfil = c.GetString("CAT_VA_VALOR") c.Close End If + LogColor(perfil,Colors.Magenta) c=Starter.skmt.ExecQuery("select USUARIO from usuarioa") c.Position=0 @@ -758,10 +895,10 @@ Sub B_IMP2_Click Printer1.WriteString("C.P.: " & la_cp.Text & CRLF) Printer1.WriteString("Entre calle1: " & l_entre1.Text & CRLF) Printer1.WriteString("Entre Calle2: " & l_entre2.Text & CRLF) - + Printer1.WriteString(" " & CRLF) Printer1.WriteString("-----------ENTREGA------------" & CRLF) - s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE", Array As String("VENTA")) + s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND PE_CEDIS <> ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE", Array As String("VENTA","DUR")) If S.RowCount>0 Then For i=0 To S.RowCount -1 S.Position=i @@ -788,10 +925,10 @@ Sub B_IMP2_Click Next End If s.Close - + Printer1.WriteString(" " & CRLF) s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND LENGTH(PE_CEDIS) > 3 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_COSTOU", Array As String("VENTA")) If S.RowCount>0 Then - Printer1.WriteString("----PROMOS----" & CRLF) + Printer1.WriteString("-----------PROMOS-------------" & CRLF) For i=0 To S.RowCount -1 S.Position=i @@ -817,16 +954,59 @@ Sub B_IMP2_Click End If Next - Printer1.WriteString("--FIN PROMOS----" & CRLF) + Printer1.WriteString(" " & CRLF) End If s.Close + Printer1.WriteString("-------------RMI--------------" & CRLF) + + s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND PE_CEDIS = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE", Array As String("VENTA","DUR")) + If S.RowCount>0 Then + For i=0 To S.RowCount -1 + S.Position=i + If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then + Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF) + + Else + + Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF) + TAMANO = s.GetLong("L_CANT") + TAMANO + TAMANO = s.GetLong("L_COSTOU") + TAMANO + TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + + ESPACIO = ESPACIO - TAMANO + + For E=0 To ESPACIO -1 + BLANCO = " " & BLANCO + Next + Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & CRLF ) + TAMANO = 0 + ESPACIO = 21 + BLANCO = " " + End If + Next + End If + s.Close + Printer1.WriteString(" " & CRLF) + s=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL, SUM(PE_PRECIO2 * PE_CANT) AS TOTAL2 FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA")) + s.Position =0 + If perfil = "V-ESPECIAL" Then + If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then + Dim totaltotaltoal As Float = s.GetString("TOTAL2") - s.GetString("TOTAL") + Printer1.WriteString("Descuento: $" & NumberFormat2(totaltotaltoal, 1, 3, 2, False) & CRLF) + End If + End If + s.Close s=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA")) s.Position =0 Printer1.WriteString("Total entrega: $" & s.GetString("TOTAL") & CRLF) s.Close + c=Starter.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )") + C.Position=0 + Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & CRLF) + c.Close ' Printer1.WriteString("------------VENTA-------------") ' Printer1.WriteString("TOTAL COMPRA: $:" & total_cliente) Printer1.WriteString(" " & CRLF) @@ -985,10 +1165,62 @@ Sub B_INV_Click End Sub Sub B_VENTA_Click - Starter.tipov = "VENTA" - 'StartActivity(colonia2) - B4XPages.ShowPage("Productos") - cuestionario + + c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String("K001")) + If c.RowCount = 0 Then +' 2=2 ----> si no esta en el historico local mostrar encuesta + c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)") + If c.RowCount = 0 Then + b_factura.Visible = False + B_EXIBI.Visible = False + HIST.Visible = False + Tar.Visible = False + Tels.Visible = False + B_VENTA.Visible = False + B_IMP.Visible = False + gest.Visible = False + B_IMP2.Visible = False + B_INV.Visible = False + Guardar.Visible = False + sv_encuesta.Visible = True + sv_encuesta.Height = Root.Height + sv_encuesta.Width = Root.Width + sv_encuesta.Panel.LoadLayout("encuesta") + sv_encuesta.Panel.Height = p_encuestas.Height + p_encuestas.Width = Root.Width + + Dim items As List + items.Initialize + items.Add("Selecciona una opción") + items.Add("ESQUINA") + items.Add("CALLE") + items.Add("AVENIDA") + cb_pregunta1.SetItems(items) + itemselect = "Selecciona una opción" + + Dim items2 As List + items2.Initialize + items2.Add("Selecciona una opción") + items2.Add("1 persona") + items2.Add("2 personas") + items2.Add("Mas de 2 personas") + cb_pregunta8.SetItems(items2) + itemselect2 = "Selecciona una opción" + + bandera = 1 + Else + Starter.tipov = "VENTA" + B4XPages.ShowPage("Productos") + End If + Else + Starter.tipov = "VENTA" + B4XPages.ShowPage("Productos") + End If + +' Starter.tipov = "VENTA" +' 'StartActivity(colonia2) +' B4XPages.ShowPage("Productos") +' cuestionario End Sub Sub b_factura_Click @@ -1271,9 +1503,145 @@ Sub b_chk_e_Click End Sub Private Sub cb_pregunta1_SelectedIndexChanged (Index As Int) - + itemselect = cb_pregunta1.SelectedItem End Sub Private Sub cb_pregunta8_SelectedIndexChanged (Index As Int) - + itemselect2 = cb_pregunta8.SelectedItem +End Sub + +Private Sub b_guadaenc_Click + Starter.skmt.ExecNonQuery("Delete from HIST_ENCUESTA WHERE HE_CLIE IN (SELECT CUENTA FROM CUENTAA)") + If itemselect <> "Selecciona una opción" Then + DateTime.DateFormat = "MM/dd/yyyy" + DateTime.TimeFormat = "HH:mm:ss" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA") + c.Position = 0 + Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),itemselect,sDate&" "&sTime,2 )) + c.Close + If et_pregunta2.Text <> "" Then + DateTime.DateFormat = "MM/dd/yyyy" + DateTime.TimeFormat = "HH:mm:ss" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA") + c.Position = 0 + Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta2.Text,sDate&" "&sTime,1 )) + c.Close + If et_pregunta3.Text <> "" Then + DateTime.DateFormat = "MM/dd/yyyy" + DateTime.TimeFormat = "HH:mm:ss" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA") + c.Position = 0 + Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta3.Text,sDate&" "&sTime,1 )) + c.Close + If et_pregunta4.Text <> "" Then + DateTime.DateFormat = "MM/dd/yyyy" + DateTime.TimeFormat = "HH:mm:ss" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA") + c.Position = 0 + Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta4.Text,sDate&" "&sTime,1 )) + c.Close + If et_pregunta5.Text <> "" Then + DateTime.DateFormat = "MM/dd/yyyy" + DateTime.TimeFormat = "HH:mm:ss" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA") + c.Position = 0 + Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta5.Text,sDate&" "&sTime,1 )) + c.Close + If et_pregunta6.Text <> "" Then + DateTime.DateFormat = "MM/dd/yyyy" + DateTime.TimeFormat = "HH:mm:ss" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA") + c.Position = 0 + Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta6.Text,sDate&" "&sTime,1 )) + c.Close + If rb_p7no.Checked = True Or rb_p7si.Checked = True Then + DateTime.DateFormat = "MM/dd/yyyy" + DateTime.TimeFormat = "HH:mm:ss" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA") + c.Position = 0 + Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),pregunta7,sDate&" "&sTime,1 )) + c.Close + If itemselect2 <> "Selecciona una opción" Then + DateTime.DateFormat = "MM/dd/yyyy" + DateTime.TimeFormat = "HH:mm:ss" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA") + c.Position = 0 + Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),itemselect2,sDate&" "&sTime,2 )) + c.Close + + If bandera = 1 Then + rb_p7si.Checked = False + rb_p7no.Checked = False + et_pregunta2.Text = "" + et_pregunta3.Text = "" + et_pregunta4.Text = "" + et_pregunta5.Text = "" + et_pregunta6.Text = "" + itemselect2 = "Selecciona una opción" + itemselect = "Selecciona una opción" + sv_encuesta.Visible =False + Starter.tipov = "VENTA" + B4XPages.ShowPage("Productos") + Else If bandera = 2 Then + rb_p7si.Checked = False + rb_p7no.Checked = False + et_pregunta2.Text = "" + et_pregunta3.Text = "" + et_pregunta4.Text = "" + et_pregunta5.Text = "" + et_pregunta6.Text = "" + itemselect2 = "Selecciona una opción" + itemselect = "Selecciona una opción" + sv_encuesta.Visible =False + Starter.tipov = "PREVENTA" + B4XPages.ShowPage("Productos") + End If + Else + MsgboxAsync("Por favor completa la encuesta","Atención") + End If + Else + MsgboxAsync("Por favor completa la encuesta","Atención") + End If + Else + MsgboxAsync("Por favor completa la encuesta","Atención") + End If + Else + MsgboxAsync("Por favor completa la encuesta","Atención") + End If + Else + MsgboxAsync("Por favor completa la encuesta","Atención") + End If + Else + MsgboxAsync("Por favor completa la encuesta","Atención") + End If + Else + MsgboxAsync("Por favor completa la encuesta","Atención") + End If + Else + MsgboxAsync("Por favor completa la encuesta","Atención") + End If +End Sub + +Private Sub rb_p7si_CheckedChange(Checked As Boolean) + pregunta7 = "Si" +End Sub + +Private Sub rb_p7no_CheckedChange(Checked As Boolean) + pregunta7 = "No" End Sub \ No newline at end of file diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 766cd53..023c1fe 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -193,6 +193,9 @@ Private Sub B4XPage_Created (Root1 As B4XView) b.Position=0 Cuantos = b.GetString("CUANTOS") d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0") + If d.RowCount >0 Then + + D.Position=0 b.Close e=skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info") @@ -236,7 +239,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) l_ctast.Text = d.GetString("TOTAL_VISITAR") l_porvisitar.Text = e.GetString("POR_VISITAR") End If - + End If c = skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso")) c.Position = 0 DateTime.TimeFormat = "HHmmss" @@ -285,6 +288,7 @@ Sub B4XPage_Appear reqManager.Initialize(Me, SERVER) Log(SERVER) + If PASO = 2 Then Dim result As Int result = Msgbox2("El proceso de enviar información no a terminado, Continuar", "", "Si", "", "No", LoadBitmap(File.DirAssets, "alert2.png")) @@ -361,7 +365,15 @@ Sub B4XPage_Appear ALMACEN = C.GetString("ID_ALMACEN") C.Close 'ALMACEN = 1 - + d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0") + If d.RowCount >0 Then + e=skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info") + e.Position=0 + If e.RowCount >0 Then + + + + D.Position=0 b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente where pc_cliente <> 0") b.Position=0 Cuantos = b.GetString("CUANTOS") @@ -390,8 +402,8 @@ Sub B4XPage_Appear L_CUANTOST.Text = l_cuantosc.Text + l_cuantosn.Text End If - - + End If + End If c=Starter.skmt.ExecQuery("select usuario from usuarioa") c.Position = 0 usuario = c.GetString("USUARIO") @@ -429,16 +441,50 @@ End Sub 'End Sub Sub trabajar_Click - 'CallSubDelayed(gestion,"gestion") - c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS")) + c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL")) c.Position =0 - MARCASQ = c.GetString("CAT_VA_VALOR") + PERFIL = c.GetString("CAT_VA_VALOR") 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)") + Log(PERFIL&"-------------------------") + If PERFIL = "V-MINI" Then + c= Starter.skmt.ExecQuery("SELECT CAT_GP_PRECIO1, CAT_GP_ID FROM CAT_PRECIOS") + If c.RowCount > 0 Then + For i = 0 To c.RowCount -1 + c.Position = i + Starter.skmt.ExecNonQuery2("Update CAT_GUNAPROD SET CAT_GP_PRECIO = ? WHERE CAT_GP_ID = ?",Array As String(c.GetString("CAT_GP_PRECIO1"),c.GetString("CAT_GP_ID"))) + Next + 'CallSubDelayed(gestion,"gestion") + c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS")) + c.Position =0 + MARCASQ = c.GetString("CAT_VA_VALOR") + 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") + B4XPages.ShowPage("Clientes") + End If + Else + c= Starter.skmt.ExecQuery("SELECT CAT_GP_PRECIO, CAT_GP_ID FROM CAT_PRECIOS") + If c.RowCount > 0 Then + For i = 0 To c.RowCount -1 + c.Position = i + Starter.skmt.ExecNonQuery2("Update CAT_GUNAPROD SET CAT_GP_PRECIO = ? WHERE CAT_GP_ID = ?",Array As String(c.GetString("CAT_GP_PRECIO"),c.GetString("CAT_GP_ID"))) + Next + 'CallSubDelayed(gestion,"gestion") + c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS")) + c.Position =0 + MARCASQ = c.GetString("CAT_VA_VALOR") + 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 @@ -574,6 +620,21 @@ Sub Subir_Click c.Close End If + c=skmt.ExecQuery("SELECT * FROM HIST_ENCUESTA") + 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_K001DUR" + cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"),"K001",ALMACEN,l_ruta.text,"1", C.GetString("TIPO")) + reqManager.ExecuteQuery(cmd , 0,"INS_K001") + + 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 @@ -770,6 +831,8 @@ Sub Subir_Click ' End If ' c.Close ' DROP + + t1.Initialize("T1", 20000) ' 1000 = 1 second t1.Enabled = True @@ -860,6 +923,11 @@ Sub cargar_Click cmd.Name = "select_codigo_exhibidor" 'cmd.Parameters = Array As Object(ALMACEN) reqManager.ExecuteQuery(cmd , 0, "catalogo_exhibidor") + + cmd.Initialize + cmd.Name = "SELECT_HISTENCUESTA_DUR" + cmd.Parameters = Array As Object(ALMACEN, e_ruta.Text) + reqManager.ExecuteQuery(cmd , 0, "hist_encuesta") cmd.Initialize cmd.Name = "select_cat_gunaprod_DUR" @@ -1167,6 +1235,18 @@ Sub JobDone(Job As HttpJob) ' ToastMessageShow(" Historico Clientes Promociones Actualizado." , True) End If End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "hist_encuesta" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim HE_CLIENTE As String = records(RESULT.Columns.Get("HE_CLIENTE")) + Dim HE_TIPO As String = records(RESULT.Columns.Get("HE_TIPO")) + skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA3(HE_CLIE, HE_TIPO ) VALUES (?,?)", Array As Object (HE_CLIENTE, HE_TIPO)) + Next + ' ToastMessageShow(" Historico Clientes Promociones Actualizado." , True) + End If + End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = reqManager.HandleJob(Job) @@ -1933,7 +2013,7 @@ Sub e_ruta_EnterPressed skmt.ExecNonQuery("delete from kmt_info") skmt.ExecNonQuery("delete from cat_gunaprod") skmt.ExecNonQuery("delete from cat_gunaprod2") - + skmt.ExecNonQuery("delete from LISTA_PRECIOS") skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") skmt.ExecNonQuery("delete from HIST_VENTAS") skmt.ExecNonQuery("delete from HIST_VERIFICACION") diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index 66c858c..7236a45 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -261,7 +261,7 @@ Sub B4XPage_Appear End If c.Close If PERFIL = "V-COSTO" Then - skmt.ExecNonQuery("DELETE FROM CAT_GUNAPROD WHERE CAT_GP_ID IN (SELECT CAT_GP_ID FROM LISTA_PRECIOS WHERE NLISTA = '9' AND PRECIO = '0')") + Starter.skmt.ExecNonQuery("DELETE FROM CAT_GUNAPROD WHERE CAT_GP_ID IN (SELECT CAT_GP_ID FROM LISTA_PRECIOS WHERE NLISTA = '9' AND PRECIO = '0')") End If ' Log("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from " & query & " where CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO ='PROMOS' AND CAT_GP_TIPOPROD <> 1 and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID)") @@ -348,7 +348,7 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object) If c2.RowCount > 0 Then For i=0 To c2.RowCount -1 c2.Position=i - Logcolor(c2.GetString("CAT_GP_ID"),Colors.Green) + LogColor(c2.GetString("CAT_GP_ID"),Colors.Green) Private tm As Map = Subs.procesaPromocion(c2.GetString("CAT_GP_ID"), clienteId) If tm.Get("status") = "ok" Then 'Solo muestrala si hay producto. Log(c2.GetString("CAT_GP_NOMBRE")) @@ -1150,10 +1150,10 @@ Private Sub l_prodX_LongClick t.Position = 0 Private ventaT As String = t.GetString("cuantosProds") If ventaT = Null Then ventaT = 0 - If Starter.tipov = "PREVENTA" Then - ToastMessageShow("¡¡En preventa NO hay cambios!!", True) - Return - End If +' If Starter.tipov = "PREVENTA" Then +' ToastMessageShow("¡¡En preventa NO hay cambios!!", True) +' Return +' End If If ventaT > 0 Then t = Starter.skmt.ExecQuery($"select sum(PE_CANT) as totalRMI from pedido where PE_PROID = '${pId}' and PE_CEDIS = 'DUR' and PE_CLIENTE in (Select CUENTA from cuentaa)"$) t.Position = 0 @@ -1497,20 +1497,55 @@ Sub traeListaPrecios (almacenX As String, rutaX As String, idX As String, perfil Private listaPrecios As List listaPrecios.Initialize listaPrecios.Add("-= Seleccione Precio =-") - If almacenX = "6" And rutaX = "16" Then -' Log("POR ALMACEN Y RUTA") +' If almacenX = "6" And rutaX = "16" Then +'' Log("POR ALMACEN Y RUTA") +' Starter.hayListaPreciosAlt = True +' c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','10') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$) +' If c.RowCount > 0 Then +' For i = 0 To c.RowCount - 1 +' c.Position = i +' listaPrecios.Add($"${c.GetString("NLISTA")} - ${c.GetString("PRECIO")}"$) +' Next +' End If +' Else +' If perfilX = "V-MINI" Then +'' Log($"POR PERFIL: V-ESPECIAL"$) +' Starter.hayListaPreciosAlt = True +' c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','2') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$) +'' Log(c.RowCount) +' If c.RowCount > 0 Then +' For i = 0 To c.RowCount - 1 +' c.Position = i +' listaPrecios.Add($"${c.GetString("NLISTA")} - ${NumberFormat2(c.GetDouble("PRECIO"), 1, 2, 2, False)}"$) +' Next +' End If +' Else + If perfilX = "V-COSTO" Then +' Log($"POR PERFIL: V-ESPECIAL"$) Starter.hayListaPreciosAlt = True - c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','10') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$) + c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','9') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$) +' Log(c.RowCount) If c.RowCount > 0 Then For i = 0 To c.RowCount - 1 c.Position = i - listaPrecios.Add($"${c.GetString("NLISTA")} - ${c.GetString("PRECIO")}"$) + listaPrecios.Add($"${c.GetString("NLISTA")} - ${NumberFormat2(c.GetDouble("PRECIO"), 1, 2, 2, False)}"$) + Next + End If + ELSE IF perfilX = "V-SUPER" Then +' Log($"POR PERFIL: V-ESPECIAL"$) + Starter.hayListaPreciosAlt = True + c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','11') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$) +' Log(c.RowCount) + If c.RowCount > 0 Then + For i = 0 To c.RowCount - 1 + c.Position = i + listaPrecios.Add($"${c.GetString("NLISTA")} - ${NumberFormat2(c.GetDouble("PRECIO"), 1, 2, 2, False)}"$) Next End If ELSE IF perfilX = "V-ESPECIAL" Then ' Log($"POR PERFIL: V-ESPECIAL"$) Starter.hayListaPreciosAlt = True - c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('5','6','7','8','10') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$) + c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','5','6','7','8','10') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$) ' Log(c.RowCount) If c.RowCount > 0 Then For i = 0 To c.RowCount - 1 diff --git a/B4A/Durakelo.b4a b/B4A/Durakelo.b4a index 4f4922e..f300a7f 100644 --- a/B4A/Durakelo.b4a +++ b/B4A/Durakelo.b4a @@ -797,7 +797,7 @@ Version=12.5 #Region Project Attributes #ApplicationLabel: Durakelo #VersionCode: 1 - #VersionName: 4.01.17_2 + #VersionName: 4.01.18_2 ENC 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta index bb9ce4f..300536d 100644 --- a/B4A/Durakelo.b4a.meta +++ b/B4A/Durakelo.b4a.meta @@ -70,6 +70,6 @@ ModuleClosedNodes6= ModuleClosedNodes7=1,3 ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=kms_helperSubs,traeRMIdePedido,548,0,C_Productos,B4XPage_Appear,148,0,C_Productos,b_prodMas_Click,714,0,C_Productos,l_prodX_Click,1093,0,C_Productos,l_prodX_LongClick,1142,0,C_Principal,B4XPage_Appear,409,0,C_Principal,trabajar_Click,431,3,Diseñador Visual,encuesta.bal,-100,4,Diseñador Visual,Cliente.bal,-100,6,C_Cliente,gest_Click,334,6 +NavigationStack=C_Productos,l_prodX_LongClick,1134,0,C_Cliente,B_IMP2_Click,859,6,C_Principal,Subir_Click,624,0,C_Principal,cargar_Click,923,3,C_Principal,JobDone,1240,6,C_Cliente,B_IMP_Click,787,6,C_Cliente,GPS_LocationChanged,363,0,C_Cliente,B_VENTA_Click,1162,0,Diseñador Visual,Cliente.bal,-100,2,C_Cliente,gest_Click,377,6 SelectedBuild=0 -VisibleModules=21,2,9,18,7,4,10,22,11,23,15,1,13 +VisibleModules=21,2,9,18,7,4,10,22,11,23 diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index f352e1e0b6fc6fb836fcefda634ed8b747604495..69c877750d87cccd8f06eb174ba4304c60956ef3 100644 GIT binary patch literal 33517 zcmeHQ3zS>Md6w*5V}V0yAtnzDch}fF42$<+dkqGxmE>KS-PL*@hR`PB?&{hr&`MiL z>qlNSPLrmkNdpZuBqb$;Qko`dlhBej4M|E0BqSw|CiIy?U!kOgH0{X=X;0nn`>*cY zJ6dU_yOOPQy6Bv_`_DiB{4?{v=AY5E+#U!7+SUdFr{nJ=3cx^krkFmIE*?D#aFGNh%{g zXCAcnr>(=?KaEQZ*_a%9xiJbnzBiYxuThoW-}QvGZ~BO&6vrVT!ups znwOaXSO7D#)NZA6L=T(EY;JBkZ>_V53uY#j%fT`!1ay`<#$Yd*Za0Uup{*|H!O9YB zf_~M@MfPl0y?WgCUPalbplu4;uAm(Xa{KP&I!C8s`x9&&GqYBvTf{A(N8D29=r+w( zMZS}ZEgXWZA)-Rj{25fcCT8-vOok>?VnIc@NOmqJi|Dc%(4=i`lUAk>LzSPP{U@*r ze@Q~Mai$JT1`fxpIb6_spff-L6_@@BVmuUN3oCBZjfzR>4 zuk^s{J@C06_*H-%{;vl78kE~T!%93fk!;> zDBuLj7|K2rhyOTWhtGruroYgRQ`pmPu`;>tuKDai8g060%}vYxIGtIrh7u-gN zp?h8at|w1l)x9pZa8>g5*N3BzJwDL(^_SLs;VmN@&wlP9>yB4nu;tosB|b5=`qudu zLyzD6*qdH8_tf?WkKOcCe9Jf2y(Tex^_|~d7o2%|-`LmQcl&v7yF59(~+t~rY;~UZrlR<2?tSs55voo26lr@jyQbt+yrc~$6Ja_>R zBPyB)Il&@(Fkr>A2Xgs2b0+=hr?SRa9t_j-W`-jPi7b#o_fWc!#^gAiLuNj0W{X=n zNX9x)q-_>+^JIIN0^p#tR{G$qq!_bic4ju07alf9!Ygk{rwR=GTNw?@H9~dUi4(j;Ai0HN8 zbmEfC%>1m${iCEtr;Vujyj3VzDF-DQ&ScW_h4dRmSEGs17$sE7$7m@Ba@k_|uvN&} zHoz*WshQbu25vD2tNJaM^N!pNzqY>o4!myu5|TbSobdPhtjXAVq+`5+OJN&$hSk5$R1*dv!=bqA%y z>O5=xKYr58J8RT>D+AFNhh##JIXm8H6p`tDvCk7TM{a1?IGQ0Vq{?4Zs}J2 zWU|rtcq|f$Cq|{45KA}7{bCc7;b=ly+^kTN#zST|+dNnwX4 zF}bKch3#Ap7U?9kLcfF2#z8Xc6>LBI+N<13^~&;%@XW&8LdHy)LL>Zbnr^ydV)|wa z$Gn^o$xT~%p2v*X0gER;q3@Bf!t{`;8BG{+=pv_{ZU&lC{y2(cUXVSa!BX-sm|hR2 zM=*WvH2b-Z7*7g@=)52V+r%)O6NsR;Q*G{PLvW&gIel@6kz6W$AU$JGqo0-`skKnL z>hGr?P4ehraLz``${5i{KPJ6;-Jc)7lk(C?a$kfQxa5x$^dX16T zL~KF`)!ByDKM@}_B8g~xFk$Q)mu5L94)B!9l|{nigW++fO$@?5*3#If2H=TyuWeie zTybQK>%$)dR=r;sZfAm8$pzK%kD+MMY4M^8y__J}HIOdiZ0%H;CA*4!v8W3HlI;mcCa1>3(kj{$Iml^@f&dRT z^@+wjmkO~PhH$+QO^5*dx~l~$IY&vL@*cG~2`ghAl5~K&u#a1nQ#fsXVzBBCqguw~ zTs3S4>-sJzXaI7j!KtMS!oW(=??xg$)rN8I7$hNcDy5?!V~OXQf^3m*%vjM}R(6`% zbXK+!{*|pn2F}he6rD6?5;r+C$9c0*IE^$3Xv!=sU**tlHQ za6M779ZOsv8#l1iQq&TWwlVpbjE^OZ*BPa&6hmn=HbJ|vBbP*(2<}?q(Qs4@K`f(m zJl0erF|l+pK?bEuEAi9x!3Cy&mhs}PAL5KA90bL*$KCMNz&-tRD+xJ9G&byPBC=Lq z5NRXJ;avG+_f}Hrw?{H_*(+q`JGJg|V_+ZDIezK3h|=_4sEIs!whN~|o>VIZ1^4hz zTV8xYz~y>w5m-%UktYvH*2w)c5IA=2ZUE2Nl|YDpIcSLLrVRw&0~D7?L?A?+N;~Jy zNv}CUG>UNGO4ppghhqtb8$pO#;irvxW_yr(Scqm!skh4oKzon@Tt?-&Us`$S4>5UW zloo)&E99K**PQslk56!`YY)<8Rx@-4Q+QBZ0`OEXfZ+fg1W*E<4!}y=Mm$zu$Oo&T zO?b#6>Cx`mFLKZq1GogmroPlcQzTnZf)q(L*3ui`YdBJMjWS3{I5(2I!X85Fy?_>?RP# zL+RQ!7G)K#)o_Z!U@z1z?U#X*0j$ivg8+)li4}TBpltw;m1s4e?CkVwH4%ua0jtTP zyKXgPSi@?fAW`8%tR@DGZZ*Bo?Q*Q`GFgU4?dYk)z+ z)&KwzAme&{8h8SfuHPPa7)$~Xzx@dS10_hlY9*b-pvcGe+v@!-h0K zq12~=M?hIY0~}p6z;*+rrUphp)G`f>V(_MFfD9Yb0Js18G*HC{@?fC*0OQ?KK9E3r z%QP^C!JDc9GHgf#yTPC#4SWR*bPb#j%u*WIhxV3fU>t)tRRd($kOmmW8`8kX!N8ve zCeWj08sK`HssS==NCUHAP@e`ET-<%&OdJep?7`kFg51_X>dqHLfc58ZDfD&y78P3q99{gDIkkaO({Fzk zL@m?6&tdSUYJd!VXyElA*ELZ88K#N`)ETC34ZNY18b~%<17zq!12=(O*FgOlbQKM# z47zR&n3zP%d|(=bH`NEo(1!+Q7HMENFxQ~?y?;X&I|```x^4|nl`Yc%uR@xt0W$QV zfde4deW3mfx{42|47zR&9Bicqn6H*=;GOl~WubT3PE3YAG>`_lu7Ub9Xk7z&Cxbo! zbN06r-;7DL%m;44;N==J6_9~#Ik(!c}2G!%t4JK1R6J}`$NTc!c#%nfMZE_B!L zbIH($2G)bz_5lErjWUccM*|N#45E$()Omn>J5bP2@q3sY&@I!zJO*#72FS1>4Ll15 z4QXK7(Ey{AffB5xfu9Fa%QV2$tpN?7cbN~6p$`odK(6ltUj?Q<4crAv_e4emr>KJw zM+0m(h^eK4B8Xb1fdvfSR1J`!4-Fgwxvqg{fmx0Q(9PC>@_~ndF;Hr1;4p}64XmuY ztYv%~d<3E@w-+CGS=<=(U5gBLd#QexwH~y)P(nxXu&o9!t%%z#_uJrifRixzlH<2( z@46UG9Vlq1xOcq~=#^+SxA}kbL~sGdeZLYQU(>YE;fy%WB?& zt}To9Z^hu{dhn6;^WduMfedv$EO`S;2evf;K-`Wxxdx^7-NO^0a`#)xTNpeKK+aut zzeDf~=+QC_9K+yE)c_ebq=ENl?>qO4FHE=72Y?%gVISpulyMgWlWavW!Zv(mQ z1J1Vq_4|N+_W(v^KA@ryU84hqv#s?0+b;s$G7Y>PgEyc7-nQu)AVVJ-SR94wzk8?> zh1A_c-9Es?qh%WSrDkh@3>(tGpMb$~qR`$oB_DWeTWKH2!{!ZetC{t`6GXNKHUV0N z655PMyFy>&pt+~7=r@Od83HKx*qiM8+CDU?NMoQP-vR4y4pXGM$C9CLFLh-7zk*J7 z^0yMa>k8*F61E7EF~aaR0Qh^hgrS$tL`L*G`z zPEEF&ANsbMcPXnG1SGL$2!I=FE_KkS0oa0qDAueuhu;lO<$7r7+ZHm^_29|+uSDay zDDuw)b`khBJoJp`e5|g%Xs`P%7}*)mF)$Fnt^1CLX>QB*+uJdC0~$Dp?t1(rLmwJg z5Ax+|;9m4~&s~3rnuK1Z0d-$ObO(x9Zl?p_Z|UD$+yQ7M?zhW`oWBlHmD@{0w`^pn z+e;n$?R(M5wwgw7*}%xQnh!dDI}5-7w&s3&Cx}jx--2`H7xwN#LlyDwMNf&EAVEzWkOM)-SjVx;gOgE8n-IZCfxGVbG?VO5%670c4t)zmx zz7Opy(Os8uy?Hl8RcE=^ldfwpp$>A393Vr8*9{|ia-6K+70lpX*C}N z(aTnYRQVMU1V4~qmA&b=&`@qQ4W$NT=-X=UMW@mZ)!-L!U}W!5>Sgldz!)est>!}@ zvaRMmK&wzfAI8HyRNe2Oe;dF9Z2uiR9z+Qq#)BX4zit0r)YXn?pdvfD?Cs>c!NHsZ zAVgwaZ08ca9uL`YQvlSi`dU=lEBOrYW&1Oas|HHV{rMvxT8TchjQ#odAgTs@X7T<^ zhPv{r@6T6(b{9(Mqj)sOXL!jhM&|!Z>yM%9%T@zz)Q+?thp5V}rlG8k4C}QT#u2fa z-v{8|YTW(T-JdrEOID*^(@TQ4fl@Ql{sD+qqSY)TtNR2*Rca?r!wP>pKV@4newEZz2yj%DFAP&ED>_EXBOM&nS0Fv-=$PFlx0!qS1VqK!O z56oX{jri#p&*6&|Wp& z{Zllm@eEWX<rgWu!(EfbS)mc354*k@}wjb2ZAE6V9teWLclodG0(9#r{FID*%a$jsXy<9|vHd)O6A7 zKx9k(Q9vT~F9J9drSuzee-3c5upT2ppcl{3Vv%uqkF$vu#)v9EBljg@zKn<1Fh{8( zM~KNe*y9)TQUvYpCu>I;}l8#DGYTIq)xUzr2aLKH%IDBpOzUv_Mz)3 zlKR&%)Jc#!+4_+BH$dKGsr$F}2_^MGKoYfw094s4x1dS(!)mFN^Lv?~D@&!ifGPiB z%5MT!u7`$RP$9#r8n_aT`o8&>z~~y-4NQIeW(t&UjK2^yv3n-X5^b2{8YngISf)T^ z+kFc(@GT5pMFV|k>fi!U?3HkBXQRlEA8r63O?u`+hCVd#ZICxd18SFLmLM8<2!Mf7 zQv;wWWsXk+vUTw=An^u9v?|_E%?X?z)MbBuoHOX|-JWFVuh7teA~G}xaN;6f4k_ZL zjZx?!61!483pHiPVs#|!L=k3k{<1|tmadVm``^-cHr&2NL~lk1gZ-Wd&_Mvj<;2R# zIfMQ+IIHmtR4RPs!mLYHPhxlVl!d-}66&k3bfLvXi?EIZkky}w)f%YOOl=21* zvb+Yx?@3MxUcFVI1kdzdtwgC1$VDf)O~9=}dHGfCD)#cX5RTZ(-vOYcap~32O(GfU z_Ob(*%0KeF6)n_d=%i{O>JQXfkRzA495 z{!aWE7zk>&KNXLw&!Vkd-c7i8A=|1_kD^iSJYw!{kaS+Xsy|5T7cVME9>*ZM)alGi zN!>lJ-UrH6C^cV)_zZ|1M5*{X#6O}zjc1UG>4n(qhXHILhRc+_nZ&xll!U~4N!ZCA zDDwaNReT*nt)2;szt!(U4|{LE56~)<##aAN;86GKN!-NMw?Rt&RzHCW*sFg8kgWc5 z0DLB_b$Q%BgYQZ3II`76=!tWu#N+(i+!W?~ilqK8Cr9dJ+ghpnw{=XplotLgAY1+q z0}`wMGytDgU)M41yWp#b1DcBjLk=mykl|5+A&Fh7F87$GzA9Xcl}R{IUlp=R&88Eh zp>BUp&N1ydFjwOls4TS=kl0;4WwD&CU@c!o>r!MdN zHw;`J6&pIHk)bX{Pdr?Fg|!~!&B^Srlw`p@Sc!hq#p{V19GH)i(`vk8nvrkh1vj;Jqk&=&)^ z1jW|Cr4ITu09#Q0|Ns9+-@_`!xSDnJB}3hIsK`@x^qs?C5(2r^NC?aUFi?UU@sNOA z#S`5V*r^MF|BgA8`*tY=F7N0|hPwEd41v#pyvZSurxtzhp+1%pJeo_%$qRsNSNuL8 zaoiUHEHgPlPx*M?SN{PpG8eWOC~|fD9|ZU^y(A|bQj(LO0FdN_y7-_hfJS&8iv5BB8^tyWh=|l3@-eJcO-peiU0a1mFz|m%0MY&c literal 33774 zcmeHQ3zS>Md6w`4i@2^^h#?Q)u8oa(c(c2H>>3EHUbba+SBtDQgcjtxtGix-R@zEh z8z&?&q@igcDbPS6DJf}bn$o0g656I|Lz~h93AE(Vgg#T~D><|&J#9};XnX2@-+y)I z-qGrHS28-O(K&PV&&)sn%>1wU|G8RwRUi;JcTFI02EM0I00zP{mE4hB<=A?_{Z8fD zlDV*8l}<<7bY^Dm=8UzD-I2vgrC6wTu11U9Kr)d`JTno$F3ll;uS-M{A%N4FS#zec zSTb3OWcE&lQ?YPrl~fYrlR_f{V5r(Oaga^ZnR#=;v`HO|Po%@ro6cM#BcuB=>F^ey z^+${I3&q7kR$JEv(K&18=1B3D>N>ePr-^hpJmLUR2Z#xPoemP?YFW;HjkN^LUDe&WUaN4%Vs`XEJ8EM1Pqos=HMt0BK62LaQtXb9Y# z1E1-E&+@>p_rM!G@Yx>t9Ka6!HvoPk%9~K$?19e(?BJZ|fzS8A2H-xFjVPNu@C6=t zvj^VdfiLvHTLE8$axuy!9{5rZyv+mmd*HWt-~kUj=z)hk@OBTp!vpX1z`H!~um>LT zz`H&0Wghr)4}66Oeyaz*(gR=Rfk!=X*aJsAaMT0GJaF6tQ;!{f?)AX?06Q{G0N#&s zHOiO=9{0c#9ykej66G3{6pBOt0APn^+5^*esMA>-b~ju3;$Z(m;V>0ASFz@&<=~vo zFIsH<5L(Z_lg2|++xGrv&NyvwZG7?a%sn@RV^2O6S^1S$R)680_G8w)Z#e&w ztG=H6)YOXG7G4fL_2855IA{L3T^~Pw=()rtUt9ae^u4oR zKJ@uVU;gm?TTfj7-Dh4}@y$)g{`q07=vyc>_?dG0*n&k9iA|g3+)RJWD(4OttWy8D zRWY4Nfv%zgJep~3_&^gj3%Pk5GQ~m+eBn2@oh_M1&FQ>F`=})ztM=h=&lgKhjn>@n z4AZ;lV5W|#C-KWkY9lFt=p@{3t3ovY*p^Ct6%Ngk3% z1&k(F7t9i90T3msn1{K*3P;d+B?_~}(!4p7d*U+%W3mK-xdk)NnFK{PNC$i*SI%K^ zT+R`*lrsyJ0Zx*)W-HXqN^yZ?kCFkLbk52ho|D*P&MeH#6-z?H28npt&ADuuhrj^6 zW35CeZaFcj-ddDEpHqwNNX!<}wYkb%RJdMtIyj-3Uzn4S(8}j?3+3F~g+~*~i8y;D zDxiF3i-k(~s8uf7oM)A|R~tiP%Xa0+WrGj zW-Fg7SJ(mt;UVXmjr5LHd#T(s+H9^YdhXEReyXbPZCWT<<+7D^n#e*4iD~22?e9yb z64xgYt&a)k?E&QBcrlxs&CQtH?+%WXaEP^?B0NNk{Ej5YVie+m#Doz|#u9sz#x*Ho z?c$gS!+(k=8cyvEr>b2NaoOnt89o&O|7FZbBTbfoN;Fv@PlRpdts~+KNXd@77!=ep zo5E4?H@CkeT)(i+D2H+Vkz57IjZ ziUn~DbGd?8CcnipW#YoZV#RT&%AUY%$kmmVeZ-ta_p zUpyt*B^zTTJDI#To-*KxlmYLgiKY{iN#kusHTN^(*X=`w8%rX&Ba7{XVu(beNDdRR zaEyw(n|;*?UK7#?JF1Bk!D^B%+MheT$WzHOUcT+4T+jihfn3_-dPFtv&;7Ic8*i|A1gc-BuC_Qs6;*aB=SYdizvlB zh0kQ044X{Fjcvw3FjP`YTTrs4n8PR~=pjNA$?-_a75;Y49809)(P$z$p-?3cj2}pc zV@cVi3>D&%Kt_{e$%#Z*y4>VZ)FGTk{uhf&*AA`_Yj)CDY23+B!f9l#E3Ix`IygWV zEju#8GmG?OxiW5lT**G*He6Obb(xN5)(&A>)gCpEWoc9BUNUAId!cTPsN|T#Yk5E0* zyfQF2tC6+xM(l}C+SBjk?(!MAQIK)FxP0EAFgTR88{z2G_|#Z97B;pU_d!7txkYfiS8t+(_w3m|KTwLIua5O!Y3QMoV z08ndOZ?TILgNAfTgXf-1`4gs|^-df&o9A(`G~=fxd9DRm%@q*r?vv1u&L|K#e$^;| z7wk$P#BVMpL}8Pc!Mo8!Ua=t%qOwar7f;TuKEY-bp+H8hK7kMCk`@X)M27OSlA+70 zAaylFpHCmPN;3LYL5f*sWg;)V%;H0gfGJA>cru2ZWPSCCfBW7Es`RQL&zBWEmxEb6 z$SwhxrVC&=Kpz2=z(xmPW#uM3R$RabtD((!$R@V{aQA+p)6BhZMG;Dkn1IDKV8TTh z8oC${4>vAB^-{KTzuQnS$3nQDEpNd?t=m8)NDc|RxIWpo1z-S0h6@8pa1dp!aFNU& zLRl5qj%R2G9*U_<`eht5ei5fIa1OO$b}`{+q90<0ulQy&UO0RO+Fc2(gNg`&Z-bet z-vCaK&1xr#5*kI*0xK^E)H4Zi7qt?2U;7f^E_4ZypbrV~Zp4;A_P+1NLjy#8GVQrOxRD`dT?BlGQ!*p86CU5&CNGJn?c% z3GMYq=*~c(0U^){tgPoV_o1U!Uk=$8n?P3|3bngiLcoLfQDf=FLf&DYUxyn z!%tnKO`@Zg{l^;}v&v|>EEV7B>?c8;{hmN)5}kUWa}8Q-#=}2~xzfm%W3Ke=LIC4! zbG;vcffD2jnwe_~{imY2F2l(m0IO>C#fOuB9>aBgAwgYV+Hmq|4ARYYJ3R1mwB}=u z)=)>p$=?FNKxygZr+{=SYRxj7{6Vm)1Fc!=rd z`YpBQIw09v^EN=@HN_^lY?9BC6c7igYB~v^P$YE@K{n845Z@CXCsS76X;w9RT_WptyM}E4BIl4QLa_ z+z7yBOvY(G1i(ZIP2(|x5iyT^Axc28t?_vD4`g>)Ve zUFShPE7$_|dA~)j>16_C!0pRi=>NLjy#8GTj(gK54Izwt}QQT{w z@1rEc!oq7k$-|A34El5tIGHE{r=sZR4+++jJjYhAXO>1Sv*@%v3GUWJ*1LkO&!48s zG718^vRr{l`cTl}Q9D-Pbnv(m4_o|)0g1BA0ibx>*NVVd-~Cq!*<}_Cts5og&{50v z>Z!lxm8Hi}lbemejIrKO3E0?B4?9*}T-9>6-3>P;$L-%@53i4f?=v(617MZLhT4S4(* zid?3a*iyzrbeOX=;3H?$`B*_qHBk<32i)|E(b3`dxk-n%$SFKmy&br{F_7w>CWDxK z>T2>4bS)K51F^KP$t0^wps6O)4Ru+Q?*d7GnmmCKuM*c8Q=bH`ldKP}9|L-Kxc*sC zTBiRh0MB9rrKJRbQ;i&t1G0TkH*!!~ z6F*K4Iy$-zwQ4YQ8^Au4Ad0D$RCJewzpjOuj^QHH7xvTK(@`F^fc{mOr_k9fl9Mi zg+z9_x*j#%88X7rouO^+)Ij$xLA@$m179xgK)ottms*XYgwZD{O}ht_)qDmj&72{T z-QANH`tI913V3+R$-z5J**#kf6gN!+UtB%{uBt^Z(zJUqd#zXOC`}_lor@lSIEhZh z)S3vS(=<&np7ZI9S7}-U#$SmMwms$n5h*l}$2yeiZO6|5tYy=o@X37j!x?oxR=6Dd zHZ{C^N0sgZDUW81M|brUx*w1&f^GySq|1+Uhpc(k zpGAi(iWmk;o#2F*0%xIwi0pE8X>jr{(3Xv)fnsNBHVgFNgq@ z5kPS%u~PdxrZCz>HzNRE^Joyx#bAWzxSU1Rze$ms4KDLY&=o#ap|MAM0KF1haFBhc zA`ui{v)aBqg5SL0|1JG>=01yVA17H}X^{u4t?QeGo zqydQCs@K}2+lL||RI)@v^%xul)H4bE947Co1W2$W39JNx_9XB)Fx|@lB>@UlB*1z{&|cdM1I7VDhd? zfCM{|z$gfGB!Oo^K$pOIXldq!Qt0oQ1b!ZqcU1x;*pUS2#ygV0uYrI+2~1&xErBo~ z9OSRP!UqrPzSDdd9ku$>I+2cGRD-CW1a*B`67{R-K}G!^#h~uQZ~qNSG|=FG2CG`r zcKmi7hV{&De*u%%%E3qchS4=~Gzsc*Xd1u$BG7FKI6voaKYGYwtQ$R`VoN|p54WSm zKxr9090yX*B=86(@2Uhy(1!$m3Fx{6+K-?cNI*r9+usu9Oh%7)Kv+P zpbrWBGSGDia5e3nT@56l;u}Ok-%>|1Y(W^R5aQu zi~KZ(_Dlkw!Q@?)010*^ffqrbBMD495}=ndP+CT#j{&J?68KF_-hl)#y2b`b(1!$m z3+T2DIQhVzprt(t+z(7Q9{}HNBZ@i_V84OVQUWxeo=M=dn7peJAVD7z_#L3@5_l0U z%aH(v*%DATK-D%-T1wz^K(Zwe26P(Asqx1U%Xky^yI@YOzWBIF;lZGvS|q6JOXHiA z4ZxK*VZR5!)*9#i>2lwM-2qB+_0Dzd?tpM8d_6^=0y#xaO?#=%YBYGx*Cop+eB|w55N#Je}=tu%< zpz8i4@JGFrz#n%e0ot{010?7}0#5?nwgD&RY~KbN+&w58P+o|()rZ2>)_Z^Y6q>QNLjp^^Q2Tce4ZM)LduaPt9AE6E1in;90v-MH5G2@80+Z-G8%2Kp zB=OrbsOdIv9yGN*FVw&Wj)Q=Bp|+#`XR(N$*#Ps*S{v{ofx{TC+W-mrkbr9gju&cQ z0uN&+y)_e_vx~w(o zcMmG!*@{W}P@qM1Bc4A)v#m8Z01{twBLJqBc5}vQJ_Nu-34I-p8I-#J*5^0Sq2@D) z#e?Zglo094??%{i7F&p{vrXBRxK1K&M3Ke62|(Syz^YoUIb{E%LJ4%~o`SwgJVgXRgI}1DV7pqg0l1f3 zU%=2)QEQfQLcIu9)oM*gzJ>&SYt7$bPI)>`x>mF8sR(&$kv~~2Xq=r z=pXQKi#;Bj=RWhqKPt1?E1 Hf`R`77{ar$