Block( Const('iCargo',Integer,Global,2), Var('sPostFix',String,Global), While(iCargo<4, Block( Let(@sPostFix, '_т'+iCargo), Self.CDF('Тип корректировки товара'+sPostFix), Self.CFP('Тип корректировки товара'+sPostFix,'Type',Integer,0), Self.CFP('Тип корректировки товара'+sPostFix,'Enable',Integer,1), Self.CFP('Тип корректировки товара'+sPostFix,'Focus',Integer,1), Self.CFP('Тип корректировки товара'+sPostFix,'Caption',String,''), Self.CFP('Тип корректировки товара'+sPostFix,'Left',Integer, Self.GFP('Графа 45(КТС)'+sPostFix,'Left')), Self.CFP('Тип корректировки товара'+sPostFix,'Width',Integer, 70), Self.CFP('Тип корректировки товара'+sPostFix,'Top',Integer, Self.GFP('Графа 46'+sPostFix,'Top')), Self.CFP('Тип корректировки товара'+sPostFix,'Height',Integer, Self.GFP('Графа 46'+sPostFix,'Height')), Self.CFP('Тип корректировки товара'+sPostFix,'Font',Integer,1), Self.CFP('Тип корректировки товара'+sPostFix,'FontName',String, Self.GFP('Графа 46'+sPostFix,'FontName')), Self.CFP('Тип корректировки товара'+sPostFix,'FontSize',Integer, Self.GFP('Графа 46'+sPostFix,'FontSize')), Let(@iCargo, iCargo+1) ) ) )