Sunday, October 13, 2013

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'

No comments:

Post a Comment