Инструкция по настройке ф-ции "товар под заказ" - История изменений

Agk в 14:20, 11 марта 2019

2019-03-11T14:20:32Z

Agk: /* настроить сетку документа "Подготовка заказа покупателя" */

2019-03-11T14:14:40Z

‎настроить сетку документа "Подготовка заказа покупателя"

Agk в 14:11, 11 марта 2019

2019-03-11T14:11:32Z

Agk в 14:10, 11 марта 2019

2019-03-11T14:10:56Z

Agk в 14:04, 11 марта 2019

2019-03-11T14:04:37Z

Agk в 14:04, 11 марта 2019

2019-03-11T14:04:17Z

Agk в 14:00, 11 марта 2019

2019-03-11T14:00:06Z

Agk: Новая страница: «==Общее== ==Менеджер== ===Создать новый тип документа "'Подготовка заказа покупателя "===

 С…»

2019-03-11T13:53:38Z

Новая страница: «==Общее== ==Менеджер== ===Создать новый тип документа "'Подготовка заказа покупателя "=== <pre> С…»

Новая страница

==Общее==

==Менеджер==
===Создать новый тип документа "'Подготовка заказа покупателя "===
<pre>
Создать новый тип документа "'Подготовка заказа покупателя "
INSERT INTO DOC_TYPES (ID, CAPTION, INSERTDT, BASE_TYPE, STATINI, REPORTS, VTYPE) VALUES (1001, 'Подготовка заказа покупателя (чек для кассы)', '21-SEP-2018 14:14:33.853', 2, NULL, NULL, 2);

+ скопировать сетку с любого расходного документа;
</pre>

===В ТМС проведение активного документа (-205)===
<pre>
if (doc_type = 1001) Then OrderPrepare;
</pre>

и процедуру
<pre>
procedure OrderPrepare;
var
sl: TStringList;
s2,t2: String;
begin

//Проверка, что документ не пустой
t:='select count(1) as cnt from doc_detail_active where doc_id='+doc_id;
query1:=ExecIBQuery(trn,t,1);
if (IBQuery_FieldByName_i(query1, 'cnt') = 0) then
begin
mb_res:=application.messagebox(PChar('Документ пуст. Проведение отменено'),'',MB_ICONSTOP);
program_result.Values['cancel']:='1';
exit;
end;

sl:=TStringList.Create;

s2:='[ORDERS]'#13#10+
'type=action'#13#10+
'caption=Заказы'#13#10+
'mode=wdict=101'#13#10+
'default='+#13#10;
sl.text:=s2;

if GetCustomParams(sl,'заполните значения')
then
s2:=sl.values['ORDERS']
else
begin
mb_res:=application.messagebox(PChar('Необходимо указать контрагента. Проведение документа отменено'),'',MB_ICONSTOP);
program_result.Values['cancel']:='1';
exit;
end;

mb_res:=application.messagebox(PChar('Подготовить данный товар к выдаче по указанному заказу?'),'',$00000004+$00000020);
if mb_res<>6 then
begin
mb_res:=application.messagebox(PChar('Проведение документа отменено пользователем'),'',MB_ICONSTOP);
program_result.Values['cancel']:='1';
exit;
end;

program_result.Values['cancel']:='1';
t2:='update docs set doc_type = 3, status = 2, parent_id = '+s2+' where id = '+doc_id;
query1:=ExecIBQuery(trn,t2,1);
EndIBTransaction(trn,1);
m_manager.logit(t2);
m_manager.INITACTIVEDOCS;
mb_res:=application.messagebox(PChar('Выполнено. Заказ переведен в статус "к выдаче (поступил)" и отправлен на кассу'),'Успех',MB_ICONINFORMATION);

end;
</pre>

@@ Строка 12: / Строка 12: @@
 </pre>
-===выполнить скрипт===
+===Выполнить скрипт===
 <pre>
 INSERT INTO WDICTS (ID, PARENT_ID, CAPTION, DESCRIPTION, SOURCE, STATUS, INSERTDT, ORDERBYDEFAULT, ORDERFIELD, FIELDLIST, INI, ICON)
@@ Строка 148: / Строка 148: @@
-===настроить сетку документа "Подготовка заказа покупателя"===
+===Настроить сетку документа "Подготовка заказа покупателя"===
 Прикрепленный файл  [[Файл: Сетка_товар_под_заказ.zip]]
-===добавить поле в VW_DOCS===
+===Добавить поле в VW_DOCS===
 <pre>
 ORDER_STATUS
@@ Строка 226: / Строка 226: @@
 </pre>
-===Добавить новую ТМС в журнал документов "Подобрать остатки для заказа покупателя"===
+===Добавить в новую ТМС в журнал документов "Подобрать остатки для заказа покупателя"===
 <pre>
 uses

← Предыдущая		Версия 14:14, 11 марта 2019
Строка 149:		Строка 149:

	===настроить сетку документа "Подготовка заказа покупателя"===		===настроить сетку документа "Подготовка заказа покупателя"===
		+	Прикрепленный файл [[Файл: Сетка_товар_под_заказ.zip]]

	===добавить поле в VW_DOCS===		===добавить поле в VW_DOCS===

← Предыдущая		Версия 14:11, 11 марта 2019
Строка 1:		Строка 1:
	==Общее==		==Общее==
		+	* [[Файл:Инструкция_по_товару_под_заказ_20181026.zip]]
		+	* [[Файл:Презентация товар под заказ.pptx]]

	==Менеджер==		==Менеджер==

← Предыдущая		Версия 14:10, 11 марта 2019
Строка 302:		Строка 302:
	end;		end;

		+	</pre>
		+
		+	===Провести документ "ввод услуг"===
		+	<pre>
		+	Провести документ "ввод услуг" с услугой "Аванс", с ценой 1 рубль, группой делимости и нужным НДС (уточнить у клиента)
		+	</pre>
		+
		+	==Кассир==
		+
		+	===Обновить версию до последней из релизов===
		+
		+	===Вывести кнопку "Заказ покупателя" для всех пользователей===
		+
		+	===В настройках указать===
		+	<pre>
		+	в настройках ККМ, общие опции, выбрать из справочника "Партия Аванс".
	</pre>		</pre>

@@ Строка 223: / Строка 223: @@
 </pre>
-===Добавить новую ТМС в журнал документов "Подобрать остатки для заказа покупателя"==
+===Добавить новую ТМС в журнал документов "Подобрать остатки для заказа покупателя"===
 <pre>
 uses

@@ Строка 94: / Строка 94: @@
 GRANT EXECUTE ON PROCEDURE PR_GET_ORDER_STATUS TO SYSDBA;
 </pre>
@@ Строка 108: / Строка 155: @@
 (select status from pr_get_order_status(docs.id, docs.doc_type))
 </pre>
@@ Строка 169: / Строка 221: @@
 end;
 </pre>

@@ Строка 2: / Строка 2: @@
 ==Менеджер==
-===Создать новый тип документа "'Подготовка заказа покупателя "===
+===Создать новый тип документа "Подготовка заказа покупателя "===
 <pre>
 Создать новый тип документа "'Подготовка заказа покупателя "
@@ Строка 8: / Строка 8: @@
 + скопировать сетку с любого расходного документа;
 </pre>