Painel de líderes

Gostaria de Solicitar aos moderadores que avaliem a inclusão das funções de conversão abaixo no arquivo Fontes: \ACBrTXT\ACBrSPED\ACBrSPEDFiscal.pas. Arquivo completo em anexo {Fabiano Cunha - 26/11/2017} function IndTipoTituloToStr(AValue: TACBrTipoTitulo): string; begin case AValue of tcDuplicata: Result:= '00'; tcCheque: Result:= '01'; tcPromissoria: Result:= '02'; tcRecibo: Result:= '03'; tcOutros: Result:= '99'; else Result:= EmptyStr; end; end; {Fabiano Cunha - 26/11/2017} function StrToIndTipoTitulo(AValue: string): TACBrTipoTitulo; begin if AValue = '00' then Result:= tcDuplicata else if AValue = '01' then Result:= tcCheque else if AValue = '02' then Result:= tcPromissoria else if AValue = '03' then Result:= tcRecibo else if AValue = '99' then Result:= tcOutros else raise Exception.Create(format('Valor informado [%s] deve estar (00,01,02,03,99)',[AValue])); end; ACBrEFDBlocos.pas

Essa realmente é a solução para o problema. Obrigado, EliasCesar! Uma dica para quem enfrentou esse problema: aqui utilizamos o software Format Factory para converter imagens em bmp monocromático para pcx e tem dado certo. Citei o nome do software porque esse funcionou corretamente, já que testamos outros conversores sem sucesso.

Lembrando que para usar CAPICOM ou WinCrypt, o certificado precisa ser previamente instalado e testado, no Windows... e no caso de certificados A3, você deve informar o número de série do mesmo...

Bom dia pessoal, desculpem ressucitar o tópico mas é pq encontrei o porquê do meu problema aqui vai a explicação e solução: No meu código configuro o componente assim: ACBrNFe1.Configuracoes.Certificados.NumeroSerie := Query.FieldByName('Certificado_Serie').AsString; Isso executa o código abaixo: procedure TCertificadosConf.SetNumeroSerie(const AValue: String); begin if FNumeroSerie = AValue then Exit; FNumeroSerie := Trim(UpperCase(StringReplace(AValue, ' ', '', [rfReplaceAll]))); TACBrDFe(FConfiguracoes.Owner).SSL.NumeroSerie := AValue; end; O problema está no seguinte FNumero recebe AValue após este ser modificado para maiúsculas e ter os espaços removidos, ao passo que SSL.NumeroSerie recebe apenas AValue, lá na frente quando é necessário usar o certificado na unit ACBrDFeCapicom.pas na linha 283 existe esse código: if Cert.SerialNumber = FpDFeSSL.NumeroSerie then Bem no meu caso esses dois caras não estavam iguais Cert.SerialNumber continha a série formatada em maiúsculas e sem espaços e FpDFeSSL.NumeroSerie tinha apenas aquele AValue sem formatação alguma algo como - e8 3f b3 00 f1 b5 rh 4c - quando na verdade deveria ter - E83FB300F1B5RH4C - para solucionar eu simplesmente adicionei na configuração do componente o seguinte: ACBrNFe1.Configuracoes.Certificados.NumeroSerie := Trim(UpperCase(StringReplace(Query.FieldByName('Certificado_Serie').AsString, ' ', '', [rfReplaceAll]))); E tudo voltou a funcionar perfeitamente! Apesar do problema estar de fato na maneira como eu configurava achei válido postar todo o caminho que percorri para encontrar o erro e deixar postado aqui para o caso de algum colega passar pelo mesmo problema poder testar esses detalhes. Muito obrigado a todos pela ajuda!