Tema: Comunicação com maquina de pagamento GLORY
Ver Mensaje Individual
  #4
Antiguo 17 de julio de 2024, 10:37
Paulo
Forero Senior
Última Actividad 17.09.2026 16:22
Posts Posts: 101
Likes enviados Enviados: 25
Likes recibidos Recibidos: 33
Predeterminado
0
Likes

None...

Inactivo Inactivo
Hola a todos.
Fiz outra rotina usando comunicação por WinHttp.WinHttpRequest.5.1, não consigo comunicar com o endpoint.
Aparentemente falta a autenticação, mas na verdade não existe qualquer autenticação, por isso algo devo estar a configurar errado.
Anexo o erro e o codigo.
Se alguem me puder ajudar, agradeço.

Gracias

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01 WINHTTP               PIC X(128) VALUE "WinHttp.WinHttpRequest.5.1".
  5.  
  6.  01 xTraffic-Conditions   PIC X(1024).
  7.      
  8.  01 WEBSERVICE USAGE OBJECT REFERENCE COM.
  9.  
  10.  01 METODO   PIC X(256) VALUE "POST".
  11.  01 ENDPOINT PIC X(256) VALUE "https://192.168.0.25/axis2/services/BrueBoxService". 
  12.  01 LIGACAO  PIC X(256) VALUE "FALSE". *> comunicação -> True = asyn / False = sync
  13. *
  14.  01 OP11 PIC X(256) VALUE "Connection" .
  15.  01 OP12 PIC X(256) VALUE "Keep-Alive".
  16.  01 OP21 PIC X(256) VALUE "SOAPAction" .
  17.  01 OP22 PIC X(256) VALUE "ChangeOperation".
  18.  01 OP31 PIC X(256) VALUE "Content-Type" .
  19.  01 OP32 PIC X(256) VALUE "text/xml;charset=UTF-8".
  20.  01 OP41 PIC X(256) VALUE "Accept-Encoding" .
  21.  01 OP42 PIC X(256) VALUE "gzip,deflate".
  22. * 01 OP51 PIC X(256) VALUE "Authorization" .
  23. * 01 OP52 PIC X(256) VALUE "Basic user:123".
  24.  01 OP99 PIC X(256) VALUE SPACES.
  25.  
  26.  01 RESPOSTA    PIC X(8192).
  27.  
  28.  01 resultado1   PIC X(5).
  29.  01 resultado2   PIC X(5).
  30.  
  31.  01  long pic 9(5).
  32.  
  33.  01 WSVALOR      PIC 9(06).
  34.  01  wsvaleur   pic 9(4)v99.
  35.  01  wsvalcent  pic 9(6).
  36.  
  37.  PROCEDURE       DIVISION. 
  38.  MAIN SECTION.
  39.  MAIN-00.
  40.  
  41.     MOVE "TEXT" OF CmPrcVenda TO wsvaleur.
  42.     IF wsvaleur = ZERO
  43.        MOVE 8 TO "TEXT" OF CmPrcVenda
  44.        MOVE 8 TO wsvaleur.
  45.     compute wsvalcent = wsvaleur * 100.
  46.     MOVE wsvalcent TO "CAPTION" OF CmFrValLinha.
  47.  
  48.     MOVE wsvalcent TO WSVALOR.
  49.          
  50.     MOVE POW-TRUE TO "EmitCompact" OF ChilkatXml1. *> PARA NÃO TER  CR/LF NO XML
  51.          
  52.     MOVE "soapenv:Envelope" TO "Tag" OF ChilkatXml1
  53.     INVOKE ChilkatXml1 "AddAttribute" USING "xmlns:soapenv" "http://schemas.xmlsoap.org/soap/envelope/" RETURNING ReturnValue
  54.     INVOKE ChilkatXml1 "AddAttribute" USING "xmlns:bru" "http://www.glory.co.jp/bruebox.xsd" RETURNING ReturnValue
  55.     INVOKE ChilkatXml1 "UpdateChildContent" USING "soapenv:Header" " "
  56.     INVOKE ChilkatXml1 "UpdateChildContent" USING "soapenv:Body|bru:ChangeRequest|bru:Id" "?"
  57.     INVOKE ChilkatXml1 "UpdateChildContent" USING "soapenv:Body|bru:ChangeRequest|bru:SeqNo" "?"
  58.     INVOKE ChilkatXml1 "UpdateChildContent" USING "soapenv:Body|bru:ChangeRequest|bru:SessionID" "?"
  59.     INVOKE ChilkatXml1 "UpdateChildContent" USING "soapenv:Body|bru:ChangeRequest|bru:Amount" WSVALOR *> valor a pagar em centimos
  60.     INVOKE ChilkatXml1 "UpdateAttrAt" USING "soapenv:Body|bru:ChangeRequest|Option" 1 "bru:type" "?" RETURNING ReturnValue
  61.     INVOKE ChilkatXml1 "UpdateAttrAt" USING "soapenv:Body|bru:ChangeRequest|Cash" 1 "bru:type" "?" RETURNING ReturnValue
  62.     INVOKE ChilkatXml1 "UpdateAttrAt" USING "soapenv:Body|bru:ChangeRequest|Cash" 1 "bru:note_destination" "?" RETURNING ReturnValue
  63.     INVOKE ChilkatXml1 "UpdateAttrAt" USING "soapenv:Body|bru:ChangeRequest|Cash" 1 "bru:coin_destination" "?" RETURNING ReturnValue
  64.     INVOKE ChilkatXml1 "UpdateAttrAt" USING "soapenv:Body|bru:ChangeRequest|Cash|Denomination" 1 "bru:cc" "?" RETURNING ReturnValue
  65.     INVOKE ChilkatXml1 "UpdateAttrAt" USING "soapenv:Body|bru:ChangeRequest|Cash|Denomination" 1 "bru:fv" "?" RETURNING ReturnValue
  66.     INVOKE ChilkatXml1 "UpdateAttrAt" USING "soapenv:Body|bru:ChangeRequest|Cash|Denomination" 1 "bru:rev" "?" RETURNING ReturnValue
  67.     INVOKE ChilkatXml1 "UpdateAttrAt" USING "soapenv:Body|bru:ChangeRequest|Cash|Denomination" 1 "bru:devid" "?" RETURNING ReturnValue
  68.     INVOKE ChilkatXml1 "UpdateChildContent" USING "soapenv:Body|bru:ChangeRequest|Cash|Denomination|bru:Piece" "?"
  69.     INVOKE ChilkatXml1 "UpdateChildContent" USING "soapenv:Body|bru:ChangeRequest|Cash|Denomination|bru:Status" "?"
  70.     
  71.     
  72.     INVOKE ChilkatXml1 "GetXml" RETURNING xTraffic-Conditions
  73.     
  74.     display xTraffic-Conditions
  75.     
  76.     
  77.     STOP " VAI FAZER CREATE OBJECT"     
  78.          
  79.     INVOKE COM "CREATE-OBJECT" USING WINHTTP RETURNING WEBSERVICE.
  80.         
  81.     
  82.     STOP " VAI FAZER WEBSERVICE OPEN"  
  83.     
  84.     INVOKE WEBSERVICE "OPEN" USING METODO ENDPOINT LIGACAO.
  85. *  
  86.     INVOKE WEBSERVICE "SetRequestHeader" USING OP11 OP12
  87.     INVOKE WEBSERVICE "SetRequestHeader" USING OP21 OP22
  88.     INVOKE WEBSERVICE "SetRequestHeader" USING OP31 OP32
  89.     INVOKE WEBSERVICE "SetRequestHeader" USING OP41 OP42
  90. *   INVOKE WEBSERVICE "SetRequestHeader" USING OP51 OP52
  91. *
  92.     
  93.     STOP " VAI FAZER WEBSERVICE send". 
  94.         
  95.     INVOKE WEBSERVICE "send" USING xTraffic-Conditions.
  96.         
  97.         
  98.         
  99.     STOP " VAI FAZER WEBSERVICE get-Responsetext"  
  100.     
  101.     INVOKE WEBSERVICE "get-Responsetext" RETURNING RESPOSTA.
  102.      
  103.     display RESPOSTA.
  104.     
  105.     
  106.        
  107.     EXIT PROGRAM
Imágenes Adjuntas
 
Paulo is offline   Responder Con Cita