if DebitosaVencer['ID do Débito'] > 0 then
value := 'VÁLIDA ATÉ ' + UpperCase(FormatDateTime('dd" de " mmmm" de " yyyy',DebitosaVencer['Data do Vencimento do Débito']))
else
if DebitosaVencerxRT['ID do Débito'] > 0 then
value := 'VÁLIDA ATÉ ' + UpperCase(FormatDateTime('dd" de " mmmm" de " yyyy',DebitosaVencerxRT['Data do Vencimento do Débito']))
else
If AnuidadeAtual['ID da Inscrição'] > 0 then
Value := 'VÁLIDA ATÉ 31 DE MARÇO DE '+ IntToStr(AnuidadeAtual['Ano Atual'])
Else
Value := 'VÁLIDA ATÉ 31 DE MARÇO DE '+ IntToStr(Consulta['Ano Hoje']+1);