Histórico da Página

O ponto de entrada PLSCBVPG permite alterar o valor base para cálculo da co participação.Exemplo: valor base para cálculo da co participação seja o mesmo que o valor apresentado para pagamento.

PLSA720.PRW

PLSCBVPG - Valor de Co-Participação ( [ nVlrPagLiq ], [ nVlrAprCob ], [ cCodTab ], [ cCodPro ], [ cTipPre ], [ nQtdPto ] ) --> {lConsiderar,nVlrBaseCob}

{lConsiderar,nVlrBaseCob}()
• lConsiderar ( lógico ): Considerar o valor retornado pelo ponto de entrada como base para cálculo da co participação.nVlrBaseCob ( numérico ): valor a ser considerado como base para cálculo da co participação.

User Function PLSCBVPG()Local nVlrPagLiq  := ParamIXB[1]Local nQtdPro     := ParamIXB[6]Local lConsiderar := .F.Local nVlrBaseCob := 0nVlrBaseCob := nVlrPagLiq/nQtdProlConsiderar := .T.Return({lConsiderar,nVlrBaseCob})