Código Delphi [-]
function PFXImportCertStore(var pPFX: CRYPT_DATA_BLOB; szPassword: LPCWSTR; dwFlags: DWORD): HCERTSTORE; stdcall; external 'Crypt32.dll';

Código Delphi [-]
HTTPRIOHTTPWebNodeBeforePost(const HTTPReqResp: THTTPReqResp; Client: THTTPClient)

Código Delphi [-]
const
     PKCS12_INCLUDE_EXTENDED_PROPERTIES  = $0010;
     CERT_COMPARE_HAS_PRIVATE_KEY        = 21;
     CERT_FIND_HAS_PRIVATE_KEY           = CERT_COMPARE_HAS_PRIVATE_KEY shl CERT_COMPARE_SHIFT;
var
   Almacen: HCERTSTORE;
   Certificado: PCERT_CONTEXT;
   DataBlob: CRYPT_DATA_BLOB;
   PFX: TBytes;
begin
     Almacen := nil;
     Certificado := nil;
     PFX := TFile.ReadAllBytes(Cert.Text);
     Try
        DataBlob.cbData := Length(PFX);
        DataBlob.pbData := @PFX[0];

        // Defino mi almacén con el único certificado seleccionado, en lugar del almacén con todos los certificados de Windows
        Almacen := PFXImportCertStore(DataBlob, PWideChar(Pwd.Text), PKCS12_INCLUDE_EXTENDED_PROPERTIES);
        If not Assigned(Almacen) Then
            Salida.Lines.Add('[ERROR] No se pudo importar el certificado seleccionado.')  //RaiseLastOSError;
        Else
        Begin
             Certificado := CertFindCertificateInStore(Almacen, X509_ASN_ENCODING, 0, CERT_FIND_HAS_PRIVATE_KEY, nil, nil);
             If not Assigned(Certificado) Then
                 Salida.Lines.Add('[ERROR] No se pudo encontrar el certificado digital en el contexto actual, o bien no tiene clave privada.');  //RaiseLastOSError;
        End;
     Finally
            If Assigned(Certificado) Then CertFreeCertificateContext(Certificado);
            If Assigned(Almacen) Then CertCloseStore(Almacen, 0);
     End;
end;

Código Delphi [-]
HTTPRIOHTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp; Client: THTTPClient)

Código Delphi [-]
var
   CertStream: TMemoryStream;
begin
     CertStream := TMemoryStream.Create;
     CertStream.LoadFromFile(Cert.Text);
     HTTPReqResp.ClientCertificate.Stream := CertStream;
     HTTPReqResp.ClientCertificate.Password := Pwd.Text;
end;

Código SQL [-]
  IVASP: InversionSujetoPasivo;

Código SQL [-]
   ARegistroLRFacturasRecibidas[N].FacturaRecibida.desglosefactura.InversionSujetoPasivo:=IVASP;

Código Delphi [-]
  Ivas[1]:=DetalleIVARecibidaType.Create;
  IVAS[1].BaseImponible:=Edit3.Text;            // BASE IMPONIBLE
  IVAS[1].TipoImpositivo:=Edit13.Text;            // IVA %
  IVAS[1].CuotaSoportada:=Edit14.Text;
  If CheckBox2.Checked Then    // Si es un bien de inversión.
  Begin
     Ivas[1].BienInversion:=BienInversionType(0);
  End;

Código Delphi [-]
  Ivas[0]:=DetalleIVARecibida2Type.Create;
  IVAS[0].BaseImponible:=Edit3.Text;            // BASE IMPONIBLE
  IVAS[0].TipoImpositivo:=Edit13.Text;            // IVA %
  IVAS[0].CuotaSoportada:=Edit14.Text;
  If CheckBox2.Checked Then    // Si es un bien de inversión.
  Begin
     Ivas[0].BienInversion:=BienInversionType(0);
  End;