Histórico da Página

[GENERAL]
MAXSTRINGSIZE=10
 
[ONSTART]
JOBS=HTTPJOB
REFRESHRATE=120

[HTTPJOB]
MAIN=HTTP_START
ENVIRONMENT=environmentUser Function FINA887() 
Local aParam    := PARAMIXB
Local oModel    := Nil
Local oModelFJT := Nil
Local oModelSEL := Nil
Local cIdPonto  := ""
Local cIdModel  := ""
Local nLineas   := 0
Local nX        := 0
Local lRet      := .T.


    If aParam <> NIL 
        oModel      := aParam[1]
        oModelFJT   := oModel:GetModel("FJT_MASTER") //Datos del encabezado
        oModelSEL   := oModel:GetModel("SEL_DETAIL") //Datos correspondientes a los registros de la tabla SEL
        cIdPonto    := aParam[2] 
        cIdModel    := aParam[3]

        If cIdPonto == 'MODELPOS'
            If Len(AllTrim(oModelFJT:GetValue("FJT_RECIBO"))) < 12
                Help( ,, 'Help',, 'Tamaño del número de recibo', 1, 0 ) 
                lRet      := .F.
            EndIf
            
            nLineas := oModelSEL:Length()

            For nX := 1 To nLineas
                If Empty(oModelSEL:GetValue("EL_NUMERO",nX))
                    Help( ,, 'Help',, 'Número no informado', 1, 0 ) 
                    lRet      := .F.
                EndIf
            Next nX
        ElseIf cIdPonto == 'MODELCOMMITTTS' 
            //'Llamada después de la grabación total del modelo y dentro de la transacción (MODELCOMMITTTS).'
        ElseIf cIdPonto == 'MODELCOMMITNTTS' 
            //'Llamada después de la grabación total del modelo y fuera de la transacción (MODELCOMMITNTTS).' 
        ElseIf cIdPonto == 'FORMCOMMITTTSPOS' 
            //'Llamada después de la grabación de la tabla del formulario (FORMCOMMITTTSPOS).
        EndIf
    EndIf

Return lRet