LJ7015 - Permite Bloquear Formas de Pagamentos na Finalização da Venda

Este ponto de entrada permite selecionar as Formas de Pagamentos, que não devem permitir com a continuação da finalização da venda.

#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)

Resultado: