RgrDepIns

definir cursor cR164PLA;

definir numero xCodOem;

definir numero xCodPla;

Se (RgrDepIns <> 0){

xCodOem = R164DEP.CodOem;

xCodPla = R164DEP.CodPla;

cR164PLA.SQL "SELECT IDEDEP FROM R164PLA WHERE CODOEM = :xCodOem AND CODPLA = :xCodPla";

cR164PLA.AbrirCursor();

se (cR164PLA.Achou){

se (cR164PLA.IdeDep = 0) {

RgrDepIns = RgrDepIns * 1.10;

}

senao

{

RgrDepIns = RgrDepIns;

}

}

cR164PLA.FecharCursor();

}