RgrValIns

definir cursor cR164PLA;

definir numero xCodOem;

definir numero xCodPla;

Se (RgrValIns <> 0){

xCodOem = R164ASS.CodOem;

xCodPla = R164ASS.CodPla;

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

cR164PLA.AbrirCursor();

Se (cR164PLA.Achou){

Se (cR164PLA.IdeDep = 0) {

RgrValIns = RgrValIns * 1.10;

}

senao

{

RgrValIns = RgrValIns;

}

}

cR164PLA.FecharCursor();