Local IMEM
* память -------------------------------
IMEM = Max(1048576, Val(Sys(3050, 1, 0))/3) && от 1Мб до тpети pекомендуемой фоксом
IMEM = Min(1048576*200,  IMEM) && но не более 200 Мб, на всякий случай?
=Sys(3050, 1,  IMEM) && foreground, беpем часть памяти от захваченной фоксом по умолчанию
=Sys(3050, 2,  IMEM) && background pавен foreground

  if STATUSCODE is initial.
    if not STATUSNEXT is initial.
      select distinct m~MESSAGEID m~STATUSCODE
        into corresponding fields of table FinMesLIST
        from zFinMes as m
           inner join zFinMesPain001RU as p
               on  p~MESSAGEID = m~MESSAGEID
           inner join  ZFINMESSTATUSES as s
               on  m~FINMESTYPE = s~FINMESTYPE
               and m~STATUSNET  = s~STATUSNET
               and m~STATUSCODE = s~STATUSCODE
               and s~STATUSNEXT = STATUSNEXT
        where p~PaymentMessageID in rn_PaymentMessageID.
    else.
      select distinct m~MESSAGEID m~STATUSCODE
        into corresponding fields of table FinMesLIST
        from zFinMes as m
           inner join zFinMesPain001RU as p
               on p~MESSAGEID = m~MESSAGEID
        where p~PaymentMessageID in rn_PaymentMessageID.
    endif.
  else.
    select distinct m~MESSAGEID m~STATUSCODE
      into corresponding fields of table FinMesLIST
      from zFinMes as m
         inner join zFinMesPain001RU as p
             on p~MESSAGEID = m~MESSAGEID
      where p~PaymentMessageID in rn_PaymentMessageID
        and m~STATUSCODE = STATUSCODE.
  endif.