Block( Var('mGrafaC', Memo, Global), Var('mGrafaD', Memo, Global), Const('sDecisionCode', String, Global, DCL.GetFieldVal(PRIM, 'GD0')), Const('sDecisionDate', String, Global, DCL.GetFieldVal(PRIM, 'GD1')), Const('mDecisionDsc', Memo, Global, GetMemoVal(ADD, 'GD', 0)), Const('sCargoDecisionCode', String, Global, ''), Const('mCargoDecisionDsc', Memo, Global, ""), Const('sDecisionDateBriefFmt', String, Global, ''), If(Length(sDecisionDate), Let(@sDecisionDateBriefFmt, Left(sDecisionDate, 2) + Copy(sDecisionDate, 4, 2) + Right(sDecisionDate, 2) ) ), Const('iPrintDecisionDsc', Integer, Global, 1), If(DCL.GetRegString('HKCU', AppRegKey('MAIN\ÏÅ×ÀÒÜ'), 'PrintGrafaCDsc', '1') = '0', Let(@iPrintDecisionDsc, 0)), Const('iPrintDecisionCode', Integer, Global, 0), If(DCL.GetRegString('HKCU', AppRegKey('MAIN\ÏÅ×ÀÒÜ'), 'PrintGrafaCCode', '0') = '1', Let(@iPrintDecisionCode, 1)), Const('iPrintDecisionStampFIO', Integer, Global, 1), If(DCL.GetRegString('HKCU', AppRegKey('MAIN\ÏÅ×ÀÒÜ'), 'PrintGrafaCStampFIO', '1') = '0', Let(@iPrintDecisionStampFIO, 0)), Const('iPrintDecisionStampLNP', Integer, Global, 1), If(DCL.GetRegString('HKCU', AppRegKey('MAIN\ÏÅ×ÀÒÜ'), 'PrintGrafaCStampLNP', '1') = '0', Let(@iPrintDecisionStampLNP, 0)), Const('iPrintDecisionStamp', Integer, Global, 1), If(iPrintDecisionStampFIO + iPrintDecisionStampLNP = 0, Let(@iPrintDecisionStamp, 0)), Const('sDecisionStamp', String, Global, ''), If(iPrintDecisionStampFIO, Let(@sDecisionStamp, DCL.GetFieldVal(PRIM, 'GDFIO'))), If(iPrintDecisionStampLNP, Let(@sDecisionStamp, Trim(sDecisionStamp + Supress(' ËÍÏ ', DCL.GetFieldVal(PRIM, 'GD2'))))), Const('iPrintDecisionGoodsNumber', Integer, Global, 1), If(DCL.GetRegString('HKCU', AppRegKey('MAIN\ÏÅ×ÀÒÜ'), 'PrintGrafaCGoodsNumber', '1') = '0', Let(@iPrintDecisionGoodsNumber, 0)), Const('iPrintGrafaCDIssueMarksOnAppendix', Integer, Global, 0), If(DCL.GetRegString('HKCU', AppRegKey('MAIN\ÏÅ×ÀÒÜ'), 'PrintGrafaCDIssueMarksOnAppendix', '') = '1', Let(@iPrintGrafaCDIssueMarksOnAppendix, 1)) )