SitApu

/* Se tem situação 18 no dia, mostra descrição desta situação.Senão mostra conteúdo da variável DesDia (descrição do dia)*/

vtemsit = 0;
vCodSit = 1;
Enquanto ((vCodSit <= 30) e (SitApu[vCodSit] <> 0))
Inicio
  Se (SitApu[vCodSit] = 18)
    Inicio
      Valstr = ValStr + " " + DesApu[18];
      vtemsit = 1;
      Pare;
    Fim;
   vCodSit = vCodSit + 1;
Fim;

Se (vtemsit = 0)
  Valstr = ValStr + " " + DesDia;

Cancel(2);