<mysql_data>
</mysql_data>
<fbsql_data dest_pharm_id="0">
/*
<nzok_update_date>16.05.2026</nzok_update_date> 
<fix_index>1</fix_index> 
<comment>Отпадащи НЗОК кодове от следващ период</comment> 
*/
UPDATE AXP_ENV_VARS SET VAR_VALUE = '16.05.2026' WHERE VAR_NAME = 'NZOKInactiveAfterPrescriptionDate';
DELETE FROM NZOK_INACTIVE_AFTER_DATE;
INSERT INTO NZOK_INACTIVE_AFTER_DATE (NZOK_CODE) VALUES ('BF403');
INSERT INTO NZOK_INACTIVE_AFTER_DATE (NZOK_CODE) VALUES ('CG754');
INSERT INTO NZOK_INACTIVE_AFTER_DATE (NZOK_CODE) VALUES ('CG780');
INSERT INTO NZOK_INACTIVE_AFTER_DATE (NZOK_CODE) VALUES ('CG940');
INSERT INTO NZOK_INACTIVE_AFTER_DATE (NZOK_CODE) VALUES ('CG941');
INSERT INTO NZOK_INACTIVE_AFTER_DATE (NZOK_CODE) VALUES ('HF146');
INSERT INTO NZOK_INACTIVE_AFTER_DATE (NZOK_CODE) VALUES ('HF147');
INSERT INTO NZOK_INACTIVE_AFTER_DATE (NZOK_CODE) VALUES ('NF631');
INSERT INTO NZOK_INACTIVE_AFTER_DATE (NZOK_CODE) VALUES ('RF225');
INSERT INTO NZOK_INACTIVE_AFTER_DATE (NZOK_CODE) VALUES ('VF046');
INSERT INTO NZOK_INACTIVE_AFTER_DATE (NZOK_CODE) VALUES ('VF054');

SET TERM ^ ;

create or alter procedure SP_SET_WS_ORDER_ACC
as
declare variable WS_ORDER_URL varchar(255);
declare variable PHARMACY_CODE integer;
declare variable PHARMACY_PASS varchar(50);
declare variable SUPPLIER_ID integer;
begin
  select
    'http://b2b.phoenixpharma.bg/bg/webservice/' as ws_order_url,
    (select first 1 s1.PHARMACY_CODE from SUPPLIER s1 where (s1.STICKER = 'LA')) pharmacy_code,
    (select first 1 cd.AUTOMATIC_ORDER_PASS from company_data cd) pharmacy_pass
  from rdb$database r1
  into
    :ws_order_url,
    :pharmacy_code,
    :pharmacy_pass;

  supplier_id = null;
  select
    s.id
  from supplier s
  where s.STICKER = 'LA'
  into
    :supplier_id;

  if (:supplier_id is not null) then
  begin
    if (not exists(select ws.id from WS_ORDER_SETTINGS ws where ws.SUPPLIER_ID = :supplier_id)) then
      insert into WS_ORDER_SETTINGS(
        ID, SUPPLIER_ID, SERVER_URL1, SERVER_URL2,
        USER_NAME, PWD, CUSTOMER_CODE, STORE_CODE, IS_ACTIVE_FOR_ORDERS,
        LAST_NOM_UPDATE_DATE
      ) values (
        gen_id(WS_ORDER_SETTINGS_ID, 1), :supplier_id, :ws_order_url, '',
        :pharmacy_code, :pharmacy_pass, :pharmacy_code, '1', 'T', null
      );
    else
      update WS_ORDER_SETTINGS
      set
        SERVER_URL1 = :ws_order_url,
        USER_NAME = :pharmacy_code,
        PWD = :pharmacy_pass,
        CUSTOMER_CODE = :pharmacy_code,
        STORE_CODE = '1',
        IS_ACTIVE_FOR_ORDERS = 'T'
      where (SUPPLIER_ID = :supplier_id);

    EXECUTE PROCEDURE SP_SET_AEV('EnableWSOrdersMode', 'T');
  end

end^

SET TERM ; ^

EXECUTE PROCEDURE SP_SET_WS_ORDER_ACC;
</fbsql_data>