#INCLUDE 'PROTHEUS.CH'
//---------------------------------------------------------------------------------------------------
// Função - MAAVCRED
// Descrição - Retorno com caracteres validando o recebimento com um motivo de bloqueio de credito.
// Caso retorne o valor em branco, não haverá bloqueio de credito.
//
// 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] //Preco da Venda
Local nMoeda := ParamIxb[4] //Moeda
Local lPedido := ParamIxb[5] //Inclusao de um pedido de venda
Local cComplTur := ParamIxb[6] //Complemento do modulo de turismo
Local cSegTur := ParamIxb[7] //Complemento do modulo de turismo
Local xReturn := NIL //Variavel 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 lPedido //Caso contrario, realizar liberacao do credito.
xReturn := .T. //Liberado
EndIf
Return (xReturn) | 