// Розничная цена у препаратов ЖНВЛС и не ЖНВЛС рассчитывается от цены изготовителя,
// с пересчетом наценки, с округлением
// последнее изменение 14.04.2010


var PRICE : Double;

// Функция округления до определенного разряда
function My_Round(X:extended; n:integer):extended;
 begin
   Result:=Round(X * Exp(n * Ln(10))) / Round(Exp(n * Ln(10)));
 end;

procedure Nacen_Recalc;
 begin
    If (CENA_IZG > CENA_GR) and (CENA_GR > 0) then ShowMessage('Внимание! Цена Изг > Цена ГР'+#13#10#13#10#13#10#13#10#13#10#13#10#13#10#13#10);
    If ((LIVE_PREP = 1) or (NAME_REGTYPE = 'ЖНВЛС')) then
      begin
        If (PRICE <= 50) then
          If (NACEN_ROZN > 50) then
            begin
              NACEN_ROZN:= 50;
              ShowMessage('Процент розничной надбавки не больше 50%'+#13#10#13#10#13#10#13#10#13#10#13#10#13#10#13#10);
            end
          else If NACEN_ROZN = 0 then NACEN_ROZN:= 50;
        If (PRICE > 50) and (PRICE <= 500) then
          If (NACEN_ROZN > 45) then
            begin
              NACEN_ROZN:= 45;
              ShowMessage('Процент розничной надбавки не больше 45%'+#13#10#13#10#13#10#13#10#13#10#13#10#13#10#13#10);
            end
          else If NACEN_ROZN = 0 then NACEN_ROZN:= 45;
        If (PRICE > 500) then
          If (NACEN_ROZN > 35) then
            begin
              NACEN_ROZN:= 35;
              ShowMessage('Процент розничной надбавки не больше 35%'+#13#10#13#10#13#10#13#10#13#10#13#10#13#10#13#10);
            end
          else If NACEN_ROZN = 0 then NACEN_ROZN:= 35;
        If (PRICE <= 50) and (NACEN_OPT > 20) then ShowMessage('Наценка поставщика более 20%'+#13#10#13#10#13#10#13#10#13#10#13#10#13#10#13#10);
        If (PRICE > 50) and (PRICE <= 500) and (NACEN_OPT > 15) then ShowMessage('Наценка поставщика более 15%'+#13#10#13#10#13#10#13#10#13#10#13#10#13#10#13#10);
        If (PRICE > 500) and (NACEN_OPT > 13) then ShowMessage('Наценка поставщика более 13%'+#13#10#13#10#13#10#13#10#13#10#13#10#13#10#13#10);
      end
    else
      begin
        If (NACEN_OPT_NDS <> 18) then
          If (NACEN_ROZN > 50) then
            begin
              NACEN_ROZN:= 50;
              ShowMessage('Процент розничной надбавки не больше 50%'+#13#10#13#10#13#10#13#10#13#10#13#10#13#10#13#10);
            end
          else
            begin
              If NACEN_ROZN = 0 then NACEN_ROZN:= 50; //здесь менять предельную наценку на не ЖНВЛС
            end
        else
            begin
              If CENA_IZG = 0 then PRICE:= CENA_OPT; // если не лс и цена изг нулевая - берем опт
              If NACEN_ROZN = 0 then NACEN_ROZN:= 50;   //  здесь менять наценку на НДС=18%
            end
      end;
    If ((LIVE_PREP = 1) or (NAME_REGTYPE = 'ЖНВЛС')) and (PRICE = 0) then
      begin
        ShowMessage('Внимание! Цена Изг = Цена ГР = 0, ЖНВЛС'+#13#10#13#10#13#10#13#10#13#10#13#10#13#10#13#10);
        NACEN_ROZN:= 0;
      end;
 end;

//Расчет отпускных цен
procedure Cena_Raschet;
 begin
    If (LIVE_PREP=1) then
      begin
        HAND_NACEN:=1;
        CENA_ROZN:= Int((PRICE * NACEN_ROZN / 100 * (1 + NACEN_OPT_NDS / 100)  + CENA_OPT_NDS) * 100) / 100;
        Round_Cena;
        If PRICE > 0 then NACEN_ROZN:= My_Round(((CENA_ROZN - CENA_OPT_NDS) / (PRICE * (1 + NACEN_OPT_NDS / 100)) * 100), 3);
      end
    else
      begin
        HAND_NACEN:=0;
        If (NACEN_OPT_NDS <> 18) then
          begin
            CENA_ROZN:= Int((PRICE * NACEN_ROZN / 100 * (1 + NACEN_OPT_NDS / 100)  + CENA_OPT_NDS) * 100) / 100;
            Round_Cena;
            If PRICE > 0 then NACEN_ROZN:= My_Round(((CENA_ROZN - CENA_OPT_NDS) / (PRICE * (1 + NACEN_OPT_NDS / 100)) * 100), 3);
          end
        else
          begin
            CENA_ROZN:= Int((PRICE * NACEN_ROZN / 100 * (1 + NACEN_OPT_NDS / 100)  + CENA_OPT_NDS) * 100) / 100;
            Round_Cena;
            If PRICE > 0 then NACEN_ROZN:= My_Round(((CENA_ROZN - CENA_OPT_NDS) / (PRICE * (1 + NACEN_OPT_NDS / 100)) * 100), 3);
          end;
      end;
    //If ((CENA_OPT > 0) or (CENA_OPT = 0)) and (CENA_IZG = 0) and (NACEN_OPT_NDS <> 18) then HAND_NACEN:= 1;
    CENA_ROZN_CLEAR:= CENA_ROZN - My_Round(CENA_ROZN - (CENA_ROZN / (1 + NACEN_OPT_NDS / 100)), 2);
 end;

//Округление розничных цен
procedure Round_Cena;
 begin
 // округление до 5 коп
    {If CENA_ROZN - Int(CENA_ROZN * 10) / 10 > 0.05 then
        CENA_ROZN:= Int(CENA_ROZN * 10) / 10 + 0.05
     else
        CENA_ROZN:= Int(CENA_ROZN * 10) / 10;}
 // округление до 10 коп
    CENA_ROZN:= Int(CENA_ROZN * 10) / 10;
 // округления до 50 коп.
    {If (Int(CENA_ROZN * 10) - (Int(CENA_ROZN) * 10)) > 5
    then CENA_ROZN:= Int(CENA_ROZN) + 0.5
    else CENA_ROZN:= Int(CENA_ROZN); }
 // округления до рубля
    {CENA_ROZN:= Int(CENA_ROZN); }
 // схема округления в зависимости от Цены розн.
    {If CENA_ROZN <= 10 then CENA_ROZN:=Int(CENA_ROZN * 10) / 10;
    If (CENA_ROZN > 10) and (CENA_ROZN <= 100) then
      If CENA_ROZN - Int(CENA_ROZN) > 0.5 then
         CENA_ROZN:= Int(CENA_ROZN) + 0.5
      else
         CENA_ROZN:= Int(CENA_ROZN);
    If CENA_ROZN > 100 then cena_rozn:= Int(CENA_ROZN); }
 end;


// Расчет сумм
procedure Sum_Raschet;
 begin
    SUM_OPT:= My_Round(CENA_OPT * KOL_ALL, 2);
    SUM_OPT_NDS:= My_Round(CENA_OPT_NDS * KOL_ALL, 2);
    SUM_ROZN:= My_Round(CENA_ROZN * KOL_ALL, 2);
    SUM_ROZN_CLEAR:= My_Round(CENA_ROZN_CLEAR * KOL_ALL, 2);
    SUM_PR1:= My_Round(CENA_PR1 * KOL_ALL, 2);
    SUM_PR2:= My_Round(CENA_PR2 * KOL_ALL, 2);
    SUM_PR3:= My_Round(CENA_PR3 * KOL_ALL, 2);
 end;

begin

  If (CENA_GR > 0) and (CENA_GR < CENA_IZG) then
    PRICE := CENA_GR
  else
    PRICE := CENA_IZG;

 Case EDITED_FIELD  of // ВЫБОР РЕДАКТИРУЕМОГО ПОЛЯ

  'KOL_ALL':
   begin
    If (CENA_OPT_NDS = 0) and (CENA_ROZN = 0) then
       NACEN_OPT_NDS:= 10;
    Sum_Raschet;
   end;

  'KOL_RAZB':
   begin
    If KOL_RAZB < 1 then
     begin
       ShowMessage('Поле должно принимать целые значения >= 1');
       KOL_RAZB:= 1;
     end;
    CENA_GR:= My_Round(CENA_GR / KOL_RAZB, 2);
    CENA_IZG:= My_Round(CENA_IZG / KOL_RAZB, 2);
    CENA_OPT:= My_Round(CENA_OPT / KOL_RAZB, 4);
    CENA_OPT_NDS:= My_Round(CENA_OPT_NDS / KOL_RAZB, 4);
    CENA_ROZN:= My_Round(CENA_ROZN / KOL_RAZB, 2);
    CENA_ROZN_CLEAR:= My_Round(CENA_ROZN_CLEAR / KOL_RAZB, 2);
    CENA_PR1:= My_Round(CENA_PR1 / KOL_RAZB, 4);
    CENA_PR2:= My_Round(CENA_PR2 / KOL_RAZB, 4);
    CENA_PR3:= My_Round(CENA_PR3 / KOL_RAZB, 4);
    Sum_Raschet;
   end;

  'CENA_IZG':
   begin
    If (CENA_GR > 0) and (CENA_GR < CENA_IZG) then
     PRICE := CENA_GR
    else
     PRICE := CENA_IZG;
   end;

  'CENA_GR':
   begin
    If (CENA_IZG > CENA_GR) and (CENA_GR > 0) then ShowMessage('Внимание! Цена Изг > Цена ГР'+#13#10#13#10#13#10#13#10#13#10#13#10#13#10#13#10);
    If (CENA_GR > 0) and (CENA_GR < CENA_IZG) then
      PRICE := CENA_GR
    else
      PRICE := CENA_IZG;
   end;

  'NACEN_OPT':
   begin
    If NACEN_OPT > 0 then
         CENA_OPT:= My_Round(CENA_IZG * (1 + NACEN_OPT / 100), 4)
    else
         CENA_OPT:= CENA_IZG;
    SUM_OPT:= My_Round(CENA_OPT * KOL_ALL, 2);
   end;

  'CENA_OPT':
   begin
    If CENA_IZG > 0 then
       NACEN_OPT:= My_Round((CENA_OPT / CENA_IZG - 1) * 100, 3);
    SUM_OPT:= My_Round(CENA_OPT * KOL_ALL, 2);
   end;

  'SUM_OPT':
   begin
    If KOL_ALL > 0 then CENA_OPT:= My_Round(SUM_OPT / KOL_ALL, 4);
   end;

  'NACEN_OPT_NDS':
   begin
    If (NACEN_OPT_NDS <> 0) and (NACEN_OPT_NDS <> 10) and (NACEN_OPT_NDS <> 18) then
     begin
       ShowMessage('Поле должно принимать значения 0, 10 или 18');
       NACEN_OPT_NDS:= 0;
     end;
    If (CENA_OPT > 0) then
      If (NACEN_OPT_NDS > 0) then
           CENA_OPT_NDS:= My_Round(CENA_OPT * (1 + NACEN_OPT_NDS / 100), 4)
      else CENA_OPT_NDS:= CENA_OPT;
    SUM_OPT_NDS:= My_Round(CENA_OPT_NDS * KOL_ALL, 2);
   end;

  'CENA_OPT_NDS':
   begin
    SUM_OPT_NDS:= My_Round(CENA_OPT_NDS * KOL_ALL, 2);
   end;

  'SUM_OPT_NDS':
   begin
    If KOL_ALL > 0 then CENA_OPT_NDS:= My_Round(SUM_OPT_NDS / KOL_ALL, 4);
   end;

  'NACEN_ROZN':
   begin
    Nacen_Recalc;
    Cena_Raschet;
    SUM_ROZN:= My_Round(CENA_ROZN * KOL_ALL, 2);
    SUM_ROZN_CLEAR:= My_Round(CENA_ROZN_CLEAR * KOL_ALL, 2);
    SUM_PR1:= My_Round(CENA_PR1 * KOL_ALL, 2);
    SUM_PR2:= My_Round(CENA_PR2 * KOL_ALL, 2);
   end;


  'CENA_ROZN':  //Обратный расчет от цены розничной
   begin
    If (LIVE_PREP = 1) then HAND_NACEN:=1;
    If (LIVE_PREP = 1) or (NAME_REGTYPE = 'ЖНВЛС') then
      begin
        If PRICE > 0 then NACEN_ROZN:= My_Round(((CENA_ROZN - CENA_OPT_NDS) / (PRICE * (1 + NACEN_OPT_NDS / 100)) * 100), 3);
          begin
            If (NACEN_ROZN > 50) and (PRICE <= 50) then
              begin
                ShowMessage('Процент розничной надбавки не больше 50%');
                NACEN_ROZN:= 50;
                Cena_Raschet;
              end;
            If (NACEN_ROZN > 45) and (PRICE > 50) and (PRICE <= 500) then
              begin
                ShowMessage('Процент розничной надбавки не больше 45%');
                NACEN_ROZN:= 45;
                Cena_Raschet;
              end;
            If (NACEN_ROZN > 35) and (PRICE > 500) then
              begin
                ShowMessage('Процент розничной надбавки не больше 35%');
                NACEN_ROZN:= 35;
                Cena_Raschet;
              end;
          end;
      end
    else
      begin
        If PRICE > 0 then NACEN_ROZN:= My_Round(((CENA_ROZN - CENA_OPT_NDS) / (PRICE * (1 + NACEN_OPT_NDS / 100)) * 100), 3);
        If (NACEN_OPT_NDS <> 18) then
          begin
            If (NACEN_ROZN > 50) then
              begin
                ShowMessage('Процент розничной надбавки не больше 50%');
                NACEN_ROZN:= 50;
                Cena_Raschet;
              end;
          end
        else
          begin
            If CENA_IZG = 0 then PRICE:= CENA_OPT;
          end;
      end;
    CENA_ROZN_CLEAR:= CENA_ROZN - My_Round(CENA_ROZN - (CENA_ROZN / (1 + NACEN_OPT_NDS / 100)), 2);
    SUM_ROZN:= My_Round(CENA_ROZN * KOL_ALL, 2);
    SUM_ROZN_CLEAR:= My_Round(CENA_ROZN_CLEAR * KOL_ALL, 2);
    SUM_PR1:= My_Round(CENA_PR1 * KOL_ALL, 2);
    SUM_PR2:= My_Round(CENA_PR2 * KOL_ALL, 2);
   end;


  'NAME_REGTYPE':
   begin
    Nacen_Recalc;
    Cena_Raschet;
    SUM_ROZN:= My_Round(CENA_ROZN * KOL_ALL, 2);
    SUM_ROZN_CLEAR:= My_Round(CENA_ROZN_CLEAR * KOL_ALL, 2);
   end;

  'LIVE_PREP':
   begin
    Nacen_Recalc;
    Cena_Raschet;
    SUM_ROZN:= My_Round(CENA_ROZN * KOL_ALL, 2);
    SUM_ROZN_CLEAR:= My_Round(CENA_ROZN_CLEAR * KOL_ALL, 2);
   end;

  end;    //КОНЕЦ ВЫБОРА РЕДАКТИРУЕМОГО ПОЛЯ

end.