Preenchimento Campos

[José]

Bom dia

 

  Alguém sabe como eu posso fazer para preencher os campos mais rápido sem precisar da função CASE no sped exemplo

 

            // Código da Situação Tributária referente ao PIS/PASEP.

             case EFDF550.FieldByName('CSTPIS').AsInteger of

               1: CST_PIS  := stpisValorAliquotaNormal;

               2: CST_PIS  := stpisValorAliquotaDiferenciada;

               3: CST_PIS  := stpisQtdeAliquotaUnidade;

               4: CST_PIS  := stpisMonofaticaAliquotaZero;

               5: CST_PIS  := stpisValorAliquotaPorST;

               6: CST_PIS  := stpisAliquotaZero;

               7: CST_PIS  := stpisIsentaContribuicao;

               8: CST_PIS  := stpisSemIncidenciaContribuicao;

               9: CST_PIS  := stpisSuspensaoContribuicao;

               49: CST_PIS := stpisOutrasOperacoesSaida;

               50: CST_PIS := stpisOperCredExcRecTribMercInt;

               51: CST_PIS := stpisOperCredExcRecNaoTribMercInt;

               52: CST_PIS := stpisOperCredExcRecExportacao;

               53: CST_PIS := stpisOperCredRecTribNaoTribMercInt;

               54: CST_PIS := stpisOperCredRecTribMercIntEExportacao;

               55: CST_PIS := stpisOperCredRecNaoTribMercIntEExportacao;

               56: CST_PIS := stpisOperCredRecTribENaoTribMercIntEExportacao;

               60: CST_PIS := stpisCredPresAquiExcRecTribMercInt;

               61: CST_PIS := stpisCredPresAquiExcRecNaoTribMercInt;

               62: CST_PIS := stpisCredPresAquiExcExcRecExportacao;

               63: CST_PIS := stpisCredPresAquiRecTribNaoTribMercInt;

               64: CST_PIS := stpisCredPresAquiRecTribMercIntEExportacao;

               65: CST_PIS := stpisCredPresAquiRecNaoTribMercIntEExportacao;

               66: CST_PIS := stpisCredPresAquiRecTribENaoTribMercIntEExportacao;

               67: CST_PIS := stpisOutrasOperacoes_CredPresumido;

               70: CST_PIS := stpisOperAquiSemDirCredito;

               71: CST_PIS := stpisOperAquiComIsensao;

               72: CST_PIS := stpisOperAquiComSuspensao;

               73: CST_PIS := stpisOperAquiAliquotaZero;

               74: CST_PIS := stpisOperAqui_SemIncidenciaContribuicao;

               75: CST_PIS := stpisOperAquiPorST;

               98: CST_PIS := stpisOutrasOperacoesEntrada;

               99: CST_PIS := stpisOutrasOperacoes;

             end;

 

Obrigado!

Editado 7 Outubro, 2013 por José

[Isaque Pinheiro]

Use as funções:

 

StrToCstPis()

 

ou

 

CstPisToStr()