Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css

...

Pagetitle
CTA400CAL -

...

Actualización del calendario

...

contable
CTA400CAL -

...

Actualización del calendario

...

contable

...


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