diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index e743087..551d94c 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -1103,7 +1103,7 @@ Sub l_prodX_Click i.Position = 0 abordo = i.GetString("CAT_GP_ALMACEN") 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) l_info.BringToFront l_info.Visible = True @@ -1299,9 +1299,11 @@ Sub LlenaProdsLL(p As ResultSet, extra As String) Private invAbordo As Int = 0 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")}'"$) +' Log($"select CAT_GP_ALMACEN from CAT_GUNAPROD2 where CAT_GP_ID = '${p.GetString("CAT_GP_ID")}'"$) If ab.RowCount > 0 Then ab.Position = 0 invAbordo = ab.GetString("CAT_GP_ALMACEN") +' Log(invAbordo) End If End If @@ -1328,7 +1330,7 @@ Sub LlenaProdsLL(p As ResultSet, extra As String) listaProdsConCant.Initialize listaProdsConCantIndex.Initialize listaHints.Initialize -' Log(listaProds) + Log(listaProds) 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 ' Log(listaProds.Get(q).As(Map).Get("cant")) diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a index ec4e55c..4647daf 100644 --- a/B4A/KelloggsV4.b4a +++ b/B4A/KelloggsV4.b4a @@ -869,7 +869,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Kelloggs Venta #VersionCode: 3000 - #VersionName: 4.05.04 + #VersionName: 4.05.05 #SupportedOrientations: portrait #CanInstallToExternalStorage: False #BridgeLogger:true diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index 3541f31..8ba3c78 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -88,6 +88,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= 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 VisibleModules=1,27,11,3,12,4,28,17,23,29,7