Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
...
Pagetitle | ||
---|---|---|
|
...
|
...
|
...
|
...
|
...
Punto de entrada: CTA400CAL -
...
Actualización del calendario
...
contable
...
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