Alguém pode me dizer se está correto esta parte do código mesmo?
function StrToTpImp(out ok: boolean; const s: string): TpcnTipoImpressao;
begin
result := StrToEnumerado(ok, s, ['0', '1', '2', '3', '4', '5', '4'],
[tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado,
tiNFCe, tiMsgEletronica, tiNFCeA4]);
end;
Acontece que acabo re-lendo xml e tenho tido problema que o acbr na hora de carregar uma nota que era pra estar com o valor tiNFCe (4) que é o valor que estou usando no momento e ele acaba trazendo o valor tiNFCeA4 (4) . Alterei o código aqui para as linhas abaixo e agora está funcionando:
function StrToTpImp(out ok: boolean; const s: string): TpcnTipoImpressao;
begin
result := StrToEnumerado(ok, s, ['0', '1', '2', '3', '4', '5', '6'],
[tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado,
tiNFCe, tiMsgEletronica, tiNFCeA4]);
end;
Aaaa
Se estiver correta essa alteração a função que tem acima dessa talvez também tenha que ser alterada de:
function TpImpToStr(const t: TpcnTipoImpressao): string;
begin
result := EnumeradoToStr(t, ['0', '1', '2', '3', '4', '5', '4'],
[tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado,
tiNFCe, tiMsgEletronica, tiNFCeA4]);
end;
Para:
function TpImpToStr(const t: TpcnTipoImpressao): string;
begin
result := EnumeradoToStr(t, ['0', '1', '2', '3', '4', '5', '6'],
[tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado,
tiNFCe, tiMsgEletronica, tiNFCeA4]);
end;