wiki.standart-n.ru - Вклад участника [ru]

Установка ЕГАИС

2017-02-09T06:20:30Z

Ilsiya: /* Склейка партий */

=Настройка jacarta-ключа=
Предварительно нужно установить Единый клиент джакарты
[[Медиа:Получение_КЭП_для_ЕГАИС.docx]]

=Установка Этап 1 (выполняется для '''ВСЕХ''' клиентов)=

==Установить процедуру PR_ALTER_VIEW==
[[Изменения представления| '''PR_ALTER_VIEW''']]

==Заменить версию Менеджера==
Для скриптов ниже актуальная версия Менеджера ManagerXP2_272_62(20160321_155233)
кассира zkassa 2.2.1.22.exe

==Выполнить скрипт==
<pre>
SET TERM ^ ;
/*создание доменов если их нет*/
execute procedure PR_ALTER_VIEW('DM_ID_NULL','','BIGINT','DOMAIN');^
execute procedure PR_ALTER_VIEW('DM_ID','','BIGINT NOT NULL','DOMAIN');^
execute procedure PR_ALTER_VIEW('DM_STATUS','','INTEGER','DOMAIN');^
execute procedure PR_ALTER_VIEW('DM_DATETIME','','TIMESTAMP','DOMAIN');^
execute procedure PR_ALTER_VIEW('DM_TEXT1024','','VARCHAR(1024) CHARACTER SET WIN1251 COLLATE WIN1251','DOMAIN');^
execute procedure PR_ALTER_VIEW('DM_DOUBLE','','DOUBLE PRECISION','DOMAIN');^
execute procedure PR_ALTER_VIEW('DM_ID_NULL','','BIGINT','DOMAIN');^
execute procedure PR_ALTER_VIEW('DM_ID_NULL','','BIGINT','DOMAIN');^

/*не относится к ЕГАИС*/
execute procedure PR_ALTER_VIEW('DOC_DETAIL','FIO_ID','DM_ID_NULL','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL','FIO_BOLNOY_ID','DM_ID_NULL','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL','TYPE_LGOTA','DM_ID_NULL','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL','RECEPT','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','SUM_NDSR','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL','SUM_NDSR','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('DOCS','FIO_ID','DM_ID_NULL','TABLE');^
execute procedure PR_ALTER_VIEW('DOCS','SUM_NDSR','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL','SUM_NDSR','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','MOTHERPART_UUID','DM_UUID_NULL','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','MOTHERPART_UUID','DM_UUID_NULL','TABLE');^
execute procedure PR_ALTER_VIEW('VALS','D$UUID','DM_UUID_NULL','TABLE');^
execute procedure PR_ALTER_VIEW('VALS','L_ID','DM_ID_NULL','TABLE');^

execute procedure PR_ALTER_VIEW('AGENTS','EGAIS_ID','DM_UUID_NULL','TABLE');^
execute procedure PR_ALTER_VIEW('DOCS','EGAIS_NUM','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOCS','EGAIS_ID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOCS','EGAIS_UNITTYPE','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOCS','EGAIS_STATUS','DM_STATUS','TABLE');^

execute procedure PR_ALTER_VIEW('PARTS','EGAIS_ID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','EGAIS_REGID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','EGAIS_BREGID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','EGAIS_ALCCODE','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','EGAIS_QUANT','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','CAPACITY','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','ALC_VOLUME','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','EGAIS_PRODUCER_ID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','EGAIS_BARCODE','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','EGAIS_TYPE','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','PRODUCER_INN','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','PRODUCER_KPP','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','BOTTLINGDATE','DM_DATETIME','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','EGAIS_PRODUCT_VCODE','DM_TEXT','TABLE');^

execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','EGAIS_ID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','EGAIS_BREGID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','EGAIS_REGID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','EGAIS_ALCCODE','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','EGAIS_PRODUCT_VCODE','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','CAPACITY','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','ALC_VOLUME','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','EGAIS_PRODUCER_ID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','EGAIS_QUANT','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','EGAIS_BARCODE','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','EGAIS_TYPE','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','PRODUCER_INN','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','PRODUCER_KPP','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','BOTTLINGDATE','DM_DATETIME','TABLE');^

execute procedure PR_ALTER_VIEW('','','GEN_EGAIS_REQUESTS_ID','generator');^

/*таблица EGAIS_PRODUCERS*/
EXECUTE BLOCK AS BEGIN
if (not exists(select 1 from rdb$relations where rdb$relation_name = 'EGAIS_PRODUCERS')) then
execute statement 'CREATE TABLE EGAIS_PRODUCERS(ID DM_ID NOT NULL);';
END^

execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','INN','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','KPP','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','FULLNAME','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','SHORTNAME','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','COUNTRY','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','POSTINDEX','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','REGIONCODE','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','DESCRIPTION','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','CITY','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','STREET','DM_TEXT','TABLE');^

execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','ID','EGAIS_PRODUCERS_IDX1','INDEX');^

/* таблица EGAIS_REQUESTS*/
EXECUTE BLOCK AS BEGIN
if (not exists(select 1 from rdb$relations where rdb$relation_name = 'EGAIS_REQUESTS')) then
execute statement 'CREATE TABLE EGAIS_REQUESTS (ID DM_ID NOT NULL);';
END^

execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','REPLY_ID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','REPLY_URL','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','QUERY_TYPE','DM_STATUS','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','QUERY_URL','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','QUERY_DATA','DM_BLOBBIN','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','REPLY_DATA','DM_BLOBBIN','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','STATUS','DM_STATUS','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','INSERT_DATE','DM_DATETIME','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','REPLY_DATE','DM_DATETIME','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','EGAIS_ID','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','QUERY_OUT','DM_TEXT1024','TABLE');^

execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','ID','','PRIMARY KEY');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','REPLY_ID','EGAIS_REQUESTS_IDX1','index');^

/* Trigger: EGAIS_REQUESTS_BI */
CREATE OR ALTER TRIGGER EGAIS_REQUESTS_BI FOR EGAIS_REQUESTS
ACTIVE BEFORE INSERT POSITION 0
as
begin
if (new.id is null) then
new.id = gen_id(gen_egais_REQUESTS_id,1);
if (new.insert_date is null) then
new.insert_date = 'now';
end;^

/* Trigger: EGAIS_REQUESTS_BU0 */
CREATE OR ALTER TRIGGER EGAIS_REQUESTS_BU0 FOR EGAIS_REQUESTS
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
if (new.reply_url <> '') then
new.reply_date = 'now';
end;^

create or alter procedure PR_NEW_PART (
DOC_ID type of DM_ID,
PARENT_ID type of DM_ID,
WARE_ID type of DM_UUID_NULL,
PRICE type of DM_DOUBLE,
PRICE_O type of DM_DOUBLE,
PRICE_Z type of DM_DOUBLE,
PRICE_R type of DM_DOUBLE,
QUANT type of DM_DOUBLE,
BARCODE type of DM_TEXT,
BARCODE1 type of DM_TEXT,
DEP type of DM_ID,
GODENDO type of DM_DATETIME,
SERIA type of DM_TEXT,
NDS type of DM_DOUBLE,
SUM_NDSO type of DM_DOUBLE,
SERT type of DM_TEXT,
DATESERT type of DM_DATETIME,
KEMVSERT type of DM_TEXT,
SDSERT type of DM_DATETIME,
REGN type of DM_TEXT,
NGTD type of DM_TEXT,
EDIZM type of DM_TEXT,
NAC type of DM_DOUBLE,
MOTHERPART_ID type of DM_ID,
PART_TYPE DM_STATUS,
BASE_AGENT_ID DM_ID,
SKLAD_ID type of DM_TEXT,
CONTRACT_ID DM_ID,
DOC_DETAIL_ACTIVE_ID DM_ID,
GROUP_ID DM_ID,
MOTHERPART_UUID DM_UUID_NULL = 0,
EGAIS_ID DM_TEXT = null,
EGAIS_REGID DM_TEXT1024 = null,
EGAIS_BREGID DM_TEXT1024 = null,
EGAIS_ALCCODE DM_TEXT1024 = null,
EGAIS_QUANT DM_DOUBLE = 0,
CAPACITY DM_DOUBLE = 0,
ALC_VOLUME DM_DOUBLE = 0,
EGAIS_PRODUCER_ID DM_TEXT1024 = null,
EGAIS_BARCODE DM_TEXT1024 = null,
EGAIS_TYPE DM_TEXT = null,
PRODUCER_INN DM_TEXT1024 = null,
PRODUCER_KPP DM_TEXT1024 = null,
BOTTLINGDATE DM_DATETIME = null,
EGAIS_PRODUCT_VCODE DM_TEXT = null)
returns (
P_ID type of DM_ID)
as
begin
p_id=gen_id(gen_parts_id,1);
insert into parts
(ID,parent_id,doc_id,WARE_ID,PRICE,PRICE_O,PRICE_Z,PRICE_R,QUANT,BARCODE,BARCODE1,DEP,/*KRITK,*/GODENDO,SERIA,NDS,SUM_NDSO,SERT,DATESERT,KEMVSERT,SDSERT,REGN,NGTD,
EDIZM,NAC,motherpart_id,sklad_id,part_type,BASE_AGENT_ID,contract_id, doc_detail_active_id, group_id, motherpart_uuid,
EGAIS_ID, EGAIS_BREGID, EGAIS_REGID, EGAIS_ALCCODE, EGAIS_QUANT, CAPACITY, ALC_VOLUME, EGAIS_PRODUCER_ID, EGAIS_BARCODE,
EGAIS_TYPE, PRODUCER_INN, PRODUCER_KPP, BOTTLINGDATE, EGAIS_PRODUCT_VCODE)
values
(:p_id,:parent_id,:doc_id,:WARE_ID,:PRICE,:PRICE_O,:PRICE_Z,:PRICE_R,:QUANT,:BARCODE,:BARCODE1,:DEP,/*:KRITK,*/:GODENDO,:SERIA,:NDS,:SUM_NDSO,:SERT,:DATESERT,:KEMVSERT,
:SDSERT,:REGN,:NGTD,:EDIZM,:NAC,:motherpart_id,:sklad_id,:part_type,:BASE_AGENT_ID,:contract_id,:doc_detail_active_id, :group_id, :motherpart_uuid,
:EGAIS_ID, :EGAIS_BREGID, :EGAIS_REGID, :EGAIS_ALCCODE, :EGAIS_QUANT, :CAPACITY, :ALC_VOLUME, :EGAIS_PRODUCER_ID, :EGAIS_BARCODE,
:EGAIS_TYPE, :PRODUCER_INN, :PRODUCER_KPP, :BOTTLINGDATE, :EGAIS_PRODUCT_VCODE);
suspend;
end;^

GRANT INSERT ON PARTS TO PROCEDURE PR_NEW_PART;^

GRANT EXECUTE ON PROCEDURE PR_NEW_PART TO PROCEDURE PR_DOC_PRIHOD_COMMIT_RECURSE;^
GRANT EXECUTE ON PROCEDURE PR_NEW_PART TO "PUBLIC";^
GRANT EXECUTE ON PROCEDURE PR_NEW_PART TO STANDART;^
GRANT EXECUTE ON PROCEDURE PR_NEW_PART TO SYSDBA;^

create or alter procedure PR_GET_EGAIS_STATUS (
ID DM_STATUS)
returns (
OUT_TEXT DM_TEXT1024)
as
begin
if ( (id is null) or (id = 0) ) then out_text = 'Не установлен';
else if (id = 1) then out_text = 'Акт принятия принят';
else if (id = 2) then out_text = 'Акт принятия отклонен';
else if (id = 3) then out_text = 'Акт отказа принят';
else if (id = 4) then out_text = 'Акт отказа отклонен';
else if (id = 5) then out_text = 'Акт расхождений принят';
else if (id = 6) then out_text = 'Акт расхождений отклонен';
else out_text = 'Неизвестный статус';

suspend;
end;^

create or alter procedure PR_INSTALL_COMMIT_RECURSE
as
begin

if ((select
count(1)
from rdb$procedure_parameters pp
where 1=1
and pp.rdb$procedure_name='PR_DOC_DETAIL_INSERT'
and pp.rdb$parameter_name='SUM_NDSR')=0 ) then
EXECUTE STATEMENT ('
create or alter procedure PR_DOC_PRIHOD_COMMIT_RECURSE (
DOC_ID type of DM_ID,
DOC_PARENT_ID type of DM_ID,
PART_PARENT_ID type of DM_ID,
DOC_COMMITDATE type of DM_DATE,
CONTRACT_ID DM_ID)
as
declare variable PART_ID type of DM_ID;
declare variable WARE_ID type of DM_UUID_NULL;
declare variable SNAME type of DM_TEXT;
declare variable SIZG type of DM_TEXT;
declare variable SCOUNTRY type of DM_TEXT;
declare variable ORIG_CODE type of DM_TEXT;
declare variable SORIG_NAME type of DM_TEXT;
declare variable SORIG_IZG type of DM_TEXT;
declare variable SORIG_COUNTRY type of DM_TEXT;
declare variable BARCODE type of DM_TEXT;
declare variable Z_ID type of DM_ID;
declare variable SKLAD_ID DM_TEXT;
declare variable PRICE type of DM_DOUBLE;
declare variable PRICE_O type of DM_DOUBLE;
declare variable PRICE_Z type of DM_DOUBLE;
declare variable PRICE_R type of DM_DOUBLE;
declare variable QUANT type of DM_DOUBLE;
declare variable BARCODE1 type of DM_TEXT;
declare variable DEP type of DM_ID;
declare variable KRITK type of DM_DOUBLE;
declare variable GODENDO type of DM_DATETIME;
declare variable SERIA type of DM_TEXT;
declare variable NDS type of DM_DOUBLE;
declare variable SUM_NDSO type of DM_DOUBLE;
declare variable SERT type of DM_TEXT;
declare variable DATESERT type of DM_DATETIME;
declare variable KEMVSERT type of DM_TEXT;
declare variable SDSERT type of DM_DATETIME;
declare variable REGN type of DM_TEXT;
declare variable NGTD type of DM_TEXT;
declare variable EDIZM type of DM_TEXT;
declare variable PARENT_ID type of DM_ID;
declare variable SUMMA type of DM_DOUBLE;
declare variable SUMMA_O type of DM_DOUBLE;
declare variable DISCOUNT type of DM_DOUBLE;
declare variable ACTIVE_ID type of DM_ID;
declare variable NAC type of DM_DOUBLE;
declare variable DOC_DETAIL_ID type of DM_ID;
declare variable MOTHERPART_ID type of DM_ID;
declare variable BCODE_IZG type of DM_TEXT;
declare variable HUMAN_QUANT type of DM_TEXT;
declare variable SUM_DSC type of DM_DOUBLE;
declare variable DCARD type of DM_TEXT;
declare variable PART_TYPE DM_STATUS;
declare variable BASE_AGENT_ID DM_ID;
declare variable GROUP_ID DM_ID;
declare variable MAKE_ID DM_ID_NULL;
declare variable MNN DM_TEXT;
declare variable MOTHERPART_UUID DM_UUID_NULL;
declare variable EGAIS_ID DM_TEXT;
declare variable EGAIS_BREGID DM_TEXT1024;
declare variable EGAIS_REGID DM_TEXT1024;
declare variable EGAIS_ALCCODE DM_TEXT1024;
declare variable CAPACITY DM_DOUBLE;
declare variable ALC_VOLUME DM_DOUBLE;
declare variable EGAIS_PRODUCER_ID DM_TEXT1024;
declare variable EGAIS_QUANT DM_DOUBLE;
declare variable EGAIS_BARCODE DM_TEXT1024;
declare variable EGAIS_TYPE DM_TEXT;
declare variable PRODUCER_INN DM_TEXT1024;
declare variable PRODUCER_KPP DM_TEXT1024;
declare variable BOTTLINGDATE DM_DATETIME;
declare variable EGAIS_PRODUCT_VCODE DM_TEXT;
begin
--whithout SUM_NDSR
for
select
/*ware_id*/ sname,sizg,scountry,orig_code,sorig_name,sorig_izg,sorig_country,barcode,z_id,sklad_id,
/*part_id*/ PRICE,PRICE_O,PRICE_Z,PRICE_R,QUANT,BARCODE1,/*KRITK,*/GODENDO,SERIA,NDS,SUM_NDSO,SERT,DATESERT,KEMVSERT,SDSERT,REGN,NGTD,EDIZM,
PARENT_ID,DISCOUNT,SUMMA,summa_o, id, part_id, nac, doc_detail_id, motherpart_id, dep, bcode_izg, human_quant, SUM_DSC, dcard,
part_type, BASE_AGENT_ID, group_id, make_id, mnn, motherpart_uuid,
EGAIS_ID, EGAIS_BREGID, EGAIS_REGID, EGAIS_ALCCODE, CAPACITY, ALC_VOLUME, EGAIS_PRODUCER_ID, EGAIS_QUANT, EGAIS_BARCODE,
EGAIS_TYPE, PRODUCER_INN, PRODUCER_KPP, BOTTLINGDATE, EGAIS_PRODUCT_VCODE
from doc_detail_active where doc_id=:doc_id and part_parent_id=:doc_parent_id
into
:sname,:sizg,:scountry,:orig_code,:sorig_name,:sorig_izg,:sorig_country,:barcode,:z_id,:sklad_id,
:PRICE,:PRICE_O,:PRICE_Z,:PRICE_R,:QUANT,:BARCODE1,/*:KRITK,*/:GODENDO,:SERIA,:NDS,:SUM_NDSO,:SERT,:DATESERT,:KEMVSERT,:SDSERT,:REGN,:NGTD,:EDIZM,
:PARENT_ID,:DISCOUNT,:SUMMA,:summa_o, :active_id, :part_id, :nac, :doc_detail_id, :motherpart_id, :dep, :bcode_izg, :human_quant, :SUM_DSC, :dcard,
:part_type, :BASE_AGENT_ID, :group_id,:make_id, :mnn, :motherpart_uuid,
:EGAIS_ID, :EGAIS_BREGID, :EGAIS_REGID, :EGAIS_ALCCODE, :CAPACITY, :ALC_VOLUME, :EGAIS_PRODUCER_ID, :EGAIS_QUANT, :EGAIS_BARCODE,
:EGAIS_TYPE, :PRODUCER_INN, :PRODUCER_KPP, :BOTTLINGDATE, :EGAIS_PRODUCT_VCODE
do
begin
-- if ((price<0.001) or (price is null)) then exception EX_PRICE;
if ((price<0) or (price is null)) then exception EX_PRICE;
if (/*(price_o<0.001) or */(price_o is null)) then exception EX_PRICE_O;
if (/*(quant<0.00001) or */(quant is null)) then exception EX_QUANT;
if (/*(summa<0.00001) or */(summa is null)) then exception EX_SUMMA;
if (/*(summa_o<0.00001) or */(summa_o is null)) then exception EX_SUMMA_O;
-- if ((NDS<0.00001) or (NDS is null)) then exception EX_NDS;
if (/*(SUM_NDSO<0) or */(SUM_NDSO is null)) then exception EX_SUM_NDSO;
select w_id from pr_get_ware(:sname,:sizg,:scountry,:orig_code,:sorig_name,:sorig_izg,:sorig_country,:bcode_izg,:z_id,:sklad_id,:part_type,:mnn)
into :ware_id;
if ((part_id=0) or (part_id is NULL)) then
select p_id from pr_new_part(:DOC_ID,:part_parent_id,:WARE_ID,:PRICE,:PRICE_O,:PRICE_Z,:PRICE_R,:QUANT,:BARCODE,:BARCODE1,:DEP,/*:KRITK,*/:GODENDO,:SERIA,:NDS,
:SUM_NDSO,:SERT,:DATESERT,:KEMVSERT,:SDSERT,:REGN,:NGTD,:EDIZM,:NAC,:motherpart_id, :part_type,:BASE_AGENT_ID, :sklad_id, :contract_id, :active_id, :group_id,
:motherpart_uuid, :EGAIS_ID, :EGAIS_REGID, :EGAIS_BREGID, :EGAIS_ALCCODE, :EGAIS_QUANT, :CAPACITY, :ALC_VOLUME, :EGAIS_PRODUCER_ID, :EGAIS_BARCODE,
:EGAIS_TYPE, :PRODUCER_INN, :PRODUCER_KPP, :BOTTLINGDATE, :EGAIS_PRODUCT_VCODE) into :part_id;
execute procedure PR_DOC_DETAIL_INSERT(:doc_detail_id,:DOC_ID,:PART_ID,:QUANT,:DISCOUNT,:SUMMA,:summa_o,:price,:sum_ndso,:nac,:doc_commitdate,:human_quant,:SUM_DSC,:dcard,:active_id,:part_type,:make_id);
-- обновляем членство в группах
execute procedure PR_UPDGROUPDETAIL_ACTIVE2PARTS(:active_id,:part_id);
-- присваиваем ценам партии
update prices set part_id=:part_id where dda_id=:active_id;
update or insert into prices (part_id,price_type,currency_id, price,dda_id) values (:part_id,0,0,:price,:active_id) matching (PART_ID,PRICE_TYPE);
execute procedure PR_DOC_PRIHOD_COMMIT_RECURSE(:doc_id,:active_id,:part_id,:doc_commitdate,:contract_id);
end
end;

');

else

EXECUTE STATEMENT ('
create or alter procedure PR_DOC_PRIHOD_COMMIT_RECURSE (
DOC_ID type of DM_ID,
DOC_PARENT_ID type of DM_ID,
PART_PARENT_ID type of DM_ID,
DOC_COMMITDATE type of DM_DATE,
CONTRACT_ID DM_ID)
as
declare variable PART_ID type of DM_ID;
declare variable WARE_ID type of DM_UUID_NULL;
declare variable SNAME type of DM_TEXT;
declare variable SIZG type of DM_TEXT;
declare variable SCOUNTRY type of DM_TEXT;
declare variable ORIG_CODE type of DM_TEXT;
declare variable SORIG_NAME type of DM_TEXT;
declare variable SORIG_IZG type of DM_TEXT;
declare variable SORIG_COUNTRY type of DM_TEXT;
declare variable BARCODE type of DM_TEXT;
declare variable Z_ID type of DM_ID;
declare variable SKLAD_ID DM_TEXT;
declare variable PRICE type of DM_DOUBLE;
declare variable PRICE_O type of DM_DOUBLE;
declare variable PRICE_Z type of DM_DOUBLE;
declare variable PRICE_R type of DM_DOUBLE;
declare variable QUANT type of DM_DOUBLE;
declare variable BARCODE1 type of DM_TEXT;
declare variable DEP type of DM_ID;
declare variable KRITK type of DM_DOUBLE;
declare variable GODENDO type of DM_DATETIME;
declare variable SERIA type of DM_TEXT;
declare variable NDS type of DM_DOUBLE;
declare variable SUM_NDSO type of DM_DOUBLE;
declare variable SUM_NDSR DM_DOUBLE;
declare variable SERT type of DM_TEXT;
declare variable DATESERT type of DM_DATETIME;
declare variable KEMVSERT type of DM_TEXT;
declare variable SDSERT type of DM_DATETIME;
declare variable REGN type of DM_TEXT;
declare variable NGTD type of DM_TEXT;
declare variable EDIZM type of DM_TEXT;
declare variable PARENT_ID type of DM_ID;
declare variable SUMMA type of DM_DOUBLE;
declare variable SUMMA_O type of DM_DOUBLE;
declare variable DISCOUNT type of DM_DOUBLE;
declare variable ACTIVE_ID type of DM_ID;
declare variable NAC type of DM_DOUBLE;
declare variable DOC_DETAIL_ID type of DM_ID;
declare variable MOTHERPART_ID type of DM_ID;
declare variable BCODE_IZG type of DM_TEXT;
declare variable HUMAN_QUANT type of DM_TEXT;
declare variable SUM_DSC type of DM_DOUBLE;
declare variable DCARD type of DM_TEXT;
declare variable PART_TYPE DM_STATUS;
declare variable BASE_AGENT_ID DM_ID;
declare variable GROUP_ID DM_ID;
declare variable MAKE_ID DM_ID_NULL;
declare variable MNN DM_TEXT;
declare variable MOTHERPART_UUID DM_UUID_NULL;
declare variable EGAIS_ID DM_TEXT;
declare variable EGAIS_BREGID DM_TEXT1024;
declare variable EGAIS_REGID DM_TEXT1024;
declare variable EGAIS_ALCCODE DM_TEXT1024;
declare variable CAPACITY DM_DOUBLE;
declare variable ALC_VOLUME DM_DOUBLE;
declare variable EGAIS_PRODUCER_ID DM_TEXT1024;
declare variable EGAIS_QUANT DM_DOUBLE;
declare variable EGAIS_BARCODE DM_TEXT1024;
declare variable EGAIS_TYPE DM_TEXT;
declare variable PRODUCER_INN DM_TEXT1024;
declare variable PRODUCER_KPP DM_TEXT1024;
declare variable BOTTLINGDATE DM_DATETIME;
declare variable EGAIS_PRODUCT_VCODE DM_TEXT;
begin
--whith SUM_NDSR
for
select
/*ware_id*/ sname,sizg,scountry,orig_code,sorig_name,sorig_izg,sorig_country,barcode,z_id,sklad_id,
/*part_id*/ PRICE,PRICE_O,PRICE_Z,PRICE_R,QUANT,BARCODE1,/*KRITK,*/GODENDO,SERIA,NDS,SUM_NDSO,SUM_NDSR,SERT,DATESERT,KEMVSERT,SDSERT,REGN,NGTD,EDIZM,
PARENT_ID,DISCOUNT,SUMMA,summa_o, id, part_id, nac, doc_detail_id, motherpart_id, dep, bcode_izg, human_quant, SUM_DSC, dcard,
part_type, BASE_AGENT_ID, group_id, make_id, mnn, motherpart_uuid,
EGAIS_ID, EGAIS_BREGID, EGAIS_REGID, EGAIS_ALCCODE, CAPACITY, ALC_VOLUME, EGAIS_PRODUCER_ID, EGAIS_QUANT, EGAIS_BARCODE,
EGAIS_TYPE, PRODUCER_INN, PRODUCER_KPP, BOTTLINGDATE, EGAIS_PRODUCT_VCODE
from doc_detail_active where doc_id=:doc_id and part_parent_id=:doc_parent_id
into
:sname,:sizg,:scountry,:orig_code,:sorig_name,:sorig_izg,:sorig_country,:barcode,:z_id,:sklad_id,
:PRICE,:PRICE_O,:PRICE_Z,:PRICE_R,:QUANT,:BARCODE1,/*:KRITK,*/:GODENDO,:SERIA,:NDS,:SUM_NDSO,:SUM_NDSR,:SERT,:DATESERT,:KEMVSERT,:SDSERT,:REGN,:NGTD,:EDIZM,
:PARENT_ID,:DISCOUNT,:SUMMA,:summa_o, :active_id, :part_id, :nac, :doc_detail_id, :motherpart_id, :dep, :bcode_izg, :human_quant, :SUM_DSC, :dcard,
:part_type, :BASE_AGENT_ID, :group_id,:make_id, :mnn, :motherpart_uuid,
:EGAIS_ID, :EGAIS_BREGID, :EGAIS_REGID, :EGAIS_ALCCODE, :CAPACITY, :ALC_VOLUME, :EGAIS_PRODUCER_ID, :EGAIS_QUANT, :EGAIS_BARCODE,
:EGAIS_TYPE, :PRODUCER_INN, :PRODUCER_KPP, :BOTTLINGDATE, :EGAIS_PRODUCT_VCODE
do
begin
-- if ((price<0.001) or (price is null)) then exception EX_PRICE;
if ((price<0) or (price is null)) then exception EX_PRICE;
if (/*(price_o<0.001) or */(price_o is null)) then exception EX_PRICE_O;
if (/*(quant<0.00001) or */(quant is null)) then exception EX_QUANT;
if (/*(summa<0.00001) or */(summa is null)) then exception EX_SUMMA;
if (/*(summa_o<0.00001) or */(summa_o is null)) then exception EX_SUMMA_O;
-- if ((NDS<0.00001) or (NDS is null)) then exception EX_NDS;
if (/*(SUM_NDSO<0) or */(SUM_NDSO is null or SUM_NDSR is null )) then exception EX_SUM_NDSO;
select w_id from pr_get_ware(:sname,:sizg,:scountry,:orig_code,:sorig_name,:sorig_izg,:sorig_country,:bcode_izg,:z_id,:sklad_id,:part_type,:mnn)
into :ware_id;
if ((part_id=0) or (part_id is NULL)) then
select p_id from pr_new_part(:DOC_ID,:part_parent_id,:WARE_ID,:PRICE,:PRICE_O,:PRICE_Z,:PRICE_R,:QUANT,:BARCODE,:BARCODE1,:DEP,/*:KRITK,*/:GODENDO,:SERIA,:NDS,
:SUM_NDSO,:SERT,:DATESERT,:KEMVSERT,:SDSERT,:REGN,:NGTD,:EDIZM,:NAC,:motherpart_id, :part_type,:BASE_AGENT_ID, :sklad_id, :contract_id, :active_id, :group_id,
:motherpart_uuid, :EGAIS_ID, :EGAIS_REGID, :EGAIS_BREGID, :EGAIS_ALCCODE, :EGAIS_QUANT, :CAPACITY, :ALC_VOLUME, :EGAIS_PRODUCER_ID, :EGAIS_BARCODE,
:EGAIS_TYPE, :PRODUCER_INN, :PRODUCER_KPP, :BOTTLINGDATE, :EGAIS_PRODUCT_VCODE) into :part_id;
execute procedure PR_DOC_DETAIL_INSERT(:doc_detail_id,:DOC_ID,:PART_ID,:QUANT,:DISCOUNT,:SUMMA,:summa_o,:price,:sum_ndso,:sum_ndsr,:nac,:doc_commitdate,:human_quant,:SUM_DSC,:dcard,:active_id,:part_type,:make_id);
-- обновляем членство в группах
execute procedure PR_UPDGROUPDETAIL_ACTIVE2PARTS(:active_id,:part_id);
-- присваиваем ценам партии
update prices set part_id=:part_id where dda_id=:active_id;
update or insert into prices (part_id,price_type,currency_id, price,dda_id) values (:part_id,0,0,:price,:active_id) matching (PART_ID,PRICE_TYPE);
execute procedure PR_DOC_PRIHOD_COMMIT_RECURSE(:doc_id,:active_id,:part_id,:doc_commitdate,:contract_id);
end
end;
');

end^

GRANT EXECUTE ON PROCEDURE PR_INSTALL_COMMIT_RECURSE TO SYSDBA;^

execute procedure PR_INSTALL_COMMIT_RECURSE;^

GRANT EXECUTE ON PROCEDURE PR_GET_EGAIS_STATUS TO SYSDBA;^

execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL_ACTIVE','MOTHERPART_UUID','da.motherpart_uuid');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL_ACTIVE','EGAIS_ID','EGAIS_ID');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL_ACTIVE','EGAIS_BREGID','EGAIS_BREGID');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL_ACTIVE','EGAIS_REGID','EGAIS_REGID');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL_ACTIVE','EGAIS_ALCCODE','EGAIS_ALCCODE');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL_ACTIVE','CAPACITY','CAPACITY');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL_ACTIVE','ALC_VOLUME','ALC_VOLUME');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL_ACTIVE','EGAIS_PRODUCER_ID','EGAIS_PRODUCER_ID');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL_ACTIVE','EGAIS_QUANT','EGAIS_QUANT');^

execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL','MOTHERPART_UUID','p.motherpart_uuid');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL','EGAIS_ID','p.EGAIS_ID');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL','EGAIS_BREGID','p.EGAIS_BREGID');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL','EGAIS_REGID','p.EGAIS_REGID');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL','EGAIS_ALCCODE','p.EGAIS_ALCCODE');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL','CAPACITY','p.CAPACITY');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL','ALC_VOLUME','p.ALC_VOLUME');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL','EGAIS_TTNID','d.EGAIS_ID');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL','EGAIS_QUANT','p.EGAIS_QUANT');^

execute procedure PR_ALTER_VIEW('VW_PARTS','EGAIS_ID','p.EGAIS_ID');^
execute procedure PR_ALTER_VIEW('VW_PARTS','EGAIS_BREGID','p.EGAIS_BREGID');^
execute procedure PR_ALTER_VIEW('VW_PARTS','EGAIS_REGID','p.EGAIS_REGID');^
execute procedure PR_ALTER_VIEW('VW_PARTS','EGAIS_ALCCODE','p.EGAIS_ALCCODE');^

execute procedure PR_ALTER_VIEW('VW_DOCS','EGAIS_NUM','docs.EGAIS_NUM');^
execute procedure PR_ALTER_VIEW('VW_DOCS','EGAIS_ID','docs.EGAIS_ID');^
execute procedure PR_ALTER_VIEW('VW_DOCS','EGAIS_UNITTYPE','docs.EGAIS_UNITTYPE');^
execute procedure PR_ALTER_VIEW('VW_DOCS','EGAIS_STATUS','docs.EGAIS_STATUS');^
execute procedure PR_ALTER_VIEW('VW_DOCS','EGAIS_STATUS_TEXT','(select out_text from PR_GET_EGAIS_STATUS(docs.EGAIS_STATUS))');^

execute procedure PR_ALTER_VIEW('VW_AGENTS','EGAIS_ID','EGAIS_ID');^

create or alter procedure PR_GET_ADDRESS_ID (
COUNTRY_ID DM_ID_NULL,
REGION_ID DM_ID_NULL,
DESCRIPTION DM_TEXT_BIG)
returns (
ID DM_ID_NULL)
as
begin
if ((select id from addr_vals where id = :country_id) is null) then
insert into addr_vals (id, vtype, svalue) values (:country_id, 0, :country_id);
if ((select id from addr_vals where id = :region_id) is null) then
insert into addr_vals (id, vtype, svalue) values (:region_id, 1, :region_id);

select id from addrs where country_id = :country_id and region_id = :region_id and addresstext = :description into :id;
if (id is null) then
insert into addrs (country_id, region_id, addresstext) values (:country_id, :region_id, :description) returning id into :id;

suspend;
end;^

GRANT SELECT,INSERT ON ADDR_VALS TO PROCEDURE PR_GET_ADDRESS_ID;^
GRANT SELECT,INSERT ON ADDRS TO PROCEDURE PR_GET_ADDRESS_ID;^

EXECUTE BLOCK AS BEGIN
if (not exists(select 1 from DOC_TYPES where ID = 40)) then
execute statement '
INSERT INTO DOC_TYPES (ID, CAPTION, INSERTDT, BASE_TYPE, STATINI, REPORTS, VTYPE)
VALUES (40, ''ТТН ЕГАИС'', null, 1, ''[XML]
enabled=1
caption=Печать пакета документов прихода
tmplpath=prihod.xml
askbefore=1

[freereport]
enabled=1
caption=Печать пакета документов прихода
tmplpath=prihod.cffr3

[dbf]
inipath=dbf.ini

[CSV]
inipath=dbf.ini
quotestrings=1
separator=#9
headers=1'', '' [XML]
enabled=1
caption=Печать пакета документов прихода
tmplpath=prihod.xml
askbefore=1

[freereport]
enabled=1
caption=Печать пакета документов прихода
tmplpath=prihod.cffr

;''''doc_id=:doc_id:'''';''''doc_detail=:doc_detail:'''''', 1);';
END^

EXECUTE BLOCK AS BEGIN
if (not exists(select 1 from GROUPS where ID = -10)) then
execute statement '
INSERT INTO GROUPS (ID, PARENT_ID, CAPTION, GROUPTABLE, STATUS, INSERTDT, SYSTEMFLAG, DESCRIPTION, IMAGEINDEX, DATA, COLOR, SORTING, BASE_AGENT_ID)
VALUES (-10, -4, ''ЕГАИС оптовики'', ''AGENTS'', 0, null, 1, NULL, -1, NULL, NULL, NULL, 0);
';
END^

create or alter procedure PR_EDITCUSTOMDOC (
DOC_ID type of DM_ID,
SESSION_ID type of DM_ID,
RGUID type of DM_RGUID)
returns (
CUR_DOC_ID type of DM_ID)
as
declare variable VNUM type of DM_ID_NULL;
declare variable DOC_TYPE type of DM_ID;
declare variable DOC_BASE_TYPE type of DM_ID;
declare variable DOC_STATUS type of DM_STATUS;
declare variable DOC_AGENT_ID type of DM_ID;
declare variable DOCNUM type of DM_TEXT;
declare variable DOC_CAPTION type of DM_TEXT;
declare variable BASE_AGENT_ID integer;
declare variable DOCDATE type of DM_DATETIME;
declare variable EGAIS_NUM DM_TEXT;
declare variable EGAIS_ID DM_TEXT;
declare variable EGAIS_UNITTYPE DM_TEXT;
declare variable EGAIS_STATUS DM_STATUS;
begin
select d.doc_type, d.status, dt.base_type, dt.caption, d.docnum, d.docdate, d.agent_id, d.vnum, d.base_agent_id, EGAIS_NUM, EGAIS_ID, EGAIS_UNITTYPE, EGAIS_STATUS from docs d left join doc_types dt on d.doc_type=dt.id where d.id=:doc_id
into :doc_type, :doc_status, :doc_base_type, :doc_caption, :docnum, :docdate, :doc_AGENT_ID,:vnum, :BASE_AGENT_ID, :EGAIS_NUM, :EGAIS_ID, :EGAIS_UNITTYPE, :EGAIS_STATUS;

if (doc_type is null) then exception EX_CANTFINDDOC_ID;
if (doc_status in (0,-2,2)) then exception EX_WRONGDOCSTATUS;
if (doc_base_type=3) then exception EX_WRONGDOC_BASE_TYPE;
-- if (doc_agent_id <= 0) then exception EX_WRONG_AGENT;
cur_doc_id=gen_id(gen_docs_id,1);
insert into docs (ID,PARENT_ID,DOC_TYPE,STATUS,AGENT_ID,RGUID,AUDIT_ID,DOCNUM,DOCDATE,DELETED_DOC_ID, BASE_AGENT_ID, EGAIS_NUM, EGAIS_ID, EGAIS_UNITTYPE, EGAIS_STATUS)
values (:cur_doc_id,0,:DOC_TYPE,0,:doc_AGENT_ID,:RGUID,:session_ID,:DOCNUM,:DOCDATE,:DOC_ID, :BASE_AGENT_ID, :EGAIS_NUM, :EGAIS_ID, :EGAIS_UNITTYPE, :EGAIS_STATUS);
-- Обновление номера документа на старое значение
UPDATE docs set vnum = :vnum, caption=:doc_caption || ' №' || :vnum where id = :cur_doc_id;

if (doc_base_type=1) then --приход
begin
if (doc_status=1) then --
begin
insert into DOC_DETAIL_ACTIVE (doc_id,part_id,quant,summa,discount,koef,sum_dsc,sum_ndso,sum_ndsr)
select :cur_doc_id,part_id,quant,summa,discount,0,sum_dsc,sum_ndso,sum_ndsr from doc_detail where doc_id=:doc_id;
update DOC_DETAIL_ACTIVE dda set dda.part_id=iif((select count(*) from doc_detail where part_id = dda.part_id) > 1,dda.part_id,0) where dda.doc_id=:cur_doc_id;
end
else
begin
if (doc_status=-1) then
begin
insert into DOC_DETAIL_ACTIVE (doc_id,part_id,quant,summa,discount,koef,sum_dsc)
select :cur_doc_id,part_id,quant,summa,discount,0,sum_dsc from doc_detail_deleted where doc_id=:doc_id;
--update DOC_DETAIL_ACTIVE set part_id=0 where doc_id=:cur_doc_id;
update DOC_DETAIL_ACTIVE dda set dda.part_id=iif((select count(*) from doc_detail where part_id = dda.part_id) > 1,dda.part_id,0) where dda.doc_id=:cur_doc_id;
end
end
end
else if ((doc_base_type=2) or (doc_base_type=7)) then --расход
begin
if (doc_status=1) then
begin
insert into doc_detail_active (doc_id,part_id,quant,dcard,summa,summa_o,nac,discount,sum_ndso,sum_ndsr,koef,sum_dsc)
select :cur_doc_id,part_id,quant,dcard,summa,summa_o,nac,discount,sum_ndso,sum_ndsr,1,sum_dsc from doc_detail where doc_id=:doc_id;
end
else
begin
if (doc_status=-1) then
begin
insert into doc_detail_active (doc_id,part_id,quant,dcard,summa,summa_o,nac,discount,sum_ndso,sum_ndsr,koef,sum_dsc)
select :cur_doc_id,part_id,quant,dcard,summa,summa_o,nac,discount,sum_ndso,sum_ndsr,1,sum_dsc from doc_detail_deleted where doc_id=:doc_id;
end
end
end

suspend;
end;^

set term ; ^
</pre>

==Дополнения к ЕГАИС==
Если вы ставите версию менеджера 68 и выше, то нужно еще установить [[Скрипт дополнений к ЕГАИС]].

=Установка Этап 2 (выполняется для '''ПРОДУКТОВЫХ''' клиентов)=

==В процедуре PR_DOC_COMMIT==
вставить строки после exception EX_WRONGDOC_BASE_TYPE на
<PRE>
/* nicky edit */
if (exists (select * from docs d where d.id = :doc_id and d.doc_type in (3, 9))) then
begin
insert into egais_detail (doc_detail_id, egais_barcode, producer_inn, producer_kpp) select dd.id, dda.egais_barcode, dda.producer_inn, dda.producer_kpp
from doc_detail dd join doc_detail_active dda on dd.doc_id = dda.doc_id and dd.part_id = dda.part_id
join vw_warebase wb on dd.part_id = wb.part_id
where dd.doc_id = :doc_id and (char_length(dda.EGAIS_BARCODE) > 0 or (wb.MMBSH containing '-21={') );
end
/* nicky edit end*/
</PRE>

==во VW_WAREBASE==
добавить EGAIS_PRODUCT_VCODE где источник p.EGAIS_PRODUCT_VCODE и в конце добавить left join parts p on wb.part_id = p.id

==Исправить триггер DOC_DETAIL_ACTIVE_BI==
1) Комментируем строки стандартного приведения
<nowiki>
/*if (new.ware_id<0) then
begin
select goodname, goodizg, goodcountry from PR_MAKEGOODWAREVALUES(new.sname,new.sorig_name,new.sizg,new.sorig_izg,new.scountry,new.sorig_country,new.orig_code,new.id,new.part_type)
into new.sname, new.sizg,new.scountry;
end
*/
</nowiki>

2) После условия <nowiki> if (new.part_id>0) then -- заполняем значения партии </nowiki>,
дополняем выборку из таблицы PARTS полями
<nowiki>
.....
motherpart_uuid,
EGAIS_ID,
EGAIS_REGID,
EGAIS_BREGID,
EGAIS_ALCCODE,
EGAIS_QUANT,
CAPACITY,
ALC_VOLUME,
EGAIS_BARCODE,
EGAIS_TYPE,
PRODUCER_INN,
PRODUCER_KPP,
BOTTLINGDATE,
EGAIS_PRODUCT_VCODE
from parts where id=new.part_id into
......
new.motherpart_uuid,
new.EGAIS_ID,
new.EGAIS_REGID,
new.EGAIS_BREGID,
new.EGAIS_ALCCODE,
new.EGAIS_QUANT,
new.CAPACITY,
new.ALC_VOLUME,
new.EGAIS_BARCODE,
new.EGAIS_TYPE,
new.PRODUCER_INN,
new.PRODUCER_KPP,
new.BOTTLINGDATE,
new.EGAIS_PRODUCT_VCODE;
</nowiki>

3) В конце триггера пишем
<nowiki>
--20160212 Приведение наименований для ЕГАИС, стандартное д.б. отключено
if ((select doc_type from docs where id = new.doc_id)=40) then
if ( (new.capacity is not null) and
(new.bcode_izg is null or trim(new.bcode_izg) = '') and
(select first 1 count(1) from warebase w left join parts p on p.id = w.part_id
where (sname = new.sname or sorig_name = new.sname or sname = new.sorig_name or sorig_name = new.sorig_name) and
(bcode_izg is not null and trim(bcode_izg) <> '') and
(coalesce(p.capacity,0) = new.capacity) and
(coalesce(p.egais_alccode,0) = coalesce(new.egais_alccode,0)) ) > 0
)
then
begin
select first 1 sname, name_id, bcode_izg, w.price from warebase w left join parts p on p.id = w.part_id
where ( (sname = new.sname or sorig_name = new.sname or sname = new.sorig_name or sorig_name = new.sorig_name) and
(bcode_izg is not null and trim(bcode_izg) <> '') and
(coalesce(p.capacity,0) = new.capacity) and
(coalesce(p.egais_alccode,0) = coalesce(new.egais_alccode,0)) )
into new.sname, new.name_id, new.bcode_izg, new.price;
new.summa = new.price*new.quant;
if (new.price_o<>0) then new.nac=(new.price-new.price_o)*100/new.price_o;
End
</nowiki>

==Новый метод редактирования штрихкодов==
<PRE>
CREATE UNIQUE INDEX WARES_IDX1 ON WARES (NAME_ID,IZG_ID,COUNTRY_ID,ORIG_CODE,ORIG_NAME_ID,ORIG_IZG_ID,ORIG_COUNTRY_ID,BARCODE);
CREATE INDEX WARES_LOG_IDX_INSERTDT ON WARES_LOG (INSERTDT);

SET TERM ^ ;

create or alter procedure PR_GET_WARE (
SNAME type of DM_TEXT,
SIZG type of DM_TEXT,
SCOUNTRY type of DM_TEXT,
ORIG_CODE type of DM_TEXT,
SORIG_NAME type of DM_TEXT,
SORIG_IZG type of DM_TEXT,
SORIG_COUNTRY type of DM_TEXT,
BARCODE type of DM_TEXT,
Z_ID type of DM_ID,
SKLAD_ID DM_TEXT,
ALTTYPE DM_STATUS,
MNN DM_TEXT = '')
returns (
W_ID type of DM_ID)
as
declare variable OLD_BARCODE DM_TEXT1024;
declare variable NAME_ID type of DM_ID;
declare variable IZG_ID type of DM_ID;
declare variable COUNTRY_ID type of DM_ID;
declare variable ORIG_NAME_ID type of DM_ID;
declare variable ORIG_IZG_ID type of DM_ID;
declare variable ORIG_COUNTRY_ID type of DM_ID;
begin
if (orig_code is null) then orig_code='';
if (barcode is null) then barcode='';
select val_id from pr_getval_id(:sname,0,:alttype,:mnn) into :name_id;
select val_id from pr_getval_id(:sizg,3,:alttype) into :izg_id;
select val_id from pr_getval_id(:scountry,2,:alttype) into :country_id;
select val_id from pr_getval_id(:sorig_name,1,:alttype) into :orig_name_id;
select val_id from pr_getval_id(:sorig_izg,6,:alttype) into :orig_izg_id;
select val_id from pr_getval_id(:sorig_country,5,:alttype) into :orig_country_id;
select id from wares where NAME_ID=:name_id and IZG_ID=:izg_id and COUNTRY_ID=:country_id and
ORIG_CODE=:orig_code and ORIG_NAME_ID=:orig_name_id and
ORIG_IZG_ID=:orig_izg_id and ORIG_COUNTRY_ID=:orig_country_id and barcode=:barcode into :w_id;
if (w_id is null) then
begin
-- exception EX_WRONG_OPER;
w_id=gen_id(gen_wares_id,1);
--w_id=UUID_TO_CHAR(GEN_UUID());
insert into wares (ID,NAME_ID,IZG_ID,COUNTRY_ID,ORIG_CODE,ORIG_NAME_ID,ORIG_IZG_ID,ORIG_COUNTRY_ID,BARCODE,Z_ID,SKLAD_ID)
values
(:W_ID,:NAME_ID,:IZG_ID,:COUNTRY_ID,:ORIG_CODE,:ORIG_NAME_ID,:ORIG_IZG_ID,:ORIG_COUNTRY_ID,:BARCODE,:Z_ID,:SKLAD_ID);
end
--else if (old_barcode <> barcode) then update wares set barcode = :barcode where id = :w_id;
suspend;
end^

SET TERM ; ^

/* Following GRANT statetements are generated automatically */

GRANT EXECUTE ON PROCEDURE PR_GETVAL_ID TO PROCEDURE PR_GET_WARE;
GRANT SELECT,INSERT ON WARES TO PROCEDURE PR_GET_WARE;

/* Existing privileges on this procedure */

GRANT EXECUTE ON PROCEDURE PR_GET_WARE TO PROCEDURE PR_DOC_PRIHOD_COMMIT_RECURSE;
GRANT EXECUTE ON PROCEDURE PR_GET_WARE TO "PUBLIC";
GRANT EXECUTE ON PROCEDURE PR_GET_WARE TO STANDART;
GRANT EXECUTE ON PROCEDURE PR_GET_WARE TO SYSDBA;

SET TERM ^ ;

create or alter procedure PR_GETWARE_BY_IDS (
NAME_ID type of DM_ID,
IZG_ID type of DM_ID,
COUNTRY_ID type of DM_ID,
ORIG_CODE type of DM_TEXT,
ORIG_NAME_ID type of DM_ID,
ORIG_IZG_ID type of DM_ID,
ORIG_COUNTRY_ID type of DM_ID,
DOINSERT type of DM_STATUS,
SEARCHINLOGS type of DM_STATUS,
BARCODE DM_TEXT)
returns (
WARE_ID type of DM_ID)
as
begin
if (orig_code is null) then orig_code='';
if (searchinlogs is null) then searchinlogs=0;
if (searchinlogs=1) then
begin
select first 1 id from wares_log where name_id=:name_id and izg_id=:izg_id and country_id=:country_id and
orig_code=:orig_code and orig_name_id=:orig_name_id and orig_izg_id=:orig_izg_id and orig_country_id=:orig_country_id
and barcode=:barcode order by insertdt desc
into :ware_id;
if ((select id from wares where id = :ware_id) is null) then ware_id = null;
end
else
begin
select id from wares where name_id=:name_id and izg_id=:izg_id and country_id=:country_id and
orig_code=:orig_code and orig_name_id=:orig_name_id and orig_izg_id=:orig_izg_id and orig_country_id=:orig_country_id
and barcode=:barcode
into :ware_id;
end
if ((ware_id is null) and (DOINSERT=1) and (searchinlogs<>1)) then
begin
ware_id=gen_id(gen_wares_id,1);
-- ware_id=UUID_TO_CHAR(GEN_UUID());
insert into wares (ID,NAME_ID,IZG_ID,COUNTRY_ID,ORIG_CODE,ORIG_NAME_ID,ORIG_IZG_ID,ORIG_COUNTRY_ID,Z_ID,SKLAD_ID, barcode)
values
(:ware_id,:NAME_ID,:IZG_ID,:COUNTRY_ID,:ORIG_CODE,:ORIG_NAME_ID,:ORIG_IZG_ID,:ORIG_COUNTRY_ID,0,'',:barcode);
end

suspend;
end^

SET TERM ; ^

/* Following GRANT statetements are generated automatically */

GRANT SELECT ON WARES_LOG TO PROCEDURE PR_GETWARE_BY_IDS;
GRANT SELECT,INSERT ON WARES TO PROCEDURE PR_GETWARE_BY_IDS;

/* Existing privileges on this procedure */

GRANT EXECUTE ON PROCEDURE PR_GETWARE_BY_IDS TO PROCEDURE PR_MAKEGOODWAREVALUES;
GRANT EXECUTE ON PROCEDURE PR_GETWARE_BY_IDS TO PROCEDURE PR_UPDATEWARE;
GRANT EXECUTE ON PROCEDURE PR_GETWARE_BY_IDS TO PROCEDURE PR_UPDATEWARE4PART;
GRANT EXECUTE ON PROCEDURE PR_GETWARE_BY_IDS TO STANDART;
GRANT EXECUTE ON PROCEDURE PR_GETWARE_BY_IDS TO SYSDBA;

Update params p set p.param_value = '1' where p.param_id ='BCODE_IZG_EDIT_MODE';

Update params p set p.param_value = 'Нет' where p.param_id ='ELNAKL_MAKE_LOCAL_GN';
Update params p set p.param_value = 'Нет' where p.param_id ='ELNAKL_MAKE_GLOBAL_GN';
</PRE>

==установка журнала продажи алкоголя==
после выполнения скрипта расположенного ниже - поместить
в таблице REPORTS в отчёт - журнал продажи алкоголя в поле data содержимое файла otch_alko.txt из архива [[Медиа:Alko.zip]]
также в таблице groups поместить в поле data в строку Пиво содержимое файла groups_pivo.TXT из того же архива
и в строку Алкоголь файл groups_alko.TXT
<PRE>
CREATE OR ALTER VIEW VW_ALKO(
ID,
DOC_TYPE,
CAPTION,
DOCDATE,
EGAIS_BARCODE,
SNAME,
ORIG_CODE,
CAPACITY,
QUANT)
AS
select d.id, d.doc_type, d.caption, d.docdate, ed.egais_barcode as egais_barcode, dd.sname, p.EGAIS_PRODUCT_VCODE, dd.capacity, iif(ed.egais_barcode='-',dd.quant,-1)
from egais_detail ed
left join vw_doc_detail dd on dd.id = ed.doc_detail_id
left join vw_docs d on d.id = dd.doc_id
left join parts p on dd.part_id = p.id
where d.doc_type = 3 or d.doc_type = 9
;

INSERT INTO REPORTS ( PARENT_ID, STATUS, REPORTTYPE, SORTING, CAPTION, PARAMS, WDICT_ID, DATA) VALUES ( 0, 0, 0, 0, 'Журнал продажи алкоголя', '', 25, NULL);

INSERT INTO GROUPS (ID, PARENT_ID, CAPTION, GROUPTABLE, STATUS, INSERTDT, SYSTEMFLAG, DESCRIPTION, IMAGEINDEX, DATA, COLOR, SORTING, BASE_AGENT_ID, PACKET, SID) VALUES (-20, -8, 'Алкоголь', 'PARTS.NAME_ID', 0, '30-DEC-2015 14:41:25.011', 1, NULL, -1, NULL, 16777088, 8, 0, 6379, NULL);

INSERT INTO GROUPS (ID, PARENT_ID, CAPTION, GROUPTABLE, STATUS, INSERTDT, SYSTEMFLAG, DESCRIPTION, IMAGEINDEX, DATA, COLOR, SORTING, BASE_AGENT_ID, PACKET, SID) VALUES (-21, -20, 'Пиво', 'PARTS.NAME_ID', 0, '30-DEC-2015 14:41:43.135', 1, NULL, -1, NULL, 516088, 8, 0, 6393, NULL);
</PRE>

==Склейка партий==
в менеджере ТМС перед авторизацией пользователя изменить запрос ищущий партии для склейки на подобный(или добавить нужные поля вручную - объём, содержание спирта...)
<PRE>
Select count(part_id),sname,base_agent_id,price, docagent,capacity, sum(quant) as quant
from VW_WAREBASE
where quant <> 0
group by sname,base_agent_id,price, docagent,capacity
having count(part_id)>1
</PRE>

==ТМС проверки новых накладных от ЕГАИС==
ТМС - вспомогательные - добавить новую ТМС "Проверить накладные"
<nowiki>
uses
Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Messages, SysUtils,
ToolWin, ImgList, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, StdCtrls,
unMain,DB, IBQuery, IBDatabase, unDM, DBTables, cfdxUtils, Menus, System,
Buttons, ExtCtrls, StdCtrls, cfSelectEdit,need,
gb_table, Grids, ClipBrd, DBGrids, unFrameCustomDict, cfWindows;

var qWork: TIBQuery;
tmRefresh: TTimer;
m: TMemo;

procedure ShowData;
var docnum: string;
begin
try
qWork:=dm.TempQuery(nil);
try
//m.Clear;
if qWork.Transaction.Active then qWork.Transaction.Rollback;
qWork.Transaction.StartTransaction;
qWork.Active:=false;
qWork.SQL.Text:='select list(docnum) as docnum from docs where status=2 and doc_type = 40';
qWork.Active:=true;
docnum:=qWork.FieldByName('docnum').AsString;
if trim(docnum)<>'' then
begin
m.Color:=$008080FF;
frmManagerXP2.LogIt('Внимание, новые накладные ЕГАИС № '+trim(docnum)+#13#10+'Откройте отложенные документы из журнала.');
end
else
m.Color:=clWhite;
except
// ShowMessage(GLEM);
end;
finally
qWork.Free;
end;
end;

procedure tmRefreshTimer;
begin
ShowData;
end;

begin
m:=frmManagerXP2.FindComponent('mmLog');
//m.Font.Name:='Verdana';
//m.Font.Color:=clBlack;
//m.Color:=$008080FF;
ShowData;
tmRefresh:=TTimer.Create(application);
tmRefresh.Interval:=10000;
tmRefresh.OnTimer:='tmRefreshTimer';
end;
</nowiki>

==Вызов ТМС проверки накладных==
ТМС - События - После авторизации пользователя. В коде ХХХ это номер ТМС, созданной в предыдущем пункте
<pre>
uses
Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Messages, SysUtils,
ToolWin, ImgList, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, StdCtrls,
unMain,DB, IBQuery, IBDatabase, unDM, DBTables, cfdxUtils, Menus, System,
Buttons, ExtCtrls, StdCtrls, cfSelectEdit,need,
gb_table, Grids, ClipBrd, DBGrids, unFrameCustomDict, cfWindows, Unit1;

var
mainForm: TForm1;
begin
frmManagerXp2.RunTms(ХХХ,application);
if dm.IsReg = false then
begin
MainForm := TForm1.Create(Application);
MainForm.ShowModal;
end;
end;
</pre>

==Настройка Менеджера==
Перезапустить Менеджер:
1. в сервис - параметры системы - Настройка ЕГАИС указать адрес сервера ЕГАИС и идентификатор;
2. в сервис - параметры системы - автоматизация отключить "Приводить наименования к существующим" и "Приводить наименования через глобальный справочник" (!!!ТОЛЬКО ДЛЯ ПРОДУКТОВ!!!).

==Сетки==
Прикрепленный файл [[Файл:Сетки_ЕГАИС.zip]]

==Проверить УТМ (универсальный транспортный модуль)==
Переходим по ссылке на web страницу УТМ, например http://egais:8080/, смотрим версию модуля, версия должна быть '''не ниже 2.0.1''', если ниже, это значит, что УТМ тестовый.

[[Файл:ЕГАИС_версия_УТМ.png|Версия УТМ]]

==Проверка==
Запустить Менеджер - Инструменты - ЕГАИС Менеджер - Настройки - Перепроверить идентификаторы всех ТТН. После этого нажать "Проверить ТТН". Ошибок быть не должно

[[Файл:Проверка_ИД_ТТН_ЕГАИС.png|Проверка существующих ТТН]]

Теги: ЕГАИС, УТМ, универсальный транспортный модуль

=Модификация ЕГАИС для общепита=
Для организаций, реализующих алкоголь "на разлив", по требованию законодательства, необходимо в журнале продажи алкоголя фиксировать факт вскрытия упаковки.
Данные отправлять в ЕГАИС не нужно, поэтому у таких клиентов на алкогольную продукцию стоит системная группа -21 "Пиво".
Особенности заполнения журнала реализованы через процедуру PR_EGAIS_DETAIL_OBSHEPIT, которая вызывается при проведении документа,
полный скрипт [[Файл:Модификация_ЕГАИС_для_общепита.txt]] обновления прилагается.

=Проблемы при продаже алкоголя=
при отбитии пивного чека бывает ошибка, где написано java и регулярное выражение, например {d+\10} ... и т.п. 
в конце этого сообщения пишется поле, которое не прошло проверку правильности данных. варианты: 
KP - неправильно указан КПП в параметрах системы 
IN - неправильно указан ИНН в параметрах системы 
EAN - неправильно указан шк изготовителя 
BK - неправильно просканирован акциз (скорей всего маленький квадратик вместо основного) 
значение Value состоит только из цифр - не тот штрихкод отсканировали, на акцизе два штрихкода, один маленький, другой большой, пусть закроют пальцем маленький и сканируют большой, в нём должны быть цифры и латинские буквы!!! пример ошибки
<PRE>
java.lang.IllegalArgumentException: org.xml.sax.SAXParseException; cvc-pattern-valid: Value '133-103995646074040516326020775185' is not facet-valid with respect to pattern '\d\d[a-zA-Z0-9]{21}\d[0-1]\d[0-3]\d{10}[a-zA-Z0-9]{31}' for type 'BK'
</PRE>
CODE - не указан код вида продукции egais_product_vcode 
скорее всего не заполнено поле EGAIS_PRODUCT_VCODE - код вида продукции... значит товар был оприходован вручную, а не через ЕГАИС, надо заполнить соответсвенно справочника - в интернете легко найти - искать код вида продукции алкоголь

* достаточно часто стала вылезать при продаже ошибка - не удалось отправить данные в ЕГАИС - скорее всего подвис модуль УТМ - лучший вариант перезагрузить компьютер с УТМ, либо попробовать службу рестартануть, но както не всегда она поднимается
* для заполнения кодов вида продукции удобно воспользоватся фильтром в менеджере
<PRE>
((wb.mmbsh like ('%-21=%')) or (wb.mmbsh like ('%-20=%')) ) and (trim(wb.egais_product_vcode) = '' or (wb.egais_product_vcode is null))
</PRE>
* если не отправляются запросы в егаис, и в ЕГАИС менеджере есть только отправка запроса, но нет ответов - надо перезапустить службу УТМ, подвисла, или перезагрузить компьютер с УТМ либо если не помогает можно посмотретьнастройки брэндмауэра на компьютере с УТМ
* если попросят добавить дату розлива в алкогольных магазинах, используем колонку DATESERT

*если при проведении документа прихода алкоголя выходит ошибка "Conversion error from string "несколько цифр через запятую" At procedure 'PR_DOC_PRIHOD_COMMIT_RECURSE'..."
изменяем в процедурах PR_NEW_PART и PR_DOC_PRIHOD_COMMIT_RECURSE тип переменной egais_id на DM_TEXT

*если в отчёт продажи алкоголя попадают товары не алкоголя
<PRE>
в процедуре PR_DOC_COMMIT
заменить строки после exception EX_WRONGDOC_BASE_TYPE на
/* nicky edit */
if (exists (select * from docs d where d.id = :doc_id and d.doc_type in (3, 9))) then
begin
insert into egais_detail (doc_detail_id, egais_barcode, producer_inn, producer_kpp) select dd.id, dda.egais_barcode, dda.producer_inn, dda.producer_kpp
from doc_detail dd join doc_detail_active dda on dd.doc_id = dda.doc_id and dd.part_id = dda.part_id
join vw_warebase wb on dd.part_id = wb.part_id
where dd.doc_id = :doc_id and (char_length(dda.EGAIS_BARCODE) > 0 or (wb.MMBSH containing '-21={') );
end
/* nicky edit end*/
</PRE>

и выполнить скрипт очистки уже попавших товаров
<PRE>
delete from egais_detail ed1
where ed1.doc_detail_id in
(select dd.id
from egais_detail ed
left join vw_doc_detail dd on dd.id = ed.doc_detail_id
left join vw_docs d on d.id = dd.doc_id
left join vw_warebase wb on wb.part_id = dd.part_id
where not(char_Length(ed.egais_barcode) > 1)
and not ((dd.mmbsh like '%-21={%') or (dd.mmbsh like '%-20={%'))
)
</PRE>

=Частые вопросы по ЕГАИС=

==При отбитии чека выходит сообщение с ошибкой на английском==
В новых версиях кассира сделаны необходимые проверки при добавлении товара в чек, но на всякий случай приводим примеры ошибок от УТМ и что они означают.
* IN - ругается на ИНН, указанный в реквизитах предприятия
* KPP - ругается на КПП, указанный в реквизитах предприятия
* BK - ругается на двумерный штрихкод акциза
* CODE - у какой то позиции не проставлен код вида продукции
* EAN - проблема со штрихкодом производителя
* duplicate - каким то образом в чеке две позиции с одинаковым акцизом
* 50 или 51 - проблема в ккм с печатью qr кода
* ошибка отправки данных - утм не включен

==Алкоголь при добавлении в чек не запрашивает акциз==
Проверьте, что на данной позиции стоит группа 20 Алкоголь.

==При добавлении пива запрашивает акциз, а его нет==
Проверьте, что на данной позиции стоит группа 21 Алкоголь / Пиво, а не группа 20.

==Нужно продать старую бутылку в обход ЕГАИС==
Нужно снять с нее группы 20 и 21.

==У клиента в одной базе два предприятия: ИП и ООО. Какие реквизиты заполнять в реквизитах организации==
В параметрах нужно указывать реквизиты того предприятия, которое торгует алкоголем. Обычно это ООО.

==Что делать если кассир выдает ошибку отправки данных в ЕГАИС без каких либо подробностей==
Скорей всего УТМ не включен. Проверьте УТМ набрав путь к нему в адресной строке браузера или нажмите проверить ттн в менеджере.

==Что делать пытались пробить бутылку но не получилось и бутылку отдали не пробив по программе==
Чтобы выровнять остатки по прорамме, пусть пробивают чек, а акциз сканируют с другой такойже бутылки. если такой бутылки нет, пусть сканируют акциз с другой бутылки.
Адекватным клиентам, можно показать как сохранять акцизы в блокнот (но таких единицы). Конечно, сама ситуация неправильная, но это это лучший выход из нее.
Чтобы таких случаев не было, в есть различные проверки.

==Что делать если на сайте ЕГАИС не совсем корректные остатки==
РАР будет использовать информацию об остатках при проверке деятельности магазинов только с 1.01.2017.

==Будет ли работать ЕГАИС если нет интернета==
Если в точке нет интернета, егаис всеравно будет работать, данные будут сохраняться в утм, qr коды будут печататься, но если их отсканировать и перейти на сайт - там будет пусто. Главное чтобы утм была включена и работала. Когда интернет появится, утм сама синхронизируется с РАР. После этого данные появятся на сайте егаис. Без интернета можно работать 3 дня.

==Что делать если в чеке над qr кодом пишется неверное название магазина==
В егаис при продаже нужно передавать название магазина. Кассир берет его из параметров системы, реквизиты организации, название торговой точки там может стоять ИП какое нибудь (их первое предприятие). Клиентов пугает, что у них выходит ИП вместо ООО. В качестве временного решения предлагаю менять реквизиты, перезапускаем кассира и печатает в чеках нормально, но потом у клиента эти реквизиты выходят в печатных формах и ценниках.

==При продаже алкоголя ругается на штрихкода изготовителя==
Проверьте правильность штрихкода (с бутылки сканируется именно те цифры, какие записаны в программе). Если штрихкода в программе не забит и на бутылке его нет, вставьте локальный штрихкод.

==Ошибка 50 или 51==
Если при продаже алкоголя выходит незавершенка и пишет ошибку 50 или 51 некорретные данные - это значит проблема не в отправке данных, а непосредственно при печати qr кода кассовым аппаратом.
Делаем проверку - в настройках оставляем галочку отправлять данные в егаис, но при этом ставим еще галочку не печатать qr код. Если чек выходит, значит проблема или с тем, что ккм не поддерживает печатать кодов или нужно объяснить прошивку. В крайнем случае оставляем все как есть и объясняем клиенту, что РАР разрешил на время переходного периода не печатать qr код если печатается ссылка, говорим что в ближайшее время исправим эту ситуацию и сообщаем о таких клиентах отделу внедрения. 
Ещё данная ошибка может быть с следующем случае - ККМ старая, перепрошита под ЕГАИС 
старые аппараты не могут печатать большие изображения 
в options.ini под нужным предприятием добавляем строки 
атол (быстро): 
1_QR_Height (100) 
1_QR_Scale (300) 
 
атол (медленно): 
1_QRSlow_BmpScale (7) 
1_QRSlow_Scale (7) 
 
штрих (быстро): 
2_QR_DotSize (7) 
 
штрих (медленно): 
2_QRSlow_BmpScale (7) 
быстро - средствами ККМ, медленно - как графический объект

==Почему в чеке несколько бутылок с алкоголем, а qr код распечатался один==
1 чек - 1 qr код. Если перейти по ссылке, то отобразится информация по всем позициям в чеке.

==Должны ли печататься qr коды при продаже пива==
РАР отменил пивные чеки, т.е. непосредственно при продаже информация в егаис не уходит. В конце дня нужно делать "акт списания из торгового зала со второго регистра" из менеджера, в котором будут все эти продажи.

==Как отпускать алкоголь в общепитах==
От общепита РАР требует только данные по приходу ТТН. Непосредственно при продаже в ЕГАИС ничего отправлять не нужно. Нужно только вести журнал по алкоголю.

==Как сделать возврат поставщику по ЕГАИС==
Открыть журнал документов, встать на проведеннный приход по ттн, нажать на кнопку "сделать возврат" на панели, где находятся и другие кнопки, относящиеся к ЕГАИС. Затем проставить нужное количество и отправить. Не пытайтесь вручную создать расходный документ "возврат по ЕГАИС", добавить в него позиции и провести - это неправильно.

==Где можно посмотреть какой запрос был отправлен в ЕГАИС==
Таблица EGAIS_REQUESTS. Тело запроса будет в колонке QUERY_DATA, а ответ в REPLY_DATA.

==Почему клиент сканирует QR код, переходит на сайт, а там пусто==
Обычно данные появляются на сайте в течении 5 минут после продажи, но могут быть задержки. Я лично был свидетелем, когда после покупки в Красном и Белом данные появились только через полчаса.

==Почему на сайте в информации о чеке неверно отображается дата чека==
Проблема решается обновлением версии кассира.

==Что делать если акт на самом деле принят, но в журнале документов отображается, что не принят?==
В начальных версиях егаис-менеджера была ошибка, что если по ТТН отправляют повторный акт по уже принятой накладной и УТМ по этому запросу возвращает отрицательный ответ (т.к. ттн уже подтверждена), то менеджер меняет в базе статус с принятого на отклонён. Это можно исправить спомощью процедуры:
<pre>
SET TERM ^ ;

create or alter procedure PR_CHECK_TTN_ACCEPTED
returns (
DOC_ID_OUT bigint)
as
declare variable DOC_ID DM_ID;
declare variable EGAIS_ID DM_UUID;
declare variable C DM_STATUS;
begin
for select D.ID,
D.EGAIS_ID
from DOCS D
where D.DOC_TYPE = 40
and D.EGAIS_STATUS = 2
into :DOC_ID,
:EGAIS_ID
do
begin
C = 0;
select first 1 count(*)
from EGAIS_REQUESTS R
where 1 = 1
and R.EGAIS_ID = :EGAIS_ID
and R.REPLY_DATA containing '<tc:Conclusion>Accepted</tc:Conclusion>'
into C;
if (C > 0) then
begin
select :DOC_ID
from RDB$DATABASE
into :DOC_ID_OUT;
update DOCS D
set D.EGAIS_STATUS = 1
where D.ID = :DOC_ID;
suspend;
end
end
end^

SET TERM ; ^

/* Following GRANT statetements are generated automatically */

GRANT SELECT,UPDATE ON DOCS TO PROCEDURE PR_CHECK_TTN_ACCEPTED;
GRANT SELECT ON EGAIS_REQUESTS TO PROCEDURE PR_CHECK_TTN_ACCEPTED;

/* Existing privileges on this procedure */

GRANT EXECUTE ON PROCEDURE PR_CHECK_TTN_ACCEPTED TO SYSDBA;
</pre>
Если каким то образом получилось, что в егаис накладная принята, но в базе нет данных запросов и она там неподтверждена, то ее можно подтвердить вручную спомощью запроса:
<pre>
update docs d set d.egais_status=1 where d.doc_id=:doc_id;
</pre>
==Ошибка при принятии накладной: "Не удалось найти ЕГАИС идентификатор ТТН. Принятие отменено."==
[[Файл:ЕГАИС_ошибка_при_принятии_накладной.png]]

Заходим во входящие запросы, выполняем "запросить данные". Находим строку, на которую ругается ЕГАИС, например, с нужным нам [[Waybill/2701]], и удаляем эту строку.
После чего заходим в личный кабинет ЕГАИС и заново запрашиваем накладную

==Что делать с зависшими накладными==
Если на ТТН уже пришел акт подтверждения, а в модуле ЕГАИС они по прежнему висят, то нужно сделать следующее. В таблице EGAIS_REQUESTS нужно отфильтровать ТТН по статусу. У зависших накладных статус будет 0 или null. Далее у этих ТТН нужно поменять статус на 1.

Установка ЕГАИС

2017-02-09T06:17:15Z

Ilsiya: /* установка журнала продажи алкоголя */

=Настройка jacarta-ключа=
Предварительно нужно установить Единый клиент джакарты
[[Медиа:Получение_КЭП_для_ЕГАИС.docx]]

=Установка Этап 1 (выполняется для '''ВСЕХ''' клиентов)=

==Установить процедуру PR_ALTER_VIEW==
[[Изменения представления| '''PR_ALTER_VIEW''']]

==Заменить версию Менеджера==
Для скриптов ниже актуальная версия Менеджера ManagerXP2_272_62(20160321_155233)
кассира zkassa 2.2.1.22.exe

==Выполнить скрипт==
<pre>
SET TERM ^ ;
/*создание доменов если их нет*/
execute procedure PR_ALTER_VIEW('DM_ID_NULL','','BIGINT','DOMAIN');^
execute procedure PR_ALTER_VIEW('DM_ID','','BIGINT NOT NULL','DOMAIN');^
execute procedure PR_ALTER_VIEW('DM_STATUS','','INTEGER','DOMAIN');^
execute procedure PR_ALTER_VIEW('DM_DATETIME','','TIMESTAMP','DOMAIN');^
execute procedure PR_ALTER_VIEW('DM_TEXT1024','','VARCHAR(1024) CHARACTER SET WIN1251 COLLATE WIN1251','DOMAIN');^
execute procedure PR_ALTER_VIEW('DM_DOUBLE','','DOUBLE PRECISION','DOMAIN');^
execute procedure PR_ALTER_VIEW('DM_ID_NULL','','BIGINT','DOMAIN');^
execute procedure PR_ALTER_VIEW('DM_ID_NULL','','BIGINT','DOMAIN');^

/*не относится к ЕГАИС*/
execute procedure PR_ALTER_VIEW('DOC_DETAIL','FIO_ID','DM_ID_NULL','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL','FIO_BOLNOY_ID','DM_ID_NULL','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL','TYPE_LGOTA','DM_ID_NULL','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL','RECEPT','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','SUM_NDSR','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL','SUM_NDSR','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('DOCS','FIO_ID','DM_ID_NULL','TABLE');^
execute procedure PR_ALTER_VIEW('DOCS','SUM_NDSR','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL','SUM_NDSR','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','MOTHERPART_UUID','DM_UUID_NULL','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','MOTHERPART_UUID','DM_UUID_NULL','TABLE');^
execute procedure PR_ALTER_VIEW('VALS','D$UUID','DM_UUID_NULL','TABLE');^
execute procedure PR_ALTER_VIEW('VALS','L_ID','DM_ID_NULL','TABLE');^

execute procedure PR_ALTER_VIEW('AGENTS','EGAIS_ID','DM_UUID_NULL','TABLE');^
execute procedure PR_ALTER_VIEW('DOCS','EGAIS_NUM','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOCS','EGAIS_ID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOCS','EGAIS_UNITTYPE','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOCS','EGAIS_STATUS','DM_STATUS','TABLE');^

execute procedure PR_ALTER_VIEW('PARTS','EGAIS_ID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','EGAIS_REGID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','EGAIS_BREGID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','EGAIS_ALCCODE','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','EGAIS_QUANT','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','CAPACITY','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','ALC_VOLUME','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','EGAIS_PRODUCER_ID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','EGAIS_BARCODE','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','EGAIS_TYPE','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','PRODUCER_INN','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','PRODUCER_KPP','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','BOTTLINGDATE','DM_DATETIME','TABLE');^
execute procedure PR_ALTER_VIEW('PARTS','EGAIS_PRODUCT_VCODE','DM_TEXT','TABLE');^

execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','EGAIS_ID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','EGAIS_BREGID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','EGAIS_REGID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','EGAIS_ALCCODE','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','EGAIS_PRODUCT_VCODE','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','CAPACITY','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','ALC_VOLUME','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','EGAIS_PRODUCER_ID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','EGAIS_QUANT','DM_DOUBLE','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','EGAIS_BARCODE','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','EGAIS_TYPE','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','PRODUCER_INN','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','PRODUCER_KPP','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('DOC_DETAIL_ACTIVE','BOTTLINGDATE','DM_DATETIME','TABLE');^

execute procedure PR_ALTER_VIEW('','','GEN_EGAIS_REQUESTS_ID','generator');^

/*таблица EGAIS_PRODUCERS*/
EXECUTE BLOCK AS BEGIN
if (not exists(select 1 from rdb$relations where rdb$relation_name = 'EGAIS_PRODUCERS')) then
execute statement 'CREATE TABLE EGAIS_PRODUCERS(ID DM_ID NOT NULL);';
END^

execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','INN','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','KPP','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','FULLNAME','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','SHORTNAME','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','COUNTRY','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','POSTINDEX','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','REGIONCODE','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','DESCRIPTION','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','CITY','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','STREET','DM_TEXT','TABLE');^

execute procedure PR_ALTER_VIEW('EGAIS_PRODUCERS','ID','EGAIS_PRODUCERS_IDX1','INDEX');^

/* таблица EGAIS_REQUESTS*/
EXECUTE BLOCK AS BEGIN
if (not exists(select 1 from rdb$relations where rdb$relation_name = 'EGAIS_REQUESTS')) then
execute statement 'CREATE TABLE EGAIS_REQUESTS (ID DM_ID NOT NULL);';
END^

execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','REPLY_ID','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','REPLY_URL','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','QUERY_TYPE','DM_STATUS','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','QUERY_URL','DM_TEXT','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','QUERY_DATA','DM_BLOBBIN','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','REPLY_DATA','DM_BLOBBIN','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','STATUS','DM_STATUS','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','INSERT_DATE','DM_DATETIME','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','REPLY_DATE','DM_DATETIME','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','EGAIS_ID','DM_TEXT1024','TABLE');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','QUERY_OUT','DM_TEXT1024','TABLE');^

execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','ID','','PRIMARY KEY');^
execute procedure PR_ALTER_VIEW('EGAIS_REQUESTS','REPLY_ID','EGAIS_REQUESTS_IDX1','index');^

/* Trigger: EGAIS_REQUESTS_BI */
CREATE OR ALTER TRIGGER EGAIS_REQUESTS_BI FOR EGAIS_REQUESTS
ACTIVE BEFORE INSERT POSITION 0
as
begin
if (new.id is null) then
new.id = gen_id(gen_egais_REQUESTS_id,1);
if (new.insert_date is null) then
new.insert_date = 'now';
end;^

/* Trigger: EGAIS_REQUESTS_BU0 */
CREATE OR ALTER TRIGGER EGAIS_REQUESTS_BU0 FOR EGAIS_REQUESTS
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
if (new.reply_url <> '') then
new.reply_date = 'now';
end;^

create or alter procedure PR_NEW_PART (
DOC_ID type of DM_ID,
PARENT_ID type of DM_ID,
WARE_ID type of DM_UUID_NULL,
PRICE type of DM_DOUBLE,
PRICE_O type of DM_DOUBLE,
PRICE_Z type of DM_DOUBLE,
PRICE_R type of DM_DOUBLE,
QUANT type of DM_DOUBLE,
BARCODE type of DM_TEXT,
BARCODE1 type of DM_TEXT,
DEP type of DM_ID,
GODENDO type of DM_DATETIME,
SERIA type of DM_TEXT,
NDS type of DM_DOUBLE,
SUM_NDSO type of DM_DOUBLE,
SERT type of DM_TEXT,
DATESERT type of DM_DATETIME,
KEMVSERT type of DM_TEXT,
SDSERT type of DM_DATETIME,
REGN type of DM_TEXT,
NGTD type of DM_TEXT,
EDIZM type of DM_TEXT,
NAC type of DM_DOUBLE,
MOTHERPART_ID type of DM_ID,
PART_TYPE DM_STATUS,
BASE_AGENT_ID DM_ID,
SKLAD_ID type of DM_TEXT,
CONTRACT_ID DM_ID,
DOC_DETAIL_ACTIVE_ID DM_ID,
GROUP_ID DM_ID,
MOTHERPART_UUID DM_UUID_NULL = 0,
EGAIS_ID DM_TEXT = null,
EGAIS_REGID DM_TEXT1024 = null,
EGAIS_BREGID DM_TEXT1024 = null,
EGAIS_ALCCODE DM_TEXT1024 = null,
EGAIS_QUANT DM_DOUBLE = 0,
CAPACITY DM_DOUBLE = 0,
ALC_VOLUME DM_DOUBLE = 0,
EGAIS_PRODUCER_ID DM_TEXT1024 = null,
EGAIS_BARCODE DM_TEXT1024 = null,
EGAIS_TYPE DM_TEXT = null,
PRODUCER_INN DM_TEXT1024 = null,
PRODUCER_KPP DM_TEXT1024 = null,
BOTTLINGDATE DM_DATETIME = null,
EGAIS_PRODUCT_VCODE DM_TEXT = null)
returns (
P_ID type of DM_ID)
as
begin
p_id=gen_id(gen_parts_id,1);
insert into parts
(ID,parent_id,doc_id,WARE_ID,PRICE,PRICE_O,PRICE_Z,PRICE_R,QUANT,BARCODE,BARCODE1,DEP,/*KRITK,*/GODENDO,SERIA,NDS,SUM_NDSO,SERT,DATESERT,KEMVSERT,SDSERT,REGN,NGTD,
EDIZM,NAC,motherpart_id,sklad_id,part_type,BASE_AGENT_ID,contract_id, doc_detail_active_id, group_id, motherpart_uuid,
EGAIS_ID, EGAIS_BREGID, EGAIS_REGID, EGAIS_ALCCODE, EGAIS_QUANT, CAPACITY, ALC_VOLUME, EGAIS_PRODUCER_ID, EGAIS_BARCODE,
EGAIS_TYPE, PRODUCER_INN, PRODUCER_KPP, BOTTLINGDATE, EGAIS_PRODUCT_VCODE)
values
(:p_id,:parent_id,:doc_id,:WARE_ID,:PRICE,:PRICE_O,:PRICE_Z,:PRICE_R,:QUANT,:BARCODE,:BARCODE1,:DEP,/*:KRITK,*/:GODENDO,:SERIA,:NDS,:SUM_NDSO,:SERT,:DATESERT,:KEMVSERT,
:SDSERT,:REGN,:NGTD,:EDIZM,:NAC,:motherpart_id,:sklad_id,:part_type,:BASE_AGENT_ID,:contract_id,:doc_detail_active_id, :group_id, :motherpart_uuid,
:EGAIS_ID, :EGAIS_BREGID, :EGAIS_REGID, :EGAIS_ALCCODE, :EGAIS_QUANT, :CAPACITY, :ALC_VOLUME, :EGAIS_PRODUCER_ID, :EGAIS_BARCODE,
:EGAIS_TYPE, :PRODUCER_INN, :PRODUCER_KPP, :BOTTLINGDATE, :EGAIS_PRODUCT_VCODE);
suspend;
end;^

GRANT INSERT ON PARTS TO PROCEDURE PR_NEW_PART;^

GRANT EXECUTE ON PROCEDURE PR_NEW_PART TO PROCEDURE PR_DOC_PRIHOD_COMMIT_RECURSE;^
GRANT EXECUTE ON PROCEDURE PR_NEW_PART TO "PUBLIC";^
GRANT EXECUTE ON PROCEDURE PR_NEW_PART TO STANDART;^
GRANT EXECUTE ON PROCEDURE PR_NEW_PART TO SYSDBA;^

create or alter procedure PR_GET_EGAIS_STATUS (
ID DM_STATUS)
returns (
OUT_TEXT DM_TEXT1024)
as
begin
if ( (id is null) or (id = 0) ) then out_text = 'Не установлен';
else if (id = 1) then out_text = 'Акт принятия принят';
else if (id = 2) then out_text = 'Акт принятия отклонен';
else if (id = 3) then out_text = 'Акт отказа принят';
else if (id = 4) then out_text = 'Акт отказа отклонен';
else if (id = 5) then out_text = 'Акт расхождений принят';
else if (id = 6) then out_text = 'Акт расхождений отклонен';
else out_text = 'Неизвестный статус';

suspend;
end;^

create or alter procedure PR_INSTALL_COMMIT_RECURSE
as
begin

if ((select
count(1)
from rdb$procedure_parameters pp
where 1=1
and pp.rdb$procedure_name='PR_DOC_DETAIL_INSERT'
and pp.rdb$parameter_name='SUM_NDSR')=0 ) then
EXECUTE STATEMENT ('
create or alter procedure PR_DOC_PRIHOD_COMMIT_RECURSE (
DOC_ID type of DM_ID,
DOC_PARENT_ID type of DM_ID,
PART_PARENT_ID type of DM_ID,
DOC_COMMITDATE type of DM_DATE,
CONTRACT_ID DM_ID)
as
declare variable PART_ID type of DM_ID;
declare variable WARE_ID type of DM_UUID_NULL;
declare variable SNAME type of DM_TEXT;
declare variable SIZG type of DM_TEXT;
declare variable SCOUNTRY type of DM_TEXT;
declare variable ORIG_CODE type of DM_TEXT;
declare variable SORIG_NAME type of DM_TEXT;
declare variable SORIG_IZG type of DM_TEXT;
declare variable SORIG_COUNTRY type of DM_TEXT;
declare variable BARCODE type of DM_TEXT;
declare variable Z_ID type of DM_ID;
declare variable SKLAD_ID DM_TEXT;
declare variable PRICE type of DM_DOUBLE;
declare variable PRICE_O type of DM_DOUBLE;
declare variable PRICE_Z type of DM_DOUBLE;
declare variable PRICE_R type of DM_DOUBLE;
declare variable QUANT type of DM_DOUBLE;
declare variable BARCODE1 type of DM_TEXT;
declare variable DEP type of DM_ID;
declare variable KRITK type of DM_DOUBLE;
declare variable GODENDO type of DM_DATETIME;
declare variable SERIA type of DM_TEXT;
declare variable NDS type of DM_DOUBLE;
declare variable SUM_NDSO type of DM_DOUBLE;
declare variable SERT type of DM_TEXT;
declare variable DATESERT type of DM_DATETIME;
declare variable KEMVSERT type of DM_TEXT;
declare variable SDSERT type of DM_DATETIME;
declare variable REGN type of DM_TEXT;
declare variable NGTD type of DM_TEXT;
declare variable EDIZM type of DM_TEXT;
declare variable PARENT_ID type of DM_ID;
declare variable SUMMA type of DM_DOUBLE;
declare variable SUMMA_O type of DM_DOUBLE;
declare variable DISCOUNT type of DM_DOUBLE;
declare variable ACTIVE_ID type of DM_ID;
declare variable NAC type of DM_DOUBLE;
declare variable DOC_DETAIL_ID type of DM_ID;
declare variable MOTHERPART_ID type of DM_ID;
declare variable BCODE_IZG type of DM_TEXT;
declare variable HUMAN_QUANT type of DM_TEXT;
declare variable SUM_DSC type of DM_DOUBLE;
declare variable DCARD type of DM_TEXT;
declare variable PART_TYPE DM_STATUS;
declare variable BASE_AGENT_ID DM_ID;
declare variable GROUP_ID DM_ID;
declare variable MAKE_ID DM_ID_NULL;
declare variable MNN DM_TEXT;
declare variable MOTHERPART_UUID DM_UUID_NULL;
declare variable EGAIS_ID DM_TEXT;
declare variable EGAIS_BREGID DM_TEXT1024;
declare variable EGAIS_REGID DM_TEXT1024;
declare variable EGAIS_ALCCODE DM_TEXT1024;
declare variable CAPACITY DM_DOUBLE;
declare variable ALC_VOLUME DM_DOUBLE;
declare variable EGAIS_PRODUCER_ID DM_TEXT1024;
declare variable EGAIS_QUANT DM_DOUBLE;
declare variable EGAIS_BARCODE DM_TEXT1024;
declare variable EGAIS_TYPE DM_TEXT;
declare variable PRODUCER_INN DM_TEXT1024;
declare variable PRODUCER_KPP DM_TEXT1024;
declare variable BOTTLINGDATE DM_DATETIME;
declare variable EGAIS_PRODUCT_VCODE DM_TEXT;
begin
--whithout SUM_NDSR
for
select
/*ware_id*/ sname,sizg,scountry,orig_code,sorig_name,sorig_izg,sorig_country,barcode,z_id,sklad_id,
/*part_id*/ PRICE,PRICE_O,PRICE_Z,PRICE_R,QUANT,BARCODE1,/*KRITK,*/GODENDO,SERIA,NDS,SUM_NDSO,SERT,DATESERT,KEMVSERT,SDSERT,REGN,NGTD,EDIZM,
PARENT_ID,DISCOUNT,SUMMA,summa_o, id, part_id, nac, doc_detail_id, motherpart_id, dep, bcode_izg, human_quant, SUM_DSC, dcard,
part_type, BASE_AGENT_ID, group_id, make_id, mnn, motherpart_uuid,
EGAIS_ID, EGAIS_BREGID, EGAIS_REGID, EGAIS_ALCCODE, CAPACITY, ALC_VOLUME, EGAIS_PRODUCER_ID, EGAIS_QUANT, EGAIS_BARCODE,
EGAIS_TYPE, PRODUCER_INN, PRODUCER_KPP, BOTTLINGDATE, EGAIS_PRODUCT_VCODE
from doc_detail_active where doc_id=:doc_id and part_parent_id=:doc_parent_id
into
:sname,:sizg,:scountry,:orig_code,:sorig_name,:sorig_izg,:sorig_country,:barcode,:z_id,:sklad_id,
:PRICE,:PRICE_O,:PRICE_Z,:PRICE_R,:QUANT,:BARCODE1,/*:KRITK,*/:GODENDO,:SERIA,:NDS,:SUM_NDSO,:SERT,:DATESERT,:KEMVSERT,:SDSERT,:REGN,:NGTD,:EDIZM,
:PARENT_ID,:DISCOUNT,:SUMMA,:summa_o, :active_id, :part_id, :nac, :doc_detail_id, :motherpart_id, :dep, :bcode_izg, :human_quant, :SUM_DSC, :dcard,
:part_type, :BASE_AGENT_ID, :group_id,:make_id, :mnn, :motherpart_uuid,
:EGAIS_ID, :EGAIS_BREGID, :EGAIS_REGID, :EGAIS_ALCCODE, :CAPACITY, :ALC_VOLUME, :EGAIS_PRODUCER_ID, :EGAIS_QUANT, :EGAIS_BARCODE,
:EGAIS_TYPE, :PRODUCER_INN, :PRODUCER_KPP, :BOTTLINGDATE, :EGAIS_PRODUCT_VCODE
do
begin
-- if ((price<0.001) or (price is null)) then exception EX_PRICE;
if ((price<0) or (price is null)) then exception EX_PRICE;
if (/*(price_o<0.001) or */(price_o is null)) then exception EX_PRICE_O;
if (/*(quant<0.00001) or */(quant is null)) then exception EX_QUANT;
if (/*(summa<0.00001) or */(summa is null)) then exception EX_SUMMA;
if (/*(summa_o<0.00001) or */(summa_o is null)) then exception EX_SUMMA_O;
-- if ((NDS<0.00001) or (NDS is null)) then exception EX_NDS;
if (/*(SUM_NDSO<0) or */(SUM_NDSO is null)) then exception EX_SUM_NDSO;
select w_id from pr_get_ware(:sname,:sizg,:scountry,:orig_code,:sorig_name,:sorig_izg,:sorig_country,:bcode_izg,:z_id,:sklad_id,:part_type,:mnn)
into :ware_id;
if ((part_id=0) or (part_id is NULL)) then
select p_id from pr_new_part(:DOC_ID,:part_parent_id,:WARE_ID,:PRICE,:PRICE_O,:PRICE_Z,:PRICE_R,:QUANT,:BARCODE,:BARCODE1,:DEP,/*:KRITK,*/:GODENDO,:SERIA,:NDS,
:SUM_NDSO,:SERT,:DATESERT,:KEMVSERT,:SDSERT,:REGN,:NGTD,:EDIZM,:NAC,:motherpart_id, :part_type,:BASE_AGENT_ID, :sklad_id, :contract_id, :active_id, :group_id,
:motherpart_uuid, :EGAIS_ID, :EGAIS_REGID, :EGAIS_BREGID, :EGAIS_ALCCODE, :EGAIS_QUANT, :CAPACITY, :ALC_VOLUME, :EGAIS_PRODUCER_ID, :EGAIS_BARCODE,
:EGAIS_TYPE, :PRODUCER_INN, :PRODUCER_KPP, :BOTTLINGDATE, :EGAIS_PRODUCT_VCODE) into :part_id;
execute procedure PR_DOC_DETAIL_INSERT(:doc_detail_id,:DOC_ID,:PART_ID,:QUANT,:DISCOUNT,:SUMMA,:summa_o,:price,:sum_ndso,:nac,:doc_commitdate,:human_quant,:SUM_DSC,:dcard,:active_id,:part_type,:make_id);
-- обновляем членство в группах
execute procedure PR_UPDGROUPDETAIL_ACTIVE2PARTS(:active_id,:part_id);
-- присваиваем ценам партии
update prices set part_id=:part_id where dda_id=:active_id;
update or insert into prices (part_id,price_type,currency_id, price,dda_id) values (:part_id,0,0,:price,:active_id) matching (PART_ID,PRICE_TYPE);
execute procedure PR_DOC_PRIHOD_COMMIT_RECURSE(:doc_id,:active_id,:part_id,:doc_commitdate,:contract_id);
end
end;

');

else

EXECUTE STATEMENT ('
create or alter procedure PR_DOC_PRIHOD_COMMIT_RECURSE (
DOC_ID type of DM_ID,
DOC_PARENT_ID type of DM_ID,
PART_PARENT_ID type of DM_ID,
DOC_COMMITDATE type of DM_DATE,
CONTRACT_ID DM_ID)
as
declare variable PART_ID type of DM_ID;
declare variable WARE_ID type of DM_UUID_NULL;
declare variable SNAME type of DM_TEXT;
declare variable SIZG type of DM_TEXT;
declare variable SCOUNTRY type of DM_TEXT;
declare variable ORIG_CODE type of DM_TEXT;
declare variable SORIG_NAME type of DM_TEXT;
declare variable SORIG_IZG type of DM_TEXT;
declare variable SORIG_COUNTRY type of DM_TEXT;
declare variable BARCODE type of DM_TEXT;
declare variable Z_ID type of DM_ID;
declare variable SKLAD_ID DM_TEXT;
declare variable PRICE type of DM_DOUBLE;
declare variable PRICE_O type of DM_DOUBLE;
declare variable PRICE_Z type of DM_DOUBLE;
declare variable PRICE_R type of DM_DOUBLE;
declare variable QUANT type of DM_DOUBLE;
declare variable BARCODE1 type of DM_TEXT;
declare variable DEP type of DM_ID;
declare variable KRITK type of DM_DOUBLE;
declare variable GODENDO type of DM_DATETIME;
declare variable SERIA type of DM_TEXT;
declare variable NDS type of DM_DOUBLE;
declare variable SUM_NDSO type of DM_DOUBLE;
declare variable SUM_NDSR DM_DOUBLE;
declare variable SERT type of DM_TEXT;
declare variable DATESERT type of DM_DATETIME;
declare variable KEMVSERT type of DM_TEXT;
declare variable SDSERT type of DM_DATETIME;
declare variable REGN type of DM_TEXT;
declare variable NGTD type of DM_TEXT;
declare variable EDIZM type of DM_TEXT;
declare variable PARENT_ID type of DM_ID;
declare variable SUMMA type of DM_DOUBLE;
declare variable SUMMA_O type of DM_DOUBLE;
declare variable DISCOUNT type of DM_DOUBLE;
declare variable ACTIVE_ID type of DM_ID;
declare variable NAC type of DM_DOUBLE;
declare variable DOC_DETAIL_ID type of DM_ID;
declare variable MOTHERPART_ID type of DM_ID;
declare variable BCODE_IZG type of DM_TEXT;
declare variable HUMAN_QUANT type of DM_TEXT;
declare variable SUM_DSC type of DM_DOUBLE;
declare variable DCARD type of DM_TEXT;
declare variable PART_TYPE DM_STATUS;
declare variable BASE_AGENT_ID DM_ID;
declare variable GROUP_ID DM_ID;
declare variable MAKE_ID DM_ID_NULL;
declare variable MNN DM_TEXT;
declare variable MOTHERPART_UUID DM_UUID_NULL;
declare variable EGAIS_ID DM_TEXT;
declare variable EGAIS_BREGID DM_TEXT1024;
declare variable EGAIS_REGID DM_TEXT1024;
declare variable EGAIS_ALCCODE DM_TEXT1024;
declare variable CAPACITY DM_DOUBLE;
declare variable ALC_VOLUME DM_DOUBLE;
declare variable EGAIS_PRODUCER_ID DM_TEXT1024;
declare variable EGAIS_QUANT DM_DOUBLE;
declare variable EGAIS_BARCODE DM_TEXT1024;
declare variable EGAIS_TYPE DM_TEXT;
declare variable PRODUCER_INN DM_TEXT1024;
declare variable PRODUCER_KPP DM_TEXT1024;
declare variable BOTTLINGDATE DM_DATETIME;
declare variable EGAIS_PRODUCT_VCODE DM_TEXT;
begin
--whith SUM_NDSR
for
select
/*ware_id*/ sname,sizg,scountry,orig_code,sorig_name,sorig_izg,sorig_country,barcode,z_id,sklad_id,
/*part_id*/ PRICE,PRICE_O,PRICE_Z,PRICE_R,QUANT,BARCODE1,/*KRITK,*/GODENDO,SERIA,NDS,SUM_NDSO,SUM_NDSR,SERT,DATESERT,KEMVSERT,SDSERT,REGN,NGTD,EDIZM,
PARENT_ID,DISCOUNT,SUMMA,summa_o, id, part_id, nac, doc_detail_id, motherpart_id, dep, bcode_izg, human_quant, SUM_DSC, dcard,
part_type, BASE_AGENT_ID, group_id, make_id, mnn, motherpart_uuid,
EGAIS_ID, EGAIS_BREGID, EGAIS_REGID, EGAIS_ALCCODE, CAPACITY, ALC_VOLUME, EGAIS_PRODUCER_ID, EGAIS_QUANT, EGAIS_BARCODE,
EGAIS_TYPE, PRODUCER_INN, PRODUCER_KPP, BOTTLINGDATE, EGAIS_PRODUCT_VCODE
from doc_detail_active where doc_id=:doc_id and part_parent_id=:doc_parent_id
into
:sname,:sizg,:scountry,:orig_code,:sorig_name,:sorig_izg,:sorig_country,:barcode,:z_id,:sklad_id,
:PRICE,:PRICE_O,:PRICE_Z,:PRICE_R,:QUANT,:BARCODE1,/*:KRITK,*/:GODENDO,:SERIA,:NDS,:SUM_NDSO,:SUM_NDSR,:SERT,:DATESERT,:KEMVSERT,:SDSERT,:REGN,:NGTD,:EDIZM,
:PARENT_ID,:DISCOUNT,:SUMMA,:summa_o, :active_id, :part_id, :nac, :doc_detail_id, :motherpart_id, :dep, :bcode_izg, :human_quant, :SUM_DSC, :dcard,
:part_type, :BASE_AGENT_ID, :group_id,:make_id, :mnn, :motherpart_uuid,
:EGAIS_ID, :EGAIS_BREGID, :EGAIS_REGID, :EGAIS_ALCCODE, :CAPACITY, :ALC_VOLUME, :EGAIS_PRODUCER_ID, :EGAIS_QUANT, :EGAIS_BARCODE,
:EGAIS_TYPE, :PRODUCER_INN, :PRODUCER_KPP, :BOTTLINGDATE, :EGAIS_PRODUCT_VCODE
do
begin
-- if ((price<0.001) or (price is null)) then exception EX_PRICE;
if ((price<0) or (price is null)) then exception EX_PRICE;
if (/*(price_o<0.001) or */(price_o is null)) then exception EX_PRICE_O;
if (/*(quant<0.00001) or */(quant is null)) then exception EX_QUANT;
if (/*(summa<0.00001) or */(summa is null)) then exception EX_SUMMA;
if (/*(summa_o<0.00001) or */(summa_o is null)) then exception EX_SUMMA_O;
-- if ((NDS<0.00001) or (NDS is null)) then exception EX_NDS;
if (/*(SUM_NDSO<0) or */(SUM_NDSO is null or SUM_NDSR is null )) then exception EX_SUM_NDSO;
select w_id from pr_get_ware(:sname,:sizg,:scountry,:orig_code,:sorig_name,:sorig_izg,:sorig_country,:bcode_izg,:z_id,:sklad_id,:part_type,:mnn)
into :ware_id;
if ((part_id=0) or (part_id is NULL)) then
select p_id from pr_new_part(:DOC_ID,:part_parent_id,:WARE_ID,:PRICE,:PRICE_O,:PRICE_Z,:PRICE_R,:QUANT,:BARCODE,:BARCODE1,:DEP,/*:KRITK,*/:GODENDO,:SERIA,:NDS,
:SUM_NDSO,:SERT,:DATESERT,:KEMVSERT,:SDSERT,:REGN,:NGTD,:EDIZM,:NAC,:motherpart_id, :part_type,:BASE_AGENT_ID, :sklad_id, :contract_id, :active_id, :group_id,
:motherpart_uuid, :EGAIS_ID, :EGAIS_REGID, :EGAIS_BREGID, :EGAIS_ALCCODE, :EGAIS_QUANT, :CAPACITY, :ALC_VOLUME, :EGAIS_PRODUCER_ID, :EGAIS_BARCODE,
:EGAIS_TYPE, :PRODUCER_INN, :PRODUCER_KPP, :BOTTLINGDATE, :EGAIS_PRODUCT_VCODE) into :part_id;
execute procedure PR_DOC_DETAIL_INSERT(:doc_detail_id,:DOC_ID,:PART_ID,:QUANT,:DISCOUNT,:SUMMA,:summa_o,:price,:sum_ndso,:sum_ndsr,:nac,:doc_commitdate,:human_quant,:SUM_DSC,:dcard,:active_id,:part_type,:make_id);
-- обновляем членство в группах
execute procedure PR_UPDGROUPDETAIL_ACTIVE2PARTS(:active_id,:part_id);
-- присваиваем ценам партии
update prices set part_id=:part_id where dda_id=:active_id;
update or insert into prices (part_id,price_type,currency_id, price,dda_id) values (:part_id,0,0,:price,:active_id) matching (PART_ID,PRICE_TYPE);
execute procedure PR_DOC_PRIHOD_COMMIT_RECURSE(:doc_id,:active_id,:part_id,:doc_commitdate,:contract_id);
end
end;
');

end^

GRANT EXECUTE ON PROCEDURE PR_INSTALL_COMMIT_RECURSE TO SYSDBA;^

execute procedure PR_INSTALL_COMMIT_RECURSE;^

GRANT EXECUTE ON PROCEDURE PR_GET_EGAIS_STATUS TO SYSDBA;^

execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL_ACTIVE','MOTHERPART_UUID','da.motherpart_uuid');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL_ACTIVE','EGAIS_ID','EGAIS_ID');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL_ACTIVE','EGAIS_BREGID','EGAIS_BREGID');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL_ACTIVE','EGAIS_REGID','EGAIS_REGID');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL_ACTIVE','EGAIS_ALCCODE','EGAIS_ALCCODE');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL_ACTIVE','CAPACITY','CAPACITY');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL_ACTIVE','ALC_VOLUME','ALC_VOLUME');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL_ACTIVE','EGAIS_PRODUCER_ID','EGAIS_PRODUCER_ID');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL_ACTIVE','EGAIS_QUANT','EGAIS_QUANT');^

execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL','MOTHERPART_UUID','p.motherpart_uuid');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL','EGAIS_ID','p.EGAIS_ID');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL','EGAIS_BREGID','p.EGAIS_BREGID');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL','EGAIS_REGID','p.EGAIS_REGID');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL','EGAIS_ALCCODE','p.EGAIS_ALCCODE');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL','CAPACITY','p.CAPACITY');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL','ALC_VOLUME','p.ALC_VOLUME');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL','EGAIS_TTNID','d.EGAIS_ID');^
execute procedure PR_ALTER_VIEW('VW_DOC_DETAIL','EGAIS_QUANT','p.EGAIS_QUANT');^

execute procedure PR_ALTER_VIEW('VW_PARTS','EGAIS_ID','p.EGAIS_ID');^
execute procedure PR_ALTER_VIEW('VW_PARTS','EGAIS_BREGID','p.EGAIS_BREGID');^
execute procedure PR_ALTER_VIEW('VW_PARTS','EGAIS_REGID','p.EGAIS_REGID');^
execute procedure PR_ALTER_VIEW('VW_PARTS','EGAIS_ALCCODE','p.EGAIS_ALCCODE');^

execute procedure PR_ALTER_VIEW('VW_DOCS','EGAIS_NUM','docs.EGAIS_NUM');^
execute procedure PR_ALTER_VIEW('VW_DOCS','EGAIS_ID','docs.EGAIS_ID');^
execute procedure PR_ALTER_VIEW('VW_DOCS','EGAIS_UNITTYPE','docs.EGAIS_UNITTYPE');^
execute procedure PR_ALTER_VIEW('VW_DOCS','EGAIS_STATUS','docs.EGAIS_STATUS');^
execute procedure PR_ALTER_VIEW('VW_DOCS','EGAIS_STATUS_TEXT','(select out_text from PR_GET_EGAIS_STATUS(docs.EGAIS_STATUS))');^

execute procedure PR_ALTER_VIEW('VW_AGENTS','EGAIS_ID','EGAIS_ID');^

create or alter procedure PR_GET_ADDRESS_ID (
COUNTRY_ID DM_ID_NULL,
REGION_ID DM_ID_NULL,
DESCRIPTION DM_TEXT_BIG)
returns (
ID DM_ID_NULL)
as
begin
if ((select id from addr_vals where id = :country_id) is null) then
insert into addr_vals (id, vtype, svalue) values (:country_id, 0, :country_id);
if ((select id from addr_vals where id = :region_id) is null) then
insert into addr_vals (id, vtype, svalue) values (:region_id, 1, :region_id);

select id from addrs where country_id = :country_id and region_id = :region_id and addresstext = :description into :id;
if (id is null) then
insert into addrs (country_id, region_id, addresstext) values (:country_id, :region_id, :description) returning id into :id;

suspend;
end;^

GRANT SELECT,INSERT ON ADDR_VALS TO PROCEDURE PR_GET_ADDRESS_ID;^
GRANT SELECT,INSERT ON ADDRS TO PROCEDURE PR_GET_ADDRESS_ID;^

EXECUTE BLOCK AS BEGIN
if (not exists(select 1 from DOC_TYPES where ID = 40)) then
execute statement '
INSERT INTO DOC_TYPES (ID, CAPTION, INSERTDT, BASE_TYPE, STATINI, REPORTS, VTYPE)
VALUES (40, ''ТТН ЕГАИС'', null, 1, ''[XML]
enabled=1
caption=Печать пакета документов прихода
tmplpath=prihod.xml
askbefore=1

[freereport]
enabled=1
caption=Печать пакета документов прихода
tmplpath=prihod.cffr3

[dbf]
inipath=dbf.ini

[CSV]
inipath=dbf.ini
quotestrings=1
separator=#9
headers=1'', '' [XML]
enabled=1
caption=Печать пакета документов прихода
tmplpath=prihod.xml
askbefore=1

[freereport]
enabled=1
caption=Печать пакета документов прихода
tmplpath=prihod.cffr

;''''doc_id=:doc_id:'''';''''doc_detail=:doc_detail:'''''', 1);';
END^

EXECUTE BLOCK AS BEGIN
if (not exists(select 1 from GROUPS where ID = -10)) then
execute statement '
INSERT INTO GROUPS (ID, PARENT_ID, CAPTION, GROUPTABLE, STATUS, INSERTDT, SYSTEMFLAG, DESCRIPTION, IMAGEINDEX, DATA, COLOR, SORTING, BASE_AGENT_ID)
VALUES (-10, -4, ''ЕГАИС оптовики'', ''AGENTS'', 0, null, 1, NULL, -1, NULL, NULL, NULL, 0);
';
END^

create or alter procedure PR_EDITCUSTOMDOC (
DOC_ID type of DM_ID,
SESSION_ID type of DM_ID,
RGUID type of DM_RGUID)
returns (
CUR_DOC_ID type of DM_ID)
as
declare variable VNUM type of DM_ID_NULL;
declare variable DOC_TYPE type of DM_ID;
declare variable DOC_BASE_TYPE type of DM_ID;
declare variable DOC_STATUS type of DM_STATUS;
declare variable DOC_AGENT_ID type of DM_ID;
declare variable DOCNUM type of DM_TEXT;
declare variable DOC_CAPTION type of DM_TEXT;
declare variable BASE_AGENT_ID integer;
declare variable DOCDATE type of DM_DATETIME;
declare variable EGAIS_NUM DM_TEXT;
declare variable EGAIS_ID DM_TEXT;
declare variable EGAIS_UNITTYPE DM_TEXT;
declare variable EGAIS_STATUS DM_STATUS;
begin
select d.doc_type, d.status, dt.base_type, dt.caption, d.docnum, d.docdate, d.agent_id, d.vnum, d.base_agent_id, EGAIS_NUM, EGAIS_ID, EGAIS_UNITTYPE, EGAIS_STATUS from docs d left join doc_types dt on d.doc_type=dt.id where d.id=:doc_id
into :doc_type, :doc_status, :doc_base_type, :doc_caption, :docnum, :docdate, :doc_AGENT_ID,:vnum, :BASE_AGENT_ID, :EGAIS_NUM, :EGAIS_ID, :EGAIS_UNITTYPE, :EGAIS_STATUS;

if (doc_type is null) then exception EX_CANTFINDDOC_ID;
if (doc_status in (0,-2,2)) then exception EX_WRONGDOCSTATUS;
if (doc_base_type=3) then exception EX_WRONGDOC_BASE_TYPE;
-- if (doc_agent_id <= 0) then exception EX_WRONG_AGENT;
cur_doc_id=gen_id(gen_docs_id,1);
insert into docs (ID,PARENT_ID,DOC_TYPE,STATUS,AGENT_ID,RGUID,AUDIT_ID,DOCNUM,DOCDATE,DELETED_DOC_ID, BASE_AGENT_ID, EGAIS_NUM, EGAIS_ID, EGAIS_UNITTYPE, EGAIS_STATUS)
values (:cur_doc_id,0,:DOC_TYPE,0,:doc_AGENT_ID,:RGUID,:session_ID,:DOCNUM,:DOCDATE,:DOC_ID, :BASE_AGENT_ID, :EGAIS_NUM, :EGAIS_ID, :EGAIS_UNITTYPE, :EGAIS_STATUS);
-- Обновление номера документа на старое значение
UPDATE docs set vnum = :vnum, caption=:doc_caption || ' №' || :vnum where id = :cur_doc_id;

if (doc_base_type=1) then --приход
begin
if (doc_status=1) then --
begin
insert into DOC_DETAIL_ACTIVE (doc_id,part_id,quant,summa,discount,koef,sum_dsc,sum_ndso,sum_ndsr)
select :cur_doc_id,part_id,quant,summa,discount,0,sum_dsc,sum_ndso,sum_ndsr from doc_detail where doc_id=:doc_id;
update DOC_DETAIL_ACTIVE dda set dda.part_id=iif((select count(*) from doc_detail where part_id = dda.part_id) > 1,dda.part_id,0) where dda.doc_id=:cur_doc_id;
end
else
begin
if (doc_status=-1) then
begin
insert into DOC_DETAIL_ACTIVE (doc_id,part_id,quant,summa,discount,koef,sum_dsc)
select :cur_doc_id,part_id,quant,summa,discount,0,sum_dsc from doc_detail_deleted where doc_id=:doc_id;
--update DOC_DETAIL_ACTIVE set part_id=0 where doc_id=:cur_doc_id;
update DOC_DETAIL_ACTIVE dda set dda.part_id=iif((select count(*) from doc_detail where part_id = dda.part_id) > 1,dda.part_id,0) where dda.doc_id=:cur_doc_id;
end
end
end
else if ((doc_base_type=2) or (doc_base_type=7)) then --расход
begin
if (doc_status=1) then
begin
insert into doc_detail_active (doc_id,part_id,quant,dcard,summa,summa_o,nac,discount,sum_ndso,sum_ndsr,koef,sum_dsc)
select :cur_doc_id,part_id,quant,dcard,summa,summa_o,nac,discount,sum_ndso,sum_ndsr,1,sum_dsc from doc_detail where doc_id=:doc_id;
end
else
begin
if (doc_status=-1) then
begin
insert into doc_detail_active (doc_id,part_id,quant,dcard,summa,summa_o,nac,discount,sum_ndso,sum_ndsr,koef,sum_dsc)
select :cur_doc_id,part_id,quant,dcard,summa,summa_o,nac,discount,sum_ndso,sum_ndsr,1,sum_dsc from doc_detail_deleted where doc_id=:doc_id;
end
end
end

suspend;
end;^

set term ; ^
</pre>

==Дополнения к ЕГАИС==
Если вы ставите версию менеджера 68 и выше, то нужно еще установить [[Скрипт дополнений к ЕГАИС]].

=Установка Этап 2 (выполняется для '''ПРОДУКТОВЫХ''' клиентов)=

==В процедуре PR_DOC_COMMIT==
вставить строки после exception EX_WRONGDOC_BASE_TYPE на
<PRE>
/* nicky edit */
if (exists (select * from docs d where d.id = :doc_id and d.doc_type in (3, 9))) then
begin
insert into egais_detail (doc_detail_id, egais_barcode, producer_inn, producer_kpp) select dd.id, dda.egais_barcode, dda.producer_inn, dda.producer_kpp
from doc_detail dd join doc_detail_active dda on dd.doc_id = dda.doc_id and dd.part_id = dda.part_id
join vw_warebase wb on dd.part_id = wb.part_id
where dd.doc_id = :doc_id and (char_length(dda.EGAIS_BARCODE) > 0 or (wb.MMBSH containing '-21={') );
end
/* nicky edit end*/
</PRE>

==во VW_WAREBASE==
добавить EGAIS_PRODUCT_VCODE где источник p.EGAIS_PRODUCT_VCODE и в конце добавить left join parts p on wb.part_id = p.id

==Исправить триггер DOC_DETAIL_ACTIVE_BI==
1) Комментируем строки стандартного приведения
<nowiki>
/*if (new.ware_id<0) then
begin
select goodname, goodizg, goodcountry from PR_MAKEGOODWAREVALUES(new.sname,new.sorig_name,new.sizg,new.sorig_izg,new.scountry,new.sorig_country,new.orig_code,new.id,new.part_type)
into new.sname, new.sizg,new.scountry;
end
*/
</nowiki>

2) После условия <nowiki> if (new.part_id>0) then -- заполняем значения партии </nowiki>,
дополняем выборку из таблицы PARTS полями
<nowiki>
.....
motherpart_uuid,
EGAIS_ID,
EGAIS_REGID,
EGAIS_BREGID,
EGAIS_ALCCODE,
EGAIS_QUANT,
CAPACITY,
ALC_VOLUME,
EGAIS_BARCODE,
EGAIS_TYPE,
PRODUCER_INN,
PRODUCER_KPP,
BOTTLINGDATE,
EGAIS_PRODUCT_VCODE
from parts where id=new.part_id into
......
new.motherpart_uuid,
new.EGAIS_ID,
new.EGAIS_REGID,
new.EGAIS_BREGID,
new.EGAIS_ALCCODE,
new.EGAIS_QUANT,
new.CAPACITY,
new.ALC_VOLUME,
new.EGAIS_BARCODE,
new.EGAIS_TYPE,
new.PRODUCER_INN,
new.PRODUCER_KPP,
new.BOTTLINGDATE,
new.EGAIS_PRODUCT_VCODE;
</nowiki>

3) В конце триггера пишем
<nowiki>
--20160212 Приведение наименований для ЕГАИС, стандартное д.б. отключено
if ((select doc_type from docs where id = new.doc_id)=40) then
if ( (new.capacity is not null) and
(new.bcode_izg is null or trim(new.bcode_izg) = '') and
(select first 1 count(1) from warebase w left join parts p on p.id = w.part_id
where (sname = new.sname or sorig_name = new.sname or sname = new.sorig_name or sorig_name = new.sorig_name) and
(bcode_izg is not null and trim(bcode_izg) <> '') and
(coalesce(p.capacity,0) = new.capacity) and
(coalesce(p.egais_alccode,0) = coalesce(new.egais_alccode,0)) ) > 0
)
then
begin
select first 1 sname, name_id, bcode_izg, w.price from warebase w left join parts p on p.id = w.part_id
where ( (sname = new.sname or sorig_name = new.sname or sname = new.sorig_name or sorig_name = new.sorig_name) and
(bcode_izg is not null and trim(bcode_izg) <> '') and
(coalesce(p.capacity,0) = new.capacity) and
(coalesce(p.egais_alccode,0) = coalesce(new.egais_alccode,0)) )
into new.sname, new.name_id, new.bcode_izg, new.price;
new.summa = new.price*new.quant;
if (new.price_o<>0) then new.nac=(new.price-new.price_o)*100/new.price_o;
End
</nowiki>

==Новый метод редактирования штрихкодов==
<PRE>
CREATE UNIQUE INDEX WARES_IDX1 ON WARES (NAME_ID,IZG_ID,COUNTRY_ID,ORIG_CODE,ORIG_NAME_ID,ORIG_IZG_ID,ORIG_COUNTRY_ID,BARCODE);
CREATE INDEX WARES_LOG_IDX_INSERTDT ON WARES_LOG (INSERTDT);

SET TERM ^ ;

create or alter procedure PR_GET_WARE (
SNAME type of DM_TEXT,
SIZG type of DM_TEXT,
SCOUNTRY type of DM_TEXT,
ORIG_CODE type of DM_TEXT,
SORIG_NAME type of DM_TEXT,
SORIG_IZG type of DM_TEXT,
SORIG_COUNTRY type of DM_TEXT,
BARCODE type of DM_TEXT,
Z_ID type of DM_ID,
SKLAD_ID DM_TEXT,
ALTTYPE DM_STATUS,
MNN DM_TEXT = '')
returns (
W_ID type of DM_ID)
as
declare variable OLD_BARCODE DM_TEXT1024;
declare variable NAME_ID type of DM_ID;
declare variable IZG_ID type of DM_ID;
declare variable COUNTRY_ID type of DM_ID;
declare variable ORIG_NAME_ID type of DM_ID;
declare variable ORIG_IZG_ID type of DM_ID;
declare variable ORIG_COUNTRY_ID type of DM_ID;
begin
if (orig_code is null) then orig_code='';
if (barcode is null) then barcode='';
select val_id from pr_getval_id(:sname,0,:alttype,:mnn) into :name_id;
select val_id from pr_getval_id(:sizg,3,:alttype) into :izg_id;
select val_id from pr_getval_id(:scountry,2,:alttype) into :country_id;
select val_id from pr_getval_id(:sorig_name,1,:alttype) into :orig_name_id;
select val_id from pr_getval_id(:sorig_izg,6,:alttype) into :orig_izg_id;
select val_id from pr_getval_id(:sorig_country,5,:alttype) into :orig_country_id;
select id from wares where NAME_ID=:name_id and IZG_ID=:izg_id and COUNTRY_ID=:country_id and
ORIG_CODE=:orig_code and ORIG_NAME_ID=:orig_name_id and
ORIG_IZG_ID=:orig_izg_id and ORIG_COUNTRY_ID=:orig_country_id and barcode=:barcode into :w_id;
if (w_id is null) then
begin
-- exception EX_WRONG_OPER;
w_id=gen_id(gen_wares_id,1);
--w_id=UUID_TO_CHAR(GEN_UUID());
insert into wares (ID,NAME_ID,IZG_ID,COUNTRY_ID,ORIG_CODE,ORIG_NAME_ID,ORIG_IZG_ID,ORIG_COUNTRY_ID,BARCODE,Z_ID,SKLAD_ID)
values
(:W_ID,:NAME_ID,:IZG_ID,:COUNTRY_ID,:ORIG_CODE,:ORIG_NAME_ID,:ORIG_IZG_ID,:ORIG_COUNTRY_ID,:BARCODE,:Z_ID,:SKLAD_ID);
end
--else if (old_barcode <> barcode) then update wares set barcode = :barcode where id = :w_id;
suspend;
end^

SET TERM ; ^

/* Following GRANT statetements are generated automatically */

GRANT EXECUTE ON PROCEDURE PR_GETVAL_ID TO PROCEDURE PR_GET_WARE;
GRANT SELECT,INSERT ON WARES TO PROCEDURE PR_GET_WARE;

/* Existing privileges on this procedure */

GRANT EXECUTE ON PROCEDURE PR_GET_WARE TO PROCEDURE PR_DOC_PRIHOD_COMMIT_RECURSE;
GRANT EXECUTE ON PROCEDURE PR_GET_WARE TO "PUBLIC";
GRANT EXECUTE ON PROCEDURE PR_GET_WARE TO STANDART;
GRANT EXECUTE ON PROCEDURE PR_GET_WARE TO SYSDBA;

SET TERM ^ ;

create or alter procedure PR_GETWARE_BY_IDS (
NAME_ID type of DM_ID,
IZG_ID type of DM_ID,
COUNTRY_ID type of DM_ID,
ORIG_CODE type of DM_TEXT,
ORIG_NAME_ID type of DM_ID,
ORIG_IZG_ID type of DM_ID,
ORIG_COUNTRY_ID type of DM_ID,
DOINSERT type of DM_STATUS,
SEARCHINLOGS type of DM_STATUS,
BARCODE DM_TEXT)
returns (
WARE_ID type of DM_ID)
as
begin
if (orig_code is null) then orig_code='';
if (searchinlogs is null) then searchinlogs=0;
if (searchinlogs=1) then
begin
select first 1 id from wares_log where name_id=:name_id and izg_id=:izg_id and country_id=:country_id and
orig_code=:orig_code and orig_name_id=:orig_name_id and orig_izg_id=:orig_izg_id and orig_country_id=:orig_country_id
and barcode=:barcode order by insertdt desc
into :ware_id;
if ((select id from wares where id = :ware_id) is null) then ware_id = null;
end
else
begin
select id from wares where name_id=:name_id and izg_id=:izg_id and country_id=:country_id and
orig_code=:orig_code and orig_name_id=:orig_name_id and orig_izg_id=:orig_izg_id and orig_country_id=:orig_country_id
and barcode=:barcode
into :ware_id;
end
if ((ware_id is null) and (DOINSERT=1) and (searchinlogs<>1)) then
begin
ware_id=gen_id(gen_wares_id,1);
-- ware_id=UUID_TO_CHAR(GEN_UUID());
insert into wares (ID,NAME_ID,IZG_ID,COUNTRY_ID,ORIG_CODE,ORIG_NAME_ID,ORIG_IZG_ID,ORIG_COUNTRY_ID,Z_ID,SKLAD_ID, barcode)
values
(:ware_id,:NAME_ID,:IZG_ID,:COUNTRY_ID,:ORIG_CODE,:ORIG_NAME_ID,:ORIG_IZG_ID,:ORIG_COUNTRY_ID,0,'',:barcode);
end

suspend;
end^

SET TERM ; ^

/* Following GRANT statetements are generated automatically */

GRANT SELECT ON WARES_LOG TO PROCEDURE PR_GETWARE_BY_IDS;
GRANT SELECT,INSERT ON WARES TO PROCEDURE PR_GETWARE_BY_IDS;

/* Existing privileges on this procedure */

GRANT EXECUTE ON PROCEDURE PR_GETWARE_BY_IDS TO PROCEDURE PR_MAKEGOODWAREVALUES;
GRANT EXECUTE ON PROCEDURE PR_GETWARE_BY_IDS TO PROCEDURE PR_UPDATEWARE;
GRANT EXECUTE ON PROCEDURE PR_GETWARE_BY_IDS TO PROCEDURE PR_UPDATEWARE4PART;
GRANT EXECUTE ON PROCEDURE PR_GETWARE_BY_IDS TO STANDART;
GRANT EXECUTE ON PROCEDURE PR_GETWARE_BY_IDS TO SYSDBA;

Update params p set p.param_value = '1' where p.param_id ='BCODE_IZG_EDIT_MODE';

Update params p set p.param_value = 'Нет' where p.param_id ='ELNAKL_MAKE_LOCAL_GN';
Update params p set p.param_value = 'Нет' where p.param_id ='ELNAKL_MAKE_GLOBAL_GN';
</PRE>

==установка журнала продажи алкоголя==
после выполнения скрипта расположенного ниже - поместить
в таблице REPORTS в отчёт - журнал продажи алкоголя в поле data содержимое файла otch_alko.txt из архива [[Медиа:Alko.zip]]
также в таблице groups поместить в поле data в строку Пиво содержимое файла groups_pivo.TXT из того же архива
и в строку Алкоголь файл groups_alko.TXT
<PRE>
CREATE OR ALTER VIEW VW_ALKO(
ID,
DOC_TYPE,
CAPTION,
DOCDATE,
EGAIS_BARCODE,
SNAME,
ORIG_CODE,
CAPACITY,
QUANT)
AS
select d.id, d.doc_type, d.caption, d.docdate, ed.egais_barcode as egais_barcode, dd.sname, p.EGAIS_PRODUCT_VCODE, dd.capacity, iif(ed.egais_barcode='-',dd.quant,-1)
from egais_detail ed
left join vw_doc_detail dd on dd.id = ed.doc_detail_id
left join vw_docs d on d.id = dd.doc_id
left join parts p on dd.part_id = p.id
where d.doc_type = 3 or d.doc_type = 9
;

INSERT INTO REPORTS ( PARENT_ID, STATUS, REPORTTYPE, SORTING, CAPTION, PARAMS, WDICT_ID, DATA) VALUES ( 0, 0, 0, 0, 'Журнал продажи алкоголя', '', 25, NULL);

INSERT INTO GROUPS (ID, PARENT_ID, CAPTION, GROUPTABLE, STATUS, INSERTDT, SYSTEMFLAG, DESCRIPTION, IMAGEINDEX, DATA, COLOR, SORTING, BASE_AGENT_ID, PACKET, SID) VALUES (-20, -8, 'Алкоголь', 'PARTS.NAME_ID', 0, '30-DEC-2015 14:41:25.011', 1, NULL, -1, NULL, 16777088, 8, 0, 6379, NULL);

INSERT INTO GROUPS (ID, PARENT_ID, CAPTION, GROUPTABLE, STATUS, INSERTDT, SYSTEMFLAG, DESCRIPTION, IMAGEINDEX, DATA, COLOR, SORTING, BASE_AGENT_ID, PACKET, SID) VALUES (-21, -20, 'Пиво', 'PARTS.NAME_ID', 0, '30-DEC-2015 14:41:43.135', 1, NULL, -1, NULL, 516088, 8, 0, 6393, NULL);
</PRE>

==Склейка партий==
в менеджере ТМС перед авторизвацией пользователя изменить запрос ищущий партии для склейки на подобный(или добавить нужные поля вручную - объём, содержание спирта...)
<PRE>
Select count(part_id),sname,base_agent_id,price, docagent,capacity, sum(quant) as quant
from VW_WAREBASE
where quant <> 0
group by sname,base_agent_id,price, docagent,capacity
having count(part_id)>1
</PRE>

==ТМС проверки новых накладных от ЕГАИС==
ТМС - вспомогательные - добавить новую ТМС "Проверить накладные"
<nowiki>
uses
Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Messages, SysUtils,
ToolWin, ImgList, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, StdCtrls,
unMain,DB, IBQuery, IBDatabase, unDM, DBTables, cfdxUtils, Menus, System,
Buttons, ExtCtrls, StdCtrls, cfSelectEdit,need,
gb_table, Grids, ClipBrd, DBGrids, unFrameCustomDict, cfWindows;

var qWork: TIBQuery;
tmRefresh: TTimer;
m: TMemo;

procedure ShowData;
var docnum: string;
begin
try
qWork:=dm.TempQuery(nil);
try
//m.Clear;
if qWork.Transaction.Active then qWork.Transaction.Rollback;
qWork.Transaction.StartTransaction;
qWork.Active:=false;
qWork.SQL.Text:='select list(docnum) as docnum from docs where status=2 and doc_type = 40';
qWork.Active:=true;
docnum:=qWork.FieldByName('docnum').AsString;
if trim(docnum)<>'' then
begin
m.Color:=$008080FF;
frmManagerXP2.LogIt('Внимание, новые накладные ЕГАИС № '+trim(docnum)+#13#10+'Откройте отложенные документы из журнала.');
end
else
m.Color:=clWhite;
except
// ShowMessage(GLEM);
end;
finally
qWork.Free;
end;
end;

procedure tmRefreshTimer;
begin
ShowData;
end;

begin
m:=frmManagerXP2.FindComponent('mmLog');
//m.Font.Name:='Verdana';
//m.Font.Color:=clBlack;
//m.Color:=$008080FF;
ShowData;
tmRefresh:=TTimer.Create(application);
tmRefresh.Interval:=10000;
tmRefresh.OnTimer:='tmRefreshTimer';
end;
</nowiki>

==Вызов ТМС проверки накладных==
ТМС - События - После авторизации пользователя. В коде ХХХ это номер ТМС, созданной в предыдущем пункте
<pre>
uses
Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Messages, SysUtils,
ToolWin, ImgList, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, StdCtrls,
unMain,DB, IBQuery, IBDatabase, unDM, DBTables, cfdxUtils, Menus, System,
Buttons, ExtCtrls, StdCtrls, cfSelectEdit,need,
gb_table, Grids, ClipBrd, DBGrids, unFrameCustomDict, cfWindows, Unit1;

var
mainForm: TForm1;
begin
frmManagerXp2.RunTms(ХХХ,application);
if dm.IsReg = false then
begin
MainForm := TForm1.Create(Application);
MainForm.ShowModal;
end;
end;
</pre>

==Настройка Менеджера==
Перезапустить Менеджер:
1. в сервис - параметры системы - Настройка ЕГАИС указать адрес сервера ЕГАИС и идентификатор;
2. в сервис - параметры системы - автоматизация отключить "Приводить наименования к существующим" и "Приводить наименования через глобальный справочник" (!!!ТОЛЬКО ДЛЯ ПРОДУКТОВ!!!).

==Сетки==
Прикрепленный файл [[Файл:Сетки_ЕГАИС.zip]]

==Проверить УТМ (универсальный транспортный модуль)==
Переходим по ссылке на web страницу УТМ, например http://egais:8080/, смотрим версию модуля, версия должна быть '''не ниже 2.0.1''', если ниже, это значит, что УТМ тестовый.

[[Файл:ЕГАИС_версия_УТМ.png|Версия УТМ]]

==Проверка==
Запустить Менеджер - Инструменты - ЕГАИС Менеджер - Настройки - Перепроверить идентификаторы всех ТТН. После этого нажать "Проверить ТТН". Ошибок быть не должно

[[Файл:Проверка_ИД_ТТН_ЕГАИС.png|Проверка существующих ТТН]]

Теги: ЕГАИС, УТМ, универсальный транспортный модуль

=Модификация ЕГАИС для общепита=
Для организаций, реализующих алкоголь "на разлив", по требованию законодательства, необходимо в журнале продажи алкоголя фиксировать факт вскрытия упаковки.
Данные отправлять в ЕГАИС не нужно, поэтому у таких клиентов на алкогольную продукцию стоит системная группа -21 "Пиво".
Особенности заполнения журнала реализованы через процедуру PR_EGAIS_DETAIL_OBSHEPIT, которая вызывается при проведении документа,
полный скрипт [[Файл:Модификация_ЕГАИС_для_общепита.txt]] обновления прилагается.

=Проблемы при продаже алкоголя=
при отбитии пивного чека бывает ошибка, где написано java и регулярное выражение, например {d+\10} ... и т.п. 
в конце этого сообщения пишется поле, которое не прошло проверку правильности данных. варианты: 
KP - неправильно указан КПП в параметрах системы 
IN - неправильно указан ИНН в параметрах системы 
EAN - неправильно указан шк изготовителя 
BK - неправильно просканирован акциз (скорей всего маленький квадратик вместо основного) 
значение Value состоит только из цифр - не тот штрихкод отсканировали, на акцизе два штрихкода, один маленький, другой большой, пусть закроют пальцем маленький и сканируют большой, в нём должны быть цифры и латинские буквы!!! пример ошибки
<PRE>
java.lang.IllegalArgumentException: org.xml.sax.SAXParseException; cvc-pattern-valid: Value '133-103995646074040516326020775185' is not facet-valid with respect to pattern '\d\d[a-zA-Z0-9]{21}\d[0-1]\d[0-3]\d{10}[a-zA-Z0-9]{31}' for type 'BK'
</PRE>
CODE - не указан код вида продукции egais_product_vcode 
скорее всего не заполнено поле EGAIS_PRODUCT_VCODE - код вида продукции... значит товар был оприходован вручную, а не через ЕГАИС, надо заполнить соответсвенно справочника - в интернете легко найти - искать код вида продукции алкоголь

* достаточно часто стала вылезать при продаже ошибка - не удалось отправить данные в ЕГАИС - скорее всего подвис модуль УТМ - лучший вариант перезагрузить компьютер с УТМ, либо попробовать службу рестартануть, но както не всегда она поднимается
* для заполнения кодов вида продукции удобно воспользоватся фильтром в менеджере
<PRE>
((wb.mmbsh like ('%-21=%')) or (wb.mmbsh like ('%-20=%')) ) and (trim(wb.egais_product_vcode) = '' or (wb.egais_product_vcode is null))
</PRE>
* если не отправляются запросы в егаис, и в ЕГАИС менеджере есть только отправка запроса, но нет ответов - надо перезапустить службу УТМ, подвисла, или перезагрузить компьютер с УТМ либо если не помогает можно посмотретьнастройки брэндмауэра на компьютере с УТМ
* если попросят добавить дату розлива в алкогольных магазинах, используем колонку DATESERT

*если при проведении документа прихода алкоголя выходит ошибка "Conversion error from string "несколько цифр через запятую" At procedure 'PR_DOC_PRIHOD_COMMIT_RECURSE'..."
изменяем в процедурах PR_NEW_PART и PR_DOC_PRIHOD_COMMIT_RECURSE тип переменной egais_id на DM_TEXT

*если в отчёт продажи алкоголя попадают товары не алкоголя
<PRE>
в процедуре PR_DOC_COMMIT
заменить строки после exception EX_WRONGDOC_BASE_TYPE на
/* nicky edit */
if (exists (select * from docs d where d.id = :doc_id and d.doc_type in (3, 9))) then
begin
insert into egais_detail (doc_detail_id, egais_barcode, producer_inn, producer_kpp) select dd.id, dda.egais_barcode, dda.producer_inn, dda.producer_kpp
from doc_detail dd join doc_detail_active dda on dd.doc_id = dda.doc_id and dd.part_id = dda.part_id
join vw_warebase wb on dd.part_id = wb.part_id
where dd.doc_id = :doc_id and (char_length(dda.EGAIS_BARCODE) > 0 or (wb.MMBSH containing '-21={') );
end
/* nicky edit end*/
</PRE>

и выполнить скрипт очистки уже попавших товаров
<PRE>
delete from egais_detail ed1
where ed1.doc_detail_id in
(select dd.id
from egais_detail ed
left join vw_doc_detail dd on dd.id = ed.doc_detail_id
left join vw_docs d on d.id = dd.doc_id
left join vw_warebase wb on wb.part_id = dd.part_id
where not(char_Length(ed.egais_barcode) > 1)
and not ((dd.mmbsh like '%-21={%') or (dd.mmbsh like '%-20={%'))
)
</PRE>

=Частые вопросы по ЕГАИС=

==При отбитии чека выходит сообщение с ошибкой на английском==
В новых версиях кассира сделаны необходимые проверки при добавлении товара в чек, но на всякий случай приводим примеры ошибок от УТМ и что они означают.
* IN - ругается на ИНН, указанный в реквизитах предприятия
* KPP - ругается на КПП, указанный в реквизитах предприятия
* BK - ругается на двумерный штрихкод акциза
* CODE - у какой то позиции не проставлен код вида продукции
* EAN - проблема со штрихкодом производителя
* duplicate - каким то образом в чеке две позиции с одинаковым акцизом
* 50 или 51 - проблема в ккм с печатью qr кода
* ошибка отправки данных - утм не включен

==Алкоголь при добавлении в чек не запрашивает акциз==
Проверьте, что на данной позиции стоит группа 20 Алкоголь.

==При добавлении пива запрашивает акциз, а его нет==
Проверьте, что на данной позиции стоит группа 21 Алкоголь / Пиво, а не группа 20.

==Нужно продать старую бутылку в обход ЕГАИС==
Нужно снять с нее группы 20 и 21.

==У клиента в одной базе два предприятия: ИП и ООО. Какие реквизиты заполнять в реквизитах организации==
В параметрах нужно указывать реквизиты того предприятия, которое торгует алкоголем. Обычно это ООО.

==Что делать если кассир выдает ошибку отправки данных в ЕГАИС без каких либо подробностей==
Скорей всего УТМ не включен. Проверьте УТМ набрав путь к нему в адресной строке браузера или нажмите проверить ттн в менеджере.

==Что делать пытались пробить бутылку но не получилось и бутылку отдали не пробив по программе==
Чтобы выровнять остатки по прорамме, пусть пробивают чек, а акциз сканируют с другой такойже бутылки. если такой бутылки нет, пусть сканируют акциз с другой бутылки.
Адекватным клиентам, можно показать как сохранять акцизы в блокнот (но таких единицы). Конечно, сама ситуация неправильная, но это это лучший выход из нее.
Чтобы таких случаев не было, в есть различные проверки.

==Что делать если на сайте ЕГАИС не совсем корректные остатки==
РАР будет использовать информацию об остатках при проверке деятельности магазинов только с 1.01.2017.

==Будет ли работать ЕГАИС если нет интернета==
Если в точке нет интернета, егаис всеравно будет работать, данные будут сохраняться в утм, qr коды будут печататься, но если их отсканировать и перейти на сайт - там будет пусто. Главное чтобы утм была включена и работала. Когда интернет появится, утм сама синхронизируется с РАР. После этого данные появятся на сайте егаис. Без интернета можно работать 3 дня.

==Что делать если в чеке над qr кодом пишется неверное название магазина==
В егаис при продаже нужно передавать название магазина. Кассир берет его из параметров системы, реквизиты организации, название торговой точки там может стоять ИП какое нибудь (их первое предприятие). Клиентов пугает, что у них выходит ИП вместо ООО. В качестве временного решения предлагаю менять реквизиты, перезапускаем кассира и печатает в чеках нормально, но потом у клиента эти реквизиты выходят в печатных формах и ценниках.

==При продаже алкоголя ругается на штрихкода изготовителя==
Проверьте правильность штрихкода (с бутылки сканируется именно те цифры, какие записаны в программе). Если штрихкода в программе не забит и на бутылке его нет, вставьте локальный штрихкод.

==Ошибка 50 или 51==
Если при продаже алкоголя выходит незавершенка и пишет ошибку 50 или 51 некорретные данные - это значит проблема не в отправке данных, а непосредственно при печати qr кода кассовым аппаратом.
Делаем проверку - в настройках оставляем галочку отправлять данные в егаис, но при этом ставим еще галочку не печатать qr код. Если чек выходит, значит проблема или с тем, что ккм не поддерживает печатать кодов или нужно объяснить прошивку. В крайнем случае оставляем все как есть и объясняем клиенту, что РАР разрешил на время переходного периода не печатать qr код если печатается ссылка, говорим что в ближайшее время исправим эту ситуацию и сообщаем о таких клиентах отделу внедрения. 
Ещё данная ошибка может быть с следующем случае - ККМ старая, перепрошита под ЕГАИС 
старые аппараты не могут печатать большие изображения 
в options.ini под нужным предприятием добавляем строки 
атол (быстро): 
1_QR_Height (100) 
1_QR_Scale (300) 
 
атол (медленно): 
1_QRSlow_BmpScale (7) 
1_QRSlow_Scale (7) 
 
штрих (быстро): 
2_QR_DotSize (7) 
 
штрих (медленно): 
2_QRSlow_BmpScale (7) 
быстро - средствами ККМ, медленно - как графический объект

==Почему в чеке несколько бутылок с алкоголем, а qr код распечатался один==
1 чек - 1 qr код. Если перейти по ссылке, то отобразится информация по всем позициям в чеке.

==Должны ли печататься qr коды при продаже пива==
РАР отменил пивные чеки, т.е. непосредственно при продаже информация в егаис не уходит. В конце дня нужно делать "акт списания из торгового зала со второго регистра" из менеджера, в котором будут все эти продажи.

==Как отпускать алкоголь в общепитах==
От общепита РАР требует только данные по приходу ТТН. Непосредственно при продаже в ЕГАИС ничего отправлять не нужно. Нужно только вести журнал по алкоголю.

==Как сделать возврат поставщику по ЕГАИС==
Открыть журнал документов, встать на проведеннный приход по ттн, нажать на кнопку "сделать возврат" на панели, где находятся и другие кнопки, относящиеся к ЕГАИС. Затем проставить нужное количество и отправить. Не пытайтесь вручную создать расходный документ "возврат по ЕГАИС", добавить в него позиции и провести - это неправильно.

==Где можно посмотреть какой запрос был отправлен в ЕГАИС==
Таблица EGAIS_REQUESTS. Тело запроса будет в колонке QUERY_DATA, а ответ в REPLY_DATA.

==Почему клиент сканирует QR код, переходит на сайт, а там пусто==
Обычно данные появляются на сайте в течении 5 минут после продажи, но могут быть задержки. Я лично был свидетелем, когда после покупки в Красном и Белом данные появились только через полчаса.

==Почему на сайте в информации о чеке неверно отображается дата чека==
Проблема решается обновлением версии кассира.

==Что делать если акт на самом деле принят, но в журнале документов отображается, что не принят?==
В начальных версиях егаис-менеджера была ошибка, что если по ТТН отправляют повторный акт по уже принятой накладной и УТМ по этому запросу возвращает отрицательный ответ (т.к. ттн уже подтверждена), то менеджер меняет в базе статус с принятого на отклонён. Это можно исправить спомощью процедуры:
<pre>
SET TERM ^ ;

create or alter procedure PR_CHECK_TTN_ACCEPTED
returns (
DOC_ID_OUT bigint)
as
declare variable DOC_ID DM_ID;
declare variable EGAIS_ID DM_UUID;
declare variable C DM_STATUS;
begin
for select D.ID,
D.EGAIS_ID
from DOCS D
where D.DOC_TYPE = 40
and D.EGAIS_STATUS = 2
into :DOC_ID,
:EGAIS_ID
do
begin
C = 0;
select first 1 count(*)
from EGAIS_REQUESTS R
where 1 = 1
and R.EGAIS_ID = :EGAIS_ID
and R.REPLY_DATA containing '<tc:Conclusion>Accepted</tc:Conclusion>'
into C;
if (C > 0) then
begin
select :DOC_ID
from RDB$DATABASE
into :DOC_ID_OUT;
update DOCS D
set D.EGAIS_STATUS = 1
where D.ID = :DOC_ID;
suspend;
end
end
end^

SET TERM ; ^

/* Following GRANT statetements are generated automatically */

GRANT SELECT,UPDATE ON DOCS TO PROCEDURE PR_CHECK_TTN_ACCEPTED;
GRANT SELECT ON EGAIS_REQUESTS TO PROCEDURE PR_CHECK_TTN_ACCEPTED;

/* Existing privileges on this procedure */

GRANT EXECUTE ON PROCEDURE PR_CHECK_TTN_ACCEPTED TO SYSDBA;
</pre>
Если каким то образом получилось, что в егаис накладная принята, но в базе нет данных запросов и она там неподтверждена, то ее можно подтвердить вручную спомощью запроса:
<pre>
update docs d set d.egais_status=1 where d.doc_id=:doc_id;
</pre>
==Ошибка при принятии накладной: "Не удалось найти ЕГАИС идентификатор ТТН. Принятие отменено."==
[[Файл:ЕГАИС_ошибка_при_принятии_накладной.png]]

Заходим во входящие запросы, выполняем "запросить данные". Находим строку, на которую ругается ЕГАИС, например, с нужным нам [[Waybill/2701]], и удаляем эту строку.
После чего заходим в личный кабинет ЕГАИС и заново запрашиваем накладную

==Что делать с зависшими накладными==
Если на ТТН уже пришел акт подтверждения, а в модуле ЕГАИС они по прежнему висят, то нужно сделать следующее. В таблице EGAIS_REQUESTS нужно отфильтровать ТТН по статусу. У зависших накладных статус будет 0 или null. Далее у этих ТТН нужно поменять статус на 1.

Оптимизация базы данных

2017-01-20T05:18:15Z

Ilsiya: /* Резервирование\Восстановление базы данных */

В случае, когда база значительно увеличилась в размерах и превысила 1,5-2 Гб, следует провести оптимизацию данных.

==Создаем файловую копию базы данных==

Просим всех пользователей выйти из программы!

*Отключаем службу '''Firebird Server Manager''': Пуск/Панель управления, режим просмотра: "Мелкие значки".
[[Файл:Оптимизация_бд_отключение_firebird.jpg|center|Отключение Firebird]]

*Создаем файловую копию базы данных ZTRADE.FBD. ZTRADE.FDB переименовываем в ZTRADE_orig, и работаем с файловой копией. Для удобства работы с ней переименуем, добавив в название дату:
[[Файл:Оптимизация_бд_файловая_копия_бд.jpg|center|Файловая копия бд]]

*Включаем службу '''Firebird Server Manager''':
[[Файл:Оптимизация_бд_включение_firebird.jpg|center|Включение Firebird]]

==Заходим в программу IBExpert, создаем подключение к копии базы данных==
* Заходим в меню «База данных»(Database) - «Зарегистрировать базу»(Register Database),
* В открывшемся окне указываем Имя Сервера(Server name) на котором лежит база данных,
* В окне Версия сервера(Server Version) выбираем Firebird 2.5,
* Файл базы данных(Database File) по иконке с папкой выбираем путь к нашей базой данных,
* Пользователь(User name) - прописываем SYSDBA,
* Пароль(Password) – masterkey,
* Кодировка(Charset) выставляем WIN1251.
[[Файл:Оптимизация_бд_регистрация_базы_данных.jpg|center|Регистрация бд]]

==Создаем бэкап базы данных==
Для создания бэкапа выбираем '''«Службы»(Services)''' - '''«Резервирование базы данных»(Backup Database'''):
[[Файл:Оптимизация_бд_бэкап_базы_данных.jpg|center|Бэкап бд]]
*В появившемся окне, в поле ''Имя файла(File Name)'', встает путь к базе по умолчанию , например: «С:\Standart-N\base\ztrade_20150106.fbk».
*Отключите галочку Сборка мусора(Garbage Collection) и нажимайте кнопку «Начать резервное копирование»(Start Backup).

При успешном завершении бэкапа окно будет выглядеть следующим образом:
[[Файл:Оптимизация_бд_успешное_завершение_бэкапа.jpg|center|Бэкап бд]]

==Просмотр системных таблиц==
*Заходим в меню «База данных»(Databas) - «Регистрационная информация базы …»(Database Registration Info …).
*В открывшемся окне «Параметры базы данных» в левой панели выбираем в пункте «Дополнительно»(Additional) подменю «Эксплорер БД»(DB Explorer).
*Справа отобразится несколько пунктов и нам нужно будет выбрать и установить галку «Показывать системные таблицы»(Show System Tables), после чего нажимаем кнопку «Ок».
[[Файл:Оптимизация_бд_показывать_системные_таблицы.jpg|center|Системные таблицы]]
*Дальше нам необходимо в левой панели «Database Explorer» два раза кликнуть по нашей базе, так чтобы мы увидели дерево данных в следующем виде:
[[Файл:Оптимизация_бд_дерево_данных.jpg|center|Дерево данных]]

==Отключение логирования==
Заходим в меню '''«Инструменты»(Tools)''' - '''«Менеджер протоколов данных»(Log Manager)''',
Должно открыться окно, но может выйти окно с ошибкой:
[[Файл:Оптимизация_бд_ошибка_при_открытии_менеджере_протоколов_данных.jpg|center|Ошибка]]
Не пугайтесь, просто нажимайте кнопку «Ок» , она ни на что не влияет.Если она у Вас появилась, то заодно закройте окно «Менеджер протоколов данных» и заново откройте.

В этом окне находим одноименную кнопку '''«Менеджер протоколов данных» (Log Manager)''' и выбираем пункт '''«Отменить протоколирование для всех таблиц»(Unprepare all tables)'''. У нас должны сняться все отметки, после чего мы нажимаем кнопку с молнией [[Файл:Оптимизация_бд_кнопка_компиляции.jpg|Компиляция]] или F9.. После чего должно появиться окно '''«Updating logging triggers…»''' , в котором необходимо нажать кнопку '''«Подтвердить»(Commit)'''. Таким образом мы отключили с вами логирование базы данных.

==Очистка и удаление таблиц==
Слева в окне мы видим дерево данных, самой нижней строкой стоит пункт «Системные таблицы», подсвеченный красным цветом.

Раскрываем плюсик и видим первые четыре таблицы, их нам с Вами нужно удалить, последовательно встаем на них мышью и правой кнопкой мыши выбираем пункт '''«Удалить таблицу …»(Drop table …).''' :
*IBE$LOG_BLOB_FIELDS;
*IBE$LOG_FIELDS;
*IBE$LOG_KEYS
*IBE$LOG_TABLES.

После того как мы удалили все четыре таблицы, в этом же дереве раскрываем пункт «Генераторы» и удаляем последнюю строку в этом пункте, также выделенную красным цветом:
*IBE$LOG_TABLES_GEN

Удаляем также правой кнопкой мыши.

Мы удали все необходимые системные таблицы , теперь нам необходимо '''очистить''' таблицы с логами .Также по плюсу раскрываем пункт «Таблицы», и последовательно чистим следующие таблицы:
*ANALYTIC_DOC_DETAIL_1
*ANALYTIC_DOC_DETAIL_2
*ANALYTIC_DOC_DETAIL_3
...
Т.е все таблицы имеющие в своем название «ANALYTIC_DOC_DETAIL»
*ANALYTIC_FALSIFICAT
*ANALYTIC_GNVLS
*ANALYTIC_MIN_ASSORT
*ANALYTIC_PRICE
*DOCS_LOG
*DOC_DETAIL_ACTIVE_LOG
*DOC_DETAIL_LOG
*PARTS_LOG
*TMP_LOG
'''Ни в коем случае НЕ трогаем таблицу WARES_LOG'''

Очистку этих таблиц будем осуществлять следующим образом:
Двойным щелчком мыши по вышеперечисленной таблице, так чтобы она у нас открылась . Затем ищем меню «Таблица»(Table) и выбираем пункт «Очистить таблицу»(Empty table) .
[[Файл: Оптимизация_бд_очистка_таблицы.jpg|center| Очистка таблицы]]
Затем у Нас появляется окно «Подтверждение» , и мы подтверждаем свои намерения:
[[Файл: Оптимизация_бд_подтверждение_очистки_таблицы.jpg|center|Подтверждение очистки таблицы]]

==Резервирование\Восстановление базы данных==

После того как очистили таблицы, необходимо снова сделать резервирование данных, а потом восстановление, для этого идем в меню «Службы»(Services) и создаем резервную копию нашей почищенной базы данных ( «Резервирование базы данных»(Backup database)), при этом не забываем отключить флажок Сборка мусора(Garbage Collection) и нажимаем кнопку «Начать резервное копирование»(Start Backup).

Ждем окончание процесса создания бэкапа, затем нам необходимо восстановить нашу базу данных из этой резервной копии, для этого в том же меню «Службы» (Services) выбираем пункт «Восстановление базы данных»(Restore Database).

В открывшемся окне с помощью кнопки [[Файл: Оптимизация_бд_кнопка_выбрать_бэкап_для_восстановления.jpg|Кнопка выбрать бэкап]] нам нужно выбрать бэкап , который мы только что создали.
Окно должно выглядеть следующим образом:
[[Файл: Оптимизация_восстановление_базы_данных.jpg|center|Восстановление базы данных]]
После окончания процесса создастся новая база ZTRADE_NEW.FDB, переименовываем ее в ZTRADE.FDB.

В общем все, готово! Проверьте размер базы данных, она должна значительно уменьшиться в размерах. После чего можете сообщить пользователям, что уже можно работать в программе!