INSERT INTO WDICTS (ID, PARENT_ID, CAPTION, DESCRIPTION, SOURCE, STATUS, ORDERBYDEFAULT, ORDERFIELD, FIELDLIST, INI, ICON)
            VALUES (7, 0, 'Свои аптеки', NULL, 'APTEKA                         ', 0, NULL, 8, NULL, ';Обязательно должна быть сортировка по уникальному полю, в таблице нужны ключи по этому полу (возр/убыв)
[selectsql]
select * from agents a where exists (select 1
      from GROUP_DETAIL GD
      where GD.GROUPTABLE containing (''AGENTS'') and gd.group_id=-6
      and gd.grouptable_id= a.id) order by EMAIL, CAPTION

[updatesql]

[insertsql]

[deletesql]

[refreshsql]
Select 
 *
from agents
where
  ID = :ID


[cfSelect]
selectfieldexpression=CAPTION
AllwaysPartial=1
[main]
returnfieldname=ID
captionfieldname=CAPTION', NULL);


COMMIT WORK;

UPDATE GROUPS SET 
    DATA = X'0100000000000000000000000000C0FFFFFFDF4101000000010000000000000000CF08000070726F6772616D2047726F757050726F6772616D3B202020200D0A7661722064622C2074726E312C74726E322C7175657279312C7175657279322C7175657279332C636F6E2C7175657279343A2063617264696E616C3B2020200D0A2020202074312C74322C73322C646F635F69643A20737472696E673B0D0A20202020626173655F747970652C20636F6D6D697465645F646F635F69643A20696E74656765723B200D0A20202020202020736C3A2054537472696E674C6973743B0D0A0D0A626567696E0D0A206D5F6D616E616765722E6C6F6769742827C7E0EFF3F1EA20EFF0EEF6E5E4F3F0FB20E0E2F2EEF0E0F1F5EEE4E027293B200D0A20636F6D6D697465645F646F635F69643A3D737472746F696E742870726F6772616D5F726573756C742E76616C7565735B27636F6D6D697465645F646F635F6964275D293B202F2F20E8E420EFF0EEE2E5E4E5EDEDEEE3EE20E4EEEAF3ECE5EDF2E00D0A200D0A2074726E313A3D43524541544549425452414E53414354494F4E3B202020200D0A20535441525449425452414E53414354494F4E2874726E312C31293B0D0A200D0A2074313A3D2773656C65637420434F414C4553434528706172616D5F76616C75652C302920617320706172616D5F76616C75652066726F6D20504152414D5320776865726520504152414D5F49443D27274155544F524153484F445F4D4554484F442727273B0D0A207175657279313A3D45786563494251756572792874726E312C74312C31293B0D0A202F2F6D5F6D616E616765722E6C6F676974287431293B0D0A206966206E6F7420494251554552595F454F462871756572793129207468656E0D0A2020626567696E0D0A20202069662028494251756572795F4669656C6442794E616D655F69287175657279312C2027706172616D5F76616C75652729293D31207468656E0D0A20202020626567696E0D0A202020202020456E6449425472616E73616374696F6E2874726E312C31293B0D0A202020202020657869743B0D0A20202020656E643B0D0A2020656E643B0D0A200D0A2074726E323A3D43524541544549425452414E53414354494F4E3B202020200D0A20535441525449425452414E53414354494F4E2874726E322C31293B200D0A200D0A2074727920202020202020202020202020202020200D0A202020646F635F69643A3D696E74746F73747228636F6D6D697465645F646F635F6964293B0D0A20202074313A3D2773656C6563742064742E626173655F747970652066726F6D20646F63732064206C656674206A6F696E20646F635F7479706573206474206F6E20642E646F635F747970653D64742E696420776865726520642E69643D272B646F635F69643B0D0A2020202F2F6D5F6D616E616765722E6C6F676974287431293B200D0A2020207175657279313A3D45786563494251756572792874726E312C74312C31293B0D0A2020206966206E6F7420494251554552595F454F462871756572793129207468656E0D0A20202020626173655F747970653A3D494251756572795F4669656C6442794E616D655F69287175657279312C2027626173655F7479706527293B20200D0A20202F2F2FEFF0EEE2E5E4E5EDE8E520E0E2F2EEF0E0F1F5EEE4E00D0A202020696620626173655F7479706520203D2031207468656E0D0A20202020626567696E0D0A2020202020736C3A3D54537472696E674C6973742E4372656174653B0D0A2020200D0A202020202073323A3D275B6167656E74735D272331332331302B0D0A2020202020202027747970653D616374696F6E272331332331302B0D0A202020202020202763617074696F6E3DC0E3E5EDF2FB272331332331302B0D0A20202020202020276D6F64653D77646963743D37272331332331302B0D0A202020202020202764656661756C743D272B2331332331303B0D0A2020202020736C2E746578743A3D73323B0D0A202020202020200D0A2020202020696620476574437573746F6D506172616D7328736C2C27E7E0EFEEEBEDE8F2E520E7EDE0F7E5EDE8FF2729207468656E0D0A20202020202073323A3D736C2E76616C7565735B276167656E7473275D20656C736520657869743B0D0A2020200D0A202020202074313A3D2027455845435554452050524F4345445552452050525F4155544F5F504153484F4428272B73322B272C272B646F635F69642B2729273B0D0A20202020202F2F6D5F6D616E616765722E6C6F676974287431293B0D0A20202020207472790D0A2020202020206D5F6D616E616765722E6C6F6769742827D4EEF0ECE8F0F3E5EC20E4EEEAF3ECE5EDF220F0E0F1F5EEE4E027293B0D0A2020202020207175657279323A3D45786563494251756572792874726E322C74312C31293B20200D0A2020202020657863657074202020202020202020200D0A202020202020456E6449425472616E73616374696F6E2874726E322C30293B2020202020200D0A202020202020657869743B0D0A2020202020656E643B2020202020202020202020202020202020200D0A2020202020456E6449425472616E73616374696F6E2874726E322C31293B202F2FCFF0E8EDF3E4E8F2E5EBFCEDFBE920EAEEECECE8F22E0D0A20202020202F2F6D5F6D616E616765722E6C6F6769742827CDE0EAEBE0E4EDE0FF20F3F1EFE5F8EDEE20EEF2EFF0E0E2EBE5EDE020EFEE20F1E8EDF5F0EEEDE8E7E0F6E8E82C20F7E5F0E5E720352D313020ECE8EDF3F220EEF2EEE1F0E0E7E8F2FCF1FF20EDE020EAEEEDE5F7EDEEEC20EFEEEBF3F7E0F2E5EBE5202850525F4155544F5F504153484F442927293B200D0A20202020206D5F6D616E616765722E6C6F6769742827CDE0EAEBE0E4EDE0FF20F3F1EFE5F8EDEE20F1EEE7E4E0EDE02850525F4155544F5F504153484F442927293B202020200D0A202020656E643B0D0A20202065786365707420200D0A2020202020456E6449425472616E73616374696F6E2874726E312C30293B0D0A2020202020657869743B0D0A202020656E643B200D0A206D5F6D616E616765722E494E4954414354495645444F43533B0D0A2F2F206D5F6D616E616765722E6C6F67697428273527293B2020200D0A656E642E500A000049465053110000000E0000000F0000001800000000000000000000008F0C000000544150504C49434154494F4E8F0F000000544652414D45435553544F4D444F438F070000005453454C4543548F10000000544652414D45444F43415243484956458F0E0000005446524D4D414E414745525850328F0B000000544652414D454D4F4E45598F0B00000054535452494E474C4953548F0C000000544652414D454147454E54538F0E000000544652414D454E564750414E454C050A06018F07000000544F424A454354003D0300001307000003001E000000636C6173733A5446524D4D414E414745525850327C4C4F4749547C0000000108535452544F494E5403001A000000636C6173733A54535452494E47537C56414C5545537C02000000031343524541544549425452414E53414354494F4E01000000010312535441525449425452414E53414354494F4E03000000000000030B45584543494251554552590400000001000000030B494251554552595F454F460200000001000315494251554552595F4649454C4442594E414D455F49030000000100000310454E4449425452414E53414354494F4E030000000000000108494E54544F535452030017000000636C6173733A544F424A4543547C4352454154457C0001030019000000636C6173733A54535452494E47537C54455854407C01000000030F474554435553544F4D504152414D5303000000010100030026000000636C6173733A5446524D4D414E414745525850327C494E4954414354495645444F43537C000000000000010B0000004150504C49434154494F4E01000000010B0000004D5F414354495645444F430200000001080000004D5F53454C45435403000000010C0000004D5F444F43415243484956450400000001090000004D5F4D414E414745520500000001100000004D5F43415348444F434152434849564506000000010E00000050524F4752414D5F524553554C540700000001080000004D5F4147454E545308000000010A0000004D5F4E564750414E454C090000000009000000000900000000090000000009000000000900000000090000000009000000000A000000000A000000000A000000000A000000000B000000000B0000000006000000000B0A000000000001000060010A0000001C000000C7E0EFF3F1EA20EFF0EEF6E5E4F3F0FB20E0E2F2EEF0E0F1F5EEE4E00B040000000000020000600004000000050100000004040B0A0000000B0A000000000002000060010A0000000F000000636F6D6D697465645F646F635F69640B06000000000003000060000600000003000100006005030000000404040300160000000502000000040403000A0000000504000000040B0B000000000001000060010B000000010000000B09000000000002000060000A00000005050000000404000011000000010A0000005C00000073656C65637420434F414C4553434528706172616D5F76616C75652C302920617320706172616D5F76616C75652066726F6D20504152414D5320776865726520504152414D5F49443D274155544F524153484F445F4D4554484F44270B0B000000000001000060010B000000010000000B0A00000000000200006000110000000B09000000000003000060000A00000003000C0000000506000000040404040B0C0000000B09000000000002000060000C000000030001000060050700000004040F0001000060110001000060010412960000000B0C0000000B0B0000000B0A000000000003000060010A0000000B000000706172616D5F76616C75650B09000000000004000060000C00000003000200006005080000000404040C0500010000600002000060010B00000001000000041100010000600104122C0000000B0B000000000001000060010B000000010000000B09000000000002000060000A000000050900000004040903000B0000000504000000040B0B000000000001000060010B000000010000000B09000000000002000060000B0000000505000000040413FFFFFFFF3C040000FFFFFFFF6A0400000B0B0000000000010000600016000000030014000000050A0000000404000011000000010A0000005600000073656C6563742064742E626173655F747970652066726F6D20646F63732064206C656674206A6F696E20646F635F7479706573206474206F6E20642E646F635F747970653D64742E696420776865726520642E69643D0100001100000000140000000B0B000000000001000060010B000000010000000B0A00000000000200006000110000000B09000000000003000060000A00000003000C0000000506000000040404040B0C0000000B09000000000002000060000C000000030001000060050700000004040F00010000601100010000600104123B0000000B0A000000000001000060010A00000009000000626173655F747970650B09000000000002000060000C00000003001500000005080000000404040B0C0000000C0500010000600015000000010B00000001000000110001000060010412D20200000B09000000000001000060010900000006000000030017000000050B0000000404000013000000010A0000003F0000005B6167656E74735D0D0A747970653D616374696F6E0D0A63617074696F6E3DC0E3E5EDF2FB0D0A6D6F64653D77646963743D370D0A64656661756C743D0D0A0B0A00000000000100006000130000000B060000000000020000600017000000050C00000004040B0C0000000B0A000000000002000060010A00000012000000E7E0EFEEEBEDE8F2E520E7EDE0F7E5EDE8FF030017000000030001000060050D0000000404041100010000600104123D0000000B0A000000000001000060010A000000060000006167656E74730B0600000000000200006000170000000300130000000503000000040404060100000009000011000000010A00000021000000455845435554452050524F4345445552452050525F4155544F5F504153484F442801000011000000001300000001000011000000010A000000010000002C01000011000000001400000001000011000000010A000000010000002913FFFFFFFF8A000000FFFFFFFFB80000000B0A000000000001000060010A0000001A000000D4EEF0ECE8F0F3E5EC20E4EEEAF3ECE5EDF220F0E0F1F5EEE4E00B040000000000020000600004000000050100000004040B0B000000000001000060010B000000010000000B0A00000000000200006000110000000B09000000000003000060000B00000003000D00000005060000000404040414000B0B000000000001000060010B000000000000000B09000000000002000060000B000000050900000004040914020B0B000000000001000060010B000000010000000B09000000000002000060000B000000050900000004040B0A000000000001000060010A00000029000000CDE0EAEBE0E4EDE0FF20F3F1EFE5F8EDEE20F1EEE7E4E0EDE02850525F4155544F5F504153484F44290B0400000000000200006000040000000501000000040414000B0B000000000001000060010B000000000000000B09000000000002000060000A000000050900000004040914020B040000000000010000600004000000050E000000040900000000'
WHERE (ID = -208);


COMMIT WORK;

SET TERM ^ ;

create or alter procedure PR_AUTO_PASHOD (
    NEW_AGENT_ID bigint,
    TEK_DOC_ID bigint)
as
declare variable NEW_DOC_ID bigint;
declare variable BASE_TYPE integer;
declare variable DOCNUM varchar(250);
declare variable DOCDATE date;
declare variable SESSION_ID bigint;
declare variable TEK_AGENT_ID bigint;
declare variable TEK_AGENT_PLACE DM_TEXT;
declare variable TEK_COMMENTS DM_BLOBTEXT;
begin
  if (:new_agent_id is null) then
   exception EX_WRONG_DB ' Идентификатор контрагента не заполнен';
  if (:TEK_DOC_ID is null) then
   exception EX_WRONG_DB ' Идентификатор документа не заполнен';
  
  select dt.base_type, d.docnum, d.docdate, d.AUDIT_ID, d.AGENT_ID, coalesce(d.agent_place,'0') as agent_place, d.comments
   from docs d
   left join doc_types dt on d.doc_type=dt.id
  where d.id = :TEK_DOC_ID 
  into :base_type, :docnum, :docdate, :SESSION_ID, :TEK_AGENT_ID, :TEK_agent_place, :TEK_COMMENTS;
  
  if (TEK_agent_place = '0') then
   TEK_agent_place = (select first 1 distinct da.gtin_subj from doc_detail da where doc_id = :TEK_DOC_ID and da.gtin_subj <> '');
  
  if (base_type <> 1) then exception EX_WRONG_DB 'Не корректный первоначальный тип документа';
  
  select doc_id from PR_NEWDOC(6, :NEW_AGENT_ID, 0, null, null, :SESSION_ID) into :new_doc_id;
  
--  update docs set 
--    docnum = vnum,
--   -- docdate = :docdate,
--  --  FIRST_AGENT_ID = :TEK_AGENT_ID,
--    --DOC_TREB_ID = :TEK_DOC_ID,
--    --agent_place = :TEK_agent_place,
--    comments = :tek_comments 
--  where id = :new_doc_id;
  
  INSERT INTO DOC_DETAIL_ACTIVE (
    PARENT_ID, DOC_ID, PART_ID, PART_PARENT_ID, DOC_DETAIL_ID, PRICE, NAC, QUANT, DISCOUNT,
    SUMMA, SUMMA_O, DCARD, WARE_ID, PRICE_O, PRICE_Z, PRICE_R, BARCODE, BARCODE1, GODENDO, SERIA, 
    NDS, SUM_NDSO, SERT, DATESERT, KEMVSERT, SDSERT, REGN, NGTD, EDIZM, NAME_ID, IZG_ID, COUNTRY_ID, 
    ORIG_CODE, ORIG_NAME_ID, ORIG_IZG_ID, ORIG_COUNTRY_ID, Z_ID, SKLAD_ID, SNAME, SIZG, SCOUNTRY, 
    SORIG_NAME, SORIG_IZG, SORIG_COUNTRY, INSERTDT, INFO, KOEF, MOTHERPART_ID, DEP, BCODE_IZG, 
    HUMAN_QUANT, SUM_DSC, CUSTOMDRAW, STATUS, PART_TYPE, BASE_AGENT_ID, GROUP_ID, PACKET, VPART_ID,
    MARKING, GTIN_SUBJ, ACCEPTTYPE
  )
  SELECT 
    0, :new_doc_id, dd.part_id, 0, 0, 
    dd.price, dd.NAC, (-1) * dd.quant, COALESCE(dd.discount, 0),
    (-1) * dd.summa, (-1) * dd.summa_o, NULL, 0, dd.price_o, 
    COALESCE(dd.price_z, 0), COALESCE(dd.price_r, 0),
    dd.BARCODE, dd.BARCODE1, 
    COALESCE(cast(dd.godendo as dm_date), '01.01.2000'),
    dd.seria, dd.nds, (-1) * dd.sum_ndso, dd.sert,
    COALESCE(cast(dd.datesert as dm_date), '01.01.2000'),
    dd.kemvsert, 
    COALESCE(cast(dd.sdsert as dm_date), '01.01.2000'),
    dd.regn, dd.ngtd, dd.edizm, 
    dd.name_id, dd.izg_id, dd.country_id, dd.orig_code,
    0, 0, 0, 0, '', 
    dd.sname, dd.sizg, dd.scountry, dd.sname, dd.sizg, dd.scountry, 
    NULL, NULL, 0, 0, dd.dep, dd.bcode_izg, 
    NULL, (-1) * dd.sum_dsc, 
    NULL, 0, 0, 0, 0, NULL, 0,
    dd.MARKING, dd.GTIN_SUBJ, dd.ACCEPTTYPE
  FROM vw_doc_detail dd 
  LEFT JOIN vw_docs d ON dd.doc_id = d.id 
  WHERE dd.doc_id = :TEK_DOC_ID;

  -- Вызов процедуры для копирования данных маркировки
  execute procedure PR_COPY_MARK_DETAIL_KZ(:TEK_DOC_ID, :NEW_DOC_ID);

  -- Проведение документа (раскомментируйте, если нужно)
  -- execute procedure pr_doc_commit(:new_doc_id, :SESSION_ID);
end^

SET TERM ; ^

/* Следующие операторы GRANT сгенерированы автоматически */

GRANT SELECT ON DOCS TO PROCEDURE PR_AUTO_PASHOD;
GRANT SELECT ON DOC_TYPES TO PROCEDURE PR_AUTO_PASHOD;
GRANT SELECT ON DOC_DETAIL TO PROCEDURE PR_AUTO_PASHOD;
GRANT EXECUTE ON PROCEDURE PR_NEWDOC TO PROCEDURE PR_AUTO_PASHOD;
GRANT INSERT ON DOC_DETAIL_ACTIVE TO PROCEDURE PR_AUTO_PASHOD;
GRANT SELECT ON VW_DOC_DETAIL TO PROCEDURE PR_AUTO_PASHOD;
GRANT SELECT ON VW_DOCS TO PROCEDURE PR_AUTO_PASHOD;
GRANT EXECUTE ON PROCEDURE PR_COPY_MARK_DETAIL_KZ TO PROCEDURE PR_AUTO_PASHOD;

/* Существующие привилегии на эту процедуру */

GRANT EXECUTE ON PROCEDURE PR_AUTO_PASHOD TO SYSDBA;