#Include BL.Derde.Kennis.AutoRes #Define IsKlantVriendelijk(%v) ($P($G(^RES("DERDE.KENNIS","PI","ACTIONDOMAIN","D",%v)),"`",3)=1) ;ClassMethods #Define cmKennis ##class(BL.Derde.Kennis.Kennis) ;KnowledgeBase Actions #Define kbaPopup "Popup" #Define kbaRead "Read" #Define kbaChanged "Changed" #Define kbaCreated "Created" #Define kbaCopyKlant "CopyKlant" #Define kbaChangeKlant "ChangeKlant" #Define kbaDeleted "Deleted" #Define kbaRevised "Revised" #Define IsReviseAction(%Action) ((%Action=$$$kbaRevised) || (%Action=$$$kbaChanged) || (%Action=$$$kbaCreated)) ;Logposition #Define lpAction 1 #Define lpUserID 2 #Define lpDateTime 3 ;Actiedomein pattern ;adpGetAll: geef bijv $$$adContact mee als parameter dan zal de pattern oa volgende domeinen teruggeven: adContactPersoonlijk, adContactTelefonisch, ... #Define adpGetAll(%ad) "?1"%ad".E" #Define adpSkipAll(%ad) "'?1"%ad".E" #Define adSkip(%ad) "'"_%ad ;AutoShow voor search #Define sasShowActiveOnly "SAO" #Define sasShowNotActiveOnly "SNAO" #Define sasShowAll "SA" ;ShownTime (wo oa gebruikt bij BL.Derde.Kennis.Kennis, GetHShown) #Define stLast 0 #Define stPrevious -1 #Define stPrePrevious -2 ;CheckProd types #Define cpCheck 1 #Define cpNoCheck 2 #Define cpCheckAndEmpty 3 #Define cpEmpty 4 ;DocTypes #Define dtUglyPickingProduct "UGLY Picking Product" #Define dtUglyPickingKlant "UGLY Picking Klant" #Define dtOfferte "OFF" #Define dtOrder "ORD" #Define dtLevering "LEV" #Define dtFactuur "FAC" #Define dtNone "*" ;Revision SortKeys #Define rskNone 0 #Define rskKlant 1 ;CHUI Search Presets #Define spCriterion 1 #Define spRevision 2