Jump to content

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

click.png

click.png

click.png

Preenchimento Campos


José
  • Este tópico foi criado há 2975 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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!
Edited by José
Link to comment
Share on other sites

Use as funções:

 

StrToCstPis()

 

ou

 

CstPisToStr()

  • Thanks 1

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

  • Este tópico foi criado há 2975 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.