cheveguerra/Tortillas_Guerreras
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Tortillas_Guerreras.git synced 2026-04-20 06:09:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Javier
2025-12-04 12:08:43 -06:00
parent 9d9cb3d2a4
commit 509fd9a85c
4 changed files with 30 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Cliente.bas
View File

@@ -3123,6 +3123,8 @@ End Sub
Private Sub c_acep_folio_Click
If et_folio.Text <> "" Then
If et_folio.Text.Length >= 4 And et_folio.Text.Length <= 15 Then
B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE pedido SET PE_FOLIOFAC = '${et_folio.Text}' WHERE PE_CLIENTE In (select cuenta from cuentaa) AND PE_DESCRAGA = '1'"$)
et_folio.Text = ""
@@ -3193,7 +3195,9 @@ Private Sub c_acep_folio_Click
banderaimp = 0
mandaPendientePagare
B4XPages.ShowPage("Principal")
Else
MsgboxAsync("Captura un folio valido.","Atención")
End If
Else
MsgboxAsync("Captura un folio valido.","Atención")
End If