mirror of
https://github.com/KeymonSoft/Durakelo.git
synced 2026-04-20 12:49:25 +00:00
..
This commit is contained in:
@@ -156,15 +156,21 @@ Sub Class_Globals
|
||||
Private cuantos_exib As String
|
||||
Dim ime As IME
|
||||
Private l_monto_kc As Label
|
||||
Private l_version As Label
|
||||
End Sub
|
||||
|
||||
Sub initialize
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
EJECUTANDO=1
|
||||
SERVER = Starter.DBReqServer
|
||||
reqManager.Initialize(Me, SERVER)
|
||||
Log(SERVER)
|
||||
Root = Root1
|
||||
Root.LoadLayout("seleccion")
|
||||
Root.LoadLayout("principal")
|
||||
img2.Visible =False
|
||||
|
||||
' valido donde escribo el archivo de la base de datos de kmt
|
||||
@@ -180,10 +186,6 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
fecha=DateTime.Date(DateTime.Now)
|
||||
skmt.Initialize(ruta,"kmt.db", True)
|
||||
c=skmt.ExecQuery2("select CAT_CO_CONFIGURACION from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
|
||||
c.Position =0
|
||||
SERVER = c.GetString("CAT_CO_CONFIGURACION")
|
||||
c.Close
|
||||
|
||||
b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente")
|
||||
b.Position=0
|
||||
@@ -243,7 +245,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_VALOR,CAT_VA_DESCRIPCION) VALUES (?,?)" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
|
||||
End If
|
||||
DateTime.TimeFormat = "HH:mm:ss"
|
||||
|
||||
P1.Top = 0 : P1.left = 0
|
||||
P_RESUMEN.Top = 0 : P_RESUMEN.left = 0
|
||||
P_RESUMEN.Width = Root.Width
|
||||
End Sub
|
||||
|
||||
Sub IsConnectedToInternet As Boolean
|
||||
@@ -298,20 +302,7 @@ Sub B4XPage_Appear
|
||||
l_ruta.Text = f.GetString("CAT_CL_RUTA")
|
||||
f.Close
|
||||
End If
|
||||
|
||||
' c=skmt.ExecQuery("select noversion from version")
|
||||
' c.Position=0
|
||||
' If c.GetString("NOVERSION") <> "2.1" Then
|
||||
' ToastMessageShow("EXISTE UNA NUEVA VERSION ACTUALIZA POR FAVOR." , True)
|
||||
' cargar.Visible = False
|
||||
' Subir.Visible = False
|
||||
' connecta.Visible = False
|
||||
' trabajar.Visible = False
|
||||
' BUSCA.Visible = False
|
||||
' inv.Visible = False
|
||||
'
|
||||
' End If
|
||||
' c.Close
|
||||
|
||||
c=skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
|
||||
c.Position =0
|
||||
If c.GetString("CUANTOS") = 0 Then
|
||||
@@ -393,76 +384,13 @@ Sub B4XPage_Appear
|
||||
|
||||
End If
|
||||
|
||||
' bu.Initialize
|
||||
' batterystatus = bu.BatteryInformation
|
||||
'
|
||||
' sb.Initialize
|
||||
' PHONE.Shell("ping -c1 -W1 google.com",Null, sb,Null)
|
||||
'
|
||||
' c = skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
|
||||
' c.Position = 0
|
||||
'
|
||||
' 'Valida si ya se cuenta con hora para enviar cada 5 min-----------
|
||||
' If c.GetString("HoraIngreso") > 0 Then
|
||||
' D2 = skmt.ExecQuery2("select CAT_VA_VALOR as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
|
||||
' D2.Position = 0
|
||||
' HORAINGRESO = D2.GetString("HoraIngreso")
|
||||
' D2.Close
|
||||
' End If
|
||||
' DateTime.TimeFormat = "HHmmss"
|
||||
'
|
||||
' If HORAINGRESO + 500 < DateTime.Time(DateTime.Now) Then
|
||||
'
|
||||
'
|
||||
' If sb.Length > 2 And sb.ToString.SubString2(110,114) <> "smit" Then
|
||||
' c=skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")
|
||||
'
|
||||
' If c.RowCount>0 Then
|
||||
' For i=0 To c.RowCount -1
|
||||
' c.Position=i
|
||||
' ' s=skmt.ExecQuery2("SELECT HIST_VI_IMAGEN FROM HIST_VISITAS WHERE HIST_VI_CREDITO =?", Array As String (c.GetString("HIST_VI_CREDITO")))
|
||||
' ' s.Position =0
|
||||
' 'LO DOCUMENTO PARA NO HACER TAN PESADO LA TRAN DE DATOS QUE SOLO MANDE UNO
|
||||
'' Dim cmd As DBCommand
|
||||
'' cmd.Initialize
|
||||
'' cmd.Name = "insert_gps_actual_GUNA"
|
||||
'' cmd.Parameters = Array As Object(c.GetString("hglat"),c.GetString("hglon"),usuario,ALMACEN,l_ruta.Text )
|
||||
'' 'cmd.Parameters = Array As Object(C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON") )
|
||||
'
|
||||
' 'reqManager.ExecuteQuery(cmd , 0, "inst_visitas")
|
||||
'
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_fechat"
|
||||
' reqManager.ExecuteQuery(cmd , 0, "fechat")
|
||||
'
|
||||
'
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "UPDATE_DURK_ACTUAL2_GPS"
|
||||
' cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,c.GetString("hglat"),c.GetString("hglon"),batterystatus(0),0, 0, 0,ALMACEN,l_ruta.Text )
|
||||
' reqManager.ExecuteCommand(cmd,"inst_visitas")
|
||||
' skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
|
||||
'
|
||||
'
|
||||
'
|
||||
' ' Dim cmd As DBCommand
|
||||
' ' cmd.Initialize
|
||||
' ' cmd.Name = "update_gps_actual_TKM"
|
||||
' ' cmd.Parameters = Array As Object(C.GetString("HGLAT"),C.GetString("HGLON"),usuario )
|
||||
' ' reqManager.ExecuteQuery(cmd , 0, "inst_visitas")
|
||||
' 'lv.AddTwoLines(c.GetString("HIST_VI_CREDITO"),c.GetString("HIST_VI_RESULTADO"))
|
||||
' Next
|
||||
' End If
|
||||
' c.Close
|
||||
' End If
|
||||
' End If
|
||||
|
||||
Main.montoActual = L_MONTOD.Text
|
||||
Main.clientestotal = L_CUANTOST.Text
|
||||
Main.clientesventa = l_cuantosc.Text
|
||||
Main.clientesvisitados = l_porvisitar.TEXT
|
||||
Main.ALMACEN = ALMACEN
|
||||
Main.rutapreventa = l_ruta.text
|
||||
' Main.montoActual = L_MONTOD.Text
|
||||
' Main.clientestotal = L_CUANTOST.Text
|
||||
' Main.clientesventa = l_cuantosc.Text
|
||||
' Main.clientesvisitados = l_porvisitar.TEXT
|
||||
' Main.ALMACEN = ALMACEN
|
||||
' Main.rutapreventa = l_ruta.text
|
||||
|
||||
DateTime.TimeFormat = "HH:mm:ss"
|
||||
|
||||
@@ -496,7 +424,9 @@ Sub trabajar_Click
|
||||
c.Close
|
||||
skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" )
|
||||
skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_ID IN (SELECT CAT_DP_ID FROM CAT_DETALLES_PAQ WHERE CAT_DP_IDPROD NOT IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD))")
|
||||
StartActivity(colonia)
|
||||
|
||||
' StartActivity(colonia)
|
||||
B4XPages.ShowPage("Clientes")
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -1975,18 +1905,15 @@ Sub GPS_LocationChanged (Location1 As Location)
|
||||
End Sub
|
||||
|
||||
Sub connecta_Click
|
||||
' c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("RUTA"))
|
||||
' c.Position =0
|
||||
' If c.GetString("CAT_VA_VALOR") = l_ruta.Text Then
|
||||
ime.HideKeyboard
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_DURK_ACTUAL2_GPS"
|
||||
cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,Main.lat_gps,Main.lon_gps,batterystatus(0),0, 0, 0,ALMACEN,l_ruta.Text )
|
||||
reqManager.ExecuteCommand(cmd,"inst_visitas")
|
||||
' cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,Main.lat_gps,Main.lon_gps,batterystatus(0),0, 0, 0,ALMACEN,l_ruta.Text )
|
||||
' reqManager.ExecuteCommand(cmd,"inst_visitas")
|
||||
|
||||
connecta1 = connecta1 + 1
|
||||
imei = p.GetDeviceId
|
||||
imei = ""
|
||||
conn = "1"
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
@@ -2007,17 +1934,14 @@ Sub connecta_Click
|
||||
e_ruta.Text = ""
|
||||
End If
|
||||
ToastMessageShow("Validando Conexión." , True)
|
||||
' Else
|
||||
' Msgbox("LA RUTA NO ES CORRECTA","")
|
||||
' End If
|
||||
End Sub
|
||||
|
||||
Sub BUSCA_Click
|
||||
StartActivity(BUSCAR)
|
||||
' StartActivity(BUSCAR)
|
||||
End Sub
|
||||
|
||||
Sub b_mapa_Click
|
||||
StartActivity(mapas)
|
||||
' StartActivity(mapas)
|
||||
End Sub
|
||||
|
||||
Sub e_ruta_EnterPressed
|
||||
@@ -2318,7 +2242,7 @@ Sub B_OK_PAS_Click
|
||||
End Sub
|
||||
|
||||
Sub NUEVO_Click
|
||||
StartActivity(nuevocliente)
|
||||
' StartActivity(nuevocliente)
|
||||
End Sub
|
||||
|
||||
Sub B_OK_RES_Click
|
||||
@@ -2518,10 +2442,10 @@ Sub Resumen_Click
|
||||
End Sub
|
||||
|
||||
Sub B_PROXIMA_Click
|
||||
skmt.ExecNonQuery("delete from CUENTAA")
|
||||
skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
|
||||
Main.tipov = "ABORDO"
|
||||
StartActivity(colonia2)
|
||||
' skmt.ExecNonQuery("delete from CUENTAA")
|
||||
' skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
|
||||
' Main.tipov = "ABORDO"
|
||||
'' StartActivity(colonia2)
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -2633,7 +2557,7 @@ Sub Btn_UbicarR_Click
|
||||
c.Close
|
||||
skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" )
|
||||
skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_ID IN (SELECT CAT_DP_ID FROM CAT_DETALLES_PAQ WHERE CAT_DP_IDPROD NOT IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD))")
|
||||
StartActivity(MAPA_RUTAS)
|
||||
' StartActivity(MAPA_RUTAS)
|
||||
End Sub
|
||||
|
||||
Sub SUBIR_P_Click
|
||||
@@ -2794,9 +2718,9 @@ Sub SUBIR_P_Click
|
||||
End Sub
|
||||
|
||||
Sub b_e_resumen_Click
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_DURK_ACTUAL2_GPS"
|
||||
cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,Main.lat_gps,Main.lon_gps,batterystatus(0),0, 0, 0,ALMACEN,l_ruta.Text )
|
||||
reqManager.ExecuteCommand(cmd,"inst_visitas")
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "UPDATE_DURK_ACTUAL2_GPS"
|
||||
' cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,Main.lat_gps,Main.lon_gps,batterystatus(0),0, 0, 0,ALMACEN,l_ruta.Text )
|
||||
' reqManager.ExecuteCommand(cmd,"inst_visitas")
|
||||
End Sub
|
||||
Reference in New Issue
Block a user