АСНА
Материал из wiki.standart-n.ru
Версия от 13:54, 11 июля 2016; Agk (обсуждение | вклад)
Содержание
Общие сведения
АСсоциация Независимых Аптек (АСНА)
Описание формата взаимодействия есть в регламенте информационного взаимодействия Приложение 2 июль 2015 Файл:АСНА Приложение 2 июль 2015.zip
Согласно него нужно выгрузить 4 файла: 1) goods.dbf - справочник товаров; 2) vendor.dbf - контрагенты; 3) *.txt - движения товаров по каждой аптеке за выгружаемый период; 4) *_RST.txt - остатки в каждой аптеке на последний день периода выгрузки;
Скрипт для обновления структуры базы (сводная или серверная базы)
/******************************************************************************/
/*** Generated by IBExpert 11.07.2016 11:33:31 ***/
/******************************************************************************/
/******************************************************************************/
/*** Following SET SQL DIALECT is just for the Database Comparer ***/
/******************************************************************************/
SET SQL DIALECT 3;
/******************************************************************************/
/*** Tables ***/
/******************************************************************************/
CREATE TABLE ASNA_AGENTS_G$PROFILES (
AGENT_ID DM_ID /* DM_ID = BIGINT NOT NULL */,
G$PROFILE_ID DM_ID /* DM_ID = BIGINT NOT NULL */,
G$PROFILE_ID_APT DM_ID /* DM_ID = BIGINT NOT NULL */
);
/******************************************************************************/
/*** Primary Keys ***/
/******************************************************************************/
ALTER TABLE ASNA_AGENTS_G$PROFILES ADD CONSTRAINT PK_ASNA_AGENTS_G$PROFILES_1 PRIMARY KEY (AGENT_ID, G$PROFILE_ID);
/******************************************************************************/
/*** Privileges ***/
/******************************************************************************/
/******************************************************************************/
/*** Generated by IBExpert 11.07.2016 11:33:40 ***/
/******************************************************************************/
/******************************************************************************/
/*** Following SET SQL DIALECT is just for the Database Comparer ***/
/******************************************************************************/
SET SQL DIALECT 3;
/******************************************************************************/
/*** Tables ***/
/******************************************************************************/
CREATE TABLE ASNA_AGENT_REGION (
INN DM_TEXT NOT NULL /* DM_TEXT = VARCHAR(250) */,
REGION INTEGER NOT NULL,
COMMENT DM_TEXT /* DM_TEXT = VARCHAR(250) */
);
/******************************************************************************/
/*** Primary Keys ***/
/******************************************************************************/
ALTER TABLE ASNA_AGENT_REGION ADD CONSTRAINT PK_ASNA_AGENT_REGION_1 PRIMARY KEY (INN);
/******************************************************************************/
/*** Privileges ***/
/******************************************************************************/
/******************************************************************************/
/*** Generated by IBExpert 11.07.2016 11:33:47 ***/
/******************************************************************************/
/******************************************************************************/
/*** Following SET SQL DIALECT is just for the Database Comparer ***/
/******************************************************************************/
SET SQL DIALECT 3;
/******************************************************************************/
/*** Tables ***/
/******************************************************************************/
CREATE TABLE ASNA_G$PROFILES (
ID DM_ID /* DM_ID = BIGINT NOT NULL */,
ASNA_CODE DM_TEXT NOT NULL /* DM_TEXT = VARCHAR(250) */
);
/******************************************************************************/
/*** Primary Keys ***/
/******************************************************************************/
ALTER TABLE ASNA_G$PROFILES ADD CONSTRAINT PK_ASNA_G$PROFILES_1 PRIMARY KEY (ID);
/******************************************************************************/
/*** Indices ***/
/******************************************************************************/
CREATE UNIQUE DESCENDING INDEX IDX_ASNA_G$PROFILES_1 ON ASNA_G$PROFILES (ID);
ALTER INDEX IDX_ASNA_G$PROFILES_1 INACTIVE;
/******************************************************************************/
/*** Privileges ***/
/******************************************************************************/
/******************************************************************************/
/*** Generated by IBExpert 11.07.2016 11:33:53 ***/
/******************************************************************************/
/******************************************************************************/
/*** Following SET SQL DIALECT is just for the Database Comparer ***/
/******************************************************************************/
SET SQL DIALECT 3;
/******************************************************************************/
/*** Tables ***/
/******************************************************************************/
CREATE TABLE ASNA_GOODS (
ID DM_UUID /* DM_UUID = CHAR(36) NOT NULL */,
MGN_NAME DM_TEXT1024 NOT NULL /* DM_TEXT1024 = VARCHAR(1024) */,
PRODUCER DM_TEXT /* DM_TEXT = VARCHAR(250) */,
COUNTRY DM_TEXT /* DM_TEXT = VARCHAR(250) */,
EAN DM_TEXT /* DM_TEXT = VARCHAR(250) */,
INSERTDT DM_DATETIME /* DM_DATETIME = TIMESTAMP */
);
/******************************************************************************/
/*** Unique Constraints ***/
/******************************************************************************/
ALTER TABLE ASNA_GOODS ADD CONSTRAINT UNQ1_ASNA_GOODS UNIQUE (MGN_NAME);
/******************************************************************************/
/*** Primary Keys ***/
/******************************************************************************/
ALTER TABLE ASNA_GOODS ADD CONSTRAINT PK_ASNA_GOODS PRIMARY KEY (ID);
/******************************************************************************/
/*** Indices ***/
/******************************************************************************/
CREATE INDEX ASNA_GOODS_IDX1 ON ASNA_GOODS (EAN);
CREATE INDEX ASNA_GOODS_IDX2 ON ASNA_GOODS (INSERTDT);
/******************************************************************************/
/*** Triggers ***/
/******************************************************************************/
SET TERM ^ ;
/******************************************************************************/
/*** Triggers for tables ***/
/******************************************************************************/
/* Trigger: ASNA_GOODS_BI0 */
CREATE OR ALTER TRIGGER ASNA_GOODS_BI0 FOR ASNA_GOODS
ACTIVE BEFORE INSERT POSITION 0
AS
begin
if (new.id is null) then
new.id = UUID_TO_CHAR(GEN_UUID());
new.insertdt = CURRENT_TIMESTAMP;
end
^
SET TERM ; ^
/******************************************************************************/
/*** Privileges ***/
/******************************************************************************/
/******************************************************************************/
/*** Generated by IBExpert 11.07.2016 11:34:00 ***/
/******************************************************************************/
/******************************************************************************/
/*** Following SET SQL DIALECT is just for the Database Comparer ***/
/******************************************************************************/
SET SQL DIALECT 3;
/******************************************************************************/
/*** Tables ***/
/******************************************************************************/
CREATE TABLE ASNA_WAREBASE (
PART_ID DM_ID /* DM_ID = BIGINT NOT NULL */,
G$PROFILE_ID DM_ID /* DM_ID = BIGINT NOT NULL */,
MOTHERPART_ID DM_ID_NULL /* DM_ID_NULL = BIGINT */,
QUANT DM_DOUBLE /* DM_DOUBLE = DOUBLE PRECISION */,
DDATE DM_DATE /* DM_DATE = DATE */,
DOC_ID DM_ID_NULL /* DM_ID_NULL = BIGINT */,
PRICE DM_DOUBLE /* DM_DOUBLE = DOUBLE PRECISION */,
PRICE_O DM_DOUBLE /* DM_DOUBLE = DOUBLE PRECISION */,
NDS DM_DOUBLE /* DM_DOUBLE = DOUBLE PRECISION */,
WARE_ID DM_UUID_NULL /* DM_UUID_NULL = CHAR(36) */
);
/******************************************************************************/
/*** Primary Keys ***/
/******************************************************************************/
ALTER TABLE ASNA_WAREBASE ADD CONSTRAINT PK_ASNA_WAREBASE_1 PRIMARY KEY (PART_ID, G$PROFILE_ID);
/******************************************************************************/
/*** Triggers ***/
/******************************************************************************/
SET TERM ^ ;
/******************************************************************************/
/*** Triggers for tables ***/
/******************************************************************************/
/* Trigger: ASNA_WAREBASE_AI0 */
CREATE OR ALTER TRIGGER ASNA_WAREBASE_AI0 FOR ASNA_WAREBASE
ACTIVE AFTER INSERT POSITION 0
AS
begin
if (abs(coalesce(new.quant,0))< 0.01) then
delete from ASNA_WAREBASE w where w.part_id = new.part_id and w.g$profile_id = new.g$profile_id;
end
^
/* Trigger: ASNA_WAREBASE_BI0 */
CREATE OR ALTER TRIGGER ASNA_WAREBASE_BI0 FOR ASNA_WAREBASE
ACTIVE BEFORE INSERT POSITION 0
AS
begin
if (new.DDATE is not null) then
select sum(dd2.quant) from doc_detail dd2 left join docs d on dd2.doc_id = d.id and dd2.g$profile_id = d.g$profile_id
where dd2.part_id = new.part_id and dd2.g$profile_id = new.g$profile_id and dd2.doc_commitdate <= new.DDATE and d.status = 1 into new.quant;
if (abs(coalesce(new.quant,0)) > 0.01) then
begin
select MOTHERPART_ID,DOC_ID from PR_GETMOTHERPART(new.part_id,new.g$profile_id) into new.MOTHERPART_ID, new.DOC_ID;
select
PRICE,
PRICE_O ,
WARE_ID,
dp.nds
from parts p
inner join deps dp on p.g$profile_id = dp.g$profile_id and p.dep = dp.id
where p.g$profile_id = new.g$profile_id and p.id = new.part_id into
new.PRICE,
new.PRICE_O,
new.WARE_ID,
new.nds;
end
end
^
SET TERM ; ^
/******************************************************************************/
/*** Privileges ***/
/******************************************************************************/
SET TERM ^ ;
create or alter procedure PR_ASNA_GET_GOODS (
WARE_ID DM_UUID_NULL)
returns (
GOODS_ID DM_UUID_NULL)
as
declare variable MGN_NAME DM_TEXT1024;
declare variable BARCODE DM_TEXT;
begin
GOODS_ID = Null;
select w.mgn_name, w.barcode from WARES w where id = :ware_id into :mgn_name, :barcode;
if (:mgn_name is null and coalesce(:barcode, '') <> '') then
select first 1 w.mgn_name from WARES w where barcode = :barcode into :mgn_name;
if (:mgn_name is null and coalesce(:barcode, '') = '') then
GOODS_ID = Null;
else
begin
select id from asna_goods ag where ag.mgn_name = coalesce(Trim(:mgn_name),'$$$') into :GOODS_ID;
if (:GOODS_ID is null) Then
select first 1 id from asna_goods ag where ag.ean = coalesce(:barcode,'$$$') into :GOODS_ID;
end
suspend;
end^
SET TERM ; ^
/* Following GRANT statetements are generated automatically */
GRANT SELECT ON WARES TO PROCEDURE PR_ASNA_GET_GOODS;
GRANT SELECT ON ASNA_GOODS TO PROCEDURE PR_ASNA_GET_GOODS;
/* Existing privileges on this procedure */
GRANT EXECUTE ON PROCEDURE PR_ASNA_GET_GOODS TO SYSDBA;
SET SQL DIALECT 3;
SET TERM ^ ;
CREATE OR ALTER TRIGGER WARES_BU0_MGN_NAME_ASNA FOR WARES
ACTIVE BEFORE INSERT OR UPDATE POSITION 0
AS
begin
--20150922 А.К. авто приведение, чтоб не запускать Менеджер
if ((new.mgn_name is null) and (coalesce(Trim(new.barcode),'') <> '')) then
select first 1 mgn_name from wares w where w.barcode = new.barcode and mgn_name <> '' into new.mgn_name;
if (new.mgn_name is null) then
select first 1 mgn_name from wares w where w.name_id = new.name_id and mgn_name <> '' into new.mgn_name;
if (new.mgn_name is null) then
select svalue from vals v where v.id = new.name_id into new.mgn_name;
if (new.MGN_NAME is null) Then exit;
--если в справочнике нет ни по названию ни по ШК, то заносим в ASNA_GOODS
if ( (((select count(*) from ASNA_GOODS where MGN_NAME = coalesce(Trim(new.MGN_NAME),'$$$')) > 0) and new.MGN_NAME is not null) or
(((select count(*) from ASNA_GOODS where ean = coalesce(new.barcode, '$$$')) > 0) and new.barcode is not null) )
Then begin end
else
Begin
insert into ASNA_GOODS(MGN_NAME, producer, country, ean)
select
Trim(new.MGN_NAME),
(select svalue from vals where id = new.izg_id),
(select svalue from vals where id = new.country_id),
iif(coalesce(new.barcode,'') = '', (select first 1 barcode from wares w where w.MGN_NAME = Trim(new.MGN_NAME) and coalesce(new.barcode,'') <> ''), new.barcode)
from rdb$database;
end
end
^
SET TERM ; ^
update WARES set id = id;
Описание изменения структуры базы
1) Таблица ASNA_GOODS: приведенный справочник товаров. Соответствует формату файла goods.dbf из регламента. Наполнение автоматически триггером WARES_BU0_MGN_NAME_ASNA. Логика: при появлении новой позиции в wares с пустым mgn_name триггер ищет по ШК уже приведенное наименование и подставляет его, если по ШК не найдено ищем по name_id, если не найдено, подставляем из VALS по name_id. Далее если этой позции не найдено в ASNA_GOODS ни по имени ни по ШК, добавляем новую запись. НЕ ОЧИЩАТЬ!
2) Таблица ASNA_G$PROFILES: От АСНЫ получен файл "Коды АСНА.xls", там соответствие имени аптеки и внутреннего АСНА-кода. В таблице ASNA_G$PROFILES хранится соответствие АСНА-кода и кода профиля аптеки. НЕ ОЧИЩАТЬ!
3) Таблица ASNA_AGENT_REGION: хранится соответствие ИНН и кода региона контрагента; НЕ ОЧИЩАТЬ!
4) Таблица ASNA_WAREBASE: временная таблица для сборки остатков (файл *_RST.txt), заполняется в момент работы ТМС, потом данные не нужны, каждый раз очищается автоматически.
5) Таблица ASNA_AGENTS_G$PROFILES: т.к. контрагенты у нас не централизованы, в этой таблице хранится соответствие ID/G$PROFILE_ID из AGENTS и кода профиля в таблице G$PROFILES. НЕ ОЧИЩАТЬ!
Выгрузка
Файлы выгрузки формируется ТМС "Выгрузка в АСНА" в spacepro, запуск из планировщика заданий. Файлы формируются примерно 1 час, после чего запускается из планировщика новое задание (т.к. spacepro не умеет работать с ftp сам) по выгрузке их на ftp (IP, логин/пароль в файле "Коды АСНА.xls "). АСНА просит выгружать ежедневно, чтобы файлы в 22-00 были на ftp. Каждый раз выгрузка идет за последнюю неделю, при этом данные в хранилище АСНЫ удаляются и загружаются заново, после чего на ftp файлы переносятся в папку с бекапами. Если на ftp положить 2 раза одни и те же движения/остатки, то при выгрузке данные задублируются!
TMS
uses
Classes, Graphics, Controls, Forms, Dialogs,
undm, IBQuery,DB, IBDatabase,ADODB, SysUtils,
unMain,ShellApi,cfutils,Windows,StdCtrls, ComCtrls, ExtCtrls,DB,IBDatabase;
var q: TIBQuery;
ac: TAdoConnection;
AdoWork: Tadoquery;
t,comments,gd,sname, path_tmp,path, INN,org_code,def_region: String;
FileName : String;
sl: TStringList;
FT : TextFile;
date1,date2:string;
begin
path_tmp:='C:\Standart-N\ASNA\'; //Временная папка для файлов
date1:= DateToStr(Date-21); //'01.05.2016'; //
date2:= DateToStr(Date); //'30.06.2016'; //
INN:='1234567890'; //ИНН
org_code:='Org_TEST'; //Код юр. лица АСНА
def_region:='18';
q:=dm.TempQuery(nil);
q.Active:=false;
//1) ---------------- Структура файла «Справочник товаров» Имя файла «goods.dbf» -------------------------------------------
if 1=1 Then
Begin
q.SQL.text:='select id, Replace(MGN_NAME,'' : '','''') as name, PRODUCER, COUNTRY, EAN from ASNA_GOODS order by MGN_NAME';
q.Active:=true;
ac:=TAdoConnection.Create(application);
AdoWork:=Tadoquery.create(application);
ac.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=dBASE IV;User ID=Admin;Password=;Data Source='+path_tmp;
ac.LoginPrompt:=false;
AdoWork.Connection:=ac;
if FileExists(path_tmp+'goods.dbf') then
begin
deletefile(path_tmp+'goods.dbf');
end
AdoWork.Active:=false;
t:='CREATE TABLE goods (ID CHAR(250),NAME CHAR(250),PRODUCER CHAR(250), COUNTRY CHAR(250), EAN CHAR(250))';
// frmSpacePro.Logit(t);
AdoWork.SQL.Text:=t;
AdoWork.ExecSQL;
while not q.Eof do
begin
t:='insert into goods (ID,NAME,PRODUCER,COUNTRY,EAN) values ('''+
Trim(stringreplace(q.FieldByName('ID').AsString,'''','.',1))+''','''+
stringreplace(q.FieldByName('NAME').AsString,'''','.',1)+''','''+
stringreplace(q.FieldByName('PRODUCER').AsString,'''','.',1)+''','''+
stringreplace(q.FieldByName('COUNTRY').AsString,'''','.',1)+''','''+
stringreplace(q.FieldByName('EAN').AsString,'''','.',1)+''');';
// frmSpacePro.LogIt(t);
AdoWork.SQL.Text:=t;
AdoWork.ExecSQL;
q.Next;
end;
q.Transaction.Commit;
q.Transaction.StartTransaction;
end;
// FTP.Put(path_tmp+'goods.dbf', 'goods.dbf', TRUE);
//2) ---------------- Структура файла «Контрагенты» Имя файла «vendor.dbf»» -------------------------------------------
if 1=1 Then
Begin
q.Active:=false;
q.SQL.text:='select ''1'' as id, ''Мелкооптовый покупатель'' as name, '''+INN+''' as inn from rdb$database
union
select ''2'' as id, ''Розничный покупатель (ККМ)'' as name, '''+INN+''' as inn from rdb$database
union
select ''3'' as id, ''Ввод остатков'' as name, '''+INN+''' as inn from rdb$database
union
select cast(a.id as varchar(255))||''_''||cast(g$profile_id as varchar(255)) as ID, caption as name, coalesce(INN,'''') as INN from agents a inner join ASNA_G$PROFILES ga on ga.id = a.g$profile_id where ga.id is not null and a.id > 0
order by 2';
// frmSpacePro.LogIt(q.SQL.text);
q.Active:=true;
ac:=TAdoConnection.Create(application);
AdoWork:=Tadoquery.create(application);
ac.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=dBASE IV;User ID=Admin;Password=;Data Source='+path_tmp;
ac.LoginPrompt:=false;
AdoWork.Connection:=ac;
if FileExists(path_tmp+'vendor.dbf') then
begin
deletefile(path_tmp+'vendor.dbf');
end
AdoWork.Active:=false;
t:='CREATE TABLE vendor(ID CHAR(250),NAME CHAR(250),INN CHAR(250))';
// frmSpacePro.Logit(t);
AdoWork.SQL.Text:=t;
AdoWork.ExecSQL;
while not q.Eof do
begin
t:='insert into vendor(ID,NAME,INN) values ('''+
stringreplace(q.FieldByName('ID').AsString,'''','.',1)+''','''+
stringreplace(q.FieldByName('NAME').AsString,'''','.',1)+''','''+
stringreplace(q.FieldByName('INN').AsString,'''','.',1)+''');';
//frmSpacePro.LogIt(t);
AdoWork.SQL.Text:=t;
AdoWork.ExecSQL;
q.Next;
end;
q.Transaction.Commit;
end;
//3) ---------------- Структура файла «Данные о товародвижении» Имя файла «название юридического лица_название торгового объекта_дата и время формирования файла.TXT»» -------------------------------------------
if 1=1 Then
begin
//q.Transaction.StartTransaction;
q.Active:=false;
q.SQL.text:='select '''+org_code+'''||''_''||ga.asna_code||''_''||replace(cast(current_date as varchar(255)),''-'','''')||''T''||replace(left(cast(current_time as varchar(255)),5),'':'','''')||''.txt'' as filename,
cast(dd.id as varchar(255))||''_''||cast(dd.g$profile_id as varchar(255)) as ID,
cast(d.id as varchar(255))||''_''||cast(d.g$profile_id as varchar(255)) as DOC_ID,
'''+org_code+''' as ur_l,
ga.asna_code,
case d.doc_type
when 11 then 1 --мелкооптовый отпуск
when 3 then 2 --продажа через ККМ
when 1 then 3 --приход товара
when 9 then 4 --возврат от покупателя
when 37 then 4 --возврат от покупателя
when 4 then 5 --возврат поставщику
when 2 then 6 --межскладская передача
when 17 then 7 --Списание
when 10 then 7 --Списание
when 5 then 7 --Списание
when 20 then 8 --Ввод остатков
end as doc_type,
case d.doc_type
when 11 then '''+INN+''' --мелкооптовый отпуск
when 3 then '''+INN+''' --продажа через ККМ
when 1 then coalesce(a.inn,'''') --приход товара
when 2 then (select asna_code from ASNA_G$PROFILES where id = ga_ag.g$profile_id_apt) --межскладская передача
when 17 then ga.asna_code --Списание
when 10 then ga.asna_code --Списание
when 5 then ga.asna_code --Списание
when 20 then ga.asna_code --Ввод остатков
else ''''
end as sagent,
left(cast(d.commitdate as varchar(255)),19) as doc_date,
case d.doc_type
when 3 then d.docnum||''Ч''||(select max(docnum) from docs d2 where d2.g$profile_id = d.g$profile_id and d2.status = 1 and d2.doc_type=13 and d2.vshift = d.vshift and d2.device_num = d.device_num)
else d.docnum
end as docnum,
dcard,
(select GOODS_ID from PR_ASNA_GET_GOODS(p.ware_id)) as GOODS_ID,
abs(dd.quant) as quant,
(select inn from agents where id = (select AGENT_ID from PR_GETMOTHERPART(dd.part_id, dd.g$profile_id) ) and g$profile_id = dd.g$profile_id) as inn,
abs(Round((dd.quant*p.price_o*100/(100+dp.nds)),2)) as sum_b_nds,
abs(dd.summa_o) as summa_o,
abs(Round((dd.summa_o-dd.quant*p.price_o*100/(100+dp.nds)),2)) as sum_nds,
abs(dd.summa+dd.sum_dsc) as summa_b_dsc,
abs(dd.summa) as summa,
abs(dd.sum_dsc) as sum_dsc,
d.status,
coalesce((select region from ASNA_AGENT_REGION where inn = a.inn),'+def_region+') as region
from doc_detail dd
inner join docs d on dd.doc_id = d.id and dd.g$profile_id = d.g$profile_id
inner join ASNA_G$PROFILES ga on ga.id = d.g$profile_id
inner join agents a on a.id=d.agent_id and a.g$profile_id = d.g$profile_id
inner join parts p on p.g$profile_id = dd.g$profile_id and dd.part_id = p.id
inner join deps dp on p.g$profile_id = dp.g$profile_id and p.dep = dp.id
left join asna_agents_g$profiles ga_ag on ga_ag.agent_id = a.id and ga_ag.g$profile_id = a.g$profile_id
where ga.id is not null and d.status = 1 and d.doc_type in (11,2,3,1,37,9,4,17,10,5,20) and dd.doc_commitdate between '''+date1+''' and '''+date2+'''
and (select GOODS_ID from PR_ASNA_GET_GOODS(p.ware_id)) is not null
order by 1 ';
q.Active:=true;
filename:='';
while not q.Eof do
begin
If filename='' Then
begin
filename:= path_tmp+q.FieldByName('filename').AsString;
AssignFile(FT, FileName);
if FileExists(FileName) then
Append(FT)
else
Rewrite(FT);
end;
if filename = path_tmp+q.FieldByName('filename').AsString Then
begin
t:='"'+q.FieldByName('ID').AsString+'"|"'+q.FieldByName('DOC_ID').AsString+'"|"'+q.FieldByName('ur_l').AsString+'"|"'+q.FieldByName('asna_code').AsString+'"|'+
q.FieldByName('DOC_TYPE').AsString+'|"'+q.FieldByName('SAGENT').AsString+'"|'+q.FieldByName('DOC_DATE').AsString+'|"'+q.FieldByName('DOCNUM').AsString+'"|1|"'+
q.FieldByName('DCARD').AsString+'"|"1"|"'+q.FieldByName('DCARD').AsString+'"|"'+q.FieldByName('DCARD').AsString+'"|"'+Trim(q.FieldByName('GOODS_ID').AsString)+'"|'+
stringreplace(q.FieldByName('QUANT').AsString,',','.',1)+'|"'+q.FieldByName('INN').AsString+'"|'+q.FieldByName('region').AsString+'|'+stringreplace(q.FieldByName('sum_b_nds').AsString,',','.',1)+'|'+
stringreplace(q.FieldByName('summa_o').AsString,',','.',1)+'|'+stringreplace(q.FieldByName('sum_nds').AsString,',','.',1)+'|'+stringreplace(q.FieldByName('summa').AsString,',','.',1)+'|'+
stringreplace(q.FieldByName('summa_b_dsc').AsString,',','.',1)+'|'+stringreplace(q.FieldByName('sum_dsc').AsString,',','.',1)+'|'+q.FieldByName('status').AsString;
// frmSpacePro.LogIt(t);
WriteLn(FT, t);
end
else
Begin
CloseFile(FT);
filename:= path_tmp+q.FieldByName('filename').AsString;
AssignFile(FT, FileName);
if FileExists(FileName) then
Append(FT)
else
Rewrite(FT);
end;
q.Next;
end;
CloseFile(FT);
q.Transaction.Commit;
end;
//4) ---------------- Структура файла «Данные об остатках» Имя файла «название юридического лица_название торгового объекта_дата и время формирования файла_суфиксRST.TXT»» -------------------------------------------
//Предподготовка к выгрузке остатков - расчет остатков на конец периода
q.Transaction.StartTransaction;
q.Active:=false;
q.SQL.Text:='delete from ASNA_WAREBASE';
q.ExecSQL;
q.Transaction.Commit;
q.Transaction.StartTransaction;
q.Active:=false;
q.SQL.Text:='insert into ASNA_WAREBASE(part_id, G$PROFILE_ID,ddate) select id, G$PROFILE_ID, '''+date2+''' from parts p';
q.ExecSQL;
q.Transaction.Commit;
q.Transaction.StartTransaction;
q.Active:=false;
q.SQL.Text:='select '''+org_code+'''||''_''||ga.asna_code||''_''||replace(cast(current_date as varchar(255)),''-'','''')||''T''||replace(left(cast(current_time as varchar(255)),5),'':'','''')||''_RST.txt'' as filename,
'''+org_code+''' as ur_l,
ga.asna_code,
a.inn,
left(cast(cast(dateadd(1 day to w.ddate) as dm_datetime) as varchar(255)),19) as beg_date,
left(cast(d.commitdate as varchar(255)),19) as post_date,
(select GOODS_ID from PR_ASNA_GET_GOODS(w.ware_id)) as GOODS_ID,
w.quant,
coalesce(abs(Round((w.quant*w.price_o*100/(100+w.nds)),2)),0) as sum_b_nds,
coalesce(abs(Round(w.quant*w.price_o,2)),0) as summa_o,
coalesce(abs(Round((w.quant*w.price_o-w.quant*w.price_o*100/(100+w.nds)),2)),0) as sum_nds,
coalesce(abs(round(w.quant*w.price,2)),0) as summa,
coalesce((select region from ASNA_AGENT_REGION where inn = a.inn),'+def_region+') as region
from ASNA_WAREBASE w
inner join docs d on w.doc_id = d.id and w.g$profile_id = d.g$profile_id
inner join ASNA_G$PROFILES ga on ga.id = w.g$profile_id
inner join agents a on a.id=d.agent_id and a.g$profile_id = d.g$profile_id
where ga.id is not null and w.quant > 0.01 and (select GOODS_ID from PR_ASNA_GET_GOODS(w.ware_id)) is not null
order by 1'
q.Active:=true;
filename:='';
while not q.Eof do
begin
If filename='' Then
begin
filename:= path_tmp+q.FieldByName('filename').AsString;
AssignFile(FT, FileName);
if FileExists(FileName) then
Append(FT)
else
Rewrite(FT);
end;
if filename = path_tmp+q.FieldByName('filename').AsString Then
begin
t:='"'+q.FieldByName('ur_l').AsString+'"|"'+q.FieldByName('asna_code').AsString+'"|"'+q.FieldByName('INN').AsString+'"|'+q.FieldByName('region').AsString+'|'+
q.FieldByName('beg_date').AsString+'|'+q.FieldByName('post_date').AsString+'|"'+Trim(q.FieldByName('GOODS_ID').AsString)+'"|'+
stringreplace(q.FieldByName('QUANT').AsString,',','.',1)+'|'+stringreplace(q.FieldByName('sum_b_nds').AsString,',','.',1)+'|'+
stringreplace(q.FieldByName('summa_o').AsString,',','.',1)+'|'+stringreplace(q.FieldByName('sum_nds').AsString,',','.',1)+'|'+stringreplace(q.FieldByName('summa').AsString,',','.',1);
WriteLn(FT, t);
end
else
Begin
CloseFile(FT);
filename:= path_tmp+q.FieldByName('filename').AsString;
AssignFile(FT, FileName);
if FileExists(FileName) then
Append(FT)
else
Rewrite(FT);
end;
q.Next;
end;
CloseFile(FT);
q.Transaction.Commit;
end;
