Page tree
Skip to end of metadata
Go to start of metadata

Ponto-de-Entrada: CTA400CAL - Atualização do calendario contábil
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil) , Português (Portugal) , Espanhol , Inglês
Descrição:
O ponto de entrada CTA400CAL é utilizado para manipulação do calendário contábil na atualização.
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
CTBA400.PRW
Sintaxe

CTA400CAL - Atualização do calendario contábil ( < cCalend> , < cExerc> )

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
cCalendCaracterCódigo do calendário.X
cExercArray of RecordCódigo do exercicio.X
Retorno
    ()
Exemplos
#include "Protheus.ch"User Function CTA400CAL()Local cCalend := paramixb[1]Local cExerc	 := paramixb[2]     msgalert( 'O ponto de entrada recebe os parametros : cCalend : ' +  cCalend + ' , cExerc : ' + cExerc   )	Return