EstCarFnc

/* Retorna funções vigente do colaborador */

 

Definir Data xDatAux;

Definir Data xDatIni;

Definir Data xDatFim;

Definir Alfa xCodCar;

Definir Numero xEstCar;

 

AlfaparaData("10/11/2007", "DD/MM/YYYY", xDatAux);

RetFunEmp(1,1,2,xDatAux);

i = 1;

Enquanto (CodCarFnc[i] <> "0")

Inicio

xDatIni = DatIniFnc[1];

xDatFim = DatFimFnc[1];

xCodCar = CodCarFnc[1];

xEstCar = EstCarFnc[1];

i = i+1;

Fim