cheveguerra/Android_durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Android_durakelo.git synced 2026-04-17 19:37:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

30/11/23 - Cambios en JobDone para que les avise que no tienen conexion con el servidor.

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-30 12:21:34 -06:00
parent a493660b38
commit 939499cea2
4 changed files with 58 additions and 128 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
Files/seleccion.bal
View File

Binary file not shown.

8
durakelo.b4a
View File

@@ -1079,7 +1079,7 @@ Version=12.5
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Durakelo-Venta #ApplicationLabel: Durakelo-Venta
#VersionCode: 1 #VersionCode: 1
#VersionName: 3.11.08 #VersionName: 3.11.24
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False
@@ -1414,7 +1414,11 @@ End Sub
Sub JobDone(Job As HttpJob) Sub JobDone(Job As HttpJob)
If Job.Success = False Then If Job.Success = False Then
ToastMessageShow("Error: " & Job.ErrorMessage, True) If Job.ErrorMessage.Contains("resolve") And Job.ErrorMessage.Contains("keymon.lat") Then
ToastMessageShow("Por favor revisa tu conexión a internet, hay problemas de comunicación.", True)
Else
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Else Else
If Job.JobName = "DBRequest" Then If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job) Dim result As DBResult = reqManager.HandleJob(Job)

2
durakelo.b4a.meta
View File

@@ -73,6 +73,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9=2,5,6,8,10,11,12,13,24,36,37 ModuleClosedNodes9=2,5,6,8,10,11,12,13,24,36,37
NavigationStack=Starter,ENVIA_ULTIMA_GPS,98,0,fila,B_IMP_Click,699,0,colonia2,HACER_PEDIDO,455,0,seleccion,Globals,164,0,seleccion,IsConnectedToInternet,266,0,seleccion,Activity_Create,184,6,Visual Designer,seleccion.bal,-100,4,Visual Designer,mapa_rutas.bal,-100,3,MAPA_RUTAS,Process_Globals,15,0,MAPA_RUTAS,Globals,16,0,MAPA_RUTAS,Activity_Create,86,6 NavigationStack=Visual Designer,seleccion.bal,-100,6,seleccion,Activity_Create,236,0,seleccion,Resumen_Click,2483,2,seleccion,traeVenta,2771,3,seleccion,b_e_resumen_Click,2758,0,seleccion,SUBIR_P_Click,2750,0,seleccion,JobDone,1110,6,seleccion,cargar_Click,1101,0,MAPA_RUTAS,MapFragment1_Ready,109,0,MAPA_RUTAS,Activity_Create,106,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=21,20,24,14 VisibleModules=21,20,24,14

176
seleccion.bas
View File

@@ -388,7 +388,7 @@ Sub Activity_Resume
Cuantos = b.GetString("CUANTOS") Cuantos = b.GetString("CUANTOS")
If Cuantos = 0 Then If Cuantos = 0 Then
L_MONTOD.Text =0 L_MONTOD.Text = 0
l_cuantosc.Text = 0 l_cuantosc.Text = 0
l_cuantosn.Text = 0 l_cuantosn.Text = 0
drop = 0 drop = 0
@@ -399,17 +399,16 @@ Sub Activity_Resume
l_porvisitar.Text = e.GetString("POR_VISITAR") l_porvisitar.Text = e.GetString("POR_VISITAR")
Else Else
c=skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente where pc_cliente <> 0") c=skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente where pc_cliente <> 0")
b=skmt.ExecQuery("select count(*) as CUANTOS from noventa") b=skmt.ExecQuery("select count(*) as CUANTOS from noventa")
'where pc_fecha = ?", Array As String(fecha) 'where pc_fecha = ?", Array As String(fecha)
C.Position=0 C.Position=0
b.Position=0 b.Position=0
L_MONTOD.Text = c.GetString("MONTO_DIA") ' L_MONTOD.Text = c.GetString("MONTO_DIA")
L_MONTOD.Text = traeVenta
l_cuantosc.Text = c.GetString("CLIENTES_DIA") l_cuantosc.Text = c.GetString("CLIENTES_DIA")
l_cuantosn.Text = b.GetString("CUANTOS") l_cuantosn.Text = b.GetString("CUANTOS")
L_CUANTOST.Text = l_cuantosc.Text + l_cuantosn.Text L_CUANTOST.Text = l_cuantosc.Text + l_cuantosn.Text
End If End If
' bu.Initialize ' bu.Initialize
@@ -492,6 +491,11 @@ Sub Activity_Resume
Msgbox("VERSION INCORRECTA SOLICITAR O DESCARGAR LA NUEVA","ALERTA") Msgbox("VERSION INCORRECTA SOLICITAR O DESCARGAR LA NUEVA","ALERTA")
Activity_Resume Activity_Resume
End If End If
' Log(">>>> total: " & L_MONTOD.Text)
' Log(">>>> total: " & traeVenta)
' L_MONTOD.Text = traeVenta
CallSub(Starter,"ENVIA_ULTIMA_GPS") CallSub(Starter,"ENVIA_ULTIMA_GPS")
End Sub End Sub
@@ -506,6 +510,7 @@ Sub Activity_Pause (UserClosed As Boolean)
PASO = 2 PASO = 2
End If End If
End Sub End Sub
Sub trabajar_Click Sub trabajar_Click
'CallSubDelayed(gestion,"gestion") 'CallSubDelayed(gestion,"gestion")
c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS")) c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS"))
@@ -518,8 +523,6 @@ Sub trabajar_Click
End Sub End Sub
Sub Subir_Click Sub Subir_Click
Awake.KeepAlive(True) Awake.KeepAlive(True)
CARGA = "SUBIR" CARGA = "SUBIR"
@@ -561,9 +564,10 @@ Sub Subir_Click
E1.Position = 0 E1.Position = 0
If E1.GetString("CUANTOS") > 0 Then If E1.GetString("CUANTOS") > 0 Then
c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("ABORDO")) c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("ABORDO"))
c.Position = 0 c.Position = 0
L_ABORDO.Text = c.GetString("MONTO_DIA") ' L_ABORDO.Text = c.GetString("MONTO_DIA")
L_ABORDO.Text = NumberFormat2(c.GetDouble("MONTO_DIA"), 1, 2, 2, False)
c.Close c.Close
Else Else
L_ABORDO.Text = 0 L_ABORDO.Text = 0
@@ -1102,6 +1106,7 @@ Sub cargar_Click
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True) ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True)
End Sub End Sub
Sub JobDone(Job As HttpJob) Sub JobDone(Job As HttpJob)
If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos. If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
LogColor($">>>>>> Llega "${Job.tag}""$, Colors.RGB(170, 174, 0)) LogColor($">>>>>> Llega "${Job.tag}""$, Colors.RGB(170, 174, 0))
@@ -1112,7 +1117,10 @@ Sub JobDone(Job As HttpJob)
LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue) LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue)
End If End If
If Not(Job.Success) Then If Not(Job.Success) Then
LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red) If Job.ErrorMessage.Contains("resolve") And Job.ErrorMessage.Contains("keymon.lat") Then
ToastMessageShow("Por favor revisa tu conexión a internet, hay problemas de comunicación.", True)
End If
' LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
'If Job.ErrorMessage <> "STREAM" Then 'If Job.ErrorMessage <> "STREAM" Then
' ToastMessageShow("Error: " & Job.ErrorMessage, True) ' ToastMessageShow("Error: " & Job.ErrorMessage, True)
'End If 'End If
@@ -1552,13 +1560,7 @@ Sub JobDone(Job As HttpJob)
Dim CAT_DP_CLASIF As String = records(RESULT.Columns.Get("CAT_DP_CLASIF")) 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 As String = records(RESULT.Columns.Get("CAT_DP_PRECIO"))
Dim CAT_DP_PRECIO_SIMPTOS As String = records(RESULT.Columns.Get("CAT_DP_PRECIO_SIMPTOS")) 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)) 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 Next
skmt.TransactionSuccessful skmt.TransactionSuccessful
skmt.EndTransaction skmt.EndTransaction
@@ -1600,8 +1602,6 @@ Sub JobDone(Job As HttpJob)
Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT")) Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT"))
Dim HVD_FECHA As String = records(RESULT.Columns.Get("HVD_FECHA")) 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) VALUES (?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA)) skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA) VALUES (?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA))
Next Next
skmt.TransactionSuccessful skmt.TransactionSuccessful
skmt.EndTransaction skmt.EndTransaction
@@ -1626,9 +1626,7 @@ Sub JobDone(Job As HttpJob)
Activity_Resume Activity_Resume
img2.Visible=False img2.Visible=False
EJECUTANDO=0 EJECUTANDO=0
End If End If
End If End If
End If End If
@@ -1636,7 +1634,6 @@ Sub JobDone(Job As HttpJob)
Dim RESULT As DBResult = reqManager.HandleJob(Job) Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "carga_encuesta" Then 'query tag If RESULT.Tag = "carga_encuesta" Then 'query tag
For Each records() As Object In RESULT.Rows For Each records() As Object In RESULT.Rows
Dim CAT_EP_ID As String = records(RESULT.COLUMNS.GET("CAT_EP_ID")) Dim CAT_EP_ID As String = records(RESULT.COLUMNS.GET("CAT_EP_ID"))
Dim CAT_EP_IDTIPOPREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_IDTIPOPREGUNTA")) Dim CAT_EP_IDTIPOPREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_IDTIPOPREGUNTA"))
Dim CAT_CE_DESCRIPCION As String = records(RESULT.COLUMNS.GET("CAT_CE_DESCRIPCION")) Dim CAT_CE_DESCRIPCION As String = records(RESULT.COLUMNS.GET("CAT_CE_DESCRIPCION"))
@@ -1645,12 +1642,7 @@ Sub JobDone(Job As HttpJob)
Dim CAT_EP_RES2_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES2_PRED")) Dim CAT_EP_RES2_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES2_PRED"))
Dim CAT_EP_RES3_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES3_PRED")) Dim CAT_EP_RES3_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES3_PRED"))
Dim CAT_EP_ORDEN_PREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_ORDEN_PREGUNTA")) Dim CAT_EP_ORDEN_PREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_ORDEN_PREGUNTA"))
skmt.ExecNonQuery2("INSERT INTO CAT_ENCUESTA_PREGUNTA (CAT_EP_ID ,CAT_EP_IDTIPOPREGUNTA ,CAT_CE_DESCRIPCION ,CAT_EP_PREGUNTA ,CAT_EP_RES1_PRED ,CAT_EP_RES2_PRED ,CAT_EP_RES3_PRED ,CAT_EP_ORDEN_PREGUNTA ) VALUES (?,?,?,?,?,?,?,?)", Array As Object (CAT_EP_ID ,CAT_EP_IDTIPOPREGUNTA ,CAT_CE_DESCRIPCION ,CAT_EP_PREGUNTA ,CAT_EP_RES1_PRED ,CAT_EP_RES2_PRED ,CAT_EP_RES3_PRED ,CAT_EP_ORDEN_PREGUNTA)) skmt.ExecNonQuery2("INSERT INTO CAT_ENCUESTA_PREGUNTA (CAT_EP_ID ,CAT_EP_IDTIPOPREGUNTA ,CAT_CE_DESCRIPCION ,CAT_EP_PREGUNTA ,CAT_EP_RES1_PRED ,CAT_EP_RES2_PRED ,CAT_EP_RES3_PRED ,CAT_EP_ORDEN_PREGUNTA ) VALUES (?,?,?,?,?,?,?,?)", Array As Object (CAT_EP_ID ,CAT_EP_IDTIPOPREGUNTA ,CAT_CE_DESCRIPCION ,CAT_EP_PREGUNTA ,CAT_EP_RES1_PRED ,CAT_EP_RES2_PRED ,CAT_EP_RES3_PRED ,CAT_EP_ORDEN_PREGUNTA))
Next Next
End If End If
End If End If
@@ -1699,13 +1691,9 @@ Sub JobDone(Job As HttpJob)
Dim RESULT As DBResult = reqManager.HandleJob(Job) Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "variables" Then 'query tag If RESULT.Tag = "variables" Then 'query tag
For Each records() As Object In RESULT.Rows For Each records() As Object In RESULT.Rows
Dim Cat_Va_Descripcion As String = records(RESULT.Columns.Get("CAT_VA_DESCRIPCION")) 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")) 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)) skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object (Cat_Va_Descripcion, Cat_Va_Valor))
Next Next
End If End If
End If End If
@@ -1727,8 +1715,6 @@ Sub JobDone(Job As HttpJob)
ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True) ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True)
S_CP.Text = "ENVIAR DATOS (K-2)" S_CP.Text = "ENVIAR DATOS (K-2)"
End If End If
Next Next
End If End If
End If End If
@@ -1990,11 +1976,8 @@ Sub JobDone(Job As HttpJob)
' ToastMessageShow("LISTA DE PRECIOS OK LISTA DE PRECIOS OK", True) ' ToastMessageShow("LISTA DE PRECIOS OK LISTA DE PRECIOS OK", True)
End If End If
End If End If
Job.Release Job.Release
End If End If
End Sub End Sub
Sub Activity_KeyPress (key As Int) As Boolean Sub Activity_KeyPress (key As Int) As Boolean
@@ -2079,9 +2062,6 @@ Sub e_ruta_EnterPressed
skmt.ExecNonQuery("delete from HIST_ENCUESTA") skmt.ExecNonQuery("delete from HIST_ENCUESTA")
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("NUMERO_PEDIDO")) skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("NUMERO_PEDIDO"))
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("NUMERO_PEDIDO",0)) skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("NUMERO_PEDIDO",0))
Activity_Resume Activity_Resume
End If End If
End If End If
@@ -2095,10 +2075,9 @@ Sub e_ruta_EnterPressed
connecta.Visible=False connecta.Visible=False
img3.Visible =True img3.Visible =True
Resumen.Visible= False Resumen.Visible= False
End If End If
End Sub End Sub
Sub inv_Click Sub inv_Click
img2.Visible =True img2.Visible =True
EJECUTANDO = 1 EJECUTANDO = 1
@@ -2119,7 +2098,7 @@ Sub inv_Click
cmd.Name = "select_cat_paquetes_DUR" cmd.Name = "select_cat_paquetes_DUR"
cmd.Parameters = Array As Object(ALMACEN) cmd.Parameters = Array As Object(ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprodp") reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
cmd.Initialize cmd.Initialize
cmd.Name = "select_cat_detallepa_DUR" cmd.Name = "select_cat_detallepa_DUR"
cmd.Parameters = Array As Object(ALMACEN) cmd.Parameters = Array As Object(ALMACEN)
@@ -2131,10 +2110,9 @@ Sub inv_Click
connecta.Visible = True connecta.Visible = True
inv.Visible = False inv.Visible = False
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True) ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True)
End Sub End Sub
Sub t1_tick Sub t1_tick
cmd.Initialize cmd.Initialize
cmd.Name = "select_cuantos_pedido_DUR" cmd.Name = "select_cuantos_pedido_DUR"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text) cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
@@ -2143,8 +2121,6 @@ Sub t1_tick
T3.Initialize("T3", 5000) ' 1000 = 1 second T3.Initialize("T3", 5000) ' 1000 = 1 second
T3.Enabled = True T3.Enabled = True
Wait For t3_tick Wait For t3_tick
''
'
' cmd.Initialize ' cmd.Initialize
' cmd.Name = "select_cuantos_noventa_DUR" ' cmd.Name = "select_cuantos_noventa_DUR"
' cmd.Parameters = Array As Object(ALMACEN,l_ruta.text) ' cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
@@ -2161,6 +2137,7 @@ Sub t1_tick
img2.Visible=False img2.Visible=False
t1.Enabled = False t1.Enabled = False
End Sub End Sub
Sub B_OK_PAS_Click 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
@@ -2212,18 +2189,14 @@ Sub B_OK_PAS_Click
img2.Visible=False img2.Visible=False
ExitApplication ExitApplication
End If 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
trabajar.Visible = True trabajar.Visible = True
B_PROXIMA.Visible =True B_PROXIMA.Visible =True
Btn_UbicarR.Visible=True Btn_UbicarR.Visible=True
NUEVO.Visible =True
NUEVO.Visible =True
BUSCA.Visible=True BUSCA.Visible=True
connecta.Visible=True connecta.Visible=True
Resumen.Visible= True Resumen.Visible= True
@@ -2236,8 +2209,7 @@ Sub B_OK_PAS_Click
trabajar.Visible = True trabajar.Visible = True
B_PROXIMA.Visible =True B_PROXIMA.Visible =True
Btn_UbicarR.Visible=True Btn_UbicarR.Visible=True
NUEVO.Visible =True
NUEVO.Visible =True
BUSCA.Visible=True BUSCA.Visible=True
connecta.Visible=True connecta.Visible=True
Resumen.Visible= True Resumen.Visible= True
@@ -2255,10 +2227,8 @@ Sub B_OK_PAS_Click
skmt.ExecNonQuery("delete from CAT_VERIFICACION") skmt.ExecNonQuery("delete from CAT_VERIFICACION")
ExitApplication ExitApplication
End If End If
End If End If
'------------- '-------------
'------------- TODO ESTE CODIGO ES PARA CUANDO APLICAN DESUCENTOS. '------------- TODO ESTE CODIGO ES PARA CUANDO APLICAN DESUCENTOS.
' '
@@ -2284,7 +2254,6 @@ Sub B_OK_PAS_Click
' cmd.Name = "insert_pedidos_DUR" ' cmd.Name = "insert_pedidos_DUR"
' 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") ) ' 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") ' reqManager.ExecuteQuery(cmd , 0,"inst_pedidos")
'
' Next ' Next
' c.Close ' c.Close
' End If ' End If
@@ -2305,7 +2274,6 @@ Sub B_OK_PAS_Click
' cmd.Name = "insert_pedido_DUR" ' cmd.Name = "insert_pedido_DUR"
' 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")) ' 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") ' reqManager.ExecuteQuery(cmd , 0, "ins_pedido")
'
' Next ' Next
' c.Close ' c.Close
' End If ' End If
@@ -2326,7 +2294,6 @@ Sub B_OK_PAS_Click
' cmd.Name = "insert_noventa_DUR" ' cmd.Name = "insert_noventa_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) ' 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") ' reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
'
' Next ' Next
' c.Close ' c.Close
' End If ' End If
@@ -2365,7 +2332,7 @@ Sub B_OK_RES_Click
B_PROXIMA.Visible =True B_PROXIMA.Visible =True
Btn_UbicarR.Visible=True Btn_UbicarR.Visible=True
NUEVO.Visible =True NUEVO.Visible =True
BUSCA.Visible=True BUSCA.Visible=True
connecta.Visible=True connecta.Visible=True
Resumen.Visible= True Resumen.Visible= True
@@ -2453,7 +2420,6 @@ Sub Resumen_Click
l_monto_kc.Text = c.GetString("MONTO_DIA") l_monto_kc.Text = c.GetString("MONTO_DIA")
c.Close c.Close
Log("Cereal=" & l_monto_kc.text) Log("Cereal=" & l_monto_kc.text)
Else Else
ImageView12.Bitmap = LoadBitmap(File.DirAssets, "unilever.jpg") ImageView12.Bitmap = LoadBitmap(File.DirAssets, "unilever.jpg")
c=skmt.ExecQuery2("select sum(pe_cant) as CAMBIOS from pedido where substr(pe_pronombre,1,6) = ?", Array As String("CAMBIO")) c=skmt.ExecQuery2("select sum(pe_cant) as CAMBIOS from pedido where substr(pe_pronombre,1,6) = ?", Array As String("CAMBIO"))
@@ -2465,7 +2431,6 @@ Sub Resumen_Click
c.Position = 0 c.Position = 0
l_monto_k.Text = c.GetString("MONTO_DIA") l_monto_k.Text = c.GetString("MONTO_DIA")
c.Close c.Close
l_monto_kp.Text = "0" l_monto_kp.Text = "0"
l_monto_ks.Text = "0" l_monto_ks.Text = "0"
End If End If
@@ -2484,8 +2449,6 @@ Sub Resumen_Click
L_VENTA.Text = 0 L_VENTA.Text = 0
End If End If
E1.Close E1.Close
E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("PREVENTA")) E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("PREVENTA"))
E1.Position = 0 E1.Position = 0
If E1.GetString("CUANTOS") > 0 Then If E1.GetString("CUANTOS") > 0 Then
@@ -2498,15 +2461,15 @@ Sub Resumen_Click
L_PREVENTA.Text = 0 L_PREVENTA.Text = 0
End If End If
E1.Close E1.Close
E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO")) E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO"))
E1.Position = 0 E1.Position = 0
If E1.GetString("CUANTOS") > 0 Then If E1.GetString("CUANTOS") > 0 Then
c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("ABORDO"))
c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("ABORDO"))
c.Position = 0 c.Position = 0
L_ABORDO.Text = c.GetString("MONTO_DIA") Log($"ABORDO DOUBLE: ${NumberFormat2(c.GetDouble("MONTO_DIA"), 1, 2, 2, False)}"$)
Log($"ABORDO STRING: ${c.GetString("MONTO_DIA")}"$)
L_ABORDO.Text = NumberFormat2(c.GetDouble("MONTO_DIA"), 1, 2, 2, False)
c.Close c.Close
Else Else
L_ABORDO.Text = 0 L_ABORDO.Text = 0
@@ -2523,7 +2486,8 @@ Sub Resumen_Click
'where pc_fecha = ?", Array As String(fecha) 'where pc_fecha = ?", Array As String(fecha)
C.Position=0 C.Position=0
b.Position=0 b.Position=0
L_MONTOD.Text = c.GetString("MONTO_DIA") ' L_MONTOD.Text = c.GetString("MONTO_DIA")
L_MONTOD.Text = traeVenta
l_cuantosc.Text = c.GetString("CLIENTES_DIA") l_cuantosc.Text = c.GetString("CLIENTES_DIA")
l_cuantosn.Text = b.GetString("CUANTOS") l_cuantosn.Text = b.GetString("CUANTOS")
efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR") efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR")
@@ -2548,12 +2512,9 @@ Sub Resumen_Click
Else Else
ImageView5.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png") ImageView5.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png")
End If End If
c.Close c.Close
b.Close b.Close
End If End If
End Sub End Sub
Sub B_PROXIMA_Click Sub B_PROXIMA_Click
@@ -2563,8 +2524,6 @@ Sub B_PROXIMA_Click
StartActivity(colonia2) StartActivity(colonia2)
End Sub End Sub
Sub Timer_GIF1_Tick Sub Timer_GIF1_Tick
Timer_GIF1.Enabled = False Timer_GIF1.Enabled = False
Frame1 = Frame1 + 1 Frame1 = Frame1 + 1
@@ -2577,36 +2536,24 @@ Sub Timer_GIF1_Tick
End Sub End Sub
Sub load_gif Sub load_gif
gif1.DisposeFrames gif1.DisposeFrames
gif1.Load(ruta, "espera.gif") gif1.Load(ruta, "espera.gif")
Frame1 = 0 Frame1 = 0
Timer_GIF1.Interval = gif1.Delay(Frame1) Timer_GIF1.Interval = gif1.Delay(Frame1)
i_gif.Bitmap = gif1.Frame(Frame1) i_gif.Bitmap = gif1.Frame(Frame1)
Timer_GIF1.Initialize("TG", 40) ' 1000 = 1 second
Timer_GIF1.Initialize("TG", 40) ' 1000 = 1 second
Timer_GIF1.Enabled = True Timer_GIF1.Enabled = True
gif1.SaveFrame(0, ruta, "frame1.png", "P", 85) gif1.SaveFrame(0, ruta, "frame1.png", "P", 85)
gif1.SaveFrame(0, ruta, "frame1.jpg", "J", 85) gif1.SaveFrame(0, ruta, "frame1.jpg", "J", 85)
End Sub End Sub
Sub VALIDA_INFO Sub VALIDA_INFO
cmd.Initialize cmd.Initialize
cmd.Name = "select_datos_enviados_pe" cmd.Name = "select_datos_enviados_pe"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.Text) cmd.Parameters = Array As Object(ALMACEN, e_ruta.Text)
reqManager.ExecuteQuery(cmd , 0, "pedido_env") reqManager.ExecuteQuery(cmd , 0, "pedido_env")
PASO_info = 0 PASO_info = 0
For I = 0 To 2 For I = 0 To 2
T3.Initialize("T3", 8000) ' 1000 = 1 second T3.Initialize("T3", 8000) ' 1000 = 1 second
T3.Enabled = True T3.Enabled = True
@@ -2615,28 +2562,24 @@ Sub VALIDA_INFO
I = 0 I = 0
End If End If
Next Next
End Sub End Sub
Sub B_MARCAS_Click Sub B_MARCAS_Click
Panel5.Visible = True Panel5.Visible = True
pnlTitle.Visible = False pnlTitle.Visible = False
pnlTitle.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight + DividerHeight) pnlTitle.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight + DividerHeight)
pnlTitle.LoadLayout("CellTitle") pnlTitle.LoadLayout("CellTitle")
c=skmt.ExecQuery("Select CAT_GP_CLASIF, SUM(TOTAL) AS TOTAL FROM TOTAL_MARCAS GROUP BY CAT_GP_CLASIF") c=skmt.ExecQuery("Select CAT_GP_CLASIF, SUM(TOTAL) AS TOTAL FROM TOTAL_MARCAS GROUP BY CAT_GP_CLASIF")
CLV1.Clear CLV1.Clear
If c.RowCount>0 Then If c.RowCount>0 Then
For i=0 To c.RowCount -1 For i=0 To c.RowCount -1
c.Position=i c.Position=i
AddTitle(c.GetString("CAT_GP_CLASIF")) AddTitle(c.GetString("CAT_GP_CLASIF"))
CLV1.AddTextItem("TOTAL VENTA Y PREVENTA = $" & c.GetString("TOTAL"),"1") CLV1.AddTextItem("TOTAL VENTA Y PREVENTA = $" & c.GetString("TOTAL"),"1")
Next Next
End If End If
End Sub End Sub
Sub AddTitle (Title As String) Sub AddTitle (Title As String)
Dim p_MARCAS As B4XView = xui.CreatePanel("") Dim p_MARCAS As B4XView = xui.CreatePanel("")
p_MARCAS.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight) p_MARCAS.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight)
@@ -2647,10 +2590,8 @@ Sub AddTitle (Title As String)
CLV1.Add(p_MARCAS, td) CLV1.Add(p_MARCAS, td)
End Sub End Sub
Sub B_OK_PANEL5_Click Sub B_OK_PANEL5_Click
Panel5.Visible = False Panel5.Visible = False
End Sub End Sub
Sub e_ruta_TextChanged (Old As String, New As String) Sub e_ruta_TextChanged (Old As String, New As String)
@@ -2682,13 +2623,11 @@ Sub SUBIR_P_Click
trabajar.Visible = False trabajar.Visible = False
B_PROXIMA.Visible =False B_PROXIMA.Visible =False
Btn_UbicarR.Visible=False Btn_UbicarR.Visible=False
NUEVO.Visible =False NUEVO.Visible =False
BUSCA.Visible=False BUSCA.Visible=False
connecta.Visible=False connecta.Visible=False
Subir.Visible=False Subir.Visible=False
SUBIR_P.Visible = False SUBIR_P.Visible = False
cargar.Visible=False cargar.Visible=False
L_P_1.Visible = False L_P_1.Visible = False
S_CC.Visible = False S_CC.Visible = False
@@ -2696,7 +2635,6 @@ Sub SUBIR_P_Click
S_CH.Visible = False S_CH.Visible = False
PB1.Visible = False PB1.Visible = False
Resumen.Visible= False Resumen.Visible= False
L_P_2.Text = "Envio de Pedidos" L_P_2.Text = "Envio de Pedidos"
L_P_3.Text = "Envio de Pedidos" L_P_3.Text = "Envio de Pedidos"
S_CH.Text = "EN PROCESO" S_CH.Text = "EN PROCESO"
@@ -2707,26 +2645,22 @@ Sub SUBIR_P_Click
conteo = 0 conteo = 0
'i_gif.Visible = True 'i_gif.Visible = True
' load_gif ' load_gif
PASO = 1 PASO = 1
'End If 'End If
If PASO =1 Then If PASO =1 Then
E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO")) E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO"))
E1.Position = 0 E1.Position = 0
If E1.GetString("CUANTOS") > 0 Then If E1.GetString("CUANTOS") > 0 Then
c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("ABORDO"))
c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("ABORDO"))
c.Position = 0 c.Position = 0
L_ABORDO.Text = c.GetString("MONTO_DIA") ' L_ABORDO.Text = c.GetString("MONTO_DIA")
L_ABORDO.Text = NumberFormat2(c.GetDouble("MONTO_DIA"), 1, 2, 2, False)
c.Close c.Close
Else Else
L_ABORDO.Text = 0 L_ABORDO.Text = 0
End If End If
E1.Close E1.Close
skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)") skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)")
c=skmt.ExecQuery("select usuario from usuarioa") c=skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0 c.Position = 0
usuario = c.GetString("USUARIO") usuario = c.GetString("USUARIO")
@@ -2745,13 +2679,8 @@ Sub SUBIR_P_Click
reqManager.ExecuteQuery(cmd , 0, "inst_noventa") reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
d3.Close d3.Close
cuantos_pedidosc = 0 cuantos_pedidosc = 0
' PEDIO ' PEDIO
skmt.ExecNonQuery("update PEDIDO set PE_FOLIO = rowid ") skmt.ExecNonQuery("update PEDIDO set PE_FOLIO = rowid ")
'
' c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FOLIO")) ' c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FOLIO"))
' c.Position =0 ' c.Position =0
' armafolio = l_ruta.text * 1000000 ' armafolio = l_ruta.text * 1000000
@@ -2778,9 +2707,6 @@ Sub SUBIR_P_Click
' cmd.Name = "update_folio" ' cmd.Name = "update_folio"
' cmd.Parameters = Array As Object(armafolio,l_ruta.Text , "1") ' cmd.Parameters = Array As Object(armafolio,l_ruta.Text , "1")
' reqManager.ExecuteQuery(cmd , 0, "folio") ' reqManager.ExecuteQuery(cmd , 0, "folio")
c=skmt.ExecQuery("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO,PE_TIPO FROM PEDIDO WHERE PE_CLIENTE = 0") c=skmt.ExecQuery("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO,PE_TIPO FROM PEDIDO WHERE PE_CLIENTE = 0")
d=skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO WHERE PE_CLIENTE = 0") d=skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO WHERE PE_CLIENTE = 0")
d.Position=0 d.Position=0
@@ -2789,7 +2715,6 @@ Sub SUBIR_P_Click
For i=0 To c.RowCount -1 For i=0 To c.RowCount -1
c.Position=i c.Position=i
TIEMPO = TIEMPO + 1 TIEMPO = TIEMPO + 1
If TIEMPO > 20 Then If TIEMPO > 20 Then
If L_P_2.Text = "Envio de Pedidos" Then If L_P_2.Text = "Envio de Pedidos" Then
L_P_2.Text = "Envio de Pedidos --" L_P_2.Text = "Envio de Pedidos --"
@@ -2806,7 +2731,6 @@ Sub SUBIR_P_Click
T3.Enabled = True T3.Enabled = True
Wait For t3_tick Wait For t3_tick
TIEMPO = 0 TIEMPO = 0
End If End If
conteo = conteo + 1 conteo = conteo + 1
cuantos_ped = D.GetString("CUANTOS_PEDIDO") cuantos_ped = D.GetString("CUANTOS_PEDIDO")
@@ -2816,31 +2740,19 @@ Sub SUBIR_P_Click
cmd.Name = "insert_pedido_DUR" cmd.Name = "insert_pedido_DUR"
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"),c.GetString("PE_FOLIO"), c.GetString("PE_TIPO")) 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"),c.GetString("PE_FOLIO"), c.GetString("PE_TIPO"))
reqManager.ExecuteQuery(cmd , 0, "ins_pedido") reqManager.ExecuteQuery(cmd , 0, "ins_pedido")
Next Next
c.Close c.Close
End If End If
cuantos_pedido = D.GetString("CUANTOS_PEDIDO") cuantos_pedido = D.GetString("CUANTOS_PEDIDO")
d.Close d.Close
t1.Initialize("T1", 20000) ' 1000 = 1 second t1.Initialize("T1", 20000) ' 1000 = 1 second
t1.Enabled = True t1.Enabled = True
img2.Visible =True img2.Visible =True
' ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) ' ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
If S_CP.Text = "SUBIENDO" Then If S_CP.Text = "SUBIENDO" Then
S_CP.Text = "VALIDANDO" S_CP.Text = "VALIDANDO"
End If End If
End If End If
End Sub End Sub
Sub b_e_resumen_Click Sub b_e_resumen_Click
@@ -2849,4 +2761,18 @@ Sub b_e_resumen_Click
cmd.Name = "UPDATE_DURK_ACTUAL2_GPS" cmd.Name = "UPDATE_DURK_ACTUAL2_GPS"
cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,Main.lat_gps,Main.lon_gps,batterystatus(0),0, 0, 0,ALMACEN,l_ruta.Text ) cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,Main.lat_gps,Main.lon_gps,batterystatus(0),0, 0, 0,ALMACEN,l_ruta.Text )
reqManager.ExecuteCommand(cmd,"inst_visitas") reqManager.ExecuteCommand(cmd,"inst_visitas")
End Sub
Sub traeVenta As Double 'ignore
Private sumatotal As Double = 0
Private cursorprueba As Cursor = skmt.ExecQuery2("select PE_COSTO_TOT from pedido where PE_CEDIS <> PE_PROID and PE_CLIENTE <> 0 and PE_CEDIS <> ?", Array As String("DOE"))
For i = 0 To cursorprueba.RowCount - 1
cursorprueba.Position = i
' LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red)
sumatotal = sumatotal + cursorprueba.GetDouble("PE_COSTO_TOT")
' sumatotal = NumberFormat2(sumatotal, 0, 2, 2, False)
' Log("Total venta: " & NumberFormat2(sumatotal, 0, 2, 2, False))
Next
cursorprueba.Close
Return NumberFormat2(sumatotal, 0, 2, 2, False)
End Sub End Sub