Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada: MAAVCRED - Liberação de Crédito

Descrição:

Este ponto de entrada substitui a avaliação de credito padrão do sistema.


Programa Fonte: .PRW

Sintaxe:

MAAVCRED ( < UPAR> ) --> URET


Parâmetros:


NomeTipoDescriçãoObrigatório
UPARVetor

Vetor com os dados identificadores do Pedido de Venda:
[1] - cCodCli       - Tipo: Caractér - Código do cliente
[2] - cLoja           - Tipo: Caractér - Código da loja
[3] - nValor         - Tipo: Numérico - Valor total do item
[4] - nMoeda      - Tipo: Numérico - Tipo da moeda
[5] - lPedido        - Tipo: Lógico   - Inclusão de um pedido de venda

X


Retorno:


NomeTipoDescriçãoObrigatório
URETQualquer

Retorna um valor do tipo carácter ou tipo lógico. 

Exemplo retorno de carácter: Retorna o código de bloqueio ou, caso não tenha nenhum bloqueio, retorna contéudo em <branco>.

Exemplo retorno de lógico: retorna .F. para bloquear ou retorna .T. para liberar (Caso utilize o retorno lógico, o bloquei automaticamente será o "01")

X


Exemplo:

#INCLUDE 'PROTHEUS.CH' 

//---------------------------------------------------------------------------------------------------
// Função - MAAVCRED 
// Descrição - Possui duas maneiras de retorno: Caracter ou Lógico
//
// Retorno lógico: Retorna variável lógica, sendo .F. para bloquear e .T. para liberar. 
// Ao bloquear, automaticamente o código do bloqueio será 01.
//
// Retorno Caracter: Retorna uma variável Caracter, sendo informado o código de bloqueio conforme a
// listagem abaixo. Caso retorne em branco, não existirá bloqueio.
//
// Motivos de bloqueio de credito: 
// 01 - Bloqueio de credito por Valor   
// 04 - Vencimento do Limite de credito - Data de credito Vencida 
// 05 - Bloqueio Manual/Estorno
// 09 - Liberação de credito Rejeitada 
//---------------------------------------------------------------------------------------------------  

User Function MAAVCRED()
 
    Local cCodCli   := ParamIxb[1] //Código do Cliente
    Local cLoja     := ParamIxb[2] //Código da loja
    Local nValor    := ParamIxb[3] //Preço da Venda
    Local nMoeda    := ParamIxb[4] //Moeda
    Local lPedido   := ParamIxb[5] //Inclusão de pedido de venda
    Local xReturn   := NIL         //Variável de retorno
    
    If cCodcli == "000001" .And. cLoja = '01' //Caso for o cliente e Loja for igual a 000001 e 01.
        xReturn := "05" // Bloqueio Manual/Estorno.
    ElseIf nValor > 10000 //Caso o total do valor do pedido de venda exceder o limite (Limite de 10000).
        xReturn := "09" //Liberação de Crédito Rejeitada.
    ElseIf cCodcli == "000001" .And. cLoja == '99' //Caso contrario, realizar liberacao do credito.
        xReturn := .T. //Liberado
    EndIf

Return (xReturn)