cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-20 11:39:13 +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 Sub Entrar_Click
DateTime.DateFormat = "yyyyMMdd" DateTime.DateFormat = "yyyyMMdd"
user.Text = user.Text.Trim
If user.Text = "KMTSKLL1" Then If user.Text = "KMTSKLL1" Then
Starter.skmt.ExecNonQuery("delete from usuarioa") Starter.skmt.ExecNonQuery("delete from usuarioa")
Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?,?)", Array As Object(user.Text, pass.Text, DateTime.Date(DateTime.Now))) 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) sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(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')") 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 If c.RowCount > 0 Then
c.Position=0 c.Position=0
no_ruta= c.GetString("CAT_CL_RUTA") no_ruta= c.GetString("CAT_CL_RUTA")
@@ -125,6 +127,8 @@ Sub b_guardar_Click
Starter.skmt.ExecNonQuery("delete from CUENTAA") Starter.skmt.ExecNonQuery("delete from CUENTAA")
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(no_cliente)) Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(no_cliente))
Subs.iniciaActividad("cliente") Subs.iniciaActividad("cliente")
Else
ToastMessageShow("No hay clientes para visitar el día de hoy.", true)
End If End If
End If End If
End Sub End Sub

4
B4A/KelloggsV4.b4a.meta
View File

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