cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-17 21:06:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.02.22

Browse Source 
- Se agregó que si se borra (en Nota) un producto que pertenezca a una promo "especial", se borre el  pedido completo.
- Se corrigio el texto de la promo especial de $300 a $350
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-02-24 13:30:04 -06:00
parent 3cf7c07968
commit 0b3a77cd25
5 changed files with 42 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/C_Principal.bas
View File

@@ -240,6 +240,7 @@ Sub Class_Globals
Private b_abordo As Button
Dim bitacora As C_Bitacora
Private l_version As Label
Dim contadorSubir As Int = 0
End Sub
'You can add more parameters here.
@@ -2095,8 +2096,11 @@ Sub JobDone(Job As HttpJob)
t1.Enabled = False
t1.Initialize("T1", 3000) ' 1000 = 1 second
' Log(999)
Log("TIMER ENABLED")
t1.Enabled = True
If contadorSubir < 3 Then ' Si no hacen click en el boton de OK despues de "Enviar", se puede quedar en loop el timer T1.
t1.Enabled = True
Log("TIMER ENABLED")
End If
contadorSubir = contadorSubir + 1
End If
End If
Job.Release
@@ -2413,13 +2417,11 @@ Sub B_OK_PAS_Click
Subs.panelVisible(p_principal, 0, 0)
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String("CARGA_DIA"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CARGA_DIA",1))
If E_RUTA2.Visible = True Then
bitacora.mandaBitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Subs.traeRuta,"Carga día suplencia", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","", "")
Else
bitacora.mandaBitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Subs.traeRuta,"Carga día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","", "")
End If
Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then
RES = Msgbox2("Seguro que desa abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If RES = DialogResponse.POSITIVE Then