diff --git a/Files/seleccion.bal b/Files/seleccion.bal index cb69fee..a336d12 100644 Binary files a/Files/seleccion.bal and b/Files/seleccion.bal differ diff --git a/durakelo.b4a b/durakelo.b4a index cbd862a..8a31973 100644 --- a/durakelo.b4a +++ b/durakelo.b4a @@ -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) diff --git a/durakelo.b4a.meta b/durakelo.b4a.meta index 88172eb..daaa4ac 100644 --- a/durakelo.b4a.meta +++ b/durakelo.b4a.meta @@ -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 diff --git a/seleccion.bas b/seleccion.bas index 20a4b79..c51d4db 100644 --- a/seleccion.bas +++ b/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 \ No newline at end of file