SlickRock home page

1.2.9

1.2.8

1.2.7a

1.2.6

1.2.5

1.2.4

1.2.3

1.2.2

1.2.1

1.2.0

1.2.19

1.2.18

1.2.17

1.2.16

1.2.15

1.2.14

1.2.13

1.2.12

1.2.11

1.2.10

 

Version 2.5.12

Fixes
1. In unit DCFCalculations, added a check on the maxYears. For calculating
fractional LPU's you can only have 100 years. There was no check if
this had been exceeded.
Changes
1. Added internet updating to CoalVal. New Unit was added called "UpDate".
2. Added Radio group to unit "Setup" to allow user to select when program
will check for updates. Choices are weekly, monthly, or never. With
weekly or monthly the program will check for days since last update check.
When ready for update check Update unit will be run allowing the user
to check for updates.
3. Added an ini file to keep track of the update checking settings. The
must be in the exe directory and is named: 'UpdateSch.ini'.
4. Added an ini file to keep track of the current update status of the
users computer. The file name is "version.ini.
5. If the user checks on updates the program will download an other ini
file from the update server. This ini file is named "versionws.ini".
this file is compared to the "version.ini" file to see if updates are
available.



top
 Version 2.5.11

Fixes
Changes
1. Changed Unit "ArcViewImportandExport" to execpt logical values for
importing a washed field into coalval.
2. Changed function function TArcViewInOutForm.ParseLine to get the field
type of the fields in the DBF table. This information is sent to the
import procedure.
3. Changed procedure TArcViewInOutForm.ImAVBtnClick to use the field type
information. It is used for logical values and floats and integers.



top
 Version 2.5.10
Fixes
1. DBF table importer stopped working. The DBF table componet would not
increment the table to the next record. This was working in other
releases. Changed the name of the "Table1" component to
"DBFTableToImport" and it started working again.
Changes
1. Added a program to fix corputed paradox tables. The program is spawned
from the "CoalValDataBases" unit. A menu item as been added for it under
the "Tools" menu item. It is called "Fix Tables". There is no help
for this program.

top
 Version 2.5.9
Fixes
Changes
1. Unit CoalValData procedure SEmLOGrpQCalcFields added field SHoursWorked to
SEmLOGrpQ as a calculated field. This field adds up the number of units
for each shift for an salaried employee. This value will be used as part
of Tons/Man-hour shift calculation. Added the following lines:
{
added to version 2.5.9
SEmLOGrpQSHoursWorked.Asfloat := (SEmLOGrpQShift1.AsFloat +
(SEmLOGrpQShift1.AsFloat *
(MineDataTTFHP.AsFloat/100)) +
.AsFloat +
(SEmLOGrpQShift2.AsFloat *
(MineDataTTFHP2nd.AsFloat/100)) +
SEmLOGrpQShift3.AsFloat +
(SEmLOGrpQShift3.AsFloat *
(MineDataTTFHP3rd.AsFloat/100)) +
SEmLOGrpQShift4.AsFloat +
(SEmLOGrpQShift4.AsFloat *
(MineDataTTFHP.AsFloat/100))) * 8;
}
2. In unit MineModelCalculations adding 4th shift to the overtime. It will
use the same overhead factor as the 1st shift.

3. In Unit MineModel on assumptions page: Made the Data input items: Factor
for Hourly Payroll for 1st, 2ns, 3rd, and 4th shifts not visible for the
second part of mine models that have 2 parts such as longwall.
4. In unit MineModel on assumptions page: "Made Days Year -- Production" and
"Days Year -- Auxilliary" not visible on the second assumptions page
for mine models that have 2 assumption pages.
5. In Unit CoalValData added overtime hours to procedure PEmLOGrpQCalcFields.
The new function looks like:
Version 2.5.9 added overtime hours
PEmLOGrpQHoursWorked.Asfloat := (PEmLOGrpQShift1.AsFloat +
(MineDataTTFHP.AsFloat/100)) +
PEmLOGrpQShift4(MineDataTTFHP.AsFloat/100))) *
PEmLOGrpQHoursPerShift.AsFloat;
end

 top
 Version 2.5.8
Fixes
Changes
1. In unit MineModelCalculations, changed the way Tons per Man hour is
calculated. It was calculated using washed coal production. It now
uses raw tons of coal production.
2. Changed report heading in unit ReportMM. The heading was
'Tons Sold per Man-hour Worked'. It was changed to
'Raw Tons per Man-hour Worked'.
3. In unit CoalValData changed procedure PEmLOGrpQCalcFields from
(*
procedure TCoalValDataForm.PEmLOGrpQCalcFields(DataSet: TDataSet);
var
a,b,c,d,e : double;
begin
if not MainForm.CalculateMineModel then
exit;
Adjusted shifts ((H158/8)*7.25)+(((H158/8)*0.75)*1.5)
Version 1.0.29 added the roundtodecimal for this version to elimate
the report not showing exact results.
PEmLOGrpQAdShift1.AsFloat := RoundToDecimal(((PEmLOGrpQRate.AsFloat / 8) * 7.25) +
((PEmLOGrpQRate.AsFloat / 8) * 0.75) * 1.5, 2, true);
PEmLOGrpQAdShift2.AsFloat := RoundToDecimal(PEmLOGrpQAdShift1.AsFloat + 0.3,2,true);
PEmLOGrpQAdShift3.AsFloat := RoundToDecimal(PEmLOGrpQAdShift1.AsFloat + 0.4,2,true);
PEmLOGrpQAdShift4.AsFloat := RoundToDecimal(PEmLOGrpQAdShift1.AsFloat,2,true);
Payroll Rate/day
PEmLOGrpQPayrollDay.AsFloat :=((PEmLOGrpQShift1.AsFloat *
PEmLOGrpQAdShift1.AsFloat) +
(PEmLOGrpQShift2.AsFloat *
PEmLOGrpQAdShift2.AsFloat) +
(PEmLOGrpQShift3.AsFloat *
PEmLOGrpQAdShift3.AsFloat){
version 1.0.28 Remove 4th shift from
hourly all day totals
+
(PEmLOGrpQShift4.AsFloat *
PEmLOGrpQAdShift4.AsFloat)}) *
PEmLOGrpQHoursPerShift.AsFloat;

added this for version 2.5.1 they want tons/worked hours. This will
give me the numbers of hours worked for each employee.
{
a := PEmLOGrpQShift1.AsFloat;
B := PEmLOGrpQShift2.AsFloat;
c := PEmLOGrpQShift3.AsFloat;
d := PEmLOGrpQHoursPerShift.AsFloat;

e := (a + b + c) * d;
PEmLOGrpQHoursWorked.AsFloat := e;
showmessage(' a= '+ FloattoStr(a)+
' b= '+ FloattoStr(b)+
' c= '+ FloattoStr(c)+
' d= '+ FloattoStr(d)+
' e= '+ FloattoStr(e));
}
PEmLOGrpQHoursWorked.AsFloat := (PEmLOGrpQShift1.AsFloat +
PEmLOGrpQShift2.AsFloat +
PEmLOGrpQShift3.AsFloat) *
PEmLOGrpQHoursPerShift.AsFloat;
end;

to

procedure TCoalValDataForm.PEmLOGrpQCalcFields(DataSet: TDataSet);
var
a,b,c,d,e : double;
begin
if not MainForm.CalculateMineModel then
exit;
Adjusted shifts ((H158/8)*7.25)+(((H158/8)*0.75)*1.5)
Version 1.0.29 added the roundtodecimal for this version to elimate
the report not showing exact results.
PEmLOGrpQAdShift1.AsFloat := RoundToDecimal(((PEmLOGrpQRate.AsFloat / 8) * 7.25) +
((PEmLOGrpQRate.AsFloat / 8) * 0.75) * 1.5, 2, true);
PEmLOGrpQAdShift2.AsFloat := RoundToDecimal(PEmLOGrpQAdShift1.AsFloat + 0.3,2,true);
PEmLOGrpQAdShift3.AsFloat := RoundToDecimal(PEmLOGrpQAdShift1.AsFloat + 0.4,2,true);
PEmLOGrpQAdShift4.AsFloat := RoundToDecimal(PEmLOGrpQAdShift1.AsFloat,2,true);
Payroll Rate/day
PEmLOGrpQPayrollDay.AsFloat :=((PEmLOGrpQShift1.AsFloat *
PEmLOGrpQAdShift1.AsFloat) +
(PEmLOGrpQShift2.AsFloat *
PEmLOGrpQAdShift2.AsFloat) +
(PEmLOGrpQShift3.AsFloat *
PEmLOGrpQAdShift3.AsFloat){
version 1.0.28 Remove 4th shift from
hourly all day totals
Version 2.5.8 replace the 4th shift to hourly
all day totals}+
(PEmLOGrpQShift4.AsFloat *
PEmLOGrpQAdShift4.AsFloat)) *
PEmLOGrpQHoursPerShift.AsFloat;

added this for version 2.5.1 they want tons/worked hours. This will
give me the numbers of hours worked for each employee.
{
a := PEmLOGrpQShift1.AsFloat;
B := PEmLOGrpQShift2.AsFloat;
c := PEmLOGrpQShift3.AsFloat;
d := PEmLOGrpQHoursPerShift.AsFloat;

e := (a + b + c) * d;
PEmLOGrpQHoursWorked.AsFloat := e;
showmessage(' a= '+ FloattoStr(a)+
' b= '+ FloattoStr(b)+
' c= '+ FloattoStr(c)+
' d= '+ FloattoStr(d)+
' e= '+ FloattoStr(e));
}
version 2.5.8 added the 4th shift in to this calculation
PEmLOGrpQHoursWorked.AsFloat := (PEmLOGrpQShift1.AsFloat +
PEmLOGrpQShift2.AsFloat +
PEmLOGrpQShift3.AsFloat +
PEmLOGrpQSHift4.AsFloat) *
PEmLOGrpQHoursPerShift.AsFloat;
end;
*)

top

Version: 2.5.7
Fixes
1. Fixed unit ImportQuality. On the Filtered Area Table Results dialog
the data grid and the nav bar were missing a datasource.
2. procedure TImportQualityForm.JvMultilineButton2Click(Sender: TObject)
would only go through the area table once. If there were more than
one record to import quality data from then only the first area table
record would get the imported data.
3. Fixed formula for other taxes in unit MineModelCalculations. The
formula need to divide the county sales tax by 100
to convert from percentage. Also the formula had State royalty rate
in the calculation. The State royality rate is already in the private,
state, and Acquisition line of the report.
Changes
1. Removed the field RegionName from all reports on the "MineData" window.
2. Added more error checking for buttons Captioned "4. After Selecting DBF
and CoalVal Fields Click here to accept Relationship" and "2e. Accept
relationship." in unit Import Quality.
3. Added error checking for the "Set Path" button on the "Export Mine
Model Exchange File" tab of the "Mine Model Data Exchange" dialog.
Can not longer select CoalVal's ImportExport folder for the export file.
4. Removed the fields RegionName and RegionID from Baggage Collection reports.
5. ImportExport unit no longer ask user for region name to import an Export
file. The RegionID field is still required for the connection of all the
data to be imported, but program creates unquie RegionID for the import.
6. Added Mine Model table refresh to OnDeactivate event for IE dialog. This
means that the imported mine model will be visible on the Mine Model
dialog without the user having to refresh the mine models.
7. Grouped Mine Model Calcualtion errors into one list box on a new form.
There is now a button on the Area dialog, Mine Model Reports dialog,
Project/Seam Report dialog, Mine Model dialog that display the error
report form. If an error is detected while calculating a mine model
the button will turn red. Clicking the button to view the error report
will turn off the red color. There will no longer be a message dialog
displaying the error message. All messages will be displayed on the
error report dialog.
8. Added to CoalVal Databases window a test for a difference between the
Template database version of the tables in the Templatedata folder
under the CoalVal's install folder and the database version as coded into
CoalVal. The CoalVal template database version nummber will be shown
in the status bar.
9. Changed the heading "Royality Private Lands" in the Mine Model report to
"Private, State, and Acquistion".
10. In the mine model calculations there had to be coal mined for mine models
including Truck Shovel and Dragline. Change this to coal has to be mined
for a least one part of the mine model. This change affects the mine
model report on the Direct Cost, Indirect Cost, Other Cost, and Royalities,
Taxes, and Fees sections. There can be costs, but if the Cost/Ton column
is zero then there was no coal mined. This part is not completed yet.
There are still report sections that need changing to complete this.

top

Version: 2.5.6
Fixes
1. Changed formula in unit DCFCal that places the caluclated inches into
the mine model before calculation. The formula was calculatin coal
thickness in feet instead of inches. This fix does not change any
previously calculated DCF calculations. Reason is that this fix
is only for Mine Models calculated for DCF reports and DCF reports
calculate their own coal and parting thickness. DCF reports do not
use thicknesses from the mine models.
Changes
1. Change calculate status bar and calculate button on the Mine Model dialog
of the Mine Model window. Now when the calculation is complete a message
is displayed stating so and the status bar is cleared.

top

Version: 2.5.4
Fixes

Changes
1. In version 2.3.0 the overhead group check box from the Salaried Employee
Groupings page of the Mine Model dialog was removed. This change adds it
back.
2. Change headings for Mine Model report on the wage labor page.
3. Added shift 4 with overtime to the total annual payroll, but not to the
daily totals.
4. On MineModel unit the assumptions dialog added the "Overbuden Prod. shift"
edit for use on the dragline part of the Truck Shovel and Dragline
mine model. Also change the formulas in unit MineModelCalculations to
use this change.
5. On MineModel unit the assumptions dialog change heading of "Explosive Cost
/BCY" to "Explosive Coal/BCY".

top

Version: 2.5.3
Fixes
1. For Unit EEMMSelectForm if the user sets a filter so that there are no
records in the drag drop table then drag and drops on to one of the 3
dialogs, a blank record is entered into the mine model. This has been
corrected with a check to see if the drag drop table has any records. If
it does not then drap drop is not allowed.


Changes
1. For unit MineModelForm on the Mine Model Assumptions page, made the
following visible for longwall production and T&S Dragline:
MD6, MD7, MD8, MD9, MD10, MD11, MD12, MD13, MD49, MD24, MD47, and MD48.

top

Version: 2.5.2
Fixes
1. To unit Main added the following code to both the CloseDatabase and
OpenDatabase functions:
if PrepPlantModelT.Active then
PrepPlantModelT.Close;
if PrepPlantInvestmentT.Active then
PrepPlantInvestmentT.Close;
Without this code these two tables could end up open when CoalVal trys
to open them.

top

Version: 2.5.1
Warnings
Fixes
1. Copy Mine Model routine was not working. Fix it by placing all the
new fields into the table the copy routine uses to copy to.
2. Changed 'Total Annual Overhead:' to
'Total Annual Overhead (includes Hourly and Salaried):' on the mine
model report.
3. In unit CoalValDataForm for componets PrepPlantModelT and
PrepPlantInvestmentT the properties for DatabaseName equals CoalValData,
SessionName = CoalVal1.

Changes
1. Added 20 and 30 year dep to DCF calculations and report. Changed the
equipment table. Added 20 and 30 year selection for dep for each item
equipment table on the mine data dialog.
1a. Added 8 columns in the DCF report for 20 and 30 year dep reporting.
2. Added two new mining methods: Truck & shovel and dragline, and Highwall.
Units MineModel, CoalValDataBases, MineModelCalculations, ProjectCal,
ReportPrj was change to add the new mining methods.
3. Added ability to filter Drag Drop Employees or Equipment dialog. If
filtered, the data on the respective page on the mine model dialog may
not be displayed, but it is still there. Use the refresh button to
view the data again.
4. Changed burden rates for longwall and truck shovel and dragline so that
the burden rate can only be entered on the first set of mine assumptions.
The one burden rate will be used by both mine types.
5. For longwall and ts and dragline added MineDataTTBurdenRate.AsFloat,
MineDataTTBurdenRateHourly.AsFloat, MineDataTTDWYP.AsFloat,
MineDataTTDWYA.AsFloat, MineDataTTShiftsDayProduc.AsFloat,
MineDataTTDWWP.AsFloat, MineDataTTDWWA.AsFloat to the use only once per
mine model. They will be displayed for the user to change only on
the first assumptions page, not the first and second. These varaibles
relate to "Days Year -- production", "Days Year -- auxillary",
"Shifts/Day -- Production", "Days Week -- production", and
"Days Week -- Auxiliary".
6. Added reporting of productivity (saleable tons per man-hour worked).
This is reported on the mine model report. It is the tons to market
divided by the hours worked for hourly employees. This value is
dispalyed on the mine model report.
7. Added Record View componet to area dialog on the project window.
8. Added HTML help to the program. The user can select to use either
win help or HTML help by selecting the help type under the Help menu.
9. Changed the TableName property of the MineTypeT component on the
CoalValDataForm unit from MineType.DB to ProjectPRefs.DB. Both paradox
tables have the same 2 fields of MineTypeID and MineTypeName, but
the ProjectPrefs.DB table also has the YearsStartProd, LastYearProdPercent,
and FirstYearProdPercent fields. Can use one paradox table for both needs.
10. In unit CoalValDataBases, changed line "if not (VerS = VerNum) then" to
"if (VerS < VerNum) then". This will allow for programs with lower
database version numbers to open database with higher version numbers.
11. Removed the ability to spawn the PrepPlant program from CoalVal. This
a memory allocation that can be over run with both programs running at
the same time.

Version: 2.4.3
Warnings
Fixes
Changes
1. Removed forms and code that is no longer need in CoalVal. This has
reduced the size of the compiled code by .55 MB. Forms/units removed
were AboutDCFCal, PX3PIMP, RegionChange, Splash, StringGrid.

top

Version: 2.4.2 Beta
Warnings
Fixes
1. Upon closing, CoalVal was not removing all of its components from the
users computer. This was caused by components on the Preferences Form.
When the form was removed from the CoalVal project the memory issue
stopped. CoalVal when halting running nows removes all of its components
from memory.
Changes

 

top

Version: 2.4.1 Beta
Warnings
Fixes
Changes
1. Added code to Main form CreateForm method to add installation path to the
registry. This will be used by the new Prep Plant Program. With this
information in the registry the prep plant program can check to see if
CoalVal is installed in the uers computer.
2. Added to fields to the MineData.DB table. The fields are "UsePrepPlant"
and "PrepPlantID". The first field is a boolean that will allow the
user to select if they want to use prep plant cost from the prep plant
program. The second field is integer which will be used to store the
PrepPlantID of the prep plant model the user selects. Also added
a new lookup field to "MineDataTT". This will allow the user to view
the name of the Prep Plant Model selected. The name of the lookup
field is PrepPlantName. It is a string.
3. On MineModel Dialog change the mining method data entry from a check box
to buttons.
4. Added two menu items to the main dialog. The new menu items are located
under the tools menu item. The first one is "Preparation Plant". This
menu item will run the new Prep Plant program if it is installed. If
the Prep Plant program is install this menu item will be enabled. If
it is not installed then this menu item will not be enabled. The user
will need to run the Prep Plant program once after it is installed
before CoalVal will know that it has been installed.
The second menu item is "Allow use of Prep Plant Calculators Costs".
This menu item is a checked item. This means that if the menu item is
not checked and the user clicks the menu item, it will become checked.
Checked means that CoalVal will allow the user to use the Prep Plant
Models on the Assumptions page of the Mine Model Dialog for prep plant
costs.
5. Added to components to the Mine Model Assumptions page of the Mine Model
dialog. The two components allow the user to use prep plant costs from
the new Prep Plant Calculator program. The first component is the
"Use Prep Plant Program's Costs" check box. If the Prep Plant program
is installed and the user has allow the use of the program then this
check box will be enabled. When enabled, checking the check box will
enabled the pull down box below it(the second component added). This
pull down box lists all the
Prep Plant Models that the user can select from. Selecting a Prep Plant
Model means that the cost for the prep plant will use the Prep Plant'
Model that is selected. Checking the check box will also disable the
'User user entered Prep Plant Cost" check box and the "User Entered
Prep Plant Costs:' data entry box. When the "Use Prep Plant Program's
Costs" check box is check the program will NOT use the user entered
prep plant cost even if the 'User user entered Prep Plant Cost" check
box is checked.

top


Version: 2.3.0 Beta
Warnings
Users upgrading to this version must take care of the following items or
the reports calculated will not be correct.
1. Added radio button group box to the Equipment page of mine model dialog.
With this change the users will need to access all mine models and select
an equipment type. Failure to do this will make all DCF and Project/Seam
reports calculate cost incorrectly.
2. Added 1 fields to Equip.DB table. It is Surface Facilities.
This field is used by the CIS because there are 2
different types of equipment in the equip.db table. The 2 are capital
equipment, Surface Facilities. The users will need
to go through existing databases and determine if this check box
needs to be check. Failure to do this will mean that the wrong cost
index will be used.
Fixes
Changes
1. Added database selection and creation system to CoalVal. The previous
versions of CoalVal was created to work with only one CoalVal database.
The user could use more than one database by exiting CoalVal and using
the BDE administrator to change databases. This modification allows
create new database, added existing database to coalvals database list,
and select which database in the database list to use all from within
CoalVal. When CoalVal is first started, there is no database selected.
the user will need to use the Database button on the main window to
select and open a database to use.
a. Added a Databases button to the CoalVal Main menu window. Added a
Databases menu item to the File menu. Both of these allow the user
to access the Databases window.
b. Added a CoalVal Databases window to CoalVal. This window allows
the user to create new CoalVal database, add existing CoalVal
databases to the database list, and select a database to use in
CoalVal from the databases list. The open database, add database.
create database function are accessed from the File menu item on
the CoalVal Databases window.
c. Search for database button to allow user to search a disk drive for
a CoalVal databases. The search is for a file with the name of
'Area.db'. When executed the routine will place all found paths
into the coalval database of databases. The name of the database
will be the path truncated to 35 characters. The path will be the
full path up to 255 characters. The user can then edit the database
name, but not the path. Any database can be deleted from the
database of databases. After the search ends the user should
change the "Database Name" field to something that makes sense to
them.
d. Added the Updater to the CoalVal. The Updater program was a stand
alone program has now been place within coalval. Any database the
user trys to open with the database new database routine will be
updated if needed to the new database structure. This will only be
carried out on a database that the user is trying to open. If a
database has a old structure, but the user never trys to open it,
it will not be updated to the new structure.
e. Added a new table that contains the database structure version. The
table is named 'CoalValDBVersion.db'. This Table will be accessed
to help CoalVal to determine if a database needs to be updated.
It should also be noted that coalval updater will not up-date
databases with version 1 database structure.
2. With the addition of coalval's ability to use many different database
the use of the 'Region\Mine Data Groups' have been removed. This
affects the Mine Model, Mine Data, Reports, and Setup dilogs. On the
Mine Data dialog all reports that were related to 'Region\Mine Data
Groups' have been removed.
3. Added a Cost Index Adjustment system to CoalVal. The values found in the
Cost Index System are used on all mine models found in the currently
selected database. You can not have different CIS values for different
mine models found in the same CoalVal database.
a. Added two new tables for the Cost Indexing system. The tables are PPI
and CalculateCCI. Added 3 table items to unit CoalValDataForm. They
are PPIT, CalculatedCCIT, and CalculatedCCILUT. CalculatedCCILUT will
be used as a lookup table for the PPI table. The PPI table is where
the user enters the name of the producer price index, begin date of
index, value of index, end date for the index, and value of the index.
The user then will select a CoalVal Cost Category Item.
The Cost Category items are:
1) Auto Expenses - This will index the Auto Expenses cost found on the
Mine Assumptions dialog of the Mine Model window.
2) Base Salary - This will index the Salaried Employees cost found on
the Salaried Employees dialog of the Mine Data window.
3) Capital Equipment - This will index the Capital Equipment cost found
on the Equipment dialog of the Mine Data window.
4) Equipment Rental - This will index the Equipment Rental cost found
on the Mine Assumptions dialog of the Mine Model window.
5) Explosives - This will index the Explosives cost found on the Mine
Assumptions dialog of the Mine Model window.
6) Fuel & Lube - This will index the Fuel & Lube costs that are entered
on the Equipment dialog of the Mine Data window.
7) General Expenses - This will index the General Expenses cost found
on the Mine Assumptions dialog of the Mine Model window.
8) General Utilities - This will index the General Utilities cost found
on the Mine Assumptions dialog of the Mine Model window.
9) Hoisting Cost - This will index the Hoisting Cost found on the Mine
Assumptions dialog of the Mine Model window.
10) Maintenance Truck Rental -- This will index the Maintenance Tuck
Rental Cost found on the Mine Assumptions dialog of the Mine Model
window.
11) Operating Supplies - This will index the Operating Supplies cost
found on the Mine Assumptions dialog of the Mine Model window.
12) Preparation Plant Operating Cost - This will index the Preparation
Plant Operating cost found on the Mine Assumptions dialog of the
Mine Model window.
13) Professional Services - This will index the Professional Services
cost found on the Mine Assumptions dialog of the Mine Model window.
14) Rail Load-out - This will index the Rail Load-Out costs found on the
Mine Assumptions dialog of the Mine Model window.
15) Repair & Maintenance - This will index the Repair & Maintenance cost
found on the Equipment dialog of the Mine Data window.
17) Surface Supplies & Facilities - This will index the Surface Supplies
& Facilities cost found on the Equipment dialog of the Mine Data
window.
17) Wages - This will index the Wages cost found on the Wages dialog of
the Mine Data window.
18) Exploration & Resource Acquisition - This will index the Exploration
& Resource Acquisition cost found of the Mine Assumptions dialog of
the Mine Model window.
19) Property Insurance - This will index the property insurance cost
found on the Mine Assumptions dialog of the Mine Model window.
b. Added 3 calculated fields to EquipT. The fields are named CISUnitCost
CISFandL, and CIS RandM.
It is used to hold the CIS value for the base equipment price in the
equipment table.
c. Added calculated field to SEmployeesT. The field is named CISRate.
It is used to hold the CIS value for the base equipment price in the
salaried employee table.
d. Added calculated field to WagesT. The field is named CISRate.
It is used to hold the CIS value for the base equipment price in the
wages table.
e. Added 14 calcualted fields to MineDataTT table. The fields will hold
CIS values. The fields are: CISEquipRentSY, CISGenUtilMonth,
CISProfessService, CISGenExpenseSpread, CISOpSupplies, CISRailLoadOutCost,
CISHoistCostHour, CISExplosives, CISExplosivesOver, CISAutoRent,
CISTruckRent, CISExploreResCost, CISPrepPlantCost, and CISPropInsurance.
f. Added 1 fields to Equip.DB table. It is Surface Facilities.
This field is used by the CIS because there are 2
different types of equipment in the equip.db table. The 2 are capital
equipment, Surface Facilities. The users will need
to go through existing databases and determine if this check boxe
needs to be check.
g. Added a 1 field to MineData.DB table. The field is a date field for
the user to enter the date of the information found on the mine
assumptions page of the Mine Model window. Added a date box on the
Mine Model Assumptions page to allow the user to enter a date for the
information found on this page.
h. Changed the equipment, Hourly Employees, and Salaried employees tables
(Mine Model tables) to except CIS calcualted values from the related
mine data tables.
i. Changed unit MineModelCalculations to use Mine Assumption CIS calculated
values.
j. Added a group box to the Mine Model Assumptions page of the Mine Model
window. This group box will allow the user to select to view base
cost or CIS cost. The user can edit the base costs, but not the
CIS cost.
4. Added two hourly shifts to Mine Assumptions page of the Mine Model
dialog. They are used to calculate the cost of the 2nd and 3d shifts.
5. Added radio button group box to the Equipment page of mine model dialog.
This is used to select the type of property each peice of equipment is.
The choices are None, Real, and Tangible. This will affect the way the
taxes are calculated for the DCF and project/seam reports. With this
change the users will need to access all mine models and select an
equipment type. Failure to do this will make all DCF and Project/Seam
reports calculate cost incorrectly.
6. Added the ability for users to sort the area table on the area page of
project dialog using the sorting dialog box or entrying thier own sorting
codes.
7. Added abiltity to import quality data into the areas of a selected
seam. The import uses a DBF file for the quality data import. A DBF
file can be created in Excel. To create DBF file in Excel first create
a work sheet with field headings in the first row. The items that can
be imported are: ash coal, ash parting, ash dilution, sulfur coal,
sulfur parting, sulfur dilution, BTU coal, BTU parting, BTU dilution,
Moisture, fixed carbon, and volatile matter. The excel worksheet should
have one field that is the name of the row. This field will be used to
relate records in the DBF file to records in CoalVal's Area table.
Put data under the headings and save the worksheet as a DBF version 4
or DBF version 3.
8. Removed the delete button from all dialogs on the Mine Data, Haul Cost,
Taxes, Equipment, and Employees window. If any of these records need
to be deleted, the user must use the Baggage Collection menu item found
under the Tools menu item. This item will allow the user to delete any
items that are currently not used any mine models and/or projects.
9. Added a burden rate for hourly employees. All hourly employees will be
used to calculate the Hourly employee burden amount. This burden will be combined
with the salaried burden calculations on the mine model report. Also
removed the overhead group check box from the Salaried Employee Groupings
page of the Mine Model dialog. This change means that all salaried
employees will be used for calculating the burden rate.

top

Version: 1.2.19
Fixes and changes do not affect any reports.

Fixes
1. Fix on Reports dialog "Project/Seam Report" page. The "Error Report"
list box was not scrolling. Users could not see complete error message.
Added a scroll box and set the hor to 1000 characters and the vert to
10,000 lines. Placed the list box on the scroll box.

Changes
1. Changes on Reports dialog "Project/Seam Report" page. Change the
reporting of the seam name and area name to include a "|" after the
seam name and before the word "Area:".
2. Changes on Reports dialog "Project/Seam Report" page. Added the area
id to the error report.

top

 

Version: 1.2.18
Fixes - none

Changes
1. Changed the stripping ratio for truck and shovel mine type to a
calculated value. The user can enter what ever they want on the Mine
Model Assumptions page of the Mine Model dialog, but the
unit MineModelCalculaions will calculate a value and place it in the
database when ever the mine model is calculated. The change took place
in unit MineModelCalculations. The following function was added:

function TMineModelCalculation.CalStripRatio(SR, TonsCoal, TonsOver: double): double;
{ This function calculates stripping ration for truck and shovel mine models
and places the value in the database. It does not calculate stripping ratio
for any other mine types}
begin
with CoalValDataForm do
{ if truck and shovel then calculate SR}
if MineDataMMTMineTypeID.AsInteger in[4] then
try
result := TonsOver / TonsCoal;
MineDataTT.Edit;
MineDataTTStripRatio.AsFloat := TonsOver / TonsCoal;
MineDataTT.Post;
except
result := 0.0;
MineDataTT.Edit;
MineDataTTStripRatio.AsFloat := 0;
MineDataTT.Post;
end
else
{ if not truck and shovel then just return the user entered value }
result := SR;
end;

In unit MineModelCalculations,
function TMineModelCalculation.AddStuffToMineAssumptArrays; the
following was changed:

MineAssumpt[maStripRatio ,i] := MineDataTTStripRatio.AsFloat;

to:

MineAssumpt[maStripRatio ,i] := CalStripRatio(MineDataTTStripRatio.AsFloat,
MineDataTTPSpreadShift.AsFloat,
MineDataTTOSpreadShift.AsFloat);

top

Version: 1.2.17

Fixes and changes do not affect any reports.

Fixes
1. Fixed problem in MineModel unit. If report error for either not enough
ROM coal or not enough washed coal is set then object MMCal was set to
free code and exited a try finally block incorrectly. This results in
an access voliation error. Changed:
if MMCal.ReportError then
begin
SetCalFieldsToZero;
MMCal.free;
exit;
end
DIRawField.AsFloat := MMCal.DITotalCostR;
DIRCTField.AsFloat := MMCal.DITotalCostTonR;
DIWashField.AsFloat := MMCal.DITotalCostW;
DIWCTField.AsFloat := MMCal.DITotalCostTonW;
ProgressBar.StepBy(30);
CostCarRawField.AsFloat := MMCal.CostInCarR;
CRCTField.AsFloat := MMCal.CostInCarTonR;
CostCarWashField.AsFloat := MMCal.CostInCarW;
CWCTField.AsFloat := MMCal.CostInCarTonW;
finally
if not NotCreated then
if SetFreeMM then begin
FreeAndNil(MMCal);
end;
ProgressBar.StepBy(40);
end;

to

if MMCal.ReportError then
begin
SetCalFieldsToZero;
end
else begin
DIRawField.AsFloat := MMCal.DITotalCostR;
DIRCTField.AsFloat := MMCal.DITotalCostTonR;
DIWashField.AsFloat := MMCal.DITotalCostW;
DIWCTField.AsFloat := MMCal.DITotalCostTonW;
ProgressBar.StepBy(30);
CostCarRawField.AsFloat := MMCal.CostInCarR;
CRCTField.AsFloat := MMCal.CostInCarTonR;
CostCarWashField.AsFloat := MMCal.CostInCarW;
CWCTField.AsFloat := MMCal.CostInCarTonW;
end;
finally
if not NotCreated then
if SetFreeMM then begin
FreeAndNil(MMCal);
end;
ProgressBar.StepBy(40);
end;

2. In unit MineModel fixed problem of MineModelAssumptions page not showing
correct assumptions if an existing mine model type is changed. Change
made in procedure TMineModelForm.NotebookPageChanged(Sender: TObject;
Index: Integer);
begin
inherited;
ChangeStatusBar;
CheckIfNeedPost;
// Added following line
MineDataVisibleStuff;

3. In unit MineModel fixed problem with Mining Method type not being able
to be set back to longwall type if it had been change from longwall
type. The radio buttons would show that was set back to longwall type,
but user could not access the Longwall Development salaried and hourly
employees, equipment, and mine assumptions pages. Change was made in
procedure TMineModelForm.MiningMethodRGClick(Sender: TObject);
with CoalValDataForm do begin
if MineDataMMT.State in[dsEdit] then begin
MineDataMMTMineTypeID.AsInteger := MiningMethodRG.ItemIndex + 1;
MineDataMMT.Post;
//added the following lines
//if longwall the make sure there are 2 records
if (MiningMethodRG.ItemIndex + 1) = 6 then begin
add new record
if MineDataMMT.RecordCount = 1 then begin
MineDataMMT.Insert;
MineDataMMT.Post;
end;
end;
//end added code
end;


Changes
1. In unit MineModel procedure TMineModelForm.CalMiningCost change
MMCal.Free to FreeAndNil(MMCal).
2. Change unit DCFCal to use the MineModelCalculations error messages
concerning not enough ROM or Wash plant product to calculate mine model
if unit MineModelCalculations unit creates these messages. DCFCal
prior to this use its own message that told user to check project area
for coal tons, parting tons, and area. This message is not the correct
message for the mine model not being calculated because of problems
mine model assumptions.

top

Version: 1.2.16

Fixes
1. Added acquistion cost to the mine model calculations. Changes were in
unit "MineModelCalculations".

The change will only effect the cash cost of mine model calculations and Project/Seam reports. DCF calculations do not use the acquisition cost the mine model calculates. DCF calculates its own acquisition costs, so you do not need to re-run any DCF reports. Only mine model reports if you care about acquisition cost on the mine model report and the cash cost, and all Project/Seam reports as they do use all the mine models values.

The acquisition cost on the mine model report will appear in the royalty line. This same line includes state and private royalty rates.

Changed:

function TMineModelCalculation.CalRoyalityRate: double;
begin
result := 0.0;
with CoalValDataForm do
begin
case MineDataMMTMineTypeID.AsInteger of
//surface mines
1..4,7: begin
result := (((TaxesTStateRoyalS.AsFloat +
TaxesTRoyalS36.AsFloat ) / 100) *
TaxesTMarketTon.AsFloat);
end;
//underground mines
5,6,8: begin
result := (((TaxesTStateRoyalU.AsFloat +
TaxesTRoyalU24.AsFloat ) / 100) *
TaxesTMarketTon.AsFloat);
end;
end;
end;
end;

to

function TMineModelCalculation.CalRoyalityRate: double;
begin
result := 0.0;
with CoalValDataForm do
begin
case MineDataMMTMineTypeID.AsInteger of
//surface mines
1..4,7: begin
result := (((TaxesTStateRoyalS.AsFloat +
TaxesTRoyalS36.AsFloat ) / 100) *
TaxesTMarketTon.AsFloat) +
(TaxesTAcquistion.AsFloat);
end;
//underground mines
5,6,8: begin
result := (((TaxesTStateRoyalU.AsFloat +
TaxesTRoyalU24.AsFloat ) / 100) *
TaxesTMarketTon.AsFloat) +
(TaxesTAcquistion.AsFloat);
end;
end;
end;
end;

top

Version: 1.2.15

Fixes
1. Fixed Contour strip calculations in unit MineModelCalculations.
changed:
function TMineModelCalculation.RawTonsDiluYr(i: TMineAssumpKind): double;
var
d, E: double;
begin
if CoalValDataForm.MineDataMMTMineTypeID.AsInteger in[1..4] then
if MineAssumpt[maStripRatio ,i] = 0.0 then begin
E := 0.0
end
else begin
if CoalValDataForm.MineDataMMTMineTypeID.AsInteger = 1 then

to:

function TMineModelCalculation.RawTonsDiluYr(i: TMineAssumpKind): double;
var
d, E: double;
begin
if CoalValDataForm.MineDataMMTMineTypeID.AsInteger in[1..4] then
if MineAssumpt[maStripRatio ,i] = 0.0 then begin
E := 0.0
end
else begin
if CoalValDataForm.MineDataMMTMineTypeID.AsInteger = 4 then

top

Version: 1.2.14

Fixes
1. Fixed Truck&Shovel mine model raw tons/year error. Error was in unit
MineModelCalculations; procedures
function TMineModelCalculation.RawTonsDiluYr(i: TMineAssumpKind): double;
function TMineModelCalculation.RawTonsPartYr(i: TMineAssumpKind): double;
function TMineModelCalculation.RawTonsCoalYr(i: TMineAssumpKind): double;
Change the formula:
E := (MineAssumpt[maPSpreadShift,i] *
MineAssumpt[maDWYP,i] *
MineAssumpt[maNumSpreadsUnits,i] *
MineAssumpt[maShiftsDayProcduc ,i]) / MineAssumpt[maStripRatio ,i];

to:
if CoalValDataForm.MineDataMMTMineTypeID.AsInteger in[4] then
E := (MineAssumpt[maOSpreadShift,i] *
MineAssumpt[maDWYP,i] *
MineAssumpt[maNumSpreadsUnits,i] *
MineAssumpt[maShiftsDayProcduc ,i]) / MineAssumpt[maStripRatio ,i]
else
E := (MineAssumpt[maPSpreadShift,i] *
MineAssumpt[maDWYP,i] *
MineAssumpt[maNumSpreadsUnits,i] *
MineAssumpt[maShiftsDayProcduc ,i]) / MineAssumpt[maStripRatio ,i];

Changes
1. Changed Tangable property tax calculations in unit DCFCalculations in
procedure: procedure CalOtherCost;
the old formula was:
DCFYearsTTangPropTax.AsFloat := MMCal.TotalTangProperty *
(TaxesTTangValueRate.AsFloat/100) *
TaxesTPropTan.AsFloat *
RealPropTaxSub/100;

top

Version 1.2.13

Fixes
1. Commented out line: " //IsLongwall := projectDataForm.AreaTIsLongwall.AsBoolean;"
in procedure: "procedure TDCFCalculation.Calculate;"
added line: " IsLongwall := DCFCalform.MMCal.LongwallMM;" in
"Constructor TDCFCalculation.Create;" all in unit "DCFCalculations".

Changes
1. In order to get CoalVal's ROM DCF numbers in the same accuracy league as the DCF workbooks, the method for estimating the average coal and parting thickness has been changed. This change will allow CoalVal to go from using coal thickness like 2.42 to using 2.416666666. The same is true for parting thicknesses. This allows CoalVal to more closely produce DCF workbook ROM values.

In unit DCFCalculations procedure TDCFCalculation.FillDCFDBTable;
change the following code from:

try
AreaTAveThickCoal.AsFloat := RoundToDecimal(
AreaTOrgTonsCoal.AsFloat / AreaTArea.AsFloat/
MMCal.MineAssumpt[maCoalDensity,makMineModel],
2,false); // units ft
except
AreaTAveThickCoal.AsFloat := 0.0;
end;
try
AreaTAveThickParting.AsFloat := RoundToDecimal((AreaTPartings.AsFloat /
AreaTArea.AsFloat /
MMCal.MineAssumpt[maPartDensity,makMineModel]) *
12,2,false); // units inches
except
AreaTAveThickParting.AsFloat := 0.0;
end;

to:

try
AreaTAveThickCoal.AsFloat := AreaTOrgTonsCoal.AsFloat / AreaTArea.AsFloat/
MMCal.MineAssumpt[maCoalDensity,makMineModel]; // units ft
except
AreaTAveThickCoal.AsFloat := 0.0;
end;
try
AreaTAveThickParting.AsFloat := (AreaTPartings.AsFloat / AreaTArea.AsFloat /
MMCal.MineAssumpt[maPartDensity,makMineModel]) * 12; // units inches
except
AreaTAveThickParting.AsFloat := 0.0;
end;

2. Place the DCFCalculator into the CoalVal exe. There has been problems
with selecting an area for DCF calculations on the Report dialog, then
pressing the "6. Calculate DCF" button and forgetting that one needed to
select the area for calculation again on the DCFCalculator.

top

Version 1.2.12

Fixes
1. Fixed problem of mine model reports not including equipment or wages cost.
This problem did not affect any DCF calculations. The change was in unit
"Main". Change the line:
procedure TMainForm.FormActivate(Sender: TObject);
begin
CalculateMineModel := false;
to
procedure TMainForm.FormActivate(Sender: TObject);
begin
CalculateMineModel := true;

Changes
1. Change the export "HurdleRate" data to an Excel workbook to export the
"HurdleRate" found in the "Area" table not the one in the "Seam" table.
This change will show the actual hurdle rate used in the DCF caluclations
for an area. The Seam hurdle rate is the value the will be used if the
Area is re-calculated.

top

Version 1.2.11

Fixes - none

Changes
1. Changed mine model calculations to allow 3,5,7,10 deprecation for truck
shovel and dragline mine models. The change was in the CoalValData unit,
procedure TCoalValDataForm.EquipLOQCalcFields(DataSet: TDataSet);
2. Added ">= price <" to the heading of the summary cost tons report.
3. Removed the warning about using DCF calculations for truck shovel and
dragline mine models from the DCF report page of the Reports dialog.

top

Version: 1.2.10

Fixes
1. Fixed problem with mine model reports. The fix of the floating point
error resulted in a unit being used by CoalVal that had a varaible that
could only be used be the DCFCalculator. Fixed by creating a new unit
for the DCFCalculator called MineModelCalculations1. Correcting unit
reference in MineModelCalculations from CoalValData1 to
CoalValData for the CoalVal. Also change the following code from:
MineAssumpt[maPrepPlantCost,i] := (MineAssumpt[maPSpreadShift,i] *
StrToFloat(DCFCalForm.PrepPlantCost)) /
((MineAssumpt[maCoalRecoverWash ,i] *
MineAssumpt[maPSpreadShift,i])
/ 100);
to:
MineAssumpt[maPrepPlantCost,i] := (MineAssumpt[maPSpreadShift,i] *
StrToFloat(SetUpForm.PrepPlantCostEdit.Text)) /
((MineAssumpt[maCoalRecoverWash ,i] *
MineAssumpt[maPSpreadShift,i])
/ 100);
in unit MineModelCalculations.


Changes - none

top

Version 1.2.9

Fixes - none

Changes
1. Added to data export on the projects dialog the following fields:
(DCFCal) -- <N> -- "Mine Life Fractional"
(DCFCal) -- <N> -- "Number Fractional LPU"
(DCF) -- <L> -- "Resource Area Calculated"
(DCF) -- <L> -- "At Least One LPU"
(DCF) -- <L> -- "Uses Fractional LPU"
2. Removed from the data export on teh projects dialog the following fields:
(DCFCal) -- <N> -- "Tons Processes"

top

Version 1.2.8

Fixes
1. Fixed possible unintialized variable in the
"TDCFCalculation.FillYearlyTable;" procedure.
2. Change the following formula:
DCFYearsTAcqCost.AsFloat :=
SummaryTonsArray[srLWRecovered,scPureCoal] *
DCFMineLife /
(MMCal.MineAssumpt[maMineableRR,makMineModel] / 100)
* TaxesTAcquistion.AsFloat;

  try
DCFYearsTAcqCost.AsFloat :=
SummaryTonsArray[srLWRecovered,scPureCoal] *
DCFMineLife /
(MMCal.MineAssumpt[maMineableRR,makMineModel] / 100)
* TaxesTAcquistion.AsFloat;
except
DCFYearsTAcqCost.AsFloat := 0.0;
end;

Changed the following code:

DCFYearsTPercentDepletion.AsFloat :=
(TaxesTDepletionCoal.AsFloat/100) *
((THPrice * a1) -
((DCFYearsTCROM1.AsFloat /
(MMCal.MineAssumpt[maMineableRR,makMineModel] /
100)) * TaxesTValueIn2Years.AsFloat))
else
DCFYearsTPercentDepletion.AsFloat := (TaxesTDepletionCoal.AsFloat/100) *
((TaxesTMarketTon.AsFloat * a1) -
((DCFYearsTCROM1.AsFloat /
(MMCal.MineAssumpt[maMineableRR,makMineModel] /
100)) * TaxesTValueIn2Years.AsFloat));

if MMCal.MineAssumpt[maMineableRR,makMineModel] <= 0 then
DCFYearsTPercentDepletion.AsFloat := 0.0
else
DCFYearsTPercentDepletion.AsFloat :=
(TaxesTDepletionCoal.AsFloat/100) *
((THPrice * a1) -
((DCFYearsTCROM1.AsFloat /
(MMCal.MineAssumpt[maMineableRR,makMineModel] /
100)) * TaxesTValueIn2Years.AsFloat))
else
if MMCal.MineAssumpt[maMineableRR,makMineModel] <= 0 then
DCFYearsTPercentDepletion.AsFloat := 0.0
else
DCFYearsTPercentDepletion.AsFloat := (TaxesTDepletionCoal.AsFloat/100) *
((TaxesTMarketTon.AsFloat * a1) -
((DCFYearsTCROM1.AsFloat /
(MMCal.MineAssumpt[maMineableRR,makMineModel] /
100)) * TaxesTValueIn2Years.AsFloat));


Changes
1. Changed the layout of the "DCF Report" and "Project/Seam Report"
dialogs. "DCF Reports" dialog now has one button for calculating
DCF reports. Clicking this button will run the "DCF Calculator"
program. When returning to the "DCF Reports" dialog from the "DCF
Calculator" the user must refresh the "DCF Resource Areas" table
by clicking the refresh button on the navigator bar. Failure to do so
will mean that any data calculated by the DCF Calculator will not be
available to the "DCF Reports" dialog.
2. Added a program called "DCF Calculator" to the CoalVal project group.
This program can be used as a stand alone application or spawned from
CoalVal's "DCF Reports" dialog. If used as a stand alone program it
must have a command line parameter for Prep Plant Cost. The program
has a debug log code placed through out. The debug log can be enabled
by click the "Enable Debug Log" menu item found under the "File" menu.
The debug log is enabled if the menu item has a check mark in front of
it. If this option is enabled thousands of small log files can
be generated. The number of files depends on the number of resource
areas that are calculated. The files are name "CVGeneralXXX.Log", where
the "XXX" is a number.
3. Removed "DCFCalculations" unit from CoalVal.
4. Removed procedures and function related to DCF caluclations from
CoalVal's "RaveReport" unit.

top

Version 1.2.7a

Fixes
1. Fixed the charting window not appearing and hanging the program. The
window now appears. The toggle button has been replace with a radio
group to switch between 2D and 3D graphics. This fix also resulted in
the removal of all Jedi components from CoalVal.
2. Fixed the phrase in the first status bar section to correctly show
the type of report that a filter has been set for or removed from.

Changes
1. Change from Delphi compiler version 6 to version 7.
2. Removed the 'Report Calculation finished' dialog from the DCF report.
The status of the calculation of all DCF and Project/Seam reports are
now displayed in the status bar at the bottom of the reports window.
The third section of the status bar will turn yellow with the words
'Calculating' when a report is begin created. The yellow and the words
will be removed when the calculation is finished.
3. Changed the first section of the status bar to be displayed in red when
a filter is set for either DCF or Project/Seam reports.
4. Change the following compiler options:
Turned off Stack Frames
Turned off Strict Var-string
Turned off Complete Boolean eval
Turned off Assignable typed constants

top

Version 1.2.6:

 Fixes
1. Fixed the export schema layout for exporting to a text file or an
excel workbook. Changed
(DCF) -- <N> -- "Taxing District" = [TaxingDis40]{40}
(DCF) -- <N> -- "Coal Bed Name" = [CoalBedNa41]{41}
to
(DCF) -- <A35> -- "Taxing District" = [TaxingDis40]{40}
(DCF) -- <A35> -- "Coal Bed Name" = [CoalBedNa41]{41}

Any Schema file that contains any of the top 2 lines must be edited to change the lines to read as the bottom two lines. This can be done by using CoalVal or an editor such as windows Note pad.


Changes
1. Changed button caption on "Create Schema for Exporting Data" from
"Save ArcView Schema" to "Save Excel/Text Schema".

top

Version 1.2.5

Fixes
1. Changed salvage formulas in unit DCFCalculations.
{
if (((i-YearsToStart1) mod 3) = 0) and (i < (DCFMineLife + YearsToStart1+1)) then
begin
if i <> (DCFMineLife + YearsToStart1) then
begin
DCFYearsTCap3Year1.AsFloat := MMCal.DeprecArray[dr3,makMineModel];
if (3 - (DCFMineLife + YearsToStart1 - i)) >= 0 then
// added check for longwall
if MMCal.LongwallMM then
SalvageArray[1,1] :=
(Trunc((3 - (DCFMineLife + YearsToStart1 - i)) -
// added the "+ 1" to line below
PercentLastYear1 + 1) /3) * MMCal.DeprecArray[dr3,makMineModel]
else
// if not longwall the remove the "+ 1" . Note the third line below
SalvageArray[1,1] :=
(Trunc((3 - (DCFMineLife + YearsToStart1 - i)) -
PercentLastYear1) /3) * MMCal.DeprecArray[dr3,makMineModel];
if SalvageArray[1,1] < 0 then
SalvageArray[1,1] := 0.0;
end;
end;
} This was done for 5, 7, and 10 year depreciation.


2. Fixed the arrow on the DCF Reports dialog of the Reports window. It was
relating "Calculate New Fractional LPU DCF Report" button to the "Report
Log" button. Changed to relating "Calculate All Areas, LPU DCF Reports"
to the "Report Log" button.

Changes

1. Salvage formulas are set to assume that real property does not have any salvage value.


top

Version 1.2.4

Fixes
1. Fixed the spelling in the heading of the Recoverable Tons Coal Summary
Setup dialog.

Changes
1. Added ability of user to make a copy of a haul cost record and/or a
tax table record. The record that will be copied is the currently
selected record. The copied record will be placed as the last record
in the table.
2. Change the default in the "3a." radio buttons to Exact LPU. This is on
the DCf report tab of the Reports dialog.
3. Changed the salvage formulas to using the Excel workbook method of
buying equipment even if the is only 1 year left of mining.
4. Changed the Economically Recoverable Tons Coal report layout to hopefully
not cut off the last column on ink jet printers.
5. Added to the "Recoverable Tons Coal Summary Setup dialog the ability for
the user to create ranges by entering a starting value, a ending value
and an increment for the range. If use it will delete any existing
ranges for the selected "Summary Name".


top

Version 1.2.3

Fixes - none

Changes
1. Added help buttons to the ChangeMM dialog and AreaReview dialog.
2. Changed the help file for the program.

top

Version 1.2.2

Fixes
1. Fix problem of DCG summary report some times displaying all zero's.
Need to make sure the data table is open. The report dialog was
DCFYears and DCFCal1 tables. When the summary report was used the
tables may be closed or open depending on what action the user had taken
before using the Summary report. The fix reported in version 1.2.1 was
not the solution.

top

Version 1.2.1

Fixes
1. Fix spelling on the summary chart and changed axis on the chart to
price on the x axis and tons on the y.
2. Fix problem of DCG summary report some times displaying all zero's.
Needed to set filter on table "DCFCal1".


top

Version 1.2.0

Fixes
1. On "ArcVeiw Import and Export" window removed the references to ArcView
from the "Export" dialogs since the "Export" routines export to Excel
and dilimited text files

2. Fixed bug where deleting an area from the area table would not delete
records form the it's detail tables "DCFCal1" and "DCFYears".

Changes
1. Added "Recoverable Tons Cost Summary" report to "Project/Seam Report". This
report will produce a table similar to the table produced by the standard
"Project/Seam Report" with the exception that the user can set the cost
ranges.
2. Added Recoverable Tons Cost Summary report to "DCF Reports". This
report will produce a table similar to the table produced by the new
"Recoverable Tons Cost Summary" on the "Project/Seam Report" dialog.
The tons of coal shown in the report is:
if AreaTUseFractionalLMU.AsBoolean then
SummarySetupForm.PlacesTonsInPriceRange(MineDataMMTMineTypeID.AsInteger,
AreaTThresholdPrice.AsFloat,
DCFCal1TTonsToMarketLMU.AsFloat *
Int(DCFCal1TNumLMUFrac.AsFloat))
else
SummarySetupForm.PlacesTonsInPriceRange(MineDataMMTMineTypeID.AsInteger,
AreaTThresholdPrice.AsFloat,
DCFCal1TTonsToMarketLMU.AsFloat *
Int(DCFCal1TNumLMU.AsFloat))
What this is showing is that the tons are the tons to market per LPU
times the whole number of LPU's rounded down. If a fraction LPU was
calculated then it is the tons to market per LPU times the whole number
of LPU's round down.
2a. Added a radio group on the "DCF Report" window of the "Reports" dialog.
the radio group will allow for the selection of using the rounded down
LPU or the exact LPU.

2b. Remeber that pressing the "Calculate All Areas, LPU DCF Reports" trys to
calculate by not using fractional LPUs. If it can not, then it will
try to calculate using fractional LPUs. If it can not then the thresold
price is set to 0.
3. Added filter status and number of records in filter to the "DCF Reports"
dialog of the Reports window. When the "DCF Reports" tab is selected
the number of records in the database will be displayed
in the status bar. Also displayed is the status filtering the database.
4. Added the ability to filter the "DCF Report" from the "DCF Reports"
dialog of the "Reports" window. A new button has been added to the
dialog for setting the filter. When clicked a filter dialog box will
be displayed. The status bar will display the results of the filter.
5. Added a dialog to allow the user to set the ranges for DCF "Recoverable
Tons Cost Summary" report. The dialog can be reach by click on the
"Cost Summary Report Ranges" menu item under the "Summary Report Tools"
menu on the "Reports" window. The ranges that are set can inceaseing
values or overlapping values. For example if you
have two ranges as follows:
$0 to $5.00 and $4.00 to $10.00 you have overlapping
ranges. If you have two ranges as follows:
$0 to $5.00 and $5.00 to $10.00.
you have increaseing range values.
6. Added a menu item "Chart" under the "Summary Report Tools" menu. This
item will chart a Recoverable summary report. It is most useful for a
"Recoverable Tons Sold At or Above Price Range" report. To use it
click the "10. Recoveable Tons Sold at or above Price Range" button on
the "Project/Seam Report" dialog or click "Recoveable Tons Sold at or
above Price Range" button on the "DCF Report" dialog of the "Reports"
window. This will calculate a recoverable tons summary report. Then
click the "Chart" menu item under the "Summary Report Tools" menu. This
display the chart of the report just calculated.
Notes:
a. Make sure all price ranges for the Summary that is used are in
increasing values with no overlapping ranges. For example if you
have two ranges as follows:
$0 to $5.00 and $4.00 to $10.00 you have overlapping
ranges. For the chart the ranges should be as follows:
$0 to $5.00 and $5.00 to $10.00.
7. Added routine to the "Projects" window to allow for the deleting of
all areas from a "Projct/Seam" without deleting the project or the
seam. If a filter has been set it will delete any areas that match the
filter. The routine can be used by clicking on the "Deleted All Areas"
menu item under the "Tools" menu on the "Projects" window.

top

Version 1.1.16

Fixes - none

Changes
1. Added ability to select where the quality data will come from for the
"Project/Seam Report". Choices are from the "Seam Table" or from
and "Area" in the "Area Table". Before this change the quality data
came from the "Seam Table".

top

Version 1.1.15

Fixes
1. Fixed the access violation error when calculating the DFC report.

top

Version 1.1.14

Fixes - none

Changes
1. Added filter status and number of records in filter to the "Project/Seam
Report" dialog of the Reports window. When the "Project/Seam Report"
tab is selected the number of records in the database will be displayed
in the status bar. Also displayed is the status of filtering the database.
2. Added the ability to filter the "Project/Seam Report". A new button
has been added to the dialog for setting the filter. When click a
filter dialog box will be displayed. The status bar will display the
results of the filter.

top

Version 1.1.13

Fixes
1. When calculating a DCF report the program was calculating the mine model
twice. This has been change to once.

Changes
1. Added routine to allow the sorting of the areas on the "Coal Resouce and
Discounted Cash Flow Areas" dialog of the "Projects" window. The user
can sort on mine model ID, tax table ID, Haul Cost Table ID, or Area
Name. The user can select which sorting to use by a radio group box.
The user can only edit the data when the "None" radio button is selected.

top

Version 1.1.12

Fixes

1. Changed prepplant cost formulas in MineModelCalculations unit and the Mine Model unit.

In unit mine model the old formula was:
FloatToStrF(MD23.AsFloat * (3.49 / 100),ffCurrency,10,2);
The new formula is:
FloatToStrF((MD5.AsFloat* StrToFloat(SetUpForm.PrepPlantCostEdit.Text)))
/((MD23.AsFloat/100) * MD5.AsFloat) ,ffCurrency,10,2);
In unit MineModelCalculations old formula was:
MineAssumpt[maPrepPlantCost,i] := MineAssumpt[maCoalRecoverWash ,i] *(3.49 / 100);
The new formula is:
MineAssumpt[maPrepPlantCost,i] := (MineAssumpt[maPSpreadShift,i] *StrToFloat(SetUpForm.PrepPlantCostEdit.Text)) /
((MineAssumpt[maCoalRecoverWash ,i] *MineAssumpt[maPSpreadShift,i])/ 100);

2. Change hint property for the "User Entered Prep Plant Cost:" field on the Assumptions page of the Mine Model dialog from "per Hour" to "per Ton".

Changes

1. Added a user input box on the Setup window/Program dialog. This box will allow user to set the Prep Plant Cost Basis for program calculated prep plant costs. The program default is "$3.49". It will be used in the MineModelCalculations unit and the Mine Model unit. It replaces the hardcoded value of 3.49 in the above mentioned units.
2. Removed the check to see if the mine models have been calculated from procedure CalDCFReport; in the RaveReport unit. This will make sure that any changes to a mine model will be reflected in DCF report.

top

Version 1.1.11

Fixes

1. List boxes were place over other componets during a dubug session and were not removed. This has been fixed.

Changes

1. Added a routine to make sure that the BDE Administrator's variable LOCALSHARES is set to true. Setting LOCALSHARES to true should help avoid data loss when posting data to the database.
2.4.3

2.4.2

2.4.1

2.3.0

CoalVal Changes and Fixes
Select Version Number:

2.5.12

2.5.11

2.5.10

2.5.9

2.5.8

2.5.7

2.5.6

2.5.4

2.5.3

2.5.2

2.5.1