Commit 2 ...

This commit is contained in:
2025-11-28 11:59:14 -06:00
parent 344fb8f2f1
commit c21ad8a6ff
5 changed files with 988 additions and 66 deletions

View File

@@ -3018,7 +3018,7 @@ Private Sub p_giro_Click
End Sub End Sub
Private Sub Button1_Click Private Sub Button1_Click
B4XPages.MainPage.tipo_venta = "ABORDO" B4XPages.MainPage.tipo_venta = "DEVOLUCION"
B4XPages.ShowPage("Productosdev") B4XPages.ShowPage("Productosdev")
' B4XPages.ShowPage("Productos") ' B4XPages.ShowPage("Productos")

View File

@@ -105,7 +105,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1 Root = Root1
'load the layout to Root 'load the layout to Root
' Activity.RemoveAllViews ' Activity.RemoveAllViews
Root.LoadLayout("productos") Root.LoadLayout("productosdev")
ruta = File.DirInternal ruta = File.DirInternal
If File.Exists(ruta, "kmt.db") = False Then If File.Exists(ruta, "kmt.db") = False Then
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db") File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
@@ -244,7 +244,7 @@ Sub B4XPage_Appear
montoPedidoActual = m.Get("monto") montoPedidoActual = m.Get("monto")
hayPedido = Subs.hayPedido hayPedido = Subs.hayPedido
' LogColor("Pedido ant? - "&hayPedido, Colors.Magenta) ' LogColor("Pedido ant? - "&hayPedido, Colors.Magenta)
B4XPages.MainPage.productos.clv_prods_ll.Clear B4XPages.MainPage.productosdev.clv_prods_ll.Clear
If reiniciarlistaProds Then If reiniciarlistaProds Then
' Log("Llamamos LlenaProdsLL") ' Log("Llamamos LlenaProdsLL")
' LlenaProdsLL(Null) ' LlenaProdsLL(Null)

BIN
B4A/Files/productosdev.bal Normal file

Binary file not shown.

1042
B4A/TG.b4a

File diff suppressed because it is too large Load Diff

View File

@@ -71,7 +71,7 @@ ModuleClosedNodes11=
ModuleClosedNodes12= ModuleClosedNodes12=
ModuleClosedNodes13= ModuleClosedNodes13=
ModuleClosedNodes14= ModuleClosedNodes14=
ModuleClosedNodes15= ModuleClosedNodes15=1,3
ModuleClosedNodes16= ModuleClosedNodes16=
ModuleClosedNodes17= ModuleClosedNodes17=
ModuleClosedNodes18= ModuleClosedNodes18=
@@ -91,12 +91,12 @@ ModuleClosedNodes3=
ModuleClosedNodes30= ModuleClosedNodes30=
ModuleClosedNodes31= ModuleClosedNodes31=
ModuleClosedNodes32= ModuleClosedNodes32=
ModuleClosedNodes4= ModuleClosedNodes4=2
ModuleClosedNodes5= ModuleClosedNodes5=
ModuleClosedNodes6= ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=C_Cliente,gest_Click,605,0,C_Cliente,cb_giro_SelectedIndexChanged,3006,0,C_Productos,Class_Globals,0,0,C_Productosdev,Class_Globals,0,0,C_Productosdev,LlenaProdsLL,1548,0,C_Cliente,Button1_Click,3017,4,C_Productosdev,B4XPage_Appear,140,2,C_Productosdev,B4XPage_Created,101,0,Diseñador Visual,cliente.bal,-100,1,B4XMainPage,B4XPage_Created,147,0,Diseñador Visual,productos.bal,-100,1 NavigationStack=B4XMainPage,B4XPage_Created,147,0,Main,Globals,23,0,Main,Process_Globals,20,0,C_Productosdev,Class_Globals,0,0,Diseñador Visual,productos.bal,-100,2,Diseñador Visual,productosdev.bal,-100,1,C_Cliente,MODS,0,0,C_Cliente,Button1_Click,3014,1,C_Productosdev,B4XPage_Created,137,0,C_Productosdev,B4XPage_Appear,141,2
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,2,3,4,31,15,14 VisibleModules=1,2,3,4,31,15,14