Block( Use('dcluses.ppu'), AppDCL('DCL'), DCL.SetStatus('Подготовка к печати'), DLL('D'), D.LoadLibrary('DES16.DLL', DCL.GetDES32Path()), Design('GTD'), D.Client(GTD), Design('smpGTD'), D.Client(smpGTD), Const('PPDName', String, Global, DCL.GetPPDName()), {Наименование таблиц - источников данных} Const('PRIM', Integer, Global, 1), Const('DOP', Integer, Global, 2), Const('DOCS', Integer, Global, 3), Const('PAYMENTS', Integer, Global, 4), Const('VALUTA', Integer, Global, 5), Const('ADDDOP', Integer, Global, 6), Const('GTDBACK', Integer, Global, 7), Const('DOCSARCH11001', Integer, Global, 8), Const('DOCSARCH11002', Integer, Global, 9), Const('DOCSARCH11003', Integer, Global, 10), Var('BufString', String, Global), Var('BufString1', String, Global), Var('BufString2', String, Global), Var('BufMemo', Memo, Global), Var('BufFloat', Float, Global), Var('BufInt', Integer, Global), Var('Import', Integer, Global), Var('DstCountry', String, Global), Var('mCargoDsc', Memo, Global), Var('INIResult', String, Global), Const('DocForm', String, Global, DCL.GetRegString('HKCU', AppRegKey('MAIN\ПЕЧАТЬ'), 'Форма заявления по ПК 203', '1')), Const('WithApxReferencies', Integer, Global,(DCL.GetRegString('HKCU', AppRegKey('MAIN\ПЕЧАТЬ'),'Ссылки на дополнения в заявлении по ПК 203', '1') = '1')), Use('gtdrulesinit.ppu'), Use('GetCargoDscForTable.ppu'), Const('TmpFileName', String, Global, DCL.GetTmpPPD(0)), If(DCL.FileExists(TmpFileName) = 0, Block( smpGTD.Load(PPDName), CopyDocParams(smpGTD,GTD), DCL.SetStatus('Обработка базы данных'), GTD.BeginRoll('Заявление ',0), use('applgtdh.ppu'), use('applgtdt.ppu'), use('applgtdf.ppu'), GTD.EndRoll(), GTD.HRDP(0,'Заявление'), GTD.Save(TmpFileName) ), GTD.Load(TmpFileName) ), DCL.SetStatus('Печать'), PrintDoc(GTD, 1, ''), D.DropClient(GTD), DropDesign(GTD), D.DropClient(smpGTD), DropDesign(smpGTD), D.FreeLibrary(), DropDLL(D), DCL.SetStatus(''), DropAppDCL(DCL) )