home *** CD-ROM | disk | FTP | other *** search
/ Program Metropolis - Software Boutique 95 / SOFTWARECD.iso / camipro3 / macros2.cmz / QKDEPREC.SMM < prev    next >
Encoding:
INI File  |  1994-08-14  |  28.2 KB  |  1,961 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     CHINESEBIG5 (Windows)
  9. [revisions]
  10.     0
  11. [prn]
  12.     QMS-PS 810
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     º╓│t¡p║Γ¿├½╪Ñ▀ºΘ┬┬¬φíC
  19.     
  20.     
  21.     
  22.     
  23.     774054351
  24.     31
  25.     732570070
  26.     678
  27.     8
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Body Text
  57.     2
  58.     [fnt]
  59.         Times New Roman
  60.         240
  61.         0
  62.         49152
  63.     [algn]
  64.         1
  65.         1
  66.         0
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         280
  103.         1
  104.         2
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     0
  110.     0
  111. [tag]
  112.     Body Single
  113.     3
  114.     [fnt]
  115.         Times New Roman
  116.         240
  117.         0
  118.         49152
  119.     [algn]
  120.         1
  121.         1
  122.         0
  123.         0
  124.         0
  125.     [spc]
  126.         33
  127.         273
  128.         1
  129.         0
  130.         0
  131.         1
  132.         100
  133.     [brk]
  134.         4
  135.     [line]
  136.         8
  137.         0
  138.         1
  139.         0
  140.         1
  141.         1
  142.         1
  143.         10
  144.         10
  145.         1
  146.     [spec]
  147.         0
  148.         0
  149.         
  150.         0
  151.         1
  152.         1
  153.         0
  154.         0
  155.         0
  156.         0
  157.     [nfmt]
  158.         280
  159.         1
  160.         2
  161.         .
  162.         ,
  163.         $
  164.     Body Single
  165.     0
  166.     0
  167. [tag]
  168.     Bullet
  169.     4
  170.     [fnt]
  171.         Times New Roman
  172.         240
  173.         0
  174.         49152
  175.     [algn]
  176.         1
  177.         1
  178.         0
  179.         288
  180.         288
  181.     [spc]
  182.         33
  183.         273
  184.         1
  185.         0
  186.         0
  187.         1
  188.         100
  189.     [brk]
  190.         4
  191.     [line]
  192.         8
  193.         0
  194.         1
  195.         0
  196.         1
  197.         1
  198.         1
  199.         10
  200.         10
  201.         1
  202.     [spec]
  203.         0
  204.         0
  205.         <*0>
  206.         360
  207.         1
  208.         1
  209.         0
  210.         0
  211.         0
  212.         0
  213.     [nfmt]
  214.         272
  215.         1
  216.         2
  217.         .
  218.         ,
  219.         $
  220.     Bullet
  221.     0
  222.     0
  223. [tag]
  224.     Bullet 1
  225.     5
  226.     [fnt]
  227.         Times New Roman
  228.         240
  229.         0
  230.         49152
  231.     [algn]
  232.         1
  233.         1
  234.         288
  235.         288
  236.         288
  237.     [spc]
  238.         33
  239.         273
  240.         1
  241.         0
  242.         0
  243.         1
  244.         100
  245.     [brk]
  246.         4
  247.     [line]
  248.         8
  249.         0
  250.         1
  251.         0
  252.         1
  253.         1
  254.         1
  255.         10
  256.         10
  257.         1
  258.     [spec]
  259.         0
  260.         0
  261.         <*5>
  262.         0
  263.         1
  264.         1
  265.         0
  266.         0
  267.         0
  268.         0
  269.     [nfmt]
  270.         280
  271.         1
  272.         2
  273.         .
  274.         ,
  275.         $
  276.     Bullet 1
  277.     0
  278.     0
  279. [tag]
  280.     Number List
  281.     6
  282.     [fnt]
  283.         Times New Roman
  284.         240
  285.         0
  286.         49152
  287.     [algn]
  288.         1
  289.         1
  290.         360
  291.         360
  292.         360
  293.     [spc]
  294.         33
  295.         273
  296.         1
  297.         0
  298.         0
  299.         1
  300.         100
  301.     [brk]
  302.         4
  303.     [line]
  304.         8
  305.         0
  306.         1
  307.         0
  308.         1
  309.         1
  310.         1
  311.         10
  312.         10
  313.         1
  314.     [spec]
  315.         0
  316.         0
  317.         <*:>.
  318.         360
  319.         1
  320.         1
  321.         0
  322.         16
  323.         0
  324.         0
  325.     [nfmt]
  326.         272
  327.         1
  328.         2
  329.         .
  330.         ,
  331.         $
  332.     Number List
  333.     0
  334.     0
  335. [tag]
  336.     Subhead
  337.     7
  338.     [fnt]
  339.         Times New Roman
  340.         240
  341.         0
  342.         49155
  343.     [algn]
  344.         1
  345.         1
  346.         0
  347.         0
  348.         0
  349.     [spc]
  350.         33
  351.         273
  352.         1
  353.         72
  354.         72
  355.         1
  356.         100
  357.     [brk]
  358.         4
  359.     [line]
  360.         8
  361.         0
  362.         1
  363.         0
  364.         1
  365.         1
  366.         1
  367.         10
  368.         10
  369.         1
  370.     [spec]
  371.         0
  372.         2
  373.         
  374.         0
  375.         1
  376.         1
  377.         0
  378.         0
  379.         0
  380.         0
  381.     [nfmt]
  382.         272
  383.         1
  384.         2
  385.         .
  386.         ,
  387.         $
  388.     Subhead
  389.     0
  390.     0
  391. [tag]
  392.     Title
  393.     8
  394.     [fnt]
  395.         Arial
  396.         360
  397.         0
  398.         16385
  399.     [algn]
  400.         4
  401.         1
  402.         0
  403.         0
  404.         0
  405.     [spc]
  406.         33
  407.         446
  408.         1
  409.         144
  410.         72
  411.         1
  412.         100
  413.     [brk]
  414.         16
  415.     [line]
  416.         8
  417.         0
  418.         1
  419.         0
  420.         1
  421.         1
  422.         1
  423.         10
  424.         10
  425.         1
  426.     [spec]
  427.         0
  428.         1
  429.         
  430.         0
  431.         1
  432.         1
  433.         0
  434.         0
  435.         0
  436.         0
  437.     [nfmt]
  438.         272
  439.         1
  440.         2
  441.         .
  442.         ,
  443.         $
  444.     Title
  445.     0
  446.     0
  447. [tag]
  448.     Header
  449.     9
  450.     [fnt]
  451.         Times New Roman
  452.         240
  453.         0
  454.         49152
  455.     [algn]
  456.         1
  457.         1
  458.         0
  459.         0
  460.         0
  461.     [spc]
  462.         33
  463.         273
  464.         1
  465.         0
  466.         0
  467.         1
  468.         100
  469.     [brk]
  470.         4
  471.     [line]
  472.         8
  473.         0
  474.         1
  475.         0
  476.         1
  477.         1
  478.         1
  479.         10
  480.         10
  481.         1
  482.     [spec]
  483.         0
  484.         0
  485.         
  486.         0
  487.         1
  488.         1
  489.         0
  490.         0
  491.         0
  492.         0
  493.     [nfmt]
  494.         280
  495.         1
  496.         2
  497.         .
  498.         ,
  499.         $
  500.     Header
  501.     0
  502.     0
  503. [tag]
  504.     Footer
  505.     11
  506.     [fnt]
  507.         Times New Roman
  508.         240
  509.         0
  510.         49152
  511.     [algn]
  512.         1
  513.         1
  514.         0
  515.         0
  516.         0
  517.     [spc]
  518.         33
  519.         273
  520.         1
  521.         0
  522.         0
  523.         1
  524.         100
  525.     [brk]
  526.         4
  527.     [line]
  528.         8
  529.         0
  530.         1
  531.         0
  532.         1
  533.         1
  534.         1
  535.         10
  536.         10
  537.         1
  538.     [spec]
  539.         0
  540.         0
  541.         
  542.         0
  543.         1
  544.         1
  545.         0
  546.         0
  547.         0
  548.         0
  549.     [nfmt]
  550.         280
  551.         1
  552.         2
  553.         .
  554.         ,
  555.         $
  556.     Footer
  557.     0
  558.     0
  559. [lay]
  560.     Standard
  561.     516
  562.     [rght]
  563.         16833
  564.         11908
  565.         1
  566.         720
  567.         1440
  568.         1
  569.         1440
  570.         720
  571.         0
  572.         1
  573.         0
  574.         1
  575.         0
  576.         2
  577.         1
  578.         720
  579.         11185
  580.         14
  581.         1
  582.         720
  583.         1
  584.         1440
  585.         1
  586.         2160
  587.         1
  588.         2880
  589.         1
  590.         3600
  591.         1
  592.         4320
  593.         1
  594.         5040
  595.         1
  596.         5760
  597.         1
  598.         6480
  599.         1
  600.         7200
  601.         1
  602.         7920
  603.         1
  604.         8640
  605.         1
  606.         9360
  607.         1
  608.         10095
  609.     [hrght]
  610.     [lyfrm]
  611.         1
  612.         11200
  613.         0
  614.         0
  615.         11908
  616.         1440
  617.         0
  618.         1
  619.         3
  620.         1 0 0 0 0 0 0
  621.         0
  622.         0
  623.         1
  624.     [frmlay]
  625.         1440
  626.         11908
  627.         1
  628.         1440
  629.         72
  630.         1
  631.         792
  632.         1440
  633.         0
  634.         1
  635.         0
  636.         1
  637.         1
  638.         0
  639.         1
  640.         1440
  641.         10465
  642.         2
  643.         2
  644.         4680
  645.         3
  646.         9360
  647.     [txt]
  648. Peyton McManus
  649.  
  650. Lotus WPD
  651.  
  652. >
  653.     [frght]
  654.     [lyfrm]
  655.         1
  656.         13248
  657.         0
  658.         15393
  659.         11908
  660.         16833
  661.         0
  662.         1
  663.         3
  664.         1 0 0 0 0 0 0
  665.         0
  666.         0
  667.         2
  668.     [frmlay]
  669.         16833
  670.         11908
  671.         1
  672.         1440
  673.         792
  674.         1
  675.         15465
  676.         1440
  677.         0
  678.         1
  679.         0
  680.         1
  681.         1
  682.         0
  683.         1
  684.         1440
  685.         10465
  686.         2
  687.         2
  688.         4680
  689.         3
  690.         9360
  691.     [txt]
  692. >
  693. [elay]
  694. [l1]
  695.     0
  696. [pg]
  697.     8
  698.     44 0 0 32 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  699.     91 0 41 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  700.     139 0 46 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  701.     187 0 25 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  702.     235 0 45 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  703.     281 0 10 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  704.     329 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  705.     372 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  706. [edoc]
  707. <:#284,10465><:f,,>
  708.  
  709. <:#284,10465><:f,,>
  710.  
  711. <:#568,10465>Define        CECREATEINSTANCE(LPHANDLE)    DllCall("LTSCE01.DLL,CECREATEINSTANCE,HO",%1)
  712.  
  713. <:#568,10465>Define        CEDESTROYINSTANCE(HANDLE)    DllCall("LTSCE01.DLL,CEDESTROYINSTANCE,HH",%1)
  714.  
  715. <:#284,10465>Define        CECALC(HINSTANE)        DllCall("CECORE,CECALC,HH",%1)
  716.  
  717. <:#568,10465>Define        CECALCNOW(HINSTANCE, lpFormula, lpOutPut)    DllCall("LTSCE01.DLL,CECALCNOW,HHCC",%1,%2,%3)
  718.  
  719. <:#284,10465><:f,,>
  720.  
  721. <:#284,10465>define IsOKToRun(menuname)    GetInfo(217, 24, %1);
  722.  
  723. <:#284,10465><:f,,>
  724.  
  725. @Outline2@<:#284,10465>' Win API defines
  726.  
  727. @Outline2@<:#568,10465>Define    MyGetDlgItemText(hdg, id, string, max)    DllCall("User,GetDlgItemText,HHHCH",%1,%2,%3,%4)
  728.  
  729. <:#284,10465>define    CloseDlg(id)    dllcall("user,PostMessage,HHHHHH", HDLG, 0X111, %1, 0, 0).
  730.  
  731. <:#284,10465>Define    EnableWindow()    DllCall("User,EnableWindow,AHA",%1,%2)
  732.  
  733. @Outline2@<:#284,10465>
  734.  
  735. @Outline2@<:#284,10465>' Dialog box defines
  736.  
  737. @Outline2@<:#284,10465>Define    Methodcombo    9500
  738.  
  739. @Outline2@<:#284,10465>Define    Costedit    8000
  740.  
  741. @Outline2@<:#284,10465>Define    Salvageedit    8001
  742.  
  743. @Outline2@<:#284,10465>Define    Lifeedit    8002
  744.  
  745. @Outline2@<:#284,10465>Define    Periodedit    8003
  746.  
  747. @Outline2@<:#284,10465>Define    Allowancetext    1007
  748.  
  749. @Outline2@<:#284,10465>
  750.  
  751. @Outline2@<:#284,10465>
  752.  
  753. @Outline2@<:#284,10465>
  754.  
  755. @Outline2@<:#284,10465><:X3,-32768;Include "Amixlate.sam!qkdeprec">Define    Reporttext    "Press the report button to generate a full depreciation schedule."
  756.  
  757. @Outline3@<:#284,10465>Define    Method_DDB    "Double-Declining Balance"
  758.  
  759. @Outline3@<:#284,10465>Define    Method_SUM    "Sum-of-Years' Digits"
  760.  
  761. @Outline3@<:#284,10465>Define    Method_Line    "Straight-Line"
  762.  
  763. @Outline3@<:#284,10465>Define        DefNew      "_Default.sty"
  764.  
  765. @Outline3@<:#284,10465>Define        DefStyle     "Title"
  766.  
  767. @Outline3@<:#284,10465>Define        DefFont    "Arial"
  768.  
  769. @Outline3@<:#284,10465>Define        HeadingName    "Depreciation Schedule"
  770.  
  771. @Outline3@<:#284,10465>Define        DefPeriod    "Period"
  772.  
  773. @Outline3@<:#284,10465>Define        DefNBV    "Net Book Value"
  774.  
  775. @Outline3@<:#284,10465>Define        DefDeprec    "Depreciation"
  776.  
  777. @Outline3@<:#284,10465>Define    Formula_DDB        "@DDB"
  778.  
  779. @Outline3@<:#284,10465>Define    Formula_SYD        "@SYD"
  780.  
  781. @Outline3@<:#284,10465>Define    Formula_SLN        "@SLN"
  782.  
  783. @Outline3@<:#284,10465>Define    Formula_Round    "@Round({Allowance};0)"
  784.  
  785. @Outline3@<:#284,10465>Define    DDBCalc    "@DDB({Cost};{Salvage};{Life};{Period})"
  786.  
  787. @Outline3@<:#284,10465>Define    SYDCalc    "@SYD({Cost};{Salvage};{Life};{Period})"
  788.  
  789. @Outline3@<:#284,10465>Define    SLNCalc    "@SLN({Cost};{Salvage};{Life})"
  790.  
  791. @Outline3@<:#284,10465>Define    RoundCalc    "@Round({Allowance};2)"
  792.  
  793. <:#284,10465>
  794.  
  795. @Outline3@<:#568,10465>Define    Desc        "Enter values to either calculate a depreciation allowance for a particular period or generate a full depreciation schedule."<:X~3,-32768;Include "Amixlate.sam!qkdeprec">
  796.  
  797. @Outline2@<:#284,10465>
  798.  
  799. @Outline2@<:#284,10465><:X3,-32768;Include "Amixlate.sam!common">Define    NotFound    "LTSCE01.DLL not found.  Copy the dll to your windows directory"
  800.  
  801. @Outline3@<:#284,10465>Define    ErrorMessage    "The ltsce01.dll could not be loaded.  Please copy the dll to the Ami Pro directory."<:X~3,-32768;Include "Amixlate.sam!common">
  802.  
  803. @Outline2@<:#284,10465>
  804.  
  805. <:#284,10465>Define    GetPrefix()    GetGlobalVar$("Prefix")
  806.  
  807. <:#284,10465>Define    GetSuffix()    GetGlobalVar$("Suffix")
  808.  
  809. <:#284,10465>
  810.  
  811. @Outline2@<:#284,10465>
  812.  
  813. @Outline2@<:#284,10465>Define    NumDecimals    2
  814.  
  815. @Outline2@<:#284,10465>
  816.  
  817. <:#284,10465>Declare     StartEngine()
  818.  
  819. <:#284,10465>Declare    CreateReport(ReportType, Cost, Salvage, Life, Period)
  820.  
  821. <:#284,10465>Declare    FontDlg(Action, Hdlg, id)
  822.  
  823. <:#284,10465>Declare    BuildTable(Life)
  824.  
  825. <:#284,10465>Declare    GetFormats(Action)
  826.  
  827. <:#284,10465>
  828.  
  829. <:#284,10465>
  830.  
  831. <:#284,10465>
  832.  
  833. @Subhead@<:#284,10465>Function Depreciate()
  834.  
  835. <:#284,10465>DefStr hInstance;
  836.  
  837. <:#284,10465>Mac = GetRunningMacroFile$()
  838.  
  839. <:#284,10465>Id = StartEngine()
  840.  
  841. <:#284,10465>If Id = 0
  842.  
  843. <:#284,10465>    Message(ErrorMessage)
  844.  
  845. <:#284,10465>    Return 0;
  846.  
  847. <:#284,10465>Endif
  848.  
  849. <:#284,10465>RetVal = CECREATEINSTANCE(&hInstance)
  850.  
  851. <:#284,10465>AllocGlobalVar("hInstance",1)
  852.  
  853. <:#284,10465>SetGlobalVar("hInstance",hInstance)
  854.  
  855. <:#284,10465>FontDlg(1,0,0)
  856.  
  857. <:#284,10465>GetFormats(1)        ' retrieve the international settings
  858.  
  859. <:#284,10465>Dim Method(3)
  860.  
  861. <:#284,10465>Method(1) = Method_DDB
  862.  
  863. <:#284,10465>Method(2) = Method_SUM
  864.  
  865. <:#284,10465>Method(3) = Method_Line
  866.  
  867. <:#284,10465>
  868.  
  869. <:#284,10465>FillEdit(1007, Desc)
  870.  
  871. <:#284,10465>FillEdit(1000,Reporttext)
  872.  
  873. <:#284,10465>FillEdit(Methodcombo, &Method)
  874.  
  875. <:#284,10465>SetDlgCallBack(0,"{Mac}!InitDlg")
  876.  
  877. <:#284,10465>SetDlgCallBack(Methodcombo,"{Mac}!DataChange")
  878.  
  879. <:#284,10465>SetDlgCallBack(Costedit,"{Mac}!DataChange")
  880.  
  881. <:#284,10465>SetDlgCallBack(Salvageedit,"{Mac}!DataChange")
  882.  
  883. <:#284,10465>SetDlgCallBack(Lifeedit,"{Mac}!DataChange")
  884.  
  885. <:#284,10465>SetDlgCallBack(Periodedit,"{Mac}!DataChange")
  886.  
  887. @Outline3@<:#284,10465>DlgKeyInterrupt(112, "{mac}!DisplayHelp")
  888.  
  889. @Outline3@<:#284,10465>
  890.  
  891. <:#284,10465>'DlgKeyInterrupt(<[>Tab],"{Mac}!DataChange")
  892.  
  893. <:#284,10465>
  894.  
  895. <:#284,10465>Box = DialogBox(".","Deprec")
  896.  
  897. <:#284,10465>If Box <<<;> 3
  898.  
  899. <:#284,10465>    Return -1
  900.  
  901. <:#284,10465>Endif
  902.  
  903. <:#284,10465>FontDlg(4,0,0)
  904.  
  905. <:#284,10465>ReportType = GetDialogField$(Methodcombo)
  906.  
  907. <:#284,10465>Cost = GetDialogField$(Costedit) * 1
  908.  
  909. <:#284,10465>Salvage = GetDialogField$(Salvageedit) * 1
  910.  
  911. <:#284,10465>Life = GetDialogField$(Lifeedit) * 1
  912.  
  913. <:#284,10465>Period = GetDialogField$(Periodedit) * 1
  914.  
  915. <:#284,10465>CreateReport(ReportType, Cost, Salvage, Life, Period)
  916.  
  917. <:#284,10465>CEDestroyInstance(hInstance)
  918.  
  919. <:#284,10465>FreeGlobalVar("hInstance")
  920.  
  921. <:#284,10465>DllFreeLib(id)
  922.  
  923. <:#284,10465>GetFormats(0)
  924.  
  925. <:#284,10465>End function
  926.  
  927. <:#284,10465>
  928.  
  929. <:#284,10465>
  930.  
  931. <:#284,10465>
  932.  
  933. @Subhead@<:#284,10465>Function InitDlg(hDlg, id, value)
  934.  
  935. <:#284,10465>IgnoreKeyBoard(2)
  936.  
  937. <:#284,10465>HourGlass(on)
  938.  
  939. <:#284,10465>For id = 1000 to 1007
  940.  
  941. <:#284,10465>    FontDlg(3,Hdlg, id)
  942.  
  943. <:#284,10465>Next
  944.  
  945. <:#284,10465>FontDlg(3, Hdlg, 9500)
  946.  
  947. <:#284,10465>For h = 8000 to 8003
  948.  
  949. <:#284,10465>    FontDlg(3, Hdlg, h)
  950.  
  951. <:#284,10465>Next
  952.  
  953. <:#284,10465>EnableWindow(GetDlgItem(Hdlg, 3),0)
  954.  
  955. <:#284,10465>HourGlass(off)
  956.  
  957. <:#284,10465>End Function
  958.  
  959. <:#284,10465>
  960.  
  961. <:#284,10465>
  962.  
  963. <:#284,10465>
  964.  
  965. @Subhead@<:#284,10465>Function DataChange(Hdlg, id, value)
  966.  
  967. <:#284,10465>IgnoreKeyBoard(2)
  968.  
  969. <:#284,10465>DefStr Allowance;
  970.  
  971. <:#284,10465>hInstance = GetGlobalVar$("hInstance")
  972.  
  973. <:#284,10465>Cost = GetDlgITemText(Hdlg, Costedit)
  974.  
  975. <:#284,10465>Salvage = GetDlgItemText(hDlg, Salvageedit)
  976.  
  977. <:#284,10465>Life = GetDlgItemText(hDlg, Lifeedit)
  978.  
  979. <:#284,10465>Period = GetDlgItemText(hDlg, Periodedit)
  980.  
  981. <:#284,10465>
  982.  
  983. <:#284,10465>TypeMethod = GetDlgItemText(hDlg, Methodcombo)
  984.  
  985. <:#284,10465>Switch TypeMethod
  986.  
  987. <:#284,10465>    Case Method_DDB
  988.  
  989. <:#284,10465>        
  990.  
  991. <:#284,10465>        CECalcNow(hInstance,DDBCalc,&Allowance)
  992.  
  993. <:#284,10465>        Break;
  994.  
  995. <:#284,10465>
  996.  
  997. <:#284,10465>    Case Method_SUM
  998.  
  999. <:#284,10465>        CECalcNow(hInstance,SYDCalc,&Allowance)
  1000.  
  1001. <:#284,10465>        Break;
  1002.  
  1003. <:#284,10465>    
  1004.  
  1005. <:#284,10465>    Case Method_LINE
  1006.  
  1007. <:#284,10465>        CECalcNow(hInstance,SLNCalc,&Allowance)
  1008.  
  1009. <:#284,10465>        Break;
  1010.  
  1011. <:#284,10465>
  1012.  
  1013. <:#284,10465>    Default
  1014.  
  1015. <:#284,10465>        Break;
  1016.  
  1017. <:#284,10465>EndSwitch
  1018.  
  1019. <:#284,10465>CeCalcNow(hInstance, RoundCalc,&Allowance)
  1020.  
  1021. If 0 = Instr(0,Allowance,"ERR")
  1022.  
  1023. <:#284,10465>    EnableWindow(GetDlgItem(hdlg, 3),1)
  1024.  
  1025. <:#284,10465>Else
  1026.  
  1027. <:#284,10465>    EnableWindow(GetDlgItem(hDlg, 3),0)
  1028.  
  1029. <:#284,10465>Endif
  1030.  
  1031. <:#284,10465>SetDlgItemText(hDlg, 1008, Allowance)
  1032.  
  1033. <:#284,10465>End Function
  1034.  
  1035. <:#284,10465>
  1036.  
  1037. @Subhead@<:#284,10465>Function CreateReport(ReportType, Cost, Salvage, Life, Period)
  1038.  
  1039. <:#284,10465>DefStr Allowance, Value, RoundedValue, CurrentValue, TotalDeprec;
  1040.  
  1041. <:#284,10465>Switch ReportType
  1042.  
  1043. <:#284,10465>
  1044.  
  1045. <:#284,10465>    Case Method_DDB
  1046.  
  1047. <:#284,10465>        Formula =Formula_DDB
  1048.  
  1049. <:#284,10465>        Break;
  1050.  
  1051. <:#284,10465>    Case Method_Sum
  1052.  
  1053. <:#284,10465>        Formula = Formula_SYD
  1054.  
  1055. <:#284,10465>        Break;
  1056.  
  1057. <:#284,10465>    Case Method_Line
  1058.  
  1059. <:#284,10465>        Formula = Formula_SLN
  1060.  
  1061. <:#284,10465>        Break;
  1062.  
  1063. <:#284,10465>    Default
  1064.  
  1065. <:#284,10465>        Formula = Formula_DDB
  1066.  
  1067. <:#284,10465>        Break;
  1068.  
  1069. <:#284,10465>EndSwitch
  1070.  
  1071. <:#284,10465>
  1072.  
  1073. <:#284,10465>BuildTable(Life)
  1074.  
  1075. <:#284,10465>hInstance = GetGlobalVar$("hInstance")
  1076.  
  1077. <:#284,10465>For Period = 1 to Life
  1078.  
  1079. <:#284,10465>    If Formula = Formula_SLN
  1080.  
  1081. <:#284,10465>        CECalcNow(hInstance,"{Formula}({Cost};{Salvage};{Life})",&Allowance)
  1082.  
  1083. <:#284,10465>    Else
  1084.  
  1085. <:#284,10465>        CECalcNow(hInstance,"{Formula}({Cost};{Salvage};{Life};{Period})",&Allowance)
  1086.  
  1087. <:#284,10465>    Endif
  1088.  
  1089. <:#284,10465>    CeCalcNow(hInstance,Formula_Round,&Value)
  1090.  
  1091. <:#284,10465>    Value = Value * 1
  1092.  
  1093. <:#284,10465>    Type ("{Period}<[>Tab]{Value}<[>Tab]")
  1094.  
  1095. <:#284,10465>    TotalDeprec = (TotalDeprec + Value) * 1
  1096.  
  1097. <:#284,10465>    CurrentValue = (Cost - TotalDeprec) * 1
  1098.  
  1099. <:#284,10465>    CurrentValue = CurrentValue * 1
  1100.  
  1101. <:#284,10465>    Type("{CurrentValue}<[>Tab]")
  1102.  
  1103. <:#284,10465>Next
  1104.  
  1105. <:#284,10465>End Function
  1106.  
  1107. <:#284,10465>
  1108.  
  1109. <:#284,10465>
  1110.  
  1111. <:#284,10465>
  1112.  
  1113. @Subhead@<:#284,10465>Function BuildTable(Life)
  1114.  
  1115. <:#284,10465>NewStyle = DefNew
  1116.  
  1117. <:#284,10465>TitleStyle = DefStyle
  1118.  
  1119. <:#284,10465>FontName = DefFont
  1120.  
  1121. <:#284,10465>Period = DefPeriod
  1122.  
  1123. <:#284,10465>Depreciation = DefDeprec
  1124.  
  1125. <:#284,10465>NBV = DefNBV
  1126.  
  1127. <:#284,10465>
  1128.  
  1129. <:#284,10465>New("{NewStyle}"  1 0  )
  1130.  
  1131. <:#284,10465>TotalRow = Life + 3
  1132.  
  1133. <:#284,10465>Tables(1 1 3 TotalRow  )
  1134.  
  1135. <:#284,10465>SetStyle("{TitleStyle}"   )
  1136.  
  1137. <:#284,10465>ModifySelect("{TitleStyle}"   )
  1138.  
  1139. <:#284,10465>ModifyFont("{FontName}"  280 0 8197  )
  1140.  
  1141. <:#284,10465>ModifyReflow( )
  1142.  
  1143. <:#284,10465>Type( "<[>SHIFTRight]<[>SHIFTRight]" )
  1144.  
  1145. <:#284,10465>SizeColumnRow(1944 -32768 -32768 -32768  )
  1146.  
  1147. <:#284,10465>ConnectCells( )
  1148.  
  1149. <:#284,10465>Type( HeadingName )
  1150.  
  1151. <:#284,10465>TableLines(96 31 0 1 16250871  )
  1152.  
  1153. <:#284,10465>TableLayout(2 1 3024 86 284 86 1 0 1 0 0 0  )
  1154.  
  1155. <:#284,10465>Type( "<[>Tab]{Period}<[>Tab]{Depreciation}<[>Tab]{NBV}<[>Tab]" )
  1156.  
  1157. <:#284,10465>End Function
  1158.  
  1159. <:#284,10465>
  1160.  
  1161. @Subhead@<:#284,10465>function DisplayHelp()
  1162.  
  1163. @Outline2@<:#284,10465>' two defines needed for help.  The help name and panel number are defined above
  1164.  
  1165. @Outline2@<:#284,10465>define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2)
  1166.  
  1167. @Outline2@<:#284,10465>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  1168.  
  1169. @Outline2@<:#284,10465>prohWnd = FindWindowa("AmiProWndA", 0)
  1170.  
  1171. @Outline2@<:#284,10465>helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp")
  1172.  
  1173. @Outline2@<:#284,10465>PanelNum= 50 
  1174.  
  1175. @Outline2@<:#284,10465>WinHelpa(prohWnd, helpfile, 0x0001, Panelnum)
  1176.  
  1177. @Outline2@<:#284,10465>end function
  1178.  
  1179. @Subhead@<:#284,10465>
  1180.  
  1181. <:#284,10465>
  1182.  
  1183. <:#284,10465>
  1184.  
  1185. <:#284,10465>
  1186.  
  1187. <:#284,10465>
  1188.  
  1189. @Subhead@<:#284,10465>Function FontDlg(Action, Hdlg, id)
  1190.  
  1191. <:#284,10465>' 1    Create a font and allocvar
  1192.  
  1193. <:#284,10465>' 2    Return the handle of the create font 
  1194.  
  1195. <:#284,10465>' 3    Set the id specified to the font
  1196.  
  1197. <:#284,10465>' 4    Freeglobalvar and delete created object
  1198.  
  1199. <:#284,10465>
  1200.  
  1201. @Outline2@<:#568,10465>define    CreateFontDLG()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  1202.  
  1203. @Outline2@<:#284,10465>define    DeleteObjectDLG(handle)    DllCall("gdi,DeleteObject,HH", %1)
  1204.  
  1205. @Outline2@<:#568,10465>define    SendMessageDLG(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  1206.  
  1207. @Outline2@<:#284,10465>
  1208.  
  1209. @Outline2@<:#284,10465>
  1210.  
  1211. <:#284,10465>Switch Action
  1212.  
  1213. <:#284,10465>    Case 1    ' Create the font and store it
  1214.  
  1215. @Outline2@<:#284,10465>        Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  1216.  
  1217. <:#284,10465>        AllocGlobalVar("FontHandle",1)
  1218.  
  1219. <:#284,10465>        If Font
  1220.  
  1221. <:#284,10465>            SetGlobalVar("FontHandle",Font)
  1222.  
  1223. <:#284,10465>            Return Font
  1224.  
  1225. <:#284,10465>        Else
  1226.  
  1227. <:#284,10465>            Return 0;    ' no font
  1228.  
  1229. <:#284,10465>        Endif
  1230.  
  1231. <:#284,10465>        Break;
  1232.  
  1233. <:#284,10465>    Case 2    ' Return the handle to the font
  1234.  
  1235. <:#284,10465>        Handle = GetGlobalVar$("FontHandle")
  1236.  
  1237. <:#284,10465>        If Handle 
  1238.  
  1239. <:#284,10465>            Return Handle
  1240.  
  1241. <:#284,10465>        Else
  1242.  
  1243. <:#284,10465>            Return 0
  1244.  
  1245. <:#284,10465>        Endif
  1246.  
  1247. <:#284,10465>
  1248.  
  1249. <:#284,10465>    Case 3    ' Set the id to the font
  1250.  
  1251. <:#284,10465>        Handle = GetGlobalVar$("FontHandle")
  1252.  
  1253. <:#284,10465>        If Handle 
  1254.  
  1255. <:#284,10465>            IdControl = GetDlgITem(Hdlg, id)
  1256.  
  1257. <:#284,10465>            SendMessageDlg(idControl, 0x30, Handle, 0)
  1258.  
  1259. <:#284,10465>            Return 1
  1260.  
  1261. <:#284,10465>        Else
  1262.  
  1263. <:#284,10465>            Return 0
  1264.  
  1265. <:#284,10465>        Endif
  1266.  
  1267. <:#284,10465>        Break;        
  1268.  
  1269. <:#284,10465>        
  1270.  
  1271. <:#284,10465>    Case 4    ' Delete the font and clear the var
  1272.  
  1273. <:#284,10465>        Handle = GetGlobalVar$("FontHandle")
  1274.  
  1275. <:#284,10465>        If Handle
  1276.  
  1277. <:#284,10465>            DeleteObjectDLG(Handle)
  1278.  
  1279. <:#284,10465>            Stat = 1    
  1280.  
  1281. <:#284,10465>        Else
  1282.  
  1283. <:#284,10465>            Stat = 0
  1284.  
  1285. <:#284,10465>        Endif
  1286.  
  1287. <:#284,10465>        FreeGlobalVar("FontHandle")
  1288.  
  1289. <:#284,10465>        Return Stat        
  1290.  
  1291. <:#284,10465>    Default
  1292.  
  1293. <:#284,10465>EndSwitch    
  1294.  
  1295. <:#284,10465>
  1296.  
  1297. <:#284,10465>End Function
  1298.  
  1299. @Subhead@<:#284,10465>
  1300.  
  1301. @Subhead@<:#284,10465><:f,BArial,>Function GetFormats<:f><:f,BArial,>(Action)
  1302.  
  1303. <:#284,10465><:f,BArial,>iCurrency = GetProfileString$("Intl","iCurrency","Win.ini")
  1304.  
  1305. <:#284,10465>currency = GetProfileString$("Intl","sCurrency","Win.ini")
  1306.  
  1307. <:#284,10465><:f,BArial,>AllocGlobalVar("Prefix",1)
  1308.  
  1309. <:#284,10465><:f,BArial,>AllocGlobalVar("Suffix",1)<:f>
  1310.  
  1311. <:#284,10465><:f,BArial,>
  1312.  
  1313. <:#284,10465><:f,BArial,>Switch Action
  1314.  
  1315. <:#284,10465><:f,BArial,>    Case 1     ' turn this on
  1316.  
  1317. <:#284,10465><:f,BArial,>        Switch iCurrency
  1318.  
  1319. <:#284,10465><:f,BArial,>            Case 0
  1320.  
  1321. <:#284,10465><:f,BArial,>                Prefix = Currency<:f>
  1322.  
  1323. <:#284,10465><:f,BArial,>                Suffix = ""
  1324.  
  1325. <:#284,10465><:f,BArial,>            Case 1
  1326.  
  1327. <:#284,10465><:f,BArial,>                Prefix = ""
  1328.  
  1329. <:#284,10465><:f,BArial,>                Suffix = Currency<:f>
  1330.  
  1331. <:#284,10465><:f,BArial,>            Case 2
  1332.  
  1333. <:#284,10465><:f,BArial,>                Prefix = StrCat$(Currency," ")
  1334.  
  1335. <:#284,10465><:f,BArial,>                Suffix = ""
  1336.  
  1337. <:#289,10465>        <:f,BArial,>    Case 3
  1338.  
  1339. <:#284,10465><:f,BArial,>                Prefix = ""
  1340.  
  1341. <:#284,10465><:f,BArial,>                Suffix = StrCat$(" ",Currency)
  1342.  
  1343. <:#284,10465><:f,BArial,>        endSwitch
  1344.  
  1345. <:#284,10465><:f,BArial,>        SetGlobalVar("Suffix",Suffix)
  1346.  
  1347. <:#284,10465><:f,BArial,>        SetGlobalVar("Prefix",Prefix)
  1348.  
  1349. <:#284,10465><:f,BArial,>
  1350.  
  1351. <:#284,10465><:f,BArial,>    Case 0    ' free globals
  1352.  
  1353. <:#284,10465><:f,BArial,>        FreeGlobalVar("Suffix")
  1354.  
  1355. <:#284,10465><:f,BArial,>        FreeGlobalVar("Prefix")
  1356.  
  1357. <:#284,10465><:f,BArial,>        
  1358.  
  1359. <:#284,10465><:f,BArial,>EndSwitch
  1360.  
  1361. <:#284,10465><:f,BArial,>End Function
  1362.  
  1363. <:#284,10465>
  1364.  
  1365. <:#284,10465>
  1366.  
  1367. @Subhead@<:#284,10465><:f,BArial,>
  1368.  
  1369. <:#284,10465>
  1370.  
  1371. <:#284,10465>
  1372.  
  1373. <:#284,10465>
  1374.  
  1375. <:#284,10465>
  1376.  
  1377. <:#284,10465>
  1378.  
  1379. <:#284,10465>
  1380.  
  1381. @Subhead@<:#284,10465>Function StartEngine()
  1382.  
  1383. <:#284,10465>LibId = DLLLoadLib("LTSCE01.DLL","CECreateInstance","HO")
  1384.  
  1385. <:#284,10465>If LibId = 0
  1386.  
  1387. <:#284,10465>    Message(ErrorMessage)
  1388.  
  1389. <:#284,10465>    Return 0;
  1390.  
  1391. <:#284,10465>Endif
  1392.  
  1393. <:#284,10465>Return Libid
  1394.  
  1395. <:#284,10465>End function
  1396.  
  1397. <:#284,10465>
  1398.  
  1399. <:#284,10465>
  1400.  
  1401. <:#284,10465>
  1402.  
  1403. <:#284,10465>
  1404.  
  1405. <:#284,10465>
  1406.  
  1407. <:#284,10465>
  1408.  
  1409. <:#284,10465>DIALOG    Deprec
  1410.  
  1411. <:#284,10465>-2134376448    17    31    43    246    103    ""    "AmiDialog"    "QuickDepreciation"
  1412.  
  1413. <:#284,10465>FONT    8    "Helv"
  1414.  
  1415. <:#284,10465>122    20    42    12    8000    1350631424    "edit"    ""    0 
  1416.  
  1417. <:#284,10465>122    35    42    12    8001    1350631424    "edit"    ""    0 
  1418.  
  1419. <:#284,10465>122    50    42    12    8002    1350631424    "edit"    ""    0 
  1420.  
  1421. <:#284,10465>122    65    42    12    8003    1350631424    "edit"    ""    0 
  1422.  
  1423. <:#284,10465>80    84    86    40    9500    1344339971    "combobox"    ""    0 
  1424.  
  1425. <:#284,10465>200    4    40    14    1    1342373889    "button"    "Done"    0 
  1426.  
  1427. <:#284,10465>200    21    40    14    3    1342373888    "button"    "Report"    0 
  1428.  
  1429. <:#284,10465>172    38    71    29    1000    1342177280    "static"    "text"    0 
  1430.  
  1431. <:#284,10465>11    22    89    8    1001    1342177280    "static"    "Amount paid for the asset:"    0 
  1432.  
  1433. <:#284,10465>11    37    105    9    1002    1342177280    "static"    "Estimated asset salvage value:"    0 
  1434.  
  1435. <:#284,10465>11    52    106    8    1003    1342177280    "static"    "Total number of periods (life):"    0 
  1436.  
  1437. <:#284,10465>11    67    103    9    1004    1342177280    "static"    "Period to calculate allowance:"    0 
  1438.  
  1439. <:#284,10465>11    86    64    8    1005    1342177280    "static"    "Depreciation method:"    0 
  1440.  
  1441. <:#284,10465>177    72    60    10    1006    1342177280    "static"    "Allowance for period:"    0 
  1442.  
  1443. <:#284,10465>179    82    55    10    1008    1342177281    "static"    ""    0 
  1444.  
  1445. <:#284,10465>172    64    69    33    20    1342308359    "button"    ""    0 
  1446.  
  1447. <:#284,10465>6    2    170    16    1007    1342177280    "static"    "text"    0 
  1448.  
  1449. <:#284,10465>END DIALOG
  1450.  
  1451. >
  1452.  
  1453. [Embedded]
  1454. 00021901
  1455. >
  1456. [macsum] 10
  1457. Depreciate 0 0 12 63
  1458. InitDlg 1253 3 2 113
  1459. DataChange 1643 3 8 129
  1460. CreateReport 2537 5 8 165
  1461. BuildTable 3399 1 8 203
  1462. DisplayHelp 3861 0 4 227
  1463. FontDlg 4046 3 5 241
  1464. GetFormats 4843 1 5 297
  1465. StartEngine 5412 0 2 337
  1466. Deprec 5638 0 -1 351
  1467. [macse]
  1468. 14 Depreciate
  1469. 0 802
  1470. 13
  1471. 8 2
  1472. 16 StartEngine
  1473. 13
  1474. 8 3
  1475. 6 3
  1476. 5 0
  1477. 18 0
  1478. 11 00000188
  1479. 0 3 "The ltsce01.dll could not be loaded.  Please copy the dll to the Ami Pro directory."
  1480. 5 0
  1481. 15
  1482. 9
  1483. 0 284 "LTSCE01.DLL,CECREATEINSTANCE,HO" &1
  1484. 13
  1485. 8 4
  1486. 0 271 "hInstance" 1
  1487. 0 264 "hInstance" "{1}"
  1488. 16 FontDlg 1 0 0
  1489. 16 GetFormats 1
  1490. 5 3
  1491. 21 5 [X]
  1492. 5 1
  1493. 7 "Double-Declining Balance"
  1494. 23 5
  1495. 5 2
  1496. 7 "Sum-of-Years' Digits"
  1497. 23 5
  1498. 5 3
  1499. 7 "Straight-Line"
  1500. 23 5
  1501. 0 31 1007 "Enter values to either calculate a depreciation allowance for a particular period or generate a full depreciation schedule."
  1502. 0 31 1000 "Press the report button to generate a full depreciation schedule."
  1503. 0 31 9500 &5
  1504. 0 41 0 "{2}!InitDlg"
  1505. 0 41 9500 "{2}!DataChange"
  1506. 0 41 8000 "{2}!DataChange"
  1507. 0 41 8001 "{2}!DataChange"
  1508. 0 41 8002 "{2}!DataChange"
  1509. 0 41 8003 "{2}!DataChange"
  1510. 0 47 112 "{2}!DisplayHelp"
  1511. 0 26 "." "Deprec"
  1512. 13
  1513. 8 6
  1514. 6 6
  1515. 5 3
  1516. 18 1
  1517. 11 00000935
  1518. 5 -1
  1519. 15
  1520. 9
  1521. 16 FontDlg 4 0 0
  1522. 0 27 9500
  1523. 13
  1524. 8 7
  1525. 0 27 8000
  1526. 13
  1527. 5 1
  1528. 4 0
  1529. 8 8
  1530. 0 27 8001
  1531. 13
  1532. 5 1
  1533. 4 0
  1534. 8 9
  1535. 0 27 8002
  1536. 13
  1537. 5 1
  1538. 4 0
  1539. 8 10
  1540. 0 27 8003
  1541. 13
  1542. 5 1
  1543. 4 0
  1544. 8 11
  1545. 16 CreateReport "{7}" "{8}" "{9}" "{10}" "{11}"
  1546. 0 284 "LTSCE01.DLL,CEDESTROYINSTANCE,HH" "{1}"
  1547. 0 266 "hInstance"
  1548. 0 298 "{3}"
  1549. 16 GetFormats 0
  1550. 6 0
  1551. 15
  1552. 9
  1553. 14 InitDlg
  1554. 0 32 2
  1555. 0 296 1
  1556. 5 1000
  1557. 8 1
  1558. 5 1007
  1559. 6 1
  1560. 18 2
  1561. 12 00000120
  1562. 10 00000159
  1563. 5 1
  1564. 6 1
  1565. 3 0
  1566. 8 1
  1567. 10 00000042
  1568. 16 FontDlg 3 "{0}" "{1}"
  1569. 10 00000087
  1570. 16 FontDlg 3 "{0}" 9500
  1571. 5 8000
  1572. 8 4
  1573. 5 8003
  1574. 6 4
  1575. 18 2
  1576. 12 00000275
  1577. 10 00000314
  1578. 5 1
  1579. 6 4
  1580. 3 0
  1581. 8 4
  1582. 10 00000197
  1583. 16 FontDlg 3 "{0}" "{4}"
  1584. 10 00000242
  1585. 0 44 "{0}" 3
  1586. 13
  1587. 0 284 "User,EnableWindow,AHA" [X] 0
  1588. 0 296 0
  1589. 6 3
  1590. 15
  1591. 9
  1592. 14 DataChange
  1593. 0 32 2
  1594. 0 265 "hInstance"
  1595. 13
  1596. 8 5
  1597. 0 42 "{0}" 8000
  1598. 13
  1599. 8 6
  1600. 0 42 "{0}" 8001
  1601. 13
  1602. 8 7
  1603. 0 42 "{0}" 8002
  1604. 13
  1605. 8 8
  1606. 0 42 "{0}" 8003
  1607. 13
  1608. 8 9
  1609. 0 42 "{0}" 9500
  1610. 13
  1611. 8 10
  1612. 7 "Double-Declining Balance"
  1613. 6 10
  1614. 18 0
  1615. 11 00000332
  1616. 0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{5}" "@DDB({6};{7};{8};{9})" &4
  1617. 10 00000626
  1618. 10 00000626
  1619. 7 "Sum-of-Years' Digits"
  1620. 6 10
  1621. 18 0
  1622. 11 00000478
  1623. 0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{5}" "@SYD({6};{7};{8};{9})" &4
  1624. 10 00000626
  1625. 10 00000626
  1626. 7 "Straight-Line"
  1627. 6 10
  1628. 18 0
  1629. 11 00000613
  1630. 0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{5}" "@SLN({6};{7};{8})" &4
  1631. 10 00000626
  1632. 10 00000626
  1633. 10 00000626
  1634. 0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{5}" "@Round({4};2)" &4
  1635. 5 0
  1636. 0 808 0 "{4}" "ERR"
  1637. 13
  1638. 18 0
  1639. 11 00000804
  1640. 0 44 "{0}" 3
  1641. 13
  1642. 0 284 "User,EnableWindow,AHA" [X] 1
  1643. 10 00000859
  1644. 0 44 "{0}" 3
  1645. 13
  1646. 0 284 "User,EnableWindow,AHA" [X] 0
  1647. 0 43 "{0}" 1008 "{4}"
  1648. 6 3
  1649. 15
  1650. 9
  1651. 14 CreateReport
  1652. 7 "Double-Declining Balance"
  1653. 6 0
  1654. 18 0
  1655. 11 00000113
  1656. 7 "@DDB"
  1657. 8 11
  1658. 10 00000319
  1659. 10 00000319
  1660. 7 "Sum-of-Years' Digits"
  1661. 6 0
  1662. 18 0
  1663. 11 00000205
  1664. 7 "@SYD"
  1665. 8 11
  1666. 10 00000319
  1667. 10 00000319
  1668. 7 "Straight-Line"
  1669. 6 0
  1670. 18 0
  1671. 11 00000290
  1672. 7 "@SLN"
  1673. 8 11
  1674. 10 00000319
  1675. 10 00000319
  1676. 7 "@DDB"
  1677. 8 11
  1678. 10 00000319
  1679. 16 BuildTable "{3}"
  1680. 0 265 "hInstance"
  1681. 13
  1682. 8 12
  1683. 5 1
  1684. 8 4
  1685. 6 3
  1686. 6 4
  1687. 18 2
  1688. 12 00000454
  1689. 10 00000850
  1690. 5 1
  1691. 6 4
  1692. 3 0
  1693. 8 4
  1694. 10 00000379
  1695. 6 11
  1696. 7 "@SLN"
  1697. 18 0
  1698. 11 00000568
  1699. 0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{12}" "{11}({1};{2};{3})" &6
  1700. 10 00000638
  1701. 0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{12}" "{11}({1};{2};{3};{4})" &6
  1702. 0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{12}" "@Round({6};0)" &7
  1703. 6 7
  1704. 5 1
  1705. 4 0
  1706. 8 7
  1707. 0 6 "{4}[9]{7}[9]"
  1708. 6 10
  1709. 6 7
  1710. 3 0
  1711. 5 1
  1712. 4 0
  1713. 8 10
  1714. 6 1
  1715. 6 10
  1716. 3 1
  1717. 5 1
  1718. 4 0
  1719. 8 9
  1720. 6 9
  1721. 5 1
  1722. 4 0
  1723. 8 9
  1724. 0 6 "{9}[9]"
  1725. 10 00000421
  1726. 6 5
  1727. 15
  1728. 9
  1729. 14 BuildTable
  1730. 7 "_Default.sty"
  1731. 8 2
  1732. 7 "Title"
  1733. 8 3
  1734. 7 "Arial"
  1735. 8 4
  1736. 7 "Period"
  1737. 8 5
  1738. 7 "Depreciation"
  1739. 8 6
  1740. 7 "Net Book Value"
  1741. 8 7
  1742. 2 101 1 "{2}" 1 0
  1743. 6 0
  1744. 5 3
  1745. 3 0
  1746. 8 8
  1747. 2 457 1 1 1 3 "{8}"
  1748. 2 323 1 "{3}"
  1749. 2 311 1 "{3}"
  1750. 2 315 1 "{4}" 280 0 8197
  1751. 2 319 1
  1752. 0 6 "[4135][4135]"
  1753. 2 634 1 1944 -32768 -32768 -32768
  1754. 2 635 1
  1755. 0 6 "Depreciation Schedule"
  1756. 2 632 1 96 31 0 1 16250871
  1757. 2 626 1 2 1 3024 86 284 86 1 0 1 0 0 0
  1758. 0 6 "[9]{5}[9]{6}[9]{7}[9]"
  1759. 6 1
  1760. 15
  1761. 9
  1762. 14 DisplayHelp
  1763. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  1764. 13
  1765. 8 1
  1766. 0 798
  1767. 13
  1768. 0 16 [X] "HelpPack.hlp"
  1769. 13
  1770. 8 2
  1771. 5 50
  1772. 8 3
  1773. 0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
  1774. 6 0
  1775. 15
  1776. 9
  1777. 14 FontDlg
  1778. 5 1
  1779. 6 0
  1780. 18 0
  1781. 11 00000255
  1782. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  1783. 13
  1784. 8 4
  1785. 0 271 "FontHandle" 1
  1786. 6 4
  1787. 11 00000217
  1788. 0 264 "FontHandle" "{4}"
  1789. 6 4
  1790. 15
  1791. 9
  1792. 10 00000229
  1793. 5 0
  1794. 15
  1795. 9
  1796. 10 00000785
  1797. 10 00000785
  1798. 5 2
  1799. 6 0
  1800. 18 0
  1801. 11 00000381
  1802. 0 265 "FontHandle"
  1803. 13
  1804. 8 5
  1805. 6 5
  1806. 11 00000356
  1807. 6 5
  1808. 15
  1809. 9
  1810. 10 00000368
  1811. 5 0
  1812. 15
  1813. 9
  1814. 10 00000785
  1815. 5 3
  1816. 6 0
  1817. 18 0
  1818. 11 00000596
  1819. 0 265 "FontHandle"
  1820. 13
  1821. 8 5
  1822. 6 5
  1823. 11 00000558
  1824. 0 44 "{1}" "{2}"
  1825. 13
  1826. 8 6
  1827. 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0
  1828. 5 1
  1829. 15
  1830. 9
  1831. 10 00000570
  1832. 5 0
  1833. 15
  1834. 9
  1835. 10 00000785
  1836. 10 00000785
  1837. 5 4
  1838. 6 0
  1839. 18 0
  1840. 11 00000785
  1841. 0 265 "FontHandle"
  1842. 13
  1843. 8 5
  1844. 6 5
  1845. 11 00000730
  1846. 0 284 "gdi,DeleteObject,HH" "{5}"
  1847. 5 1
  1848. 8 7
  1849. 10 00000740
  1850. 5 0
  1851. 8 7
  1852. 0 266 "FontHandle"
  1853. 6 7
  1854. 15
  1855. 9
  1856. 10 00000785
  1857. 6 3
  1858. 15
  1859. 9
  1860. 14 GetFormats
  1861. 0 286 "Intl" "iCurrency" "Win.ini"
  1862. 13
  1863. 8 2
  1864. 0 286 "Intl" "sCurrency" "Win.ini"
  1865. 13
  1866. 8 3
  1867. 0 271 "Prefix" 1
  1868. 0 271 "Suffix" 1
  1869. 5 1
  1870. 6 0
  1871. 18 0
  1872. 11 00000496
  1873. 5 0
  1874. 6 2
  1875. 18 0
  1876. 11 00000233
  1877. 6 3
  1878. 8 4
  1879. 7 ""
  1880. 8 5
  1881. 10 00000439
  1882. 5 1
  1883. 6 2
  1884. 18 0
  1885. 11 00000296
  1886. 7 ""
  1887. 8 4
  1888. 6 3
  1889. 8 5
  1890. 10 00000439
  1891. 5 2
  1892. 6 2
  1893. 18 0
  1894. 11 00000374
  1895. 0 16 "{3}" " "
  1896. 13
  1897. 8 4
  1898. 7 ""
  1899. 8 5
  1900. 10 00000439
  1901. 5 3
  1902. 6 2
  1903. 18 0
  1904. 11 00000439
  1905. 7 ""
  1906. 8 4
  1907. 0 16 " " "{3}"
  1908. 13
  1909. 8 5
  1910. 0 264 "Suffix" "{5}"
  1911. 0 264 "Prefix" "{4}"
  1912. 10 00000557
  1913. 5 0
  1914. 6 0
  1915. 18 0
  1916. 11 00000557
  1917. 0 266 "Suffix"
  1918. 0 266 "Prefix"
  1919. 6 1
  1920. 15
  1921. 9
  1922. 14 StartEngine
  1923. 0 297 "LTSCE01.DLL" "CECreateInstance" "HO"
  1924. 13
  1925. 8 1
  1926. 6 1
  1927. 5 0
  1928. 18 0
  1929. 11 00000202
  1930. 0 3 "The ltsce01.dll could not be loaded.  Please copy the dll to the Ami Pro directory."
  1931. 5 0
  1932. 15
  1933. 9
  1934. 6 1
  1935. 15
  1936. 9
  1937. 6 0
  1938. 15
  1939. 9
  1940. DIALOG Deprec
  1941. -2134376448 17 31 43 246 103 "" "AmiDialog" "QuickDepreciation" 
  1942. FONT 8 "Helv" 
  1943. 122 20 42 12 8000 1350631424 "edit" "" 0 
  1944. 122 35 42 12 8001 1350631424 "edit" "" 0 
  1945. 122 50 42 12 8002 1350631424 "edit" "" 0 
  1946. 122 65 42 12 8003 1350631424 "edit" "" 0 
  1947. 80 84 86 40 9500 1344339971 "combobox" "" 0 
  1948. 200 4 40 14 1 1342373889 "button" "Done" 0 
  1949. 200 21 40 14 3 1342373888 "button" "Report" 0 
  1950. 172 38 71 29 1000 1342177280 "static" "text" 0 
  1951. 11 22 89 8 1001 1342177280 "static" "Amount paid for the asset:" 0 
  1952. 11 37 105 9 1002 1342177280 "static" "Estimated asset salvage value:" 0 
  1953. 11 52 106 8 1003 1342177280 "static" "Total number of periods (life):" 0 
  1954. 11 67 103 9 1004 1342177280 "static" "Period to calculate allowance:" 0 
  1955. 11 86 64 8 1005 1342177280 "static" "Depreciation method:" 0 
  1956. 177 72 60 10 1006 1342177280 "static" "Allowance for period:" 0 
  1957. 179 82 55 10 1008 1342177281 "static" "" 0 
  1958. 172 64 69 33 20 1342308359 "button" "" 0 
  1959. 6 2 170 16 1007 1342177280 "static" "text" 0 
  1960. 00021926
  1961.