Block( Use('dcluses.ppu'), AppDCL('DCL'), DCL.SetStatus('Подготовка к печати'), DLL('D'), D.LoadLibrary('DES16.DLL', DCL.GetDES32Path()), Design('TSD'), D.Client(TSD), Design('smpTSD'), D.Client(smpTSD), Const('PPDName', String, Global, DCL.GetPPDName()), {Наименование таблиц - источников данных} Const('PRIM', Integer, Global, 1), Const('DOP', Integer, Global, 2), Var('BufString', String, Global), Var('BufFloat', Float, Global), Var('BufMemo', Memo, Global), Const('TmpFileName', String, Global, DCL.GetTmpPPD(0)), If(DCL.FileExists(TmpFileName) = 0, Block( smpTSD.Load(PPDName), CopyDocParams(smpTSD,TSD), DCL.SetStatus('Обработка базы данных'), TSD.BeginRoll('ТСД ', 0), Use('tsdpg.ppu'), TSD.EndRoll(), TSD.SignPages(), TSD.HRDP(0, 'ТСД'), {Use('tsds.ppu'),} TSD.Save(TmpFileName) ), TSD.Load(TmpFileName) ), DCL.SetStatus('Печать'), PrintDoc(TSD, 1, ''), D.DropClient(TSD), DropDesign(TSD), D.DropClient(smpTSD), DropDesign(smpTSD), D.FreeLibrary(), DropDLL(D), DCL.SetStatus(''), DropAppDCL(DCL) )