diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 7ceb7fe..52f9a19 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -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))) diff --git a/B4A/C_NuevoCliente.bas b/B4A/C_NuevoCliente.bas index e3c5df2..ce72c42 100644 --- a/B4A/C_NuevoCliente.bas +++ b/B4A/C_NuevoCliente.bas @@ -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 diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index b3eea88..eca2c7b 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -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