PO: Derive Attributes

created

DateTime.is not used at this level. Instead, CreationDateTime must be accessed.

Amended

DateTime.is not used at this level. Instead, ModifiedDateTime must be accessed.

orderClause

'Due date’

whereClause

Formats the date query according to user input.

minutes

Calculates the difference between from and to an attendance entry in minutes: = Round((to – from) * 60 * 24)

AllPhases

• Returns all phases AND all subphases of phases of the project.
• As of Vertec 6.3, this member is no longer derived, but persistent.

ForwardOutlays

• xExpendituresForward, if set, otherwise:
• If you have a invoice address, take forward from there:Invoice address.Forwardoutlay.Asboolean;
• Otherwise: false.

Outlay types

FARConnection

• xDatabaseFibu is set: Project has specified its own database path. Use this one. Otherwise:
• Get the value from the project type. If not found there:
• Get the value from the System Property:TProperty.PropertyByName(DatabaseFibu).AsString. Otherwise: empty string.

DebtorAccount

• xDebitorAccount, if set, otherwise: from project type

DebiCondition

• xDebiCondition, if set, otherwise:
• kund.xDebiCondition, if set, otherwise:
• of projecttype.xDebiKondition, if set, otherwise: System setting.

docpath

If: xDokPfad set:

• if the path is absolute, it is used as follows
• otherwise: Rootdokpath (document path in system settings) + xDokpath.

If: xDokPfad not set:

Illegal characters are replaced by '-'.

Income accountExpenditures

• 1. xIncome AccountExpenses, if set. Otherwise:
• 2. Retrieve by project type

Income accountBenefits

• 1. xIncome account benefits, if set. Other:
• 2. Retrieve by project type

Income accountExpenses

• 1. xIncome accountExpenses, if set. Otherwise:
• 2. Retrieve by project type

ExtAddress

• Returns the AddressName of the external address, if one is appended (ExtAddressReference).
• If it does not have an external address: empty string.

ExtAddressText

• Returns the Addresstext of the external address, if one is appended (Extaddressreference).
• If it does not have an external address: empty string.

CustomerAddress

• If customer is specified, take the name from there:Customer.Asstring. Otherwise:
• ExtAdressName.AsString. Otherwise: empty string.

CustomerAddressText

• If customer is set, take the Addresstext from there: Customer.Addresstext.Asstring. Otherwise:
• ExtAdresstext.AsString. Otherwise: empty string.

PowerSums

FARLogin

• xLoginFibu is set: Project has specified its own database path. Use this one. Otherwise:
• Get the value from the project type. If not found:
• Get the value from the System Property:TProperty.PropertyByName(LoginFibu).AsString. Otherwise: empty string.

VATCodeServices

VATCodeExpenses

VAT rateServices

VAT rateCharges

VAT typeExpenditures

1. xVATTypeExpenditures, if set, otherwise:
2. Otherwise get from project type, if set, otherwise:
3. Get the VAT type via the system. Depend on the settings in the VAT attribute:
   • Normal: PropertyByName(VATTypeDisplayNormal)
   • Export: PropertyByName(VATTypeExportsExport)
   • None: PropertyByName(VATTypeDisplayNone)
4. If no VAT type has been found yet, throw an exception.

VATTypeServices

1. xMWSTTypePerformance, if set, otherwise:
2. Get from project type, if set, otherwise:
3. Get the VAT type via the system. Depend on the settings in the VAT attribute:
   • Normal: PropertyByName(VATTypePerformanceNormal)
   • Export: PropertyByName(VATTypeServicesExport)
   • None: PropertyByName(VATTypeServicesNone)
4. If no VAT type has been found yet, throw an exception.

VAT typeCharge

1. xVATTypeExpenses, if set, otherwise:
2. Get from project type, if set, otherwise:
3. Get the VAT type via the system. Depend on the settings in the VAT attribute:
   • Normal: PropertyByName(VATTypExpensesNormal)
   • Export: PropertyByName(VATTypeExpensesExport)
   • None: PropertyByName(VATTypeExpensesNone)
4. If no VAT type has been found yet, throw an exception.

FARPassword

• xPasswordFibu is set: project has specified its own database path. Use this one. Otherwise:
• Get the value from the project type. If not found there:
• Get the value from the System Property:TProperty.PropertyByName(PasswordFibu).AsString. Otherwise: empty string.

PersonalAccNum

• xPersonal account, if set. Otherwise:
• If xBillingAddress is assigned and it has a Personalaccnum xBillingAddress.Personalaccnum.Asstring
• If customer assigned and has a Personalaccnum Taddress entry(customer).Personal account.Asstring. Otherwise: Empty string.

PlanExpenditureValue

• xPlanExpenditure value, if any, otherwise:
• Sum the PlanExpenseValue of all subphases. Otherwise: 0.

PlannedCostsExpenditures

• xPlanCostsExpenses, if any, otherwise:
• Sum the PlanCostExpenses of all subphases. Otherwise: 0.

PlanCostPerformance

• xPlanCostServices, if any, otherwise:
• Sum PlanCostPerformance of all subphases. Otherwise: 0.

PlannedCostsExpenses

• xPlanCostsExpenses, if any, otherwise:
• Sum PlanCostExpenses from all subphases. Otherwise: 0.

PlanMinutesInt

• xPlanMinutesInt, if any, otherwise:
• Sum PlanMinutesInt from all subphases. Otherwise: 0.

PlanExpenseValue

• xPlanExpenseValue, if any, otherwise:
• Sum PlanExpenseValue from all subphases. Otherwise: 0.

PlanValueExt

• xPlanValueExt, if any, otherwise:
• Sum PlanVertExt from all subphases. Otherwise: 0.

Project type

• The value depends on the productive property on the project type object. The (old) project type Product Project is mapped via a special Projecttype created by DB-Convert, which is identified via Entryid.
• Calculate earlier attribute project type because of backward compatibility. Otherwise use the type.

if type <> nil then
    if typ.Entryid.AsString = 'ProjecttypeProduct’ then
        ProjectType.AsInteger:=2   // Product Project
    Elsewhere
        if type.Productive.AsBoolean then
            ProjectType.AsInteger:=0   // productive
        Elsewhere
            projecttype.AsInteger:=1   //internal
Elsewhere
    Project type.AsInteger:=0

invoice address

• xBilling address, if set.
• Otherwise: customer.

Invoice AddressText

• ExtAdressText.AsString, if present.
• Otherwise: Invoice address, take default Addresstext:Defaultadress.Addresstext.Asstring

Invoice letter address

• If External Address is assigned (Extadresstext.Asstring <> ''): take the String object defined in the link interface as the salutation.
• Otherwise: on the invoice address.Salutation.Asstring

Invoice greeting

• Is External Address assigned (Extadresstext.Asstring <> ''): take the String object defined in the link interface as a complimentary close.
• Otherwise: on the invoice address:invoice address.Complimentary close.Asstring

Expense types

TotalDisbursement Value

TotalCostsExpenditures

TotalCostsExpenses

SumPowerValueInt

• If system settings “Use Accelerated Summing for Sum Attributes” (only versions prior to 6.0) are set to YES then:
  • Get leistsums attributes from project.
  • Sum ValueIntBilled + ValueIntOpen on all outputs.
• Otherwise: Sum valueInt of the open and settled services on the phase, and add the SumperformanceVertInt on the subphases.

TotalPerformanceValueCosts

• If system settings “Use Accelerated Summing for Sum Attributes” (only versions prior to 6.0) are set to YES then:
  • Sum ValueCostBilled + ValueCostOpen on all services.
• Otherwise: Sum Cost on the open and invoiced services.

TotalOpen benefits

• If system settings “Use Accelerated Summing for Sum Attributes” (only versions prior to 6.0) are set to YES then:
  • Sum Valueextopen on all Servicesum.
• Otherwise: Sum Valueext from all open services.

TotalOpen Expenses

TotalOpen advances

SumMinutesInt

• If system settings “Use Accelerated Summing for Sum Attributes” (only versions prior to 6.0) are set to YES then:
  • Sum MinutesIntOpen + MinutesIntBilled on all services.
• Otherwise: Sum minutesInt of all open and invoiced services.

SumExpenseValue

SumExpensesValueRights

• If phase fixed price rate:
  • If it has an invoice, use the flat rate:= PlanexpenseValue
  • Otherwise: flat-rate phase without invoice -> 0
• If phase is not fixed price sum: Sum Valueext of all expenses that are on an invoice (whether charged or not), and add SumexpensesvalueRight from all subphases.

SumValueExt

• If system settings “Use Accelerated Summing for Sum Attributes” (only versions prior to 6.0) are set to YES then:
  • Get leistsums attributes from project.
  • Sum ValueExtOpen + ValueExtCalculated on all outputs.
• Otherwise: Sum Valueext of the open and settled services on the phase, and add the Sumvertext on the subphases.

SumExpensesValueRights

SumValueExt

• If system settings “Use Accelerated Summing for Sum Attributes” (only versions prior to 6.0) are set to YES then:
  • Sum ValueExtOpen + ValueExtCalculated on all outputs.
• Otherwise: Sum Valueext from all open and invoiced services.

SumValueExtRech

• If system settings “Use Accelerated Summing for Sum Attributes” (only versions prior to 6.0) are set to YES then:
  • Sum ValueExtOpen + ValueExtCalculated on all outputs.
• Otherwise: Sum Valueext of all services that are on an invoice (regardless of whether charged or not).

Servicetypes

UseDebtors

Imprest account

• xAdvance Account, if set, otherwise:
• Get from project type.

payment type

• xPayment type, if set, otherwise:
• Payment type of the project type.

EmploymentLevel

• If xtarget time of week or xWdays are set, the Employmentlevel is calculated:
  • Calculates the value as the ratio between weekly standard hours and Property weekly standard hours:
    weekly standard hours / globWeeksTarget Time * 100
  • if not possible to calculate because Property is not set: 100.
• Other: xLevel of employment, if any, other: 100.

• xlettername, if set. Otherwise:
• If no xBriefname, then it is Stringrep(3) = external name: GetStringRepresentation(3)

Returns the projects on which this user is allowed to enter services.

• If the system settings users must be assigned to project are set to Yes: take all active projects from the editProjekte list.
• Other: all projects: timsession.projekteAktiv

• xCurrency, if set.
• Other: key currency.

1. If xWDage is set: Sum daily target times.
2. xtarget time of week, if available.
3. Calculating weekly standard hours: Value from Property 'Weekly standard hours’ * Employmentlevel / 100

The following attributes are displayed on the class     ProcessorYear calculated. For the values here on the project user, the corresponding year is taken:

• WDays: VtcString.
• OvertimeBalance: integer.
• OvertimeBalance1,..., OvertimeBalance12: integer.
• Vacation: integer.
• Vacation balance: integer.
• Holiday balance1,..., Holiday balance12: integer.
• Overhead: Vtccurrency.
• Salary: Vtccurrency.

Report

String representation of the report attached via the Reports link.

revenue account

• Entry is charged: revenue account.
• Entry is open: Account is calculated:
  1. xIncome account.
  2. Revenue account of the user.
  3. Revenue account of the type.
  4. Revenue account of the phase
  5. Revenue account of the project.
  6. Revenue account of the project type
  7. Revenue account of the system settings. However, this is completed by the subclasses of the project entry (services, expenses, outlays).

cost unit

• Entry is charged to: cost center.
• Entry is open: Account is calculated:
  1. xCost center.
  2. Cost unit of the user.
  3. Cost unit of the type.
  4. Cost unit of the phase
  5. Cost unit of the project.
  6. Could not detect anything: empty string.

Course

Course used to calculate the central currency.

• If 'currency is specified: calculate the course from that currency to the key currency.
• Other: 1.

Wage type

• If type is specified: Type.WageArt.AsString
• Otherwise: empty string.

VAT amount

VATCode

• Entry is charged: verrMWSTCode.
• Entry is open: if it assign a Vattype, take the code from it.

VAT rate

• Entry is charged: VAT rate.
• Entry is still open, calculate the VAT rate from the VAT type.

VATType

VAT type of this project entry. Calculation order:

The VAT type is always calculated, even after charging. After charging clearing, the values of the attr. VAT rate and Vatcode no longer derive from the Vattype type, but from the internal values of the attr. VAT rate and attr. VAT code.

1. xMWSTType <> nil.
2. VATType of user <> nil.
3. VATType Entrytypes <> nil.
4. VATType of project.
5. Throw an exception if the Vattype cannot be calculated.

PhaseLookup

• Does it have a project?
• Get all phases on this project for the specified user.

PhaseLookupRestricted

• Does it have a project?
• Get on this project all phases that match the given type and the given user.

TypeText

• If it has a type and a project: Type.Text in the project.Language
• Otherwise: empty string.

Conversion date

Subclasses can “override” this method if they do not agree with it (this is done with ChargedPerformance).

• Take the date of the entry as Default:= Datum.AsDateTime

Charged

currency

• For open project entries, the currency is the currency of the project:= Getproject.Currency.
• Other: nil.

ValueExt

ValueExtLW

• If currency is specified: 'Extvalue is converted to key currency.
• Other: ValueExt.

Article No.

Calculated on the Expensebasetype and Servicetype subclasses.

• xExpendituresForward, if set, otherwise check project.
• If project exists: Forwardoutlays project, otherwise: false.

• xEndDate, if set, otherwise:
• calculate EndDate from EndData of ActivityphaseLinks:
  • Get the list of all attached activityphaseLink and take the latest end date on those links that it has.
  • If it has no end dates: SetToNull.

• xmaxPlanValuePerformance, if any, otherwise:
• Sum maxPlanVertLeist from all subphases. Otherwise: 0.

• xmaxPlannedValueExpenses, if any, otherwise:
• Sum maxPlanVertExpenses from all subphases. Otherwise: 0.

• xminPlanValuePerformance, if any, otherwise:
• Sum minPlanValueLeist from all subphases.

• xminPlanValueExpenses, if any, otherwise:
• Sum minPlanValueExpenses from all subphases. Otherwise: 0.

• xPlanExpenditure value, if any, otherwise:
• Sum the PlanExpenseValue of all subphases. Otherwise: 0.

• xPlanCostsExpenses, if any, otherwise:
• Sum the PlanCostExpenses of all subphases. Otherwise: 0.

• xPlanCostServices, if any, otherwise:
• Sum PlanCostPerformance of all subphases. Otherwise: 0.

• xPlanCostsExpenses, if any, otherwise:
• Sum PlanCostExpenses from all subphases. Otherwise: 0.

• xPlanMinutesInt, if any, otherwise:
• Sum PlanMinutesInt from all subphases. Otherwise: 0.

• xPlanExpenseValue, if any, otherwise:
• Sum PlanExpenseValue from all subphases. Otherwise: 0.

• xPlanValueExt, if any, otherwise:
• Sum PlanVertExt from all subphases. Otherwise: 0.

• If system settings “Use Accelerated Summing for Sum Attributes” (only versions prior to 6.0) are set to YES then:
  • Get leistsums attributes from project.
  • sum ValueCostOpen + ValueCostInvoiced on all services.
• Otherwise: Sum Cost of the open and invoiced services on the phase, and add the Sumcostservice on the subphases.

• If system settings “Use Accelerated Summing for Sum Attributes” (only versions prior to 6.0) are set to YES then:
  • Get leistsums attributes from project.
  • Sum ValueIntBilled + ValueIntOpen on all outputs.
• Otherwise: Sum valueInt of the open and settled services on the phase, and add the SumperformanceVertInt on the subphases.

• If system settings “Use Accelerated Summing for Sum Attributes” (only versions prior to 6.0) are set to YES then:
  • Get leistsums attributes from project.
  • Sum MinutesIntOpen + MinutesIntBilled on all services.
• Otherwise: Sum minutesInt of the open and settled services on the phase, and add the Summinutenint on the subphases.

• If system settings “Use Accelerated Summing for Sum Attributes” (only versions prior to 6.0) are set to YES then:
  • Get leistsums attributes from project.
  • Sum MinutesInOpen on all performance sums.
• Otherwise: Sum minutesInt of the open services on the phase, and add the SumminutesintOpen on the subphases.

• If phase fixed price rate:
  • If it has an invoice, use the flat rate:= PlanexpenseValue
  • Otherwise: flat-rate phase without invoice -> 0
• If phase is not fixed price sum: Sum Valueext of all expenses that are on an invoice (whether charged or not), and add SumexpensesvalueRight from all subphases.

• If system settings “Use Accelerated Summing for Sum Attributes” (only versions prior to 6.0) are set to YES then:
  • Get leistsums attributes from project.
  • Sum ValueExtOpen + ValueExtCalculated on all outputs.
• Otherwise: Sum Valueext of the open and settled services on the phase, and add the Sumvertext on the subphases.

• If system settings “Use Accelerated Summing for Sum Attributes” (only versions prior to 6.0) are set to YES then:
  • Get leistsums attributes from project.
  • Sum Valueextopen on all Servicesum.
• Otherwise: Sum Valueext of the open services on the phase, and add the SumvalueextOpen on the subphases.

• If phase fixed price rate:
  • If it has an invoice, use the flat rate:= PlanvalueExt
  • Otherwise: flat-rate phase without invoice -> 0
• If phase is not fixed price rate:
  • If system settings “Use Accelerated Summing for Sum Attributes” (only versions prior to 6.0) are set to YES then:
    • Get leistsums attributes from project.
    • Sum ValueExtOpen + ValueExtCalculated on all outputs.
  • Otherwise: Add Valueext of the open and invoiced services that are on an invoice and add the Sumvalueextrech on the subphases.

• xStartDate, if set, otherwise:
• Calculate start date from start dates of activityphaseLinks:
  • Get the list of all attached activityphaseLink and take the oldest start date on those links that it has.
  • if it has no start data: SetToNull.

1. Has it a calculated parent phase.AsBoolean;
2. Only flat-rate phase can be charged automatically: If fixed price or flat-rate expenses or flat-rate expenses, then:
   • If it has an invoice and it is charged, true.
   • In all other cases: false.