#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()
User Function MaAvCrPr()
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 um pedido de venda
Local cTipoLim cComplTur := ParamIxb[6] //ComplementoControle do módulo de turismocrédito
Local cSegTurlRetorno := ParamIxb[7] //Complemento do módulo de turismoVariável lógica
Local xReturncCodigo := NIL ParamIxb[8] //VariávelTipo de retorno
bloqueio de crédito
IfLocal cCodclicComplTur :== "000001" .And. cLoja = '01' //Caso for o cliente e Loja for igual a 000001 e 01. ParamIxb[9] //Complemento do módulo de turismo
Local cSegTur xReturn := "05"ParamIxb[10] //Complemento Bloqueio Manual/Estorno.
ElseIf nValor > 10000 //Caso o total do valor do pedido de venda exceder o limite (Limite de 10000).
do módulo de turismo
Local lBloq := .F. xReturn := "09" //LiberaçãoVariável lógica
de Crédito Rejeitada.
ElseIfIf cCodclicCodCli == "'000001"' .And. cLojanValor >== '99' //Caso contrario, realizar liberacao do credito. 1000
lBloq xReturn := .T. //Liberado
EndIf
Return (xReturnlBloq) |