Alcances: | Microsiga Protheus 10, Microsiga Protheus 11 |
Versiones: | Microsiga Protheus 10, Microsiga Protheus 11 |
Compatible países: | Todos |
Sistemas operativos: | Todos |
Compatible con las bases de datos: | Todas |
Idiomas: | Portugués (Brasil) , Portugués (Portugal) , Español , Inglés |
Descripción:
El punto de entrada CTA400CAL se utiliza para manejo del calendario contable en la actualización.
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 fuente
CTBA400.PRW
Sintaxis
CTA400CAL - Actualización del calendario contable ( < cCalend> , < cExerc> )
Parámetros:
Nombre | Tipo | Descripción | Estándar | Obligatorio | Referencia | ||||||||||||
cCalend | Carácter | Código del calendario. | X | ||||||||||||||
cExerc | Array of Record | Código del ejercicio. | X |
Devolución
()
Ejemplos
#include "Protheus.ch"User Function CTA400CAL()Local cCalend := paramixb[1]Local cExerc := paramixb[2] msgalert( 'El punto de entrada recibe los parámetros : cCalend : ' + cCalend + ' , cExerc : ' + cExerc ) Return