AU_PUNCHITEM

AU_PUNCHITEM_E.FM

P/L No

Classification

Status

Issue Description

Customer Sign Off Date

Comments

Group

Speciality

KKS Code

Opened By

Responsible Party

MLI

PV Fin de Montage No

Cause Code

Reasoning

Corrective Action

Responsible Department

Equipment

SYSTEMSCOPE

Turnover Package No

Project's Phase

Ready to check

Title : AU_PUNCHITEM

Toolbars

call CloseForm(True)
call CloseForm(False)

Buttons

Fields

P/L No (AU_PUNCHITEM.PLNO)
Classification (AU_PUNCHITEM.CLASSIFICATION)
Status (AU_PUNCHITEM.STATUS)
Issue Description (AU_PUNCHITEM.ISSUEDESCR)
Customer Sign Off Date (AU_PUNCHITEM.CUSTSIGNOFFDATE)
Comments (AU_PUNCHITEM.COMMENTS)
Group (AU_PUNCHITEM.GROUP)
Speciality (AU_PUNCHITEM.SPECIALTY)
KKS Code (AU_PUNCHITEM.KKSCODE)
Opened By (AU_PUNCHITEM.OPENEDBY)
Responsible Party (AU_PUNCHITEM.RESPONSIBLEPARTY)
MLI (AU_PUNCHITEM.MLI)
PV Fin de Montage No (AU_PUNCHITEM.PVFINMONNO)
Cause Code (AU_PUNCHITEM.CAUSECODE)
Reasoning (AU_PUNCHITEM.REASONING)
Corrective Action (AU_PUNCHITEM.CORRECTIVEACTION)
Responsible Department (AU_POS.POS_D)
Equipment (AU_GOOD.TITLE)
SYSTEMSCOPE (AU_GOOD.TITLE)
Turnover Package No (AU_ACTIV_HELP_CHK.CHK_CODE)
Project's Phase (AU_PUNCHITEM.PROJECTPHASE)
Ready to check (AU_PUNCHITEM.TOCHECK_FLAG)

AutoScript

lib

proc Form_Start()

     f = TopForm()
     task = FormTask(f)

     call CbLoad("CLASSIFICATION", "A", "B", "C", "D", "E")
     call CbLoad("STATUS", "OPEN", "CLOSED", "DISPUTED")

end

{============================ Form_End ==============================}

proc Form_End ( uvalue )

     if (task = ptAppend) then

        call bpm_startfsm ( "AU_PUNCHITEM", "START", uvalue)

     endif

end