Cálculo do percentual de Redução Acréscimo

  Se é Cooperativa entao
    CampoValor = TOTALAPAGAR
  Senao
    CampoValor = TOTALARECEBER
    
  Se QuantidadePaga = 0 entao
  {
    ReducaoAcrescimo = 0
    ValorPago = 0
  }
  Senao
  {
    Se Principal = 6 ou 7 entao
      ValorCalculado = ValorCalculadoParaAnestesista
    Senao
      ValorCalculado = ValorCalculadoParaMedicoPrincipal
      
    Se ValorCalculado = 0 entao
      ReducaoAcrescimo = 0
    Senao
      ReducaoAcrescimo = CampoValor / QuantidadePaga / ValorCalculado
      
    ValorPago = CampoValor / QuantidadePaga
  }
  
  ValorTotal = CampoValor