Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

01. DATOS GENERALES

Producto:

TOTVS Backoffice

Línea de producto:

Línea Protheus

Segmento:

Backoffice

Módulo:

TOTVS Backoffice (Línea Protheus) - Control de derechos de autor (SIGACDA)

Función:CDA040 - Cierre del mes (Cálculo del derecho de autor)
País:Brasil

02. DESCRIPCIÓN

El punto de entrada "CD040VLD", que se ejecutará en la rutina Cierre del mes (CDA040), permite que se realicen validaciones complementarias para definir si debe iniciarse el procesamiento.

03. OTRAS INFORMACIONES

  • Este punto de entrada se activa:
    • Después que el usuario confirma la pantalla de procesamiento del cierre mensual.
    • Antes de realizar las validaciones estándar de la rutina.
  • Habiendo la necesidad de mostrar algún mensaje de orientación al usuario, es necesario tratar en el punto de entrada.

04. ASUNTOS RELACIONADOS

      Puntos de entrada - Protheus 12

      Control de derechos de autor

05. PARÁMETROS

TipoDescripción

Carácter

Tipo del título que se generará

Carácter

Modalidad del título que se generará

Fecha

Fecha del cierre que se realizará

Numérico

1=Genera título en el financiero / 2=No genera

06. DEVOLUCIÓN

TipoDescripción
LógicoIndica si puede realizarse el cierre.
.T. - Para proseguir con el cierre.
.F. - Para no permitir el cierre.

07. EJEMPLO DE UTILIZACIÓN

Ejemplo de ejecución 
#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.) //Genera título en el financiero     
    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",,"Período informado fue finalizado.", 1, 0 )
	    lRet := .F.
    ElseIf !lGerTit
        Help( ,,"CDA40Valid",,"Generación del título no fue habilitada.", 1, 0 )
	    lRet := .F.       
    EndIf

Return lRet