PTSSUB - Functions for Party handling in contract selection

This module contains functions which are used in business transactions, contract selection and Control and Release.

Filled for performance reasons on initialization with the PTSPTA Modules of the most probable group, which is derived from the first two digits of the framename.

This field used in sub PtsModGetAllRolStm and holds the return value of xxxLOD.GetxxdRolNam function.

Needed because of Post call of function.

This stream holds information about the roles available in transaction, i.e. the role code, the path of the PTSPTA and the name for the the role selection combobox.

It is filled in PtsCallAssert from ROLCONSTM and the roles filled in the contracts before calling the user defined PtsAssert functions.

PtsmodGetRolValuesStream can be used to fill a fixed length combobox with the roles available in transaction, which should be executed in PtsChgAssert-functions.

To get information about a role selected, PtsModGetConGrpPathOfRol can be used to retrieve to contract where the role is used.

Filled in init with static information about roles in contract and parent contracts.

For each role is a line with a tab delimited list of contracts holding a PTSPTA for that role from main contract in transaction to it parent contracts.

For each role the first role which is set (if any) is moved to ROLSELSTM.

Flag copied from PTSPTA of original contract to be passed as argument to PTSPTA. Necessary as Setmodulecontent correctly does not copy the argument.

Flag copied from PTSPTA of original contract to be passed as argument to PTSPTA. Necessary as Setmodulecontent correctly does not copy the argument.

Flag copied from PTSPTA of original contract to be passed as argument to PTSPTA. Necessary as Setmodulecontent correctly does not copy the argument.

Flag copied from PTSPTA of original contract to be passed as argument to PTSPTA. Necessary as Setmodulecontent correctly does not copy the argument.

Flag copied from PTSPTA of original contract to be passed as argument to PTSPTA. Necessary as Setmodulecontent correctly does not copy the argument.

Filled in init with static information about roles in contract and parent contracts.

For each role is a line with a tab delimited list of contracts holding a PTSPTA for that role from main contract in transaction to it parent contracts.

For each role the first role which is set (if any) is moved to ROLSELSTM.

return message why the party with passed ArgPtyInr cannot be deleted

returns TRUE, if there is a fitting row in the passed table
ArgTbl hold the name of the database table to be checked
ArgSql holds the condition to be used when checking the existance of entries

function to be used to get a role defined in xxxLOD.GetxxdRolNam, if not found then return the value from codetable ROLALL
ArgBaseMod holds the instance where the business sector group instances can be found. Usually, this is either \ or BIMENU
ArgObjTyp identifies the objtyp of the contract
ArgRol holds the 3-digit role code

checks, if the given role is a third party.
delivers TRUE for all roles starting with 'TP' or 'T' only followed by numbers.

Returns true if Argrol1 and Argrol2 are to be handled together for grouped roles (e.g. in LIAALL for multi applicant handling)
Product standard is that roles are in same group if the first two bytes of the code are the same

This function returns true, if one or more parties are sanctioned parties
A sanctioned party is defined by a non empty content of PTA\SGPFLG

Decides if all contract addresses have to be stored as contract addresses as well
This setting is valid for all contract addresses in installation
The setting may vary depending on the role. Therefore role is passed as well.

checks, if role is holding an address is available in contact group Arggrp. But only structure checked!

Use this function for
- mandatory checks (checkrules in ARGGRP\rol\PTS\EXTKEY or ARGGRP\rol\PTS\ADRBLK)
- deciding, if a document is to be created in registereddocuments
- Default rules depending on the existence of a party
- and anywhere else, where a rule depend on existence of roles in a contract.
refers with PtsIsRolSet

checks, if role is holding an address is available in contact group Arggrp.

Use this function for
- mandatory checks (checkrules in ARGGRP\rol\PTS\EXTKEY or ARGGRP\rol\PTS\ADRBLK)
- deciding, if a document is to be created in registereddocuments
- Default rules depending on the existence of a party
- and anywhere else, where a rule depend on existence of roles in a contract.
refers with PtsIsRolDefined

Get 4 line SWIFT-addressblock in ArgPtsPta
similar function in ANTMOD GetAdrBlkStructure must be changed in case default AdrBlk composition is changed here

returns the Addressline of address ARGPTSPTA delimited by “,”

returns path of PTSPTA-module of argrol in arggrp to argptspta
If the PTSPTA for that role is not available, result is empty
Exception is “OWN”. That PTSPTA is located in \TRNMOD\OWNPTS

Returns the correct module path within the transaction for given root path and role

this function used to delete only PTS own fields, i.e. default account
ATTENTION: do not delete technical fields as INR, OBJTYP/OBJINR, ROL etc.
and the fields filled in incoming message

Clears all modules in/under PTSPTA with exception of address block

clears all datafields in PTSPTA but leaves the modules under PTSPTA unchanged

Copies all PTSPTA datafields from first to second module. Module content of modules under PTSPTA remain unchanged.

Stores methods with prefix ArgMetPfx in ArgMetStm as postable names
Methods in grids are flagged with a special value “*GRID*”
The posting has to be done with PostGetMethodStream which expands these entries with the currently available modules.

Adds lines with complete path of modules of type type located in module mod to stream Strm

Function to retrieve path of GRP-Module and the role from PTSPTA module with path ArgPtsptapath
This information is set from the instance name of ArgPtsPta as split after the last \
method as required in TRNREL.PtsBimEleApply

Sets PTSPTAMOD to list of PTSPTA of module with path ArgModPath with caching

Post methods in ArgStream as calculated with GetMethodStream, i.e. with special support of grids
ArgStream : Stream with methods as received by GetMethodStream
ArgPostTim : Execution time (second argument of call of Post)

Rules are posted only if not already in post queue in case of async post (ArgPostTim >= 0)

Post all PtsChgAssert-Function ansynchronously (if not already in) to ensure redefaultings depending on PTS-Status.
To be called by each function changing PTSPTA-modules (usually from PTSMOD-functions only)
The stream for role selection boxes is set before. Thus setting comboboxes wit PtsmodGetRolValuesStream should be done in such asserts

Sets Argptspta to the address stored in Argpts (the address is copied from PTS, which may be from different contract)
Only this function is safe if addressinformation is copied between contracts as it takes care of addresses which are real temporary addresses without PTA/PTY

Reads ADR to PTA in PTSPTA argPtspta to outPty.
(Caution: PTA has to be read first if not available by Select)
If not available the adr is cleared
In case the PTA is not found the errorcode tdOdbcNotFound is returned

Copy all data of ArgGrp\ArgRol into one PTSPTA module
Call directly if target module is a work copy
Use PtsmodGetPtsptaFromRol to copy PTSPTA data into a different role module
Use PtsmodSetPtsptaForRol to copy PTSPTA data into Arggrp\Argrol

Sets ArgRolStm to Stream with all roles that exist in Arggrp dependent on the ArgFlg.
if the ArgFlg empty it be selected only the roles that are set in Arggrp
otherwise all roles that are defined in ROLLALL-table
To be used to set CodeTabValues for “role of contract Arggrp”-field

Reads argPtspta\PTA to argPTSPTA argPtspta from argPTSPTA\PTS
If not available the PtA is cleared
In case the PTA is not found the errorcode tdOdbcNotFound is returned

Loads all PTSPTA instances inside Arggrp for ArgInr
PTS is read from database
PTA, ADR and the control fields in PTSPTA are calculated from PTS-Information
For roles where no PTS is available, the PTSPTA-instance is cleared.
Return ErrorText if missing PTA or ADR of found PTS

Sets remaining part of Argptspta based on argPtsPta\PTA

Reads PTY to PTA in PTSPTA argPtspta to outpty.
(Caution: PTA has to be read first if not available by Select)
If not available the Pty is cleared

Sets ArgRolStm to Stream with all roles set in Arggrp.
To be used to set CodeTabValues for “role of contract Arggrp”-field

Set ROLSELSTM from ROLCONSTM and roles set in contracts(s)(posted in PtsCallAssert)

Sets the following fields in contract if available
xxDGRP\REC\<Rol>PTAINR
xxDGRP\REC\<Rol>PTYINR
xxDGRP\REC\<Rol>NAM
xxDGRP\REC\<Rol>REF
xxDGRP\BLK\<Rol>ADRBLK

assert PTS-dependent fields, if key fields (PTS\ADRBLK and INR) have been changed

Sets PTS-Info from passed PTA and ADR inside argptspta (only used in PTSGET)

copies ADR,PTA and PTS from argPTSPTA to PTSPTA of argrol in arggrp
To avoid multiple definitions of PTSPTA you may use PTSPTA defined in PTSMOD
If the PTSPTA for that role is not available, nothing happens
Use this function to activate changes in argptspta received with PtsmodGetPtsptaFromRol
Use this function to copy PTSPTA data back into contract data

Sets Info in root of PTSPTA from passed PTA and ADR inside argptspta

set PTA fields copied from ADR

set installation specific fields copied from ADR to PTA
Old Name: PTSsetPTAfromADRClient

set PTA fields copied from PTY

set installation specific fields copied from PTY to PTA
Old name: PTSsetPTAfromPTYClient

set installation specific fields copied from PTY to PTSPTA
Old name: PTSsetPTSPTAfromPTYClient

set Bank/Customer, the rule must be available!