DesApu

/* Se tem situação 18 no dia, mostra sua descriçã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);