Dynamics GP - Field Service Contract Line Mail Merge Macro

ActivateWindow dictionary 'FieldService'  form 'SVC_Contract_Maintenance' window 'SVC_Contract_Maintenance'

  ClickHit field 'Contract Record Type' item 2  # 'Contract'

  MoveTo field 'Contract Number'

  TypeTo field 'Contract Number' , '«ContNo»'

  MoveTo field 'Customer Number'

  MoveTo field '(L) Contract Lines'

  ClickHit field '(L) Contract Lines'

NewActiveWin dictionary 'FieldService'  form 'SVC_Contract_Maintenance' window 'SVC_Contract_Line_Entry'

  ScrollByLine down scrollwin 'SVC_Contract_Line_Entry_Scroll'

  ScrollByLine down scrollwin 'SVC_Contract_Line_Entry_Scroll'

  ScrollByLine down scrollwin 'SVC_Contract_Line_Entry_Scroll'

  ScrollByLine down scrollwin 'SVC_Contract_Line_Entry_Scroll'

  ScrollByLine down scrollwin 'SVC_Contract_Line_Entry_Scroll'

# Key 1: '0', '', '0.00000'

  MoveTo line «Line» scrollwin 'SVC_Contract_Line_Entry_Scroll' field 'Item Number'

# Key 1: '0', '', '0.00000'

  TypeTo line «Line» scrollwin 'SVC_Contract_Line_Entry_Scroll' field 'Item Number' , '«ServiceItemNumber»'

# Key 1: '0', '', '0.00000'

  MoveTo line «Line» scrollwin 'SVC_Contract_Line_Entry_Scroll' field '(L) Serial Number'

ActivateWindow dictionary 'FieldService'  form 'SVC_Contract_Maintenance' window 'SVC_Contract_Line_Entry'

# Key 1: '0', '', '0.00000'

  TypeTo line «Line» scrollwin 'SVC_Contract_Line_Entry_Scroll' field '(L) Serial Number' , '«EquipmentNumber»'

# Key 1: '0', '', '0.00000'

  MoveTo line «Line» scrollwin 'SVC_Contract_Line_Entry_Scroll' field 'U Of M'

# Key 1: '0', '', '0.00000'

  MoveTo line «Line» scrollwin 'SVC_Contract_Line_Entry_Scroll' field QTY

# Key 1: '0', '', '0.00000'

  TypeTo line «Line» scrollwin 'SVC_Contract_Line_Entry_Scroll' field QTY , '1'

# Key 1: '0', '', '0.00000'

  MoveTo line «Line» scrollwin 'SVC_Contract_Line_Entry_Scroll' field '(L) SVC Monthly Price'

ActivateWindow dictionary 'FieldService'  form 'SVC_Contract_Maintenance' window 'SVC_Contract_Line_Entry'

# Key 1: '0', '', '0.00000'

  TypeTo line «Line» scrollwin 'SVC_Contract_Line_Entry_Scroll' field '(L) SVC Monthly Price' , '«RlCost»'

# Key 1: '0', '', '0.00000'

  MoveTo line «Line» scrollwin 'SVC_Contract_Line_Entry_Scroll' field 'Item Description'

# Key 1: '0', '', '0.00000'

  MoveTo line «Line» scrollwin 'SVC_Contract_Line_Entry_Scroll' field 'Config Reference'

# Key 1: '0', '', '0.00000'

  MoveTo line «Line» scrollwin 'SVC_Contract_Line_Entry_Scroll' field 'Start Date'

# Key 1: '0', '', '0.00000'

  MoveTo line «Line» scrollwin 'SVC_Contract_Line_Entry_Scroll' field 'End Date'

# Key 1: '0', '', '0.00000'

  MoveTo line «Line» scrollwin 'SVC_Contract_Line_Entry_Scroll' field 'Bill Start'

# Key 1: '0', '', '0.00000'

  MoveTo line «Line» scrollwin 'SVC_Contract_Line_Entry_Scroll' field 'Bill End'

# Key 1: '0', '', '0.00000'

  MoveTo line «Line» scrollwin 'SVC_Contract_Line_Entry_Scroll' field '(L) Total'

  MoveTo field 'OK Button'

  ClickHit field 'OK Button'

NewActiveWin dictionary 'FieldService'  form 'SVC_Contract_Maintenance' window 'SVC_Contract_Maintenance'

  MoveTo field 'Save Button'

  ClickHit field 'Save Button'