USE Database
EXEC spSQLSOAPCALL

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER PROCEDURE [dbo].[spSQLSOAPCall]
AS
DECLARE
 @URL		SysName
,@Body		XML
,@hdoc		int
,@DAY_COUNT	int
,@b1		int
,@kod_agenta int
,@DOC_CODE int
,@DOC_STATUS int
,@SMS_CODE int
,@DATE_CREATE nvarchar(10)
,@ORDER_DESCRIPTION nvarchar(255)
,@MESSAGE nvarchar(300)
,@GUID uniqueidentifier
,@CODE_DOGOVOR int


--устанавливаем статус документа в -1, в случае падения обработки строк заказа связанного с превышением длины переменной
--статус заказа обновляться не будет
set @DOC_STATUS=-1

--шапки заказов
CREATE TABLE #DOCUMENT_ORDER_VEDK
(
PKid int		PRIMARY KEY IDENTITY,
SMS_CODE int, 
DOCUMENT_TYPE_NAME nvarchar(100) DEFAULT NULL,
STOCK_CODE	nvarchar(10)		DEFAULT NULL,
DOCUMENT_STATUS int	DEFAULT 0,
DOCUMENT_STATUS_NAME nvarchar(100) DEFAULT NULL,
CODE_SALE_POINT nvarchar(10) DEFAULT NULL,
DOCUMENT_CODE nvarchar(100) DEFAULT NULL,
DATE_CREATE	datetime,
DATE_CREATE_TEXT nvarchar(10) DEFAULT NULL,
SHIPMENT_DATE datetime,
SHIPMENT_DATE_TEXT nvarchar(10) DEFAULT NULL,
SHIPMENT_TIME	nvarchar(10) DEFAULT NULL,
GPS_POSITION	nvarchar(100) DEFAULT 0,
EMPLOYEE_ID int	DEFAULT 0,
EMPL_SURNAME nvarchar(100),
EMPL_NAME nvarchar (100),
EMPL_MIDDLE_NAME nvarchar (100),
ORDER_DESCRIPTION nvarchar (255),
PAYMENT_METHOD nvarchar(100),
CODE_JUR_PERSON nvarchar(100)
)

--продукция в заказе
CREATE TABLE #DOCUMENT_ORDER_ITEM_VEDK
(
PKid int		PRIMARY KEY IDENTITY,
SMS_CODE	int,
ARTICLE	nvarchar(20),
IU_NAME	nvarchar(100),
PRICE	money,
QUANTITY	int,
PRICE_LIST_CODE	nvarchar(5)
)


-- Создание запроса по проверочной процедуре
;WITH XMLNAMESPACES (DEFAULT 'http://tempuri.org/')
SELECT	 @URL	= 'https://sms.rosspirtprom.ru/SMS_SERVER/SMS_Server_V1.asmx'
,@Body		= (
SELECT	ConnectionString='Data Source=Lightning2;Initial Catalog=sms_dev;User ID=some_id;Password=some_pw'
, Query='_1S_CHECK_SP|@PROC_NAME=_1S_CHECK_SP'
FOR	XML Path('QueryOpen_1S_ToXML'),Type)
-- Вызов WebMethod-а
EXEC	dbo.spSOAPMethodCall
@URL
,NULL
,@Body OUT
-- Результат
; WITH XMLNAMESPACES (DEFAULT 'http://tempuri.org/')

--Для QueryOpen_1S_ToXML
SELECT @Body = CONVERT(xml, REPLACE(REPLACE(REPLACE(CONVERT(nvarchar(max),@Body),'&gt;','>'), '&lt;', '<'),' xmlns="http://tempuri.org/"', ''))

--извлекаем значение из XML документа
EXEC sp_xml_preparedocument	@hdoc OUTPUT, @Body
set @DAY_COUNT = (SELECT * FROM OPENXML (@hdoc,'/QueryOpen_1S_ToXMLResponse/QueryOpen_1S_ToXMLResult/RESULT/Row',1)
WITH(DAY_COUNT int './DAY_COUNT'))
EXEC sp_xml_removedocument @hdoc

--Проверяем счетчик дней. Если всё пучком запускаем процесс.
IF @DAY_COUNT > 0
--получаем шапки заказов. готовим запрос
BEGIN
;WITH XMLNAMESPACES (DEFAULT 'http://tempuri.org/')
SELECT	 @URL	= 'https://sms.rosspirtprom.ru/SMS_SERVER/SMS_Server_V1.asmx'
,@Body		= (
SELECT	ConnectionString='Data Source=Lightning2;Initial Catalog=sms_dev;User ID=some_id;Password=some_pw'
, Query='_1S_GET_ORDER_DOCUMENTS_V2'
FOR	XML Path('QueryOpen_1S_ToXML'),Type)
EXEC	dbo.spSOAPMethodCall
@URL
,NULL
,@Body OUT

-- загружаем заголовки заказа
; WITH XMLNAMESPACES (DEFAULT 'http://tempuri.org/')

SELECT @Body --до конвертации

SELECT @Body = CONVERT(xml, REPLACE(REPLACE(REPLACE(CONVERT(varchar(max),@Body),'&gt;','>'), '&lt;', '<'),' xmlns="http://tempuri.org/"', ''))

SELECT @Body --после конвертации

EXEC sp_xml_preparedocument	@hdoc OUTPUT, @Body



INSERT INTO #DOCUMENT_ORDER_VEDK 
SELECT * FROM OPENXML (@hdoc,'/QueryOpen_1S_ToXMLResponse/QueryOpen_1S_ToXMLResult/RESULT/Row',1)
WITH(
SMS_CODE int './SMS_CODE',
DOCUMENT_TYPE_NAME nvarchar(100) './DOCUMENT_TYPE_NAME',
STOCK_CODE nvarchar(10) './STOCK_CODE',
DOCUMENT_STATUS int './DOCUMENT_STATUS',
DOCUMENT_STATUS_NAME nvarchar(100) './DOCUMENT_STATUS_NAME',
CODE_SALE_POINT nvarchar(10) './CODE_SALE_POINT',
DOCUMENT_CODE nvarchar(10) './DOCUMENT_CODE',
DATE_CREATE datetime './DATE_CREATE',
DATE_CREATE_TEXT nvarchar(10) './DATE_CREATE_TEXT',
SHIPMENT_DATE datetime './SHIPMENT_DATE',
SHIPMENT_DATE_TEXT nvarchar(10) './SHIPMENT_DATE_TEXT',
SHIPMENT_TIME nvarchar(10) './SHIPMENT_TIME',
GPS_POSITION nvarchar(100) './GPS_POSITION',
EMPLOYEE_ID int './EMPLOYEE_ID',
EMPL_SURNAME nvarchar(50) './EMPL_SURNAME',
EMPL_NAME nvarchar(50) './EMPL_NAME',
EMPL_MIDDLE_NAME nvarchar(50) './EMPL_MIDDLE_NAME',
ORDER_DESCRIPTION nvarchar(255) './ORDER_DESCRIPTION',
PAYMENT_METHOD nvarchar(100) './PAYMENT_METHOD',
CODE_JUR_PERSON nvarchar(100) './CODE_JUR_PERSON'
)
EXEC sp_xml_removedocument @hdoc
END

-- загружаем товар по заказу
declare a1 cursor local  forward_only static read_only for
(
SELECT SMS_CODE FROM #DOCUMENT_ORDER_VEDK WHERE DOCUMENT_STATUS=12
)
OPEN a1
FETCH FROM a1 into @b1
WHILE @@FETCH_STATUS = 0
BEGIN
;WITH XMLNAMESPACES (DEFAULT 'http://tempuri.org/')
SELECT	 @URL	= 'https://sms.rosspirtprom.ru/SMS_SERVER/SMS_Server_V1.asmx'
,@Body		= (
SELECT	ConnectionString='Data Source=Lightning2;Initial Catalog=sms_dev;User ID=some_id;Password=some_pw'
, Query='_1S_GET_ORDER_DOCUMENT_ITEMS_VIEW1|@SMS_CODE=' + CONVERT(nvarchar(10),@b1)
FOR	XML Path('QueryOpen_1S_ToXML'),Type)
EXEC	dbo.spSOAPMethodCall
@URL
,NULL
,@Body OUT
; WITH XMLNAMESPACES (DEFAULT 'http://tempuri.org/')

SELECT @Body --до конвертации заказов

SELECT @Body = CONVERT(xml, REPLACE(REPLACE(REPLACE(CONVERT(varchar(max),@Body),'&gt;','>'), '&lt;', '<'),' xmlns="http://tempuri.org/"', ''))

SELECT @Body --после конвертации заказов

EXEC sp_xml_preparedocument	@hdoc OUTPUT, @Body
INSERT INTO #DOCUMENT_ORDER_ITEM_VEDK SELECT * FROM OPENXML (@hdoc,'/QueryOpen_1S_ToXMLResponse/QueryOpen_1S_ToXMLResult/RESULT/Row',1)
WITH (
SMS_CODE int './SMS_CODE',
ARTICLE nvarchar(20) './ARTICLE',
IU_NAME nvarchar(100) './IU_NAME',
PRICE money './PRICE',
QUANTITY int './QUANTITY',
PRICE_LIST_CODE nvarchar(5) './PRICE_LIST_CODE'
)
--загрузка в БД Маркет
--Вытаскиваем код агента и создаем документ в MbДокументы
SET @kod_agenta= (SELECT TOP 1 t.[Код торгового агента] from [торговые агенты] t 
INNER JOIN [Физические_лица] f ON t.[Код физического лица]=f.[Код физического лица]
LEFT OUTER JOIN #DOCUMENT_ORDER_VEDK d ON f.ФИО LIKE '%' + d.EMPL_NAME + '%' and f.ФИО LIKE '%' + d.EMPL_SURNAME + '%'
WHERE d.SMS_CODE = @b1
)
SELECT @SMS_CODE=SMS_CODE, @DATE_CREATE=CONVERT(varchar(10),SHIPMENT_DATE,104)
, @ORDER_DESCRIPTION=ORDER_DESCRIPTION, @GUID=NEWID(), @CODE_DOGOVOR = dog.[Код договора]
FROM #DOCUMENT_ORDER_VEDK d INNER JOIN Договора dog ON d.CODE_SALE_POINT = dog.[Код партнера в договоре]
WHERE SMS_CODE = @b1
AND dog.[Текущий договор]=1
--Получаем код документа и кладем товар	в MbТоварооборот
EXEC  @DOC_CODE = mb_ЭкспортДокумента @SMS_CODE, @DATE_CREATE, @ORDER_DESCRIPTION, @CODE_DOGOVOR, 5, 0, @GUID, @kod_agenta = @kod_agenta


INSERT INTO mbТоварооборот 
SELECT @DOC_CODE, t.[Код товара], 0, d.QUANTITY
, d.PRICE, 0, 0
FROM [Поля товара партнеров] t INNER JOIN #DOCUMENT_ORDER_ITEM_VEDK d 
ON t.[Артикул] = d.ARTICLE
WHERE t.[Код партнера]=14699

--создаем документ
EXEC @DOC_STATUS = mb_Создание_документов_КПК @DOC_CODE, @kod_agenta, @MESSAGE OUTPUT

--подтверждаем приемку документа
IF @DOC_STATUS <> -1
BEGIN

	--запись в таблице "Протокол экспорта документов"
	INSERT INTO [Протокол экспорта документов] VALUES (@DOC_STATUS, GETDATE(), CONVERT(datetime, '01/01/1900'), 'Экспорт из САП Молния', @SMS_CODE)

	--изменяем статус документа в САП Молния
	;WITH XMLNAMESPACES (DEFAULT 'http://tempuri.org/')
	SELECT	 @URL	= 'https://sms.rosspirtprom.ru/SMS_SERVER/SMS_Server_V1.asmx'
	,@Body		= (
	SELECT	ConnectionString='Data Source=Lightning2;Initial Catalog=sms_dev;User ID=some_id;Password=some_pw'
	, Query='_1S_SET_DOCUMENT_STATUS|2|@SMS_CODE=' + CONVERT(nvarchar(10),@b1) + '|@NEW_STATUS=4'
	FOR	XML Path('QueryExec_1S'),Type)
	EXEC	dbo.spSOAPMethodCall
	@URL
	,NULL
	,@Body OUT
END

EXEC sp_xml_removedocument @hdoc
DELETE FROM #DOCUMENT_ORDER_ITEM_VEDK
FETCH NEXT FROM a1 INTO @b1
END
CLOSE a1
DEALLOCATE a1

drop table #DOCUMENT_ORDER_VEDK
drop table #DOCUMENT_ORDER_ITEM_VEDK

--Для QueryOpen_1S_ToXML
SELECT @Body = CONVERT(xml, REPLACE(REPLACE(REPLACE(CONVERT(nvarchar(max),@Body),'&gt;','>'), '&lt;', '<'),' xmlns="http://tempuri.org/"', ''))

--извлекаем значение из XML документа
EXEC sp_xml_preparedocument	@hdoc OUTPUT, @Body

EXEC sp_xml_preparedocument	@hdoc OUTPUT, @Body

--получаем шапки заказов. готовим запрос
BEGIN
;WITH XMLNAMESPACES (DEFAULT 'http://tempuri.org/')
SELECT	 @URL	= 'https://sms.rosspirtprom.ru/SMS_SERVER/SMS_Server_V1.asmx'
,@Body		= (
SELECT	ConnectionString='Data Source=Lightning2;Initial Catalog=sms_dev;User ID=some_id;Password=some_pw'
, Query='_1S_GET_ORDER_DOCUMENTS_V2'
FOR	XML Path('QueryOpen_1S_ToXML'),Type)
EXEC	dbo.spSOAPMethodCall
@URL
,NULL
,@Body OUT

@Body OUT