Block( Use('dcluses.ppu'), AppDCL('DCL'), DCL.SetStatus('Подготовка к печати'), Use('vttcfg.ppu'), DLL('D'), D.LoadLibrary('DES16.DLL',DCL.GetDES32Path()), Design('VTT'), D.Client(VTT), Const('PPDName',String,Global,DCL.GetPPDName()), {Наименование таблиц - источников данных} Const('PRIM',Integer,Global,1), Const('DOP',Integer,Global,2), Const('TVOL',Integer,Global,3), Const('G44',Integer,Global,4), Const('DRIV',Integer,Global,5), {Служебные переменные} Var('BufString',String,Global), Var('BufString1',String,Global), Var('BufMemo',Memo,Global), Var('BufMemo2',Memo,Global), Var('BufInt',Integer,Global), Var('BufFloat',Float,Global), Var('INIResult',String,Global), Var('j',Integer,Global), Var('DocType',String,Global), Const('G32',Integer,Global,1), Var('TovId',String,Global), {Тип декларации} Let(@DocType,DCL.GetFieldVal(PRIM,'TypeBTT')), Use('vttgenrl.ppu'), Const('TmpFileName',String,Global,DCL.GetTmpPPD(0)), If(DCL.FileExists(TmpFileName)=0, Block( VTT.Load(PPDName), DCL.SetStatus('Обработка базы данных'), CleanCaptions(VTT), Use('vtt1_7.ppu'), Use('vtt8_30.ppu'), Use('vtttov.ppu'), Use('vtt47_55.ppu'), Use('vtta_b.ppu'), Use('vttc.ppu'), VTT.Save(TmpFileName) ), VTT.Load(TmpFileName) ), DCL.SetStatus('Печать'), Let(@BufString, DCL.GetDocTitle()), If(Length(BufString) = 0, Let(@BufString, 'Основной лист ТД') ), VTT.HRDP(0,BufString), PrintDoc(VTT,1,PPDName), D.DropClient(VTT), DropDesign(VTT), D.FreeLibrary(), DropDLL(D), DCL.SetStatus(''), DropAppDCL(DCL) )