diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index a96c3e7..626e1d0 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -118,6 +118,8 @@ Sub Class_Globals Private p_importarBDWA As Panel Private cb_importarBDWA As CheckBox ' Type TResultado(Tag As String, Success As Boolean, resultado As DBResult, ErrorMessage As String) + Private Label4 As Label + Private clicked As Int = 0 End Sub Public Sub Initialize @@ -393,6 +395,7 @@ End Sub Sub B4XPage_Appear Log(">>>>>> APPEAR - INICIAMOS MAIN PAGE <<<<<<<<<") + clicked = 0 If Not(MES1.IsInitialized) Then MES1.Initialize(Me, "MES1") Log(DateTime.GetDayOfWeek(DateTime.Now)) kh.RD_Init @@ -468,11 +471,6 @@ Sub B4XPage_Appear LogColor("Permisos de almacenamiento: " & MES1.HasPermission, Colors.Magenta) ' If MES1.HasPermission Then kh.revisaSiExisteRespaldo '' Se comenta causa el error de que en el primer cliente,al guardar la venta se trabe la aplicacion!! End If - Private cu As Cursor = Starter.skmt.ExecQuery("select USUARIO from USUARIOA") - If cu.RowCount > 0 Then - cu.Position = 0 - If cu.GetString("USUARIO") <> "" Then user.Text = cu.GetString("USUARIO") - End If DateTime.DateFormat = "yyyy-MM-dd HH:mm:ss" Starter.skmt.ExecNonQuery($"insert into versiones (version, fecha) values ('${Application.VersionName}', '${DateTime.Date(DateTime.Now)}')"$) End Sub @@ -592,6 +590,9 @@ Sub JobDone(Job As HttpJob) p_importarBDWA.Visible = False End If End If + If result.tag = "traeConexion" Then + Subs.logJobDoneResultados(result) + End If End If Job.Release End If @@ -1030,7 +1031,32 @@ Sub GetFecha End Sub Private Sub ImageView1_LongClick - Log("###### TRAEMOS FECHA #######") - GetFecha +' Log("###### TRAEMOS FECHA #######") +' GetFecha -End Sub \ No newline at end of file + Log("traeConexion") + Private reqManagerX As DBRequestManager + reqManagerX.Initialize(Me, "http://keymon.net:9010/DB2") + Private cmdX As DBCommand + cmdX.Initialize + cmdX.Name = "traeConexion" + cmdX.Parameters = Array As Object() + reqManagerX.ExecuteQuery(cmdX, 0, "traeConexion") +End Sub + +Sub ponUsuario + Private cu As Cursor = Starter.skmt.ExecQuery("select USUARIO from USUARIOA") + If cu.RowCount > 0 Then + cu.Position = 0 + If cu.GetString("USUARIO") <> "" Then user.Text = cu.GetString("USUARIO") + End If +End Sub + +Private Sub Label4_Click + clicked = clicked + 1 + Log(clicked) + If clicked >= 5 Then + clicked = 0 + ponUsuario + End If +End Sub diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 71a46fc..c559ef3 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -855,7 +855,7 @@ Sub GPS_LocationChanged (Location1 As Location) End If laDist= Location1.DistanceTo(ubicacionTienda) l_ubicacion2.Text = $"Dist: $1.0{laDist} mts."$ - If laDist > 300 Then + If laDist > 50 Then ' Antes 300 l_ubicacion2.TextColor = Colors.Red dentroDeGeocerca = False Else diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 7736d78..43cc9cf 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -943,7 +943,7 @@ Sub cargar_Click cmd.Initialize cmd.Name = "traeInfoTrendSpending" ' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) - cmd.Parameters = Array As Object(238, 2) + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "trendSpending") LogColor($"Trade Spending: Ruta: ${e_ruta.text}, almacen: ${ALMACEN}"$, Colors.red) @@ -2085,6 +2085,8 @@ Sub JobDone(Job As HttpJob) Dim HIST_TSS_GRUPO As String = records(RESULT.COLUMNS.GET("HIST_TSS_GRUPO")) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_TREND_SPENDING_SEMANAL (HIST_TSS_RUTA, HIST_TSS_IDALMACEN, HIST_TSS_TIPO, HIST_TSS_SEMANA1, HIST_TSS_SEMANA1_ACUM, HIST_TSS_SEMANA2, HIST_TSS_SEMANA2_ACUM, HIST_TSS_SEMANA3, HIST_TSS_SEMANA3_ACUM, HIST_TSS_SEMANA4, HIST_TSS_SEMANA4_ACUM, HIST_TSS_SEMANA5, HIST_TSS_SEMANA5_ACUM, HIST_TSS_SEMANA6, HIST_TSS_SEMANA6_ACUM, HIST_TSS_GRUPO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HIST_TSS_RUTA, HIST_TSS_IDALMACEN, HIST_TSS_TIPO, HIST_TSS_SEMANA1, HIST_TSS_SEMANA1_ACUM, HIST_TSS_SEMANA2, HIST_TSS_SEMANA2_ACUM, HIST_TSS_SEMANA3, HIST_TSS_SEMANA3_ACUM, HIST_TSS_SEMANA4, HIST_TSS_SEMANA4_ACUM, HIST_TSS_SEMANA5, HIST_TSS_SEMANA5_ACUM, HIST_TSS_SEMANA6, HIST_TSS_SEMANA6_ACUM, HIST_TSS_GRUPO)) Next + LogColor("GUARDAMOS INFO DE TRADE SPENDING", Colors.Blue) + Subs.logJobDoneResultados(RESULT) ts.Initialize(Me, "ts", Starter.skmt) End If End If diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index d681df1..a74c008 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -1487,7 +1487,11 @@ Sub Busca_TextChanged (Old As String, New As String) listaProds.Initialize listaHints.Initialize Sleep(0) - Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_PROMOCION <> '1' order by CAT_GP_NOMBRE"$) + If clienteId = "0" Then + Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$) + Else + Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_PROMOCION <> '1' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$) + End If ' c2 = Starter.skmt.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from " & query & " where CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO =? AND CAT_GP_TIPOPROD <> 1 and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID) ", Array As String( Value, Value) Log("Llamamos LlenaProdsLL") LlenaProdsLL(p, Null) @@ -1515,13 +1519,17 @@ Sub LlenaProdsLL(p As ResultSet, extra As String) ' Log("CANTSMAP: " & cantsMap) pe.Close End If -' Log(p.IsInitialized) + Log(p.IsInitialized) ' If query = "" Or query = Null Then query = "cat_gunaprod2" If p.IsInitialized Then - Log($"YA HAY RESULTSET ${p.RowCount}"$) + Log($"RECIBIMOS RESULTSET ${p.RowCount}"$) Else ' Log("NO HAY RESULTSET") - Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_PROMOCION <> '1' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$) + If clienteId = "0" Then + Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$) + Else + Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_PROMOCION <> '1' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$) + End If ' If Starter.Logger Then Log($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_PROMOCION <> '1' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$) ' Log(p.RowCount & " - " & Subs.traeTablaProds(Starter.tipov)) End If diff --git a/B4A/Files/compra_y_gana.png b/B4A/Files/compra_y_gana.png new file mode 100644 index 0000000..6ccb5b3 Binary files /dev/null and b/B4A/Files/compra_y_gana.png differ diff --git a/B4A/Files/qr_kelloggs.png b/B4A/Files/qr_kelloggs.png new file mode 100644 index 0000000..bb707fd Binary files /dev/null and b/B4A/Files/qr_kelloggs.png differ diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a index 235109b..c648aff 100644 --- a/B4A/KelloggsV4.b4a +++ b/B4A/KelloggsV4.b4a @@ -1,425 +1,427 @@ Build1=Default,kelloggsV2.keymon.lat,HU2_PUBLIC File1=alcancia.png File10=cacahuates_blanco2.png -File100=marker-azul-33.png -File101=marker-azul-34.png -File102=marker-azul-35.png -File103=marker-azul-36.png -File104=marker-azul-37.png -File105=marker-azul-38.png -File106=marker-azul-39.png -File107=marker-azul4.png -File108=marker-azul-4.png -File109=marker-azul-40.png +File100=marker-azul-32.png +File101=marker-azul-33.png +File102=marker-azul-34.png +File103=marker-azul-35.png +File104=marker-azul-36.png +File105=marker-azul-37.png +File106=marker-azul-38.png +File107=marker-azul-39.png +File108=marker-azul4.png +File109=marker-azul-4.png File11=cacahuates_blanco3.png -File110=marker-azul-41.png -File111=marker-azul-42.png -File112=marker-azul-43.png -File113=marker-azul-44.png -File114=marker-azul-45.png -File115=marker-azul-46.png -File116=marker-azul-47.png -File117=marker-azul-48.png -File118=marker-azul-49.png -File119=marker-azul5.png +File110=marker-azul-40.png +File111=marker-azul-41.png +File112=marker-azul-42.png +File113=marker-azul-43.png +File114=marker-azul-44.png +File115=marker-azul-45.png +File116=marker-azul-46.png +File117=marker-azul-47.png +File118=marker-azul-48.png +File119=marker-azul-49.png File12=cacahuates_chico.png -File120=marker-azul-5.png -File121=marker-azul-50.png -File122=marker-azul-51.png -File123=marker-azul-52.png -File124=marker-azul-53.png -File125=marker-azul-54.png -File126=marker-azul-55.png -File127=marker-azul-56.png -File128=marker-azul-57.png -File129=marker-azul-58.png +File120=marker-azul5.png +File121=marker-azul-5.png +File122=marker-azul-50.png +File123=marker-azul-51.png +File124=marker-azul-52.png +File125=marker-azul-53.png +File126=marker-azul-54.png +File127=marker-azul-55.png +File128=marker-azul-56.png +File129=marker-azul-57.png File13=cacahuates_original.jpeg -File130=marker-azul-59.png -File131=marker-azul-6.png -File132=marker-azul-60.png -File133=marker-azul-61.png -File134=marker-azul-62.png -File135=marker-azul-63.png -File136=marker-azul-64.png -File137=marker-azul-65.png -File138=marker-azul-66.png -File139=marker-azul-67.png +File130=marker-azul-58.png +File131=marker-azul-59.png +File132=marker-azul-6.png +File133=marker-azul-60.png +File134=marker-azul-61.png +File135=marker-azul-62.png +File136=marker-azul-63.png +File137=marker-azul-64.png +File138=marker-azul-65.png +File139=marker-azul-66.png File14=cacahuates_original2.bmp -File140=marker-azul-68.png -File141=marker-azul-69.png -File142=marker-azul-7.png -File143=marker-azul-70.png -File144=marker-azul-71.png -File145=marker-azul-72.png -File146=marker-azul-73.png -File147=marker-azul-74.png -File148=marker-azul-75.png -File149=marker-azul-76.png +File140=marker-azul-67.png +File141=marker-azul-68.png +File142=marker-azul-69.png +File143=marker-azul-7.png +File144=marker-azul-70.png +File145=marker-azul-71.png +File146=marker-azul-72.png +File147=marker-azul-73.png +File148=marker-azul-74.png +File149=marker-azul-75.png File15=cacahuates_original2.jpg -File150=marker-azul-77.png -File151=marker-azul-78.png -File152=marker-azul-79.png -File153=marker-azul-8.png -File154=marker-azul-80.png -File155=marker-azul-81.png -File156=marker-azul-82.png -File157=marker-azul-83.png -File158=marker-azul-84.png -File159=marker-azul-85.png +File150=marker-azul-76.png +File151=marker-azul-77.png +File152=marker-azul-78.png +File153=marker-azul-79.png +File154=marker-azul-8.png +File155=marker-azul-80.png +File156=marker-azul-81.png +File157=marker-azul-82.png +File158=marker-azul-83.png +File159=marker-azul-84.png File16=cacahuates_original3.bmp -File160=marker-azul-86.png -File161=marker-azul-87.png -File162=marker-azul-88.png -File163=marker-azul-89.png -File164=marker-azul-9.png -File165=marker-azul-90.png -File166=marker-azul-91.png -File167=marker-azul-92.png -File168=marker-azul-93.png -File169=marker-azul-94.png +File160=marker-azul-85.png +File161=marker-azul-86.png +File162=marker-azul-87.png +File163=marker-azul-88.png +File164=marker-azul-89.png +File165=marker-azul-9.png +File166=marker-azul-90.png +File167=marker-azul-91.png +File168=marker-azul-92.png +File169=marker-azul-93.png File17=carrito.png -File170=marker-azul-95.png -File171=marker-azul-96.png -File172=marker-azul-97.png -File173=marker-azul-98.png -File174=marker-azul-99.png -File175=marker-rojo.png -File176=marker-rojo-0.png -File177=marker-rojo1.png -File178=marker-rojo-1.png -File179=marker-rojo-10.png +File170=marker-azul-94.png +File171=marker-azul-95.png +File172=marker-azul-96.png +File173=marker-azul-97.png +File174=marker-azul-98.png +File175=marker-azul-99.png +File176=marker-rojo.png +File177=marker-rojo-0.png +File178=marker-rojo1.png +File179=marker-rojo-1.png File18=checklist.bal -File180=marker-rojo-100.png -File181=marker-rojo-11.png -File182=marker-rojo-12.png -File183=marker-rojo-13.png -File184=marker-rojo-14.png -File185=marker-rojo-15.png -File186=marker-rojo-16.png -File187=marker-rojo-17.png -File188=marker-rojo-18.png -File189=marker-rojo-19.png +File180=marker-rojo-10.png +File181=marker-rojo-100.png +File182=marker-rojo-11.png +File183=marker-rojo-12.png +File184=marker-rojo-13.png +File185=marker-rojo-14.png +File186=marker-rojo-15.png +File187=marker-rojo-16.png +File188=marker-rojo-17.png +File189=marker-rojo-18.png File19=checks.bal -File190=marker-rojo2.png -File191=marker-rojo-2.png -File192=marker-rojo-20.png -File193=marker-rojo-21.png -File194=marker-rojo-22.png -File195=marker-rojo-23.png -File196=marker-rojo-24.png -File197=marker-rojo-25.png -File198=marker-rojo-26.png -File199=marker-rojo-27.png +File190=marker-rojo-19.png +File191=marker-rojo2.png +File192=marker-rojo-2.png +File193=marker-rojo-20.png +File194=marker-rojo-21.png +File195=marker-rojo-22.png +File196=marker-rojo-23.png +File197=marker-rojo-24.png +File198=marker-rojo-25.png +File199=marker-rojo-26.png File2=alert2.png File20=cliente.bal -File200=marker-rojo-28.png -File201=marker-rojo-29.png -File202=marker-rojo-3.png -File203=marker-rojo-30.png -File204=marker-rojo-31.png -File205=marker-rojo-32.png -File206=marker-rojo-33.png -File207=marker-rojo-34.png -File208=marker-rojo-35.png -File209=marker-rojo-36.png +File200=marker-rojo-27.png +File201=marker-rojo-28.png +File202=marker-rojo-29.png +File203=marker-rojo-3.png +File204=marker-rojo-30.png +File205=marker-rojo-31.png +File206=marker-rojo-32.png +File207=marker-rojo-33.png +File208=marker-rojo-34.png +File209=marker-rojo-35.png File21=cliente.bal.bak -File210=marker-rojo-37.png -File211=marker-rojo-38.png -File212=marker-rojo-39.png -File213=marker-rojo-4.png -File214=marker-rojo-40.png -File215=marker-rojo-41.png -File216=marker-rojo-42.png -File217=marker-rojo-43.png -File218=marker-rojo-44.png -File219=marker-rojo-45.png +File210=marker-rojo-36.png +File211=marker-rojo-37.png +File212=marker-rojo-38.png +File213=marker-rojo-39.png +File214=marker-rojo-4.png +File215=marker-rojo-40.png +File216=marker-rojo-41.png +File217=marker-rojo-42.png +File218=marker-rojo-43.png +File219=marker-rojo-44.png File22=clientes.bal -File220=marker-rojo-46.png -File221=marker-rojo-47.png -File222=marker-rojo-48.png -File223=marker-rojo-49.png -File224=marker-rojo-5.png -File225=marker-rojo-50.png -File226=marker-rojo-51.png -File227=marker-rojo-52.png -File228=marker-rojo-53.png -File229=marker-rojo-54.png -File23=detalle_promo.bal -File230=marker-rojo-55.png -File231=marker-rojo-56.png -File232=marker-rojo-57.png -File233=marker-rojo-58.png -File234=marker-rojo-59.png -File235=marker-rojo-6.png -File236=marker-rojo-60.png -File237=marker-rojo-61.png -File238=marker-rojo-62.png -File239=marker-rojo-63.png -File24=durakelo.png -File240=marker-rojo-64.png -File241=marker-rojo-65.png -File242=marker-rojo-66.png -File243=marker-rojo-67.png -File244=marker-rojo-68.png -File245=marker-rojo-69.png -File246=marker-rojo-7.png -File247=marker-rojo-70.png -File248=marker-rojo-71.png -File249=marker-rojo-72.png -File25=durakelo1.png -File250=marker-rojo-73.png -File251=marker-rojo-74.png -File252=marker-rojo-75.png -File253=marker-rojo-76.png -File254=marker-rojo-77.png -File255=marker-rojo-78.png -File256=marker-rojo-79.png -File257=marker-rojo-8.png -File258=marker-rojo-80.png -File259=marker-rojo-81.png -File26=engrane.jpg -File260=marker-rojo-82.png -File261=marker-rojo-83.png -File262=marker-rojo-84.png -File263=marker-rojo-85.png -File264=marker-rojo-86.png -File265=marker-rojo-87.png -File266=marker-rojo-88.png -File267=marker-rojo-89.png -File268=marker-rojo-9.png -File269=marker-rojo-90.png -File27=engrane.png -File270=marker-rojo-91.png -File271=marker-rojo-92.png -File272=marker-rojo-93.png -File273=marker-rojo-94.png -File274=marker-rojo-95.png -File275=marker-rojo-96.png -File276=marker-rojo-97.png -File277=marker-rojo-98.png -File278=marker-rojo-99.png -File279=marker-verde.png -File28=engranes.png -File280=marker-verde-0.png -File281=marker-verde-1.png -File282=marker-verde-10.png -File283=marker-verde-100.png -File284=marker-verde-11.png -File285=marker-verde-12.png -File286=marker-verde-13.png -File287=marker-verde-14.png -File288=marker-verde-15.png -File289=marker-verde-16.png -File29=errormanager.bal -File290=marker-verde-17.png -File291=marker-verde-18.png -File292=marker-verde-19.png -File293=marker-verde-2.png -File294=marker-verde-20.png -File295=marker-verde-21.png -File296=marker-verde-22.png -File297=marker-verde-23.png -File298=marker-verde-24.png -File299=marker-verde-25.png +File220=marker-rojo-45.png +File221=marker-rojo-46.png +File222=marker-rojo-47.png +File223=marker-rojo-48.png +File224=marker-rojo-49.png +File225=marker-rojo-5.png +File226=marker-rojo-50.png +File227=marker-rojo-51.png +File228=marker-rojo-52.png +File229=marker-rojo-53.png +File23=Compra_y_Gana.png +File230=marker-rojo-54.png +File231=marker-rojo-55.png +File232=marker-rojo-56.png +File233=marker-rojo-57.png +File234=marker-rojo-58.png +File235=marker-rojo-59.png +File236=marker-rojo-6.png +File237=marker-rojo-60.png +File238=marker-rojo-61.png +File239=marker-rojo-62.png +File24=detalle_promo.bal +File240=marker-rojo-63.png +File241=marker-rojo-64.png +File242=marker-rojo-65.png +File243=marker-rojo-66.png +File244=marker-rojo-67.png +File245=marker-rojo-68.png +File246=marker-rojo-69.png +File247=marker-rojo-7.png +File248=marker-rojo-70.png +File249=marker-rojo-71.png +File25=durakelo.png +File250=marker-rojo-72.png +File251=marker-rojo-73.png +File252=marker-rojo-74.png +File253=marker-rojo-75.png +File254=marker-rojo-76.png +File255=marker-rojo-77.png +File256=marker-rojo-78.png +File257=marker-rojo-79.png +File258=marker-rojo-8.png +File259=marker-rojo-80.png +File26=durakelo1.png +File260=marker-rojo-81.png +File261=marker-rojo-82.png +File262=marker-rojo-83.png +File263=marker-rojo-84.png +File264=marker-rojo-85.png +File265=marker-rojo-86.png +File266=marker-rojo-87.png +File267=marker-rojo-88.png +File268=marker-rojo-89.png +File269=marker-rojo-9.png +File27=engrane.jpg +File270=marker-rojo-90.png +File271=marker-rojo-91.png +File272=marker-rojo-92.png +File273=marker-rojo-93.png +File274=marker-rojo-94.png +File275=marker-rojo-95.png +File276=marker-rojo-96.png +File277=marker-rojo-97.png +File278=marker-rojo-98.png +File279=marker-rojo-99.png +File28=engrane.png +File280=marker-verde.png +File281=marker-verde-0.png +File282=marker-verde-1.png +File283=marker-verde-10.png +File284=marker-verde-100.png +File285=marker-verde-11.png +File286=marker-verde-12.png +File287=marker-verde-13.png +File288=marker-verde-14.png +File289=marker-verde-15.png +File29=engranes.png +File290=marker-verde-16.png +File291=marker-verde-17.png +File292=marker-verde-18.png +File293=marker-verde-19.png +File294=marker-verde-2.png +File295=marker-verde-20.png +File296=marker-verde-21.png +File297=marker-verde-22.png +File298=marker-verde-23.png +File299=marker-verde-24.png File3=alerta.jpg -File30=fondo_kmt.jpg -File300=marker-verde-26.png -File301=marker-verde-27.png -File302=marker-verde-28.png -File303=marker-verde-29.png -File304=marker-verde-3.png -File305=marker-verde-30.png -File306=marker-verde-31.png -File307=marker-verde-32.png -File308=marker-verde-33.png -File309=marker-verde-34.png -File31=foto.bal -File310=marker-verde-35.png -File311=marker-verde-36.png -File312=marker-verde-37.png -File313=marker-verde-38.png -File314=marker-verde-39.png -File315=marker-verde-4.png -File316=marker-verde-40.png -File317=marker-verde-41.png -File318=marker-verde-42.png -File319=marker-verde-43.png -File32=foto1.jpg -File320=marker-verde-44.png -File321=marker-verde-45.png -File322=marker-verde-46.png -File323=marker-verde-47.png -File324=marker-verde-48.png -File325=marker-verde-49.png -File326=marker-verde-5.png -File327=marker-verde-50.png -File328=marker-verde-51.png -File329=marker-verde-52.png -File33=foto2.jpg -File330=marker-verde-53.png -File331=marker-verde-54.png -File332=marker-verde-55.png -File333=marker-verde-56.png -File334=marker-verde-57.png -File335=marker-verde-58.png -File336=marker-verde-59.png -File337=marker-verde-6.png -File338=marker-verde-60.png -File339=marker-verde-61.png -File34=foto3.jpg -File340=marker-verde-62.png -File341=marker-verde-63.png -File342=marker-verde-64.png -File343=marker-verde-65.png -File344=marker-verde-66.png -File345=marker-verde-67.png -File346=marker-verde-68.png -File347=marker-verde-69.png -File348=marker-verde-7.png -File349=marker-verde-70.png -File35=foto4.jpg -File350=marker-verde-71.png -File351=marker-verde-72.png -File352=marker-verde-73.png -File353=marker-verde-74.png -File354=marker-verde-75.png -File355=marker-verde-76.png -File356=marker-verde-77.png -File357=marker-verde-78.png -File358=marker-verde-79.png -File359=marker-verde-8.png -File36=guardagestion.bal -File360=marker-verde-80.png -File361=marker-verde-81.png -File362=marker-verde-82.png -File363=marker-verde-83.png -File364=marker-verde-84.png -File365=marker-verde-85.png -File366=marker-verde-86.png -File367=marker-verde-87.png -File368=marker-verde-88.png -File369=marker-verde-89.png -File37=guna_viejo.png -File370=marker-verde-9.png -File371=marker-verde-90.png -File372=marker-verde-91.png -File373=marker-verde-92.png -File374=marker-verde-93.png -File375=marker-verde-94.png -File376=marker-verde-95.png -File377=marker-verde-96.png -File378=marker-verde-97.png -File379=marker-verde-98.png -File38=historico.bal -File380=marker-verde-99.png -File381=nota.bal -File382=noventa.bal -File383=nuevocliente.bal -File384=palomita_verde.png -File385=palomita_verde_original.png -File386=pedido.bal -File387=pedidoItem.bal -File388=planfia_logo.png -File389=planfia_logo_old.png -File39=info_gral.resp -File390=planfia_logo_old2.png -File391=principal.bal -File392=proditem.bal -File393=productos.bal -File394=productos2.bal -File395=profina.jpg -File396=profina.png -File397=promociones.bal -File398=qr.bal -File399=rechazo.jpg +File30=errormanager.bal +File300=marker-verde-25.png +File301=marker-verde-26.png +File302=marker-verde-27.png +File303=marker-verde-28.png +File304=marker-verde-29.png +File305=marker-verde-3.png +File306=marker-verde-30.png +File307=marker-verde-31.png +File308=marker-verde-32.png +File309=marker-verde-33.png +File31=fondo_kmt.jpg +File310=marker-verde-34.png +File311=marker-verde-35.png +File312=marker-verde-36.png +File313=marker-verde-37.png +File314=marker-verde-38.png +File315=marker-verde-39.png +File316=marker-verde-4.png +File317=marker-verde-40.png +File318=marker-verde-41.png +File319=marker-verde-42.png +File32=foto.bal +File320=marker-verde-43.png +File321=marker-verde-44.png +File322=marker-verde-45.png +File323=marker-verde-46.png +File324=marker-verde-47.png +File325=marker-verde-48.png +File326=marker-verde-49.png +File327=marker-verde-5.png +File328=marker-verde-50.png +File329=marker-verde-51.png +File33=foto1.jpg +File330=marker-verde-52.png +File331=marker-verde-53.png +File332=marker-verde-54.png +File333=marker-verde-55.png +File334=marker-verde-56.png +File335=marker-verde-57.png +File336=marker-verde-58.png +File337=marker-verde-59.png +File338=marker-verde-6.png +File339=marker-verde-60.png +File34=foto2.jpg +File340=marker-verde-61.png +File341=marker-verde-62.png +File342=marker-verde-63.png +File343=marker-verde-64.png +File344=marker-verde-65.png +File345=marker-verde-66.png +File346=marker-verde-67.png +File347=marker-verde-68.png +File348=marker-verde-69.png +File349=marker-verde-7.png +File35=foto3.jpg +File350=marker-verde-70.png +File351=marker-verde-71.png +File352=marker-verde-72.png +File353=marker-verde-73.png +File354=marker-verde-74.png +File355=marker-verde-75.png +File356=marker-verde-76.png +File357=marker-verde-77.png +File358=marker-verde-78.png +File359=marker-verde-79.png +File36=foto4.jpg +File360=marker-verde-8.png +File361=marker-verde-80.png +File362=marker-verde-81.png +File363=marker-verde-82.png +File364=marker-verde-83.png +File365=marker-verde-84.png +File366=marker-verde-85.png +File367=marker-verde-86.png +File368=marker-verde-87.png +File369=marker-verde-88.png +File37=guardagestion.bal +File370=marker-verde-89.png +File371=marker-verde-9.png +File372=marker-verde-90.png +File373=marker-verde-91.png +File374=marker-verde-92.png +File375=marker-verde-93.png +File376=marker-verde-94.png +File377=marker-verde-95.png +File378=marker-verde-96.png +File379=marker-verde-97.png +File38=guna_viejo.png +File380=marker-verde-98.png +File381=marker-verde-99.png +File382=nota.bal +File383=noventa.bal +File384=nuevocliente.bal +File385=palomita_verde.png +File386=palomita_verde_original.png +File387=pedido.bal +File388=pedidoItem.bal +File389=planfia_logo.png +File39=historico.bal +File390=planfia_logo_old.png +File391=planfia_logo_old2.png +File392=principal.bal +File393=proditem.bal +File394=productos.bal +File395=productos2.bal +File396=profina.jpg +File397=profina.png +File398=promociones.bal +File399=qr.bal File4=alerta_amarilla.png -File40=infonavit1.jpg -File400=rojo.png -File401=salma.jpg -File402=salma.png -File403=senial.jpg -File404=sync.png -File405=tache_rojo.png -File406=tache_rojo_original.png -File407=telefonos.bal -File408=ticketsDia.bal -File409=Tiendita.jpg -File41=INVENTARIO (1).jpg -File410=transporte.png -File411=verde.png -File412=vista1.png -File413=vista2.png -File414=vista3.png -File415=vista4.png -File416=WhatsApp Image 2022-11-17 at 11.50.59 AM.jpeg -File417=WhatsApp Image 2022-11-17 at 11.50.59 AM.jpg -File418=whatsapp.png -File419=whatsapp_original.png -File42=INVENTARIO.jpg -File420=WHATSTEL.jpeg -File421=WHATSTEL.png -File43=inventario.PNG -File44=itembuttonblue.png -File45=itembuttonred.png -File46=kellanova.png -File47=kellanova_borde.png -File48=kelloggs.png -File49=Kelloggs.rkmt.km +File40=info_gral.resp +File400=QR_Kelloggs.png +File401=rechazo.jpg +File402=rojo.png +File403=salma.jpg +File404=salma.png +File405=senial.jpg +File406=sync.png +File407=tache_rojo.png +File408=tache_rojo_original.png +File409=telefonos.bal +File41=infonavit1.jpg +File410=ticketsDia.bal +File411=Tiendita.jpg +File412=transporte.png +File413=verde.png +File414=vista1.png +File415=vista2.png +File416=vista3.png +File417=vista4.png +File418=WhatsApp Image 2022-11-17 at 11.50.59 AM.jpeg +File419=WhatsApp Image 2022-11-17 at 11.50.59 AM.jpg +File42=INVENTARIO (1).jpg +File420=whatsapp.png +File421=whatsapp_original.png +File422=WHATSTEL.jpeg +File423=WHATSTEL.png +File43=INVENTARIO.jpg +File44=inventario.PNG +File45=itembuttonblue.png +File46=itembuttonred.png +File47=kellanova.png +File48=kellanova_borde.png +File49=kelloggs.png File5=amarillo.png -File50=kelloggs_chico.png -File51=kelloggs_original.png -File52=kelloggs2.jpg -File53=kelloggs2.png -File54=keymon_logo.png -File55=kmt.db -File56=knv_logo_white.png -File57=login.bal -File58=logo sanfer.jpg -File59=logo_192x192.png +File50=Kelloggs.rkmt.km +File51=kelloggs_chico.png +File52=kelloggs_original.png +File53=kelloggs2.jpg +File54=kelloggs2.png +File55=keymon_logo.png +File56=kmt.db +File57=knv_logo_white.png +File58=login.bal +File59=logo sanfer.jpg File6=anterior.jpg -File60=logo_exitus1.jpg -File61=logo2.png -File62=logo2_192x192.png -File63=MainPage.bal -File64=Malo.jpg -File65=mapa.bal -File66=mapa_rutas.bal -File67=mapas.bal -File68=marker-azul.png -File69=marker-azul-0.png +File60=logo_192x192.png +File61=logo_exitus1.jpg +File62=logo2.png +File63=logo2_192x192.png +File64=MainPage.bal +File65=Malo.jpg +File66=mapa.bal +File67=mapa_rutas.bal +File68=mapas.bal +File69=marker-azul.png File7=BLACNCO.jpg -File70=marker-azul1.png -File71=marker-azul-1.png -File72=marker-azul-10.png -File73=marker-azul-100.png -File74=marker-azul-11.png -File75=marker-azul-12.png -File76=marker-azul-13.png -File77=marker-azul-14.png -File78=marker-azul-15.png -File79=marker-azul-16.png +File70=marker-azul-0.png +File71=marker-azul1.png +File72=marker-azul-1.png +File73=marker-azul-10.png +File74=marker-azul-100.png +File75=marker-azul-11.png +File76=marker-azul-12.png +File77=marker-azul-13.png +File78=marker-azul-14.png +File79=marker-azul-15.png File8=cacahuates.png -File80=marker-azul-17.png -File81=marker-azul-18.png -File82=marker-azul-19.png -File83=marker-azul2.png -File84=marker-azul-2.png -File85=marker-azul-20.png -File86=marker-azul-21.png -File87=marker-azul-22.png -File88=marker-azul-23.png -File89=marker-azul-24.png +File80=marker-azul-16.png +File81=marker-azul-17.png +File82=marker-azul-18.png +File83=marker-azul-19.png +File84=marker-azul2.png +File85=marker-azul-2.png +File86=marker-azul-20.png +File87=marker-azul-21.png +File88=marker-azul-22.png +File89=marker-azul-23.png File9=cacahuates_blanco.png -File90=marker-azul-25.png -File91=marker-azul-26.png -File92=marker-azul-27.png -File93=marker-azul-28.png -File94=marker-azul-29.png -File95=marker-azul3.png -File96=marker-azul-3.png -File97=marker-azul-30.png -File98=marker-azul-31.png -File99=marker-azul-32.png +File90=marker-azul-24.png +File91=marker-azul-25.png +File92=marker-azul-26.png +File93=marker-azul-27.png +File94=marker-azul-28.png +File95=marker-azul-29.png +File96=marker-azul3.png +File97=marker-azul-3.png +File98=marker-azul-30.png +File99=marker-azul-31.png FileGroup1=Default Group FileGroup10=Default Group FileGroup100=Default Group @@ -779,6 +781,8 @@ FileGroup419=Default Group FileGroup42=Default Group FileGroup420=Default Group FileGroup421=Default Group +FileGroup422=Default Group +FileGroup423=Default Group FileGroup43=Default Group FileGroup44=Default Group FileGroup45=Default Group @@ -903,7 +907,7 @@ Module6=C_Mapas Module7=C_Nota Module8=C_NoVenta Module9=C_NuevoCliente -NumberOfFiles=421 +NumberOfFiles=423 NumberOfLibraries=28 NumberOfModules=32 Version=12.8 @@ -911,7 +915,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Kelloggs Venta #VersionCode: 3000 - #VersionName: 5.07.30 + #VersionName: 5.09.01 #SupportedOrientations: portrait #CanInstallToExternalStorage: False #BridgeLogger:true @@ -928,8 +932,7 @@ Version=12.8 #End Region ' Version que estaba en la tabla CAT_VERSION antes -> 2.95 - -'actualizaProducto, c=30000007778, p=1008037471, nombre=BARRA ALL BRAN FRESA 37 GR, cant=1, cedis=3, tipo=VENTA +' 5.08.30 --> corrige que en la barra de busqeda en productos no hacia nada! Sub Process_Globals Public ActionBarHomeClicked As Boolean diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index d2f6b43..d7ca96e 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -65,13 +65,13 @@ ModuleBreakpoints7= ModuleBreakpoints8= ModuleBreakpoints9= ModuleClosedNodes0= -ModuleClosedNodes1=2,6,7,8,9,10,11,12,14,16 +ModuleClosedNodes1=4,6 ModuleClosedNodes10= ModuleClosedNodes11=3,5,6 ModuleClosedNodes12=3,7,8,9,10,11,12 ModuleClosedNodes13=6,7,8,9,12,13 ModuleClosedNodes14= -ModuleClosedNodes15=2,3,7,8,15,17 +ModuleClosedNodes15=3,7,8,15,17 ModuleClosedNodes16= ModuleClosedNodes17= ModuleClosedNodes18= @@ -97,6 +97,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Subs,traeMaxPromos,1180,0,Subs,alcanzanLosVariablesParaPromo,1159,0,Subs,revisaMaxPromosProdsFijosPorInventario,1346,1,C_TrendSpending,traeInfoTrendSpending,64,0,C_TrendSpending,traeMaximas,295,0,C_TrendSpending,traeBonificacionesMaximas,321,2,C_TrendSpending,maxPromosPorProdsVariables,370,0,C_Principal,cargar_Click,885,0,C_Cliente,B4XPage_Appear,545,0,kms_helperSubs,traeLimiteCredito,1279,0,kms_helperSubs,ping,1277,0 +NavigationStack=B4XMainPage,ImageView1_LongClick,1031,6,C_Principal,Class_Globals,12,0,Diseñador Visual,productos.bal,-100,1,C_Productos,Busca_TextChanged,1467,4,Subs,traeTablaProds,1683,0,Subs,generaGUID_EnExterno,1966,0,Subs,parseHTTPError,1978,0,C_TrendSpending,Initialize,29,0,C_Principal,JobDone,2081,6,C_Principal,cargar_Click,939,0,B4XMainPage,JobDone,570,0 SelectedBuild=0 -VisibleModules=1,30,11,15,3,31,12,13,7,28,25 +VisibleModules=1,30,11,15,3,31,12,13,7,28 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 1b59fb4..806f276 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -1757,7 +1757,8 @@ Sub horaNormal(fecha As String) As String 'ignore Return nuevaFecha End Sub -'En geocerca si mete la contraseña poner 0 en precision gps y si esta dentro de los 50 mts poner 1 y 2 para eventos que no lo ocupen +'Guarda en la tabla BitacoraGPS el evento espcificado en eventob, junto con coordenadas y otros datos. +'En precision,si metio contraseña para brincar la geocerca, poner 0 gps, si esta dentro de los 50 mts poner 1 y 2 para eventos que no lo ocupen. 'Mandar fecha de sync(sysdate) Sub bitacora(fechab As String, usuariob As String, almacenb As String, rutab As String, eventob As String, clienteb As String, iniciob As String, finb As String, latitudb As String, longitudb As String, precision As String, motivonoventa As String, motivonovisita As String ) Log(motivonovisita)