Просмотр исходного текста страницы Nak 181120

 <OPENPIPELINE>
 local bands, dict, month, year, okpo, name, adres, sub, sub_bands, aa, bb
 adres := seekref( 'r01', factorykod, 'ADRES', 1 )
 name := realname( 'r01', factorykod )
 okpo := seekref( 'r01', factorykod, 'OKPO_CODE', 1 )
 year := year( curdate ) - 2000
 month := name_month( month( curdate ) )
 bands := { { 'Title', 'a1:EZ36' } }
 sub_bands := { { 'Title', 'a1:ES80' } }
 dbgotop()
 _011 := NATTR3
 _012 := NATTR4
 dict := { { 'month', month }, { 'year', year }, { 'okpo', okpo }, { 'name', name }, { 'adres', adres } } //  { '_011', _011 }, { '_012', _012 } }
 while !eof()
   aa := '_' + atr( CATTR1 ) + '1'
   bb := '_' + atr( CATTR1 ) + '2'
   public &aa, &bb
   aa := '_' + atr( CATTR1 ) + '1 := NATTR3'
   &aa
   bb := '_' + atr( CATTR1 ) + '2 := NATTR4'
   &bb
   aa := [addarray( dict, { { '_] + atr( CATTR1 ) + [1', _] + atr( CATTR1 ) + [1 } } )]
   &aa
   bb := [addarray( dict, { { '_] + atr( CATTR1 ) + [2', _] + atr( CATTR1 ) + [2 } } )]
   &bb
   dbskip()
 end
 sub := { 'стр.2_4',,, dict, sub_bands }
 excelreport( 'nak_181120.xltx',,,, dict, bands, sub )