(SQL Server) SOAP Request to https://paycenter.piraeusbank.gr/services/tickets/issuer.asmx

Sends a SOAP Request to https://paycenter.piraeusbank.gr/services/tickets/issuer.asmx

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    DECLARE @sTmp0 nvarchar(4000)
    -- This example requires the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    DECLARE @http int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Http', @http OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @soapXml int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Xml', @soapXml OUT

    -- Set the HTTP request's XML body to the following SOAP XML:
    -- <?xml version='1.0' encoding='UTF-8'?>
    -- <SOAP-ENV:Envelope SOAP-ENV:encodingStyle='http://schemas.xmlsoap.org/soap/encoding/' xmlns:SOAP-ENV='http://schemas.xmlsoap.org/soap/envelope/' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:SOAP-ENC='http://schemas.xmlsoap.org/soap/encoding/'>
    -- <SOAP-ENV:Body>
    -- <IssueNewTicket xmlns="http://piraeusbank.gr/paycenter/redirection">
    -- <Request>
    -- <Username xsi:type="xsd:string">TheUserNameOfCustomer</Username>
    -- <Password xsi:type="xsd:string">ThePasswordOfCustomer</Password>
    -- <MerchantId xsi:type="xsd:int">TheMerchantIdOfCustomer</MerchantId>
    -- <PosId xsi:type="xsd:int">ThePosId</PosId>
    -- <AcquirerId xsi:type="xsd:int">TheAcquirerId</AcquirerId>
    -- <MerchantReference xsi:type="xsd:string">str_MerchantReference</MerchantReference>
    -- <RequestType xsi:type="xsd:string">02</RequestType>
    -- <ExpirePreauth xsi:type="xsd:int">0</ExpirePreauth>
    -- <Amount xsi:type="xsd:decimal">strBankAmount</Amount>
    -- <CurrencyCode xsi:type="xsd:int">978</CurrencyCode>
    -- <Installments xsi:type="xsd:unsignedByte">0</Installments>
    -- <Bnpl xsi:type="xsd:unsignedByte">0</Bnpl>
    -- <Parameters xsi:type="xsd:string">SomeValue</Parameters>
    -- <BillAddrCity xsi:type="xsd:string"></BillAddrCity>
    -- <BillAddrCountry xsi:type="xsd:string">300</BillAddrCountry>
    -- <BillAddrLine1 xsi:type="xsd:string"> 7</BillAddrLine1>
    -- <BillAddrPostCode xsi:type="xsd:string"></BillAddrPostCode>
    -- <BillAddrState xsi:type="xsd:string"></BillAddrState>      
    -- <ShipAddrCity xsi:type="xsd:string"></ShipAddrCity>
    -- <ShipAddrCountry xsi:type="xsd:string"></ShipAddrCountry>
    -- <ShipAddrLine1 xsi:type="xsd:string"></ShipAddrLine1>
    -- <ShipAddrPostCode xsi:type="xsd:string"></ShipAddrPostCode>
    -- <ShipAddrState xsi:type="xsd:string"></ShipAddrState>
    -- <CardholderName xsi:type="xsd:string"></CardholderName>
    -- <Email xsi:type="xsd:string"></Email>
    -- <HomePhone xsi:type="xsd:string"></HomePhone>
    -- <MobilePhone xsi:type="xsd:string"></MobilePhone>    
    -- <WorkPhone xsi:type="xsd:string"></WorkPhone>
    -- </Request>
    -- </IssueNewTicket>
    -- </SOAP-ENV:Body>
    -- </SOAP-ENV:Envelope>

    DECLARE @soapXml nvarchar(4000)
    SELECT @soapXml = '...'

    DECLARE @req int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.HttpRequest', @req OUT

    EXEC sp_OASetProperty @req, 'HttpVerb', 'POST'
    EXEC sp_OASetProperty @req, 'SendCharset', 0
    EXEC sp_OAMethod @req, 'AddHeader', NULL, 'Content-Type', 'atext/xml; charset=utf-8'
    EXEC sp_OAMethod @req, 'AddHeader', NULL, 'SOAPAction', '???'
    EXEC sp_OASetProperty @req, 'Path', '/services/tickets/issuer.asmx'
    DECLARE @success int
    EXEC sp_OAMethod @req, 'LoadBodyFromString', @success OUT, @soapXml, 'utf-8'

    EXEC sp_OASetProperty @http, 'FollowRedirects', 1

    DECLARE @resp int
    EXEC sp_OAMethod @http, 'SynchronousRequest', @resp OUT, 'paycenter.piraeusbank.gr', 443, 1, @req
    EXEC sp_OAGetProperty @http, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 = 0
      BEGIN
        EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
      END
    ELSE
      BEGIN
        DECLARE @xmlResponse int
        EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Xml', @xmlResponse OUT

        EXEC sp_OAGetProperty @resp, 'BodyStr', @sTmp0 OUT
        EXEC sp_OAMethod @xmlResponse, 'LoadXml', @success OUT, @sTmp0
        EXEC sp_OAMethod @xmlResponse, 'GetXml', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @resp

      END

    EXEC @hr = sp_OADestroy @http
    EXEC @hr = sp_OADestroy @soapXml
    EXEC @hr = sp_OADestroy @req
    EXEC @hr = sp_OADestroy @xmlResponse


END
GO