Docstoc

TEMPLATE

Document Sample
TEMPLATE Powered By Docstoc
					  9/20/2012                                 ANDERSON ALUMINUM ENGINEERING GLASS TAKE-OFF                                              PAGE1



JOB NAME :                                                               BID DATE:           #VALUE!
CITY:                                                                    SALESPERSON:        #VALUE!
STATE:                                                                   ESTIMATOR:          #VALUE!
JOB NUMBER:                                                              FIGURED IN INCHES (I) OR MM (M):       i
                                                                         GLASS ROUNDED TO EVEN INCH?            y
UNSORT                                                                MINIMUM SQUARE FEET PER PIECE:                 5
 WALL     INFILL   QTY.   WIDTH     HEIGHT BLK. SZ. BLK. SZ.    UNIT   TOTAL    HORIZ    VERT               0        0    QTY         SQ. FT.
 TYPE      TYPE           (INCH)   (INCH)   (INCH)   (INCH)    SQ. FT. SQ. FT. LIN. FT.  LIN. FT. >= 0          <0       < MIN.       < MIN.
                                                  0        0      0.00          0         0          0      0        0            0           0
                                                  0        0      0.00          0         0          0      0        0            0           0
                                                  0        0      0.00          0         0          0      0        0            0           0
                                                  0        0      0.00          0         0          0      0        0            0           0
                                                  0        0      0.00          0         0          0      0        0            0           0
                                                  0        0      0.00          0         0          0      0        0            0           0
                                                  0        0      0.00          0         0          0      0        0            0           0
                                                  0        0      0.00          0         0          0      0        0            0           0
                                                  0        0      0.00          0         0          0      0        0            0           0
                                                  0        0      0.00          0         0          0      0        0            0           0
                                                  0        0      0.00          0         0          0      0        0            0           0
                                                  0        0      0.00          0         0          0      0        0            0           0
                                                  0        0      0.00          0         0          0      0        0            0           0
                                                  0        0      0.00          0         0          0      0        0            0           0
                                                  0        0      0.00          0         0          0      0        0            0           0
  9/20/2012                                     ANDERSON ALUMINUM ENGINEERING GLASS TAKE-OFF                                      PAGE2



JOB NAME :            0                                                  BID DATE:            #VALUE!
CITY:                 0                                                  SALESPERSON:         #VALUE!
STATE:                0                                                  ESTIMATOR:           #VALUE!
JOB NUMBER:                        0                                     FIGURED IN INCHES (I) OR MM (M):       i
                                                                         GLASS ROUNDED TO EVEN INCH?            y
SORT by WALL TYPE                                                        MINIMUM SQUARE FEET PER PIECE:              5
 WALL     INFILL   QTY.   WIDTH        HEIGHT BLK. SZ. BLK. SZ.    UNIT   TOTAL   HORIZ     VERT            0        0    QTY     SQ. FT.
 TYPE      TYPE           (INCH)       (INCH)  (INCH)   (INCH)    SQ. FT. SQ. FT. LIN. FT. LIN. FT. >= 0        <0       < MIN.   < MIN.
  9/20/2012                                     ANDERSON ALUMINUM ENGINEERING GLASS TAKE-OFF                                      PAGE3



JOB NAME :            0                                                  BID DATE:            #VALUE!
CITY:                 0                                                  SALESPERSON:         #VALUE!
STATE:                0                                                  ESTIMATOR:           #VALUE!
JOB NUMBER:                        0                                     FIGURED IN INCHES (I) OR MM (M):       i
                                                                         GLASS ROUNDED TO EVEN INCH?            y
SORT by INFILL TYPE                                                      MINIMUM SQUARE FEET PER PIECE:              5
 WALL     INFILL   QTY.   WIDTH        HEIGHT BLK. SZ. BLK. SZ.    UNIT   TOTAL   HORIZ     VERT            0        0    QTY     SQ. FT.
 TYPE      TYPE           (INCH)       (INCH)  (INCH)   (INCH)    SQ. FT. SQ. FT. LIN. FT. LIN. FT. >= 0        <0       < MIN.   < MIN.
       9/20/2012                                   ANDERSON ALUMINUM ENGINEERING GLASS TAKE-OFF                                                    PAGE4



JOB NAME :                                  0                                              BID DATE:             ######
CITY:                                       0                                              SALESPERSON:               0
STATE:                                      0                                              ESTIMATOR:                 0
JOB #:                                      0
                                                GLASS PRICE OPTION           A                     B                      C                    D
   GLASS                                           MIN. SQ. FT. =                0                     0                      0                    0
   MARK                                           HIGH VOLUME =                  0                     0                      0                    0
                                                  SUPPLIER      =                0                     0                      0                    0

                        GLASS DESCRIPTION         PRICE        =     HIGH   LOW      MIM   HIGH   LOW      MIM   HIGH     LOW     MIM   HIGH   LOW     MIM
IG-1               1" CLEAR ANNEALED
IG-1T              1" CLEAR TEMPERED
9/20/2012                                   ANDERSON ALUMINUM ENGINEERING GLASS TAKE-OFF   PAGE5




                                             A
             GLASS DISCRIPT
             MARK


                                   HIGH     LOW     MIM
            IG-1        1" CLEAR ANNEALED
            IG-1T       1" CLEAR TEMPERED
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
                    0          0
      9/20/2012                                                     ANDERSON ALUMINUM ENGINEERING GLASS TAKE-OFF                                PAGE6




                          Autoexec - first time sheet is run
\0          {windowsoff}                                                                                           turn windows off
            {window-state "maximize"}                                                                              Make 123 full screen
            {app-state "maximize"}                                                                                 Make window full screen
            {ALT}tu{ALT "r"}{ALT "a"}
            {TAB 2}~
            {ALT "u"}{TAB}~
            {ALT}rnc{ALT "r"}\0{ALT "a"}\h{TAB 2}~                                  Move autoexec macro to \h      Range Name Create \0 locAtion \h
\01         {beep 2}                                                                                               make noise
            {windowsoN}
            {wgetlabel "Enter your Index Number",filenm,"","Startup"}               Enter project #                enter contract number
            {ALT}eq{ALT "f"}TITLE1{ALT "t"}
            TITLE2{ALT "c"}{DEL}
             {TAB}~
\04         {goto}a:a1~                                                                                            goto sheet A
            {pgdn}{home}                                                                                           go down a page, goto A1
            {windowson}                                                                                            turn display on
            {let filenm,@upper(filenm)}                                                                            let FILENM = uppercase FILENM
            {blank errmsg}                                                                                         erase ERRMSG
            {recalc \05}                                                                                           recalc formula in \05
\05         {alert "Do you want to save this worksheet as G?",2,caution,ret}                                       enter answer into ret
            {if ret=0}{branch nerr1}                                                                               if no, get new name
            {recalc \06}                                                                                           recalc formula in \10
\06         {ALT}fa{ALT "v"}{right}CP{ALT "n"}\\G{TAB 6}~                                                          File saveAs
            {if @info("mode")>1}{branch \07}                                                                       Still in MENU mode, we hit an existing file
            {onerror}                                                                                              onerror (use standard error handling)
            {branch \h}                                                                                            branch menu

\07         {esc 2}
            {beep}                                                                                                 make noise
            {alert "File all ready Exsists. Replace File?",2,stop,ctr}                                             enter answer into ctr
            {if ctr=0}{branch nerr1}                                                                               if cancel goto NER1
            {recalc \08}{branch \08}                                                                               recalc formula in \08

\08         {ALT}fa{ALT "v"}{right}CP{ALT "D"}{ALT "n"}\G{TAB 6}~{ALT "r"}                                         File saveAs with replace
            {onerror}                                                                                              onerror (use standard error handling)
            {F9}
            {branch \h}                                                                                            branch menu

BERR        {pgdn}{home}{windowsoff}                                                                               go down a page, goto A1, turn off display
            {branch \01}                                                                                           branch \01

FERR        {let errmsg,"File Name does not exsist"}                                                               let ERRMSG = text
            {goto}errmsg~                                                                                          goto ERRMSG
            {branch \01}                                                                                           branch \01

NERR        {windowsoff}                                                                                           turn off display
            {goto}errmsg~{beep}                                                                                    goto ERRMSG, make noise
NERR1       {wgetlabel "Enter New File Name (max. 7 characters)",filenm,"","Startup"}                              get FILENM
      9/20/2012                                                ANDERSON ALUMINUM ENGINEERING GLASS TAKE-OFF                                          PAGE7



            {if filenm=""}{ALT}fc{ALT "n"}
            {branch \04}                                                                                                                branch \04


\0 - \H     {let ret,"\h1"}
            {window-state "maximize"}                                        Make 123 full screen
            {app-state "maximize"}                                           Make window full screen
            {esc}{esc}{ALT}tu{ALT "r"}{ALT "a"}{TAB 2}~{TAB 2}~              Tools Usersetup Recalc Automatic
            {wgetlabel "UNITS IN INCHES (I) OR MM (M)?",UNITS,"",}
            {wgetlabel "ROUND UP TO EVEN INCH? (Y,N)",ROUND,"",}
\H1         {BRANCH \Z}




                             #N/A       #N/A      #N/A        #N/A              #N/A                          #N/A
                             #N/A       #N/A      #N/A        #N/A              #N/A                          #N/A
                             #N/A       #N/A      #N/A        #N/A              #N/A                          #N/A
                           #VALUE!    #VALUE!   #VALUE!     #VALUE!           #VALUE!                       #VALUE!
ERRMSG

RET         \h1
INP         \u0
TMS                   -1
CTR                    1
KEY         regular
NUM         num
BREAK
ROUND       n

option      A


GLASS       {wgetlabel "Enter Glass company -->",tcomp,"",}
            {wgetnumber "Minimum square ft per piece... ",min,"",}
            {Wgetnumber "Volume price break quantity... ",break,"",}
            {F9}

enter       {GOTO}A:A1~
            {ESC}{D 31}{U 23}{ALT}
            kt{ALT "h"}{TAB}~
            {GOTO}start~
            {end}{down 2}{end}{up}{DOWN}
enter1      {if @cellpointer("col")=1}'
            {?}~
                                                                                  Column 1 starts with '
            {if @cellpointer("type")<>"b"#and#@cellpointer("contents")="*"#and#@cellpointer("col")=ctr}{alt}ee{branch enter4}
            {if @cellpointer("contents")=""#and#@cellpointer("type")<>"v"}{del}~  User entry
            {if @cellpointer("type")<>"b"}{branch enter2}                         if in column 1 and not blank and user entered * then end
            {recalc enter3}                                                       if contents of current cell = "", delete any contents
enter3                                                                            if current cell type <> b(lank), branch ENTER2
            +"{let "&@CELLPOINTER("address")&","&@CHAR(@CELLPOINTER("col")+64)&@STRING(@CELLPOINTER("row")-1,0)&"}"; {let $A$1,A0}
enter2      {if @cellpointer("col")<5}{right}{branch enter1}                      recalc formula in ENTER3
    9/20/2012                                                            ANDERSON ALUMINUM ENGINEERING GLASS TAKE-OFF                                                                    PAGE8



          {down}{left 5}                                                                      let current cell = cell above it
          {if @cellpointer("col")>ctr}{left @cellpointer("col")-ctr}                          if current cell < column 4, right 1 cell, branch ENTER
          {if @cell("row",bottom)=@cellpointer("row")}{inc}                                   down 1 row
          {branch enter1}                                                                     if current column < ctr, left 1 to column ctr
                                                                                              if on bottom row, execute subroutine INC
enter4    {alt}kt{ALT "c"}{TAB}~                                                              branch ENTER
          {home}




                                                                                                          GLASS PRICING =                                                #N/A             $0.00
          X            A                          8             12             24                         TOTAL PRICE   =                                                #N/A                $0
          X                        0              0              0              0

          \a.0         {alt}ds{tab 6}~{tab 3}                                                 \z {window-state "maximize"}{app-state "maximize"}            Column1   Column2         Column3
                       .{end}{down}{end}{right}~                                                 {dialog Dialog1}
                       {tab 2}a{tab}{right}~{tab}e                                               {if Dialog1out=10}{branch \d.0}                            DIALOG     INFILL
                       {tab}~1{tab}{right 3}~{tab 2}a{tab}~{tab 5}                               {if Dialog1out=11}{branch \z.2}                             -2.13E+09           10         35
                       2{tab}{right 4}~{tab 2}a{tab}~{tab 3}~{tab 2}~                            {if Dialog1out=12}{branch \z.3}                                     5            5         80
                                                                                                 {if Dialog1out=13}{branch \z.4}                                     5           30         80
          \a.1         {goto}start~                                                              {if Dialog1out=14}{branch \z.5}                                     5           55         80
                                                                                                 {if Dialog1out=15}{branch \z.6}                                    90            5         80
          \a.2                                                                                   {if Dialog1out=16}{branch \z.7}
                       {if @cellpointer("sheet")=3}{if typ1<>typ2}{up}@vlookup(+{down}{right},Pricing,1)~{down}                                                     90           30         80
                       {if @cellpointer("sheet")=2}{if typ1<>typ2}{up}\-~{down}                  {if Dialog1out=17}{branch \z.8}                                    90           55         80
                       {let cat1,@cellpointer("contents")}                                       {if Dialog1out=7}{branch \g}                                        5           80         80
                       {right}{let typ1,@cellpointer("contents")}                                {if Dialog1out=8}{branch \g.1}                                     90           80         80
                       {right}{let qua1,@cellpointer("contents")}{alt}rnccombine~                {if Dialog1out=19}{branch $enter}                                   5          130         80
                       {right}{let wid1,@cellpointer("contents")}                                {if Dialog1out=9}{branch \O.9}                                     90          105         80
                       {right}{let hei1,@cellpointer("contents")}                                                                                                   90          130         80
                       {left}{left}{left}{left}{down}                                                                                                                5          105         80
                       {let cat2,@cellpointer("contents")}                                                                                                  END DIALOG
                       {right}{let typ2,@cellpointer("contents")}
                       {right}{let qua2,@cellpointer("contents")}
                       {right}{let wid2,@cellpointer("contents")}
                       {right}{let hei2,@cellpointer("contents")}{branch \b}

          \b           {if @cellpointer("sheet")=2}{if +qua2=0}{branch \b.5.1}         \g                 {window-state "maximize"}{app-state "maximize"}   Column1   Column2         Column3
                       {if @cellpointer("sheet")=3}{if +qua2=0}{branch \b.5}                              {dialog Dialog2}
                       {if @cellpointer("sheet")=2}{if cat1<>cat2}{branch \b.4.1}                         {if Dialog2out=10}{branch \g.3}                   DIALOG     INFILL
                       {if @cellpointer("sheet")=3}{if cat1<>cat2}{branch \b.4}                           {if Dialog2out=11}{branch \G.2}                    -2.13E+09        10            35
                       {if @cellpointer("sheet")=2}{if typ1<>typ2}{branch \b.2.1}                         {if Dialog2out=12}{branch \O.8}                            5         5            90
                       {if @cellpointer("sheet")=3}{if typ1<>typ2}{branch \b.2}                                                                                      5        30            90
                       {if cat1=cat2}{if typ1=typ2}{if wid1=wid2}{if hei1=hei2}{branch \c}                                                                           5        55            90
                       {branch \b.1}                                                                                                                        END DIALOG

          \b.1         {end}{left}{branch \a.2}

          \b.2         {alt}ki{alt "r"}~{alt}ki{alt "r"}~{alt}ki{alt "r"}~{alt}ki{alt "r"}~
    9/20/2012                                                ANDERSON ALUMINUM ENGINEERING GLASS TAKE-OFF                                                                        PAGE9



                    {left 2}0~@sum({end}{up}.{end}{down}{up})~
                    {alt}eq{tab}{right 6}.{right 6}~~
                    {if @cellpointer("sheet")=3}{end}{left}{down}{right 9}{alt}eqPERPRICE~{right 2}@vlookup({up 2}{left 10},$pricing,2)~{right}@vlookup({up 2}{left 11},$pricing,3)~{right 2}@vlookup({u
                    \-~{down}\-~{down}\-~{down}\-~{down}
                    {branch \a.2}

           \b.3     {alt}ki{alt "r"}~{alt}ki{alt "r"}~
                    {up}{left 2}0~@sum({end}{up}.{end}{down}{up})~
                    {alt}eq{tab}{right 6}.{right 6}~~
                    {down 2}{end}{left}{branch \exit}


           \c       {let combine,+qua1+qua2}{alt}kd{alt "r"}~{end}{left}{up}{branch \a.2}

           \exit    {goto}start~

           \c.3     {goto}start~
                    {goto}B:a1~{alt}er{tab}{tab}{tab}{tab}B:a9..B:z2000~
                    {goto}start~
                    {alt}eq..{end}{right}{end}{down}~{tab}B:a10~
                    {goto}B:a10~
                    {a.0X}{a.2X}

           \c.4     {goto}start~
                    {goto}C:a1~{alt}er{tab}{tab}{tab}{tab}C:a9..C:z2000~
                    {goto}start~
                    {alt}eq..{end}{right}{end}{down}~{tab}C:a10~
                    {goto}c:a9~
                    {alt}er{tab}{tab}{tab}{tab}.{end}{down}~~
                    {goto}C:a10~X~
                    {alt}eq{tab}.{right}{end}{down}{left}~~{up}@vlookup(+{down}{right},Pricing,1)~{down}
                    {a.0X}{a.2X}

C:\TIP\INFILL.TXT   {if @cellpointer("sheet")=3}{if typ1<>typ2}{up}@vlookup(+{down}{right},Pricing,1)~{down}

           \d.0     {wgetlabel "Data File Name",result1,+"C:\"&a:d4&"\INFILL.TXT",CadMate File}
                    {branch \z.1}


           \b.4     {alt}ki{alt "r"}~{alt}ki{alt "r"}~{alt}ki{alt "r"}~
                    {left 2}0~@sum({end}{up}.{end}{down}{up})~
                    {alt}eq{tab}{right 6}.{right 6}~~
                    {end}{left}{left 2}
                    \-~{down}\-~{alt}eq{tab}{right}.{right 13}~~{down}\-~{down}
                    {alt}ki{alt "r"}~{alt}ki{alt "r"}~
                    {alt}ki{alt "r"}~{alt}ki{alt "r"}~
                    {alt}ki{alt "r"}~{alt}ki{alt "r"}~
                    {right 2}+@sum({up}.{left 2}{end}{up}{right 2})/2~
                    {alt}eq{tab}{right 6}.{right 6}~~
                    {left 2}Sub-Total~{alt}sf{alt "a"}.{right 14}~{alt "b"}~
                    \-~{down 2}
9/20/2012                                             ANDERSON ALUMINUM ENGINEERING GLASS TAKE-OFF                                                      PAGE10



             {branch \a.2}

      \b.5   {alt}ki{alt "r"}~{alt}ki{alt "r"}~{alt}ki{alt "r"}~
             {left 2}0~@sum({end}{up}.{end}{down}{up})~
             {alt}eq{tab}{right 6}.{right 6}~~
             {end}{left}
             \-~{down}\-~{right 9}{alt}eqPerprice~
             {right 2}@vlookup({up 2}{left 10},$pricing,2)~{right}@vlookup({up 2}{left 11},$pricing,3)~{right 2}@vlookup({up 2}{left 13},$pricing,4)~
             {left 14}{down}
             \-~{down}\-~{alt}eq{tab}{right}.{right 13}~~{down}
             {alt}ki{alt "r"}~{alt}ki{alt "r"}~
             {right 2}+@sum({up}.{left 2}{end}{up}{right 2})/2~
             {alt}eq{tab}{right 6}.{right 2}~~
             {left 2}Sub-Total~{alt}sf{alt "a"}.{right 14}~{alt "b"}~
             {down}\-~{alt}eq{tab}{right}.{right 13}~~{down}{right 2}
             +@sum({up}.{home}{right 2}{down 8})/3~
             {alt}eq{tab}{right 6}.{right 2}~~
             {left 2}Total~{alt}sf{alt "a"}.{right 14}~{alt "b"}~{\exit}

      \g.1   {GOTO}{ALT "a"}d:a1{TAB 2}
             ~
             {ESC}{ALT}fg{ALT "w"}
             D:A1..D:A9{ALT "m"}70{ALT "d"}
             {TAB 5}~
             {ALT}fp{ALT "a"}printd{TAB 6}
             ~

      \g.2   {wgetlabel "Enter Glass Price Option (A,B,C, OR D",option,"",}
             {IF E:B79="A"}{BRANCH \O.4}
      \O.1   {IF E:B79="B"}{BRANCH \O.5}
      \O.2   {IF E:B79="C"}{BRANCH \O.6}
      \O.3   {IF E:B79="D"}{BRANCH \O.7}

      \O.4   {ALT}eq{ALT "f"}PRICEA{ALT "t"}
             D:T5{TAB 3}~




      \O.5   {ALT}eq{ALT "f"}PRICEB{ALT "t"}
             D:T5{TAB 3}~




      \O.6   {ALT}eq{ALT "f"}PRICEC{ALT "t"}
             D:T5{TAB 3}~
9/20/2012                                                   ANDERSON ALUMINUM ENGINEERING GLASS TAKE-OFF   PAGE11



      \O.7   {ALT}eq{ALT "f"}PRICED{ALT "t"}
             D:T5{TAB 3}~




      \O.8   {ESC}{BRANCH \Z}

      \O.9   {ESC}



      \z.1   {goto}start~
             {up}
             {alt}finC:\TIP\INFILL.TXT~
             {goto}start~
             {alt}sc{down 4}{tab}{tab}{tab}
             .{end}{down}{end}{right}~{tab}~



      \z.2   {windowsoff}{c.3X}
             {goto}B:a5~


      \z.3   {windowsoff}{c.4X}
             {goto}C:a5~

      \z.4   {goto}a:a9~
             {alt}kh{tab}f9..g9~~
             {alt}rncprint{tab}{tab}.{end}{down}{end}{right}{down}~~
             {alt}fg{alt "w"}a1..a8{tab 10}~{alt}fpprint~
             {alt}ku{tab}f9..g9~~



      \z.5   {goto}b:o8192~{end}{up}
             {alt}kh{tab}f9..g9~~
             {alt}rncprint{tab}{tab}.{home}{down 8}~~
             {alt}fg{alt "w"}a1..a8{tab 10}~{alt}fpprint~
             {alt}ku{tab}f9..g9~~

      \z.6   {goto}c:o8192~{end}{up}
             {alt}kh{tab}f9..g9~~
             {alt}rncprint{tab}{tab}.{home}{down 8}~~
             {alt}fg{alt "w"}a1..a8{tab 10}~{alt}fpprint~
             {alt}ku{tab}f9..g9~~
9/20/2012                                                    ANDERSON ALUMINUM ENGINEERING GLASS TAKE-OFF   PAGE12



      \z.7     {goto}start~
               {alt}fs



      \z.8     {goto}start~{right 5}
               {alt}eq.{right 9}~
               {tab}.{left}{DOWN}{end}{down}{right}~~



      oldz.7   {goto}B:a1~{alt}er{tab}{tab}{tab}{tab}B:a9..B:z2000~
               {goto}C:a1~{alt}er{tab}{tab}{tab}{tab}C:a9..C:z2000~
               {goto}start~
               {alt}fs

      \a.2.1   {let cat1,@cellpointer("contents")}
               {right}{let typ1,@cellpointer("contents")}
               {right}{let qua1,@cellpointer("contents")}{alt}rnccombine~
               {right}{let wid1,@cellpointer("contents")}
               {right}{let hei1,@cellpointer("contents")}
               {left}{left}{left}{left}{down}
               {let cat2,@cellpointer("contents")}
               {right}{let typ2,@cellpointer("contents")}
               {right}{let qua2,@cellpointer("contents")}
               {right}{let wid2,@cellpointer("contents")}
               {right}{let hei2,@cellpointer("contents")}
               {branch \b}


      \b.2.1   {alt}ki{alt "r"}~{alt}ki{alt "r"}~{alt}ki{alt "r"}~
               {left 2}0~@sum({end}{up}.{end}{down}{up})~
               {alt}eq{tab}{right 6}.{right 6}~~
               {end}{left}
               \-~{down}\-~{down 2}
               {branch \a.2}


      \b.4.1   {alt}ki{alt "r"}~{alt}ki{alt "r"}~{alt}ki{alt "r"}~
               {left 2}0~@sum({end}{up}.{end}{down}{up})~
               {alt}eq{tab}{right 6}.{right 6}~~
               {end}{left}
               \-~{down}\-~{alt}eq{tab}{right}.{right 13}~~{down}
               {alt}ki{alt "r"}~{alt}ki{alt "r"}~
               {right 2}+@sum({up}.{left 2}{end}{up}{right 2})/2~
               {alt}eq{tab}{right 6}.{right 6}~~
               {left 2}Sub-Total~{alt}sf{alt "a"}.{right 14}~{alt "b"}~
               {down 3}
               {branch \a.2}
9/20/2012                                                   ANDERSON ALUMINUM ENGINEERING GLASS TAKE-OFF   PAGE13



      \b.5.1   {alt}ki{alt "r"}~{alt}ki{alt "r"}~
               {left 2}0~@sum({end}{up}.{end}{down}{up})~
               {alt}eq{tab}{right 6}.{right 6}~~
               {end}{left}
               \-~{down}\-~{alt}eq{tab}{right}.{right 13}~~{down}
               {alt}ki{alt "r"}~{alt}ki{alt "r"}~
               {right 2}+@sum({up}.{left 2}{end}{up}{right 2})/2~
               {alt}eq{tab}{right 6}.{right 6}~~
               {left 2}Sub-Total~{alt}sf{alt "a"}.{right 14}~{alt "b"}~
               {down}\-~{alt}eq{tab}{right}.{right 13}~~{down}
               {right 2}
               +@sum({up}.{home}{right 2}{down 8})/3~
               {alt}eq{tab}{right 6}.{right 6}~~
               {left 2}Total~{alt}sf{alt "a"}.{right 14}~{alt "b"}~
               {\exit}


      \G.3     {GOTO}D:A1~
               {GOTO}INFILL~
                   9/20/2012   ANDERSON ALUMINUM ENGINEERING GLASS TAKE-OFF   PAGE14




t an existing file
r handling)




r handling)



turn off display
9/20/2012   ANDERSON ALUMINUM ENGINEERING GLASS TAKE-OFF   PAGE15
   9/20/2012                                                         ANDERSON ALUMINUM ENGINEERING GLASS TAKE-OFF   PAGE16




  #N/A          #N/A
  #N/A          #N/A       #N/A                 0      #N/A


Column4       Coulmn5    Column6     Column7        Column8      Column9      Input   Output


         35        175         155   ""             ""             "Glass Take Off"             9
         15         10   1.342E+09   "button"       "(1) Load Computer File"  0
         15         11   1.342E+09   "button"       "Sort by System"          0
         15         12   1.342E+09   "button"       "Sort by Infill "         0
         15         13   1.342E+09   "button"       "Print Entry Data"        0
         15         14   1.342E+09   "button"       "Print Sorted by System"  0
         15         15   1.342E+09   "button"       "Print Sorted by Infill " 0
         15          7   1.342E+09   "button"       Glass Pricing             0
         15          8   1.342E+09   "button"       "Print Glass Pricing" 0
         15         16   1.342E+09   "button"       "Save"                    0
         15         17   1.342E+09   "button"       "(3) Fill in Formulas" 0
         15          9   1.342E+09   "button"       "Esc"                     0
         15         19   1.342E+09   "button"       "(2) Enter Data"          0




Column4       Coulmn5    Column6     Column7        Column8      Column9      Input   Output


         35        100        75 ""                 ""            "Glass Take Off"             10
         15         10 1.342E+09 "button"           "Fill in Data"         0
         15         11 1.342E+09 "button"           "Price Glass Option" 0
         15         12 1.342E+09 "button"           "Back Up"              0
                9/20/2012                                          ANDERSON ALUMINUM ENGINEERING GLASS TAKE-OFF   PAGE17




g,3)~{right 2}@vlookup({up 2}{left 13},$pricing,4)~{up}{left 14}

				
DOCUMENT INFO
Shared By:
Categories:
Tags:
Stats:
views:13
posted:9/20/2012
language:Unknown
pages:17