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

vistas...

Browse Source
This commit is contained in:
cvaldes1201
2024-05-20 09:53:42 -06:00
parent 0a184e3baf
commit 2a8817aa02
24 changed files with 704 additions and 1855 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
B4A/C_Cliente.bas
View File

@@ -196,11 +196,11 @@ End Sub
Sub B4XPage_Appear
Tels.Enabled = True
gest.Enabled = True
c = Starter.skmt.ExecQuery("SELECT ID FROM VENDIDOS WHERE ID IN (Select cuenta from cuentaa)")
If c.RowCount > 0 Then
Tels.Enabled = False
gest.Enabled = False
End If
' c = Starter.skmt.ExecQuery("SELECT ID FROM VENDIDOS WHERE ID IN (Select cuenta from cuentaa)")
' If c.RowCount > 0 Then
' Tels.Enabled = False
' gest.Enabled = False
' End If
reqManager.Initialize(Me, Starter.DBReqServer)
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
' Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
@@ -444,16 +444,16 @@ Sub DATOS_Click
End Sub
Sub Guardar_Click
If l_total.Text = "0" Or l_total.Text = Null Then
B4XPages.ShowPage("Principal")
Else
c = Starter.skmt.ExecQuery("SELECT ID FROM VENDIDOS WHERE ID IN (Select cuenta from cuentaa)")
If c.RowCount > 0 Then
B4XPages.ShowPage("Principal")
Else
' If l_total.Text = "0" Or l_total.Text = Null Then
' B4XPages.ShowPage("Principal")
' Else
' c = Starter.skmt.ExecQuery("SELECT ID FROM VENDIDOS WHERE ID IN (Select cuenta from cuentaa)")
' If c.RowCount > 0 Then
' B4XPages.ShowPage("Principal")
' Else
res = Msgbox2("Seguro que desea cerrar el pedido? no se podran hacer cambios una vez guardada la venta!!!","Atención", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If res = DialogResponse.POSITIVE Then
' res = Msgbox2("Seguro que desea cerrar el pedido? no se podran hacer cambios una vez guardada la venta!!!","Atención", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
' If res = DialogResponse.POSITIVE Then
DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now)
@@ -503,16 +503,16 @@ Sub Guardar_Click
' LogColor($"actualizamos "${la_cuenta.text}, hora_final=${DateTime.now}"$,Colors.Red)
Subs.actualizaTET(la_cuenta.text)
DateTime.TimeFormat = "HH:mm:ss"
skmt.ExecNonQuery2("insert into VENDIDOS(ID) VALUES(?)",Array As String(clie_id))
' skmt.ExecNonQuery2("insert into VENDIDOS(ID) VALUES(?)",Array As String(clie_id))
mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!!
B4XPages.MainPage.productos.reiniciarlistaProds = True
B4XPages.MainPage.productos.prodsMap.Initialize
B4XPages.MainPage.promos.promosMap.Initialize
B4XPages.ShowPage("Principal")
End If
End If
End If
' End If
' End If
' End If
End Sub
Sub NUEVO_Click