Інформаційна система обліку і аналізу розрахунків з постачальниками і підрядниками, Детальна інформація

Інформаційна система обліку і аналізу розрахунків з постачальниками і підрядниками

Тип документу: Дипломна

Сторінок: 56

Предмет: Комп`ютерні науки

Автор: Холяко Олексій

Розмір: 215.1

Скачувань: 3197

31 32 33 34 35 36 37 38 39 40 41

*-- Show application.

goApp.Show

*-- Release application.

RELEASE goApp, otlb

*-- Restore default menu.

POP MENU _msysmenu

*-- Restore environment.

close table all

close data all

ON ERROR

ON SHUTDOWN

RETURN

*******************************************

FUNCTION ErrorHandler(nError,cMethod,nLine)

LOCAL lcErrorMsg,lcCodeLineMsg

WAIT CLEAR

lcErrorMsg=MESSAGE()+CHR(13)+CHR(13)

lcErrorMsg=lcErrorMsg+"Method: "+cMethod

lcCodeLineMsg=MESSAGE(1)

IF BETWEEN(nLine,1,10000) AND NOT lcCodeLineMsg="..."

lcErrorMsg=lcErrorMsg+CHR(13)+"Line: "+ALLTRIM(STR(nLine))

IF NOT EMPTY(lcCodeLineMsg)

lcErrorMsg=lcErrorMsg+CHR(13)+lcCodeLineMsg+chr(13)+chr(13)+'Припинити роботу?..'

ENDIF

ENDIF

IF MESSAGEBOX(lcErrorMsg,20,_screen.Caption)#6

RETURN .F.

else

QUIT

ENDIF

31 32 33 34 35 36 37 38 39 40 41

The online video editor trusted by teams to make professional video in minutes