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

- Se agrega codigo para descuento con pago en efectivo

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-03-10 06:07:50 -06:00
parent a6e77b99a4
commit 35da4c6e23
5 changed files with 476 additions and 392 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
B4A/B4XMainPage.bas
View File

@@ -81,6 +81,11 @@ Private Sub B4XPage_Created (Root1 As B4XView)
i_logo.Left = (Root.Width / 2) - (i_logo.Width / 2)
Subs.centraPanel(Panel3, p_configuracion.Width)
' subs.panelVisible(p_configuracion, 0, 0)
Private x As Cursor = Starter.skmt.ExecQuery($"select * from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'DESCUENTO X EFECTIVO'"$)
If x.RowCount = 0 Then 'Insertamos el descuento para efectivo por default.
' Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("DESCUENTO X EFECTIVO"))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("DESCUENTO X EFECTIVO","10"))
End If
End Sub
Private Sub B4XPage_CloseRequest As ResumableSub