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

...

Browse Source
This commit is contained in:
cvaldes1201
2024-02-26 10:59:00 -06:00
parent a32149d755
commit e67a1f20c4
12 changed files with 1657 additions and 156 deletions
Download Patch File Download Diff File Expand all files Collapse all files

103
B4A/C_Principal.bas
View File

@@ -456,7 +456,7 @@ Sub B4XPage_Appear
'///////
CallSub(Starter, "ENVIA_ULTIMA_GPS")
' panel_5.Visible = False
' Log("panel5 visible FALSE")
' 'Log("panel5 visible FALSE")
End Sub
Sub Subir_Click
@@ -699,7 +699,7 @@ Sub Subir_Click
If x2.RowCount>0 Then
For i=0 To x2.RowCount -1
x2.Position=i
LogColor(x2.GetString("CLIENTE"),Colors.Red)
'Logcolor(x2.GetString("CLIENTE"),Colors.Red)
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_ENCUESTA_MODULO3"
@@ -807,7 +807,7 @@ Sub cargar_Click
sTime=DateTime.Time(DateTime.Now)
Dim P As PhoneId
imei = P.GetDeviceId
imei = ""
cmd.Initialize
cmd.Name ="insert_drop_GV2_2"
cmd.Parameters = Array As Object(usuario,e_ruta.text,sDate,imei,sTime,"","","","","CARGA",ALMACEN)
@@ -845,7 +845,7 @@ Sub cargar_Click
cmd.Initialize
cmd.Name = "select_hist_datos_GV2_2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,e_ruta.text, ALMACEN)
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,e_ruta.text, ALMACEN,e_ruta.text, ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_datos")
cmd.Initialize
@@ -870,8 +870,8 @@ Sub cargar_Click
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "kmt_datos2")
cmd.Initialize
cmd.Name = "select_hist_datos_GV2"
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
cmd.Name = "select_hist_datos_GV2_2"
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN,E_RUTA2.text, ALMACEN,E_RUTA2.text, ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_datos")
cmd.Initialize
@@ -940,9 +940,9 @@ End Sub
Sub JobDone(Job As HttpJob)
' If Job.JobName = "DBRequest" Then
' Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
' Log($"Tag: ${RESULT.tag}, success=${Job.Success}"$)
' 'Log($"Tag: ${RESULT.tag}, success=${Job.Success}"$)
' End If
'Log(Job.Tag)
If Job.Success = False Then
'ToastMessageShow("Error: " & Job.ErrorMessage, True)
If Job.ErrorMessage = "STREAM" Then
@@ -955,7 +955,7 @@ Sub JobDone(Job As HttpJob)
End If
End If
Else 'If Job Success then ...
LogColor("JobDone: '" & B4XPages.MainPage.reqManager.HandleJob(Job).tag & "' - Registros: " & B4XPages.MainPage.reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027
'Logcolor("JobDone: '" & B4XPages.MainPage.reqManager.HandleJob(Job).tag & "' - Registros: " & B4XPages.MainPage.reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027
'Verificamos que el usuario guardado en BD sea VALIDO.
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
@@ -964,20 +964,20 @@ Sub JobDone(Job As HttpJob)
For Each records() As Object In RESULT.Rows
n = records(RESULT.Columns.Get("USUARIO"))
Next
LogColor("**************************"&n, Colors.Green)
'Logcolor("**************************"&n, Colors.Green)
If n = "OKActivo" Then
Log("Usuario guardado en BD es 'Valido'")
Else If n = "OKExpirado" Then
Msgbox("Usuario Expirado llamar al administrador","") 'ignore
B4XPages.ShowPage("B4XMainPage")
Else If n = "OKCancelado" Then
Msgbox("Usuario Cancelado llamar al administrador","") 'ignore
B4XPages.ShowPage("B4XMainPage")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_GV2_70_2"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
'Log("Usuario guardado en BD es 'Valido'")
Else
Msgbox("Usuario o password No validos","") 'ignore
B4XPages.ShowPage("B4XMainPage")
B4XPages.MainPage.skmt.ExecNonQuery("delete from usuarioa")
ExitApplication
End If
Log("***************** "&n)
'Log("***************** "&n)
End If
End If
@@ -1011,7 +1011,7 @@ Sub JobDone(Job As HttpJob)
Next
Listo1 = 1
S_CC.Text = "LISTO"
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True)
' 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
img2.Visible=False
@@ -1108,7 +1108,7 @@ Sub JobDone(Job As HttpJob)
Next
Listo1 = 1
S_CC.Text = "LISTO"
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Resumen Actualizado." , True)
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Resumen Actualizado." , True)
End If
End If
@@ -1120,7 +1120,7 @@ Sub JobDone(Job As HttpJob)
Dim HP_CODIGO_PROMOCION As String = records(RESULT.Columns.Get("HP_CODIGO_PROMOCION"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_PROMOS(HP_CLIENTE, HP_CODIGO_PROMOCION) VALUES (?,?)", Array As Object (HP_CLIENTE, HP_CODIGO_PROMOCION))
Next
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Historico Promociones Actualizado." , True)
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Historico Promociones Actualizado." , True)
If PB1.Progress = 0 Then
PB1.Progress = 30
S_CH.Text = "CARGANDO"
@@ -1142,7 +1142,7 @@ Sub JobDone(Job As HttpJob)
Dim HCCP_CANT As String = records(RESULT.Columns.Get("HCCP_CANT"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_CLIENTE_CANT_PROMOS(HCCP_CLIENTE, HCCP_PROMO, HCCP_CANT) VALUES (?,?,?)", Array As Object (HCCP_CLIENTE, HCCP_PROMO,HCCP_CANT))
Next
If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
' If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
End If
End If
@@ -1154,7 +1154,7 @@ Sub JobDone(Job As HttpJob)
Dim HMC_TOTAL As String = records(RESULT.Columns.Get("HMC_TOTAL"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_MARCAS_CUOTAS(HMC_MARCA, HMC_TOTAL) VALUES (?,?)", Array As Object (HMC_MARCA, HMC_TOTAL))
Next
If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True)
' If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True)
End If
End If
@@ -1287,7 +1287,7 @@ Sub JobDone(Job As HttpJob)
PB2.Progress = 100
S_CP.Text = "LISTO"
End If
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Productos Actualizados." , True)
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Productos Actualizados." , True)
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
B4XPage_Appear
img2.Visible=False
@@ -1327,7 +1327,7 @@ Sub JobDone(Job As HttpJob)
PB2.Progress = 100
S_CP.Text = "LISTO"
End If
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Promociones Actualizados." , True)
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Promociones Actualizados." , True)
Listo4=1
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
B4XPage_Appear
@@ -1364,15 +1364,15 @@ Sub JobDone(Job As HttpJob)
If PB2.Progress = 0 Then
PB2.Progress = 30
S_CP.Text = "CARGANDO"
Log("C4")
'Log("C4")
ELSE If PB2.Progress = 30 Then
PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then
PB2.Progress = 100
S_CP.Text = "LISTO"
Log("3")
'Log("3")
End If
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Promociones especiales Actualizados." , True)
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Promociones especiales Actualizados." , True)
Listo4=1
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
@@ -1430,12 +1430,17 @@ Sub JobDone(Job As HttpJob)
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "hist_datos" Then 'query tag
Dim cont As Int = 0
For Each records() As Object In RESULT.Rows
cont = cont +1
Dim HVD_CLIENTE As String = records(RESULT.Columns.Get("HVD_CLIENTE"))
Dim HVD_PRONOMBRE As String = records(RESULT.Columns.Get("HVD_PRONOMBRE"))
Dim HVD_CANT As String = records(RESULT.Columns.Get("HVD_CANT"))
Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT"))
Log(cont &" " &HVD_CLIENTE&"--"&HVD_PRONOMBRE&"--"&HVD_CANT&"--"&HVD_COSTO_TOT)
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT) VALUES (?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT))
Next
Listo3 =1
If PB1.Progress = 0 Then
@@ -1447,7 +1452,7 @@ Sub JobDone(Job As HttpJob)
PB1.Progress = 100
S_CH.Text = "LISTO"
End If
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Venta historico Actualizado." , True)
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Venta historico Actualizado." , True)
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
B4XPage_Appear
img2.Visible=False
@@ -1540,7 +1545,7 @@ Sub JobDone(Job As HttpJob)
Next
PB2.Progress = 100
S_CP.Text = "LISTO"
Log("5")
'Log("5")
End If
End If
@@ -1655,24 +1660,24 @@ Sub connecta_Click
Private usrT As String = c.GetString("USUARIO")
Private passT As String = c.GetString("PASS")
cmd.Initialize
cmd.Name = "select_usuario_guna_GV2_1"
cmd.Name = "select_usuario_guna_GV2_10"
cmd.Parameters = Array As Object(usrT, passT)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "usuarioA")
End If
c.Close
If imei = "" Then
cmd.Initialize
cmd.Name = "select_ruta_GV2_70"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
Else
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_GV2_70"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
End If
' If imei = "" Then
' cmd.Initialize
' cmd.Name = "select_ruta_GV2_70_2"
' cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
' Else
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "select_ruta_GV2_70_2"
' cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
' End If
If e_ruta.Text = "KMTS1" Then
cargar.Visible = True
@@ -1710,7 +1715,7 @@ Sub BUSCA_Click
End Sub
Sub b_mapa_Click
Log("mapClic")
'Log("mapClic")
B4XPages.GetPage("Mapas")
End Sub
@@ -2032,7 +2037,7 @@ Sub resdia_Click
'
'/// Al parecer d.GetString("MONTO_DIA") regresa null y la funcion numberFormat truena
'/////////////////////////////////////////////////////////////////////////////////
Log("|"&d.GetString("MONTO_DIA")&"|")
'Log("|"&d.GetString("MONTO_DIA")&"|")
'L_PRIO.Text = NumberFormat(d.GetString("MONTO_DIA"),0,2)
L_PRIO.Text = d.GetString("MONTO_DIA")
d.Close
@@ -2110,16 +2115,16 @@ End Sub
'''''''''''''''''''''''''''''''''''' VALIDAR CARACTERES
Sub e_ruta_TextChanged (Old As String, New As String)
Dim validChars As String ="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 "
' Log("Antes: " & Old & " | " & New)
' 'Log("Antes: " & Old & " | " & New)
If Old <> "KMTS1" Then
' Log("Desp: " & Old & " | " & New)
' 'Log("Desp: " & Old & " | " & New)
Try
If validChars.Contains(New.SubString(New.Length-1)) = False Then
e_ruta.Text = New.SubString2(0, New.Length-1)
e_ruta.SelectionStart = e_ruta.Text.Length
End If
Catch
Log(LastException)
'Log(LastException)
End Try
End If
End Sub