lRecebe: Recebimento de Títulos;
cCondicao: Forma de Pagamento selecioda; 

#INCLUDE "PROTHEUS.CH"
//------------------------------------------------------------------------------
/*/{Protheus.doc} Lj7015
Bloquear selecionar e Condições de Pagamentos para não permitir finalizar venda
@type    User Function
@author  Developer
@since   26/06/2024
@param   PARAMIXB[1],   Logic  
@param   PARAMIXB[1],   Character  
@version P12
@return  .T. ou .F.,    Logic
/*/
//------------------------------------------------------------------------------
User Function LJ7015()
Local cFormaRet := ""           // Forma de Pagamento retornada pelo P.E.
Local nPos      := 0            // Posição da Forma de Pagamento no array aArray    
Local aArray    := {}
Local lRecebe   := PARAMIXB[1]  // Recebimento de Títulos
Local cCondicao := PARAMIXB[2]  // Forma de Pagamento (SX5->X5_CHAVE)

/*
- Exemplos de Formas de Pagamentos:
    - BOL       BOLETO BANCARIO                                        
    - CH        CHEQUE                                                
    - CO        CONVENIO                                              
    - CR        CREDITO                                                
    - DB        DEPOSITO BANCARIO                                      
    - VA        VALES                                                  
    - VP        VALE PRESENTE                                          
*/
// aArray - Contém as Formas de Pagamentos inválidas para finalizar a venda
aArray := Aadd(aArray,{"BOL","CH","CO","FP","DC","CR","VA","VP"})

// lRecebe - Recebimennto de Títulos
If !lRecebe
    nPos := Ascan(aArray,{|x| AllTrim(Upper(x)) == Alltrim(cCondicao)})

    If nPos > 0
        MsgAlert("Forma de Pagamento "+ cCondicao + " bloqueada pelo P.E. LJ7015 !!!")
        cFormaRet := "XX"   // Informar um retorno inválido
    EndIf  

EndIf  

Return(cFormaRet)