Хочу корpeктно закрыть аппликацию.
Вот ето прочитал - http://osp.admin.tomsk.ru/dbms/1997/05_06/68.htm

Сделал все как в учебнике -

----> Globale declaration

n_cst_appmanager gnv_app

---->Open App

gnv_app = CREATE n_cst_appmanager
gnv_app.Event pfc_Open()


---->Button Close App

gnv_app.Event pfc_close()
DESTROY gnv_app

PB ругается - illegal data typa: n_cst_appmanager

Я думаю, что я ети PFC Library не подцепил.
Что я не так делаю?
_______________________________-
PB 8.02 NT4.0

PFC - в папке PFC куда заинсталировал билдер лежат.
А если при создании я библиотеки не прицепил, уже поздно?

c PFC - OK, спасибо Николаи,

У меня все одно осталась проблема с закрытием аппликации после вызова Crystal Reports через его API.

Ето так выглядит из ПБ - после вызова и закрытия окна Crystal Reports (он корректно отрабатывает) при попытке закрыть окно приложения или при закрытии самои аппликации, у меня Powerbuilder пишет о ошибке и все вываливается в винду.

Если я в етом месте CR не вызываю и так же закрываю, етого не происходит.
В чем может быть дело на ваш взгляд?

Я использую для старта и передачи параметров DLL от Srystal Reports

Стартую -

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

////************Prüfen, ob Report ausgewählt ist**************
if name_report = '' " then
messagebox("Problem","Kein report ausgewählt")
else

integer li_zaehler, errorcode
boolean lb_rcode
int result
integer li_rcode = 1
string ls_servername
integer li_parameter_anzahl
int textlength
long row
long bew_id
long bew_idd

str_logonInfo lstr_logoninfo
str_valueInfo lstr_einrichtung
str_valueInfo lstr_second
str_valueInfo lstr_ausfuehrender
str_parameterInfo lstr_parameter
str_windowoptions lstr_windowoptions

row = w_bewohner_test.getrow()

if row > 0 then
bew_id = w_bewohner_test.GetItemNumber(row, "person_per_pks_id_1")
messagebox("Bewohner ID", bew_id)
else
messagebox( "Fehler", "Bewohner ID nicht ausgewählt")
return
end if

lb_rcode = PEOpenEngine()
if lb_rcode = false then
messagebox("Ahtung","Crystal Report Schnittstelle konnte nicht geöffnet werden!")
else

job = PEOpenPrintJob(name_report)

if job = 0 then
messagebox("Problem","PEOpenPrintJob kann nicht geöffnet werden!")
messagebox("PEOpenPrintJob", PEGetErrorCode(job))
end if

lstr_LogOnInfo.StructSize = 514
lstr_LogOnInfo.servername = "***" + CHAR(0)
lstr_LogOnInfo.userID = "****" + CHAR(0)
lstr_LogOnInfo.password = "****" + CHAR(0)

li_rcode = PESetNthTableLogonInfo (job, 0, lstr_LogOnInfo, TRUE) // Verbindung aufbauen

if li_rcode <> 1 then
messagebox("Datenbank Verbindung","Keine Verbindung zur Datenbank. Wenden Sie sich an Ihren Datenbankadministrator!")
else
//messagebox("li_rcode - PESetNthTableLogonInfo", li_rcode)
end if

lb_rcode = PEDiscardSavedData (job)

// **********alle Parameter werden gesetzt**************

lstr_einrichtung.structsize = 316
lstr_einrichtung.vinumber = li_al_clientid //al_einrichtungs_id

lstr_second.structsize = 316
lstr_second.vinumber = bew_id //al_second_id

lstr_ausfuehrender.structsize = 316
lstr_ausfuehrender.vinumber = li_ausfuehrender_id


li_parameter_anzahl = PEGetNParameterFields(job) // Paramteranzahl im Report
lstr_parameter.structsize = 1438

for li_zaehler = 1 to li_parameter_anzahl
li_rcode = PEGetNthParameterField(job, li_zaehler - 1, lstr_parameter)
//*********************************

тут параметры отдаю в CR, кода много

//************ *******************II

Result = PEOutputToWindow(job, "Report", 0, 90, 800, 490, 16777216 , 0)
if result <> 1 then
messagebox("PEOutputToWindow", PEGetErrorCode(job))
end if

result = PEStartPrintJob (job, TRUE)
if result <> 1 then
messagebox("PEStartPrintJob", PEGetErrorCode(job))
end if

boolean success

success = PEClosePrintJob(job)
if success <> true then
messagebox("PEClosePrintJob", PEGetErrorCode(job))
end if

end if
end if

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Может конечно, я что-то криво делаю.(скорее все)

PB пишет ошибка в памяти по такому-то адресу.

Вот в етом куске я вываливаюсь -

(clicked)

integer li_aus
li_aus = MessageBox("PEPone", "Sind Sie sicher, dass Sie wirklich das Program verlassen wollen?", Exclamation!, OKCancel!, 2)
IF Net = 1 THEN
//ok
disconnect using sqlca ;
Open(w_ein)
Close(w_report_auswahl)
end if

дисконнект нормально отрабатывает, а вот дальше вылетаю.

вылетаю на дисконнекте
прописал GarbageCollect( ) - не помогает.

Если же я не вызываю Crystal Reports а просто закрываю ето окно.
Все нормально.

Я передвинул строчку с disconnect using sqlca ; в "опен" окна, которое открывается. В етом случае вываливаюсь уже из него.

вот скрин с ошибкои тут лежит, если в форуме картинки ни отображаются



http://www21.brinkster.com/sergeyschwarz/


<img src="http://www21.brinkster.com/sergeyschwarz/error.bmp" alt="" border="0">

если убрать Disconnect, то все работает.
То есть я вылогился, что б мне снова с другои базои или с етои же но под другим логином заити, должен я переконектится.
деваться то некуда.

Тут что-то связаное с Crystal Reports.

Если я Crystal Reports не вызываю , то все переключения между окнами и смена коннекта проходит нормально.

А что ты имеешь в виду под отдельной транзакцией?

Crystal Reports делает свой собственный коннект к базе через ODBC.

Победил.
Что было не знаю.
Експерементировал с ноВыми коннектами и дисконектами.
Ничего не помогало.
Потом потер все комментарии и о чудо!
Ошибка пропала!

И вот еще маленькии вопрос-

Я стартую из своеи аппликации процедуру на Oracle передаю еи параметры и получаю от нее.

Ето все работает, но при компиляции скрипта, где я ету процедуру вызываю, PB ругается, (но стартовать аппликацию дает), дескать процедура не продекларирована, хотя она у меня в локальных внещних описана.

Кто виноват и что делять?

да, Вот так описана -

function string func_chiffre_pin(string apin, string akey, long amode) RPCFUNC ALIAS FOR "PFLEGE_1.FUNC_CHIFFRE_PIN"

PFLEGE_1.FUNC_CHIFFRE_PIN - схема и имя процедуры соотв.


Пробовал во внещнии перетащить - не помогает.

Опять победил!
Выкинул ее декларацию нафиг из declare-->lokal


Оказывается ( для меня по краинеи мере ), что если я вот так вызываю из скрипта, то можно не декларировать совсем -


declare neu_chif_pin procedure for
PFLEGE_1.FUNC_CHIFFRE_PIN(:ls_pin, '5647', 1)
using sqlca;

execute neu_chif_pin;

fetch neu_chif_pin into :ls_chiffre_pin;
Close neu_chif_pin;


всем спасибо огромное за поддержку новичка.