cheveguerra/Lanterna_H
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Lanterna_H.git synced 2026-04-20 14:19:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.07.31

Browse Source 
- Se corrigio que cuando se envia la información, mandaba la base de datos equivocada al FTP.
- Se cambio que cuando se imprime el resumen de grupo, se imprima con la fecha del PEDIDO.
- Se corrigio que no borraba bien el efectivo cuando se enviaba la informacion.
- Se agregaron botones a engrane (ocultos), que permiten cargar desde web los datos de un dia en particular, esto para poder reimprimir tickets de dias pasados.
- Se agregaron columnas a web en pedido y pedido_cliente para guardar el "Origen" de los multi-pagos.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-08-01 21:45:57 -06:00
parent 37426d7adb
commit a14a8c9278
5 changed files with 94 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
Lanterna2.b4a
View File

@@ -90,7 +90,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: Lanterna
#VersionCode: 1
#VersionName: 4.07.20
#VersionName: 4.07.31
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: landscape
#CanInstallToExternalStorage: False
@@ -151,6 +151,7 @@ Sub Globals
Private cb_importarDesdeWA As CheckBox
Dim habilitarImportarDesdeWA As Boolean = False
Private b_update As Button
Private b_borraEfectivo As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
@@ -221,6 +222,7 @@ Sub Activity_KeyPress (key As Int) As Boolean
If p_configuracion.Visible Then
p_configuracion.Visible = False
Else If p_login.Visible Then
Log("SALIENDO")
ExitApplication
Else
p_configuracion.Visible = False
@@ -297,6 +299,7 @@ Private Sub i_conf_Click
Label1.TextColor = Colors.Black
' If user.Text = "KMTS1" Then ListView1.AddSingleLine("http://10.0.0.205:1781")
ListView1.AddSingleLine("http://keymon.lat:1782")
ListView1.AddSingleLine("http://keymon.lat:9000")
p_configuracion.Width = Activity.Width
p_configuracion.Height = Activity.Height
p_configuracion.BringToFront
@@ -422,6 +425,54 @@ Sub JobDone(Job As HttpJob)
' If Principal.cb_mesero.IsInitialized Then Principal.cb_mesero.SetItems(Subs.traeMeserosLista)
Starter.cargaMeseros = True
End If
If result.Tag = "traePedido" Then 'query tag
' If Starter.Logger Then Subs.logJobDoneResultados(result)
Starter.skmt.ExecNonQuery("delete from PEDIDO")
For Each records() As Object In result.Rows
' PE_TIPO , PE_COSTO_TOT , PE_COSTOU , PE_CANT , PE_PRONOMBRE , PE_PROID , PE_FECHA , PE_TICKET , PE_MESA , PE_MESERO , PE_TIPO2 , PE_ORIGEN
' PT_MESA , PT_PAGO , PT_TICKET , PT_FECHA , PT_MESERO , PT_COMENSALES , PT_NOART , PT_MONTO , PT_TARJETA , PT_PROPINA , PT_PAGO_PROPINA , PT_PAGO2 , PT_ORIGEN , PT_FACTURAR
Log(records(result.Columns.Get("PE_FECHA_SINC")))
Dim PE_TIPO As String = records(result.Columns.Get("PE_TIPO"))
Dim PE_COSTO_TOT As String = records(result.Columns.Get("PE_COSTO_TOT"))
Dim PE_COSTOU As String = records(result.Columns.Get("PE_COSTOU"))
Dim PE_CANT As String = records(result.Columns.Get("PE_CANT"))
Dim PE_PRONOMBRE As String = records(result.Columns.Get("PE_PRONOMBRE"))
Dim PE_PROID As String = records(result.Columns.Get("PE_PROID"))
Dim PE_FECHA As String = records(result.Columns.Get("PE_FECHA"))
Dim PE_TICKET As String = records(result.Columns.Get("PE_TICKET"))
Dim PE_MESA As String = records(result.Columns.Get("PE_MESA"))
Dim PE_MESERO As String = records(result.Columns.Get("PE_MESERO"))
Dim PE_TIPO2 As String = records(result.Columns.Get("PE_TARJETA"))
Dim PE_ORIGEN As Object = records(result.Columns.Get("PE_ORIGEN"))
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO(PE_TIPO , PE_COSTO_TOT , PE_COSTOU , PE_CANT , PE_PRONOMBRE , PE_PROID , PE_FECHA , PE_TICKET , PE_MESA , PE_MESERO , PE_TIPO2 , PE_ORIGEN) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (PE_TIPO , PE_COSTO_TOT , PE_COSTOU , PE_CANT , PE_PRONOMBRE , PE_PROID , PE_FECHA , PE_TICKET , PE_MESA , PE_MESERO , PE_TIPO2 , PE_ORIGEN))
Next
End If
If result.Tag = "traePedidoCliente" Then 'query tag
' If Starter.Logger Then Subs.logJobDoneResultados(result)
Starter.skmt.ExecNonQuery("delete from PEDIDO_TICKET")
For Each records() As Object In result.Rows
' PE_TIPO , PE_COSTO_TOT , PE_COSTOU , PE_CANT , PE_PRONOMBRE , PE_PROID , PE_FECHA , PE_TICKET , PE_MESA , PE_MESERO , PE_TIPO2 , PE_ORIGEN
' PT_MESA , PT_PAGO , PT_TICKET , PT_FECHA , PT_MESERO , PT_COMENSALES , PT_NOART , PT_MONTO , PT_TARJETA , PT_PROPINA , PT_PAGO_PROPINA , PT_PAGO2 , PT_ORIGEN , PT_FACTURAR
' Log(records(result.Columns.Get("PE_FECHA_SINC")))
Dim PT_MESA As String = records(result.Columns.Get("PC_MESA"))
Dim PT_PAGO As String = records(result.Columns.Get("PC_TIPO"))
Dim PT_TICKET As String = records(result.Columns.Get("PC_TICKET"))
Dim PT_FECHA As String = records(result.Columns.Get("PC_FECHA"))
Dim PT_MESERO As String = records(result.Columns.Get("PC_MESERO"))
Dim PT_COMENSALES As String = "1"
Dim PT_NOART As String = records(result.Columns.Get("PC_NOART"))
Dim PT_MONTO As String = records(result.Columns.Get("PC_MONTO"))
Dim PT_PAGO2 As String = records(result.Columns.Get("PC_TARJETA"))
Dim PT_PROPINA As String = records(result.Columns.Get("PC_PROPINA"))
If PT_PROPINA = "null" Or PT_PROPINA = "" Then PT_PROPINA = 0
Dim PT_PAGO_PROPINA As String = records(result.Columns.Get("PC_PROPINA_PAGO"))
' Dim PT_PAGO2 As String = records(result.Columns.Get("PT_PAGO2"))
Dim PT_ORIGEN As Object = records(result.Columns.Get("PC_ORIGEN"))
' Dim PT_FACTURAR As String = records(result.Columns.Get("PT_FACTURAR"))
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO_TICKET(PT_MESA, PT_PAGO, PT_TICKET, PT_FECHA, PT_MESERO, PT_COMENSALES, PT_NOART, PT_MONTO, PT_PAGO2, PT_PROPINA, PT_PAGO_PROPINA, PT_ORIGEN) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (PT_MESA, PT_PAGO, PT_TICKET, PT_FECHA, PT_MESERO, PT_COMENSALES, PT_NOART, PT_MONTO, PT_PAGO2, PT_PROPINA, PT_PAGO_PROPINA, PT_ORIGEN))
Next
End If
End If
End If
ToastMessageShow("¡Información cargada!", False)
@@ -451,9 +502,20 @@ Private Sub b_reimprimirTicket_Click
End Sub
Private Sub b_fix_Click
Starter.skmt.ExecNonQuery($"update pedido_ticket set PT_NOART = '25', PT_MONTO = '4625', PT_PAGO2 = 'Mifel', PT_TARJETA = 'Mifel' where PT_TICKET = '00014' and PT_MESA = '5'"$)
Starter.skmt.ExecNonQuery($"update pedido_ticket set PT_PAGO2 = 'Mifel' where PT_PAGO2 is null "$)
ToastMessageShow("LISTO", True)
' Starter.skmt.ExecNonQuery($"update pedido_ticket set PT_NOART = '25', PT_MONTO = '4625', PT_PAGO2 = 'Mifel', PT_TARJETA = 'Mifel' where PT_TICKET = '00014' and PT_MESA = '5'"$)
' Starter.skmt.ExecNonQuery($"update pedido_ticket set PT_PAGO2 = 'Mifel' where PT_PAGO2 is null "$)
' ToastMessageShow("LISTO", True)
Log("B_FIX")
reqManager.Initialize(Me, "http://keymon.lat:9000")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "traePedido_Lanter"
cmd.Parameters = Array As Object("07/28/24")
reqManager.ExecuteQuery(cmd , 0, "traePedido")
cmd.Initialize
cmd.Name = "traePedidoCliente_Lanter"
cmd.Parameters = Array As Object("07/28/24")
reqManager.ExecuteQuery(cmd , 0, "traePedidoCliente")
End Sub
' Se revisa si hay una intención (intent) de abrir una base de datos y si es así, entonces se importa esa base de datos.
@@ -518,3 +580,9 @@ Private Sub i_logo_LongClick
' Log("Error uploading file")
' End If
End Sub
Private Sub b_borraEfectivo_Click
CallSubDelayed(Principal, "borrarEfectivo")
ToastMessageShow("Efectivo borrado!!", False)
End Sub