Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 2 minutos

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

O ponto de entrada "CD040VLD", que será executado na rotina Fechamento do Mês (CDA040), permite que sejam feitas validações complementares para definir se o processamento deve ser iniciado.

03. DEMAIS INFORMAÇÕES

  • Este ponto de entrada é chamado:
    • Após o usuário confirmar a tela de processamento do fechamento mensal;
    • 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

TipoDescrição
CaractereTipo do título a ser gerado
CaractereNatureza do título a ser gerado
DataData do fechamento a ser realizado
Numérico1=Gera título no financeiro / 2=Não gera

06. RETORNO

TipoDescrição
LógicoIndica se o fechamento pode ser realizado.
.T. - Para prosseguir com o fechamento;
.F. - Para não permitir o fechamento.

07. EXEMPLO DE UTILIZAÇÃO

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