Галактика в вопросах и ответах

Код: Выделить всё

#define ComponentVersion
#define  ATL51
#define GAL7_11
#define GAL7_12
#define GAL8_1
#include Defs.inc
#define __Configurator__ // константы конфигуратора
#define __MnPlan__ // константы мнплана
#define __UseExcel__ // константы Excel
#define __AutoMark__ // для автомаркировки
!#include dictypes.def      // типы
#include glovars.inc
!#include GloDefs.inc
#include GalConstants.inc
!#include galaktika.vil
#include UsedVil.inc
#component "EPA_Rep"
!#define __DEBUG__
#ifdef __DEBUG__
  #define log(s)  fpLog(#s)
#else
  #define log(s)
#end
// Галактические объектные фейсы
const
#include EP.inc
end;
!#include objintpl.vin
#include xlReport.Vih
#include xlSetUp.Vih
#include Marker.vih
#include UserReport.vih

type FioRec = record
 Otk_Fio : string;
 Otp_Fio : string;
 Pol_Fio : string;
end;

type LabelRec = record
 Otk_Label : string;
 Otp_Label : string;
 Pol_Label : string;
end;

const
// coKatPodr    = word(1413); oO нафига это тут?
 cnsOtk_Class = 'ОТК';
 cnsKld_Class = 'Кладовщик';
 cnsRaz_Class = 'ОТК'; // пока так, что дальше - видно будет
 cnsOtk_Label = 'Принято ОТК';
 cnsOtp_Label = 'Отпустил';
 cnsPol_Label = 'Получил';
 cnsRaz_Label = 'Отпуск разр.';
 cnsNo_Label  = 'Отсутствует';

 PRIKAZ_ATTRNAME_PROEKT : String[6] = 'Проект'; // Атрибут "Проект" к таблице PRIKAZ

end;

#include FIOChoice.vih;

#make 'KatMcReport.vip'

#include VidnejWithDopFields.vih
#make 'VidnejWithDopFields.vip'
#make 'VidnejWithDopFields.frm'

#component 'L_SKLAD'
#include RetMatByHold.vih
#make 'RetMatByHold.frm'
#make 'RetMatByHold.vip'

#component 'L_SklRep'
#include AllBranchRemains.vih
#include BranchHelper.vih
#make 'AllBranchRemains.frm'
#make 'AllBranchRemains.vip'
#make 'AllBranchRemains_UserRep.vip'

#component 'L_SklRep'
#include MatrixHelper.vih
#make 'MatrixHelper.vip'
#make 'SkladAndBuhSaldo.vip'
#make 'SkladAndBuhSaldo_UserRep.vip'

!#component 'F_BuhRep'
!#make 'CuAnalitikPick.vip'
!#make 'SverkaMC.vip'
/*
#include Src\DO\GETAvans.DLG
#make 'Src\DO\DO_sell_ep.frm'
#make 'Src\DO\DO_sell_ep_bezav.frm'
*/

#component 'L_Prices'
#include PriceList.vih
#include StringUtils.vih
#make 'PriceList.frm'
#make 'PriceList.vip'

const
  KATORG_CODE_FOR_SPEC_ATTR_NAME : string[33] = 'Код для специи по договору с РЭПХ';
end;
#component 'L_SoprDoc'
#make 'SoprDocFormSpecification.vip'