Автоприсвоение групп в эл. накладных - История изменений

Agk в 09:50, 25 февраля 2015

2015-02-25T09:50:41Z

Agk в 09:48, 25 февраля 2015

2015-02-25T09:48:33Z

Agk: /* Редактирование подпрограммы отправки накладных */

2015-02-25T07:53:22Z

‎Редактирование подпрограммы отправки накладных

Agk в 05:31, 19 февраля 2015

2015-02-19T05:31:29Z

Aleksnick в 13:43, 10 февраля 2015

2015-02-10T13:43:04Z

Agk в 13:39, 10 февраля 2015

2015-02-10T13:39:02Z

Agk в 13:38, 10 февраля 2015

2015-02-10T13:38:00Z

Agk: Новая страница: « Если клиенту требуется, чтобы группы товаров (например: делимый, дет. питание, оптика и д…»

2015-02-10T13:37:30Z

Новая страница: « Если клиенту требуется, чтобы группы товаров (например: делимый, дет. питание, оптика и д…»

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

Если клиенту требуется, чтобы группы товаров (например: делимый, дет. питание, оптика и др.), назначенные в одной точке (магазине,аптеке) автоматически присваивались при перемещении товаров в другой точке, необходимо выполнить следующее:

==Редактирование подпрограммы отправки накладных==
1) Строка создания dbf должна содержать SKLAD_ID и выглядеть следующим образом:
<nowiki>
CREATE TABLE temp (DOCNUM CHAR(250), DOCNUM1 CHAR(100),DOCDATE DATE,TOVAR CHAR(250),ORIG_TOVAR CHAR(250),SER CHAR(250),QUANT NUMERIC(20,9),QUANT1 CHAR(100),PRICE_O1 NUMERIC(20,5),PRICE_Z NUMERIC(20,5),PRICE_O NUMERIC(20,9),NDSO NUMERIC(20,5),SUM_NDSO NUMERIC(20,5),PRICE_R NUMERIC(20,5),IZG CHAR(250),SERT CHAR(250),SDSERT DATE,KEMVSERT CHAR(250),REGN CHAR(250),DATESERT DATE,GODENDO DATE,NGTD CHAR(250),STRANA CHAR(250),PRICE NUMERIC(20,5),BARCODE CHAR(250),GNVLS NUMERIC(20,5),ORIG_CODE CHAR(250),PART CHAR(250),SUM_NDSR NUMERIC(20,5),SKLAD_ID CHAR(250));
</nowiki>

2)Заполняем поле SKLAD_ID информацией о присвоенных группах (поле mmbsh):
<nowiki>
stringreplace(IBQuery_FieldByName_s(query1, 'mmbsh'),'''','',1)
</nowiki>

3) Если поля mmbsh в запросе к данным документа нет, добавляем его.

Не забываем исправить в подпрограммах "Проведение активного документа" и "Отправить на почту"

==Настройка менеджера групп партий==
В менеджере групп партий, для требуемых групп изменить или создать процедуру CheckMembership, которая будет проверять поле SKLAD_ID на необходимое значение. Пример см. ниже.
<nowiki>
program GroupProgram;
procedure CheckMembership;
begin
if pos('Сан. гиг',fieldvalue_s('SKLAD_ID'))>0 then
return_boolean(true);
end;
begin
end.
</nowiki>

==Проверка себя==
Настроить исходную и целевую базы, повторно отправить накладную с требуемыми группами и принять. Группы должны присвоиться автоматически.

Теги: группы, менеджер групп, CheckMembership, накладные

@@ Строка 15: / Строка 15: @@
 ) Если поля mmbsh в запросе к данным документа нет, добавляем его. Пример:
 t:='select dd.price_o,abs(dd.summa_o) as summa_o
 ....,
@@ Строка 20: / Строка 21: @@
 dd.mmbsh
 from vw_doc_detail_active dd left join vw_docs d on dd.doc_id=d.id where dd.doc_id='+inttostr(m_activedoc_id);
 )Заполняем поле GNVLS информацией о присвоенных группах (поле mmbsh):

@@ Строка 1: / Строка 1: @@
 Если клиенту требуется, чтобы группы товаров (например: делимый, дет. питание, оптика и др.), назначенные в одной точке (магазине,аптеке) автоматически присваивались при перемещении товаров в другой точке, необходимо выполнить следующее:
 ==Редактирование подпрограммы отправки накладных==
-Выполняем для подпрограмм "Проведение активного документа", "Отправить на почту" и "Проведение с авторасходом":
+Редактируем подпрограммы "Проведение активного документа", "Отправить на почту" и "Проведение с авторасходом":
 ) Строка создания dbf таблицы должна содержать поле GNVLS с типом CHAR(250) и выглядеть примерно так:
@@ Строка 16: / Строка 15: @@
 ) Если поля mmbsh в запросе к данным документа нет, добавляем его. Пример:
+t:='select dd.price_o,abs(dd.summa_o) as summa_o
 )Заполняем поле GNVLS информацией о присвоенных группах (поле mmbsh):
   <nowiki>
-stringreplace(IBQuery_FieldByName_s(query1, 'mmbsh'),'''','',1)
+заменяем
   </nowiki>
 ==Настройка менеджера групп партий==
@@ Строка 33: / Строка 36: @@
 procedure CheckMembership;
 begin
-   if pos('Сан. гиг',fieldvalue_s('GNVLS'))>0 then
+   if pos('Делим.',fieldvalue_s('GNVLS'))>0 then
      return_boolean(true);
 end;

← Предыдущая		Версия 13:43, 10 февраля 2015
Строка 39:		Строка 39:


−	Теги: группы, менеджер групп, CheckMembership, накладные	+	Теги: группы, менеджер групп, CheckMembership, накладные, перетекание групп

← Предыдущая		Версия 13:38, 10 февраля 2015
Строка 1:		Строка 1:
−	Если клиенту требуется, чтобы группы товаров (например: делимый, дет. питание, оптика и др.), назначенные в одной точке (магазине,аптеке) автоматически присваивались при перемещении товаров в другой точке, необходимо выполнить следующее:	+	Если клиенту требуется, чтобы группы товаров (например: делимый, дет. питание, оптика и др.), назначенные в одной точке (магазине,аптеке)
		+	автоматически присваивались при перемещении товаров в другой точке, необходимо выполнить следующее:

@@ Строка 3: / Строка 3: @@
 ==Редактирование подпрограммы отправки накладных==
-) Строка создания dbf должна содержать SKLAD_ID и выглядеть следующим образом:
+) Строка создания dbf должна содержать GNVLS с типом CHAR(250) и выглядеть следующим образом:
   <nowiki>
-CREATE TABLE temp (DOCNUM CHAR(250), DOCNUM1 CHAR(100),DOCDATE DATE,TOVAR CHAR(250),ORIG_TOVAR CHAR(250),SER CHAR(250),
+'CREATE TABLE temp (DOCNUM CHAR(250),DOCNUM1 CHAR(100),DOCDATE DATE,TOVAR CHAR(250),ORIG_TOVAR CHAR(250),SER CHAR(250),
 QUANT NUMERIC(20,9),QUANT1 CHAR(100),PRICE_O1 NUMERIC(20,5),PRICE_Z NUMERIC(20,5),PRICE_O NUMERIC(20,9),NDSO NUMERIC(20,5),
 SUM_NDSO NUMERIC(20,5),PRICE_R NUMERIC(20,5),IZG CHAR(250),SERT CHAR(250),SDSERT DATE,KEMVSERT CHAR(250),REGN CHAR(250),
-DATESERT DATE,GODENDO DATE,NGTD CHAR(250),STRANA CHAR(250),PRICE NUMERIC(20,5),BARCODE CHAR(250),GNVLS NUMERIC(20,5),
+DATESERT DATE,GODENDO DATE,NGTD CHAR(250),STRANA CHAR(250),PRICE NUMERIC(20,5),BARCODE CHAR(250),GNVLS CHAR(250),
-ORIG_CODE CHAR(250),PART CHAR(250),SUM_NDSR NUMERIC(20,5),SKLAD_ID CHAR(250));
+ORIG_CODE CHAR(250),PART CHAR(10),SUM_NDSR NUMERIC(20,5),SKLAD_ID CHAR(250), DEP NUMERIC(1,0))';
   </nowiki>
-)Заполняем поле SKLAD_ID информацией о присвоенных группах (поле mmbsh):
+)Заполняем поле GNVLS информацией о присвоенных группах (поле mmbsh):
   <nowiki>
 stringreplace(IBQuery_FieldByName_s(query1, 'mmbsh'),'''','',1)
@@ Строка 23: / Строка 23: @@
 ==Настройка менеджера групп партий==
-  В менеджере групп партий, для требуемых групп изменить или создать процедуру CheckMembership, которая будет проверять поле SKLAD_ID на необходимое значение. Пример см. ниже.
+  В менеджере групп партий, для требуемых групп изменить или создать процедуру CheckMembership, которая будет проверять поле GNVLS на необходимое значение. Пример см. ниже.
   <nowiki>
 program GroupProgram;
 procedure CheckMembership;
 begin
-   if pos('Сан. гиг',fieldvalue_s('SKLAD_ID'))>0 then
+   if pos('Сан. гиг',fieldvalue_s('GNVLS'))>0 then
      return_boolean(true);
 end;