Tenta essa:
SE
TABFUNC ( 'TIPODEMISSAO', 'S' ) = '2'
ENTAO
DECL PERCFGTS, RECOLMES, SALDOFGTS;
SE TFUNC = 'Z'
ENTAO
SETVAR ( PERCFGTS, .02 )
SENAO
SETVAR ( PERCFGTS, .08 )
FIMSE;
SETVAR ( RECOLMES,
INT ( ( MAX ( BASEFGTSFF ( ANO, MES ), 0 ) * PERCFGTS ) * 100 ) / 100
+
INT ( ( MAX ( BASEFGTS13FF ( ANO, MES ), 0 ) * PERCFGTS ) * 100 ) / 100
);
SETVAR ( SALDOFGTS, TABFUNC ( 'SALDOFGTS', 'V' ) );
INT ( ( ( ( RECOLMES + SALDOFGTS ) * .5 ) + RECOLMES ) * 100 ) / 100
SENAO
SE
TABFUNC ( 'TIPODEMISSAO', 'S' ) = 'T'
ENTAO
SE TFUNC = 'Z'
ENTAO
SETVAR ( PERCFGTS, .02 )
SENAO
SETVAR ( PERCFGTS, .08 )
FIMSE;
SETVAR ( RECOLMES,
INT ( ( MAX ( BASEFGTSFF ( ANO, MES ), 0 ) * PERCFGTS ) * 100 ) / 100
+
INT ( ( MAX ( BASEFGTS13FF ( ANO, MES ), 0 ) * PERCFGTS ) * 100 ) / 100
);
SETVAR ( SALDOFGTS, TABFUNC ( 'SALDOFGTS', 'V' ) );
INT ( ( ( ( RECOLMES) * .5 ) + RECOLMES ) * 100 ) / 100
SENAO
0
FIMSE
FIMSE