Regra por processo 847 - Após salvar substituídos da solicitação de abertura de vaga

Definir Cursor CRoteiro;

Definir Numero xCodSva;

Definir Numero xNumEmp;

Definir Numero xTipCol;

Definir Numero xNumCad;

xCodSva = R126SVA.CODSVA;

 

CRoteiro.SQL "SELECT R126RSV.NUMEMP, R126RSV.TIPCOL, R126RSV.NUMCAD FROM R126SSV,R126RSV WHERE R126SSV.CODSVA = :xCodSva AND R126RSV.CODSVA = :xCodSva \

AND R126SSV.NUMEMP = R126RSV.NUMEMP AND R126SSV.TIPCOL = R126RSV.TIPCOL \

AND R126SSV.NUMCAD = R126RSV.NUMCAD ";

 

CRoteiro.AbrirCursor();

Enquanto (CRoteiro.Achou)

{

xNumEmp = CRoteiro.NUMEMP;

xTipCol = CRoteiro.TIPCOL;

xNumCad = CRoteiro.NUMCAD;

ExecSQL "DELETE R126RSV WHERE CODSVA = :xCodSva AND NUMEMP = :xNumEmp AND TIPCOL = :xTipCol AND NUMCAD = :xNumCad";

CRoteiro.Proximo();

}

CRoteiro.FecharCursor();