mirror of
https://github.com/KeymonSoft/Android_durakelo.git
synced 2026-04-17 11:26:15 +00:00
22/11/23 - Se agregó etiqueta con versión en seleccion y mapa_ruta.
This commit is contained in:
Binary file not shown.
Binary file not shown.
@@ -56,8 +56,7 @@ Sub Globals
|
||||
Dim GoogleMapEXTRA As GoogleMapsExtras
|
||||
Dim CODIGO As String
|
||||
Private SEMANA As String
|
||||
|
||||
|
||||
Private l_version As Label
|
||||
End Sub
|
||||
|
||||
Sub Activity_Create(FirstTime As Boolean)
|
||||
@@ -108,7 +107,8 @@ Sub Activity_Create(FirstTime As Boolean)
|
||||
' c.Close
|
||||
' End If
|
||||
|
||||
|
||||
l_version.Text = Application.VersionName
|
||||
l_version.Left = Activity.Width - l_version.Width - 10dip
|
||||
End Sub
|
||||
|
||||
Sub MapFragment1_Ready
|
||||
|
||||
@@ -474,7 +474,7 @@ ELSE IF PERFIL = "V-ESPECIAL" Then
|
||||
label2 = LV_PRECIOS.TwoLinesLayout.SecondLabel
|
||||
label2.TextSize = 10
|
||||
label2.TextColor = Colors.Black
|
||||
|
||||
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
|
||||
998
durakelo.b4a
998
durakelo.b4a
File diff suppressed because it is too large
Load Diff
@@ -54,14 +54,14 @@ ModuleClosedNodes10=
|
||||
ModuleClosedNodes11=5,6,7,10
|
||||
ModuleClosedNodes12=
|
||||
ModuleClosedNodes13=2,6,8,9
|
||||
ModuleClosedNodes14=
|
||||
ModuleClosedNodes14=3
|
||||
ModuleClosedNodes15=
|
||||
ModuleClosedNodes16=
|
||||
ModuleClosedNodes17=
|
||||
ModuleClosedNodes18=6
|
||||
ModuleClosedNodes19=4,5,6,7,8,9,10
|
||||
ModuleClosedNodes2=2,6,7
|
||||
ModuleClosedNodes20=5
|
||||
ModuleClosedNodes20=
|
||||
ModuleClosedNodes21=
|
||||
ModuleClosedNodes22=
|
||||
ModuleClosedNodes23=
|
||||
@@ -72,7 +72,7 @@ ModuleClosedNodes5=2,3,6,7,8,9
|
||||
ModuleClosedNodes6=
|
||||
ModuleClosedNodes7=
|
||||
ModuleClosedNodes8=
|
||||
ModuleClosedNodes9=2,5,6,8,10,11,12,13,22,24,36,37
|
||||
NavigationStack=Main,ImageView4_Click,506,0,DBRequestManager,HandleJob,195,0,seleccion,connecta_Click,2009,0,MAPA_RUTAS,MapFragment1_Ready,135,0,DBRequestManager,Initialize,20,0,DBRequestManager,PrintTable,267,0,DBRequestManager,Class_Globals,12,0,seleccion,Subir_Click,862,0,seleccion,JobDone,1105,6,seleccion,cargar_Click,924,5
|
||||
ModuleClosedNodes9=2,5,6,8,10,11,12,13,24,36,37
|
||||
NavigationStack=Starter,ENVIA_ULTIMA_GPS,98,0,fila,B_IMP_Click,699,0,colonia2,HACER_PEDIDO,455,0,seleccion,Globals,164,0,seleccion,IsConnectedToInternet,266,0,seleccion,Activity_Create,184,6,Visual Designer,seleccion.bal,-100,4,Visual Designer,mapa_rutas.bal,-100,3,MAPA_RUTAS,Process_Globals,15,0,MAPA_RUTAS,Globals,16,0,MAPA_RUTAS,Activity_Create,98,6
|
||||
SelectedBuild=0
|
||||
VisibleModules=21,20,12,4,5,9,8,24,6,14
|
||||
VisibleModules=21,20,24,14
|
||||
|
||||
@@ -167,6 +167,7 @@ Sub Globals
|
||||
Private cuantos_exib As String
|
||||
Dim ime As IME
|
||||
Private l_monto_kc As Label
|
||||
Private l_version As Label
|
||||
End Sub
|
||||
|
||||
Sub Activity_Create(FirstTime As Boolean)
|
||||
@@ -185,7 +186,9 @@ Sub Activity_Create(FirstTime As Boolean)
|
||||
|
||||
' valido donde escribo el archivo de la base de datos de kmt
|
||||
ruta = File.DirInternal
|
||||
Log(SERVER)
|
||||
l_version.Text = Application.VersionName
|
||||
l_version.Left = Activity.Width - l_version.Width - 10dip
|
||||
Log(SERVER)
|
||||
' se crea o no el archivo de la base de ddatos de kmt
|
||||
'NOTAS SI SE MODIFICA LA ESTRUCTURA SE QUITA EL IF Y SE VA DIRECTO A LA SENTENCIA FILE.COPY PARA QUE
|
||||
'TOME LA NUEVA ESTRUCTURA ES MUY IMPORTANTE TENER EL IF DE LO CONTRARIO SOLO LO ESCRIBE UNA VEZ Y LO BORRA
|
||||
@@ -264,15 +267,12 @@ End Sub
|
||||
|
||||
Sub IsConnectedToInternet As Boolean
|
||||
Dim r As Reflector
|
||||
|
||||
r.Target = r.GetContext
|
||||
r.Target = r.RunMethod2("getSystemService", "connectivity", "java.lang.String")
|
||||
r.Target = r.RunMethod("getActiveNetworkInfo")
|
||||
|
||||
If r.Target <> Null Then
|
||||
Return r.RunMethod("isConnectedOrConnecting")
|
||||
End If
|
||||
|
||||
Return False
|
||||
End Sub
|
||||
|
||||
@@ -1295,6 +1295,7 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "gunaprod" Then 'query tag
|
||||
S_CP.Text = "CARGANDO"
|
||||
skmt.BeginTransaction
|
||||
For Each records() As Object In RESULT.Rows
|
||||
|
||||
Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID"))
|
||||
@@ -1317,6 +1318,8 @@ Sub JobDone(Job As HttpJob)
|
||||
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,CAT_GP_INICIATIVA,CAT_GP_DEV,CAT_GP_CODPROMO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)", 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, CAT_GP_INICIATIVA,CAT_GP_DEV))
|
||||
|
||||
Next
|
||||
skmt.TransactionSuccessful
|
||||
skmt.EndTransaction
|
||||
' c=skmt.ExecQuery("select CAT_GP_CLASIF, COUNT(*) AS CUANTOS from CAT_GUNAPROD GROUP BY CAT_GP_CLASIF order by CAT_GP_CLASIF asc")
|
||||
' c.Position=0
|
||||
' skmt.ExecNonQuery("DELETE FROM COUNT_GUNAPROD")
|
||||
@@ -1535,6 +1538,7 @@ Sub JobDone(Job As HttpJob)
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "detallepaq" Then 'query tag
|
||||
skmt.BeginTransaction
|
||||
For Each records() As Object In RESULT.Rows
|
||||
|
||||
Dim CAT_DP_ALMACEN As String = records(RESULT.Columns.Get("CAT_DP_ALMACEN"))
|
||||
@@ -1556,6 +1560,8 @@ Sub JobDone(Job As HttpJob)
|
||||
|
||||
|
||||
Next
|
||||
skmt.TransactionSuccessful
|
||||
skmt.EndTransaction
|
||||
|
||||
If PB2.Progress = 0 Then
|
||||
PB2.Progress = 30
|
||||
@@ -1585,7 +1591,7 @@ Sub JobDone(Job As HttpJob)
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "hist_datos" Then 'query tag
|
||||
|
||||
skmt.BeginTransaction
|
||||
For Each records() As Object In RESULT.Rows
|
||||
|
||||
Dim HVD_CLIENTE As String = records(RESULT.Columns.Get("HVD_CLIENTE"))
|
||||
@@ -1597,6 +1603,8 @@ Sub JobDone(Job As HttpJob)
|
||||
|
||||
|
||||
Next
|
||||
skmt.TransactionSuccessful
|
||||
skmt.EndTransaction
|
||||
Listo3 =1
|
||||
|
||||
If PB1.Progress = 0 Then
|
||||
@@ -1650,17 +1658,16 @@ Sub JobDone(Job As HttpJob)
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "hist_rmi" Then 'query tag
|
||||
|
||||
skmt.BeginTransaction
|
||||
For Each records() As Object In RESULT.Rows
|
||||
|
||||
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_PROID As String = records(RESULT.Columns.Get("HVD_PROID"))
|
||||
skmt.ExecNonQuery2("INSERT INTO HIST_RMI(HR_CLIENTE,HR_PRONOMBRE,HR_PROID, HR_CANT) VALUES (?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_PROID, HVD_CANT))
|
||||
|
||||
|
||||
Next
|
||||
skmt.TransactionSuccessful
|
||||
skmt.EndTransaction
|
||||
Listo3 =1
|
||||
|
||||
If PB1.Progress = 0 Then
|
||||
@@ -1955,6 +1962,7 @@ Sub JobDone(Job As HttpJob)
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "precios" Then 'query tag
|
||||
skmt.BeginTransaction
|
||||
For Each records() As Object In RESULT.Rows
|
||||
|
||||
Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID"))
|
||||
@@ -1974,6 +1982,8 @@ Sub JobDone(Job As HttpJob)
|
||||
skmt.ExecNonQuery2("INSERT INTO CAT_PRECIOS(CAT_GP_ID,CAT_GP_PRECIO, CAT_GP_PRECIO1,CAT_GP_PRECIO2,CAT_GP_PRECIO3,CAT_GP_PRECIO4,CAT_GP_PRECIO5,CAT_GP_PRECIO6,CAT_GP_PRECIO7,CAT_GP_PRECIO8,CAT_GP_PRECIO9, CAT_GP_PRECIO10) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_PRECIO, CAT_GP_PRECIO1,CAT_GP_PRECIO2,CAT_GP_PRECIO3,CAT_GP_PRECIO4,CAT_GP_PRECIO5,CAT_GP_PRECIO6,CAT_GP_PRECIO7,CAT_GP_PRECIO8,CAT_GP_PRECIO9,CAT_GP_PRECIO10))
|
||||
|
||||
Next
|
||||
skmt.TransactionSuccessful
|
||||
skmt.EndTransaction
|
||||
skmt.ExecNonQuery("delete from LISTA_PRECIOS")
|
||||
skmt.ExecNonQuery(" insert into LISTA_PRECIOS(PRECIO, CAT_GP_ID, NLISTA) select cat_gp_precio as precio, cat_gp_id, '1' as NLISTA from CAT_PRECIOS union Select CAT_GP_PRECIO1 As precio, CAT_GP_ID, '2' as NLISTA from CAT_PRECIOS union Select CAT_GP_PRECIO2 As precio, CAT_GP_ID, '3' as NLISTA from CAT_PRECIOS union Select CAT_GP_PRECIO3 As precio, CAT_GP_ID, '4' as NLISTA from CAT_PRECIOS union Select CAT_GP_PRECIO4 As precio, CAT_GP_ID, '5' as NLISTA from CAT_PRECIOS union Select CAT_GP_PRECIO5 As precio, CAT_GP_ID, '6' as NLISTA from CAT_PRECIOS union Select CAT_GP_PRECIO6 As precio, CAT_GP_ID, '7' as NLISTA from CAT_PRECIOS union Select CAT_GP_PRECIO7 As precio, CAT_GP_ID, '8' as NLISTA from CAT_PRECIOS union Select CAT_GP_PRECIO8 As precio, CAT_GP_ID, '9' as NLISTA from CAT_PRECIOS union Select CAT_GP_PRECIO9 As precio, CAT_GP_ID, '10' as NLISTA from CAT_PRECIOS union Select CAT_GP_PRECIO10 As precio, CAT_GP_ID, '11' as NLISTA from CAT_PRECIOS")
|
||||
|
||||
|
||||
Reference in New Issue
Block a user