RgrValIns

Valor da Inscrição do colaborador no Plano de saúde escolhido.

Tipo: Numérico - real

<div class="Code"><p style="font-family: 'Courier New';font-size: 10pt;">definir cursor cR164PLA;</p><p style="font-family: 'Courier New';font-size: 10pt;">definir numero xCodOem;</p><p style="font-family: 'Courier New';font-size: 10pt;">definir numero xCodPla;</p><p style="font-family: 'Courier New';font-size: 10pt;">Se (RgrValIns &#x3C;> 0){</p><p style="font-family: 'Courier New';font-size: 10pt;">xCodOem = R164ASS.CodOem;</p><p style="font-family: 'Courier New';font-size: 10pt;">xCodPla = R164ASS.CodPla;</p><p style="font-family: 'Courier New';font-size: 10pt;">cR164PLA.SQL "SELECT IDEDEP FROM R164PLA WHERE CODOEM = :xCodOem AND CODPLA = :xCodPla";</p><p style="font-family: 'Courier New';font-size: 10pt;">cR164PLA.AbrirCursor();</p><p style="font-family: 'Courier New';font-size: 10pt;">Se (cR164PLA.Achou){</p><p style="font-family: 'Courier New';font-size: 10pt;">Se (cR164PLA.IdeDep = 0) {</p><p style="font-family: 'Courier New';font-size: 10pt;">RgrValIns = RgrValIns * 1.10;</p><p style="font-family: 'Courier New';font-size: 10pt;">}</p><p style="font-family: 'Courier New';font-size: 10pt;">senao</p><p style="font-family: 'Courier New';font-size: 10pt;">{</p><p style="font-family: 'Courier New';font-size: 10pt;">RgrValIns = RgrValIns;</p><p style="font-family: 'Courier New';font-size: 10pt;">}</p><p style="font-family: 'Courier New';font-size: 10pt;">}</p><p style="font-family: 'Courier New';font-size: 10pt;">cR164PLA.FecharCursor();</p></div>

Utilização: Regras

Disponível para o módulo: BS.