Menu
▾
▴
[Firebird-checkins] SF.net SVN: firebird: [354] qa/trunk/testsuite
|
From: <pc...@us...> - 2007-07-26 11:30:20
|
Revision: 354
http://firebird.svn.sourceforge.net/firebird/?rev=354&view=rev
Author: pcisar
Date: 2007-07-26 04:30:21 -0700 (Thu, 26 Jul 2007)
Log Message:
-----------
QA-142 - Test for CORE-1291
Added Paths:
-----------
qa/trunk/testsuite/bugs.qms/core_1291.qmt
qa/trunk/testsuite/files/
qa/trunk/testsuite/files/core_1291.sql
Added: qa/trunk/testsuite/bugs.qms/core_1291.qmt
===================================================================
--- qa/trunk/testsuite/bugs.qms/core_1291.qmt (rev 0)
+++ qa/trunk/testsuite/bugs.qms/core_1291.qmt 2007-07-26 11:30:21 UTC (rev 354)
@@ -0,0 +1,229 @@
+<?xml version="1.0" ?><!DOCTYPE extension PUBLIC '-//QM/2.3b/Extension//EN' 'http://www.codesourcery.com/qm/dtds/2.3b/-//qm/2.3b/extension//en.dtd'><extension class="fbqa.FirebirdTest" kind="test"><argument name="create_db_method"><enumeral>None</enumeral></argument><argument name="user_password"><text>masterkey</text></argument><argument name="sql_dialect"><enumeral>3</enumeral></argument><argument name="result_string"><text>Procedure text:
+=============================================================================
+DECLARE VARIABLE NDSDiv DOUBLE PRECISION;
+DECLARE VARIABLE ID_ExportFieldDoc Integer;
+begin
+ SELECT Val FROM TBL_Const_Float
+ WHERE Name='NDSDiv'
+ INTO :NDSDiv;
+ FOR SELECT id_exportfielddoc, accountcredit, accountdebit FROM tbl_exportentry
+ WHERE id_exportgroupentry=:id_group
+ INTO :id_exportfielddoc, :accountcredit, :accountdebit
+ DO BEGIN
+ IF ((AccountCredit<>0) or (AccountDebit<>0)) THEN BEGIN
+ IF (id_exportfielddoc=110) THEN BEGIN
+ SELECT SUM(A.PriceRub*B.Volume/A.PointMul), SUM(A.PriceDoc*B.Volume/A.PointMul) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=111) THEN BEGIN
+ SELECT SUM(A.PriceCalcRub*B.Volume/A.PointMul), SUM(A.PriceCalcDoc*B.Volume/A.PointMul) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=112) THEN BEGIN
+ SELECT SUM(A.SummDoc), SUM(A.SummDoc) FROM TBL_OUTDOC_TEMP A,
+ TBL_ITEMSALE B,
+ TBL_INDOC_TEMP C,
+ TBL_INDOC D
+ WHERE A.ID_OUTDOC=:id_outdoc and b.id_itemsale=a.id_itemsale and c.id_indoc_temp=b.id_firstindoc_temp and
+ d.id_indoc=c.id_indoc and d.doctype = 6
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=113) THEN BEGIN
+ SELECT SUM(A.NDS*A.PriceRub*B.Volume/(A.PointMul*100)), SUM(A.NDS*A.PriceDoc*B.Volume/(A.PointMul*100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=114) THEN BEGIN
+ SELECT SUM(A.NDS*A.PriceCalcRub*B.Volume/(A.PointMul*100)), SUM(A.NDS*A.PriceCalcDoc*B.Volume/(A.PointMul*100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=115) THEN BEGIN
+ SELECT SUM(A.SummNDSDoc), SUM(A.SummNDSDoc) FROM TBL_OUTDOC_TEMP A,
+ TBL_ITEMSALE B,
+ TBL_INDOC_TEMP C,
+ TBL_INDOC D
+ WHERE A.ID_OUTDOC=:id_outdoc and b.id_itemsale=a.id_itemsale and c.id_indoc_temp=b.id_firstindoc_temp and
+ d.id_indoc=c.id_indoc and d.doctype = 6
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=116) THEN BEGIN
+ SELECT SUM((A.PriceRub*B.Volume/A.PointMul)*(1+A.NDS/100)), SUM((A.PriceDoc*B.Volume/A.PointMul)*(1+A.NDS/100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=117) THEN BEGIN
+ SELECT SUM((A.PriceCalcRub*B.Volume/A.PointMul)*(1+A.NDS/100)), SUM((A.PriceCalcDoc*B.Volume/A.PointMul)*(1+A.NDS/100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=118) THEN BEGIN
+ SELECT SUM(A.SummWithNDSDoc), SUM(A.SummWithNDSDoc) FROM TBL_OUTDOC_TEMP A,
+ TBL_ITEMSALE B,
+ TBL_INDOC_TEMP C,
+ TBL_INDOC D
+ WHERE A.ID_OUTDOC=:id_outdoc and b.id_itemsale=a.id_itemsale and c.id_indoc_temp=b.id_firstindoc_temp and
+ d.id_indoc=c.id_indoc and d.doctype = 6
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=119) THEN BEGIN
+ SELECT SUM((A.PriceCalcRub-A.PriceRub)*B.Volume/A.PointMul), SUM((A.PriceCalcDoc-A.PriceDoc)*B.Volume/A.PointMul) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=120) THEN BEGIN
+ SELECT SUM(B.SummDoc-(A.PriceRub*B.Volume/A.PointMul)), SUM(B.SummDoc-(A.PriceDoc*B.Volume/A.PointMul)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=121) THEN BEGIN
+ SELECT SUM(A.NDS*(A.PriceCalcRub-A.PriceRub)*B.Volume/(A.PointMul*100)), SUM(A.NDS*(A.PriceCalcDoc-A.PriceDoc)*B.Volume/(A.PointMul*100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=122) THEN BEGIN
+ SELECT SUM(B.SummNDSDoc-A.NDS*A.PriceRub*B.Volume/(A.PointMul*100)), SUM(B.SummNDSDoc-A.NDS*A.PriceDoc*B.Volume/(A.PointMul*100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=123) THEN BEGIN
+ SELECT SUM(((A.PriceCalcRub-A.PriceRub)*B.Volume/A.PointMul)*(1+A.NDS/100)), SUM(((A.PriceCalcDoc-A.PriceDoc)*B.Volume/A.PointMul)*(1+A.NDS/100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=124) THEN BEGIN
+ SELECT SUM(B.SummWithNDSDoc-(A.PriceRub*B.Volume/A.PointMul)*(1+A.NDS/100)), SUM(B.SummWithNDSDoc-(A.PriceDoc*B.Volume/A.PointMul)*(1+A.NDS/100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6
+ INTO :summrus, :summdoc;
+ END
+
+ IF (id_exportfielddoc=125) THEN BEGIN
+ SELECT SUM(A.PriceRub*B.Volume/A.PointMul), SUM(A.PriceDoc*B.Volume/A.PointMul) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds=0
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=126) THEN BEGIN
+ SELECT SUM(A.PriceCalcRub*B.Volume/A.PointMul), SUM(A.PriceCalcDoc*B.Volume/A.PointMul) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds=0
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=127) THEN BEGIN
+ SELECT SUM(A.SummDoc), SUM(A.SummDoc) FROM TBL_OUTDOC_TEMP A,
+ TBL_ITEMSALE B,
+ TBL_INDOC_TEMP C,
+ TBL_INDOC D
+ WHERE A.ID_OUTDOC=:id_outdoc and b.id_itemsale=a.id_itemsale and c.id_indoc_temp=b.id_firstindoc_temp and
+ d.id_indoc=c.id_indoc and d.doctype = 6 and a.nds=0
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=128) THEN BEGIN
+ SELECT SUM((A.PriceCalcRub-A.PriceRub)*B.Volume/A.PointMul), SUM((A.PriceCalcDoc-A.PriceDoc)*B.Volume/A.PointMul) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds=0
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=129) THEN BEGIN
+ SELECT SUM(B.SummDoc-(A.PriceRub*B.Volume/A.PointMul)), SUM(B.SummDoc-(A.PriceDoc*B.Volume/A.PointMul)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds=0
+ INTO :summrus, :summdoc;
+ END
+ IF ((id_exportfielddoc>129)and(id_exportfielddoc<145)) THEN BEGIN
+ execute procedure prc_expsumm_8_10 ( id_exportfielddoc, id_outdoc, NDSDiv ) returning_values( summrus, summdoc );
+ END
+ IF ((id_exportfielddoc>144)and(id_exportfielddoc<160)) THEN BEGIN
+ execute procedure prc_expsumm_8_20 ( id_exportfielddoc, id_outdoc, NDSDiv ) returning_values( summrus, summdoc );
+ END
+ IF ((SummRus>0) or (SummDoc>0)) THEN SUSPEND;
+ END
+ END
+END
+=============================================================================
+Parameters:
+ID_INDOC INPUT INTEGER
+ID_OUTDOC INPUT INTEGER
+ID_GROUP INPUT INTEGER
+ACCOUNTCREDIT OUTPUT INTEGER
+ACCOUNTDEBIT OUTPUT INTEGER
+SUMMRUS OUTPUT DOUBLE PRECISION
+SUMMDOC OUTPUT DOUBLE PRECISION
+</text></argument><argument name="character_set"><enumeral>WIN1251</enumeral></argument><argument name="author"><text>pcisar</text></argument><argument name="page_size"><enumeral>8192</enumeral></argument><argument name="substitutions"><set><tuple><text>Use CONNECT or CREATE DATABASE to specify a database</text><text/></tuple><tuple><text>SQL> </text><text/></tuple><tuple><text>CON> </text><text/></tuple></set></argument><argument name="backup_file_path"><text/></argument><argument name="user_name"><text>SYSDBA</text></argument><argument name="resources"><set/></argument><argument name="expected_stderr"><text/></argument><argument name="target_version"><text>2.1</text></argument><argument name="description"><text/></argument><argument name="target_group"><text>.*</text></argument><argument name="populate_method"><enumeral>None (manual)</enumeral></argument><argument name="bug_id"><text>CORE-1291</text></argument><argument name="data_tuple"><text/></argument><argument name="db_name"><text>bug.fdb</text></argument><argument name="isql_script"><text/></argument><argument name="source_code"><text>import os
+
+script = """SET SQL DIALECT 3;
+
+SET NAMES WIN1251;
+
+CREATE DATABASE '%s'
+DEFAULT CHARACTER SET WIN1251;
+""" % dsn
+
+scriptfile = open(os.path.join(context['files_location'],'core_1291.sql'),'r')
+script = script + ''.join(scriptfile)
+scriptfile.close()
+
+runProgram('isql',['-user',user_name,'-pas',user_password],script)
+</text></argument><argument name="test_id"><text>core_1291</text></argument><argument name="target_platform"><text>All</text></argument><argument name="insert_statement"><text/></argument><argument name="test_expr"><text/></argument><argument name="statement_type_and_result"><enumeral>Python: String</enumeral></argument><argument name="prerequisites"><set/></argument><argument name="title"><text>Can't transliterate character set when look at procedure text in database just created from script (and thus in ODS 11.1)</text></argument><argument name="drop_db"><enumeral>true</enumeral></argument><argument name="db_path_property"><text>database_location</text></argument></extension>
\ No newline at end of file
Added: qa/trunk/testsuite/files/core_1291.sql
===================================================================
--- qa/trunk/testsuite/files/core_1291.sql (rev 0)
+++ qa/trunk/testsuite/files/core_1291.sql 2007-07-26 11:30:21 UTC (rev 354)
@@ -0,0 +1,640 @@
+CREATE DOMAIN DMN_BOOL AS
+SMALLINT
+DEFAULT 0;
+
+CREATE DOMAIN DMN_PRICE AS
+DOUBLE PRECISION
+DEFAULT 0
+CHECK (Value >= 0);
+
+CREATE DOMAIN DMN_DOCNAME AS
+VARCHAR(20) CHARACTER SET WIN1251;
+
+CREATE TABLE TBL_CONST_FLOAT (
+ NAME VARCHAR(20) CHARACTER SET WIN1251 NOT NULL,
+ VAL DOUBLE PRECISION,
+ COMMENT VARCHAR(128) CHARACTER SET WIN1251
+);
+
+CREATE TABLE TBL_EXPORTENTRY (
+ ID_EXPORTGROUPENTRY INTEGER NOT NULL,
+ ID_EXPORTFIELDDOC INTEGER NOT NULL,
+ ACCOUNTCREDIT INTEGER DEFAULT 0 NOT NULL,
+ ACCOUNTDEBIT INTEGER DEFAULT 0 NOT NULL
+);
+
+CREATE TABLE TBL_INDOC_TEMP (
+ ID_INDOC_TEMP INTEGER NOT NULL,
+ ID_POINT INTEGER NOT NULL,
+ ID_ITEM INTEGER NOT NULL,
+ ID_INDOC INTEGER NOT NULL,
+ SERNO VARCHAR(20) CHARACTER SET WIN1251,
+ POINTMUL DOUBLE PRECISION NOT NULL,
+ VOLUME DMN_PRICE NOT NULL /* DMN_PRICE = DOUBLE PRECISION DEFAULT 0 CHECK (Value >= 0) */,
+ PRICEDOC DMN_PRICE /* DMN_PRICE = DOUBLE PRECISION DEFAULT 0 CHECK (Value >= 0) */,
+ PRICERUB DMN_PRICE /* DMN_PRICE = DOUBLE PRECISION DEFAULT 0 CHECK (Value >= 0) */,
+ PRICECUR DMN_PRICE /* DMN_PRICE = DOUBLE PRECISION DEFAULT 0 CHECK (Value >= 0) */,
+ PRICECALCDOC DMN_PRICE NOT NULL /* DMN_PRICE = DOUBLE PRECISION DEFAULT 0 CHECK (Value >= 0) */,
+ PRICECALCRUB DMN_PRICE NOT NULL /* DMN_PRICE = DOUBLE PRECISION DEFAULT 0 CHECK (Value >= 0) */,
+ PRICECALCCUR DMN_PRICE NOT NULL /* DMN_PRICE = DOUBLE PRECISION DEFAULT 0 CHECK (Value >= 0) */,
+ NDS DMN_PRICE /* DMN_PRICE = DOUBLE PRECISION DEFAULT 0 CHECK (Value >= 0) */,
+ F_CANSALE DMN_BOOL NOT NULL /* DMN_BOOL = SMALLINT DEFAULT 0 */,
+ PASPORT VARCHAR(64) CHARACTER SET WIN1251,
+ PASPORTCREATEDATE TIMESTAMP,
+ PASPORTEXPIREDATE TIMESTAMP,
+ REGISTRATION VARCHAR(64) CHARACTER SET WIN1251,
+ PROTOCOL VARCHAR(64) CHARACTER SET WIN1251,
+ SERTIFICAT VARCHAR(128) CHARACTER SET WIN1251,
+ ID_CERTCENTER INTEGER DEFAULT 0,
+ ITEMCREATEDATE TIMESTAMP,
+ ITEMEXPIREDATE TIMESTAMP,
+ ID_PARENT_OUTDOC_TEMP INTEGER DEFAULT 0,
+ SUMMDOC COMPUTED BY (Volume*PriceDoc),
+ SUMMRUB COMPUTED BY (Volume*PriceRub),
+ SUMMCUR COMPUTED BY (Volume*PriceCur),
+ SUMMCALCDOC COMPUTED BY (Volume*PriceCalcDoc),
+ SUMMCALCRUB COMPUTED BY (Volume*PriceCalcRub),
+ SUMMCALCCUR COMPUTED BY (Volume*PriceCalcCur),
+ SUMMNDSDOC COMPUTED BY (NDS*SummCalcDoc/100),
+ SUMMNDSRUB COMPUTED BY (NDS*SummCalcRub/100),
+ SUMMNDSCUR COMPUTED BY (NDS*SummCalcCur/100),
+ SUMMWITHNDSDOC COMPUTED BY (SummCalcDoc+SummNDSDoc),
+ SUMMWITHNDSRUB COMPUTED BY (SummCalcRub+SummNDSRub),
+ SUMMWITHNDSCUR COMPUTED BY (SummCalcCur+SummNDSCur),
+ PRICEDOC_IN DOUBLE PRECISION DEFAULT 0,
+ EXPIREPERCENT COMPUTED BY (Cast(100 * (ItemExpireDate - CURRENT_TIMESTAMP) / (ItemExpireDate - ItemCreateDate) as Integer))
+);
+
+CREATE TABLE TBL_OUTDOC_TEMP (
+ ID_OUTDOC_TEMP INTEGER NOT NULL,
+ ID_OUTDOC INTEGER NOT NULL,
+ ID_ITEMSALE INTEGER,
+ ID_ITEM INTEGER,
+ ID_POINT INTEGER NOT NULL,
+ VOLUME DOUBLE PRECISION DEFAULT 0 NOT NULL,
+ PRICEDOC DOUBLE PRECISION DEFAULT 0 NOT NULL,
+ NDS DOUBLE PRECISION DEFAULT 0 NOT NULL,
+ BUILDERPERCENT DOUBLE PRECISION DEFAULT 0 NOT NULL,
+ SUMMDOC DOUBLE PRECISION DEFAULT 0,
+ SUMMNDSDOC DOUBLE PRECISION DEFAULT 0,
+ SUMMWITHNDSDOC DOUBLE PRECISION DEFAULT 0,
+ BUILDERPRICE COMPUTED BY (PriceDoc*100/(100+BuilderPercent))
+);
+
+CREATE TABLE TBL_ITEMSALE (
+ ID_ITEMSALE INTEGER NOT NULL,
+ ID_STORE INTEGER NOT NULL,
+ ID_ITEM INTEGER NOT NULL,
+ ID_FIRSTINDOC_TEMP INTEGER NOT NULL,
+ F_ALOWSALE DMN_BOOL /* DMN_BOOL = SMALLINT DEFAULT 0 */,
+ VOLUME DMN_PRICE NOT NULL /* DMN_PRICE = DOUBLE PRECISION DEFAULT 0 CHECK (Value >= 0) */,
+ SALEPRICERUB DOUBLE PRECISION DEFAULT 0 NOT NULL,
+ SALEPRICECUR DOUBLE PRECISION DEFAULT 0 NOT NULL,
+ F_IMPORTED DMN_BOOL NOT NULL /* DMN_BOOL = SMALLINT DEFAULT 0 */,
+ V_VOLUME DOUBLE PRECISION DEFAULT 0,
+ V_MASS DOUBLE PRECISION DEFAULT 0
+);
+
+CREATE TABLE TBL_INDOC (
+ ID_INDOC INTEGER NOT NULL,
+ ID_STORE INTEGER NOT NULL,
+ ID_FIRM INTEGER NOT NULL,
+ ID_SELFFIRM INTEGER NOT NULL,
+ ID_CUR INTEGER NOT NULL,
+ DOCTYPE INTEGER NOT NULL,
+ DOCNAME DMN_DOCNAME /* DMN_DOCNAME = VARCHAR(20) */,
+ DATECREATE TIMESTAMP DEFAULT CURRENT_TIMESTAMP,
+ DATEDOC TIMESTAMP DEFAULT CURRENT_TIMESTAMP,
+ DATELASTEDIT TIMESTAMP DEFAULT CURRENT_TIMESTAMP,
+ DATESTORE TIMESTAMP,
+ ID_USERCREATE INTEGER NOT NULL,
+ ID_USERLOCK INTEGER,
+ F_FINISHED DMN_BOOL /* DMN_BOOL = SMALLINT DEFAULT 0 */,
+ F_STORE DMN_BOOL /* DMN_BOOL = SMALLINT DEFAULT 0 */,
+ F_SPECIAL DMN_BOOL /* DMN_BOOL = SMALLINT DEFAULT 0 */,
+ ADDENDUM VARCHAR(128) CHARACTER SET WIN1251,
+ COMMENT VARCHAR(128) CHARACTER SET WIN1251,
+ COURSE DOUBLE PRECISION NOT NULL,
+ ID_PARENT_OUTDOC INTEGER DEFAULT 0 NOT NULL,
+ PRICEDOC_IN_IMPORTED SMALLINT DEFAULT 0 NOT NULL
+);
+
+SET TERM ^ ;
+
+CREATE PROCEDURE PRC_EXPSUMM_8_10 (
+ ID_EXPORTFIELDDOC INTEGER,
+ ID_OUTDOC INTEGER,
+ NDSDIV DOUBLE PRECISION)
+RETURNS (
+ SUMMRUS DOUBLE PRECISION,
+ SUMMDOC DOUBLE PRECISION)
+AS
+begin
+ IF (id_exportfielddoc=130) THEN BEGIN
+ SELECT SUM(A.PriceRub*B.Volume/A.PointMul), SUM(A.PriceDoc*B.Volume/A.PointMul) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds<:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=131) THEN BEGIN
+ SELECT SUM(A.PriceCalcRub*B.Volume/A.PointMul), SUM(A.PriceCalcDoc*B.Volume/A.PointMul) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds<:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=132) THEN BEGIN
+ SELECT SUM(A.SummDoc), SUM(A.SummDoc) FROM TBL_OUTDOC_TEMP A,
+ TBL_ITEMSALE B,
+ TBL_INDOC_TEMP C,
+ TBL_INDOC D
+ WHERE A.ID_OUTDOC=:id_outdoc and b.id_itemsale=a.id_itemsale and c.id_indoc_temp=b.id_firstindoc_temp and
+ d.id_indoc=c.id_indoc and d.doctype = 6 and a.nds>0 and a.nds<:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=133) THEN BEGIN
+ SELECT SUM(A.NDS*A.PriceRub*B.Volume/(A.PointMul*100)), SUM(A.NDS*A.PriceDoc*B.Volume/(A.PointMul*100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds<:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=134) THEN BEGIN
+ SELECT SUM(A.NDS*A.PriceCalcRub*B.Volume/(A.PointMul*100)), SUM(A.NDS*A.PriceCalcDoc*B.Volume/(A.PointMul*100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds<:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=135) THEN BEGIN
+ SELECT SUM(A.SummNDSDoc), SUM(A.SummNDSDoc) FROM TBL_OUTDOC_TEMP A,
+ TBL_ITEMSALE B,
+ TBL_INDOC_TEMP C,
+ TBL_INDOC D
+ WHERE A.ID_OUTDOC=:id_outdoc and b.id_itemsale=a.id_itemsale and c.id_indoc_temp=b.id_firstindoc_temp and
+ d.id_indoc=c.id_indoc and d.doctype = 6 and a.nds>0 and a.nds<:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=136) THEN BEGIN
+ SELECT SUM((A.PriceRub*B.Volume/A.PointMul)*(1+A.NDS/100)), SUM((A.PriceDoc*B.Volume/A.PointMul)*(1+A.NDS/100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds<:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=137) THEN BEGIN
+ SELECT SUM((A.PriceCalcRub*B.Volume/A.PointMul)*(1+A.NDS/100)), SUM((A.PriceCalcDoc*B.Volume/A.PointMul)*(1+A.NDS/100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds<:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=138) THEN BEGIN
+ SELECT SUM(A.SummWithNDSDoc), SUM(A.SummWithNDSDoc) FROM TBL_OUTDOC_TEMP A,
+ TBL_ITEMSALE B,
+ TBL_INDOC_TEMP C,
+ TBL_INDOC D
+ WHERE A.ID_OUTDOC=:id_outdoc and b.id_itemsale=a.id_itemsale and c.id_indoc_temp=b.id_firstindoc_temp and
+ d.id_indoc=c.id_indoc and d.doctype = 6 and a.nds>0 and a.nds<:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=139) THEN BEGIN
+ SELECT SUM((A.PriceCalcRub-A.PriceRub)*B.Volume/A.PointMul), SUM((A.PriceCalcDoc-A.PriceDoc)*B.Volume/A.PointMul) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds<:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=140) THEN BEGIN
+ SELECT SUM(B.SummDoc-(A.PriceRub*B.Volume/A.PointMul)), SUM(B.SummDoc-(A.PriceDoc*B.Volume/A.PointMul)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds<:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=141) THEN BEGIN
+ SELECT SUM(A.NDS*(A.PriceCalcRub-A.PriceRub)*B.Volume/(A.PointMul*100)), SUM(A.NDS*(A.PriceCalcDoc-A.PriceDoc)*B.Volume/(A.PointMul*100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds<:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=142) THEN BEGIN
+ SELECT SUM(B.SummNDSDoc-A.NDS*A.PriceRub*B.Volume/(A.PointMul*100)), SUM(B.SummNDSDoc-A.NDS*A.PriceDoc*B.Volume/(A.PointMul*100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds<:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=143) THEN BEGIN
+ SELECT SUM(((A.PriceCalcRub-A.PriceRub)*B.Volume/A.PointMul)*(1+A.NDS/100)), SUM(((A.PriceCalcDoc-A.PriceDoc)*B.Volume/A.PointMul)*(1+A.NDS/100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds<:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=144) THEN BEGIN
+ SELECT SUM(B.SummWithNDSDoc-(A.PriceRub*B.Volume/A.PointMul)*(1+A.NDS/100)), SUM(B.SummWithNDSDoc-(A.PriceDoc*B.Volume/A.PointMul)*(1+A.NDS/100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds<:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ SUSPEND;
+END
+^
+
+CREATE PROCEDURE PRC_EXPSUMM_8_20 (
+ ID_EXPORTFIELDDOC INTEGER,
+ ID_OUTDOC INTEGER,
+ NDSDIV DOUBLE PRECISION)
+RETURNS (
+ SUMMRUS DOUBLE PRECISION,
+ SUMMDOC DOUBLE PRECISION)
+AS
+begin
+ IF (id_exportfielddoc=145) THEN BEGIN
+ SELECT SUM(A.PriceRub*B.Volume/A.PointMul), SUM(A.PriceDoc*B.Volume/A.PointMul) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds>=:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=146) THEN BEGIN
+ SELECT SUM(A.PriceCalcRub*B.Volume/A.PointMul), SUM(A.PriceCalcDoc*B.Volume/A.PointMul) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds>=:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=147) THEN BEGIN
+ SELECT SUM(A.SummDoc), SUM(A.SummDoc) FROM TBL_OUTDOC_TEMP A,
+ TBL_ITEMSALE B,
+ TBL_INDOC_TEMP C,
+ TBL_INDOC D
+ WHERE A.ID_OUTDOC=:id_outdoc and b.id_itemsale=a.id_itemsale and c.id_indoc_temp=b.id_firstindoc_temp and
+ d.id_indoc=c.id_indoc and d.doctype = 6 and a.nds>0 and a.nds>=:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=148) THEN BEGIN
+ SELECT SUM(A.NDS*A.PriceRub*B.Volume/(A.PointMul*100)), SUM(A.NDS*A.PriceDoc*B.Volume/(A.PointMul*100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds>=:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=149) THEN BEGIN
+ SELECT SUM(A.NDS*A.PriceCalcRub*B.Volume/(A.PointMul*100)), SUM(A.NDS*A.PriceCalcDoc*B.Volume/(A.PointMul*100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds>=:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=150) THEN BEGIN
+ SELECT SUM(A.SummNDSDoc), SUM(A.SummNDSDoc) FROM TBL_OUTDOC_TEMP A,
+ TBL_ITEMSALE B,
+ TBL_INDOC_TEMP C,
+ TBL_INDOC D
+ WHERE A.ID_OUTDOC=:id_outdoc and b.id_itemsale=a.id_itemsale and c.id_indoc_temp=b.id_firstindoc_temp and
+ d.id_indoc=c.id_indoc and d.doctype = 6 and a.nds>0 and a.nds>=:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=151) THEN BEGIN
+ SELECT SUM((A.PriceRub*B.Volume/A.PointMul)*(1+A.NDS/100)), SUM((A.PriceDoc*B.Volume/A.PointMul)*(1+A.NDS/100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds>=:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=152) THEN BEGIN
+ SELECT SUM((A.PriceCalcRub*B.Volume/A.PointMul)*(1+A.NDS/100)), SUM((A.PriceCalcDoc*B.Volume/A.PointMul)*(1+A.NDS/100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds>=:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=153) THEN BEGIN
+ SELECT SUM(A.SummWithNDSDoc), SUM(A.SummWithNDSDoc) FROM TBL_OUTDOC_TEMP A,
+ TBL_ITEMSALE B,
+ TBL_INDOC_TEMP C,
+ TBL_INDOC D
+ WHERE A.ID_OUTDOC=:id_outdoc and b.id_itemsale=a.id_itemsale and c.id_indoc_temp=b.id_firstindoc_temp and
+ d.id_indoc=c.id_indoc and d.doctype = 6 and a.nds>0 and a.nds>=:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=154) THEN BEGIN
+ SELECT SUM((A.PriceCalcRub-A.PriceRub)*B.Volume/A.PointMul), SUM((A.PriceCalcDoc-A.PriceDoc)*B.Volume/A.PointMul) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds>=:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=155) THEN BEGIN
+ SELECT SUM(B.SummDoc-(A.PriceRub*B.Volume/A.PointMul)), SUM(B.SummDoc-(A.PriceDoc*B.Volume/A.PointMul)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds>=:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=156) THEN BEGIN
+ SELECT SUM(A.NDS*(A.PriceCalcRub-A.PriceRub)*B.Volume/(A.PointMul*100)), SUM(A.NDS*(A.PriceCalcDoc-A.PriceDoc)*B.Volume/(A.PointMul*100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds>=:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=157) THEN BEGIN
+ SELECT SUM(B.SummNDSDoc-A.NDS*A.PriceRub*B.Volume/(A.PointMul*100)), SUM(B.SummNDSDoc-A.NDS*A.PriceDoc*B.Volume/(A.PointMul*100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds>=:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=158) THEN BEGIN
+ SELECT SUM(((A.PriceCalcRub-A.PriceRub)*B.Volume/A.PointMul)*(1+A.NDS/100)), SUM(((A.PriceCalcDoc-A.PriceDoc)*B.Volume/A.PointMul)*(1+A.NDS/100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds>=:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=159) THEN BEGIN
+ SELECT SUM(B.SummWithNDSDoc-(A.PriceRub*B.Volume/A.PointMul)*(1+A.NDS/100)), SUM(B.SummWithNDSDoc-(A.PriceDoc*B.Volume/A.PointMul)*(1+A.NDS/100)) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6 and b.nds>0 and b.nds>=:NDSDiv
+ INTO :summrus, :summdoc;
+ END
+ SUSPEND;
+END
+^
+
+CREATE PROCEDURE PRC_EXPSUMM_8(
+ ID_INDOC INTEGER,
+ ID_OUTDOC INTEGER,
+ ID_GROUP INTEGER)
+RETURNS (
+ ACCOUNTCREDIT INTEGER,
+ ACCOUNTDEBIT INTEGER,
+ SUMMRUS DOUBLE PRECISION,
+ SUMMDOC DOUBLE PRECISION)
+AS
+DECLARE VARIABLE NDSDiv DOUBLE PRECISION;
+DECLARE VARIABLE ID_ExportFieldDoc Integer;
+begin
+ SELECT Val FROM TBL_Const_Float
+ WHERE Name='NDSDiv'
+ INTO :NDSDiv;
+ FOR SELECT id_exportfielddoc, accountcredit, accountdebit FROM tbl_exportentry
+ WHERE id_exportgroupentry=:id_group
+ INTO :id_exportfielddoc, :accountcredit, :accountdebit
+ DO BEGIN
+ IF ((AccountCredit<>0) or (AccountDebit<>0)) THEN BEGIN
+ IF (id_exportfielddoc=110) THEN BEGIN
+ SELECT SUM(A.PriceRub*B.Volume/A.PointMul), SUM(A.PriceDoc*B.Volume/A.PointMul) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=111) THEN BEGIN
+ SELECT SUM(A.PriceCalcRub*B.Volume/A.PointMul), SUM(A.PriceCalcDoc*B.Volume/A.PointMul) FROM TBL_INDOC_TEMP A,
+ TBL_OUTDOC_TEMP B,
+ TBL_ITEMSALE C,
+ TBL_INDOC D
+ WHERE b.id_outdoc=:id_outdoc and b.id_itemsale=c.id_itemsale and c.id_firstindoc_temp=a.id_indoc_temp and
+ d.id_indoc=a.id_indoc and d.doctype = 6
+ INTO :summrus, :summdoc;
+ END
+ IF (id_exportfielddoc=112) THEN BEGIN
+ SELECT SUM(A.SummDoc), SUM(A.SummDoc) FROM TBL_OUTDOC_TEMP A,
+ TBL_ITEMSALE B,
+ TBL_INDOC_TEMP C,
+ TBL_INDOC D
+...
[truncated message content] |
