RgrDepIns

Valor da Inscrição do dependente 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 (RgrDepIns &#x3C;> 0){</p><p style="font-family: 'Courier New';font-size: 10pt;">xCodOem = R164DEP.CodOem;</p><p style="font-family: 'Courier New';font-size: 10pt;">xCodPla = R164DEP.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;">RgrDepIns = RgrDepIns * 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;">RgrDepIns = RgrDepIns;</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><p style="font-family: 'Courier New';font-size: 10pt;">}</p></div>

Utilização: Regras

Disponível para o módulo: BS.