Cobol Foro - Ver Mensaje Individual - Comunicação com maquina de pagamento GLORY

Paulo · 17.09.2026 16:22

Hola a todos.

Alguém tem experiencia de comunicar com as maquinas de receber dinheiro da GLORY ?

https://www.glory-global.com/pt-pt/p...-of-sale/ci-5/

Tenho estado a testar a comunicação com objectos da ChilKat, consigo comunicar mas não consigo obter resposta do pagamento.
A comunicação é por HTTP SOAP POST.
O codigo COBOL é adaptado do original VB.NET

Gracias

Código COBOL:

 
ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  ReturnValue  PIC 9(5).
 01  XMLRESP       PIC X(8196).
 01  WSLOCALFILE   PIC X(256).
 01  ENDPOINT      PIC X(1024).
 01  soapAction    PIC X(1024).
 01  contentType   PIC X(1024).
 01  SOAPRESP      PIC X(1024).
 01  sbRequestBody PIC X(1024).
 01  ERRO          PIC X(1024).
 PROCEDURE       DIVISION.
 
    MOVE "soapenv:Envelope" TO "Tag" OF ChilkatXml1
    INVOKE ChilkatXml1 "AddAttribute" USING "xmlns:soapenv" "http://schemas.xmlsoap.org/soap/envelope/" RETURNING ReturnValue
    INVOKE ChilkatXml1 "AddAttribute" USING "xmlns:bru" "http://www.glory.co.jp/bruebox.xsd" RETURNING ReturnValue
    INVOKE ChilkatXml1 "UpdateChildContent" USING "soapenv:Header" " "
    INVOKE ChilkatXml1 "UpdateChildContent" USING "soapenv:Body|bru:ChangeRequest|bru:Id" "?"
    INVOKE ChilkatXml1 "UpdateChildContent" USING "soapenv:Body|bru:ChangeRequest|bru:SeqNo" "?"
    INVOKE ChilkatXml1 "UpdateChildContent" USING "soapenv:Body|bru:ChangeRequest|bru:SessionID" "?"
    INVOKE ChilkatXml1 "UpdateChildContent" USING "soapenv:Body|bru:ChangeRequest|bru:Amount" 800 *> valor a pagar em centimos
    INVOKE ChilkatXml1 "UpdateAttrAt" USING "soapenv:Body|bru:ChangeRequest|Option" 1 "bru:type" "?" RETURNING ReturnValue
    INVOKE ChilkatXml1 "UpdateAttrAt" USING "soapenv:Body|bru:ChangeRequest|Cash" 1 "bru:type" "?" RETURNING ReturnValue
    INVOKE ChilkatXml1 "UpdateAttrAt" USING "soapenv:Body|bru:ChangeRequest|Cash" 1 "bru:note_destination" "?" RETURNING ReturnValue
    INVOKE ChilkatXml1 "UpdateAttrAt" USING "soapenv:Body|bru:ChangeRequest|Cash" 1 "bru:coin_destination" "?" RETURNING ReturnValue
    INVOKE ChilkatXml1 "UpdateAttrAt" USING "soapenv:Body|bru:ChangeRequest|Cash|Denomination" 1 "bru:cc" "?" RETURNING ReturnValue
    INVOKE ChilkatXml1 "UpdateAttrAt" USING "soapenv:Body|bru:ChangeRequest|Cash|Denomination" 1 "bru:fv" "?" RETURNING ReturnValue
    INVOKE ChilkatXml1 "UpdateAttrAt" USING "soapenv:Body|bru:ChangeRequest|Cash|Denomination" 1 "bru:rev" "?" RETURNING ReturnValue
    INVOKE ChilkatXml1 "UpdateAttrAt" USING "soapenv:Body|bru:ChangeRequest|Cash|Denomination" 1 "bru:devid" "?" RETURNING ReturnValue
    INVOKE ChilkatXml1 "UpdateChildContent" USING "soapenv:Body|bru:ChangeRequest|Cash|Denomination|bru:Piece" "?"
    INVOKE ChilkatXml1 "UpdateChildContent" USING "soapenv:Body|bru:ChangeRequest|Cash|Denomination|bru:Status" "?"
*
    INVOKE ChilkatHttp1 "SetRequestHeader" USING "Connection" "Keep-Alive"
    INVOKE ChilkatHttp1 "SetRequestHeader" USING "SOAPAction" '"ChangeOperation"'
    INVOKE ChilkatHttp1 "SetRequestHeader" USING "Content-Type" "text/xml;charset=UTF-8"
    INVOKE ChilkatHttp1 "SetRequestHeader" USING "Accept-Encoding" "gzip,deflate"
*
    INVOKE ChilkatXml1 "GetXml" RETURNING sbRequestBody
    DISPLAY sbRequestBody.
*
    INVOKE ChilkatStringBuilder1 "Append" USING sbRequestBody RETURNING ReturnValue
*   display "Append ReturnValue " ReturnValue.
    
    
    MOVE 1 TO "VerboseLogging" OF ChilkatHttpResponse1
    
    
    MOVE 600 TO "ConnectTimeout" OF ChilkatHttp1.
    MOVE 600 TO "ReadTimeout" OF ChilkatHttp1.
    
    
    
    INVOKE ChilkatHttp1 "PTextSb" USING "POST" "https://192.168.0.25/axis2/services/BrueBoxService" ChilkatStringBuilder1 
                                        "utf-8" "text/xml;charset=UTF-8" 0 0 RETURNING ChilkatHttpResponse1.
                                        
    IF "LastMethodSuccess" OF ChilkatHttp1 = 0
       DISPLAY "ChilkatHttp1 ERRO: "
       MOVE "LastErrorText" OF ChilkatHttp1 TO ERRO
       DISPLAY ERRO
    ELSE
       DISPLAY "ChilkatHttp1 SEM ERRO"
       STOP " ".
*
    IF "LastMethodSuccess" OF ChilkatHttpResponse1 = 0
       DISPLAY "ChilkatHttpResponse1 ERRO: "
       MOVE "LastErrorText" OF ChilkatHttpResponse1 TO ERRO
       DISPLAY ERRO
    ELSE
       DISPLAY "ChilkatHttpResponse1 SEM ERRO"
       STOP " ".
 
 
 
 
      
    stop " fez pedido, resposta :"
    
*   MOVE "TakeResponseBody" TO "UncommonOptions" OF ChilkatHttpResponse1
 
 
*   INVOKE ChilkatHttpResponse1 "GetBodySb" USING sbRequestBody RETURNING ReturnValue
*   INVOKE ChilkatHttpResponse1 "GetBodyXml" USING ChilkatXml1 RETURNING ReturnValue
*   display "GetBodyXml ReturnValue " ReturnValue.
*   INVOKE ChilkatXml1 "GetXml" RETURNING sbRequestBody
*   display "RESPOSTA " 
*   DISPLAY sbRequestBody.
    
    
    
*   MOVE "StatusCode" OF ChilkatHttpResponse1 TO ReturnValue.
*   DISPLAY "StatusCode "  ReturnValue.
    
    
    
*   INVOKE ChilkatHttpResponse1 "SaveBodyText" USING 1 "RESPOSTA.XML" RETURNING ReturnValue
*   DISPLAY "StatusCode "  ReturnValue.
    
    
*   MOVE "BodyStr" OF ChilkatHttpResponse1 TO SOAPRESP.
*   DISPLAY "BodyStr"
*   DISPLAY SOAPRESP.
    
*   IF "LastMethodSuccess" OF ChilkatHttpResponse1 = 0
*      DISPLAY "ChilkatHttpResponse1 ERRO: "
*      MOVE "LastErrorText" OF ChilkatHttpResponse1 TO XML
*      DISPLAY XML
*   ELSE
*      DISPLAY "ChilkatHttpResponse1 SEM ERRO"
*      STOP " ".
     
     
     
     
*' This example assumes the Chilkat API to have been previously unlocked.
*' See Global Unlock Sample for sample code.
 
*Dim http As New Chilkat.Http
*Dim success As Boolean
 
*' Use this online tool to generate code from sample XML: Generate Code to Create XML
 
*' The following XML is sent in the request body.
 
*' <?xml version="1.0" encoding="utf-8"?>
*' <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:bru="http://www.glory.co.jp/bruebox.xsd">
*'     <soapenv:Header/>
*'     <soapenv:Body>
*'         <bru:ChangeRequest>
*'             <bru:Id>?</bru:Id>
*'             <bru:SeqNo>?</bru:SeqNo>
*'             <bru:SessionID>?</bru:SessionID>
*'             <bru:Amount>600</bru:Amount>
*'             <Option bru:type="?"/>
*'             <Cash bru:type="?" bru:note_destination="?" bru:coin_destination="?">
*'                 <Denomination bru:cc="?" bru:fv="?" bru:rev="?" bru:devid="?">
*'                     <bru:Piece>?</bru:Piece>
*'                     <bru:Status>?</bru:Status>
*'                 </Denomination>
*'             </Cash>
*'         </bru:ChangeRequest>
*'     </soapenv:Body>
*' </soapenv:Envelope>
*' 
 
*Dim xml As New Chilkat.Xml
*xml.Tag = "soapenv:Envelope"
*xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
*xml.AddAttribute("xmlns:bru","http://www.glory.co.jp/bruebox.xsd")
*xml.UpdateChildContent("soapenv:Header","")
*xml.UpdateChildContent("soapenv:Body|bru:ChangeRequest|bru:Id","?")
*xml.UpdateChildContent("soapenv:Body|bru:ChangeRequest|bru:SeqNo","?")
*xml.UpdateChildContent("soapenv:Body|bru:ChangeRequest|bru:SessionID","?")
*xml.UpdateChildContentInt("soapenv:Body|bru:ChangeRequest|bru:Amount",600)
*xml.UpdateAttrAt("soapenv:Body|bru:ChangeRequest|Option",True,"bru:type","?")
*xml.UpdateAttrAt("soapenv:Body|bru:ChangeRequest|Cash",True,"bru:type","?")
*xml.UpdateAttrAt("soapenv:Body|bru:ChangeRequest|Cash",True,"bru:note_destination","?")
*xml.UpdateAttrAt("soapenv:Body|bru:ChangeRequest|Cash",True,"bru:coin_destination","?")
*xml.UpdateAttrAt("soapenv:Body|bru:ChangeRequest|Cash|Denomination",True,"bru:cc","?")
*xml.UpdateAttrAt("soapenv:Body|bru:ChangeRequest|Cash|Denomination",True,"bru:fv","?")
*xml.UpdateAttrAt("soapenv:Body|bru:ChangeRequest|Cash|Denomination",True,"bru:rev","?")
*xml.UpdateAttrAt("soapenv:Body|bru:ChangeRequest|Cash|Denomination",True,"bru:devid","?")
*xml.UpdateChildContent("soapenv:Body|bru:ChangeRequest|Cash|Denomination|bru:Piece","?")
*xml.UpdateChildContent("soapenv:Body|bru:ChangeRequest|Cash|Denomination|bru:Status","?")
 
*http.SetRequestHeader("Host","www.chilkatsoft.com")
*http.SetRequestHeader("Connection","Keep-Alive")
*http.SetRequestHeader("SOAPAction","""ChangeOperation""")
*http.SetRequestHeader("Content-Type","text/xml;charset=UTF-8")
*http.SetRequestHeader("Accept-Encoding","gzip,deflate")
*http.SetRequestHeader("User-Agent","Apache-HttpClient/4.5.5 (Java/16.0.2)")
 
*Dim sbRequestBody As New Chilkat.StringBuilder
*xml.GetXmlSb(sbRequestBody)
 
*Dim resp As Chilkat.HttpResponse = http.PTextSb("POST","https://example.com/replace_this_with_actual_path",sbRequestBody,"utf-8","text/xml;charset=UTF-8",False,False)
*If (http.LastMethodSuccess = False) Then
*    Debug.WriteLine(http.LastErrorText)
*    Exit Sub
*End If
 
 
*Debug.WriteLine(resp.StatusCode)
*Debug.WriteLine(resp.BodyStr)

Likes