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

- Se activó el código para enviar las encuestas al final del día.

Browse Source 
- Se corrigio la declaracion del tipo de venta (Starter.tipov) porque no se veian los productos.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-25 01:26:15 -06:00
parent f42c1aa809
commit f3a9cac35a
7 changed files with 32 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
B4A/B4XMainPage.bas
View File

@@ -289,19 +289,17 @@ End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Sub Entrar_Click
user.Text = user.Text.Trim
If user.Text = "ROOT" Then
Starter.skmt.ExecNonQuery("delete from usuarioa")
Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
Starter.skmt.ExecNonQuery("delete from cat_almacen")
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (pass.Text))
B4XPages.ShowPage("Principal")
End If
c=Starter.skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
c.Position=0
existe = c.GetString("EXISTE1")
'existe = 1
If existe = 0 Then
'skmt.ExecNonQuery("delete from usuarioa")
@@ -310,7 +308,6 @@ Sub Entrar_Click
cmd.Name = "select_usuario_guna_DUR"
cmd.Parameters = Array As Object(user.Text, pass.Text)
reqManager.ExecuteQuery(cmd , 0, "usuario")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_version_DUR"
@@ -318,7 +315,6 @@ Sub Entrar_Click
Else
B4XPages.ShowPage("Principal")
End If
End Sub
Sub JobDone(Job As HttpJob)
@@ -339,7 +335,7 @@ Sub JobDone(Job As HttpJob)
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "agencia" Then 'query tag
@@ -349,7 +345,7 @@ Sub JobDone(Job As HttpJob)
End If
End If
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "fecha" Then 'query tag
@@ -360,7 +356,7 @@ Sub JobDone(Job As HttpJob)
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "usuario" Then 'query tag
@@ -374,7 +370,7 @@ Sub JobDone(Job As HttpJob)
End If
Job.Release
End If
If paso1 =1 Then
If name = "OKActivo" & IMEI Then
Starter.skmt.ExecNonQuery("delete from usuarioa")

7
B4A/C_Cliente.bas
View File

@@ -482,11 +482,11 @@ Sub gest_Click
' If Subs.traeCliente = 0 Then Starter.tipov = "ABORDO"
' B4XPages.ShowPage("Productos")
' End If
Starter.tipov = "PREVENTA"
Log($"TOMAR_FOTO = ${TOMAR_FOTO}"$)
If TOMAR_FOTO = 0 Then
Cuestionario
Else
Starter.tipov = "PREVENTA"
B4XPages.ShowPage("Productos")
' StartActivity(colonia2)
' Cuestionario
@@ -1315,11 +1315,11 @@ Sub B_VENTA_Click
' Starter.tipov = "VENTA"
' B4XPages.ShowPage("Productos")
' End If
Starter.tipov = "VENTA"
Log($"TOMAR_FOTO = ${TOMAR_FOTO}"$)
If TOMAR_FOTO = 0 Then
Cuestionario
Else
Starter.tipov = "VENTA"
' StartActivity(colonia2)
B4XPages.ShowPage("Productos")
' Cuestionario
@@ -1610,12 +1610,10 @@ Sub B_E_NEXT_Click
'TOMAR_FOTO = 1
Cuestionario
'StartActivity(colonia2)
End Sub
Sub b_chk_e_Click
Panel10.Visible = False
If Chk_1.Checked = True Then
Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, chk_1_valor,sDate & sTime,c.GetString("CAT_EP_ID")))
else if chk_2.Checked = True Then
@@ -1710,7 +1708,6 @@ Private Sub b_guadaenc_Click
c.Position = 0
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),itemselect2,sDate&" "&sTime,2,8 ))
c.Close
If bandera = 1 Then
rb_p7si.Checked = False
rb_p7no.Checked = False

105
B4A/C_Principal.bas
View File

@@ -481,18 +481,12 @@ Sub trabajar_Click
c.Close
skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" )
' skmt.ExecNonQuery("delete from CAT_GUNAPROD2 WHERE CAT_GP_ID IN (SELECT CAT_DP_ID FROM CAT_DETALLES_PAQ WHERE CAT_DP_IDPROD NOT IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD2) and CAT_DP_TIPO = 0)")
' StartActivity(colonia)
B4XPages.ShowPage("Clientes")
End If
End If
End Sub
Sub Subir_Click
Awake.KeepAlive(True)
CARGA = "SUBIR"
@@ -534,7 +528,6 @@ Sub Subir_Click
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.Position = 0
L_ABORDO.Text = c.GetString("MONTO_DIA")
@@ -543,19 +536,16 @@ Sub Subir_Click
L_ABORDO.Text = 0
End If
E1.Close
c=skmt.ExecQuery2("select count(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
c.Position =0
PERFIL = c.GetString("CUANTOS")
c.Close
If PERFIL > 0 Then
c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
c.Position =0
PERFIL = c.GetString("CAT_VA_VALOR")
c.Close
End If
c=skmt.ExecQuery2("select count(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("NUMERO_PEDIDO"))
c.Position =0
Cuantos = c.GetString("CUANTOS")
@@ -569,7 +559,6 @@ Sub Subir_Click
NUMERO_PEDIDO = 0
End If
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")
@@ -635,23 +624,24 @@ Sub Subir_Click
Next
c.Close
End If
' c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
' ' S_CP.Text = "Envio Encuesta"
' ' PB2.Progress = 1
' If c.RowCount>0 Then
' For i=0 To c.RowCount -1
' c.Position=i
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "insert_encuesta_DUR"
' cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"),l_ruta.Text )
' reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
' Next
' End If
' c.Close
' ' PEDIO
'ENCUESTAS
c=skmt.ExecQuery("SELECT * FROM HIST_ENCUESTA")
' S_CP.Text = "Envio Encuesta"
' PB2.Progress = 1
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_encuesta_DUR"
cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"),l_ruta.Text )
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
Next
End If
c.Close
' ' PEDIDO
skmt.ExecNonQuery("update PEDIDO set PE_FOLIO = rowid ")
If PERFIL = "V-ESPECIAL" Then
@@ -916,6 +906,7 @@ Sub cargar_Click
cmd.Initialize
cmd.Name = "select_cat_gunaprod2_DUR"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.Text)
log(ALMACEN & "|" & e_ruta.Text)
reqManager.ExecuteQuery(cmd , 0, "gunaprod2")
cmd.Initialize
@@ -2321,7 +2312,6 @@ Sub Resumen_Click
trabajar.Visible = False
B_PROXIMA.Visible =False
Btn_UbicarR.Visible=False
NUEVO.Visible =False
BUSCA.Visible=False
connecta.Visible=False
@@ -2329,19 +2319,16 @@ Sub Resumen_Click
SUBIR_P.Visible = False
cargar.Visible=False
Resumen.Visible= False
Private r As ResultSet = Starter.skmt.ExecQuery($"Select CAT_GP_CLASIF, PEDIDO.* from pedido join cat_gunaprod on PE_PROID = CAT_GP_ID where CAT_GP_CLASIF = 'COLGATE'"$)
Private cRes As String = 0
Do While r.NextRow
cRes = cRes + r.GetString("PE_COSTO_TOT")
Loop
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
Cuantos = b.GetString("CUANTOS")
ToastMessageShow(Cuantos , True)
d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0 and cat_cl_codigo <> 0")
D.Position=0
b.Close
@@ -2404,29 +2391,23 @@ 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"))
c.Position = 0
l_cambios.Text = c.GetString("CAMBIOS")
c.Close
c=skmt.ExecQuery("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_CLASIF = 'UNILEVER' union Select CAT_GP_ID from cat_gunaprod2 where CAT_GP_CLASIF = 'UNILEVER')")
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
Log($"${l_monto_k.text}, ${l_monto_kp.text}, ${l_monto_ks.text}"$)
E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("VENTA"))
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("VENTA"))
c.Position = 0
L_VENTA.Text = c.GetString("MONTO_DIA")
@@ -2435,11 +2416,9 @@ 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
c=skmt.ExecQuery2("Select ifnull(sum(PE_COSTO_TOT), 0) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("PREVENTA"))
c.Position = 0
L_PREVENTA.Text = NumberFormat2(c.GetString("MONTO_DIA"), 1, 2, 2, True)
@@ -2448,8 +2427,6 @@ 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
@@ -2462,12 +2439,10 @@ Sub Resumen_Click
L_ABORDO.Text = 0
End If
E1.Close
' c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where (CAT_GP_CLASIF = ? Or CAT_GP_CLASIF = ?) And CAT_GP_TIPO = ?)", Array As String("KELLOGGS", "KELLOGGS 2","SNACK"))
' c.Position = 0
' l_monto_ks.Text = c.GetString("MONTO_DIA")
' c.Close
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)
@@ -2498,12 +2473,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
@@ -2514,8 +2486,6 @@ Sub B_PROXIMA_Click
' StartActivity(colonia2)
End Sub
Sub Timer_GIF1_Tick
Timer_GIF1.Enabled = False
Frame1 = Frame1 + 1
@@ -2528,36 +2498,23 @@ 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.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
@@ -2566,7 +2523,6 @@ Sub VALIDA_INFO
I = 0
End If
Next
End Sub
@@ -2578,16 +2534,15 @@ Sub B_MARCAS_Click
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)
@@ -2598,10 +2553,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)
@@ -2633,13 +2586,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
@@ -2647,7 +2598,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"
@@ -2658,14 +2608,12 @@ 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.Position = 0
L_ABORDO.Text = c.GetString("MONTO_DIA")
@@ -2674,10 +2622,7 @@ Sub SUBIR_P_Click
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")
@@ -2696,12 +2641,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
@@ -2730,8 +2671,6 @@ Sub SUBIR_P_Click
' 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
@@ -2740,7 +2679,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 --"
@@ -2757,7 +2695,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")
@@ -2767,7 +2704,6 @@ 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
@@ -2791,7 +2727,6 @@ Sub b_e_resumen_Click
' 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")

4
B4A/C_Productos.bas
View File

@@ -1330,9 +1330,11 @@ Sub LlenaProdsLL(p As ResultSet, extra As String)
If p.IsInitialized Then
' Log($"YA HAY RESULTSET ${p.RowCount}"$)
Else
' Log("NO HAY RESULTSET")
Log("NO HAY RESULTSET")
' Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$)
Dim p As ResultSet = Starter.skmt.ExecQuery($"Select distinct ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, LISTA_PRECIOS.CAT_GP_ID as precioAlt from ${Subs.traeTablaProds(Starter.tipov)} left join LISTA_PRECIOS on LISTA_PRECIOS.CAT_GP_ID = ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$)
Log("|" & Starter.tipov & "|")
Log($"Select distinct ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, LISTA_PRECIOS.CAT_GP_ID as precioAlt from ${Subs.traeTablaProds(Starter.tipov)} left join LISTA_PRECIOS on LISTA_PRECIOS.CAT_GP_ID = ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$)
End If
Do While p.NextRow

2
B4A/Durakelo.b4a
View File

@@ -1398,7 +1398,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: Durakelo
#VersionCode: 1
#VersionName: 4.05.22
#VersionName: 4.05.24
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

2
B4A/Durakelo.b4a.meta
View File

@@ -73,6 +73,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_Cliente,b_encuesta_1_Click,2074,0,C_Cliente,GPS_LocationChanged,397,0,B4XMainPage,B4XPage_Created,148,0,C_Cliente,B_E_NEXT_Click,1607,0,C_Cliente,B_VENTA_Click,1314,1,C_Cliente,gest_Click,482,1,C_Cliente,Class_Globals,161,4,C_Cliente,B4XPage_Appear,219,6,C_Cliente,Cuestionario,2031,6,C_Cliente,B4XPage_CloseRequest,495,6
NavigationStack=C_Principal,B_OK_PANEL5_Click,2560,0,C_Principal,b_e_resumen_Click,2732,0,C_Cliente,B4XPage_Appear,254,0,C_Principal,SUBIR_P_Click,2717,0,C_Principal,trabajar_Click,476,0,C_Principal,Subir_Click,636,1,B4XMainPage,Entrar_Click,305,5,Main,Process_Globals,20,0,Visual Designer,Cliente.bal,-100,1,B4XMainPage,JobDone,366,0
SelectedBuild=0
VisibleModules=2,10,4,19,5,6,8,9,11,24

BIN
B4A/Files/cliente.bal
View File

Binary file not shown.