Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
MAAVCRED
MAAVCRED

Ponto de Entrada: MAAVCRED - Liberação de Crédito

Descrição:

Este ponto de entrada substitui a avaliação de credito padrão do sistema.


Programa Fonte:
FATXFUN.PRW

Sintaxe:

MAAVCRED ( < UPAR> ) --> URET


Parâmetros:


NomeTipoDescriçãoObrigatório
UPARVetor

Vetor com os dados identificadores do Pedido de Venda que esta sendo incluido, sendo:
[ 01 ] - cCodCli - Tipo: Caracter - String contendo a numeração da nota
[ 02 ] - cSerie - Tipo: Caracter - String contendo a série da nota:
[1] - cCodCli       - Tipo: Caractér - Código do cliente
[2] - cLoja           - Tipo: Caractér - Código da loja
[3] - nValor         - Tipo: Numérico - Valor total do item
[4] - nMoeda      - Tipo: Numérico - Tipo da moeda
[5] - lPedido        - Tipo: Lógico   - Inclusão de um pedido de venda
[6] - cComplTur  - Tipo: Caractér - Complemento de turismo se houver
[7] - cSegTur       - Tipo: Caractér - Complemento de turismo se houver

X


Retorno:


NomeTipoDescriçãoObrigatório
URETQualquer

Retorna um valor do tipo carácter ou tipo lógico

Exemplo retorno de carácter: Retorna o código de bloqueio ou <branco> para liberar, caso não tenha nenhum bloqueio, retorna contéudo em <branco>.

Exemplo retorno de lógico: retorna .F. = bloqueadopara bloquear ou retorna .T. para liberar (Caso utilize o retorno lógico, o bloquei automaticamente será o "01")

X


Exemplo:

Bloco de código
languagejs
linenumberstrue
#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)