diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 34184bf..acaa625 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -156,8 +156,10 @@ Private Sub B4XPage_Created (Root1 As B4XView) ' Log(ruta) skmt.Initialize(ruta,"kmt.db", True) Subs.guardaAppInfo(skmt) + skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CLIENTES_NUEVOS(CN_ID TEXT, CN_FECHA TEXT, CN_USER TEXT, CN_LAT TEXT, CN_LON TEXT, CN_NOMBRE TEXT, CN_DIRECCION TEXT, CN_FOTO TEXT, CN_ALMACEN TEXT, CN_RUTA TEXT,CN_GIRO TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CUOTAS (HC_META6 TEXT, HC_META5 TEXT, HC_META4 TEXT, HC_META3 TEXT, HC_META2 TEXT, HC_META1 TEXT, HC_RUTA TEXT, HC_CUOTA1 TEXT, HC_CUOTA2 TEXT, HC_CUOTA3 TEXT, HC_CUOTA4 TEXT, HC_CUOTA5 TEXT, HC_CUOTA6 TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_GPS (HGDATE TEXT, HGLAT TEXT, HGLON TEXT)") + skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_GIRO(GIRO TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_GUNAPROD2 (CAT_GP_INICIATIVA TEXT, CAT_GP_TIPOPROD TEXT, CAT_GP_DEV TEXT, CAT_GP_ALMACEN NUMERIC, CAT_GP_ID TEXT, CAT_GP_NOMBRE TEXT, CAT_GP_IMP1 TEXT, CAT_GP_IMP2 TEXT, CAT_GP_PRECIO TEXT, CAT_GP_CLASIF TEXT, CAT_GP_STS TEXT, CAT_GP_TIPO TEXT, CAT_GP_SUBTIPO TEXT, CAT_GP_IMG BLOB)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_STAY_STORE (HSS_CODIGO TEXT, HSS_IN TEXT, HSS_OUT TEXT, HSS_TOT TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_STAY_OUT (HSO_INI TEXT, HSO_FIN TEXT)") diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 97caef8..e75503d 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -561,6 +561,8 @@ Sub Guardar_Click et_montoacredito.Text = Subs.traeTotalClientepreventaparacredito End If limitcred.Close + Else + GuardaVenta End If Else If pre_act = Starter.pre_viejo Then @@ -592,6 +594,8 @@ Sub Guardar_Click et_montoacredito.Text = Subs.traeTotalClientepreventaparacredito End If limitcred.Close + Else + GuardaVenta End If Else If pre_act = Starter.pre_viejo Then @@ -630,12 +634,12 @@ Private Sub b_acred_Click c = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) As REGISTRADO FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)") c.Position = 0 If c.GetString("REGISTRADO") = 0 Then - MsgboxAsync("SI ENTRAMOS 3","Atención") +' MsgboxAsync("SI ENTRAMOS 3","Atención") B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PAGARES (PA_ALMACEN, PA_RUTA, PA_FECHA, PA_CAPTURA, PA_MONTO, PA_USUARIO, PA_CLIENTE) VALUES(?,?,?,?,?,?,?) ", Array As Object (ALMACEN, LA_RUTA, (sDate &" "& sTime),(sDate &" "& sTime), et_montoacredito.Text, usuario, la_cuenta.Text)) GuardaVenta p_credito.Visible = False Else - MsgboxAsync("SI ENTRAMOS4","Atención") +' MsgboxAsync("SI ENTRAMOS4","Atención") B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PAGARES set PA_FECHA = ?, PA_CAPTURA = ?, PA_MONTO = ? where PA_CLIENTE In (select cuenta from cuentaa)", Array As Object ((sDate &" "& sTime),(sDate &" "& sTime), et_montoacredito.Text)) GuardaVenta p_credito.Visible = False @@ -649,12 +653,12 @@ Private Sub b_acred_Click c = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) As REGISTRADO FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)") c.Position = 0 If c.GetString("REGISTRADO") = 0 Then - MsgboxAsync("SI ENTRAMOS","Atención") +' MsgboxAsync("SI ENTRAMOS","Atención") B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PAGARES (PA_ALMACEN, PA_RUTA, PA_FECHA, PA_CAPTURA, PA_MONTO, PA_USUARIO, PA_CLIENTE) VALUES(?,?,?,?,?,?,?) ", Array As Object (ALMACEN, LA_RUTA, (sDate &" "& sTime),(sDate &" "& sTime), et_montoacredito.Text, usuario, la_cuenta.Text)) GuardaVenta p_credito.Visible = False Else - MsgboxAsync("SI ENTRAMOS 2","Atención") +' MsgboxAsync("SI ENTRAMOS 2","Atención") B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PAGARES set PA_FECHA = ?, PA_CAPTURA = ?, PA_MONTO = ? where PA_CLIENTE In (select cuenta from cuentaa)", Array As Object ((sDate &" "& sTime),(sDate &" "& sTime), et_montoacredito.Text)) GuardaVenta p_credito.Visible = False diff --git a/B4A/C_NuevoCliente.bas b/B4A/C_NuevoCliente.bas index b4d1a5a..1439e2d 100644 --- a/B4A/C_NuevoCliente.bas +++ b/B4A/C_NuevoCliente.bas @@ -17,6 +17,7 @@ Sub Class_Globals Dim cuenta As String Dim usuario As String Dim sDate,sTime As String + Dim sDate2,sTime2 As String Dim no_cliente As String Dim no_ruta As String @@ -27,6 +28,21 @@ Sub Class_Globals Private p_nuevoCliente As Panel Private Label1 As Label Private p_botones As Panel + Private p_cam As Panel + Private p_camara As Panel + Private b_foto_inci As Button +' Private camEx2 As CameraExClass2 + Dim frontCamera As Boolean = False + Dim fototomada As String = "0" + Dim ALMACEN As String + Private et_direccion As EditText + Private Label2 As Label + Dim lat As Double = 0 + Dim lon As Double = 0 + Private b_ubicacion As Label + Private Label3 As Label + Private cb_giro As B4XComboBox + Dim giros As String End Sub 'You can add more parameters here. @@ -36,6 +52,7 @@ End Sub 'This event will be called once, before the page becomes visible. Private Sub B4XPage_Created (Root1 As B4XView) +' B4XPages.SetTitle(Me, $"${Subs.capitalizar(B4XPages.GetPageId(Me))} - ${Application.VersionName}"$) Root = Root1 'load the layout to Root Root.LoadLayout("nuevocliente") @@ -44,11 +61,38 @@ Private Sub B4XPage_Created (Root1 As B4XView) File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db") End If ' skmt.Initialize(ruta,"kmt.db", True) +' p_camara.Height = Root.Height +' p_camara.Width = Root.Width +' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA) +' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) +' If Result Then + '' camEx2.Initialize(p_cam, frontCamera, Me, "Camera1") + '' frontCamera = camEx2.Front +' Log("inicializamos Camara") +' Else +' ToastMessageShow("Sin permisos de camara!!!", True) +' End If + Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE) + Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) + If Result Then + Log("Con permisos para escritura") + Else + ToastMessageShow("Sin permisos de escritura!!!", True) + End If + + Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE) + Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) + If Result Then + Log("Con permisos para escritura") + Else + ToastMessageShow("Sin permisos de lectura!!!", True) + End If End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. Sub B4XPage_Appear + E_NOMBRE.Text = "" If Not(Starter.gps.GPSEnabled) Then ToastMessageShow("Es necesario tener el GPS encendido", True) @@ -59,57 +103,234 @@ Sub B4XPage_Appear p_nuevoCliente.Height = Root.Height p_nuevoCliente.Width = Root.Width Subs.centraEtiqueta(Label1, Root.Width) + Subs.centraEtiqueta(Label2, Root.Width) + Subs.centraEtiqueta(Label3, Root.Width) Subs.centraEtiqueta(l_sinUbicacion, Root.Width) + Subs.centraEtiqueta(b_ubicacion, Root.Width) Subs.centraPanel(p_botones, Root.Width) E_NOMBRE.Left = Round(Root.Width/2)-(E_NOMBRE.Width/2) + et_direccion.Left = Round(Root.Width/2)-(E_NOMBRE.Width/2) If B4XPages.MainPage.lat_gps <> "0.0" Then GUARDA.Visible = True 'Si hay ubicaccion, mostramos el boton de guardar. - l_sinUbicacion.Visible = False + l_sinUbicacion.Visible = True End If + + If Not(Starter.GPS.GPSEnabled) Then + ToastMessageShow("Debe Activar el GPS del Equipo.", True) + StartActivity(Starter.GPS.LocationSettingsIntent) + Else + Starter.GPS.Start(0, 0) +' If Starter.ubicacionActual.Latitude <> 0 Then GPS_LocationChanged(Starter.ubicacionActual) + End If + CallSubDelayed(Tracker, "StartFLPSmall") + + c = Starter.skmt.ExecQuery("SELECT GIRO FROM CAT_GIRO order by 1") + Dim Items As List + Items.Initialize + Items.Add("SELECCIONA UNA OPCIÓN") + If c.RowCount > 0 Then + For i = 0 To c.RowCount-1 + c.Position = i + Items.Add(c.GetString("GIRO")) + Next + cb_giro.SetItems(Items) + End If + giros = "SELECCIONA UNA OPCIÓN" + c.Close End Sub Sub GPS_LocationChanged (Location1 As Location) If B4XPages.MainPage.lat_gps <> "0.0" Then GUARDA.Visible = True 'Si hay ubicaccion, mostramos el boton de guardar. - l_sinUbicacion.Visible = False + l_sinUbicacion.Visible = True + lat = Location1.Latitude + lon = Location1.Longitude + l_sinUbicacion.Text = ("Latitud: " & lat & ", Longotud: "& lon) + End If + + b_ubicacion.TextSize = 13 + b_ubicacion.Text = $"Precisión GPS $1.0{Location1.Accuracy} m"$ + If Location1.Accuracy > 200 Then + b_ubicacion.TextColor = Colors.Red + b_ubicacion.TextSize = 16 + b_ubicacion.Text = $"Mala señal $1.0{Location1.Accuracy} m"$ End If End Sub Sub CANCELA_Click B4XPages.ShowPage("Principal") + CallSubDelayed(Tracker, "StartFLP") End Sub Sub GUARDA_Click If E_NOMBRE.Text = "" Then - ToastMessageShow("Se tiene que nombrar la tienda para continuar" , True) + MsgboxAsync("Por favor captura el nombre de la Tienda","Atención") Else - DateTime.DateFormat = "MM/dd/yyyy" - DateTime.Timeformat = "HHmmss" - sDate=DateTime.Date(DateTime.Now) - sTime=DateTime.Time(DateTime.Now) - Log($" //////////// Date: ${sDate} - Time: ${sTime} ////////////////"$) - 'Aqui creamos manualmete la hora con el separador de los 2 puntos porque en algunas versiones de android no respeta el formato "Timeformat = 'HH:mm:ss'" - Private hora As String = sTime.SubString2(0,2) - Private mins As String = sTime.SubString2(2,4) - Private segs As String = sTime.SubString(4) - sTime = hora&":"&mins&":"&segs - Log("////////////// sTime: "&sTime&" ////////////////") - c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA FROM kmt_info") - c.Position=0 - no_ruta= c.GetString("CAT_CL_RUTA") - no_cliente= "N" & sTime & no_ruta - Log("++ ++ no_cliente = "&no_cliente) - c.Close - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object (no_cliente,no_ruta, E_NOMBRE.Text,"null","null","null","null","null","null","null","null","null","null","null","null","null",B4XPages.MainPage.lon_gps,B4XPages.MainPage.lat_gps)) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (no_cliente)) - B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA") - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(no_cliente)) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CLIENTE_NUEVO(CN_ID_CLIENTE, CN_NOMBRE) VALUES (?,?)", Array As Object(no_cliente, E_NOMBRE.Text)) - B4XPages.ShowPage("Cliente") + If et_direccion.Text.Length > 3 Then + If lat <> 0 Then +' If fototomada <> "0" Then + If giros <> "SELECCIONA UNA OPCIÓN" Or cb_giro.SelectedItem <> "SELECCIONA UNA OPCIÓN" Then + DateTime.DateFormat = "MM/dd/yyyy" + DateTime.Timeformat = "HHmmss" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + Log($" //////////// Date: ${sDate} - Time: ${sTime} ////////////////"$) + 'Aqui creamos manualmete la hora con el separador de los 2 puntos porque en algunas versiones de android no respeta el formato "Timeformat = 'HH:mm:ss'" + Private hora As String = sTime.SubString2(0,2) + Private mins As String = sTime.SubString2(2,4) + Private segs As String = sTime.SubString(4) + sTime = hora&":"&mins&":"&segs + Log("////////////// sTime: "&sTime&" ////////////////") + c=Starter.skmt.ExecQuery("select CAT_CL_RUTA FROM kmt_info") + c.Position=0 + no_ruta= c.GetString("CAT_CL_RUTA") + no_cliente= "N" & sTime & no_ruta + Log("++ ++ no_cliente = "&no_cliente) + c.Close + Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_GIRO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0,?) ",Array As Object (no_cliente,no_ruta, E_NOMBRE.Text,"null","null","null","null","null","null","null","null","null","null","null","null","null",B4XPages.MainPage.lon_gps,B4XPages.MainPage.lat_gps, cb_giro.SelectedItem)) + Starter.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (no_cliente)) + Starter.skmt.ExecNonQuery("delete from CUENTAA") + Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(no_cliente)) + c=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN") + If c.RowCount>0 Then + C.Position=0 + ALMACEN = C.GetString("ID_ALMACEN") + End If + c.Close + c=Starter.skmt.ExecQuery("select usuario from usuarioa") + c.Position = 0 + usuario = c.GetString("USUARIO") + c.Close + Starter.skmt.ExecNonQuery2("INSERT INTO HIST_FOTO_CLIENTE(CODIGO, ALMACEN, RUTA) VALUES(?,?,?)", Array As Object(no_cliente, ALMACEN, no_ruta)) + Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_LAT,NV_LON,NV_NOMBRE,NV_DIRECCION) VALUES(?,?,?,?,?,?,?,?) ", Array As Object (no_cliente,sDate & sTime, usuario, "NUEVO CLIENTE", lat, lon, E_NOMBRE.Text,et_direccion.Text)) + + DateTime.DateFormat = "dd/MM/yyyy" + DateTime.Timeformat = "HH:mm:ss" + sDate2=DateTime.Date(DateTime.Now) + sTime2=DateTime.Time(DateTime.Now) + + Starter.skmt.ExecNonQuery2("INSERT INTO CLIENTES_NUEVOS(CN_ID, CN_FECHA, CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_RUTA, CN_GIRO) VALUES (?,?,?,?,?,?,?,?,?,?)",Array As String(no_cliente,sDate2 &" "&sTime2, usuario, lat, lon, E_NOMBRE.Text,et_direccion.Text, ALMACEN, no_ruta,cb_giro.SelectedItem)) +' fototomada = "0" + B4XPages.ShowPage("Cliente") + CallSubDelayed(Tracker, "StartFLP") + + Else + MsgboxAsync("Por favor captura el giro del cliente","Atención") + End If + +' Else +' MsgboxAsync("Por favor captura la foto del cliente","Atención") +' End If + Else + MsgboxAsync("Por favor revisa que tengas señal GPS","Atención") + End If + Else + MsgboxAsync("Por favor captura la dirección del cliente","Atención") + End If End If End Sub + Private Sub p_nuevoCliente_Click +End Sub + +'Private Sub b_foto_inci_Click +' camEx2.TakePicture +' p_camara.Visible = False +'' StopCamera2 +'End Sub +' +'Private Sub InitializeCamera2 +' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA) +' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) +' If Result Then +' camEx2.Initialize(p_cam, frontCamera, Me, "Camera1") +' frontCamera = camEx2.Front +' Log("inicializamos Camara") +' Else +' ToastMessageShow("Sin permisos de camara!!!", True) +' End If +' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE) +' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) +' If Result Then +' Log("con permisos para escritura") +' Else +' ToastMessageShow("Sin permisos de escritura!!!", True) +' End If +' +' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE) +' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) +' If Result Then +' Log("con permisos para escritura") +' Else +' ToastMessageShow("Sin permisos de lectura!!!", True) +' End If +'End Sub +' +'Sub Camera1_Ready (Success As Boolean) +' Log("Camara ready") +' If Success Then +' camEx2.SetJpegQuality(90) +' camEx2.SetContinuousAutoFocus +' camEx2.CommitParameters +' camEx2.StartPreview +' Log(camEx2.GetPreviewSize) +' Else +' ToastMessageShow("Cannot open camera.", True) +' Log("Cannot open camera") +' End If +'End Sub +' +'Sub Camera1_PictureTaken (Data()As Byte) +' Log("tome foto") +' Dim filename As String = fototomada +' Dim Dirp As String = File.DirInternal +' Dim Dir As String +' Dim Dir2 As String +' Try +' File.MakeDir(Dirp,"/promotoriakmts") +' Dir = "/promotoriakmts" +' Log("creado en promotoria " & Dirp & Dir) +' Catch +' Dir = "" +' Log("creado en raiz") +' End Try +' +' Try +' File.MakeDir(Dirp & Dir,"/reduccion") +' Dir2 = "/reduccion" +' Log("creado en promotoria " & Dirp & Dir & Dir2) +' Catch +' Dir = "" +' Log("creado en raiz") +' End Try +' +' camEx2.SavePictureToFile(Data, Dirp&Dir, filename) +' camEx2.StartPreview 'restart preview +' ToastMessageShow("Picture saved." & CRLF & "File size: " & File.Size(Dir, filename) & Dir &"," & filename, True) +' Log("Picture saved." & CRLF & "File size: " & File.Size(Dir, filename) & Dir &"," & filename) +' p_camara.Visible = False +' StopCamera2 +' +'End Sub +' +'Private Sub StopCamera2 +'' Capturing = False +' If camEx2.IsInitialized Then +' camEx2.Release +' End If +'End Sub +' +' +'Private Sub B_FOTO_Click +' DateTime.DateFormat="ddMMyyyyHHmmss" +' InitializeCamera2 +' Subs.panelVisible(p_camara, 0, 0) +' fototomada = DateTime.Now & "_cliente.jpg" +'End Sub + +Private Sub cb_giro_SelectedIndexChanged (Index As Int) + giros = cb_giro.SelectedItem End Sub \ No newline at end of file diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index c8f7333..fb648b1 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -214,6 +214,7 @@ Sub Class_Globals Private L_VENTA As Label Private L_PREVENTA As Label Private p_abordo As Panel + Private Panel11 As Panel End Sub 'You can add more parameters here. @@ -636,6 +637,42 @@ Sub Subir_Click Next End If c.Close + + ' CLIENTES NUEVOS + Dim fotocn() As Byte + Dim Dirp As String = File.DirInternal + Dim Dir As String + Dim Dir2 As String + Dir = "/promotoriakmts" + + c=Starter.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO FROM CLIENTES_NUEVOS") + If c.RowCount>0 Then + For i = 0 To c.RowCount - 1 + c.Position = i + Log(File.Exists(Dirp&Dir&Dir2,c.GetString("CN_FOTO"))) + If File.Exists(Dirp&Dir&Dir2,c.GetString("CN_FOTO")) Then fotocn = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir,c.GetString("CN_FOTO"))) + Dim dia As Int = DateTime.GetDayOfWeek(DateTime.Now) + If dia = 2 Then + Dim dialetra As String = "LUNES" + Else If dia = 3 Then + Dim dialetra As String = "MARTES" + Else If dia = 4 Then + Dim dialetra As String = "MIERCOLES" + Else If dia = 5 Then + Dim dialetra As String = "JUEVES" + Else If dia = 6 Then + Dim dialetra As String = "VIERNES" + Else If dia = 7 Then + Dim dialetra As String = "SABADO" + End If + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_clientesnuevos_MARQUEZ" + cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),ALMACEN, c.GetString("CN_RUTA"), fotocn, "En espera",c.GetString("CN_GIRO"),dialetra) + reqManager.ExecuteCommand(cmd , "inst_clientesn") + Next + End If + c.Close ' c=B4XPages.MainPage.skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA") ' If c.RowCount>0 Then @@ -858,6 +895,7 @@ Sub cargar_Click B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_CLIENTE_CANT_PROMOS") B4XPages.MainPage.skmt.ExecNonQuery("delete from PROMOS_COMP") B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_VERIFICACION") + Starter.skmt.ExecNonQuery("delete from CAT_GIRO") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM MARCAS_RUTAS") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_STAY_STORE") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GEOCERCA") @@ -903,6 +941,10 @@ Sub cargar_Click cmd.Name = "select_cat_gunaprod2_MARQUEZ" cmd.Parameters = Array As Object(ALMACEN,e_ruta.Text) reqManager.ExecuteQuery(cmd , 0, "gunaprod2") + + cmd.Initialize + cmd.Name = "select_cat_GIRO_MARQUEZ" + reqManager.ExecuteQuery(cmd , 0, "giro") ' cmd.Initialize ' cmd.Name = "select_resum_apk_INTMEX" ''' va el nombre de archivo de config @@ -966,7 +1008,7 @@ Sub cargar_Click B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO RUTA_SUPLENCIA(RS_RUTA) VALUES(?)",Array As String(E_RUTA2.Text)) E_RUTA2.Visible = False - ImageView9.Visible = False + Panel11.Visible = False cmd.Initialize cmd.Name = "select_cat_clientes_MARQUEZ" @@ -1114,6 +1156,37 @@ Sub JobDone(Job As HttpJob) End If End If + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "giro" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim giro As String = records(RESULT.Columns.Get("CAT_GR_DESC")) + + Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GIRO(GIRO) VALUES (?)", Array As Object (giro)) + Next + If PB2.Progress = 0 Then + PB2.Progress = 30 + S_CP.Text = "CARGANDO" + ELSE If PB2.Progress = 30 Then + PB2.Progress = 60 + ELSE IF PB2.Progress = 60 Then + PB2.Progress = 100 + S_CP.Text = "LISTO" + End If + Listo3 =1 + If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then + B4XPage_Appear + img2.Visible=False + EJECUTANDO=0 + Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then + B4XPage_Appear + img2.Visible=False + EJECUTANDO=0 + End If + + End If + End If + If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = reqManager.HandleJob(Job) If RESULT.Tag = "kmt_datos" Then 'query tag @@ -1988,6 +2061,7 @@ Sub e_ruta_EnterPressed RES = Msgbox2("Seguro que desea hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore If RES = DialogResponse.POSITIVE Then e_ruta.Text = "" + Starter.skmt.ExecNonQuery("delete from CAT_GIRO") B4XPages.MainPage.skmt.ExecNonQuery("delete from CLIENTE_NUEVO") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido") @@ -2026,7 +2100,8 @@ Sub e_ruta_EnterPressed End If If e_ruta.Text = "SUPLENCIA" Then E_RUTA2.Visible = True - ImageView9.Visible = True + Panel11.Visible = True +' ImageView9.Visible = True e_ruta.Text= "" End If End Sub diff --git a/B4A/MARQUEZ.b4a b/B4A/MARQUEZ.b4a index 34a72bf..1c56e69 100644 --- a/B4A/MARQUEZ.b4a +++ b/B4A/MARQUEZ.b4a @@ -189,7 +189,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Marquez #VersionCode: 1 - #VersionName: 4.05.21 + #VersionName: 4.06.01 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/MARQUEZ.b4a.meta b/B4A/MARQUEZ.b4a.meta index 3318a2d..03f359f 100644 --- a/B4A/MARQUEZ.b4a.meta +++ b/B4A/MARQUEZ.b4a.meta @@ -85,6 +85,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Diseñador Visual,clientes.bal,-100,1,Diseñador Visual,cliente.bal,-100,6,C_Clientes,Class_Globals,0,0,C_Cliente,b_abono_Click,1276,0,C_Cliente,gest_Click,465,0,C_Nota,Regresar_Click,138,0,Subs,traeUsuarioDeBD,744,0,C_Cliente,Guardar_Click,562,6,Main,Activity_Pause,50,0,B4XMainPage,B4XPage_Created,145,0 +NavigationStack=C_Principal,Class_Globals,211,0,C_NuevoCliente,cb_giro_SelectedIndexChanged,329,0,C_Principal,iv_abordo_Click,2594,0,C_NuevoCliente,B4XPage_Appear,87,0,B4XMainPage,B4XPage_Created,152,0,C_Principal,Subir_Click,638,0,C_Principal,JobDone,1269,0,C_Principal,e_ruta_EnterPressed,2096,3,Diseñador Visual,principal.bal,-100,3,C_Principal,cargar_Click,1004,3 SelectedBuild=0 -VisibleModules=1,2,3,4,5,6,7,8,9,10,13,27 +VisibleModules=1,2,3,4,5,6,7,8,9,10,11,13