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;
Orden;
vCodSit = vCodSit + 1;
Fim;

 

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

 

Cancel(2);