Block( Use('dcluses.ppu'), AppDCL('DCL'), DCL.SetStatus('Подготовка к печати'), DLL('D'), D.LoadLibrary('DES16.DLL',DCL.GetDES32Path()), Design('AKT'), D.Client(AKT), Design('smpAKT'), D.Client(smpAKT), {Наименование таблиц - источников данных} Const('PRIM',Integer,Global,1), Const('DOP',Integer,Global,2), Const('TRANSP',Integer,Global,3), Const('ITOGI',Integer,Global,4), Const('G44',Integer,Global,5), Const('DclVehicles',Integer,Global,6), Const('CONT',Integer,Global,7), Var('BufString',String,Global), Var('BufString1',String,Global), Var('BufString2',String,Global), Var('bFlag',Integer,Global), Const('i',Integer,Global,1), Var('j',Integer,Global), Var('BufMemo',Memo,Global), Const('SumG46',Float,Global,0), Var('sVolAndPowerBaseCaption',String, Global), Var('INIResult',String,Global), Use('gtdrulesinit.ppu'), Const('AppId', String, Local, DCL.GetHostId()), Const('PPDName',String,Global,DCL.GetPPDName()), Const('TmpFileName',String,Global,DCL.GetTmpPPD(0)), If(DCL.FileExists(TmpFileName)=0, Block( smpAKT.Load(PPDName), CopyDocParams(smpAKT,AKT), DCL.SetStatus('Обработка базы данных'), AKT.BeginRoll('Акт досмотра ',0), {Обход глюка с пририсовкой BottomBand'a к нулевой странице} AKT.Roll(D.Instance(smpAKT)+'.WareInfo'), AKT.RollBreak(), Use('aktpg-common.ppu'), Use('aktpg-260.ppu'), AKT.EndRoll(), AKT.HDDP(0), {Обход глюка с пририсовкой BottomBand'a к нулевой странице} AKT.HRDP(0,'Поручение на досмотр'), AKT.Save(TmpFileName) ), AKT.Load(TmpFileName) ), DCL.SetStatus('Печать'), PrintDoc(AKT,1,''), AKT.Save(TmpFileName), D.DropClient(AKT), DropDesign(AKT), D.DropClient(smpAKT), DropDesign(smpAKT), D.FreeLibrary(), DropDLL(D), DCL.SetStatus(''), DropAppDCL(DCL) )