PLPREFE1 - Define Prefixo

Este ponto de entrada permite definir o prefixo adequado para o título a receber regado pelo plano de saúde de acordo com a operação executada pelo módulo. 
Ponto de chamada: É executo antes de gerar o número do título, já que a numeração é definida a partir do prefixo.
Exemplo do ponto de entrada
User Function PLPREFE1()
LOCAL cPrefix            := PARAMIXB[1]
LOCAL cNumero         := PARAMIXB[2]
LOCAL cAno               := PARAMIXB[3]
LOCAL cMes               := PARAMIXB[4]
LOCAL aChaves         := {}
LOCAL cNivCob          := ''
LOCAL cChave           := ''
LOCAL cCodEmp  := ''
 
// Retorna caso seja chamado pelo intercambio eventual.
If Type('M->BDC_TIPO') <> 'C'
            Return(cPrefix)
Endif
 
aChaves          := aClone(PARAMIXB[5]) // Matriz com os níveis de cobrança.
cNivCob           := PARAMIXB[6] // Nível de cobrança.
cChave            := aChaves[Val(cNivCob)]       // Pega a chave do nivel de cobranca.
cCodEmp  := Substr(cChave, 5,4)      // Pega o codigo da empresa do nivel de cobranca
 
If M->BDC_TIPO == '1'  // Para pessoa Juridica
   If cCodEmp == '0013' //Caso Seja Empresa 0013
      cPrefixo := 'PLA'    
   Else
      cPrefixo := 'FLJ'    
   Endif
Else   // Para pessoa física.
   If cCodEmp == '8005'                      // Caso seja empresa 8005
              cPrefixo := 'PLA'
   Else
      cPrefixo := 'FLF' 
   Endif
Endif           
 
Return(cPrefixo)          
 

.PRW

PLPREFE1 - Define Prefixo ( < PARAMIXB[1]> , < PARAMIXB[2]> , < PARAMIXB[3]> , < PARAMIXB[4]> , < array> , < Caracter> , < Caracter> ) --> Caracter

Caracter(caracter)
• O ponto de entrada devera retornar um string contendo o PREFIXO definido para o titulo a receber a ser gerado.