From a2f036d7f70c71dbfb0405ad8734390f0e9da251 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Thu, 16 May 2024 10:40:42 -0600 Subject: [PATCH] ... --- B4A/B4XMainPage.bas | 2 +- B4A/C_Cliente.bas | 16 ++++++++-------- B4A/C_Principal.bas | 23 +++++++++++++++++++---- B4A/Durakelo.b4a | 4 ++-- B4A/Durakelo.b4a.meta | 4 ++-- B4A/MAPA_RUTAS.bas | 6 +++--- B4A/Subs.bas | 15 +++++---------- 7 files changed, 40 insertions(+), 30 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index d23aaca..03aa225 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -419,7 +419,7 @@ Sub ImageView4_Click Label1 = ListView1.SingleLineLayout.Label Label1.TextSize = 20 Label1.TextColor = Colors.Black - ListView1.AddSingleLine("http://keymon.lat:1781") + ListView1.AddSingleLine(Starter.DBReqServer) c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER")) c.Position =0 E_SERVER.text = c.GetString("CAT_VA_VALOR") diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index dc3501d..fb9ea0f 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -394,10 +394,10 @@ End Sub Sub gest_Click ' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$) - If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then - cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder")) - Return False - End If +' If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then +' cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder")) +' Return False +' End If ' If la_cuenta.Text <> "0" Then ' Dim queenc As String ' ' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local @@ -1218,10 +1218,10 @@ End Sub Sub B_VENTA_Click ' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$) - If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then - cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder")) - Return False - End If +' If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then +' cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder")) +' Return False +' End If ' If la_cuenta.Text <> "0" Then ' Dim queenc As String ' ' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index bdc6c59..405e8f7 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -269,6 +269,7 @@ Sub IsConnectedToInternet As Boolean End Sub Sub B4XPage_Appear + checaPedido Log(Starter.lat_gps& " "& Starter.lon_gps) SERVER = Starter.DBReqServer HORAINGRESO ="000000" @@ -1926,7 +1927,7 @@ Sub JobDone(Job As HttpJob) Subs.logJobDoneResultados(RESULT) End If - If reqManager.reqsList.Size = 0 Then S_CP.Text = "LISTO" +' If reqManager.reqsList.Size = 0 Then S_CP.Text = "LISTO" Job.Release End If @@ -2163,13 +2164,14 @@ Sub B_OK_PAS_Click B_PROXIMA.Visible =True Btn_UbicarR.Visible=True - + checaPedido NUEVO.Visible =True BUSCA.Visible=True connecta.Visible=True Resumen.Visible= True img2.Visible=False B4XPage_Appear + 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 @@ -2332,7 +2334,7 @@ Sub Resumen_Click Do While r.NextRow cRes = cRes + r.GetString("PE_COSTO_TOT") Loop - l_montoColgateResumen.Text = numberformat2(cRes, 1, 2, 2, True) + l_montoColgateResumen.Text = NumberFormat2(cRes, 1, 2, 2, True) b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente where pc_cliente <> 0") b.Position=0 @@ -2377,7 +2379,7 @@ Sub Resumen_Click ImageView12.Bitmap = LoadBitmap(File.DirAssets, "k.png") c=skmt.ExecQuery2("select ifnull(sum(pe_cant), 0) as CAMBIOS from pedido where substr(pe_pronombre,1,6) = ?", Array As String("CAMBIO")) c.Position = 0 - l_cambios.Text = numberformat2(c.GetString("CAMBIOS"), 1, 2, 2, True) + l_cambios.Text = NumberFormat2(c.GetString("CAMBIOS"), 1, 2, 2, True) c.Close c=skmt.ExecQuery("Select ifnull(sum(PE_COSTO_TOT), 0) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_CLASIF = 'KELLOGGS' Or CAT_GP_CLASIF = 'KELLOGGS 2' union Select CAT_GP_ID from cat_gunaprod2 where CAT_GP_CLASIF = 'KELLOGGS' Or CAT_GP_CLASIF = 'KELLOGGS 2')") c.Position = 0 @@ -2786,4 +2788,17 @@ 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 + + +'Revisa si el cliente tiene venta o No venta y si es así modifica gestion en kmt_info +Sub checaPedido + Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE") + If c.RowCount > 0 Then + Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 2 WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)") + End If + Private c As Cursor = Starter.skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA") + If c.RowCount > 0 Then + Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 3 WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)") + End If End Sub \ No newline at end of file diff --git a/B4A/Durakelo.b4a b/B4A/Durakelo.b4a index 3d3f146..5e432c0 100644 --- a/B4A/Durakelo.b4a +++ b/B4A/Durakelo.b4a @@ -1393,12 +1393,12 @@ Module9=C_NoVenta NumberOfFiles=667 NumberOfLibraries=31 NumberOfModules=24 -Version=12.8 +Version=12.5 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Durakelo #VersionCode: 1 - #VersionName: 4.04.12 ENCU + #VersionName: 4.04.20 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta index d37de37..856c845 100644 --- a/B4A/Durakelo.b4a.meta +++ b/B4A/Durakelo.b4a.meta @@ -73,6 +73,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Visual Designer,login.bal,-100,2,C_Cliente,cuestionario,1460,0,C_Cliente,B4XPage_CloseRequest,472,0,C_Cliente,B_VENTA_Click,1215,0,C_Cuestionario,agregaPregunta,65,0,C_Cuestionario,Class_Globals,11,0,MAPA_RUTAS,MapFragment1_Ready,120,0,Subs,procesaPromocion,1017,0,Subs,traeMaxPromos,979,6,Subs,traePromo,807,0,Main,Globals,25,0 +NavigationStack=C_Principal,IsConnectedToInternet,263,0,MAPA_RUTAS,MapFragment1_Ready,158,0,C_Principal,B4XPage_Appear,265,0,C_Principal,checaPedido,2794,0,C_Principal,B_OK_PAS_Click,2160,0,C_Cliente,B_VENTA_Click,1214,0,C_Cliente,gest_Click,390,0,C_Principal,Class_Globals,27,0,Subs,traeMaxPromos,983,0,C_Nota,Class_Globals,0,0,C_Nota,ListView1_ItemLongClick,200,0 SelectedBuild=0 -VisibleModules=1,2,10,4,5,6,8,9,11,24,21,23 +VisibleModules=1,2,10,4,5,6,8,9,11,24,23 diff --git a/B4A/MAPA_RUTAS.bas b/B4A/MAPA_RUTAS.bas index 7fe3862..cafcff5 100644 --- a/B4A/MAPA_RUTAS.bas +++ b/B4A/MAPA_RUTAS.bas @@ -124,7 +124,7 @@ Sub MapFragment1_Ready Dim JavaMapsObject As JavaObject JavaMapsObject = gmap.GetUiSettings JavaMapsObject.RunMethod("setMapToolbarEnabled", Array As Object(True)) - + '''''''----------------------------MARKER AZUL - POR VISITAR If azul = 1 Or todos = 1 Then @@ -162,7 +162,7 @@ Sub MapFragment1_Ready CODIGO=c2.GetString("CAT_CL_CODIGO") Tienda= c2.GetString("CAT_CL_NOMBRE") NumSerie=c2.GetInt("CAT_CL_NUM_SERIEFISICO") - MARK_VERDE = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, i&"marker-verde-"&".png")) + MARK_VERDE = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, i&"marker-verde"&".png")) MARK_VERDE.Snippet = Tienda ' MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO,gmap.HUE_GREEN) ' MARK_VERDE.Snippet = Tienda @@ -218,7 +218,7 @@ Sub MapFragment1_Ready LatitudRu = c3.GetDouble("CAT_CL_LAT") Tienda= c3.GetString("CAT_CL_NOMBRE") NumSerie=c3.GetInt("CAT_CL_NUM_SERIEFISICO") - MARK_ROJO = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, "marker-rojo-" & i &".png")) + MARK_ROJO = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, "marker-rojo" & i &".png")) MARK_ROJO.Snippet = Tienda ' MARK_ROJO = gmap.AddMarker2(LatitudRu,LongitudRU,Tienda, gmap.HUE_RED) ' MARK_ROJO.Snippet = Tienda diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 5441e7a..b9be7c7 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -968,9 +968,8 @@ End Sub Sub traeMaxPromos(pm As Map) As Int Private thisLog As Boolean = False 'Si es verdadero, muestra los logs de este sub. Private maxPromos As List - Private mp0 As String = "0", mp As String = "0" + Private mp0, mp As String = "0" maxPromos.Initialize - Log("mp:" & maxPromos) Private hccp As Cursor = Starter.skmt.ExecQuery($"select HCCP_CANT from HIST_CLIENTE_CANT_PROMOS where HCCP_CLIENTE = '${traeCliente}' and HCCP_PROMO = '${pm.Get("id")}'"$) ' Log($"select HCCP_CANT from HIST_CLIENTE_CANT_PROMOS where HCCP_CLIENTE = '${traeCliente}' and HCCP_PROMO = '${pm.Get("id")}'"$) ' If hccp.RowCount > 0 Then @@ -982,19 +981,15 @@ Sub traeMaxPromos(pm As Map) As Int If thisLog Then LogColor("==== HISTORICO:"&pm.Get("historico"), Colors.Red) If thisLog Then Log(pm) If pm.Get("historico") = "1" Then maxPromos.Add(pm.Get("maxRecurrente")) 'Si hay historico, agregamos maxRecurrente - If pm.Get("maxPromos") <> Null Then maxPromos.Add(pm.Get("maxPromos")) 'Agregamos maxPromos - If pm.Get("maxXcliente") <> Null Then maxPromos.Add(pm.Get("maxXcliente")) 'Agregamos maxXcliente - Log(hccp.RowCount) + maxPromos.Add(pm.Get("maxPromos")) 'Agregamos maxPromos + maxPromos.Add(pm.Get("maxXcliente")) 'Agregamos maxXcliente If hccp.RowCount > 0 Then 'Agregamos promos HCCP hccp.Position = 0 maxPromos.Add(hccp.GetString("HCCP_CANT")) End If - Log(maxPromos) - If maxPromos.Size > 0 Then - maxPromos.Sort(True) - mp0 = maxPromos.Get(0) - End If + maxPromos.Sort(True) If thisLog Then Log(maxPromos) + mp0 = maxPromos.Get(0) mp = mp0 - traePromosVendidas(pm.Get("id"), traeCliente) If thisLog Then Log($"Max Promos (${mp0}) - promos vendidas (${(traePromosVendidas(pm.Get("id"), traeCliente)).As(Int)}) = ${mp}"$) Return mp 'Regresamos el numero mas pequeño de las opciones.