#INCLUDE 'PROTHEUS.CH'
//Exemplo de retorno com caracter
//Funcao de retorno com caracteres validando o recebimento com um motivo de bloqueio de credito.
//Caso retorne o valor em branco, nao havera 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] //Codigo do Cliente
Local cLoja := ParamIxb[2] //Codigo 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) | 