mirror of
https://github.com/KeymonSoft/ADM.git
synced 2026-04-20 04:39:15 +00:00
- VERSION 5.08.26
- [x] Cambiar el texto de la No Venta a : "Causas de no venta" - [x] En lugar de "peso", poner "kilos". - [x] Si la tienda está cerrada, solicitar foto de la tienda. - [x] Hay que pedir foto al iniciar el día. - [x] Cuando se carga día, mandar en la bitácora la ruta. - [x] Quitar botón de clientes nuevos. - [x] Cuando ya guardamos una foto de tienda cerrada, no pedía la foto en los demás clientes de tienda cerrada. - [x] El botón del mapa en principal, al principio se veia bien, y luego se movia a la izquierda
This commit is contained in:
@@ -23,7 +23,7 @@ Sub Class_Globals
|
||||
Private qr As QRCode
|
||||
' Dim sc As Zxing_scanner
|
||||
Dim CODIGO As String
|
||||
Dim STIME As String
|
||||
Dim sTime As String
|
||||
|
||||
Dim ruta As String
|
||||
Dim q_buscar As String
|
||||
@@ -53,11 +53,26 @@ Sub Class_Globals
|
||||
Private b_guardaNoVenta As Button
|
||||
Private p_botonesNoVenta As Panel
|
||||
Private et_comentarioNoVenta As EditText
|
||||
Private r_opcion5 As RadioButton
|
||||
Private r_opcion4 As RadioButton
|
||||
Private r_opcion3 As RadioButton
|
||||
Private r_opcion2 As RadioButton
|
||||
Private r_opcion1 As RadioButton
|
||||
Dim motivo As String
|
||||
Private p_camara As Panel
|
||||
Private b_foto_inci As Button
|
||||
Private b_cam As Button
|
||||
Private p_cam As Panel
|
||||
Private camEx As CameraExClass
|
||||
Private frontCamera As Boolean = False
|
||||
Dim laCam As C_Camara
|
||||
Dim fototomada As String = "0"
|
||||
Dim sDate As String
|
||||
Dim sTime As String
|
||||
Private nombreFoto As String
|
||||
Dim fotoCerrado As String = ""
|
||||
Private p_botonesCam As Panel
|
||||
Dim reqManager As DBRequestManager
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -93,6 +108,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
|
||||
End If
|
||||
qr.initialize
|
||||
reqManager.Initialize(Me, Starter.DBReqServer)
|
||||
laCam.Initialize
|
||||
End Sub
|
||||
|
||||
Sub B4XPage_Appear
|
||||
@@ -182,52 +199,52 @@ Sub CreateListItem(nombre As String, direccion0 As String, cliente As String) As
|
||||
End Sub
|
||||
|
||||
Sub ListView1_ItemClick (Position As Int, value As Object)
|
||||
If colonia = 0 Then
|
||||
colonia = value
|
||||
End If
|
||||
If entro = "2" Then
|
||||
c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_CALLE, CAT_CL_COLONIA, count(*) as cuantos from kmt_info where gestion = 0 and CAT_CL_COLONIA = ? GROUP BY CAT_CL_CALLE, CAT_CL_COLONIA order by CAT_CL_CALLE ", Array As String(value))
|
||||
ListView1.Clear
|
||||
lfila.text = "Calle"
|
||||
If c2.RowCount>0 Then
|
||||
For i=0 To c2.RowCount -1
|
||||
c2.Position=i
|
||||
ListView1.AddTwoLines(c2.GetString("CAT_CL_CALLE"),c2.GetString("cuantos") )
|
||||
Next
|
||||
End If
|
||||
entro = "3"
|
||||
Else If entro = "3" Then
|
||||
c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where gestion = 0 and CAT_CL_CALLE = ? AND CAT_CL_COLONIA = ? order by CAT_CL_NOMBRE ", Array As String(value, colonia))
|
||||
ListView1.Clear
|
||||
lfila.text = "Nombre"
|
||||
If c2.RowCount>0 Then
|
||||
For i=0 To c2.RowCount -1
|
||||
c2.Position=i
|
||||
ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE"))
|
||||
Next
|
||||
End If
|
||||
entro = "4"
|
||||
Else If entro = "4" Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(value))
|
||||
DateTime.TimeFormat = "HHmmss"
|
||||
STIME=DateTime.Time(DateTime.Now)
|
||||
Starter.pre_viejo = Subs.traeTotalClientepreventaparacredito
|
||||
s=B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_STAY_STORE WHERE HSS_IN = ? AND HSS_CODIGO In (select cuenta from cuentaa)", Array As String("0"))
|
||||
s.Position = 0
|
||||
If s.GetString("CUANTOS") = 1 Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ? where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
|
||||
Else
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (value))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ? where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
|
||||
End If
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_INI = ? where HSO_INI = 0 ", Array As Object(STIME))
|
||||
DateTime.TimeFormat = "HH:mm:ss"
|
||||
|
||||
Subs.guardaClienteHoraInicio(value)
|
||||
|
||||
B4XPages.ShowPage("Cliente")
|
||||
End If
|
||||
' If colonia = 0 Then
|
||||
' colonia = value
|
||||
' End If
|
||||
' If entro = "2" Then
|
||||
' c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_CALLE, CAT_CL_COLONIA, count(*) as cuantos from kmt_info where gestion = 0 and CAT_CL_COLONIA = ? GROUP BY CAT_CL_CALLE, CAT_CL_COLONIA order by CAT_CL_CALLE ", Array As String(value))
|
||||
' ListView1.Clear
|
||||
' lfila.text = "Calle"
|
||||
' If c2.RowCount>0 Then
|
||||
' For i=0 To c2.RowCount -1
|
||||
' c2.Position=i
|
||||
' ListView1.AddTwoLines(c2.GetString("CAT_CL_CALLE"),c2.GetString("cuantos") )
|
||||
' Next
|
||||
' End If
|
||||
' entro = "3"
|
||||
' Else If entro = "3" Then
|
||||
' c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where gestion = 0 and CAT_CL_CALLE = ? AND CAT_CL_COLONIA = ? order by CAT_CL_NOMBRE ", Array As String(value, colonia))
|
||||
' ListView1.Clear
|
||||
' lfila.text = "Nombre"
|
||||
' If c2.RowCount>0 Then
|
||||
' For i=0 To c2.RowCount -1
|
||||
' c2.Position=i
|
||||
' ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE"))
|
||||
' Next
|
||||
' End If
|
||||
' entro = "4"
|
||||
' Else If entro = "4" Then
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(value))
|
||||
' DateTime.TimeFormat = "HHmmss"
|
||||
' sTime=DateTime.Time(DateTime.Now)
|
||||
' Starter.pre_viejo = Subs.traeTotalClientepreventaparacredito
|
||||
' s=B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_STAY_STORE WHERE HSS_IN = ? AND HSS_CODIGO In (select cuenta from cuentaa)", Array As String("0"))
|
||||
' s.Position = 0
|
||||
' If s.GetString("CUANTOS") = 1 Then
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ? where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime))
|
||||
' Else
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (value))
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ? where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime))
|
||||
' End If
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_INI = ? where HSO_INI = 0 ", Array As Object(sTime))
|
||||
' DateTime.TimeFormat = "HH:mm:ss"
|
||||
'
|
||||
' Subs.guardaClienteHoraInicio(value)
|
||||
'
|
||||
' B4XPages.ShowPage("Cliente")
|
||||
' End If
|
||||
End Sub
|
||||
|
||||
Private Sub B4XPage_CloseRequest As ResumableSub
|
||||
@@ -398,55 +415,53 @@ Private Sub p_clientes_Click
|
||||
End Sub
|
||||
|
||||
Private Sub p_datosclie_Click
|
||||
If colonia = 0 Then
|
||||
colonia = Sender.As(Panel).tag
|
||||
End If
|
||||
If entro = "2" Then
|
||||
c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_CALLE, CAT_CL_COLONIA, count(*) as cuantos from kmt_info where gestion = 0 and CAT_CL_COLONIA = ? GROUP BY CAT_CL_CALLE, CAT_CL_COLONIA order by CAT_CL_CALLE ", Array As String(Sender.As(Panel).tag))
|
||||
ListView1.Clear
|
||||
lfila.text = "Calle"
|
||||
If c2.RowCount>0 Then
|
||||
For i=0 To c2.RowCount -1
|
||||
c2.Position=i
|
||||
ListView1.AddTwoLines(c2.GetString("CAT_CL_CALLE"),c2.GetString("cuantos") )
|
||||
Next
|
||||
End If
|
||||
entro = "3"
|
||||
Else If entro = "3" Then
|
||||
c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where gestion = 0 and CAT_CL_CALLE = ? AND CAT_CL_COLONIA = ? order by CAT_CL_NOMBRE ", Array As String(Sender.As(Panel).tag, colonia))
|
||||
ListView1.Clear
|
||||
lfila.text = "Nombre"
|
||||
If c2.RowCount>0 Then
|
||||
For i=0 To c2.RowCount -1
|
||||
c2.Position=i
|
||||
ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE"))
|
||||
Next
|
||||
End If
|
||||
entro = "4"
|
||||
Else If entro = "4" Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Sender.As(Panel).tag))
|
||||
DateTime.TimeFormat = "HHmmss"
|
||||
STIME=DateTime.Time(DateTime.Now)
|
||||
|
||||
s=B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_STAY_STORE WHERE HSS_IN = ? AND HSS_CODIGO In (select cuenta from cuentaa)", Array As String("0"))
|
||||
s.Position = 0
|
||||
If s.GetString("CUANTOS") = 1 Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ? where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
|
||||
Else
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (Sender.As(Panel).tag))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ? where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
|
||||
End If
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_INI = ? where HSO_INI = 0 ", Array As Object(STIME))
|
||||
DateTime.TimeFormat = "HH:mm:ss"
|
||||
|
||||
Subs.guardaClienteHoraInicio(Sender.As(Panel).tag)
|
||||
|
||||
B4XPages.ShowPage("Cliente")
|
||||
End If
|
||||
|
||||
|
||||
' Log(Sender.As(Panel).tag)
|
||||
' If colonia = 0 Then
|
||||
' colonia = Sender.As(Panel).tag
|
||||
' End If
|
||||
' If entro = "2" Then
|
||||
' c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_CALLE, CAT_CL_COLONIA, count(*) as cuantos from kmt_info where gestion = 0 and CAT_CL_COLONIA = ? GROUP BY CAT_CL_CALLE, CAT_CL_COLONIA order by CAT_CL_CALLE ", Array As String(Sender.As(Panel).tag))
|
||||
' ListView1.Clear
|
||||
' lfila.text = "Calle"
|
||||
' If c2.RowCount>0 Then
|
||||
' For i=0 To c2.RowCount -1
|
||||
' c2.Position=i
|
||||
' ListView1.AddTwoLines(c2.GetString("CAT_CL_CALLE"),c2.GetString("cuantos") )
|
||||
' Next
|
||||
' End If
|
||||
' entro = "3"
|
||||
' Else If entro = "3" Then
|
||||
' c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where gestion = 0 and CAT_CL_CALLE = ? AND CAT_CL_COLONIA = ? order by CAT_CL_NOMBRE ", Array As String(Sender.As(Panel).tag, colonia))
|
||||
' ListView1.Clear
|
||||
' lfila.text = "Nombre"
|
||||
' If c2.RowCount>0 Then
|
||||
' For i=0 To c2.RowCount -1
|
||||
' c2.Position=i
|
||||
' ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE"))
|
||||
' Next
|
||||
' End If
|
||||
' entro = "4"
|
||||
' Else If entro = "4" Then
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Sender.As(Panel).tag))
|
||||
' DateTime.TimeFormat = "HHmmss"
|
||||
' sTime=DateTime.Time(DateTime.Now)
|
||||
'
|
||||
' s=B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_STAY_STORE WHERE HSS_IN = ? AND HSS_CODIGO In (select cuenta from cuentaa)", Array As String("0"))
|
||||
' s.Position = 0
|
||||
' If s.GetString("CUANTOS") = 1 Then
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ? where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime))
|
||||
' Else
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (Sender.As(Panel).tag))
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ? where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime))
|
||||
' End If
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_INI = ? where HSO_INI = 0 ", Array As Object(sTime))
|
||||
' DateTime.TimeFormat = "HH:mm:ss"
|
||||
'
|
||||
' Subs.guardaClienteHoraInicio(Sender.As(Panel).tag)
|
||||
'
|
||||
' B4XPages.ShowPage("Cliente")
|
||||
' End If
|
||||
'' Log(Sender.As(Panel).tag)
|
||||
End Sub
|
||||
|
||||
Private Sub b_buscar_Click
|
||||
@@ -565,14 +580,32 @@ Private Sub b_inicioVenta_Click
|
||||
Starter.skmt.ExecNonQuery($"delete from cuentaa"$)
|
||||
Starter.skmt.ExecNonQuery($"insert into cuentaa (cuenta) values ('${cliente}')"$)
|
||||
Log($"insert into cuentaa (cuenta) values ('${cliente}')"$)
|
||||
p_transparenciaIniciaInicioFinVenta.Visible = True
|
||||
b_finVenta.Enabled = True
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Inicia Venta", cliente, Subs.fechanormal(DateTime.Now), "", Starter.lat_gps, Starter.lon_gps, "2", "", "", "")
|
||||
Starter.enVenta = True
|
||||
Subs.enVenta(1, "CLIENTES")
|
||||
|
||||
LogColor($">>>>>> INICIA VENTA: ${Starter.enVenta} - ${cliente}"$, Colors.red)
|
||||
Log(Subs.traeRuta2(Subs.traeCliente))
|
||||
c = Starter.skmt.ExecQuery("SELECT * FROM FOTOINICIAL")
|
||||
If c.RowCount = 0 Then
|
||||
p_camara.Visible = True
|
||||
InitializeCamera
|
||||
p_camara.Left = 0
|
||||
p_camara.Visible = True
|
||||
nombreFoto = "inicio"
|
||||
b_foto_inci.Text = "Foto tienda"
|
||||
Else
|
||||
p_transparenciaIniciaInicioFinVenta.Visible = True
|
||||
b_finVenta.Enabled = True
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Inicia Venta", cliente, Subs.fechanormal(DateTime.Now), "", Starter.lat_gps, Starter.lon_gps, "2", "", "", "")
|
||||
Starter.enVenta = True
|
||||
Subs.enVenta(1, "CLIENTES")
|
||||
LogColor($">>>>>> INICIA VENTA: ${Starter.enVenta} - ${cliente}"$, Colors.red)
|
||||
Log(Subs.traeRuta2(Subs.traeCliente))
|
||||
End If
|
||||
c = Starter.skmt.ExecQuery($"select PE_FOTO_CERRADO from PESOS where PE_CLIENTE = '${cliente}' and PE_FOTO_CERRADO = '1'"$)
|
||||
If c.RowCount > 0 Then
|
||||
fotoCerrado = "1"
|
||||
Else
|
||||
fotoCerrado = ""
|
||||
End If
|
||||
c.Close
|
||||
Log("CLIENTE: " & cliente)
|
||||
Log("FOTOCERRADO: " & fotoCerrado)
|
||||
End Sub
|
||||
|
||||
Private Sub ventaIniciada
|
||||
@@ -611,7 +644,7 @@ Private Sub b_guardarPeso_Click
|
||||
Private peso As Double = et_guardarPeso.Text
|
||||
et_guardarPeso.Text = peso
|
||||
|
||||
Subs.guardaPeso("VENTA", Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), Subs.traeUsuarioDeBD, Subs.traeCliente, peso, "", "")
|
||||
Subs.guardaPeso("VENTA", Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), Subs.traeUsuarioDeBD, Subs.traeCliente, peso, "", "", "")
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, 2, "", "", $"Venta:${et_guardarPeso.text}"$)
|
||||
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||
Starter.enVenta = False
|
||||
@@ -621,6 +654,7 @@ Private Sub b_guardarPeso_Click
|
||||
' b_inicioVenta.Enabled = True
|
||||
b_finVenta.Enabled = False
|
||||
B4XPages.MainPage.clientes.B4XPage_Appear
|
||||
mandaPendientes
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -647,22 +681,280 @@ Private Sub b_guardaNoVenta_Click
|
||||
motivo = "NO COMPRA"
|
||||
Else If r_opcion3.Checked Then
|
||||
motivo = "CON PRODUCTO"
|
||||
Else
|
||||
Else If r_opcion4.Checked Then
|
||||
motivo = "NO ESTA EL ENCARGADO"
|
||||
Else
|
||||
motivo = "CANCELACION"
|
||||
End If
|
||||
DateTime.DateFormat="yy-MM-dd HH:mm:ss"
|
||||
Dim fecha As String=DateTime.Date(DateTime.Now)
|
||||
|
||||
Subs.guardaPeso("NO VENTA", Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), Subs.traeUsuarioDeBD, Subs.traeCliente, "0", motivo, et_comentarioNoVenta.text)
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "No Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, 2, motivo, et_comentarioNoVenta.text, $"Venta:${et_guardarPeso.text}"$)
|
||||
Starter.enVenta = False
|
||||
Subs.enVenta(0, "")
|
||||
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||
p_noVenta.Visible = False
|
||||
p_guardarPeso.Visible = False
|
||||
p_transparenciaIniciaInicioFinVenta.Visible = False
|
||||
|
||||
Log("FOTOCERRADO: " & fotoCerrado)
|
||||
|
||||
If motivo = "CERRADO" And fotoCerrado = "" Then
|
||||
nombreFoto = Subs.traeCliente & "_cerrado"
|
||||
p_camara.Height = Root.Height : p_camara.Width = Root.Width
|
||||
p_camara.Left = 0 : p_camara.top = 0
|
||||
Subs.centraPanel(p_cam, Root.Width)
|
||||
Subs.centraPanel(p_botonesCam, Root.Width)
|
||||
p_camara.Visible = True
|
||||
InitializeCamera
|
||||
p_camara.Visible = True
|
||||
p_camara.BringToFront
|
||||
b_foto_inci.Text = "Foto tienda"
|
||||
Else
|
||||
DateTime.DateFormat="yy-MM-dd HH:mm:ss"
|
||||
Dim fecha As String=DateTime.Date(DateTime.Now)
|
||||
Subs.guardaPeso("NO VENTA", Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), Subs.traeUsuarioDeBD, Subs.traeCliente, "0", motivo, et_comentarioNoVenta.text, fotoCerrado)
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "No Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, 2, motivo, et_comentarioNoVenta.text, $"Venta:${et_guardarPeso.text}"$)
|
||||
Starter.enVenta = False
|
||||
Subs.enVenta(0, "")
|
||||
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||
p_noVenta.Visible = False
|
||||
p_guardarPeso.Visible = False
|
||||
p_transparenciaIniciaInicioFinVenta.Visible = False
|
||||
End If
|
||||
mandaPendientes
|
||||
|
||||
' DateTime.DateFormat="yy-MM-dd HH:mm:ss"
|
||||
' Dim fecha As String=DateTime.Date(DateTime.Now)
|
||||
'
|
||||
' Subs.guardaPeso("NO VENTA", Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), Subs.traeUsuarioDeBD, Subs.traeCliente, "0", motivo, et_comentarioNoVenta.text)
|
||||
' Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "No Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, 2, motivo, et_comentarioNoVenta.text, $"Venta:${et_guardarPeso.text}"$)
|
||||
' Starter.enVenta = False
|
||||
' Subs.enVenta(0, "")
|
||||
' Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||
' p_noVenta.Visible = False
|
||||
' p_guardarPeso.Visible = False
|
||||
' p_transparenciaIniciaInicioFinVenta.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub b_cancelaNoVenta_Click
|
||||
p_noVenta.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub p_camara_Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub b_foto_inci_Click
|
||||
camEx.TakePicture
|
||||
End Sub
|
||||
|
||||
Private Sub InitializeCamera
|
||||
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
|
||||
Wait For B4XPage_PermissionResult (Permission As String, resulta As Boolean)
|
||||
If resulta Then
|
||||
camEx.Initialize(p_cam, frontCamera, Me, "Camera1")
|
||||
frontCamera = camEx.Front
|
||||
Else
|
||||
ToastMessageShow("No permission!!!", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Camera1_Ready (Success As Boolean)
|
||||
If Success Then
|
||||
camEx.SetJpegQuality(90)
|
||||
camEx.SetContinuousAutoFocus
|
||||
camEx.CommitParameters
|
||||
camEx.StartPreview
|
||||
Log(camEx.GetPreviewSize)
|
||||
Else
|
||||
ToastMessageShow("Cannot open camera.", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Camera1_PictureTaken (Data() As Byte)
|
||||
If b_foto_inci.Text = "Foto tienda" Then
|
||||
DateTime.DateFormat="ddMMyyyyHHmmss"
|
||||
fototomada = DateTime.Now & $"_${nombreFoto}.jpg"$
|
||||
Dim filename As String = fototomada
|
||||
Dim dir As String = File.DirInternal
|
||||
camEx.SavePictureToFile(Data, dir, filename)
|
||||
camEx.StartPreview 'restart preview
|
||||
ToastMessageShow("Picture saved." & CRLF & "File size: " & File.Size(dir, filename), True)
|
||||
Dim Dirp As String = File.DirInternal
|
||||
Dim dir As String
|
||||
Dim Dir2 As String
|
||||
Try
|
||||
File.MakeDir(Dirp,"/adm")
|
||||
dir = "/adm"
|
||||
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
|
||||
Dir2 = ""
|
||||
Log("creado en raiz")
|
||||
End Try
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
DateTime.TimeFormat = "HH:mm:ss"
|
||||
sDate = DateTime.Date(DateTime.Now)
|
||||
sTime = DateTime.Time(DateTime.Now)
|
||||
camEx.SavePictureToFile(Data, Dirp&dir, filename)
|
||||
camEx.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)
|
||||
|
||||
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & dir, filename, 450, 600, True)
|
||||
Dim out As OutputStream = File.OpenOutput(File.DirInternal & dir & Dir2, filename, False)
|
||||
img.WriteToStream(out, 100, "PNG")
|
||||
out.Close
|
||||
If nombreFoto = "inicio" Then
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO FOTOINICIAL (RUTAA, ALMACEN, LATITUD, LONGITUD, FECHAHORA, FOTO, USUARIO) VALUES (?,?,?,?,?,?,?)",Array As Object(Subs.traeRuta, Subs.traeAlmacen, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, sDate & " " & sTime, File.ReadBytes(File.DirInternal & dir & Dir2, fototomada), Subs.traeUsuarioDeBD))
|
||||
b_foto_inci.Text = "Foto usuario"
|
||||
ChangeCamera_Click
|
||||
Else
|
||||
fotoCerrado = fototomada
|
||||
p_camara.Visible = False
|
||||
StopCamera
|
||||
End If
|
||||
Else If b_foto_inci.Text = "Foto usuario" Then
|
||||
DateTime.DateFormat="ddMMyyyyHHmmss"
|
||||
fototomada = fototomada = DateTime.Now & $"_${nombreFoto}.jpg"$
|
||||
Dim filename As String = fototomada
|
||||
Dim dir As String = File.DirInternal
|
||||
camEx.SavePictureToFile(Data, dir, filename)
|
||||
camEx.StartPreview 'restart preview
|
||||
ToastMessageShow("Picture saved." & CRLF & "File size: " & File.Size(dir, filename), True)
|
||||
Dim Dirp As String = File.DirInternal
|
||||
Dim dir As String
|
||||
Dim Dir2 As String
|
||||
Try
|
||||
File.MakeDir(Dirp,"/adm")
|
||||
dir = "/adm"
|
||||
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
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
DateTime.TimeFormat = "HH:mm:ss"
|
||||
sDate = DateTime.Date(DateTime.Now)
|
||||
sTime = DateTime.Time(DateTime.Now)
|
||||
camEx.SavePictureToFile(Data, Dirp&dir, filename)
|
||||
camEx.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)
|
||||
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & dir, filename, 450, 600, True)
|
||||
Dim out As OutputStream = File.OpenOutput(File.DirInternal & dir & Dir2, filename, False)
|
||||
img.WriteToStream(out, 100, "PNG")
|
||||
out.Close
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE FOTOINICIAL set FOTO2 = ? where USUARIO = ? and RUTAA = ? and ALMACEN = ? ", Array As Object (File.ReadBytes(File.DirInternal & dir & Dir2, fototomada), Subs.traeUsuarioDeBD,Subs.traeRuta, Subs.traeAlmacen ))
|
||||
b_foto_inci.Text = "Foto tienda"
|
||||
ChangeCamera_Click
|
||||
p_camara.Visible = False
|
||||
StopCamera
|
||||
If Subs.traeCliente = "0" Then
|
||||
B4XPages.MainPage.tipo_venta = "ABORDO"
|
||||
Else If Subs.traeCliente = "1" Then
|
||||
B4XPages.MainPage.tipo_venta = "RECARGA"
|
||||
Else
|
||||
B4XPages.MainPage.tipo_venta = "PREVENTA"
|
||||
End If
|
||||
' B4XPages.ShowPage("productos")
|
||||
' p_transparentePidePeso.Visible = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub ChangeCamera_Click
|
||||
camEx.Release
|
||||
frontCamera = Not(frontCamera)
|
||||
InitializeCamera
|
||||
End Sub
|
||||
|
||||
Private Sub StopCamera
|
||||
' Capturing = False
|
||||
If camEx.IsInitialized Then
|
||||
camEx.Release
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub mandaPendientes
|
||||
' PEDIDO_CLIENTE (Pendientes)
|
||||
Log(">>>>>>> MANDA PENDIENTES")
|
||||
Dim PCNoArts As String
|
||||
Dim PCMonto As String
|
||||
If Subs.traeUsuarioDeBD <> "KMTS1" Then
|
||||
'PESOS (Pendientes)
|
||||
c = Starter.skmt.ExecQuery($"SELECT * FROM PESOS where PE_ENVIO_OK <> 1"$)
|
||||
Log($"PESOS PENDIENTE: ${c.RowCount}"$)
|
||||
If c.RowCount>0 Then
|
||||
For i = 0 To c.RowCount -1
|
||||
c.Position = i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
' cmd.Name = "insert_pedido2_ADM"
|
||||
' cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),c.GetString("PE_CEDIS"),c.GetString("PE_IDALMACEN"),c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),c.GetString("PE_FOLIO"),c.GetString("PE_CANTC"),c.GetString("PE_BCAJAS"),c.GetString("PE_TIPOPAGO"),c.GetString("PE_COMENTARIO"))
|
||||
' reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$)
|
||||
' Log($">>>> INS_PEDIDO= ${C.GetString("PE_CEDIS")},${ALMACEN},${C.GetString("PE_COSTO_TOT")},${C.GetString("PE_COSTOU")},${C.GetString("PE_CANT")}, ${C.GetString("PE_PRONOMBRE")}, ${C.GetString("PE_PROID")}, ${C.GetString("PE_CLIENTE")}, ${C.GetString("PE_FECHA")}, ${C.GetString("PE_USUARIO")}, ${C.GetString("PE_RUTA")}, ${C.GetString("PE_COSTO_SIN")}, ${C.GetString("PE_DESC")}, ${c.GetString("PE_FOLIO")}, ${PCNoArts}, ${PCMonto}"$)
|
||||
' sql.insert_pedido_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?))
|
||||
' sql.insert_pedido2_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO, PE_CANT_TOTAL, PE_VENTA_TOTAL) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?),(?),(?))
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insertPesos"
|
||||
' Log(c.GetString("PE_IDALMACEN")&", "&ALMACEN&", "&c.GetString("PE_COSTO_TOT")&", "&c.GetString("PE_COSTOU")&", "&c.GetString("PE_CANT")&", "&c.GetString("PE_PRONOMBRE")&", "&c.GetString("PE_PROID")&", "&c.GetString("PE_CLIENTE")&", "&c.GetString("PE_FECHA")&", "&c.GetString("PE_USUARIO")&", "&Subs.traeRuta2(c.GetString("PE_CLIENTE"))&", "& c.GetString("PE_COSTO_SIN")&", "&c.GetString("PE_DESC")&", "&c.GetString("PE_FOLIO")&", "& ALMACEN)
|
||||
cmd.Parameters = Array As Object(c.GetString("PE_IDALMACEN"),c.GetString("PE_RUTA"),c.GetString("PE_USUARIO"),c.GetString("PE_CLIENTE"),c.GetString("PE_PESO"),c.GetString("PE_FECHA"),c.GetString("PE_TIPO"),c.GetString("PE_COMENTARIO"),c.GetString("PE_FOTO_CERRADO"))
|
||||
' Log($">>>> insertPesos= ${C.GetString("PE_IDALMACEN")},${c.GetString("PE_RUTA")},${C.GetString("PE_USUARIO")},${C.GetString("PE_CLIENTE")},${C.GetString("PE_PESO")}, ${C.GetString("PE_FECHA")}"$)
|
||||
reqManager.ExecuteCommand(cmd , $"insertPesos_${c.GetString("PE_CLIENTE")}"$)
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Sub JobDone(Job As HttpJob)
|
||||
Log("INICA JOBDONE CLIENTES - " & Job.Tag)
|
||||
If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
|
||||
If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then
|
||||
reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag))
|
||||
LogColor($">>>>>> Recibimos y quitamos ${Job.tag.As(String).ToUpperCase}"$, Colors.Blue)
|
||||
End If
|
||||
LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue)
|
||||
End If
|
||||
If Job.Success = False Then
|
||||
LogColor("############################################", Colors.red)
|
||||
LogColor("###### JobError: " & Job.Tag & CRLF & Job.ErrorMessage, Colors.red)
|
||||
LogColor("############################################", Colors.red)
|
||||
' LogColor("Error2: " & Job.ErrorMessage, Colors.red)
|
||||
' LogColor("Error1: " & reqManager.HandleJob(Job).tag, Colors.red)
|
||||
' LogColor("Error: " & reqManager.HandleJob(Job).tag & " : " & Job.ErrorMessage, Colors.red)
|
||||
' Job.Release
|
||||
Else 'If Job Success then ...
|
||||
Try
|
||||
LogColor(" >> JobSuccess: '" & reqManager.HandleJob(Job).tag & CRLF & " >> Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.RGB(0,160,0)) 'Mod por CHV - 211027
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag.As(String).StartsWith("insertPesos_") Then
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Private id() = Regex.Split("_", RESULT.tag)
|
||||
If id.Length > 1 Then
|
||||
For Each k As String In RESULT.Columns.Keys
|
||||
' Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k)))
|
||||
Starter.skmt.ExecNonQuery($"update pesos set PE_ENVIO_OK = 1 where PE_CLIENTE = '${id(1)}'"$)
|
||||
' Log($"update bitacoragps set enviado = 1 where id = '${id(1)}'"$)
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Catch
|
||||
Log(LastException)
|
||||
End Try
|
||||
End If
|
||||
LogColor(">>>>> Job.Release Clientes - " & Job.Tag, Colors.RGB(179, 146, 0))
|
||||
Job.Release
|
||||
End Sub
|
||||
Reference in New Issue
Block a user