Ponto de Entrada
            PLSDSCMN
 
Descrição
            Foi desenvolvido ponto de entrada para tratar se a família terá desconto ou não no faturamento.
 
Exemplo
            A família foi cadastrada com uma faixa de desconto, porém este desconto só poderá ser aplicado na primeira mensalidade, depois disso será cobrado o preço normal.
 
 
User Function PLSDSCMN()
LOCAL __cNiv := PARAMIXB[1]
LOCAL __cCha := PARAMIXB[2]
LOCAL lRet      := .T.
 
// monta chave do nível de cobrança.
If __cNiv == '1' // Empresa
            __cCha := BA3->BA3_CODINT+BA3->BA3_CODEMP
            
Elseif __cNiv == '2' //Nivel contrato
            __cCha := BA3->BA3_CODINT+BA3->BA3_CODEMP+BA3->BA3_CONEMP+BA3->BA3_VERCON
            
Elseif __cNiv == '3'  //Nível subcontrato
            __cCha := BA3->BA3_CODINT+BA3->BA3_CODEMP+BA3->BA3_CONEMP+BA3->BA3_VERCON+BA3->BA3_SUBCON+BA3->BA3_VERSUB
            
Elseif __cNiv == '4' //Nível familia
            __cCha := BA3->BA3_CODINT+BA3->BA3_CODEMP+BA3->BA3_MATRIC
            
Endif
 
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Se existir faturas para o nível de cobrança, não permite o desconto.³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
BBT->(DbSetOrder(Val(__cNiv)))
If BBT->(MsSeek(xFilial('BBT')+__cNiv+__cCha))
            lRet := .F.
Endif
 
Return(lRet)
 

.PRW

PLSDSCMN - Desconto no Faturamento ( < PARAMIXB[1]> , < PARAMIXB[2]> ) --> lRet

lRet(logico)
• Retorno lógico indicando se a família tem ou não descondo no faturamento.