Dump att for rvm

$(H
------------------------------------------------------------------------
(c) Copyright  1995 to Current Year  AVEVA Solutions Limited

Macro:   fexpmain
Author:  mas
-- Modified by Gisar 23:25 30.05.2013, ��� "�����������������"

Macro Generic Type: Form Definitions

------------------------------------------------------------------------
$)
$(D
Top level export form
Arguments:
Global Arguments:
Returns:
$)

$:debug$:

$* Kill existing form definition
kill _CDXEXPMAIN

$* Define form
setup form _CDXEXPMAIN at xr 0.2 yr 0.2

title    |Export|
init     |CALLIB IFNAME FEXPMAIN|
iconti   |Export|
revision | $$Revision: 1.11 $ |

$* Bar Menu
   bar
      add |File| _FILE
   exit

$* File menu
   menu _FILE
      add |Load|             |CALLXR XEXPMAIN LOAD|
      add |Load from...|     |CALLXR XEXPMAIN LOAD FROM|

      add |Save|             |CALLXR XEXPMAIN SAVE|
      add |Save as...|       |CALLXR XEXPMAIN SAVE AS|
   exit

$* Export template filename
   para _NAM at x 0 y 0 text |Template file|
   para _FNAME at xmax+1 ymin width 58 lines 1

$* Export filename
   frame _OFR |Output file| at xmin_NAM ymax
     text _ONAM width 30 scr 120 str

$* Export binary/Text?
     rtoggle _FTEXT at xmax+2 ymin |text|   states |Off| |On|
     rtoggle _FBIN                 |binary| states |Off| |On|
   exit

$* Character Encoding
   var !characterSetting PROJ CHARSET
   var !multiByte PROJ MBCHAR
   if (!characterSetting.lowcase() eq 'unset' AND !multiByte.lowcase() eq 'unset') then
     -- Must NOT be a foreign language project
   else
     -- Must be a foreign language project
     frame _ENC |Character encoding|
       rtoggle _EUC |EUC |   states |Off| |On|
       rtoggle _UTF |UTF-8 | states |Off| |On|
     exit
   endif

$* Export filenote
   text _FIL |Filenote| at xmin_NAM ymax+0.1 tagwidth 7 width 64 scr 120 str

$* Button to call up drawlist form, also used as title for drawlist
   para _DRW at xmin_NAM ymax+1 text |Include|
$*   button _B3 |Drawlist...| at 0 6 call |CALLXR IDRWLIST|


   para _RUL  at x37 ymin   text |Exclude|

   path d
   path l

$* Drawlist & Exclude list
   list _DLIST at x0 ymax+0.2               width 33 length 10
   list _EXCL  at xmax_DLIST+2 ymin call || width 33 length 10

$*   list _RULE at xmax_DLIST+1 ymin call |CALLXR IRULELIST COL| wid 32 len 10
$*   list _RULE at xmax_DLIST+1 ymin mult wid 25 len 10

$* Add CE, Pick & Remove button for Export Add List

   button _ADD     |Add|  at xmin form-0 ymax call |CALLXR MDRWLIST ADD|
   opt    _IADDOPT ||     at xmax ymin        call | CALLXR IRULESEL CLASS| width 9
  $*   button _PICK | Pick | at xmax ymax_DLIST call |CALLXR MDRWLIST PICK|
   button _REM     |Rem|  at xmax ymin call |CALLXR MDRWLIST DEL|
   opt    _IREMOPT ||         at xmax ymin    call | CALLXR IRULESEL CLASS| width 9

$* Add CE, Pick & Remove buttons for Export eXclude List

   button _ADDX    |Add| at xmin_EXCL ymin             call |CALLXR MEXLLIST ADD|
   opt    _XADDOPT ||  at xmax ymin       call | CALLXR IRULESEL CLASS| width 9
  $*   button _PICKX | Pick | at xmax_ADDX+1.5 ymax_DLIST call |CALLXR MEXLLIST PICK|
   button _REMX    |Rem| at xmax ymin        call |CALLXR MEXLLIST DEL|
   opt    _XREMOPT ||  at xmax ymin    call | CALLXR IRULESEL CLASS| width 9

$* Button to call up representation levels for export
   button _B4 |Representation...| at xmin_NAM ymax+1 call || form _CDXEXPREP

$* Add rule to list
$*   button _B5 |Rules...| at xmin_EXCL ymin CALL || form _CDXRULESEL

$* Button to call up Rule File Selection...
   button _RULEFILE |Rule Class...| at xmin_NAM ymax+0.2 call || form _CDXRULESEL2
  
   para   _CUSED    at xmax_B4 ymin width 60 lines 1

$* Delete rule from list
$*   button _B6 |Remove Rule| at xmin_B5 ymax+0.2 call |CALLXR MRULELIST DEL|

$*   list _DRAW at xmin_B3 ymax+0.2 wid 20 len 10
   path r

$* Button to begin export
   button _B1 |Export| at xmin_DLIST ymax+1 call |CALLXR MEXPMAIN|

 -- UNXP
------
toggle .unsetatt tagwidth 36 'Export unset attributes'    at xmin_RULEFILE ymax_RULEFILE      tooltip '<��������>'
toggle .tproj    tagwidth 36 'TProjects'                  at xmax.unsetatt ymin.unsetatt      tooltip '<��������>'
button .applyatt  'Export Attributes'  anchor right + top at xmin.B1 ymax.B1    call |$m /D:\AVEVA\Plant\PDMS12.0.SP6\PDMSUI\intf\review\uexpatt.pmlmac|   width 10 lines 0.6  tooltip '<��������>'
-- button .exptonwd  'NWD'           anchor right + top at xmin.applyatt ymax.applyatt   call |!this.<�����>()|   width 10 lines 0.6  tooltip '<��������>'
button .stop    |STOP|         anchor r+b at xmax form -size 

!!CDXEXPMAIN.stop.background = 'Red' 
!!CDXEXPMAIN.stop.visible = false 
------   
   
   
$* Cancel button
   button _B2 |Dismiss| at xmax form-size ymin call |CALLXR MCLOSEALL|

   var userdata _CDXEXPMAIN || 1

$* End of form definition
exit


return $* >>>>>>>>>> End of Code FEXPMAIN <<<<<<<<<<
$.