Histórico da Página

...

Portuguese

Pagetitle

	CTA400CAL - Atualização do calendario contábil Update of the accounting calendar
	CTA400CAL - Atualização do calendario contábil Update of the accounting calendar

Entry Point: CTA400CAL - Update of the accounting calendar

Scope

Ponto-de-Entrada: CTA400CAL - Atualização do calendario contábil

AbrangênciasVersõesCompatível PaísesTodosSistemas OperacionaisCompatível às Bases de DadosTodosIdiomasPortuguês Brasil Português Espanhol Inglês

:	Microsiga Protheus 10, Microsiga Protheus 11
Versions:	Microsiga Protheus 10, Microsiga Protheus 11
Compatible Countries:	All
Operating Systems:	Todos	All
Compatible with the Databases	:	All
Languages:	Portuguese (	Brazil) ,	Portuguese (Portugal) ,	Spanish ,	English

Descrição

Description:

O ponto de entrada CTA400CAL é utilizado para manipulação do calendário contábil na atualização.

The entry point CTA400CAL is used for manipulating the accounting calendar during the update.

Events

Eventos

STATIC Function Ct400CTG(cCalend,cExerc,cFilCal)

Local aSaveArea    := GetArea()
Local cFIlCTG        := xFilial("CTG",cFilCal)

dbSelectArea("CTG")
dbSetOrder(1)
If MsSeek( cFIlCTG +cCalend+cExerc)
    While CTG->CTG_FILIAL == cFIlCTG .And. CTG->CTG_CALEND == cCalend .And. ;
            CTG->CTG_EXERC == cExerc .And. CTG->(!Eof())
        Reclock("CTG",.F.)
        CTG->CTG_STATUS := '2'
        MsUnlock()
        CTG->(dbSkip())
    End
EndIf

RestArea(aSaveArea)

If ExistBlock("CTA400CAL")
    ExecBlock("CTA400CAL",.F.,.F.,{cCalend, cExerc})
Endif
Return

Programa Fonte

Source Program

CTBA400.PRW

Sintaxe

Syntax

CTA400CAL -

Atualização do calendario contábil

Update of the accounting calendar ( < cCalend> , < cExerc> )

Parâmetros

Parameters:

NomeTipoDescriçãoObrigatórioReferênciaCódigo do calendárioCódigo do exercicio

Name

Type

Description

Default

Mandatory

Reference

cCalend

Caracter

Character

Calendar code.

X

cExerc

Array of Record

Fiscal year code.

X

Retorno

Return

()

Exemplos

Examples

#include

"Protheus.ch"User

Function

CTA400CAL()Local

cCalend

:=

paramixb[1]Local

cExerc

cExerc :=

paramixb[2]

msgalert(

'O ponto de entrada recebe os parametros : cCalend : ' + cCalend + ' , cExerc : ' + cExerc ) Return

'The entry point receives the parameters : cCalend : ' + cCalend + ' , cExerc : ' + cExerc ) Return

Páginas filhas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave