mirror of
https://github.com/KeymonSoft/Lanterna.git
synced 2026-04-17 12:56:26 +00:00
Commit Inicial
This commit is contained in:
2
.gitignore
vendored
Normal file
2
.gitignore
vendored
Normal file
@@ -0,0 +1,2 @@
|
||||
**/Objects
|
||||
**/AutoBackups
|
||||
85
B4A/B4XMainPage.bas
Normal file
85
B4A/B4XMainPage.bas
Normal file
@@ -0,0 +1,85 @@
|
||||
B4A=true
|
||||
Group=Default Group
|
||||
ModulesStructureVersion=1
|
||||
Type=Class
|
||||
Version=9.85
|
||||
@EndOfDesignText@
|
||||
#Region Shared Files
|
||||
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
|
||||
'###########################################################################################################
|
||||
'###################### PULL #############################################################
|
||||
'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull
|
||||
'###########################################################################################################
|
||||
'###################### PUSH #############################################################
|
||||
'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=github&Args=..\..\
|
||||
'###########################################################################################################
|
||||
'###################### PUSH TORTOISE GIT #########################################################
|
||||
'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=TortoiseGitProc&Args=/command:commit&Args=/path:"./../../"&Args=/closeonend:2
|
||||
'###########################################################################################################
|
||||
#End Region
|
||||
|
||||
'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
|
||||
|
||||
Sub Class_Globals
|
||||
Private Root As B4XView
|
||||
Private xui As XUI
|
||||
Public principal As C_Principal
|
||||
Private i_logo As ImageView
|
||||
Private p_configuracion As Panel
|
||||
Private p_login As Panel
|
||||
Private b_regresar As Button
|
||||
Private b_entrar As Button
|
||||
Private b_envioBD As Button
|
||||
Private B_SERVER As Button
|
||||
Private ImageView4 As ImageView
|
||||
Private ImageView2 As ImageView
|
||||
Private Panel3 As Panel
|
||||
Private Label1 As Label
|
||||
End Sub
|
||||
|
||||
Public Sub Initialize
|
||||
' B4XPages.GetManager.LogEvents = True
|
||||
End Sub
|
||||
|
||||
'This event will be called once, before the page becomes visible.
|
||||
Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
Root = Root1
|
||||
Root.LoadLayout("login")
|
||||
principal.Initialize
|
||||
B4XPages.AddPage("Principal", principal)
|
||||
p_login.Width = Root.Width
|
||||
p_login.Height = Root.Height
|
||||
Subs.agregaColumna("cat_gunaprod", "CAT_PT_DESC", "TEXT")
|
||||
Subs.agregaColumna("cat_gunaprod", "CAT_PS_DESC", "TEXT")
|
||||
Subs.agregaColumna("cat_gunaprod", "CAT_PS_DESC", "TEXT")
|
||||
Subs.agregaColumna("cat_gunaprod", "CAT_GP_FECHA", "TEXT")
|
||||
Subs.agregaColumna("cat_gunaprod", "CAT_GP_FECHA_MOD", "TEXT")
|
||||
Starter.skmt.ExecNonQuery("delete from cuentaa")
|
||||
Starter.skmt.ExecNonQuery("insert into cuentaa (cuenta) values ('123456')")
|
||||
Starter.skmt.ExecNonQuery("delete from cat_almacen")
|
||||
Starter.skmt.ExecNonQuery("insert into cat_almacen (id_almacen) values ('1')")
|
||||
End Sub
|
||||
|
||||
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||
|
||||
Private Sub i_logo_Click
|
||||
p_configuracion.Width = Root.Width
|
||||
p_configuracion.Height = Root.Height
|
||||
Subs.panelVisible(p_configuracion, 0, 0)
|
||||
End Sub
|
||||
|
||||
Private Sub b_regresar_Click
|
||||
Subs.panelVisible(p_login, 0, 0)
|
||||
End Sub
|
||||
|
||||
Private Sub b_entrar_Click
|
||||
B4XPages.ShowPage("principal")
|
||||
End Sub
|
||||
|
||||
Private Sub B_SERVER_Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub b_envioBD_Click
|
||||
|
||||
End Sub
|
||||
966
B4A/C_Principal.bas
Normal file
966
B4A/C_Principal.bas
Normal file
@@ -0,0 +1,966 @@
|
||||
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
|
||||
Private p_principal As Panel
|
||||
Private WobbleMenu1 As WobbleMenu
|
||||
Dim PCLV, PCLVM As PreoptimizedCLV
|
||||
Private p_productos As Panel
|
||||
Private clv_prods_ll, clv_carrito, clv As CustomListView
|
||||
Dim prodsMap As Map
|
||||
Private p_botonesVenta As Panel
|
||||
Private b_continuar As Button
|
||||
Private lfila As Label
|
||||
Private et_busca As EditText
|
||||
Private b_buscar As Button
|
||||
Dim etCantHasFocus, hayPedido As Boolean 'ignore
|
||||
Dim ticketId As String
|
||||
Dim rutaUsuario, folio As String 'ignore
|
||||
Dim query As String
|
||||
Dim listaProds, listaHints, listaHintsM, list_prodsPedido As List
|
||||
Dim reiniciarlistaProds As Boolean = False 'ignore
|
||||
Dim forzarBusqueda As Boolean = False
|
||||
' Private lv_promos As ListView
|
||||
Private b_prodMenos As Button
|
||||
Private et_pCant As EditText
|
||||
Private l_pCant As Label
|
||||
Private b_prodMas As Button
|
||||
Private p_botMasMen As Panel
|
||||
Private l_prodX As Label
|
||||
Private i_prod As ImageView
|
||||
Private p_prods As Panel
|
||||
Private p_mesas As Panel
|
||||
' Private lv_carrito As ListView
|
||||
Private p_carrito As Panel
|
||||
Private p_botonesCarrito As Panel
|
||||
Private b_terminar As Button
|
||||
Private p_historial As Panel
|
||||
' Private p_botonesHist As Panel
|
||||
Private l_compraTerminada As Label
|
||||
Private l_carritoVacio As Label
|
||||
Private b_borrar As Button
|
||||
Private l_totalCarrito As Label
|
||||
Private l_historialVacio As Label
|
||||
Private lv_historial As ListView
|
||||
Private clv_mesas As CustomListView
|
||||
Private l_mesaX As Label
|
||||
Private l_estatus As Label
|
||||
Private l_mesa As Label
|
||||
Private p_mesa As Panel
|
||||
Private b_abrirMesa As Button
|
||||
Private cb_comensales As B4XComboBox
|
||||
Private cb_mesero As B4XComboBox
|
||||
Private l_mesero As Label
|
||||
Private l_comensales As Label
|
||||
Private l_pago As Label
|
||||
Private cb_pago As B4XComboBox
|
||||
Private p_mesaCampos As Panel
|
||||
Private p_mesasItem As Panel
|
||||
Private l_comensalesAbierta2 As Label
|
||||
Private l_meseroAbierta2 As Label
|
||||
Private b_mesaEditar As Button
|
||||
Private b_mesaCerrar As Button
|
||||
Private p_mesaAbierta As Panel
|
||||
Private lv_categorias As ListView
|
||||
Private p_pago As Panel
|
||||
Private Label1 As Label
|
||||
Private b_pagoCerrar As Button
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
Public Sub Initialize As Object
|
||||
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
|
||||
Root.LoadLayout("principal")
|
||||
' p_principal.Width = Root.Width
|
||||
' p_principal.Height = Root.Height
|
||||
Subs.panelWH(p_principal, Root.Width, Root.Height)
|
||||
Subs.panelWH(p_mesa, Root.Width, Root.Height - WobbleMenu1.Height)
|
||||
If File.Exists(Starter.ruta, "kmt.db") = False Then
|
||||
File.Copy(File.DirAssets, "kmt.db", Starter.ruta, "kmt.db")
|
||||
End If
|
||||
PCLV.Initialize(Me, "PCLV", clv_prods_ll)
|
||||
PCLVM.Initialize(Me, "PCLVM", clv_mesas)
|
||||
WobbleMenu1.SetTabTextIcon(1,"Mesas", Chr(0xF0C0), Typeface.FONTAWESOME)
|
||||
WobbleMenu1.SetTabTextIcon(2,"Productos", Chr(0xF007), Typeface.FONTAWESOME)
|
||||
WobbleMenu1.SetTabTextIcon(3,"Carrito", Chr(0xF2BE), Typeface.FONTAWESOME)
|
||||
WobbleMenu1.SetTabTextIcon(4,"Historial", Chr(0xF21B), Typeface.FONTAWESOME)
|
||||
' WobbleMenu1.SetTabTextIcon(5,"Cinco", Chr(0xF29D), Typeface.FONTAWESOME)
|
||||
p_principal.Width = Root.Width
|
||||
p_principal.Height = Root.Height
|
||||
clv_prods_ll.GetBase.SetLayoutAnimated(0, 5dip, (l_meseroAbierta2.Top + l_meseroAbierta2.Height + 5), Root.Width + 10, Root.Height * 0.55) 'Cambiamos el tamaño y posición de la lista de productos.
|
||||
clv_prods_ll.Base_Resize(clv_prods_ll.GetBase.Width, clv_prods_ll.GetBase.Height) 'Cambiamos el tamaño del panel interno de la lista para que se ajuste al nuevo tamaño.
|
||||
clv_carrito.GetBase.SetLayoutAnimated(0, 5dip, 80dip, Root.Width - 20, Root.Height * 0.65) 'Cambiamos el tamaño y posición de la lista del carrito.
|
||||
clv_carrito.Base_Resize(clv_carrito.GetBase.Width, clv_carrito.GetBase.Height) 'Cambiamos el tamaño del panel interno del carrito para que se ajuste al nuevo tamaño.
|
||||
clv_mesas.GetBase.SetLayoutAnimated(0, 5dip, 80dip, Root.Width - 20, Root.Height * 0.80) 'Cambiamos el tamaño y posición de la lista de mesas.
|
||||
clv_mesas.Base_Resize(clv_mesas.GetBase.Width, clv_mesas.GetBase.Height) 'Cambiamos el tamaño del panel interno de las mesas para que se ajuste al nuevo tamaño.
|
||||
p_productos.Width = Root.Width
|
||||
p_productos.Height = Root.Height - WobbleMenu1.Height
|
||||
p_carrito.Width = Root.Width
|
||||
p_carrito.Height = Root.Height - WobbleMenu1.Height
|
||||
p_mesas.Width = Root.Width
|
||||
p_mesaAbierta.Height = Root.Height
|
||||
p_mesas.Height = Root.Height - WobbleMenu1.Height
|
||||
p_historial.Width = Root.Width
|
||||
p_historial.Height = Root.Height - WobbleMenu1.Height
|
||||
p_botonesVenta.Top = Root.Height - p_botonesVenta.Height - WobbleMenu1.Height + 10
|
||||
p_botonesCarrito.Top = Root.Height - p_botonesCarrito.Height - WobbleMenu1.Height + 10
|
||||
Subs.centraPanel(p_pago, p_mesaAbierta.Width)
|
||||
Subs.centraBoton(b_abrirMesa, Root.Width)
|
||||
b_mesaCerrar.Top = clv_prods_ll.AsView.top + clv_prods_ll.AsView.Height + 15 ' - b_mesaCerrar.Height
|
||||
' Subs.centraEtiqueta(l_mesa, Root.Width)
|
||||
' Subs.centraEtiqueta(l_comensales, Root.Width)
|
||||
' Subs.centraEtiqueta(l_mesero, Root.Width)
|
||||
Subs.centraPanel(p_mesaCampos, Root.Width)
|
||||
Subs.centraPanel(p_mesaAbierta, Root.Width)
|
||||
Dim ri As Cursor = Starter.skmt.ExecQuery($"select count(*) as cuantos from cat_gunaprod"$)
|
||||
ri.Position = 0
|
||||
If ri.GetString("cuantos") = "0" Then 'Si no hay productos, los descargamos
|
||||
Starter.reqManager.Initialize(Me, Starter.server)
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "selectPedigree"
|
||||
cmd.Parameters = Array As Object(DateTime.Date(DateTime.Now))
|
||||
Log($"Traemos productos, ${DateTime.Date(DateTime.Now)}"$)
|
||||
Starter.reqManager.ExecuteQuery(cmd , 0, "descargaProds")
|
||||
End If
|
||||
query = "cat_gunaprod"
|
||||
prodsMap.Initialize
|
||||
listaProds.Initialize
|
||||
listaHints.Initialize
|
||||
listaHintsM.Initialize
|
||||
p_mesas.Width = Root.Width
|
||||
' Log(p_productos.Width)
|
||||
Subs.panelVisible(p_mesas, 0, 0)
|
||||
cb_comensales.SetItems(Array As String(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20))
|
||||
cb_pago.SetItems(Array As String("Efectivo", "Tarjeta"))
|
||||
cb_mesero.SetItems(Subs.traeMeserosLista)
|
||||
End Sub
|
||||
|
||||
Sub B4XPage_Appear
|
||||
' ticketId = Subs.traeTicket
|
||||
' rutaUsuario = Subs.traeMesa
|
||||
' Log($"${clv_carrito.AsView.Width}, ${Root.Width}"$)
|
||||
clv = clv_prods_ll
|
||||
cuentaProds
|
||||
' LlenaProdsLL(Null, Null)
|
||||
LlenaMesas(Null, Null)
|
||||
LlenaProdsLL(Null, Null)
|
||||
PCLV.lblHint.SetTextSizeAnimated(0,13)
|
||||
PCLV.B4XSeekBar1.Color1=Colors.DarkGray
|
||||
PCLV.B4XSeekBar1.Color2=Colors.DarkGray
|
||||
PCLV.B4XSeekBar1.ThumbColor=Colors.red
|
||||
PCLV.B4XSeekBar1.Radius1 = 15
|
||||
PCLV.B4XSeekBar1.Radius2 = 20
|
||||
PCLV.B4XSeekBar1.mBase.Left=Root.Width * 0.85
|
||||
PCLV.B4XSeekBar1.mBase.Width=50dip
|
||||
' PCLV.B4XSeekBar1.mBase.Top=-50
|
||||
PCLV.B4XSeekBar1.mBase.Height=clv_prods_ll.AsView.Height
|
||||
PCLV.pnlOverlay.Height = clv_prods_ll.AsView.Height
|
||||
PCLV.pnlOverlay.Width = clv_prods_ll.AsView.Width
|
||||
PCLV.B4XSeekBar1.Update
|
||||
If clv_mesas.Size > 0 Then
|
||||
clv_mesas.JumpToItem(0) 'Vamos al primer artículo de la lista.
|
||||
End If
|
||||
PCLVM.lblHint.SetTextSizeAnimated(0,13)
|
||||
PCLVM.B4XSeekBar1.Color1=Colors.DarkGray
|
||||
PCLVM.B4XSeekBar1.Color2=Colors.DarkGray
|
||||
PCLVM.B4XSeekBar1.ThumbColor=Colors.red
|
||||
PCLVM.B4XSeekBar1.Radius1 = 15
|
||||
PCLVM.B4XSeekBar1.Radius2 = 20
|
||||
PCLVM.B4XSeekBar1.mBase.Left=Root.Width * 0.88
|
||||
' PCLVM.B4XSeekBar1.mBase.Top=-50
|
||||
PCLVM.B4XSeekBar1.mBase.Height=clv_mesas.AsView.Height
|
||||
PCLVM.pnlOverlay.Height = clv_mesas.AsView.Height
|
||||
PCLVM.pnlOverlay.Width = clv_mesas.AsView.Width
|
||||
PCLVM.B4XSeekBar1.Update
|
||||
p_productos.Height = Root.Height - WobbleMenu1.Height
|
||||
If et_busca.Text <> "" Then et_busca.Text =""
|
||||
End Sub
|
||||
|
||||
Sub B4XPage_CloseRequest As ResumableSub
|
||||
' BACK key pressed
|
||||
'Return True to close, False to cancel
|
||||
Log(1)
|
||||
If p_mesa.Visible Then
|
||||
p_mesa.Visible = False
|
||||
p_mesas.Visible = True
|
||||
LlenaMesas(Null, Null)
|
||||
Else if p_carrito.Visible Then
|
||||
' p_carrito.Visible = False
|
||||
' p_mesas.Visible = True
|
||||
WobbleMenu1_Tab1Click
|
||||
WobbleMenu1.SetCurrentTab(1)
|
||||
' Else
|
||||
' Subs.iniciaActividad("Login")
|
||||
End If
|
||||
Return False
|
||||
End Sub
|
||||
|
||||
Sub JobDone(Job As HttpJob)
|
||||
If Starter.Logger Then LogColor("Principal - JobDone", Colors.Magenta)
|
||||
If Job.Success = False Then
|
||||
' ToastMessageShow("Error: " & Job.ErrorMessage, True)
|
||||
Else
|
||||
If Starter.Logger Then LogColor("JobDone: '" & Starter.reqManager.HandleJob(Job).tag & "' - Registros: " & Starter.reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211110
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = Starter.reqManager.HandleJob(Job)
|
||||
If result.Tag = "descargaProds" Then 'query tag
|
||||
' If Starter.Logger Then Subs.logJobDoneResultados(result)
|
||||
Starter.skmt.BeginTransaction
|
||||
For Each records() As Object In result.Rows
|
||||
Log($"ID: ${records(result.Columns.Get("CAT_GP_ID"))}, NOM: ${records(result.Columns.Get("CAT_GP_NOMBRE"))}"$)
|
||||
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_PRECIO As String = records(result.Columns.Get("CAT_GP_PRECIO"))
|
||||
Dim CAT_GP_ALMACEN As String = records(result.Columns.Get("CAT_GP_ALMACEN"))
|
||||
Dim CAT_PT_DESC As String = records(result.Columns.Get("CAT_PT_DESC"))
|
||||
Dim CAT_PS_DESC As String = records(result.Columns.Get("CAT_PS_DESC"))
|
||||
Dim CAT_GP_IMG() As Byte = records(result.Columns.Get("CAT_GP_IMG"))
|
||||
Dim CAT_GP_FECHA As String = records(result.Columns.Get("CAT_GP_FECHA"))
|
||||
Dim CAT_GP_FECHA_MOD As String = records(result.Columns.Get("CAT_GP_FECHA_MOD"))
|
||||
Dim CAT_GP_CLASIF As String = records(result.Columns.Get("CAT_GP_CLASIF"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_PRECIO,CAT_GP_ALMACEN,CAT_PT_DESC,CAT_PS_DESC,CAT_GP_IMG,CAT_GP_FECHA,CAT_GP_FECHA_MOD, CAT_GP_CLASIF) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_PRECIO,CAT_GP_ALMACEN,CAT_PT_DESC,CAT_PS_DESC,CAT_GP_IMG,CAT_GP_FECHA,CAT_GP_FECHA_MOD,CAT_GP_CLASIF))
|
||||
Next
|
||||
' Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BFACTURA,CAT_CL_BCREDITO,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_DIAS_VISITA, gestion, IMPRESION) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0,?,0,0) ",Array As Object ("0",e_ruta.TEXT, "VENTA ABORDO","null","null","null","null","null","null","null","null","null","null","null","null","NULL","null","null","NULL","NULL"))
|
||||
Starter.skmt.TransactionSuccessful 'Si no se pone TransactionSuccessful no se escribe NADA!!
|
||||
Starter.skmt.EndTransaction
|
||||
' LlenaProdsLL(Null, Null)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Job.Release
|
||||
End Sub
|
||||
|
||||
Sub b_prodMenos_Click
|
||||
etCantHasFocus = False
|
||||
If WobbleMenu1.GetCurrentTab = 3 Then clv = clv_carrito Else clv = clv_prods_ll
|
||||
' Log(Sender.As(Button).text & "|" & Sender.As(Button).tag)
|
||||
Private buttonTag As String = Sender.As(Button).tag
|
||||
LogColor("b_prodMenos_Click", Colors.Magenta)
|
||||
Dim index As Int = clv.GetItemFromView(Sender)
|
||||
LogColor(clv.GetValue(index), Colors.Magenta)
|
||||
Private inv As Int = clv.GetValue(index).As(Map).Get("almacen")
|
||||
Dim pnl0 As B4XView = clv.GetPanel(index)
|
||||
Log(pnl0.As(Panel))
|
||||
Dim pnl As B4XView = pnl0.GetView(0)
|
||||
Dim laCant As B4XView = pnl.GetView(2).GetView(2)
|
||||
' Log(pnl.GetView(0).NumberOfViews)
|
||||
Dim elNombre As B4XView = pnl.GetView(1)
|
||||
If WobbleMenu1.GetCurrentTab = 3 Then laCant = pnl.GetView(2).GetView(4)
|
||||
Log($"${pnl.GetView(1)}${CRLF}${pnl.GetView(2).GetView(2)}${CRLF}${pnl.GetView(2).GetView(3)}${CRLF}${pnl.GetView(2).GetView(4)}"$)
|
||||
' Log($"precio|stock:${laCant.tag}"$)
|
||||
' Log("lacant.text="&laCant.text & "|" & buttonTag)
|
||||
If buttonTag = "vendido" And laCant.Text > 0 Then
|
||||
Log(clv.GetValue(index).As(Map))
|
||||
clv.GetValue(index).As(Map).Put("almacen",inv + 1)
|
||||
Log(clv.GetValue(index).As(Map))
|
||||
' clv.GetValue(index).As(Map).Get("almacen") = clv.GetValue(index).As(Map).Get("almacen") + 1
|
||||
End If
|
||||
If laCant.Text = "" Then laCant.Text = 0
|
||||
Log($"|${laCant.Text}|"$)
|
||||
laCant.Text = $"$1.0{laCant.Text-1}"$
|
||||
If laCant.Text < 0 Then laCant.Text = 0
|
||||
Private tmpMap As Map = clv.GetValue(index).As(Map)
|
||||
Private precio As String = clv.GetValue(index).As(Map).Get("precio")
|
||||
Private id As String=clv.GetValue(index).As(Map).Get("id")
|
||||
Private tmpMap As Map = CreateMap("precio":precio, "cant":laCant.Text, "almacen":Subs.traeAlmacen)
|
||||
' Log(tmpMap)
|
||||
prodsMap.Put(id, tmpMap)
|
||||
If laCant.Text = 0 Then prodsMap.Remove(id)
|
||||
' LogColor("prodsMap="&prodsMap, Colors.blue)
|
||||
' (Subs.traeAlmacen, p1.Get("precio"), p1.Get("cant"), pn, p, ticketId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta)
|
||||
Private almacenX As String = Subs.traeAlmacen
|
||||
Private nombreX As String = Subs.traeProdNombre(id)
|
||||
Subs.actualizaProducto(almacenX, precio, laCant.text, nombreX, id, Starter.ticketActual, Subs.traeFecha, Subs.traeUsuarioDeBD, Starter.mesaActual, 0, Starter.tipov)
|
||||
cuentaProds
|
||||
Dim cs As CSBuilder
|
||||
cs.Initialize
|
||||
If WobbleMenu1.GetCurrentTab = 3 Then
|
||||
Private elTexto As String = clv.GetValue(index).As(Map).Get("prod")
|
||||
Private elPrecioU As String = clv.GetValue(index).As(Map).Get("precio")
|
||||
Private elTotal As String = elPrecioU * laCant.text
|
||||
elNombre.Text = cs.Color(Colors.red).append(elTexto).pop.append(CRLF).Color(0xFF017F01).Append($"Precio $${NumberFormat2(elTotal, 1, 2, 2, True)}"$).Popall
|
||||
End If
|
||||
' Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$)
|
||||
End Sub
|
||||
|
||||
Sub b_prodMas_Click
|
||||
etCantHasFocus = False
|
||||
If WobbleMenu1.GetCurrentTab = 3 Then clv = clv_carrito Else clv = clv_prods_ll
|
||||
Private buttonTag As String = Sender.As(Button).tag
|
||||
Dim index As Int = clv.GetItemFromView(Sender)
|
||||
LogColor("b_prodMas_Click", Colors.Magenta)
|
||||
Dim pnl0 As B4XView = clv.GetPanel(index)
|
||||
Dim pnl As B4XView = pnl0.GetView(0)
|
||||
Dim laCant As B4XView = pnl.GetView(2).GetView(2)
|
||||
Dim elNombre As B4XView = pnl.GetView(1)
|
||||
If WobbleMenu1.GetCurrentTab = 3 Then laCant = pnl.GetView(2).GetView(4)
|
||||
Log($"${pnl.GetView(2).GetView(1)}${CRLF}${pnl.GetView(2).GetView(2)}${CRLF}${pnl.GetView(2).GetView(3)}${CRLF}${pnl.GetView(2).GetView(4)}"$)
|
||||
If laCant.Text = "" Then laCant.Text = 0
|
||||
' Private tmpMap As Map = clv.GetValue(index).As(Map)
|
||||
Private precio As String=clv.GetValue(index).As(Map).Get("precio")
|
||||
Private inv As Int = clv.GetValue(index).As(Map).Get("almacen")
|
||||
Log($"|${laCant.Text}, ${inv}"$)
|
||||
If buttonTag = "vendido" Then
|
||||
If inv > 0 And (laCant.Text + 1 <= inv) Then
|
||||
' Log(clv.GetValue(index).As(Map))
|
||||
clv.GetValue(index).As(Map).Put("almacen", (inv - 1))
|
||||
inv = inv - 1
|
||||
laCant.Text = $"$1.0{laCant.Text+1}"$
|
||||
' Log(clv.GetValue(index).As(Map))
|
||||
End If
|
||||
else If laCant.Text + 1 <= inv And lfila.Text = "PRODUCTOS" Then
|
||||
' LogColor(inv, Colors.blue)
|
||||
laCant.Text = $"$1.0{laCant.Text + 1}"$
|
||||
Log(Subs.totalPedido)
|
||||
End If
|
||||
Private id As String=clv.GetValue(index).As(Map).Get("id")
|
||||
Private almacenX As String = Subs.traeAlmacen
|
||||
Private nombreX As String = Subs.traeProdNombre(id)
|
||||
Private precioX As String = precio
|
||||
Subs.actualizaProducto(almacenX, precioX, laCant.text, nombreX, id, Starter.ticketActual, Subs.traeFecha, Subs.traeUsuarioDeBD, Starter.mesaActual, 0, Starter.tipov)
|
||||
cuentaProds
|
||||
Dim cs As CSBuilder
|
||||
cs.Initialize
|
||||
If WobbleMenu1.GetCurrentTab = 3 Then
|
||||
Private elTexto As String = clv.GetValue(index).As(Map).Get("prod")
|
||||
Private elPrecioU As String = clv.GetValue(index).As(Map).Get("precio")
|
||||
Private elTotal As String = elPrecioU * laCant.text
|
||||
elNombre.Text = cs.Color(Colors.red).append(elTexto).pop.append(CRLF).Color(0xFF017F01).Append($"Precio $${NumberFormat2(elTotal, 1, 2, 2, True)}"$).Popall
|
||||
End If
|
||||
' Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$)
|
||||
End Sub
|
||||
|
||||
Sub cuentaProds
|
||||
'LogColor($"Productos de la orden: ${c_prodsX.GetString("cantProds")}, Total: ${c_prodsX.GetString("costoTotal")}"$, Colors.red)
|
||||
' Log("===========================")
|
||||
Private c As Cursor = Starter.skmt.ExecQuery($"select sum(PE_COSTO_TOT) as total, sum(PE_CANT) as cant from PEDIDO where PE_TICKET IN (Select cuenta from cuentaa)"$)
|
||||
' LogColor("TIEMPO cuentaProds =" & ((DateTime.Now-inicioContador)/1000), Colors.Red)
|
||||
' LogColor(prodsMap, Colors.Magenta)
|
||||
p_botonesVenta.Visible = True
|
||||
p_botonesVenta.BringToFront
|
||||
c.Position=0
|
||||
' Log(Subs.totalPedido)
|
||||
Private cant0 As String = "0"
|
||||
Private total0 As String = "0"
|
||||
|
||||
If c.GetString("cant") <> Null And c.GetString("cant") <> "null" Then cant0 = c.GetString("cant")
|
||||
If c.GetString("total") <> Null And c.GetString("total") <> "null" Then total0 = c.GetString("total")
|
||||
|
||||
' Log($"Total Prods: ${cant0}, Total Compra: $$1.2{total0}"$)
|
||||
l_totalCarrito.text = $"Total: $${NumberFormat2(total0,1,2,2,True)}"$
|
||||
c.Close
|
||||
If WobbleMenu1.GetCurrentTab = 3 Then LlenaProdsLL(Null, Null)
|
||||
If Subs.hayPedido Then WobbleMenu1.SetBadge(3, 1, Colors.white, Colors.red) Else WobbleMenu1.RemoveBadge(3)
|
||||
End Sub
|
||||
|
||||
Sub LlenaProdsLL(p As ResultSet, extra As String)
|
||||
' Log("LlenaProdsLL")
|
||||
listaProds.Initialize
|
||||
hayPedido = Subs.hayPedido
|
||||
' Log($"HAYPEDIDO: ${hayPedido}"$)
|
||||
If hayPedido Then 'Si hay pedido obtenemos las cantidades de los productos para agregarlos al CLV.
|
||||
Dim cantsMap As Map
|
||||
cantsMap.Initialize
|
||||
Dim pe As ResultSet = Starter.skmt.ExecQuery($"select PE_PROID, PE_CANT from PEDIDO where PE_TICKET = '${Starter.ticketActual}' and PE_CEDIS = '${Subs.traeAlmacen}'"$)
|
||||
'Si EXTRA es igual a rmi, entonces regresamos los RMIs existentes.
|
||||
If extra = "rmi" Then pe = Starter.skmt.ExecQuery($"select PE_PROID, PE_CANT from PEDIDO where PE_TICKET = '${Starter.ticketActual}' and PE_CEDIS = 'DUR'"$)
|
||||
' LogColor("Ponemos productos de pedido anterior: "&pe.RowCount, Colors.red)
|
||||
Do While pe.NextRow
|
||||
Private cant As Int = 0
|
||||
cantsMap.put(pe.GetString("PE_PROID"), pe.GetString("PE_CANT"))
|
||||
Loop
|
||||
' Log($"Con pedido: ${pe.RowCount}"$)
|
||||
' Log("CANTSMAP: " & cantsMap)
|
||||
pe.Close
|
||||
End If
|
||||
' Log(p.IsInitialized)
|
||||
If query = "" Or query = Null Then query = "cat_gunaprod2"
|
||||
If p.IsInitialized Then
|
||||
Log($"YA HAY RESULSET ${p.RowCount}"$)
|
||||
Else
|
||||
' Log("NO HAY RESULSET")
|
||||
Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$)
|
||||
End If
|
||||
' Log(p.RowCount)
|
||||
Do While p.NextRow
|
||||
Private cant As Int = 0
|
||||
' Dim ins As InputStream
|
||||
' Dim bmp As Bitmap
|
||||
' Dim jpeg() As Byte
|
||||
' jpeg = p.GetBlob("CAT_GP_IMG")
|
||||
' ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
|
||||
' bmp.Initialize2(ins)
|
||||
If hayPedido And cantsMap.ContainsKey(p.GetString("CAT_GP_ID")) Then cant = cantsMap.Get(p.GetString("CAT_GP_ID"))
|
||||
Dim tempMap As Map = CreateMap("prod":p.GetString("CAT_GP_NOMBRE"), "precio":p.GetString("CAT_GP_PRECIO"), "almacen":p.GetString("CAT_GP_ALMACEN"), "id":p.GetString("CAT_GP_ID"), "cant":cant, "img":Null)
|
||||
listaProds.Add(tempMap)
|
||||
' Log($"${p.GetString("CAT_GP_ID")}, ${p.GetString("CAT_GP_NOMBRE")}, ${cant}"$)
|
||||
Loop
|
||||
p.Close
|
||||
|
||||
' Log("LISTAPRODS: " & listaProds)
|
||||
PCLV.Commit
|
||||
clv_prods_ll.Clear
|
||||
Private listaProdsConCant, listaProdsConCantIndex As List
|
||||
listaProdsConCant.Initialize
|
||||
listaProdsConCantIndex.Initialize
|
||||
listaHints.Initialize
|
||||
' Log(listaProds)
|
||||
For q = 0 To listaProds.Size - 1' Sacamos los productos con cantidad previa.
|
||||
If listaProds.Get(q).As(Map).Get("cant").As(Int) <> 0 Then
|
||||
' Log(listaProds.Get(q).As(Map).Get("prod"))
|
||||
listaProdsConCant.Add(listaProds.Get(q))
|
||||
listaProdsConCantIndex.Add(q)
|
||||
End If
|
||||
Next
|
||||
' Log("PRODCONCANT: " & listaProdsConCant)
|
||||
' Log(listaProdsConCantIndex)
|
||||
Private cont As Int = 0
|
||||
For pr0=0 To listaProdsConCant.Size - 1 'Agregamos los productos con cantidad previa.
|
||||
Private Pnl As B4XView = xui.CreatePanel("")
|
||||
Pnl.SetLayoutAnimated(0, 0, 0, clv_prods_ll.AsView.Width, 70dip)
|
||||
clv_prods_ll.Add(Pnl, listaProdsConCant.Get(pr0))
|
||||
listaHints.Add(listaProdsConCant.get(pr0).As(Map).Get("prod"))
|
||||
cont = cont + 1
|
||||
Next
|
||||
' LogColor(clv_prods_ll.Size, Colors.red)
|
||||
' Log(listaProds.Size)
|
||||
For pr = 0 To listaProds.Size - 1
|
||||
If listaProdsConCantIndex.IndexOf(pr) = -1 Then
|
||||
Private Pnl As B4XView = xui.CreatePanel("")
|
||||
If listaProds.Get(pr).As(Map).Get("almacen") < 1 Then
|
||||
' Log("EN CERO" & listaProds.Get(pr).As(Map).Get("prod") & "|" & listaProds.Get(pr).As(Map).Get("almacen"))
|
||||
Else
|
||||
Pnl.SetLayoutAnimated(0, 0, 0, clv_prods_ll.AsView.Width, 70dip)
|
||||
' Log(listaProds.Get(pr))
|
||||
clv_prods_ll.Add(Pnl, listaProds.Get(pr))
|
||||
listaHints.Add(listaProds.get(pr).As(Map).Get("prod"))
|
||||
cont = cont + 1
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
' LogColor(clv_prods_ll.Size, Colors.red)
|
||||
' PCLV.Commit
|
||||
' Log("CONT=" & cont)
|
||||
' Log("CLV_PRODSLL="&clv_prods_ll.Size)
|
||||
If clv_prods_ll.Size > 0 Then
|
||||
clv_prods_ll.JumpToItem(0) 'Vamos al primer artículo de la lista.
|
||||
End If
|
||||
PCLV.B4XSeekBar1.MaxValue = clv_prods_ll.Size
|
||||
PCLV.B4XSeekBar1.MinValue = 0
|
||||
PCLV.B4XSeekBar1.Interval = clv_prods_ll.Size/20
|
||||
PCLV.B4XSeekBar1.Value = clv_prods_ll.Size
|
||||
PCLV.B4XSeekBar1.Update
|
||||
' Log($"Min:0, max:${clv_prods_ll.Size}, Interval:${clv_prods_ll.Size/20}"$)
|
||||
reiniciarlistaProds = False
|
||||
End Sub
|
||||
|
||||
Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
|
||||
' Private inicioContador As String = DateTime.Now
|
||||
' Log($"clv_prods_ll_VisibleRangeChanged : ${FirstIndex}, ${LastIndex} "$)
|
||||
Dim ExtraSize As Int = 30 'List size
|
||||
For i = Max(0, FirstIndex - ExtraSize) To Min(LastIndex + ExtraSize, clv_prods_ll.Size - 1)
|
||||
Dim Pnl As B4XView = clv_prods_ll.GetPanel(i)
|
||||
If i > FirstIndex - ExtraSize And i < LastIndex + ExtraSize Then
|
||||
' Log(listaRenglones)
|
||||
' Log(clv_prods_ll.GetValue(i))
|
||||
If Pnl.NumberOfViews = 0 Then 'Add each item/layout to the list/main layout
|
||||
Pnl.LoadLayout("proditem")
|
||||
' p_botMasMen.Left = (p_prods.Width * 0.66) - (p_botMasMen.Width / 2)
|
||||
p_prods.Width = Root.Width * 0.99
|
||||
' p_botMasMen.Left = p_prods.Width - (p_botMasMen.Width + 5)
|
||||
' Log(Root.Width)
|
||||
p_botMasMen.Left = (p_prods.Width - p_botMasMen.Width - 75)
|
||||
' Log(p_botMasMen.left)
|
||||
Private cs As CSBuilder
|
||||
cs.Initialize
|
||||
l_prodX.SetTextSizeAnimated(0, 13)
|
||||
If clv_prods_ll.GetValue(i).As(Map).Get("cant") <> Null And clv_prods_ll.GetValue(i).As(Map).Get("cant") > 0 Then
|
||||
p_prods.Color=0xFFE2EEFF
|
||||
et_pCant.TextColor=Colors.Red
|
||||
' Log("VENDIDO ")
|
||||
b_prodMenos.Tag = "vendido"
|
||||
b_prodMas.Tag = "vendido"
|
||||
End If
|
||||
Private precio As String=NumberFormat2(clv_prods_ll.GetValue(i).As(Map).Get("precio").As(Double),1,2,2,False)
|
||||
If clv_prods_ll.GetValue(i).As(Map).Get("cant") <> Null Then et_pCant.Text = clv_prods_ll.GetValue(i).As(Map).Get("cant")
|
||||
l_prodX.Text = cs.Color(Colors.red).append(clv_prods_ll.GetValue(i).As(Map).Get("prod")).pop.append(CRLF).Color(0xFF017F01).Append($"Precio $${NumberFormat2(precio, 1, 2, 2, True)}"$).Popall
|
||||
l_prodX.Tag = clv_prods_ll.GetValue(i).As(Map).Get("almacen")
|
||||
l_pCant.Tag = clv_prods_ll.GetValue(i).As(Map).Get("id")
|
||||
' Log(clv_prods_ll.GetValue(i).As(Map).Get("id"))
|
||||
' Private rs_img As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_IMG from cat_gunaprod where CAT_GP_ID = '${clv_prods_ll.GetValue(i).As(Map).Get("id")}'"$)
|
||||
i_prod.Bitmap = clv_prods_ll.GetValue(i).As(Map).Get("img")
|
||||
End If
|
||||
' Log($"${i}, ${FirstIndex}, ${LastIndex}, ${Pnl.NumberOfViews}. ${clv_prods_ll.Size}"$)
|
||||
Else 'Not visible
|
||||
' If Pnl.NumberOfViews > 0 Then
|
||||
' Pnl.RemoveAllViews 'Remove none visable item/layouts from the list/main layout
|
||||
' End If
|
||||
End If
|
||||
PCLV.B4XSeekBar1.Value = clv_prods_ll.Size - FirstIndex
|
||||
' Log($"Bar value: ${PCLV.B4XSeekBar1.Value}"$)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Sub et_busca_TextChanged (Old As String, New As String)
|
||||
' Private inicioContador As String = DateTime.Now
|
||||
If New.Length = 1 And Not(forzarBusqueda) Then Return
|
||||
forzarBusqueda = False
|
||||
If lfila.text = "PROMOCIONES" Then
|
||||
' If Not(lv_promos.Visible) Then lv_promos.Visible = True
|
||||
' Private cPromo As Cursor=Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from ${query} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS' AND CAT_GP_TIPOPROD <> 1 and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID)"$)
|
||||
' Log($"res:${cPromo.RowCount}"$)
|
||||
' If cPromo.RowCount > 0 Then
|
||||
' lv_promos.Clear
|
||||
' For i=0 To cPromo.RowCount -1
|
||||
' cPromo.Position=i
|
||||
' Private tm As Map = Subs.procesaPromocion(cPromo.GetString("CAT_GP_ID"), ticketId)
|
||||
' If tm.Get("status") = "ok" Then 'Solo muestrala si hay producto.
|
||||
' lv_promos.AddTwoLines(cPromo.GetString("CAT_GP_NOMBRE"),"# " & cPromo.GetString("CAT_GP_ALMACEN") & " $ " & cPromo.GetString("CAT_GP_PRECIO") & " F:" & tm.Get("mp").As(Map).Get("prodsFijosCant") & " V:" & tm.Get("mp").As(Map).Get("prodsVariablesCant"))
|
||||
' End If
|
||||
' Next
|
||||
' Else
|
||||
' ToastMessageShow("No hay promociones disponibles.", False)
|
||||
' End If
|
||||
' cPromo.Close
|
||||
Else
|
||||
If Not(clv_prods_ll.AsView.Visible) Then clv_prods_ll.AsView.Visible = True
|
||||
clv_prods_ll.Clear
|
||||
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_TIPOPROD, CAT_GP_IMG from cat_gunaprod where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$)
|
||||
Log($"Llamamos LlenaProdsLL con ${p.RowCount} registros"$)
|
||||
LlenaProdsLL(p, Null)
|
||||
p.Close
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub llenaCarrito 'ignore
|
||||
Private totalPedido As String = 0
|
||||
Private cantPedido As String = 0
|
||||
p_mesas.Visible = False
|
||||
' Subs.agrupador
|
||||
' lv_carrito.Clear
|
||||
clv_carrito.Clear
|
||||
list_prodsPedido.Initialize
|
||||
Private c_prods As Cursor=Starter.skmt.ExecQuery("select PE_PRONOMBRE,PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_FOLIO, PE_CEDIS, PE_PROID FROM PEDIDO WHERE PE_TICKET IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_PRONOMBRE")
|
||||
' Log(c_prods.RowCount)
|
||||
If c_prods.RowCount > 0 Then
|
||||
c_prods.Position = 0
|
||||
' lv_carrito.BringToFront
|
||||
clv_carrito.AsView.BringToFront
|
||||
Private cs As CSBuilder
|
||||
For i = 0 To c_prods.RowCount -1
|
||||
cs.Initialize
|
||||
c_prods.Position = i
|
||||
' Dim label1 As Label
|
||||
' lv_carrito.TwoLinesLayout.ItemHeight = 50dip
|
||||
' label1 = lv_carrito.TwoLinesLayout.Label
|
||||
' label1.TextSize = 15
|
||||
' label1.TextColor = Colors.Black
|
||||
' label1.color = Colors.White
|
||||
' label1.Height = 30dip
|
||||
Private textColor As Int = Colors.black 'ignore
|
||||
' Log(c_prods.GetString("PE_CEDIS"))
|
||||
If Not(IsNumber(c_prods.GetString("PE_CEDIS"))) Then textColor = Colors.RGB(210,105,30) 'Si es promo, cambiamos el color del texto.
|
||||
If c_prods.GetString("PE_CEDIS") = "DUR" Then textColor = Colors.red 'Si es promo, cambiamos el color del texto.
|
||||
' Dim label2 As Label
|
||||
' label2 = lv_carrito.TwoLinesLayout.SecondLabel
|
||||
' label2.TextSize = 10
|
||||
' label2.TextColor = Colors.Blue
|
||||
' label2.Tag = i
|
||||
' Log(c_prods.GetString("PE_PRONOMBRE"))
|
||||
' lv_carrito.AddTwoLines(cs.Color(textColor).append(c_prods.GetString("PE_PRONOMBRE")).pop,"Cantidad #"& c_prods.GetString("PE_CANT")& " SubTotal $"& c_prods.GetString("PE_COSTO_TOT")& " Folio "& c_prods.GetString("PE_FOLIO"))
|
||||
Private tempMap As Map = CreateMap("prod":c_prods.GetString("PE_PRONOMBRE"), "almacen":1000, "id": c_prods.GetString("PE_PROID"), "cant": c_prods.GetString("PE_CANT"), "precio": c_prods.GetString("PE_COSTOU"), "precioT": c_prods.GetString("PE_COSTO_TOT"))
|
||||
list_prodsPedido.Add(tempMap)
|
||||
' Private bmp As Bitmap = Subs.traeImgDeDB(c_prods.GetString("PE_PROID"))
|
||||
' Private elTexto As String = cs.Color(Colors.red).append(c_prods.GetString("PE_PRONOMBRE")).pop.append(CRLF).Color(0xFF017F01).Append($"Precio $${NumberFormat2(c_prods.GetString("PE_COSTO_TOT"), 1, 2, 2, True)}"$).Popall
|
||||
clv_carrito.Add(CreateListItem(c_prods.GetString("PE_PRONOMBRE"), c_prods.GetString("PE_CANT"), c_prods.GetString("PE_COSTO_TOT"), 1000, clv_carrito.AsView.Width, 150dip, Null, c_prods.GetString("PE_PROID")), tempMap)
|
||||
folio = 0
|
||||
totalPedido = totalPedido + (c_prods.GetString("PE_COSTOU") * c_prods.GetString("PE_CANT"))
|
||||
cantPedido = cantPedido + c_prods.GetString("PE_CANT")
|
||||
If c_prods.GetString("PE_FOLIO") <> Null Then folio = c_prods.GetString("PE_FOLIO")
|
||||
Next
|
||||
Else
|
||||
l_carritoVacio.Visible = True
|
||||
l_carritoVacio.Text = "No hay productos en tu carrito."
|
||||
End If
|
||||
' Log(list_prodsPedido)
|
||||
c_prods.Close
|
||||
' l_total2.Text = $"$1.2{totalPedido}"$
|
||||
' l_cant.Text = cantPedido
|
||||
' If Subs.revisaImpresa Then b_rechazar.Visible = False Else b_rechazar.Visible = True
|
||||
' p_vistaPreviaTrans.Width = Root.Width
|
||||
' p_vistaPreviaTrans.Height = Root.Height
|
||||
' Subs.centraPanel(p_vistaPrevia, Root.Width)
|
||||
' p_vistaPrevia.Visible=True
|
||||
' p_vistaPreviaTrans.Visible=True
|
||||
End Sub
|
||||
|
||||
'Return the hint that will be displayed when the user fast scrolls the list. It can be a string or CSBuilder.
|
||||
Sub PCLV_HintRequested(Index As Int) As Object
|
||||
Dim word As String = listaHints.get(Index)
|
||||
Return word
|
||||
End Sub
|
||||
|
||||
'Return the hint that will be displayed when the user fast scrolls the list. It can be a string or CSBuilder.
|
||||
Sub PCLVM_HintRequested(Index As Int) As Object
|
||||
Dim word As String = listaHintsM.get(Index)
|
||||
Return word
|
||||
End Sub
|
||||
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||
|
||||
Private Sub WobbleMenu1_Tab1Click
|
||||
LlenaMesas(Null, Null)
|
||||
' LlenaProdsLL(Null, Null)
|
||||
Subs.panelVisible(p_mesas, 0, 0)
|
||||
PCLVM.B4XSeekBar1.mBase.Visible = True
|
||||
PCLV.B4XSeekBar1.mBase.Visible = False
|
||||
p_productos.Visible = False
|
||||
p_carrito.Visible = False
|
||||
p_historial.Visible = False
|
||||
p_mesa.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub WobbleMenu1_Tab2Click
|
||||
LlenaProdsLL(Null, Null)
|
||||
PCLVM.B4XSeekBar1.mBase.Visible = False
|
||||
PCLV.B4XSeekBar1.mBase.BringToFront
|
||||
PCLV.B4XSeekBar1.mBase.Visible = True
|
||||
Subs.panelVisible(p_productos, 0, 0)
|
||||
p_mesas.Visible = False
|
||||
p_carrito.Visible = False
|
||||
p_historial.Visible = False
|
||||
p_mesa.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub WobbleMenu1_Tab3Click
|
||||
PCLVM.B4XSeekBar1.mBase.Visible = False
|
||||
PCLV.B4XSeekBar1.mBase.Visible = False
|
||||
Subs.panelVisible(p_carrito, 0, 0)
|
||||
p_carrito.BringToFront
|
||||
' p_carrito.BringToFront
|
||||
p_productos.Visible = False
|
||||
p_mesas.Visible = False
|
||||
p_historial.Visible = False
|
||||
l_carritoVacio.Visible = False
|
||||
l_compraTerminada.Visible = False
|
||||
p_mesa.Visible = False
|
||||
llenaCarrito
|
||||
If clv_carrito.Size > 0 Then p_botonesCarrito.Visible = True Else p_botonesCarrito.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub WobbleMenu1_Tab4Click
|
||||
Subs.panelVisible(p_historial, 0, 0)
|
||||
p_productos.Visible = False
|
||||
p_carrito.Visible = False
|
||||
p_mesas.Visible = False
|
||||
p_mesa.Visible = False
|
||||
llenaHistorial
|
||||
End Sub
|
||||
|
||||
Private Sub b_continuar_Click
|
||||
WobbleMenu1.SetCurrentTab(2)
|
||||
End Sub
|
||||
|
||||
Private Sub p_botonesVenta_Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub lv_promos_ItemClick (Position As Int, Value As Object)
|
||||
|
||||
End Sub
|
||||
|
||||
'Private Sub p_mesas_Click
|
||||
' 'Para evitar que el clic en pantalla no se siga hacia atras
|
||||
'End Sub
|
||||
|
||||
Private Sub p_historial_Click
|
||||
'Para evitar que el clic en pantalla no se siga hacia atras
|
||||
End Sub
|
||||
|
||||
Private Sub p_carrito_Click
|
||||
'Para evitar que el clic en pantalla no se siga hacia atras
|
||||
End Sub
|
||||
|
||||
Private Sub b_buscar_Click
|
||||
forzarBusqueda = True
|
||||
et_busca_TextChanged("",et_busca.Text)
|
||||
End Sub
|
||||
|
||||
Private Sub b_terminar_Click
|
||||
DateTime.DateFormat= $"yyMMdd-HHmmss-${Starter.ticketActual}"$
|
||||
Private id As String = DateTime.Date(DateTime.Now)
|
||||
Starter.skmt.ExecNonQuery($"insert into cat_hist_compras (H_IDCOMPRA, H_FOLIO, H_MESA, H_CEDIS, H_COSTO_TOT, H_COSTOU, H_CANT, H_PRONOMBRE, H_PROID, H_TICKET, H_FECHA) select '${id}', PE_FOLIO, PE_MESA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_TICKET, PE_FECHA from pedido where PE_TICKET = '${Starter.ticketActual}'"$)
|
||||
Starter.skmt.ExecNonQuery($"delete from pedido where PE_TICKET = '${Starter.ticketActual}'"$)
|
||||
' lv_carrito.Clear
|
||||
clv_carrito.Clear
|
||||
' et_busca_TextChanged("", et_busca.Text)
|
||||
LlenaProdsLL(Null, Null)
|
||||
l_compraTerminada.Text = $"¡Felicidades!${CRLF}${CRLF}Tu compra con número de orden ${id} ha sido registrada.${CRLF}${CRLF}Llegará en tu siguiente día de entrega."$
|
||||
l_compraTerminada.Visible = True
|
||||
l_compraTerminada.BringToFront
|
||||
l_totalCarrito.Text = ""
|
||||
End Sub
|
||||
|
||||
Sub llenaHistorial
|
||||
Dim rs_hist As ResultSet = Starter.skmt.ExecQuery($"Select h_idcompra, sum(h_costo_tot) as total, sum(h_cant) as cantidad, h_fecha from cat_hist_compras group by h_idcompra"$)
|
||||
If rs_hist.RowCount > 0 Then
|
||||
' c_prods.Position = 0
|
||||
' l_total2.Text = c_prods.GetString("PE_COSTO_TOT")
|
||||
' lv_historial.BringToFront
|
||||
Private cs As CSBuilder
|
||||
Do While rs_hist.NextRow
|
||||
' Private rs_do As ResultSet = Starter.skmt.ExecQuery($"select * from CAT_HIST_COMPRAS where H_IDCOMPRA = '${rs_hist.GetString("H_IDCOMPRA")}'"$)
|
||||
cs.Initialize
|
||||
Dim Label1 As Label
|
||||
' lv_historial.TwoLinesLayout.ItemHeight = 50dip
|
||||
Label1 = lv_historial.TwoLinesLayout.Label
|
||||
Label1.TextSize = 16
|
||||
Label1.TextColor = Colors.red
|
||||
Label1.color = Colors.White
|
||||
Label1.Height = 30dip
|
||||
' Private textColor As Int = Colors.black
|
||||
Dim label2 As Label
|
||||
label2 = lv_historial.TwoLinesLayout.SecondLabel
|
||||
label2.TextSize = 14
|
||||
label2.TextColor = Colors.RGB(1,127,1)
|
||||
' Do While rs_do.NextRow
|
||||
' Log($"${rs_do.GetString("H_IDCOMPRA")}, ${rs_do.GetString("H_PRONOMBRE")}, ${rs_do.GetString("H_CANT")}"$)
|
||||
' Loop
|
||||
Private fecha As String = rs_hist.GetString("H_FECHA")
|
||||
fecha = fecha.SubString2(1,10)
|
||||
lv_historial.AddTwoLines("Orden: " & rs_hist.GetString("H_IDCOMPRA"), $"Fecha: ${fecha}, Productos: ${rs_hist.GetString("cantidad")}, Total: $${NumberFormat2(rs_hist.GetString("total"), 1, 2, 2, True)}"$)
|
||||
' totalPedido = totalPedido + (rs_hist.GetString("PE_COSTOU") * rs_hist.GetString("PE_CANT"))
|
||||
' cantPedido = cantPedido + rs_hist.GetString("PE_CANT")
|
||||
Loop
|
||||
' Private c As Cursor = Starter.skmt.ExecQuery("select pc_noart, pc_monto from PEDIDO_TICKET where pc_cliente in (Select CUENTA from cuentaa)")
|
||||
' c.Position=0
|
||||
'' l_cant.Text = c.GetString("PC_NOART")
|
||||
' c.Close
|
||||
Else
|
||||
l_historialVacio.Visible = True
|
||||
l_historialVacio.Text = "No hay ordenes en tu historial."
|
||||
End If
|
||||
rs_hist.Close
|
||||
End Sub
|
||||
|
||||
Sub CreateListItem(Text As String, cant As Int, precioU As String, inv As Int, Width As Int, Height As Int, img As Bitmap, prodId As String) As Panel 'ignore
|
||||
Dim p As B4XView = xui.CreatePanel("")
|
||||
Dim cs As CSBuilder
|
||||
cs.Initialize
|
||||
p.SetLayoutAnimated(0, 0, 0, Width, Height)
|
||||
p.LoadLayout("prodItemCarrito")
|
||||
' i_prod.Bitmap = img
|
||||
l_prodX.TextSize = 15
|
||||
p_prods.Height = Height
|
||||
p_prods.Width = Width - 10
|
||||
' Log($"${clv_carrito.AsView.Width}, ${Root.Width}, ${p_prods.Width}"$)
|
||||
p_botMasMen.Left = p_prods.Width - (p_botMasMen.Width - 75)
|
||||
l_prodX.Height = Height
|
||||
l_prodX.Text = Text&CRLF&"# " & inv & " $ " & precioU
|
||||
l_prodX.Text = cs.Color(Colors.red).append(Text).pop.append(CRLF).Color(0xFF017F01).Append($"Precio $${NumberFormat2(precioU, 1, 2, 2, True)}"$).Popall
|
||||
l_prodX.Tag = $"ID: ${prodId}${CRLF}${Text}${CRLF}Precio: $$1.2{precioU}${CRLF}Inv: ${inv} pzs"$
|
||||
l_pCant.Tag = precioU&"|"&inv&"|"&prodId
|
||||
et_pCant.Tag = precioU&"|"&inv&"|"&prodId
|
||||
et_pCant.Text = cant
|
||||
et_pCant.BringToFront
|
||||
Return p
|
||||
End Sub
|
||||
|
||||
Private Sub b_borrar_Click
|
||||
clv = clv_carrito
|
||||
' Private buttonTag As String = Sender.As(Button).tag
|
||||
Dim index As Int = clv.GetItemFromView(Sender)
|
||||
Msgbox2Async("¿Seguro que deseas borrar este producto?", "Borrar Producto", "Si", "", "No", Null, False)
|
||||
Wait For Msgbox_Result (Result As Int)
|
||||
If Result = DialogResponse.POSITIVE Then
|
||||
LogColor("b_borrar_Click", Colors.Magenta)
|
||||
Private precio As String=clv.GetValue(index).As(Map).Get("precio")
|
||||
' Private inv As Int = clv.GetValue(index).As(Map).Get("almacen")
|
||||
Dim pnl0 As B4XView = clv.GetPanel(index)
|
||||
Dim pnl As B4XView = pnl0.GetView(0)
|
||||
Dim laCant As B4XView = pnl.GetView(2).GetView(2)
|
||||
If WobbleMenu1.GetCurrentTab = 3 Then laCant = pnl.GetView(2).GetView(4)
|
||||
Log(laCant.text)
|
||||
laCant.Text = "0"
|
||||
Private id As String=clv.GetValue(index).As(Map).Get("id")
|
||||
Private almacenX As String = Subs.traeAlmacen
|
||||
Private nombreX As String = Subs.traeProdNombre(id)
|
||||
Private precioX As String = precio
|
||||
Subs.actualizaProducto(almacenX, precioX, laCant.text, nombreX, id, Starter.ticketActual, Subs.traeFecha, Subs.traeUsuarioDeBD, Starter.mesaActual, 0, Starter.tipov)
|
||||
' Log($"${almacenX}, ${precioX}, ${laCant.text}, ${nombreX}, ${id}, ${Starter.ticketActual}, ${Subs.traeFecha}, ${Subs.traeUsuarioDeBD}, ${rutaUsuario}, 0, ${Starter.tipov}"$)
|
||||
cuentaProds
|
||||
llenaCarrito
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub lv_historial_ItemClick (Position As Int, Value As Object)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub clv_mesas_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
|
||||
' Log($"clv_mesa_VisibleRangeChanged : ${FirstIndex}, ${LastIndex} "$)
|
||||
Dim ExtraSize As Int = 30 'List size
|
||||
Private m As Map
|
||||
For i = Max(0, FirstIndex - ExtraSize) To Min(LastIndex + ExtraSize, clv_mesas.Size - 1)
|
||||
Dim Pnl As B4XView = clv_mesas.GetPanel(i)
|
||||
m = clv_mesas.GetValue(i)
|
||||
If i > FirstIndex - ExtraSize And i < LastIndex + ExtraSize Then
|
||||
If Pnl.NumberOfViews = 0 Then 'Add each item/layout to the list/main layout
|
||||
Pnl.LoadLayout("mesasItem")
|
||||
p_mesasItem.Width = Root.Width * 0.99
|
||||
Private cs As CSBuilder
|
||||
cs.Initialize
|
||||
l_mesaX.SetTextSizeAnimated(0, 13)
|
||||
l_estatus.text = "DISPONIBLE"
|
||||
' Log(m)
|
||||
If m.Get("estatus") = "ABIERTA" Then l_estatus.Text = "ABIERTA"
|
||||
If l_estatus.text = "ABIERTA" Then
|
||||
l_mesaX.Text = cs.Color(Colors.red).Size(16).Append($"Mesa ${m.Get("id")}"$).pop.append(CRLF).Color(0xFF017F01).Append($"Comensales ${m.Get("comensales")}"$).Append(" - Mesero ").pop.Color(Colors.red).append(m.Get("mesero")).pop.append(CRLF).Color(Colors.black).Append($"Subtotal. $${NumberFormat2(m.Get("subtotal"), 1,2,2,True)} - Articulos: ${m.Get("articulos")}"$).Popall
|
||||
Else
|
||||
l_mesaX.Text = cs.Color(Colors.red).Size(16).Append($"Mesa ${m.Get("id")}"$).Popall
|
||||
End If
|
||||
l_mesaX.Tag = m
|
||||
p_mesasItem.Tag = m
|
||||
End If
|
||||
Else 'Not visible
|
||||
' If Pnl.NumberOfViews > 0 Then
|
||||
' Pnl.RemoveAllViews 'Remove none visable item/layouts from the list/main layout
|
||||
' End If
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Sub LlenaMesas(p As ResultSet, extra As String) 'ignore
|
||||
' Dim p As ResultSet = Starter.skmt.ExecQuery($"select *, IFNULL(M_ESTATUS, 'DISPONIBLE') as ESTATUS2, IFNULL(M_MESERO, 'NINGUNO') as MESERO, IFNULL(M_COMENSALES, 0) as COMENSALES from cat_mesas"$)
|
||||
|
||||
Dim p As ResultSet = Starter.skmt.ExecQuery($"Select *, IFNULL(M_ESTATUS, 'DISPONIBLE') as ESTATUS2, IFNULL(M_MESERO, 'NINGUNO') as MESERO, IFNULL(M_COMENSALES, 0) as COMENSALES, M_TICKET, IFNULL(PC_MONTO, 0) as SUBTOTAL, IFNULL(PC_NOART, 0) as NO_ARTS from CAT_MESAS left join pedido_ticket on M_TICKET = pc_ticket"$)
|
||||
|
||||
' Log(p.RowCount)
|
||||
PCLVM.Commit
|
||||
clv_mesas.Clear
|
||||
Private m_mesas As Map
|
||||
m_mesas.Initialize
|
||||
Do While p.NextRow
|
||||
Dim tempMap As Map = CreateMap("id":p.GetString("M_ID"), "numero":p.GetString("M_NUMERO"), "nombre":p.GetString("M_NOMBRE"), "zona":p.GetString("M_ZONA"), "ticket":p.GetString("M_TICKET"), "estatus":p.GetString("ESTATUS2"), "mesero":p.GetString("MESERO"), "comensales":p.GetString("COMENSALES"), "subtotal":p.GetString("SUBTOTAL"), "articulos":p.GetString("NO_ARTS"))
|
||||
' m_mesas.Put(p.GetString("M_ID"), tempMap)
|
||||
Private Pnl As B4XView = xui.CreatePanel("")
|
||||
Pnl.SetLayoutAnimated(0, 0, 0, clv_mesas.AsView.Width, 70dip)
|
||||
clv_mesas.Add(Pnl, tempMap)
|
||||
listaHintsM.Add($"Mesa ${p.GetString("M_ID")}"$)
|
||||
Loop
|
||||
p.Close
|
||||
PCLVM.B4XSeekBar1.MaxValue = clv_mesas.Size
|
||||
PCLVM.B4XSeekBar1.MinValue = 0
|
||||
PCLVM.B4XSeekBar1.Interval = clv_mesas.Size/20
|
||||
PCLVM.B4XSeekBar1.Value = clv_mesas.Size
|
||||
PCLVM.B4XSeekBar1.Update
|
||||
reiniciarlistaProds = False
|
||||
End Sub
|
||||
|
||||
'Entramos a la mesa seleccionada.
|
||||
Private Sub p_mesasItem_Click
|
||||
Log(Sender.As(Panel).tag)
|
||||
Subs.panelVisible(p_mesa, 0, 0)
|
||||
Private m As Map = Sender.As(Panel).tag
|
||||
Starter.mesaActual = m.Get("id")
|
||||
Starter.ticketActual = m.Get("ticket")
|
||||
l_mesa.Text = $"MESA NO. ${m.Get("id")}"$
|
||||
Log(m)
|
||||
b_mesaCerrar.Tag = m
|
||||
Starter.skmt.ExecNonQuery("delete from cuentaa")
|
||||
Starter.skmt.ExecNonQuery($"insert into cuentaa (cuenta) values ('${m.Get("ticket")}')"$)
|
||||
LlenaProdsLL(Null, Null)
|
||||
p_mesas.Visible = False
|
||||
cb_mesero.SelectedIndex = 0
|
||||
cb_pago.SelectedIndex = 0
|
||||
cb_comensales.SelectedIndex = 0
|
||||
' Private mesero As String = Subs.traeMesero(m.Get("id"))
|
||||
If m.Get("mesero") <> "NINGUNO" Then cb_mesero.SelectedIndex = cb_mesero.IndexOf(m.Get("mesero"))
|
||||
If m.Get("comensales") <> "0" Then cb_comensales.SelectedIndex = cb_comensales.IndexOf(m.Get("comensales"))
|
||||
' Log(Subs.traeMesaEstatus(m.Get("id")))
|
||||
If Subs.traeMesaEstatus(m.Get("id")) = "CERRADA" Then
|
||||
p_mesaCampos.Visible = True
|
||||
b_abrirMesa.Visible = True
|
||||
p_mesaAbierta.Visible = False
|
||||
Else
|
||||
p_mesaCampos.Visible = False
|
||||
b_abrirMesa.Visible = False
|
||||
p_mesaAbierta.Visible = True
|
||||
p_mesaAbierta.BringToFront
|
||||
l_meseroAbierta2.Text = m.Get("mesero")
|
||||
l_comensalesAbierta2.Text = m.Get("comensales")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub b_abrirMesa_Click
|
||||
If cb_mesero.SelectedIndex <> 0 Then
|
||||
Starter.skmt.ExecNonQuery($"update CAT_MESAS set M_TICKET = '${Subs.traeConsecutivoTicket("ABIERTA", "PENDIENTE")}', M_ESTATUS = 'ABIERTA', M_MESERO = '${cb_mesero.SelectedItem}', M_COMENSALES = '${cb_comensales.SelectedItem}' where M_ID = '${Starter.mesaActual}'"$)
|
||||
Log($"update CAT_MESAS set M_TICKET = '${Subs.traeConsecutivoTicket("ABIERTA", "PENDIENTE")}', M_ESTATUS = 'ABIERTA', M_MESERO = '${cb_mesero.SelectedItem}' where M_ID = '${Starter.mesaActual}'"$)
|
||||
l_comensalesAbierta2.Text = cb_comensales.SelectedItem
|
||||
l_meseroAbierta2.Text = cb_mesero.SelectedItem
|
||||
p_mesaCampos.Visible = False
|
||||
b_abrirMesa.Visible = False
|
||||
p_mesaAbierta.Visible = True
|
||||
Else
|
||||
ToastMessageShow("Es necesario seleccionar un mesero", False)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub p_mesa_Click
|
||||
'Para evitar que el clic en pantalla no se siga hacia atras
|
||||
End Sub
|
||||
|
||||
Private Sub cb_comensales_SelectedIndexChanged (Index As Int)
|
||||
Log(Index)
|
||||
End Sub
|
||||
|
||||
Private Sub cb_mesero_SelectedIndexChanged (Index As Int)
|
||||
Log(Index)
|
||||
End Sub
|
||||
|
||||
Private Sub b_mesaCerrar_Click
|
||||
Log("Cerrar")
|
||||
Log(Sender.As(Button).tag)
|
||||
p_pago.BringToFront
|
||||
p_pago.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub b_mesaEditar_Click
|
||||
p_mesaCampos.Visible = True
|
||||
b_abrirMesa.Visible = True
|
||||
p_mesaAbierta.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub p_mesaAbierta_Click
|
||||
'Para evitar que el clic en pantalla no se siga hacia atras
|
||||
End Sub
|
||||
|
||||
Private Sub lv_categorias_ItemClick (Position As Int, Value As Object)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub p_pago_Click
|
||||
'Para evitar que el clic en pantalla no se siga hacia atras
|
||||
End Sub
|
||||
|
||||
Private Sub b_pagoCerrar_Click
|
||||
p_pago.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub cb_pago_SelectedIndexChanged (Index As Int)
|
||||
Log(cb_pago.SelectedItem)
|
||||
End Sub
|
||||
277
B4A/DBRequestManager.bas
Normal file
277
B4A/DBRequestManager.bas
Normal file
@@ -0,0 +1,277 @@
|
||||
B4A=true
|
||||
Group=Default Group
|
||||
ModulesStructureVersion=1
|
||||
Type=Class
|
||||
Version=6.8
|
||||
@EndOfDesignText@
|
||||
'Necesita la libreria RandomAccessFile
|
||||
|
||||
'Class module
|
||||
Sub Class_Globals
|
||||
Private mTarget As Object
|
||||
Type DBResult (Tag As Object, Columns As Map, Rows As List)
|
||||
Type DBCommand (Name As String, Parameters() As Object)
|
||||
Private link As String
|
||||
Private bc As ByteConverter
|
||||
Private T_NULL = 0, T_STRING = 1, T_SHORT = 2, T_INT = 3, T_LONG = 4, T_FLOAT = 5 _
|
||||
,T_DOUBLE = 6, T_BOOLEAN = 7, T_BLOB = 8 As Byte
|
||||
Private VERSION As Float = 0.9
|
||||
Private tempArray(1) As Object
|
||||
Dim jobTagAnterior As String = "" 'Mod por CHV - 211027
|
||||
Dim logger As Boolean = False
|
||||
End Sub
|
||||
|
||||
'Target - The module that handles JobDone (usually Me).
|
||||
'ConnectorLink - URL of the Java server.
|
||||
Public Sub Initialize (Target As Object, ConnectorLink As String)
|
||||
mTarget = Target
|
||||
link = ConnectorLink
|
||||
End Sub
|
||||
|
||||
'Sends a query request.
|
||||
'Command - Query name and parameters.
|
||||
'Limit - Maximum rows to return or 0 for no limit.
|
||||
'Tag - An object that will be returned in the result.
|
||||
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)
|
||||
|
||||
WriteObject(Command.Name, out2)
|
||||
WriteInt(Limit, out2)
|
||||
WriteList(Command.Parameters, out2)
|
||||
out2.Close
|
||||
j.PostBytes(link & "?method=query", ms.ToBytesArray)
|
||||
End Sub
|
||||
|
||||
'Executes a batch of (non-select) commands.
|
||||
'ListOfCommands - List of the commands that will be executes.
|
||||
'Tag - An object that will be returned in the result.
|
||||
Public Sub ExecuteBatch(ListOfCommands As List, Tag As Object)
|
||||
Dim j As HttpJob
|
||||
Dim ms As OutputStream
|
||||
Dim out2 As OutputStream = StartJob(j,ms, Tag)
|
||||
WriteInt(ListOfCommands.Size, out2)
|
||||
For Each Command As DBCommand In ListOfCommands
|
||||
WriteObject(Command.Name, out2)
|
||||
WriteList(Command.Parameters, out2)
|
||||
Next
|
||||
out2.Close
|
||||
j.PostBytes(link & "?method=batch", ms.ToBytesArray)
|
||||
End Sub
|
||||
|
||||
'Similar to ExecuteBatch. Sends a single command.
|
||||
Public Sub ExecuteCommand(Command As DBCommand, Tag As Object)
|
||||
ExecuteBatch(Array As DBCommand(Command), Tag)
|
||||
End Sub
|
||||
|
||||
Private Sub StartJob(j As HttpJob, MemoryStream As OutputStream, Tag As Object) As OutputStream
|
||||
j.Initialize("DBRequest", mTarget)
|
||||
j.Tag = Tag
|
||||
MemoryStream.InitializeToBytesArray(0)
|
||||
Dim compress As CompressedStreams
|
||||
Dim out As OutputStream = compress.WrapOutputStream(MemoryStream, "gzip")
|
||||
WriteObject(VERSION, out)
|
||||
Return out
|
||||
End Sub
|
||||
|
||||
Private Sub WriteList(Parameters As List, out As OutputStream)
|
||||
Dim data() As Byte
|
||||
If Parameters = Null Or Parameters.IsInitialized = False Then
|
||||
Dim Parameters As List
|
||||
Parameters.Initialize
|
||||
End If
|
||||
data = bc.IntsToBytes(Array As Int(Parameters.Size))
|
||||
out.WriteBytes(data, 0, data.Length)
|
||||
For Each o As Object In Parameters
|
||||
WriteObject(o, out)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub WriteObject(o As Object, out As OutputStream)
|
||||
Dim data() As Byte
|
||||
tempArray(0) = o
|
||||
If tempArray(0) = Null Then
|
||||
out.WriteBytes(Array As Byte(T_NULL), 0, 1)
|
||||
Else If tempArray(0) Is Short Then
|
||||
out.WriteBytes(Array As Byte(T_SHORT), 0, 1)
|
||||
data = bc.ShortsToBytes(Array As Short(o))
|
||||
Else If tempArray(0) Is Int Then
|
||||
out.WriteBytes(Array As Byte(T_INT), 0, 1)
|
||||
data = bc.IntsToBytes(Array As Int(o))
|
||||
Else If tempArray(0) Is Float Then
|
||||
out.WriteBytes(Array As Byte(T_FLOAT), 0, 1)
|
||||
data = bc.FloatsToBytes(Array As Float(o))
|
||||
Else If tempArray(0) Is Double Then
|
||||
out.WriteBytes(Array As Byte(T_DOUBLE), 0, 1)
|
||||
data = bc.DoublesToBytes(Array As Double(o))
|
||||
Else If tempArray(0) Is Long Then
|
||||
out.WriteBytes(Array As Byte(T_LONG), 0, 1)
|
||||
data = bc.LongsToBytes(Array As Long(o))
|
||||
Else If tempArray(0) Is Boolean Then
|
||||
out.WriteBytes(Array As Byte(T_BOOLEAN), 0, 1)
|
||||
Dim b As Boolean = 0
|
||||
Dim data(1) As Byte
|
||||
If b Then data(0) = 1 Else data(0) = 0
|
||||
Else If GetType(tempArray(0)) = "[B" Then
|
||||
data = o
|
||||
out.WriteBytes(Array As Byte(T_BLOB), 0, 1)
|
||||
WriteInt(data.Length, out)
|
||||
Else 'If o Is String Then (treat all other values as string)
|
||||
out.WriteBytes(Array As Byte(T_STRING), 0, 1)
|
||||
data = bc.StringToBytes(o, "UTF8")
|
||||
WriteInt(data.Length, out)
|
||||
End If
|
||||
If data.Length > 0 Then out.WriteBytes(data, 0, data.Length)
|
||||
End Sub
|
||||
|
||||
Private Sub ReadObject(In As InputStream) As Object
|
||||
Dim data(1) As Byte
|
||||
In.ReadBytes(data, 0, 1)
|
||||
Select data(0)
|
||||
Case T_NULL
|
||||
Return Null
|
||||
Case T_SHORT
|
||||
Dim data(2) As Byte
|
||||
Return bc.ShortsFromBytes(ReadBytesFully(In, data, data.Length))(0)
|
||||
Case T_INT
|
||||
Dim data(4) As Byte
|
||||
Return bc.IntsFromBytes(ReadBytesFully(In, data, data.Length))(0)
|
||||
Case T_LONG
|
||||
Dim data(8) As Byte
|
||||
Return bc.LongsFromBytes(ReadBytesFully(In, data, data.Length))(0)
|
||||
Case T_FLOAT
|
||||
Dim data(4) As Byte
|
||||
Return bc.FloatsFromBytes(ReadBytesFully(In, data, data.Length))(0)
|
||||
Case T_DOUBLE
|
||||
Dim data(8) As Byte
|
||||
Return bc.DoublesFromBytes(ReadBytesFully(In, data, data.Length))(0)
|
||||
Case T_BOOLEAN
|
||||
Dim b As Byte = ReadByte(In)
|
||||
Return b = 1
|
||||
Case T_BLOB
|
||||
Dim len As Int = ReadInt(In)
|
||||
Dim data(len) As Byte
|
||||
Return ReadBytesFully(In, data, data.Length)
|
||||
Case Else
|
||||
Dim len As Int = ReadInt(In)
|
||||
Dim data(len) As Byte
|
||||
ReadBytesFully(In, data, data.Length)
|
||||
Return BytesToString(data, 0, data.Length, "UTF8")
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub ReadBytesFully(In As InputStream, Data() As Byte, Len As Int) As Byte()
|
||||
Dim count = 0, read As Int
|
||||
Do While count < Len And read > -1
|
||||
read = In.ReadBytes(Data, count, Len - count)
|
||||
count = count + read
|
||||
Loop
|
||||
Return Data
|
||||
End Sub
|
||||
|
||||
Private Sub WriteInt(i As Int, out As OutputStream)
|
||||
Dim data() As Byte
|
||||
data = bc.IntsToBytes(Array As Int(i))
|
||||
out.WriteBytes(data, 0, data.Length)
|
||||
End Sub
|
||||
|
||||
Private Sub ReadInt(In As InputStream) As Int
|
||||
Dim data(4) As Byte
|
||||
Return bc.IntsFromBytes(ReadBytesFully(In, data, data.Length))(0)
|
||||
End Sub
|
||||
|
||||
Private Sub ReadByte(In As InputStream) As Byte
|
||||
Dim data(1) As Byte
|
||||
In.ReadBytes(data, 0, 1)
|
||||
Return data(0)
|
||||
End Sub
|
||||
|
||||
'Handles the Job result and returns a DBResult.
|
||||
Public Sub HandleJob(Job As HttpJob) As DBResult
|
||||
' Dim start As Long = DateTime.Now
|
||||
Dim In As InputStream = Job.GetInputStream
|
||||
Dim cs As CompressedStreams
|
||||
If Starter.Logger Then logger = Starter.Logger
|
||||
In = cs.WrapInputStream(In, "gzip")
|
||||
Dim serverVersion As Float = ReadObject(In) 'ignore
|
||||
Dim method As String = ReadObject(In)
|
||||
Dim table As DBResult
|
||||
table.Initialize
|
||||
table.Columns.Initialize
|
||||
table.rows.Initialize
|
||||
table.Tag = Job.Tag
|
||||
If jobTagAnterior <> Job.Tag Then LogColor("HandleJob: '"&Job.Tag&"'", Colors.Blue) 'Mod por CHV - 211023
|
||||
jobTagAnterior = Job.Tag 'Mod por CHV - 211023
|
||||
If method = "query" Then
|
||||
Dim numberOfColumns As Int = ReadInt(In)
|
||||
For i = 0 To numberOfColumns - 1
|
||||
table.Columns.Put(ReadObject(In), i)
|
||||
Next
|
||||
Do While ReadByte(In) = 1
|
||||
Dim rowObjects(numberOfColumns) As Object
|
||||
table.rows.Add(rowObjects)
|
||||
For col = 0 To numberOfColumns - 1
|
||||
Dim o As Object = ReadObject(In)
|
||||
rowObjects(col) = o
|
||||
Next
|
||||
Loop
|
||||
Else If method = "batch" Then
|
||||
table.Columns.Put("AffectedRows", 0)
|
||||
Dim rows As Int = ReadInt(In)
|
||||
For i = 0 To rows - 1
|
||||
table.rows.Add(Array As Object(ReadInt(In)))
|
||||
Next
|
||||
End If
|
||||
In.Close
|
||||
' Log("HandleJob: " & (DateTime.Now - start))
|
||||
Return table
|
||||
End Sub
|
||||
'Reads a file and returns the file as a bytes array.
|
||||
Public Sub FileToBytes(Dir As String, FileName As String) As Byte()
|
||||
Dim out As OutputStream
|
||||
out.InitializeToBytesArray(0)
|
||||
Dim In As InputStream = File.OpenInput(Dir, FileName)
|
||||
File.Copy2(In, out)
|
||||
out.Close
|
||||
Return out.ToBytesArray
|
||||
End Sub
|
||||
|
||||
'Converts an image to a bytes array (for BLOB fields).
|
||||
Public Sub ImageToBytes(Image As Bitmap) As Byte()
|
||||
Dim out As OutputStream
|
||||
out.InitializeToBytesArray(0)
|
||||
Image.WriteToStream(out, 100, "JPEG")
|
||||
out.Close
|
||||
Return out.ToBytesArray
|
||||
End Sub
|
||||
|
||||
'Converts a bytes array to an image (for BLOB fields).
|
||||
Public Sub BytesToImage(bytes() As Byte) As Bitmap
|
||||
Dim In As InputStream
|
||||
In.InitializeFromBytesArray(bytes, 0, bytes.Length)
|
||||
Dim bmp As Bitmap
|
||||
bmp.Initialize2(In)
|
||||
Return bmp
|
||||
End Sub
|
||||
|
||||
'Prints the table to the logs.
|
||||
Public Sub PrintTable(Table As DBResult)
|
||||
Log("Tag: " & Table.Tag & ", Columns: " & Table.Columns.Size & ", Rows: " & Table.Rows.Size)
|
||||
Dim sb As StringBuilder
|
||||
sb.Initialize
|
||||
For Each col In Table.Columns.Keys
|
||||
sb.Append(col).Append(TAB)
|
||||
Next
|
||||
Log(sb.ToString)
|
||||
For Each row() As Object In Table.Rows
|
||||
Dim sb As StringBuilder
|
||||
sb.Initialize
|
||||
For Each record As Object In row
|
||||
sb.Append(record).Append(TAB)
|
||||
Next
|
||||
ToastMessageShow(sb.ToString, True)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
|
||||
BIN
B4A/Files/candado.png
Normal file
BIN
B4A/Files/candado.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 17 KiB |
BIN
B4A/Files/durakelo.png
Normal file
BIN
B4A/Files/durakelo.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 6.9 KiB |
BIN
B4A/Files/engrane.png
Normal file
BIN
B4A/Files/engrane.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.8 KiB |
BIN
B4A/Files/engranes.png
Normal file
BIN
B4A/Files/engranes.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.7 KiB |
BIN
B4A/Files/kmt.db
Normal file
BIN
B4A/Files/kmt.db
Normal file
Binary file not shown.
BIN
B4A/Files/login.bal
Normal file
BIN
B4A/Files/login.bal
Normal file
Binary file not shown.
BIN
B4A/Files/logo.png
Normal file
BIN
B4A/Files/logo.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 6.6 KiB |
BIN
B4A/Files/mainpage.bal
Normal file
BIN
B4A/Files/mainpage.bal
Normal file
Binary file not shown.
BIN
B4A/Files/mesasitem.bal
Normal file
BIN
B4A/Files/mesasitem.bal
Normal file
Binary file not shown.
BIN
B4A/Files/principal.bal
Normal file
BIN
B4A/Files/principal.bal
Normal file
Binary file not shown.
BIN
B4A/Files/proditem.bal
Normal file
BIN
B4A/Files/proditem.bal
Normal file
Binary file not shown.
BIN
B4A/Files/proditemcarrito.bal
Normal file
BIN
B4A/Files/proditemcarrito.bal
Normal file
Binary file not shown.
BIN
B4A/Files/usuario.png
Normal file
BIN
B4A/Files/usuario.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 17 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 15 KiB |
123
B4A/MarketPlace.b4a
Normal file
123
B4A/MarketPlace.b4a
Normal file
@@ -0,0 +1,123 @@
|
||||
Build1=Default,mp.keymon.lat,HU2_PUBLIC
|
||||
File1=candado.png
|
||||
File10=mesasItem.bal
|
||||
File11=principal.bal
|
||||
File12=proditem.bal
|
||||
File13=proditemCarrito.bal
|
||||
File14=usuario.png
|
||||
File15=vecteezy_white-diagonal-stripes-with-red-line-isolated-on-white_12833309-[Convertido].png
|
||||
File2=durakelo.png
|
||||
File3=engrane.png
|
||||
File4=engranes.png
|
||||
File5=fondoblanco.png
|
||||
File6=kmt.db
|
||||
File7=login.bal
|
||||
File8=logo.png
|
||||
File9=MainPage.bal
|
||||
FileGroup1=Default Group
|
||||
FileGroup10=Default Group
|
||||
FileGroup11=Default Group
|
||||
FileGroup12=Default Group
|
||||
FileGroup13=Default Group
|
||||
FileGroup14=Default Group
|
||||
FileGroup15=Default Group
|
||||
FileGroup2=Default Group
|
||||
FileGroup3=Default Group
|
||||
FileGroup4=Default Group
|
||||
FileGroup5=Default Group
|
||||
FileGroup6=Default Group
|
||||
FileGroup7=Default Group
|
||||
FileGroup8=Default Group
|
||||
FileGroup9=Default Group
|
||||
Group=Default Group
|
||||
Library1=appupdating
|
||||
Library10=wobblemenu
|
||||
Library11=preoptimizedclv
|
||||
Library2=b4xpages
|
||||
Library3=byteconverter
|
||||
Library4=compressstrings
|
||||
Library5=core
|
||||
Library6=json
|
||||
Library7=okhttputils2
|
||||
Library8=randomaccessfile
|
||||
Library9=sql
|
||||
ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="31"/>~\n~<supports-screens android:largeScreens="true" ~\n~ android:normalScreens="true" ~\n~ android:smallScreens="true" ~\n~ android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")
|
||||
Module1=B4XMainPage
|
||||
Module2=C_Principal
|
||||
Module3=DBRequestManager
|
||||
Module4=errorManager
|
||||
Module5=Starter
|
||||
Module6=Subs
|
||||
NumberOfFiles=15
|
||||
NumberOfLibraries=11
|
||||
NumberOfModules=6
|
||||
Version=12.5
|
||||
@EndOfDesignText@
|
||||
#Region Project Attributes
|
||||
#ApplicationLabel: MarketPlace
|
||||
#VersionCode: 1
|
||||
#VersionName: 3.07.20
|
||||
'SupportedOrientations possible values: unspecified, landscape or portrait.
|
||||
#SupportedOrientations: portrait
|
||||
#CanInstallToExternalStorage: False
|
||||
#End Region
|
||||
|
||||
#Region Activity Attributes
|
||||
#FullScreen: false
|
||||
#IncludeTitle: false
|
||||
#End Region
|
||||
|
||||
'#BridgeLogger: True
|
||||
|
||||
Sub Process_Globals
|
||||
Public ActionBarHomeClicked As Boolean
|
||||
End Sub
|
||||
|
||||
Sub Globals
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Activity_Create(FirstTime As Boolean)
|
||||
Dim pm As B4XPagesManager
|
||||
pm.Initialize(Activity)
|
||||
End Sub
|
||||
|
||||
'Template version: B4A-1.01
|
||||
#Region Delegates
|
||||
|
||||
Sub Activity_ActionBarHomeClick
|
||||
ActionBarHomeClicked = True
|
||||
B4XPages.Delegate.Activity_ActionBarHomeClick
|
||||
ActionBarHomeClicked = False
|
||||
End Sub
|
||||
|
||||
Sub Activity_KeyPress (KeyCode As Int) As Boolean
|
||||
Return B4XPages.Delegate.Activity_KeyPress(KeyCode)
|
||||
End Sub
|
||||
|
||||
Sub Activity_Resume
|
||||
B4XPages.Delegate.Activity_Resume
|
||||
End Sub
|
||||
|
||||
Sub Activity_Pause (UserClosed As Boolean)
|
||||
B4XPages.Delegate.Activity_Pause
|
||||
End Sub
|
||||
|
||||
Sub Activity_PermissionResult (Permission As String, Result As Boolean)
|
||||
B4XPages.Delegate.Activity_PermissionResult(Permission, Result)
|
||||
End Sub
|
||||
|
||||
Sub Create_Menu (Menu As Object)
|
||||
B4XPages.Delegate.Create_Menu(Menu)
|
||||
End Sub
|
||||
|
||||
#if Java
|
||||
public boolean _onCreateOptionsMenu(android.view.Menu menu) {
|
||||
processBA.raiseEvent(null, "create_menu", menu);
|
||||
return true;
|
||||
|
||||
}
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
'Program code should go into B4XMainPage and other pages.
|
||||
24
B4A/MarketPlace.b4a.meta
Normal file
24
B4A/MarketPlace.b4a.meta
Normal file
@@ -0,0 +1,24 @@
|
||||
ModuleBookmarks0=
|
||||
ModuleBookmarks1=
|
||||
ModuleBookmarks2=
|
||||
ModuleBookmarks3=
|
||||
ModuleBookmarks4=
|
||||
ModuleBookmarks5=
|
||||
ModuleBookmarks6=
|
||||
ModuleBreakpoints0=
|
||||
ModuleBreakpoints1=
|
||||
ModuleBreakpoints2=
|
||||
ModuleBreakpoints3=
|
||||
ModuleBreakpoints4=
|
||||
ModuleBreakpoints5=
|
||||
ModuleBreakpoints6=
|
||||
ModuleClosedNodes0=
|
||||
ModuleClosedNodes1=
|
||||
ModuleClosedNodes2=
|
||||
ModuleClosedNodes3=14
|
||||
ModuleClosedNodes4=
|
||||
ModuleClosedNodes5=6
|
||||
ModuleClosedNodes6=68
|
||||
NavigationStack=C_Principal,b_prodMas_Click,287,0,C_Principal,Class_Globals,64,0,C_Principal,p_pago_Click,950,0,Visual Designer,principal.bal,-100,6,C_Principal,B4XPage_Created,111,4,C_Principal,cb_mesero_SelectedIndexChanged,927,0,C_Principal,cb_pago_SelectedIndexChanged,959,3,C_Principal,b_pagoCerrar_Click,956,1,C_Principal,lv_categorias_ItemClick,948,0,C_Principal,p_mesaAbierta_Click,944,0,C_Principal,b_mesaEditar_Click,940,0
|
||||
SelectedBuild=0
|
||||
VisibleModules=1,5,6,2
|
||||
120
B4A/Starter.bas
Normal file
120
B4A/Starter.bas
Normal file
@@ -0,0 +1,120 @@
|
||||
B4A=true
|
||||
Group=Default Group
|
||||
ModulesStructureVersion=1
|
||||
Type=Service
|
||||
Version=9.85
|
||||
@EndOfDesignText@
|
||||
#Region Service Attributes
|
||||
#StartAtBoot: False
|
||||
#ExcludeFromLibrary: True
|
||||
#End Region
|
||||
|
||||
Sub Process_Globals
|
||||
'These global variables will be declared once when the application starts.
|
||||
'These variables can be accessed from all modules.
|
||||
Public rp As RuntimePermissions
|
||||
Dim reqManager As DBRequestManager
|
||||
Dim skmt, errorLog As SQL
|
||||
Dim server, ruta As String
|
||||
'Para los Logs
|
||||
Dim logs As StringBuilder
|
||||
Private logcat As LogCat
|
||||
Dim Logger As Boolean
|
||||
Dim rutav As String = ""
|
||||
Dim tipov As String = "VENTA"
|
||||
Dim mesaActual As String
|
||||
Dim ticketActual As String
|
||||
End Sub
|
||||
|
||||
Sub Service_Create
|
||||
'This is the program entry point.
|
||||
'This is a good place to load resources that are not specific to a single activity.
|
||||
If Logger Then LogColor("'/////////////////////////////////////////////////////////////////////////////////////////////", Colors.Green)
|
||||
If Logger Then LogColor("'///////////////////////////////////// Iniciamos Starter /////////////////////////////////", Colors.Green)
|
||||
If Logger Then LogColor("'/////////////////////////////////////////////////////////////////////////////////////////////", Colors.Green)
|
||||
ruta = File.DirInternal
|
||||
If File.Exists(ruta, "kmt.db") = False Then
|
||||
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
|
||||
End If
|
||||
skmt.Initialize(ruta,"kmt.db", True)
|
||||
'Para los Logs
|
||||
#if RELEASE
|
||||
logcat.LogCatStart(Array As String("-v","raw","*:F","B4A:v"), "logcat")
|
||||
#end if
|
||||
logs.Initialize
|
||||
server = "http://keymon.lat:1782"
|
||||
If Logger Then Log($"Starter reqManager server: ${server}"$)
|
||||
Logger = False
|
||||
End Sub
|
||||
|
||||
Sub Service_Start (StartingIntent As Intent)
|
||||
Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
|
||||
reqManager.Initialize(Me, server)
|
||||
Subs.revisaBD
|
||||
#if DEBUG
|
||||
Logger = True
|
||||
#else
|
||||
Logger = False
|
||||
#End If
|
||||
End Sub
|
||||
|
||||
Sub Service_TaskRemoved
|
||||
'This event will be raised when the user removes the app from the recent apps list.
|
||||
End Sub
|
||||
|
||||
'Return true to allow the OS default exceptions handler to handle the uncaught exception. 'Para los Logs
|
||||
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
|
||||
'wait for 500ms to allow the logs to be updated.
|
||||
Dim jo As JavaObject
|
||||
Dim l As Long = 500: jo.InitializeStatic("java.lang.Thread").RunMethod("sleep", Array(l)) 'Sleep 500ms
|
||||
logcat.LogCatStop
|
||||
logs.Initialize
|
||||
logs.Append("Ver " & Application.VersionName & CRLF)
|
||||
logs.Append("R:" & rutav & CRLF)
|
||||
logs.Append(StackTrace)
|
||||
Subs.revisaBD
|
||||
Subs.errorLog.ExecNonQuery2("INSERT INTO errores(fecha, error) VALUES (?,?)", Array As Object (Subs.fechaKMT(DateTime.now), logs))
|
||||
StartActivity(errorManager)
|
||||
Return True
|
||||
End Sub
|
||||
|
||||
Sub Service_Destroy
|
||||
' Timer1.Enabled=False
|
||||
If Logger Then LogColor("starter destroyed", Colors.red)
|
||||
End Sub
|
||||
|
||||
Sub reinicializaReqManager
|
||||
reqManager.Initialize(Me, server)
|
||||
If Logger Then Log(server)
|
||||
End Sub
|
||||
|
||||
Sub JobDone(Job As HttpJob)
|
||||
LogColor("Starter - JobDone", Colors.Magenta)
|
||||
If Job.Success = False Then
|
||||
' ToastMessageShow("Error: " & Job.ErrorMessage, True)
|
||||
Else
|
||||
If Logger Then LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211110
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "updateKell_UTR" Then 'query tag
|
||||
If Logger Then Subs.logJobDoneResultados(result)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Job.Release
|
||||
End Sub
|
||||
|
||||
'Para los Logs
|
||||
Private Sub logcat_LogCatData (Buffer() As Byte, Length As Int)
|
||||
logs.Append(BytesToString(Buffer, 0, Length, "utf8"))
|
||||
If logs.Length > 4000 Then
|
||||
logs.Remove(0, logs.Length - 2000) 'Obtenemos log de 2000 ~ 4000 chars
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Revisa que la conexion a la base de datos este bien.
|
||||
Sub revisaBD 'ignore
|
||||
If Logger Then Log("revisaBD")
|
||||
If Not(File.Exists(ruta, "kmt.db")) Then File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
|
||||
If Not(skmt.IsInitialized) Then skmt.Initialize(ruta, "kmt.db", True)
|
||||
End Sub
|
||||
1408
B4A/Subs.bas
Normal file
1408
B4A/Subs.bas
Normal file
File diff suppressed because it is too large
Load Diff
167
B4A/errorManager.bas
Normal file
167
B4A/errorManager.bas
Normal file
@@ -0,0 +1,167 @@
|
||||
B4A=true
|
||||
Group=Default Group
|
||||
ModulesStructureVersion=1
|
||||
Type=Activity
|
||||
Version=10.2
|
||||
@EndOfDesignText@
|
||||
#Region Activity Attributes
|
||||
#FullScreen: False
|
||||
#IncludeTitle: True
|
||||
#End Region
|
||||
'******************************************************************************
|
||||
'Este modulo intercepta los errores de la aplicación mediante "Starter.Application_Error" y muestra una pantalla
|
||||
'con el log del error y lo manda al servidor con un query de DBRequestManager, se necesita que exista el query
|
||||
'en el "config.properties" llamado "guardaErrores" y que tenga el siguiente texto:
|
||||
'
|
||||
'sql.guardaErrores=INSERT INTO KELLOGGS.PUSH_INFO (ID, RUTA, FECHA, DATOS) VALUES((?),(?),(?),(?))
|
||||
'
|
||||
'Agregar estas lineas a "Starter.Process_Globals"
|
||||
' 'Para los Logs
|
||||
' Dim logs As StringBuilder
|
||||
' Private logcat As LogCat
|
||||
'
|
||||
'Agregar estas lineas a "Starter.Service_Create"
|
||||
' 'Para los Logs
|
||||
' #if RELEASE
|
||||
' logcat.LogCatStart(Array As String("-v","raw","*:F","B4A:v"), "logcat")
|
||||
' #end if
|
||||
' logs.Initialize
|
||||
'
|
||||
'Agregar este Sub a "Starter"
|
||||
'
|
||||
'Return true to allow the OS default exceptions handler to handle the uncaught exception. 'Para los Logs
|
||||
'Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
|
||||
' 'wait for 500ms to allow the logs to be updated.
|
||||
' Dim jo As JavaObject
|
||||
' Dim l As Long = 500: jo.InitializeStatic("java.lang.Thread").RunMethod("sleep", Array(l)) 'Sleep 500ms
|
||||
' logcat.LogCatStop
|
||||
' logs.Append(StackTrace)
|
||||
' Subs.revisaBD
|
||||
' Subs.errorLog.ExecNonQuery2("INSERT INTO errores(fecha, error) VALUES (?,?)", Array As Object (Subs.fechaKMT(DateTime.now), logs))
|
||||
' StartActivity(errorManager)
|
||||
' Return True
|
||||
'End Sub
|
||||
'******************************************************************************
|
||||
|
||||
Sub Process_Globals
|
||||
'These global variables will be declared once when the application starts.
|
||||
'These variables can be accessed from all modules.
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Globals
|
||||
'These global variables will be redeclared each time the activity is created.
|
||||
'These variables can only be accessed from this module.
|
||||
' Dim errorLog As SQL
|
||||
Dim c As Cursor
|
||||
Private p_principal As Panel
|
||||
Private l_titulo As Label
|
||||
Private svScroll As ScrollView
|
||||
Private etText As EditText
|
||||
Private c_continuar As Button
|
||||
Private p_botones As Panel
|
||||
Private b_salir As Button
|
||||
End Sub
|
||||
|
||||
Sub Activity_Create(FirstTime As Boolean)
|
||||
'Do not forget to load the layout file created with the visual designer. For example:
|
||||
Activity.LoadLayout("errorManager")
|
||||
End Sub
|
||||
|
||||
Sub Activity_Resume
|
||||
Dim elError As String = ""
|
||||
Dim laFecha As String = ""
|
||||
' svScroll.Initialize(500dip)
|
||||
' Activity.AddView(svScroll, 0, 300, 100%x, 80%y)
|
||||
p_principal.Height = Activity.Height
|
||||
p_principal.Width = Activity.Width
|
||||
svScroll.Width = Round(p_principal.Width * 0.9)
|
||||
svScroll.Left = Round(p_principal.Width/2)-Round(svScroll.Width/2)
|
||||
p_botones.Left = Round(p_principal.Width/2)-Round(p_botones.Width/2)
|
||||
p_botones.Top = Activity.Height - (p_botones.Height + 80)
|
||||
etText.Initialize("")
|
||||
svScroll.Panel.AddView(etText, 0, 0, 90%x, 80%y)
|
||||
etText.InputType = etText.INPUT_TYPE_NONE
|
||||
etText.Gravity = Gravity.TOP
|
||||
etText.SingleLine = False
|
||||
etText.Wrap = False
|
||||
' Dim lblText, edtText As StringBuilder
|
||||
Dim lbl As Label
|
||||
lbl.Initialize("")
|
||||
Activity.AddView(lbl, 0, 300, 100%x, 100%y) 'ignore
|
||||
etText.Text = ""
|
||||
Subs.revisaBD
|
||||
c = Subs.errorLog.ExecQuery("select * from errores order by fecha desc limit 1")
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
elError = c.GetString("error")
|
||||
laFecha = c.GetString("fecha")
|
||||
etText.Text = elError
|
||||
End If
|
||||
c.Close
|
||||
Dim usuario As String = ""
|
||||
c = Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
usuario = c.GetString("USUARIO")
|
||||
End If
|
||||
|
||||
' Log("++++++" & Starter.logsStr)
|
||||
' etText.Text = etText.Text & Starter.logsStr
|
||||
' lbl.TextSize = etText.TextSize
|
||||
' lbl.Text = etText.Text
|
||||
' Dim su As StringUtils
|
||||
' Dim edheight As Int = su.MeasureMultilineTextHeight(lbl, lbl.Text)
|
||||
' lbl.RemoveView
|
||||
' etText.Height = edheight
|
||||
' svScroll.Panel.Height = edheight
|
||||
svScroll.Height = Round(Activity.Height * 0.9)
|
||||
' Log(edheight)
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "guardaErrores"
|
||||
cmd.Parameters = Array As Object(laFecha, usuario&"|"&Starter.rutaV, laFecha, elError)
|
||||
Log($"Mandamos: ${Subs.fechaKMT(DateTime.Now)}, |${usuario}|, ${Subs.fechaKMT(DateTime.Now)}"$)
|
||||
Starter.reqManager.ExecuteCommand(cmd,"guardaErrores")
|
||||
End Sub
|
||||
|
||||
Sub Activity_Pause (UserClosed As Boolean)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub JobDone(Job As HttpJob)
|
||||
Log("errorManager - JobDone")
|
||||
If Job.Success = False Then
|
||||
ToastMessageShow("Error: " & Job.ErrorMessage, True)
|
||||
Else
|
||||
LogColor("JobDone: '" & Starter.reqManager.HandleJob(Job).tag & "' - Registros: " & Starter.reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211110
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = Starter.reqManager.HandleJob(Job)
|
||||
If result.Tag = "guardaErrores" Then 'query tag
|
||||
For Each records() As Object In result.Rows
|
||||
For Each k As String In result.Columns.Keys
|
||||
Log("GuardaErrores: " & k & ": " & records(result.Columns.Get(k)))
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Job.Release
|
||||
End Sub
|
||||
|
||||
Private Sub c_continuar_Click
|
||||
' Subs.iniciaActividad("Principal")
|
||||
' B4XPages.ShowPage("Principal")
|
||||
End Sub
|
||||
|
||||
Private Sub b_salir_Click
|
||||
cierraActividades
|
||||
End Sub
|
||||
|
||||
Sub cierraActividades
|
||||
Log("closing activities")
|
||||
Dim jo As JavaObject
|
||||
jo.InitializeContext
|
||||
jo.RunMethod("finishAffinity", Null)
|
||||
End Sub
|
||||
1
gitpull.bat
Normal file
1
gitpull.bat
Normal file
@@ -0,0 +1 @@
|
||||
git pull
|
||||
Reference in New Issue
Block a user