2jimmers
Нет не для всех процедур. На некоторых все нормально, но зависимость пока не пойму
Пример (извините за длину, взял всю процедуру). Правда как его можно запустить без таблиц, не пойму
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
ALTER PROCEDURE dbo.PROV_PostSGotProd
@JRNOPRID char(8), -- идентификатор операции
@BEG_PERIOD smalldatetime, -- начало учетного периода
@END_PERIOD smalldatetime, -- конец учетного периода
@MDPLNSCH char(20), -- тип данных для плана счетов
@KODPLN char(20), -- код плана счетов
@OPRID char(8), -- идент. операции из метаданных
@KODOPR char(20), -- код операции из метаданных
@KODMDPDOK char(20), -- код первичного док-та в метаданных
@KODMDPOL char(20), -- код справочника поставщиков в метаданных
@KODMDZK char(20), -- код справочника договоров в метаданных
@KODMDSKL char(20), -- код справочника подразделений в метаданных
@KODMDMOL char(20), -- код МОЛ в метаданных
@KODMDMAT char(20), -- код справочника материалов в метаданных
@PLZID char(8), -- идент. пользователя
@KODPLZ char(20) -- код пользователя
AS
begin
SET NOCOUNT ON
DECLARE -- локальные переменные
@PLNID char(8), -- Идент. плана
@SHFPLN char(10), -- Шифр плана
@Curr_Date smalldatetime, -- Текущая дата
@DHTNID char(8), -- Идент. шапки документа(требование-накладная)
@DATAPROV smalldatetime,-- -- параметры проводок из шапочной части
@DAT smalldatetime,
@SHF char(10), -- шифр документа
@NAIM char(80), -- Наименование (комментарий)
@POLID char(8), -- ID получателя
@SHFPOL char(10), -- шифр получателя
@KODPOL char(20), -- код получателя
@NAIMPOL char(80), -- наименование получателя
@ZKID char(8), -- ID заказа
@SHFZK char(10), -- шифр заказа
@KODZK char(20), -- код заказа
@NAIMZK char(80),-- наименование заказа
@SKLID char(8), -- ID склада
@SHFSKL char(10), -- шифр склада
@KODSKL char(20), -- код склада
@NAIMSKL char(80), -- наименование склада
@SCHKR char(8), -- СчетКредита
@SUBSKR char(8), -- СубСчетКредита
@SCHKRID char(8), --
@MOLID char(8), -- ID МОЛ
@SHFMOL char(10), -- шифр МОЛ
@KODMOL char(20), -- код МОЛ
@NAIMMOL char(80), -- наименование МОЛ -- параметры проводок из табличной части
@DTTNID int, -- Идент. строки из табличной части
@MATID char(8),
@IMPMATID char(8),
@SHFMAT char(10),
@KODMAT char(20),
@NAIMMAT char(80),
@SHFNP char(10),
@EDIZMID char(8),
@SHFEDIZM char(10),
@KODEDIZM char(20),
@NAIMEDIZM char(80),
@CENA money, -- Цена без НДС
@SBNDS money, -- Учётная сумма без НДС
@SCHDB char(8), -- СчетДебета
@SUBSDB char(8), -- СубСчетДебета
@SCHDBID char(8),
@DataSoz smalldatetime,
@DataIzm smalldatetime,
@PLZIZMID char(8),
@CountProv int, -- Число(строк) проводок
@KOL float
-- Получение идент. шапки документа(приходного ордера) из журнала JRNDOK
SELECT @DHTNID= DOKID FROM dbo.JRNDOK
WHERE JRNDOKID= (SELECT JRNDOKID FROM dbo.OPRDOK WHERE JRNOPRID= @JRNOPRID)
-- Удалим временную таблицу
IF EXISTS(SELECT * FROM tempdb..SYSOBJECTS WHERE ID= OBJECT_ID('tempdb..#TmpProv') AND XTYPE= 'U')
DROP TABLE #TmpProv
-- Создание временной таблицы TmpProv
CREATE TABLE #TmpProv(
-- идентификаторы
PROVID char(8) NULL,
SCHDBID char(8) NULL,
SCHKRID char(8) NULL,
JRNOPRID char(8) NOT NULL,
-- план счетов
PLNID char(8) NOT NULL,
SHFPLN char(10) NOT NULL,
KODPLN varchar(20) NULL,
-- операция
OPRID char(8) NULL,
KODOPR char(20) NULL,
-- первичный документ
KODMDPDOK varchar(20) NULL,
PDOKID char(8) NULL,
SHFPDOK char(10) NULL,
KODPDOK varchar(20) NULL,
NAIMPDOK varchar(80) NULL,
-- дата проводки
DATAPROV smalldatetime NULL,
-- документ
KODMDDOK varchar(20) NULL,
DOKID char(8) NULL,
DATADOK smalldatetime NULL,
SHFDOK char(10) NULL,
KODDOK char(20) NULL,
NAIMDOK varchar(80) NULL,
-- счет дебета и аналитика дебета
SHFASCHDB char(10) NULL,
SCHDB char(3) NULL,
SUBSDB char(3) NULL,
KODMDAN1DB varchar(20) NULL,
AN1DBID varchar(8) NULL,
SHF1DB varchar(10) NULL,
KOD1DB varchar(20) NULL,
NAME1DB varchar(80) NULL,
KODMDAN2DB varchar(20) NULL,
AN2DBID varchar(8) NULL,
SHF2DB varchar(10) NULL,
KOD2DB varchar(20) NULL,
NAME2DB varchar(80) NULL,
KODMDAN3DB varchar(20) NULL,
AN3DBID varchar(8) NULL,
SHF3DB varchar(10) NULL,
KOD3DB varchar(20) NULL,
NAME3DB varchar(80) NULL,
KODMDAN4DB varchar(20) NULL,
AN4DBID varchar(8) NULL,
SHF4DB varchar(10) NULL,
KOD4DB varchar(20) NULL,
NAME4DB varchar(80) NULL,
KODMDAN5DB varchar(20) NULL,
AN5DBID varchar(8) NULL,
SHF5DB varchar(10) NULL,
KOD5DB varchar(20) NULL,
NAME5DB varchar(80) NULL,
-- счет кредита и аналитика кредита
SHFASCHKR char(10) NULL,
SCHKR char(3) NULL,
SUBSKR char(3) NULL,
KODMDAN1KR varchar(20) NULL,
AN1KRID varchar(8) NULL,
SHF1KR varchar(10) NULL,
KOD1KR varchar(20) NULL,
NAME1KR varchar(80) NULL,
KODMDAN2KR varchar(20) NULL,
AN2KRID varchar(8) NULL,
SHF2KR varchar(10) NULL,
KOD2KR varchar(20) NULL,
NAME2KR varchar(80) NULL,
KODMDAN3KR varchar(20) NULL,
AN3KRID varchar(8) NULL,
SHF3KR varchar(10) NULL,
KOD3KR varchar(20) NULL,
NAME3KR varchar(80) NULL,
KODMDAN4KR varchar(20) NULL,
AN4KRID varchar(8) NULL,
SHF4KR varchar(10) NULL,
KOD4KR varchar(20) NULL,
NAME4KR varchar(80) NULL,
KODMDAN5KR varchar(20) NULL,
AN5KRID varchar(8) NULL,
SHF5KR varchar(10) NULL,
KOD5KR varchar(20) NULL,
NAME5KR varchar(80) NULL,
-- количество
KOL1 float NULL,
-- ед. измерения
IZM1ID varchar(8) NULL,
KODIZM1 varchar(20) NULL,
HTK int NULL,
-- цена и сумма
CENA money NULL,
SUMM money NULL,
NAIM varchar(80) NULL,
SOSTPROV char(20) NULL,
PLZID char(8) NULL,
KODPLZ char(20) NULL,
PLZIZMID char(8) NULL,
KODPLZIZM char(20) NULL,
DATASOZ smalldatetime NULL,
DATAIZM smalldatetime NULL) --STRDOKID varchar(8) NULL
-- Отбор проводок документа во временную таблицу TMPPROV
INSERT INTO #TmpProv(
PROVID, SCHDBID, SCHKRID, JRNOPRID,
PLNID, SHFPLN, KODPLN,
OPRID, KODOPR,
KODMDPDOK, PDOKID, SHFPDOK, KODPDOK, NAIMPDOK,
DATAPROV,
KODMDDOK, DOKID, DATADOK, SHFDOK, KODDOK, NAIMDOK,
SCHDB, SUBSDB,
KODMDAN1DB, AN1DBID, SHF1DB, KOD1DB, NAME1DB,
AN2DBID, SHF2DB, KOD2DB, NAME2DB,
AN3DBID, SHF3DB, KOD3DB, NAME3DB,
SCHKR, SUBSKR,
AN2KRID, SHF2KR, KOD2KR, NAME2KR,
KOL1, IZM1ID, KODIZM1, HTK,
CENA, SUMM,
NAIM, SOSTPROV,
PLZID, KODPLZ,
PLZIZMID, KODPLZIZM,
DATASOZ, DATAIZM)
SELECT
PROVID, SCHDBID, SCHKRID, JRNOPRID,
PLNID, SHFPLN, KODPLN,
OPRID, KODOPR,
KODMDPDOK, PDOKID, SHFPDOK, KODPDOK, NAIMPDOK,
DATAPROV,
KODMDDOK, DOKID, DATADOK, SHFDOK, KODDOK, NAIMDOK,
SCHDB, SUBSDB,
KODMDAN1DB, AN1DBID, SHF1DB, KOD1DB, NAME1DB,
AN2DBID, SHF2DB, KOD2DB, NAME2DB,
AN3DBID, SHF3DB, KOD3DB, NAME3DB,
SCHKR, SUBSKR,
AN2KRID, SHF2KR, KOD2KR, NAME2KR,
ISNULL(KOL1, 0), IZM1ID, KODIZM1, ISNULL(HTK, 0),
ISNULL(CENA, 0), ISNULL(SUMM, 0),
NAIM, SOSTPROV,
PLZID, KODPLZ,
PLZIZMID, KODPLZIZM,
DATASOZ, DATAIZM
FROM dbo.PROV
WHERE JRNOPRID= @JRNOPRID
-- Получим параметры шапочной части
SELECT
@DAT= DAT, @SHF= SHF, @NAIM= NAIM, -- документ
@POLID= POLID, @SHFPOL= SHFPOL, @KODPOL= KODPOL, @NAIMPOL= NAIMPOL, -- получатель
@ZKID= ZKID, @SHFZK= SHFZK, @KODZK= KODZK, @NAIMZK= NAIMZK, --заказ
@SKLID= SKLID, @SHFSKL= SHFSKL, @KODSKL= KODSKL, @NAIMSKL= NAIMSKL, -- место хранения
@SCHKR= SCHKR, @SUBSKR= SUBSKR, @SCHKRID= SCHKRID, -- счеткредита
@MOLID= MOLID, @SHFMOL= SHFMOL, @KODMOL= KODMOL, @NAIMMOL= NAIMMOL -- МОЛ
FROM dbo.DHTN
WHERE DHTNID= @DHTNID
-- Определим дату новой и сторнирующей проводок
IF(@DAT>= @BEG_PERIOD) AND (@DAT<= @END_PERIOD) -- дата документа принадлежит учетному периоду
SET @DATAPROV= @DAT
ELSE
BEGIN
SET @Curr_Date= GetDate() -- Установка текущей даты
IF(@Curr_Date>= @BEG_PERIOD) AND (@Curr_Date<= @END_PERIOD) -- текущая дата принадлежит учетному периоду
-- сторнирующая проводка в таблице PROV будет c текущей датой
SET @DATAPROV= @Curr_Date
ELSE
SET @DATAPROV= @END_PERIOD -- конец периода
END
-- Получение идент. и шифра для плана счетов из таблицы метаданных
SELECT @PLNID= ID, @SHFPLN= SHF
FROM dbo.METADN
WHERE (TIP= @MDPLNSCH) AND (KOD= @KODPLN)
-- Удаляем из TmpProv записи имеющиеся в документе
-- и добавляем в Prov проводки, которых нет в TmpProv
-- Курсор по табличной части документа
DECLARE Cr_DTTN CURSOR GLOBAL FORWARD_ONLY STATIC FOR
SELECT
DTTNID,
KODMDMAT, MATID, SHFMAT, KODMAT, NAIMMAT,
EDIZMID, SHFEDIZM, KODEDIZM, NAIMEDIZM, -- ед.измерения
ISNULL(KOL, 0), ISNULL(CENA, 0), ISNULL(SBNDS, 0),
SCHDB, SUBSDB, SCHDBID
SCHKR, SUBSKR, SCHKRID, -- счеткредита
SHFNP, -- номер партии
KODMDZK, ZKID, SHFZK, KODZK, NAIMZK, --заказ
DATPRV,
DATASOZ, DATAIZM,
PLZIZMID
FROM dbo.DTTN
WHERE DHTNID= @DHTNID
OPEN Cr_DTTN -- Открытие курсора
-- Получение первой строки курсора
FETCH NEXT FROM Cr_DTTN INTO
@DTTNID,
@KODMDMAT, @MATID, @SHFMAT, @KODMAT, @NAIMMAT,
@EDIZMID, @SHFEDIZM, @KODEDIZM, @NAIMEDIZM,
@KOL, @CENA, @SBNDS,
@SCHDB, @SUBSDB, @SCHDBID,
@SCHKR, @SUBSKR, @SCHKRID,
@SHFNP,
@KODMDZK, @ZKID, @SHFZK, @KODZK, @NAIMZK,
@DATAPROV,
@DATASOZ, @DATAIZM,
@PLZIZMID
--Цикл по строкам табличной части документа
WHILE @@Fetch_Status= 0
BEGIN
-- Поиск проводки в TMPPROV с параметрами шапочной и табличной части документа
SELECT @CountProv= COUNT(JRNOPRID)
FROM #TmpProv
WHERE (SHFPDOK= @SHF) AND (DATAPROV= @DAT)
AND (SHFDOK= @SHFZK) --AND (DATADOK= @DATAZK)
AND (SCHDB= @SCHDB) AND (SUBSDB= @SUBSDB) AND (SCHDBID=@SCHDBID)
AND (SHF1DB= @SHFMAT) AND (SHF2DB= @SHFSKL) AND (SHF3DB= @SHFMOL)
AND (SCHKR= @SCHKR) AND (SUBSKR= @SUBSKR) AND (SCHKRID=@SCHKRID)
AND (SHF2KR= @SHFPOL)
AND (KOL1= @KOL) AND (IZM1ID= @EDIZMID) AND (CENA= @CENA) AND (SUMM= @SBNDS)
AND (NAIM=@NAIM) AND (SOSTPROV='все_подтверждено')
IF (@CountProv= 0) --в таблице TMPPROV отсутствует проводка
BEGIN
-- вставка в таблицу проводок
INSERT INTO dbo.PROV (
SCHDBID, SCHKRID, JRNOPRID,
PLNID, SHFPLN, KODPLN,
OPRID, KODOPR,
KODMDPDOK, PDOKID, SHFPDOK, NAIMPDOK,
DATAPROV,
KODMDDOK, DOKID, /*DATADOK,*/ SHFDOK, KODDOK, NAIMDOK,
SCHDB, SUBSDB,
KODMDAN1DB, AN1DBID, SHF1DB, KOD1DB, NAME1DB,
KODMDAN2DB, AN2DBID, SHF2DB, KOD2DB, NAME2DB,
KODMDAN2DB, AN3DBID, SHF3DB, KOD3DB, NAME3DB,
SCHKR, SUBSKR,
AN2KRID, SHF2KR, KOD2KR, NAME2KR,
KOL1, IZM1ID, KODIZM1,
HTK,
CENA, SUMM,
PLZID, KODPLZ)
VALUES (
@SCHDBID, @SCHKRID, @JRNOPRID,
@PLNID, @SHFPLN, @KODPLN,
@OPRID, @KODOPR,
@KODMDPDOK, @DHTNID, @SHF, @NAIM,
@DATAPROV,
@KODMDZK, @ZKID, /*@DATAZK,*/ @SHFZK, @KODZK, @NAIMZK,
@SCHDB, @SUBSDB,
@KODMDMAT, @MATID, @SHFMAT, @KODMAT, @NAIMMAT,
--@SHFNP, пока не знаю куда
@KODMDSKL, @SKLID, @SHFSKL, @KODSKL, @NAIMSKL,
@KODMDMOL, @MOLID, @SHFMOL, @KODMOL, @NAIMMOL,
-- счет-кредита и аналитика кредита
@SCHKR, @SUBSKR,
@POLID, @SHFPOL, @KODPOL, @NAIMPOL,
--@SHFNP,
@KOL, @EDIZMID, @KODEDIZM,
CASE WHEN @KODEDIZM LIKE 'ШТ%' THEN @KOL ELSE NULL END,
@CENA, @SBNDS, -- цена, сумма
@PLZID, @KODPLZ) -- пользователь
-- обновление поля даты проводок в документе
UPDATE dbo.DTTN SET DATPRV= @DATAPROV
WHERE DTTNID= @DTTNID
END -- IF(@CountProv= 0)
ELSE --ИначеЕсли в таблице TMPPROV есть проводка
BEGIN
--Удалить проводку из временной таблице TMPPROV
--(DATAPROV= @DAT) влияет на появление сторнирующих проводок при переходе из периода период
DELETE FROM #TmpProv
WHERE DTTNID=@DTTNID
--(SHFPDOK= @SHF) AND (DATAPROV= @MAX_DPRV) AND
--(SHFDOK= @SHFZK) AND (DATADOK= @DATAZK) AND
--(SCHDB= @SCHDB) AND (SUBSDB= @SUBSDB) AND
--(SHF1DB= @SHFMAT) AND (SHF2DB= @SHFNP) AND (SHF3DB= @SHFSKL) AND
--(SHF4DB= @SHFMOL) AND (SCHKR= @SCHZAGMAT) AND (SUBSKR= @SUBSZAGMAT) AND
--(SHF1KR= @SHFMAT) AND (SHF2KR= @SHFNP) AND
--(KOL1= @KOL) AND (KODIZM1= @KODEDIZM) AND (CENA= @CBNDSU) AND (SUMM= @SUBNDS)
END -- ELSE IF(@CountProv= 0)
-- Получение следующей строки курсора
FETCH NEXT FROM Cr_DTTN INTO
@DTTNID,
@KODMDMAT, @MATID, @SHFMAT, @KODMAT, @NAIMMAT,
@EDIZMID, @SHFEDIZM, @KODEDIZM, @NAIMEDIZM,
@KOL, @CENA, @SBNDS,
@SCHDB, @SUBSDB, @SCHDBID,
@SCHKR, @SUBSKR, @SCHKRID,
@SHFNP,
@KODMDZK, @ZKID, @SHFZK, @KODZK, @NAIMZK,
@DATAPROV,
@DATASOZ, @DATAIZM,
@PLZIZMID
END -- WHILE
CLOSE Cr_DTTN -- Закрытие курсора
DEALLOCATE Cr_DTTN -- Удаление курсора
--Вставить сторнирующие проводки в таблицу PROV
INSERT INTO dbo.PROV(
SCHDBID, SCHKRID,
JRNOPRID, PLNID, SHFPLN, KODPLN,
OPRID, KODOPR,
KODMDPDOK, PDOKID, SHFPDOK, NAIMPDOK,
DATAPROV,
KODMDDOK, DOKID, DATADOK, SHFDOK, KODDOK, NAIMDOK,
SCHDB, SUBSDB,
KODMDAN1DB, AN1DBID, SHF1DB, KOD1DB, NAME1DB,
KODMDAN2DB, AN2DBID, SHF2DB, KOD2DB, NAME2DB,
KODMDAN3DB, AN3DBID, SHF3DB, KOD3DB, NAME3DB,
SCHKR, SUBSKR,
KODMDAN2KR, AN2KRID, SHF2KR, KOD2KR, NAME2KR,
KOL1, IZM1ID, KODIZM1,
HTK,
CENA, SUMM,
PLZID, KODPLZ)
SELECT
SCHDBID, SCHKRID,
JRNOPRID, PLNID, SHFPLN, KODPLN,
OPRID, KODOPR,
KODMDPDOK, PDOKID, SHFPDOK, NAIMPDOK,
DATAPROV,
KODMDDOK, DOKID, DATADOK, SHFDOK, KODDOK, NAIMDOK,
SCHDB, SUBSDB,
KODMDAN1DB, AN1DBID, SHF1DB, KOD1DB, NAME1DB,
KODMDAN2DB, AN2DBID, SHF2DB, KOD2DB, NAME2DB,
KODMDAN3DB, AN3DBID, SHF3DB, KOD3DB, NAME3DB,
SCHKR, SUBSKR,
KODMDAN2KR, AN2KRID, SHF2KR, KOD2KR, NAME2KR,
KOL, EDIZMID, KODEDIZM, HTK,
CENA, -SBND,
PLZID, KODPLZ
FROM #TmpProv
WHERE SBNDS<>0
end
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
