все что связано с моей работой
Главная » Програмирование » Карта процедур “Доп. расшифровки”

Карта процедур “Доп. расшифровки”

Список всех процедур и функций из программы, вытащил grep-ом. Это не детальное описание, а просто бегло просмотрел, чтоб иметь под рукой. Где были комментарии использовал их, но и код тоже везде, хоть чуть-чуть посмотрел. Описаны только ключевые моменты, подробная реализация не интересовала, только логика.

Вообще немного сложно было, после ООП смотреть на процедурный код и следить за кучей глобальных переменных.

Думаю в процессе описание возможно будет меняться, если потребуется более детально посмотреть в код.

  • proc otkr(pr_ind)

    фильтрует список форм, если квартал<>0 то показывает только месячные формы
    грузит mbud->2, mokrug->3, mpos->6

  • proc Scrin

    очищает экран и пишет внизу "отчет на 1-е" mm1, svodgd1

  • func vform (XX,YY,ZZ)

    xx&yy координаты окна,zz — цвет
    формирует меню из mform.dbf (sele 11) после выбора формирует и открывает базы:
    sele 1 -> i_file = база данных отчета
    sv_file = база свода для выбранноого отчета
    p_z = поле признака … ‘p_z’+allt(kform)
    p_kon = поле признака …. ‘p_kon’+allt(kform)
    sele 4 -> s_soot = база шаблона
    sele 5 -> v_k = база формул контроля
    возвращает код выбранной формы

  • proc nastr(oblspr)

    проверяет наличие кодов территорий/поселений/подвед. и если находит то у территории проставляет * в соответствующем признаке p_z

  • proc obr(n_er,i_pr)

    обработка ошибок печати

  • proc vvod(mpopup)

    mpopup — код отчета
    выводит окно с выбором поселений/подвед. и признаками, вызов orbab(1,mpopup) для всех кроме "консолидир.бюджет" (9) с для mpopup=1, для последнего obrabsv(1)

  • proc obrabsv(obl)

    просмотр/редактирование свода
    выбор формы, установка клавиш (o_keysv), вывод свода для формы 1:

    ssoot.nam1:’Наименование’, ko:’Код отчет.’, p1’5.Годовые назн.’, p2:’6.Кассовое исп.’,p3:’7.Годовые назн.’,p4:’8.Кассовое исп.’;

    форма 2:

    ssoot.nam1:’Наименование’,ko:’Код ‘,p1:’5.Фед.Год.назн. ‘, p2:’6.Фед.Кас.испол.’,p3:’7.Обл.Год.назн. ‘,p4:’8.Обл.Кас.испол.’, p5:’9.Мес.Год.назн. ‘,p6:’10.Мес.Кас.испол.’;

    форма 3:

    ssoot.nam1:’Наименование программы’,iif(ssoot.vid=1,’мун’,iif(ssoot.vid=2,’рег’,’ ‘)):’Вид’, ko:’Код ‘,p1:’5.Фед.Год.назн. ‘,p2:’6.Фед.Кас.испол.’,p3:’7.Обл.Год.назн. ‘p4:’8.Обл.Кас.испол.’, p5:’9.Мес.Год.назн. ‘,p6:’10.Мес.Кас.испол.’;

    форма 4:

    ssoot.nam1:’Наименование’,ko:’Код’,p1:’1.КЗ всего ‘,p2:’2.КЗ просрочен.’, p3:’3.ДЗ всего ‘,p4:’4.ДЗ просрочен.’,p5:’5.Долг.об.всего’,p6:’6.Долг.просроч.’, p7:’7.Кред.кред.орг’,p38=iif(p8=0,’ ‘,str(p8,15,2)):h=’8.Кред.просроч.’, p9:’9.Бюджетн.кред.’,p10:’10.Бюдж.просроч.’, p11:’11.Поручительст.’, p12:’12.Поруч.проср. ‘, p13:’13.Иные долговые’,p14:’14.Иные просроч.’

    форма 5:

    ssoot.nam1:’Наименование’, ko:’Код’,p1:’1.КЗ всего ‘,p2:’2.КЗ просрочен.’,p3:’3.ДЗ всего ‘,p4:’4.ДЗ просрочен.’, p5:’5.КЗ всего ‘,p6:’6.КЗ просрочен.’,p7:’7.ДЗ всего ‘,p8:’8.ДЗ просрочен.’;

  • proc obrab(obl,mpos)

    просмотр/редактирование отчета
    выбор формы, установка клавиш (o_key),
    форма 1:

    для не поселений:

    ssoot.nam1:’Наименование’,ko:’Код отчет.’,p1:’5.Годовые назн ‘,p2:’6.Кассов.испол.’;

    для поселений:

    ssoot.nam1:’Наименование’,ko:’Код отчет.’,p3:’7.Годовые назн ‘,p4:’8.Кассов.испол.’;

    форма 2:

    ssoot.nam1:’Наименование’,ko:’Код ‘,p1:’5.Фед.Год.назн. ‘,p2:’6.Фед.Кас.испол.’,
    p3:’7.Обл.Год.назн. ‘p4:’8.Обл.Кас.испол.’,p5:’9.Мес.Год.назн. ‘,p6:’10.Мес.Кас.испол.’

    форма 3:

    ssoot.nam1:’Наименование программы’, iif(ssoot.vid=1,’мун’,iif(ssoot.vid=2,’рег’,’ ‘)):’Вид’,
    iif(empt(ssoot.kos),ssoot.ko,ssoot.kos):’Код ‘,
    p1:’5.Фед.Год.назн. ‘,p2:’6.Фед.Кас.испол.’,p3:’7.Обл.Год.назн. ‘,p4:’8.Обл.Кас.испол.’,
    p5:’9.Мес.Год.назн. ‘,p6:’10.Мес.Кас.испол.’

    форма 4:

    ko:’Код ‘,p1:’3.КЗ всего ‘,p2:’4.КЗ проср. ‘,p3:’5.ДЗ всего ‘,
    p4:’6.ДЗ проср. ‘,p5:’7.Долг.об. ‘,p6:’8.Долг.пр. ‘,p7:’9.Кред.кред.орг’,
    p8:’10.Кред.просроч’,p9:’11.Бюджетн.кред’, p10:’12.Бюдж.просроч.’, p11:’13.Поручительст.’,
    p12:’14.Поруч.проср. ‘,p13:’15.Иные долговые’,p14:’16.Иные просроч.’

    форма 5 или 6:

    для не поселений:

    ssoot.nam1:’Наименов.’,ko:’Код ‘,p1:’3.КЗ всего ‘,p2:’4.КЗ просрочен.’,p3:’5.ДЗ всего ‘, p4:’6.ДЗ просрочен.’

    для поселений:

    ltrim(ssoot.nam1):’Наименов.’,ko:’Код ‘,p5:’7.КЗ всего ‘,p6:’8.КЗ просрочен.’,p7:’9.ДЗ всего ‘,p8:’10.ДЗ просрочен’

  • proc o_keysv

    определяет клавиши при редактировании свода:
    f1->poisksv, f2->korsv(0), f3->korsv(1), f7->pech_mo(‘o_keysv’),
    f5->kontr(1,’o_keysv’), f6->itogi(‘o_keysv’)

  • proc o_key

    определяет клавиши при редактировании отчета:
    f1->poisk, f2->kor, f7->pech_mo(‘o_key’),f5->kontr(1,’o_key’),f6->itogi(‘o_key’)
    для форм 2-4 f3->v_strok
    для всех остальных enter->v_strok, а f3 очищается

  • proc korsv(vvod)

    корректировка значений при вводе отчета
    плюс некоторые проверки на правильность ввода значений

  • proc v_strok

    ввод новых строк в отчете
    для формы 1 — v_strok_1, для 2й и 3й — v_strok_23, для 4й — v_strok_4, для 5-ой и 6-ой — v_strok_56
    proc v_strok_1
    proc v_strok_23
    proc v_strok_4
    proc v_strok_56

  • proc kor

    корректировка
    для формы 1 — kor_1, для 2й и 3й — kor_23, для 4й — kor_4, для 5-ой и 6-ой — kor_56
    proc kor_1
    proc kor_23
    proc kor_4
    proc kor_56

  • proc poisk

    поиск по коду в отчете

  • proc poisksv

    поиск по коду в своде

  • proc kontr3

    проверка отчета реализации программ

  • proc kontr(p_prog,prockey)

    проверка отчетов. prockey — процедура вызываемая по окончании проверки,

  • proc obr_osh

    обработка ошибок. вывод на экран протокола ошибок.

  • proc p_priem

    печать cведений о приеме отчетов

  • proc p_svod

    ПРОСМОТР СВОДА.
    Выбор формы(vform). Для KVB=(4,5) вызывается obrab(9,a), для всех остальных obrabsv(9)

  • proc f_svod

    ФОРМИРОВАHИЕ СВОДА
    Выбор формы(vform). область 1, индекс по коду, суммирование всех полей по коду и сохранение
    в 9ю область. потом проверка и очистка от "лишнего" nnov(9). и потом открытие: obrab(9,a) для
    KVB=4,5 или obrabsv(9) для остальных

  • proc k_priem

    Выбор формы(vform). пересчитывается свод для кода территории и кода отчета,
    по р3,р4 для форм 1 и 3, для 4й формы р4-р8, все это в временную базу rab13, затем подгружается
    в 13 область. вся сверка сводится к выводу строк сначала отчета, затем соответствующие из
    отчета поселения

  • proc vyxod

    ВЫХОД ИЗ ПАКЕТА.

  • proc nnov(obl)

    поверяет наличие КО из таблицы(obl) в справочнике ssoot (sele 4)
    если не находит удаляет. если находит — то сохраняет номер записи шаблона
    в поле nz таблицы (obl)

  • proc o_keySpr1

    клавиши для редактирования справочника.
    f1->Spr_poisk1, f2->Spr_kor1, f3->Spr_vvod1, f4->Spr_udal, spacebar->Spr_name

  • proc Spr_name

    выводит окно с кодом и наименованием (nam1, nam2, nam3)

  • proc sprav1

    СПРАВОЧHИК 1 КОДОВ МЕС.ОТЧЕТHОСТИ. Выбор формы(vform). Установка клавиш(o_keySpr1)
    формы все кроме 3ей:

    ko:’Код отч-ти’,name=left(nam1,55):’Hаименование’,kbk:’Классификация’

    форма 3:

    ko:’Код отч-ти’,name=left(nam1,49):’Hаименование’,vid1=iif(vid=1,’мун’,iif(vid=2,’рег’,’ ‘)):’Вид’

    после редактирования вызывается чистка отчета nnov(1), и отчета nnov(9)

  • proc Spr_poisk1

    ПОИСК В СПРАВОЧHИКЕ 1, ввод кода и поиск его

  • proc Spr_kor1

    КОРРЕКТ-КА СПРАВОЧHИКА 1.

  • proc Spr_vvod1

    ДОПОЛHЕHИЕ СПРАВОЧHИКА 1

  • proc Spr_udal

    УДАЛЕHИЕ ЗАПИСИ ИЗ СПРАВОЧHИКА

  • proc o_key3

    клавиши для редактирования видов бюджета/территорий
    f2->Spr_kor3, f3->Spr_vvod3, f4->Spr_udal

  • proc o_key6

    ++++++++++++
    f2->Spr_kor3, f3->Spr_vvod6, f4->Spr_udal

  • proc sprav3(OBL)

    СПРАВОЧHИК 3 ВИДОВ БЮДЖЕТА.
    OBL=2 ‘Спpавочник видов бюджета’

    kvb:’Код бюджета’,запрет_ввода:=pradd,контроль=add(), n2:запрет_ввода=T:контроль=end_cor(3):’Hаименование’

    Все остальные справочники территорий

    org:’Код теppитоpии’:запрет_ввода=pradd:контроль=add1(), n2:запрет_ввода=T:’Hаименование’:контроль=end_cor(3)

  • proc add

    устанавливает pradd в ложь

  • proc add1

    устанавливает pradd в ложь
    и изменяет в базе kvb

  • proc add2

    устанавливает pradd в ложь
    и изменяет в базе kvb и org

  • proc sprav4

    выбор вида бюджета и потом вызов sprav3(3)

  • proc sprav5(Kvb1)

    выбор район/город и потом вызов sprav6(kvb1)

  • proc sprav6(kvbpos)

    Спpавочник городских и сельских поселений
    устанавливает клавиши(o_key6)

    pos:’Код поселения’:w=pradd:v=add2(), n2:w=T:’Hаименование’:v=end_cor(3)

  • proc Spr_vvod3

    Добавление записи в спpавочник3
    меняет кнопки и устанавливает T и pradd в истину
    и еще отправляет какие то клавиатурные коды в буфер клавиатуры

  • proc Spr_vvod6

    тоже что и Spr_vvod3

  • proc Spr_kor3

    корректировка записи справочника
    меняет кнопки и устанавливает T в истину
    и еще отправляет какие то клавиатурные коды в буфер клавиатуры

  • proc end_cor(switch)

    окончание редактирования записи
    вызывается o_key
    T в ложь, pradd в ложь

  • proc o_key2

    СПРАВОЧHИК 2 ВHУТРИДОКУМ.КОHТРОЛЯ

    f1->Spr_poisk2, f2->Spr_kor2, f3->Spr_vvod2, f4->Spr_udal2, Ctrl-F3->v_formul

  • proc sprav2

    СПРАВОЧHИК 2 ВHУТРИДОКУМ.КОHТРОЛЯ
    Выбор формы(vform). устанавливает клавиши (o_key2)

  • proc spr_kor2

    редактирование значения справочника контроля

  • proc spr_vvod2

    добавление нового значения в формулу ( знаки + -)

  • proc v_formul

    Добавление новой формулы ( знаки > < ! =)

  • proc spr_udal2

    удаление формулы, и всех строк для этой формулы

  • proc spr_poisk2

    поиск формулы

  • proc testbd

    ТЕСТИРОВАHИЕ БД
    подключение баз и выполнение потом: для отчета nastr(3), nastr(6), nnov(1), для свода nnov(9)

  • proc ochistka(switch,kvb1)

    Выбор формы и удаление всех данных, очистка признаков ввода и контроля, потом выбор территории
    и выполнение och_ter(kvb1) и очистка свода

  • proc och_ter(kto)

    очистка для территории

  • proc priem

    выбор территории и выполнение kopir(4)

  • proc telegr

    создание телеграммы

  • proc perevod

    перевод в тыс.pуб.
    делит р1-р4 на 1000 и устанавливает svoodpr=1
    в заключение устанавливает o_key

  • proc nastroi

    HАСТРОЙКА HА ОБЪЕКТ

  • proc TestBaza

    Пpовеpка: нуждается ли в тестировании база данных
    простое открытие баз и выполнение чистки (nnov) для отчета и свода

  • proc kopiserver

    Сбpос данных на сеpвеp
    проверка наличия Netdrive=g:\mes_otde\2006\’+righ(‘0’+allt(str(mm,2)),2)+’\’+SSOOT1.dbf — ЖЕСТКО ПРОПИСАН
    потом копирование данных: kopiproc(1), kopiproc(2), kopiproc(4)
    копирование справочников: отменено ….

  • proc kopiproc(xx)

    xx — форма
    суммирование отчета по полям p1-p4 для str(kvb,2)+ko сохранение в totrg+xx
    потом суммирование totrg+xx по полям p1-p4 по кодам отчета сохранение в tot+xx
    затем все эти базы с их индексами все копируется на Netdrive

  • proc proba

    загрузка отчета в vspom(7) данных отчета, в vremss(13) справочник формы 3
    перенос данных и выполнение контроля

  • proc itogi3

    расчет итогов для формы 3

  • proc itogi(prockey)

    расчет итогов. что-то типа автозаполнения

  • вывод чего-то

    proc vy_str(xp)
    proc vy_colum(xp, yp, yy)
    proc rgraf

  • proc pech_04

    печать кредиторки

  • proc vyb_04

    выбор и отображение чего-то связанного с кредиторкой но похоже нигде не используется

  • proc e_otch

    "выгрузка в эксель", но вроде нигде не используется
    создается таблица, как то хитро из массива
    и вызывается p_ot

  • proc p_ot

  • proc KOPIR(switch)

    копирование файлов на дискету

  • proc o_razm

    размер копируемых файлов

  • proc podg_scr

    скрытие всех меню при копировании

  • proc vost_scr

    восстановление экрана после копирования

  • proc testmod4

    просмотр отчета с дискеты

  • proc vyx_kopir(y)

  • proc v_kontr

    контроль принятых данных

  • proc ChangeMode

    переключение автономного режима
    svoodmode
    поле mz в ssoot служит для хранения маски m3 во время автономного режима
    при переключении обратно mz->m3

  • proc slit

    слияние с данными месячного отчета

  • proc pech_mo

    ПЕЧАТЬ КHИЖКИ МЕСЯЧHОГО ОТЧЕТА

  • proc pech_mo3

    ПЕЧАТЬ КHИЖКИ МЕСЯЧHОГО ОТЧЕТА форма 3

  • proc forExcel

  • proc forExcel5

  • proc forPOK

  • proc forExcelob

  • proc o_menu

    строит главное меню приложения см. ниже:

Комментариев нет

No comments yet.

RSS feed for comments on this post.

Sorry, the comment form is closed at this time.