CREATE PROCEDURE YEIS.Otchet01 (IN StDate date, IN EnDate date, IN TempCom1 VARCHAR( 50 ), IN TempCom2 VARCHAR( 50 ), IN WhichQuery VARCHAR( 6 ))
 ------------------------------------------------------------
 
 --Правила по использованию переменных показаны в комментариях перед каждым из селектов
 
 ------------------------------------------------------------- 
 
            DYNAMIC RESULT SETS  1        
            LANGUAGE SQL          
            SPECIFIC YEIS.Otchet01
            NOT DETERMINISTIC    
            MODIFIES SQL DATA   
            CALLED ON NULL INPUT 
 ------------------------------------------------------------------------
 
 -- SQL Stored Procedure 
 
 ------------------------------------------------------------------------
 
P1: BEGIN 
 -----------------------------------------------------------------------
 
 --вспомогательные переменные
 

 -----------------------------------------------------------------------
 
 -- Declare cursors
 
DECLARE GNK1 CURSOR WITH RETURN FOR  
 -----------------------------------------------------------------------------------
 
 --1)Сведения по экспортным и импортным контрактам на товары, работы, услуги
 
 --Входные данные: StDate,EnDate
 
 -----------------------------------------------------------------------------------
 
SELECT TT.SmallName AS  "Наименование предприятия" ,
            TK.FirmTIN AS  "ИНН предприятия" , 
            TT.OKPO AS  "ОКПО" , 
            TA.Account AS  "Код банковского счета" ,
            TK.KntID AS  "ИДН контракта" , 
            TK.KntType AS  "Код по ГТД (экс/имп)"  , 
            TD.GdsKod AS  "Код ТНВЭД" , 
            CAST (TD.InvCost AS FLOAT) AS  "Фактурная стоимость" , 
            TK.CurrKod AS  "Код валюты" , 
            CAST (TK.CurrRate_r AS FLOAT) AS  "Курс валюты" , 
            TDel.DlvTrm AS  "Цифровой код условий поставки" ,
            TAgr.AgrmSubject AS  "Предмет соглашения" ,
            TPay.PmDate AS  "Дата поступления средств" ,
            CAST (TPay.PmSum AS FLOAT) AS  "Сумма поступивших средств" 
FROM ((((((YEIS.Kontracts TK
            LEFT OUTER JOIN YEIS.TINList TT ON TK.FirmTIN=TT.TIN) 
            LEFT OUTER JOIN YEIS.Accounts TA ON TT.TIN=TA.TIN) 
            LEFT OUTER JOIN YEIS.Deliver TD ON TK.KntID=TD.KntID) 
            LEFT OUTER JOIN YEIS.DelTerms TDel ON TK.KntID=TDel.KntID) 
            LEFT OUTER JOIN YEIS.Oplata TOp ON TK.KntID=TOp.KntID)
            LEFT OUTER JOIN YEIS.Agrmnts TAgr ON TK.KntID=TAgr.KntID)
            LEFT OUTER JOIN YEIS.PaymFact TPay ON TK.KntID=TPay.KntID
WHERE TD.DlvDate BETWEEN StDate AND EnDate
ORDER BY TK.KntType ASC; 
CASE WHICHQUERY
WHEN 'GNK1'
THEN 
OPEN GNK1;
END CASE;

END P1