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

Version final productivo 4.10.19

Browse Source
This commit is contained in:
cvaldes1201
2024-11-02 15:57:12 -06:00
parent 76fe782492
commit ec7d9ddc36
17 changed files with 934 additions and 372 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/C_Nota.bas
View File

@@ -128,7 +128,7 @@ Sub B4XPage_Appear
End If
' End If
If Subs.pedidoGuardado Then borra.Enabled = False Else borra.Enabled = True
' If Subs.pedidoGuardado Then borra.Enabled = False Else borra.Enabled = True
End Sub
Sub Activity_Pause (UserClosed As Boolean)
@@ -177,7 +177,7 @@ End Sub
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
Log(Value)
If Not(Subs.pedidoGuardado) Then
' If Not(Subs.pedidoGuardado) Then
result = Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If result = DialogResponse.POSITIVE Then
c=B4XPages.MainPage.skmt.ExecQuery2("select PE_PROID,PE_CANT, PE_FOLIO FROM PEDIDO where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) ", Array As String(Value))
@@ -239,9 +239,9 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
End If
B4XPage_Appear
End If
Else
ToastMessageShow("Pedido guardado, NO se puede editar.",False)
End If
' Else
' ToastMessageShow("Pedido guardado, NO se puede editar.",False)
' End If
End Sub
Sub b_desc_Click