Histórico da Página

01. DADOS GERAIS

Produto:	TOTVS Backoffice
Linha de Produto:	Linha Protheus
Segmento:	Backoffice
Módulo:	TOTVS Backoffice (Linha Protheus) - Controle de Direitos Autorais (SIGACDA)
Função:	CDA040 - Fechamento do Mês (Cálculo do direito autoral)
País:	Brasil

02. DESCRIÇÃO

Ponto de entrada que permite controlar a baixa CNAB a pagar do retorno bancário.Ponto de entrada que pode ser executado na rotina Fechamento do Mês (CDA040) para realizar validações complementares, permitindo adicionar novas condições para definir se o processamento não deverá deve ser iniciado.

03. DEMAIS INFORMAÇÕES

Informações
Este ponto de entrada é chamado: Após o usuário confirmar que o processamento do fechamento mensal será iniciado; Antes de realizar as validações padrão da rotina; Havendo a necessidade de exibir alguma mensagem de orientação para o ao usuário, será necessário tratar no ponto de entrada;

...

Pontos de Entrada - Protheus 12

05. PARÂMETROS

Tipo	Descrição
Caractere

Banco posicionado para baixaCaractereAgência posicionada para baixaCaractereConta posicionado para baixa

Tipo do título a ser gerado
Caractere	Natureza do título a ser gerado
Data	Data do fechamento a ser realizado
Numérico	1=Gera título no financeiro / 2=Não gera

06. RETORNO

Tipo	Descrição
Lógico	Indica se será realizada a baixa do registro posicionadoo fechamento pode ser realizado. .T. - Para prosseguir com a baixao fechamento; .F. - Para não permitir a baixa do registroo fechamento.

07. EXEMPLO DE UTILIZAÇÃO

Bloco de código

language	java
theme	Midnight
firstline	1
title	Exemplo de execução
linenumbers	true

#include "protheus.ch"
 
 
User Function F430BXBCD040VLD()
    Local cBancocTipo    := PARAMIXB[1] //Tipo do título
    Local cAgenciacNatur  := PARAMIXB[2]
 //Natureza do título
 Local cConta  Local dFecham := PARAMIXB[3] //Data do fechamento
    Local cChaveBcolGerTit := (cBanco + cAgencia + cConta)If(PARAMIXB[4]==1,.T.,.F.) //Gera título no financeiro
    Local lRet      := .T.
    Local nMes    := Month(dFecham)
     If cChaveBco <> (mv_par05 + mv_par06 + mv_par07)
        lRet    Local nAno    := Year(dFecham)
	Local dPerAnt := SuperGetMV("MV_CDAFECH")
    Local dPerIni := CTOD("01/"+StrZero(nMes,2)+"/"+Str(nAno))
    Local dPerFim := LastDay(dPerini)

    If dPerFim <= dPerAnt
        Help( ,,"CDA40Valid",,"Periodo informado já foi fechado.", 1, 0 )
	    lRet := .F.
    ElseIf !lGerTit
        Help( ,,"CDA40Valid",,"Geração de título não foi habilitada.", 1, 0 )
	    lRet := .F.       
    EndIf
 
Return lRet

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave