Ayuda con un servicio SOAP de impuestos en Bolivia con TOKEN en delphi

[CrazySoft]

les solicito una vez más ayuda, no puedo consumir el servicio, este es un ejemplo en PHP
gracias por su colaboración

Código PHP:

<?php
 /** Ejemplo de manejo de SOAP con libreria de PHP php-soap */
 $wsdl = "https://pilotosiatservicios.impuestos.gob.bo/v2/FacturacionCodigos?wsdl";
 $token = 'VALOR_TOKEN';
 $opts = array(
      'http' => array(
           'header' => "Authorization: Token $token"
      )
);
 $context = stream_context_create($opts);
 $client = new \SoapClient($wsdl, [
      'stream_context' => $context,
      'cache_wsdl' => WSDL_CACHE_NONE,
      'compression' => SOAP_COMPRESSION_ACCEPT | SOAP_COMPRESSION_GZIP | SOAP_COMPRESSION_DEFLATE
 
      // other options
]);
 $respons = $client->verificarComunicacion();
?>

este es código en Delphi pero da el siguiente error "EL SERVICIO REQUIERE API KEY", supongo que es por el encabezado

Código Delphi [-]
procedure TForm1.Button5Click(Sender: TObject);
 const   Token = 'VALOR_TOKEN';
 type   TAuthHeader = class(TSOAPHeader)
 private     Tokey: WideString;   
published   
end;   
var  
  Peticion: respuestaComunicacion;   
  Respuesta: ServicioFacturacionCodigos;   
  Headers: ISOAPHeaders;   
  key: TAuthHeader;   
  HTTPRio: THTTPRio; 
begin    
  HTTPRio := THTTPRio.Create(self);   
  try     
    key := TAuthHeader.Create;     
    key.Tokey := 'Authorization: Token ' + Token;      
    Headers := HTTPRIO as ISoapHeaders;      
    Respuesta := GetServicioFacturacionCodigos(False, '', HTTPRIO);      
    (Respuesta as ISOAPHeaders).Send(key);      
    try       
      Respuesta.verificarComunicacion;  //sale error: EL SERVICIO REQUIERE API KEY     
    except       
      on E: Exception do         
        ShowMessage('Error : ' + E.Message);     
    end;    
  finally     
  key.Free;   
end;  
end;

[Casimiro Noteví]

Seguramente la "key" debas indicarlo en la cabecera, mira este enlace a ver si te sirve.

[CrazySoft]

Gracias Casimiro, por la ayuda pero añadi el evento y sigue dando el mismo error, probe cambiando la autentificacion y codificando en base64 el token

Código Delphi [-]
procedure TForm1.HTTPRIO1HTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
  auth: string;

begin

  auth := 'Authorization: Basic ' + token;
//  auth := 'Authorization: Token ' + token;
//  auth := 'Authorization: Basic ' + idEncoderMIME1.EncodeString(token);
//  auth := 'Authorization: Token ' + idEncoderMIME1.EncodeString(token);

  HttpAddRequestHeaders(Data, PChar(auth), Length(auth), HTTP_ADDREQ_FLAG_ADD);

end;

[Casimiro Noteví]

Empezado por CrazySoft

Gracias Casimiro, por la ayuda pero añadi el evento y sigue dando el mismo error, probe cambiando la autentificacion y codificando en base64 el token

Es que no se trata de que pruebes y pruebes y pruebes distintas cosas, sino de hacer lo que digan los requisitos de ese servicio. ¿No tienes la documentación?

[CrazySoft]

Gracias Casimiro, si deberia de estar en la documentación que sería lo ideal, pero lastimosamente ya no la encuentro la documentación o el ejemplo de conexión, porque volivieron a actualizar la pagina https://siatinfo.impuestos.gob.bo/in...cion-fact-comp

[Casimiro Noteví]

Ahí hay mucho que mirar, y efectivamente, en el menú han quitado la opción donde en teoría explican lo que necesitas.
Pregunto, ¿es obligatorio usar ese sistema?

[CrazySoft]

Empezado por Casimiro Notevi

Ahí hay mucho que mirar, y efectivamente, en el menú han quitado la opción donde en teoría explican lo que necesitas.
Pregunto, ¿es obligatorio usar ese sistema?

Si, es obligatorio pero lo estan hacendo de manera incrementa