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

...

Browse Source
This commit is contained in:
cvaldes1201
2024-05-16 10:40:42 -06:00
parent 047d927224
commit a2f036d7f7
7 changed files with 40 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/B4XMainPage.bas
View File

@@ -419,7 +419,7 @@ Sub ImageView4_Click
Label1 = ListView1.SingleLineLayout.Label Label1 = ListView1.SingleLineLayout.Label
Label1.TextSize = 20 Label1.TextSize = 20
Label1.TextColor = Colors.Black 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=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))
c.Position =0 c.Position =0
E_SERVER.text = c.GetString("CAT_VA_VALOR") E_SERVER.text = c.GetString("CAT_VA_VALOR")

16
B4A/C_Cliente.bas
View File

@@ -394,10 +394,10 @@ End Sub
Sub gest_Click Sub gest_Click
' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$) ' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then ' 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")) ' 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 ' Return False
End If ' End If
' If la_cuenta.Text <> "0" Then ' If la_cuenta.Text <> "0" Then
' Dim queenc As String ' Dim queenc As String
' ' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local ' ' 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 Sub B_VENTA_Click
' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$) ' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then ' 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")) ' 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 ' Return False
End If ' End If
' If la_cuenta.Text <> "0" Then ' If la_cuenta.Text <> "0" Then
' Dim queenc As String ' Dim queenc As String
' ' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local ' ' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local

23
B4A/C_Principal.bas
View File

@@ -269,6 +269,7 @@ Sub IsConnectedToInternet As Boolean
End Sub End Sub
Sub B4XPage_Appear Sub B4XPage_Appear
checaPedido
Log(Starter.lat_gps& " "& Starter.lon_gps) Log(Starter.lat_gps& " "& Starter.lon_gps)
SERVER = Starter.DBReqServer SERVER = Starter.DBReqServer
HORAINGRESO ="000000" HORAINGRESO ="000000"
@@ -1926,7 +1927,7 @@ Sub JobDone(Job As HttpJob)
Subs.logJobDoneResultados(RESULT) Subs.logJobDoneResultados(RESULT)
End If End If
If reqManager.reqsList.Size = 0 Then S_CP.Text = "LISTO" ' If reqManager.reqsList.Size = 0 Then S_CP.Text = "LISTO"
Job.Release Job.Release
End If End If
@@ -2163,13 +2164,14 @@ Sub B_OK_PAS_Click
B_PROXIMA.Visible =True B_PROXIMA.Visible =True
Btn_UbicarR.Visible=True Btn_UbicarR.Visible=True
checaPedido
NUEVO.Visible =True NUEVO.Visible =True
BUSCA.Visible=True BUSCA.Visible=True
connecta.Visible=True connecta.Visible=True
Resumen.Visible= True Resumen.Visible= True
img2.Visible=False img2.Visible=False
B4XPage_Appear B4XPage_Appear
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")) RES = Msgbox2("Seguro que desa abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
If RES = DialogResponse.POSITIVE Then If RES = DialogResponse.POSITIVE Then
@@ -2332,7 +2334,7 @@ Sub Resumen_Click
Do While r.NextRow Do While r.NextRow
cRes = cRes + r.GetString("PE_COSTO_TOT") cRes = cRes + r.GetString("PE_COSTO_TOT")
Loop 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=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente where pc_cliente <> 0")
b.Position=0 b.Position=0
@@ -2377,7 +2379,7 @@ Sub Resumen_Click
ImageView12.Bitmap = LoadBitmap(File.DirAssets, "k.png") 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=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 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.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=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 c.Position = 0
@@ -2787,3 +2789,16 @@ Sub b_e_resumen_Click
' 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 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

4
B4A/Durakelo.b4a
View File

@@ -1393,12 +1393,12 @@ Module9=C_NoVenta
NumberOfFiles=667 NumberOfFiles=667
NumberOfLibraries=31 NumberOfLibraries=31
NumberOfModules=24 NumberOfModules=24
Version=12.8 Version=12.5
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Durakelo #ApplicationLabel: Durakelo
#VersionCode: 1 #VersionCode: 1
#VersionName: 4.04.12 ENCU #VersionName: 4.04.20
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

4
B4A/Durakelo.b4a.meta
View File

@@ -73,6 +73,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 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

4
B4A/MAPA_RUTAS.bas
View File

@@ -162,7 +162,7 @@ Sub MapFragment1_Ready
CODIGO=c2.GetString("CAT_CL_CODIGO") CODIGO=c2.GetString("CAT_CL_CODIGO")
Tienda= c2.GetString("CAT_CL_NOMBRE") Tienda= c2.GetString("CAT_CL_NOMBRE")
NumSerie=c2.GetInt("CAT_CL_NUM_SERIEFISICO") 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.Snippet = Tienda
' MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO,gmap.HUE_GREEN) ' MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO,gmap.HUE_GREEN)
' MARK_VERDE.Snippet = Tienda ' MARK_VERDE.Snippet = Tienda
@@ -218,7 +218,7 @@ Sub MapFragment1_Ready
LatitudRu = c3.GetDouble("CAT_CL_LAT") LatitudRu = c3.GetDouble("CAT_CL_LAT")
Tienda= c3.GetString("CAT_CL_NOMBRE") Tienda= c3.GetString("CAT_CL_NOMBRE")
NumSerie=c3.GetInt("CAT_CL_NUM_SERIEFISICO") 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.Snippet = Tienda
' MARK_ROJO = gmap.AddMarker2(LatitudRu,LongitudRU,Tienda, gmap.HUE_RED) ' MARK_ROJO = gmap.AddMarker2(LatitudRu,LongitudRU,Tienda, gmap.HUE_RED)
' MARK_ROJO.Snippet = Tienda ' MARK_ROJO.Snippet = Tienda

15
B4A/Subs.bas
View File

@@ -968,9 +968,8 @@ End Sub
Sub traeMaxPromos(pm As Map) As Int Sub traeMaxPromos(pm As Map) As Int
Private thisLog As Boolean = False 'Si es verdadero, muestra los logs de este sub. Private thisLog As Boolean = False 'Si es verdadero, muestra los logs de este sub.
Private maxPromos As List Private maxPromos As List
Private mp0 As String = "0", mp As String = "0" Private mp0, mp As String = "0"
maxPromos.Initialize 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")}'"$) 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")}'"$) ' Log($"select HCCP_CANT from HIST_CLIENTE_CANT_PROMOS where HCCP_CLIENTE = '${traeCliente}' and HCCP_PROMO = '${pm.Get("id")}'"$)
' If hccp.RowCount > 0 Then ' 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 LogColor("==== HISTORICO:"&pm.Get("historico"), Colors.Red)
If thisLog Then Log(pm) If thisLog Then Log(pm)
If pm.Get("historico") = "1" Then maxPromos.Add(pm.Get("maxRecurrente")) 'Si hay historico, agregamos maxRecurrente 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 maxPromos.Add(pm.Get("maxPromos")) 'Agregamos maxPromos
If pm.Get("maxXcliente") <> Null Then maxPromos.Add(pm.Get("maxXcliente")) 'Agregamos maxXcliente maxPromos.Add(pm.Get("maxXcliente")) 'Agregamos maxXcliente
Log(hccp.RowCount)
If hccp.RowCount > 0 Then 'Agregamos promos HCCP If hccp.RowCount > 0 Then 'Agregamos promos HCCP
hccp.Position = 0 hccp.Position = 0
maxPromos.Add(hccp.GetString("HCCP_CANT")) maxPromos.Add(hccp.GetString("HCCP_CANT"))
End If End If
Log(maxPromos) maxPromos.Sort(True)
If maxPromos.Size > 0 Then
maxPromos.Sort(True)
mp0 = maxPromos.Get(0)
End If
If thisLog Then Log(maxPromos) If thisLog Then Log(maxPromos)
mp0 = maxPromos.Get(0)
mp = mp0 - traePromosVendidas(pm.Get("id"), traeCliente) mp = mp0 - traePromosVendidas(pm.Get("id"), traeCliente)
If thisLog Then Log($"Max Promos (${mp0}) - promos vendidas (${(traePromosVendidas(pm.Get("id"), traeCliente)).As(Int)}) = ${mp}"$) 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. Return mp 'Regresamos el numero mas pequeño de las opciones.