create or replace function WriteOffExpenses () returns bool as '
  declare stSuffix varchar; stPrefix varchar; dCurrent timestamp;
begin
   -- фиксируем время начала транзакции
   dCurrent := current_timestamp;
   -- префик-суффикс номеров документов по складу
   stPrefix := rtrim(GetSysVarC(''WarPREFIXEXPENSES''), '' ''); stSuffix := rtrim(GetSysVarC(''WarSUFFIXEXPENSES''), '' '');
   -- заголовки документов (добавляем к уже созданным в периоде)
   INSERT INTO m_documents (alltimed_prod, date_act, currency, cource, document, type, manager, agent, main_agent, primary_doc)
   SELECT c_productions.id as alltimed_prod, c_productions.date_ready as date_act, NacCurrency() as currency, 1 as cource,
     (stPrefix || rtrim(c_productions.production, '' '') || stSuffix)::varchar(10) as document,
     8 as type, current_user as manager, ''11'' as agent, 7 as main_agent, ''Автоматическое списание'' as primary_doc
   FROM sections,
     c_productions left outer join m_documents on
     (stPrefix || rtrim(c_productions.production, '' '') || stSuffix)::varchar(10) = m_documents.document
   WHERE c_productions.date_ready>=BeginOfPeriod() and c_productions.date_ready<=EndOfPeriod()
     and c_productions.section_id = sections.id and sections.pcode = 1 and sections.active and m_documents.document is null;
   -- содержание документов
   INSERT INTO m_content (document, articul, quantity, unit, price)
   SELECT (stPrefix || rtrim(c_productions.production, '' '') || stSuffix)::varchar(10) as document,
     m_nomenclator.articul, sum(c_orders_complete.quantity) as quantity, c_orders_complete.unit,
     CalcAccountPrice(m_nomenclator.articul, to_char(sections.sectioncode, ''99999'')) as price
   FROM sections, c_productions_content, c_orders_complete, m_nomenclator,
     c_productions, m_documents
   WHERE c_productions.date_ready>=BeginOfPeriod() and c_productions.date_ready<=EndOfPeriod()
     and c_productions.section_id = sections.id and sections.pcode = 1 and sections.active
     and c_productions.id = m_documents.alltimed_prod and m_documents.manager = current_user and m_documents.type = 8
     and m_documents.mdate >= dCurrent and m_documents.document ~~ (stPrefix || ''%'') and m_documents.document ~~ (''%'' || stSuffix)
     and c_productions.id = c_productions_content.header_id and c_productions_content.norder = c_orders_complete.document
     and c_orders_complete.articul_id = m_nomenclator.id
     and (m_nomenclator.easywin_type = 5 or m_nomenclator.easywin_type = 8 or m_nomenclator.easywin_type = 10)
   GROUP BY c_productions.production, m_nomenclator.articul, c_orders_complete.unit, sections.sectioncode;
   return true;
end;
' language 'plpgsql';