Conversão de String para Enum

[Isaque Pinheiro]

Ei Vilmar, é funcional mas não é o ideal, mas só minha opinião não vale, vamos esperar mais...

[Vilmardiogo]

Bom dia Isaque, também acho que possa ser melhorado, mas não tenho muita experiencia no desenvolvimento de componentes, mas por hora vou me virando desta forma, quem sabe logo logo os demais colegas compartilhem suas opiniões conosco.

[Isaque Pinheiro]

Bom dia Isaque, também acho que possa ser melhorado, mas não tenho muita experiencia no desenvolvimento de componentes, mas por hora vou me virando desta forma, quem sabe logo logo os demais colegas compartilhem suas opiniões conosco.

Vilmar, li os posts anteriores, e a melhor alternativa ainda é criar as funções de conversão como ex: StrToSituacaoTribICMS, o que temos que fazer é criar para todos os tipos, vou fazer uma busca nos posts anteriores e ir implementando os código doados.

Se todos puder ir contribuindo, rapidamente implementaremos as funções de conversão, aguardo...

[Vilmardiogo]

Bom dia Isaque, também acho que possa ser melhorado, mas não tenho muita experiencia no desenvolvimento de componentes, mas por hora vou me virando desta forma, quem sabe logo logo os demais colegas compartilhem suas opiniões conosco.

Vilmar, li os posts anteriores, e a melhor alternativa ainda é criar as funções de conversão como ex: StrToSituacaoTribICMS, o que temos que fazer é criar para todos os tipos, vou fazer uma busca nos posts anteriores e ir implementando os código doados.

Se todos puder ir contribuindo, rapidamente implementaremos as funções de conversão, aguardo...

Bom dia Isaque..., estas funções serão implementadas em qual UNIT ?

[Isaque Pinheiro]

Bom dia Isaque..., estas funções serão implementadas em qual UNIT ?

ACBrEPCBlocos.pas

[carlosmarian]

Olá,

   acho que a conversão :

   

  function StrToIndCredOri(var ok: boolean; const s: string): TACBrIndCredOri;

não foi replicada para a nova estrutura.

 

Sugestão:

function IndCredOriToStr(AValue: TACBrIndCredOri): string;
function StrToIndCredOri(AValue: string): TACBrIndCredOri;


function IndCredOriToStr(AValue: TACBrIndCredOri): string;
begin
   if AValue = TACBrIndCredOri.icoOperProprias then
      Result := '0'
   else
   if AValue = TACBrIndCredOri.icoEvenFusaoCisao then
      Result := '1';
end;

function StrToIndCredOri(AValue: string): TACBrIndCredOri;
begin
   if AValue = '0' then
      Result := TACBrIndCredOri.icoOperProprias
   else
   if AValue = '1' then
      Result := TACBrIndCredOri.icoEvenFusaoCisao;
end;

 

 

at+

Editado 28 Fevereiro, 2013 por carlosmarian