Дублирование чека - История изменений

Agk: /* Процедура создание пропущенных Z отчетов */

2024-12-05T06:31:52Z

‎Процедура создание пропущенных Z отчетов

Amiheev: /* Дублирование чека */

2020-04-17T10:15:07Z

‎Дублирование чека

Amiheev: /* Создание процедуры */

2020-04-17T10:14:23Z

‎Создание процедуры

Avo в 05:30, 15 апреля 2020

2020-04-15T05:30:18Z

Avo в 07:34, 25 сентября 2019

2019-09-25T07:34:20Z

Диана Михеева: /* Дублирование чека */

2019-06-05T05:22:19Z

‎Дублирование чека

Agk: /* Создание процедуры */

2017-04-11T07:27:33Z

‎Создание процедуры

Внесённые изменения

Natali: /* Процедура для испраления расхождения путем исправления суммы скидки чека */

2017-01-17T10:56:29Z

‎Процедура для испраления расхождения путем исправления суммы скидки чека

Aleksnick в 10:17, 18 августа 2016

2016-08-18T10:17:54Z

Agk: /* Автоматическое исправление отмененных чеков */

2016-08-12T12:06:12Z

‎Автоматическое исправление отмененных чеков

@@ Строка 743: / Строка 743: @@
           into :summ1_s,:summ2_s,:AUDIT_ID,:ZDATE,:AGENT_ID;
-  if (:summ1_s=0) then
+/*  if (:summ1_s=0) then
     begin
-     verb='Не найдены продажи за наличку в смене № ' || :vshift_old || ' для ККМ № '|| :DEVICE_NUM || ', выполнить невозможно';
+     verb='Не найдены продажи за наличку в смене № ' || :vshift || ' для ККМ № '|| :DEVICE_NUM || ', выполнить невозможно';
      suspend;
      exit;
-    end
+    end*/
    --Собрали возвраты по смене
@@ Строка 769: / Строка 769: @@
    suspend;
-   INSERT INTO CASH_DOCS (PARENT_ID, DOC_TYPE, STATUS, AGENT_ID,CREATESESSION_ID, RGUID, OWNER, COMMITDATE, SUMMA, VSHIFT, DEVICE_NUM, DOC_ID)
+   if (coalesce(summ1,0) <> 0) then
                 VALUES (0, 1, 1, :AGENT_ID,:AUDIT_ID, replace(UUID_TO_CHAR( GEN_UUID()),'-',''), :AGENT_ID, :ZDATE, :summ1, :VSHIFT, :DEVICE_NUM, :doc_id);
-  verb='Успешно создано запись в CASH_DOCS в сумме=' || :summ1;
+      verb='Успешно создано запись в CASH_DOCS в сумме=' || :summ1;
-  suspend;
+      suspend;
 end^
@@ Строка 786: / Строка 789: @@
 GRANT EXECUTE ON PROCEDURE PR_CREATE_Z TO SYSDBA;
 </pre>

@@ Строка 490: / Строка 490: @@
 ==Дублирование чека==
 Иногда возникает необходимость полностью задублировать чек в базе, при этом не проводя его ни по ККМ ни по банковскому терминалу. Для этого выполните скрипт ниже
 ==Создание процедуры==

@@ Строка 525: / Строка 525: @@
 declare variable SUMMA DM_DOUBLE;
 declare variable SUMMA_O DM_DOUBLE;
 begin
 -------------------------------------------------------------
@@ Строка 535: / Строка 537: @@
    update params set param_value = '1' where param_id = 'RASHOD_MINUS';
-   select STATUS, DOC_TYPE, AGENT_ID, PARENT_ID, DOCNUM, DOCDATE, AUDIT_ID, coalesce(COMMENTS,''), SUMM1,SUMM2,SUMM3,SUMM4,VSHIFT,DEVICE_NUM,VNUM,BONUS,CAPTION, SUMMA, SUMMA_O from docs where id = :DOC_ID into :STATUS, :DOC_TYPE, :AGENT_ID, :PARENT_ID, :DOCNUM, :DOCDATE, :SESSION_ID, :COMMENTS, :SUMM1,SUMM2,SUMM3,SUMM4,VSHIFT,DEVICE_NUM,VNUM,BONUS,CAPTION, :SUMMA, :SUMMA_O;
+   select STATUS, DOC_TYPE, AGENT_ID, PARENT_ID, DOCNUM, DOCDATE, AUDIT_ID, coalesce(COMMENTS,''), SUMM1,SUMM2,SUMM3,SUMM4,VSHIFT,DEVICE_NUM,VNUM,BONUS,CAPTION, SUMMA, SUMMA_O, INSERTDT, POSTDT from docs where id = :DOC_ID into :STATUS, :DOC_TYPE, :AGENT_ID, :PARENT_ID, :DOCNUM, :DOCDATE, :SESSION_ID, :COMMENTS, :SUMM1,SUMM2,SUMM3,SUMM4,VSHIFT,DEVICE_NUM,VNUM,BONUS,CAPTION, :SUMMA, :SUMMA_O, :INSERTDT, :POSTDT;
    while (:DOC_QUANT > i) do
@@ Строка 574: / Строка 576: @@
        execute procedure pr_doc_commit(:O$DOC_ID,:SESSION_ID); --Проводим
        update docs set comments = :COMMENTS||'(Дубль чека ID='||cast(:DOC_ID as DM_TEXT)||')', SUMM1 = :SUMM1, SUMM2 = :SUMM2, SUMM3 = :SUMM3,
-         SUMM4 = :SUMM3, VSHIFT = :VSHIFT, DEVICE_NUM = :DEVICE_NUM, VNUM = :VNUM, BONUS = :BONUS, CAPTION = :CAPTION, summa = :summa, summa_o = :summa_o
+         SUMM4 = :SUMM3, VSHIFT = :VSHIFT, DEVICE_NUM = :DEVICE_NUM, VNUM = :VNUM, BONUS = :BONUS, CAPTION = :CAPTION, summa = :summa, summa_o = :summa_o, INSERTDT = :INSERTDT,  POSTDT = :POSTDT
        where id = :O$DOC_ID;
        if (abs((select abs(sum(summa)) from doc_detail where doc_id = :O$DOC_ID)-abs(:summa)) > 0.01) then
-         update doc_detail set summa = summa+sum_dsc where doc_id = :O$DOC_ID;
+         update doc_detail set summa = summa+sum_dsc, INSERTDT = :INSERTDT where doc_id = :O$DOC_ID;
       suspend;
@@ Строка 604: / Строка 606: @@
 GRANT EXECUTE ON PROCEDURE PR_CREATE_DUPLICATE_CHECK TO PROCEDURE PR_DOCSCARE;
 GRANT EXECUTE ON PROCEDURE PR_CREATE_DUPLICATE_CHECK TO SYSDBA;
 </pre>

← Предыдущая		Версия 05:30, 15 апреля 2020
Строка 1025:		Строка 1025:

	</pre>		</pre>
		+
		+	=Копирование данных с одного чека на другой=
		+	==Создание процедуры в базе==
		+	<pre>
		+	SET TERM ^ ;
		+
		+	create or alter procedure PR_COPY_DATA_CHECK (
		+	ID_MASTER DM_ID,
		+	ID_RECIPIENT DM_ID)
		+	returns (
		+	VERB DM_TEXT1024)
		+	as
		+	declare variable DOCDATE DM_DATETIME;
		+	declare variable INSERTDT DM_DATETIME;
		+	declare variable POSTDT DM_DATETIME;
		+	declare variable VSHIFT DM_ID;
		+	declare variable CREATER DM_ID;
		+	declare variable OWNER DM_ID;
		+	declare variable COMMITDATE DM_DATETIME;
		+	declare variable DEVICE_NUM DM_TEXT;
		+	declare variable DATEZ DM_DATE;
		+	declare variable DD_INSERTDT DM_DATETIME;
		+	declare variable DD_DOC_COMMITDATE DM_DATE;
		+	begin
		+	if ((select count(id) from docs where id =:id_master)=0) then
		+	begin
		+	verb='Не найден чек c которого планируется скопировать данные ID=' \|\|:id_master\|\| ', выполнить невозможно';
		+	suspend;
		+	exit;
		+	end
		+	if ((select count(id) from docs where id =:ID_RECIPIENT)=0) then
		+	begin
		+	verb='Не найден чек получателя данных от источеника ID=' \|\|:ID_RECIPIENT\|\| ', выполнить невозможно';
		+	suspend;
		+	exit;
		+	end
		+	select docdate, insertdt, postdt, vshift, creater, owner, commitdate,device_num, datez from docs where id =:id_master
		+	into :docdate, :insertdt, :postdt, :vshift, :creater, :owner, :commitdate, :device_num, :datez;
		+	update docs set
		+	docdate=:docdate,
		+	insertdt=:insertdt,
		+	postdt=:postdt,
		+	vshift=:vshift,
		+	creater=:creater,
		+	owner=:owner,
		+	commitdate=:commitdate,
		+	device_num=:device_num,
		+	datez=:datez,
		+	COMMENTS='Документ был изменен процедурой PR_COPY_DATA_CHECK '\|\|CURRENT_TIMESTAMP\|\|', данные взяты с чека='\|\|:id_master
		+	where id =:ID_RECIPIENT;
		+	verb='Успешно обновили DOCS ID=' \|\| :ID_RECIPIENT;
		+	suspend;
		+
		+	select first 1 insertdt, doc_commitdate from doc_detail where doc_id= :id_master into :DD_INSERTDT, :DD_DOC_COMMITDATE;
		+	update doc_detail set
		+	insertdt = :DD_INSERTDT,
		+	doc_commitdate = :DD_DOC_COMMITDATE
		+	where doc_id =:ID_RECIPIENT;
		+	verb='Успешно обновили doc_detail doc_ID=' \|\| :ID_RECIPIENT;
		+	suspend;
		+	end^
		+
		+	SET TERM ; ^
		+
		+	COMMENT ON PARAMETER PR_COPY_DATA_CHECK.ID_MASTER IS
		+	'ИД чека источника';
		+
		+	COMMENT ON PARAMETER PR_COPY_DATA_CHECK.ID_RECIPIENT IS
		+	'ИД чека получателя';
		+	</pre>
		+	==Как использовать==
		+	В поле ID_MASTER вводим чек с которого будут скопированы данные, в поле ID_RECIPIENT вводим чек нна который будут скопированы данные. Если чеки не существуют процедура выдаст ошибку.
		+	Теги: создание зетки, Z, z-отчет, создать

← Предыдущая		Версия 07:34, 25 сентября 2019
Строка 688:		Строка 688:
	Теги: дублирование чека, дубль, задублировать чек		Теги: дублирование чека, дубль, задублировать чек

		+	=Процедура создание пропущенных Z отчетов =
		+	<pre>
		+	SET TERM ^ ;
		+
		+	create or alter procedure PR_CREATE_Z (
		+	VSHIFT DM_ID,
		+	DEVICE_NUM DM_TEXT)
		+	returns (
		+	VERB DM_TEXT1024)
		+	as
		+	declare variable SUMM1_B DM_DOUBLE;
		+	declare variable SUMM1_S DM_DOUBLE;
		+	declare variable SUMM1 DM_DOUBLE;
		+	declare variable SUMM2_B DM_DOUBLE;
		+	declare variable SUMM2 DM_DOUBLE;
		+	declare variable SUMM2_S DM_DOUBLE;
		+	declare variable SUMM3 DM_DOUBLE;
		+	declare variable SUMM4 DM_DOUBLE;
		+	declare variable VSHIFT_OLD DM_ID_NULL;
		+	declare variable AGENT_ID DM_ID_NULL;
		+	declare variable AUDIT_ID DM_ID_NULL;
		+	declare variable ZDATE DM_DATETIME;
		+	declare variable DOC_ID DM_ID;
		+	begin
		+
		+	if ((select count(id) from docs where DEVICE_NUM=:DEVICE_NUM and VSHIFT=:VSHIFT and doc_type=13)>0) then
		+	begin
		+	verb='Уже существует Z отчет с номером смены ' \|\|:VSHIFT \|\| ' для ККМ № '\|\| :DEVICE_NUM \|\| ', выполнить невозможно';
		+	suspend;
		+	exit;
		+	end
		+
		+	if ((select count(id) from docs where DEVICE_NUM=:DEVICE_NUM and VSHIFT=:VSHIFT and doc_type=3)=0) then
		+	begin
		+	verb='Не найдены продажи для смены № ' \|\|:VSHIFT \|\| ' для ККМ № '\|\| :DEVICE_NUM \|\| ', выполнить невозможно';
		+	suspend;
		+	exit;
		+	end
		+
		+	vshift_old = VSHIFT-1;
		+
		+	select summ4 from docs where DEVICE_NUM=:DEVICE_NUM and VSHIFT=:vshift_old and doc_type=13 into :summ4;
		+
		+	if ((:summ4=0) and ((:vshift_old)>0)) then
		+	begin
		+	verb='Не найден предыдущий Z отчет с номером смены ' \|\| :vshift_old \|\| ' для ККМ № '\|\| :DEVICE_NUM \|\| ', выполнить невозможно';
		+	suspend;
		+	exit;
		+	end
		+
		+	--Собрали продажи по смене
		+	select COALESCE(sum(abs(summ1)),0),COALESCE(sum(abs(summ2)),0),max(AUDIT_ID),max(COMMITDATE),max(AGENT_ID)
		+	from docs where doc_type =3 and DEVICE_NUM=:DEVICE_NUM and VSHIFT=:VSHIFT
		+	into :summ1_s,:summ2_s,:AUDIT_ID,:ZDATE,:AGENT_ID;
		+
		+	if (:summ1_s=0) then
		+	begin
		+	verb='Не найдены продажи за наличку в смене № ' \|\| :vshift_old \|\| ' для ККМ № '\|\| :DEVICE_NUM \|\| ', выполнить невозможно';
		+	suspend;
		+	exit;
		+	end
		+
		+	--Собрали возвраты по смене
		+	select COALESCE(sum(summ1),0),COALESCE(sum(summ2),0)
		+	from docs where doc_type =9 and DEVICE_NUM=:DEVICE_NUM and VSHIFT=:VSHIFT
		+	into :summ1_b,:summ2_b;
		+
		+	--Собрали итоговые суммы
		+	summ1 = :summ1_s-summ1_b;
		+	summ2 = :summ1_s+:summ2_s;
		+	summ3 = :summ2-(:summ1_b+:summ2_b);
		+	summ4 = :summ4 + :summ2;
		+
		+	--Пишем в базу строки
		+	doc_id=gen_id(gen_docs_id,1);
		+
		+	INSERT INTO docs (ID,PARENT_ID,DOC_TYPE,STATUS,AGENT_ID,RGUID,AUDIT_ID,DOCNUM,DOCDATE,vshift,vnum,DEVICE_NUM,SUMM1,SUMM2,SUMM3,SUMM4,SUMM5,SUMM6,SUMM7,SUMM8) values
		+	(:doc_ID,0,13,1,:AGENT_ID,replace(UUID_TO_CHAR( GEN_UUID()),'-',''),:AUDIT_ID,0,:ZDATE,:vshift,0,:DEVICE_NUM,:summ1,:summ2,:summ3,:summ4,null,null,null,null);
		+	verb='Успешно создано запись№'\|\| :doc_id \|\| ' в docs summ1=' \|\| :summ1 \|\| ' summ2='\|\| :summ2 \|\| ' summ3='\|\| :summ3 \|\| ' summ4='\|\| :summ4;
		+	suspend;
		+
		+	INSERT INTO CASH_DOCS (PARENT_ID, DOC_TYPE, STATUS, AGENT_ID,CREATESESSION_ID, RGUID, OWNER, COMMITDATE, SUMMA, VSHIFT, DEVICE_NUM, DOC_ID)
		+	VALUES (0, 1, 1, :AGENT_ID,:AUDIT_ID, replace(UUID_TO_CHAR( GEN_UUID()),'-',''), :AGENT_ID, :ZDATE, :summ1, :VSHIFT, :DEVICE_NUM, :doc_id);
		+
		+	verb='Успешно создано запись в CASH_DOCS в сумме=' \|\| :summ1;
		+	suspend;
		+	end^
		+
		+	SET TERM ; ^
		+
		+	/* Следующие операторы GRANT сгенерированы автоматически */
		+
		+	GRANT SELECT,INSERT ON DOCS TO PROCEDURE PR_CREATE_Z;
		+	GRANT INSERT ON CASH_DOCS TO PROCEDURE PR_CREATE_Z;
		+
		+	/* Существующие привилегии на эту процедуру */
		+
		+	GRANT EXECUTE ON PROCEDURE PR_CREATE_Z TO SYSDBA;
		+
		+	</pre>
		+
		+	==Как использовать==
		+	Нужно указать '''vshift''' и '''DEVICE_NUM''' продаж по котрым не создана зетка, процедура проверит есть ли продажи, есть ли существующая уже зетка и если все хорошо создаст запись в таблице docs и в таблице cash_docs.
		+
		+	Теги: создание зетки, Z, z-отчет, создать

	=Автоматическое исправление отмененных чеков=		=Автоматическое исправление отмененных чеков=

@@ Строка 785: / Строка 785: @@
 =Исправление расхождений из-за неправильного округления=
-==Процедура для испраления расхождения путем исправления суммы скидки чека==
+==Процедура для исправления расхождения путем исправления суммы скидки чека==
   <nowiki>

@@ Строка 1: / Строка 1: @@
 =Ситуации которые бывают с чеками=
 '''#1.''' ККМ при отбитии выдал ошибку и АРМ Кассир решил, что чек не прошел и отменил его, а на самом деле чек в ккм прошел и суммы обновились. Возможно, была незавершенка, в которой нажали '''отменить'''. В z-отчете сумма больше, чем по базе. Если отбивали по безналу, то по терминалу этот чек тоже должен быть проведенный. В итоге:
-  база - 0, ккм - 1, банк - 1
+  база - 0, банк - 1, ккм - 1
 '''Решение:''' в базе должен быть '''отмененный''' чек на сумму расхождений, который нужно продублировать. Ситуация должна выправиться:
-  база - 1, ккм - 1, банк - 1
+  база - 1, банк - 1, ккм - 1
 '''#2.''' В ккм чек прошел дважды, а по базе - 1. Скорей всего возникла ситуация, как в первом случае, вышла незавершенка, но в ней на этот раз нажали '''завершить'''. Если отбивали по безналу, то по терминалу этот чек тоже должен быть проведенный. В итоге:
-  база - 1, ккм - 2, банк - 1
+  база - 1, банк - 1, ккм - 2
 '''Решение:''' сначала нужно продублировать чек. Получится:
-  база - 2, ккм - 2, банк - 1
+  база - 2, банк - 1, ккм - 2
 Затем нужно сделать возврат с включенной ккм, но с несвязным терминалом. Получится:
-  база - 1, ккм - 1, банк - 1
+  база - 1, банк - 1, ккм - 1
 '''#3.''' При оплате по безналу чек по банку не прошел, но в базе и ккм он записался как проведенный. Скорей всего была незавершенка на банковской операции, при которой нажали '''пропустить'''. В итоге:
-  база - 1, ккм - 1, банк - 0
+  база - 1, банк - 0, ккм - 1
 Получается, что данный товар продавец отдал покупателю бесплатно.<br>
 '''Решение:''' сначала нужно сделать возврат с включенной ккм, но с несвязным терминалом. Получится:
-  база - 0, ккм - 0, банк - 0
+  база - 0, банк - 0, ккм - 0
 Вроде все сходится, но т.к. как мы отдали товар покупателю, то нужно списать его с остатков. Для этого пробиваем данный чек по безналу в режиме без кмм и с несвязным терминалом.
 '''#4.''' При оплает по безналу чек по банку прошел, а при проведении по ккм возникла незавершенка, в которой нажали '''пропустить'''. В результате чек по банку и по базе прошел, с остатков списался, а по ккм не прошел. Сумма по чекам будет больше, чем по z-отчету на сумму проблемного чека. Т.е.:
-  база - 1, ккм - 0, банк - 1
+  база - 1, банк - 1, ккм - 0
 '''Решение:''' сначала нужно сделать возврат по безналу в режиме без ккм и несвязного терминала. Получится:
-  база - 0, ккм - 0, банк - 1
+  база - 0, банк - 1, ккм - 0
 Затем нужно пробить чек по безналу с включенной ккм, но с несвязным терминалом. Ситуация разрешится:
-  база - 1, ккм - 1, банк - 1
+  база - 1, банк - 1, ккм - 1

← Предыдущая		Версия 12:06, 12 августа 2016
Строка 1003:		Строка 1003:

	GRANT EXECUTE ON PROCEDURE PR_CHECK_ZDOCS TO SYSDBA;		GRANT EXECUTE ON PROCEDURE PR_CHECK_ZDOCS TO SYSDBA;
		+	</pre>
		+
		+	* Устанавливаем триггер на закрытие смены '''DOCS_BIU0_CHECK_DOCS'''
		+	<pre>
		+
		+	/******************************************************************************/
		+	/* Following SET SQL DIALECT is just for the Database Comparer */
		+	/******************************************************************************/
		+	SET SQL DIALECT 3;
		+
		+
		+	SET TERM ^ ;
		+
		+
		+
		+	CREATE OR ALTER TRIGGER DOCS_BIU0_CHECK_DOCS FOR DOCS
		+	ACTIVE BEFORE INSERT OR UPDATE POSITION 999
		+	as
		+
		+	declare variable DEVICE_NUM DM_TEXT;
		+	declare variable VSHIFT DM_ID;
		+	declare variable COMMITDATE DM_DATETIME;
		+	declare variable ZSUMM1 DM_DOUBLE;
		+	declare variable ZSUMM2 DM_DOUBLE;
		+	declare variable ZSUMM3 DM_DOUBLE;
		+	declare variable ZSUMM4 DM_DOUBLE;
		+	declare variable CSUMM1 DM_DOUBLE;
		+	declare variable CSUMM2 DM_DOUBLE;
		+	declare variable CSUMM3 DM_DOUBLE;
		+	declare variable CSUMM4 DM_DOUBLE;
		+	declare variable VSUMM1 DM_DOUBLE;
		+	declare variable VSUMM2 DM_DOUBLE;
		+	declare variable VSUMM3 DM_DOUBLE;
		+	declare variable VSUMM4 DM_DOUBLE;
		+	declare variable HSUMM DM_DOUBLE;
		+	declare variable RASH_NAL DM_DOUBLE;
		+	declare variable RASH_BEZNAL DM_DOUBLE;
		+	declare variable DOC_ID DM_ID;
		+	declare variable OUT_DOC_ID DM_ID;
		+
		+	begin
		+	if ( (new.DOC_TYPE = 13) and
		+	((select cast(param_value\|\|' 23:59:59' as dm_datetime) from params p where param_id = 'AUTO_BANCORRECTDATE') < new.commitdate) ) then
		+	select DEVICE_NUM,
		+	VSHIFT,
		+	COMMITDATE,
		+	ZSUMM1,
		+	ZSUMM2,
		+	ZSUMM3,
		+	ZSUMM4,
		+	CSUMM1,
		+	CSUMM2,
		+	CSUMM3,
		+	CSUMM4,
		+	VSUMM1,
		+	VSUMM2,
		+	VSUMM3,
		+	VSUMM4,
		+	HSUMM,
		+	RASH_NAL,
		+	RASH_BEZNAL,
		+	DOC_ID,
		+	OUT_DOC_ID
		+	from PR_CHECK_ZDOCS(new.ID)
		+	into :DEVICE_NUM,
		+	:VSHIFT,
		+	:COMMITDATE,
		+	:ZSUMM1,
		+	:ZSUMM2,
		+	:ZSUMM3,
		+	:ZSUMM4,
		+	:CSUMM1,
		+	:CSUMM2,
		+	:CSUMM3,
		+	:CSUMM4,
		+	:VSUMM1,
		+	:VSUMM2,
		+	:VSUMM3,
		+	:VSUMM4,
		+	:HSUMM,
		+	:RASH_NAL,
		+	:RASH_BEZNAL,
		+	:DOC_ID,
		+	:OUT_DOC_ID;
		+	end
		+	^
		+
		+
		+	SET TERM ; ^
		+
	</pre>		</pre>