Информационная система (ІНФОРМАЦІЙНА СИСТЕМА ОБЛІКУ І АНАЛІЗУ РОЗРАХУНКІВ З ПОСТАЧАЛЬНИКАМИ І ПІДРЯДНИКАМИ)

  • Добавили29.11.2002
  • Размер629,51 Kб
  • Скачали2412

do formclie RELEASE goApp PUBLIC goApp goAppCREATEOBJECTcApplication goapp. appsoft 0 goapp. level ll Configure application object.

otlbcreateobjecttlbs Otlb. Dock0 Додаток 22 продовження Otlb. Show goApp.

SetCaptionРахунок alltrimbasesrahs goApp. cStartupMenuMENUMENU. mpr do form f0 beforemm mm beforeyy yy 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 ErrorHandlernError,cMethod,nLine LOCAL lcErrorMsg,lcCodeLineMsg WAIT CLEAR lcErrorMsgMESSAGECHR13CHR13 lcErrorMsglcErrorMsgMethod cMethod lcCodeLineMsgMESSAGE1 IF BETWEENnLine,1,10000 AND NOT lcCodeLineMsg lcErrorMsglcErrorMsgCHR13Line ALLTRIMSTRnLine IF NOT EMPTYlcCodeLineMsg lcErrorMsglcErrorMsgCHR13lcCodeLineMsgch r13chr13Припинити роботу ENDIF ENDIF IF MESSAGEBOXlcErrorMsg,20,screen. Caption6 RETURN .

F. else QUIT ENDIF ENDFUNC FUNCTION ShutDown IF TYPEgoAppO AND NOT ISNULLgoApp RETURN goApp. OnShutDown ENDIF Cleanup QUIT ENDFUNC FUNCTION Cleanup IF CNTBARmsysmenu7 RETURN ENDIF ON ERROR ON SHUTDOWN SET CLASSLIB TO SET PATH TO Додаток 22 закнчення CLEAR ALL CLOSE ALL close table all close data all POP MENU msysmenu RETURN Додаток 23 p04 Сальдо на поточний перод на вказане число local nameorg, ends public fdata lday cdmmm,yy fdata ctodstrlday,2strmm,2stryy,4 do form getdata3 to ll if emptyll rele fdata retu endif set textmerge on set textmerge to t100004.

txt noshow set console off public br, ld, lk br basesrahs clrecv ifusedrecv clbases ifusedbases clsaldos ifusedsaldos clclients ifusedclunions nameorg recv. name if clrecv use in recv endif Вдбр даних по Д-ту вказаного рахунку та формування масиву вдповдних рахункв select from bases into table tdt1 where dt br and month mm and year yy order by codep select from tdt1 into table tdt where daten fdata order by codep public dime rds1 select distinct kt from tdt into array rds ld alenrds if ld 1 and emptyrds1 rds1 endif dime sdsld, zdsld store 0 to sds, zds .

Скачать
Диплом Иностранные языки 16.08.2002

Информационная система (ІНФОРМАЦІЙНА СИСТЕМА ОБЛІКУ І АНАЛІЗУ РОЗРАХУНКІВ З ПОСТАЧАЛЬНИКАМИ І...

Міністерство освіти і науки України Тернопільська академія народного господарства Інститут компютерних інформаційних технологій Кафедра моделювання та оптимізації економічних систем і процесів ІНформацІЙНА Система ОБЛІКУ І АНАЛІЗУ РозрахункІВ З Постачальниками

Реферат Геополитика 17.07.2007

Інформаційна політика США

УкоопспІЛКА ЛЬВІВська КомерцІЙНА АкадемІЯ Кафедра міжнародних економічних відносин Реферат НА ТЕМУ ІНформацІЙНА ПОЛІТИКА США Виконала Студентка факультету МЕВ 281 групи Данкова Наталія Перевірила Шайда О.Є. Львів - 2002 Зміст 1.Вступ 2.Роль держави в

Реферат Физика 07.09.2009

Нелінійна взаємодія електромагнітного випромінювання з діелектричними періодичними структурами

МІНІСтерство ОСВІТИ І Науки УКРАЇНИ ХАРКІВський НАЦІОнальний УНІВерситет РАДІОелектронІКИ Максимов Іван Сергійович УДК 537.876.23 Нелінійна взаємодія електромагнітного випромінювання з діелектричними періодичними структурами 01.04.03 – радіофізика Автореферат

Контрольная Информатика 19.06.2009

Організація науково-інформаційної діяльності

Організація науково-інформаційної діяльності” ЗМІСТ 1. Носії інформації 2. Складова модему 3. Організація телеконференцій 4. Основні функції інформаційних центрів Використана література 1. Носії інформації У всі часи та століття інформація мала велике значення і високу товарну ціну.

5ballov.qip.ru рекомендует:

  • Выбор ВУЗа

    С приходом лета начался период, когда выпускники школ выбирают куда пойдут учиться дальше. Конечно, это совсем не легкий выбор, но помочь в выборе может рейтинг вузов на нашем сайте. Также в этом разделе представлена вся нужная для абитуриентов информация.

  • Как сдать ЕГЭ

    Прежде, чем идти в выбранный вуз с документами, нужно сначала получить аттестат, который выдается после сдачи экзаменов. А подготовиться к ним можно в нашем разделе ЕГЭ. Там также представлены варианты за прошлые года.

  • Подготовка к ГИА

    Для девятиклассников не менее важно окончание учебного года. Их также ждет государственная итоговая аттестация. Подготовиться к ней можно на нашем сайте в разделе ГИА. Главное помнить: самоподготовка - это путь к успешной сдаче.

Облако тегов