cheveguerra/ADM
1
0
Fork 0
mirror of https://github.com/KeymonSoft/ADM.git synced 2026-04-20 04:39:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.08.26

Browse Source 
- [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:
Jose Alberto Guerra Ugalde
2025-08-27 12:27:07 -06:00
parent 7c53a089fb
commit 14b6e9f067
15 changed files with 1410 additions and 733 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
B4A/C_Cliente.bas
View File

@@ -86,7 +86,7 @@ Sub Class_Globals
Private META2 As String
Private VERIFICA As String
Private L_QR As Label
dim BT_QR As Button
Dim BT_QR As Button
'Private qr As QRCode
Dim CODIGO As String
@@ -280,8 +280,6 @@ Sub B4XPage_Appear
Tels.Visible = False
gest.Visible = False
b_ventaabordo.Visible = False
p_camara.Height = Root.Height
p_camara.Width = Root.Width
p_tipopago.Height = Root.Height
p_tipopago.Width = Root.Width
banderaimp = 0
@@ -480,7 +478,7 @@ Sub B4XPage_Appear
camEx.Release
End If
InitializeCamera
if venimosDeTicketsDia then Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, ALMACEN, Subs.traeRuta, "Cliente desde TicketsDia", "", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, "2", "", "", $"Cliente:${la_cuenta.text}"$)
If venimosDeTicketsDia Then Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, ALMACEN, Subs.traeRuta, "Cliente desde TicketsDia", "", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, "2", "", "", $"Cliente:${la_cuenta.text}"$)
End Sub
Sub GPS_LocationChanged (Location1 As Location)
@@ -2783,7 +2781,6 @@ Sub Camera1_Ready (Success As Boolean)
End If
End Sub
Sub Camera1_PictureTaken (Data() As Byte)
If b_foto_inci.Text = "Foto tienda" Then
DateTime.DateFormat="ddMMyyyyHHmmss"
@@ -2798,7 +2795,7 @@ Sub Camera1_PictureTaken (Data() As Byte)
Dim Dir2 As String
Try
File.MakeDir(Dirp,"/adm")
dir = "/amd"
dir = "/adm"
Log("creado en promotoria " & Dirp & dir)
Catch
dir = ""
@@ -2842,7 +2839,7 @@ Sub Camera1_PictureTaken (Data() As Byte)
Dim Dir2 As String
Try
File.MakeDir(Dirp,"/adm")
dir = "/amd"
dir = "/adm"
Log("creado en promotoria " & Dirp & dir)
Catch
dir = ""
@@ -2885,7 +2882,6 @@ Sub Camera1_PictureTaken (Data() As Byte)
End If
End Sub
Sub ChangeCamera_Click
camEx.Release
frontCamera = Not(frontCamera)
@@ -2899,7 +2895,6 @@ Private Sub StopCamera
End If
End Sub
Private Sub p_camara_Click
End Sub