Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:Financeiro (SIGAFIN)
Função:

Contas a pagar (FINA050)

País:Brasil

02. VISÃO GERAL

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

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_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.

05. EXEMPLO


Exemplo de execução
#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] //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