mirror of
https://github.com/KeymonSoft/Marquez.git
synced 2026-04-17 21:06:15 +00:00
version final
This commit is contained in:
cvaldes1201
@@ -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)")
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user