Остатки на кассы : Супермаг Плюс (Супермаг 2000)

DECLARE
-- c:\sql\remains.sql
-- прописываем остатки в выгрузке из СМ+ на кассы

    sm_sl   NUMBER(5) := 34;                 -- ID места хранения

    k_outF  UTL_FILE.FILE_TYPE;
    k_inF   UTL_FILE.FILE_TYPE;
    k_Dir   VARCHAR2(20) := 'SM_DATA';       -- директория, созданная в базе. до версии 9.2.0 тут должен быть путь к файлу
    k_inN   VARCHAR2(20) := 'PLUCASH.dat';   -- имя файла входных данных
    k_outN  VARCHAR2(20) := 'PLUCASH2.dat';  -- имя выходного файла

    tab     char(1) := ','; --  разделитель полей
    cn      VARCHAR2(511);  --  загружаемая строка
    cac     NUMBER(3);      --  номер позиции разделителя полей
    cnb     VARCHAR2(255);  --  начало строки до addnum1
    cne     VARCHAR2(255);  --  конец строки после addnum1

    sm_article VARCHAR2(255); -- артикул СМ+
    sm_goods   NUMBER(8,3);   -- остаток по документам
    sm_online  NUMBER(8,3);   -- оперативные продажи
    sm_remains VARCHAR2(255); -- оперативный остаток в тексте для вставки в выгрузку
    check_art  NUMBER(5);     -- для проверки, что артикул еще жив (всякое бывает)

BEGIN
    k_inF := UTL_FILE.FOPEN(k_Dir,k_inN,'r');
    k_outF := UTL_FILE.FOPEN(k_Dir,k_outN,'w');

    loop
      -- пробегаем циклом по файлу карточек
      begin
        UTL_FILE.GET_LINE(k_inF,cn);
      exception
        WHEN NO_DATA_FOUND THEN EXIT;
      end;

      cac := instr(cn,tab);                             -- находим первый разделитель
      sm_article := replace(SUBSTR(cn,1,cac-1),'"',''); -- в первом поле в кавычках артикул. достаем его оттуда

      -- addnum1 - восьмое поле. то есть поле после седьмого разделителя
      cac := instr(cn,tab,1,7);                         -- находим 7-й разделитель
      cnb := SUBSTR(cn,1,cac);                          -- запоминаем начало строки до поля addnum1
      cne := SUBSTR(cn,cac+1);                          -- запоминаем конец строки

      sm_remains := '0';                                -- обнулим остатки на случай, если в базе про них ничего не найдем

      -- если артикул в базе нашелся - достаем его остатки и оперативные продажи
      SELECT count(*) INTO check_art FROM SMCard WHERE Article = sm_article;
      if check_art = 1 then
        begin

          -- остатки
          sm_goods :=0 ; 
          SELECT count(*) INTO check_art FROM smgoods WHERE Article = sm_article AND storeloc=sm_sl;
          if check_art = 1 then
            SELECT quantity INTO sm_goods FROM smgoods WHERE article=sm_article AND storeloc=sm_sl;
          end if;  

          -- оперативные продажи  
          sm_online := 0 ;
          SELECT count(*) INTO check_art FROM smopergoods WHERE article=sm_article AND locid=sm_sl;
          if check_art > 0 then
            SELECT nvl(sum(salequantity),0)-nvl(sum(returnquantity),0) INTO sm_online FROM smopergoods WHERE article=sm_article AND locid=sm_sl;
          end if;  
            
          -- считаем оперативный остаток, переводим в текст, заменяем десятичный разделитель (чтобы не зависеть от региональных настроек)
          sm_remains := replace(to_char(sm_goods - sm_online),',','.');
        end;
      end if;  

      -- собираем обратно строку для выгрузки
      cn := cnb||sm_remains||cne;

      -- пишем готовую строку в исходящий файл
      UTL_FILE.PUTF(k_outF,cn||'\n');
      UTL_FILE.FFLUSH(k_outF);

    end loop;

    UTL_FILE.FCLOSE(k_inF);
    UTL_FILE.FCLOSE(k_outF);

--------------------------------------------------            

EXCEPTION
  WHEN UTL_FILE.INVALID_PATH THEN 
        RAISE_APPLICATION_ERROR(-20100, 'Invalid Path');
  WHEN UTL_FILE.INVALID_MODE THEN 
        RAISE_APPLICATION_ERROR(-20101, 'Invalid Mode');
  WHEN UTL_FILE.INVALID_OPERATION THEN 
        RAISE_APPLICATION_ERROR(-20101, 'Invalid Operation');
  WHEN UTL_FILE.INVALID_FILEHANDLE THEN 
        RAISE_APPLICATION_ERROR(-20300,'Invalid File Handle');
  WHEN UTL_FILE.WRITE_ERROR THEN 
        RAISE_APPLICATION_ERROR(-20301,'Write Error');
  WHEN UTL_FILE.INTERNAL_ERROR THEN 
        RAISE_APPLICATION_ERROR(-20302,'Internal Error');
END;
/