TurChe

Definir Alfa msgTur;

Definir Alfa sTurChe;

 

/* Busca chefe no local 1.03.01. */

MontaData (1, 1, 2007, xDatBas);

BusCadChefeLocal(1, 1, "1.03.01", 1, 0, xDatBas, xEmpChe, xTipChe, xCadChe);

 

/* Apresenta mensagem com o turno da chefia. */

IntParaAlfa(TurChe, sTurChe);

msgTur = "Turno da chefia: "+ sTurChe +" [&Ok]";

Mensagem(Retorna, msgTur);