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
Sintaxe
CTA400CAL - Atualização do calendario contábil ( < cCalend> , < cExerc> )
Parâmetros:
| Nome | | | Tipo | | | Descrição | | | Default | | | Obrigatório | | | Referência | |
| cCalend | | | Caracter | | | Código do calendário. | | | | | | X | | | | |
| cExerc | | | Array of Record | | | Código do exercicio. | | | | | | X | | | | |
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