Tempo aproximado para leitura: 00:01:00 min
Dúvida
Como customizar a análise de crédito de Cliente?
Ambiente
Cross Segmentos - BackOffice Protheus - SIGAFAT - Todas as versões
Solução
Para substituir/customizar a regra de análise de Crédito é necessário a utilização do ponto de entrada MAAVCRED, onde fica aberto ao cliente definir as regras de análise conforme a necessidade da empresa.
Observações:
- Esse ponto de entrada substitui a análise padrão
- Caso deseje complementar a análise de crédito padrão, utilize o ponto de entrada MAAVCRPR
Exemplo:
Programa Fonte: .PRW
MAAVCRED ( < UPAR> ) --> URET
| Nome | Tipo | Descrição | Obrigatório |
| UPAR | Vetor | Contém os dados do Pedido de Venda | Sim |
| Nome | Tipo | Descrição | Obrigatório |
| URET | Qualquer |
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 |
-
Retorno Lógico:
-
.T.- Pedido liberado -
.F.- Pedido bloqueado (código "01" de bloqueio será aplicado automaticamente)
-
-
Retorno Caractere:
-
Código do motivo de bloqueio ou caso não haja bloqueio.
-
Exemplo de Implementação
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)Veja também a lista de Pontos de Entrada da rotina MATA450A - Liberação de crédito cliente:
Lista de Pontos de Entrada da rotina MATA450A - Análise de Crédito Cliente
0 Comentários