Товар под заказ - История изменений

Agk в 12:07, 26 октября 2018

2018-10-26T12:07:25Z

Agk в 11:58, 26 октября 2018

2018-10-26T11:58:46Z

Agk: /* Выполнить в базе */

2018-10-26T11:57:00Z

‎Выполнить в базе

Agk: /* Настройка аванса */

2018-10-25T06:38:22Z

‎Настройка аванса

Agk в 06:37, 25 октября 2018

2018-10-25T06:37:00Z

Agk в 07:29, 19 октября 2018

2018-10-19T07:29:41Z

Agk: /* Выполнить в базе */

2018-10-19T06:45:26Z

‎Выполнить в базе

Agk: /* дополнить ТМС -205 "Проведение активного документа" в Менеджере */

2018-10-19T06:41:00Z

‎дополнить ТМС -205 "Проведение активного документа" в Менеджере

Agk в 10:24, 4 октября 2018

2018-10-04T10:24:01Z

Agk в 10:24, 3 октября 2018

2018-10-03T10:24:39Z

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

@@ Строка 1: / Строка 1: @@
 =Инструкция пользователя=
-* [[Файл:Инструкция_по_товару_под_заказ_20180904.doc]]
+* [[Файл:Инструкция_по_товару_под_заказ_20181026.zip]]
 =Инструкция по установке=

@@ Строка 336: / Строка 336: @@
 </pre>
-==дополнить ТМС -205 "Проведение активного документа" в Менеджере==
+==ТМС -447 "Проведение активного документа" в Менеджере==
 <pre>
 в основной процедуре

← Предыдущая		Версия 11:57, 26 октября 2018
Строка 191:		Строка 191:

	GRANT EXECUTE ON PROCEDURE PR_ORDER_CASTING TO SYSDBA;		GRANT EXECUTE ON PROCEDURE PR_ORDER_CASTING TO SYSDBA;
		+
		+
		+	SET TERM ^ ;
		+
		+	create or alter procedure PR_CHECK_ORDER (
		+	DOC_ID integer)
		+	returns (
		+	TXT DM_TEXT,
		+	DOC_ID_LIST DM_BLOBTEXT)
		+	as
		+	declare variable CAPTION DM_TEXT;
		+	declare variable ORDER_DOC_ID integer;
		+	begin
		+	DOC_ID_LIST = '-3';
		+	TXT = '';
		+
		+	if ((select doc_type from docs where id = :DOC_ID) not in (1,2,20)) then exit;
		+
		+	for select caption \|\| '(' \|\| sagent \|\| ') от ' \|\| cast(cast(d.commitdate as dm_date) as dm_text), id from vw_docs d where d.doc_type = 19 and d.status = 1 and
		+	(not exists(select id from docs d2 where d2.doc_type = 3 and d2.parent_id = d.id and d2.doc_type2 is null)) into :caption, :order_doc_id do
		+	begin
		+	if (exists(select id from doc_detail_active da where da.doc_id = :doc_id and
		+	(ware_id in (select ware_id from doc_detail_virtual ddv where ddv.doc_id = :order_doc_id) or
		+	(bcode_izg in (select bcode_izg from doc_detail_virtual ddv where ddv.doc_id = :order_doc_id))
		+	))) then
		+	begin
		+	TXT = TXT \|\| 'В приходе имеется товар для "' \|\| caption \|\| '"' \|\| ascii_char(13);
		+	DOC_ID_LIST = DOC_ID_LIST \|\| ',' \|\| cast(ORDER_DOC_ID as dm_text);
		+	end
		+	end
		+	if (TXT <> '') then suspend;
		+
		+	end^
		+
		+	SET TERM ; ^
		+
		+	/* Following GRANT statements are generated automatically */
		+
		+	GRANT SELECT ON DOCS TO PROCEDURE PR_CHECK_ORDER;
		+	GRANT SELECT ON VW_DOCS TO PROCEDURE PR_CHECK_ORDER;
		+	GRANT SELECT ON DOC_DETAIL_ACTIVE TO PROCEDURE PR_CHECK_ORDER;
		+	GRANT SELECT ON DOC_DETAIL_VIRTUAL TO PROCEDURE PR_CHECK_ORDER;
		+
		+	/* Existing privileges on this procedure */
		+
		+	GRANT EXECUTE ON PROCEDURE PR_CHECK_ORDER TO SYSDBA;

	</pre>		</pre>

@@ Строка 439: / Строка 439: @@
 .2) цена по рознице 1 руб.;
 .3) группа делимость, для копеек;
-) выбрать эту партию из списка, в настройках "Аванс" в разделе ККМ;
+) выбрать эту партию из списка, в настройках "Аванс" в разделе ККМ (на всех кассах);
 </pre>

@@ Строка 194: / Строка 194: @@
 </pre>
-==Расчет розничной цены==
+==Расчет розничной цены (только для АУ)==
 <pre>
   при добавлении позиции в заказ, Кассир обращается к базе Общего Заказа, по ШК выбирает минимальную цену,

← Предыдущая		Версия 07:29, 19 октября 2018
Строка 432:		Строка 432:
	==Сетки==		==Сетки==
	[[Файл:Сетка_заказы.zip]]		[[Файл:Сетка_заказы.zip]]
		+
		+	==Настройка аванса==
		+	<pre>
		+	1) провести документ ввода услуг с услугой "Аванс", требования:
		+	1.1) НДС 18% (обычно);
		+	1.2) цена по рознице 1 руб.;
		+	1.3) группа делимость, для копеек;
		+	2) выбрать эту партию из списка, в настройках "Аванс" в разделе ККМ;
		+	</pre>

← Предыдущая		Версия 06:45, 19 октября 2018
Строка 143:		Строка 143:

	GRANT EXECUTE ON PROCEDURE PR_GET_ORDER_STATUS TO SYSDBA;		GRANT EXECUTE ON PROCEDURE PR_GET_ORDER_STATUS TO SYSDBA;
−	~~</pre>~~

		+
		+	SET TERM ^ ;
		+
		+	create or alter procedure PR_ORDER_CASTING (
		+	DOC_ID integer,
		+	SESSIONS_ID integer)
		+	returns (
		+	NEW_DOC_ID integer,
		+	COMMENTS DM_TEXT)
		+	as
		+	declare variable WARE_ID DM_UUID_NULL;
		+	declare variable QUANT DM_DOUBLE;
		+	declare variable SNAME DM_TEXT;
		+	declare variable PART_ID integer;
		+	declare variable BCODE_IZG DM_TEXT;
		+	begin
		+	NEW_DOC_ID = null;
		+
		+	for select ware_id, quant, sname, bcode_izg from doc_detail_virtual dd where doc_id = :doc_id into :ware_id, :quant, :sname, :bcode_izg do
		+	begin
		+	select first 1 part_id from warebase w where (w.ware_id = :ware_id or bcode_izg = :bcode_izg) and w.realquant >= :quant order by part_id into :part_id;
		+	if (part_id is not null) then
		+	begin
		+	if (NEW_DOC_ID is null) then select doc_id from pr_newdoc(1001,-2,0,null,null,:SESSIONS_ID) into :NEW_DOC_ID;
		+	select coalesce(MSG, 'OK') \|\| ' - ' \|\| :sname \|\| ' в кол-ве ' \|\| cast(round(:quant,2) as dm_text) from pr_rashodpart(:NEW_DOC_ID,:part_id,:quant,null,null,null,null,1) into :COMMENTS;
		+	end
		+	else
		+	COMMENTS = 'Позиция ' \|\| :sname \|\| ' не найдена на остатке в кол-ве ' \|\| cast(round(:quant,2) as dm_text);
		+
		+	part_id = null;
		+
		+	suspend;
		+	end
		+	end^
		+
		+	SET TERM ; ^
		+
		+	/* Following GRANT statetements are generated automatically */
		+
		+	GRANT SELECT ON DOC_DETAIL_VIRTUAL TO PROCEDURE PR_ORDER_CASTING;
		+	GRANT SELECT ON WAREBASE TO PROCEDURE PR_ORDER_CASTING;
		+	GRANT EXECUTE ON PROCEDURE PR_NEWDOC TO PROCEDURE PR_ORDER_CASTING;
		+	GRANT EXECUTE ON PROCEDURE PR_RASHODPART TO PROCEDURE PR_ORDER_CASTING;
		+
		+	/* Existing privileges on this procedure */
		+
		+	GRANT EXECUTE ON PROCEDURE PR_ORDER_CASTING TO SYSDBA;
		+
		+	</pre>

	==Расчет розничной цены==		==Расчет розничной цены==

@@ Строка 245: / Строка 245: @@
 <pre>
 в основной процедуре
-   if (doc_type = 101) Then OrderPrepare;
+   if (doc_type = 1001) Then OrderPrepare;
 + добавить процедуру

@@ Строка 228: / Строка 228: @@
 для отчета 1000 добавить blob поле
 [[Файл:Договор rep 1000.zip]]
 ==дополнить ТМС -205 "Проведение активного документа" в Менеджере==