From 01194a1488715b2dd9cb95b1a6d962f14b375651 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Tue, 9 Jan 2024 16:56:59 -0600 Subject: [PATCH] v4.01.09ENC --- B4A/B4XMainPage.bas | 70 +- B4A/C_Cliente.bas | 1814 +++++++++++++++++++++++---------- B4A/C_Nota.bas | 62 +- B4A/C_Principal.bas | 227 +++-- B4A/C_Productos.bas | 6 +- B4A/C_Promos.bas | 11 +- B4A/DBRequestManager.bas | 3 - B4A/FileHandler.bas | 162 --- B4A/Files/cliente.bal | Bin 35849 -> 35421 bytes B4A/Files/encuessta_m3.bal | Bin 35793 -> 41542 bytes B4A/Files/encuesta.bal | Bin 22124 -> 22120 bytes B4A/Files/encuesta_m4.bal | Bin 17308 -> 17304 bytes B4A/Files/esncuesta_m2.bal | Bin 29008 -> 29029 bytes B4A/Files/login.bal | Bin 12118 -> 11187 bytes B4A/Files/principal.bal | Bin 48751 -> 48336 bytes B4A/Guna Vistas V3.1.b4a | 30 +- B4A/Guna Vistas V3.1.b4a.meta | 26 +- B4A/MAPA_RUTAS.bas | 7 +- B4A/Subs.bas | 64 +- B4A/kms_helperSubs.bas | 664 ------------ 20 files changed, 1532 insertions(+), 1614 deletions(-) delete mode 100644 B4A/FileHandler.bas delete mode 100644 B4A/kms_helperSubs.bas diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 5ceaa75..9e74f38 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -5,7 +5,7 @@ Type=Class Version=9.85 @EndOfDesignText@ #Region Shared Files - '#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files" +'#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files" 'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True '########################################################################################################### '###################### PULL ############################################################# @@ -94,8 +94,6 @@ Sub Class_Globals Private b_envioBD As Button Public Provider As FileProvider Public rutaBDBackup = "" - Private b_importarBD As Button - Private p_botones As Panel End Sub Public Sub Initialize @@ -143,8 +141,8 @@ Private Sub B4XPage_Created (Root1 As B4XView) ruta = Starter.ruta Provider.Initialize -' Subs.borraArribaDe100Errores ' Para Websockets -' Subs.borraArribaDe600RenglonesBitacora ' Para Websockets + Subs.borraArribaDe100Errores ' Para Websockets + Subs.borraArribaDe600RenglonesBitacora ' Para Websockets If File.Exists(ruta, "kmt.db") = False Then File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db") End If @@ -165,14 +163,45 @@ Private Sub B4XPage_Created (Root1 As B4XView) skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CODIGO_BARRAS(CODIGOKMTS TEXT, CODIGOB TEXT, LAT TEXT, LON TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENCUESTA_MODULO1(CLIENTE TEXT,ALMACEN TEXT, P1 TEXT, P2 TEXT, P3 TEXT, P4 TEXT, P5 TEXT, P6 TEXT, P7 TEXT, P8 TEXT, P9 TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENCUESTA_MODULO2 (CLIENTE TEXT, ALMACEN TEXT,P1 TEXT, P2 TEXT, P3 TEXT , P4 TEXT, P5 TEXT, P6 TEXT)") - skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENCUESTA_MODULO3(CLIENTE TEXT,ALMACEN TEXT, P1 TEXT, P2 TEXT, P3 TEXT, P4 TEXT, P5 TEXT, P6 TEXT, P7 TEXT, P8 TEXT, P9 TEXT)") + + skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENCUESTA_MODULO3(CLIENTE TEXT,ALMACEN TEXT, P1 TEXT, P2 TEXT, P3 TEXT, P4 TEXT, P5 TEXT, P6 TEXT, P7 TEXT, P8 TEXT, P9 TEXT, P10 TEXT, P11 TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENCUESTA_MODULO4 (CLIENTE TEXT, ALMACEN TEXT,P1 TEXT, P2 TEXT, P3 TEXT , P4 TEXT, P5 TEXT, P6 TEXT, P7 TEXT, P8 TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENCUESTA_MODULO5 (CLIENTE TEXT, ALMACEN TEXT,P1 TEXT, P2 TEXT, P3 TEXT , P4 TEXT, P5 TEXT, P6 TEXT, P7 TEXT, P8 TEXT, P9 TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA_CLIENTE (HEC_CLIENTE TEXT, HEC_MODULO TEXT)") - skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PROMOXRUTA (PR_PROMOID TEXT, PR_CANT TEXT)") + skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA_AVISO_GIRO (HEAV_CLIENTE TEXT, HEAV_MODULO TEXT, HEAV_AVISO TEXT, HEAV_GIRO TEXT)") - c = skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_STAY_OUT ") + Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "P10" en la tabla + c=skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('ENCUESTA_MODULO3') WHERE name='P10'") + c.Position = 0 + If c.GetString("fCol") = 0 Then 'Si no esta la columna FECHA la agregamos + skmt.ExecNonQuery("ALTER TABLE ENCUESTA_MODULO3 ADD COLUMN P10 TEXT") + End If + Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch + Try + skmt.ExecNonQuery("ALTER TABLE ENCUESTA_MODULO3 ADD COLUMN P10 TEXT") + Catch + Log(LastException) + End Try + End Try + + Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "P11" en la tabla + c=skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('ENCUESTA_MODULO3') WHERE name='P11'") + c.Position = 0 + If c.GetString("fCol") = 0 Then 'Si no esta la columna FECHA la agregamos + skmt.ExecNonQuery("ALTER TABLE ENCUESTA_MODULO3 ADD COLUMN P11 TEXT") + End If + Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch + Try + skmt.ExecNonQuery("ALTER TABLE ENCUESTA_MODULO3 ADD COLUMN P11 TEXT") + Catch + Log(LastException) + End Try + End Try + + + + c=skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_STAY_OUT ") C.Position = 0 If c.GetString("CUANTOS") = 0 Then skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)") @@ -196,8 +225,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) almacen = 0 rutaPreventa = 0 p_appUpdate.Visible = False - Subs.centraPanel(p_botones, Root.Width) - Subs.guardaAppInfo(skmt) + End Sub Sub B4XPage_Appear @@ -607,12 +635,7 @@ Sub i_engrane_Click p_appUpdate.Left = (Root.Width/2) - (p_appUpdate.Width/2) lv_server.Clear lv_server.AddSingleLine("http://keymon.lat:1782") - If user.Text = "KMTS1" Then - lv_server.AddSingleLine("http://10.0.0.205:1782") - b_importarBD.Visible = True - Else - b_importarBD.Visible = False - End If + If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782") l_server.Text = Starter.server Subs.panelVisible(p_appUpdate,0,0) p_appUpdate.Height = Root.Height @@ -655,18 +678,3 @@ Private Sub b_envioBD_Click in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION StartActivity(in) End Sub - -Private Sub b_importarBD_Click - Private FH As FileHandler - FH.Initialize - Wait For (FH.Load) Complete (Result As LoadResult) 'Abre un fileManager para seleccionar la base de datos a importar. - File.Copy(Result.Dir, Result.FileName, File.DirInternal, "kmt.db") 'Copia la base de datos seleccionada al directorio interno. - skmt.Initialize(Starter.ruta,"kmt.db", True) 'Reiniciliza la base de datos con la recien importada. - Private c As Cursor = skmt.ExecQuery("select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'APP_NAME'") - If c.RowCount > 1 Then - c.Position = 0 - ToastMessageShow($"BD de ${c.GetString("APP_NAME")} importada!"$, True) - Else - ToastMessageShow($"¡BD importada!"$, True) - End If -End Sub \ No newline at end of file diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 45862ef..a6d1ad5 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -29,6 +29,7 @@ Sub Class_Globals Dim tipo_venta As String = "PREVENTA" Dim MAC_IMPRESORA As String + Dim c As Cursor Dim s As Cursor Dim DD As Cursor @@ -146,7 +147,7 @@ Sub Class_Globals Private RadioButton11 As RadioButton Private RadioButton12 As RadioButton Private RadioButton13 As RadioButton - Private RadioButton14 As RadioButton + Private RadioButton14 As RadioButton Private CheckBox1 As CheckBox Private CheckBox2 As CheckBox Private CheckBox3 As CheckBox @@ -224,7 +225,6 @@ Sub Class_Globals Private CB4_P7_M3 As CheckBox Private CB1_P8_M3 As CheckBox Private CB2_P8_M3 As CheckBox - Private CB_P8_M3 As CheckBox Private CB4_P8_M3 As CheckBox Private RB1_P9_M3 As RadioButton Private RB2_P9_M3 As RadioButton @@ -347,9 +347,30 @@ Sub Class_Globals Private B_02 As CheckBox Private CH_FACTURA As CheckBox - Private que_modulo As String + Private que_modulo As String Private CUENTA_MODULO As String - Private l_version As Label + Private rb1_m3_p1 As RadioButton + Private RB2_M3_P1 As RadioButton + Private RB3_M3_P1 As RadioButton + Private RB4_M3_P1 As RadioButton + Private RB1_M3_P2 As RadioButton + Private RB2_M3_P2 As RadioButton + Private RB3_M3_P2 As RadioButton + Private RB4_M3_P2 As RadioButton + Private et_p2_m3_1 As EditText + Dim textemp2 As String ="" + Dim textemp3 As String ="" + Dim textemp4 As String ="" + Dim textemp5 As String ="" + Dim textemp6 As String ="" + Dim textemp7 As String ="" + Dim textemp8 As String ="" + Private CB3_P8_M3 As CheckBox + Private CB7_P6_M3 As CheckBox + Private p_m1 As Panel + Private p_m2 As Panel + Private p_m3 As Panel + Private p_m4 As Panel End Sub 'You can add more parameters here. @@ -363,7 +384,6 @@ Private Sub B4XPage_Created (Root1 As B4XView) 'load the layout to Root ' Activity.RemoveAllViews Root.LoadLayout("cliente") - l_version.Text = Application.VersionName ruta = File.DirInternal If File.Exists(ruta, "kmt.db") = False Then File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db") @@ -404,7 +424,6 @@ End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. Sub B4XPage_Appear - If Subs.traeUsuarioDeBD = "KMTS1" Then gest.Visible = True que_modulo = 1 B4XPages.MainPage.tipo_venta = tipo_venta encuentasmapa.Initialize @@ -528,21 +547,21 @@ Sub B4XPage_Appear GPS_LocationChanged(Tracker.FLP.GetLastKnownLocation) End If If ALMACEN = "1" Or ALMACEN = "2" Or ALMACEN = "4" Or ALMACEN = "5" Or ALMACEN = "25" Then - DD=skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select cuenta from cuentaa) AND HVD_PRONOMBRE =?", Array As String("KNORR SUIZA GALLINA")) - DD.Position =0 - If DD.GetString("CUANTOS") = 0 Then - c=skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) AND PE_PRONOMBRE =?", Array As String("KNORR SUIZA GALLINA")) - c.Position =0 - If c.GetString("CUANTOS") = 0 Then - B_GALLINA.Visible = True + DD=skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select cuenta from cuentaa) AND HVD_PRONOMBRE =?", Array As String("KNORR SUIZA GALLINA")) + DD.Position =0 + If DD.GetString("CUANTOS") = 0 Then + c=skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) AND PE_PRONOMBRE =?", Array As String("KNORR SUIZA GALLINA")) + c.Position =0 + If c.GetString("CUANTOS") = 0 Then + B_GALLINA.Visible = True + Else + B_GALLINA.Visible = False + End If + c.Close Else B_GALLINA.Visible = False End If - c.Close - Else - B_GALLINA.Visible = False - End If - DD.Close + DD.Close Else B_GALLINA.Visible = False End If @@ -550,11 +569,10 @@ Sub B4XPage_Appear B_GALLINA.Visible = False que_modulo = 1 If ALMACEN = "2" Or ALMACEN = "4" Or ALMACEN = "5" Or ALMACEN = "4" Or ALMACEN = "53" Or ALMACEN = "64" Or ALMACEN = "25" Then - b_like.Visible = True + b_like.Visible = True Else b_like.Visible = False End If - Log(usuario) End Sub Sub GPS_LocationChanged (Location1 As Location) @@ -578,7 +596,7 @@ Sub GPS_LocationChanged (Location1 As Location) Dim distance As Long distance = l1.DistanceTo(l2) 'the result is in meter gest.Visible = True - If distance < 100 Or usuario = "KMTS1" Then + If distance < 100 Then LA_GEO.TextColor = Colors.Blue Tels.Visible = True gest.Visible = True @@ -601,7 +619,7 @@ End Sub Sub gest_Click -'If ALMACEN = "4" Or ALMACEN = "36" Then + 'If ALMACEN = "4" Or ALMACEN = "36" Then Log(Subs.traeAlmacen) Dim Items As List Items.Initialize @@ -634,10 +652,10 @@ Sub gest_Click CUENTA_MODULO = c.GetString("CUANTOS") c.Close If CUENTA_MODULO > 0 Then - c=skmt.ExecQuery("SELECT HEC_MODULO FROM HIST_ENCUESTA_CLIENTE WHERE HEC_CLIENTE IN (Select CUENTA from cuentaa)") - c.Position=0 - que_modulo = c.GetString("HEC_MODULO") - c.Close + c=skmt.ExecQuery("SELECT HEC_MODULO FROM HIST_ENCUESTA_CLIENTE WHERE HEC_CLIENTE IN (Select CUENTA from cuentaa)") + c.Position=0 + que_modulo = c.GetString("HEC_MODULO") + c.Close End If Log(Subs.traeAlmacen) c=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM ENCUESTA_MODULO1 WHERE CLIENTE IN (Select CUENTA from cuentaa)") @@ -665,7 +683,7 @@ Sub gest_Click EXISTE5 = c.GetString("CUANTOS") c.Close -'' esto para la primera encuesta m1 + '' esto para la primera encuesta m1 ' p_cliente.Visible = False ' SV_ENCUESTA.Visible = True ' SV_ENCUESTA.Panel.LoadLayout("ENCUESTA") @@ -688,41 +706,70 @@ Sub gest_Click ' Panel5.Width = Root.Width * 0.94 ' SV_ENCUESTA.Panel.Height = Panel5.Height + 60 -If EXISTE = 0 And EXISTE2 = 0 And EXISTE3 = 0 And EXISTE4 = 0 And EXISTE5 = 0 Then + If EXISTE = 0 And EXISTE2 = 0 And EXISTE3 = 0 And EXISTE4 = 0 And EXISTE5 = 0 Then - S=skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("CUESTIONARIO")) - S.Position=0 - If s.GetString("CAT_VA_VALOR") > "0" Then - ENCUESTA = s.GetString("CAT_VA_VALOR") + S=skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("CUESTIONARIO")) + S.Position=0 + + If s.GetString("CAT_VA_VALOR") > "0" Then + '' If "3" > "0" Then + ENCUESTA = s.GetString("CAT_VA_VALOR") + ' ENCUESTA = "3" + ' c=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM HIST_ENCUESTA_PED_DIST_1 WHERE TIENDA IN (Select CUENTA from cuentaa)") ' c.Position=0 ' EXISTE = c.GetString("CUANTOS") ' c.Close ' If EXISTE = 0 Then - - p_pregunta1.Visible = True - +' Dim result As Int= -3 +' Do While result=-3 +' result = Msgbox2("Entiendo, acepto y consiento que GUNA usará mis datos Personales y serán tratados acorde con lo establecido en la Ley Federal de Protección de Datos Personales en Posesión de los Particulares (en lo sucesivo la “Ley”), y su respectivo Reglamento; bajo lo manifestado en el Aviso de Privacidad – Texto Completo – que se encuentra en la página www.guna.com.mx", "AVISO DE PRIVACIDAD","ACEPTO","", "NO ACEPTO",LoadBitmap(File.DirAssets,"alert2.png")) +' Select Case result +' Case DialogResponse.POSITIVE +' p_pregunta1.Visible = True +' Case DialogResponse.NEGATIVE +' ''HIST_ENCUESTA_AVISO_GIRO (HEAV_CLIENTE TEXT, HEAV_MODULO TEXT, HEAV_AVISO TEXT, HEAV_GIRO TEXT) +' skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA_AVISO_GIRO(HEAV_CLIENTE , HEAV_MODULO , HEAV_AVISO ) VALUES (?,?,?) ", Array As Object( clie_id, ENCUESTA, "NO ACEPTA")) +' +' B4XPages.ShowPage("productos") +' End Select +' +' +' Loop +' result = Msgbox2("Entiendo, acepto y consciento que GUNA usará mis datos Personales y serán tratados acorde con lo establecido en la Ley Federal de Protección de Datos Personales en Posesión de los Particulares (en lo sucesivo la “Ley”), y su respectivo Reglamento; bajo lo manifestado en el Aviso de Privacidad – Texto Completo – que se encuentra en la página www.guna.com.mx", "AVISO DE PRIVACIDAD","ACEPTO","", "NO ACEPTO",LoadBitmap(File.DirAssets,"alert2.png")) +' If result = DialogResponse.Positive Then + p_pregunta1.Visible = True +' +' +' Else +' ''HIST_ENCUESTA_AVISO_GIRO (HEAV_CLIENTE TEXT, HEAV_MODULO TEXT, HEAV_AVISO TEXT, HEAV_GIRO TEXT) +' skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA_AVISO_GIRO(HEAV_CLIENTE , HEAV_MODULO , HEAV_AVISO ) VALUES (?,?,?) ", Array As Object( clie_id, ENCUESTA, "NO ACEPTA")) + ' +' B4XPages.ShowPage("productos") +' End If + + Else + B4XPages.ShowPage("productos") + End If Else B4XPages.ShowPage("productos") + End If - Else - B4XPages.ShowPage("productos") - -End If -s.Close + s.Close -'Else + 'Else ' B4XPages.ShowPage("productos") -'End If + 'End If End Sub + Private Sub cb_pregunta_SelectedIndexChanged (Index As Int) girotienda = Sender.As(B4XComboBox).SelectedItem Log(girotienda) @@ -731,128 +778,193 @@ End Sub Private Sub b_preguntag_Click B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE kmt_info SET CAT_CL_GIRO = ? WHERE CAT_CL_CODIGO = ? And CAT_CL_NOMBRE = ?", Array As Object (girotienda, la_cuenta.text,La_nombre.Text)) - If girotienda = "Tienda de Abarrotes (Abarrotes, Misceláneas, Minisupers, Particulares con Venta y Cremerías)" Then - If ALMACEN = "35" Or ALMACEN = "43" Or ALMACEN = "54" Or ALMACEN = "73" Or ALMACEN = "56" Then 'ALMACEN = "7" Then ' - ''Or ALMACEN = "56" ATIZAPAN PEDIGRI - p_pregunta1.Visible = False - SV_ENCUESTA.Visible = True - SV_ENCUESTA.Panel.LoadLayout("ENCUESTA_PED") - SV_ENCUESTA.Panel.Height = Panel4.Height - Panel4.Visible = True - b_like.Visible = False - BT_QR.Visible = False - B_GALLINA.Visible = False - Tar.Visible = False - Tels.Visible = False - gest.Visible = False - b_venta.Visible = False - Guardar.Visible = False - HIST.Visible = False - Else - If que_modulo = Null Or que_modulo = " " Then que_modulo = "1" - ' Msgbox(que_modulo,"ALO") - If que_modulo = "1" Then - ' esto para la primera encuesta m1 - p_pregunta1.Visible = False - p_cliente.Visible = False - SV_ENCUESTA.Visible = True - SV_ENCUESTA.Panel.LoadLayout("ENCUESTA") - Panel5.Width = Root.Width * 0.94 - SV_ENCUESTA.Panel.Height = Panel5.Height + 60 - Panel7.Visible = False - else if que_modulo = "2" Then - '' para la m2 - p_pregunta1.Visible = False - p_cliente.Visible = False - SV_ENCUESTA.Visible = True - SV_ENCUESTA.Panel.LoadLayout("ESNCUESTA_m2") - Panel5.Width = Root.Width * 0.94 - SV_ENCUESTA.Panel.Height = Panel5.Height + 60 - Panel7_M2.Visible = False - else if que_modulo = "3" Then - 'para la m3 - p_pregunta1.Visible = False - p_cliente.Visible = False - SV_ENCUESTA.Visible = True - SV_ENCUESTA.Panel.LoadLayout("ENCUESSTA_M3") - Panel5.Width = Root.Width * 0.94 - SV_ENCUESTA.Panel.Height = Panel5.Height + 60 - else if que_modulo = "4" Then - '' para la m4 - p_pregunta1.Visible = False - p_cliente.Visible = False - SV_ENCUESTA.Visible = True - p_pregunta1.Visible = False - SV_ENCUESTA.Panel.LoadLayout("ENCUESTA_M4") - Panel5.Width = Root.Width * 0.94 - SV_ENCUESTA.Panel.Height = Panel5.Height + 60 + + skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA_AVISO_GIRO(HEAV_CLIENTE , HEAV_MODULO , HEAV_AVISO ,HEAV_GIRO ) VALUES (?,?,?,?) ", Array As Object( clie_id, ENCUESTA, "ACEPTA",girotienda)) + + If girotienda <> "Selecciona una opcion" Then + + If girotienda = "Tienda de Abarrotes (Abarrotes, Misceláneas, Minisupers, Particulares con Venta y Cremerías)" Then - Dim Items2 As List - Items2.Initialize - Items2.Add("Selecciona una opcion") - Items2.Add("Propio") - Items2.Add("Rentado") - cb_p3_m4.SetItems(Items2) - itemselect2 = "Selecciona una opcion" + Dim result As Int= -3 + Do While result=-3 + result = Msgbox2("Entiendo, acepto y consiento que GUNA usará mis datos Personales y serán tratados acorde con lo establecido en la Ley Federal de Protección de Datos Personales en Posesión de los Particulares (en lo sucesivo la “Ley”), y su respectivo Reglamento; bajo lo manifestado en el Aviso de Privacidad – Texto Completo – que se encuentra en la página www.guna.com.mx", "AVISO DE PRIVACIDAD","ACEPTO","", "NO ACEPTO",LoadBitmap(File.DirAssets,"alert2.png")) + Select Case result + Case DialogResponse.POSITIVE + + + + + + + + + If ALMACEN = "35" Or ALMACEN = "43" Or ALMACEN = "54" Or ALMACEN = "73" Or ALMACEN = "56" Then 'ALMACEN = "7" Then ' + ''Or ALMACEN = "56" ATIZAPAN PEDIGRI + p_pregunta1.Visible = False + SV_ENCUESTA.Visible = True + SV_ENCUESTA.Panel.LoadLayout("ENCUESTA_PED") + SV_ENCUESTA.Panel.Height = Panel4.Height + Panel4.Visible = True + b_like.Visible = False + BT_QR.Visible = False + B_GALLINA.Visible = False + Tar.Visible = False + Tels.Visible = False + gest.Visible = False + b_venta.Visible = False + Guardar.Visible = False + HIST.Visible = False + + + Else + If que_modulo = Null Or que_modulo = " " Then que_modulo = "1" + ' Msgbox(que_modulo,"ALO") + If que_modulo < = ENCUESTA Then + If que_modulo = "1" Then + + ' esto para la primera encuesta m1 + p_pregunta1.Visible = False + p_cliente.Visible = False + SV_ENCUESTA.Visible = True + SV_ENCUESTA.Panel.LoadLayout("ENCUESTA") + p_m1.Width = Root.Width * 0.94 + SV_ENCUESTA.Panel.Height = p_m1.Height + 60 + Panel7.Visible = False + + else if que_modulo = "2" Then + + + '' para la m2 + If p_m1.IsInitialized And p_m1.Visible Then + p_m1.Visible = False + Else + + End If + p_pregunta1.Visible = False + p_cliente.Visible = False + SV_ENCUESTA.Visible = True + SV_ENCUESTA.Panel.LoadLayout("ESNCUESTA_m2") + p_m2.Width = Root.Width * 0.94 + SV_ENCUESTA.Panel.Height = p_m2.Height + 60 + Panel7_M2.Visible = False + else if que_modulo = "3" Then + 'para la m3 + If p_m2.IsInitialized And p_m2.Visible Then + p_m2.Visible = False + Else + + End If + p_pregunta1.Visible = False + p_cliente.Visible = False + SV_ENCUESTA.Visible = True + SV_ENCUESTA.Panel.LoadLayout("ENCUESSTA_M3") + + p_m3.Width = Root.Width * 0.94 + SV_ENCUESTA.Panel.Height = p_m3.Height + 60 + else if que_modulo = "4" Then + + '' para la m4 + + If p_m3.IsInitialized And p_m3.Visible Then + + p_m3.Visible = False + Else + + End If + p_pregunta1.Visible = False + p_cliente.Visible = False + SV_ENCUESTA.Visible = True + p_pregunta1.Visible = False + SV_ENCUESTA.Panel.LoadLayout("ENCUESTA_M4") + p_m4.Width = Root.Width * 0.94 + SV_ENCUESTA.Panel.Height = p_m4.Height + 60 + + Dim Items2 As List + Items2.Initialize + Items2.Add("Selecciona una opcion") + Items2.Add("Propio") + Items2.Add("Rentado") + cb_p3_m4.SetItems(Items2) + itemselect2 = "Selecciona una opcion" - Dim Items3 As List - Items3.Initialize - Items3.Add("Selecciona una opcion") - Items3.Add("Completamente Surtido") - Items3.Add("Bien Surtido") - Items3.Add("Poco Surtido") - Items3.Add("Muy Poco Surtido") - Items3.Add("Sin Existencias") - cb_p4_1_m4.SetItems(Items3) - itemselect3 = "Selecciona una opcion" - cb_p4_2_m4.SetItems(Items3) - itemselect4 = "Selecciona una opcion" - cb_p4_3_m4.SetItems(Items3) - itemselect5 = "Selecciona una opcion" - cb_p4_4_m4.SetItems(Items3) - itemselect6 = "Selecciona una opcion" - cb_p4_5_m4.SetItems(Items3) - itemselect7 = "Selecciona una opcion" -' - else if que_modulo = "5" Then - '' 'MODULO 5 - p_cliente.Visible = False - SV_ENCUESTA.Visible = True - p_pregunta1.Visible = False - SV_ENCUESTA.Panel.LoadLayout("ENCUESTA_M5") - p_modulo5.Width = Root.Width * 0.94 - SV_ENCUESTA.Panel.Height = p_modulo5.Height + 60 + Dim Items3 As List + Items3.Initialize + Items3.Add("Selecciona una opcion") + Items3.Add("Completamente Surtido") + Items3.Add("Bien Surtido") + Items3.Add("Poco Surtido") + Items3.Add("Muy Poco Surtido") + Items3.Add("Sin Existencias") + cb_p4_1_m4.SetItems(Items3) + itemselect3 = "Selecciona una opcion" + cb_p4_2_m4.SetItems(Items3) + itemselect4 = "Selecciona una opcion" + cb_p4_3_m4.SetItems(Items3) + itemselect5 = "Selecciona una opcion" + cb_p4_4_m4.SetItems(Items3) + itemselect6 = "Selecciona una opcion" + cb_p4_5_m4.SetItems(Items3) + itemselect7 = "Selecciona una opcion" + ' + else if que_modulo = "5" Then + '' 'MODULO 5 + If p_m4.IsInitialized And p_m4.Visible Then + p_m4.Visible = False + Else + + End If + p_cliente.Visible = False + SV_ENCUESTA.Visible = True + p_pregunta1.Visible = False + SV_ENCUESTA.Panel.LoadLayout("ENCUESTA_M5") + p_modulo5.Width = Root.Width * 0.94 + SV_ENCUESTA.Panel.Height = p_modulo5.Height + 30 - Dim Items8 As List - Items8.Initialize - Items8.Add("Selecciona una opcion") - Items8.Add("Completamente Surtido") - Items8.Add("Bien Surtido") - Items8.Add("Poco Surtido") - Items8.Add("Muy Poco Surtido") - Items8.Add("Sin Existencias") - cb_p1_m5.SetItems(Items8) - itemselect8 = "Selecciona una opcion" - cb_p2_m5.SetItems(Items8) - itemselect9 = "Selecciona una opcion" - cb_p3_m5.SetItems(Items8) - itemselect10 = "Selecciona una opcion" - cb_p4_m5.SetItems(Items8) - itemselect11 = "Selecciona una opcion" - cb_p5_m5.SetItems(Items8) - itemselect12 = "Selecciona una opcion" - cb_p6_m5.SetItems(Items8) - itemselect13 = "Selecciona una opcion" - cb_p7_m5.SetItems(Items8) - itemselect14 = "Selecciona una opcion" - cb_p8_m5.SetItems(Items8) - itemselect15 = "Selecciona una opcion" - cb_p9_m5.SetItems(Items8) - itemselect16 = "Selecciona una opcion" - End If - End If -'fin modulos + Dim Items8 As List + Items8.Initialize + Items8.Add("Selecciona una opcion") + Items8.Add("Completamente Surtido") + Items8.Add("Bien Surtido") + Items8.Add("Poco Surtido") + Items8.Add("Muy Poco Surtido") + Items8.Add("Sin Existencias") + cb_p1_m5.SetItems(Items8) + itemselect8 = "Selecciona una opcion" + cb_p2_m5.SetItems(Items8) + itemselect9 = "Selecciona una opcion" + cb_p3_m5.SetItems(Items8) + itemselect10 = "Selecciona una opcion" + cb_p4_m5.SetItems(Items8) + itemselect11 = "Selecciona una opcion" + cb_p5_m5.SetItems(Items8) + itemselect12 = "Selecciona una opcion" + cb_p6_m5.SetItems(Items8) + itemselect13 = "Selecciona una opcion" + cb_p7_m5.SetItems(Items8) + itemselect14 = "Selecciona una opcion" + cb_p8_m5.SetItems(Items8) + itemselect15 = "Selecciona una opcion" + cb_p9_m5.SetItems(Items8) + itemselect16 = "Selecciona una opcion" + End If + Else + p_pregunta1.Visible = False + + B4XPages.ShowPage("productos") + + + End If + End If + + Case DialogResponse.NEGATIVE + + B4XPages.ShowPage("productos") + End Select + + + Loop + 'fin modulos ' If girotienda = "Tienda de Abarrotes (Abarrotes, Misceláneas, Minisupers, Particulares con Venta y Cremerías)" Then ' If Subs.traeAlmacen = 36 And EXISTE4 = 0 Then ' p_cliente.Visible = False @@ -923,7 +1035,7 @@ Private Sub b_preguntag_Click ' itemselect15 = "Selecciona una opcion" ' cb_p9_m5.SetItems(Items8) ' itemselect16 = "Selecciona una opcion" -' + ' ' Else If Subs.traeAlmacen = 4 And EXISTE5 = 0 Then ' p_cliente.Visible = False ' SV_ENCUESTA.Visible = True @@ -958,10 +1070,10 @@ Private Sub b_preguntag_Click ' itemselect15 = "Selecciona una opcion" ' cb_p9_m5.SetItems(Items8) ' itemselect16 = "Selecciona una opcion" -' FIN MODULO 5 + ' FIN MODULO 5 -' ESTOI ES PARA MODULO 4 + ' ESTOI ES PARA MODULO 4 ' p_cliente.Visible = False ' SV_ENCUESTA.Visible = True ' p_pregunta1.Visible = False @@ -996,18 +1108,22 @@ Private Sub b_preguntag_Click ' cb_p4_5_m4.SetItems(Items3) ' itemselect7 = "Selecciona una opcion" ' End If -' FIN MODULO 4 + ' FIN MODULO 4 ' Else ' B4XPages.ShowPage("productos") ' End If - Else - p_pregunta1.Visible = True + Else + p_pregunta1.Visible = False - B4XPages.ShowPage("productos") + B4XPages.ShowPage("productos") + End If + + + Else + Msgbox("Contesta la pregunta de favor","AVISO") End If - End Sub Private Sub cb_p3_m4_SelectedIndexChanged (Index As Int) @@ -1106,7 +1222,7 @@ Sub B_guardaencuesta_Click SI_GUARDAR = 1 If RB1_E1.Checked = False And RB2_E1.Checked = False And RB3_E1.Checked = False Then - SI_GUARDAR = 0 + SI_GUARDAR = 0 End If If Panel7.Visible = True Then @@ -1137,63 +1253,73 @@ Sub B_guardaencuesta_Click SI_GUARDAR = 0 End If + If CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = False And CheckBox4.Checked = False And CheckBox5.Checked = False And CheckBox6.Checked = False And CheckBox7.Checked = False And CheckBox8.Checked = False Then + encuentasmapa.Put("P9", "") + Log(encuentasmapa) + End If + If SI_GUARDAR = 1 Then - skmt.ExecNonQuery2("INSERT INTO ENCUESTA_MODULO1 (CLIENTE, ALMACEN,P1, P2, P3, P4, P5, P6, P7, P8, P9) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object(Subs.traeCliente, ALMACEN, encuentasmapa.Get("P1"),encuentasmapa.Get("P2"),encuentasmapa.Get("P3"),encuentasmapa.Get("P4"),encuentasmapa.Get("P5"),p6.Text,p7.Text,p8.Text,encuentasmapa.Get("P9"))) + skmt.ExecNonQuery2("INSERT INTO ENCUESTA_MODULO1 (CLIENTE, ALMACEN,P1, P2, P3, P4, P5, P6, P7, P8, P9) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object(Subs.traeCliente, ALMACEN, encuentasmapa.Get("P3"),encuentasmapa.Get("P1"),encuentasmapa.Get("P2"),encuentasmapa.Get("P4"),encuentasmapa.Get("P5"),p6.Text,p7.Text,p8.Text,encuentasmapa.Get("P9"))) ' SV_ENCUESTA.Visible = False ' p_cliente.Visible = True ' B4XPages.MainPage.tipo_venta = "PREVENTA" ' B4XPages.ShowPage("productos") ' MsgboxAsync("Encuesta guardada","") - RB1_E1.Checked = False - RB2_E1.Checked = False - RB3_E1.Checked = False - RadioButton15.Checked = False - RadioButton16.Checked = False - RadioButton17.Checked = False - RadioButton1.Checked = False - RadioButton2.Checked = False - RadioButton3.Checked = False - RadioButton4.Checked = False - RadioButton5.Checked = False - RadioButton6.Checked = False - RadioButton7.Checked = False - RadioButton8.Checked = False - RadioButton9.Checked = False - RadioButton10.Checked = False - RadioButton11.Checked = False - RadioButton12.Checked = False - RadioButton13.Checked = False - RadioButton14.Checked = False - p6.Text = "" - p7.Text = "" - p8.Text = "" - CheckBox1.Checked = False - CheckBox2.Checked = False - CheckBox3.Checked = False - CheckBox4.Checked = False - CheckBox5.Checked = False - CheckBox6.Checked = False - CheckBox7.Checked = False + RB1_E1.Checked = False + RB2_E1.Checked = False + RB3_E1.Checked = False + RadioButton15.Checked = False + RadioButton16.Checked = False + RadioButton17.Checked = False + RadioButton1.Checked = False + RadioButton2.Checked = False + RadioButton3.Checked = False + RadioButton4.Checked = False + RadioButton5.Checked = False + RadioButton6.Checked = False + RadioButton7.Checked = False + RadioButton8.Checked = False + RadioButton9.Checked = False + RadioButton10.Checked = False + RadioButton11.Checked = False + RadioButton12.Checked = False + RadioButton13.Checked = False + RadioButton14.Checked = False + p6.Text = "" + p7.Text = "" + p8.Text = "" + CheckBox1.Checked = False + CheckBox2.Checked = False + CheckBox3.Checked = False + CheckBox4.Checked = False + CheckBox5.Checked = False + CheckBox6.Checked = False + CheckBox7.Checked = False CheckBox8.Checked = False - If ENCUESTA > 1 Then - ' para la m2 - p_pregunta1.Visible = False - p_cliente.Visible = False - SV_ENCUESTA.Visible = True - SV_ENCUESTA.Panel.LoadLayout("ESNCUESTA_m2") - Panel5.Width = Root.Width * 0.94 - SV_ENCUESTA.Panel.Height = Panel5.Height + 60 - Panel7_M2.Visible = False - Else - p_pregunta1.Visible = False - SV_ENCUESTA.Visible = False - p_cliente.Visible = True - tipo_venta = "PREVENTA" + If ENCUESTA > 1 Then + ' para la m2 + If p_m1.IsInitialized And p_m1.Visible Then + p_m1.Visible = False + Else + + End If + p_pregunta1.Visible = False + p_cliente.Visible = False + SV_ENCUESTA.Visible = True + SV_ENCUESTA.Panel.LoadLayout("ESNCUESTA_m2") + p_m2.Width = Root.Width * 0.94 + SV_ENCUESTA.Panel.Height = p_m2.Height + 60 + Panel7_M2.Visible = False + Else + p_pregunta1.Visible = False + SV_ENCUESTA.Visible = False + p_cliente.Visible = True + tipo_venta = "PREVENTA" ' StartActivity(colonia2) - B4XPages.ShowPage("productos") + B4XPages.ShowPage("productos") - End If + End If Else Msgbox("FALTAN DATOS DE CAPTURA FAVOR DE VALIDAR", "AVISO") @@ -1213,7 +1339,7 @@ Private Sub B4XPage_CloseRequest As ResumableSub SV_ENCUESTA.visible = False p_cliente.Visible = True Else - B4XPages.ShowPage("Clientes") + B4XPages.ShowPage("Clientes") End If ' Return True Return False @@ -1553,6 +1679,8 @@ Private Sub Panel5_Click End Sub +' P2 M1 + Private Sub RB1_E1_CheckedChange(Checked As Boolean) Log($"RB1 Clicked - chk:${Sender.As(RadioButton).Checked}"$) encuentasmapa.Put("P1", Sender.As(RadioButton).text) @@ -1586,6 +1714,9 @@ Private Sub RB3_E1_CheckedChange(Checked As Boolean) Log(encuentasmapa) End Sub +' FIN P2 M1 + +' p2_1 m1 Private Sub RadioButton17_CheckedChange(Checked As Boolean) encuentasmapa.Put("P2", Sender.As(RadioButton).text) Log(encuentasmapa) @@ -1600,6 +1731,10 @@ Private Sub RadioButton15_CheckedChange(Checked As Boolean) encuentasmapa.Put("P2", Sender.As(RadioButton).text) Log(encuentasmapa) End Sub +' fin p2_1 m1 + + +'PREGUNTA 1 MODULO 1 Private Sub RadioButton1_CheckedChange(Checked As Boolean) encuentasmapa.Put("P3", Sender.As(RadioButton).text) @@ -1621,6 +1756,9 @@ Private Sub RadioButton4_CheckedChange(Checked As Boolean) Log(encuentasmapa) End Sub +' FIN PREGUNTA 1 MODULO 1 + +' P3 M1 Private Sub RadioButton5_CheckedChange(Checked As Boolean) encuentasmapa.Put("P4", Sender.As(RadioButton).text) Log(encuentasmapa) @@ -1646,6 +1784,10 @@ Private Sub RadioButton9_CheckedChange(Checked As Boolean) Log(encuentasmapa) End Sub +' FIN P3 M1 + +'P4 M1 + Private Sub RadioButton10_CheckedChange(Checked As Boolean) encuentasmapa.Put("P5", Sender.As(RadioButton).text) Log(encuentasmapa) @@ -1671,16 +1813,18 @@ Private Sub RadioButton14_CheckedChange(Checked As Boolean) Log(encuentasmapa) End Sub +' FIN P4 M1 + Private Sub CheckBox1_CheckedChange(Checked As Boolean) Dim textemp As String ="" textemp = CheckBox1.Text - If CheckBox2.Checked Then textemp = textemp & " " & CheckBox2.Text - If CheckBox3.Checked Then textemp = textemp & " " & CheckBox3.Text - If CheckBox4.Checked Then textemp = textemp & " " & CheckBox4.Text - If CheckBox5.Checked Then textemp = textemp & " " & CheckBox5.Text - If CheckBox6.Checked Then textemp = textemp & " " & CheckBox6.Text - If CheckBox7.Checked Then textemp = textemp & " " & CheckBox7.Text - If CheckBox8.Checked Then textemp = textemp & " " & CheckBox8.Text + If CheckBox2.Checked Then textemp = textemp & ", " & CheckBox2.Text + If CheckBox3.Checked Then textemp = textemp & ", " & CheckBox3.Text + If CheckBox4.Checked Then textemp = textemp & ", " & CheckBox4.Text + If CheckBox5.Checked Then textemp = textemp & ", " & CheckBox5.Text + If CheckBox6.Checked Then textemp = textemp & ", " & CheckBox6.Text + If CheckBox7.Checked Then textemp = textemp & ", " & CheckBox7.Text + If CheckBox8.Checked Then textemp = textemp & ", " & CheckBox8.Text encuentasmapa.Put("P9", textemp) Log(encuentasmapa) End Sub @@ -1688,13 +1832,13 @@ End Sub Private Sub CheckBox2_CheckedChange(Checked As Boolean) Dim textemp As String ="" textemp = CheckBox2.Text - If CheckBox1.Checked Then textemp = textemp & " " & CheckBox1.Text - If CheckBox3.Checked Then textemp = textemp & " " & CheckBox3.Text - If CheckBox4.Checked Then textemp = textemp & " " & CheckBox4.Text - If CheckBox5.Checked Then textemp = textemp & " " & CheckBox5.Text - If CheckBox6.Checked Then textemp = textemp & " " & CheckBox6.Text - If CheckBox7.Checked Then textemp = textemp & " " & CheckBox7.Text - If CheckBox8.Checked Then textemp = textemp & " " & CheckBox8.Text + If CheckBox1.Checked Then textemp = textemp & ", " & CheckBox1.Text + If CheckBox3.Checked Then textemp = textemp & ", " & CheckBox3.Text + If CheckBox4.Checked Then textemp = textemp & ", " & CheckBox4.Text + If CheckBox5.Checked Then textemp = textemp & ", " & CheckBox5.Text + If CheckBox6.Checked Then textemp = textemp & ", " & CheckBox6.Text + If CheckBox7.Checked Then textemp = textemp & ", " & CheckBox7.Text + If CheckBox8.Checked Then textemp = textemp & ", " & CheckBox8.Text encuentasmapa.Put("P9", textemp) Log(encuentasmapa) End Sub @@ -1702,13 +1846,13 @@ End Sub Private Sub CheckBox3_CheckedChange(Checked As Boolean) Dim textemp As String ="" textemp = CheckBox3.Text - If CheckBox1.Checked Then textemp = textemp & " " & CheckBox1.Text - If CheckBox2.Checked Then textemp = textemp & " " & CheckBox2.Text - If CheckBox4.Checked Then textemp = textemp & " " & CheckBox4.Text - If CheckBox5.Checked Then textemp = textemp & " " & CheckBox5.Text - If CheckBox6.Checked Then textemp = textemp & " " & CheckBox6.Text - If CheckBox7.Checked Then textemp = textemp & " " & CheckBox7.Text - If CheckBox8.Checked Then textemp = textemp & " " & CheckBox8.Text + If CheckBox1.Checked Then textemp = textemp & ", " & CheckBox1.Text + If CheckBox2.Checked Then textemp = textemp & ", " & CheckBox2.Text + If CheckBox4.Checked Then textemp = textemp & ", " & CheckBox4.Text + If CheckBox5.Checked Then textemp = textemp & ", " & CheckBox5.Text + If CheckBox6.Checked Then textemp = textemp & ", " & CheckBox6.Text + If CheckBox7.Checked Then textemp = textemp & ", " & CheckBox7.Text + If CheckBox8.Checked Then textemp = textemp & ", " & CheckBox8.Text encuentasmapa.Put("P9", textemp) Log(encuentasmapa) End Sub @@ -1716,13 +1860,13 @@ End Sub Private Sub CheckBox4_CheckedChange(Checked As Boolean) Dim textemp As String ="" textemp = CheckBox4.Text - If CheckBox1.Checked Then textemp = textemp & " " & CheckBox1.Text - If CheckBox2.Checked Then textemp = textemp & " " & CheckBox2.Text - If CheckBox3.Checked Then textemp = textemp & " " & CheckBox3.Text - If CheckBox5.Checked Then textemp = textemp & " " & CheckBox5.Text - If CheckBox6.Checked Then textemp = textemp & " " & CheckBox6.Text - If CheckBox7.Checked Then textemp = textemp & " " & CheckBox7.Text - If CheckBox8.Checked Then textemp = textemp & " " & CheckBox8.Text + If CheckBox1.Checked Then textemp = textemp & ", " & CheckBox1.Text + If CheckBox2.Checked Then textemp = textemp & ", " & CheckBox2.Text + If CheckBox3.Checked Then textemp = textemp & ", " & CheckBox3.Text + If CheckBox5.Checked Then textemp = textemp & ", " & CheckBox5.Text + If CheckBox6.Checked Then textemp = textemp & ", " & CheckBox6.Text + If CheckBox7.Checked Then textemp = textemp & ", " & CheckBox7.Text + If CheckBox8.Checked Then textemp = textemp & ", " & CheckBox8.Text encuentasmapa.Put("P9", textemp) Log(encuentasmapa) End Sub @@ -1730,13 +1874,13 @@ End Sub Private Sub CheckBox5_CheckedChange(Checked As Boolean) Dim textemp As String ="" textemp = CheckBox5.Text - If CheckBox1.Checked Then textemp = textemp & " " & CheckBox1.Text - If CheckBox2.Checked Then textemp = textemp & " " & CheckBox2.Text - If CheckBox3.Checked Then textemp = textemp & " " & CheckBox3.Text - If CheckBox4.Checked Then textemp = textemp & " " & CheckBox4.Text - If CheckBox6.Checked Then textemp = textemp & " " & CheckBox6.Text - If CheckBox7.Checked Then textemp = textemp & " " & CheckBox7.Text - If CheckBox8.Checked Then textemp = textemp & " " & CheckBox8.Text + If CheckBox1.Checked Then textemp = textemp & ", " & CheckBox1.Text + If CheckBox2.Checked Then textemp = textemp & ", " & CheckBox2.Text + If CheckBox3.Checked Then textemp = textemp & ", " & CheckBox3.Text + If CheckBox4.Checked Then textemp = textemp & ", " & CheckBox4.Text + If CheckBox6.Checked Then textemp = textemp & ", " & CheckBox6.Text + If CheckBox7.Checked Then textemp = textemp & ", " & CheckBox7.Text + If CheckBox8.Checked Then textemp = textemp & ", " & CheckBox8.Text encuentasmapa.Put("P9", textemp) Log(encuentasmapa) End Sub @@ -1744,13 +1888,13 @@ End Sub Private Sub CheckBox6_CheckedChange(Checked As Boolean) Dim textemp As String ="" textemp = CheckBox6.Text - If CheckBox1.Checked Then textemp = textemp & " " & CheckBox1.Text - If CheckBox2.Checked Then textemp = textemp & " " & CheckBox2.Text - If CheckBox3.Checked Then textemp = textemp & " " & CheckBox3.Text - If CheckBox4.Checked Then textemp = textemp & " " & CheckBox4.Text - If CheckBox5.Checked Then textemp = textemp & " " & CheckBox5.Text - If CheckBox7.Checked Then textemp = textemp & " " & CheckBox7.Text - If CheckBox8.Checked Then textemp = textemp & " " & CheckBox8.Text + If CheckBox1.Checked Then textemp = textemp & ", " & CheckBox1.Text + If CheckBox2.Checked Then textemp = textemp & ", " & CheckBox2.Text + If CheckBox3.Checked Then textemp = textemp & ", " & CheckBox3.Text + If CheckBox4.Checked Then textemp = textemp & ", " & CheckBox4.Text + If CheckBox5.Checked Then textemp = textemp & ", " & CheckBox5.Text + If CheckBox7.Checked Then textemp = textemp & ", " & CheckBox7.Text + If CheckBox8.Checked Then textemp = textemp & ", " & CheckBox8.Text encuentasmapa.Put("P9", textemp) Log(encuentasmapa) End Sub @@ -1758,13 +1902,13 @@ End Sub Private Sub CheckBox7_CheckedChange(Checked As Boolean) Dim textemp As String ="" textemp = CheckBox7.Text - If CheckBox1.Checked Then textemp = textemp & " " & CheckBox1.Text - If CheckBox2.Checked Then textemp = textemp & " " & CheckBox2.Text - If CheckBox3.Checked Then textemp = textemp & " " & CheckBox3.Text - If CheckBox4.Checked Then textemp = textemp & " " & CheckBox4.Text - If CheckBox5.Checked Then textemp = textemp & " " & CheckBox5.Text - If CheckBox6.Checked Then textemp = textemp & " " & CheckBox6.Text - If CheckBox8.Checked Then textemp = textemp & " " & CheckBox8.Text + If CheckBox1.Checked Then textemp = textemp & ", " & CheckBox1.Text + If CheckBox2.Checked Then textemp = textemp & ", " & CheckBox2.Text + If CheckBox3.Checked Then textemp = textemp & ", " & CheckBox3.Text + If CheckBox4.Checked Then textemp = textemp & ", " & CheckBox4.Text + If CheckBox5.Checked Then textemp = textemp & ", " & CheckBox5.Text + If CheckBox6.Checked Then textemp = textemp & ", " & CheckBox6.Text + If CheckBox8.Checked Then textemp = textemp & ", " & CheckBox8.Text encuentasmapa.Put("P9", textemp) Log(encuentasmapa) End Sub @@ -1772,23 +1916,27 @@ End Sub Private Sub CheckBox8_CheckedChange(Checked As Boolean) Dim textemp As String ="" textemp = CheckBox8.Text - If CheckBox1.Checked Then textemp = textemp & " " & CheckBox1.Text - If CheckBox2.Checked Then textemp = textemp & " " & CheckBox2.Text - If CheckBox3.Checked Then textemp = textemp & " " & CheckBox3.Text - If CheckBox4.Checked Then textemp = textemp & " " & CheckBox4.Text - If CheckBox5.Checked Then textemp = textemp & " " & CheckBox5.Text - If CheckBox6.Checked Then textemp = textemp & " " & CheckBox6.Text - If CheckBox7.Checked Then textemp = textemp & " " & CheckBox7.Text + If CheckBox1.Checked Then textemp = textemp & ", " & CheckBox1.Text + If CheckBox2.Checked Then textemp = textemp & ", " & CheckBox2.Text + If CheckBox3.Checked Then textemp = textemp & ", " & CheckBox3.Text + If CheckBox4.Checked Then textemp = textemp & ", " & CheckBox4.Text + If CheckBox5.Checked Then textemp = textemp & ", " & CheckBox5.Text + If CheckBox6.Checked Then textemp = textemp & ", " & CheckBox6.Text + If CheckBox7.Checked Then textemp = textemp & ", " & CheckBox7.Text encuentasmapa.Put("P9", textemp) Log(encuentasmapa) End Sub Private Sub B_guardaencuesta_m2_Click + P3_M2 = "" + P6_M2 = "" + P4_M2 = "" + PASA = "1" If et_p1_m2.Text = "" Then PASA = "0" If et_p2_m2.Text = "" Then PASA = "0" P4_M2 = "" - If rd1_p4_m2.Checked Then P4_M2 = "ALTO" + If rd1_p4_m2.Checked Then P4_M2 = "ALTO" If rd2_p4_m2.Checked Then P4_M2 = "MEDIO" If rd3_p4_m2.Checked Then P4_M2 = "BAJO" @@ -1805,141 +1953,172 @@ Private Sub B_guardaencuesta_m2_Click If P6_M2 = "" Then PASA = "0" - P3_M2 = CB1_P3_M2.Checked & "," & CB2_P3_M2.Checked & "," & CB3_P3_M2.Checked & "," & CB4_P3_M2.Checked & "," & CB5_P3_M2.Checked & "," & CB6_P3_M2.Checked & "," & RB1_P3_M2.Checked & "," & RB2_P3_M2.Checked & "," & RB3_P3_M2.Checked& "," & ET_P3_M2.TEXT & "," & CB1_P4_M2.Checked & "," & CB2_P4_M2.Checked & "," & CB3_P4_M2.Checked & "," & CB4_P4_M2.Checked +' P3_M2 = CB1_P3_M2.Checked & "," & CB2_P3_M2.Checked & "," & CB3_P3_M2.Checked & "," & CB4_P3_M2.Checked & "," & CB5_P3_M2.Checked & "," & CB6_P3_M2.Checked & "," & RB1_P3_M2.Checked & "," & RB2_P3_M2.Checked & "," & RB3_P3_M2.Checked& "," & ET_P3_M2.TEXT & "," & CB1_P4_M2.Checked & "," & CB2_P4_M2.Checked & "," & CB3_P4_M2.Checked & "," & CB4_P4_M2.Checked If CB1_P3_M2.Checked = False And CB2_P3_M2.Checked = False And CB3_P3_M2.Checked = False And CB4_P3_M2.Checked = False And CB5_P3_M2.Checked = False And CB6_P3_M2.Checked = False And RB1_P3_M2.Checked = False And RB2_P3_M2.Checked = False And RB3_P3_M2.Checked = False And ET_P3_M2.TEXT = False And CB1_P4_M2.Checked = False And CB2_P4_M2.Checked = False And CB3_P4_M2.Checked = False And CB4_P4_M2.Checked = False Then PASA = "0" If et_p5_m2.Text = "" Then PASA = "0" + Log(textemp2) + If textemp2 <> "" And textemp2.SubString2(0,2) = ", " Then textemp2 = textemp2.SubString(2) + Log(textemp2) + P3_M2 = textemp2 + If RB2_P4_M2.Checked Then + P3_M2 = P3_M2 &"|" & "NO" + + Else if RB1_P4_M2.Checked Then + P3_M2 = P3_M2 &"|" & "SI" + If ET_P3_M2.Text = "" Then + If RB1_P3_M2.Checked Then P3_M2 = P3_M2 &"|" & "Rappi" + If RB2_P3_M2.Checked Then P3_M2 = P3_M2 &"|" & "Coca Cola" + If RB3_P3_M2.Checked Then P3_M2 = P3_M2 &"|" & "Modelo" + If RB4_P3_M2.Checked Then P3_M2 = P3_M2 &"|" & "Rabbit" + Else If ET_P3_M2.Text <> "" Then + If RB1_P3_M2.Checked Then P3_M2 = P3_M2 &"|" & "Rappi" + If RB2_P3_M2.Checked Then P3_M2 = P3_M2 &"|" & "Coca Cola" + If RB3_P3_M2.Checked Then P3_M2 = P3_M2 &"|" & "Modelo" + If RB4_P3_M2.Checked Then P3_M2 = P3_M2 &"|" & "Rabbit" + P3_M2 = P3_M2 &", " & ET_P3_M2.Text + End If + End If + If textemp3 <> "" And textemp3.SubString2(0,2) = ", " Then textemp3 = textemp3.SubString(2) + P3_M2 = P3_M2 &"|" & textemp3 + If P3_M2 <> "" And P3_M2.SubString2(0,2) = ", " Then P3_M2 = P3_M2.SubString(2) + LogColor(P3_M2,Colors.BlUE) If PASA = "1" Then - skmt.ExecNonQuery2("INSERT INTO ENCUESTA_MODULO2 (CLIENTE, ALMACEN,P1, P2, P3, P4, P5, P6) VALUES (?,?,?,?,?,?,?,?)", Array As Object(Subs.traeCliente, ALMACEN,et_p1_m2.Text,et_p2_m2.Text,P3_M2,P4_M2,et_p5_m2.Text,P6_M2 )) - SV_ENCUESTA.Visible = False - p_cliente.Visible = True - et_p1_m2.Text = "" - et_p2_m2.TEXT = "" - RB7_P6_M2.Checked = False - RB6_P6_M2.Checked = False - RB5_P6_M2.Checked = False - RB4_P6_M2.Checked = False - RB3_P6_M2.Checked = False - RB2_P6_M2.Checked = False - RB1_P6_M2.Checked = False - et_p5_m2.Text = "" - rd3_p4_m2.Checked = False - rd2_p4_m2.Checked = False - rd1_p4_m2.Checked = False - RB1_P3_M2.Checked = False - RB2_P3_M2.Checked = False - RB3_P3_M2.Checked = False - RB4_P3_M2.Checked = False + skmt.ExecNonQuery2("INSERT INTO ENCUESTA_MODULO2 (CLIENTE, ALMACEN,P1, P2, P3, P4, P5, P6) VALUES (?,?,?,?,?,?,?,?)", Array As Object(Subs.traeCliente, ALMACEN,et_p1_m2.Text,et_p2_m2.Text,P3_M2,P4_M2,et_p5_m2.Text,P6_M2 )) + SV_ENCUESTA.Visible = False + p_cliente.Visible = True + et_p1_m2.Text = "" + et_p2_m2.TEXT = "" + RB7_P6_M2.Checked = False + RB6_P6_M2.Checked = False + RB5_P6_M2.Checked = False + RB4_P6_M2.Checked = False + RB3_P6_M2.Checked = False + RB2_P6_M2.Checked = False + RB1_P6_M2.Checked = False + et_p5_m2.Text = "" + rd3_p4_m2.Checked = False + rd2_p4_m2.Checked = False + rd1_p4_m2.Checked = False + RB1_P3_M2.Checked = False + RB2_P3_M2.Checked = False + RB3_P3_M2.Checked = False + RB4_P3_M2.Checked = False - CB1_P3_M2.Checked = False - CB2_P3_M2.Checked = False - CB3_P3_M2.Checked = False - CB4_P3_M2.Checked = False - CB5_P3_M2.Checked = False - CB6_P3_M2.Checked = False + CB1_P3_M2.Checked = False + CB2_P3_M2.Checked = False + CB3_P3_M2.Checked = False + CB4_P3_M2.Checked = False + CB5_P3_M2.Checked = False + CB6_P3_M2.Checked = False - ET_P3_M2.Text = "" - P3_M2 = "" - P4_M2 = "" - P6_M2 = "" + ET_P3_M2.Text = "" + P3_M2 = "" + P4_M2 = "" + P6_M2 = "" - Panel7_M2.Visible = False + Panel7_M2.Visible = False ' B4XPages.MainPage.tipo_venta = "PREVENTA" ' B4XPages.ShowPage("productos") - If ENCUESTA > 2 Then - p_pregunta1.Visible = False - p_cliente.Visible = False - SV_ENCUESTA.Visible = True - SV_ENCUESTA.Panel.LoadLayout("ENCUESSTA_M3") - Panel5.Width = Root.Width * 0.94 - SV_ENCUESTA.Panel.Height = Panel5.Height + 60 - '35,36,45,46,47,54,64,65,71,3,25,27,38 - If Subs.traeAlmacen = 1 Or Subs.traeAlmacen = 2 Or Subs.traeAlmacen = 4 Or Subs.traeAlmacen = 5 Or Subs.traeAlmacen =35 Or Subs.traeAlmacen =36 Or Subs.traeAlmacen =45 Or Subs.traeAlmacen =46 Or Subs.traeAlmacen =47 Or Subs.traeAlmacen =54 Or Subs.traeAlmacen =64 Or Subs.traeAlmacen =65 Or Subs.traeAlmacen =71 Or Subs.traeAlmacen =3 Or Subs.traeAlmacen =25 Or Subs.traeAlmacen =27 Or Subs.traeAlmacen =38 Then - CB1_P6_M3.Text = "GARIS" - CB2_P6_M3.Text = "SAHUAYO" - CB3_P6_M3.Text = "ZORRO" - CB4_P6_M3.Text = "ESCORPION" - CB5_P6_M3.Text = "RABBIT" - CB6_P6_M3.Text = "SAMS" + If ENCUESTA > 2 Then + If p_m2.IsInitialized And p_m2.Visible Then + p_m2.Visible = False + Else + + End If + p_pregunta1.Visible = False + p_cliente.Visible = False + SV_ENCUESTA.Visible = True + SV_ENCUESTA.Panel.LoadLayout("ENCUESSTA_M3") + p_m3.Width = Root.Width * 0.94 + SV_ENCUESTA.Panel.Height = p_m3.Height + 60 + '35,36,45,46,47,54,64,65,71,3,25,27,38 + If Subs.traeAlmacen = 1 Or Subs.traeAlmacen = 2 Or Subs.traeAlmacen = 4 Or Subs.traeAlmacen = 5 Or Subs.traeAlmacen =35 Or Subs.traeAlmacen =36 Or Subs.traeAlmacen =45 Or Subs.traeAlmacen =46 Or Subs.traeAlmacen =47 Or Subs.traeAlmacen =54 Or Subs.traeAlmacen =64 Or Subs.traeAlmacen =65 Or Subs.traeAlmacen =71 Or Subs.traeAlmacen =3 Or Subs.traeAlmacen =25 Or Subs.traeAlmacen =27 Or Subs.traeAlmacen =38 Then + CB1_P6_M3.Text = "GARIS" + CB2_P6_M3.Text = "SAHUAYO" + CB3_P6_M3.Text = "ZORRO" + CB4_P6_M3.Text = "ESCORPION" + CB5_P6_M3.Text = "RABBIT" + CB6_P6_M3.Text = "SAMS" - else If Subs.traeAlmacen = 12 Then ' - CB1_P6_M3.Text = "DECASA" - CB2_P6_M3.Text = "ZETA" - CB3_P6_M3.Text = "SAHUAYO" - CB4_P6_M3.Text = "DUERO" - CB5_P6_M3.Text = "HUGOSS" - CB6_P6_M3.Text = "ZORRO" - else If Subs.traeAlmacen = 13 Then ' - CB1_P6_M3.Text = "DECASA" - CB2_P6_M3.Text = "ZETA" - CB3_P6_M3.Text = "SAHUAYO" - CB4_P6_M3.Text = "SCORPION" - CB5_P6_M3.Text = "ZORRO" - CB6_P6_M3.Text = "GARIS" - else If Subs.traeAlmacen = 14 Or Subs.traeAlmacen =69 Or Subs.traeAlmacen =37 Then '69 -37 - CB1_P6_M3.Text = "DECASA" - CB2_P6_M3.Text = "ZETA" - CB3_P6_M3.Text = "SAHUAYO" - CB4_P6_M3.Text = "DUERO" - CB5_P6_M3.Text = "RIVERA/GRAN BODEGA" - CB6_P6_M3.Text = "ZORRO" - else If Subs.traeAlmacen = 16 Or Subs.traeAlmacen =70 Then '70 - CB1_P6_M3.Text = "DECASA" - CB2_P6_M3.Text = "ZETA" - CB3_P6_M3.Text = "SAHUAYO" - CB4_P6_M3.Text = "DUERO" - CB5_P6_M3.Text = "RIVERA/GRAN BODEGA" - CB6_P6_M3.Text = "SAMS" - else If Subs.traeAlmacen = 17 Then ' - CB1_P6_M3.Text = "DECASA" - CB2_P6_M3.Text = "SAHUAYO" - CB3_P6_M3.Text = "" - CB4_P6_M3.Text = "" - CB5_P6_M3.Text = "" - CB6_P6_M3.Text = "" - else If Subs.traeAlmacen = 29 Or Subs.traeAlmacen =31 Then '31 - CB1_P6_M3.Text = "DECASA" - CB2_P6_M3.Text = "ZETA" - CB3_P6_M3.Text = "SAHUAYO" - CB4_P6_M3.Text = "DUERO" - CB5_P6_M3.Text = "SAMS" - CB6_P6_M3.Text = "RIVERA/GRAN BODEGA" - else If Subs.traeAlmacen = 32 Or Subs.traeAlmacen =33 Then '33 - CB1_P6_M3.Text = "MAS BODEGA" - CB2_P6_M3.Text = "SAHUAYO" - CB3_P6_M3.Text = "TREVIÑO" - CB4_P6_M3.Text = "HUGOSS" - CB5_P6_M3.Text = "RABBIT" - CB6_P6_M3.Text = "SAMS" - else If Subs.traeAlmacen = 66 Or Subs.traeAlmacen =67 Then '67 - CB1_P6_M3.Text = "DECASA" - CB2_P6_M3.Text = "ZETA" - CB3_P6_M3.Text = "SAHUAYO" - CB4_P6_M3.Text = "DUERO" - CB5_P6_M3.Text = "SCORPION" - CB6_P6_M3.Text = "SAMS" + else If Subs.traeAlmacen = 12 Then ' + CB1_P6_M3.Text = "DECASA" + CB2_P6_M3.Text = "ZETA" + CB3_P6_M3.Text = "SAHUAYO" + CB4_P6_M3.Text = "DUERO" + CB5_P6_M3.Text = "HUGOSS" + CB6_P6_M3.Text = "ZORRO" + else If Subs.traeAlmacen = 13 Then ' + CB1_P6_M3.Text = "DECASA" + CB2_P6_M3.Text = "ZETA" + CB3_P6_M3.Text = "SAHUAYO" + CB4_P6_M3.Text = "SCORPION" + CB5_P6_M3.Text = "ZORRO" + CB6_P6_M3.Text = "GARIS" + else If Subs.traeAlmacen = 14 Or Subs.traeAlmacen =69 Or Subs.traeAlmacen =37 Then '69 -37 + CB1_P6_M3.Text = "DECASA" + CB2_P6_M3.Text = "ZETA" + CB3_P6_M3.Text = "SAHUAYO" + CB4_P6_M3.Text = "DUERO" + CB5_P6_M3.Text = "RIVERA/GRAN BODEGA" + CB6_P6_M3.Text = "ZORRO" + else If Subs.traeAlmacen = 16 Or Subs.traeAlmacen =70 Then '70 + CB1_P6_M3.Text = "DECASA" + CB2_P6_M3.Text = "ZETA" + CB3_P6_M3.Text = "SAHUAYO" + CB4_P6_M3.Text = "DUERO" + CB5_P6_M3.Text = "RIVERA/GRAN BODEGA" + CB6_P6_M3.Text = "SAMS" + else If Subs.traeAlmacen = 17 Then ' + CB1_P6_M3.Text = "DECASA" + CB2_P6_M3.Text = "SAHUAYO" + CB3_P6_M3.Text = "" + CB4_P6_M3.Text = "" + CB5_P6_M3.Text = "" + CB6_P6_M3.Text = "" + else If Subs.traeAlmacen = 29 Or Subs.traeAlmacen =31 Then '31 + CB1_P6_M3.Text = "DECASA" + CB2_P6_M3.Text = "ZETA" + CB3_P6_M3.Text = "SAHUAYO" + CB4_P6_M3.Text = "DUERO" + CB5_P6_M3.Text = "SAMS" + CB6_P6_M3.Text = "RIVERA/GRAN BODEGA" + else If Subs.traeAlmacen = 32 Or Subs.traeAlmacen =33 Then '33 + CB1_P6_M3.Text = "MAS BODEGA" + CB2_P6_M3.Text = "SAHUAYO" + CB3_P6_M3.Text = "TREVIÑO" + CB4_P6_M3.Text = "HUGOSS" + CB5_P6_M3.Text = "RABBIT" + CB6_P6_M3.Text = "SAMS" + else If Subs.traeAlmacen = 66 Or Subs.traeAlmacen =67 Then '67 + CB1_P6_M3.Text = "DECASA" + CB2_P6_M3.Text = "ZETA" + CB3_P6_M3.Text = "SAHUAYO" + CB4_P6_M3.Text = "DUERO" + CB5_P6_M3.Text = "SCORPION" + CB6_P6_M3.Text = "SAMS" - else If Subs.traeAlmacen = 22 Or Subs.traeAlmacen =34 Then '34 - CB1_P6_M3.Text = "DECASA" - CB2_P6_M3.Text = "ZETA" - CB3_P6_M3.Text = "SAHUAYO" - CB4_P6_M3.Text = "MERZA/DUERO" - CB5_P6_M3.Text = "HUGOSS" + else If Subs.traeAlmacen = 22 Or Subs.traeAlmacen =34 Then '34 + CB1_P6_M3.Text = "DECASA" + CB2_P6_M3.Text = "ZETA" + CB3_P6_M3.Text = "SAHUAYO" + CB4_P6_M3.Text = "MERZA/DUERO" + CB5_P6_M3.Text = "HUGOSS" - End If + End If - Else - p_pregunta1.Visible = False - SV_ENCUESTA.Visible = False - p_cliente.Visible = True - tipo_venta = "PREVENTA" + Else + p_pregunta1.Visible = False + SV_ENCUESTA.Visible = False + p_cliente.Visible = True + tipo_venta = "PREVENTA" ' StartActivity(colonia2) - B4XPages.ShowPage("productos") - MsgboxAsync("Encuesta guardada","") + B4XPages.ShowPage("productos") + MsgboxAsync("Encuesta guardada","") End If Else Msgbox("FAVOR DE CONTESTAR LA ENCUESTA","AVISO") @@ -1947,7 +2126,7 @@ Private Sub B_guardaencuesta_m2_Click End Sub Private Sub CB6_P3_M2_CheckedChange(Checked As Boolean) - If CB6_P3_M2.Checked = True Then + If CB6_P3_M2.Checked = True Then Panel7_M2.Visible = True Else Panel7_M2.Visible = False @@ -1959,18 +2138,23 @@ End Sub Private Sub B_guardaencuesta_m3_Click PASA = "1" +' textemp4 = "" +' textemp5 = "" +' textemp6 = "" +' textemp7 = "" +' textemp8 = "" + Private P3_M3 As String = "" + Private P4_M3 As String = "" + Private P5_M3 As String = "" + Private P6_M3 As String = "" + Private P7_M3 As String = "" + Private P8_M3 As String = "" + Private P9_M3 As String = "" + + If et_p1_m3.Text = "" Then PASA = "0" If et_p2_m3.Text = "" Then PASA = "0" - Private P3_M3 As String - Private P4_M3 As String - Private P5_M3 As String - Private P6_M3 As String - Private P7_M3 As String - Private P8_M3 As String - Private P9_M3 As String - P9_M3 = "" - P5_M3 = "" If rd1_p5_m3.Checked Then P5_M3 = "SI" If rd2_p5_m3.Checked Then P5_M3 = "NO" @@ -1982,7 +2166,7 @@ Private Sub B_guardaencuesta_m3_Click If P9_M3 = "" Then PASA = "0" If P5_M3 = "" Then PASA = "0" - P3_M3 = CB1_P3_M3.Checked & "," & CB2_P3_M3.Checked & "," & CB3_P3_M3.Checked & "," & CB4_P3_M3.Checked & "," & CB5_P3_M3.Checked + P3_M3 = CB1_P3_M3.Checked & "," & CB2_P3_M3.Checked & "," & CB3_P3_M3.Checked & "," & CB4_P3_M3.Checked & "," & CB5_P3_M3.Checked If CB1_P3_M3.Checked = False And CB2_P3_M3.Checked = False And CB3_P3_M3.Checked = False And CB4_P3_M3.Checked = False And CB5_P3_M3.Checked = False Then PASA = "0" P4_M3 = CB1_P4_M3.Checked & "," & CB2_P4_M3.Checked & "," & CB3_P4_M3.Checked & "," & CB4_P4_M3.Checked & "," & CB5_P4_M3.Checked If CB1_P4_M3.Checked = False And CB2_P4_M3.Checked = False And CB3_P4_M3.Checked = False And CB4_P4_M3.Checked = False And CB5_P4_M3.Checked = False Then PASA = "0" @@ -1992,69 +2176,99 @@ Private Sub B_guardaencuesta_m3_Click P7_M3 = CB1_P7_M3.Checked & "," & CB2_P7_M3.Checked & "," & CB3_P7_M3.Checked & "," & CB4_P7_M3.Checked If CB1_P7_M3.Checked = False And CB2_P7_M3.Checked = False And CB3_P7_M3.Checked = False And CB4_P7_M3.Checked = False Then PASA = "0" - P8_M3 = CB1_P8_M3.Checked & "," & CB2_P8_M3.Checked & "," & CB_P8_M3.Checked & "," & CB4_P8_M3.Checked - If CB1_P8_M3.Checked = False And CB2_P8_M3.Checked = False And CB_P8_M3.Checked = False And CB4_P8_M3.Checked = False Then PASA = "0" + P8_M3 = CB1_P8_M3.Checked & "," & CB2_P8_M3.Checked & "," & CB3_P8_M3.Checked & "," & CB4_P8_M3.Checked + If CB1_P8_M3.Checked = False And CB2_P8_M3.Checked = False And CB3_P8_M3.Checked = False And CB4_P8_M3.Checked = False Then PASA = "0" + If CB5_P4_M3.Checked = True And ( CB2_P4_M3.Checked = True Or CB3_P4_M3.Checked = True Or CB4_P4_M3.Checked = True Or CB1_P4_M3.Checked = True ) Then PASA = "0" CB5_P4_M3.Checked = False CB2_P4_M3.Checked = False CB3_P4_M3.Checked = False - CB4_P4_M3.Checked = False - CB1_P4_M3.Checked = False + CB4_P4_M3.Checked = False + CB1_P4_M3.Checked = False End If + + If PASA = "1" Then - skmt.ExecNonQuery2("INSERT INTO ENCUESTA_MODULO3 (CLIENTE, ALMACEN,P1, P2, P3, P4, P5, P6,P7,P8,P9) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object(Subs.traeCliente, ALMACEN,et_p1_m3.Text,et_p2_m3.Text,P3_M3,P4_M3,P5_M3,P6_M3,P7_M3,P8_M3,P9_M3 )) - SV_ENCUESTA.Visible = False - p_cliente.Visible = True -' B4XPages.MainPage.tipo_venta = "PREVENTA" -' B4XPages.ShowPage("productos") - If ENCUESTA > 3 Then - p_pregunta1.Visible = False - p_cliente.Visible = False - SV_ENCUESTA.Visible = True - p_pregunta1.Visible = False - SV_ENCUESTA.Panel.LoadLayout("ENCUESTA_M4") - Panel5.Width = Root.Width * 0.94 - SV_ENCUESTA.Panel.Height = Panel5.Height + 60 - - Dim Items2 As List - Items2.Initialize - Items2.Add("Selecciona una opcion") - Items2.Add("Propio") - Items2.Add("Rentado") - cb_p3_m4.SetItems(Items2) - itemselect2 = "Selecciona una opcion" + If rb1_m3_p1.Checked Then P3_M3 = "7 A 9" + If RB2_M3_P1.Checked Then P3_M3 = "9 A 11" + If RB3_M3_P1.Checked Then P3_M3 = "11 A 13" + If RB4_M3_P1.Checked Then P3_M3 = "13 +" + + If RB1_M3_P2.Checked Then P4_M3 = "2 A 4" + If RB2_M3_P2.Checked Then P4_M3 = "4 A 6" + If RB3_M3_P2.Checked Then P4_M3 = "6 A 8" + If RB4_M3_P2.Checked Then P4_M3 = "8 +" + + If ET_P6_M3.Text <> "" Then + textemp6 = textemp6 & ", " & ET_P6_M3.Text + End If + + If textemp4 <> "" And textemp4.SubString2(0,2) = ", " Then textemp4 = textemp4.SubString(2) + If textemp5 <> "" And textemp5.SubString2(0,2) = ", " Then textemp5 = textemp5.SubString(2) + If textemp6 <> "" And textemp6.SubString2(0,2) = ", " Then textemp6 = textemp6.SubString(2) + If textemp7 <> "" And textemp7.SubString2(0,2) = ", " Then textemp7 = textemp7.SubString(2) + If textemp8 <> "" And textemp8.SubString2(0,2) = ", " Then textemp8 = textemp8.SubString(2) +' skmt.ExecNonQuery2("INSERT INTO ENCUESTA_MODULO2 (CLIENTE, ALMACEN,P1, P2, P3, P4, P5, P6) VALUES (?,?,?,?,?,?,?,?)", Array As Object(Subs.traeCliente, ALMACEN,et_p1_m2.Text,et_p2_m2.Text,P3_M2,P4_M2,et_p5_m2.Text,"MODULO_3" )) - Dim Items3 As List - Items3.Initialize - Items3.Add("Selecciona una opcion") - Items3.Add("Completamente Surtido") - Items3.Add("Bien Surtido") - Items3.Add("Poco Surtido") - Items3.Add("Muy Poco Surtido") - Items3.Add("Sin Existencias") - cb_p4_1_m4.SetItems(Items3) - itemselect3 = "Selecciona una opcion" - cb_p4_2_m4.SetItems(Items3) - itemselect4 = "Selecciona una opcion" - cb_p4_3_m4.SetItems(Items3) - itemselect5 = "Selecciona una opcion" - cb_p4_4_m4.SetItems(Items3) - itemselect6 = "Selecciona una opcion" - cb_p4_5_m4.SetItems(Items3) - itemselect7 = "Selecciona una opcion" -Else - p_pregunta1.Visible = False + skmt.ExecNonQuery2("INSERT INTO ENCUESTA_MODULO3 (CLIENTE, ALMACEN,P1, P2, P3, P4, P5, P6,P7,P8,P9,P10,P11) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(Subs.traeCliente, ALMACEN,et_p1_m3.Text,et_p2_m3.Text,P3_M3,P4_M3,textemp4,textemp5,P5_M3,textemp6,textemp7, textemp8, P9_M3)) SV_ENCUESTA.Visible = False p_cliente.Visible = True - tipo_venta = "PREVENTA" -' StartActivity(colonia2) - B4XPages.ShowPage("productos") +' B4XPages.MainPage.tipo_venta = "PREVENTA" +' B4XPages.ShowPage("productos") + If ENCUESTA > 3 Then + If p_m3.IsInitialized And p_m3.Visible Then + p_m3.Visible = False + Else + + End If + p_pregunta1.Visible = False + p_cliente.Visible = False + SV_ENCUESTA.Visible = True + p_pregunta1.Visible = False + SV_ENCUESTA.Panel.LoadLayout("ENCUESTA_M4") + p_m4.Width = Root.Width * 0.94 + SV_ENCUESTA.Panel.Height = p_m4.Height + 60 + + Dim Items2 As List + Items2.Initialize + Items2.Add("Selecciona una opcion") + Items2.Add("Propio") + Items2.Add("Rentado") + cb_p3_m4.SetItems(Items2) + itemselect2 = "Selecciona una opcion" - MsgboxAsync("Encuesta guardada","") - End If + + Dim Items3 As List + Items3.Initialize + Items3.Add("Selecciona una opcion") + Items3.Add("Completamente Surtido") + Items3.Add("Bien Surtido") + Items3.Add("Poco Surtido") + Items3.Add("Muy Poco Surtido") + Items3.Add("Sin Existencias") + cb_p4_1_m4.SetItems(Items3) + itemselect3 = "Selecciona una opcion" + cb_p4_2_m4.SetItems(Items3) + itemselect4 = "Selecciona una opcion" + cb_p4_3_m4.SetItems(Items3) + itemselect5 = "Selecciona una opcion" + cb_p4_4_m4.SetItems(Items3) + itemselect6 = "Selecciona una opcion" + cb_p4_5_m4.SetItems(Items3) + itemselect7 = "Selecciona una opcion" + Else + p_pregunta1.Visible = False + SV_ENCUESTA.Visible = False + p_cliente.Visible = True + tipo_venta = "PREVENTA" +' StartActivity(colonia2) + B4XPages.ShowPage("productos") + + MsgboxAsync("Encuesta guardada","") + End If Else Msgbox("FAVOR DE CONTESTAR LA ENCUESTA","AVISO") End If @@ -2088,56 +2302,61 @@ Private Sub B_guardaencuesta_m4_Click PASA = "0" End If If PASA = "1" Then - skmt.ExecNonQuery2("INSERT INTO ENCUESTA_MODULO4 (CLIENTE, ALMACEN,P1, P2, P3, P4, P5, P6, P7, P8) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(Subs.traeCliente, ALMACEN,et_p1_m4.Text,et_p2_m4.Text,itemselect2,itemselect3,itemselect4,itemselect5,itemselect6,itemselect7)) - SV_ENCUESTA.Visible = False - p_cliente.Visible = True -' - If ENCUESTA > 4 Then - p_cliente.Visible = False - SV_ENCUESTA.Visible = True - p_pregunta1.Visible = False - SV_ENCUESTA.Panel.LoadLayout("ENCUESTA_M5") - p_modulo5.Width = Root.Width * 0.94 - SV_ENCUESTA.Panel.Height = p_modulo5.Height + 60 - - Dim Items8 As List - Items8.Initialize - Items8.Add("Selecciona una opcion") - Items8.Add("Completamente Surtido") - Items8.Add("Bien Surtido") - Items8.Add("Poco Surtido") - Items8.Add("Muy Poco Surtido") - Items8.Add("Sin Existencias") - cb_p1_m5.SetItems(Items8) - itemselect8 = "Selecciona una opcion" - cb_p2_m5.SetItems(Items8) - itemselect9 = "Selecciona una opcion" - cb_p3_m5.SetItems(Items8) - itemselect10 = "Selecciona una opcion" - cb_p4_m5.SetItems(Items8) - itemselect11 = "Selecciona una opcion" - cb_p5_m5.SetItems(Items8) - itemselect12 = "Selecciona una opcion" - cb_p6_m5.SetItems(Items8) - itemselect13 = "Selecciona una opcion" - cb_p7_m5.SetItems(Items8) - itemselect14 = "Selecciona una opcion" - cb_p8_m5.SetItems(Items8) - itemselect15 = "Selecciona una opcion" - cb_p9_m5.SetItems(Items8) - itemselect16 = "Selecciona una opcion" - MsgboxAsync("Encuesta guardada","") - Else - B4XPages.MainPage.tipo_venta = "PREVENTA" - ' B4XPages.ShowPage("productos") - p_pregunta1.Visible = False + skmt.ExecNonQuery2("INSERT INTO ENCUESTA_MODULO4 (CLIENTE, ALMACEN,P1, P2, P3, P4, P5, P6, P7, P8) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(Subs.traeCliente, ALMACEN,et_p1_m4.Text,et_p2_m4.Text,itemselect2,itemselect3,itemselect4,itemselect5,itemselect6,itemselect7)) SV_ENCUESTA.Visible = False p_cliente.Visible = True - tipo_venta = "PREVENTA" - B4XPages.ShowPage("productos") - ' StartActivity(colonia2) - B4XPages.ShowPage("productos") - End If +' + If ENCUESTA > 4 Then + If p_m4.IsInitialized And p_m4.Visible Then + p_m4.Visible = False + Else + + End If + p_cliente.Visible = False + SV_ENCUESTA.Visible = True + p_pregunta1.Visible = False + SV_ENCUESTA.Panel.LoadLayout("ENCUESTA_M5") + p_modulo5.Width = Root.Width * 0.94 + SV_ENCUESTA.Panel.Height = p_modulo5.Height + 60 + + Dim Items8 As List + Items8.Initialize + Items8.Add("Selecciona una opcion") + Items8.Add("Completamente Surtido") + Items8.Add("Bien Surtido") + Items8.Add("Poco Surtido") + Items8.Add("Muy Poco Surtido") + Items8.Add("Sin Existencias") + cb_p1_m5.SetItems(Items8) + itemselect8 = "Selecciona una opcion" + cb_p2_m5.SetItems(Items8) + itemselect9 = "Selecciona una opcion" + cb_p3_m5.SetItems(Items8) + itemselect10 = "Selecciona una opcion" + cb_p4_m5.SetItems(Items8) + itemselect11 = "Selecciona una opcion" + cb_p5_m5.SetItems(Items8) + itemselect12 = "Selecciona una opcion" + cb_p6_m5.SetItems(Items8) + itemselect13 = "Selecciona una opcion" + cb_p7_m5.SetItems(Items8) + itemselect14 = "Selecciona una opcion" + cb_p8_m5.SetItems(Items8) + itemselect15 = "Selecciona una opcion" + cb_p9_m5.SetItems(Items8) + itemselect16 = "Selecciona una opcion" + MsgboxAsync("Encuesta guardada","") + Else + B4XPages.MainPage.tipo_venta = "PREVENTA" + ' B4XPages.ShowPage("productos") + p_pregunta1.Visible = False + SV_ENCUESTA.Visible = False + p_cliente.Visible = True + tipo_venta = "PREVENTA" + B4XPages.ShowPage("productos") + ' StartActivity(colonia2) + B4XPages.ShowPage("productos") + End If Else Msgbox("FAVOR DE CONTESTAR LA ENCUESTA","AVISO") End If @@ -2177,11 +2396,11 @@ Private Sub B_guardaencuesta_m5_Click End If If PASA = "1" Then - skmt.ExecNonQuery2("INSERT INTO ENCUESTA_MODULO5 (CLIENTE, ALMACEN,P1, P2, P3, P4, P5, P6, P7, P8, P9) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object(Subs.traeCliente, ALMACEN,itemselect8,itemselect9,itemselect10,itemselect11,itemselect12,itemselect13,itemselect14,itemselect15,itemselect16)) - SV_ENCUESTA.Visible = False - p_cliente.Visible = True - B4XPages.MainPage.tipo_venta = "PREVENTA" - B4XPages.ShowPage("productos") + skmt.ExecNonQuery2("INSERT INTO ENCUESTA_MODULO5 (CLIENTE, ALMACEN,P1, P2, P3, P4, P5, P6, P7, P8, P9) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object(Subs.traeCliente, ALMACEN,itemselect8,itemselect9,itemselect10,itemselect11,itemselect12,itemselect13,itemselect14,itemselect15,itemselect16)) + SV_ENCUESTA.Visible = False + p_cliente.Visible = True + B4XPages.MainPage.tipo_venta = "PREVENTA" + B4XPages.ShowPage("productos") MsgboxAsync("Encuesta guardada","") Else Msgbox("FAVOR DE CONTESTAR LA ENCUESTA","AVISO") @@ -2265,31 +2484,55 @@ End Sub - +' P5 M1 Private Sub p6_TextChanged (Old As String, New As String) If p6.Text.Length > 2 Then - Msgbox("Valida tu respuesta, dato no valido","Aviso") + Msgbox("Valida tu respuesta, dato no valido1","Aviso") p6.Text = "" End If End Sub +' FIN P5 M1 +' P6 M1 Private Sub p7_TextChanged (Old As String, New As String) If p7.Text.Length > 2 Then - Msgbox("Valida tu respuesta, dato no valido","Aviso") + Msgbox("Valida tu respuesta, dato no valido2","Aviso") p7.Text = "" End If End Sub +' FIN P6 M1 +' P7 M1 Private Sub p8_TextChanged (Old As String, New As String) If p8.Text.Length > 2 Then - Msgbox("Valida tu respuesta, dato no valido","Aviso") + Msgbox("Valida tu respuesta, dato no valido3","Aviso") p8.Text = "" End If End Sub +' FIN P7 M1 +''aqui + +Private Sub et_p1_m3_TextChanged (Old As String, New As String) + If et_p1_m3.Text.Length > 2 Or et_p1_m3.Text = 0 Then + + Msgbox("Valida tu respuesta, dato no valido","Aviso") + et_p1_m3.Text = "" + End If +End Sub + +Private Sub et_p2_m3_TextChanged (Old As String, New As String) + If et_p2_m3.Text.Length > 2 Or et_p2_m3.Text = 0 Then + + Msgbox("Valida tu respuesta, dato no valido","Aviso") + et_p2_m3.Text = "" + + End If +End Sub + Private Sub et_p1_m2_TextChanged (Old As String, New As String) - If et_p1_m2.Text.Length > 2 Then + If et_p1_m2.Text.Length > 2 Or et_p1_m2.Text = 0 Then Msgbox("Valida tu respuesta, dato no valido","Aviso") et_p1_m2.Text = "" @@ -2297,10 +2540,11 @@ Private Sub et_p1_m2_TextChanged (Old As String, New As String) End Sub Private Sub et_p2_m2_TextChanged (Old As String, New As String) - If et_p2_m2.Text.Length > 2 Then + If et_p2_m2.Text.Length > 2 Or et_p2_m2.Text = 0 Then Msgbox("Valida tu respuesta, dato no valido","Aviso") et_p2_m2.Text = "" + End If End Sub @@ -2320,41 +2564,9 @@ Private Sub et_p1_m4_TextChanged (Old As String, New As String) End If End Sub -Private Sub CB5_P4_M3_CheckedChange(Checked As Boolean) - If CB5_P4_M3.Checked = True Then - CB1_P4_M3.Checked = False - CB2_P4_M3.Checked = False - CB3_P4_M3.Checked = False - CB4_P4_M3.Checked = False - End If -End Sub - -Private Sub CB4_P4_M3_CheckedChange(Checked As Boolean) - If CB4_P4_M3.Checked = True Then - CB5_P4_M3.Checked = False - End If -End Sub - -Private Sub CB3_P4_M3_CheckedChange(Checked As Boolean) - If CB3_P4_M3.Checked = True Then - CB5_P4_M3.Checked = False - End If -End Sub - -Private Sub CB2_P4_M3_CheckedChange(Checked As Boolean) - If CB2_P4_M3.Checked = True Then - CB5_P4_M3.Checked = False - End If -End Sub - -Private Sub CB1_P4_M3_CheckedChange(Checked As Boolean) - If CB1_P4_M3.Checked = True Then - CB5_P4_M3.Checked = False - End If -End Sub Private Sub RB1_P4_M2_CheckedChange(Checked As Boolean) - If RB1_P4_M2.Checked = True Then + If RB1_P4_M2.Checked = True Then Panel7_M2.Visible = True panel7_p4_m2.Visible = True Else @@ -2368,6 +2580,16 @@ Private Sub RB2_P4_M2_CheckedChange(Checked As Boolean) If RB2_P4_M2.Checked = True Then Panel7_M2.Visible = False panel7_p4_m2.Visible = False + RB1_P3_M2.Checked = False + RB2_P3_M2.Checked = False + RB3_P3_M2.Checked = False + RB4_P3_M2.Checked = False + ET_P3_M2.Text = "" + CB1_P4_M2.Checked = False + CB2_P4_M2.Checked = False + CB3_P4_M2.Checked = False + CB4_P4_M2.Checked = False + textemp3 = "" Else Panel7_M2.Visible = True panel7_p4_m2.Visible = True @@ -2440,4 +2662,506 @@ Private Sub B_GUARDA_CE_PED_Click ' StartActivity(colonia2) B4XPages.ShowPage("productos") -End Sub \ No newline at end of file +End Sub + + +Private Sub p_modulo5_Click + +End Sub + +Private Sub Panel4_Click + +End Sub + +Private Sub CB1_P3_M2_CheckedChange(Checked As Boolean) + textemp2 = "" + If CB1_P3_M2.Checked Then + textemp2 = CB1_P3_M2.Text + Else + textemp2 = "" + End If + If CB2_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB2_P3_M2.Text + If CB3_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB3_P3_M2.Text + If CB4_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB4_P3_M2.Text + If CB5_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB5_P3_M2.Text + Log(textemp2) +End Sub + +Private Sub CB2_P3_M2_CheckedChange(Checked As Boolean) + textemp2 = "" + If CB2_P3_M2.Checked Then + textemp2 = CB2_P3_M2.Text + Else + textemp2 = "" + End If + If CB1_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB1_P3_M2.Text + If CB3_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB3_P3_M2.Text + If CB4_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB4_P3_M2.Text + If CB5_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB5_P3_M2.Text + Log(textemp2) +End Sub + +Private Sub CB3_P3_M2_CheckedChange(Checked As Boolean) + textemp2 = "" + If CB3_P3_M2.Checked Then + textemp2 = CB3_P3_M2.Text + Else + textemp2 = "" + End If + If CB1_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB1_P3_M2.Text + If CB2_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB2_P3_M2.Text + If CB4_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB4_P3_M2.Text + If CB5_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB5_P3_M2.Text + Log(textemp2) +End Sub + +Private Sub CB4_P3_M2_CheckedChange(Checked As Boolean) + textemp2 = "" + If CB4_P3_M2.Checked Then + textemp2 = CB4_P3_M2.Text + Else + textemp2 = "" + End If + If CB1_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB1_P3_M2.Text + If CB2_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB2_P3_M2.Text + If CB3_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB3_P3_M2.Text + If CB5_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB5_P3_M2.Text + Log(textemp2) +End Sub + +Private Sub CB5_P3_M2_CheckedChange(Checked As Boolean) + textemp2 = "" + If CB5_P3_M2.Checked Then + textemp2 = CB5_P3_M2.Text + Else + textemp2 = "" + End If + If CB1_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB1_P3_M2.Text + If CB2_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB2_P3_M2.Text + If CB3_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB3_P3_M2.Text + If CB4_P3_M2.Checked Then textemp2 = textemp2 & ", " & CB4_P3_M2.Text + Log(textemp2) +End Sub + + + +Private Sub CB1_P4_M2_CheckedChange(Checked As Boolean) + textemp3 = "" + If CB1_P4_M2.Checked Then + textemp3 = CB1_P4_M2.Text + Else + textemp3 = "" + End If + If CB2_P4_M2.Checked Then textemp3 = textemp3 & ", " & CB2_P4_M2.Text + If CB3_P4_M2.Checked Then textemp3 = textemp3 & ", " & CB3_P4_M2.Text + If CB4_P4_M2.Checked Then textemp3 = textemp3 & ", " & CB4_P4_M2.Text + Log(textemp3) +End Sub + +Private Sub CB2_P4_M2_CheckedChange(Checked As Boolean) + textemp3 = "" + If CB2_P4_M2.Checked Then + textemp3 = CB2_P4_M2.Text + Else + textemp3 = "" + End If + If CB1_P4_M2.Checked Then textemp3 = textemp3 & ", " & CB1_P4_M2.Text + If CB3_P4_M2.Checked Then textemp3 = textemp3 & ", " & CB3_P4_M2.Text + If CB4_P4_M2.Checked Then textemp3 = textemp3 & ", " & CB4_P4_M2.Text + Log(textemp3) +End Sub + +Private Sub CB3_P4_M2_CheckedChange(Checked As Boolean) + textemp3 = "" + If CB3_P4_M2.Checked Then + textemp3 = CB3_P4_M2.Text + Else + textemp3 = "" + End If + If CB1_P4_M2.Checked Then textemp3 = textemp3 & ", " & CB1_P4_M2.Text + If CB2_P4_M2.Checked Then textemp3 = textemp3 & ", " & CB2_P4_M2.Text + If CB4_P4_M2.Checked Then textemp3 = textemp3 & ", " & CB4_P4_M2.Text + Log(textemp3) +End Sub + +Private Sub CB4_P4_M2_CheckedChange(Checked As Boolean) + textemp3 = "" + If CB4_P4_M2.Checked Then + textemp3 = CB4_P4_M2.Text + Else + textemp3 = "" + End If + If CB1_P4_M2.Checked Then textemp3 = textemp3 & ", " & CB1_P4_M2.Text + If CB2_P4_M2.Checked Then textemp3 = textemp3 & ", " & CB2_P4_M2.Text + If CB3_P4_M2.Checked Then textemp3 = textemp3 & ", " & CB3_P4_M2.Text + Log(textemp3) +End Sub + + + + +Private Sub CB1_P3_M3_CheckedChange(Checked As Boolean) + textemp4 = "" + If CB1_P3_M3.Checked Then + textemp4 = CB1_P3_M3.Text + Else + textemp4 = "" + End If + If CB2_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB2_P3_M3.Text + If CB3_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB3_P3_M3.Text + If CB4_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB4_P3_M3.Text + If CB5_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB5_P3_M3.Text + Log(textemp4) +End Sub + +Private Sub CB2_P3_M3_CheckedChange(Checked As Boolean) + textemp4 = "" + If CB2_P3_M3.Checked Then + textemp4 = CB2_P3_M3.Text + Else + textemp4 = "" + End If + If CB1_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB1_P3_M3.Text + If CB3_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB3_P3_M3.Text + If CB4_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB4_P3_M3.Text + If CB5_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB5_P3_M3.Text + Log(textemp4) +End Sub + +Private Sub CB3_P3_M3_CheckedChange(Checked As Boolean) + textemp4 = "" + If CB3_P3_M3.Checked Then + textemp4 = CB3_P3_M3.Text + Else + textemp4 = "" + End If + If CB1_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB1_P3_M3.Text + If CB2_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB2_P3_M3.Text + If CB4_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB4_P3_M3.Text + If CB5_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB5_P3_M3.Text + Log(textemp4) +End Sub + +Private Sub CB4_P3_M3_CheckedChange(Checked As Boolean) + textemp4 = "" + If CB4_P3_M3.Checked Then + textemp4 = CB4_P3_M3.Text + Else + textemp4 = "" + End If + If CB1_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB1_P3_M3.Text + If CB2_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB2_P3_M3.Text + If CB3_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB3_P3_M3.Text + If CB5_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB5_P3_M3.Text + Log(textemp4) +End Sub + +Private Sub CB5_P3_M3_CheckedChange(Checked As Boolean) + textemp4 = "" + If CB5_P3_M3.Checked Then + textemp4 = CB5_P3_M3.Text + Else + textemp4 = "" + End If + If CB1_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB1_P3_M3.Text + If CB2_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB2_P3_M3.Text + If CB3_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB3_P3_M3.Text + If CB4_P3_M3.Checked Then textemp4 = textemp4 & ", " & CB4_P3_M3.Text + Log(textemp4) +End Sub + + + +Private Sub CB1_P4_M3_CheckedChange(Checked As Boolean) + textemp5 = "" + CB5_P4_M3.Checked = False + If CB1_P4_M3.Checked Then + textemp5 = CB1_P4_M3.Text + Else + textemp5 = "" + End If + If CB2_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB2_P4_M3.Text + If CB3_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB3_P4_M3.Text + If CB4_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB4_P4_M3.Text + If CB5_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB5_P4_M3.Text + Log(textemp5) +End Sub + +Private Sub CB2_P4_M3_CheckedChange(Checked As Boolean) + textemp5 = "" + CB5_P4_M3.Checked = False + If CB2_P4_M3.Checked Then + textemp5 = CB2_P4_M3.Text + Else + textemp5 = "" + End If + If CB1_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB1_P4_M3.Text + If CB3_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB3_P4_M3.Text + If CB4_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB4_P4_M3.Text + If CB5_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB5_P4_M3.Text + Log(textemp5) +End Sub + +Private Sub CB3_P4_M3_CheckedChange(Checked As Boolean) + textemp5 = "" + CB5_P4_M3.Checked = False + If CB3_P4_M3.Checked Then + textemp5 = CB3_P4_M3.Text + Else + textemp5 = "" + End If + If CB1_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB1_P4_M3.Text + If CB2_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB2_P4_M3.Text + If CB4_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB4_P4_M3.Text + If CB5_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB5_P4_M3.Text + Log(textemp5) +End Sub + +Private Sub CB4_P4_M3_CheckedChange(Checked As Boolean) + textemp5 = "" + CB5_P4_M3.Checked = False + If CB4_P4_M3.Checked Then + textemp5 = CB4_P4_M3.Text + Else + textemp5 = "" + End If + If CB1_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB1_P4_M3.Text + If CB2_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB2_P4_M3.Text + If CB3_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB3_P4_M3.Text + If CB5_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB5_P4_M3.Text + Log(textemp5) +End Sub + +Private Sub CB5_P4_M3_CheckedChange(Checked As Boolean) + textemp5 = "" + CB1_P4_M3.Checked = False + CB2_P4_M3.Checked = False + CB3_P4_M3.Checked = False + CB4_P4_M3.Checked = False + If CB5_P4_M3.Checked Then + textemp5 = CB5_P4_M3.Text + Else + textemp5 = "" + End If + If CB1_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB1_P4_M3.Text + If CB2_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB2_P4_M3.Text + If CB3_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB3_P4_M3.Text + If CB4_P4_M3.Checked Then textemp5 = textemp5 & ", " & CB4_P4_M3.Text + Log(textemp5) +End Sub + + + + +Private Sub CB1_P6_M3_CheckedChange(Checked As Boolean) + textemp6 = "" + If CB1_P6_M3.Checked Then + textemp6 = CB1_P6_M3.Text + Else + textemp6 = "" + End If + If CB2_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB2_P6_M3.Text + If CB3_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB3_P6_M3.Text + If CB4_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB4_P6_M3.Text + If CB5_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB5_P6_M3.Text + If CB6_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB6_P6_M3.Text + If CB7_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB7_P6_M3.Text + Log(textemp6) +End Sub + +Private Sub CB2_P6_M3_CheckedChange(Checked As Boolean) + textemp6 = "" + If CB2_P6_M3.Checked Then + textemp6 = CB2_P6_M3.Text + Else + textemp6 = "" + End If + If CB1_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB1_P6_M3.Text + If CB3_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB3_P6_M3.Text + If CB4_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB4_P6_M3.Text + If CB5_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB5_P6_M3.Text + If CB6_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB6_P6_M3.Text + If CB7_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB7_P6_M3.Text + Log(textemp6) +End Sub + +Private Sub CB3_P6_M3_CheckedChange(Checked As Boolean) + textemp6 = "" + If CB3_P6_M3.Checked Then + textemp6 = CB3_P6_M3.Text + Else + textemp6 = "" + End If + If CB1_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB1_P6_M3.Text + If CB2_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB2_P6_M3.Text + If CB4_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB4_P6_M3.Text + If CB5_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB5_P6_M3.Text + If CB6_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB6_P6_M3.Text + If CB7_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB7_P6_M3.Text + Log(textemp6) +End Sub + +Private Sub CB4_P6_M3_CheckedChange(Checked As Boolean) + textemp6 = "" + If CB4_P6_M3.Checked Then + textemp6 = CB4_P6_M3.Text + Else + textemp6 = "" + End If + If CB1_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB1_P6_M3.Text + If CB2_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB2_P6_M3.Text + If CB3_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB3_P6_M3.Text + If CB5_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB5_P6_M3.Text + If CB6_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB6_P6_M3.Text + If CB7_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB7_P6_M3.Text + Log(textemp6) +End Sub + +Private Sub CB5_P6_M3_CheckedChange(Checked As Boolean) + textemp6 = "" + If CB5_P6_M3.Checked Then + textemp6 = CB5_P6_M3.Text + Else + textemp6 = "" + End If + If CB1_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB1_P6_M3.Text + If CB2_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB2_P6_M3.Text + If CB3_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB3_P6_M3.Text + If CB4_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB4_P6_M3.Text + If CB6_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB6_P6_M3.Text + If CB7_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB7_P6_M3.Text + Log(textemp6) +End Sub + +Private Sub CB6_P6_M3_CheckedChange(Checked As Boolean) + textemp6 = "" + If CB6_P6_M3.Checked Then + textemp6 = CB6_P6_M3.Text + Else + textemp6 = "" + End If + If CB1_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB1_P6_M3.Text + If CB2_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB2_P6_M3.Text + If CB3_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB3_P6_M3.Text + If CB4_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB4_P6_M3.Text + If CB5_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB5_P6_M3.Text + If CB7_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB7_P6_M3.Text + Log(textemp6) +End Sub + +Private Sub CB7_P6_M3_CheckedChange(Checked As Boolean) + textemp6 = "" + If CB7_P6_M3.Checked Then + textemp6 = CB7_P6_M3.Text + Else + textemp6 = "" + End If + If CB1_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB1_P6_M3.Text + If CB2_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB2_P6_M3.Text + If CB3_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB3_P6_M3.Text + If CB4_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB4_P6_M3.Text + If CB5_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB5_P6_M3.Text + If CB6_P6_M3.Checked Then textemp6 = textemp6 & ", " & CB6_P6_M3.Text + Log(textemp6) +End Sub + + + + + +Private Sub CB1_P7_M3_CheckedChange(Checked As Boolean) + textemp7 = "" + If CB1_P7_M3.Checked Then + textemp7 = CB1_P7_M3.Text + Else + textemp7 = "" + End If + If CB2_P7_M3.Checked Then textemp7 = textemp7 & ", " & CB2_P7_M3.Text + If CB3_P7_M3.Checked Then textemp7 = textemp7 & ", " & CB3_P7_M3.Text + If CB4_P7_M3.Checked Then textemp7 = textemp7 & ", " & CB4_P7_M3.Text + Log(textemp7) +End Sub + +Private Sub CB2_P7_M3_CheckedChange(Checked As Boolean) + textemp7 = "" + If CB2_P7_M3.Checked Then + textemp7 = CB2_P7_M3.Text + Else + textemp7 = "" + End If + If CB1_P7_M3.Checked Then textemp7 = textemp7 & ", " & CB1_P7_M3.Text + If CB3_P7_M3.Checked Then textemp7 = textemp7 & ", " & CB3_P7_M3.Text + If CB4_P7_M3.Checked Then textemp7 = textemp7 & ", " & CB4_P7_M3.Text + Log(textemp7) +End Sub + +Private Sub CB3_P7_M3_CheckedChange(Checked As Boolean) + textemp7 = "" + If CB3_P7_M3.Checked Then + textemp7 = CB3_P7_M3.Text + Else + textemp7 = "" + End If + If CB1_P7_M3.Checked Then textemp7 = textemp7 & ", " & CB1_P7_M3.Text + If CB2_P7_M3.Checked Then textemp7 = textemp7 & ", " & CB2_P7_M3.Text + If CB4_P7_M3.Checked Then textemp7 = textemp7 & ", " & CB4_P7_M3.Text + Log(textemp7) +End Sub + +Private Sub CB4_P7_M3_CheckedChange(Checked As Boolean) + textemp7 = "" + If CB4_P7_M3.Checked Then + textemp7 = CB4_P7_M3.Text + Else + textemp7 = "" + End If + If CB1_P7_M3.Checked Then textemp7 = textemp7 & ", " & CB1_P7_M3.Text + If CB2_P7_M3.Checked Then textemp7 = textemp7 & ", " & CB2_P7_M3.Text + If CB3_P7_M3.Checked Then textemp7 = textemp7 & ", " & CB3_P7_M3.Text + Log(textemp7) +End Sub + + + + + + +Private Sub CB1_P8_M3_CheckedChange(Checked As Boolean) + textemp8 = "" + textemp8 = CB1_P8_M3.Text + If CB2_P8_M3.Checked Then textemp8 = textemp8 & ", " & CB2_P8_M3.Text + If CB3_P8_M3.Checked Then textemp8 = textemp8 & ", " & CB3_P8_M3.Text + If CB4_P8_M3.Checked Then textemp8 = textemp8 & ", " & CB4_P8_M3.Text + Log(textemp8) +End Sub + +Private Sub CB2_P8_M3_CheckedChange(Checked As Boolean) + textemp8 = "" + textemp8 = CB2_P8_M3.Text + If CB1_P8_M3.Checked Then textemp8 = textemp8 & ", " & CB1_P8_M3.Text + If CB3_P8_M3.Checked Then textemp8 = textemp8 & ", " & CB3_P8_M3.Text + If CB4_P8_M3.Checked Then textemp8 = textemp8 & ", " & CB4_P8_M3.Text + Log(textemp8) +End Sub + +Private Sub CB3_P8_M3_CheckedChange(Checked As Boolean) + textemp8 = "" + textemp8 = CB3_P8_M3.Text + If CB1_P8_M3.Checked Then textemp8 = textemp8 & ", " & CB1_P8_M3.Text + If CB2_P8_M3.Checked Then textemp8 = textemp8 & ", " & CB2_P8_M3.Text + If CB4_P8_M3.Checked Then textemp8 = textemp8 & ", " & CB4_P8_M3.Text + Log(textemp8) +End Sub + +Private Sub CB4_P8_M3_CheckedChange(Checked As Boolean) + textemp8 = "" + textemp8 = CB4_P8_M3.Text + If CB1_P8_M3.Checked Then textemp8 = textemp8 & ", " & CB1_P8_M3.Text + If CB2_P8_M3.Checked Then textemp8 = textemp8 & ", " & CB2_P8_M3.Text + If CB3_P8_M3.Checked Then textemp8 = textemp8 & ", " & CB3_P8_M3.Text + Log(textemp8) +End Sub + + + + diff --git a/B4A/C_Nota.bas b/B4A/C_Nota.bas index e39876f..5ab86cc 100644 --- a/B4A/C_Nota.bas +++ b/B4A/C_Nota.bas @@ -132,19 +132,14 @@ Sub borra_Click If folio <> "" Then result = Msgbox2("Seguro que desa borrar el pedido?","Cancelar pedido", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore If result = DialogResponse.POSITIVE Then - c=B4XPages.MainPage.skmt.ExecQuery("select PE_PROID, PE_CANT, PE_CEDIS FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ") - If c.RowCount > 0 Then - For i = 0 To c.RowCount -1 + c=B4XPages.MainPage.skmt.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ") + If c.RowCount>0 Then + For i=0 To c.RowCount -1 c.Position=i B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID"))) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (almacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1)) - - 'Si es promo, actualizamos la cantidad en PROMOXRUTA. - If c.GetString("PE_CEDIS") = c.GetString("PE_PROID") Then B4XPages.MainPage.skmt.ExecNonQuery($"update PROMOXRUTA set PR_CANT = PR_CANT + ${c.GetString("PE_CANT")} where PR_PROMOID = '${c.GetString("PE_PROID")}'"$) - + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (almacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1)) Next End If - B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") @@ -158,45 +153,28 @@ End Sub Sub ListView1_ItemLongClick (Position As Int, Value As Object) result = Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore If result = DialogResponse.POSITIVE Then - c = B4XPages.MainPage.skmt.ExecQuery2("select PE_PROID,PE_CANT FROM PEDIDO where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) ", Array As String(Value)) - c.Position = 0 + c=B4XPages.MainPage.skmt.ExecQuery2("select PE_PROID,PE_CANT FROM PEDIDO where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) ", Array As String(Value)) + c.Position=0 B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID"))) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN, PROID, CANTIDAD ) VALUES(?,?,?) ", Array As Object (almacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1)) -' c.Close - Private cx As Cursor = B4XPages.MainPage.skmt.ExecQuery2("select count(*) AS CUANTOS from cat_gunaprod where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'", Array As String(Value)) - cx.Position = 0 - If cx.GetString("CUANTOS") > 0 Then - - - Private cy As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT PE_CLIENTE, PE_CEDIS, PE_CANT from PEDIDO where pe_proid in (Select pe_cedis from pedido where pe_proid = '${c.GetString("PE_PROID")}') and pe_cliente in (Select cuenta from cuentaa)"$) - Log("------------ PROMOS EN PEDIDO:" & cy.RowCount & " - " & c.GetString("PE_PROID") & " - Value= " & Value) - If cy.RowCount > 0 Then - cy.Position = 0 - Subs.guardaPromoXruta(cy.GetString("PE_CEDIS"), (cy.GetString("PE_CANT") * -1)) - End If - -' Private pc As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select PE_CANT from PEDIDO where PE_CEDIS = '${c.GetString("PE_PROID")}' and PE_PROID = '${c.GetString("PE_PROID")}' and pe_cliente in (Select CUENTA from cuentaa)"$) -' Log("------------ PROMOS EN PEDIDO:" & pc.RowCount & " - " & c.GetString("PE_PROID") & " - Value= " & Value) -' If pc.RowCount > 0 Then 'Si hay promoXruta, actualizamos la cantidad en PROMOXRUTA. -' pc.Position = 0 -' B4XPages.MainPage.skmt.ExecNonQuery($"update PROMOXRUTA set PR_CANT = PR_CANT + ${pc.GetString("PE_CANT")} where PR_PROMOID = '${c.GetString("PROID")}'"$) -' End If - - B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_cedis in (select pe_cedis from pedido where pe_pronombre = ?) and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value)) - + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (almacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1)) + c.Close + c=B4XPages.MainPage.skmt.ExecQuery2("select count(*) AS CUANTOS from cat_gunaprod where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'", Array As String(Value)) + c.Position=0 + If c.GetString("CUANTOS") > 0 Then + B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_cedis in (select pe_cedis from pedido where pe_pronombre = ?) and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value)) Else - B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value)) + B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value)) End If DateTime.DateFormat = "MM/dd/yyyy" - sDate = DateTime.Date(DateTime.Now) - sTime = DateTime.Time(DateTime.Now) - c = B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa") + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa") c.Position=0 clie_id = c.GetString("CUENTA") - c = B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa") - c.Position = 0 + c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa") + c.Position=0 usuario = c.GetString("USUARIO") - c = B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") + c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") c.Position=0 If c.GetString("CUANTOS") > 0 Then B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") @@ -260,4 +238,4 @@ End Sub Private Sub p_nota_Click -End Sub +End Sub \ No newline at end of file diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 4e99cc3..b0bb147 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -7,9 +7,7 @@ Version=11.5 Sub Class_Globals Private Root As B4XView 'ignore Private xui As XUI 'ignore - Dim kh As kms_helperSubs Dim conectado As String - Dim reqManager As DBRequestManager Dim t1 As Timer Dim sb As StringBuilder Dim PHONE As Phone @@ -225,7 +223,6 @@ Sub Class_Globals Private panel_5 As Panel Private p_marcasRes As Panel Private p_sombra As Panel - Private l_version As Label End Sub 'You can add more parameters here. @@ -238,9 +235,6 @@ Private Sub B4XPage_Created (Root1 As B4XView) Root = Root1 'load the layout to Root Root.LoadLayout("principal") - kh.Initialize(Me, "kh") - kh.RD_Init - l_version.Text = Application.VersionName SCROLL_RESDIA.Width = Root.Width SCROLL_RESDIA.Height = Root.Height B_OK_RES.color = Colors.Red @@ -309,16 +303,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) End Sub Sub B4XPage_Appear - If kh.RD_Init_IsInitialized Then - kh.RD_respalda_cat_detalle_paq - kh.RD_respalda_cat_gunaprod - kh.RD_respalda_kmt_info - kh.RD_respalda_pedido - Else - Log("****** RD NO INICIALIZADO ********") - End If p_principal.Visible = True - reqManager.Initialize(Me, Starter.server) HORAINGRESO ="000000" Btn_Ubicar.Left = (Root.Width/2) - (Btn_Ubicar.Width/2) ' B4XPages.MainPage.reqManager.Initialize(Me, B4XPages.MainPage.SERVER) @@ -401,7 +386,7 @@ Sub B4XPage_Appear l_cuantosn.Text = b.GetString("CUANTOS") b.close Else - c=B4XPages.MainPage.skmt.ExecQuery("select ifnull(SUM(PE_COSTO_TOT), 0) as MONTO_DIA, COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES_DIA from PEDIDO ") + c=B4XPages.MainPage.skmt.ExecQuery("select SUM(PE_COSTO_TOT) as MONTO_DIA, COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES_DIA from PEDIDO ") b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa") c.Position=0 b.Position=0 @@ -429,7 +414,7 @@ Sub B4XPage_Appear Else ImageView3.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png") End If - L_TICKPROM.Text = Round2((c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")),2) + L_TICKPROM.Text = Round2((c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")),2) If c.GetString("MONTO_DIA") < 4000 Then ImageView5.Bitmap = LoadBitmap(File.DirAssets, "tache_rojo.png") Else if c.GetString("MONTO_DIA") > = 4000 And c.GetString("MONTO_DIA") < 6250 Then @@ -698,30 +683,31 @@ Sub Subir_Click Next End If x.Close - Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6 from ENCUESTA_MODULO2") - If x.RowCount>0 Then - For i=0 To x.RowCount -1 - x.Position=i + Private x1 As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6 from ENCUESTA_MODULO2") + If x1.RowCount>0 Then + For i=0 To x1.RowCount -1 + x1.Position=i Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_ENCUESTA_MODULO2" - cmd.Parameters = Array As Object(x.GetString("CLIENTE"), x.GetString("ALMACEN"),x.GetString("P1"), x.GetString("P2"), x.GetString("P3"), x.GetString("P4"), x.GetString("P5"), x.GetString("P6")) + cmd.Parameters = Array As Object(x1.GetString("CLIENTE"), x1.GetString("ALMACEN"),x1.GetString("P1"), x1.GetString("P2"), x1.GetString("P3"), x1.GetString("P4"), x1.GetString("P5"), x1.GetString("P6")) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO2") Next End If - x.Close - Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8, P9 from ENCUESTA_MODULO3") - If x.RowCount>0 Then - For i=0 To x.RowCount -1 - x.Position=i + x1.Close + Private x2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11 from ENCUESTA_MODULO3") + If x2.RowCount>0 Then + For i=0 To x2.RowCount -1 + x2.Position=i + LogColor(x2.GetString("CLIENTE"),Colors.Red) Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_ENCUESTA_MODULO3" - cmd.Parameters = Array As Object(x.GetString("CLIENTE"), x.GetString("ALMACEN"),x.GetString("P1"), x.GetString("P2"), x.GetString("P3"), x.GetString("P4"), x.GetString("P5"), x.GetString("P6"), x.GetString("P7"), x.GetString("P8"), x.GetString("P9")) + cmd.Parameters = Array As Object(x2.GetString("CLIENTE"), x2.GetString("ALMACEN"),x2.GetString("P1"), x2.GetString("P2"), x2.GetString("P3"), x2.GetString("P4"), x2.GetString("P5"), x2.GetString("P6"), x2.GetString("P7"), x2.GetString("P8"), x2.GetString("P9"), x2.GetString("P10"), x2.GetString("P11")) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO3") Next End If - x.Close + x2.Close Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8 from ENCUESTA_MODULO4") If x.RowCount>0 Then For i=0 To x.RowCount -1 @@ -798,7 +784,6 @@ Sub cargar_Click B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GEOCERCA") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_MARCAS_CUOTAS") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA_CLIENTE") - B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM PROMOXRUTA") c = B4XPages.MainPage.skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso")) c.Position = 0 @@ -823,9 +808,6 @@ Sub cargar_Click Dim P As PhoneId imei = P.GetDeviceId - - B4XPages.MainPage.reqManager.reqsList.Initialize 'inicializamos lista de requests. - cmd.Initialize cmd.Name ="insert_drop_GV2_2" cmd.Parameters = Array As Object(usuario,e_ruta.text,sDate,imei,sTime,"","","","","CARGA",ALMACEN) @@ -836,10 +818,10 @@ Sub cargar_Click cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprod") -' cmd.Initialize -' cmd.Name = "select_resum_apk_guna" ''' va el nombre de archivo de config -' cmd.Parameters = Array As Object(ALMACEN) -' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "resum_apk") ''' donde regresa la info ver job_done + cmd.Initialize + cmd.Name = "select_resum_apk_guna" ''' va el nombre de archivo de config + cmd.Parameters = Array As Object(ALMACEN) + B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "resum_apk") ''' donde regresa la info ver job_done cmd.Initialize cmd.Name = "select_cat_paquetes_GV3" @@ -908,20 +890,20 @@ Sub cargar_Click cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_comp_promos") -' cmd.Initialize -' cmd.Name = "select_verificacion_GV2" -' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) -' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "cat_verificacion") + cmd.Initialize + cmd.Name = "select_verificacion_GV2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "cat_verificacion") cmd.Initialize cmd.Name = "select_fecha" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "fecha") -' cmd.Initialize -' cmd.Name = "select_folio_GV2" -' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) -' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "folio") + cmd.Initialize + cmd.Name = "select_folio_GV2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "folio") cmd.Initialize cmd.Name = "select_marcas_rutas" @@ -938,6 +920,7 @@ Sub cargar_Click cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ENCUESTA_CLIENTE") + cmd.Initialize cmd.Name = "select_HIST_CUOTAS" cmd.Parameters = Array As Object( ALMACEN,e_ruta.text ) @@ -948,11 +931,6 @@ Sub cargar_Click cmd.Parameters = Array As Object( ALMACEN,e_ruta.text ) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "COMISIONES") - cmd.Initialize - cmd.Name = "select_promos_ruta_GV2" - cmd.Parameters = Array As Object(ALMACEN, e_ruta.text ) - B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "promosXruta") - cargar.Visible = False Subir.Visible = False inv.Visible = False @@ -960,7 +938,11 @@ Sub cargar_Click End Sub Sub JobDone(Job As HttpJob) - Log("JOBDONE PRINCIPAL") +' If Job.JobName = "DBRequest" Then +' Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) +' Log($"Tag: ${RESULT.tag}, success=${Job.Success}"$) +' End If + If Job.Success = False Then 'ToastMessageShow("Error: " & Job.ErrorMessage, True) If Job.ErrorMessage = "STREAM" Then @@ -974,14 +956,9 @@ Sub JobDone(Job As HttpJob) End If Else 'If Job Success then ... LogColor("JobDone: '" & B4XPages.MainPage.reqManager.HandleJob(Job).tag & "' - Registros: " & B4XPages.MainPage.reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027 + 'Verificamos que el usuario guardado en BD sea VALIDO. If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) - If B4XPages.MainPage.reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos. - If B4XPages.MainPage.reqManager.reqsList.IndexOf(RESULT.tag) <> -1 Then - B4XPages.MainPage.reqManager.reqsList.RemoveAt(B4XPages.MainPage.reqManager.reqsList.IndexOf(RESULT.tag)) - End If - LogColor(">>>>>> " & B4XPages.MainPage.reqManager.reqsList.Size & " - " & B4XPages.MainPage.reqManager.reqsList, Colors.red) - End If If RESULT.Tag = "usuarioA" Then 'query tag Private n As String = "Sin Usuario" For Each records() As Object In RESULT.Rows @@ -1002,7 +979,10 @@ Sub JobDone(Job As HttpJob) End If Log("***************** "&n) End If + End If + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "kmt_datos" Then 'query tag S_CC.TEXT = "CARGANDO" For Each records() As Object In RESULT.Rows @@ -1038,7 +1018,10 @@ Sub JobDone(Job As HttpJob) EJECUTANDO=0 End If End If + End If + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "resum_apk" Then 'query tag For Each records() As Object In RESULT.Rows Dim HIST_RA_OBJMES As String = records(RESULT.Columns.Get("HIST_RA_OBJMES")) @@ -1095,7 +1078,10 @@ Sub JobDone(Job As HttpJob) S_CC.Text = "LISTO" If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Resumen Actualizado." , True) End If + End If + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "hist_promos" Then 'query tag For Each records() As Object In RESULT.Rows Dim HP_CLIENTE As String = records(RESULT.Columns.Get("HP_CLIENTE")) @@ -1113,7 +1099,10 @@ Sub JobDone(Job As HttpJob) S_CH.Text = "LISTO" End If End If - + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "hist_cliente_promos" Then 'query tag For Each records() As Object In RESULT.Rows Dim HCCP_CLIENTE As String = records(RESULT.Columns.Get("HCCP_CLIENTE")) @@ -1123,7 +1112,10 @@ Sub JobDone(Job As HttpJob) Next If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Clientes Promociones Actualizado." , True) End If + End If + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "HIST_MARCAS_CUOTAS" Then 'query tag For Each records() As Object In RESULT.Rows Dim HMC_MARCA As String = records(RESULT.Columns.Get("HMC_MARCA")) @@ -1132,7 +1124,10 @@ Sub JobDone(Job As HttpJob) Next If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True) End If + End If + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "hist_comp_promos" Then 'query tag For Each records() As Object In RESULT.Rows Dim CAT_PA_ID As String = records(RESULT.Columns.Get("CAT_PA_ID")) @@ -1151,7 +1146,10 @@ Sub JobDone(Job As HttpJob) S_CH.Text = "LISTO" End If End If - + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "cat_verificacion" Then 'query tag For Each records() As Object In RESULT.Rows Dim CAT_VE_IDPROD As String = records(RESULT.Columns.Get("CAT_VE_IDPROD")) @@ -1160,7 +1158,10 @@ Sub JobDone(Job As HttpJob) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VERIFICACION(CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN) VALUES (?,?,?)", Array As Object (CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN)) Next End If - + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "marcas_rutas" Then 'query tag For Each records() As Object In RESULT.Rows Dim HVD_MARCA As String = records(RESULT.Columns.Get("HVD_MARCA")) @@ -1168,8 +1169,11 @@ Sub JobDone(Job As HttpJob) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO MARCAS_RUTAS(HVD_MARCA, CLIENTES) VALUES (?,?)", Array As Object (HVD_MARCA, CLIENTES)) Next End If + End If 'CUOTAS + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "CUOTAS" Then 'query tag For Each records() As Object In RESULT.Rows Dim HC_RUTA As String = records(RESULT.Columns.Get("HC_RUTA")) @@ -1189,8 +1193,11 @@ Sub JobDone(Job As HttpJob) Next End If - + End If 'COMISIONES + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "COMISIONES" Then 'query tag For Each records() As Object In RESULT.Rows Dim HCM_TOTAL_V As String = records(RESULT.Columns.Get("HCM_TOTAL_V")) @@ -1200,7 +1207,11 @@ Sub JobDone(Job As HttpJob) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_COMISIONES_MOVIL (HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB) VALUES (?,?,?,?)", Array As Object (HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB)) Next End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "ENCUESTA_CLIENTE" Then 'query tag For Each records() As Object In RESULT.Rows Dim HEC_CLIENTE As String = records(RESULT.Columns.Get("HEC_CLIENTE")) @@ -1208,7 +1219,11 @@ Sub JobDone(Job As HttpJob) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA_CLIENTE (HEC_CLIENTE , HEC_MODULO) VALUES (?,?)", Array As Object (HEC_CLIENTE , HEC_MODULO )) Next End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "gunaprod" Then 'query tag If PB2.Progress < 30 Then S_CP.Text = "CARGANDO" 'Mod por CHV - 20211028 Agregue el "If PB2.Progress < 30 then" For Each records() As Object In RESULT.Rows @@ -1247,7 +1262,10 @@ Sub JobDone(Job As HttpJob) EJECUTANDO=0 End If End If + End If + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "gunaprodp" Then 'query tag For Each records() As Object In RESULT.Rows Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID")) @@ -1289,9 +1307,13 @@ Sub JobDone(Job As HttpJob) EJECUTANDO=0 End If End If + End If + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "gunaprodps" Then 'query tag For Each records() As Object In RESULT.Rows + Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID")) Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE")) Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1")) @@ -1319,6 +1341,7 @@ Sub JobDone(Job As HttpJob) Log("3") End If If Starter.marcaCel <> "Sony" Then ToastMessageShow("Promociones especiales Actualizados." , True) + Listo4=1 If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then B4XPage_Appear @@ -1330,7 +1353,10 @@ Sub JobDone(Job As HttpJob) EJECUTANDO=0 End If End If + End If + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "detallepaq" Then 'query tag For Each records() As Object In RESULT.Rows Dim CAT_DP_ALMACEN As String = records(RESULT.Columns.Get("CAT_DP_ALMACEN")) @@ -1367,7 +1393,10 @@ Sub JobDone(Job As HttpJob) End If End If + End If + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "hist_datos" Then 'query tag For Each records() As Object In RESULT.Rows Dim HVD_CLIENTE As String = records(RESULT.Columns.Get("HVD_CLIENTE")) @@ -1393,7 +1422,10 @@ Sub JobDone(Job As HttpJob) EJECUTANDO=0 End If End If - + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "variables" Then 'query tag For Each records() As Object In RESULT.Rows Dim Cat_Va_Descripcion As String = records(RESULT.Columns.Get("CAT_VA_DESCRIPCION")) @@ -1401,7 +1433,10 @@ Sub JobDone(Job As HttpJob) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object (Cat_Va_Descripcion, Cat_Va_Valor)) Next End If - + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "CUESTIONARIO" Then 'query tag For Each records() As Object In RESULT.Rows Dim Cat_Va_Valor As String = records(RESULT.Columns.Get("CAT_VALOR")) @@ -1409,10 +1444,15 @@ Sub JobDone(Job As HttpJob) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CUESTIONARIO", Cat_Va_Valor)) Next End If - + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "valida_pedido" Then 'query tag For Each records() As Object In RESULT.Rows + Dim CUANTOSP As Int = records(RESULT.Columns.Get("CUANTOSP")) + If cuantos_pedido < = CUANTOSP Then ' ToastMessageShow("rojo val ok 1 cuantosp." , True) datos_iguales = "ok" @@ -1421,12 +1461,19 @@ Sub JobDone(Job As HttpJob) If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True) S_CP.Text = "ENVIAR DATOS (K-2)" End If + + Next End If - + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "valida_pedidoc" Then 'query tag For Each records() As Object In RESULT.Rows + Dim CUANTOSC As Int = records(RESULT.Columns.Get("CUANTOSC")) + If cuantos_pedidosc = CUANTOSC Then ' ToastMessageShow("rojo val ok 1 cuantosp." , True) datos_iguales = "ok" @@ -1435,7 +1482,10 @@ Sub JobDone(Job As HttpJob) End If Next End If + End If + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "valida_noventa" Then 'query tag For Each records() As Object In RESULT.Rows Dim CUANTOSN As Int = records(RESULT.Columns.Get("CUANTOSN")) @@ -1447,7 +1497,10 @@ Sub JobDone(Job As HttpJob) End If Next End If + End If + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "ins_pedido" Then 'query tag For Each records() As Object In RESULT.Rows PB2.Progress = PB2.Progress + 5 @@ -1457,7 +1510,10 @@ Sub JobDone(Job As HttpJob) S_CP.Text = "LISTO" Log("5") End If - + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "version" Then 'query tag For Each records() As Object In RESULT.Rows B4XPages.MainPage.skmt.ExecNonQuery("delete from VERSION") @@ -1465,13 +1521,19 @@ Sub JobDone(Job As HttpJob) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION)) Next End If - + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "count_cli" Then 'query tag For Each records() As Object In RESULT.Rows COUNT_CLIE = records(RESULT.Columns.Get("COUNT_CLIE")) Next End If - + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "ruta" Then 'query tag For Each records() As Object In RESULT.Rows Dim VALIDO As String = records(RESULT.Columns.Get("VALIDO")) @@ -1492,7 +1554,10 @@ Sub JobDone(Job As HttpJob) End If Next End If - + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "usuario" Then 'query tag For Each records() As Object In RESULT.Rows Dim name2 As String = records(RESULT.Columns.Get("VALIDO")) @@ -1502,7 +1567,10 @@ Sub JobDone(Job As HttpJob) End If P1.Visible = False End If + End If + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "fecha" Then 'query tag For Each records() As Object In RESULT.Rows Dim FECHA_HOY As String = records(RESULT.Columns.Get("FECHA")) @@ -1510,7 +1578,10 @@ Sub JobDone(Job As HttpJob) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",FECHA_HOY)) Next End If + End If + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "folio" Then 'query tag For Each records() As Object In RESULT.Rows Dim FOLIO As String = records(RESULT.Columns.Get("FOLIO")) @@ -1518,13 +1589,6 @@ Sub JobDone(Job As HttpJob) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FOLIO",FOLIO)) Next End If - - If RESULT.Tag = "promosXruta" Then -' Subs.logJobDoneResultados(RESULT) - For Each records() As Object In RESULT.Rows - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROMOXRUTA(PR_PROMOID, PR_CANT) VALUES (?,?)", Array As Object (records(RESULT.Columns.Get("CAT_RP_IDPROMO")), records(RESULT.Columns.Get("CAT_RP_CANTIDAD")))) - Next - End If End If End If Job.Release @@ -1543,6 +1607,7 @@ Private Sub B4XPage_CloseRequest As ResumableSub End Sub Sub connecta_Click + B4XPages.MainPage.reqManager.Initialize(Me, Starter.server) teclado.HideKeyboard connecta1 = connecta1 + 1 'imei = p.GetDeviceId @@ -1550,7 +1615,7 @@ Sub connecta_Click Dim cmd As DBCommand cmd.Initialize cmd.Name = "select_version_GV2" - reqManager.ExecuteQuery(cmd , 0, "version") + B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "version") ' Cuando nos conectamos verificamos que el usuario guardado en BD sea VALIDO. c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO, PASS from usuarioa") c.Position=0 @@ -1558,9 +1623,9 @@ Sub connecta_Click Private usrT As String = c.GetString("USUARIO") Private passT As String = c.GetString("PASS") cmd.Initialize - cmd.Name = "select_usuario_guna_GV2_10" + cmd.Name = "select_usuario_guna_GV2_1" cmd.Parameters = Array As Object(usrT, passT) - reqManager.ExecuteQuery(cmd , 0, "usuarioA") + B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "usuarioA") End If c.Close @@ -1568,13 +1633,13 @@ Sub connecta_Click cmd.Initialize cmd.Name = "select_ruta_GV2_70" cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei) - reqManager.ExecuteQuery(cmd , 0, "ruta") + B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta") Else Dim cmd As DBCommand cmd.Initialize cmd.Name = "select_ruta_GV2_70" cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei) - reqManager.ExecuteQuery(cmd , 0, "ruta") + B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta") End If If e_ruta.Text = "KMTS1" Then diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index a91ca03..40a2f17 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -455,7 +455,7 @@ Sub b_prodMenos_Click Dim laCant As B4XView = pnl.GetView(2).GetView(3) ' Log($"precio|stock:${laCant.tag}"$) If laCant.Text = "" Then laCant.Text = 0 - laCant.Text = NumberFormat2(laCant.Text - 1, 1, 0, 0, False) + laCant.Text = $"$1.0{laCant.Text-1}"$ If laCant.Text < 0 Then laCant.Text = 0 ' Dim chk As B4XView = pnl.GetView(2) cuentaProds @@ -474,7 +474,7 @@ Sub b_prodMas_Click ' Log(laCant.Tag&"|"&esteTag) If laCant.Text = "" Then laCant.Text = 0 If laCant.Text + 1 <= esteTag.get(1) Then - laCant.Text = NumberFormat2(laCant.Text + 1, 1, 0, 0, False) + laCant.Text = $"$1.0{laCant.Text+1}"$ cuentaProds End If ' Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$) @@ -496,7 +496,7 @@ Sub cuentaProds If cant1.Text = "" Then cant1.Text = 0 ' Private cant2 As Int = 0 ' If cant1.Text <> "" Then cant2 = cant1.Text - totalProds = totalProds + NumberFormat2(cant1.Text, 1, 0, 0, False) + totalProds = totalProds + cant1.Text Private esteTag As List = Regex.Split("\|", cant1.Tag) If cant1.Text > esteTag.Get(1) Then cant1.Text = esteTag.Get(1) If cant1.Text > 0 Then diff --git a/B4A/C_Promos.bas b/B4A/C_Promos.bas index 9e0daf4..418192a 100644 --- a/B4A/C_Promos.bas +++ b/B4A/C_Promos.bas @@ -340,14 +340,10 @@ End Sub Private Sub b_terminar1_Click cuentaProds Log("====================================================================") - Log($"${prodsIds}${CRLF}${prodsCants}${CRLF}${prodsPrecios}"$) - Log(laPromo) +' Log($"${prodsIds}${CRLF}${prodsCants}${CRLF}${prodsPrecios}"$) For t = 0 To prodsIds.Size - 1 'Guardamos los productos fijos de la promocion en pedido. Private pn As String = Subs.traeProdNombre(prodsIds.Get(t)) If prodsCants.Get(t) > 0 Then Subs.guardaProducto(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta) - - If laPromo = prodsIds.Get(t) Then Subs.guardaPromoXruta(laPromo, prodsCants.Get(t)) - Next For t = 0 To prodsIds2.Size - 1 'Guardamos los productos variables de la promocion en pedido. Private pn As String = Subs.traeProdNombre(prodsIds2.Get(t)) @@ -361,13 +357,10 @@ End Sub Private Sub b_continuar_Click cuentaProds Log("====================================================================") - Log($"${prodsIds}${CRLF}${prodsCants}${CRLF}${prodsPrecios}"$) +' Log($"${prodsIds}${CRLF}${prodsCants}${CRLF}${prodsPrecios}"$) For t = 0 To prodsIds.Size - 1 'Guardamos los productos fijos de la promocion en pedido. Private pn As String = Subs.traeProdNombre(prodsIds.Get(t)) Subs.guardaProducto(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta) - - If laPromo = prodsIds.Get(t) Then Subs.guardaPromoXruta(laPromo, prodsCants.Get(t)) - Next For t = 0 To prodsIds2.Size - 1 'Guardamos los productos variables de la promocion en pedido. Private pn As String = Subs.traeProdNombre(prodsIds2.Get(t)) diff --git a/B4A/DBRequestManager.bas b/B4A/DBRequestManager.bas index 9ff60af..1a8b358 100644 --- a/B4A/DBRequestManager.bas +++ b/B4A/DBRequestManager.bas @@ -18,7 +18,6 @@ Sub Class_Globals Private VERSION As Float = 0.9 Private tempArray(1) As Object Dim jobTagAnterior As String = "" 'Mod por CHV - 211027 - Dim reqsList As List End Sub 'Target - The module that handles JobDone (usually Me). @@ -36,7 +35,6 @@ Public Sub ExecuteQuery(Command As DBCommand, Limit As Int, Tag As Object) Dim j As HttpJob Dim ms As OutputStream Dim out2 As OutputStream = StartJob(j,ms, Tag) - If reqsList.IsInitialized Then reqsList.Add(Tag) WriteObject(Command.Name, out2) WriteInt(Limit, out2) @@ -63,7 +61,6 @@ End Sub 'Similar to ExecuteBatch. Sends a single command. Public Sub ExecuteCommand(Command As DBCommand, Tag As Object) - If reqsList.IsInitialized Then reqsList.Add(Tag) ExecuteBatch(Array As DBCommand(Command), Tag) End Sub diff --git a/B4A/FileHandler.bas b/B4A/FileHandler.bas deleted file mode 100644 index a9529f8..0000000 --- a/B4A/FileHandler.bas +++ /dev/null @@ -1,162 +0,0 @@ -B4A=true -Group=Default Group -ModulesStructureVersion=1 -Type=Class -Version=11 -@EndOfDesignText@ -'Requiere la librería "ContentResolver" y "FileProvider" o "AppUpdating" -' -'Copiar este codigo al boton_Click que se quiere que importe la base de datos. -' -' Private Sub b_importarBD_Click -' Private FH As FileHandler -' FH.Initialize -' Wait For (FH.Load) Complete (Result As LoadResult) 'Abre un fileManager para seleccionar la base de datos a importar. -' File.Copy(Result.Dir, Result.FileName, File.DirInternal, "kmt.db") 'Copia la base de datos seleccionada al directorio interno. -' Starter.skmt.Initialize(Starter.ruta,"kmt.db", True) 'Reiniciliza la base de datos con la recien importada. -' ToastMessageShow("¡BD importada!", False) -' End Sub - -Sub Class_Globals - #if B4A - Private ion As Object - Private OldIntent As Intent - #end if - Type LoadResult (Success As Boolean, Dir As String, FileName As String, RealName As String, Size As Long, Modified As Long, MimeType As String) -End Sub - -Public Sub Initialize - -End Sub - -#if B4A -Public Sub SaveAs (Source As InputStream, MimeType As String, Title As String) As ResumableSub - Dim intent As Intent - intent.Initialize("android.intent.action.CREATE_DOCUMENT", "") - intent.AddCategory("android.intent.category.OPENABLE") - intent.PutExtra("android.intent.extra.TITLE", Title) - intent.SetType(MimeType) - StartActivityForResult(intent) - Wait For ion_Event (MethodName As String, Args() As Object) - If -1 = Args(0) Then 'resultCode = RESULT_OK - Dim result As Intent = Args(1) - Dim jo As JavaObject = result - Dim ctxt As JavaObject - Dim out As OutputStream = ctxt.InitializeContext.RunMethodJO("getContentResolver", Null).RunMethod("openOutputStream", Array(jo.RunMethod("getData", Null))) - File.Copy2(Source, out) - out.Close - Return True - End If - Return False -End Sub - -Public Sub Load As ResumableSub - Dim cc As ContentChooser - cc.Initialize("cc") - cc.Show("application/octet-stream", "Choose text file") - Wait For CC_Result (Success As Boolean, Dir As String, FileName As String) - Log($"***************************${CRLF}${Dir}${CRLF} ${FileName}"$) - Dim res As LoadResult = CreateLoadResult(Success, Dir, FileName) - Log($"***************************${CRLF}${res.FileName}${CRLF} ${res}"$) - If res.Success Then ExtractInformationFromURI(res.FileName, res) - Return res -End Sub - -Private Sub StartActivityForResult(i As Intent) - Dim jo As JavaObject = GetBA - ion = jo.CreateEvent("anywheresoftware.b4a.IOnActivityResult", "ion", Null) - jo.RunMethod("startActivityForResult", Array(ion, i)) -End Sub - -Private Sub GetBA As Object - Return Me.As(JavaObject).RunMethod("getBA", Null) -End Sub - -Private Sub ExtractInformationFromURI (Uri As String, res As LoadResult) - Try - - Dim resolver As ContentResolver - resolver.Initialize("") - Dim u As Uri - u.Parse(Uri) - Dim rs As ResultSet = resolver.Query(u, Null, "", Null, "") - If rs.NextRow Then - Dim columns As B4XSet = B4XCollections.CreateSet - For i = 0 To rs.ColumnCount - 1 - columns.Add(rs.GetColumnName(i)) - Next - If columns.Contains("_display_name") Then res.RealName = rs.GetString("_display_name") - If columns.Contains("_size") Then res.Size = rs.GetLong("_size") - If columns.Contains("last_modified") Then res.Modified = rs.GetLong("last_modified") - If columns.Contains("mime_type") Then res.MimeType = rs.GetString("mime_type") - End If - rs.Close - - Catch - Log("error extracting information from file provider") - Log(LastException) - End Try -End Sub - -Public Sub CheckForReceivedFiles As LoadResult - Dim Activity As Activity = B4XPages.GetNativeParent(B4XPages.MainPage) - If IsRelevantIntent(Activity.GetStartingIntent) Then - Dim in As Intent = Activity.GetStartingIntent - Dim uri As String - If in.HasExtra("android.intent.extra.STREAM") Then - uri = in.As(JavaObject).RunMethod("getParcelableExtra", Array("android.intent.extra.STREAM")) - Else - uri = in.GetData - End If - Dim res As LoadResult = CreateLoadResult(True, "ContentDir", uri) - ExtractInformationFromURI(res.FileName, res) - Return res - End If - Return CreateLoadResult(False, "", "") -End Sub - -Private Sub IsRelevantIntent(in As Intent) As Boolean - If in.IsInitialized And in <> OldIntent And in.Action = in.ACTION_VIEW Then - OldIntent = in - Return True - End If - Return False -End Sub - -#else if B4i -Public Sub SaveAs(ParentPage As Object, AnchorView As Object, Text As String) As ResumableSub - Dim avc As ActivityViewController - avc.Initialize("avc", Array(Text)) - avc.Show(B4XPages.GetNativeParent(ParentPage), AnchorView) - Wait For avc_Complete (Success As Boolean, ActivityType As String) - Return Success -End Sub - -Public Sub Load (ParentPage As Object, AnchorView As Object) As ResumableSub - Dim DocumentPicker As DocumentPickerViewController - DocumentPicker.InitializeImport("picker", Array("public.text")) - DocumentPicker.Show(B4XPages.GetNativeParent(ParentPage), AnchorView) - Wait For Picker_Complete (Success As Boolean, URLs As List) - If Success And URLs.Size > 0 Then - Return UrlToLoadResult(URLs.Get(0)) - End If - Return CreateLoadResult(False, "", "") -End Sub - -Public Sub UrlToLoadResult(url As String) As LoadResult - Dim res As LoadResult = CreateLoadResult(IIf(File.Exists(url, ""), True, False), url, "") - res.RealName = res.Dir.SubString(res.Dir.LastIndexOf("/") + 1) - res.Size = File.Size(res.Dir, "") - Return res -End Sub -#end if - -Private Sub CreateLoadResult (Success As Boolean, Dir As String, FileName As String) As LoadResult - Dim t1 As LoadResult - t1.Initialize - t1.Success = Success - t1.Dir = Dir - t1.FileName = FileName - Return t1 -End Sub - diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index e76866942e7d83e95cdc5c4e11fff71d65d64984..bb8041c55bda244aed40755243bea0b574e48dc7 100644 GIT binary patch delta 912 zcmZvaT}TvR6o%(aYdM?l*0vkwCYkoL8)BAeA}K|dS(e+6mVqU7RaU5rE>>!$u895F z+l3TC7h!}@$`?e`Ro!+Y-7Hy_mE~&wm6b+N=Npk7qk;GAGw+^r=9_b-xlMg@U5yM= z6y=nrC}#dW+!a}%ic&RMrEGD>bW^RJ!>)<7jkTSX&Dvq$90Tt(@Gb-A8hAJJ9#$U9 zW8l38-WTHa%Kp%ea)3FXRlqvPTESY$I>eeeXrcH$?;6oBaYd_}FOnTkRAhR?ardN6 zghy2tVzkAK$?_5kU~F{)1w^a2gAgopqPQd#>E#yw!*e7Ck1Kj%D!1WYrPKO~+pl9q zI5=nlysW%IJt#|Zpx&28ukq9uZ|#|#BSw6QgiRH8BvobLQiW_=wHXEL^Qx{Jk|kzU}yyWazy4JdnxiDK`cy+M(1%SZnxO6z^93e zbzC{9R}TKCa%iS<=-)~_tA7A--j2qG4C|NKrJ}nbnrN609}lZvW0LQm=6`|U1v{de zGLT+xVYhf~ERCYE>GGB_ZlKS3oZ%}=ek6+aje~A4W|)x9cMd-!{Nx}n)3lAUjaxD1 zx6>rAI{|-OTC!}V@1cVsiKWRd`a&idLPHwnyXl_1`86W5xt(ZAAIa40JRW8#9=7EF E1qb@)i2wiq delta 1062 zcmZ8fSx8i26u#%G*c}_M=;*YmGcKtyXwJBi7#f&MF5{9*B?;0)shQh|rAXQsQaI)b zl6vteT3(b(5CpyX5`vFr<(5{OiH>QusCE7;)7)|3JM;Z#`_K9AKY5?;8Q|3(9LIGF z9H*lH^TX;AUQGwC=Az|NL*wPTt5Owj;vrLd;Qom32%|_iA)Vkxa3`E5WDqh5Sqh%5 z;Aa#(N5OLyJdb!j!AvMn@Iog)$rU*dT(N?mC0;@(C6o~ygO(F_40=wQ^Xv!Mku1VZ zuTY*MrZ|^XnG%Ir8JWebqB!3yZE9ZeZsYT7IGd}LMzxl5c#D-$SFo?~FucQ==y;ew zpA$)LwY9Za5Tk|nIGh*m#o7cBz=Okrl7nc|Y4J^$3UlhK;RD9D8OY8?q~q%kfpJ;_(+==u>TU#~`89ne$whFHYC8Ig`0B*F7z!yv_GLy9(je`YD zyRia`^74!F@_!S3v92`?D;q?tj*Nn@IM#FomN2H>ATH4bP7M}uIWkpx)?NWP()nK~ z4CwM^4MPG|%ak6^W?II+>O*L&ia~X!AkB18MVZxE@zm<5SaDRWC@NmUDkYfP(lZ{x~wE%Y7AXL>&vdALXWfAV)8ih5vw8okuuDO)j(O#p2?>J%YO<%FElX-rT`OU~5GVJHR>vs7_L(v-8qFW7^+Af$_OZfvmCvu!1ux|2@ kTSS~{+Ud008wZn*N&UAU18n2HMzgr>nkT=!7d=n@0WnVtnE(I) diff --git a/B4A/Files/encuessta_m3.bal b/B4A/Files/encuessta_m3.bal index eee044e660ceb968190e7bdf609a5a25ef5e18b2..25448caa314665aeb02c4a64dd61bf9a2d6b0b5d 100644 GIT binary patch literal 41542 zcmd^{349#aUB_3komAv#p@~VIKqi-KC${31WLZiG_G))+ucO_SS1Tn>4|}a0+nY$c z%I?ZXD3G=sZQ4MZKqzNzD71lcHl-=h7%Yw?gaSP{!j*CqD5a#Fg#zaH`_IgqH@ZAe znc0{&pUmq2uK#=Q`~L4g|M#@=nnWV;p07$I@PA?&&nxhxCfl{6wf2cuLGJMqcQz|C zGj{XU$Q#~&c(&54R_yxZtler?_D}a+#;U`!?RKN?R=kiEC8HZsdN{d%v~PdDZ#^rf z8`Cq5*?Kk5;D+=Od-C4l#&K5xN8)8E75z}55(9c-o1Pd{iC(8$rwtOm0wjC|Ncakn z@D=pw3Xt#>AmJ-O!dHNVub^L7fP}9A310ycz5*nC1zU9mNcakn@D&W`iEU1TtLiaK zZV9Be22ulhs<$tY>JOv_1F0ba>n_|jJu#>!hPaq^d;d%lwjySgt=8IQ`*>ShY%j~J z+l#uCvt?&8w5XBFL3=8BDWo0|-R5h&qKiBsxy2WgzS!%FeZJW5i(7qhKy}!wq&_9} zD`~5e{1)3(-k_3(R%388n3N2Ev{JXHwBbvdbw!XNJCaPq5w%WuAIQ|GeIM=cW7RrTb|@ z&4aWVSPl~jD*e!9kuq2w*Wn*16~UZ=@dY4X*Y{B@fA^_qN*CR>_(ttMZm$=7T04VrwTCa>4z z*J|XCLh-1Bbr>(Q|y$pTNSn1ev&+OfB$EIgTp1XPD#D+r8 zvzs=2y18ldGp{TZp3AM-(@ge0u;Z;CUG?x65^wv^C+DnZuXym{(xZK!=za9m^B=hU zoey1d)5xYv+7G7gpT6`Xi7Vgz*m`nV4JSwcG1)4gn6bITGY2cJ+GJ10Zq*Lg?PgEj zZdbfml^(E-dJ<`PneI!A9;#BWO;_5rMm;mzl%E`YwOKh|2xULbh!3WyWTETrfqiP4Ts+M(CpOI*kseT>-4#``sCDX)h^fCQ&RJu z%FzmE%h}Y?n)9EjG@%QEc=~qbFgt3q1@(y_L!{q7T5HuXA9i}Q(yUeL?JZO_Wglv< zV&%pR8y~Ax+efJSh+R8;q|Js$D)q@Dji%^uL{_}@-deSVWk_tH6P{0q_$8#^8>2@g z7dTzl{MsHt2il#r_K|d>iB)WQ1$-YJY&5HOQ>No5@8obvYf>68yqIkXMf3ArqXI10~juM3-g(>M{0GO>(gqVm=YT)6ifNk2)k+{z@~Qol&+|O8{<%A zQhLf{cc#Wi%2ak#4VLfrbhc2=miA9%OXXbJQFaUmKrVlh#v%)xT*?q6G#5kAgLIC> zo|>x75Eh45C>F9*CY5^ELppPM@A%x?t<2m*DJwf>Wk;;N<5{bm%NDX$J~d`dU|6Z` ze0k5eDB7PEYi>l9&~YpW#>i3yd9{`tn(QjMj*J(wW1P4fm$?BX2cA!r%1)U?W~E^* zP|WADrF3z`DV9jKH0;KNY`SMWJK>aVb-H(BKbDQ9hEtg$yBu)J+=!93F#)yic;vWM z8g}DE7G{e1Twzy{I%I+72iQr5Wce%%#LDd&PmNe9t9MIYJKgYAf9AB69#0j@#W5?N zEtl{E$xI0&8go}-Bqc%yYgDkt#;tO(oEphxQkm`CnA$4za<}DE`_LbIvhuywJ}71X zDXSkn&#T|ZFwU#ba;^Hn!s>FK@T#+1P261$EGdI)W@mD#QclQ-we>TwI&(T*saCAX zS-8fA)vnpNm9QppH_=39qi*4D!?va?CmPKfZaKC)Yk}pbPL4FwXju(wdhS%qI%-ea zEo-LHv|9FbrCxFBx<>^r%~&>{Dx^l7eAs~(^zR+d6|mX768AX37T`37HBxhOPD9>F z-~#H*u~6o-m0R)5=?S}DwK;_v<~7r_@w&haW#moo*ua*BB6p{@Qi~kc7+x>7%bb%U z4+FsqpN)&u_uP5USR0OP3K*FK*Gzo=t5Zrx+){dOdf{rVB~IMaLAT`kbv+BSY_;sF zm$k(G6yN%;PupEAJ_VE z?HVtnHd(Nw*|}3wuo$Z~>zfRh;1K+GwPA53P}XeMU?Q_LwmKGOskf1LXR{vtF5$+! zD(*Xqh9#G5ybz+>+68+bb8;PzC2zs8)b4TYMxdbYsz&>)X# z`3h^*+Lab70&ml9+X&P^s@-4{xkU0VgV3u&S!^jsi<0D0@uSYHYHrj)1tmKyKA)Yy%ty}la+7`khgi_)x>aK6V-iIm39#glR zJl5t@bML~Iw>Iofjg?bYGHIpq8`XmFet}l5YO&nvbt_9QYg@*X<_iQP-MG+YE z2_$)_q=k#gi(};C9L7RnP2p=MYg0gSf_|rAO(9zr@36+iyRsb1ZNgATb6LfKB{UM2 zq>BY>IG4_)N3!LVQv)DagHac2;C+)XmVHBI86ml4>6Ef!U|?ZjcJr=0)m(=tIjemG zq%)^S8_oM>=N^~sTeF)s=DEnbKvtV~w(Mja15c%MbC0@v1$&M~T%^%bHl4%Eb2zo9 z=d|sxnEZpGb~ZB2sqx2B7RCb}5ONGSu1Zu(^UBN1r$ zQY6=x)OR^@)^yRmui|xOR}~+;1`vThR|E!QA~1%M32=Y7Gr@rP+F!+Yo-=e_Ov=!C zu<>VPdD)!NwRkS%bgsiAnw&YFJ$v?gF9$ypt8c&u8zgSTv!+Ytz8<0)iVW^)8hxxbQLvnX*+9t9L-^kg=uEl^Ti+ZlSS}gK%Z#AXkM@0aMe_ z@C1$Rjldw)AAw^Cf_V}}YBWj{dR<^_!^jh3OG7Z+h42i)U6_H6?kqkutKEs@LaSZE zUb&!RlpM_xMoEP}JfakHOl*U+h&k>;_Dao>e$L!2tn$!mgT7DQSNO2 z*r^xLRSeXr)_{5u)gz|H7JT6Bo|o#-kC>Qrk${Vr6GnED>XDrVI8b&mSo@ldB)1L}PB zMNIulW9qN(9Q8NEL!D|3sPi}Q5mSGYF?Ec=JwUWaOy?}&ypY;%_Q{F3(qeiprVJ7x4?*L{OgA=A&A0dG*d!(tLLNtcS zv${}cye>}oDF}vV>)4Nw2QjA5)OjcnOHD&q;xI#n2D~RxeWkpYI6`vw2=5mmggQd{ z+dpcLQ>1x?~xl$HN5aza_T?{s&g zNvyvkxDOqKw({`Qsn&pc6V;=ku6zr(kC|`jV5mXch=DrQ8c=UXMqSyuq8{4TJ9uw8 z8xM7=HK2YpGV03KAA?G>!wed@0iJL5u?Kj^(CIonp#nTs_NlH%Y9)6`{Qayr;RkRx zFNoA#(%mRhqj`A)yyF;34DNtxeS`$MY=CzH6{2y%iaNhuBGd^x)T?g?DmuSLiTy6= zesmR@dYAx@3JrLF6RNM2cjy3*<6ehH_FT})k(*fE!Mmh4p})|)!-pDFYe4;*QGKP< zg8?2>;#(Qc%o0FOBv!rD0B=Fg4hwc zt;7(~%vT`1Rj_}qFlYywI)?aNki<28Hw51`Szb15JiHHDZ2Lb91@n0ySc><&FoMuYDQm0x2>hD7JAoWS)grgn|gV4;OJ_tdmKL$Zri?W}fm9v!=e8x`w5%d=Wb*eR> z{wS(PL;WN)$!0O9?gyW-Q~w@}G6w2YYe4;bQ9T;!P~=cQ1i{SK{opfp>fC=ZP^Vf0 z>feXz(NI4LO=9cj)F;riLw^0;=qd*4RBJ%}`%yg_>QLlR=k_tP^?hj3A?iPXu4150 zwFcCG5Y?lheiE9**3GH=-^z^L!~76N83T2yHK5MlF+@Y1zx5aD>Kn+RFBN_SgXoa0 zzb78*RBJ%}B&tVDy$Sr{VM0?sg+Vyf8QDv`z7fKWc-%kv{85MtO>{FWtl&>1e+=#9 z+{0eh;_2ccB^ZIT#~{b8$O-)?lDI$+6AXX)c>?OUvkUF-an+ggQe&p?g(`>XFeG7` zrgoKWdD$01xE4>Sdzi(}KtGPg3m2ycxhp(#Qelw&0CJW*bN&Ph9UC^M9=!Zey#EO* z#fDifrypKvtiywa(Eh}giPiG)K72a7WB1qZM^~YFhd*;ttpWANQ9T;Z0Y#3#J_Erl zHepkTzyH3B-QIr^ordO5k9Mv*7Ao|~uSaTGd;cj^2$HAWhCA&C?fr7JQ*KJgt2>r+ z*}MOyWKHoeym>S9FQNY4{{zsgww`Rpr;#I2*`;#emm$&3%0ZSd>9X&0p5tA?R|#V` z#Gl4oBQ-=S^x+ZZvWECGs1S`ID#uGf4Dm$>vew){YV{YncG`jR4msYRMOUGDhj+YG zYe4;AP(jF{T)(Q>_7Y2F1}(SGLYKpqZ_A@Urhi@ldB)1M0sR8Fgjrih5{U zpTHnG4|S?Fp#EfJ)RnD229;v#Dy%!#+jJjVbcp&#&{Yf`hH4F{$8hbm!;2Z8 z!cfGopNqPGc!~Y+_)GCnr&u^(oB8C|WzBliem z9LpSLSlOq_gW*d$%sh!>nz)1W@i6l%m|bXhzzrn_z%+!lcowd{bF9!7=Lp{aN9F!Ss2 zP^Vf0>c0^gb!F@3)F&_qC%}k3!28X3s8g*0^@U%|f60EG_~mUHI;`H;IqJU^4|S?F zp#GJ1m|^G~gI}jw1L`MHJsQ6r$zkTb7>?s>Vn570gRa)$33ZrZWuNLw4>RglR#)Ly zP2vvJ-3Fsjn zasEkg6>3lr-sj_C<~a;5H1F_-8LBm){yV51q`uOZ-m9TW!snsx_c~UWC;hJj{G59_mzUK>Z}DN8{Hc39H|S;dCgh{sVNi4o|4Cnw5R3FFCBf z_`>rzto}pHHFUrcCak7HA0AN-;8`-P{v#9yP4de-to~!nH#G0?VKvnnP=9^_^)K(R z`cLAaPPGQq|1^5)=XF^9XYo*{S_A5T9zFH*I;{SSc&JmY0reN6r+!|C)t`=sI@KCb z|4Iw1|1uuxRBJ%}B&r8vn3cXwBMGbj3d8A8SpC=NDs))Q%0AVVhSlo!^h;1Dr)>4r z8(yQT(OiXuMEm&J`P=HhL8qa^yf9%k75eaqa@nx@GpG!99(fOYwAHgO9a%8X^_?@Q8BRjsFj*5V0XbqoE=0KnrK%?}j8hJO?3;jsH354b6Ke zD&HXk5liKml%@6~;s29iRBJ%}A5q<*ZvOYOwChEFImj&>-2SxtC9E7J`o9(wJN3__ zzZj@ftpRoZNpZx~X(49R{a;hXPMz^h4AiOCfch7rr(QRv?*E!9cIy8e4|S?Fp#Cq> zQ-92uIvTiN@9&`1|0_C;!Ro2j=YP(C`rlCfW%o55wEBOKhdR|7Q2&qUshj(n2@Ik` z(aaa)p-#01)c-Sj>gK*?U+1X*S3K0I)_^+iGa~jdPeG+wG=m1NhyQO#j@2{nlo);^ zgd6d=|ANr}KwRjUH?zVD{so~vw3Dcuy{yHv$lo8aN1y0=q_*M-{Vxciu6zS5{8h*k zXtJGMX#axH<(`_4K@hs3FGT(qEgYu9kc4R(LLBF!v(US6ae9!u!hb=C3WMwiWa!(d zau6TtOh3dN-n}{2jFchuDw_BwBE_3_806iHoOO8Qo-cUehup;KE);Z#_XX%GQr=W( YzYRqnAgc9hr-;01>ze%>aMEKf9>G-Jn+-t@GjmU|g>_sB~U%dPGwspFaM zad(eonLtbeA$DwVY+^)00B6I75S9>4J z69_;i5P(b|U`Q8$OdtT6Kmam<;f;Py6+60}B=mL-l1RxU#*yU!pjy{qD zJ43mVP;Qr=8ypJdhC{j0P;N}H^cH5fo*C6MV_ZL{ePnh3+98URs@B>i=l-^~zJ8I< zI|yFVsggSx>QJV9)R`W*1XRC}Uh`hR>LQ;Q*cp%m0XZ0uLrUJDqJpwvRW_oiU5eVR zs8L0Yk(w;m{qYH@jZgCI-sRb;*rj_Zlg_7=tlJ13)?u8n=7@`a1YOUdJ zq=9Y7FSEHcHgABh3pXaf8q>hg!h+!iy$vqN4=usfyQxc&FY|=DImjtJ?=;1 z0(@>l+Kfb<;~H{FsirX(Yc#ivU;h0X{R0|JTkP{( zuF+R$^pzU@gBpF6M!!L$e@LT$SfhVLqkmMR->A`7YqX`&*J$*$8hxEcU$4>p6HzVyt8qnxLjULkIVT~Tq=v^AUTcbxcdQ78l*63R_ z`YjrLE9kc(?LpeB(Y8j9YjjehCp0>x(fc%dzeXR>=rrhqNVg$nG&-x%IgQS1^rS`~ z(rE40;s3 zi_ah0dfSc{GB4h^?eNxI{|h^|ezUpbrsrRu%e|QHJ=h!=d~ol3zr5+O|4qFAb6=ac zUby1n*A<=^`s&~lPkrOlmp}68#oIGGE^a?;KQMF27ZX>Vd9siF{TCAVWu;X*J?n7i zOdKt@YL)&8r&T*%cbffKr(O0PD_WK|_~elE3q2#vonNlkX3Fhaqdqa$lur)6+ANlJVwyYt1Rk$okOEab}6TH<3nRZcuJl}i=bujgZUjt$Yy+J%x^CtgNjTyt%* z=~N+^&$!i|x8(UZY2-2Oaeh^j4g;s)qmWK&o{E4_cp&RDiJxHGGH%RIKuowbrvcCM5!TG>>ofDdFR z3K&t*Thoj!!~|A5XBDTcQodwo(i8T?9&QG06$WV>v-X|nk3Cu0LF-NkW&gG{jGh

0VWVy#_;swA^65sihA>zZSo~VbE{@ln>U;qaBlvoX($>IRGP+>I|f@^ZCG4D z)HT~RXx1Ecw2t*$&gbxN2KvzNGS<&$@eV}lqg=i4rh(ROKekEHEp-ju5a(F54@_Yj zyXCHt6Yjh6g@RY=+BVsEsbVr;m`vw$F28HNWEU3f@$q!YE%t6Sc#stBtlOu5??BwM z^H1G3SF4vTXmqlCZ2lP<#Ly+gC?l0@nOwDYxkX06+jQCvd@3N-Zm`MNa%lP26XKcq z84nkpPyRIphkLBitT+>mx*WDAYV|e?`6;IvGqw8cT-$e%N~t?a6fs+FwNAlx;3QAs zhK+kqzsMM3MIJ_$%>H!>0nbfk$5Vx(+JiFhY<^-YledQYm9Fh3uNZ)Vo!5apcQ#d5 z+q78|qgMB97;F@DPi%p@Y-9MCwdX$w({#yew;r&ICEFSpu_OLk!*1u=uD9`UN76$`6JP(A8ZLp4~Bl9!ObRCsM`9DL4@mDJuil z!DICFVvPQQufYSsh0ACF!vLc>?km}7V#TQv$Dtn3BpAj@Z5p_orjcw|(rg6+XN9(Z0|(pGy1 zFt9Q-y9L*I7og$5fLeIDn{pTadeoddJK1R7H#h%`n2wqQ^ITr)_>zU^MI^hL!tm{6 zdj1J-pJK6D#gk#OkV>X;-jCY{^PV-p-A;O7F-ik zNxBjA26L%os+cb2^*JuQmXtZlg`RjX`bHUaXPKP;ELN?>1E+~&XPHA01SENu zQ;wj9N*q`7&%oJkgeJP+j#X{z-8Vw!xwG2QTEXJM!n4T&g3{ZvOW*34kix6}fWCC0aZzdQJ z?e->`cz5W$ijtwz{SRhj`Nf>kHAok7I@cnJBzKPI&!4}}FTrPGGu4R=5;q|A_Q>4( zK&qk0;GRQ?AiyrwOauxtzX|DL!Go|VJk(6pbX+`S;uIMG!*;?>Lh5&6)YA9=V0daY zN)p(*56o6{s)n)*Fr0t@L*@V&!W0IEjA}Z|0&_QD5MUmM5(_Y!ePF%-LXAdAg49L8 zY(tr7%ytll8Urm3YYcblmK}I#8gmn}{VeBxcry~#>>hh3O9t>zqZG^tj3^UFBg#Z5 z29cz>fJcD=cx=H-%ihE=xp=ZEEO)VFHy)!%qVh_Q##nVT9=DKq3myt34R7wrB@~ey zg7>#T$hav$%|uB;q1czi=37CzJCv84g7+Q}ap1idawFrt56rd^sjCyF#ErEIxExLsI1iFd=b&54WJq7j-qy7*?nxRge>JsYv z(NzqnQ>+2%2f*H8)ISfAW~ispqD!bBL{~AOPO%24-v;&$qfT>fhI$4qx`cWbUB!Sp z#TuZV1AB*2KL}sN4E22XP@jwkb&54W{ZQvozseZ(LibSTx27@ZI>j2GUg|vR?=nUm zV_4)v#vbKOp;P6~t`^LYIY6}!Ipu&WcUw7UnsfaeI0HA2RzTSQ+lNR6Gp|938jX^K z){BCf*q!Uc=rjh!q}TvL0=i;Ib2}J1V}u!#3Fpbi#2q=`L*yaWA3 zMx8-{1T!mykQ8Wu_nly0E8fe5kPK@D?^i%X3L%qV?2@Z-7rKg!ck~dFVhvDdyth`= z!y%;7@&_PNP>-zTT?}U49uMjiYk>MYI*u7-bAb zm|_D6??G-wSK}xcI%9+t>I~e?jBs#!8oR4e!QdjJ9>vw5Km)w#F02*r??hL_F~K{! zt3j~_s2^Jg>S0$yY5DySX{P0zU6&lZj2GJ`MH`>-u?!G}Co7@Ep9r*2M1M&7jlB z4j!2URQr%y%UzN(!e4>wDiA3Lk1?nk&8vHtRL4+aP)v#qAS9qGI(Q8*bXYO@b-kcY zus7OW(k#Xl8TBX*9t9fUeIMA@ig#oOkK7|=CzH#TuZ_d$-P@t}OaX5Gl6hSrCzI zOBWryIgBX=)G7AWMSVT4Mu7h|%tN%EH}i35{Yex2qu6!|43MWgvf^2K3Jh!2_pohO z`p!{`zAF!gc4sBq9=O)`gH!N64I;q%0l)aiK)egdJqawo_#zP3AT9Nd=py6u<6tys z4@J5TEqXW!{@eT$co?)_)V~P15zmFM9ljf7%k0GmQKb+R8$$5qJ0l`>B~niv4-PVT z?T`Y)y6}@I>0MbP-UAj_BXAii$HqRuJ4V4b<8ccKzB{NqQ7(LMkF0oDBY1d-fGxQeXfcpj2G{sFLe7>ldB5D)4UYk>Nh&ZFKmM*SBR>K_Ir{`yBi+<@f$9Q2n!E;bAwC4>B#u_b=u z$8h(TktDMI6%g|4+FxbKQ+PBAw%=t-lwRmxM zqI8L6VeBT@ZwIjq_7oV#e#MycQ(zxOk_9$IJ$(70@K%X>K8s6aZzVi$$_j20& zYv5fB*jlyuX-Hd5o7rQ4XdiM$+6;a}TvycQyC6@rIdViF*yY%@`56pu@#3sQn<+4i z{fgTB>tJ`a8H6F~%V;x=P#Evkv^lWIv(3MBVWAgFErPbd;#=rTy(FQG(@MoB_p z_pkCkjZQnNh!hxrM<`cR#NPx%XB3h8ryOxjkI$gL$awDq zvyHU+RUX9}p#EE652Ic|$r#e=H~Ei%E6{RW>?v-o;>MJ|5I5 z)&TWC={)M(ZDzXO#bD-7<3XKb4Nz}&9`$b zGhpw`X{tiV^#n7FCtPnP_F(3DbfvW_dkK>a%-nE5M=IR?}z)&TXt278B5-_XI#SK>jPVhvFLo6e)Yp@W&1 z;z6Ba4N(7T=TYC#!OYjm6~c{}#jPl3V?E z=t?=VtGU%=4p3dUTm5A326n6e9&?TCa71ydDKG$!P_F1!{{tApD*4^*R)50;@91td z#TuagkBdJ)2$ z`ZvKIw(IM*FdN#f{m6~cF&ghBoLfO{Vs^_m zJT4%y9S``UUaf>b)OGkEaw>`lUx%Yc|I=$9Mpl6R2#6byyx-J)3*=&$K1zl) z{HE?{w3Bys*vpkjJ)AU08T_V>J%(}o7)m1lrVhLUMszg!X6(n=h4%knDome6MHo}+ P!b+H;+S6uIiNyZ{4PTSI diff --git a/B4A/Files/encuesta.bal b/B4A/Files/encuesta.bal index 383b034271428af060648fa0de74b638a834bb11..b51d061d7c29a1a354128219713e584f75c852d3 100644 GIT binary patch delta 188 zcmaE}hVjK3Mpjk^1_qUlthtQrEI?L4eD376jM9^f7;Pq>U{v4yld+VkUJfWB55x*U z3}Y)Iv6X;qX&{yXVr3+@3KCltiLHjjR!3rM0NI*AtOdl{2=?Z;Eal7`P}do5&g1y! F3jnPh7OemP delta 158 zcmaE{hVjiBMpjk^1_rf_thtPnr!d+~u40s$e1TD&(RA}W#yX}{X`rMG5X%8Ej4cmj vD*&+~5Gx_Em66ygNNiOkwi*&!9md{#k!2z?7aNcpkeHX6W4bwux5Fk__TN%*e3$zQA510Iz-#JOBUy delta 73 zcmbQy&N!!?k(HH!f#Kvv)`g5*Y(Q2(VqR*F;pBCU%G^e9zUk&WjGC+ndDG3j>_<2! N&s7xK{8(VC5dfw&6XgH^ diff --git a/B4A/Files/esncuesta_m2.bal b/B4A/Files/esncuesta_m2.bal index cb95ca90515031067814203a12829c4cb3aef97a..f222718d25ff76c148bf889b7b5ad256e958dd8b 100644 GIT binary patch delta 397 zcmccci1FzoMpjk^28Nv*Sw)#RSb(g8_*|pODoo0ZhLi1>)Hmldg|IT7-F$@I6d}Et znX8?J$;Wka4_~&u4N%Xa{m!9>8~s8YgB1c?gM$72fQ*nJM<+)wM?VEuKZW2>1wU7J ze`imB1!sStGCvo81xJO@;1E}r%?kVvSSQDddfIXT4N5JEFE9l<0LC@~vYCM5hQ@3_ z(kC$~HOJfp)xr=@S3eiW$$Fy7o0o~6Wn^UBTq4fxJh{_WVe|Ybe! delta 450 zcmaF*i1ETBMpjk^28P`mSw)$+*nq5n#JtoT!^uia%9H(>2LQ;vcNw>KowW>gWPw zg?PI9xhe#QD)_m&`#XF3+e=M$V}}@6U^wT%W_o$Te9jzl=)`Xo)xwGya;qD&LUNd2)bj7US{B zg7P|(8u%sJTX~O&U!L`G9N3uU D13h;U diff --git a/B4A/Files/login.bal b/B4A/Files/login.bal index 456515e0ec242286ab7663bb997de45e8f85c900..7d2081dbb51d91de3e48eda75de5494788d32189 100644 GIT binary patch delta 981 zcmcZ>w>g}bm4Sg_AqxWo7m!w-$Q!z`h@EkA8)H19*yLx7{(&H2ZXo6XVi=njiOmOO z^8>K}5DOx)g^<|7NNkbGeN58657dtP2Z1(Go2Q!3f|!(4b9t6HU0lV^%HK30`$o?3 zl7h|BW!pEtJ^B6P(i#zUvn$P>u@Mo^e*dp;OSLmEr(Slc9BET=s^5FdDoNJj)HQZyP7H;&PsJ5meZABZi)trT2bDuN!T)t?=5qfVyX-dib zda=#+HA1YbGUfYk|GD2{ubalX{l%NV0j4{hPct?@mfyFcyeY;0puME4-mC4(SCTsY zWIiv>J8|b8zowtA|EJM=G*h4M=oa+&vX;Fzil+1<^I)! z)9W&r7#JEipJ0h%v*82=RZ@IWYIDL57sOjhD9nS7sHY_kYYnaE}jbwx(Tg2@ZC0w(`ekdU(iDraS|29lhG zKmwE$I6-N{7Q`r;{6WKW@*fFK;T&L;Ndbizqkse`B{14d4iu5!Y^Scx$XE6VeWvqE)=1?|ftpqZwCOat02v-1EpmfU!QUOZ- zoRyRFl^Z5&%B-LKR=tL?8tnRN!mh7@yM8-X*L!i*0!;_Ip>A@&qzq#{(2-J;4~Pm) b&d^f<@_O}57#k+*NSRI+kQ15At?vy0-^T*s delta 1267 zcma)*Ye; zf*6MBn#3?Xe8wCVtO^Z5W3$+|Ivp;z)zzNQ5&?@Pr^V)QJGK>;f}L2140=iSnn0}M zQSK}spY*5zHSRF1SxUghW2=ryP) z)C|=4KaC!*Lw|s`R!A5|bto8X^d8l@_cH?%MXRrkuIxLbPmg=<!y|-^)*VPk8Ks9J+HBJs-n7zKUlh#g#MSS<-iJ8-o*eq6OF`c$K zds!Nttf|0VW-YN-SY2w9(@8U8v$zU36_#3Ew52NwH@T>Xi+s8I_fVPBXhJf6MNDl@ zi-iZQ!uOiLMgkSmCBzBcQayBNWH2|z0VPp9_$rGAQMe4|N5qirur6EhQv-sVrL++Gm+R?NbGDRb`BCd7s0M)$U|@#@{!mDNbEu+b`cW07|1RG z;!+?kLt>W$*)R`O0NF5)RRY;C4_5)%A`Hw745E|Gx#bn>fZTc@ZUADKl13mKrnPBv kGj|aaqvqysypQ-dzmxqwZ*rb3*JOdYY?BlAaR5UQ0KAwnfdBvi delta 466 zcmccclj;2*CSFzs28Or13=CXAx@99TD>E-Akd+f(mReMtnV+{=h*_SQv2e2y+jr)A z5ul7H5GMgKBM>tIaWW7~0N`E7$;9?Gy!rl7s^bQ-y<|x-iwPlH#c`ullbI+tJEgXQx=;1X`|3& Q) "" Then LongitudRU = c.GetString("CAT_CL_LONG") CODIGO=c.GetString("CAT_CL_CODIGO") Tienda= c.GetString("CAT_CL_NOMBRE") - MARK_AZUL = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO, gmap.HUE_BLUE) + MARK_AZUL = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_BLUE) MARK_AZUL.Snippet = Tienda Next End If @@ -162,7 +162,7 @@ Sub MapFragment1_Ready LatitudRu = c2.GetString("CAT_CL_LAT") CODIGO=c2.GetString("CAT_CL_CODIGO") Tienda= c2.GetString("CAT_CL_NOMBRE") - MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO,gmap.HUE_GREEN) + MARK_VERDE = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_GREEN) MARK_VERDE.Snippet = Tienda Next Else @@ -263,6 +263,7 @@ Sub GPS_LocationChanged (Parametro As Location) End Sub Sub Activity_Resume + If GPS.GPSEnabled = False Then ToastMessageShow("Debe Activar el GPS del Equipo.", True) StartActivity(GPS.LocationSettingsIntent) diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 25c6b8b..e6a156e 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -20,6 +20,7 @@ Sub Process_Globals Dim rutaHrsAtras As Int = 48 ' Dim rutaInicioHoy As String = "" Private subsLogs As Boolean = False + Dim skmt As SQL End Sub 'Pone el valor de phn.Model en la variable global "devModel" @@ -848,23 +849,13 @@ Sub traeMaxPromos(pm As Map) As Int Private vendidas As Int = 0 maxPromos.Initialize ' If Starter.promosLog Then Log("==== HISTORICO:"&pm.Get("historico")) - If thisLog Then Log("TRAEMAXPROMOS PM: " & pm) - If pm.Get("historico") = "1" Then maxPromos.Add(pm.Get("maxRecurrente").As(Int)) 'Si hay historico, agregamos maxRecurrente - maxPromos.Add(pm.Get("maxPromos").As(Int)) 'Agregamos maxPromos - maxPromos.Add(pm.Get("maxXcliente").As(Int)) 'Agregamos maxXcliente - - - Private pr As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select PR_CANT from PROMOXRUTA where PR_PROMOID = '${pm.Get("id")}'"$) - If pr.RowCount > 0 Then - pr.Position = 0 - maxPromos.Add(pr.GetString("PR_CANT").As(Int)) 'Agregamos maxXruta - End If - -' maxPromos.Add(2) - If thisLog Then Log("maxpromos -> " & maxPromos) + If thisLog Then Log(pm) + If pm.Get("historico") = "1" Then maxPromos.Add(pm.Get("maxRecurrente")) 'Si hay historico, agregamos maxRecurrente + maxPromos.Add(pm.Get("maxPromos")) 'Agregamos maxPromos + maxPromos.Add(pm.Get("maxXcliente")) 'Agregamos maxXcliente + If thisLog Then Log(maxPromos) maxPromos.Sort(True) - Log("MAXP -> " & maxPromos) - Log("=========== " & maxPromos.Get(0)) + ' Log($"|${pm.Get("id").As(String).trim}|${traeCliente.Trim}|"$) Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery2("select sum(PE_CANT) as vendidas from PEDIDO where PE_PROID = ? and PE_CLIENTE = ? ", Array As String(pm.Get("id").As(String).trim, traeCliente.Trim)) If c.RowCount > 0 Then @@ -872,7 +863,7 @@ Sub traeMaxPromos(pm As Map) As Int vendidas = c.GetInt("vendidas") ' Log(vendidas) End If - + ' If Starter.promosLog Then Log(maxPromos) ' If Starter.promosLog Then Log("Max Promos="&maxPromos.Get(0)) ' LogColor($"maxPromos=${maxPromos.Get(0)} - vendidas=${vendidas}"$, Colors.red) @@ -1107,27 +1098,20 @@ Sub traePromoIdDeBD As Map 'ignore Return m End Sub -'Guarda el nombre y version de la app en CAT_VARIABLES. -Sub guardaAppInfo(skmt As SQL) 'ignore - skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_NAME' or CAT_VA_DESCRIPCION = 'APP_VERSION'") - skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '${Application.LabelName}')"$) - skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$) -End Sub - -'Actualiza la tabla PROMOXRUTA con la cantidad especificada. -Sub guardaPromoXruta(laPromo As String, laCant As Int) 'ignore - - B4XPages.MainPage.skmt.ExecNonQuery($"update PROMOXRUTA set PR_CANT = PR_CANT - ${laCant} where PR_PROMOID = '${laPromo}'"$) - Log($"${laPromo} - ${laCant}"$) - -End Sub - -'Muestra en el Log los campos y valores que regresan en el JobDone. -Sub logJobDoneResultados(resultado As DBResult) 'ignore - For Each records() As Object In resultado.Rows - LogColor($"====== ${resultado.Tag} - REGISTROS = ${resultado.Rows.Size}"$, Colors.RGB(215,37,0)) - For Each k As String In resultado.Columns.Keys - LogColor(k & " = " & records(resultado.Columns.Get(k)), Colors.RGB(215,37,0)) - Next - Next +Sub agregaColumna(tabla As String, columna As String, tipo As String) 'ignore + Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna en la tabla + Private c As Cursor = skmt.ExecQuery($"SELECT COUNT(*) AS fCol FROM pragma_table_info('${tabla}') WHERE name='${columna}'"$) + c.Position = 0 + If c.GetString("fCol") = 0 Then 'Si no esta la columna la agregamos + skmt.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$) + Log($"Columna "${columna} ${tipo}", agregada a "${tabla}"."$) + End If + Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch + Try + skmt.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$) + Log($"Columna "${columna} ${tipo}", agregada a "${tabla}".."$) + Catch + Log(LastException) + End Try + End Try End Sub \ No newline at end of file diff --git a/B4A/kms_helperSubs.bas b/B4A/kms_helperSubs.bas deleted file mode 100644 index e51694e..0000000 --- a/B4A/kms_helperSubs.bas +++ /dev/null @@ -1,664 +0,0 @@ -B4A=true -Group=Default Group -ModulesStructureVersion=1 -Type=Class -Version=12.2 -@EndOfDesignText@ -Sub Class_Globals - Private Root As B4XView 'ignore - Private xui As XUI 'ignore - Dim skmt, rkmt As SQL - Private EventName As String 'ignore - Private CallBack As Object 'ignore - Dim rp As RuntimePermissions - Dim safePath As String - Dim fechaHoy As String - Dim fechaAnt As String - Dim skmtAttached As Boolean = False - Dim rkmtAttached As Boolean = False - '####### MES Vars ###### - Private ion As Object -' Dim device As Phone -' Private mesCallback As Object -' Private mesEventName As String - Dim RD_Init_IsInitialized As Boolean = False - Dim btAdmin As BluetoothAdmin -End Sub - -'Inicializa la clase "kms_helperSubs". -Public Sub Initialize (vCallback As Object, vEventName As String) As Object - EventName = vEventName - CallBack = vCallback - Return Me -End Sub - -'This event will be called once, before the page becomes visible. -'Private Sub B4XPage_Created (Root1 As B4XView) -' Root = Root1 -' 'load the layout to Root -'End Sub - -'RD - Inicializa Respaldo Diario -Sub RD_Init - Dim Dirp As String = File.DirRootExternal - Dim Dir As String -' Dim Dir2 As String - Try - File.MakeDir(Dirp,"/kmts") - Dir = "/kmts" -' Log("creado en kmts " & Dirp & Dir) - Catch - Dir = "" -' Log("creado en raiz") - End Try - safePath = Dirp & Dir - If Starter.Logger Then Log($"Safepath:${safePath}"$) - Private name() As String = Regex.split(" ", Application.LabelName) - rkmt.Initialize(safePath,$"${name(0)}.rkmt.km"$, True) - skmt.Initialize(File.DirInternal,"kmt.db", False) - If chkIfTableExists(skmt, "PEDIDO") Then rkmt.ExecNonQuery($"create table if not exists PEDIDO (${getTableColumnList(skmt, "PEDIDO")}, FECHA TEXT)"$) - If chkIfTableExists(skmt, "CAT_DETALLES_PAQ") Then rkmt.ExecNonQuery($"create table if not exists CAT_DETALLES_PAQ (${getTableColumnList(skmt, "CAT_DETALLES_PAQ")}, FECHA TEXT)"$) - If chkIfTableExists(skmt, "CAT_GUNAPROD") Then rkmt.ExecNonQuery($"create table if not exists CAT_GUNAPROD (${getTableColumnList(skmt, "CAT_GUNAPROD")}, FECHA TEXT)"$) - If chkIfTableExists(skmt, "CAT_GUNAPROD2") Then rkmt.ExecNonQuery($"create table if not exists CAT_GUNAPROD2 (${getTableColumnList(skmt, "CAT_GUNAPROD2")}, FECHA TEXT)"$) - If chkIfTableExists(skmt, "kmt_info") Then rkmt.ExecNonQuery($"create table if not exists kmt_info (${getTableColumnList(skmt, "kmt_info")}, FECHA TEXT)"$) - DateTime.DateFormat = "yyyyMMdd" - fechaHoy = DateTime.Date(DateTime.Now) - If Starter.Logger Then Log("RKMTS: " & rkmt.IsInitialized) - If revisaSkmtAttached And rkmt.IsInitialized Then RD_Init_IsInitialized = True Else RD_Init_IsInitialized = False -' revisaRkmtAttached -End Sub - -'RD - Revisa si esta montada "kmt.db" como "skmt1" y si no, la monta -'Para que "rkmt" vea a "skmt", es necesario montarla (attach). -Sub revisaSkmtAttached As Boolean - skmtAttached = False - Dim rs As ResultSet = rkmt.ExecQuery("SELECT * FROM pragma_database_list") - Do While rs.NextRow 'Revisamos si esta montada "kmt.db" como "skmt1" y si no, la montamos. - If rs.GetString("name") = "skmt1" Then skmtAttached = True - Loop - If Not(skmtAttached) Then - rkmt.ExecNonQuery($"attach database '${File.Combine(File.DirInternal, "kmt.db")}' as skmt1;"$) - skmtAttached = True - End If - Return skmtAttached -End Sub - -'RD - Revisa si esta montada "kmt.db" como "rkmt1" y si no, la monta -'Para que "skmt" vea a "rkmt", es necesario montarla (attach). -Sub revisaRkmtAttached As Boolean - rkmtAttached = False - Dim rs As ResultSet = skmt.ExecQuery("SELECT * FROM pragma_database_list") - Do While rs.NextRow 'Revisamos si esta montada "kmt.db" como "rkmt1" y si no, la montamos. - If rs.GetString("name") = "rkmt1" Then rkmtAttached = True - Log(rs.GetString("name")) - Loop - If Not(rkmtAttached) Then - - Private name() As String = Regex.split(" ", Application.LabelName) - skmt.ExecNonQuery($"attach database '${File.Combine(safePath,$"${name(0)}.rkmt.km"$)}' as rkmt1;"$) - rkmtAttached = True - End If - Return rkmtAttached -End Sub - -'Inicializa la BD con "kmt.db" en "File.DirInternal", si el archivo no existe, lo copia desde "File.DirAssets". -'Ej: dim skmt as sql = dbInit -Sub dbInit As SQL 'ignore - Private db As SQL - If File.Exists(File.DirInternal, "kmt.db") = False Then File.Copy(File.DirAssets, "kmt.db", File.DirInternal, "kmt.db") - db.Initialize(File.DirInternal,"kmt.db", True) -' dbOk(True) -' Log(db.IsInitialized) - Return db -End Sub - -'RD - Copia la tabla PEDIDO a rkmt.db en la tarjeta del celular. -Sub RD_respalda_pedido - Private inicio As String = DateTime.Now -' Log("Copiando PEDIDO ...") - Private x As Cursor = skmt.ExecQuery("select * from PEDIDO") - If x.RowCount > 0 Then - Private lasCols As String = getTableColumnListName(skmt, "PEDIDO") - rkmt.BeginTransaction - rkmt.ExecNonQuery($"delete from PEDIDO where FECHA = '${fechaHoy}'"$) - rkmt.ExecNonQuery($"insert into PEDIDO (${lasCols}, FECHA) select ${lasCols}, '${fechaHoy}' as FECHA from skmt1.PEDIDO where substr(pe_fecha, 1, 10) = '${fechaHoy}'"$) - rkmt.TransactionSuccessful 'Si no se pone TransactionSuccessful no se escribe NADA!! - rkmt.EndTransaction - End If - x.Close - Log("P: " & ((DateTime.Now - inicio)/1000) & " segs") -End Sub - -'RD - Copia la tabla CAT_GUNAPRODS a rkmt.db en la tarjeta del celular. -Sub RD_respalda_cat_gunaprod - Private inicio As String = DateTime.Now -' Log("Copiando CAT_GUNAPROD ...") - Private x As Cursor = skmt.ExecQuery("select * from CAT_GUNAPROD") - If x.RowCount > 0 Then - Private lasCols As String = getTableColumnListName(skmt, "CAT_GUNAPROD") - lasCols = lasCols.Replace(", CAT_GP_IMG", "") 'Quitamos la imagen del respaldo. - rkmt.BeginTransaction - rkmt.ExecNonQuery($"delete from CAT_GUNAPROD where FECHA = '${fechaHoy}'"$) - rkmt.ExecNonQuery($"insert into CAT_GUNAPROD (${lasCols}, FECHA) select ${lasCols}, '${fechaHoy}' as FECHA from skmt1.CAT_GUNAPROD"$) - rkmt.TransactionSuccessful 'Si no se pone TransactionSuccessful no se escribe NADA!! - rkmt.EndTransaction - End If - x.Close - Log("GP: " & ((DateTime.Now - inicio)/1000) & " segs") -End Sub - -'RD - Copia la tabla CAT_GUNAPROD de rkmt.db al celular. -Sub RD_restaura_cat_gunaprod - Private inicio As String = DateTime.Now -' Log("Restaurando CAT_GUNAPROD ...") - Private lasCols As String = getTableColumnListName(rkmt, "CAT_GUNAPROD") - lasCols = lasCols.Replace(", FECHA", "") 'Quitamos la imagen del respaldo. - Private c As Cursor = rkmt.ExecQuery($"select distinct fecha from CAT_GUNAPROD order by fecha desc"$) 'where fecha <> '${fechaHoy}' 'Traemos la ultima fecha antes de hoy. - Log(c.RowCount) - If c.RowCount > 0 Then - c.Position = 0 - Log(c.GetString("FECHA")) - skmt.ExecNonQuery("delete from CAT_GUNAPROD") - skmt.ExecNonQuery($"insert into CAT_GUNAPROD (${lasCols}) select ${lasCols} from rkmt1.CAT_GUNAPROD where fecha = '${c.GetString("FECHA")}'"$) - Log($"insert into CAT_GUNAPROD (${lasCols}) select ${lasCols} from rkmt1.CAT_GUNAPROD where fecha = '${c.GetString("FECHA")}'"$) - End If - Log("R-GP: " & ((DateTime.Now - inicio)/1000) & " segs") -End Sub - -'RD - Copia la tabla CAT_GUNAPROD2 a rkmt.db en la tarjeta del celular. -Sub RD_respalda_cat_gunaprod2 - Private inicio As String = DateTime.Now -' Log("Copiando CAT_GUNAPROD2 ...") - Private x As Cursor = skmt.ExecQuery("select * from CAT_GUNAPROD2") - If x.RowCount > 0 Then - Private lasCols As String = getTableColumnListName(skmt, "CAT_GUNAPROD2") - lasCols = lasCols.Replace(", CAT_GP_IMG", "") 'Quitamos la fecha del respaldo. - rkmt.BeginTransaction - rkmt.ExecNonQuery($"delete from CAT_GUNAPROD2 where FECHA = '${fechaHoy}'"$) - rkmt.ExecNonQuery($"insert into CAT_GUNAPROD2 (${lasCols}, FECHA) select ${lasCols}, '${fechaHoy}' as FECHA from skmt1.CAT_GUNAPROD2"$) - rkmt.TransactionSuccessful 'Si no se pone TransactionSuccessful no se escribe NADA!! - rkmt.EndTransaction - End If - x.Close - Log("GP2: " & ((DateTime.Now - inicio)/1000) & " segs") -End Sub - -'RD - Copia la tabla CAT_GUNAPROD2 de rkmt.db al celular. -Sub RD_restaura_cat_gunaprod2 - Private inicio As String = DateTime.Now -' Log("Restaurando CAT_GUNAPROD2 ...") - Private lasCols As String = getTableColumnListName(rkmt, "CAT_GUNAPROD2") - lasCols = lasCols.Replace(", FECHA", "") 'Quitamos la fecha del respaldo. - Private c As Cursor = rkmt.ExecQuery($"select distinct fecha from CAT_GUNAPROD2 order by fecha desc"$) 'where fecha <> '${fechaHoy}' 'Traemos la ultima fecha antes de hoy. -' Log(c.RowCount) - If c.RowCount > 0 Then - c.Position = 0 -' Log(c.GetString("FECHA")) - skmt.ExecNonQuery("delete from CAT_GUNAPROD2") - skmt.ExecNonQuery($"insert into CAT_GUNAPROD2 (${lasCols}) select ${lasCols} from rkmt1.CAT_GUNAPROD2 where fecha = '${c.GetString("FECHA")}'"$) - Log($"insert into CAT_GUNAPROD2 (${lasCols}) select ${lasCols} from rkmt1.CAT_GUNAPROD2 where fecha = '${c.GetString("FECHA")}'"$) - End If - Log("R-GP2: " & ((DateTime.Now - inicio)/1000) & " segs") -End Sub - -'RD - Copia la tabla CAT_DETALLE_PAQ a rkmt.db en la tarjeta del celular. -Sub RD_respalda_cat_detalle_paq - Private inicio As String = DateTime.Now -' Log("Copiando CAT_DETALLES_PAQ ...") - Private x As Cursor = skmt.ExecQuery("select * from CAT_DETALLES_PAQ") - If x.RowCount > 0 Then - Private lasCols As String = getTableColumnListName(skmt, "CAT_DETALLES_PAQ") - rkmt.BeginTransaction - rkmt.ExecNonQuery($"delete from CAT_DETALLES_PAQ where fecha = '${fechaHoy}'"$) - rkmt.ExecNonQuery($"insert into CAT_DETALLES_PAQ (${lasCols}, FECHA) select ${lasCols}, '${fechaHoy}' as FECHA from skmt1.CAT_DETALLES_PAQ"$) - rkmt.TransactionSuccessful 'Si no se pone TransactionSuccessful no se escribe NADA!! - rkmt.EndTransaction - Log("DP: " & ((DateTime.Now - inicio)/1000) & " segs") - End If - x.Close -End Sub - -'RD - Copia la tabla CAT_DETALLES_PAQ de rkmt.db al celular. -Sub RD_restaura_cat_detalle_paq - Private inicio As String = DateTime.Now -' Log("Restaurando CAT_DETALLES_PAQ ...") - Private lasCols As String = getTableColumnListName(rkmt, "CAT_DETALLES_PAQ") - lasCols = lasCols.Replace(", FECHA", "") 'Quitamos la fecha del respaldo. - Private c As Cursor = rkmt.ExecQuery($"select distinct fecha from CAT_DETALLES_PAQ order by fecha desc"$) 'where fecha <> '${fechaHoy}' 'Traemos la ultima fecha antes de hoy. -' Log(c.RowCount) - If c.RowCount > 0 Then - c.Position = 0 -' Log(c.GetString("FECHA")) - skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") - skmt.ExecNonQuery($"insert into CAT_DETALLES_PAQ (${lasCols}) select ${lasCols} from rkmt1.CAT_DETALLES_PAQ where fecha = '${c.GetString("FECHA")}'"$) - Log($"insert into CAT_DETALLES_PAQ (${lasCols}) select ${lasCols} from rkmt1.CAT_DETALLES_PAQ where fecha = '${c.GetString("FECHA")}'"$) - End If - Log("R-DP: " & ((DateTime.Now - inicio)/1000) & " segs") -End Sub - -'RD - Copia la tabla kmt_info a rkmt.db en la tarjeta del celular. -Sub RD_respalda_kmt_info - Private inicio As String = DateTime.Now -' Log("Copiando kmt_info ...") - Private x As Cursor = skmt.ExecQuery("select * from kmt_info") - If x.RowCount > 0 Then - Private lasCols As String = getTableColumnListName(skmt, "kmt_info") - rkmt.BeginTransaction - rkmt.ExecNonQuery($"delete from kmt_info where fecha = '${fechaHoy}'"$) - rkmt.ExecNonQuery($"insert into kmt_info (${lasCols}, FECHA) select ${lasCols}, '${fechaHoy}' as FECHA from skmt1.kmt_info"$) - rkmt.TransactionSuccessful 'Si no se pone TransactionSuccessful no se escribe NADA!! - rkmt.EndTransaction - End If - x.Close - Log("KMT: " & ((DateTime.Now - inicio)/1000) & " segs") -End Sub - -'RD - Copia la tabla kmt_info de rkmt.db al celular. -Sub RD_restaura_kmt_info - Private inicio As String = DateTime.Now -' Log("Restaurando KMT_INFO ...") - Private lasCols As String = getTableColumnListName(rkmt, "kmt_info") - lasCols = lasCols.Replace(", FECHA", "") 'Quitamos la fecha del respaldo. - Private c As Cursor = rkmt.ExecQuery($"select distinct fecha from kmt_info order by fecha desc"$) 'where fecha <> '${fechaHoy}' 'Traemos la ultima fecha antes de hoy. -' Log(c.RowCount) - If c.RowCount > 0 Then - c.Position = 0 -' Log(c.GetString("FECHA")) - skmt.ExecNonQuery("delete from kmt_info") - skmt.ExecNonQuery($"insert into kmt_info (${lasCols}) select ${lasCols} from rkmt1.kmt_info where fecha = '${c.GetString("FECHA")}'"$) - Log($"insert into kmt_info (${lasCols}) select ${lasCols} from rkmt1.kmt_info where fecha = '${c.GetString("FECHA")}'"$) - End If - Log("R-KMT: " & ((DateTime.Now - inicio)/1000) & " segs") -End Sub - -'RD - Realiza un "vacuum" de la base de datos "rkmt". -Sub RD_vacuum 'ignore - Log("Vacuum") - rkmt.ExecNonQuery("vacuum;") -End Sub - -'Agrega una columna a la tabla especificada. -'Hay que indicar el "tipo" de la columna (TEXT, INTEGER, ETC) -'Ej. agregaColumna(DB, "TABLA", "COLUMNA", "TIPO") -Sub agregaColumna(db As SQL, tabla As String, columna As String, tipo As String) 'ignore - Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna en la tabla - Private c As Cursor = db.ExecQuery($"SELECT COUNT(*) AS fCol FROM pragma_table_info('${tabla}') WHERE name='${columna}'"$) - c.Position = 0 - If c.GetString("fCol") = 0 Then 'Si no esta la columna la agregamos - db.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$) - Log($"Columna "${columna} ${tipo}", agregada a "${tabla}"."$) - End If - Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch - Try - db.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$) - Log($"Columna "${columna} ${tipo}", agregada a "${tabla}".."$) - Catch - Log(LastException) - End Try - End Try -End Sub - -'Regresa los nombres y tipos de las columnas de una tabla dada. -Sub getTableColumnList(db As SQL, table As String) As String 'ignore - Private l As String = "" - If chkIfTableExists(db, table) Then - Private c As Cursor = skmt.ExecQuery($"pragma table_info(${table})"$) - If c.RowCount > 0 Then - For i = 0 To c.RowCount - 1 - c.Position = i - If l.Length = 0 Then - l = $"${c.GetString("name")} ${c.GetString("type")}"$ - Else - l = $"${l}, ${c.GetString("name")} ${c.GetString("type")}"$ - End If - Next - End If - Else - Return "No existe la tabla." - End If - c.Close - Return l -End Sub - -'Regresa solo los nombres de las columnas de una tabla dada. -Sub getTableColumnListName(db As SQL, table As String) As String 'ignore - Private l As String = "" - If chkIfTableExists(db, table) Then - Private c As Cursor = skmt.ExecQuery($"pragma table_info(${table})"$) - If c.RowCount > 0 Then - For i = 0 To c.RowCount - 1 - c.Position = i - If l.Length = 0 Then - l = $"${c.GetString("name")}"$ - Else - l = $"${l}, ${c.GetString("name")}"$ - End If - Next - End If - Else - Return "No existe la tabla." - End If - c.Close - Return l -End Sub - -'Revisa si una tabla dada existe en una base de datos dada, regresa true o false. -Sub chkIfTableExists(db As SQL, table As String) As Boolean 'ignore - Private t As Boolean = False 'ignore - If db.IsInitialized Then - Private c As Cursor = skmt.ExecQuery($"SELECT name FROM sqlite_master WHERE type='table' AND name='${table}'"$) - If c.RowCount > 0 Then t = True - c.Close - End If - Return t -End Sub - -'Hace visible y trae al frente el panel con los parametros "Top" y "Left" dados -Sub panelVisible(panel As Panel, top As Int, left As Int) 'ignore - panel.BringToFront - panel.Visible = True - panel.Top = top - panel.Left = left -End Sub - -'Centra una etiqueta dentro de un elemento superior -Sub centraEtiqueta(elemento As Label, anchoElementoSuperior As Int) 'ignore - elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2) - etiquetaCentrada(True) -End Sub - -Sub etiquetaCentrada(Success As Boolean) - If SubExists(CallBack, EventName & "_etiquetaCentrada") Then - CallSub2(CallBack, EventName & "_etiquetaCentrada", Success) - End If -End Sub - -'Centra un panel horizontalmente dentro de un elemento superior -Sub centraPanel(elemento As Panel, anchoElementoSuperior As Int) 'ignore - elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2) -End Sub - -'Centra un panel verticalmente dentro de un elemento superior -Sub centraPanelV(elemento As Panel, altoElementoSuperior As Int) 'ignore - elemento.Top = Round(altoElementoSuperior/2)-(elemento.Height/2) -End Sub - -'Centra una barra de progreso dentro de un elemento superior -Sub centraProgressBar(elemento As ProgressBar, anchoElementoSuperior As Int) 'ignore - elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2) -End Sub - -'Regresa el usuario de la tabla USUARIOA, si no lo encuentra regresa "SinUsuario" -Sub traeUsuarioDeDB(db As SQL) As String 'ignore - Private c As Cursor - Private u As String = "SinUsuario" - c = skmt.ExecQuery("select USUARIO from usuarioa") - c.Position=0 - If c.RowCount > 0 Then u = c.GetString("USUARIO") - c.Close - Return u -End Sub - -'Regresa el almacen actual de la base de datos. -Sub traeAlmacen(db As SQL) As String 'ignore - Private c As Cursor - Private a As String - c = skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN") - c.Position = 0 - a = c.GetString("ID_ALMACEN") - c.Close - Return a -End Sub - -'Regresa el nombre del producto desde CAT_GUNAPROD. -Sub traeProdNombre(db As SQL, id As String) As String 'ignore - Private h As Cursor - Private n As String - h = skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(id.Trim)) - If h.RowCount > 0 Then - h.Position = 0 - n = h.GetString("CAT_GP_NOMBRE") -' Log(h.RowCount&"|"&id&"|"&n&"|") - End If - h.Close - If n = Null Or n="" Then n = "N/A" -' Log(h.RowCount&"|"&id&"|"&n&"|") - Return n -End Sub - -'Regresa la ruta actual de la base de datos. -Sub traeRuta(db As SQL) As String 'ignore - Private c As Cursor - Private r As String - c = skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") - r = "0" - If c.RowCount > 0 Then - c.Position=0 - r = c.GetString("CAT_CL_RUTA") - End If - c.Close - Return r -End Sub - -'Regresa el cliente actual de la base de dtos (CUENTAA). -Sub traeCliente(db As SQL) As String 'ignore - Private c As Cursor - Private cl As String - c = skmt.ExecQuery("Select CUENTA from cuentaa") - c.Position=0 - cl = c.GetString("CUENTA") - c.Close - Return cl -End Sub - -'Regresa en un mapa el total de productos y monto del pedido del cliente actual -'resultado = {"productos":"antidad_de_productos", "monto":"costo_total"} -Sub traeTotalesClienteActual(db As SQL) As Map 'ignore - Private m As Map - m.Initialize - Private c_prodsX As Cursor = skmt.ExecQuery("select ifnull(sum(PE_CANT), 0) as cantProds, ifnull(sum(PE_COSTO_TOT), 0) as costoTotal FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE asc") - c_prodsX.Position = 0 -' LogColor($"Productos de la orden: ${c_prodsX.GetString("cantProds")}, Total: ${c_prodsX.GetString("costoTotal")}"$, Colors.red) - m = CreateMap("productos": c_prodsX.GetString("cantProds"), "monto" : c_prodsX.GetString("costoTotal")) - Return m -End Sub - -'Borra el pedido del cliente actual. -'Borra los registros de la tabla "PEDIDO" y "PEDIDO_CLIENTE" -'Actualiza las tablas "cat_gunaprod" y "kmt_info". -Sub borraPedidoClienteActual(db As SQL) As String 'ignore - Private thisC As Cursor - thisC = skmt.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ") - If thisC.RowCount>0 Then - For i=0 To thisC.RowCount -1 - thisC.Position=i - skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(thisC.GetString("PE_CANT"),thisC.GetString("PE_PROID"))) - skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (traeAlmacen(db), thisC.GetString("PE_PROID"),thisC.GetString("PE_CANT")* -1)) - Next - End If - skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)") - skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)") - skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") - Return 1 -End Sub - -'Regresa verdadero si la columna gestion en la tabla "kmt_info" tene valor 2. -'si no, entonces regresa falso. -Sub pedidoGuardado(db As SQL) As Boolean 'ignore - Private guardado As Boolean = False - Private g As Cursor = skmt.ExecQuery("select gestion from kmt_info where CAT_CL_CODIGO in (Select CUENTA from cuentaa)") - If g.RowCount > 0 Then - g.Position=0 - If g.GetString("gestion") = "2" Then guardado = True - End If - Log($"Guardado=${guardado}"$) - Return guardado -End Sub - -'Regresa verdadero si hay pedido en la tabla "PEDIDO" del cliente actual. -Sub hayPedido(db As SQL) As Boolean 'ignore - Private thisC As Cursor = skmt.ExecQuery($"select count(PE_CLIENTE) as hayPedido from PEDIDO where PE_CLIENTE = '${traeCliente(db)}'"$) - thisC.Position = 0 - Private hay As Boolean = False - If thisC.GetInt("hayPedido") > 0 Then hay = True -' Log($"Cliente actual=${traeCliente}, hayPedido=${hay}"$) - Return hay -End Sub - -Sub string2date(fecha As String) - Log(fecha) - DateTime.DateFormat = "MM/dd/yyyy" - Dim t As Long = DateTime.DateTimeParse(fecha, "00:00:00") - DateTime.DateFormat = "yy/MM/dd" - Log($"${t} - ${Subs.fechaKMT(t)}"$) -End Sub - -'Guarda el nombre y version de la app en CAT_VARIABLES. -Sub guardaAppInfo(db As SQL) 'ignore - db.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_NAME' or CAT_VA_DESCRIPCION = 'APP_VERSION'") - db.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '${Application.LabelName}')"$) - db.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$) -End Sub - -'Muestra en el Log los campos y valores que regresan en el JobDone. -Sub logJobDoneResultados(resultado As DBResult) 'ignore - For Each records() As Object In resultado.Rows - LogColor($"====== ${resultado.Tag} - REGISTROS = ${resultado.Rows.Size}"$, Colors.RGB(215,37,0)) - For Each k As String In resultado.Columns.Keys - LogColor(k & " = " & records(resultado.Columns.Get(k)), Colors.RGB(215,37,0)) - Next - Next -End Sub - -'Revisa si la aplicación tiene permiso para acceder a las notificaciones. -Sub CheckNotificationAccess As Boolean - Dim ph As Phone - Dim nstr, pstr As String - Dim r As Reflector - pstr = r.GetStaticField("anywheresoftware.b4a.BA", "packageName") - nstr = ph.GetSettings("enabled_notification_listeners") - Return nstr.Contains(pstr) -End Sub - -'################ Manage External Storage (MES) ######################### -' -''Inicializa "Manage External Storage" (MES), que nos da acceso a la tarjeta de memoria en Android 11+ -'Public Sub MES_Init (mCallBack As Object, mEventName As String) -' mesCallback = mCallBack -' mesEventName = mEventName -'End Sub -' -'Sub MES_checkPermission 'ignore -'' ' get the device SDK version -'' Dim SdkVersion As Int = device.SdkVersion -'' ' Choose which permission to request in order to access external storgage -'' If SdkVersion < 30 Then -''' Log("SDK = " & SdkVersion & " : Requesting WRITE_EXTERNAL_STORAGE permission") -'' Dim rp As RuntimePermissions -'' rp.CheckAndRequestPermission(rp.PERMISSION_WRITE_EXTERNAL_STORAGE) ' Implicit read capability if granted -'' Wait For Activity_PermissionResult (Permission As String, Result As Boolean) -''' Log($"PERMISSION_WRITE_EXTERNAL_STORAGE = ${Result}"$) -'' Else -''' Log("SDK = " & SdkVersion & " : Requesting MANAGE_EXTERNAL_STORAGE permission") -''' Log("On Entry MANAGE_EXTERNAL_STORAGE = " & MES1.HasPermission) -'' If Not(MES_HasPermission) Then -'' MsgboxAsync("This app requires access to all files, please enable the option", "Manage All Files") -'' Wait For Msgbox_Result(Res As Int) -''' Log("Getting permission") -'' MES_GetPermission -'' Wait For MES_StorageAvailable -'' End If -'' End If -'End Sub -' -'' Determine if the app already has MANAGE_EXTERNAL_STORAGE call Environment.isExternalStorageManager() -'' Return True if this app already has MANAGE_EXTERNAL_STORAGE permission -'Public Sub MES_HasPermission As Boolean -' Dim has As Boolean -' Dim jo As JavaObject -' jo.InitializeStatic("android.os.Environment") -' has = jo.RunMethod("isExternalStorageManager", Null) -' Return has -'End Sub -' -'' Check whether this app has MANAGE_EXTERNAL_STORAGE permission -'' If not show the user a dialog to enable MANAGE_EXTERNAL_STORAGE permission for this app -'' Raises the StorageAvailable event in the calling activity when complete -'Public Sub MES_GetPermission -' If MES_HasPermission Then -' RaiseEvent -' Return -' End If -' Dim in As Intent -' ' Be sure to reference your app package name in "pakageg:xxx" -' in.Initialize("android.settings.MANAGE_APP_ALL_FILES_ACCESS_PERMISSION", $"package:${Application.PackageName}"$) -' StartActivityForResult(in) -'End Sub -' -'Private Sub RaiseEvent -' Log("Calling : " & mesEventName & "_StorageAvailable") -' CallSubDelayed(mesCallback, mesEventName & "_StorageAvailable") -'End Sub -' -'Private Sub ion_Event (MethodName As String, Args() As Object) As Object -' RaiseEvent -' Return Null -'End Sub -' -'Private Sub StartActivityForResult(i As Intent) -' Dim jo As JavaObject = MES_GetBA -' ion = jo.CreateEvent("anywheresoftware.b4a.IOnActivityResult", "ion", Null) -' jo.RunMethod("startActivityForResult", Array As Object(ion, i)) -'End Sub -' -'Private Sub MES_GetBA As Object -' Dim jo As JavaObject = Me -' Return jo.RunMethod("getBA", Null) -'End Sub -'################ TERMINA Manage External Storage (MES) ######################### - - -'################ INICIA ENABLE BLUETOOTH ######################### -Sub StartBluetooth 'ignore - btAdmin.Initialize("btAdmin") - Log("btAdmin: " & btAdmin.IsEnabled) - If btAdmin.IsEnabled = False Then - Wait For (EnableBluetooth) Complete (Success As Boolean) - If Success = False Then - ToastMessageShow("Failed to enable bluetooth", True) - End If - Log(Success) - End If - Log($"BTADMIN: ${btAdmin.IsEnabled}"$) -End Sub - -Sub EnableBluetooth As ResumableSub - ToastMessageShow("Enabling Bluetooth adapter...", False) - Private ph As Phone - If ph.SdkVersion >= 31 Then - rp.CheckAndRequest("android.permission.BLUETOOTH_CONNECT") - Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) - If Result = False Then Return False - Log($"BTCONNECT: ${Result}"$) - If ph.SdkVersion >= 33 Then - Dim in As Intent - in.Initialize("android.bluetooth.adapter.action.REQUEST_ENABLE", "") - StartActivityForResult(in) - Wait For ion_Event (MethodName As String, Args() As Object) - Return btAdmin.IsEnabled - End If - End If - Return btAdmin.Enable -End Sub - -Private Sub GetBA As Object - Dim jo As JavaObject = Me - Return jo.RunMethod("getBA", Null) -End Sub - -Private Sub StartActivityForResult(i As Intent) - Dim jo As JavaObject = GetBA - ion = jo.CreateEvent("anywheresoftware.b4a.IOnActivityResult", "ion", Null) - jo.RunMethod("startActivityForResult", Array As Object(ion, i)) -End Sub -'################ TERMINA ENABLE BLUETOOTH ######################### \ No newline at end of file