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 O ponto de entrada que pode ser "CD040VLD", que será executado na rotina Fechamento do Mês (CDA040)para realizar ,permite que sejam feitas validações complementares , permitindo adicionar novas condições para definir se o processamento não deve ser iniciado.

03. DEMAIS INFORMAÇÕES

Informações
Este ponto de entrada é chamado: Após o usuário confirmar que o a tela de 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 ao usuário, será necessário tratar no ponto de entrada;

04. ASSUNTOS RELACIONADOS

Pontos de Entrada - Protheus 12

Controle de Direitos Autorais

05. PARÂMETROS

Tipo	Descrição
Caractere	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 o fechamento pode ser realizado. .T. - Para prosseguir com o fechamento; .F. - Para não permitir o 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 CD040VLD()
    Local cTipo   := PARAMIXB[1] //Tipo do título
    Local cNatur  := PARAMIXB[2] //Natureza do título
    Local dFecham := PARAMIXB[3] //Data do fechamento
    Local lGerTit := If(PARAMIXB[4]==1,.T.,.F.) //Gera título no financeiro
    Local lRet    := .T.
    Local nMes    := Month(dFecham)
    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 2

Nova versão Atual

Chave