  // Method: COMPILER_ld_work_arr
  // 2005.07.20-16:57:56 / Arto Kokkila
  // © Copyright 2005 Manage Applications
  // Purpose:
  //
  // ------------------------------------------------------------
  //COMPILER_LD_ALL_ARR, COMPILER_LD_phase_ARR
C_LONGINT($ld_lWorkArrSize)
$ld_lWorkArrSize:=97

ARRAY LONGINT(ld_alWorkArr;$ld_lWorkArrSize)  //this set is used BOTH ld_apWorkArr and ld_apAllArrFld !!!
  // these arrays contain usually work phases for current load group
ld_alworkarr{1}:=wos_work_load_group_id
ld_alworkarr{2}:=wos_production_lot__work_ph
ld_alworkarr{3}:=w_name
ld_alworkarr{4}:=wos_work_phase_state
ld_alworkarr{5}:=wos_work_time
ld_alworkarr{6}:=wos_start_date
ld_alworkarr{7}:=wos_start_time
ld_alworkarr{8}:=wos_end_date
ld_alworkarr{9}:=wos_end_time
ld_alworkarr{10}:=wos_extra_hours
ld_alworkarr{11}:=wos_extra_end_date
ld_alworkarr{12}:=wos_extra_end_time
ld_alworkarr{13}:=wos_remaining_amount
ld_alworkarr{14}:=wos_produced_amount
ld_alworkarr{15}:=wos_subcontract
ld_alworkarr{16}:=wos_production_lot
ld_alworkarr{17}:=wos_work_phase
ld_alworkarr{18}:=wlg_loading_type
ld_alworkarr{19}:=w_product_id
ld_alworkarr{20}:=pr_production_control_type
ld_alworkarr{21}:=wo_work_order_id
ld_alworkarr{22}:=wo_delivery_date
ld_alworkarr{23}:=wos_linking_hours
ld_alworkarr{24}:=wos_link_target  //pm: 2009-02-04
ld_alworkarr{25}:=wos_link_to_start  //not in use
ld_alworkarr{26}:=pr_shelf_stock_balance  //pm: 2009-01-22, was: wos_prod_lot__linked_phase
ld_alworkarr{27}:=wos_previous_phase
ld_alworkarr{28}:=wos_next_phase
ld_alworkarr{29}:=wo_work__position_num_id
ld_alworkarr{30}:=pr_stock_position
ld_alworkarr{31}:=wo_info
ld_alworkarr{32}:=wo_company_id
ld_alworkarr{33}:=wo_drawing_number
ld_alworkarr{34}:=wo_started_amount
ld_alworkarr{35}:=wo_material_est_arrival_date
ld_alworkarr{36}:=wo_sales_order_id
ld_alworkarr{37}:=pr_raw_material_delivery_time
ld_alworkarr{38}:=wo_serial_number
ld_alworkarr{39}:=wos_work_description
ld_alworkarr{40}:=wos_info
ld_alworkarr{41}:=wo_produced_amount

ld_alworkarr{42}:=wo_critical_date
ld_alworkarr{43}:=wo_critical_date_delayed
ld_alworkarr{44}:=wo_critical_date_real
ld_alworkarr{45}:=wos_phase_critical_start_date
ld_alworkarr{46}:=wos_phase_critical_start_time
ld_alworkarr{47}:=wos_phase_critical_date
ld_alworkarr{48}:=wos_phase_critical_time
ld_alworkarr{49}:=wos_phase_critical_extra_date
ld_alworkarr{50}:=wos_phase_critical_extra_time
ld_alworkarr{51}:=wos_phase_critical_date_delayed
ld_alworkarr{52}:=wos_critical_date_difference
ld_alworkarr{53}:=wos_urgency_index

ld_alworkarr{54}:=wos_failed_amount
ld_alworkarr{55}:=wos_setup_time
ld_alworkarr{56}:=wos_employee_id
ld_alworkarr{57}:=wos_material_owner
ld_alworkarr{58}:=wo_failed_amount
ld_alworkarr{59}:=wo_remaining_amount

  //<>ld_linfofld1:=pr_product_group
  //<>ld_linfofld2:=pr_subgroup
  //<>ld_linfofld3:=pr_quality
  //<>ld_linfofld4:=pr_abc_class
ld_alworkarr{60}:=<>ld_linfofld1  //pr_product_group   //ld_all_atinfofld1
ld_alworkarr{61}:=<>ld_linfofld2  //pr_subgroup   //ld_all_atinfofld2
ld_alworkarr{62}:=<>ld_linfofld3  //pr_quality   //ld_all_atinfofld3
ld_alworkarr{63}:=<>ld_linfofld4  //pr_abc_class   //ld_all_atinfofld4

ld_alworkarr{64}:=wos_est_work_time__unit
ld_alworkarr{65}:=wos_est_setup_time__lot
ld_alworkarr{66}:=wos_est_bonus_work_time__unit
ld_alworkarr{67}:=wos_est_setup_salary__hour
ld_alworkarr{68}:=wos_est_salary__hour
ld_alworkarr{69}:=wos_est_machine_setup_cost__ho
ld_alworkarr{70}:=wos_est_machine_work_cost__hou
ld_alworkarr{71}:=wos_est_contract_price__unit
ld_alworkarr{72}:=wos_act_end_date

  //compiler_pr_fld
ld_alworkarr{73}:=pr_stock_balance__unit
ld_alworkarr{74}:=pr_true_going_amount
ld_alworkarr{75}:=wo_transfer_info
ld_alworkarr{76}:=wo_state
ld_alworkarr{77}:=pr_drawing_number__material
ld_alworkarr{78}:=wos_load_multiplier
ld_alworkarr{79}:=wo_critical_start_date
ld_alworkarr{80}:=wo_critical_start_time

ld_alworkarr{81}:=wos_track_time
ld_alworkarr{82}:=wos_track_time_status

ld_alworkarr{83}:=wos_subtype
ld_alworkarr{84}:=wos_state
ld_alworkarr{85}:=wos_additional_data
ld_alworkarr{86}:=wos_reclamation_count

ld_alworkarr{87}:=pr_coming_amount
ld_alworkarr{88}:=pr_going_amount
ld_alworkarr{89}:=pr_free_amount

ld_alworkarr{90}:=wos_target_time
ld_alworkarr{91}:=pr_document_count
ld_alworkarr{92}:=wos_delivery_to_customer
ld_alworkarr{93}:=wo_parent_production_lot
ld_alworkarr{94}:=wos_planned_work_time
ld_alworkarr{95}:=wos_advance
ld_alworkarr{96}:=wos_delay
ld_alworkarr{97}:=wos_phase_cr_start_date_delaye

  // if you add arrays edit also
  // COMPILER_ld_all_arr
  // ld_WORK_ARR_ALL_ARR_ELEM_COPY
  // take care of array order!


ld_apWorkArr{1}:=->ld_work_asWork_Load_Group_id
ld_apWorkArr{2}:=->ld_work_asProduction_Lot__work_
ld_apWorkArr{3}:=->ld_work_atName
ld_apWorkArr{4}:=->ld_work_asWork_Phase_State
ld_apWorkArr{5}:=->ld_work_arWork_Time
ld_apWorkArr{6}:=->ld_work_adStart_Date
ld_apWorkArr{7}:=->ld_work_ahStart_Time
ld_apWorkArr{8}:=->ld_work_adEnd_Date
ld_apWorkArr{9}:=->ld_work_ahEnd_Time
ld_apWorkArr{10}:=->ld_work_arExtra_Hours
ld_apWorkArr{11}:=->ld_work_adExtra_End_Date
ld_apWorkArr{12}:=->ld_work_ahExtra_End_Time
ld_apWorkArr{13}:=->ld_work_arRemaining_Amount
ld_apWorkArr{14}:=->ld_work_arProduced_Amount
ld_apWorkArr{15}:=->ld_work_afSubcontract
ld_apWorkArr{16}:=->ld_work_asProduction_Lot
ld_apWorkArr{17}:=->ld_work_alWork_Phase
ld_apWorkArr{18}:=->ld_work_alWlgLoadingType
ld_apWorkArr{19}:=->ld_work_atProduct_id  //TipText
ld_apWorkArr{20}:=->ld_work_alProductionControlType  //TipText
ld_apWorkArr{21}:=->ld_work_atWorkOrder_id  //TipText
ld_apWorkArr{22}:=->ld_work_adDeliveryDate  //TipText
ld_apWorkArr{23}:=->ld_work_arLinkingHours
ld_apWorkArr{24}:=->ld_work_alLinkTarget  //PM: 2009-02-04
ld_apWorkArr{25}:=->ld_work_afProdLot_LinkToStart  //unused-field
ld_apWorkArr{26}:=->ld_work_arShelf_Stock_Balance  //PM: 2009-01-22
ld_apWorkArr{27}:=->ld_work_atPhasePrev
ld_apWorkArr{28}:=->ld_work_atPhaseNext
ld_apWorkArr{29}:=->ld_work_atWork_id
ld_apWorkArr{30}:=->ld_work_atStockPosition
ld_apWorkArr{31}:=->ld_work_atInfo
ld_apWorkArr{32}:=->ld_work_atCompany_id
ld_apWorkArr{33}:=->ld_work_atDrawing_Number
ld_apWorkArr{34}:=->ld_work_arStarted_Amount
ld_apWorkArr{35}:=->ld_work_adMatEstArrivalDate
ld_apWorkArr{36}:=->ld_work_atSales_Order_id
ld_apWorkArr{37}:=->ld_work_arRaw_Mat_Delivery_Time
ld_apWorkArr{38}:=->ld_work_atSerial_Number
ld_apWorkArr{39}:=->ld_work_atWosDescription  //PM: 2006-02-03
ld_apWorkArr{40}:=->ld_work_atWosInfo  //PM: 2006-02-03
ld_apWorkArr{41}:=->ld_work_arWoProduced_Amount  // ME: 2006-02-06

ld_apWorkArr{42}:=->ld_work_adCriticalDate  //PM: 2006-02-06
ld_apWorkArr{43}:=->ld_work_adCriticalDateDelayed
ld_apWorkArr{44}:=->ld_work_adCriticalDateReal
ld_apWorkArr{45}:=->ld_work_adPhaseCriticalStartDat
ld_apWorkArr{46}:=->ld_work_ahPhaseCriticalStartTim
ld_apWorkArr{47}:=->ld_work_adPhaseCriticalDate
ld_apWorkArr{48}:=->ld_work_ahPhaseCriticalTime
ld_apWorkArr{49}:=->ld_work_adPhaseCriticalExtraDat
ld_apWorkArr{50}:=->ld_work_ahPhaseCriticalExtraTim
ld_apWorkArr{51}:=->ld_work_adPhaseCriticalDateDela
ld_apWorkArr{52}:=->ld_work_alCriticalDateDiff
ld_apWorkArr{53}:=->ld_work_arUrgencyIndex

ld_apWorkArr{54}:=->ld_work_arFailed_Amount  //ME: 2006-02-22
ld_apWorkArr{55}:=->ld_work_arSetup_Time  //PM: 2006-04-26
ld_apWorkArr{56}:=->ld_work_atEmployee_id
ld_apWorkArr{57}:=->ld_work_alMaterial_Owner
ld_apWorkArr{58}:=->ld_work_arWoFailed_Amount  //AK: 2006-07-31
ld_apWorkArr{59}:=->ld_work_arWoRemaining_Amount  //AK: 2006-07-31

ld_apWorkArr{60}:=->ld_work_atInfoFld1
ld_apWorkArr{61}:=->ld_work_atInfoFld2
ld_apWorkArr{62}:=->ld_work_atInfoFld3
ld_apWorkArr{63}:=->ld_work_atInfoFld4

ld_apWorkArr{64}:=->ld_work_arEstWorkTime_unit  //PM: 2007-06-25//AK: 2007-10-10
ld_apWorkArr{65}:=->ld_work_arEstSetupTime_lot
ld_apWorkArr{66}:=->ld_work_arEstBonusWorkTime__uni
ld_apWorkArr{67}:=->ld_work_arEstSetupSalary_hour
ld_apWorkArr{68}:=->ld_work_arEstSalary_hour
ld_apWorkArr{69}:=->ld_work_arEstMacSetupCost_hou
ld_apWorkArr{70}:=->ld_work_arEstMacWorkCost_hour
ld_apWorkArr{71}:=->ld_work_arEstContrPrice_unit
ld_apWorkArr{72}:=->ld_work_adActEndDate

ld_apWorkArr{73}:=->ld_work_arStockBalance  //PM: 2008-10-02
ld_apWorkArr{74}:=->ld_work_arTrueGoingAmount
ld_apWorkArr{75}:=->ld_work_atWoTransferInfo
ld_apWorkArr{76}:=->ld_work_atWoState
ld_apWorkArr{77}:=->ld_work_atDrawingMaterial
ld_apWorkArr{78}:=->ld_work_arLoadMultiplier
ld_apWorkArr{79}:=->ld_work_adCriticalStartDate  //PM: 2009-11-11
ld_apWorkArr{80}:=->ld_work_ahCriticalStartTime  //PM: 2009-11-11

ld_apWorkArr{81}:=->ld_work_arTrackTime  //PM: 2010-10-19
ld_apWorkArr{82}:=->ld_work_alTrackTimeStatus  //PM: 2010-10-19

ld_apWorkArr{83}:=->ld_work_atSubtype
ld_apWorkArr{84}:=->ld_work_alState
ld_apWorkArr{85}:=->ld_work_atAdditionalData
ld_apWorkArr{86}:=->ld_work_alReclamationCount

ld_apWorkArr{87}:=->ld_work_arComingAmount
ld_apWorkArr{88}:=->ld_work_arGoingAmount
ld_apWorkArr{89}:=->ld_work_arFreeAmount

ld_apWorkArr{90}:=->ld_work_arTargetTime
ld_apWorkArr{91}:=->ld_work_alDocumentCount
ld_apWorkArr{92}:=->ld_work_alDeliveryToCustomer
ld_apWorkArr{93}:=->ld_work_atParentProductionLot
ld_apWorkArr{94}:=->ld_work_arPlannedWorkTime
ld_apWorkArr{95}:=->ld_work_arAdvance
ld_apWorkArr{96}:=->ld_work_arDelay
ld_apWorkArr{97}:=->ld_work_adPhaseCrStartDateDelay

  //end of normal fld arrays


  //calculated starts here:
  //not loaded from data, handled at: ld_WORK_ARR_ALL_ARR_ELEM_COPY
$ld_lSize:=Size of array(ld_apWorkArr)
_arr RESIZE (->ld_apWorkArr;$ld_lSize+31)
ld_apWorkArr{$ld_lSize+1}:=->ld_work_alAllArrIndex
ld_apWorkArr{$ld_lSize+2}:=->ld_work_alPhasesBefore  //calculated later
ld_apWorkArr{$ld_lSize+3}:=->ld_work_arAmountToStart
ld_apWorkArr{$ld_lSize+4}:=->ld_work_alColor
ld_apWorkArr{$ld_lSize+5}:=->ld_work_alDaysToFinish
ld_apWorkArr{$ld_lSize+6}:=->ld_work_arRemainingCapacity
ld_apWorkArr{$ld_lSize+7}:=->ld_work_alRawMaterialState
ld_apWorkArr{$ld_lSize+8}:=->ld_work_arCumulativeFree
ld_apWorkArr{$ld_lSize+9}:=->ld_work_adMatEstOrderDate
ld_apWorkArr{$ld_lSize+10}:=->ld_work_atPurchase_Order__Row
ld_apWorkArr{$ld_lSize+11}:=->ld_work_atSupplier
  //ld_apWorkArr{$ld_lSize+12}:=->ld_work_alDocumentCount

ld_apWorkArr{$ld_lSize+12}:=->ld_work_atRawMaterials  //extra work array calculated on-the-fly
ld_apWorkArr{$ld_lSize+13}:=->ld_work_atPhaseWorkDescription  //extra work array calculated on-the-fly
ld_apWorkArr{$ld_lSize+14}:=->ld_work_atPhaseInfo  //extra work array calculated on-the-fly
ld_apWorkArr{$ld_lSize+15}:=->ld_work_arAmountToCollect  //extra work array calculated on-the-fly
ld_apWorkArr{$ld_lSize+16}:=->ld_work_atCustomerProject
ld_apWorkArr{$ld_lSize+17}:=->ld_work_atCustomerOrderNumber  //AK: 2012-05-03
ld_apWorkArr{$ld_lSize+18}:=->ld_work_atTag
ld_apWorkArr{$ld_lSize+19}:=->ld_work_agGraph
  //ld_apWorkArr{$ld_lSize+20}:=->ld_work_arDelay
ld_apWorkArr{$ld_lSize+20}:=->ld_work_alOrder  // PM: 2011-03-18
ld_apWorkArr{$ld_lSize+21}:=->ld_work_alOtherPhaseLockedState  // ak 2011-07-22
ld_apWorkArr{$ld_lSize+22}:=->ld_work_agTrackTimeGraph  // ak 2011-07-22

  //AK: 2012-02-29
ld_apWorkArr{$ld_lSize+23}:=->ld_work_arOrderedAmount
ld_apWorkArr{$ld_lSize+24}:=->ld_work_arMatSubComingAmount
ld_apWorkArr{$ld_lSize+25}:=->ld_work_arWorkTimeProgress
ld_apWorkArr{$ld_lSize+26}:=->ld_work_alPurchaseConfirmation
ld_apWorkArr{$ld_lSize+27}:=->ld_work_alNotReadySameLevel
ld_apWorkArr{$ld_lSize+28}:=->ld_work_alNotReadyLowerLevel
ld_apWorkArr{$ld_lSize+29}:=->ld_work_atSalesOrder_Row
ld_apWorkArr{$ld_lSize+30}:=->ld_work_atParentLoadGroup
ld_apWorkArr{$ld_lSize+31}:=->ld_work_atParentWorkOrderId

COPY ARRAY(ld_apWorkArr;ld_apWorkArrOrigOrder)
  // copy original, ld_apWorkArr ordr will be changed by alp area definition

ARRAY STRING(80;ld_atWorkArrHdr;$ld_lWorkArrSize)  //bigger than ld_alWorkArr !
ld_atWorkArrHdr{1}:=_lang Current ("LGr")+":30"  //_fld Name (wos_Work_Load_Group_id )
ld_atWorkArrHdr{2}:=_fld Name (wos_Production_Lot__work_ph)
ld_atWorkArrHdr{3}:=_fld Name (w_Name)+":120"
ld_atWorkArrHdr{4}:=_lang Current ("State")+":30"  //_fld Name (wos_Work_Phase_State )
ld_atWorkArrHdr{5}:=_fld Name (wos_Work_Time)+":44"
ld_atWorkArrHdr{6}:=_fld Name (wos_Start_Date)+":52:1"
ld_atWorkArrHdr{7}:=_fld Name (wos_Start_Time)+":57:&/1"
ld_atWorkArrHdr{8}:=_fld Name (wos_End_Date)+":52:1"
ld_atWorkArrHdr{9}:=_fld Name (wos_End_Time)+":57:&/1"
ld_atWorkArrHdr{10}:=_fld Name (wos_Extra_Hours)+":50"
ld_atWorkArrHdr{11}:=_fld Name (wos_Extra_End_Date)+":60:1"
ld_atWorkArrHdr{12}:=_fld Name (wos_Extra_End_Time)+":60:&/1"
ld_atWorkArrHdr{13}:=_fld Name (wos_Remaining_Amount)
ld_atWorkArrHdr{14}:=_fld Name (wos_Produced_Amount)
ld_atWorkArrHdr{15}:=_fld Name (wos_Subcontract)
ld_atWorkArrHdr{16}:=_fld Name (wos_Production_Lot)+":65"
ld_atWorkArrHdr{17}:=_fld Name (wos_Work_Phase)+":30"
ld_atWorkArrHdr{18}:=_fld Name (wlg_Loading_Type)
ld_atWorkArrHdr{19}:=_fld Name (w_Product_id)+":80"
ld_atWorkArrHdr{20}:=_lang Current ("Order/Stock")+":16:"+_lang Current ("Stock Part abbr")+";;"+_lang Current ("Order Part abbr")  //S/0, in finnish V/O"
ld_atWorkArrHdr{21}:=_fld Name (wo_Work_Order_ID)+":80"
ld_atWorkArrHdr{22}:=_fld Name (wo_Delivery_Date)+":80"
ld_atWorkArrHdr{23}:=_fld Name (wos_Linking_Hours)
ld_atWorkArrHdr{24}:=_fld Name (wos_Link_Target)
ld_atWorkArrHdr{25}:=_fld Name (wos_Link_To_Start)  //unused field
ld_atWorkArrHdr{26}:=_fld Name (pr_Shelf_Stock_Balance)+":50"  //PM: 2009-01-22: was: wos_Prod_Lot__linked_phase
ld_atWorkArrHdr{27}:=_fld Name (wos_Previous_Phase)
ld_atWorkArrHdr{28}:=_fld Name (wos_Next_Phase)
ld_atWorkArrHdr{29}:=_fld Name (wo_Work__Position_Num_id)
ld_atWorkArrHdr{30}:=_fld Name (pr_Stock_Position)+":80"
ld_atWorkArrHdr{31}:=_fld Name (wo_Info)+":80"
ld_atWorkArrHdr{32}:=_fld Name (wo_Company_id)+":80"
ld_atWorkArrHdr{33}:=_fld Name (wo_Drawing_Number)+":80"
ld_atWorkArrHdr{34}:=_fld Name (wo_Started_Amount)
ld_atWorkArrHdr{35}:=_lang Current ("Est. Arrival Date")+":52:1"
ld_atWorkArrHdr{36}:=_fld Name (wo_Sales_Order_id)
ld_atWorkArrHdr{37}:=_lang Current ("Mat. Delivery Time")+":52:1"
ld_atWorkArrHdr{38}:=_lang Current ("Serial Number")+":80"
ld_atWorkArrHdr{39}:=_fld Name (wos_Work_Description)+":80"  //PM: 2006-02-03
ld_atWorkArrHdr{40}:=_fld Name (wos_Info)+":80"  //PM: 2006-02-03
ld_atWorkArrHdr{41}:=_fld Name (wo_Produced_Amount)+":80"  // ME: 2006-02-06

ld_atWorkArrHdr{42}:=_fld Name (wo_Critical_Date)+":52:1"  //PM: 2006-02-06
ld_atWorkArrHdr{43}:=_fld Name (wo_Critical_Date_Delayed)+":52:1"
ld_atWorkArrHdr{44}:=_fld Name (wo_Critical_Date_Real)+":52:1"
ld_atWorkArrHdr{45}:=_fld Name (wos_Phase_Critical_Start_Date)+":52:1"
ld_atWorkArrHdr{46}:=_fld Name (wos_Phase_Critical_Start_Time)+":48:2"
ld_atWorkArrHdr{47}:=_fld Name (wos_Phase_Critical_Date)+":52:1"
ld_atWorkArrHdr{48}:=_fld Name (wos_Phase_Critical_Time)+":48:2"
ld_atWorkArrHdr{49}:=_fld Name (wos_Phase_Critical_Extra_Date)+":52:1"
ld_atWorkArrHdr{50}:=_fld Name (wos_Phase_Critical_Extra_Time)+":48:2"
ld_atWorkArrHdr{51}:=_fld Name (wos_Phase_Critical_Date_Delaye)+":52:1"
ld_atWorkArrHdr{52}:=_fld Name (wos_Critical_Date_Difference)+":60"
ld_atWorkArrHdr{53}:=_fld Name (wos_Urgency_Index)+":60"

ld_atWorkArrHdr{54}:=_fld Name (wos_Failed_Amount)+":60"  //note: wos_
ld_atWorkArrHdr{55}:=_fld Name (wos_Setup_Time)+":44"
ld_atWorkArrHdr{56}:=_fld Name (wos_Employee_id)+":60"
ld_atWorkArrHdr{57}:=_fld Name (wos_Material_Owner)+":44"
ld_atWorkArrHdr{58}:=_fld Name (wo_Failed_Amount)+":60"  //note: wo_
ld_atWorkArrHdr{59}:=_fld Name (wo_Remaining_Amount)+":60"

ld_atWorkArrHdr{60}:=_fld Name (pr_Product_Group)+":60"
ld_atWorkArrHdr{61}:=_fld Name (pr_Subgroup)+":60"  //note: wo_
ld_atWorkArrHdr{62}:=_fld Name (pr_Quality)+":60"
ld_atWorkArrHdr{63}:=_fld Name (pr_ABC_Class)+":60"

ld_atWorkArrHdr{64}:=_fld Name (wos_Est_Work_Time__unit)+":60"
ld_atWorkArrHdr{65}:=_fld Name (wos_Est_Setup_Time__lot)+":60"
ld_atWorkArrHdr{66}:=_fld Name (wos_Est_Bonus_Work_Time__unit)+":60"
ld_atWorkArrHdr{67}:=_fld Name (wos_Est_Setup_Salary__hour)+":60"
ld_atWorkArrHdr{68}:=_fld Name (wos_Est_Salary__hour)+":60"
ld_atWorkArrHdr{69}:=_fld Name (wos_Est_Machine_Setup_Cost__ho)+":60"
ld_atWorkArrHdr{70}:=_fld Name (wos_Est_Machine_Work_Cost__hou)+":60"
ld_atWorkArrHdr{71}:=_fld Name (wos_Est_Contract_Price__unit)+":60"
ld_atWorkArrHdr{72}:=_fld Name (wos_Act_End_Date)+":52:1"

ld_atWorkArrHdr{73}:=_fld Name (pr_Stock_Balance__unit)+":50"
ld_atWorkArrHdr{74}:=_fld Name (pr_True_Going_Amount)+":50"
ld_atWorkArrHdr{75}:=_fld Name (wo_Transfer_Info)+":60"
ld_atWorkArrHdr{76}:=_fld Name (wo_State)+":60"
ld_atWorkArrHdr{77}:=_fld Name (pr_Drawing_Number__Material)+":60"
ld_atWorkArrHdr{78}:=_fld Name (wos_Load_Multiplier)+":42"
ld_atWorkArrHdr{79}:=_fld Name (wo_Critical_Start_Date)+":52:1"
ld_atWorkArrHdr{80}:=_fld Name (wo_Critical_Start_Time)+":48:2"

ld_atWorkArrHdr{81}:=_fld Name (wos_Track_Time)+":52"
ld_atWorkArrHdr{82}:=_fld Name (wos_Track_Time_Status)+":52"

ld_atWorkArrHdr{83}:=_fld Name (wos_Subtype)+":52"
ld_atWorkArrHdr{84}:=_fld Name (wos_State)+":52"
ld_atWorkArrHdr{85}:=_fld Name (wos_Additional_Data)+":80"
ld_atWorkArrHdr{86}:=_fld Name (wos_Reclamation_Count)+":60"

ld_atWorkArrHdr{87}:=_fld Name (pr_Coming_Amount)+":50"
ld_atWorkArrHdr{88}:=_fld Name (pr_Going_Amount)+":50"
ld_atWorkArrHdr{89}:=_fld Name (pr_Free_Amount)+":50"
ld_atWorkArrHdr{90}:=_fld Name (wos_Target_Time)+":50"
ld_atWorkArrHdr{91}:=_lang Current ("Documents")+":50"
ld_atWorkArrHdr{92}:=_fld Name (wos_Delivery_To_Customer)+":50"
ld_atWorkArrHdr{93}:=_fld Name (wo_Parent_Production_Lot)+":60"
ld_atWorkArrHdr{94}:=_fld Name (wos_Planned_Work_Time)+":60"
ld_atWorkArrHdr{95}:=_fld Name (wos_Advance)+":50"
ld_atWorkArrHdr{96}:=_fld Name (wos_Delay)+":50"
ld_atWorkArrHdr{97}:=_fld Name (wos_Phase_Cr_Start_Date_Delaye)+":52:1"


$ld_lSize:=Size of array(ld_atWorkArrHdr)
_arr RESIZE (->ld_atWorkArrHdr;$ld_lSize+31)
ld_atWorkArrHdr{$ld_lSize+1}:=_lang Current ("Array Index")+":30"  //calculated starts here
ld_atWorkArrHdr{$ld_lSize+2}:=_lang Current ("Phases Before")+":80"
ld_atWorkArrHdr{$ld_lSize+3}:=_lang Current ("Amount To Start")+":80"
ld_atWorkArrHdr{$ld_lSize+4}:=_lang Current ("Color")+":30"
ld_atWorkArrHdr{$ld_lSize+5}:=_lang Current ("Days To Finish")+":80"
ld_atWorkArrHdr{$ld_lSize+6}:=_lang Current ("Remaining Capacity")+":50"
ld_atWorkArrHdr{$ld_lSize+7}:=_lang Current ("Raw Material State")+":50"
ld_atWorkArrHdr{$ld_lSize+8}:=_lang Current ("Cumulative Free")+":50:###,###,##0.0"
ld_atWorkArrHdr{$ld_lSize+9}:=_lang Current ("Est. Order Date")+":52:1"
ld_atWorkArrHdr{$ld_lSize+10}:=_lang Current ("Purchase Order")+":80"
ld_atWorkArrHdr{$ld_lSize+11}:=_lang Current ("Supplier")+":80"
  //ld_atWorkArrHdr{$ld_lSize+12}:=_lang Current ("Documents")+":50"  //count of documents

ld_atWorkArrHdr{$ld_lSize+12}:=_lang Current ("Raw Materials")+":80"  //extra work array calculated on-the-fly
ld_atWorkArrHdr{$ld_lSize+13}:=_fld Name (wos_Work_Description)+":80"  //extra work array calculated on-the-fly
ld_atWorkArrHdr{$ld_lSize+14}:=_fld Name (wos_Info)+":80"  //extra work array calculated on-the-fly
ld_atWorkArrHdr{$ld_lSize+15}:=_fld Name (sor_Amount_To_Collect)+":50"  //extra work array calculated on-the-fly
ld_atWorkArrHdr{$ld_lSize+16}:=_fld Name (so_Customer_Project)+":80"
ld_atWorkArrHdr{$ld_lSize+17}:=_fld Name (so_Customer_Order_Number)+":80"
ld_atWorkArrHdr{$ld_lSize+18}:=_fld Name (wpe_Tag)+":80"
ld_atWorkArrHdr{$ld_lSize+19}:=_lang Current ("Graph")+":100"
  //ld_atWorkArrHdr{$ld_lSize+20}:=_lang Current ("Delay")+":52"
ld_atWorkArrHdr{$ld_lSize+20}:=_lang Current ("Order")+":24"  // PM: 2011-03-18
ld_atWorkArrHdr{$ld_lSize+21}:=_lang Current ("Other locked state")+":50"
ld_atWorkArrHdr{$ld_lSize+22}:=_lang Current ("Track time graph")+":60"
ld_atWorkArrHdr{$ld_lSize+23}:=_lang Current ("Ordered")+":45"
ld_atWorkArrHdr{$ld_lSize+24}:=_lang Current ("Coming (mat,sub)")+":80"
ld_atWorkArrHdr{$ld_lSize+25}:=_lang Current ("Progress %")+":60"
ld_atWorkArrHdr{$ld_lSize+26}:=_fld Name (por_Confirmation_State)+":80"
ld_atWorkArrHdr{$ld_lSize+27}:=_lang Current ("Other not ready")+":60"
ld_atWorkArrHdr{$ld_lSize+28}:=_lang Current ("Lower not ready")+":60"
ld_atWorkArrHdr{$ld_lSize+29}:=_lang Current ("Sales order/row")+":60"
ld_atWorkArrHdr{$ld_lSize+30}:=_lang Current ("Parent Lg")+":50"
ld_atWorkArrHdr{$ld_lSize+31}:=_fld Name (wo_Work_Order_ID)+":60"
