-- Developer by Mansyur Usman (mansyur.usm@gmail.

com)

-- PML for creating spool drawing of Spooler Module in PDMS and Aveva E3D

-- Jakarta 14 - Sep - 2017

-- Sriwijaya University Palembang Indonesia

-- Motto : Islam is My Way and I am pround as a Muslim

kill!!msrspooler

setup form !!msrspooler size 39 23

!this .formtitle='UNSRI SPOOLER'

!!msrspooler.callback = |call !!msrspoolerInit()|

!iconSize = 16

member .shown is BOOLEAN

member .functions is SPLFUNCTIONS

member .isodBar is BOOLEAN

member .desiBar is BOOLEAN

path d

frame .spl1 'SETTING' at 0.5 0.5

BUTTON .A |SET SPOOL | AT X 0.5 Y 1 linklabel CALLBACK '!!

splNumOpt.edit()'

BUTTON .A0 |ADD PIPE | AT X 0.5 Y 2 linklabel CALLBACK |!

THIS.ADDED()|

BUTTON .A01 |UNCLAIM| AT X 10 Y 1.5 linklabel CALLBACK |!

THIS.CLA()|

exit

frame .spl2 'CREATE' at 0.5 4

BUTTON .A1 |NAME | AT X 0.5 Y 1 linklabel CALLBACK |!THIS.NAM()|

 TEXT .T1 || AT X 7 Y 1 width 11 is STRING

BUTTON .A2 |ISODEPT | AT X 0.5 Y 2 linklabel CALLBACK |!

THIS.CREIS()|

BUTTON .A3 |ISOREGI | AT X 0.5 Y 3 linklabel CALLBACK |!

THIS.CREREG()|

BUTTON .A4 |SPLDRG | AT X .5 Y 4 linklabel CALLBACK |!THIS.CRESPL()|

BUTTON .C1 || AT X 7 Y 4 WIDTH 1 CALLBACK |!THIS.COL1()|

BACKG RED

BUTTON .C2 || AT X 9 Y 4 WIDTH 1 CALLBACK |!THIS.COL2()|

BACKG GREEN

BUTTON .C3 || AT X 11 Y 4 WIDTH 1 CALLBACK |!THIS.COL3()|

BACKG BLUE

BUTTON .C4 || AT X 13 Y 4 WIDTH 1 CALLBACK |!THIS.COL4()|

BACKG YELLOW

BUTTON .C5 || AT X 15 Y 4 WIDTH 1 CALLBACK |!THIS.COL5()|

BACKG MAGENTA

BUTTON .C6 || AT X 17 Y 4 WIDTH 1 CALLBACK |!THIS.COL6()|

BACKG Turquoise

EXIT

frame .spl3 'INSERT' at 0.5 9.5

BUTTON .A5 |FIELD WELD| AT X 0.5 Y 1 linklabel CALLBACK |!THIS.FW()|

BUTTON .A6 |SHOP WELD | AT X 0.5 Y 2 linklabel CALLBACK |!

THIS.SW()|

BUTTON .A7 |DISTANCE | AT X 0.5 Y 3 linklabel CALLBACK |!

THIS.DIS()|

TEXT .T2 || AT X 13.5 Y 3 width 5 is real

BUTTON .A8 |SPL BREAK | AT X 0.5 Y 4 linklabel CALLBACK |!

THIS.SPKBR()|

BUTTON .D |DEL | AT X 13.5 Y 4 CALLBACK |!THIS.DEL()| BACKG WHEAT

BUTTON .S |SHOW| AT X 13.5 Y 2 CALLBACK |!THIS.SHO()| BACKG WHEAT

BUTTON .FB |FORW| AT X 13.5 Y 1 CALLBACK |!THIS.BAFO()| BACKG

WHEAT

EXIT
 frame .spl4 'ADD & REM SPL' at 21.5 0.5

text .activeSplDrg AT X0.5 Y1.14 tooltip 'Active Spool Drawing' width 1 is STRING

button .pickNavigate AT X0.5 Y1.15 tooltip 'Navigate Pick Mode' pixmap width $!
iconSize height $!iconSize callback |!this.functions.pick('NAVIGATE')|

button .pickAdd AT X3.5 Y1 tooltip 'Add to Spool Drawing Pick Mode' pixmap width
$!iconSize height $!iconSize callback |!this.functions.pick('ADD')|

button .pickRemove AT X6.5 Y1 tooltip 'Remove From Spool Drawing Pick Mode' pixmap
width $!iconSize height $!iconSize callback |!this.functions.pick('REMOVE')|

button .includeFields toggle AT X9.5 Y1 tooltip 'Include Field Components' pixmap

width $!iconSize height $!iconSize callback '!this.functions.includeFields()'

!!appCntrl.setMainForm()

!!appCntrl.modifyMenus()

!iconSize = 16

!this.functions.mainForm = !this

!!moduleMenus(!this)

!this.activeSplDrg.setEditable(false)

!pickNavPix = !!pml.getPathName('navigate' & !iconSize & '.png')

!this.pickNavigate.addPixmap(!pickNavPix)

!pickAddPix = !!pml.getPathName('spldrgadd' & !iconSize & '.png')

!this.pickAdd.addPixmap(!pickAddPix)

!pickRemovePix = !!pml.getPathName('spldrgremove' & !iconSize & '.png')

!this.pickRemove.addPixmap(!pickRemovePix)

!incFieldsOnPix = !!pml.getPathName('includefieldson' & !iconSize & '.png')

!this.includeFields.addPixmap(!incFieldsOnPix)

EXIT
frame .spl5 'UPDATE & MODI' at 21.5 3.2

button .update AT X1 Y1 tooltip 'Update Current Spool Drawing' pixmap width $!

iconSize height $!iconSize callback '!!splUpdate()'

button .modify AT X5 Y1 tooltip 'Renumber' pixmap width $!iconSize height $!

iconSize callback '!!splRenumber()'

button .gene AT X9 Y1 tooltip 'Generate Weld Attributes' pixmap width $!iconSize

height $!iconSize callback '!this.gener()'

!updatePixmap = !!pml.getPathName('spldrgnumber' & !iconSize & '.png')

!this.update.addPixmap(!updatePixmap)

!modifyPixmap = !!pml.getPathName('modify' & !iconSize & '.png')

!this.modify.addPixmap(!modifyPixmap)

!this.gene.addPixmap(!!pml.getPathName('getwork' & !iconSize & '.png'))

EXIT

frame .spl6 'UTILITY' at 21.5 5.8

BUTTON .A9 |FIND PIPE | AT X 0.5 Y 1 linklabel CALLBACK |!THIS.FPIPE()|

BUTTON .A10 |GOTO PIPE | AT X 0.5 Y 2 linklabel CALLBACK |!THIS.GPIPE()|

BUTTON .A11 |GOTO SPLDRG| AT X 0.5 Y 3 linklabel CALLBACK |!

THIS.GSPLD()|

BUTTON .A12 |SPL VOLUME | AT X 0.5 Y 4 linklabel CALLBACK |!

THIS.SPLVOL()|

BUTTON .A13 |SHOW MAIN | AT X 0.5 Y 5 linklabel CALLBACK |SHOW!!AVEUTL|

BUTTON .A14 |ISO SPOOLER| AT X 0.5 Y 6 linklabel CALLBACK |!this.isospl()|

text.man '' at x8 y7 width 1 is real

text.ba '' at x1 y7 width 3 is real

text.ru '' at x7 y7 width 3 is real

BUTTON .A15 |ISO STANDARD| AT X 0.5 Y 8 linklabel CALLBACK |!this.isomm()|

EXIT
FRAME .FRAME5 'REVISION' AT 0.5 15

OPTION .LIST1 'REV ' AT X0.5 Y1 WIDTH 2

TEXT .L1 'DRN ' AT X0.5 Y2.3 WIDTH 4 is string

TEXT .L2 'CHK ' AT X13.8 Y2.3 WIDTH 4 is string

TEXT .L3 'APP ' AT X25 Y2.3 WIDTH 4 is string

PATH DOWN

OPTION .LIST3 AT X0.5 Y3.5 'DATE ' WIDTH 2

PATH RIGHT

OPTION .LIST4 'MTH ' WIDTH 2

OPTION .LIST5 'YR ' WIDTH 2

OPTION .LIST6 AT X 0.5 Y5 'DESC ' WIDTH 24.5

BUTTON .SETREV |SETREV| AT X19 Y1 CALLBACK |!THIS.SREV()|

EXIT

DEFINE METHOD .msrspooler()

!this.T2.VAL = 0

!RTEXT[1]= '0'

!RTEXT[2]= '1'

!RTEXT[3]= '2'

!RTEXT[4]= '3'

!RTEXT[5]= '4'

!RTEXT[6]= '5'

!DTEXT[1]= 'A'

!DTEXT[2]= 'B'

!DTEXT[3]= 'C'

!DTEXT[4]= 'D'
!DTEXT[5]= 'E'

!DTEXT[6]= 'F'

!this.LIST1.DTEXT = !DTEXT

!this.LIST1.RTEXT = !RTEXT

!DTEXT = ARRAY()

!DTEXT[1]= '01'

!DTEXT[2]= '02'

!DTEXT[3]= '03'

!DTEXT[4]= '04'

!DTEXT[5]= '05'

!DTEXT[6]= '06'

!DTEXT[7]= '07'

!DTEXT[8]= '08'

!DTEXT[9]= '09'

!DTEXT[10]= '10'

!DTEXT[11]= '11'

!DTEXT[12]= '12'

!DTEXT[13]= '13'

!DTEXT[14]= '14'

!DTEXT[15]= '15'

!DTEXT[16]= '16'

!DTEXT[17]= '17'

!DTEXT[18]= '18'

!DTEXT[19]= '19'

!DTEXT[20]= '20'

!DTEXT[21]= '21'

!DTEXT[22]= '22'

!DTEXT[23]= '23'

!DTEXT[24]= '24'
!DTEXT[25]= '25'

!DTEXT[26]= '26'

!DTEXT[27]= '27'

!DTEXT[28]= '28'

!DTEXT[29]= '29'

!DTEXT[30]= '30'

!DTEXT[31]= '31'

!this.LIST3.DTEXT = !DTEXT

!SELECTED3TEXT = !this.LIST3.SELECTION()

!DTEXT = ARRAY()

!DTEXT[1]= '01'

!DTEXT[2]= '02'

!DTEXT[3]= '03'

!DTEXT[4]= '04'

!DTEXT[5]= '05'

!DTEXT[6]= '06'

!DTEXT[7]= '07'

!DTEXT[8]= '08'

!DTEXT[9]= '09'

!DTEXT[10]= '10'

!DTEXT[11]= '11'

!DTEXT[12]= '12'

!this.LIST4.DTEXT = !DTEXT

!SELECTED4TEXT = !this.LIST4.SELECTION()

!DTEXT = ARRAY()

!DTEXT[2]= '17'

!DTEXT[3]= '18'

!DTEXT[4]= '19'
!this.LIST5.DTEXT = !DTEXT

!SELECTED5TEXT = !this.LIST5.SELECTION()

!DTEXT = ARRAY()

!DTEXT[1]= 'APPROVED FOR CONSTRUCTION'

!DTEXT[2]= 'ISSUED FOR CONSTRUCTION'

!DTEXT[3]= 'REVISED AS MARKED'

!this.LIST6.DTEXT = !DTEXT

!SELECTED6TEXT = !this.LIST6.SELECTION()

!this.ba.val = 35

!this.ru.val = 180

ENDMETHOD

DEFINE METHOD .ADDED()

!CETYPE = !!CE.TYPE

IF !CETYPE EQ 'PIPE' THEN

PIPE

ADD CE

AUTO CE

enhance ce colour 5

ELSE

ADD CE

AUTO CE

enhance ce colour 2

ENDIF

ENDMETHOD
DEFINE METHOD .NAM()

VAR !ZON NAMN OF ZONE

!NZON = '$!ZON'+'-'+'ISOD'

!THIS.T1.VAL = '$!NZON'

ENDMETHOD

DEFINE METHOD .CREIS()

!TYPE = TYPE

IF (!TYPE EQ 'ISODEP' OR !TYPE EQ 'WORL')THEN

!ISODEPTNAME = '$!THIS.T1.VAL'

NEW ISODEPT NAME /$!ISODEPTNAME

ELSE

!!ALERT.MESSAGE ('ELEMENT YANG DI PILIH HARUS ISODEPT AYAU WORL PADA SPOOLER
WORLD',0.25,0.1)

ENDIF

ENDMETHOD

DEFINE METHOD .CREREG()

!!ALERT.MESSAGE ('CLICK PIPE YANG AKAN DIJADIKAN SPLDRG',0.25,0.1)

ID @

PIPE

!PIPENAME = NAME

VAR !ZON NAMN OF ZONE

!NZON = '$!ZON'+'-'+'ISOD'

/$!NZON

NEW ISOREGI $!PIPENAME-

ENDMETHOD

DEFINE METHOD .CRESPL()

!ISI = !!ALERT.INPUT('MASUKKAN NO SPLDRG','1')

VAR !SPLNAME NAME OF ISOREG

!NZON = '$!SPLNAME'+'SPL'+'-0'+'$!ISI'

NEW SPLDRG NAME $!NZON

ENDMETHOD

DEFINE METHOD .FW()

VAR !SPEC PSPEC OF PIPE

VAR !SIZE :Size1 OF LSTUBE

NEW WELD

SPREF $!SPEC-FW_$!size

Lstube $!SPEC-P-$!size

Shop FALSE

DPFNAME 'FW'

CONN

DESPARAM 1

MOVE DIST $!THIS.T2.VAL

ENDMETHOD

DEFINE METHOD .SW()

VAR !SPEC PSPEC OF PIPE

VAR !SIZE :Size1 OF LSTUBE

NEW WELD

SPREF $!SPEC-SW-$!size

Lstube $!SPEC-P-$!size

Shop TRUE

DPFNAME 'SW'

CONN

DESPARAM 1
MOVE DIST $!THIS.T2.VAL

ENDMETHOD

DEFINE METHOD .FPIPE()

!ISI = !!ALERT.INPUT('MASUKKAN NAMA PIPE','7364')

var !sel collect ALL (PIPE) WITH (MATCHWILD(NAME,'*$!ISI*') )

IF !SEL.SIZE().EQ( 0 ) THEN

!!ALERT.ERROR( 'Pipe tidak ditemukan' )

RETURN

ENDIF

Var !ptot (arraysize(!sel))

do !q from 1 to $!ptot

$!sel[$!q]

var !name name

$p $!name

enddo

ENDMETHOD

DEFINE METHOD .GPIPE()

!CETYPE = DBTYPE

IF (!CETYPE EQ 'ISOD') THEN

!ISORE = NAMN OF ISOREG

!NA = SUBSTRING('$!ISORE',-2)

/$!NA

ELSE

!!Alert.message ('Tidak ditemukan pipa untuk spool drawing ini !!!')

ENDIF
ENDMETHOD

DEFINE METHOD .GSPLD()

!CETYPE = DBTYPE

IF (!CETYPE EQ 'DESI') THEN

!PIPENAME = NAMN OF PIPE

/$!PIPENAME-

ELSE

!!Alert.message ('Pipa ini belum dibuat spool drawingnya !!!')

ENDIF

ENDMETHOD

DEFINE METHOD .SPLVOL()

!CETYPE = !!CE.TYPE

IF (!CETYPE EQ 'SPOOL') THEN

SHOW!!splShipVol

ELSE

!!Alert.message ('Ini bukan Spool silakan pilih spool !!!')

ENDIF

ENDMETHOD

DEFINE METHOD .DEL()

Var !UserName user

Var !UserName UpCase(|$!UserName|)

!CETYPE = !!CE.TYPE

!JAWAB = !!Alert.Confirm('Apakah anda yakin $!UserName untuk menghapus element

ini?')

IF !JAWAB EQ 'YES' THEN

DELETE $!CETYPE

ELSE

ENDIF

ENDMETHOD

DEFINE METHOD .SHO()

Handle any

Elsehandle none

Endhandle

!CENAM = !!CE.NAME

!VISI = !THIS.S.TAG

IF !VISI.EQ( 'SHOW' ) THEN

!THIS.S.TAG = 'HIDE'

VAR !DPEN COLL ALL(WELD) for ce

!TSIZ = !DPEN.SIZE()

DO !A FROM 1 TO !DPEN.SIZE()

$!DPEN[$!A]

DESPARA 0

ENDDO

ELSEIF !VISI.EQ( 'HIDE' ) THEN

!THIS.S.TAG = 'SHOW'

VAR !DPEN COLL ALL(WELD) for ce

!TSIZ = !DPEN.SIZE()

DO !A FROM 1 TO !DPEN.SIZE()
 $!DPEN[$!A]

DESPARA 1

ENDDO

ENDIF

$!CENAM

ENDMETHOD

DEFINE METHOD .DIS()

MOVE DIST $!THIS.T2.VAL

ENDMETHOD

DEFINE METHOD .SPKBR()

!!splSfBreak(|add|)

ENDMETHOD

DEFINE METHOD .gener()

IN BORE

!Tolarray = Object Array()

var !attarray coll all(iweld rweld aweld SPOOL) FOR CE

!Tolarray.Appendarray(!attarray)

!I = 1

do !mem values !Tolarray

!Attaname = name of $!mem

$!mem

!atta = !attarray[!i].dbref()
Handle any

Elsehandle none

endhandle

IF TYPE OF CE EQ 'RWELD' THEN

:WELD_TYP 'FW (BW)'

VAR !BR WBORE OF CE

!BRS = !BR.REPLACE( 'in','"' )

:FIELD_TYP '$!BRS'

:SHOP_TYP '-'

!I = !I + 1

ELSEIF TYPE OF CE EQ 'IWELD' THEN

!CK = !!CE.CKEY

:WELD_TYP 'SW ($!CK)'

VAR !BR WBORE OF CE

!BRS = !BR.REPLACE( 'in','"' )

:FIELD_TYP '-'

:SHOP_TYP '$!BRS'

!I = !I + 1

ELSEIF TYPE OF CE EQ 'SPOOL' THEN

Splprefix 'SPL-'

!I = !I + 1

ENDIF

ENDDO

SPLDRG

ENDMETHOD
DEFINE METHOD .BAFO()

Handle any

Elsehandle none

Endhandle

!CENAM = !!CE.NAME

!VISI = !THIS.FB.TAG

IF !VISI.EQ( 'FORW' ) THEN

!THIS.FB.TAG = 'BACK'

BACK

CONN

ELSEIF !VISI.EQ( 'BACK' ) THEN

!THIS.FB.TAG = 'FORW'

FORW

CONN

ENDIF

$!CENAM

ENDMETHOD

DEFINE METHOD .COL1()

ADD CE

AUTO CE

enhance ce colour 2

ENDMETHOD
DEFINE METHOD .COL2()

ADD CE

AUTO CE

enhance ce colour 5

ENDMETHOD

DEFINE METHOD .COL3()

ADD CE

AUTO CE

enhance ce colour 7

ENDMETHOD

DEFINE METHOD .COL4()

ADD CE

AUTO CE

enhance ce colour 4

ENDMETHOD

DEFINE METHOD .COL5()

ADD CE

AUTO CE

enhance ce colour 16

ENDMETHOD

DEFINE METHOD .COL6()

ADD CE

AUTO CE

enhance ce colour 13

ENDMETHOD
DEFINE METHOD .SREV()

!TYPESPL = TYPE

IF (!TYPESPL EQ 'SPLDRG')THEN

!B1 = !THIS.LIST1.SELECTION( 'DTEXT' )

IF '$!B1' EQ 'A' THEN

!B2 = !THIS.L1.VAL

!B3 = !THIS.L2.VAL

!B4 = !THIS.L3.VAL

!B5 = !THIS.LIST6.SELECTION( 'DTEXT' )

!DA1 = !THIS.LIST3.SELECTION( 'DTEXT' )

!DA2 = !THIS.LIST4.SELECTION( 'DTEXT' )

!DA3 = !THIS.LIST5.SELECTION( 'DTEXT' )

!DA4 = '$!DA1'+'-'+'$!DA2'+'-'+'$!DA3'

:REV0 |$!B1|

:DRAWNREV0 |$!B2|

:CONCKBYREV0 |$!B3|

:CONAPBYREV0 |$!B4|

:DATEREV0 |$!DA4|

:DESCREV0 |$!B5|

ELSEIF '$!B1' EQ 'A' THEN

!B2 = !THIS.L1.VAL

!B3 = !THIS.L2.VAL

!B4 = !THIS.L3.VAL

!B5 = !THIS.LIST6.SELECTION( 'DTEXT' )

!DA1 = !THIS.LIST3.SELECTION( 'DTEXT' )

!DA2 = !THIS.LIST4.SELECTION( 'DTEXT' )

!DA3 = !THIS.LIST5.SELECTION( 'DTEXT' )

!DA4 = '$!DA1'+'-'+'$!DA2'+'-'+'$!DA3'

:REV1 |$!B1|

:DRAWNREV1 |$!B2|

:CONCKBYREV1 |$!B3|

:CONAPBYREV1 |$!B4|

:DATEREV1 |$!DA4|

:DESCREV1 |$!B5|

ENDIF

ELSE

!!ALERT.MESSAGE ('POSISI HARUS DI SPLDRG.',0.25,0.1)

ENDIF

ENDMETHOD

Define method .isospl()

if(!!ce.type EQ 'SPLDRG' or !!ce.type EQ 'BRAN') then

SPLDRG

!CPROJ = CURRENT PROJECT

!PCOD = !CPROJ.CODE()

!this.man.val = 2

!Proj = current project

!IsoPath = |%| & !Proj.evar.replace(|000|,|ISO|) & |%\STD|

!!isdRunIso('STA', TRUE)

DETAIL CE

handle any

endhandle

ELSE

!!Alert.Message('ini Bukan <SPLDRG> bro')

return

endif

endmethod

Define method .isomm()

if(!!ce.type EQ 'PIPE' or !!ce.type EQ 'BRAN') then

PIPE

!CPROJ = CURRENT PROJECT

!PCOD = !CPROJ.CODE()

!this.man.val = 1

!Proj = current project

!IsoPath = |%| & !Proj.evar.replace(|000|,|ISO|) & |%\STD|

!!isdRunIso('STA', TRUE)

DETAIL CE

handle any

endhandle

ELSE

!!Alert.Message('ini Bukan <PIPE> atau <BRANCH> bro')

return

endif

endmethod
DEFINE METHOD .CLA()

Handle any

Elsehandle none

Endhandle

GETWORK

SAVEWORK

UNCLAIM ALL

ENDMETHOD