Android Question No access the properties of my class

[osdiarte]

I can't access the properties (cliCod as Int and cliClon as Int) of my "ClienteTarjeta" class to which I load a layout "ClienteCard2"

'Custom View class
#Event: ExampleEvent (Value As Int)
#DesignerProperty: Key: BooleanExample, DisplayName: Boolean Example, FieldType: Boolean, DefaultValue: True, Description: Example of a boolean property.
#DesignerProperty: Key: cliClon, DisplayName: Clonado veces, FieldType: Int, DefaultValue: 0, MinRange: 0, MaxRange: 100, Description: esta propiedad representa las veces que se clono o replico un cliente. Mas usado para agregar un nuevo cliente Ocasional(1) y poder replicarlo para otros
#DesignerProperty: Key: cliCod, DisplayName: Codigo del cliente, FieldType: Int, DefaultValue: 0, MinRange: 0, MaxRange: 100, Description: Código del Cliente

Sub Class_Globals
    Private mEventName As String 'ignore
    Private mCallBack As Object 'ignore
    Private mBase As Panel 'B4XView 'Panel
    'Private Const DefaultColorConstant As Int = -984833 'ignore
    
    'Private ShapeCli As Panel ' As B4XView ' No es necesario definirlo, al parecer se define cada vez que se va agregar
    Private lbconcre,lbruc,lbnom,lbmonto,lbcod,lbclon,lbdir,lbmeta,lbprop As Label ' lbconcre,
    Private lbResumCli As Label
    Private lbResumTot As Label
    Private lblAction1 As Label

    Public cliClon As Int = 0
    Public cliCod As Int =0

End Sub

Public Sub Initialize (Callback As Object, EventName As String ,fichaCliente As Map)
    mEventName = EventName
    mCallBack = Callback
End Sub

Public Sub DesignerCreateView (ShapeCli As Panel ,curClientes As Map, Props As Map)
    mBase = ShapeCli
    Sleep(0)
    mBase.LoadLayout("ClienteCard2")
    
    cliClon = curClientes.Get("cli_clon")
    cliCod  = curClientes.Get("cli_codigo")

    Dim xConCre As Int = curClientes.Get("cli_concre")
    If xConCre=2 Then
        lbconcre.Text = "CR"
    Else
        lbconcre.Text = "CO"
    End If

    lbnom.Text = curClientes.Get("cli_descri")

    If curClientes.Get("cli_contacto")<>Null Then
        lbprop.Text = curClientes.Get("cli_contacto")
    Else
        lbprop.Text = ""
    End If

    If curClientes.Get("cli_ruc")<>Null Then
        lbruc.Text = "RUC:" & curClientes.Get("cli_ruc")
    Else
        lbruc.Text = "RUC:?"
    End If

    Dim elmonto As Double =curClientes.Get("total")
    lbmonto.Text = NumberFormat2(elmonto,0,0,0,False) ' xPriceDigDecimal,xPriceDigDecimal,False)

    lbdir.Text = curClientes.Get("cli_direcc")
    '
    mBase.Tag = Me ' " soy el tag de ClienteTarjeta"
    
End Sub

Public Sub GetBase As Panel
    Return mBase
End Sub

When I receive click the view LblAction1 I want to access all the data of that card, both the views and the custom properties that I added. I already managed to access the views by GetView () but I can't access the properties of my class. What am I doing wrong?

Sub lblAction1_Click
    Dim index As Int = CLVrutacli.GetItemFromView(Sender)
    Log($"Action 1 clicked. Index: ${index}"$)
    
    Dim pnlItem As B4XView = CLVrutacli.GetPanel(index)  ' Reproduce el objeta tarjetaCliente seleccionado
    Log("pnlItem:" & pnlItem.NumberOfViews &" vistas")
    Dim tarjeta As B4XView = pnlItem.GetView(0)
    Log("Vistas de tarjeta:" & tarjeta.NumberOfViews)
    Dim iLblnom As Label = tarjeta.GetView(1) ' 0:lbconcre 1:lbnom 2:lbruc 3:lbprop 4:lbdir 5:lbmonto 6:lblAction1
    Log("Nombre:" & iLblnom.Text)
    Log("Parent:" & iLblnom.Parent)
    
    Log("panel.tag")
    Log(pnlItem.Tag)
    
    Log("tarjeta.tag")
    Log(tarjeta.Tag)

    Dim tarjeta2 As ClienteTarjeta = pnlItem.GetView(0)
    Log("tarjeta2")
    Log(tarjeta2.cliCod)

End Sub

Sub lblAction1_Click
    Dim index As Int = CLVrutacli.GetItemFromView(Sender)
    Log($"Action 1 clicked. Index: ${index}"$)
    
    Dim pnlItem As B4XView = CLVrutacli.GetPanel(index)  ' Reproduce el objeta tarjetaCliente seleccionado
    Log("pnlItem:" & pnlItem.NumberOfViews &" vistas")
    Dim tarjeta As B4XView = pnlItem.GetView(0)
    Log("Vistas de tarjeta:" & tarjeta.NumberOfViews)
    Dim iLblnom As Label = tarjeta.GetView(1) ' 0:lbconcre 1:lbnom 2:lbruc 3:lbprop 4:lbdir 5:lbmonto 6:lblAction1
    Log("Nombre:" & iLblnom.Text)
    Log("Parent:" & iLblnom.Parent)
    
    Log("panel.tag")
    Log(pnlItem.Tag)
    
    Log("tarjeta.tag")
    Log(tarjeta.Tag)

    Dim tarjeta2 As ClienteTarjeta = pnlItem.GetView(0)
    Log("tarjeta2")
    Log(tarjeta2.cliCod)

End Sub

Cuando click obtengo este error :

 

[DonManfred]

I can't access the properties (cliCod as Int and cliClon as Int) of my "ClienteTarjeta" class to which I load a layout "ClienteCard2"

Upload a small project showing the problem.

 

[LucaMs]

I have not downloaded your files, sorry.

The first things I would do are:

1 - create real properties (set & get Subs) instead of public variables;
2 - check the order (index) of the Views that make up your custom view.

 

[klaus]

How did you generate the CustomView ?
Because this line ist strange!

Public Sub Initialize (Callback As Object, EventName As String ,fichaCliente As Map)

When you create a new CustomView(XUI) you get this:

Public Sub DesignerCreateView (Base As Object, Lbl As Label, Props As Map)

The properties are in the Props Map.
Therefor you should get then with:

   cliClon = Props.Get("cliCllon")
   cliCod  = Props.Get("cliClodigo")

And not:

   cliClon = curClientes.Get("cli_clon")
   cliCod  = curClientes.Get("cli_codigo")

Then the keys in DesignerProperty you set the keys to cliClon and cliCod

#DesignerProperty: Key: cliClon, DisplayName: Clonado veces, FieldType: Int, DefaultValue: 0, MinRange: 0, MaxRange: 100, Description: esta propiedad representa las veces que se clono o replico un cliente. Mas usado para agregar un nuevo cliente Ocasional(1) y poder replicarlo para otros
#DesignerProperty: Key: cliCod, DisplayName: Codigo del cliente, FieldType: Int, DefaultValue: 0, MinRange: 0, MaxRange: 100, Description: Código del Cliente

And you try to read them with other keys: cli_clon and cli_codigo why?

When you develop CustomViews you should not modify these two Sub calls, leave them as they are :

Public Sub Initialize (Callback As Object, EventName As String)
Public Sub DesignerCreateView (Base As Object, Lbl As Label, Props As Map)

You may have a look at the B4X Custom views booklet.

 

[osdiarte]

Thanks for answering.
I corrected the errors that were indicated to me. I followed the manual B4X Custom views booklet and applied them.
Create a small project and upload it here.
Now I have error this error java.lang.RuntimeException: Object should first be initialized (Label).. It seems that my class does not link with my layout because it asks me to initialize the views.

 

[klaus]

I have begun to look at your project.
But it needs more time. I will continue tomorrow, I have to leave my home now.

 

[klaus]

Here you are.
There were quite some mistakes in your code.
I did not see the CustonListView on the screen, tested to add other panels but nothing on the screen.
Then I removed the CustonListView from the layout and added a new one, and then it was displayed on the screen, I do not know why.
Then I made modifications in the code and in the layouts.

Your approach of the problem seems very complicated to me.
Why do you use a CustomView for the entries in the CustonListView ?
Why do you use an intermediate Map to transfer the data ?
I would do all this, generating the views of the entry and fill their data, directly in the code where you fill the CustomView.

When you upload a project you should use Export As Zip in the File menu instead of zipping the project files and the Files folder separately.

Attached a modified project.

 

[osdiarte]

Thanks Klaus and everyone who collaborated.
I adapted your example to my project and it worked.
I'm experimenting to use the maintainability that a class gives you combined with layout for ease of design, too. With the properties that I add to the class, it helps me avoid using Lists.
I prefer to pass Map as an argument because if I need to pass more data from the client, I add it without having to modify the class code.