DT_PE_CT192POS_Reprocesamiento_CTBA192

Características del requisito

Descripción

El punto de entrada CT192POS permite otros procesamientos después de la finalización de los jobs de reprocesamiento de la rutina CTBA192.

Punto de entrada

Ejemplo:

#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()

// Tratamiento 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 el proceso de actualización del LOTE" )

//Reprocessa totais por lote  => actualiza CT6

Ctb190Lote(nMoedaIni,nMoedaFim,cFilDe,cFilAte,cTpSald,dDataIni,dDataFim)

Conout( "CT192POS: Iniciando el proceso de actualización del DOCUMENTO" )

//Reprocesa totales por documento => actualiza CTC

Ctb190Doc(nMoedaIni,nMoedaFim,cFilDe,cFilAte,cTpSald,dDataIni,dDataFim)

Conout( "CT192POS: Iniciando el proceso de actualización del FLAG DE CUENTA PUENTE" )

//Actualiza los flags de cuenta puente.

CtbFlgPon(nMoedaIni,nMoedaFim,cFilDe,cFilAte,cTpSald,dDataIni,dDataFim)

Conout( "CT192POS: ¡PROCESO FINALIZADO!" )

RESTINTER()

RestArea( aArea )

Return Nil