I am using Map (MainMap) on each line for CustomListView1 within the THSLT module. But I need to access CustomListView1 and Map (MainMap) content from the other module (ODM). As I read and understand in the forum, there is no direct access to the object. I hope the following example shows my problem. I would be glad if you help
'----------------------------------------------------------------------------------
module --> THSLT
MainMap.Put("Urun" , "ALBM")
MainMap.Put("UrunKod" , "1")
MainMap.Put("FisNo" , FisNo_)
MainMap.Put("Birim" , "Adet")
MainMap.Put("Miktar" , "1")
MainMap.Put("BarkodNo" , BarkodNo)
MainMap.Put("Grupad" , SiparisTur_ )
MainMap.Put("GrupKod" , "1")
MainMap.Put("Tutar" , TahsilEdilecek)
CustomListView1.Add(CreateListItem( MainMap.Get("Urun") , CustomListView1.AsView.Width, 110dip), 110dip, MainMap)
'----------------------------------------------------------------------------------
module --> ODM
Dim FisNo As String
Dim BarkodNo As String
For i = 0 To THSLT.CustomListView1.GetSize - 1
Dim Map As Map
Map.Initialize( )
Map = THSLT.CustomListView1.GetValue(i)
FisNo = Map.Get("FisNo")
BarkodNo = Map.Get("BarkodNo")
'----------
'I'll do SQL INSERT here.
'----------
Next
'---------------------------------------------------------------------------------
'----------------------------------------------------------------------------------
module --> THSLT
MainMap.Put("Urun" , "ALBM")
MainMap.Put("UrunKod" , "1")
MainMap.Put("FisNo" , FisNo_)
MainMap.Put("Birim" , "Adet")
MainMap.Put("Miktar" , "1")
MainMap.Put("BarkodNo" , BarkodNo)
MainMap.Put("Grupad" , SiparisTur_ )
MainMap.Put("GrupKod" , "1")
MainMap.Put("Tutar" , TahsilEdilecek)
CustomListView1.Add(CreateListItem( MainMap.Get("Urun") , CustomListView1.AsView.Width, 110dip), 110dip, MainMap)
'----------------------------------------------------------------------------------
module --> ODM
Dim FisNo As String
Dim BarkodNo As String
For i = 0 To THSLT.CustomListView1.GetSize - 1
Dim Map As Map
Map.Initialize( )
Map = THSLT.CustomListView1.GetValue(i)
FisNo = Map.Get("FisNo")
BarkodNo = Map.Get("BarkodNo")
'----------
'I'll do SQL INSERT here.
'----------
Next
'---------------------------------------------------------------------------------
Last edited: