No ciekawe co jest przyczyną takiego zachowania OnOpen() i OnTimer(). Tak jak pisałeś objawia się to w przypadku, kiedy działania w OnOpen nie zakończą się przed wywołaniem OnTimer.
Udało się ominąć tą niedogodność wywołując skrypt nie w OnOpen ale z przestrzeni poza jakąkolwiek procedurą.
Kod:
//"proctm.sc","Procedura OnTimer",12015,0,1.0.0,SYSTEM
//" Procedury",2400,14,62
#include "Mix-soft NBP - include"
AktualizujKursy()
int sub OnOpen()
OnOpen = 0
endsub
int sub OnTimer()
OnTimer = 0
endsub
int sub OnClose()
OnClose = 0
endsub
//" Procedury",2400,14,62
#include "Mix-soft NBP - include"
AktualizujKursy()
int sub OnOpen()
OnOpen = 0
endsub
int sub OnTimer()
OnTimer = 0
endsub
int sub OnClose()
OnClose = 0
endsub
Załączam cały projekt, który podczas tych testów zrobił się kompletnym rozwiązaniem.
Raport podczas wejścia do firmy sprawdza kursy wszystkich zdefiniowanych walut w programie w okresie od dzisiaj do 14 dni wstecz. Jeżeli napotka na brak kursu to go dodaje.
Nowością jest pobranie xml'a raz dla wszystkich walut co przyspiesza pracę.
Załącznik:
Piszcie jakby coś było nie tak.
Ale trzeba więcej klikać, bo program podpowiada walutę z daty dokumentu, a nie "z wczoraj" i szczerze mówiąc w większości przypadków wolałbym, żeby to program decydował jakiego kursu użyć, a nie operator. (Ciężko niektórym zrozumieć, że mimo iż program sam podpowiedział kurs, musi wybrać inny z listy - a jeszcze jak ma inny dla CIT i inny dla VAT to...)