SpedFiscal - Conversão TACBrTipoTitulo

[FabianoCunha]

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

[EMBarbosa]

Obrigado pela contribuição. Enviado ao SVN na revisão 14238.

Queira testar e reportar qualquer problema.