Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Usuário desconhecido (felipe.valcanaia)

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.


Eventos Programa Fonte:.PRW

Sintaxe:

MAAVCRPR ( [ PARAMIXB ] <UPAR> ) --> lRet


Parâmetros:


NomeTipoDescrição
Default
Obrigatório
Referência
UPAR
PARAMIXB
Vetor

ParamIxb[1] = Código do

cliente -

cliente 

ParamIxb[2] = Código da

filial -

Loja 

ParamIxb[3] = Valor do item da venda

-

ParamIxb[4] = Moeda da

venda -

venda 

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

SA1 -

SA1 

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

-

 

ParamIxb[7] = Indica se

o credito será liberado ( Lógico ) -

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
    lRet(logico)
  • .T. - crédito aprovado
    .F. - crédito não aprovado.
Observações : 


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)