mirror of
https://github.com/KeymonSoft/Android_Danvit.git
synced 2026-04-17 19:37:08 +00:00
VERSION 6.04.07
- Cambios en la clase DBRequestManager para que mande mas logs - Se agtego un parametro al query hist_comp_promos
This commit is contained in:
@@ -4,7 +4,7 @@ ModulesStructureVersion=1
|
||||
Type=Class
|
||||
Version=6.8
|
||||
@EndOfDesignText@
|
||||
'Class module
|
||||
''Class module
|
||||
Sub Class_Globals
|
||||
Private mTarget As Object
|
||||
Type DBResult (Tag As Object, Columns As Map, Rows As List)
|
||||
@@ -15,6 +15,12 @@ Sub Class_Globals
|
||||
,T_DOUBLE = 6, T_BOOLEAN = 7, T_BLOB = 8 As Byte
|
||||
Private VERSION As Float = 0.9
|
||||
Private tempArray(1) As Object
|
||||
Dim jobTagAnterior As String = "" 'Mod por CHV - 211109
|
||||
Dim reqsList, timesList As List
|
||||
Dim inicioRequest As Long 'ignore
|
||||
Dim inicioJobDone As Long 'ignore
|
||||
Dim inicioRequestMap, inicioJobDoneMap As Map
|
||||
Private logger As Boolean = False
|
||||
End Sub
|
||||
|
||||
'Target - The module that handles JobDone (usually Me).
|
||||
@@ -31,7 +37,9 @@ End Sub
|
||||
Public Sub ExecuteQuery(Command As DBCommand, Limit As Int, Tag As Object)
|
||||
Dim j As HttpJob
|
||||
Dim ms As OutputStream
|
||||
Dim out2 As OutputStream = StartJob(j,ms, Tag)
|
||||
Dim out2 As OutputStream = StartJob(j, ms, Tag)
|
||||
' If reqsList.IsInitialized Then reqsList.Add(Tag)
|
||||
' If timesList.IsInitialized Then timesList.Add(DateTime.now)
|
||||
|
||||
WriteObject(Command.Name, out2)
|
||||
WriteInt(Limit, out2)
|
||||
@@ -40,13 +48,30 @@ Public Sub ExecuteQuery(Command As DBCommand, Limit As Int, Tag As Object)
|
||||
j.PostBytes(link & "?method=query", ms.ToBytesArray)
|
||||
End Sub
|
||||
|
||||
'Sends a query request.
|
||||
'Command - Query name and parameters.
|
||||
'Limit - Maximum rows to return or 0 for no limit.
|
||||
'Tag - An object that will be returned in the result.
|
||||
'Timeout - The http request timeout in ms, or 0 if default (30 secs)
|
||||
Public Sub ExecuteQuery3(Command As DBCommand, Limit As Int, Tag As Object, Timeout As Int) 'Mod por CHV, agregué el parametro Timeout - 211229
|
||||
Dim j As HttpJob
|
||||
Dim ms As OutputStream
|
||||
Dim out2 As OutputStream = StartJob(j,ms, Tag)
|
||||
WriteObject(Command.Name, out2)
|
||||
WriteInt(Limit, out2)
|
||||
WriteList(Command.Parameters, out2)
|
||||
out2.Close
|
||||
j.PostBytes(link & "?method=query", ms.ToBytesArray)
|
||||
If Timeout <> 0 Then j.GetRequest.Timeout = Timeout
|
||||
End Sub
|
||||
|
||||
'Executes a batch of (non-select) commands.
|
||||
'ListOfCommands - List of the commands that will be executes.
|
||||
'Tag - An object that will be returned in the result.
|
||||
Public Sub ExecuteBatch(ListOfCommands As List, Tag As Object)
|
||||
Dim j As HttpJob
|
||||
Dim ms As OutputStream
|
||||
Dim out2 As OutputStream = StartJob(j,ms, Tag)
|
||||
Dim out2 As OutputStream = StartJob(j, ms, Tag)
|
||||
WriteInt(ListOfCommands.Size, out2)
|
||||
For Each Command As DBCommand In ListOfCommands
|
||||
WriteObject(Command.Name, out2)
|
||||
@@ -58,10 +83,15 @@ End Sub
|
||||
|
||||
'Similar to ExecuteBatch. Sends a single command.
|
||||
Public Sub ExecuteCommand(Command As DBCommand, Tag As Object)
|
||||
' If reqsList.IsInitialized Then reqsList.Add(Tag)
|
||||
' If timesList.IsInitialized Then timesList.Add(DateTime.now)
|
||||
ExecuteBatch(Array As DBCommand(Command), Tag)
|
||||
End Sub
|
||||
|
||||
Private Sub StartJob(j As HttpJob, MemoryStream As OutputStream, Tag As Object) As OutputStream
|
||||
' inicioRequest = DateTime.now
|
||||
If reqsList.IsInitialized Then reqsList.Add(Tag)
|
||||
If timesList.IsInitialized Then timesList.Add(DateTime.now)
|
||||
j.Initialize("DBRequest", mTarget)
|
||||
j.Tag = Tag
|
||||
MemoryStream.InitializeToBytesArray(0)
|
||||
@@ -185,7 +215,13 @@ End Sub
|
||||
|
||||
'Handles the Job result and returns a DBResult.
|
||||
Public Sub HandleJob(Job As HttpJob) As DBResult
|
||||
Dim start As Long = DateTime.Now
|
||||
If jobTagAnterior <> Job.Tag Then
|
||||
' inicioJobDone = DateTime.Now 'ignore
|
||||
If inicioJobDoneMap.IsInitialized Then inicioJobDoneMap.Put(Job.Tag, DateTime.Now)
|
||||
' tiempos.Put(Job.taskId, CreateMap("inicioJobDone":inicioJobDone))
|
||||
' Log(tiempos)
|
||||
' Log("############# " & Job.taskId)
|
||||
End If
|
||||
Dim In As InputStream = Job.GetInputStream
|
||||
Dim cs As CompressedStreams
|
||||
In = cs.WrapInputStream(In, "gzip")
|
||||
@@ -217,9 +253,14 @@ Public Sub HandleJob(Job As HttpJob) As DBResult
|
||||
Next
|
||||
End If
|
||||
In.Close
|
||||
Log("HandleJob: " & (DateTime.Now - start))
|
||||
' Log("HandleJob: " & (DateTime.Now - start))'Comentado por CHV - 211112
|
||||
If jobTagAnterior <> table.Tag Then
|
||||
LogColor("HandleJob: '"&table.Tag&"'" & " - Registros: " & table.Rows.Size, Colors.RGB(115, 0, 140)) 'Mod por CHV - 211109
|
||||
End If
|
||||
jobTagAnterior = table.Tag 'Mod por CHV - 211109
|
||||
Return table
|
||||
End Sub
|
||||
|
||||
'Reads a file and returns the file as a bytes array.
|
||||
Public Sub FileToBytes(Dir As String, FileName As String) As Byte()
|
||||
Dim out As OutputStream
|
||||
@@ -229,6 +270,7 @@ Public Sub FileToBytes(Dir As String, FileName As String) As Byte()
|
||||
out.Close
|
||||
Return out.ToBytesArray
|
||||
End Sub
|
||||
|
||||
'Converts an image to a bytes array (for BLOB fields).
|
||||
Public Sub ImageToBytes(Image As Bitmap) As Byte()
|
||||
Dim out As OutputStream
|
||||
@@ -237,6 +279,7 @@ Public Sub ImageToBytes(Image As Bitmap) As Byte()
|
||||
out.Close
|
||||
Return out.ToBytesArray
|
||||
End Sub
|
||||
|
||||
'Converts a bytes array to an image (for BLOB fields).
|
||||
Public Sub BytesToImage(bytes() As Byte) As Bitmap
|
||||
Dim In As InputStream
|
||||
@@ -245,6 +288,7 @@ Public Sub BytesToImage(bytes() As Byte) As Bitmap
|
||||
bmp.Initialize2(In)
|
||||
Return bmp
|
||||
End Sub
|
||||
|
||||
'Prints the table to the logs.
|
||||
Public Sub PrintTable(Table As DBResult)
|
||||
Log("Tag: " & Table.Tag & ", Columns: " & Table.Columns.Size & ", Rows: " & Table.Rows.Size)
|
||||
@@ -260,8 +304,60 @@ Public Sub PrintTable(Table As DBResult)
|
||||
For Each record As Object In row
|
||||
sb.Append(record).Append(TAB)
|
||||
Next
|
||||
ToastMessageShow(sb.ToString, True)
|
||||
Log(sb.ToString)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Sub requestTimes(tag As String) As Map 'ignore
|
||||
Private times As Map
|
||||
times.Initialize
|
||||
' Log("###### " & tag)
|
||||
' Log(reqsList.IsInitialized)
|
||||
If reqsList.IsInitialized Then
|
||||
' Log(reqsList)
|
||||
' Private pos As Int = reqsList.IndexOf(tag)
|
||||
If inicioRequestMap.ContainsKey(tag) Then
|
||||
inicioRequest = inicioRequestMap.Get(tag)
|
||||
' Log(">>>>>>> From inicioRequestMap")
|
||||
End If
|
||||
If inicioJobDoneMap.ContainsKey(tag) Then
|
||||
inicioJobDone = inicioJobDoneMap.Get(tag)
|
||||
' Log(">>>>>>> From inicioJobDoneMap")
|
||||
End If
|
||||
End If
|
||||
' Log($"${inicioJobDone} - ${inicioRequest}"$)
|
||||
Private requestTime As String = NumberFormat2(((inicioJobDone - inicioRequest) / 1000),1,5,0,False)
|
||||
Private JobDoneTime As String = NumberFormat2(((DateTime.Now - inicioJobDone) / 1000),1,5,0,False)
|
||||
times.Put("request", tag)
|
||||
times.Put("requestTime", requestTime)
|
||||
times.Put("jobDoneTime", JobDoneTime)
|
||||
times.Put("totalTime", NumberFormat2((JobDoneTime + requestTime),1,5,0,False))
|
||||
Return times
|
||||
End Sub
|
||||
|
||||
'Initializes request tracking
|
||||
Sub trackInit 'ignore
|
||||
If logger Then Log(">>>>>>>>> TRACKINIT ")
|
||||
reqsList.Initialize
|
||||
timesList.Initialize
|
||||
inicioRequestMap.Initialize
|
||||
inicioJobDoneMap.Initialize
|
||||
End Sub
|
||||
|
||||
|
||||
Sub trackNext(job As HttpJob)
|
||||
If reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
|
||||
Private quitamos As String = ""
|
||||
If reqsList.IndexOf(job.tag) <> -1 Then
|
||||
Private pos As Int = reqsList.IndexOf(job.tag)
|
||||
If pos <> -1 Then
|
||||
inicioRequestMap.Put(job.Tag, timesList.Get(pos))
|
||||
reqsList.RemoveAt(pos)
|
||||
timesList.RemoveAt(pos)
|
||||
End If
|
||||
quitamos = $"Quitamos ${job.tag} - "$
|
||||
End If
|
||||
If logger Then LogColor(">>>>>> Requests: " & reqsList.Size & " - " & quitamos & reqsList, Colors.Blue)
|
||||
If logger Then LogColor(">>>>>> inicioRequestMap:" & inicioRequestMap.Size & " - " & inicioRequestMap, Colors.Magenta)
|
||||
End If
|
||||
End Sub
|
||||
@@ -148,7 +148,7 @@ Version=12.8
|
||||
#Region Project Attributes
|
||||
#ApplicationLabel: Danvit-V
|
||||
#VersionCode: 1
|
||||
#VersionName: 5.12.06
|
||||
#VersionName: 6.04.07
|
||||
'SupportedOrientations possible values: unspecified, landscape or portrait.
|
||||
#SupportedOrientations: portrait
|
||||
#CanInstallToExternalStorage: False
|
||||
|
||||
@@ -52,7 +52,7 @@ ModuleClosedNodes14=
|
||||
ModuleClosedNodes15=
|
||||
ModuleClosedNodes16=
|
||||
ModuleClosedNodes17=
|
||||
ModuleClosedNodes18=3
|
||||
ModuleClosedNodes18=
|
||||
ModuleClosedNodes19=
|
||||
ModuleClosedNodes2=
|
||||
ModuleClosedNodes20=
|
||||
@@ -64,6 +64,6 @@ ModuleClosedNodes6=
|
||||
ModuleClosedNodes7=
|
||||
ModuleClosedNodes8=
|
||||
ModuleClosedNodes9=
|
||||
NavigationStack=fila,Activity_Resume,214,6,MAPA_RUTAS,Globals,17,0,Main,Process_Globals,17,0,Main,Entrar_Click,195,0,seleccion,Activity_Resume,320,3,seleccion,connecta_Click,1913,0,pedidos,Activity_Create,79,0,seleccion,Activity_Create,217,0,seleccion,Process_Globals,17,0,Main,Activity_Resume,149,3
|
||||
NavigationStack=seleccion,Activity_Create,221,0,seleccion,Activity_Resume,316,3,DBRequestManager,Class_Globals,14,0,DBRequestManager,WriteObject,138,0,seleccion,Activity_KeyPress,1860,0,Diseñador Visual,seleccion.bal,-100,1,seleccion,cargar_Click,1033,6,seleccion,JobDone,1272,6,seleccion,B_COMM_Click,2635,0,seleccion,e_ruta_TextChanged,2619,0,fila,GPS_LocationChanged,413,0
|
||||
SelectedBuild=0
|
||||
VisibleModules=19,2,4,5,7,8,9,12,18,16
|
||||
VisibleModules=19,18,2,4,5,7,8,9,12,16,6
|
||||
|
||||
1
fila.bas
1
fila.bas
@@ -407,7 +407,6 @@ lon_gps=Location1.Longitude
|
||||
LA_GPS.TextColor = Colors.Blue
|
||||
LA_GPS.Text = "CON UBICACION GPS"
|
||||
|
||||
|
||||
Dim l1, l2 As Location
|
||||
l1.Initialize2(lat_gps, lon_gps)
|
||||
l2.Initialize2(m_lat, m_lon)
|
||||
|
||||
257
seleccion.bas
257
seleccion.bas
@@ -329,7 +329,7 @@ Sub Activity_Resume
|
||||
reqManager.Initialize(Me, SERVER)
|
||||
|
||||
PASO =0
|
||||
' c=starter.skmt.execQuery("select noversion from version")
|
||||
' c=starter.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)
|
||||
@@ -349,7 +349,7 @@ Sub Activity_Resume
|
||||
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
|
||||
g.Start(0,0)
|
||||
End If
|
||||
c=starter.skmt.execQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
|
||||
c=Starter.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
|
||||
cmd.Initialize
|
||||
@@ -359,7 +359,7 @@ Sub Activity_Resume
|
||||
Msgbox("AJUSTAR FECHA","AVISO")
|
||||
Activity_Resume
|
||||
Else
|
||||
c=starter.skmt.execQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
|
||||
c=Starter.skmt.execQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
|
||||
c.Position =0
|
||||
Dim sDate,sTime As String
|
||||
|
||||
@@ -388,24 +388,24 @@ Sub Activity_Resume
|
||||
End If
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
fecha=DateTime.Date(DateTime.Now)
|
||||
b=starter.skmt.execQuery("Select count(*) as CUANTOS from pedido_cliente")
|
||||
b=Starter.skmt.execQuery("Select count(*) as CUANTOS from pedido_cliente")
|
||||
b.Position=0
|
||||
Cuantos = b.GetString("CUANTOS")
|
||||
ToastMessageShow(Cuantos , True)
|
||||
|
||||
d=starter.skmt.execQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0")
|
||||
d=Starter.skmt.execQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0")
|
||||
D.Position=0
|
||||
b.Close
|
||||
e=starter.skmt.execQuery("select count(*) as POR_VISITAR from kmt_info")
|
||||
e=Starter.skmt.execQuery("select count(*) as POR_VISITAR from kmt_info")
|
||||
e.Position=0
|
||||
f=starter.skmt.execQuery("select count(*) as CAT_CL_RUTA from kmt_info")
|
||||
f=Starter.skmt.execQuery("select count(*) as CAT_CL_RUTA from kmt_info")
|
||||
f.Position=0
|
||||
l_ruta.Text = f.GetString("CAT_CL_RUTA")
|
||||
f.Close
|
||||
If l_ruta.Text = 0 Then
|
||||
l_ruta.Text =0
|
||||
Else
|
||||
f=starter.skmt.execQuery("select CAT_CL_RUTA from kmt_info")
|
||||
f=Starter.skmt.execQuery("select CAT_CL_RUTA from kmt_info")
|
||||
f.Position=0
|
||||
l_ruta.Text = f.GetString("CAT_CL_RUTA")
|
||||
f.Close
|
||||
@@ -424,27 +424,27 @@ Sub Activity_Resume
|
||||
d.Close
|
||||
e.Close
|
||||
Else
|
||||
c=starter.skmt.execQuery("select SUM(PE_COSTO_TOT) as MONTO_DIA, COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES_DIA from PEDIDO ")
|
||||
b=starter.skmt.execQuery("select count(*) as CUANTOS from noventa")
|
||||
c=Starter.skmt.execQuery("select SUM(PE_COSTO_TOT) as MONTO_DIA, COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES_DIA from PEDIDO ")
|
||||
b=Starter.skmt.execQuery("select count(*) as CUANTOS from noventa")
|
||||
'where pc_fecha = ?", Array As String(fecha)
|
||||
C.Position=0
|
||||
b.Position=0
|
||||
L_MONTOD.Text = c.GetString("MONTO_DIA")
|
||||
l_cuantosc.Text = c.GetString("CLIENTES_DIA")
|
||||
|
||||
D2=starter.skmt.execQuery("select COUNT(*) AS CUANTOS from PEDIDO ")
|
||||
D2=Starter.skmt.execQuery("select COUNT(*) AS CUANTOS from PEDIDO ")
|
||||
D2.Position = 0
|
||||
LPT = D2.GetString("CUANTOS") / l_cuantosc.Text
|
||||
D2.Close
|
||||
|
||||
D2=starter.skmt.execQuery("select SUM(HSS_TOT) AS TOTAL from HIST_STAY_STORE ")
|
||||
D2=Starter.skmt.execQuery("select SUM(HSS_TOT) AS TOTAL from HIST_STAY_STORE ")
|
||||
D2.Position = 0
|
||||
STEYIN = D2.GetString("TOTAL")
|
||||
D2.Close
|
||||
|
||||
D2=starter.skmt.execQuery("select (HSO_FIN - HSO_INI) AS TOTAL from HIST_STAY_OUT ")
|
||||
D2=Starter.skmt.execQuery("select (HSO_FIN - HSO_INI) AS TOTAL from HIST_STAY_OUT ")
|
||||
|
||||
D2=starter.skmt.execQuery(" Select (substr(HSO_FIN,1,2) - substr(HSO_INI,1,2)) - Case when (substr(HSO_FIN,3,2) - substr(HSO_INI,3,2)) < 0 Then 1 Else 0 end HORAS_TOTALES, " & _
|
||||
D2=Starter.skmt.execQuery(" Select (substr(HSO_FIN,1,2) - substr(HSO_INI,1,2)) - Case when (substr(HSO_FIN,3,2) - substr(HSO_INI,3,2)) < 0 Then 1 Else 0 end HORAS_TOTALES, " & _
|
||||
"Case when (substr(HSO_FIN,3,2) - substr(HSO_INI,3,2)) < 0 Then (substr(HSO_FIN,3,2) + 60 - substr(HSO_INI,3,2)) " & _
|
||||
" Else (substr(HSO_FIN,3,2) - substr(HSO_INI,3,2)) End - Case when (substr(HSO_FIN,5,2) - substr(HSO_INI,5,2)) < 0 Then 1 Else 0 end MINUTOS_TOTALES, " & _
|
||||
"Case when (substr(HSO_FIN,5,2) - substr(HSO_INI,5,2)) < 0 Then (substr(HSO_FIN,5,2) + 60 - substr(HSO_INI,5,2)) " & _
|
||||
@@ -578,7 +578,7 @@ Sub Activity_Resume
|
||||
End Sub
|
||||
|
||||
Sub Activity_Pause (UserClosed As Boolean)
|
||||
cargar.Visible = False
|
||||
cargar.Visible = False
|
||||
Subir.Visible = False
|
||||
connecta.Visible = True
|
||||
inv.Visible = False
|
||||
@@ -614,16 +614,16 @@ Sub Subir_Click
|
||||
S_CP.Text = "EN PROCESO"
|
||||
PB1.Progress = 0
|
||||
PB2.Progress = 0
|
||||
'c=starter.skmt.execQuery("SELECT sum(IFNULL(PE_DESC,0)) as DESCUENTO FROM PEDIDO")
|
||||
'c.Position =0
|
||||
'If c.GetString("DESCUENTO") > 0 And PASO = 0 Then
|
||||
'P1.Visible = True
|
||||
'ELSE IF c.GetString("DESCUENTO") = 0 Then
|
||||
PASO = 1
|
||||
'End If
|
||||
If PASO =1 Then
|
||||
'c=starter.skmt.execQuery("SELECT sum(IFNULL(PE_DESC,0)) as DESCUENTO FROM PEDIDO")
|
||||
'c.Position =0
|
||||
'If c.GetString("DESCUENTO") > 0 And PASO = 0 Then
|
||||
'P1.Visible = True
|
||||
'ELSE IF c.GetString("DESCUENTO") = 0 Then
|
||||
PASO = 1
|
||||
'End If
|
||||
If PASO =1 Then
|
||||
starter.skmt.execNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)")
|
||||
c=starter.skmt.execQuery("select usuario from usuarioa")
|
||||
c=starter.skmt.execQuery("select usuario from usuarioa")
|
||||
c.Position = 0
|
||||
usuario = c.GetString("USUARIO")
|
||||
c.Close
|
||||
@@ -641,7 +641,7 @@ c=starter.skmt.execQuery("select usuario from usuarioa")
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
' PEDIO_CLIENTE
|
||||
' PEDIO_CLIENTE
|
||||
|
||||
c=starter.skmt.execQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN FROM PEDIDO_CLIENTE ")
|
||||
d=starter.skmt.execQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
|
||||
@@ -697,14 +697,14 @@ c=starter.skmt.execQuery("select usuario from usuarioa")
|
||||
' For i=0 To c.RowCount -1
|
||||
' c.Position=i
|
||||
' starter.skmt.execNonQuery2("update PEDIDO set PE_FOLIO = ? where PE_PROID = ? AND PE_CLIENTE =? AND PE_FECHA =? AND PE_FOLIO IS NULL ", Array As Object(armafolio, c.GetString("PE_PROID"), c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA")))
|
||||
'
|
||||
'
|
||||
' armafolio = armafolio + 1
|
||||
'
|
||||
' Next
|
||||
' c.Close
|
||||
' End If
|
||||
' armafolio = armafolio - (l_ruta.Text * 1000000)
|
||||
' 'starter.skmt.execNonQuery2("update CAT_VARIABLES set CAT_VA_VALOR = ? where CAT_VA_DESCRIPCION = ? ", Array As Object(armafolio,"FOLIO"))
|
||||
' 'starter.skmt.execNonQuery2("update CAT_VARIABLES set CAT_VA_VALOR = ? where CAT_VA_DESCRIPCION = ? ", Array As Object(armafolio,"FOLIO"))
|
||||
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
@@ -771,7 +771,7 @@ c=starter.skmt.execQuery("select usuario from usuarioa")
|
||||
cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
|
||||
d.Close
|
||||
|
||||
' GEO CERCA
|
||||
' GEO CERCA
|
||||
|
||||
c=starter.skmt.execQuery("Select HGCLIENTE, HGDATE, HGLAT, HGLON from HIST_GEOCERCA")
|
||||
|
||||
@@ -802,7 +802,7 @@ c=starter.skmt.execQuery("select usuario from usuarioa")
|
||||
' cmd.Name = "insert_verificacion_GV2"
|
||||
' cmd.Parameters = Array As Object(C.GetString("HVE_CLIENTE"),C.GetString("HVE_IDPROD"),C.GetString("HVE_EXISTENCIA"))
|
||||
' reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
|
||||
'
|
||||
'
|
||||
' Next
|
||||
' c.Close
|
||||
' End If
|
||||
@@ -827,12 +827,12 @@ c=starter.skmt.execQuery("select usuario from usuarioa")
|
||||
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
|
||||
img2.Visible =True
|
||||
|
||||
PORCENTAJE = Round(100/ (cuantos_noventa + cuantos_pedido + cuantos_pedidosc + 1))
|
||||
PORCENTAJE = Round(100/ (cuantos_noventa + cuantos_pedido + cuantos_pedidosc + 1))
|
||||
|
||||
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Sub cargar_Click
|
||||
CARGA = "CARGAR"
|
||||
@@ -864,41 +864,42 @@ Sub cargar_Click
|
||||
TOPE = 0
|
||||
' NUEVOS CLIENTE
|
||||
|
||||
starter.skmt.execNonQuery("delete from kmt_info")
|
||||
starter.skmt.execNonQuery("delete from cod_result")
|
||||
starter.skmt.execNonQuery("delete from hist_gest")
|
||||
starter.skmt.execNonQuery("delete from cat_gunaprod")
|
||||
starter.skmt.execNonQuery("delete from CAT_DETALLES_PAQ")
|
||||
starter.skmt.execNonQuery("delete from telefonos")
|
||||
starter.skmt.execNonQuery("delete from HIST_VENTAS")
|
||||
starter.skmt.execNonQuery("delete from HIST_PROMOS")
|
||||
starter.skmt.execNonQuery("delete from HIST_CLIENTE_CANT_PROMOS")
|
||||
starter.skmt.execNonQuery("delete from PROMOS_COMP")
|
||||
starter.skmt.execNonQuery("delete from CAT_VERIFICACION")
|
||||
starter.skmt.execNonQuery("DELETE FROM MARCAS_RUTAS")
|
||||
starter.skmt.execNonQuery("DELETE FROM HIST_STAY_STORE")
|
||||
starter.skmt.execNonQuery("DELETE FROM HIST_GEOCERCA")
|
||||
Starter.skmt.execNonQuery("delete from kmt_info")
|
||||
Starter.skmt.execNonQuery("delete from cod_result")
|
||||
Starter.skmt.execNonQuery("delete from hist_gest")
|
||||
Starter.skmt.execNonQuery("delete from cat_gunaprod")
|
||||
Starter.skmt.execNonQuery("delete from CAT_DETALLES_PAQ")
|
||||
Starter.skmt.execNonQuery("delete from telefonos")
|
||||
Starter.skmt.execNonQuery("delete from HIST_VENTAS")
|
||||
Starter.skmt.execNonQuery("delete from HIST_PROMOS")
|
||||
Starter.skmt.execNonQuery("delete from HIST_CLIENTE_CANT_PROMOS")
|
||||
Starter.skmt.execNonQuery("delete from PROMOS_COMP")
|
||||
Starter.skmt.execNonQuery("delete from CAT_VERIFICACION")
|
||||
Starter.skmt.execNonQuery("DELETE FROM MARCAS_RUTAS")
|
||||
Starter.skmt.execNonQuery("DELETE FROM HIST_STAY_STORE")
|
||||
Starter.skmt.execNonQuery("DELETE FROM HIST_GEOCERCA")
|
||||
|
||||
|
||||
|
||||
c = starter.skmt.execQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
|
||||
c = Starter.skmt.execQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
|
||||
c.Position = 0
|
||||
DateTime.TimeFormat = "HHmmss"
|
||||
|
||||
'Valida si ya se cuenta con hora actualiza el valor si no lo inserta-----------
|
||||
If c.GetString("HoraIngreso") > 0 Then
|
||||
starter.skmt.execNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
|
||||
Starter.skmt.execNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
|
||||
Else
|
||||
starter.skmt.execNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_VALOR,CAT_VA_DESCRIPCION) VALUES (?,?)" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
|
||||
Starter.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"
|
||||
c=starter.skmt.execQuery("select usuario from usuarioa")
|
||||
c=Starter.skmt.execQuery("select usuario from usuarioa")
|
||||
c.Position = 0
|
||||
usuario = c.GetString("USUARIO")
|
||||
c.Close
|
||||
|
||||
c=starter.skmt.execQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")
|
||||
c=Starter.skmt.execQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")
|
||||
reqManager.trackInit
|
||||
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
@@ -932,11 +933,11 @@ Sub cargar_Click
|
||||
|
||||
Dim P As PhoneId
|
||||
|
||||
imei = "" 'P.GetDeviceId
|
||||
imei = "" 'P.GetDeviceId
|
||||
|
||||
c=Starter.skmt.execQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")
|
||||
c=Starter.skmt.execQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")
|
||||
|
||||
If c.RowCount>0 Then
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
|
||||
@@ -946,7 +947,7 @@ If c.RowCount>0 Then
|
||||
cmd.Parameters = Array As Object(0, 0,0,0,c.GetString("hglat"),c.GetString("hglon"),batterystatus(0),0,0, 0,ALMACEN,l_ruta.Text )
|
||||
reqManager.ExecuteQuery(cmd , 0, "inst_visitas")
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name ="insert_drop_DANV_2"
|
||||
@@ -1037,15 +1038,16 @@ End If
|
||||
cmd.Name = "select_hist_cliente_promos_DANV"
|
||||
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "hist_cliente_promos")
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_promo_comp_DANV"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
cmd.Parameters = Array As Object(ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "hist_comp_promos")
|
||||
LogColor("########################################################3", Colors.red)
|
||||
LogColor(" #### hist_comp_promos", Colors.red)
|
||||
LogColor("########################################################3", Colors.red)
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_verificacion_DANV"
|
||||
@@ -1138,6 +1140,7 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
|
||||
Else
|
||||
reqManager.trackNext(Job)
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "kmt_datos" Then 'query tag
|
||||
@@ -1164,8 +1167,8 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim CAT_CL_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_CL_MTOCOMPRA"))
|
||||
Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO"))
|
||||
|
||||
starter.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_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, 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_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO))
|
||||
starter.skmt.execNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
|
||||
Starter.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_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, 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_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO))
|
||||
Starter.skmt.execNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
|
||||
Next
|
||||
Listo1 = 1
|
||||
S_CC.Text = "LISTO"
|
||||
@@ -1233,7 +1236,7 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim HIST_RA_IDALMACEN As String = records(RESULT.Columns.Get("HIST_RA_IDALMACEN"))
|
||||
|
||||
|
||||
starter.skmt.execNonQuery2("INSERT INTO HIST_RESUM_APK(HIST_RA_OBJMES,HIST_RA_VENTA,HIST_RA_TENDENCIA,HIST_RA_ALCANCE,HISR_RA_DRAOBJ,HIST_RA_DRAVTA,HIST_RA_DSOBJ,HIST_RA_DSVTA,HIST_RA_VPOOBJ,HIST_RA_VPOVTA,HIST_RA_CTES,HIST_RA_COBCCC,HIST_RA_ECO,HIST_RA_VISITPLAN,HIST_RA_VISIREAL,HIST_RA_COBVISIT,HIST_RA_FRECCOMPOBJ,HIST_RA_FRECCOMREAL,HIST_RA_VENTAMES1,HIST_RA_VENTAMES2,HIST_RA_VENTAMES3,HIST_RA_VENTAMES4,HIST_RA_RECHAZO,HIST_RA_RECHAZOPORCEN,HIST_RA_SEMANA1,HIST_RA_SEMANA1_DIAS,HIST_RA_SEMANA1_DRA,HIST_RA_SEMANA2,HIST_RA_SEMANA2_DIAS,HIST_RA_SEMANA2_DRA,HIST_RA_SEMANA3,HIST_RA_SEMANA3_DIAS,HIST_RA_SEMANA3_DRA,HIST_RA_SEMANA4,HIST_RA_SEMANA4_DIAS,HIST_RA_SEMANA4_DRA,HIST_RA_SEMANA5,HIST_RA_SEMANA5_DIAS,HIST_RA_SEMANA5_DRA,HIST_RA_SEMANA1_LPT,HIST_RA_SEMANA2_LPT,HIST_RA_SEMANA3_LPT,HIST_RA_SEMANA4_LPT,HIST_RA_SEMANA5_LPT,HIST_RA_RUTA,HIST_RA_IDALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HIST_RA_OBJMES,HIST_RA_VENTA,HIST_RA_TENDENCIA,HIST_RA_ALCANCE,HISR_RA_DRAOBJ,HIST_RA_DRAVTA,HIST_RA_DSOBJ,HIST_RA_DSVTA,HIST_RA_VPOOBJ,HIST_RA_VPOVTA,HIST_RA_CTES,HIST_RA_COBCCC,HIST_RA_ECO,HIST_RA_VISITPLAN,HIST_RA_VISIREAL,HIST_RA_COBVISIT,HIST_RA_FRECCOMPOBJ,HIST_RA_FRECCOMREAL,HIST_RA_VENTAMES1,HIST_RA_VENTAMES2,HIST_RA_VENTAMES3,HIST_RA_VENTAMES4,HIST_RA_RECHAZO,HIST_RA_RECHAZOPORCEN,HIST_RA_SEMANA1,HIST_RA_SEMANA1_DIAS,HIST_RA_SEMANA1_DRA,HIST_RA_SEMANA2,HIST_RA_SEMANA2_DIAS,HIST_RA_SEMANA2_DRA,HIST_RA_SEMANA3,HIST_RA_SEMANA3_DIAS,HIST_RA_SEMANA3_DRA,HIST_RA_SEMANA4,HIST_RA_SEMANA4_DIAS,HIST_RA_SEMANA4_DRA,HIST_RA_SEMANA5,HIST_RA_SEMANA5_DIAS,HIST_RA_SEMANA5_DRA,HIST_RA_SEMANA1_LPT,HIST_RA_SEMANA2_LPT,HIST_RA_SEMANA3_LPT,HIST_RA_SEMANA4_LPT,HIST_RA_SEMANA5_LPT,HIST_RA_RUTA,HIST_RA_IDALMACEN))
|
||||
Starter.skmt.execNonQuery2("INSERT INTO HIST_RESUM_APK(HIST_RA_OBJMES,HIST_RA_VENTA,HIST_RA_TENDENCIA,HIST_RA_ALCANCE,HISR_RA_DRAOBJ,HIST_RA_DRAVTA,HIST_RA_DSOBJ,HIST_RA_DSVTA,HIST_RA_VPOOBJ,HIST_RA_VPOVTA,HIST_RA_CTES,HIST_RA_COBCCC,HIST_RA_ECO,HIST_RA_VISITPLAN,HIST_RA_VISIREAL,HIST_RA_COBVISIT,HIST_RA_FRECCOMPOBJ,HIST_RA_FRECCOMREAL,HIST_RA_VENTAMES1,HIST_RA_VENTAMES2,HIST_RA_VENTAMES3,HIST_RA_VENTAMES4,HIST_RA_RECHAZO,HIST_RA_RECHAZOPORCEN,HIST_RA_SEMANA1,HIST_RA_SEMANA1_DIAS,HIST_RA_SEMANA1_DRA,HIST_RA_SEMANA2,HIST_RA_SEMANA2_DIAS,HIST_RA_SEMANA2_DRA,HIST_RA_SEMANA3,HIST_RA_SEMANA3_DIAS,HIST_RA_SEMANA3_DRA,HIST_RA_SEMANA4,HIST_RA_SEMANA4_DIAS,HIST_RA_SEMANA4_DRA,HIST_RA_SEMANA5,HIST_RA_SEMANA5_DIAS,HIST_RA_SEMANA5_DRA,HIST_RA_SEMANA1_LPT,HIST_RA_SEMANA2_LPT,HIST_RA_SEMANA3_LPT,HIST_RA_SEMANA4_LPT,HIST_RA_SEMANA5_LPT,HIST_RA_RUTA,HIST_RA_IDALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HIST_RA_OBJMES,HIST_RA_VENTA,HIST_RA_TENDENCIA,HIST_RA_ALCANCE,HISR_RA_DRAOBJ,HIST_RA_DRAVTA,HIST_RA_DSOBJ,HIST_RA_DSVTA,HIST_RA_VPOOBJ,HIST_RA_VPOVTA,HIST_RA_CTES,HIST_RA_COBCCC,HIST_RA_ECO,HIST_RA_VISITPLAN,HIST_RA_VISIREAL,HIST_RA_COBVISIT,HIST_RA_FRECCOMPOBJ,HIST_RA_FRECCOMREAL,HIST_RA_VENTAMES1,HIST_RA_VENTAMES2,HIST_RA_VENTAMES3,HIST_RA_VENTAMES4,HIST_RA_RECHAZO,HIST_RA_RECHAZOPORCEN,HIST_RA_SEMANA1,HIST_RA_SEMANA1_DIAS,HIST_RA_SEMANA1_DRA,HIST_RA_SEMANA2,HIST_RA_SEMANA2_DIAS,HIST_RA_SEMANA2_DRA,HIST_RA_SEMANA3,HIST_RA_SEMANA3_DIAS,HIST_RA_SEMANA3_DRA,HIST_RA_SEMANA4,HIST_RA_SEMANA4_DIAS,HIST_RA_SEMANA4_DRA,HIST_RA_SEMANA5,HIST_RA_SEMANA5_DIAS,HIST_RA_SEMANA5_DRA,HIST_RA_SEMANA1_LPT,HIST_RA_SEMANA2_LPT,HIST_RA_SEMANA3_LPT,HIST_RA_SEMANA4_LPT,HIST_RA_SEMANA5_LPT,HIST_RA_RUTA,HIST_RA_IDALMACEN))
|
||||
' Msgbox("pasa","alo")
|
||||
Next
|
||||
Listo1 = 1
|
||||
@@ -1254,7 +1257,7 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim HP_CLIENTE As String = records(RESULT.Columns.Get("HP_CLIENTE"))
|
||||
Dim HP_CODIGO_PROMOCION As String = records(RESULT.Columns.Get("HP_CODIGO_PROMOCION"))
|
||||
|
||||
starter.skmt.execNonQuery2("INSERT INTO HIST_PROMOS(HP_CLIENTE, HP_CODIGO_PROMOCION) VALUES (?,?)", Array As Object (HP_CLIENTE, HP_CODIGO_PROMOCION))
|
||||
Starter.skmt.execNonQuery2("INSERT INTO HIST_PROMOS(HP_CLIENTE, HP_CODIGO_PROMOCION) VALUES (?,?)", Array As Object (HP_CLIENTE, HP_CODIGO_PROMOCION))
|
||||
|
||||
|
||||
Next
|
||||
@@ -1281,32 +1284,27 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim HCCP_PROMO As String = records(RESULT.Columns.Get("HCCP_PROMO"))
|
||||
Dim HCCP_CANT As String = records(RESULT.Columns.Get("HCCP_CANT"))
|
||||
|
||||
starter.skmt.execNonQuery2("INSERT INTO HIST_CLIENTE_CANT_PROMOS(HCCP_CLIENTE, HCCP_PROMO, HCCP_CANT) VALUES (?,?,?)", Array As Object (HCCP_CLIENTE, HCCP_PROMO,HCCP_CANT))
|
||||
Starter.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
|
||||
ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "hist_comp_promos" Then 'query tag
|
||||
LogColor("########################################################3", Colors.red)
|
||||
LogColor(" #### hist_comp_promos", Colors.red)
|
||||
LogColor("########################################################3", Colors.red)
|
||||
For Each records() As Object In RESULT.Rows
|
||||
|
||||
Dim CAT_PA_ID As String = records(RESULT.Columns.Get("CAT_PA_ID"))
|
||||
Dim CAT_PA_MAXPROM As String = records(RESULT.Columns.Get("CAT_PA_MAXPROM"))
|
||||
Dim CAT_PA_MAXPROMREC As String = records(RESULT.Columns.Get("CAT_PA_MAXPROMREC"))
|
||||
Dim CAT_PA_MAXPROMCLIE As String = records(RESULT.Columns.Get("CAT_PA_MAXPROMCLIE"))
|
||||
|
||||
|
||||
starter.skmt.execNonQuery2("INSERT INTO PROMOS_COMP(CAT_PA_ID, CAT_PA_MAXPROM, CAT_PA_MAXPROMREC, CAT_PA_MAXPROMCLIE) VALUES (?,?,?,?)", Array As Object (CAT_PA_ID, CAT_PA_MAXPROM,CAT_PA_MAXPROMREC,CAT_PA_MAXPROMCLIE))
|
||||
|
||||
|
||||
Starter.skmt.execNonQuery2("INSERT INTO PROMOS_COMP(CAT_PA_ID, CAT_PA_MAXPROM, CAT_PA_MAXPROMREC, CAT_PA_MAXPROMCLIE) VALUES (?,?,?,?)", Array As Object (CAT_PA_ID, CAT_PA_MAXPROM,CAT_PA_MAXPROMREC,CAT_PA_MAXPROMCLIE))
|
||||
Next
|
||||
|
||||
If PB1.Progress = 0 Then
|
||||
PB1.Progress = 30
|
||||
S_CH.Text = "CARGANDO"
|
||||
@@ -1316,9 +1314,6 @@ Sub JobDone(Job As HttpJob)
|
||||
PB1.Progress = 100
|
||||
S_CH.Text = "LISTO"
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -1332,7 +1327,7 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim CAT_VE_ORDEN As String = records(RESULT.Columns.Get("CAT_VE_ORDEN"))
|
||||
|
||||
|
||||
starter.skmt.execNonQuery2("INSERT INTO CAT_VERIFICACION(CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN) VALUES (?,?,?)", Array As Object (CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN))
|
||||
Starter.skmt.execNonQuery2("INSERT INTO CAT_VERIFICACION(CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN) VALUES (?,?,?)", Array As Object (CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN))
|
||||
|
||||
|
||||
Next
|
||||
@@ -1349,7 +1344,7 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim CLIENTES As String = records(RESULT.Columns.Get("CLIENTES"))
|
||||
|
||||
|
||||
starter.skmt.execNonQuery2("INSERT INTO MARCAS_RUTAS(HVD_MARCA, CLIENTES) VALUES (?,?)", Array As Object (HVD_MARCA, CLIENTES))
|
||||
Starter.skmt.execNonQuery2("INSERT INTO MARCAS_RUTAS(HVD_MARCA, CLIENTES) VALUES (?,?)", Array As Object (HVD_MARCA, CLIENTES))
|
||||
|
||||
|
||||
Next
|
||||
@@ -1380,7 +1375,7 @@ Sub JobDone(Job As HttpJob)
|
||||
|
||||
|
||||
|
||||
starter.skmt.execNonQuery2("INSERT INTO HIST_CUOTAS(HC_RUTA, HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HC_RUTA, HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6))
|
||||
Starter.skmt.execNonQuery2("INSERT INTO HIST_CUOTAS(HC_RUTA, HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HC_RUTA, HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6))
|
||||
|
||||
Next
|
||||
|
||||
@@ -1401,7 +1396,7 @@ Sub JobDone(Job As HttpJob)
|
||||
|
||||
|
||||
|
||||
starter.skmt.execNonQuery2("INSERT INTO HIST_COMISIONES_MOVIL (HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB) VALUES (?,?,?,?)", Array As Object (HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB))
|
||||
Starter.skmt.execNonQuery2("INSERT INTO HIST_COMISIONES_MOVIL (HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB) VALUES (?,?,?,?)", Array As Object (HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB))
|
||||
|
||||
Next
|
||||
|
||||
@@ -1431,7 +1426,7 @@ Sub JobDone(Job As HttpJob)
|
||||
'CAT_GP_INICIATIVA = 5
|
||||
'
|
||||
' starter.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))
|
||||
starter.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) 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_TIPOPROD, CAT_GP_INICIATIVA))
|
||||
Starter.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) 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_TIPOPROD, CAT_GP_INICIATIVA))
|
||||
|
||||
|
||||
Next
|
||||
@@ -1482,7 +1477,7 @@ Sub JobDone(Job As HttpJob)
|
||||
If CAT_GP_ID = "PAQUNI003" Then
|
||||
CAT_GP_ALMACEN = 60
|
||||
End If
|
||||
starter.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) 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_TIPOPROD))
|
||||
Starter.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) 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_TIPOPROD))
|
||||
|
||||
|
||||
Next
|
||||
@@ -1511,7 +1506,7 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "gunaprodps" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
@@ -1529,7 +1524,7 @@ If Job.JobName = "DBRequest" Then
|
||||
Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
|
||||
Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD"))
|
||||
'
|
||||
starter.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) 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_TIPOPROD))
|
||||
Starter.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) 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_TIPOPROD))
|
||||
|
||||
|
||||
Next
|
||||
@@ -1580,7 +1575,7 @@ If Job.JobName = "DBRequest" Then
|
||||
|
||||
|
||||
|
||||
starter.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))
|
||||
Starter.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
|
||||
@@ -1619,7 +1614,7 @@ If Job.JobName = "DBRequest" Then
|
||||
Dim HVD_CANT As String = records(RESULT.Columns.Get("HVD_CANT"))
|
||||
Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT"))
|
||||
|
||||
starter.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))
|
||||
Starter.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
|
||||
@@ -1658,7 +1653,7 @@ If Job.JobName = "DBRequest" Then
|
||||
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"))
|
||||
|
||||
starter.skmt.execNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object (Cat_Va_Descripcion, Cat_Va_Valor))
|
||||
Starter.skmt.execNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object (Cat_Va_Descripcion, Cat_Va_Valor))
|
||||
|
||||
|
||||
Next
|
||||
@@ -1672,16 +1667,16 @@ If Job.JobName = "DBRequest" Then
|
||||
|
||||
Dim Cat_Va_Valor As String = records(RESULT.Columns.Get("CAT_VALOR"))
|
||||
|
||||
starter.skmt.execNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As Object ("CUESTIONARIO"))
|
||||
Starter.skmt.execNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As Object ("CUESTIONARIO"))
|
||||
|
||||
starter.skmt.execNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CUESTIONARIO", Cat_Va_Valor))
|
||||
Starter.skmt.execNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CUESTIONARIO", Cat_Va_Valor))
|
||||
|
||||
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
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
|
||||
@@ -1702,7 +1697,7 @@ If Job.JobName = "DBRequest" Then
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
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
|
||||
@@ -1722,7 +1717,7 @@ If Job.JobName = "DBRequest" Then
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "valida_noventa" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
@@ -1761,10 +1756,10 @@ If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "version" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
starter.skmt.execNonQuery("delete from VERSION")
|
||||
Starter.skmt.execNonQuery("delete from VERSION")
|
||||
Dim CAT_VE_VERSION As String = records(RESULT.Columns.Get("CAT_VE_VERSION"))
|
||||
|
||||
starter.skmt.execNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION))
|
||||
Starter.skmt.execNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION))
|
||||
|
||||
Next
|
||||
End If
|
||||
@@ -1833,8 +1828,8 @@ If Job.JobName = "DBRequest" Then
|
||||
For Each records() As Object In RESULT.Rows
|
||||
|
||||
Dim FECHA_HOY As String = records(RESULT.Columns.Get("FECHA"))
|
||||
starter.skmt.execNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
|
||||
starter.skmt.execNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",FECHA_HOY))
|
||||
Starter.skmt.execNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
|
||||
Starter.skmt.execNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",FECHA_HOY))
|
||||
|
||||
Next
|
||||
|
||||
@@ -1847,18 +1842,23 @@ If Job.JobName = "DBRequest" Then
|
||||
For Each records() As Object In RESULT.Rows
|
||||
|
||||
Dim FOLIO As String = records(RESULT.Columns.Get("FOLIO"))
|
||||
starter.skmt.execNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FOLIO"))
|
||||
starter.skmt.execNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FOLIO",FOLIO))
|
||||
Starter.skmt.execNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FOLIO"))
|
||||
Starter.skmt.execNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FOLIO",FOLIO))
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
If reqManager.reqsList.IsInitialized Then
|
||||
LogColor(reqManager.reqsList, Colors.blue)
|
||||
LogColor(reqManager.reqsList.Size, Colors.blue)
|
||||
End If
|
||||
|
||||
|
||||
Job.Release
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -2042,17 +2042,17 @@ Sub t1_tick
|
||||
End Sub
|
||||
Sub B_OK_PAS_Click
|
||||
|
||||
If CARGA = "SUBIR" And S_CP.Text = "INFO OK" Then
|
||||
If CARGA = "SUBIR" And S_CP.Text = "INFO OK" Then
|
||||
|
||||
P1.Visible = False
|
||||
Btn_Ubicar.Visible=True
|
||||
'trabajar.Visible = True
|
||||
P1.Visible = False
|
||||
Btn_Ubicar.Visible=True
|
||||
'trabajar.Visible = True
|
||||
NUEVO.Visible =True
|
||||
BUSCA.Visible=True
|
||||
connecta.Visible=True
|
||||
Resumen.Visible= True
|
||||
img2.Visible=False
|
||||
Else If CARGA = "SUBIR" And S_CP.Text = "ERROR" Then
|
||||
Else If CARGA = "SUBIR" And S_CP.Text = "ERROR" Then
|
||||
Msgbox("Tiene que subir de nuevo la información","Atención")
|
||||
P1.Visible = False
|
||||
' trabajar.Visible = True
|
||||
@@ -2062,7 +2062,7 @@ Else If CARGA = "SUBIR" And S_CP.Text = "ERROR" Then
|
||||
Resumen.Visible= True
|
||||
img2.Visible=False
|
||||
|
||||
Else if CARGA = "SUBIR" And S_CP.Text <> "INFO OK" Then
|
||||
Else if CARGA = "SUBIR" And S_CP.Text <> "INFO OK" Then
|
||||
RES = Msgbox2("Seguro que desa abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
|
||||
If RES = DialogResponse.POSITIVE Then
|
||||
P1.Visible = False
|
||||
@@ -2075,19 +2075,19 @@ Else if CARGA = "SUBIR" And S_CP.Text <> "INFO OK" Then
|
||||
ExitApplication
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
If CARGA = "CARGAR" And S_CP.Text = "LISTO" And S_CC.Text = "LISTO" And S_CH.Text = "LISTO" Then
|
||||
If CARGA = "CARGAR" And S_CP.Text = "LISTO" And S_CC.Text = "LISTO" And S_CH.Text = "LISTO" Then
|
||||
|
||||
P1.Visible = False
|
||||
P1.Visible = False
|
||||
Btn_Ubicar.Visible=True
|
||||
'trabajar.Visible = True
|
||||
'trabajar.Visible = True
|
||||
NUEVO.Visible =True
|
||||
BUSCA.Visible=True
|
||||
connecta.Visible=True
|
||||
Resumen.Visible= True
|
||||
img2.Visible=False
|
||||
Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then
|
||||
Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then
|
||||
RES = Msgbox2("Seguro que desa abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
|
||||
If RES = DialogResponse.POSITIVE Then
|
||||
P1.Visible = False
|
||||
@@ -2111,23 +2111,23 @@ Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_
|
||||
ExitApplication
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'-------------
|
||||
'------------- TODO ESTE CODIGO ES PARA CUANDO APLICAN DESUCENTOS.
|
||||
'
|
||||
' Dim cmd As DBCommand'
|
||||
'-------------
|
||||
'------------- TODO ESTE CODIGO ES PARA CUANDO APLICAN DESUCENTOS.
|
||||
'
|
||||
' Dim cmd As DBCommand'
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_usuario_guna_super_GV2"
|
||||
' cmd.Parameters = Array As Object(USUARIO1.Text, CLAVE.Text)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "usuario")
|
||||
'If PASO = 1 Then
|
||||
'c=starter.skmt.execQuery("select usuario from usuarioa")
|
||||
'' c.Position = 0
|
||||
'c=starter.skmt.execQuery("select usuario from usuarioa")
|
||||
'' c.Position = 0
|
||||
' usuario = c.GetString("USUARIO")
|
||||
' c.Close
|
||||
' PEDIO_CLIENTE
|
||||
' PEDIO_CLIENTE
|
||||
' c=starter.skmt.execQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN FROM PEDIDO_CLIENTE ")
|
||||
' d=starter.skmt.execQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
|
||||
' If c.RowCount>0 Then
|
||||
@@ -2139,7 +2139,7 @@ End If
|
||||
' cmd.Name = "insert_pedidos_GV2"
|
||||
' cmd.Parameters = Array As Object(C.GetString("PC_CLIENTE"),C.GetString("PC_FECHA"),C.GetString("PC_USER"),C.GetString("PC_NOART"),C.GetString("PC_MONTO"),C.GetString("PC_LON"),C.GetString("PC_LAT"),ALMACEN,l_ruta.text,C.GetString("PC_COSTO_SIN") )
|
||||
' reqManager.ExecuteQuery(cmd , 0,"inst_pedidos")
|
||||
'
|
||||
'
|
||||
' Next
|
||||
' c.Close
|
||||
' End If
|
||||
@@ -2160,7 +2160,7 @@ End If
|
||||
' cmd.Name = "insert_pedido_GV2"
|
||||
' cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),ALMACEN,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"))
|
||||
' reqManager.ExecuteQuery(cmd , 0, "ins_pedido")
|
||||
'
|
||||
'
|
||||
' Next
|
||||
' c.Close
|
||||
' End If
|
||||
@@ -2181,7 +2181,7 @@ End If
|
||||
' cmd.Name = "insert_noventa_GV2"
|
||||
' 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)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
|
||||
'
|
||||
'
|
||||
' Next
|
||||
' c.Close
|
||||
' End If
|
||||
@@ -2190,7 +2190,7 @@ End If
|
||||
' d.Close
|
||||
'
|
||||
' ' DROP
|
||||
'
|
||||
'
|
||||
' t1.Initialize("T1", 60000) ' 1000 = 1 second
|
||||
' t1.Enabled = True
|
||||
'Dim cmd As DBCommand
|
||||
@@ -2203,10 +2203,10 @@ End If
|
||||
'
|
||||
'
|
||||
' ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
|
||||
'
|
||||
'
|
||||
'USUARIO1.Text = ""
|
||||
'CLAVE.Text = ""
|
||||
' End If
|
||||
' End If
|
||||
'
|
||||
End Sub
|
||||
|
||||
@@ -2379,7 +2379,7 @@ Sub resdia_Click
|
||||
' If l_monto_ks.Text = "null" Then
|
||||
' l_monto_ks.Text = "0"
|
||||
' End If
|
||||
'
|
||||
'
|
||||
' c.Close
|
||||
c=starter.skmt.execQuery("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 ")
|
||||
c.Position = 0
|
||||
@@ -2542,7 +2542,7 @@ Sub resdia_Click
|
||||
' l_monto_c1.Text = Round( c.GetString("HC_CUOTA1") / 6)
|
||||
' l_monto_c2.Text = Round(c.GetString("HC_CUOTA2") / 6)
|
||||
' l_monto_c3.Text = Round(c.GetString("HC_CUOTA3") / 6)
|
||||
''
|
||||
''
|
||||
'
|
||||
' c.Close
|
||||
Else
|
||||
@@ -2550,7 +2550,7 @@ Sub resdia_Click
|
||||
l_monto_c2.Text = 2000
|
||||
l_monto_c3.Text = 1000
|
||||
End If
|
||||
'
|
||||
'
|
||||
|
||||
|
||||
'
|
||||
@@ -2641,15 +2641,13 @@ Sub B_COMM_Click
|
||||
Resumen.Visible= False
|
||||
'
|
||||
If l_ruta.Text <> 0 Then
|
||||
c=starter.skmt.execQuery("Select HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB from HIST_COMISIONES_MOVIL ")
|
||||
c=Starter.skmt.execQuery("Select HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB from HIST_COMISIONES_MOVIL ")
|
||||
c.Position = 0
|
||||
L_TOTAL_BA.Text = c.GetString("HCM_TOTAL_BEB")
|
||||
L_TOTAL_GUNA.Text = c.GetString("HCM_TOTAL_GUNA")
|
||||
L_TOTAL_MM.Text = c.GetString("HCM_TOTAL_V")
|
||||
L_TOTAL_VIVE.Text = c.GetString("HCM_TOTAL_VIVE")
|
||||
|
||||
c.Close
|
||||
|
||||
L_TOTAL_COMIS.Text = 0
|
||||
Else
|
||||
L_TOTAL_BA.Text = 0
|
||||
@@ -2657,10 +2655,7 @@ Sub B_COMM_Click
|
||||
L_TOTAL_MM.Text = 0
|
||||
L_TOTAL_VIVE.Text = 0
|
||||
L_TOTAL_COMIS.Text = 0
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub B_OK_COMISS_Click
|
||||
|
||||
Reference in New Issue
Block a user