Fórum Selecionar codigo de afastamento #589331

estou tentado selecionar um situação de afastamento para ele não sair no relatório tipo 17 (licença premio) no seu período de gozo que é o mes de dezembro. Pergunto onde que esta o erro conforme especificação abaixo ::

Definir Data xInicial_R316;
Definir Data xFinal_R316;
Definir Data xInicialA;
Definir Data xInicial;
Definir Numero xSitua;
MontaData (01, 12, 2017, xInicial_R316);
xDia_R316 = 0;
xMes_R316 = 0;
xAno_R316 = 0;
DesMontaData (xInicial_R316, xDia_R316, xMes_R316, xAno_R316);
xFinal_R316 = xInicial_R316;
UltimoDia (xFinal_R316);
MontaData (30, 12, 2017, xFinal_R316);
xAbandona_R316 = 0;

Definir Cursor Cur_R038AFA;
Cur_R038AFA.SQL "SELECT R038AFA.DATAFA \\\\\\\\
FROM R038AFA, R010SIT \\\\\\\\
WHERE R038AFA.SITAFA = R010SIT.CODSIT AND \\\\\\\\
R038AFA.NUMEMP = :xNumEmp_R316 AND \\\\\\\\
R038AFA.TIPCOL = :xTipCol_R316 AND \\\\\\\\
R038AFA.NUMCAD = :xNumCad_R316 AND \\\\\\\\
R038AFA.SitAfa = R010SIT.TIPSIT and \\\\\\\\
R038AFA.DATAFA <= :xFinal_R316 AND \\\\\\\\
R010SIT.TIPSIT = 17 ";

Cur_R038AFA.AbrirCursor();


Se (Cur_R038AFA.Achou)
@ ConverteMascara(3, Cur_R038AFA.DATAFA, vDatDem, "DDMMYYYY");@
R010SIT.TIPSIT = xSitua;

Cur_R038AFA.FecharCursor();

Se (R010SIT.TIPSIT = 17)
Cancel(1);