Block( { ПЕЧАТЬ ПРИМЕЧАНИЯ И ПРЕДШЕСТВУЮЩЕГО ДОКУМЕНТА } Var('CfgMode', String, Global), Let(@CfgMode, DCL.GetRegString('HKCU', AppRegKey('MAIN\ЭД-2'), 'EADDocRefAsInventoryNote', '1')), Let(@BufString, ''), Var('sPrevDoc', String, Global), Let(@sPrevDoc, ''), If(DCL.GetRegString('HKCU', AppRegKey('MAIN\Настройка описи'), 'DocListPrintPrevDoc', '1') = '1', Let(@sPrevDoc, DCL.GetFieldVal(DOP, 'PrevDocNum')) ), If(CfgMode = '4', Let(@BufString, DCL.GetFieldVal(DOP, 'PRIM')), Block( If(CfgMode = '1', Let(@BufString, DCL.GetFieldVal(DOP, 'ArchDocId')), If(CfgMode = '2', Let(@BufString, DCL.GetFieldVal(DOP, 'ArchId')), If(Length(DCL.GetFieldVal(DOP, 'ArchId')), Let(@BufString, DCL.GetFieldVal(DOP, 'ArchId') + UpCaseByRules(DCL.GetRegString('HKCU', AppRegKey('MAIN\ЭД-2'), 'EADDocRefAsInventoryNote_Delim', '/')) + DCL.GetFieldVal(DOP, 'ArchDocId') ) ) ) ), If(Length(BufString), Let(@BufString, Trim(UpCaseByRules(DCL.GetRegString('HKCU', AppRegKey('MAIN\ЭД-2'), 'EADDocRefAsInventoryNote_Prefix', '')) + ' ' + BufString ) ) ) ) ), Let(@BufString, Trim(BufString + ' ' + sPrevDoc)), If(DCL.GetRegString('HKCU', AppRegKey('MAIN\Настройка описи'), 'DocListPrintOnPaperSign', '1') = '1', Let(@BufString, Trim(BufString + ' ' + UpCaseByRules(If(DCL.GetFieldVal(DOP, 'ONPAPER'), 'бумажный документ', 'электронная форма')))) ), smpDL.SFP('Примечание', 'Caption', BufString) )