#INCLUDE 'PROTHEUS.CH'
//---------------------------------------------------------------------------------------------------
// Função - MAAVCRED
// Descrição - Possui duas maneiras de retorno: Caracter ou Lógico
//
// Retorno com caracteres validando o recebimento com um motivo 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 deconforme credito.a
// listagem abaixo. Caso retorne o valor em branco, não haveráexistirá 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] //PrecoPreço da Venda
Local nMoeda := ParamIxb[4] //Moeda
Local lPedido := ParamIxb[5] //InclusaoInclusão de um pedido de venda
Local cComplTur := ParamIxb[6] //Complemento do modulomódulo de turismo
Local cSegTur := ParamIxb[7] //Complemento do modulomódulo de turismo
Local xReturn := NIL //VariavelVariá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 lPedido cCodcli == "000001" .And. cLoja == '99' //Caso contrario, realizar liberacao do credito.
xReturn := .T. //Liberado
EndIf
Return (xReturn) | 