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

- Se agregó el ID del producto a la informacion que aparece cuando se hace clic en un producto

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-06 22:22:00 -06:00
parent 5201decaed
commit 7cc0c8bcff
3 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Productos.bas
View File

@@ -1103,7 +1103,7 @@ Sub l_prodX_Click
i.Position = 0 i.Position = 0
abordo = i.GetString("CAT_GP_ALMACEN") abordo = i.GetString("CAT_GP_ALMACEN")
End If End If
l_info.Text = Sender.as(Label).text & CRLF & $"Inv. abordo: ${abordo}"$ l_info.Text = $"ID: ${Sender.as(Label).tag}${CRLF}"$ & Sender.as(Label).text & CRLF & $"Inv. abordo: ${abordo}"$
Log(Sender.as(Label).tag) Log(Sender.as(Label).tag)
l_info.BringToFront l_info.BringToFront
l_info.Visible = True l_info.Visible = True
@@ -1299,9 +1299,11 @@ Sub LlenaProdsLL(p As ResultSet, extra As String)
Private invAbordo As Int = 0 Private invAbordo As Int = 0
If Starter.tipov = "ABORDO" Then 'Traemos en inventario de abordo If Starter.tipov = "ABORDO" Then 'Traemos en inventario de abordo
Private ab As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from CAT_GUNAPROD2 where CAT_GP_ID = '${p.GetString("CAT_GP_ID")}'"$) Private ab As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from CAT_GUNAPROD2 where CAT_GP_ID = '${p.GetString("CAT_GP_ID")}'"$)
' Log($"select CAT_GP_ALMACEN from CAT_GUNAPROD2 where CAT_GP_ID = '${p.GetString("CAT_GP_ID")}'"$)
If ab.RowCount > 0 Then If ab.RowCount > 0 Then
ab.Position = 0 ab.Position = 0
invAbordo = ab.GetString("CAT_GP_ALMACEN") invAbordo = ab.GetString("CAT_GP_ALMACEN")
' Log(invAbordo)
End If End If
End If End If
@@ -1328,7 +1330,7 @@ Sub LlenaProdsLL(p As ResultSet, extra As String)
listaProdsConCant.Initialize listaProdsConCant.Initialize
listaProdsConCantIndex.Initialize listaProdsConCantIndex.Initialize
listaHints.Initialize listaHints.Initialize
' Log(listaProds) Log(listaProds)
For q = 0 To listaProds.Size - 1' Sacamos los productos con cantidad previa. For q = 0 To listaProds.Size - 1' Sacamos los productos con cantidad previa.
If listaProds.Get(q).As(Map).Get("cant").As(Int) <> 0 Then If listaProds.Get(q).As(Map).Get("cant").As(Int) <> 0 Then
' Log(listaProds.Get(q).As(Map).Get("cant")) ' Log(listaProds.Get(q).As(Map).Get("cant"))

2
B4A/KelloggsV4.b4a
View File

@@ -869,7 +869,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Kelloggs Venta #ApplicationLabel: Kelloggs Venta
#VersionCode: 3000 #VersionCode: 3000
#VersionName: 4.05.04 #VersionName: 4.05.05
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False
#BridgeLogger:true #BridgeLogger:true

2
B4A/KelloggsV4.b4a.meta
View File

@@ -88,6 +88,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=kms_helperSubs,etiquetaCentrada,574,0,Main,Process_Globals,22,0,Visual Designer,cliente.bal,-100,1,Visual Designer,pedidoItem.bal,-100,1,C_Productos,LlenaProdsLL,1315,3,C_Productos,clv_prods_ll_VisibleRangeChanged,1170,6,C_Productos,cuentaProds,809,6,C_Productos,et_pCant_TextChanged,755,0,C_Productos,b_prodMas_Click,670,6,Subs,actualizaProducto,960,0 NavigationStack=kms_helperSubs,etiquetaCentrada,574,0,Main,Process_Globals,22,0,Visual Designer,cliente.bal,-100,1,Visual Designer,pedidoItem.bal,-100,1,C_Productos,clv_prods_ll_VisibleRangeChanged,1170,6,C_Productos,cuentaProds,809,6,C_Productos,et_pCant_TextChanged,755,0,C_Cliente,B_IMP2_Click,1087,0,C_Productos,b_prodMas_Click,670,6,C_Productos,LlenaProdsLL,1295,6,C_Principal,B_OK_PAS_Click,2223,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,27,11,3,12,4,28,17,23,29,7 VisibleModules=1,27,11,3,12,4,28,17,23,29,7