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

v6.02.013

Browse Source
This commit is contained in:
cvaldes1201
2026-03-02 10:21:05 -06:00
parent efc76af182
commit 531ce7d7ee
283 changed files with 9528 additions and 9390 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
B4A/C_Principal.bas
View File

@@ -1331,6 +1331,11 @@ Sub cargar_Click
cmd.Name = "traecodigosGUNA"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "traecodigos")
cmd.Initialize
cmd.Name = "select_objetivosbat_GUNA_VN"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "objetivos")
cmd.Initialize
@@ -1611,7 +1616,7 @@ Sub JobDone(Job As HttpJob)
If n = "OKActivo" Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_GV2_70_10"
cmd.Name = "select_ruta_GV2_70_13"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text, usuario)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
'Log("Usuario guardado en BD es 'Valido'")
@@ -2694,6 +2699,18 @@ Sub JobDone(Job As HttpJob)
Next
End If
If RESULT.Tag = "objetivos" Then 'query tag
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CAT_OBJETIVO_BAT")
For Each records() As Object In RESULT.Rows
Dim COB_VOLUMEN As String = records(RESULT.Columns.Get("COB_VOLUMEN"))
Dim COB_MARCAE As String = records(RESULT.Columns.Get("COB_MARCAE"))
Dim COB_PORTAFOLIO As String = records(RESULT.Columns.Get("COB_PORTAFOLIO"))
Dim COB_OBJPP As String = records(RESULT.Columns.Get("COB_OBJPP"))
Dim COB_GEV As String = records(RESULT.Columns.Get("COB_GEV"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_OBJETIVO_BAT(COB_VOLUMEN, COB_MARCAE, COB_PORTAFOLIO, COB_OBJPP, COB_GEV) VALUES (?,?,?,?,?)", Array As Object (COB_VOLUMEN, COB_MARCAE, COB_PORTAFOLIO, COB_OBJPP, COB_GEV))
Next
End If
End If
End If
If B4XPages.MainPage.reqManager.reqsList.IsInitialized Then
@@ -3205,6 +3222,7 @@ End Sub
Sub resdia_Click
' p_principal.Visible = False
Btn_Ubicar.Visible=False
SCROLL_RESDIA.Panel.RemoveAllViews
SCROLL_RESDIA.Visible = True
SCROLL_RESDIA.Panel.LoadLayout("RESDIA")
SCROLL_RESDIA.Panel.Height = Panel4.Height
@@ -3634,6 +3652,22 @@ Sub resdia_Click
Label51.Text = 0
End If
Private s6 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select IFNULL(COB_VOLUMEN,0) AS COB_VOLUMEN, IFNULL(COB_MARCAE,0) AS COB_MARCAE, IFNULL(COB_PORTAFOLIO,0) AS COB_PORTAFOLIO, IFNULL(COB_OBJPP,0) AS COB_OBJPP, IFNULL(COB_GEV,0) as COB_GEV FROM CAT_OBJETIVO_BAT")
If s6.RowCount > 0 Then
s6.Position = 0
L_NES.Text = NumberFormat2(s6.GetString("COB_VOLUMEN"),0,0,0,False)
L_EFEC_PURA.Text = NumberFormat2(s6.GetString("COB_MARCAE"),0,0,0,False)
L_VISITCC.Text = NumberFormat2(s6.GetString("COB_PORTAFOLIO"),0,0,0,False)
l_ru_sup.Text = NumberFormat2(s6.GetString("COB_OBJPP"),0,0,0,False)
l_futura.Text = NumberFormat2(s6.GetString("COB_GEV"),0,0,0,False)
Else
L_NES.Text = 0
L_EFEC_PURA.Text = 0
L_VISITCC.Text = 0
l_ru_sup.Text = 0
l_futura.Text = 0
End If
End Sub
Sub hacer_ped_Click