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

- VERSION 5.08.28

Browse Source 
- Se hicieron correccciones en el enviod e la bitácora.
- Se eliminó el acceso a la pantalla "Cliente" desde "Tickets Dia"
- Se agregó el botón de "Ingresar Peso o No venta" en el clic largo de "Tickets Día"
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-08-28 18:46:05 -06:00
parent 14b6e9f067
commit 36012f89ec
8 changed files with 387 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Principal.bas
View File

@@ -2182,6 +2182,7 @@ Sub e_ruta_EnterPressed
If e_ruta.Text = "FIN DIA" Then
RES = Msgbox2("Seguro que desea hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If RES = DialogResponse.POSITIVE Then
Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,ALMACEN,Subs.traeRuta,"Fin Día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),Starter.lat_gps,Starter.lon_gps,"2","","","")
e_ruta.Text = ""
Starter.skmt.ExecNonQuery("delete from CAT_GIRO")
B4XPages.MainPage.skmt.ExecNonQuery("delete from CLIENTE_NUEVO")
@@ -2213,7 +2214,6 @@ Sub e_ruta_EnterPressed
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM RUTAA")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CLIENTES_NUEVOS")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENV_MONTO_LIQ")
Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,ALMACEN,l_ruta.Text,"Fin Día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),Starter.lat_gps,Starter.lon_gps,"2","","","")
B4XPage_Appear
l_rutasuplencia.Visible = False
Label22.Visible = False