Tenta essa:
Se TABCOMPL ('ASSMED' , 'V') = 1 e N ('0008') = 0
Entao Se TABFUNC ('CODFILIAL' , 'V') = 1 E TABFUNC ('CODSINDICATO' , 'V') = 1
Entao 'A'
Senao Se TABFUNC ('CODFILIAL' , 'V') = 1 E TABFUNC ('CODSINDICATO' , 'V') = 2
Entao 'B'
Senao Se TABFUNC ('CODFILIAL' , 'V') = 2 E TABFUNC ('CODSINDICATO' , 'V') = 1
Entao 'C'
Senao Se TABFUNC ('CODFILIAL' , 'V') = 2 E TABFUNC ('CODSINDICATO' , 'V') = 2
Entao 'D' Senao 0
Fimse Fimse Fimse Fimse Fimse