Програмное средство « Баланс заготовок и узлов ОЦ-2»

2.6 Требования к нормативно-справочной информации.

Вся нормативно-справочная информация, необходимая для расчета и приписывания нормативов, формируется на основании данных КИС и выгружается в виде текстовых файлов (TXT) бюро ВиРКИСиЗТЭП. После загрузки их в БД заданной структуры на 1-е число следующего за расчетным месяца получаем:

• перечень узлов KO_KIS.DBF. Содержит перечень обозначений узлов SIGN NDU.
• состав узлов SOST_KIS.DBF. Содержит перечень деталей и узлов, входящих в узел KO_KIS.DBF.
• нормативная информация NORM_KIS.DBF. Содержит нормативные данные (нормы, цены, отходы).
• дополнительная нормативная информация MFV611.DBF. Ведется пользователями для обозначений, по какой-либо причине отсутствующих в КИС.

 

3. Условия эксплуатации

 

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

 

 

4. Требования к программной документации.

 

Предварительный состав программной документации.

Состав программной  документации должен включать в себя:

1.техническое задание;

2. программу и методики испытаний;

3. руководство  оператора;

 

 

5. Стадии и этапы разработки.

 

Разработка  должна быть проведена в три стадии:  
          1. разработка технического задания;  
          2. рабочее проектирование;  
           3. внедрение.

На этапе  разработки технического задания должны быть выполнены перечисленные ниже работы:

1. постановка задачи;

2. определение и уточнение требований к техническим средствам;

3. определение требований к программе;

4. определение  стадий, этапов и сроков разработки  программы и документации на неё;

5. согласование  и утверждение технического задания. 

На этапе  разработки программы должна быть выполнена  работа по программированию (кодированию) и отладке программы. На этапе разработки программной документации должна быть выполнена разработка программных документов в соответствии с требованиями к составу документации. На этапе испытаний программы должны быть выполнены перечисленные ниже виды работ:

1. разработка, согласование и утверждение и методики испытаний;

2. проведение приемо-сдаточных испытаний;

3. корректировка  программы и программной документации  по результатам испытаний.

На этапе  подготовки и передачи программы  должна быть выполнена работа по подготовке и передаче программы и программной документации в эксплуатацию на объектах Заказчика.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ПРИЛОЖЕНИЕ Б

Тексты программы

 

Текст головного модуля main

CLEAR

CLOOSE all

CLOSE DATA all

SET SYSM off

SET NOTIFIC off

SET SAFETY off

SET CURSOR on

SET TALK off

STT DATE german

SET HOURS TO 24

SET SECONDS OFF

SET CENT on

SET EXCL off

 

PUBLIC gl_err

PUBLIC Gl_cex,Gl_data,Gl_mes

PUBLIC pred_form

 

SET PATH TO DATA, FORMS, CLASSES, REPORTS, PROGS, INCLUDE, BITMAPS

SET CLASSLIB TO MyClass, Export, Doc, MyControls, Progress, Report, SGrid;

*-- Определяем внешние DLL библиотеки

DECLARE INTEGER GetPrivateProfileString IN Win32API  AS GetPrivStr ;

STRING cSection, STRING cKey, STRING cDefault, STRING @cBuffer, ;

INTEGER nBufferSize, STRING cINIFile

DECLARE INTEGER WritePrivateProfileString IN Win32API AS WritePrivStr ;

STRING cSection, STRING cKey, STRING cValue, STRING cINIFile

DECLARE INTEGER FindWindow IN Win32API AS FindWindow ;

STRING cClassName, STRING cNameWindow

DECLARE INTEGER SQLConfigDataSource IN odbccp32.DLL INTEGER, INTEGER, ;

STRING, STRING

DECLARE INTEGER GetSysColor IN User32.DLL INTEGER

DECLARE INTEGER SetCursorPos IN WIN32API INTEGER, INTEGER

DECLARE INTEGER GetAsyncKeyState IN WIN32API AS GetKeyState ;

INTEGER lnKey

 

PUBLIC GL_cex,Imja_cex

GL_cex=336

Imja_cex='ОЦ-2'

 

 

Gl_data=date()

Gl_mes=month(Gl_data)

gl_err=.T.

 

DO menu.mpr

 

 

 

 

DO form fon

SET MESSAGE TO '123'

DO form parol

IF gl_err=.F.

SET SYSM off

RELE WIND

RETURN

ENDIF 

 

READ even

SET SYSM off

RELE wind

 

 

Текст модуля menu

SET SYSMENU TO

SET SYSMENU AUTOMATIC

 

DEFINE PAD _37z0ikr4u OF _MSYSMENU PROMPT "Баланс движения деталей" COLOR SCHEME 3 ;

KEY F12, "F12"

DEFINE PAD _37z0ikr4v OF _MSYSMENU PROMPT "   Отчеты" COLOR SCHEME 3 ;

KEY F12, "F12"

DEFINE PAD _37z0ikr4w OF _MSYSMENU PROMPT "   Сервис" COLOR SCHEME 3 ;

KEY F12, "F12"

DEFINE PAD _37z0ikr4x OF _MSYSMENU PROMPT "     Выход" COLOR SCHEME 3 ;

KEY F12, "F12"

ON PAD _37z0ikr4u OF _MSYSMENU ACTIVATE POPUP балансдвиж

ON PAD _37z0ikr4v OF _MSYSMENU ACTIVATE POPUP отчеты

ON PAD _37z0ikr4w OF _MSYSMENU ACTIVATE POPUP сервис

ON SELECTION PAD _37z0ikr4x OF _MSYSMENU ;

DO _37z0ikr4y ;

IN LOCFILE("\NEW_BALANS6\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

 

DEFINE POPUP балансдвиж MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF балансдвиж PROMPT "Просмотр информации"

DEFINE BAR 2 OF балансдвиж PROMPT "Справочники"

DEFINE BAR 3 OF балансдвиж PROMPT "Выгрузка НЗП для инвентаризации"

DEFINE BAR 4 OF балансдвиж PROMPT "Выгрузка НЗП для ПДУ"

DEFINE BAR 5 OF балансдвиж PROMPT "\-"

DEFINE BAR 6 OF балансдвиж PROMPT "Расчет"

ON SELECTION BAR 1 OF балансдвиж ;

DO _37z0ikr4z ;

IN LOCFILE("\NEW_BALANS6\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

ON BAR 2 OF балансдвиж ACTIVATE POPUP справочник

ON SELECTION BAR 3 OF балансдвиж ;

DO _37z0ikr50 ;

IN LOCFILE("\NEW_BALANS6\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

ON SELECTION BAR 4 OF балансдвиж ;

DO _37z0ikr51 ;

IN LOCFILE("\NEW_BALANS6\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

ON SELECTION BAR 6 OF балансдвиж ;

DO _37z0ikr52 ;

IN LOCFILE("\NEW_BALANS6\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

 

DEFINE POPUP справочник MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF справочник PROMPT "Перечень узлов (КИС)"

DEFINE BAR 2 OF справочник PROMPT "Перечень узлов (USER)"

DEFINE BAR 3 OF справочник PROMPT "Нормативы"

ON SELECTION BAR 1 OF справочник ;

DO _37z0ikr53 ;

IN LOCFILE("\NEW_BALANS6\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

ON SELECTION BAR 2 OF справочник ;

DO _37z0ikr54 ;

IN LOCFILE("\NEW_BALANS6\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

ON SELECTION BAR 3 OF справочник ;

DO _37z0ikr55 ;

IN LOCFILE("\NEW_BALANS6\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

 

DEFINE POPUP отчеты MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF отчеты PROMPT "По балансу движения деталей"

DEFINE BAR 2 OF отчеты PROMPT "Расчетные ведомости"

ON SELECTION BAR 1 OF отчеты ;

DO _37z0ikr56 ;

IN LOCFILE("\NEW_BALANS6\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

ON SELECTION BAR 2 OF отчеты ;

DO _37z0ikr57 ;

IN LOCFILE("\NEW_BALANS6\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

 

DEFINE POPUP сервис MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF сервис PROMPT "Изменение расчетного периода"

DEFINE BAR 2 OF сервис PROMPT "Установка путей к БД"

DEFINE BAR 3 OF сервис PROMPT "Резервное копирование"

DEFINE BAR 4 OF сервис PROMPT "Индексирование"

ON SELECTION BAR 1 OF сервис ;

DO _37z0ikr58 ;

IN LOCFILE("\NEW_BALANS6\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

ON SELECTION BAR 2 OF сервис ;

DO _37z0ikr59 ;

IN LOCFILE("\NEW_BALANS6\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

ON SELECTION BAR 3 OF сервис ;

DO _37z0ikr5a ;

IN LOCFILE("\NEW_BALANS6\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

ON SELECTION BAR 4 OF сервис ;

DO _37z0ikr5b ;

IN LOCFILE("\NEW_BALANS6\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

 

PROCEDURE _37z0ikr4y && Выход

close data

clear all

close all

set sysm to defa

cancel

return

 

PROCEDURE _37z0ikr4z      && Просмотр информации                        

if inlist(Gl_cex,&Stroka_mex)

DO FORM prosmotr_mex

else

DO FORM prosmotr

endif

 

PROCEDURE _37z0ikr50 && Выгрузка НЗП для инвентаризации            

DO inv_nzp

 

PROCEDURE _37z0ikr51 && Выгрузка НЗП для ПДУ                       

DO ost_pdo

 

PROCEDURE _37z0ikr52  && Расчет

DO FORM do_ras

 

PROCEDURE _37z0ikr53 && Перечень узлов (КИС)

DO form yzl

 

PROCEDURE _37z0ikr54 && Перечень узлов (USER)                      

DO form yzl_user

 

PROCEDURE _37z0ikr55 && Нормативы

DO form mfv_korr 

 

PROCEDURE _37z0ikr56 && отчёт по балансу движения деталей                

if inlist(Gl_cex,301)

DO form pech_mg301

else

DO form pech_mg1

endif

 

PROCEDURE _37z0ikr57 && отчёт Расчетные ведомости                        

do case

case Gl_cex=301

DO form pech_mg3012 

case inlist(Gl_cex,313,335)

DO form pech_mg22

otherw

DO form pech_mg2

endcase

 

PROCEDURE _37z0ikr58  && сервис Изменение расчетного периода               

DO FORM ras_period

 

PROCEDURE _37z0ikr59 && сервис Установка путей к БД                       

DO FORM ust

 

PROCEDURE _37z0ikr5a  && сервис Резервное копирование                      

DO FORM copii

 

 

PROCEDURE _37z0ikr5b && сервис Индексирование                             

DO form ind