lib

proc Form_Start()

     f = TopForm()

     mode = __params[4]

     if (mode = "ALL_MODE") then
        call SetCaption("Quality Control")
     elseif (mode = "PROCESS_MODE") then
        str = strcat("Quality Control for Schedule : ",__params[5])
        call SetCaption(str)
     endif

end

proc Lst_DblClick()

    call OpenFormTop("ptEdit";"AU_QUALCONTR_E.FM";"WORK.AU_QUALCONTR";1;"?=AU_QUALCONTR")

end

proc Panels_Start()

     mode = __params[4]

     if (mode = "ALL_MODE") then

        start_sql "DATA" "KOSMOS"
         SELECT AU_QUALCONTR.QDATE, AU_QUALCONTR.QNUMBER, AU_GOOD.TITLE, AU_STEP.COMM,
         AU_STEP.ACTIVITY, AU_QUALCONTR.AU_QUALCONTR, AU_QUALCONTR.AU_STEP,
         AU_QUALCONTR.AU_PROCESS, AU_QUALCONTR.ACCEPT_FLAG, AU_QUALCONTR.REJECT_FLAG
         FROM AU_STEP INNER JOIN (AU_GOOD INNER JOIN AU_QUALCONTR ON AU_GOOD.AU_GOOD = AU_QUALCONTR.AU_GOOD)
         ON AU_STEP.AU_STEP = AU_QUALCONTR.AU_STEP
        end_sql
        q = QueryByName("DATA")

     endif
     if (mode = "PROCESS_MODE") then

        start_sql "DATA" "KOSMOS"
         SELECT AU_QUALCONTR.QDATE, AU_QUALCONTR.QNUMBER, AU_GOOD.TITLE, AU_STEP.COMM,
         AU_STEP.ACTIVITY, AU_QUALCONTR.AU_QUALCONTR, AU_QUALCONTR.AU_STEP,
         AU_QUALCONTR.AU_PROCESS, AU_QUALCONTR.ACCEPT_FLAG, AU_QUALCONTR.REJECT_FLAG
         FROM AU_STEP INNER JOIN (AU_GOOD INNER JOIN AU_QUALCONTR ON AU_GOOD.AU_GOOD = AU_QUALCONTR.AU_GOOD)
         ON AU_STEP.AU_STEP = AU_QUALCONTR.AU_STEP
         WHERE (AU_QUALCONTR.AU_PROCESS = :P)
        end_sql
        q = QueryByName("DATA")
        call TSetParam(q,"P",__params[5]

     endif

     call TPrepare(q)

end

proc append()

     if (mode = "PROCESS_MODE") then

         call OpenFormTop("ptAppend";"AU_QUALCONTR_E.FM";"WORK.AU_QUALCONTR";1;"?=AU_QUALCONTR",mode,__params[5])

     else

         call OpenFormTop("ptAppend";"AU_QUALCONTR_E.FM";"WORK.AU_QUALCONTR";1;"?=AU_QUALCONTR")

     endif

end