cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-17 18:26:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-25 01:37:20 -06:00
parent 4c32c16129
commit 067fbf63c4
3 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
B4A/B4XMainPage.bas
View File

@@ -449,6 +449,7 @@ End Sub
Sub Entrar_Click
DateTime.DateFormat = "yyyyMMdd"
user.Text = user.Text.Trim
If user.Text = "KMTSKLL1" Then
Starter.skmt.ExecNonQuery("delete from usuarioa")
Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?,?)", Array As Object(user.Text, pass.Text, DateTime.Date(DateTime.Now)))

4
B4A/C_NuevoCliente.bas
View File

@@ -105,6 +105,8 @@ Sub b_guardar_Click
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
c=Starter.skmt.ExecQuery("select CAT_CL_RUTA, CAT_CL_DIAS_VISITA FROM kmt_info WHERE CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'DIA_VISITA')")
Log(c.RowCount)
If c.RowCount > 0 Then
c.Position=0
no_ruta= c.GetString("CAT_CL_RUTA")
@@ -125,6 +127,8 @@ Sub b_guardar_Click
Starter.skmt.ExecNonQuery("delete from CUENTAA")
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(no_cliente))
Subs.iniciaActividad("cliente")
Else
ToastMessageShow("No hay clientes para visitar el día de hoy.", true)
End If
End If
End Sub

4
B4A/KelloggsV4.b4a.meta
View File

@@ -91,6 +91,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=kms_helperSubs,clienteConDOE,919,0,kms_helperSubs,traeMaxClientesNuevos,910,0,Visual Designer,login.bal,-100,3,Visual Designer,principal.bal,-100,4,C_Principal,b_cuotas_Click,2739,6,C_Principal,connecta_Click,2058,0,C_Cliente,Class_Globals,0,0,C_Principal,SUBIR_INFO_PEDIDO,2877,6,Subs,bitacora,1699,0,C_Cliente,Cuestionario,2165,0,C_Cliente,muestraBoton,2146,0
NavigationStack=Subs,bitacora,1699,0,C_Cliente,Cuestionario,2165,0,C_Cliente,muestraBoton,2146,0,C_Principal,connecta_Click,2060,0,C_NoVenta,Class_Globals,0,0,C_NoVenta,GUARDA_Click,81,0,C_NuevoCliente,Class_Globals,0,0,C_NuevoCliente,b_cancelar_Click,91,0,C_NuevoCliente,b_guardar_Click,124,6,C_Cliente,B4XPage_Appear,454,0,B4XMainPage,Entrar_Click,444,6
SelectedBuild=0
VisibleModules=1,28,11,3,26,23,29,12,4,13
VisibleModules=1,28,11,3,26,23,29,12,4,13,9