mirror of
https://github.com/KeymonSoft/Durakelo_Reparto.git
synced 2026-04-17 19:37:04 +00:00
6/11/23 - Se cambio el puerto y se cambiaron algunas cosas para que corra en nuevos equipos.
This commit is contained in:
@@ -25,11 +25,7 @@ Sub Globals
|
||||
End Sub
|
||||
|
||||
Sub Activity_Create(FirstTime As Boolean)
|
||||
If File.ExternalWritable Then
|
||||
ruta = File.DirDefaultExternal
|
||||
Else
|
||||
ruta = File.DirInternal
|
||||
End If
|
||||
Activity.LoadLayout("buscar")
|
||||
|
||||
' se crea o no el archivo de la base de ddatos de kmt
|
||||
|
||||
@@ -1,35 +1,36 @@
|
||||
Build1=Default,dreparto.keymon.com.mx
|
||||
File1=alert2.png
|
||||
File10=guna_viejo.png
|
||||
File11=info_gral.bal
|
||||
File12=infonavit1.jpg
|
||||
File13=itembuttonblue.png
|
||||
File14=keymon_logo.png
|
||||
File15=kmt.db
|
||||
File16=login.bal
|
||||
File17=LOGO SANFER.jpg
|
||||
File18=logo_exitus1.jpg
|
||||
File19=Malo.jpg
|
||||
File2=alerta.jpg
|
||||
File20=mapa.bal
|
||||
File21=mapa_rutas.bal
|
||||
File22=nopago.bal
|
||||
File23=nuevocliente.bal
|
||||
File24=pedido.bal
|
||||
File25=planfia_logo.png
|
||||
File26=planfia_logo_old.png
|
||||
File27=planfia_logo_old2.png
|
||||
File28=seleccion.bal
|
||||
File29=sync.png
|
||||
File3=buscar.bal
|
||||
File30=tarjeta.bal
|
||||
File31=telefonos.bal
|
||||
File4=detalle_promo.bal
|
||||
File5=durakelo1.png
|
||||
File6=fila.bal
|
||||
File7=fondo_kmt.jpg
|
||||
File8=foto.bal
|
||||
File9=guardagestion.bal
|
||||
File1=1.bal
|
||||
File10=guardagestion.bal
|
||||
File11=guna_viejo.png
|
||||
File12=info_gral.bal
|
||||
File13=infonavit1.jpg
|
||||
File14=itembuttonblue.png
|
||||
File15=keymon_logo.png
|
||||
File16=kmt.db
|
||||
File17=login.bal
|
||||
File18=LOGO SANFER.jpg
|
||||
File19=logo_exitus1.jpg
|
||||
File2=alert2.png
|
||||
File20=Malo.jpg
|
||||
File21=mapa.bal
|
||||
File22=mapa_rutas.bal
|
||||
File23=nopago.bal
|
||||
File24=nuevocliente.bal
|
||||
File25=pedido.bal
|
||||
File26=planfia_logo.png
|
||||
File27=planfia_logo_old.png
|
||||
File28=planfia_logo_old2.png
|
||||
File29=seleccion.bal
|
||||
File3=alerta.jpg
|
||||
File30=sync.png
|
||||
File31=tarjeta.bal
|
||||
File32=telefonos.bal
|
||||
File4=buscar.bal
|
||||
File5=detalle_promo.bal
|
||||
File6=durakelo1.png
|
||||
File7=fila.bal
|
||||
File8=fondo_kmt.jpg
|
||||
File9=foto.bal
|
||||
FileGroup1=Default Group
|
||||
FileGroup10=Default Group
|
||||
FileGroup11=Default Group
|
||||
@@ -55,6 +56,7 @@ FileGroup29=Default Group
|
||||
FileGroup3=Default Group
|
||||
FileGroup30=Default Group
|
||||
FileGroup31=Default Group
|
||||
FileGroup32=Default Group
|
||||
FileGroup4=Default Group
|
||||
FileGroup5=Default Group
|
||||
FileGroup6=Default Group
|
||||
@@ -82,7 +84,7 @@ Library6=core
|
||||
Library7=fusedlocationprovider
|
||||
Library8=googlemaps
|
||||
Library9=googlemapsextras
|
||||
ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: http://www.basic4ppc.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="4" android:targetSdkVersion="28"/>~\n~<supports-screens android:largeScreens="true" ~\n~ android:normalScreens="true" ~\n~ android:smallScreens="true" ~\n~ android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~AddApplicationText(<activity android:name="com.google.zxing.client.android.CaptureActivity"~\n~android:screenOrientation="landscape" ~\n~android:configChanges="orientation|keyboardHidden"~\n~android:theme="@android:style/Theme.NoTitleBar.Fullscreen"~\n~android:windowSoftInputMode="stateAlwaysHidden">~\n~</activity>)~\n~AddManifestText(~\n~<uses-permission~\n~ android:name="android.permission.READ_PHONE_STATE"~\n~ android:maxSdkVersion="19" />~\n~)~\n~AddApplicationText(~\n~<meta-data~\n~ android:name="com.google.android.geo.API_KEY"~\n~ android:value="AIzaSyBlBnx3O-DncOSv3oFIp-12wgujOYYcl-U"/>~\n~ <meta-data android:name="com.google.android.gms.version"~\n~ android:value="@integer/google_play_services_version" />~\n~)~\n~AddManifestText(~\n~<uses-permission~\n~ android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~ android:maxSdkVersion="19" />~\n~)~\n~'''' para el teclado~\n~ SetActivityAttribute(main, android:windowSoftInputMode, adjustResize|stateHidden)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~~\n~~\n~~\n~
|
||||
ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: http://www.basic4ppc.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="4" android:targetSdkVersion="28"/>~\n~<supports-screens android:largeScreens="true" ~\n~ android:normalScreens="true" ~\n~ android:smallScreens="true" ~\n~ android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~AddApplicationText(<activity android:name="com.google.zxing.client.android.CaptureActivity"~\n~android:screenOrientation="landscape" ~\n~android:configChanges="orientation|keyboardHidden"~\n~android:theme="@android:style/Theme.NoTitleBar.Fullscreen"~\n~android:windowSoftInputMode="stateAlwaysHidden">~\n~</activity>)~\n~AddManifestText(~\n~<uses-permission~\n~ android:name="android.permission.READ_PHONE_STATE"~\n~ android:maxSdkVersion="19" />~\n~)~\n~AddApplicationText(~\n~<meta-data~\n~ android:name="com.google.android.geo.API_KEY"~\n~ android:value="AIzaSyBlBnx3O-DncOSv3oFIp-12wgujOYYcl-U"/>~\n~ <meta-data android:name="com.google.android.gms.version"~\n~ android:value="@integer/google_play_services_version" />~\n~)~\n~AddManifestText(~\n~<uses-permission~\n~ android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~ android:maxSdkVersion="19" />~\n~)~\n~'''' para el teclado~\n~ SetActivityAttribute(main, android:windowSoftInputMode, adjustResize|stateHidden)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~~\n~
|
||||
Module1=BatteryUtilities
|
||||
Module10=gestion
|
||||
Module11=Historico
|
||||
@@ -104,7 +106,7 @@ Module6=DBRequestManager
|
||||
Module7=detalle_promo
|
||||
Module8=fila
|
||||
Module9=foto
|
||||
NumberOfFiles=31
|
||||
NumberOfFiles=32
|
||||
NumberOfLibraries=20
|
||||
NumberOfModules=21
|
||||
Version=12.5
|
||||
@@ -112,7 +114,7 @@ Version=12.5
|
||||
#Region Project Attributes
|
||||
#ApplicationLabel: Durakelo-Reparto
|
||||
#VersionCode: 1
|
||||
#VersionName:
|
||||
#VersionName: 3.11.06
|
||||
'SupportedOrientations possible values: unspecified, landscape or portrait.
|
||||
#SupportedOrientations: portrait
|
||||
#CanInstallToExternalStorage: False
|
||||
@@ -167,11 +169,7 @@ Sub Globals
|
||||
End Sub
|
||||
|
||||
Sub Activity_Create(FirstTime As Boolean)
|
||||
If File.ExternalWritable Then
|
||||
ruta = File.DirDefaultExternal
|
||||
Else
|
||||
ruta = File.DirInternal
|
||||
End If
|
||||
logger = True
|
||||
' 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
|
||||
@@ -193,8 +191,8 @@ Sub Activity_Create(FirstTime As Boolean)
|
||||
End If
|
||||
Activity.LoadLayout("login")
|
||||
Dim P As PhoneId
|
||||
IMEN.Text = P.GetDeviceId
|
||||
IMEI = P.GetDeviceId
|
||||
IMEN.Text = "" 'P.GetDeviceId
|
||||
IMEI = "" 'P.GetDeviceId
|
||||
|
||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)")
|
||||
|
||||
|
||||
@@ -51,7 +51,7 @@ ModuleClosedNodes13=
|
||||
ModuleClosedNodes14=
|
||||
ModuleClosedNodes15=
|
||||
ModuleClosedNodes16=9
|
||||
ModuleClosedNodes17=2,3,4,5,7,8,9,10,13,14,15,16,17,18,19,20,21
|
||||
ModuleClosedNodes17=13,14,15,16,17,18,19,20,21,22,23
|
||||
ModuleClosedNodes18=
|
||||
ModuleClosedNodes19=
|
||||
ModuleClosedNodes2=
|
||||
@@ -64,6 +64,6 @@ ModuleClosedNodes6=
|
||||
ModuleClosedNodes7=
|
||||
ModuleClosedNodes8=3,6,8,17,18,19
|
||||
ModuleClosedNodes9=
|
||||
NavigationStack=seleccion,Subir_Click,485,0,seleccion,to_number_vb,417,0,seleccion,Activity_Resume,399,0,nopago,Globals,30,0,fila,Activity_Create,149,0,Visual Designer,info_gral.bal,-100,1,fila,Activity_Pause,222,0,fila,Activity_Resume,217,0,fila,GPS_LocationChanged,233,0,Main,Activity_Create,60,0,Main,Process_Globals,21,0
|
||||
NavigationStack=seleccion,inv_Click,1071,0,seleccion,e_ruta_EnterPressed,1042,0,seleccion,JobDone,679,0,seleccion,cargar_Click,484,0,seleccion,Subir_Click,436,0,seleccion,trabajar_Click,422,0,seleccion,Activity_Pause,418,0,seleccion,to_number_vb,410,0,seleccion,Activity_Resume,287,0,colonia,Activity_Create,33,0,Main,Activity_Create,81,0
|
||||
SelectedBuild=0
|
||||
VisibleModules=18,21,10,9,12,8,4,14,11,2
|
||||
VisibleModules=18,21,10,9,12,8,4,14,11,2,5,7,15,16,17,20,19
|
||||
|
||||
@@ -49,12 +49,7 @@ Sub Activity_Create(FirstTime As Boolean)
|
||||
If(FirstTime) Then
|
||||
g.Initialize("GPS")
|
||||
End If
|
||||
|
||||
If File.ExternalWritable Then
|
||||
ruta = File.DirDefaultExternal
|
||||
Else
|
||||
ruta = File.DirInternal
|
||||
End If
|
||||
Activity.LoadLayout("tarjeta")
|
||||
borra.Visible = False
|
||||
Titulo.Text = "Pedido"
|
||||
|
||||
@@ -64,11 +64,7 @@ End Sub
|
||||
|
||||
Sub Activity_Create(FirstTime As Boolean)
|
||||
Activity.LoadLayout("MAPA_RUTAS")
|
||||
If File.ExternalWritable Then
|
||||
ruta = File.DirDefaultExternal
|
||||
Else
|
||||
ruta = File.DirInternal
|
||||
End If
|
||||
If File.Exists(ruta, "kmt.db") = False Then
|
||||
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
|
||||
End If
|
||||
|
||||
@@ -37,11 +37,7 @@ Sub Activity_Create(FirstTime As Boolean)
|
||||
'Dim ruta As String
|
||||
entro ="2"
|
||||
' valido donde escribo el archivo de la base de datos de kmt
|
||||
If File.ExternalWritable Then
|
||||
ruta = File.DirDefaultExternal
|
||||
Else
|
||||
ruta = File.DirInternal
|
||||
End If
|
||||
|
||||
' 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
|
||||
|
||||
@@ -40,12 +40,8 @@ Sub Activity_Create(FirstTime As Boolean)
|
||||
'Activity.LoadLayout("Layout1")
|
||||
Activity.LoadLayout("fila")
|
||||
'Dim ruta As String
|
||||
' valido donde escribo el archivo de la base de datos de kmt
|
||||
If File.ExternalWritable Then
|
||||
ruta = File.DirDefaultExternal
|
||||
Else
|
||||
|
||||
ruta = File.DirInternal
|
||||
End If
|
||||
|
||||
' 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
|
||||
|
||||
@@ -33,11 +33,7 @@ Sub Globals
|
||||
End Sub
|
||||
|
||||
Sub Activity_Create(FirstTime As Boolean)
|
||||
If File.ExternalWritable Then
|
||||
ruta = File.DirDefaultExternal
|
||||
Else
|
||||
ruta = File.DirInternal
|
||||
End If
|
||||
Activity.LoadLayout("detalle_promo")
|
||||
|
||||
' se crea o no el archivo de la base de ddatos de kmt
|
||||
|
||||
5
fila.bas
5
fila.bas
@@ -94,12 +94,7 @@ Sub Activity_Create(FirstTime As Boolean)
|
||||
Activity.LoadLayout("info_gral")
|
||||
|
||||
' valido donde escribo el archivo de la base de datos de kmt
|
||||
If File.ExternalWritable Then
|
||||
ruta = File.DirDefaultExternal
|
||||
Else
|
||||
ruta = File.DirInternal
|
||||
|
||||
End If
|
||||
If File.Exists(ruta, "kmt.db") = False Then
|
||||
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
|
||||
End If
|
||||
|
||||
4
foto.bas
4
foto.bas
@@ -35,11 +35,7 @@ Sub Activity_Create(FirstTime As Boolean)
|
||||
g.Initialize("GPS")
|
||||
End If
|
||||
Activity.LoadLayout("foto")
|
||||
If File.ExternalWritable Then
|
||||
ruta = File.DirDefaultExternal
|
||||
Else
|
||||
ruta = File.DirInternal
|
||||
End If
|
||||
|
||||
If File.Exists(ruta, "kmt.db") = False Then
|
||||
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
|
||||
|
||||
@@ -68,11 +68,7 @@ Sub Activity_Create(FirstTime As Boolean)
|
||||
Dim ruta As String
|
||||
|
||||
' valido donde escribo el archivo de la base de datos de kmt
|
||||
If File.ExternalWritable Then
|
||||
ruta = File.DirDefaultExternal
|
||||
Else
|
||||
ruta = File.DirInternal
|
||||
End If
|
||||
|
||||
' 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
|
||||
|
||||
@@ -45,14 +45,7 @@ Sub Activity_Create(FirstTime As Boolean)
|
||||
End If
|
||||
|
||||
Activity.LoadLayout("nopago")
|
||||
|
||||
' valido donde escribo el archivo de la base de datos de kmt
|
||||
If File.ExternalWritable Then
|
||||
ruta = File.DirDefaultExternal
|
||||
Else
|
||||
ruta = File.DirInternal
|
||||
|
||||
End If
|
||||
If File.Exists(ruta, "kmt.db") = False Then
|
||||
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
|
||||
End If
|
||||
|
||||
@@ -43,13 +43,7 @@ Sub Activity_Create(FirstTime As Boolean)
|
||||
|
||||
Activity.LoadLayout("nuevocliente")
|
||||
|
||||
' valido donde escribo el archivo de la base de datos de kmt
|
||||
If File.ExternalWritable Then
|
||||
ruta = File.DirDefaultExternal
|
||||
Else
|
||||
ruta = File.DirInternal
|
||||
|
||||
End If
|
||||
If File.Exists(ruta, "kmt.db") = False Then
|
||||
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
|
||||
End If
|
||||
|
||||
@@ -64,13 +64,7 @@ Sub Activity_Create(FirstTime As Boolean)
|
||||
Activity.LoadLayout("pedido")
|
||||
i_fotol.Visible = False
|
||||
|
||||
' valido donde escribo el archivo de la base de datos de kmt
|
||||
If File.ExternalWritable Then
|
||||
ruta = File.DirDefaultExternal
|
||||
Else
|
||||
ruta = File.DirInternal
|
||||
|
||||
End If
|
||||
If File.Exists(ruta, "kmt.db") = False Then
|
||||
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
|
||||
End If
|
||||
|
||||
170
seleccion.bas
170
seleccion.bas
@@ -107,12 +107,7 @@ Sub Activity_Create(FirstTime As Boolean)
|
||||
Dim ruta As String
|
||||
img2.Visible =False
|
||||
|
||||
' valido donde escribo el archivo de la base de datos de kmt
|
||||
If File.ExternalWritable Then
|
||||
ruta = File.DirDefaultExternal
|
||||
Else
|
||||
ruta = File.DirInternal
|
||||
End If
|
||||
|
||||
' 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
|
||||
@@ -304,8 +299,6 @@ Sub Activity_Resume
|
||||
C.Close
|
||||
c=skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")
|
||||
|
||||
|
||||
|
||||
'' HACER ESTO PARA EL FORANEO
|
||||
'If c.RowCount>0 Then
|
||||
'For i=0 To c.RowCount -1
|
||||
@@ -404,12 +397,12 @@ c.Close
|
||||
Main.Montosalida = L_MONTOD.Text
|
||||
Main.ALMACEN = ALMACEN
|
||||
Main.rutapreventa = RUTA_T
|
||||
|
||||
Main.clientestotal = l_cuantosc.Text + l_cuantosn.Text
|
||||
Main.clientesventa = l_cuantosn.Text
|
||||
Main.clientesvisitados = l_porvisitar.TEXT
|
||||
'l_cuantosc.Text
|
||||
End Sub
|
||||
|
||||
Sub to_number_vb (valor As Object) As String
|
||||
Dim valstring As Int
|
||||
Dim valstring2 As String = valor
|
||||
@@ -420,7 +413,6 @@ Return valstring
|
||||
Catch
|
||||
Return 0
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Activity_Pause (UserClosed As Boolean)
|
||||
@@ -428,17 +420,14 @@ cargar.Visible = False
|
||||
Subir.Visible = False
|
||||
connecta.Visible = True
|
||||
inv.Visible = False
|
||||
|
||||
End Sub
|
||||
|
||||
Sub trabajar_Click
|
||||
'CallSubDelayed(gestion,"gestion")
|
||||
skmt.ExecNonQuery("UPDATE PUNTEO_GPS SET HV_LONG= (select CAT_CL_LONG from KMT_INFO where CAT_CL_CODIGO = PUNTEO_GPS.HV_CLIENTE) , HV_LAT= (select CAT_CL_LAT from KMT_INFO where CAT_CL_CODIGO = PUNTEO_GPS.HV_CLIENTE) WHERE HV_LONG ='null' and HV_LAT='null' ")
|
||||
|
||||
StartActivity(colonia)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub Subir_Click
|
||||
c=skmt.ExecQuery("select usuario from usuarioa")
|
||||
c.Position = 0
|
||||
@@ -446,24 +435,19 @@ c=skmt.ExecQuery("select usuario from usuarioa")
|
||||
c.Close
|
||||
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
|
||||
c=skmt.ExecQuery("SELECT REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO")
|
||||
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_reparto_rechazo_dur"
|
||||
' cmd.Parameters = Array As Object(C.GetString("REP_CLIENTE"),C.GetString("REP_PRONOMBRE"),C.GetString("REP_CANT"),C.GetString("REP_COSTO_TOT"),C.GetString("REP_FECHA"), ALMACEN)
|
||||
|
||||
cmd.Parameters = Array As Object(C.GetString("REP_CLIENTE"),C.GetString("REP_PRONOMBRE"),C.GetString("REP_CANT"),C.GetString("REP_COSTO_TOT"), ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
|
||||
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
|
||||
|
||||
' NOVENTA
|
||||
c=skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA")
|
||||
D=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
|
||||
@@ -472,24 +456,20 @@ c=skmt.ExecQuery("select usuario from usuarioa")
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
foto1 = c.GetBlob("NV_FOTO")
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_reparto_dur"
|
||||
cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text, foto1)
|
||||
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
|
||||
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
d.Position=0
|
||||
cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
|
||||
d.Close
|
||||
|
||||
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub cargar_Click
|
||||
img2.Visible =True
|
||||
EJECUTANDO = 1
|
||||
@@ -528,14 +508,11 @@ Sub cargar_Click
|
||||
'reqManager.ExecuteQuery(cmd,0,"count_cli")
|
||||
|
||||
If ALMACEN = "5" Or ALMACEN ="6" Or ALMACEN = "3" Then
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_punteo_re_DUR2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "punteo")
|
||||
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_almacen_guna_re_dur2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
@@ -551,8 +528,6 @@ Sub cargar_Click
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "rechazo")
|
||||
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cliente_guna_re_dur2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,e_ruta.text, ALMACEN,ALMACEN)
|
||||
@@ -563,16 +538,12 @@ Sub cargar_Click
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
|
||||
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
|
||||
|
||||
Else
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_punteo_re_DUR"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "punteo")
|
||||
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_almacen_guna_re_dur"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
@@ -588,8 +559,6 @@ Sub cargar_Click
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "rechazo")
|
||||
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cliente_guna_re_dur"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,e_ruta.text, ALMACEN,ALMACEN)
|
||||
@@ -602,21 +571,16 @@ Sub cargar_Click
|
||||
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TO
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
c=skmt.ExecQuery("SELECT REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO")
|
||||
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_reparto_rechazo"
|
||||
cmd.Parameters = Array As Object(C.GetString("REP_CLIENTE"),C.GetString("REP_PRONOMBRE"),C.GetString("REP_CANT"),C.GetString("REP_COSTO_TOT"),C.GetString("REP_FECHA"), ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
|
||||
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
@@ -630,23 +594,17 @@ Sub cargar_Click
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
foto1 = c.GetBlob("NV_FOTO")
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_reparto"
|
||||
cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text, foto1)
|
||||
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
|
||||
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
d.Position=0
|
||||
cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
|
||||
d.Close
|
||||
|
||||
|
||||
|
||||
|
||||
cargar.Visible = False
|
||||
Subir.Visible = False
|
||||
connecta.Visible = True
|
||||
@@ -657,9 +615,6 @@ Sub cargar_Click
|
||||
'cmd.Name = "select_telefonos_riva"
|
||||
'cmd.Parameters = Array As Object(usuario)
|
||||
'reqManager.ExecuteQuery(cmd , 0, "telefonos")
|
||||
|
||||
|
||||
|
||||
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True)
|
||||
End Sub
|
||||
Sub JobDone(Job As HttpJob)
|
||||
@@ -689,10 +644,7 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim CAT_CL_LONG As String = records(RESULT.Columns.Get("CAT_CL_LONG"))
|
||||
Dim CAT_CL_LAT As String = records(RESULT.Columns.Get("CAT_CL_LAT"))
|
||||
Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
|
||||
|
||||
|
||||
skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO))
|
||||
|
||||
Next
|
||||
Listo1 = 1
|
||||
If Listo1 =1 And Listo3 = 1 Then
|
||||
@@ -701,17 +653,13 @@ Sub JobDone(Job As HttpJob)
|
||||
img2.Visible=False
|
||||
EJECUTANDO=0
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "gunaprod" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
|
||||
Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID"))
|
||||
Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE"))
|
||||
Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1"))
|
||||
@@ -724,11 +672,8 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG"))
|
||||
'Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
|
||||
' Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV"))
|
||||
|
||||
' 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_DEV) 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_DEV))
|
||||
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) 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, 0))
|
||||
|
||||
|
||||
Next
|
||||
Listo2=1
|
||||
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
|
||||
@@ -736,9 +681,7 @@ Sub JobDone(Job As HttpJob)
|
||||
Activity_Resume
|
||||
img2.Visible=False
|
||||
EJECUTANDO=0
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -760,8 +703,6 @@ Sub JobDone(Job As HttpJob)
|
||||
'Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
|
||||
|
||||
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) 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, 0))
|
||||
|
||||
|
||||
Next
|
||||
Listo4=1
|
||||
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
|
||||
@@ -775,17 +716,13 @@ Sub JobDone(Job As HttpJob)
|
||||
img2.Visible=False
|
||||
EJECUTANDO=0
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "detallepaq" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
|
||||
Dim CAT_DP_ALMACEN As String = records(RESULT.Columns.Get("CAT_DP_ALMACEN"))
|
||||
Dim CAT_DP_ID As String = records(RESULT.Columns.Get("CAT_DP_ID"))
|
||||
Dim CAT_DP_IDPROD As String = records(RESULT.Columns.Get("CAT_DP_IDPROD"))
|
||||
@@ -797,13 +734,7 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim CAT_DP_CLASIF As String = records(RESULT.Columns.Get("CAT_DP_CLASIF"))
|
||||
Dim CAT_DP_PRECIO As String = records(RESULT.Columns.Get("CAT_DP_PRECIO"))
|
||||
Dim CAT_DP_PRECIO_SIMPTOS As String = records(RESULT.Columns.Get("CAT_DP_PRECIO_SIMPTOS"))
|
||||
|
||||
|
||||
|
||||
|
||||
skmt.ExecNonQuery2("INSERT INTO CAT_DETALLES_PAQ(CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS))
|
||||
|
||||
|
||||
Next
|
||||
Listo3 =1
|
||||
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
|
||||
@@ -817,7 +748,6 @@ Sub JobDone(Job As HttpJob)
|
||||
img2.Visible=False
|
||||
EJECUTANDO=0
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -825,14 +755,10 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "punteo" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
|
||||
Dim HV_CLIENTE As String = records(RESULT.Columns.Get("HV_CLIENTE"))
|
||||
Dim HV_LONG As String = records(RESULT.Columns.Get("HV_LONG"))
|
||||
Dim HV_LAT As String = records(RESULT.Columns.Get("HV_LAT"))
|
||||
|
||||
skmt.ExecNonQuery2("INSERT INTO PUNTEO_GPS(HV_CLIENTE, HV_LONG, HV_LAT) VALUES (?,?,?)", Array As Object (HV_CLIENTE, HV_LONG, HV_LAT))
|
||||
|
||||
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
@@ -841,31 +767,24 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "hist_datos" Then 'query tag
|
||||
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_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT"))
|
||||
Dim HVD_FECHA As String = records(RESULT.Columns.Get("HVD_FECHA"))
|
||||
|
||||
skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_ESTATUS) VALUES (?,?,?,?,?,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA))
|
||||
|
||||
|
||||
Next
|
||||
f2=skmt.ExecQuery2("select COUNT(*) as CAMBIOS from hist_ventas where SUBSTR(HVD_PRONOMBRE,1,6) =?", Array As String("CAMBIO"))
|
||||
f2.Position = 0
|
||||
If f2.GetString("CAMBIOS") > 0 Then
|
||||
|
||||
f1=skmt.ExecQuery2("select sum(HVD_CANT) as CAMBIOS from hist_ventas where SUBSTR(HVD_PRONOMBRE,1,6) =?", Array As String("CAMBIO"))
|
||||
f1.Position = 0
|
||||
|
||||
skmt.ExecNonQuery2("delete from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =?", Array As Object("CAMBIOS"))
|
||||
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES VALUES(?,?)", Array As Object("CAMBIOS",f1.GetString("CAMBIOS")))
|
||||
f1.Close
|
||||
Else
|
||||
skmt.ExecNonQuery2("delete from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =?", Array As Object("CAMBIOS"))
|
||||
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES VALUES(?,?)", Array As Object("CAMBIOS","0"))
|
||||
|
||||
End If
|
||||
f2.Close
|
||||
Listo3 =1
|
||||
@@ -874,30 +793,16 @@ Sub JobDone(Job As HttpJob)
|
||||
Activity_Resume
|
||||
img2.Visible=False
|
||||
EJECUTANDO=0
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "variables" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
|
||||
Dim Cat_Va_Descripcion As String = records(RESULT.Columns.Get("CAT_VA_DESCRIPCION"))
|
||||
Dim Cat_Va_Valor As String = records(RESULT.Columns.Get("CAT_VA_VALOR"))
|
||||
|
||||
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object (Cat_Va_Descripcion, Cat_Va_Valor))
|
||||
|
||||
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
@@ -907,18 +812,13 @@ If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "valida_pedido" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
|
||||
Dim CUANTOSP As Int = records(RESULT.Columns.Get("CUANTOSP"))
|
||||
|
||||
If cuantos_pedido = CUANTOSP Then
|
||||
' ToastMessageShow("rojo val ok 1 cuantosp." , True)
|
||||
datos_iguales = "ok"
|
||||
Else
|
||||
ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
@@ -927,18 +827,13 @@ If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "valida_pedidoc" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
|
||||
Dim CUANTOSC As Int = records(RESULT.Columns.Get("CUANTOSC"))
|
||||
|
||||
If cuantos_pedidosc = CUANTOSC Then
|
||||
' ToastMessageShow("rojo val ok 1 cuantosp." , True)
|
||||
datos_iguales = "ok"
|
||||
Else
|
||||
ToastMessageShow("No se cargo bien la info C. Sync Nuevamente" & CUANTOSC & " " & cuantos_pedidosc, True)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
@@ -955,10 +850,7 @@ If Job.JobName = "DBRequest" Then
|
||||
datos_iguales = "ok"
|
||||
Else
|
||||
ToastMessageShow("No se cargo bien la info N. Sync Nuevamente" & CUANTOSN & " " & cuantos_noventa, True)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
@@ -967,7 +859,6 @@ If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "insert_pedido" Then 'query tag
|
||||
ToastMessageShow("Datos Actualizados." , True)
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -977,9 +868,7 @@ If Job.JobName = "DBRequest" Then
|
||||
For Each records() As Object In RESULT.Rows
|
||||
skmt.ExecNonQuery("delete from VERSION")
|
||||
Dim CAT_VE_VERSION As String = records(RESULT.Columns.Get("CAT_VE_VERSION"))
|
||||
|
||||
skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION))
|
||||
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
@@ -988,12 +877,7 @@ If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "count_cli" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
|
||||
COUNT_CLIE = records(RESULT.Columns.Get("COUNT_CLIE"))
|
||||
|
||||
|
||||
|
||||
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
@@ -1002,22 +886,16 @@ If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "ruta" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
|
||||
Dim VALIDO As String = records(RESULT.Columns.Get("VALIDO"))
|
||||
|
||||
If VALIDO = "OK" Then
|
||||
If l_ctast.Text = "0" Then
|
||||
Subir.Visible = True
|
||||
End If
|
||||
cargar.Visible = True
|
||||
|
||||
' inv.Visible = True
|
||||
connecta.Visible = False
|
||||
|
||||
skmt.ExecNonQuery("DELETE FROM RUTAA")
|
||||
|
||||
skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT))
|
||||
|
||||
If conn = "1" Then
|
||||
ToastMessageShow("Existe Conexión con el Servidor." , True)
|
||||
End If
|
||||
@@ -1026,18 +904,12 @@ If Job.JobName = "DBRequest" Then
|
||||
Subir.Visible = False
|
||||
inv.Visible = False
|
||||
connecta.Visible = False
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Job.Release
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Activity_KeyPress (key As Int) As Boolean
|
||||
@@ -1050,35 +922,34 @@ Sub Activity_KeyPress (key As Int) As Boolean
|
||||
' Returning False signals the system to handle the key
|
||||
Return False
|
||||
End Sub
|
||||
|
||||
Sub connecta_Click
|
||||
imei = p.GetDeviceId
|
||||
imei = "" 'p.GetDeviceId
|
||||
conn = "1"
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_version"
|
||||
reqManager.ExecuteQuery(cmd , 0, "version")
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ruta_re"
|
||||
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
|
||||
reqManager.ExecuteQuery(cmd , 0, "ruta")
|
||||
|
||||
ToastMessageShow("Validando Conexión." , True)
|
||||
End Sub
|
||||
|
||||
Sub BUSCA_Click
|
||||
StartActivity(BUSCAR)
|
||||
End Sub
|
||||
|
||||
Sub b_mapa_Click
|
||||
StartActivity(mapas)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub e_ruta_EnterPressed
|
||||
If e_ruta.Text = "FIN DIA" Then
|
||||
RES = Msgbox2("Seguro que desa hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
|
||||
If RES = DialogResponse.POSITIVE Then
|
||||
|
||||
e_ruta.Text = ""
|
||||
skmt.ExecNonQuery("delete from pedido_cliente")
|
||||
skmt.ExecNonQuery("delete from pedido")
|
||||
@@ -1089,55 +960,40 @@ Sub e_ruta_EnterPressed
|
||||
skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
||||
skmt.ExecNonQuery("delete from HIST_VENTAS")
|
||||
skmt.ExecNonQuery("delete from REPARTO")
|
||||
|
||||
|
||||
Activity_Resume
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub inv_Click
|
||||
img2.Visible =True
|
||||
EJECUTANDO = 1
|
||||
inve = 1
|
||||
skmt.ExecNonQuery("delete from cat_gunaprod")
|
||||
skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
||||
|
||||
c=skmt.ExecQuery("select usuario from usuarioa")
|
||||
c.Position = 0
|
||||
usuario = c.GetString("USUARIO")
|
||||
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_gunaprod"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_paquetes"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_detallepa"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "detallepaq")
|
||||
|
||||
|
||||
|
||||
cargar.Visible = False
|
||||
Subir.Visible = False
|
||||
connecta.Visible = True
|
||||
inv.Visible = False
|
||||
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True)
|
||||
|
||||
End Sub
|
||||
Sub t1_tick
|
||||
|
||||
Sub t1_tick
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cuantos_pedido"
|
||||
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
|
||||
@@ -1164,7 +1020,6 @@ Sub B_CLIEPROD_Click
|
||||
Panel1.Visible = True
|
||||
Btn_UbicarR.Visible=False
|
||||
c=skmt.ExecQuery("select HVD_CLIENTE, HVD_PRONOMBRE, HVD_CANT, HVD_ESTATUS from HIST_VENTAS ORDER BY HVD_PRONOMBRE")
|
||||
|
||||
ListView1.Clear
|
||||
Dim label1 As Label
|
||||
label1 = ListView1.TwoLinesLayout.Label
|
||||
@@ -1174,7 +1029,6 @@ Sub B_CLIEPROD_Click
|
||||
label2 = ListView1.TwoLinesLayout.SecondLabel
|
||||
label2.TextSize = 10
|
||||
label2.TextColor = Colors.Black
|
||||
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
@@ -1201,23 +1055,19 @@ Sub B_REGRESA_Click
|
||||
Btn_UbicarR.Visible=True
|
||||
End Sub
|
||||
|
||||
|
||||
Sub Btn_UbicarR_Click
|
||||
skmt.ExecNonQuery("UPDATE PUNTEO_GPS SET HV_LONG= (select CAT_CL_LONG from KMT_INFO where CAT_CL_CODIGO = PUNTEO_GPS.HV_CLIENTE) , HV_LAT= (select CAT_CL_LAT from KMT_INFO where CAT_CL_CODIGO = PUNTEO_GPS.HV_CLIENTE) WHERE HV_LONG ='null' and HV_LAT='null' ")
|
||||
|
||||
StartActivity(MAPA_RUTAS)
|
||||
End Sub
|
||||
|
||||
'''''''''''''''''''''''''''''''''''' VALIDAR CARACTERES
|
||||
Sub e_ruta_TextChanged (Old As String, New As String)
|
||||
Dim validChars As String ="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 "
|
||||
|
||||
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)
|
||||
End Try
|
||||
|
||||
@@ -45,11 +45,7 @@ Sub Activity_Create(FirstTime As Boolean)
|
||||
g.Initialize("GPS")
|
||||
End If
|
||||
|
||||
If File.ExternalWritable Then
|
||||
ruta = File.DirDefaultExternal
|
||||
Else
|
||||
ruta = File.DirInternal
|
||||
End If
|
||||
Activity.LoadLayout("tarjeta")
|
||||
borra.Visible = True
|
||||
Titulo.Text = "Pedido Actual"
|
||||
|
||||
@@ -36,12 +36,8 @@ End Sub
|
||||
|
||||
Sub Activity_Create(FirstTime As Boolean)
|
||||
'Do not forget to load the layout file created with the visual designer. For example:
|
||||
'Activity.LoadLayout("Layout1")
|
||||
If File.ExternalWritable Then
|
||||
ruta = File.DirDefaultExternal
|
||||
Else
|
||||
|
||||
ruta = File.DirInternal
|
||||
End If
|
||||
Activity.LoadLayout("telefonos")
|
||||
If File.Exists(ruta, "kmt.db") = False Then
|
||||
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
|
||||
|
||||
Reference in New Issue
Block a user