mirror of
https://github.com/KeymonSoft/Android_durakelo.git
synced 2026-04-17 19:37:03 +00:00
30/11/23 - Cambios en JobDone para que les avise que no tienen conexion con el servidor.
This commit is contained in:
Binary file not shown.
@@ -1079,7 +1079,7 @@ Version=12.5
|
||||
#Region Project Attributes
|
||||
#ApplicationLabel: Durakelo-Venta
|
||||
#VersionCode: 1
|
||||
#VersionName: 3.11.08
|
||||
#VersionName: 3.11.24
|
||||
'SupportedOrientations possible values: unspecified, landscape or portrait.
|
||||
#SupportedOrientations: portrait
|
||||
#CanInstallToExternalStorage: False
|
||||
@@ -1414,7 +1414,11 @@ End Sub
|
||||
|
||||
Sub JobDone(Job As HttpJob)
|
||||
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
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
|
||||
@@ -73,6 +73,6 @@ ModuleClosedNodes6=
|
||||
ModuleClosedNodes7=
|
||||
ModuleClosedNodes8=
|
||||
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
|
||||
VisibleModules=21,20,24,14
|
||||
|
||||
176
seleccion.bas
176
seleccion.bas
@@ -388,7 +388,7 @@ Sub Activity_Resume
|
||||
Cuantos = b.GetString("CUANTOS")
|
||||
|
||||
If Cuantos = 0 Then
|
||||
L_MONTOD.Text =0
|
||||
L_MONTOD.Text = 0
|
||||
l_cuantosc.Text = 0
|
||||
l_cuantosn.Text = 0
|
||||
drop = 0
|
||||
@@ -399,17 +399,16 @@ Sub Activity_Resume
|
||||
l_porvisitar.Text = e.GetString("POR_VISITAR")
|
||||
|
||||
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")
|
||||
'where pc_fecha = ?", Array As String(fecha)
|
||||
C.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_cuantosn.Text = b.GetString("CUANTOS")
|
||||
|
||||
L_CUANTOST.Text = l_cuantosc.Text + l_cuantosn.Text
|
||||
|
||||
End If
|
||||
|
||||
' bu.Initialize
|
||||
@@ -492,6 +491,11 @@ Sub Activity_Resume
|
||||
Msgbox("VERSION INCORRECTA SOLICITAR O DESCARGAR LA NUEVA","ALERTA")
|
||||
Activity_Resume
|
||||
End If
|
||||
|
||||
' Log(">>>> total: " & L_MONTOD.Text)
|
||||
' Log(">>>> total: " & traeVenta)
|
||||
' L_MONTOD.Text = traeVenta
|
||||
|
||||
CallSub(Starter,"ENVIA_ULTIMA_GPS")
|
||||
End Sub
|
||||
|
||||
@@ -506,6 +510,7 @@ Sub Activity_Pause (UserClosed As Boolean)
|
||||
PASO = 2
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub trabajar_Click
|
||||
'CallSubDelayed(gestion,"gestion")
|
||||
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
|
||||
|
||||
|
||||
|
||||
Sub Subir_Click
|
||||
Awake.KeepAlive(True)
|
||||
CARGA = "SUBIR"
|
||||
@@ -561,9 +564,10 @@ Sub Subir_Click
|
||||
E1.Position = 0
|
||||
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
|
||||
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
|
||||
Else
|
||||
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)
|
||||
End Sub
|
||||
|
||||
Sub JobDone(Job As HttpJob)
|
||||
If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
|
||||
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)
|
||||
End If
|
||||
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
|
||||
' ToastMessageShow("Error: " & Job.ErrorMessage, True)
|
||||
'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_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
|
||||
skmt.TransactionSuccessful
|
||||
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_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))
|
||||
|
||||
|
||||
Next
|
||||
skmt.TransactionSuccessful
|
||||
skmt.EndTransaction
|
||||
@@ -1626,9 +1626,7 @@ Sub JobDone(Job As HttpJob)
|
||||
Activity_Resume
|
||||
img2.Visible=False
|
||||
EJECUTANDO=0
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -1636,7 +1634,6 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "carga_encuesta" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
|
||||
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_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_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"))
|
||||
|
||||
|
||||
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
|
||||
End If
|
||||
End If
|
||||
@@ -1699,13 +1691,9 @@ Sub JobDone(Job As HttpJob)
|
||||
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
|
||||
@@ -1727,8 +1715,6 @@ Sub JobDone(Job As HttpJob)
|
||||
ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True)
|
||||
S_CP.Text = "ENVIAR DATOS (K-2)"
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
@@ -1990,11 +1976,8 @@ Sub JobDone(Job As HttpJob)
|
||||
' ToastMessageShow("LISTA DE PRECIOS OK LISTA DE PRECIOS OK", True)
|
||||
End If
|
||||
End If
|
||||
|
||||
Job.Release
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Activity_KeyPress (key As Int) As Boolean
|
||||
@@ -2079,9 +2062,6 @@ Sub e_ruta_EnterPressed
|
||||
skmt.ExecNonQuery("delete from HIST_ENCUESTA")
|
||||
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))
|
||||
|
||||
|
||||
|
||||
Activity_Resume
|
||||
End If
|
||||
End If
|
||||
@@ -2095,10 +2075,9 @@ Sub e_ruta_EnterPressed
|
||||
connecta.Visible=False
|
||||
img3.Visible =True
|
||||
Resumen.Visible= False
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub inv_Click
|
||||
img2.Visible =True
|
||||
EJECUTANDO = 1
|
||||
@@ -2119,7 +2098,7 @@ Sub inv_Click
|
||||
cmd.Name = "select_cat_paquetes_DUR"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_detallepa_DUR"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
@@ -2131,10 +2110,9 @@ Sub inv_Click
|
||||
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
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cuantos_pedido_DUR"
|
||||
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
|
||||
@@ -2143,8 +2121,6 @@ Sub t1_tick
|
||||
T3.Initialize("T3", 5000) ' 1000 = 1 second
|
||||
T3.Enabled = True
|
||||
Wait For t3_tick
|
||||
''
|
||||
'
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_cuantos_noventa_DUR"
|
||||
' cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
|
||||
@@ -2161,6 +2137,7 @@ Sub t1_tick
|
||||
img2.Visible=False
|
||||
t1.Enabled = False
|
||||
End Sub
|
||||
|
||||
Sub B_OK_PAS_Click
|
||||
|
||||
If CARGA = "SUBIR" And S_CP.Text = "INFO OK" Then
|
||||
@@ -2212,18 +2189,14 @@ Sub B_OK_PAS_Click
|
||||
img2.Visible=False
|
||||
ExitApplication
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If CARGA = "CARGAR" And S_CP.Text = "LISTO" And S_CC.Text = "LISTO" And S_CH.Text = "LISTO" Then
|
||||
|
||||
P1.Visible = False
|
||||
trabajar.Visible = True
|
||||
B_PROXIMA.Visible =True
|
||||
Btn_UbicarR.Visible=True
|
||||
|
||||
|
||||
NUEVO.Visible =True
|
||||
NUEVO.Visible =True
|
||||
BUSCA.Visible=True
|
||||
connecta.Visible=True
|
||||
Resumen.Visible= True
|
||||
@@ -2236,8 +2209,7 @@ Sub B_OK_PAS_Click
|
||||
trabajar.Visible = True
|
||||
B_PROXIMA.Visible =True
|
||||
Btn_UbicarR.Visible=True
|
||||
|
||||
NUEVO.Visible =True
|
||||
NUEVO.Visible =True
|
||||
BUSCA.Visible=True
|
||||
connecta.Visible=True
|
||||
Resumen.Visible= True
|
||||
@@ -2255,10 +2227,8 @@ Sub B_OK_PAS_Click
|
||||
skmt.ExecNonQuery("delete from CAT_VERIFICACION")
|
||||
ExitApplication
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'-------------
|
||||
'------------- TODO ESTE CODIGO ES PARA CUANDO APLICAN DESUCENTOS.
|
||||
'
|
||||
@@ -2284,7 +2254,6 @@ Sub B_OK_PAS_Click
|
||||
' 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") )
|
||||
' reqManager.ExecuteQuery(cmd , 0,"inst_pedidos")
|
||||
'
|
||||
' Next
|
||||
' c.Close
|
||||
' End If
|
||||
@@ -2305,7 +2274,6 @@ Sub B_OK_PAS_Click
|
||||
' 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"))
|
||||
' reqManager.ExecuteQuery(cmd , 0, "ins_pedido")
|
||||
'
|
||||
' Next
|
||||
' c.Close
|
||||
' End If
|
||||
@@ -2326,7 +2294,6 @@ Sub B_OK_PAS_Click
|
||||
' 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)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
|
||||
'
|
||||
' Next
|
||||
' c.Close
|
||||
' End If
|
||||
@@ -2365,7 +2332,7 @@ Sub B_OK_RES_Click
|
||||
B_PROXIMA.Visible =True
|
||||
Btn_UbicarR.Visible=True
|
||||
|
||||
NUEVO.Visible =True
|
||||
NUEVO.Visible =True
|
||||
BUSCA.Visible=True
|
||||
connecta.Visible=True
|
||||
Resumen.Visible= True
|
||||
@@ -2453,7 +2420,6 @@ Sub Resumen_Click
|
||||
l_monto_kc.Text = c.GetString("MONTO_DIA")
|
||||
c.Close
|
||||
Log("Cereal=" & l_monto_kc.text)
|
||||
|
||||
Else
|
||||
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"))
|
||||
@@ -2465,7 +2431,6 @@ Sub Resumen_Click
|
||||
c.Position = 0
|
||||
l_monto_k.Text = c.GetString("MONTO_DIA")
|
||||
c.Close
|
||||
|
||||
l_monto_kp.Text = "0"
|
||||
l_monto_ks.Text = "0"
|
||||
End If
|
||||
@@ -2484,8 +2449,6 @@ Sub Resumen_Click
|
||||
L_VENTA.Text = 0
|
||||
End If
|
||||
E1.Close
|
||||
|
||||
|
||||
E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("PREVENTA"))
|
||||
E1.Position = 0
|
||||
If E1.GetString("CUANTOS") > 0 Then
|
||||
@@ -2498,15 +2461,15 @@ Sub Resumen_Click
|
||||
L_PREVENTA.Text = 0
|
||||
End If
|
||||
E1.Close
|
||||
|
||||
|
||||
|
||||
E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO"))
|
||||
E1.Position = 0
|
||||
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
|
||||
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
|
||||
Else
|
||||
L_ABORDO.Text = 0
|
||||
@@ -2523,7 +2486,8 @@ Sub Resumen_Click
|
||||
'where pc_fecha = ?", Array As String(fecha)
|
||||
C.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_cuantosn.Text = b.GetString("CUANTOS")
|
||||
efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR")
|
||||
@@ -2548,12 +2512,9 @@ Sub Resumen_Click
|
||||
Else
|
||||
ImageView5.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png")
|
||||
End If
|
||||
|
||||
c.Close
|
||||
b.Close
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub B_PROXIMA_Click
|
||||
@@ -2563,8 +2524,6 @@ Sub B_PROXIMA_Click
|
||||
StartActivity(colonia2)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub Timer_GIF1_Tick
|
||||
Timer_GIF1.Enabled = False
|
||||
Frame1 = Frame1 + 1
|
||||
@@ -2577,36 +2536,24 @@ Sub Timer_GIF1_Tick
|
||||
End Sub
|
||||
|
||||
Sub load_gif
|
||||
|
||||
gif1.DisposeFrames
|
||||
|
||||
|
||||
gif1.Load(ruta, "espera.gif")
|
||||
Frame1 = 0
|
||||
|
||||
|
||||
Timer_GIF1.Interval = gif1.Delay(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
|
||||
|
||||
|
||||
|
||||
gif1.SaveFrame(0, ruta, "frame1.png", "P", 85)
|
||||
gif1.SaveFrame(0, ruta, "frame1.jpg", "J", 85)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub VALIDA_INFO
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_datos_enviados_pe"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.Text)
|
||||
reqManager.ExecuteQuery(cmd , 0, "pedido_env")
|
||||
PASO_info = 0
|
||||
|
||||
For I = 0 To 2
|
||||
T3.Initialize("T3", 8000) ' 1000 = 1 second
|
||||
T3.Enabled = True
|
||||
@@ -2615,28 +2562,24 @@ Sub VALIDA_INFO
|
||||
I = 0
|
||||
End If
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub B_MARCAS_Click
|
||||
Panel5.Visible = True
|
||||
|
||||
pnlTitle.Visible = False
|
||||
pnlTitle.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight + DividerHeight)
|
||||
pnlTitle.LoadLayout("CellTitle")
|
||||
c=skmt.ExecQuery("Select CAT_GP_CLASIF, SUM(TOTAL) AS TOTAL FROM TOTAL_MARCAS GROUP BY CAT_GP_CLASIF")
|
||||
CLV1.Clear
|
||||
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
AddTitle(c.GetString("CAT_GP_CLASIF"))
|
||||
CLV1.AddTextItem("TOTAL VENTA Y PREVENTA = $" & c.GetString("TOTAL"),"1")
|
||||
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub AddTitle (Title As String)
|
||||
Dim p_MARCAS As B4XView = xui.CreatePanel("")
|
||||
p_MARCAS.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight)
|
||||
@@ -2647,10 +2590,8 @@ Sub AddTitle (Title As String)
|
||||
CLV1.Add(p_MARCAS, td)
|
||||
End Sub
|
||||
|
||||
|
||||
Sub B_OK_PANEL5_Click
|
||||
Panel5.Visible = False
|
||||
|
||||
End Sub
|
||||
|
||||
Sub e_ruta_TextChanged (Old As String, New As String)
|
||||
@@ -2682,13 +2623,11 @@ Sub SUBIR_P_Click
|
||||
trabajar.Visible = False
|
||||
B_PROXIMA.Visible =False
|
||||
Btn_UbicarR.Visible=False
|
||||
|
||||
NUEVO.Visible =False
|
||||
BUSCA.Visible=False
|
||||
connecta.Visible=False
|
||||
Subir.Visible=False
|
||||
SUBIR_P.Visible = False
|
||||
|
||||
cargar.Visible=False
|
||||
L_P_1.Visible = False
|
||||
S_CC.Visible = False
|
||||
@@ -2696,7 +2635,6 @@ Sub SUBIR_P_Click
|
||||
S_CH.Visible = False
|
||||
PB1.Visible = False
|
||||
Resumen.Visible= False
|
||||
|
||||
L_P_2.Text = "Envio de Pedidos"
|
||||
L_P_3.Text = "Envio de Pedidos"
|
||||
S_CH.Text = "EN PROCESO"
|
||||
@@ -2707,26 +2645,22 @@ Sub SUBIR_P_Click
|
||||
conteo = 0
|
||||
'i_gif.Visible = True
|
||||
' load_gif
|
||||
|
||||
PASO = 1
|
||||
'End If
|
||||
If PASO =1 Then
|
||||
E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO"))
|
||||
E1.Position = 0
|
||||
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
|
||||
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
|
||||
Else
|
||||
L_ABORDO.Text = 0
|
||||
End If
|
||||
E1.Close
|
||||
|
||||
|
||||
skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)")
|
||||
|
||||
c=skmt.ExecQuery("select usuario from usuarioa")
|
||||
c.Position = 0
|
||||
usuario = c.GetString("USUARIO")
|
||||
@@ -2745,13 +2679,8 @@ Sub SUBIR_P_Click
|
||||
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
|
||||
d3.Close
|
||||
cuantos_pedidosc = 0
|
||||
|
||||
|
||||
' PEDIO
|
||||
|
||||
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.Position =0
|
||||
' armafolio = l_ruta.text * 1000000
|
||||
@@ -2778,9 +2707,6 @@ Sub SUBIR_P_Click
|
||||
' cmd.Name = "update_folio"
|
||||
' cmd.Parameters = Array As Object(armafolio,l_ruta.Text , "1")
|
||||
' 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")
|
||||
d=skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO WHERE PE_CLIENTE = 0")
|
||||
d.Position=0
|
||||
@@ -2789,7 +2715,6 @@ Sub SUBIR_P_Click
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
TIEMPO = TIEMPO + 1
|
||||
|
||||
If TIEMPO > 20 Then
|
||||
If L_P_2.Text = "Envio de Pedidos" Then
|
||||
L_P_2.Text = "Envio de Pedidos --"
|
||||
@@ -2806,7 +2731,6 @@ Sub SUBIR_P_Click
|
||||
T3.Enabled = True
|
||||
Wait For t3_tick
|
||||
TIEMPO = 0
|
||||
|
||||
End If
|
||||
conteo = conteo + 1
|
||||
cuantos_ped = D.GetString("CUANTOS_PEDIDO")
|
||||
@@ -2816,31 +2740,19 @@ Sub SUBIR_P_Click
|
||||
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"))
|
||||
reqManager.ExecuteQuery(cmd , 0, "ins_pedido")
|
||||
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
|
||||
|
||||
|
||||
cuantos_pedido = D.GetString("CUANTOS_PEDIDO")
|
||||
d.Close
|
||||
|
||||
|
||||
t1.Initialize("T1", 20000) ' 1000 = 1 second
|
||||
t1.Enabled = True
|
||||
|
||||
img2.Visible =True
|
||||
|
||||
|
||||
' ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
|
||||
If S_CP.Text = "SUBIENDO" Then
|
||||
S_CP.Text = "VALIDANDO"
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub b_e_resumen_Click
|
||||
@@ -2849,4 +2761,18 @@ Sub b_e_resumen_Click
|
||||
cmd.Name = "UPDATE_DURK_ACTUAL2_GPS"
|
||||
cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,Main.lat_gps,Main.lon_gps,batterystatus(0),0, 0, 0,ALMACEN,l_ruta.Text )
|
||||
reqManager.ExecuteCommand(cmd,"inst_visitas")
|
||||
End Sub
|
||||
|
||||
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
|
||||
Reference in New Issue
Block a user