15/9/23 - Codigo de prueba en C_Subs

Código de prueba para hacer un DBRequest desde una clase y "tratar" de simplificar algunas funciones.

B4A/C_Promos.bas

@@ -4,7 +4,7 @@ ModulesStructureVersion=1
 Type=Class
 Version=11.5
 @EndOfDesignText@
-Sub Mods
+Sub Mods 'ignore
 	'20230526 - Se cambió en b_terminar_click y b_continuar_click la funcion "guardaProducto" por "guardaProductoSinGestion", para que no ponga que ya esta guardada la orden y no deje borrar productos.
 End Sub
 
@@ -44,8 +44,8 @@ Sub Class_Globals
 	Private b_continuar As Button
 	Private p_prodsVariables As Panel
 	Dim laPromo = "", elCliente = "" As String
-	Dim prodsPedidoActual As String
-	Dim montoPedidoActual As String
+	Dim prodsPedidoActual As String 'ignore
+	Dim montoPedidoActual As String 'ignore
 	Dim promosMap As Map
 End Sub
 
@@ -155,8 +155,8 @@ Sub muestraPromo(promo As String, cliente As String)
 '		jpeg = c2.GetBlob("CAT_GP_IMG")
 '		ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
 '		bmp.Initialize2(ins)
-			Private indicePV = pv.IndexOf(p)
-			Private estePrecio = listaPreciosPV.Get(indicePV)
+			Private indicePV As String = pv.IndexOf(p)
+			Private estePrecio as string = listaPreciosPV.Get(indicePV)
 			Private thisProd As Map = prodsPromo.Get(p)
 			If thisLog Then Log(thisProd)
 			clv_prodsVariabes.Add(CreateListItem(Subs.traeProdNombre(p)&CRLF&"Hay " & invDispPromo.Get(p) & " $" & estePrecio, estePrecio, invDispPromo.Get(p), clv_prodsVariabes.AsView.Width, 50dip, Null, p), p)
@@ -426,7 +426,7 @@ Private Sub b_continuar_Click
 	lv_prodsFijos.Clear
 '	Activity_KeyPress(KeyCodes.KEYCODE_BACK)
 '	CallSubDelayed2(productos, "Activity_KeyPress", KeyCodes.KEYCODE_BACK)
-	Private prodspage As C_Productos
+	Private prodspage As C_Productos 'ignore
 	If prodspage.IsInitialized Then
 		prodspage.lv_catalogos.Visible = True
 		prodspage.lv_promos.Visible = False