Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Pamela Bernardo de Souza

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Fabio Casagrande Lima

Gravado em

Chave

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

...

02. VISÃO GERAL

Ponto de entrada que permite validar para acrescentar validações quando é preenchida a natureza de rendimento, informada no complemento do título.

Informações

Esse ponto de entrada é chamado na Contas a pagar (FINA050) e Contas a Receber (FINA040).

03. PARÂMETROS

TipoDescrição
Caractere

Código da Natureza de rendimento (FKF_

NATREM

NATREN)

Caractere

Carteira de inclusão do título:

"1" = Contas a Pagar

"2" = Contas a Receber

CaractereCódigo do Fornecedor/Cliente
CaractereLoja do Fornecedor/Cliente
CaractereNatureza do titulo incluso (E2_NATUREZ/E1_NATUREZ)

04. RETORNO

TipoDescrição
Array

Array de duas posições, onde:

[1] Retorno Lógico, se a natureza é valida ou não (.T. / .F.)

[2] Retorno Caractere, Mensagem que será apresentada ao usuário.

...

Bloco de código
languagejava
themeMidnight
firstline1
titleExemplo de execução
linenumberstrue
#include 'Protheus.ch'

User Function VldNatRen()

    Local cNatRen := PARAMIXB[1] //natureza de rendimento
    Local cCart   := PARAMIXB[2] //Carteira (1-Pagar/2-Receber)
    Local cForCli := PARAMIXB[3] //Fornecedor/Cliente
    Local cLoja   := PARAMIXB[4] //Loja do fornecedor ou cliente
	Local cNatTit := PARAMIXB[5]  Local//Natureza (SED) do título
    Local lRet    := .T.
    Local cMsg    := ""
    Local aRet    := {}

    If Substr(cNatRen,1,2) <> "20" 
        lRet := .F.
        cMsg := "A natureza de rendimento selecionada não pode ser utilizada."
    Endif

    Aadd(aRet, lRet)
    Aadd(aRet, cMsg)

Return aRet

...