CTA400CAL - Actualización del calendario contable -- 111014

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:

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