2026-10-01, VGR: v1 6.8.0.20 Timsession.allinstances.login->first.checkFeature('fcAuslagen') ClassSettings.allInstances->select(class.containsType(ConfigSetCustomClass30))->reject(entryid='ClassSettingsConfigsetcustomclass30CreditorApprovalStatus')->size=0 CustomFieldCreditorApprovalLog In this field the changes on an creditor regarding approval are recorded. This field should only be write-accessibe for the system administrator. Creditor creditorApprovalLog Approval log UnicodeText true 110 None AdditionalFieldCreditorApprovalStatus ConfigSetCustomClass30.allinstances->orderby(customfieldint('sortOrder')) Creditor creditorApprovalStatus Approval status Object true 100 Object AdditionalFieldCreditorApprovalStatus How the status should appear on the creditor. ConfigSetCustomClass30 creditorApprovalStatusName Approval status String false 510 None CustomFieldCreditorApprovalToBeNotifiedUser A single user who should receive the notification Projektbearbeiter.allinstances->orderby(name) ConfigSetCustomClass30 recipient To be notified (user) Object false 530 Object CustomFieldCreditorApprovalToBeNotifiedOcl Defines who should be notifed when the status is set. must be defined in OCL Note: No notification is sent on creation of the creditor ConfigSetCustomClass30 recipientInOCL User to be notified (by OCL expression) String true 520 None CustomFieldCreditorApprovalSortingOrder Defines the order in which the Creditor approval status should be listed (ascending). Note: The status with the lowest sortOrder will be set when the creditor is created. ConfigSetCustomClass30 sortOrder Sorting order Integer false 500 None UserGroupFolderAccessPurchasing Folder access purchasing UserGroupPurchasing Purchasing AuthorizationRechnungapprovalLogWriteDeny Explicitly do not allow writing (change) on the member approval log on creditor false 18 approvalLog Creditor UserRichtPurchasingAllowAllChargedPurchasesOnProjects true 1 verrechneteAuslagen Project UserRichtPurchasingAllowAllCreditors true 3 Creditor UserRichtPurchasingAllowAllPurchases true 0 Outlay UserRichtPurchasingAllowChargeCreditors true 1 UserRichtPurchasingAllowReadBudgetPurchasesOnProjects true 2 planAuslagenWert Project ClassSettingsConfigsetcustomclass30CreditorApprovalStatus 21 <Page Override="AdditionalClassBase"> <AdditionalFieldGroup Override="AdditionalFieldGroup" Visible="False" /> <TextBox Name="OrderTextBox" Label="{Translate 'Order'}" ValueExpression="customfieldint('sortOrder')" /> <TextBox Name="DescriptionTextBox" Label="{Translate 'Description'}" ValueExpression="customfield('creditorApprovalStatusName')" /> <Group Name="UserToBeNotifiedGroup" Header="{Translate 'User to be notified'}" Orientation="Vertical"> <OclTextBox Name="UserNotifiedOCLOclTextBox" Label="{Translate 'Defined in OCL'}" BaseType="Creditor" ValueExpression="customfield('RecipientInOCL')" /> <UserComboBox Name="UserNotifiedUserComboBox" ShowRemoveButton="True" ShowNavLinkButton="True" Label="{Translate 'User'}" ValueExpression="customfieldobj('Recipient')" /> </Group> </Page> customfield('creditorApprovalStatusName').translate ConfigSetCustomClass30 'Creditor approval status' self->orderby(customfieldint('sortOrder')) ClasssettingsCreditor <Page Override="FurtherInfo"> <Group Name="CreditorApprovalFurtherInfoGroup" PlaceAfter="AdditionalFieldGroup" Header="{Translate 'Approval'}" Orientation="Vertical" Separator="Never"> <Group Name="CreditorApprovalInteractiveGroup" Orientation="Horizontal"> <AdditionalFieldComboBox Name="CAStatusAdditionalFieldComboBox" ValueExpression="customfieldobj('creditorApprovalStatus')" FlexWidth="60" /> <!-- Comments are only possible till the final approval status is set. A spacer ensures, that the fields do no jump, when the Button is set to invisible. The Spacer has a hight larger than the buttons height. --> <Spacer Name="CASpacer" Height="28"/> <ScriptButton Name="AddCommentScriptButton" Text="{Translate 'Add comment'}" FlexWidth="45" HorizontalAlignment="Right" ScriptName="Add_creditor_approval_comment" VisibleExpression="customfieldobj('creditorApprovalStatus').oclAsType(ConfigSetCustomClass30) .customfieldint('sortOrder')&lt;&gt;ConfigSetCustomClass30.allinstances -&gt;orderby(customfieldint('sortOrder'))-&gt;last.customfieldint('sortOrder')" /> <TextBlock Name="NoCommentPossibleTextBlock" Label="No comment possible" ShowLabel="False" Text="{Translate 'Creditor approved'}" FlexWidth="45" HorizontalAlignment="Right" VisibleExpression="customfieldobj('creditorApprovalStatus').oclAsType(ConfigSetCustomClass30) .customfieldint('sortOrder') = ConfigSetCustomClass30.allinstances -&gt;orderby(customfieldint('sortOrder'))-&gt;last.customfieldint('sortOrder')" /> </Group> <TextArea Name="CreditorApprovalLog" Label="{Translate 'Approval log'}" ValueExpression="customfieldasstring('creditorApprovalLog')" Lines="10" /> </Group> </Page> Creditor ExpressionFolderCreditorApproval Creditor approval 21 20 false true CurrentView 17 false true 0 0 false customfieldint('sortOrder') false 1 Order true 80 false false false 0 1 dbmMultilizer.rndTranslate false customfield('creditorApprovalStatusName') false 0 Description true 98 false false false 0 4 false <OclTextBox ValueExpression="customfield('RecipientInOCL')" BaseType="Creditor"/> customfield('RecipientInOCL') false 0 User to be notified, defined in OCL true 235 false Must be a OCL expression or empty, starting from creditor false false 0 5 false <UserComboBox ShowRemoveButton="True" ShowNavLinkButton="True" /> customfieldobj('Recipient') false 0 User to be notified true 241 false cmbUser false false ConfigSetCustomClass30 ConfigSetCustomClass30.allInstances FolderProjects Projects 5 200 false true CurrentView true false false true false FolderCreditorApproval Creditor approval 46 215 false true CurrentView true false false true false FolderPurchasing Purchasing 48 0 false true CurrentView true false false true false CreditorApprovalStatusApproved 30 Approved CreditorApprovalStatusInProgress 10 In progress outlays.getproject.projectmanager CreditorApprovalStatusToBeApproved 20 To be approved outlays.getproject.keyUser ScriptEntryAddCreditorApprovalComment add_creditor_approval_comment false # coding: windows-1252 # # Designation: add_creditor_approval_comment # Classes: - # CondExpression: - # ObjectScript: - # ContainerScript: N # EventType: N # EventClass: - # EventMembers: - # ExtendedRights: Y # Adds a comment to the approval status of a creditor # Systemcontext is needed as the comment-field is read onyl # 2026-10-01, VGR: Script created from datetime import datetime def add_to_approvallog(creditor, logtext): """ Add text with timestamp and current user to the log-field """ timestamp = datetime.now().strftime("%Y-%m-%d %H:%M:%S") user = vtcapp.currentlogin().abbreviation if not logtext: # logtext is none, initialize logtext = '' if not creditor.creditorApprovalLog: # log is not yet initialized/set. with vtcapp.SystemContext(): # systemcontext is needed here, as nobody should # have write access to the member approvalLog creditor.creditorApprovalLog = '' # add approval log, catch case if it's the first entry (log = None) with vtcapp.SystemContext(): # systemcontext is needed here, as nobody should # have write access to the member creditorApprovalLog new_comment = f"{timestamp} ({user}) {logtext}\n" prev_log = creditor.creditorApprovalLog creditor.creditorApprovalLog = new_comment + prev_log return if __name__ == "__main__": # stuff only to run when not called via 'import' here creditor = argobject # ask for comment to log comment = vtcapp.translate('Comment') commenttext = vtcapp.inputbox(str(creditor.creditorApprovalStatus), comment) if commenttext: # comment entered, log it add_to_approvallog(creditor, f"{comment}: {commenttext}") None false true false Python3 ScriptEntryEventCreditorStatusChanged event_creditor_status_changed creditorApprovalStatus, posted Creditor false # coding: windows-1252 # # Designation: event_creditor_status_changed # Classes: Creditor # CondExpression: - # ObjectScript: - # ContainerScript: N # EventType: Changed # EventClass: Creditor # EventMembers: creditorApprovalStatus, posted # ExtendedRights: Y # Part of the config set "Creditor approval" # Updated the approval log when creditor status is changed # 2026-10-01, VGR: Script created from vtcmodel import gettypeinfo from add_creditor_approval_comment import add_to_approvallog # Notification category that is used NOTIFICATION_CATEGORY = "Creditor approval" def do_approval_status_change(creditor): """ This functions handles what has to be done when the approval status of an creditor has changed (notification, log, charge) """ # log new status and current creditor amount new_status = creditor.creditorApprovalStatus.creditorApprovalStatusName total_creditor_amount = f"{creditor.currency} {creditor.totalgross}" status_update = f"{vtcapp.translate(new_status)} | {vtcapp.translate('Total gross amount')} " add_to_approvallog(creditor, f"{status_update}{total_creditor_amount}") # As we do not know, which (OCL-) configurations the client uses, # we can not assume, that all corresponding user rights are set correctly # Therefore we need here "systemcontext". # delete all existing notifications if status changes for notification in list(creditor.linkedNotifications): # Systmcontext is needed here as we have to delete notifications. with vtcapp.SystemContext(): notification.delete() # send notification defined in OCL? if creditor.creditorApprovalStatus.RecipientInOCL: #initialize recipient_list = [] # If there is an Exception during the OCL excecution, we do not catch the error, # but an exception is raised. # With ->asSet always have a list to continue recipient_list = creditor.evalocl(f"{creditor.creditorApprovalStatus.RecipientInOCL}->asSet") # Check if in the recipient-list are only User # if the list is empty don't cause an exception if not all(recipient_list.evalocl("self->oclIsTypeOf(User)")): # catch only the case in which the OCL # is misconfigured and returns one or more non-users if recipient_list.evalocl("self->size() > 0"): raise Exception( f"One or more recipients were not of type User in status: " f"'{vtcapp.translate(new_status)}'\n" ) else: for recipient in recipient_list: # Systmcontext is needed here as we have to create notifications. with vtcapp.SystemContext(): send_notification(recipient, creditor, vtcapp.translate(new_status), creditor) # Check if a recipient is defined on the other member and send notification recipient = creditor.creditorApprovalStatus.Recipient if recipient: # Systmcontext is needed here as we have to create notifications. with vtcapp.SystemContext(): send_notification(recipient, creditor, vtcapp.translate(new_status), creditor) return def send_notification(user, title, text, object): """ This function sends a notification to the user in a defined format. """ user.setnotification(vtcapp.translate(NOTIFICATION_CATEGORY), f"{title} : {text}" , object) # add notified entry to log add_to_approvallog(object, f"{user.abbreviation} {vtcapp.translate("notified")}") return def main(): """ Event handler for the defined events on creditor """ creditor = argobject class_type = gettypeinfo(creditor) # if the eventmember is a customfield it may not be evaluated with # class_type.memberbyname(args.eventmember).defaultname if args.eventmember == "creditorApprovalStatus": # Approval status has changed do_approval_status_change(creditor) # The model language can be English or German (legacy), # so we need to retrieve the default name of the eventmember first. elif class_type.memberbyname(args.eventmember).defaultname == 'posted': # Event on posted is_posted = creditor.posted if is_posted: total_creditor_amount = f"{creditor.currency} {creditor.totalgross}" status_update = f"{vtcapp.translate('Posted')} | {vtcapp.translate('Total gross amount')} " add_to_approvallog(creditor, f"{status_update}{total_creditor_amount}") else: total_creditor_amount = f"{creditor.currency} {creditor.totalgross}" status_update = f"{vtcapp.translate('Cancel_t')} | {vtcapp.translate('Total gross amount')} " add_to_approvallog(creditor, f"{status_update}{total_creditor_amount}") return main() Changed false true false Python3 ScriptEntryEventNewCreditor event_new_creditor Creditor false # coding: windows-1252 # # Designation: event_new_creditor # Classes: Creditor # CondExpression: - # ObjectScript: - # ContainerScript: N # EventType: New # EventClass: Creditor # EventMembers: - # ExtendedRights: Y # Part of the config set "Creditor aproval" # Sets the default approval status without event # 2026-10-01, VGR: Script created # default aproval status DEFAULT_STATUS = vtcapp.evalocl("ConfigSetCustomClass30.allinstances->orderby(customfieldint('sortOrder'))->first") def set_default_aproval_status(creditor): """ An event in an other script is triggered which handels aproval status of new creditor """ # when the creditor is created, # do not trigger the creditor approval status event with vtcapp.DisabledEvents(): creditor.creditorApprovalStatus = DEFAULT_STATUS return def main(): new_creditor = argobject set_default_aproval_status(new_creditor) return main() Create false true false Python3 sqlFolderApprovedCreditors Approved 50 30 false true CurrentView 17 false false 0 0 false entryDate false 0 Date true 80 false false false 0 1 false supplier false 1 Supplier true 140 false false false 0 2 false consistencyMsg false 0 Problem report true 140 false false false 2 3 rndBoolean false posted true 0 Booked true 100 false false false 2 4 rndBoolean false forwarded false 0 Forwarded true 100 false false false 1 5 false totalGross false 0 Total gross amount true 110 false false false 0 6 false currency.asString false 0 Currency true 75 false false false 0 7 clGreen false '' false 0 true 3 false false false 0 8 false customfieldobj('creditorApprovalStatus').asString false 0 Approval status true 110 false false false Creditor {"IsInstantSearch":false,"DisableShowInactive":false,"SearchDefinitions":[{"Name":"New query","Template":"entryDate >= '\\1' AND entryDate <= '\\2'\r\n\r\nAND posted = '\\3'\r\n\r\nAND bold_id in\r\n\r\n/* find creditor object in */\r\n(SELECT entry FROM CustomFieldItem WHERE objectValue IN\r\n\r\n /* find creditor approval status by sortOrderNumber */\r\n (SELECT entry FROM CustomFieldItem WHERE integerValue = 30\r\n\r\n AND entry IN\r\n --/* list of all approval status */\r\n (SELECT bold_id FROM AbstractCustomClass WHERE entryId LIKE 'CreditorApprovalStatus%')\r\n )\r\n)","SearchFields":[{"Name":"From date","Type":2,"Default":"date.incMonth(-1).firstofmonth"},{"Name":"To date","Type":2,"Default":"date.lastofmonth"},{"Name":"Booked","Type":3,"Default":"0"}]}]} false true sqlFolderInProgressCreditors In progress 50 10 false true CurrentView 17 false false 0 0 false entryDate false 0 Date true 80 false false false 0 1 false supplier false 1 Supplier true 140 false false false 0 2 false consistencyMsg false 0 Problem report true 140 false false false 2 3 rndBoolean false posted true 0 Booked true 100 false false false 2 4 rndBoolean false forwarded false 0 Forwarded true 100 false false false 1 5 false totalGross false 0 Total gross amount true 110 false false false 0 6 false currency.asString false 0 Currency true 75 false false false 0 7 clGreen false '' false 0 true 3 false false false 0 8 false customfieldobj('creditorApprovalStatus').asString false 0 Approval status true 110 false false false Creditor {"IsInstantSearch":false,"DisableShowInactive":false,"SearchDefinitions":[{"Name":"New query","Template":"entryDate >= '\\1' AND entryDate <= '\\2' \r\n\r\nAND bold_id in\r\n\r\n/* find creditor object in */\r\n(SELECT entry FROM CustomFieldItem WHERE objectValue IN\r\n\r\n /* find creditor approval status by sortOrderNumber */\r\n (SELECT entry FROM CustomFieldItem WHERE integerValue = 10\r\n\r\n AND entry IN\r\n --/* list of all approval status */\r\n (SELECT bold_id FROM AbstractCustomClass WHERE entryId LIKE 'CreditorApprovalStatus%')\r\n )\r\n)","SearchFields":[{"Name":"From date","Type":2,"Default":"date.incMonth(-1).firstofmonth"},{"Name":"To date","Type":2,"Default":"date.lastofmonth"}]}]} false true sqlFolderToBeApprovedCreditors To be approved 50 20 false true CurrentView 17 false false 0 0 false entryDate false 0 Date true 80 false false false 0 1 false supplier false 1 Supplier true 140 false false false 0 2 false consistencyMsg false 0 Problem report true 140 false false false 2 3 rndBoolean false posted true 0 Booked true 100 false false false 2 4 rndBoolean false forwarded false 0 Forwarded true 100 false false false 1 5 false totalGross false 0 Total gross amount true 110 false false false 0 6 false currency.asString false 0 Currency true 75 false false false 0 7 clGreen false '' false 0 true 3 false false false 0 8 false customfieldobj('creditorApprovalStatus').asString false 0 Approval status true 110 false false false Creditor {"IsInstantSearch":false,"DisableShowInactive":false,"SearchDefinitions":[{"Name":"New query","Template":"entryDate >= '\\1' AND entryDate <= '\\2' \r\n\r\nAND bold_id in\r\n\r\n/* find creditor object in */\r\n(SELECT entry FROM CustomFieldItem WHERE objectValue IN\r\n\r\n /* find creditor approval status by sortOrderNumber */\r\n (SELECT entry FROM CustomFieldItem WHERE integerValue = 20\r\n\r\n AND entry IN\r\n --/* list of all approval status */\r\n (SELECT bold_id FROM AbstractCustomClass WHERE entryId LIKE 'CreditorApprovalStatus%')\r\n )\r\n)","SearchFields":[{"Name":"From date","Type":2,"Default":"date.incMonth(-1).firstofmonth"},{"Name":"To date","Type":2,"Default":"date.lastofmonth"}]}]} false true TranslationAddComment Kommentar hinzufügen Add comment Ajouter un commentaire Aggiungere un commento Kommentar hinzufügen Commentaar toevoegen Add comment TranslationApprovalLog Freigabeprotokoll Approval log Protocole de validation Registro di omologazione Freigabeprotokoll Goedkeuringslogboek Approval log TranslationApprovalStatus Freigabestatus Approval status Statut de validation Stato di approvazione Freigabestatus Goedkeuringsstatus Approval status TranslationApproved Freigegeben Approved Approuvé Approvato Freigegeben Goedgekeurd Approved TranslationCreditorApprovalProjects Kreditorfreigabe Creditor approval Approbation du créancier Approvazione del creditore Kreditorfreigabe Crediteur goedkeuring Creditor approval TranslationCreditorapprovalstatus Kreditorfreigabe-Status Creditor aproval status Statut d'approbation Créancier Stato approvazione creditore Kreditorfreigabe-Status Status van de crediteurgoedkeuring Creditor approval status TranslationCreditorApproved Kreditor freigegeben Creditor approved Créancier approuvée Creditore approvato Kreditor freigegeben Crediteur goedgekeurd Creditor approved TranslationDefinedInOcl In OCL definiert Defined in OCL Défini en OCL Definito in OCL In OCL definiert Gedefinieerd in OCL Defined in OCL TranslationInProgress In Bearbeitung In progress En cours In corso In Bearbeitung In bewerking In progress TranslationNotified benachrichtigt notified notifié notificato benachrichtigt genotificeerd notified TranslationPosted Gebucht Posted Comptabilisé Contabilizzato Gebucht Geboekt Posted TranslationToBeApproved Zur Freigabe To be approved À approuver Da approvare Zur Freigabe Ter goedkeuring To be approved TranslationTotalGrossAmount Total Betrag brutto Total gross amount Somme montant brut Totale importo lordo Total Betrag brutto Totaal brutobedrag Total gross amount TranslationUserToBeNotified Zu benachrichtigender Bearbeiter User to be notified Utilisateur à notifier Utente da notificare Zu benachrichtigender Bearbeiter Te notificeren gebruiker User to be notified TranslationUserToBeNotifiedDefinedInOcl Zu benachrichtigender Bearbeiter, in OCL definiert User to be notified, defined in OCL Utilisateur à notifier, défini en OCL Utente da notificare, definito in OCL Zu benachrichtigender Bearbeiter, in OCL definiert Te notificeren gebruiker, gedefinieerd in OCL User to be notified, defined in OCL