Código Delphi [-]
function TdmSIGCZFE.generarQR(
                              _QRVersion : AnsiString;                      // Version del Manual Técnico = 150
                              _QRId : AnsiString;                             // código CDC string de 44 caracteres 
                              _QRdFeEmiDE : AnsiString;                 // Fecha emision del D.E.
                              _QRdRucRec : AnsiString;                   // RUC del contribuyente
                              _QRdTotGralOpe : AnsiString;             // importe total de la operación
                              _QRdTotIVA : AnsiString;                   // importe del IVA de la operación
                              _QRcItems : AnsiString;                    // cantidad de items facturado
                              _QRDigestValue : AnsiString;            // Digest de la firma
                              _QRIdCSC : AnsiString;                    // id del Codigo CSC facilitado por la SET para la generación de la url (puede haber 2)
                              _QRCSC : AnsiString): AnsiString;    // Código CSC facilitado por la SET para la generación de la url  (puede haber 2)
var
      _cHashQR : AnsiString;
      _QR,_QRCalcHash : AnsiString;
begin

      _QR := 'nVersion='+_QRVersion +'&' +
              'Id='+_QRId+'&' +
              'dFeEmiDE='+ lowercase((String2Hex(_QRdFeEmiDE))) +'&' +   //convertimos la fecha en su valor hexadecimal
              ''+_QRdRucRec +'&' +
              'dTotGralOpe='+_QRdTotGralOpe + '&' +
              'dTotIVA='+ _QRdTotIVA + '&' +
              'cItems='+ _QRcItems + '&' +
              'DigestValue=' + lowercase((String2Hex(_QRDigestValue))) + '&' +  //convertimos el digest de la firma en su valor hexadecimal
              'IdCSC=' + _QRIdCSC;


      _QRCalcHash := _QR + _QRCSC;                              // al valor calculado en paso anterior se adiciona el codigo CSC
      _cHashQR    :=  GetStrHashSHA256(_QRCalcHash);  // el resultado del paso anterior lo Generaramos el Hash

      _QR := _QR + '&cHashQR=' + _cHashQR;

      if idAmbienteActual = 1 then // ambiente de prueba
            _QR := urlQRPrueba + _QR
      else  if idAmbienteActual = 2 then  // ambiente de producción
            _QR := urlQRProduccion + _QR;

      result := StringReplace(_QR,'&','&',[rfReplaceAll, rfIgnoreCase]);  // escapamos el & por '&'
end;

Código Delphi [-]
function String2Hex(const Buffer: AnsiString): string;
begin
  SetLength(Result, Length(Buffer) * 2);
  BinToHex(PAnsiChar(Buffer), PChar(Result), Length(Buffer));
end;

Código Delphi [-]
function GetStrHashSHA256(Str: String): String;
var
  HashSHA: THashSHA2;
begin
    HashSHA := THashSHA2.Create;
    HashSHA.GetHashString(Str);
    result := HashSHA.GetHashString(Str,SHA256);
end;

Código Delphi [-]
  function  rEnviDe(const rEnviDe: UnicodeString): UnicodeString; stdcall;

Código Delphi [-]
procedure TdmRIO.findClientCertificate(
  const Sender: TObject; const ARequest: TURLRequest;
  const ACertificateList: TCertificateList; var AnIndex: Integer);
var
    i : integer;
begin
      for I := 0 to ACertificateList.Count-1 do begin
          if SameText(ACertificateList[i].SerialNum,'74926b31c944fe9648575fa99162761a') then begin
            AnIndex := I;
            break;
          end;
      end;
end;

Código Delphi [-]
 HTTPRIOConsultaRUC.HTTPWebNode.ClientCertificate.SerialNum := '74926b31c944fe9648575fa99162761a';
 HTTPRIOConsultaRUC.HTTPWebNode.OnNeedClientCertificate := findClientCertificate;
 HTTPRIOConsultaRUC.OnBeforeExecute := BeforeExecute;
 HTTPRIOConsultaRUC.OnAfterExecute  := AfterExecute;

Código Delphi [-]
HTTPRIOConsultaRUC.HTTPWebNode.SecureProtocols := [THTTPSecureProtocol.TLS11];

Código Delphi [-]
procedure TdmRIO.BeforeExecute(const MethodName: string;
  SOAPRequest: TStream);
begin

    SOAPRequest.Size:=0;
    ssResponse:=TStringStream.Create(UTF8Encode(ssRequest.DataString));
    SOAPRequest.Position := 0;
    SOAPRequest.CopyFrom( ssResponse, ssResponse.Size);
    ssResponse.Free;
    SOAPRequest.Position := 0;
end;

Código Delphi [-]
FHttpRio.HTTPWebNode.URL        := Url;
 FHttpRio.HTTPWebNode.SOAPAction := ''; // URLSoapAction + Qualificador;
 Acao := TStringList.Create;
  try
    Acao.Text := SOAP;
    Acao.SaveToFile( 'P:\prueba.xml' );
    Stream := TMemoryStream.Create;
    try
      FHttpRio.HTTPWebNode.Execute( Acao.Text, Stream );
      StrStream := TStringStream.Create( '', TEncoding.UTF8 );
      try
        StrStream.LoadFromStream( Stream );
        Resposta := TStringList.Create;
        try
          Resposta.Delimiter := '|';
          Resposta.Text      := StrStream.DataString;
          LTempXMLDoc := LoadXMLData( Resposta.Text );
          Node        := LTempXMLDoc.DocumentElement;
          if Node.ChildNodes.Count = 2 then
            Node := Node.ChildNodes[ 1 ].ChildNodes[ 0 ].ChildNodes[ 0 ]
          else if Node.ChildNodes.Count = 1 then
            Node := Node.ChildNodes[ 0 ].ChildNodes[ 0 ].ChildNodes[ 0 ];
          Result := Node.XML;
        finally
          Resposta.Free;
        end;
      finally
        StrStream.Free;
      end;
    finally
      Stream.Free;
    end;
  finally
    Acao.Free;
  end;