AU_STEP_STAND

AU_STEP_STAND_E.FM

Subactivity Name

Quant

Measure

Std Time(min)

Rate(Q/hr)

Subactivities

Description

Prototype Quantity

Q Measure

Setup Time (min)

Cleanup Time (min)

Rate (Q/hr)

Extra Time (min)

Activity Name

Procedure Name

Analysis

Persons Cnt

Activity Liimit (Days)

Title : Activity's Standards Entry

Toolbars

call BrowseEditInsert()
call BrowseEditDoVKUp(fld_id,fld_val,key)
call BrowseEditDoVKDown(fld_id,fld_val,key)
call BrowseEditDelete()
call CloseForm(True)
call CloseForm(False)

Buttons

Fields

(AU_STEP_STAND_ITM.SNAME)
(AU_STEP_STAND_ITM.QUANT0)
(AU_STEP_STAND_ITM.SQUANT_MEAS)
(AU_STEP_STAND_ITM.STIME_MIN)
(AU_STEP_STAND_ITM.SRATE_HR)
Description (AU_STEP_STAND.DESCR)
Prototype Quantity (AU_STEP_STAND.QUANT0)
Q Measure (AU_STEP_STAND.QUANT_MEAS)
Setup Time (min) (AU_STEP_STAND.SETUP_TIME_MIN)
Cleanup Time (min) (AU_STEP_STAND.CLEANUP_TIME_MIN)
Rate (Q/hr) (AU_STEP_STAND.RATE_HR)
Extra Time (min) (AU_STEP_STAND.EXTR_PROD_MIN)
Activity Name (AU_STEP_STAND.ATITLE)
Procedure Name (AU_STEP_STAND.APROC)
Analysis (AU_STEP_STAND.ANALYSIS_FLAG)
Persons Cnt (AU_STEP_STAND.PERSON_CNT)
Activity Liimit (Days) (AU_STEP_STAND.DLIMIT)

AutoScript

lib

fun Form_BeforeClose()

    result = 1
    f = TopForm()
    p = PByName(f,"AU_STEP_STAND")
    t = TByName(p,"AU_STEP_STAND")
    t_anal = PByName(f,"AU_STEP_STAND_ITM")
    t_anal = TByName(t_anal,"AU_STEP_STAND_ITM")

    count = TRecordCount(t_anal)
    if (count = 0) then
       anal_flag = 0
    else
       anal_flag = 1
    endif

    call TEdit(t)
    call TSetFld(t,"ANALYSIS_FLAG",anal_flag)
    call TPost(t)

end