insereMarcacao

InsMarNumCra = 000100000002;

Definir Data vDatAcc;

vAno = 2024;

vMes = 05;

vDia = 03;

MontaData(vDia,vMes,vAno,vDatAcc);

InsMarDatAcc = vDatAcc;

InsMarHorAcc = 540;

InsMarSeqReg = 0;

InsMarTipAcc = 1;

InsMarCodSit = 0;

InsMarCodCol = 19;

InsMarCodFnc = 0;

InsMarDirAcc = 'E';

InsMarQtdAcc = 0;

InsMarOriAcc = 'E';

InsMarUsoMar = 2;

InsMarNumEmp = 0;

InsMarTipCol = 0;

InsMarNumCad = 0;

InsMarDatApu = 0;

InsMarCodRef = 0;

InsMarUsoRef = 0;

InsMarValRef = 0;

InsMarCodSor = 0;

InsMarFlgAcc = 0;

InsMarCodBnf = 0;

InsMarStaRlg = 0;

InsMarExcPon = "";

InsMarCodDsp = 0;

InsMarFusMar = 0;

InsMarNumNsr = 1;

vRetorno = InsereMarcacao();

Se (vRetorno = 1)

Mensagem(Retorna,"Marcação inserida com sucesso!");

senao

Mensagem(Erro,"Marcação não inserida!");