Konu: vfp8 de çalışan vfp9 da sorun yaratıyor
arkadaşlar vfp8 de yıllardır kullanıyorum sorun yok ama vfp9 sorun yaşatıyor. aynı anda açık birkaç rapor dolaşmak. yani cari extre açıkken aynı anda stok extresi aynı anda sipariş listesi açık ve kullanıcı açık raporlarda dolaşırken oturum kaybetmemsi için vfp8 deki kodlarım aşağıdaki gibi ve sorunsuz çalışıyor. ama vfp9 da session kaybettiği için cursoru bulamayıp hata veriyor.
bazan Session number is invalid bazanda CursorName alias not found gibi mesaj veriyor vfp9
Formun DataSesion=2-Private Data Session
önizleme butonun click i:
local rapor
m.rapor="...\...\reportName"
REPORT form &rapor preview nowait
reportun Dataenvironment.CloseTables metodu
Set datasession to
reportun Dataenvironment.OpenTables metodu
Set datasession to (polib1.GetAllDs('FormName'))
IF used('CursorName')
SELE ('CursorName')
ENDIF
*-----------------------------------------*
Procedure GetAllDs()
*-----------------------------------------*
Lparam FormName
Dime taSessions[1]
Local lnCurDatasesion, lnSessions
lnSessions=0
For Each oForm In _Screen.Forms
If Ascan (taSessions, oForm.DataSessionId)=0
lnSessions=lnSessions+1
Dimension taSessions [lnSessions,2]
taSessions[lnSessions,1]=oForm.DataSessionId
taSessions[lnSessions,2]=oForm.Name
Endif
Endfor