Este ponto de entrada substitui a avaliação de credito padrão do sistema.
MAAVCRED ( < UPAR> ) --> URET
Nome | Tipo | Descrição | Obrigatório |
UPAR | Vetor | Vetor com os dados identificadores do Pedido de Venda: | X |
Nome | Tipo | Descrição | Obrigatório |
URET | Qualquer | Retorna um valor do tipo carácter ou tipo lógico. Exemplo retorno de carácter: Retorna o código de bloqueio ou, caso não tenha nenhum bloqueio, retorna contéudo em <branco>. Exemplo retorno de lógico: retorna .F. para bloquear ou retorna .T. para liberar (Caso utilize o retorno lógico, o bloquei automaticamente será o "01") | X |
Exemplo:
#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 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)