Advertisement
brunobola

Untitled

Feb 13th, 2023
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.40 KB | None | 0 0
  1. //Evaluate
  2. EvaluateAfter ({@PriContexto});
  3. // Variáveis
  4.  
  5. StringVar PRI_AbvtApl;
  6. NumberVar PRI_Cultura; // Strings
  7.  
  8. //9234:  H.)
  9. if {EmissaoReciboFaltas.TipoTabela}=1 then 
  10.    {EmissaoReciboFaltas.DescMov}
  11. else 
  12.    (
  13.     if {EmissaoReciboFaltas.TipoTabela}=2 then 
  14.           {EmissaoReciboFaltas.DescMov} +" ("+ToText ({EmissaoReciboFaltas.Tempo})+ DaResString(PRI_AbvtApl, 9234, PRI_Cultura)
  15.    else 
  16.           ( 
  17.            if {EmissaoReciboFaltas.TipoTabela} = 4 then
  18.                  {EmissaoReciboFaltas.DescMov} 
  19.            else            
  20.                    ( 
  21.                     if {EmissaoReciboFaltas.TipoTabela}=3 then
  22.                           (
  23.                            if {EmissaoReciboFaltas.CodMov}={@CodIRS} and {MovimentosFuncionarios.PercentagemIrs} <>0 then
  24.                                   {EmissaoReciboFaltas.DescMov}//+ " (" +ToText ({MovimentosFuncionarios.PercentagemIrs})+ "%)"
  25.                            else
  26.                                    {EmissaoReciboFaltas.DescMov}
  27.                           )
  28.                     )
  29.              )
  30.      )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement