cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-17 18:26:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

VERSION 5.12.18

Browse Source 
- Se agrego auditoria en los "principales" eventos, se guardan en la tabla "auditoria"
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-12-22 11:46:58 -06:00
parent af9ea44b95
commit af1f4b9ead
16 changed files with 616 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Nota.bas
View File

@@ -99,6 +99,7 @@ End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Sub B4XPage_Appear
B4XPages.MainPage.aud.guarda("Entrada a Nota")
If kh.clienteConDOE And l_tipoPedido.IsInitialized Then
l_tipoPedido.Visible = True
Else
@@ -265,6 +266,7 @@ Sub borra_Click
If folio = "0" Or 1 = 1 Then 'Si el folio es 0 o el cliente actual es "abordo", los deja borrar. - Mod por CHV 220512 'Para que el abordo borre siempre agregar -> " Or Subs.clienteActual = "0""
result = Msgbox2($"¿Seguro que desea borrar el pedido${textoExtra}?"$,"Cancelar pedido", "Si", "", "No", LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If result = DialogResponse.POSITIVE Then
B4XPages.MainPage.aud.guarda($"Borrar Nota Ok"$)
' c = Starter.skmt.ExecQuery("select PE_PROID, PE_CANT, PE_TIPO, PE_CEDIS FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
' If c.RowCount>0 Then
' For i=0 To c.RowCount -1