cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-17 18:26:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

25/9/23 - Cambios en "Cliente" para en abordo

Browse Source 
- Se modifica cliente para que aparezca el boton de venta cuando esta fuera de la geocerca y el cliente es abordo.
- Se modifica "Producto" para que si ya se imprimió la venta, no permita borra productos del abordo.
This commit is contained in:
cheveguerra
2023-09-25 16:09:24 -06:00
parent 87950e2dba
commit cb5e599542
5 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/B4XMainPage.bas
View File

@@ -5,7 +5,7 @@ Type=Class
Version=9.85
@EndOfDesignText@
#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
'###########################################################################################################

2
B4A/C_Cliente.bas
View File

@@ -699,7 +699,7 @@ Sub GPS_LocationChanged (Location1 As Location)
gest.Visible = True
' gps_boton_doe ="1"
' LogColor($"Distancia actual: ${distance}"$, Colors.Blue)
If distance <= 5000000 Or usuario = "KMTSKLL1" Then
If distance <= 5000000 Or usuario = "KMTSKLL1" Or la_cuenta.Text = "0" Then
' If pgs_boton_noventa = "1" Then b_noVenta.Visible = True
' If gps_boton_doe ="1" Then b_whats.Visible = True
B_VENTA.Visible = True

2
B4A/C_Productos.bas
View File

@@ -890,7 +890,7 @@ Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object)
Log("lista prods="&list_prodsPedido.Get(Position))
Private m As Map = list_prodsPedido.Get(Position)
Log("m1= "&m)
If c.GetString("CUANTOS") = 0 Or Subs.clienteActual = "0" Then 'Si la venta no está impresa o es abordo entonces continuamos ...
If c.GetString("CUANTOS") = 0 Then 'Si la venta no está impresa o es abordo entonces continuamos ... 'Para que baordo pueda borra poner "Or Subs.clienteActual = "0""
Private sDate,sTime, clie_id, usuario As String
result = Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If result = DialogResponse.POSITIVE Then

2
B4A/KelloggsV4.b4a
View File

@@ -172,7 +172,7 @@ Version=12.5
#Region Project Attributes
#ApplicationLabel: Kelloggs Venta
#VersionCode: 3000
#VersionName: 3.09.19 PRUEBA V4
#VersionName: 3.09.24 PRUEBA V4
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#BridgeLogger:true

2
B4A/KelloggsV4.b4a.meta
View File

@@ -85,6 +85,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_Cliente,B4XPage_Created,299,0,C_Cliente,B4XPage_Appear,440,3,C_Cliente,B_IMP2_Click,1019,0,C_Cliente,B_IMP2BAK_Click,1494,0,C_Cliente,B_VENTA_Click,1919,0,C_Nota,B4XPage_Appear,93,0,C_Nota,borra_Click,193,6,C_Nota,clv_pedidos_ItemLongClick,360,6,C_Nota,Class_Globals,1,0,C_Mapas,Class_Globals,0,0,C_Pedidos,Class_Globals,4,0
NavigationStack=C_Pedidos,Class_Globals,4,0,C_Cliente,Class_Globals,0,0,C_Cliente,B4XPage_Created,281,0,C_Cliente,Initialize,278,0,C_Cliente,B_VENTA_Click,1918,0,C_Cliente,B4XPage_Appear,452,0,Visual Designer,cliente.bal,-100,2,C_Cliente,ListView1_ItemLongClick,708,0,C_Cliente,GPS_LocationChanged,695,5,C_Productos,lv_prodsPedido_ItemLongClick,886,6,C_Productos,clv_prods_ll_VisibleRangeChanged,1030,0
SelectedBuild=0
VisibleModules=1,26,11,14,27,3,4,13,12,2,10