#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 cComplTur := ParamIxb[6] //Complemento do módulo de turismo
Local cSegTur := ParamIxb[7] //Complemento do módulo de turismo
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) | 