USE [DB]
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
/****** Для разрешения выполнения процедур OA выполнить вот это******/
/*
USE [master]
sp_configure 'show advanced options', 1 
GO 
RECONFIGURE; 
GO 
sp_configure 'Ole Automation Procedures', 1 
GO 
RECONFIGURE; 
GO 
EXEC sp_configure 'clr enabled', 1
GO
RECONFIGURE
GO

use DB
GRANT EXECUTE ON master..sp_OACreate to usr
GRANT EXECUTE ON master..sp_OASetProperty to usr
GRANT EXECUTE ON master..sp_OAMethod to usr
GRANT EXECUTE ON master..sp_OADestroy to usr

*/
CREATE PROC [dbo].[usp_SEND_FCM_MESSAGE_TEST]
AS
DECLARE @Object INT;
DECLARE @Status INT;
DECLARE @ResponseText nvarchar(4000);
DECLARE @StatusText nvarchar(4000);
DECLARE @ResponseBody  nvarchar(4000);
DECLARE @Authorization nvarchar(4000) ='key=AAAA6koGkM8:APA91bGcnmbWVcPQeKwpD18IvBBqczuGU9VfzEVc_sS4vAuc8MuFjwR-laSb33jx60ra3efhzE-WLuNy7OitTMyqEZYW_Sdy75ipZX6Z9tqNbzygDWeFdbCJNw9SchVdayeeSvK-u2i0'
DECLARE @Sender nvarchar(4000) = 'id=1006994291535';

DECLARE @Success varchar(10);
DECLARE @ErrorCode varchar(10);
DECLARE @requestBody NVARCHAR(4000) = N'{
"to": "dAvktxTh6i8:345435345345435-V9ISsi2IVlnwnzyIFHWeQ0qmYn1KyLK_QIT-QeZH68FBe2kTBFrG70HfDOg-23I2WiTsDirfCWaBzsL0noL8OWe4E80jnLhlMIdqR",
"data": {
	"ShortDesc": "Some short desc",
	"IncidentNo": "any number",
	"Description": "detail desc"
  },
  "notification": {
	"title": "ServiceNow: Incident No. number",
    "text": "This is Notification",
	"sound":"default"
  }
}'

EXEC sp_OACreate 'WinHttp.WinHttpRequest.5.1', @Object OUT;
EXEC sp_OAMethod @Object, 'Open', NULL, 'POST',  'https://fcm.googleapis.com/fcm/send', 'false'
EXEC sp_OAMethod @Object, 'setRequestHeader', null, 'Content-Type', 'application/json; charset=utf-8'
DECLARE @len INT = len(@requestBody) 
EXEC sp_OAMethod @Object, 'setRequestHeader', null, 'Content-Length', @len
EXEC sp_OAMethod @Object, 'setRequestHeader', null, 'Authorization', @Authorization
EXEC sp_OAMethod @Object, 'setRequestHeader', null, 'Sender', @Sender
EXEC sp_OAMethod @Object, 'send', null, @requestBody
EXEC sp_OAGetProperty @Object, 'Status', @Status OUTPUT
EXEC sp_OAGetProperty @Object, 'ResponseText', @ResponseText OUTPUT
EXEC sp_OAGetProperty @Object, 'statusText', @StatusText OUTPUT
EXEC sp_OADestroy @Object

PRINT cast(@Status as varchar(100)) +'('+@StatusText+') '+ @ResponseText