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 4.11.22

Browse Source 
- Se modifico el código de cargar día para que guarde tambien en cat_gunaprod2 la informacion de las promos
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-11-28 15:16:54 -06:00
parent 007f6ddca7
commit ff1d910052
7 changed files with 179 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
B4A/C_Principal.bas
View File

@@ -542,6 +542,8 @@ Sub Subir_Click
PB1.Visible = False
Resumen.Visible= False
B4XPages.MainPage.reqManager.trackInit
L_P_2.Text = "Envio de Pedidos"
L_P_3.Text = "Envio de Pedidos"
S_CH.Text = "EN PROCESO"
@@ -629,7 +631,7 @@ Sub Subir_Click
cmd.Initialize
Private eventob As String = h.GetString("eventob")
cmd.Name = "mandaBitacora3_GUNA"
Log("BITACORA3")
' Log("BITACORA3")
Private clienteb As String = h.GetString("clienteb")
Private finb As String = h.GetString("finb")
Private nombreCliente As String =Subs. traeNombreCliente(h.GetString("clienteb"))
@@ -1172,6 +1174,7 @@ Sub cargar_Click
End Sub
Sub JobDone(Job As HttpJob)
B4XPages.MainPage.reqManager.trackNext(Job)
Log("JOBDONE PRINCIPAL")
' If Job.JobName = "DBRequest" Then
' Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
@@ -1688,6 +1691,11 @@ Sub JobDone(Job As HttpJob)
CAT_GP_ALMACEN = 60
End If
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD))
' If CAT_GP_ID.StartsWith("PRO") Then LogColor($"Metemos promo a gunaprod - ${CAT_GP_ID}, |${CAT_GP_TIPO}|"$, Colors.red)
' If CAT_GP_TIPO = "PROMOS" Then
' LogColor($"Agregamos Promo a gunaprod2 - ${CAT_GP_ID}, ${CAT_GP_NOMBRE}"$, Colors.Red)
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD))
' End If
Next
If PB2.Progress = 0 Then
PB2.Progress = 30
@@ -1922,7 +1930,7 @@ Sub JobDone(Job As HttpJob)
S_CP.Text = "SUBIENDO"
Next
PB2.Progress = 100
S_CP.Text = "LISTO"
S_CP.Text = "ENVIANDO"
'Log("5")
End If
End If
@@ -2044,7 +2052,17 @@ Sub JobDone(Job As HttpJob)
End If
End If
End If
If B4XPages.MainPage.reqManager.reqsList.IsInitialized Then
LogColor($"REQUESTS: ${B4XPages.MainPage.reqManager.reqsList.Size}"$, Colors.red)
Log($"CARGA=${CARGA}"$)
If B4XPages.MainPage.reqManager.reqsList.Size = 0 And CARGA = "SUBIR" Then
t1.Enabled = False
t1.Initialize("T1", 3000) ' 1000 = 1 second
Log(999)
Log("TIMER ENABLED")
t1.Enabled = True
End If
End If
Job.Release
End Sub
@@ -2164,6 +2182,7 @@ End Sub
Sub t2_tick
e_ruta.Text = ""
If B4XPages.MainPage.productos.lv_catalogos.IsInitialized Then B4XPages.MainPage.productos.lv_catalogos.Clear
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente")
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido")
B4XPages.MainPage.skmt.ExecNonQuery("delete from noventa")
@@ -2278,26 +2297,30 @@ Sub inv_Click
End Sub
Sub t1_tick
cmd.Initialize
cmd.Name = "select_cuantos_pedido_GV2"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_pedido")
' If CARGA = "SUBIR" Then
cmd.Initialize
cmd.Name = "select_cuantos_pedido_GV2"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_pedido")
cmd.Initialize
cmd.Name = "select_cuantos_noventa_GV2"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_noventa")
cmd.Initialize
cmd.Name = "select_cuantos_noventa_GV2"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_noventa")
cmd.Initialize
cmd.Name = "select_cuantos_pedidoc_GV2"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc")
cmd.Initialize
cmd.Name = "select_cuantos_pedidoc_GV2"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc")
If PB2.Progress = 0 Then
S_CP.Text = "ENVIAR DATOS (K-1)"
End If
img2.Visible=False
t1.Enabled = False
If PB2.Progress = 0 Then
S_CP.Text = "ENVIAR DATOS (K-1)"
End If
Log("TIMER DISABLED")
img2.Visible=False
t1.Enabled = False
' CARGA = ""
' End If
End Sub
Sub B_OK_PAS_Click
@@ -2310,6 +2333,7 @@ Sub B_OK_PAS_Click
connecta.Visible=True
Resumen.Visible= True
img2.Visible=False
CARGA = ""
Subs.panelVisible(p_principal, 0, 0)
Else If CARGA = "SUBIR" And S_CP.Text = "ERROR" Then
Msgbox("Tiene que subir de nuevo la información","Atención") 'ignore