Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: MAAVCRPR


Versões:Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10
Nível de Acesso:Nível 1 (Acesso Clientes)
Idiomas:Espanhol , Inglês


Descrição:

Este ponto de entrada pertence à rotina de avalização de crédito de clientes, MaAvalCred() – FATXFUN().

Ele permite que, após a avaliação padrão do sistema, o usuário possa fazer a sua própria.


Programa Fonte: .PRW

Sintaxe:

MAAVCRPR ( <UPAR> ) --> lRet


Parâmetros:


NomeTipoDescriçãoObrigatório
UPARVetor

ParamIxb[1] = Código do cliente 

ParamIxb[2] = Código da Loja 

ParamIxb[3] = Valor do item da venda

ParamIxb[4] = Moeda da venda 

ParamIxb[5] = Considera acumulados de Pedido de Venda do SA1 

ParamIxb[6] = Tipo de crédito (“L” - Código cliente + Filial; “C” - código do cliente) 

ParamIxb[7] = Indica se existe bloqueio na validação padrão (.F.) ou se não existe bloqueio (.T.)

ParamIxb[8] = Indica o código de bloqueio do credito ( Caracter )

x


Retorno: 


NomeTipoDescriçãoObrigatório
UPARLógico

Retorna lógico, sendo .F. para bloquear e .T. para liberar.

Observação: Caso após toda a validação de bloqueio padrão do sistema, não tenha sido gerado nenhum bloqueio, ao executar o ponto de entrada,

sempre gerará o código "01 - Bloqueio de credito por Valor ". Caso contrário, o sistema manterá o bloqueio padrão do sistema.

x


Exemplo:


#INCLUDE 'PROTHEUS.CH'   

User Function MaAvCrPr()

    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 um pedido de venda
    Local cTipoLim  := ParamIxb[6]  //Controle de crédito
    Local lRetorno  := ParamIxb[7]  //Indica se existe bloqueio na validação padrão (.F.) ou se não existe bloqueio (.T.)
    Local cCodigo   := ParamIxb[8]  //Código com o tipo de bloqueio de crédito
    Local lBloq     := .T.          //Variável lógica de retorno apontando se existe ou não bloqueio.

    If lRetorno .and. Empty(cCodigo) .and. cCodCli == '000001' .And.  nValor >= 1000
         lBloq := .F.
    EndIf

Return (lBloq)