no ACBR eu só adicionei essas propriedades, fica em pnfsNFSe.pas
Não da p/ te passar tudo pq eu mechi muito nele , eu uso certificados em banco de dados aqui , mais algumas outras dependencias.
TIdentificacaoPrestador = class(TPersistent)
private
FCnpj: string;
FInscricaoMunicipal: string;
FInscricaoEstadual : String;
FSenha: string;
FCcm : Integer;
FFraseSecreta: string;
FcUF: integer;
FAliquotaSimplesNacional : String;
published
property Cnpj: string read FCnpj write FCnpj;
property InscricaoMunicipal: string read FInscricaoMunicipal write FInscricaoMunicipal;
property InscricaoEstadual : string read FInscricaoEstadual write FInscricaoEstadual; //usado por SIGSIS
property Ccm : Integer read FCCm write FCcm; //usado por SIGSIS
property AliquotaSimplesNacional : String read FAliquotaSimplesNacional write FAliquotaSimplesNacional; //usado por SIGSIS
property Senha: string read FSenha write FSenha; //usado por SIGSIS
// As propriedades abaixo são Utilizadas pelo provedor ISSDigital
property FraseSecreta: string read FFraseSecreta write FFraseSecreta;
property cUF: integer read FcUF write FcUF;
end;
mas p/ integração mesmo é bem simples, é só preencher e enviar, nada de gerar xml nem nada
(...)
WS := (Self.FHTTPRIO) as WebService_SigISSPortType;
CoInitialize(nil);
try
WS.GerarNota(DadosPrestador,DescricaoRPS,FRetornoNota,FErros);
finally
CoUninitialize;
end;
Result := (FRetornoNota.Resultado = 1);
if not Result then
begin
msgErro := RetornaErros;
if Length(msgErro) > 0 then
Raise Exception.Create(msgErro);
end;
(...)