Línea de |
producto: | Microsiga Protheus |
Segmento: |
Servicios | |
Módulo: | SIGACTB |
Rutina: |
|
|
|
Cadastros Iniciais
| |
Registros iniciales: |
Plan de |
cuentas - CT1 |
Asientos contables - CT2 |
Punto de |
entrada: | CT192POS() |
Llamados relacionados | TVQLSU |
País(es): | Todos |
Base(s) de |
datos: | Todos |
Sistema(s) |
operativo( |
s): | Todos |
O ponto El punto de entrada CT192POS possibilita outros processamentos após o término dos jobs de reprocessamento da rotina CTBA192.
permite otros procesamientos después de la finalización de los jobs de reprocesamiento de la rutina CTBA192.
Descripción: | Este punto de entrada permite efectuar otros procesamientos después de la finalización de los procesamientos presentes en la rutina |
Eventos: | Reprocesamiento de saldos por cuenta |
Programa fuente: | CTBA192 |
Ejemplo
Descrição: | Este ponto de entrada permite efetuar demais processamentos após o término dos processamentos já presentes na rotina |
Eventos: | Reprocessamento de saldos por conta |
Programa Fonte: | CTBA192 |
Exemplo:
#Include 'Protheus.ch'
User Function CT192POS()
Local aArea := GetArea()
Local aCtbMoeda := {}
Local cFilDe := PARAMIXB[1]
Local cFilAte := PARAMIXB[2]
Local dDataIni := PARAMIXB[3]
Local dDataFim := PARAMIXB[4]
Local lMoedaEsp := PARAMIXB[5]
Local cMoeda := PARAMIXB[6]
Local cTpSald := PARAMIXB[7]
SAVEINTER()
// Tratamento da moeda especificaTratamiento de la moneda específica
If lMoedaEsp
aCtbMoeda := CtbMoeda( cMoeda )
If Empty( aCtbMoeda[1] )
Help(" ",1,"NOMOEDA")
Return Nil
EndIf
nMoedaIni := Val( cMoeda )
nMoedaFim := Val( cMoeda )
Else
nMoedaIni := 1
nMoedaFim := __nQuantas
EndIf
Conout( "CT192POS: Iniciando processo de atualização do el proceso de actualización del LOTE" )
//Reprocessa totais por lote => atualiza actualiza CT6
Ctb190Lote(nMoedaIni,nMoedaFim,cFilDe,cFilAte,cTpSald,dDataIni,dDataFim)
Conout( "CT192POS: Iniciando processo de atualização do el proceso de actualización del DOCUMENTO" )
//Reprocessa totais Reprocesa totales por documento => atualiza actualiza CTC
Ctb190Doc(nMoedaIni,nMoedaFim,cFilDe,cFilAte,cTpSald,dDataIni,dDataFim)
Conout( "CT192POS: Iniciando processo de atualização do el proceso de actualización del FLAG DE CONTA PONTECUENTA PUENTE" )
//Atualiza os Actualiza los flags de conta pontecuenta puente.
CtbFlgPon(nMoedaIni,nMoedaFim,cFilDe,cFilAte,cTpSald,dDataIni,dDataFim)
Conout( "CT192POS: PROCESSO CONCLUIDO¡PROCESO FINALIZADO!" )
RESTINTER()
RestArea( aArea )
Return Nil