DEFINE TEMP-TABLE Result3 NO-UNDO 
FIELD warecode as character
FIELD rid-cell as integer  
FIELD rid-lots as integer  
FIELD quan as decimal      
FIELD quan-pal as decimal  
FIELD cell as character    
FIELD koef as decimal
FIELD n-pal as integer
FIELD warename as character
FIELD fullwarename as character
INDEX i1 warecode cell DESC
INDEX i2 n-pal
INDEX i3 warecode warename koef desc cell.

procedure SortOnGroup :
def var iPallete as integer.
def var stGoods as character.
def var stGroup as character.
def var fVolumeCurrent as decimal.
def var stGoodsCurrent as character.
def var stGroupCurrent as character.
def var fKoefCurrent as decimal.
def var bGoodsExist as logical.

iPallete =  1 .
stGoods = '0'.
stGroup = ''.
bGoodsExist = true.

repeat while bGoodsExist:

   /* вычисляем, сколько уже на текущей паллете занято места */
   fVolumeCurrent =  0 .
   for each result3 where result3.n-pal = iPallete no-lock:
      fVolumeCurrent = fVolumeCurrent + result3.koef.
   end.

   /* ищем текущий товар */
   find first result3
      where result3.warecode = stGoods and result3.n-pal =  0 
      use-index i3 no-error.
   if available result3 then do:
      stGoodsCurrent = result3.warecode.
      stGroupCurrent = result3.warename.
      fKoefCurrent = result3.koef.
      if fVolumeCurrent + fKoefCurrent <=  1 . 05  then do:
         result3.n-pal = iPallete.
         stGoods = stGoodsCurrent.
         stGroup = stGroupCurrent.
      end.
      else do:
         /* Весь товар этого наименования не вмещается на эту паллету. */
         /* Проверить, в этой паллете только текущий товар ? */
         find first result3
            where result3.n-pal = iPallete and result3.warecode <> stGoods
            no-lock no-error.
         if available result3 then do:
            /* Есть и другой товар в этой паллете, убрать текущий товар из нее. */
            for each result3
                where result3.warecode = stGoods and result3.n-pal = iPallete:
               result3.n-pal =  0 .
            end.
            fVolumeCurrent =  0 .                                           
            for each result3 no-lock                                      
                where result3.warecode = stGoodsCurrent and result3.n-pal =  0 :
               fVolumeCurrent = fVolumeCurrent + result3.koef.           
            end.
         end.
         else do:
            fVolumeCurrent =  0 .                                           
            for each result3 no-lock                                     
                where result3.warename = stGroupCurrent and result3.n-pal =  0 :
               fVolumeCurrent = fVolumeCurrent + result3.koef.            
            end.
         end.
         /* Начать новую паллету или перейти к существующей. */
         run GetPalleteNumber(fVolumeCurrent, output iPallete).
         stGoods = stGoodsCurrent.
         stGroup = stGroupCurrent.
      end.
   end.
   else do:
      /* ищем текущую группу */
      find first result3
          where result3.warename = stGroup and result3.n-pal =  0 
          use-index i3 no-error.
      if available result3 then do:
         stGoodsCurrent = result3.warecode.
         stGroupCurrent = result3.warename.
         fKoefCurrent = result3.koef.
         if fVolumeCurrent + fKoefCurrent <=  1 . 05  then do:
            result3.n-pal = iPallete.
            stGoods = stGoodsCurrent.
            stGroup = stGroupCurrent.
         end.
         else do:
            /* Начать новую паллету или перейти к существующей. */
            fVolumeCurrent =  0 .                                          
            for each result3 no-lock                                     
                where result3.warename = stGroupCurrent and result3.n-pal =  0 :
               fVolumeCurrent = fVolumeCurrent + result3.koef.           
            end.
            run GetPalleteNumber(fVolumeCurrent, output iPallete).
            stGoods = stGoodsCurrent.
            stGroup = stGroupCurrent.
         end.
      end.
      else do:
         /* ищем следующий нераспределенный товар */
         find first result3
              where result3.n-pal =  0 
              use-index i3 no-error.
         if available result3 then do:
            stGoodsCurrent = result3.warecode.
            stGroupCurrent = result3.warename.
            fKoefCurrent = result3.koef.
            if fVolumeCurrent + fKoefCurrent <=  1 . 05  then do:
               result3.n-pal = iPallete.
               stGoods = stGoodsCurrent.
               stGroup = stGroupCurrent.
            end.
            else do:
               /* Начать новую паллету или перейти к существующей. */
               fVolumeCurrent =  0 .
               for each result3 no-lock
                   where result3.warename = stGroupCurrent and result3.n-pal =  0 :
                  fVolumeCurrent = fVolumeCurrent + result3.koef.
               end.
               run GetPalleteNumber(fVolumeCurrent, output iPallete).
               stGoods = stGoodsCurrent.
               stGroup = stGroupCurrent.
            end.
         end.
         else do:
            /* больше товаров к группировке нет */
            bGoodsExist = false.
         end.
      end.
   end.

end.

end.