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

Se agregó la función "guardaAppInfo" a Subs

Browse Source
This commit is contained in:
cheveguerra
2023-09-03 20:44:24 -06:00
parent dcc2226aa6
commit 4d66a09cb2
4 changed files with 19 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
B4A/C_Principal.bas
View File

@@ -1020,7 +1020,7 @@ Sub JobDone(Job As HttpJob)
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
Next
Listo1 = 1
S_CC.Text = "REVISANDO ..."
S_CC.Text = "LISTO"
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True)
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
B4XPage_Appear
@@ -1085,7 +1085,7 @@ Sub JobDone(Job As HttpJob)
' Msgbox("pasa","alo")
Next
Listo1 = 1
S_CC.Text = "REVISANDO ..."
S_CC.Text = "LISTO"
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Resumen Actualizado." , True)
End If
End If
@@ -1106,7 +1106,7 @@ Sub JobDone(Job As HttpJob)
PB1.Progress = 60
ELSE IF PB1.Progress = 60 Then
PB1.Progress = 100
S_CH.Text = "REVISANDO ..."
S_CH.Text = "LISTO"
End If
End If
End If
@@ -1153,7 +1153,7 @@ Sub JobDone(Job As HttpJob)
PB1.Progress = 60
ELSE IF PB1.Progress = 60 Then
PB1.Progress = 100
S_CH.Text = "REVISANDO ..."
S_CH.Text = "LISTO"
End If
End If
End If
@@ -1250,7 +1250,7 @@ Sub JobDone(Job As HttpJob)
PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then
PB2.Progress = 100
S_CP.Text = "REVISANDO ..."
S_CP.Text = "LISTO"
End If
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Productos Actualizados." , True)
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
@@ -1291,7 +1291,7 @@ Sub JobDone(Job As HttpJob)
PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then
PB2.Progress = 100
S_CP.Text = "REVISANDO ..."
S_CP.Text = "LISTO"
End If
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Promociones Actualizados." , True)
Listo4=1
@@ -1335,7 +1335,7 @@ Sub JobDone(Job As HttpJob)
PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then
PB2.Progress = 100
S_CP.Text = "REVISANDO ..."
S_CP.Text = "LISTO"
Log("3")
End If
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Promociones especiales Actualizados." , True)
@@ -1377,7 +1377,7 @@ Sub JobDone(Job As HttpJob)
PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then
PB2.Progress = 100
S_CP.Text = "REVISANDO ..."
S_CP.Text = "LISTO"
End If
Listo3 =1
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
@@ -1411,7 +1411,7 @@ Sub JobDone(Job As HttpJob)
PB1.Progress = 60
ELSE IF PB1.Progress = 60 Then
PB1.Progress = 100
S_CH.Text = "REVISANDO ..."
S_CH.Text = "LISTO"
End If
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Venta historico Actualizado." , True)
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then