Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 11

changes.mady.by.user Bruno Consoline Osmak Ribeiro

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Bruno Consoline Osmak Ribeiro

Gravado em

Chave

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

...

Portuguese

Pagetitle
MAAVCRPR
MAAVCRPR

Ponto-de-Entrada: MAAVCRPR


Versões:Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10
Nível de Acesso:Nível 1 (Acesso Clientes)
Idiomas:Espanhol , Inglês


Descrição:

Este ponto de entrada pertence à rotina de avalização de crédito de clientes, MaAvalCred() – FATXFUN().

Ele permite que, após a avaliação padrão do sistema, o usuário possa fazer a sua própria.


Programa Fonte: .PRW

Sintaxe:

MAAVCRPR ( <UPAR> ) --> lRet


Parâmetros:


NomeTipoDescriçãoObrigatório
UPARVetor

ParamIxb[1] = Código do cliente 

ParamIxb[2] = Código da Loja 

ParamIxb[3] = Valor do item da venda

ParamIxb[4] = Moeda da venda 

ParamIxb[5] = Considera acumulados de Pedido de Venda do SA1 

ParamIxb[6] = Tipo de crédito (“L” - Código cliente + Filial; “C” - código do cliente) 

ParamIxb[7] = Indica se existe bloqueio na validação padrão (.F.) ou se não existe bloqueio (.T.)

ParamIxb[8] = Indica o código de bloqueio do credito ( Caracter )

x


Retorno: 


NomeTipoDescriçãoObrigatório
UPARLógico

Retorna lógico, sendo .F. para bloquear e .T. para liberar.

Observação: Caso após toda a validação de bloqueio padrão do sistema, não tenha sido gerado nenhum bloqueio, ao executar o ponto de entrada,

sempre gerará o código "01 - Bloqueio de credito por Valor ". Caso contrário, o sistema manterá o bloqueio padrão do sistema.

x


Exemplo:


Bloco de código
languagejs
linenumberstrue
#INCLUDE 'PROTHEUS.CH'   

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  := ParamIxb[6]  //Controle de crédito
    Local lRetorno  := ParamIxb[7]  //Indica se existe bloqueio na validação padrão (.F.) ou se não existe bloqueio (.T.)
    Local cCodigo   := ParamIxb[8]  //Código com o tipo de bloqueio de crédito
    Local lBloq     := .T.          //Variável lógica de retorno apontando se existe ou não bloqueio.

    If lRetorno .and. Empty(cCodigo) .and. cCodCli == '000001' .And.  nValor >= 1000
         lBloq := .F.
    EndIf

Return (lBloq)