Взаимодействие Oracle и 1С через SOAP сервис : Бэк-офисы платформы 1С

create or replace procedure SOAP_TEST as


-- SOAP REQUESTS/RESPONSE
   soap_req_msg    VARCHAR2 (2000);

   -- HTTP REQUEST/RESPONSE
   http_req        UTL_HTTP.req;
   http_resp       UTL_HTTP.resp;
   
  l_text           varchar2(32767);
  v_http_response  CLOB;   

  l_userid         varchar2(100) := 'WebService';
  l_passwd         varchar2(100) := '';
  l_url            varchar2(1000) := 'http://'||l_userid||':'||l_passwd||'@192.168.0.68/ka_centr/ru_RU/ws/SuperMag.1cws?wsdl';

BEGIN
   --
   -- Create SOAP request via HTTP
   --
   soap_req_msg :=
      '<soapenv:Envelope xmlns:soapenv="http://www.w3.org/2003/05/soap-envelope">
         <soapenv:Header xmlns:wsa="http://www.w3.org/2005/08/addressing">
           <wsa:MessageID>urn:uuid:1d66c9a8-b5e2-4c7a-9649-0bd63a590372</wsa:MessageID>
           <wsa:Action>http://tempuri.org/IDataInterfaceService/Connect</wsa:Action>
           <wsa:To>http://192.168.0.68:80/</wsa:To>
          </soapenv:Header>
          <soapenv:Body>
            <noxt:GET>
              <noxt:Parameters>
                  <operation name="GET">
                    <soapbind:operation style="document"
                        soapAction="GET"/>
                    <input>
                      <soapbind:body use="Doc123"/>
                    </input>
                    <output>
                      <soapbind:body use="literal"/>
                    </output>
                  </operation>
              
              </noxt:Parameters>
            </noxt:GET>

          </soapenv:Body>
       </soapenv:Envelope>';

   UTL_HTTP.set_proxy('localhost:8080');
   http_req :=UTL_HTTP.begin_request(l_url, 'POST', 'HTTP/1.1');
   UTL_HTTP.set_header (http_req, 'Accept-Encoding', 'gzip,deflate');
   UTL_HTTP.set_header (http_req, 'Content-Type', 'application/soap+xml;charset=UTF-8;action="http://tempuri.org/IDataInterfaceService/Connect"');
   UTL_HTTP.set_header (http_req, 'Content-Length', length(soap_req_msg));

   UTL_HTTP.set_header (http_req, 'User-Agent', 'Oracle');
   UTL_HTTP.write_text (http_req, soap_req_msg);

  dbms_output.put_line(' ');
  --
   -- Invoke Request and get Response.
   --
   http_resp := UTL_HTTP.get_response(http_req);
  -- Copy the response into the BLOB.
  DBMS_LOB.createtemporary(v_http_response, FALSE); 
  BEGIN
    LOOP
        UTL_HTTP.read_text(http_resp, l_text, 32767);
        DBMS_LOB.writeappend (v_http_response, length(l_text), l_text);
    END LOOP;
  EXCEPTION
    WHEN UTL_HTTP.end_of_body THEN
      UTL_HTTP.end_response(http_resp);
  END;     
  
  --v_http_response := HTTPURITYPE(l_url).getclob;
   
  insert into soap_log(text) values(v_http_response);
  commit;
END SOAP_TEST;