Index: BL/PPS/OL.inc.rou =================================================================== diff -u --- BL/PPS/OL.inc.rou (revision 0) +++ BL/PPS/OL.inc.rou (revision 760) @@ -0,0 +1,13 @@ +#Include BL.Sys.Proxy + + // posities in de SequentieList in BL.PPS.Ol.Inpak +#Define lbPosType 1 +#Define lbPosSnijId 2 +#Define lbPosProductCount 3 +#Define lbPosAbrev 4 + + // mogelijke waarden van de property pxInpakInfo.Status +#Define StatusProduct 1 +#Define StatusEindeBon 2 +#Define StatusStartOverdoos 3 +#Define StatusEindeOverdoos 4 \ No newline at end of file Index: BL/Derde/Derde.inc.rou =================================================================== diff -u --- BL/Derde/Derde.inc.rou (revision 0) +++ BL/Derde/Derde.inc.rou (revision 760) @@ -0,0 +1,20 @@ + ;Parameter DerdeType + #Define dtKlant "K" + #Define dtLeverancier "L" + + ;DerdeTypeNodes dtnX in ^KKL("K",dtnX,stnX) + #Define dtnKlant "KL" + #Define dtnLeverancier "LE" + + ;Parameter SearchType + #Define stNaamOfNummer "" + #Define stWoonplaats "W" + #Define stStraat "S" + #Define stPostNummer "P" + + ;SearchTypeNodes stnX in ^KKL("K",dtnX,stnX) + #Define stnNummer 101 + #Define stnNaam 102 + #Define stnStraat 105 + #Define stnPostNummer 106 + #Define stnWoonplaats 107 \ No newline at end of file Index: ProdHist/ChargeTrace.inc.rou =================================================================== diff -u --- ProdHist/ChargeTrace.inc.rou (revision 0) +++ ProdHist/ChargeTrace.inc.rou (revision 760) @@ -0,0 +1,12 @@ + //ChargeTrace actions + #Define ctaUitlevering "U" + #Define ctaInkomend "I" + #Define ctaTerugname "T" + #Define ctaComposite "C" + + //Composite prefix (prefix aanpassen = len eronder ook aanpassen !!!!!!!!) + #Define CompositePrefix "C" + #Define CompositePrefixLen 1 + + //Valid ChargeID prefixes + #Define vcpBlum "BAU" \ No newline at end of file Index: Activate/Office.inc.rou =================================================================== diff -u --- Activate/Office.inc.rou (revision 0) +++ Activate/Office.inc.rou (revision 760) @@ -0,0 +1,1557 @@ +#; Enum DocProperties +#define offPropertyTypeBoolean 2 +#define offPropertyTypeDate 3 +#define offPropertyTypeFloat 5 +#define offPropertyTypeNumber 1 +#define offPropertyTypeString 4 +#; Enum MailFormat +#define mfHTML 2 +#define mfPlainText 1 +#define mfRTF 3 +#; Enum MsoAlertButtonType +#define msoAlertButtonAbrtRtrygnr 2 +#define msoAlertButtonOK 0 +#define msoAlertButtonOKCancel 1 +#define msoAlertButtonRetryCancel 5 +#define msoAlertButtonYesAllNCncl 6 +#define msoAlertButtonYesNo 4 +#define msoAlertButtonYesNoCancel 3 +#; Enum MsoAlertCancelType +#define msoAlertCancelDefault -1 +#define msoAlertCancelFifth 4 +#define msoAlertCancelFirst 0 +#define msoAlertCancelFourth 3 +#define msoAlertCancelSecond 1 +#define msoAlertCancelThird 2 +#; Enum MsoAlertDefaultType +#define msoAlertDefaultFifth 4 +#define msoAlertDefaultFirst 0 +#define msoAlertDefaultFourth 3 +#define msoAlertDefaultSecond 1 +#define msoAlertDefaultThird 2 +#; Enum MsoAlertIconType +#define msoAlertIconCritical 1 +#define msoAlertIconInfo 4 +#define msoAlertIconNoIcon 0 +#define msoAlertIconQuery 2 +#define msoAlertIconWarning 3 +#; Enum MsoAlignCmd +#define msoAlignBottoms 5 +#define msoAlignCenters 1 +#define msoAlignLefts 0 +#define msoAlignMiddles 4 +#define msoAlignRights 2 +#define msoAlignTops 3 +#; Enum MsoAnimationType +#define msoAnimatinChrctrSccssMjr 6 +#define msoAnimationAppear 32 +#define msoAnimationBeginSpeaking 4 +#define msoAnimationCheckngSmthng 103 +#define msoAnimationDisappear 31 +#define msoAnimationEmptyTrash 116 +#define msoAnimationGestureDown 113 +#define msoAnimationGestureLeft 114 +#define msoAnimationGestureRight 19 +#define msoAnimationGestureUp 115 +#define msoAnimationGetArtsy 100 +#define msoAnimationGetAttentnMjr 11 +#define msoAnimationGetAttentnMnr 12 +#define msoAnimationGetTechy 101 +#define msoAnimationGetWizardy 102 +#define msoAnimationGoodbye 3 +#define msoAnimationGreeting 2 +#define msoAnimationIdle 1 +#define msoAnimationListensTCmptr 26 +#define msoAnimationLookDown 104 +#define msoAnimationLookDownLeft 105 +#define msoAnimationLookDownRight 106 +#define msoAnimationLookLeft 107 +#define msoAnimationLookRight 108 +#define msoAnimationLookUp 109 +#define msoAnimationLookUpLeft 110 +#define msoAnimationLookUpRight 111 +#define msoAnimationPrinting 18 +#define msoAnimationRestPose 5 +#define msoAnimationSaving 112 +#define msoAnimationSearching 13 +#define msoAnimationSendingMail 25 +#define msoAnimationThinking 24 +#define msoAnimationWorkngtSmthng 23 +#define msoAnimatnWrtngNtngSmthng 22 +#; Enum MsoAppLanguageID +#define msoLanguageIDExeMode 4 +#define msoLanguageIDHelp 3 +#define msoLanguageIDInstall 1 +#define msoLanguageIDUI 2 +#define msoLanguageIDUIPrevious 5 +#; Enum MsoArrowheadLength +#define msoArrowheadLengthMedium 2 +#define msoArrowheadLengthMixed -2 +#define msoArrowheadLong 3 +#define msoArrowheadShort 1 +#; Enum MsoArrowheadStyle +#define msoArrowheadDiamond 5 +#define msoArrowheadNone 1 +#define msoArrowheadOpen 3 +#define msoArrowheadOval 6 +#define msoArrowheadStealth 4 +#define msoArrowheadStyleMixed -2 +#define msoArrowheadTriangle 2 +#; Enum MsoArrowheadWidth +#define msoArrowheadNarrow 1 +#define msoArrowheadWide 3 +#define msoArrowheadWidthMedium 2 +#define msoArrowheadWidthMixed -2 +#; Enum MsoAutoShapeType +#define msShpFlwchrtSqntlccssStrg 85 +#define msoShapFlwchrtPrdfndPrcss 65 +#define msoShape16pointStar 94 +#define msoShape24pointStar 95 +#define msoShape32pointStar 96 +#define msoShape4pointStar 91 +#define msoShape5pointStar 92 +#define msoShape8pointStar 93 +#define msoShapeActinBttnBckrPrvs 129 +#define msoShapeActionButtnBgnnng 131 +#define msoShapeActionButtnnfrmtn 128 +#define msoShapeActionButtonCustm 125 +#define msoShapeActionButtonDcmnt 134 +#define msoShapeActionButtonEnd 132 +#define msoShapeActionButtonHelp 127 +#define msoShapeActionButtonHome 126 +#define msoShapeActionButtonMovie 136 +#define msoShapeActionButtonRetrn 133 +#define msoShapeActionButtonSound 135 +#define msoShapeActnBttnFrwrdrNxt 130 +#define msoShapeArc 25 +#define msoShapeBalloon 137 +#define msoShapeBentArrow 41 +#define msoShapeBentUpArrow 44 +#define msoShapeBevel 15 +#define msoShapeBlockArc 20 +#define msoShapeCan 13 +#define msoShapeChevron 52 +#define msoShapeCircularArrow 60 +#define msoShapeCloudCallout 108 +#define msoShapeCross 11 +#define msoShapeCube 14 +#define msoShapeCurvedDownArrow 48 +#define msoShapeCurvedDownRibbon 100 +#define msoShapeCurvedLeftArrow 46 +#define msoShapeCurvedRightArrow 45 +#define msoShapeCurvedUpArrow 47 +#define msoShapeCurvedUpRibbon 99 +#define msoShapeDiamond 4 +#define msoShapeDonut 18 +#define msoShapeDoubleBrace 27 +#define msoShapeDoubleBracket 26 +#define msoShapeDoubleWave 104 +#define msoShapeDownArrow 36 +#define msoShapeDownArrowCallout 56 +#define msoShapeDownRibbon 98 +#define msoShapeExplosion1 89 +#define msoShapeExplosion2 90 +#define msoShapeFlowchartCard 75 +#define msoShapeFlowchartCollate 79 +#define msoShapeFlowchartConnectr 73 +#define msoShapeFlowchartData 64 +#define msoShapeFlowchartDecision 63 +#define msoShapeFlowchartDelay 84 +#define msoShapeFlowchartDisplay 88 +#define msoShapeFlowchartDocument 67 +#define msoShapeFlowchartExtract 81 +#define msoShapeFlowchartManlprtn 72 +#define msoShapeFlowchartManulnpt 71 +#define msoShapeFlowchartMerge 82 +#define msoShapeFlowchartMgntcDsk 86 +#define msoShapeFlowchartMltdcmnt 68 +#define msoShapeFlowchartOr 78 +#define msoShapeFlowchartPrepartn 70 +#define msoShapeFlowchartProcess 61 +#define msoShapeFlowchartPunchdTp 76 +#define msoShapeFlowchartSort 80 +#define msoShapeFlowchartStoredDt 83 +#define msoShapeFlowchartTermintr 69 +#define msoShapeFlowchrtntrnlStrg 66 +#define msoShapeFlwchrtSmmngJnctn 77 +#define msoShapeFlwchrtffpgCnnctr 74 +#define msoShapeFlwchrtltrntPrcss 62 +#define msoShapeFoldedCorner 16 +#define msoShapeHeart 21 +#define msoShapeHexagon 10 +#define msoShapeHorizontalScroll 102 +#define msoShapeIsoscelesTriangle 7 +#define msoShapeLeftArrow 34 +#define msoShapeLeftArrowCallout 54 +#define msoShapeLeftBrace 31 +#define msoShapeLeftBracket 29 +#define msoShapeLeftRightArrow 37 +#define msoShapeLeftRightArrwCllt 57 +#define msoShapeLeftRightUpArrow 40 +#define msoShapeLeftUpArrow 43 +#define msoShapeLightningBolt 22 +#define msoShapeLineCallot1ccntBr 113 +#define msoShapeLineCallot2ccntBr 114 +#define msoShapeLineCallot3ccntBr 115 +#define msoShapeLineCallot4ccntBr 116 +#define msoShapeLineCallout1 109 +#define msoShapeLineCallout1NBrdr 117 +#define msoShapeLineCallout2 110 +#define msoShapeLineCallout2NBrdr 118 +#define msoShapeLineCallout3 111 +#define msoShapeLineCallout3NBrdr 119 +#define msoShapeLineCallout4 112 +#define msoShapeLineCallout4NBrdr 120 +#define msoShapeMixed -2 +#define msoShapeMoon 24 +#define msoShapeNoSymbol 19 +#define msoShapeNotPrimitive 138 +#define msoShapeNotchedRightArrow 50 +#define msoShapeOctagon 6 +#define msoShapeOval 9 +#define msoShapeOvalCallout 107 +#define msoShapeParallelogram 2 +#define msoShapePentagon 51 +#define msoShapePlaque 28 +#define msoShapeQuadArrow 39 +#define msoShapeQuadArrowCallout 59 +#define msoShapeRectangle 1 +#define msoShapeRectangularCallot 105 +#define msoShapeRegularPentagon 12 +#define msoShapeRightArrow 33 +#define msoShapeRightArrowCallout 53 +#define msoShapeRightBrace 32 +#define msoShapeRightBracket 30 +#define msoShapeRightTriangle 8 +#define msoShapeRounddRctnglrCllt 106 +#define msoShapeRoundedRectangle 5 +#define msoShapeSmileyFace 17 +#define msoShapeStripedRightArrow 49 +#define msoShapeSun 23 +#define msoShapeTrapezoid 3 +#define msoShapeUTurnArrow 42 +#define msoShapeUpArrow 35 +#define msoShapeUpArrowCallout 55 +#define msoShapeUpDownArrow 38 +#define msoShapeUpDownArrowCallot 58 +#define msoShapeUpRibbon 97 +#define msoShapeVerticalScroll 101 +#define msoShapeWave 103 +#define msoShpFlwchrtDrctccssStrg 87 +#define msoShpLnCllt1BrdrndccntBr 121 +#define msoShpLnCllt2BrdrndccntBr 122 +#define msoShpLnCllt3BrdrndccntBr 123 +#define msoShpLnCllt4BrdrndccntBr 124 +#; Enum MsoAutomationSecurity +#define msoAutomationScrtyFrcDsbl 3 +#define msoAutomationSecurityByUI 2 +#define msoAutomationSecurityLow 1 +#; Enum MsoBalloonButtonType +#define msoBalloonButtonAbort -8 +#define msoBalloonButtonBack -5 +#define msoBalloonButtonCancel -2 +#define msoBalloonButtonClose -12 +#define msoBalloonButtonIgnore -9 +#define msoBalloonButtonNext -6 +#define msoBalloonButtonNo -4 +#define msoBalloonButtonNull 0 +#define msoBalloonButtonOK -1 +#define msoBalloonButtonOptions -14 +#define msoBalloonButtonRetry -7 +#define msoBalloonButtonSearch -10 +#define msoBalloonButtonSnooze -11 +#define msoBalloonButtonTips -13 +#define msoBalloonButtonYes -3 +#define msoBalloonButtonYesToAll -15 +#; Enum MsoBalloonErrorType +#define msoBalloonErrorBadCharctr 8 +#define msoBalloonErrorBadPictrRf 4 +#define msoBalloonErrorBadRefernc 5 +#define msoBalloonErrorBttnlssMdl 6 +#define msoBalloonErrorButtnMdlss 7 +#define msoBalloonErrorCOMFailure 9 +#define msoBalloonErrorNone 0 +#define msoBalloonErrorOther 1 +#define msoBalloonErrorOutOfMemry 3 +#define msoBalloonErrorTMnyCntrls 11 +#define msoBalloonErrorTooBig 2 +#define msoBllnrrrChrNtTpmstFrMdl 10 +#; Enum MsoBalloonType +#define msoBalloonTypeBullets 1 +#define msoBalloonTypeButtons 0 +#define msoBalloonTypeNumbers 2 +#; Enum MsoBarPosition +#define msoBarBottom 3 +#define msoBarFloating 4 +#define msoBarLeft 0 +#define msoBarMenuBar 6 +#define msoBarPopup 5 +#define msoBarRight 2 +#define msoBarTop 1 +#; Enum MsoBarProtection +#define msoBarNoChangeDock 16 +#define msoBarNoChangeVisible 8 +#define msoBarNoCustomize 1 +#define msoBarNoHorizontalDock 64 +#define msoBarNoMove 4 +#define msoBarNoProtection 0 +#define msoBarNoResize 2 +#define msoBarNoVerticalDock 32 +#; Enum MsoBarRow +#define msoBarRowFirst 0 +#define msoBarRowLast -1 +#; Enum MsoBarType +#define msoBarTypeMenuBar 1 +#define msoBarTypeNormal 0 +#define msoBarTypePopup 2 +#; Enum MsoBlackWhiteMode +#define msoBlackWhiteAutomatic 1 +#define msoBlackWhiteBlack 8 +#define msoBlackWhiteBlackTxtndLn 6 +#define msoBlackWhiteDontShow 10 +#define msoBlackWhiteGrayOutline 5 +#define msoBlackWhiteGrayScale 2 +#define msoBlackWhiteHighContrast 7 +#define msoBlackWhiteInversGryScl 4 +#define msoBlackWhiteLightGrayScl 3 +#define msoBlackWhiteMixed -2 +#define msoBlackWhiteWhite 9 +#; Enum MsoButtonSetType +#define msoButtonSetAbortRetrygnr 10 +#define msoButtonSetBackClose 6 +#define msoButtonSetBackNextClose 8 +#define msoButtonSetBackNextSnooz 12 +#define msoButtonSetCancel 2 +#define msoButtonSetNextClose 7 +#define msoButtonSetNone 0 +#define msoButtonSetOK 1 +#define msoButtonSetOkCancel 3 +#define msoButtonSetRetryCancel 9 +#define msoButtonSetSearchClose 11 +#define msoButtonSetTipsOptinsCls 13 +#define msoButtonSetYesAllNoCancl 14 +#define msoButtonSetYesNo 4 +#define msoButtonSetYesNoCancel 5 +#; Enum MsoButtonState +#define msoButtonDown -1 +#define msoButtonMixed 2 +#define msoButtonUp 0 +#; Enum MsoButtonStyle +#define msoButtonAutomatic 0 +#define msoButtonCaption 2 +#define msoButtonIcon 1 +#define msoButtonIconAndCaptinBlw 11 +#define msoButtonIconAndCaption 3 +#define msoButtonIconAndWrapCaptn 7 +#define msoButtonIconndWrpCptnBlw 15 +#define msoButtonWrapCaption 14 +#; Enum MsoButtonStyleHidden +#define msoButtonTextBelow 8 +#define msoButtonWrapText 4 +#; Enum MsoCalloutAngleType +#define msoCalloutAngle30 2 +#define msoCalloutAngle45 3 +#define msoCalloutAngle60 4 +#define msoCalloutAngle90 5 +#define msoCalloutAngleAutomatic 1 +#define msoCalloutAngleMixed -2 +#; Enum MsoCalloutDropType +#define msoCalloutDropBottom 4 +#define msoCalloutDropCenter 3 +#define msoCalloutDropCustom 1 +#define msoCalloutDropMixed -2 +#define msoCalloutDropTop 2 +#; Enum MsoCalloutType +#define msoCalloutFour 4 +#define msoCalloutMixed -2 +#define msoCalloutOne 1 +#define msoCalloutThree 3 +#define msoCalloutTwo 2 +#; Enum MsoCharacterSet +#define msChrctrStnglshWstrnrpnthrLtnScrpt 3 +#define msoCharacterSetArabic 1 +#define msoCharacterSetCyrillic 2 +#define msoCharacterSetGreek 4 +#define msoCharacterSetHebrew 5 +#define msoCharacterSetJapanese 6 +#define msoCharacterSetKorean 7 +#define msoCharacterSetMltlnglncd 8 +#define msoCharacterSetSmplfdChns 9 +#define msoCharacterSetThai 10 +#define msoCharacterSetTrdtnlChns 11 +#define msoCharacterSetVietnamese 12 +#; Enum MsoColorType +#define msoColorTypeCMS 4 +#define msoColorTypeCMYK 3 +#define msoColorTypeInk 5 +#define msoColorTypeMixed -2 +#define msoColorTypeRGB 1 +#define msoColorTypeScheme 2 +#; Enum MsoComboStyle +#define msoComboLabel 1 +#define msoComboNormal 0 +#; Enum MsoCommndBrBttnHyprlnkTyp +#define msCmmndBrBttnHyprlnknsrtPctr 2 +#define msoCommandBrBttnHyprlnkNn 0 +#define msoCommandBrBttnHyprlnkpn 1 +#; Enum MsoCondition +#define msCndtnFlTypPwrPntPrsnttns 5 +#define msoCndtnFlTypDcmntmgngFls 54 +#define msoConditinFlTypPblshrFls 52 +#define msoConditinFlTypPhtDrwFls 50 +#define msoConditinFlTypWrdDcmnts 3 +#define msoConditinFlTypxclWrkbks 4 +#define msoConditinqlsWtngFrSmnls 67 +#define msoConditionAnyNumberBtwn 34 +#define msoConditionAnytime 25 +#define msoConditionAnytimeBetwen 26 +#define msoConditionAtLeast 36 +#define msoConditionAtMost 35 +#define msoConditionBeginsWith 11 +#define msoConditionDoesNotEqual 33 +#define msoConditionEndsWith 12 +#define msoConditionEquals 32 +#define msoConditionEqualsCompltd 66 +#define msoConditionEqualsDeferrd 68 +#define msoConditionEqualsHigh 60 +#define msoConditionEqualsLow 58 +#define msoConditionEqualsNormal 59 +#define msoConditionEqualsNtStrtd 64 +#define msoConditionEqualsnPrgrss 65 +#define msoConditionFilTypClndrtm 45 +#define msoConditionFilTypCntcttm 46 +#define msoConditionFileTypJrnltm 48 +#define msoConditionFileTypTmplts 8 +#define msoConditionFileTypeBndrs 6 +#define msoConditionFileTypeDtbss 7 +#define msoConditionFileTypeMaltm 44 +#define msoConditionFileTypeNottm 47 +#define msoConditionFileTypeTsktm 49 +#define msoConditionFileTypeVsFls 55 +#define msoConditionFileTypeWbPgs 57 +#define msoConditionFileTypellFls 1 +#define msoConditionFileTypffcFls 2 +#define msoConditionFileTyptlktms 43 +#define msoConditionFlTypDsgnrFls 56 +#define msoConditionFlTypPrjctFls 53 +#define msoConditionFreeText 42 +#define msoConditionInTheLast 31 +#define msoConditionInTheNext 30 +#define msoConditionIncldsNrchthr 13 +#define msoConditionIncludes 9 +#define msoConditionIncludesFrmsf 41 +#define msoConditionIncludesPhras 10 +#define msoConditionIsExactly 14 +#define msoConditionIsNo 40 +#define msoConditionIsNot 15 +#define msoConditionIsYes 39 +#define msoConditionLastMonth 22 +#define msoConditionLastWeek 19 +#define msoConditionLessThan 38 +#define msoConditionMoreThan 37 +#define msoConditionNextMonth 24 +#define msoConditionNextWeek 21 +#define msoConditionNotEqlTCmpltd 71 +#define msoConditionNotEqualTNrml 62 +#define msoConditionNotEqualToHgh 63 +#define msoConditionNotEqualToLow 61 +#define msoConditionNotEqulTDfrrd 73 +#define msoConditionNotqlTNtStrtd 69 +#define msoConditionNotqlTnPrgrss 70 +#define msoConditionOn 27 +#define msoConditionOnOrAfter 28 +#define msoConditionOnOrBefore 29 +#define msoConditionThisMonth 23 +#define msoConditionThisWeek 20 +#define msoConditionToday 17 +#define msoConditionTomorrow 18 +#define msoConditionYesterday 16 +#define msoCondtnFlTypDtCnnctnFls 51 +#define msoCondtnNtqlTWtngFrSmnls 72 +#; Enum MsoConnector +#define msoConnectorAnd 1 +#define msoConnectorOr 2 +#; Enum MsoConnectorType +#define msoConnectorCurve 3 +#define msoConnectorElbow 2 +#define msoConnectorStraight 1 +#define msoConnectorTypeMixed -2 +#; Enum MsoControlOLEUsage +#define msoControlOLEUsageBoth 3 +#define msoControlOLEUsageClient 2 +#define msoControlOLEUsageNeither 0 +#define msoControlOLEUsageServer 1 +#; Enum MsoControlType +#define msoControlActiveX 22 +#define msoControlAutoCompleteCmb 26 +#define msoControlButton 1 +#define msoControlButtonDropdown 5 +#define msoControlButtonPopup 12 +#define msoControlComboBox 4 +#define msoControlCustom 0 +#define msoControlDropdown 3 +#define msoControlEdit 2 +#define msoControlExpandingGrid 16 +#define msoControlGauge 19 +#define msoControlGenericDropdown 8 +#define msoControlGraphicCombo 20 +#define msoControlGraphicDropdown 9 +#define msoControlGraphicPopup 11 +#define msoControlGrid 18 +#define msoControlLabel 15 +#define msoControlLabelEx 24 +#define msoControlOCXDropdown 7 +#define msoControlPane 21 +#define msoControlPopup 10 +#define msoControlSpinner 23 +#define msoControlSplitButtnMRPpp 14 +#define msoControlSplitButtonPopp 13 +#define msoControlSplitDropdown 6 +#define msoControlSplitExpndngGrd 17 +#define msoControlWorkPane 25 +#; Enum MsoDiagramNodeType +#define msoDiagramAssistant 2 +#define msoDiagramNode 1 +#; Enum MsoDiagramType +#define msoDiagramCycle 2 +#define msoDiagramMixed -2 +#define msoDiagramOrgChart 1 +#define msoDiagramPyramid 4 +#define msoDiagramRadial 3 +#define msoDiagramTarget 6 +#define msoDiagramVenn 5 +#; Enum MsoDistributeCmd +#define msoDistributeHorizontally 0 +#define msoDistributeVertically 1 +#; Enum MsoDocProperties +#define msoPropertyTypeBoolean 2 +#define msoPropertyTypeDate 3 +#define msoPropertyTypeFloat 5 +#define msoPropertyTypeNumber 1 +#define msoPropertyTypeString 4 +#; Enum MsoEditingType +#define msoEditingAuto 0 +#define msoEditingCorner 1 +#define msoEditingSmooth 2 +#define msoEditingSymmetric 3 +#; Enum MsoEncoding +#define msncdngBCDCJpnsKtknxtnddndJpns 50930 +#define msncdngBCDCJpnsLtnxtnddndJpns 50939 +#define msncdngBCDCSCndndTrdtnlChns 50937 +#define msncdngBCDCSmplfdChnsxtnddndSmplfdChns 50935 +#define msncdngMcSmplfdChnsGB2312 10008 +#define msncdngS2022JPJSX02011989 50222 +#define msncdngS2022JPJSX02021984 50221 +#define msncdngS2022JPNHlfwdthKtkn 50220 +#define msoEncdngS6937NnSpcngccnt 20269 +#define msoEncodingArabic 1256 +#define msoEncodingArabicASMO 708 +#define msoEncodingArabicAutoDtct 51256 +#define msoEncodingArbcTrnsprntSM 720 +#define msoEncodingAutoDetect 50001 +#define msoEncodingBCDCSCndndJpns 50931 +#define msoEncodingBaltic 1257 +#define msoEncodingCentralEuropen 1250 +#define msoEncodingCyrillic 1251 +#define msoEncodingCyrillicAtDtct 51251 +#define msoEncodingEBCDCDnmrkNrwy 20277 +#define msoEncodingEBCDCFnlndSwdn 20278 +#define msoEncodingEBCDCLtnmrcSpn 20284 +#define msoEncodingEBCDCSrbnBlgrn 21025 +#define msoEncodingEBCDCTrkshLtn5 1026 +#define msoEncodingEBCDICArabic 20420 +#define msoEncodingEBCDICFrance 20297 +#define msoEncodingEBCDICGermany 20273 +#define msoEncodingEBCDICGreek 20423 +#define msoEncodingEBCDICGrekMdrn 875 +#define msoEncodingEBCDICHebrew 20424 +#define msoEncodingEBCDICIcelandc 20871 +#define msoEncodingEBCDICIntrntnl 500 +#define msoEncodingEBCDICItaly 20280 +#define msoEncodingEBCDICKrnxtndd 20833 +#define msoEncodingEBCDICRussian 20880 +#define msoEncodingEBCDICThai 20838 +#define msoEncodingEBCDICTurkish 20905 +#define msoEncodingEBCDICUSCanada 37 +#define msoEncodingEBCDICntdKngdm 20285 +#define msoEncodingEUCJapanese 51932 +#define msoEncodingEUCKorean 51949 +#define msoEncodingEuropa3 29001 +#define msoEncodingExtAlphaLowrcs 21027 +#define msoEncodingGreek 1253 +#define msoEncodingGreekAutoDetct 51253 +#define msoEncodingHZGBSmplfdChns 52936 +#define msoEncodingHebrew 1255 +#define msoEncodingIA5German 20106 +#define msoEncodingIA5IRV 20105 +#define msoEncodingIA5Norwegian 20108 +#define msoEncodingIA5Swedish 20107 +#define msoEncodingIS88592Cntrlrp 28592 +#define msoEncodingISCIIAssamese 57006 +#define msoEncodingISCIIBengali 57003 +#define msoEncodingISCIIDevanagar 57002 +#define msoEncodingISCIIGujarati 57010 +#define msoEncodingISCIIKannada 57008 +#define msoEncodingISCIIMalayalam 57009 +#define msoEncodingISCIIOriya 57007 +#define msoEncodingISCIIPunjabi 57011 +#define msoEncodingISCIITamil 57004 +#define msoEncodingISCIITelugu 57005 +#define msoEncodingISO2022KR 50225 +#define msoEncodingISO885915Latn9 28605 +#define msoEncodingISO88591Latin1 28591 +#define msoEncodingISO88593Latin3 28593 +#define msoEncodingISO88594Baltic 28594 +#define msoEncodingISO88595Cyrllc 28595 +#define msoEncodingISO88596Arabic 28596 +#define msoEncodingISO88597Greek 28597 +#define msoEncodingISO88598Hebrew 28598 +#define msoEncodingISO88599Turksh 28599 +#define msoEncodingJapaneseAtDtct 50932 +#define msoEncodingJapaneseShftJS 932 +#define msoEncodingKOI8R 20866 +#define msoEncodingKOI8U 21866 +#define msoEncodingKorean 949 +#define msoEncodingKoreanAutoDtct 50949 +#define msoEncodingKoreanJohab 1361 +#define msoEncodingMacArabic 10004 +#define msoEncodingMacCroatia 10082 +#define msoEncodingMacCyrillic 10007 +#define msoEncodingMacGreek1 10006 +#define msoEncodingMacHebrew 10005 +#define msoEncodingMacIcelandic 10079 +#define msoEncodingMacJapanese 10001 +#define msoEncodingMacKorean 10003 +#define msoEncodingMacLatin2 10029 +#define msoEncodingMacRoman 10000 +#define msoEncodingMacRomania 10010 +#define msoEncodingMacTurkish 10081 +#define msoEncodingMacUkraine 10017 +#define msoEncodingOEMArabic 864 +#define msoEncodingOEMBaltic 775 +#define msoEncodingOEMCanadnFrnch 863 +#define msoEncodingOEMCyrillic 855 +#define msoEncodingOEMCyrillicII 866 +#define msoEncodingOEMGreek437G 737 +#define msoEncodingOEMHebrew 862 +#define msoEncodingOEMIcelandic 861 +#define msoEncodingOEMModernGreek 869 +#define msoEncodingOEMMultlnglLtn 852 +#define msoEncodingOEMNordic 865 +#define msoEncodingOEMPortuguese 860 +#define msoEncodingOEMTurkish 857 +#define msoEncodingOEMUnitedStats 437 +#define msoEncodingS88598HbrwLgcl 38598 +#define msoEncodingSimplfdChnsGBK 936 +#define msoEncodingT61 20261 +#define msoEncodingTaiwanCNS 20000 +#define msoEncodingTaiwanEten 20002 +#define msoEncodingTaiwanIBM5550 20003 +#define msoEncodingTaiwanTCA 20001 +#define msoEncodingTaiwanTeleText 20004 +#define msoEncodingTaiwanWang 20005 +#define msoEncodingThai 874 +#define msoEncodingTradtnlChnsBg5 950 +#define msoEncodingTurkish 1254 +#define msoEncodingUSASCII 20127 +#define msoEncodingUTF7 65000 +#define msoEncodingUTF8 65001 +#define msoEncodingUnicodeBigEndn 1201 +#define msoEncodingUnicodeLttlndn 1200 +#define msoEncodingVietnamese 1258 +#define msoEncodingWestern 1252 +#define msoEncodngCChnsSmplfdChns 51936 +#define msoEncodngCTwnsTrdtnlChns 51950 +#define msoEncodngMcTrdtnlChnsBg5 10002 +#define msoEncodngSmplfdChnstDtct 50936 +#define msoEncodngTrdtnlChnstDtct 50950 +#define msoncdngBCDCJpnsKtknxtndd 20290 +#define msoncdngBCDCKrnxtnddndKrn 50933 +#define msoncdngBCDCMltlnglRCLtn2 870 +#define msoncdngS2022CNSmplfdChns 50229 +#define msoncdngS2022CNTrdtnlChns 50227 +#define msoncdngSmplfdChnsGB18030 54936 +#; Enum MsoExtraInfoMethod +#define msoMethodGet 0 +#define msoMethodPost 1 +#; Enum MsoExtrusionColorType +#define msoExtrusionColorAutomatc 1 +#define msoExtrusionColorCustom 2 +#define msoExtrusionColorTypeMixd -2 +#; Enum MsoFarEastLineBreakLanggD +#define MsFrstLnBrkLnggSmplfdChns 2052 +#define MsFrstLnBrkLnggTrdtnlChns 1028 +#define MsoFarEastLineBrekLnggKrn 1042 +#define MsoFarEastLineBrkLnggJpns 1041 +#; Enum MsoFeatureInstall +#define msoFeatureInstallNone 0 +#define msoFeatureInstallOnDemand 1 +#define msoFeatureInstallnDmndWth 2 +#; Enum MsoFileDialogType +#define msoFileDialogFilePicker 3 +#define msoFileDialogFolderPicker 4 +#define msoFileDialogOpen 1 +#define msoFileDialogSaveAs 2 +#; Enum MsoFileDialogView +#define msoFileDialogViewDetails 2 +#define msoFileDialogViewLargecns 6 +#define msoFileDialogViewList 1 +#define msoFileDialogViewPreview 4 +#define msoFileDialogViewProperts 3 +#define msoFileDialogViewSmallcns 7 +#define msoFileDialogViewThumbnal 5 +#define msoFileDialogViewTiles 9 +#define msoFileDialogViewWebView 8 +#; Enum MsoFileFindListBy +#define msoListbyName 1 +#define msoListbyTitle 2 +#; Enum MsoFileFindOptions +#define msoOptionsAdd 2 +#define msoOptionsNew 1 +#define msoOptionsWithin 3 +#; Enum MsoFileFindSortBy +#define msoFileFindSortbyAuthor 1 +#define msoFileFindSortbyDateCrtd 2 +#define msoFileFindSortbyDateSavd 4 +#define msoFileFindSortbyFileName 5 +#define msoFileFindSortbyLstSvdBy 3 +#define msoFileFindSortbySize 6 +#define msoFileFindSortbyTitle 7 +#; Enum MsoFileFindView +#define msoViewFileInfo 1 +#define msoViewPreview 2 +#define msoViewSummaryInfo 3 +#; Enum MsoFileNewAction +#define msoCreateNewFile 1 +#define msoEditFile 0 +#define msoOpenFile 2 +#; Enum MsoFileNewSection +#define msoBottomSection 4 +#define msoNew 1 +#define msoNewfromExistingFile 2 +#define msoNewfromTemplate 3 +#define msoOpenDocument 0 +#; Enum MsoFileType +#define msoFileTypeAllFiles 1 +#define msoFileTypeBinders 6 +#define msoFileTypeCalendarItem 11 +#define msoFileTypeContactItem 12 +#define msoFileTypeDataConnctnFls 17 +#define msoFileTypeDatabases 7 +#define msoFileTypeDesignerFiles 22 +#define msoFileTypeDocumntmgngFls 20 +#define msoFileTypeExcelWorkbooks 4 +#define msoFileTypeJournalItem 14 +#define msoFileTypeMailItem 10 +#define msoFileTypeNoteItem 13 +#define msoFileTypeOfficeFiles 2 +#define msoFileTypeOutlookItems 9 +#define msoFileTypePhotoDrawFiles 16 +#define msoFileTypeProjectFiles 19 +#define msoFileTypePublisherFiles 18 +#define msoFileTypePwrPntPrsnttns 5 +#define msoFileTypeTaskItem 15 +#define msoFileTypeTemplates 8 +#define msoFileTypeVisioFiles 21 +#define msoFileTypeWebPages 23 +#define msoFileTypeWordDocuments 3 +#; Enum MsoFillType +#define msoFillBackground 5 +#define msoFillGradient 3 +#define msoFillMixed -2 +#define msoFillPatterned 2 +#define msoFillPicture 6 +#define msoFillSolid 1 +#define msoFillTextured 4 +#; Enum MsoFilterComparison +#define msoFilterComparisnGrtrThn 3 +#define msoFilterComparisnNtCntns 9 +#define msoFilterComparisnsNtBlnk 7 +#define msoFilterComparisonContns 8 +#define msoFilterComparisonEqual 0 +#define msoFilterComparisonIsBlnk 6 +#define msoFilterComparisonLssThn 2 +#define msoFilterComparisonNotEql 1 +#define msoFilterComparsnLssThnql 4 +#define msoFilterComprsnGrtrThnql 5 +#; Enum MsoFilterConjunction +#define msoFilterConjunctionAnd 0 +#define msoFilterConjunctionOr 1 +#; Enum MsoFlipCmd +#define msoFlipHorizontal 0 +#define msoFlipVertical 1 +#; Enum MsoGradientColorType +#define msoGradientColorMixed -2 +#define msoGradientOneColor 1 +#define msoGradientPresetColors 3 +#define msoGradientTwoColors 2 +#; Enum MsoGradientStyle +#define msoGradientDiagonalDown 4 +#define msoGradientDiagonalUp 3 +#define msoGradientFromCenter 7 +#define msoGradientFromCorner 5 +#define msoGradientFromTitle 6 +#define msoGradientHorizontal 1 +#define msoGradientMixed -2 +#define msoGradientVertical 2 +#; Enum MsoHTMLProjectOpen +#define msoHTMLProjectOpenSourcVw 1 +#define msoHTMLProjectOpenTextViw 2 +#; Enum MsoHTMLProjectState +#define msHTMLPrjctSttDcmntPrjctnlckd 3 +#define msoHTMLProjctSttDcmntLckd 1 +#define msoHTMLProjctSttPrjctLckd 2 +#; Enum MsoHorizontalAnchor +#define msoAnchorCenter 2 +#define msoAnchorNone 1 +#define msoHorizontalAnchorMixed -2 +#; Enum MsoHyperlinkType +#define msoHyperlinkInlineShape 2 +#define msoHyperlinkRange 0 +#define msoHyperlinkShape 1 +#; Enum MsoIconType +#define msoIconAlert 2 +#define msoIconAlertCritical 7 +#define msoIconAlertInfo 4 +#define msoIconAlertQuery 6 +#define msoIconAlertWarning 5 +#define msoIconNone 0 +#define msoIconTip 3 +#; Enum MsoLanguageID +#define msoLanguageDnglshTrnddTbg 11273 +#define msoLanguageIDAfrikaans 1078 +#define msoLanguageIDAlbanian 1052 +#define msoLanguageIDAmharic 1118 +#define msoLanguageIDArabic 1025 +#define msoLanguageIDArabicAlgeri 5121 +#define msoLanguageIDArabicBahran 15361 +#define msoLanguageIDArabicEgypt 3073 +#define msoLanguageIDArabicIraq 2049 +#define msoLanguageIDArabicJordan 11265 +#define msoLanguageIDArabicKuwait 13313 +#define msoLanguageIDArabicLebann 12289 +#define msoLanguageIDArabicLibya 4097 +#define msoLanguageIDArabicMorocc 6145 +#define msoLanguageIDArabicOman 8193 +#define msoLanguageIDArabicQatar 16385 +#define msoLanguageIDArabicSyria 10241 +#define msoLanguageIDArabicTunisi 7169 +#define msoLanguageIDArabicUAE 14337 +#define msoLanguageIDArabicYemen 9217 +#define msoLanguageIDArmenian 1067 +#define msoLanguageIDAssamese 1101 +#define msoLanguageIDAzeriCyrillc 2092 +#define msoLanguageIDAzeriLatin 1068 +#define msoLanguageIDBasque 1069 +#define msoLanguageIDBelgianDutch 2067 +#define msoLanguageIDBelgianFrnch 2060 +#define msoLanguageIDBengali 1093 +#define msoLanguageIDBosnian 4122 +#define msoLanguageIDBrazilnPrtgs 1046 +#define msoLanguageIDBulgarian 1026 +#define msoLanguageIDBurmese 1109 +#define msoLanguageIDByelorussian 1059 +#define msoLanguageIDCatalan 1027 +#define msoLanguageIDCherokee 1116 +#define msoLanguageIDChineseMacSR 5124 +#define msoLanguageIDChineseSngpr 4100 +#define msoLanguageIDChnsHngKngSR 3076 +#define msoLanguageIDCroatian 1050 +#define msoLanguageIDCzech 1029 +#define msoLanguageIDDanish 1030 +#define msoLanguageIDDivehi 1125 +#define msoLanguageIDDutch 1043 +#define msoLanguageIDDzongkhaBhtn 2129 +#define msoLanguageIDEdo 1126 +#define msoLanguageIDEnglishAUS 3081 +#define msoLanguageIDEnglishBeliz 10249 +#define msoLanguageIDEnglishCandn 4105 +#define msoLanguageIDEnglishCrbbn 9225 +#define msoLanguageIDEnglishIndns 14345 +#define msoLanguageIDEnglishIrlnd 6153 +#define msoLanguageIDEnglishJamac 8201 +#define msoLanguageIDEnglishUK 2057 +#define msoLanguageIDEnglishUS 1033 +#define msoLanguageIDEnglishZmbbw 12297 +#define msoLanguageIDEnglshNwZlnd 5129 +#define msoLanguageIDEnglshSthfrc 7177 +#define msoLanguageIDEstonian 1061 +#define msoLanguageIDFaeroese 1080 +#define msoLanguageIDFarsi 1065 +#define msoLanguageIDFilipino 1124 +#define msoLanguageIDFinnish 1035 +#define msoLanguageIDFrench 1036 +#define msoLanguageIDFrenchCamern 11276 +#define msoLanguageIDFrenchCanadn 3084 +#define msoLanguageIDFrenchCotdvr 12300 +#define msoLanguageIDFrenchHaiti 15372 +#define msoLanguageIDFrenchLxmbrg 5132 +#define msoLanguageIDFrenchMali 13324 +#define msoLanguageIDFrenchMonaco 6156 +#define msoLanguageIDFrenchMorocc 14348 +#define msoLanguageIDFrenchReunin 8204 +#define msoLanguageIDFrenchSenegl 10252 +#define msoLanguageIDFrenchWstnds 7180 +#define msoLanguageIDFrenchZaire 9228 +#define msoLanguageIDFrsnNthrlnds 1122 +#define msoLanguageIDFulfulde 1127 +#define msoLanguageIDGaelicIrelnd 2108 +#define msoLanguageIDGaelicSctlnd 1084 +#define msoLanguageIDGalician 1110 +#define msoLanguageIDGeorgian 1079 +#define msoLanguageIDGerman 1031 +#define msoLanguageIDGermanAustri 3079 +#define msoLanguageIDGermanLxmbrg 4103 +#define msoLanguageIDGreek 1032 +#define msoLanguageIDGrmnLchtnstn 5127 +#define msoLanguageIDGuarani 1140 +#define msoLanguageIDGujarati 1095 +#define msoLanguageIDHausa 1128 +#define msoLanguageIDHawaiian 1141 +#define msoLanguageIDHebrew 1037 +#define msoLanguageIDHindi 1081 +#define msoLanguageIDHungarian 1038 +#define msoLanguageIDIbibio 1129 +#define msoLanguageIDIcelandic 1039 +#define msoLanguageIDIgbo 1136 +#define msoLanguageIDIndonesian 1057 +#define msoLanguageIDInuktitut 1117 +#define msoLanguageIDItalian 1040 +#define msoLanguageIDJapanese 1041 +#define msoLanguageIDKannada 1099 +#define msoLanguageIDKanuri 1137 +#define msoLanguageIDKashmirDvngr 2144 +#define msoLanguageIDKashmiri 1120 +#define msoLanguageIDKazakh 1087 +#define msoLanguageIDKhmer 1107 +#define msoLanguageIDKirghiz 1088 +#define msoLanguageIDKonkani 1111 +#define msoLanguageIDKorean 1042 +#define msoLanguageIDKyrgyz 1088 +#define msoLanguageIDLao 1108 +#define msoLanguageIDLatin 1142 +#define msoLanguageIDLatvian 1062 +#define msoLanguageIDLithuanian 1063 +#define msoLanguageIDMacedonian 1071 +#define msoLanguageIDMalayalam 1100 +#define msoLanguageIDMalaysian 1086 +#define msoLanguageIDMaltese 1082 +#define msoLanguageIDManipuri 1112 +#define msoLanguageIDMaori 1153 +#define msoLanguageIDMarathi 1102 +#define msoLanguageIDMexicanSpnsh 2058 +#define msoLanguageIDMixed -2 +#define msoLanguageIDMlyBrnDrsslm 2110 +#define msoLanguageIDMongolian 1104 +#define msoLanguageIDNepali 1121 +#define msoLanguageIDNoProofing 1024 +#define msoLanguageIDNone 0 +#define msoLanguageIDNorweginBkml 1044 +#define msoLanguageIDNorwgnNynrsk 2068 +#define msoLanguageIDOriya 1096 +#define msoLanguageIDOromo 1138 +#define msoLanguageIDPashto 1123 +#define msoLanguageIDPolish 1045 +#define msoLanguageIDPortuguese 2070 +#define msoLanguageIDPunjabi 1094 +#define msoLanguageIDQuechuaBoliv 1131 +#define msoLanguageIDQuechuaEcudr 2155 +#define msoLanguageIDQuechuaPeru 3179 +#define msoLanguageIDRhaetoRomanc 1047 +#define msoLanguageIDRomanian 1048 +#define msoLanguageIDRomanianMldv 2072 +#define msoLanguageIDRussian 1049 +#define msoLanguageIDRussianMoldv 2073 +#define msoLanguageIDSamiLappish 1083 +#define msoLanguageIDSanskrit 1103 +#define msoLanguageIDSepedi 1132 +#define msoLanguageIDSerbianLatin 2074 +#define msoLanguageIDSerbinCyrllc 3098 +#define msoLanguageIDSesotho 1072 +#define msoLanguageIDSimplifdChns 2052 +#define msoLanguageIDSindhi 1113 +#define msoLanguageIDSindhiPakstn 2137 +#define msoLanguageIDSinhalese 1115 +#define msoLanguageIDSlovak 1051 +#define msoLanguageIDSlovenian 1060 +#define msoLanguageIDSomali 1143 +#define msoLanguageIDSorbian 1070 +#define msoLanguageIDSpanish 1034 +#define msoLanguageIDSpanishBoliv 16394 +#define msoLanguageIDSpanishChile 13322 +#define msoLanguageIDSpanishColmb 9226 +#define msoLanguageIDSpanishCstRc 5130 +#define msoLanguageIDSpanishEcudr 12298 +#define msoLanguageIDSpanishGutml 4106 +#define msoLanguageIDSpanishHndrs 18442 +#define msoLanguageIDSpanishNicrg 19466 +#define msoLanguageIDSpanishPanam 6154 +#define msoLanguageIDSpanishPargy 15370 +#define msoLanguageIDSpanishPeru 10250 +#define msoLanguageIDSpanishPrtRc 20490 +#define msoLanguageIDSpanishUrugy 14346 +#define msoLanguageIDSpanishVenzl 8202 +#define msoLanguageIDSpanishrgntn 11274 +#define msoLanguageIDSpanshlSlvdr 17418 +#define msoLanguageIDSpnshMdrnSrt 3082 +#define msoLanguageIDSutu 1072 +#define msoLanguageIDSwahili 1089 +#define msoLanguageIDSwedish 1053 +#define msoLanguageIDSwedishFnlnd 2077 +#define msoLanguageIDSwissFrench 4108 +#define msoLanguageIDSwissGerman 2055 +#define msoLanguageIDSwissItalian 2064 +#define msoLanguageIDSyriac 1114 +#define msoLanguageIDTajik 1064 +#define msoLanguageIDTamazight 1119 +#define msoLanguageIDTamazightLtn 2143 +#define msoLanguageIDTamil 1097 +#define msoLanguageIDTatar 1092 +#define msoLanguageIDTelugu 1098 +#define msoLanguageIDThai 1054 +#define msoLanguageIDTibetan 1105 +#define msoLanguageIDTigrignaErtr 2163 +#define msoLanguageIDTigrignathpc 1139 +#define msoLanguageIDTraditnlChns 1028 +#define msoLanguageIDTsonga 1073 +#define msoLanguageIDTswana 1074 +#define msoLanguageIDTurkish 1055 +#define msoLanguageIDTurkmen 1090 +#define msoLanguageIDUkrainian 1058 +#define msoLanguageIDUrdu 1056 +#define msoLanguageIDUzbekCyrillc 2115 +#define msoLanguageIDUzbekLatin 1091 +#define msoLanguageIDVenda 1075 +#define msoLanguageIDVietnamese 1066 +#define msoLanguageIDWelsh 1106 +#define msoLanguageIDXhosa 1076 +#define msoLanguageIDYi 1144 +#define msoLanguageIDYiddish 1085 +#define msoLanguageIDYoruba 1130 +#define msoLanguageIDZulu 1077 +#define msoLanguageIDnglshPhlppns 13321 +#define msoLangugDSpnshDmncnRpblc 7178 +#; Enum MsoLanguageIDHidden +#define msoLanguageIDChinesHngKng 3076 +#define msoLanguageIDChineseMacao 5124 +#define msoLanguageIDEnglishTrndd 11273 +#; Enum MsoLastModified +#define msoLastModifiedAnyTime 7 +#define msoLastModifiedLastMonth 5 +#define msoLastModifiedLastWeek 3 +#define msoLastModifiedThisMonth 6 +#define msoLastModifiedThisWeek 4 +#define msoLastModifiedToday 2 +#define msoLastModifiedYesterday 1 +#; Enum MsoLineDashStyle +#define msoLineDash 4 +#define msoLineDashDot 5 +#define msoLineDashDotDot 6 +#define msoLineDashStyleMixed -2 +#define msoLineLongDash 7 +#define msoLineLongDashDot 8 +#define msoLineRoundDot 3 +#define msoLineSolid 1 +#define msoLineSquareDot 2 +#; Enum MsoLineStyle +#define msoLineSingle 1 +#define msoLineStyleMixed -2 +#define msoLineThickBetweenThin 5 +#define msoLineThickThin 4 +#define msoLineThinThick 3 +#define msoLineThinThin 2 +#; Enum MsoMenuAnimation +#define msoMenuAnimationNone 0 +#define msoMenuAnimationRandom 1 +#define msoMenuAnimationSlide 3 +#define msoMenuAnimationUnfold 2 +#; Enum MsoMixedType +#define msoIntegerMixed 32768 +#define msoSingleMixed -2147483648 +#; Enum MsoModeType +#define msoModeAutoDown 1 +#define msoModeModal 0 +#define msoModeModeless 2 +#; Enum MsoMoveRow +#define msoMoveRowFirst -4 +#define msoMoveRowNbr -1 +#define msoMoveRowNext -2 +#define msoMoveRowPrev -3 +#; Enum MsoOLEMenuGroup +#define msoOLEMenuGroupContainer 2 +#define msoOLEMenuGroupEdit 1 +#define msoOLEMenuGroupFile 0 +#define msoOLEMenuGroupHelp 5 +#define msoOLEMenuGroupNone -1 +#define msoOLEMenuGroupObject 3 +#define msoOLEMenuGroupWindow 4 +#; Enum MsoOrgChartLayoutType +#define msoOrgChartLayotRghtHngng 4 +#define msoOrgChartLayoutBthHngng 2 +#define msoOrgChartLayoutLftHngng 3 +#define msoOrgChartLayoutMixed -2 +#define msoOrgChartLayoutStandard 1 +#; Enum MsoOrgChartOrientation +#define msoOrgChartOrientationMxd -2 +#define msoOrgChartOrientatnVrtcl 1 +#; Enum MsoOrientation +#define msoOrientationHorizontal 1 +#define msoOrientationMixed -2 +#define msoOrientationVertical 2 +#; Enum MsoPatternType +#define msoPattern10Percent 2 +#define msoPattern20Percent 3 +#define msoPattern25Percent 4 +#define msoPattern30Percent 5 +#define msoPattern40Percent 6 +#define msoPattern50Percent 7 +#define msoPattern5Percent 1 +#define msoPattern60Percent 8 +#define msoPattern70Percent 9 +#define msoPattern75Percent 10 +#define msoPattern80Percent 11 +#define msoPattern90Percent 12 +#define msoPatternDarkDownwrdDgnl 15 +#define msoPatternDarkHorizontal 13 +#define msoPatternDarkUpwardDignl 16 +#define msoPatternDarkVertical 14 +#define msoPatternDashdDwnwrdDgnl 28 +#define msoPatternDashedHorizontl 32 +#define msoPatternDashedUpwrdDgnl 27 +#define msoPatternDashedVertical 31 +#define msoPatternDiagonalBrick 40 +#define msoPatternDivot 46 +#define msoPatternDottedDiamond 24 +#define msoPatternDottedGrid 45 +#define msoPatternHorizontalBrick 35 +#define msoPatternLargeCheckerBrd 36 +#define msoPatternLargeConfetti 33 +#define msoPatternLargeGrid 34 +#define msoPatternLightDwnwrdDgnl 21 +#define msoPatternLightHorizontal 19 +#define msoPatternLightUpwardDgnl 22 +#define msoPatternLightVertical 20 +#define msoPatternMixed -2 +#define msoPatternNarrowHorizontl 30 +#define msoPatternNarrowVertical 29 +#define msoPatternOutlinedDiamond 41 +#define msoPatternPlaid 42 +#define msoPatternShingle 47 +#define msoPatternSmallCheckerBrd 17 +#define msoPatternSmallConfetti 37 +#define msoPatternSmallGrid 23 +#define msoPatternSolidDiamond 39 +#define msoPatternSphere 43 +#define msoPatternTrellis 18 +#define msoPatternWave 48 +#define msoPatternWeave 44 +#define msoPatternWideDownwrdDgnl 25 +#define msoPatternWideUpwardDignl 26 +#define msoPatternZigZag 38 +#; Enum MsoPermission +#define msoPermissionChange 15 +#define msoPermissionEdit 2 +#define msoPermissionExtract 8 +#define msoPermissionFullControl 64 +#define msoPermissionObjModel 32 +#define msoPermissionPrint 16 +#define msoPermissionRead 1 +#define msoPermissionSave 4 +#define msoPermissionView 1 +#; Enum MsoPictureColorType +#define msoPictureAutomatic 1 +#define msoPictureBlackAndWhite 3 +#define msoPictureGrayscale 2 +#define msoPictureMixed -2 +#define msoPictureWatermark 4 +#; Enum MsoPresetExtrusionDirectn +#define msoExtrusionBottom 2 +#define msoExtrusionBottomLeft 3 +#define msoExtrusionBottomRight 1 +#define msoExtrusionLeft 6 +#define msoExtrusionNone 5 +#define msoExtrusionRight 4 +#define msoExtrusionTop 8 +#define msoExtrusionTopLeft 9 +#define msoExtrusionTopRight 7 +#define msoPresetExtrusinDrctnMxd -2 +#; Enum MsoPresetGradientType +#define msoGradientBrass 20 +#define msoGradientCalmWater 8 +#define msoGradientChrome 21 +#define msoGradientChromeII 22 +#define msoGradientDaybreak 4 +#define msoGradientDesert 6 +#define msoGradientEarlySunset 1 +#define msoGradientFire 9 +#define msoGradientFog 10 +#define msoGradientGold 18 +#define msoGradientGoldII 19 +#define msoGradientHorizon 5 +#define msoGradientLateSunset 2 +#define msoGradientMahogany 15 +#define msoGradientMoss 11 +#define msoGradientNightfall 3 +#define msoGradientOcean 7 +#define msoGradientParchment 14 +#define msoGradientPeacock 12 +#define msoGradientRainbow 16 +#define msoGradientRainbowII 17 +#define msoGradientSapphire 24 +#define msoGradientSilver 23 +#define msoGradientWheat 13 +#define msoPresetGradientMixed -2 +#; Enum MsoPresetLightingDirectin +#define msoLightingBottom 8 +#define msoLightingBottomLeft 7 +#define msoLightingBottomRight 9 +#define msoLightingLeft 4 +#define msoLightingNone 5 +#define msoLightingRight 6 +#define msoLightingTop 2 +#define msoLightingTopLeft 1 +#define msoLightingTopRight 3 +#define msoPresetLightingDrctnMxd -2 +#; Enum MsoPresetLightingSoftness +#define msoLightingBright 3 +#define msoLightingDim 1 +#define msoLightingNormal 2 +#define msoPresetLightngSftnssMxd -2 +#; Enum MsoPresetMaterial +#define msoMaterialMatte 1 +#define msoMaterialMetal 3 +#define msoMaterialPlastic 2 +#define msoMaterialWireFrame 4 +#define msoPresetMaterialMixed -2 +#; Enum MsoPresetTextEffect +#define msoTextEffect1 0 +#define msoTextEffect10 9 +#define msoTextEffect11 10 +#define msoTextEffect12 11 +#define msoTextEffect13 12 +#define msoTextEffect14 13 +#define msoTextEffect15 14 +#define msoTextEffect16 15 +#define msoTextEffect17 16 +#define msoTextEffect18 17 +#define msoTextEffect19 18 +#define msoTextEffect2 1 +#define msoTextEffect20 19 +#define msoTextEffect21 20 +#define msoTextEffect22 21 +#define msoTextEffect23 22 +#define msoTextEffect24 23 +#define msoTextEffect25 24 +#define msoTextEffect26 25 +#define msoTextEffect27 26 +#define msoTextEffect28 27 +#define msoTextEffect29 28 +#define msoTextEffect3 2 +#define msoTextEffect30 29 +#define msoTextEffect4 3 +#define msoTextEffect5 4 +#define msoTextEffect6 5 +#define msoTextEffect7 6 +#define msoTextEffect8 7 +#define msoTextEffect9 8 +#define msoTextEffectMixed -2 +#; Enum MsoPresetTextEffectShape +#define msoTextEffectShapChvrnDwn 6 +#define msoTextEffectShapDfltBttm 28 +#define msoTextEffectShapDfltnflt 31 +#define msoTextEffectShapTrnglDwn 4 +#define msoTextEffectShapeArchpPr 13 +#define msoTextEffectShapeBttnCrv 12 +#define msoTextEffectShapeButtnPr 16 +#define msoTextEffectShapeCanDown 20 +#define msoTextEffectShapeCanUp 19 +#define msoTextEffectShapeCascadp 39 +#define msoTextEffectShapeChevrnp 5 +#define msoTextEffectShapeCirclPr 15 +#define msoTextEffectShapeCrclCrv 11 +#define msoTextEffectShapeCscdDwn 40 +#define msoTextEffectShapeCurvDwn 18 +#define msoTextEffectShapeCurveUp 17 +#define msoTextEffectShapeDeflate 26 +#define msoTextEffectShapeDefltTp 30 +#define msoTextEffectShapeDoblWv1 23 +#define msoTextEffectShapeDoblWv2 24 +#define msoTextEffectShapeFadRght 33 +#define msoTextEffectShapeFadeDwn 36 +#define msoTextEffectShapeFadeLft 34 +#define msoTextEffectShapeFadeUp 35 +#define msoTextEffectShapeInflate 25 +#define msoTextEffectShapeInfltTp 29 +#define msoTextEffectShapeMixed -2 +#define msoTextEffectShapePlanTxt 1 +#define msoTextEffectShapeRingnsd 7 +#define msoTextEffectShapeRingtsd 8 +#define msoTextEffectShapeSlantUp 37 +#define msoTextEffectShapeSlntDwn 38 +#define msoTextEffectShapeStop 2 +#define msoTextEffectShapeTringlp 3 +#define msoTextEffectShapeWave1 21 +#define msoTextEffectShapeWave2 22 +#define msoTextEffectShaperchpCrv 9 +#define msoTextEffectShapnfltBttm 27 +#define msoTextEffectShaprchDwnPr 14 +#define msoTextEffectShprchDwnCrv 10 +#define msoTxtffctShpDfltnfltDflt 32 +#; Enum MsoPresetTexture +#define msoPresetTextureMixed -2 +#define msoTextureBlueTissuePaper 17 +#define msoTextureBouquet 20 +#define msoTextureBrownMarble 11 +#define msoTextureCanvas 2 +#define msoTextureCork 21 +#define msoTextureDenim 3 +#define msoTextureFishFossil 7 +#define msoTextureGranite 12 +#define msoTextureGreenMarble 9 +#define msoTextureMediumWood 24 +#define msoTextureNewsprint 13 +#define msoTextureOak 23 +#define msoTexturePaperBag 6 +#define msoTexturePapyrus 1 +#define msoTextureParchment 15 +#define msoTexturePinkTissuePaper 18 +#define msoTexturePurpleMesh 19 +#define msoTextureRecycledPaper 14 +#define msoTextureSand 8 +#define msoTextureStationery 16 +#define msoTextureWalnut 22 +#define msoTextureWaterDroplets 5 +#define msoTextureWhiteMarble 10 +#define msoTextureWovenMat 4 +#; Enum MsoPresetThreeDFormat +#define msoPresetThreeDFormatMixd -2 +#define msoThreeD1 1 +#define msoThreeD10 10 +#define msoThreeD11 11 +#define msoThreeD12 12 +#define msoThreeD13 13 +#define msoThreeD14 14 +#define msoThreeD15 15 +#define msoThreeD16 16 +#define msoThreeD17 17 +#define msoThreeD18 18 +#define msoThreeD19 19 +#define msoThreeD2 2 +#define msoThreeD20 20 +#define msoThreeD3 3 +#define msoThreeD4 4 +#define msoThreeD5 5 +#define msoThreeD6 6 +#define msoThreeD7 7 +#define msoThreeD8 8 +#define msoThreeD9 9 +#; Enum MsoRelativeNodePosition +#define msoAfterLastSibling 4 +#define msoAfterNode 2 +#define msoBeforeFirstSibling 3 +#define msoBeforeNode 1 +#; Enum MsoScaleFrom +#define msoScaleFromBottomRight 2 +#define msoScaleFromMiddle 1 +#define msoScaleFromTopLeft 0 +#; Enum MsoScreenSize +#define msoScreenSize1024x768 4 +#define msoScreenSize1152x882 5 +#define msoScreenSize1152x900 6 +#define msoScreenSize1280x1024 7 +#define msoScreenSize1600x1200 8 +#define msoScreenSize1800x1440 9 +#define msoScreenSize1920x1200 10 +#define msoScreenSize544x376 0 +#define msoScreenSize640x480 1 +#define msoScreenSize720x512 2 +#define msoScreenSize800x600 3 +#; Enum MsoScriptLanguage +#define msoScriptLanguageASP 3 +#define msoScriptLanguageJava 1 +#define msoScriptLanguageOther 4 +#define msoScriptLanguageVisulBsc 2 +#; Enum MsoScriptLocation +#define msoScriptLocationInBody 2 +#define msoScriptLocationInHead 1 +#; Enum MsoSearchIn +#define msoSearchInCustom 3 +#define msoSearchInMyComputer 0 +#define msoSearchInMyNetworkPlacs 2 +#define msoSearchInOutlook 1 +#; Enum MsoSegmentType +#define msoSegmentCurve 1 +#define msoSegmentLine 0 +#; Enum MsoShadowType +#define msoShadow1 1 +#define msoShadow10 10 +#define msoShadow11 11 +#define msoShadow12 12 +#define msoShadow13 13 +#define msoShadow14 14 +#define msoShadow15 15 +#define msoShadow16 16 +#define msoShadow17 17 +#define msoShadow18 18 +#define msoShadow19 19 +#define msoShadow2 2 +#define msoShadow20 20 +#define msoShadow3 3 +#define msoShadow4 4 +#define msoShadow5 5 +#define msoShadow6 6 +#define msoShadow7 7 +#define msoShadow8 8 +#define msoShadow9 9 +#define msoShadowMixed -2 +#; Enum MsoShapeType +#define msoAutoShape 1 +#define msoCallout 2 +#define msoCanvas 20 +#define msoChart 3 +#define msoComment 4 +#define msoDiagram 21 +#define msoEmbeddedOLEObject 7 +#define msoFormControl 8 +#define msoFreeform 5 +#define msoGroup 6 +#define msoInk 22 +#define msoInkComment 23 +#define msoLine 9 +#define msoLinkedOLEObject 10 +#define msoLinkedPicture 11 +#define msoMedia 16 +#define msoOLEControlObject 12 +#define msoPicture 13 +#define msoPlaceholder 14 +#define msoScriptAnchor 18 +#define msoShapeTypeMixed -2 +#define msoTable 19 +#define msoTextBox 17 +#define msoTextEffect 15 +#; Enum MsoSharedWorkspacTskPrrty +#define msoShardWrkspcTskPrrtyHgh 1 +#define msoSharedWrkspcTskPrrtyLw 3 +#define msoShrdWrkspcTskPrrtyNrml 2 +#; Enum MsoSharedWorkspaceTskStts +#define msShrdWrkspcTskSttsCmpltd 3 +#define msShrdWrkspcTskSttsNtStrtd 1 +#define msShrdWrkspcTskSttsnPrgrss 2 +#define msoShardWrkspcTskSttsWtng 5 +#define msoShrdWrkspcTskSttsDfrrd 4 +#; Enum MsoSortBy +#define msoSortByFileName 1 +#define msoSortByFileType 3 +#define msoSortByLastModified 4 +#define msoSortByNone 5 +#define msoSortBySize 2 +#; Enum MsoSortOrder +#define msoSortOrderAscending 1 +#define msoSortOrderDescending 2 +#; Enum MsoSyncAvailableType +#define msoSyncAvailableAnywhere 2 +#define msoSyncAvailableNone 0 +#define msoSyncAvailableOffline 1 +#; Enum MsoSyncCompareType +#define msoSyncCompareAndMerge 0 +#define msoSyncCompareSideBySide 1 +#; Enum MsoSyncConflictResoltnTyp +#define msoSyncConflictClientWins 0 +#define msoSyncConflictMerge 2 +#define msoSyncConflictServerWins 1 +#; Enum MsoSyncErrorType +#define msoSyncErrorCouldNotCnnct 2 +#define msoSyncErrorCouldNotCompr 13 +#define msoSyncErrorCouldNotOpen 11 +#define msoSyncErrorCouldNotReslv 14 +#define msoSyncErrorCouldNotUpdat 12 +#define msoSyncErrorFileInUse 6 +#define msoSyncErrorFileNotFound 4 +#define msoSyncErrorFileTooLarge 5 +#define msoSyncErrorNoNetwork 15 +#define msoSyncErrorNone 0 +#define msoSyncErrorOutOfSpace 3 +#define msoSyncErrorUnauthorizdsr 1 +#define msoSyncErrorUnknown 16 +#define msoSyncErrorUnknownDownld 10 +#define msoSyncErrorUnknownUpload 9 +#define msoSyncErrorVirusDownload 8 +#define msoSyncErrorVirusUpload 7 +#; Enum MsoSyncEventType +#define msoSyncEventDownloadFaild 2 +#define msoSyncEventDownloadInttd 0 +#define msoSyncEventDownloadNChng 6 +#define msoSyncEventDownloadSccdd 1 +#define msoSyncEventOffline 7 +#define msoSyncEventUploadFailed 5 +#define msoSyncEventUploadInititd 3 +#define msoSyncEventUploadSuccedd 4 +#; Enum MsoSyncStatusType +#define msoSyncStatusConflict 4 +#define msoSyncStatusError 6 +#define msoSyncStatusLatest 1 +#define msoSyncStatusLocalChanges 3 +#define msoSyncStatusNewerAvailbl 2 +#define msoSyncStatusNoShrdWrkspc 0 +#define msoSyncStatusSuspended 5 +#; Enum MsoSyncVersionType +#define msoSyncVersionLastViewed 0 +#define msoSyncVersionServer 1 +#; Enum MsoTargetBrowser +#define msoTargetBrowserIE4 2 +#define msoTargetBrowserIE5 3 +#define msoTargetBrowserIE6 4 +#define msoTargetBrowserV3 0 +#define msoTargetBrowserV4 1 +#; Enum MsoTextEffectAlignment +#define msTxtffctlgnmntStrtchJstfy 6 +#define msoTextEffectAlgnmntCntrd 2 +#define msoTextEffectAlignmentLft 1 +#define msoTextEffectAlignmentMxd -2 +#define msoTextEffectAlignmntRght 3 +#define msoTextffctlgnmntWrdJstfy 5 +#define msoTxtffctlgnmntLttrJstfy 4 +#; Enum MsoTextOrientation +#define msoTextOrientationDownwrd 3 +#define msoTextOrientationHorzntl 1 +#define msoTextOrientationMixed -2 +#define msoTextOrientationUpward 2 +#define msoTextOrientationVerticl 5 +#define msoTextOrientatnVrtclFrst 4 +#define msoTxtrnttnHrzntlRttdFrst 6 +#; Enum MsoTextureType +#define msoTexturePreset 1 +#define msoTextureTypeMixed -2 +#define msoTextureUserDefined 2 +#; Enum MsoTriState +#define msoCTrue 1 +#define msoFalse 0 +#define msoTriStateMixed -2 +#define msoTriStateToggle -3 +#define msoTrue -1 +#; Enum MsoVerticalAnchor +#define msoAnchorBottom 4 +#define msoAnchorBottomBaseLine 5 +#define msoAnchorMiddle 3 +#define msoAnchorTop 1 +#define msoAnchorTopBaseline 2 +#define msoVerticalAnchorMixed -2 +#; Enum MsoWizardActType +#define msoWizardActActive 1 +#define msoWizardActInactive 0 +#define msoWizardActResume 3 +#define msoWizardActSuspend 2 +#; Enum MsoWizardMsgType +#define msoWizardMsgLocalStateOff 2 +#define msoWizardMsgLocalStateOn 1 +#define msoWizardMsgResuming 5 +#define msoWizardMsgShowHelp 3 +#define msoWizardMsgSuspending 4 +#; Enum MsoZOrderCmd +#define msoBringForward 2 +#define msoBringInFrontOfText 4 +#define msoBringToFront 0 +#define msoSendBackward 3 +#define msoSendBehindText 5 +#define msoSendToBack 1 + \ No newline at end of file Index: DOM/HR/Common.inc.rou =================================================================== diff -u --- DOM/HR/Common.inc.rou (revision 0) +++ DOM/HR/Common.inc.rou (revision 760) @@ -0,0 +1,74 @@ + + ;********************************************************************** + ;** ** + ;** Bij wijziging gelieve klassen in package DOM.HR te hercompileren ** + ;** ** + ;********************************************************************** + +#Define Prestaties "P_" +#Define PrestatieOveruren "P_O" +#Define Prestatie "P_RP" +#Define PrestatieOveruurBetaald "P_OB" +#Define PrestatieOveruurRecup "P_OR" +#Define PrestatieKleineFlex "P_KF" + +#Define Opnames "O_" +#Define OpnameJaarlijkseVakantie "O_JV" +#Define OpnameBetaaldeFeestdag "O_BF" +#Define OpnameBuitenhuis "O_BU" +#Define OpnameVervangingsFeestdag "O_BFV" +#Define OpnameKleinVerlet "O_KV" +#Define OpnameOveruur "O_OU" +#Define OpnameFamiliaalVerlof "O_FV" +#Define OpnameKleineFlex "O_KF" +#Define OpnameTijdskrediet "O_TK" +#Define OpnameInhaalrust "O_IR" +#Define OpnameProgrWerkhervatting "O_PRW" +#Define OpnameOuderschapsVerlof "O_OV" +#Define OpnameEconomischeWerkloosheid "O_ECO" +#Define OpnameC32 "O_C32" + + +#Define OpnameGewettigdeAfwezigheid "O_GA" +#Define OpnameOnwettigeAfwezigheid "O_OA" + + ;********************************************************************** + ;** ** + ;** Bij wijziging gelieve klassen in package DOM.HR te hercompileren ** + ;** ** + ;********************************************************************** + + +#Define Ziektes "Z_" +#Define Ziekte "Z_ZI" +#Define ZiekteMetAttest "Z_ZA" +#Define ZiekteNieuw "Z_NZ" +#Define ZiekteProgWerkhervatting "Z_PRW" +#Define ZiekteArbeidsOngeval "Z_AO" + +#Define MeerloonFactoren 0 , 50 , 100 +#Define ZiekteVergoedingPercentages $$$CarensOnbetaald,$$$CarensBetaald, 100 , 85.88, 25.88, 0 +#Define CarensBetaald "C100" +#Define CarensOnbetaald "C0" + +#Define ZVArbeiderPercentage1 100 +#Define ZVArbeiderPercentage2 85.88 +#Define ZVArbeiderPercentage3 25.88 + +#Define ZVBediendePercentage1 100 +#Define ZVBediendePercentage2 86.93 +#Define ZVBediendePercentage3 26.93 + + +#Define ListBetaaldeOpnames ##class(DOM.HR.UurRegistratiePost).ListBetaaldeOpnames() +#Define ListOnbetaaldeOpnames ##class(DOM.HR.UurRegistratiePost).ListOnbetaaldeOpnames() + +#Define ProtimeFilePath $$MSMGATEWAY^vhConstant_"HR\ProtimeExport\" +#Define ProtimeFilePathUnitTest $$UnitTestRoot^vhConstant_"HR\ProtimeExport\" + + + ;********************************************************************** + ;** ** + ;** Bij wijziging gelieve klassen in package DOM.HR te hercompileren ** + ;** ** + ;********************************************************************** \ No newline at end of file Index: APPS/TBXWeb.inc.rou =================================================================== diff -u --- APPS/TBXWeb.inc.rou (revision 0) +++ APPS/TBXWeb.inc.rou (revision 760) @@ -0,0 +1,15 @@ + /// Routine : APPS.TBXWeb.INC + /// + /// Author : Wim Vermeulen + /// Created : 18/10/2010 + /// + + +#include vhLib.Macro +#include %occInclude + +#Include APPS.TBXWeb.EMailAdressen +#Include APPS.TBXWeb.DomeinNamen + +#define Vertaling(%s,%t) ##class(Res.Vertaling).GetVertaling("TBW",%s,"L",%t) + \ No newline at end of file Index: Activate/IWshRuntimeLibrary.inc.rou =================================================================== diff -u --- Activate/IWshRuntimeLibrary.inc.rou (revision 0) +++ Activate/IWshRuntimeLibrary.inc.rou (revision 760) @@ -0,0 +1,50 @@ +#; Enum CompareMethod +#define BinaryCompare 0 +#define DatabaseCompare 2 +#define TextCompare 1 +#; Enum IOMode +#define ForAppending 8 +#define ForReading 1 +#define ForWriting 2 +#; Enum Tristate +#define TristateFalse 0 +#define TristateMixed -2 +#define TristateTrue -1 +#define TristateUseDefault -2 +#; Enum FileAttribute +#define Alias 1024 +#define Archive 32 +#define Compressed 2048 +#define Directory 16 +#define Hidden 2 +#define Normal 0 +#define ReadOnly 1 +#define System 4 +#define Volume 8 +#; Enum DriveTypeConst +#define CDRom 4 +#define Fixed 2 +#define RamDisk 5 +#define Remote 3 +#define Removable 1 +#define UnknownType 0 +#; Enum SpecialFolderConst +#define SystemFolder 1 +#define TemporaryFolder 2 +#define WindowsFolder 0 +#; Enum StandardStreamTypes +#define StdErr 2 +#define StdIn 0 +#define StdOut 1 +#; Enum WshWindowStyle +#define WshHide 0 +#define WshMaximizedFocus 3 +#define WshMinimizedFocus 2 +#define WshMinimizedNoFocus 6 +#define WshNormalFocus 1 +#define WshNormalNoFocus 4 +#; Enum WshExecStatus +#define WshFailed 2 +#define WshFinished 1 +#define WshRunning 0 + \ No newline at end of file Index: CHUI/KB.inc.rou =================================================================== diff -u --- CHUI/KB.inc.rou (revision 0) +++ CHUI/KB.inc.rou (revision 760) @@ -0,0 +1,5 @@ + #Define InitDetailForm Set:($G(%frmDetail)="") %frmDetail=%Application.CreateForm("CHUI.Derde.KB.dlgDetail","frmDetail","frmDetail") + #Define InitModifyForm Set:($G(%frmModify)="") %frmModify=%Application.CreateForm("CHUI.Derde.KB.dlgModify","frmModify","frmModify") + #Define InitSearchForm Set:($G(%frmSearch)="") %frmSearch=%Application.CreateForm("CHUI.Derde.KB.dlgSearch","frmSearch","frmSearch") + #Define InitActionsForm Set:($G(%frmActions)="") %frmActions=%Application.CreateForm("CHUI.Derde.KB.dlgActions","frmActions","frmActions") + #Define InitHistoryForm Set:($G(%frmHistory)="") %frmHistory=%Application.CreateForm("CHUI.Derde.KB.dlgHistory","frmHistory","frmHistory") \ No newline at end of file Index: BL/Kenm/Common.inc.rou =================================================================== diff -u --- BL/Kenm/Common.inc.rou (revision 0) +++ BL/Kenm/Common.inc.rou (revision 760) @@ -0,0 +1,13 @@ + /// BL.Kenm.Common.INC + /// ================== + + + // KenmerkNaam voor conversie tussen PRNr en Multiple UnID's + #define KenmMultiPRNr "ProdMulti" + + + + + // Error Messages + #define msgMultipleNotAllowed(%v) "Multiple not allowed for group "_%v_"." + \ No newline at end of file Index: BL/Derde/Kennis.inc.rou =================================================================== diff -u --- BL/Derde/Kennis.inc.rou (revision 0) +++ BL/Derde/Kennis.inc.rou (revision 760) @@ -0,0 +1,62 @@ + #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 \ No newline at end of file Index: BL/Derde/KlantSpecifiek.inc.rou =================================================================== diff -u --- BL/Derde/KlantSpecifiek.inc.rou (revision 0) +++ BL/Derde/KlantSpecifiek.inc.rou (revision 760) @@ -0,0 +1,35 @@ +#define KlantAssenti 4451 +#define KlantBruynzeel 11708 +#define KlantDedecker 6780 +#define KlantDMLine 4830 +#define KlantFranssen 11211 +#define KlantGroupNivelles 4451 +#define KlantHaefeleB 4875 +#define KlantHaefeleNL 2671 +#define KlantHein 7833 +#define KlantKastID 9366 +#define KlantKeller 1239 +#define KlantLuma 5023 +#define KlantNeves 4855 +#define KlantOptimaPack 6279 +#define KlantSchachermayerNL 13446 +#define KlantSchachermayerAU 13823 +#define KlantSFS 12486 +#define KlantTotaalInterieurNL 9989 + + + ; Intern + #define KlantVanHoeckeNV 4682 + #define KlantVanHoeckeBV 9544 + #define KlantAtlasHolding 5069 + #define KlantBVanHoecke 6822 + #define KlantLVanHoecke 6819 + #define KlantTest 1000 + + ; IP vertegenwoordiger + #define KlantIPVtwLDS 3367 + #define KlantIPVtwPVT 8898 + + ;Leverancier als klant + #define KlantBlum 4628 + #define KlantHalux 7587 \ No newline at end of file Index: APPS/TBXWeb/DomeinNamen.inc.rou =================================================================== diff -u --- APPS/TBXWeb/DomeinNamen.inc.rou (revision 0) +++ APPS/TBXWeb/DomeinNamen.inc.rou (revision 760) @@ -0,0 +1,48 @@ + /// Routine : APPS.TBXWeb.DomeinNamen.INC + /// + /// Author : Wim Vermeulen + /// Created : 18/10/2010 + /// + +#include vhLib.Macro +#include %occInclude + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + /// | Gemeenschappelijke constanten | + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + + + ; === Domein namen === + #define TBoxWebDomeinVHEPN "www.tandem-box.com" + #define TBoxWebDomeinHEIN "tbx.tandem-box.de" + #define TBoxWebDomeinOPTIMA "www.optima-tbx.fr" + #define TBoxWebDomeinDUPONT "tbx.du-pont.be" + #define TBoxWebDomeinHELMY "tbx.destil.nl" + #define TBoxWebDomeinHFLE "hafele.tandem-box.com" + #define TBoxWebDomeinSFS "tbx.sfsunimarket.biz" + #define TBoxWebDomeinMBHO "tandembox.meubelbeslagholland.nl" + #define TBoxWebDomeinDEMO "demo.tandem-box.com" + + ; === Bijhorende Klantnummers === + #define TBoxWebKlantNrVHEPN "4682" + #define TBoxWebKlantNrHEIN "7833" + #define TBoxWebKlantNrOPTIMA "6279" + #define TBoxWebKlantNrDUPONT "1736" + #define TBoxWebKlantNrHELMY "4598" + ; HELMY : Old="2127" New="4598" (by WimV on 17/01/2006) + #define TBoxWebKlantNrHFLE "2671" + #define TBoxWebKlantNrSFS "12486" + #define TBoxWebKlantNrMBHO "2999" + #define TBoxWebKlantNrVHEPNDEMO "6819" + + + ; === Info pagina's voor de TBoxWeb handels === + #define HomePageVHEPN "http://www.vanhoecke.be" + #define TBoxInfoPageVHEPN "http://www.vanhoecke.be/nl/producten/tandem-box/" + + #define HomePageMBHO "http://www.meubelbeslagholland.nl" + ; #define TBoxInfoPageMBHO "http://www.meubelbeslagholland.nl/servodrive" + #define TBoxInfoPageMBHO "" + \ No newline at end of file Index: DOM/PM/OL.inc.rou =================================================================== diff -u --- DOM/PM/OL.inc.rou (revision 0) +++ DOM/PM/OL.inc.rou (revision 760) @@ -0,0 +1,54 @@ + /// Routine : DOM.PM.OL.INC + /// + /// Author : Jo Claes + /// Created : ../08/2010 + /// + +#include vhLib.Macro +#include %occInclude + +#include DOM.PM.TBX + + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + + #define OLKenmProductGroepFoto "GroepSleutel" + #define OLAantalProductFotos 8 + #define OLAantalFotoSorteerSleutels 4 + #define OLKenmFotoSorteerSleutelPrefix "FotoSorteerSleutel" + + #define OLKenmGroepSleutel "GroepSleutel" + #define OLKenmMateriaal "ProductType" + #define OLKenmKleur "Kleur" + #define OLKenmTekstSleutel "Sleutel" + #define OLKenmFotoSleutel "InfoSleutel" + + #define OLKenmerkGroepID "OL" + + ; === Interne kenmerkwaarde voor Tips === + #define TipXProductPastInBinnenLade "TIPS_Past_niet_in_Binnenlade" + #define TipXProductPastInBinnenVLade "TIPS_Past_niet_in_binnenvoorraadlade" + + // ZoneToepassing - Generieke waarde voor Alles + #define ToepassingALLES "ALLES" + #define ToepassingHogeLade "HogeLade" + #define ToepassingLageLade "LageLade" + + #define HogeLades "B;B/Z;C;C/Z;D;D/Z" + #define LageLades "M;M/Z;N;N/Z;K;K/Z" + + // extra marge ten opzichte van de producthoogte / rughoogte + #define VrijeHoogteExtraMarge 2 + + + #define DiepteCorr 24 + #define BreedteCorr 87 + #define DiepteCorr 24 + + #define IncludeUndefs 1 + #define ExcludeUndefs 0 + + + #define OLMateriaalPrefix "Mat_" + #define OLKleurPrefix "Klr_" + \ No newline at end of file Index: zTryout/ARC/DOM/OV/Order.inc.rou =================================================================== diff -u --- zTryout/ARC/DOM/OV/Order.inc.rou (revision 0) +++ zTryout/ARC/DOM/OV/Order.inc.rou (revision 760) @@ -0,0 +1,4 @@ +#define LinetypeAllLines "KF" +#define LinetypeProduct "KF0" +#define LinetypeManual "KF1925###" +#define LinetypeText "KF11" \ No newline at end of file Index: BL/Prod/OptiBox/SnijHistoriek.inc.rou =================================================================== diff -u --- BL/Prod/OptiBox/SnijHistoriek.inc.rou (revision 0) +++ BL/Prod/OptiBox/SnijHistoriek.inc.rou (revision 760) @@ -0,0 +1,18 @@ +#Include BL.Sys.Proxy + +#define GetOptimumTotalWaste(%i) $G(Optimum(%i),-1) +#define GetOptimumBruto(%i,%breedte) $LG($G(Optimum(%i, %breedte)),1,0) +#define GetOptimumNetto(%i,%breedte) $LG($G(Optimum(%i, %breedte)),2,0) +#define GetOptimumWaste(%i,%breedte) $LG($G(Optimum(%i, %breedte)),3,0) + +#define GetCurrentCalcBreedte(%i) $LG($G(CurrentCalc(%i)),1,0) +#define GetCurrentCalcBruto(%i) $LG($G(CurrentCalc(%i)),2,0) +#define GetCurrentCalcNetto(%i) $LG($G(CurrentCalc(%i)),3,0) +#define GetCurrentCalcWaste(%i) $LG($G(CurrentCalc(%i)),4,0) + +#define GetCumulDataLengte(%breedte) $LG($G(CumulData(%breedte)),1,0) +#define GetCumulDataOpp(%breedte) $LG($G(CumulData(%breedte)),2,0) +#define GetCumulDataMinCardboardBreedte(%breedte) $LG($G(CumulData(%breedte)),3,-1) +#define GetCumulDataMaxCardboardBreedte(%breedte) $LG($G(CumulData(%breedte)),4,-1) + +#define GetTrialBreedte(%i) $G(Trial(%i),0) \ No newline at end of file Index: BL/Sys/FOP/Common.inc.rou =================================================================== diff -u --- BL/Sys/FOP/Common.inc.rou (revision 0) +++ BL/Sys/FOP/Common.inc.rou (revision 760) @@ -0,0 +1,139 @@ + /// Routine : BL.Sys.FOP.Common.INC + /// + /// Author : Wim Vermeulen + /// Created : 12/12/2006 + /// + + #include %occInclude + #include %VHMacro + #include DocBaseCNTs + #include VHSys.Scheduler + + // ResourceName for the DocBaseWS Lock (prevent simultaneous async WS-calls) + #define ResDocBaseWS SysFOPDocBaseWSProcess + // ResourceName for the FaxWS Lock (prevent simultaneous async WS-calls) + #define ResFaxWS SysFOPFaxWSProcess + + // Error messages etc. + #define msgSOAPTRAP "SOAP TRAP" + #define StringEmpty $C(0) + #define ErrorNextOnQueue $$$ERROR($$$GeneralError,"Cannot find/open next task on Queue.") + #define ErrorProxyEmpty(%v) $$$ERROR($$$GeneralError,%v_" is empty.") + #define ErrorProxyPLEmpty $$$ErrorProxyEmpty("List pxDoc.PrijsLijsten") + + + + ; === Path to disk locations === + + // Suffixes are FOP (accessible from FOP-server), Ntw (Network), User (User-share), URL (converted web-dir) + #define ArchiveDirFOP "\\Notes01\e$\archive\" + #define ArchiveDirUser "\\Notes01\archive\" + + #define CvtFop2Ntw(%v) $$$CvtFopC2Ntw($$$CvtFopE2Ntw(%v)) + #define CvtFopC2Ntw(%v) $$$Replace(%v,"C:\","\\fop\c$\") + #define CvtFopE2Ntw(%v) $$$Replace(%v,"E:\","\\fop\e$\") + + #define OMRSourceDir "E:\FOP\PPOD_Out\" + #define OMRSourceDirNtw $$$CvtFopE2Ntw($$$OMRSourceDir) + #define OMRPrintDir "E:\FOP\OMR_Print\" + #define OMRPrintDirNtw $$$CvtFopE2Ntw($$$OMRPrintDir) + + #define PPODSourceDir "E:\FOP\PPOD_Out\" + #define PPODSourceDirNtw $$$CvtFopE2Ntw($$$PPODSourceDir) + #define PPODFaxDir "E:\FOP\PPOD_Fax\" + #define PPODFaxDirNtw $$$CvtFopE2Ntw($$$PPODFaxDir) + + #define PDFMailDir "E:\FOP\PDF_Mail\" + #define PDFMailDirNtw $$$CvtFopE2Ntw($$$PDFMailDir) + + #define FOPInetPubURL "http://fop/pdfs/" + #define FOPInetPubDir "E:\InetpubFOP\pdfs\" + #define FOPInetPubDirNtw $$$CvtFopE2Ntw($$$FOPInetPubDir) + + + + // === PPOD fields : Type === + + ;Factuur + #define ppodtFactuur "FACTUUR" + ;PrijstLijst + #define ppodtPrijsLijst "PRIJSLIJST" + ;Rappel + #define ppodtRappel "RAPPEL" + // Gebruikt, maar niet in PPOD : + ;Order + #define ppodtOrder "ORDER" + ;Offerte + #define ppodtOfferte "OFFERTE" + ;Levering + #define ppodtLevBon "LEVBON" + ;Toelevering + #define ppodtToelev "TOELEV" + + ;TransportLijst + #define ppodtTransportLijst "TRANSPORTLIJST" + ;Pakbon + #define ppodtPakbon "PAKBON" + + // !!! BIJ WIJZIGING volgende routine uitvoeren !!!, boven elke macro de stringversie in commentaar + // d GenerateRes^vhTools("FOP.DocRepo.PPOD","BL.Sys.FOP.Common","Type","PPOD fields Type","ppodt",1) + + + ; === PPOD fields : Regio === + + ;Boekhouding + #define ppodrIntern "BKH" + ;Belgi� + #define ppodrBelgie "BE" + ;Europa + #define ppodrEurRegio "EUR" + ;Andere + #define ppodrAndere "XX" + ;Kopie + #define ppodrKopieAan "KOPIE" + + // !!! BIJ WIJZIGING volgende routine uitvoeren !!!, boven elke macro de stringversie in commentaar + // d GenerateRes^vhTools("FOP.DocRepo.PPOD","BL.Sys.FOP.Common","Regio","PPOD fields Regio","ppodr",1) + + + + // === Miscellaneous === + + // BL-class for the CHUI.Print interface + #define cmPrint ##class(BL.FOP.Print) + + // Reprint suffix added to Printgroup + #define ResetSuffix "-RE" + + // Printlog types + #define pltPrint 1 + + // PPOD Statuses + #define psCompleted "C" + #define psWaiting "W" + + // Delimiter for Task.KeyWords + #define TaskKeyWordDelim ";" + + // Delimiter voor Xslt-Parameter configs (i.e. samengestelde parameters zoals pStaplingConfig = Stapling_StapleOption_OutputTray + #define xslpDelim "_|_" + + // LevDocType (ldt) : Type bepaalt de parameters/combinatie voor het afdrukken van doc/papier/logo/... + #define ldtBonWit "BonWit" + #define ldtBonWitBewijs "BonWit_Bewijs" + #define ldtBewijsBonWit "Bewijs_BonWit" + #define ldtBonWitBonGeel "BonWit\BonGeel" + #define ldtBonWitBewijsLos "BonWit\Bewijs" + #define ldtBonGeel "BonGeel" + #define ldtBonBlanco "BonBlanco" + + #define ldtPakbon "Pakbon" + #define ldtAddPakbonLos "\"_$$$ldtPakbon + #define ldtBeginPakbonLos $$$ldtPakbon_"\" + + + // Mail From adres voor FOP-server (DocBase) + #define FopMailFromKort "" + #define FopMailFrom """PDF-service VH"" " + + \ No newline at end of file Index: BL/Derde/LevSpecifiek.inc.rou =================================================================== diff -u --- BL/Derde/LevSpecifiek.inc.rou (revision 0) +++ BL/Derde/LevSpecifiek.inc.rou (revision 760) @@ -0,0 +1,9 @@ + ;Leverancier + #define LevBlum 5005 + #define LevHalux 6332 + #define LevAdditek 6502 + #define LevGLS 5036 + #define LevVanHoecke 6051 + #define LevBaliko 5938 + #define LevDekaply 7025 + \ No newline at end of file Index: VHSys/Scheduler.inc.rou =================================================================== diff -u --- VHSys/Scheduler.inc.rou (revision 0) +++ VHSys/Scheduler.inc.rou (revision 760) @@ -0,0 +1,71 @@ + /// Routine : VHSys.Scheduler.INC + /// + /// Author : Wim Vermeulen + /// Created : 16/04/2007 (originally in previous version on 12/12/2006) + /// + +#include %VHMacro + + #define ClassEvent(%v) ..ResourceNameFromClass(%v) + + /// Resource name voor Lock bij seri�le verwerking van QItem's + /// De effectieve lock gebeurt op subnode SingleLockKey --> bvb: Lock +$$$SchedProcessSerial(SingleLockKey):LockTimeOut + #define SchedProcessSerial SchedProcessSerial + + + // QueueItem Status : applies to VHSys.Scheduler.QueueItem objects + // prefix "qs" + #define qsWait "W" + #define qsStarted "S" + #define qsBusy "B" + #define qsError "E" + #define qsProcessed "P" + #define qsFinished "F" + #define qsSync "Y" + + // Task Status : applies to VHSys.Scheduler.Task and VHSys.Scheduler.emSeqItem objects + // prefix "ts" + #define tsDataFetched "D" + #define tsBusy "B" + #define tsError "E" + #define tsProcessed "P" + #define tsFinished "F" + + // RunMode : geeft aan hoe de taak verwerkt wordt + // Applies to VHSys.Scheduler.Task and Sys.FOP.emSeqItem objects + // prefix "rm" + #define rmSync "S" + #define rmInLine "I" + #define rmThreaded "T" + #define rmBatch "B" + + + // Priority: + // ========= + // Priority Type van een QueueItem. Priority wordt bepaald door een getal, een code of door de RunMode van een Task + // prefix "qpt" + #define qptValue "Value" + #define qptCode "Code" + #define qptRunMode "RunMode" + #define qptAuto "Auto" + + // Priority Value voor de Queue + // prefix "qpv" + #define qpvNull 0 + #define qpvMin 1 + #define qpvLow 2 + #define qpvMedium 5 + #define qpvHigh 8 + #define qpvMax 10 + + // Priority conversies/berekeningen + // + // PrioValue ; Value tussen 1 en 10 (incl.) + // PrioCode ; (L) = 1-2-3 (M) = 4-5-6 (H) = 7-8-9 (?) = 10 + // RunMode ; Batch=Low Threaded=Medium Sync=High + #define PrioViaValue(%v) $S(+%v<$$$qpvMin:"", %v<$$$qpvMax:%v, 1:$$$qpvMax) + #define PrioViaCode(%v) $CASE(%v, "L":$$$qpvLow, "M":$$$qpvMedium, "H":$$$qpvHigh, :$$$qpvNull) + #define PrioCodeFromRunMode(%v) $CASE(%v, $$$rmBatch:"L", $$$rmInLine:"M", $$$rmThreaded:"M", $$$rmSync:"H", :"") + #define PrioViaRunMode(%v) $CASE(%v, $$$rmBatch:$$$qpvLow, $$$rmInLine:$$$qpvMedium, $$$rmThreaded:$$$qpvMedium, $$$rmSync:$$$qpvHigh, :$$$qpvNull) + + \ No newline at end of file Index: APPS/PM/OL/Common.inc.rou =================================================================== diff -u --- APPS/PM/OL/Common.inc.rou (revision 0) +++ APPS/PM/OL/Common.inc.rou (revision 760) @@ -0,0 +1,106 @@ + /// Routine : APPS.PM.OL.Common.INC + /// + /// Author : Wim Vermeulen + /// Created : 31/05/2010 + /// + +#include vhLib.Macro +#include %occInclude + +#include DOM.PM.OL + + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + /// | Gemeenschappelijke constanten | + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + + + ; === ORGALUX MetaGroep === + #define KenmerkGroepID "OL" + + ; === GeneratieTypes (gt) === + #define gtMaster "MASTER" + #define gtSingle "SINGLE" + #define gtAuto "AUTO" + + ; === VariabelKenmerk Naam (varkm) === + #define varkmDiepte "Diepte" + #define varkmBreedte "Breedte" + #define varkmKleur "Kleur" + #define varkmWandDikte "WandDikte" + ; --> #define CvtMasterToVarKM(%m) ; Zie method GenereerVarianten() in class APPS.PM.OL.ExcelImport + + #define kenmerkMateriaal "ProductType" + + + ; === LogVerwerkt codes (lvw) === + #define lvwSAVED "SAVED" + #define lvwDELETED "DELETED" + + + ; === SplitListToColumns: Conversie voor CheckBox-columns === + #define BoolToChar(%bln) $S(%bln:"x",1:"") + #define ColCheckBoxToBool(%v) $$$LCase(%v)?1(1"x",1"v",1"1") + + #define BoolToJaLeeg(%bln) $S(%bln:"ja",1:"") + #define BoolToJaNee(%bln) $S(%bln:"ja",1:"nee") + #define ColCheckJaNeeToBool(%v) $$$LCase(%v)?1(1"ja",1"x") + + #define DelimSleutelVariaties ";" + + ; === Prefix in de KortTekst van de Producten === + #define PrefixKT "OL." + + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + /// | Gemeenschappelijke variabelen | + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + + + // === Kolom headers in Excel === + + ; Aantal kolommen voor ZoneToepassingen + #define MaxCntZoneToep $$MaxCntZoneToep^APPS.PM.OL.Common() + ; Aantal kolommen voor Tips (BOWeten) + #define MaxCntTips $$MaxCntTips^APPS.PM.OL.Common() + + ; Headers ListBuild + #define lbIdentificatie $$lbIdentificatie^APPS.PM.OL.Common() + #define lbSorteersleutels $$lbSorteersleutels^APPS.PM.OL.Common() + #define lbWebsitesShopsKMW $$lbWebsitesShopsKMW^APPS.PM.OL.Common() + #define lbMeubelToepassingenKMW $$lbMeubelToepassingenKMW^APPS.PM.OL.Common() + #define lbZoneToepassingenKMW $$lbZoneToepassingenKMW^APPS.PM.OL.Common() + #define lbSamenstellingsTypesKMW $$lbSamenstellingsTypesKMW^APPS.PM.OL.Common() + #define lbInformatie $$lbInformatie^APPS.PM.OL.Common() + #define lbAangeraden $$lbAangeraden^APPS.PM.OL.Common() + #define lbVereisten $$lbVereisten^APPS.PM.OL.Common() + #define lbFamiliesKMW $$lbFamiliesKMW^APPS.PM.OL.Common() + #define lbLadeTypesKMW $$lbLadeTypesKMW^APPS.PM.OL.Common() + #define lbLadeKleurenKMW $$lbLadeKleurenKMW^APPS.PM.OL.Common() + #define lbTips $$lbTips^APPS.PM.OL.Common() + #define lbIndividueel $$lbIndividueel^APPS.PM.OL.Common() + #define lbMasterVoor $$lbMasterVoor^APPS.PM.OL.Common() + + ; ZoneToepassingen KMW + #define lbZoneTpVoorraad $$lbZoneTpVoorraad^APPS.PM.OL.Common() + #define lbZoneTpOpbergen $$lbZoneTpOpbergen^APPS.PM.OL.Common() + #define lbZoneTpAfval $$lbZoneTpAfval^APPS.PM.OL.Common() + #define lbZoneTpVoorbereid $$lbZoneTpVoorbereid^APPS.PM.OL.Common() + #define lbZoneTpKoken $$lbZoneTpKoken^APPS.PM.OL.Common() + #define lbZoneTpAcc $$lbZoneTpAcc^APPS.PM.OL.Common() + #define lbZoneTpAndere $$lbZoneTpAndere^APPS.PM.OL.Common() + + ; Headers voor KMW's - Custom headers zijn mogelijk, indien een KMW niet duidelijk is + #define lbWebsitesShops $$lbWebsitesShops^APPS.PM.OL.Common() + #define lbMeubelToepassingen $$lbMeubelToepassingen^APPS.PM.OL.Common() + #define lbZoneToepassingen $$lbZoneToepassingen^APPS.PM.OL.Common() + #define lbSamenstellingsTypes $$lbSamenstellingsTypes^APPS.PM.OL.Common() + #define lbFamilies $$lbFamilies^APPS.PM.OL.Common() + #define lbLadeTypes $$lbLadeTypes^APPS.PM.OL.Common() + #define lbLadeKleuren $$lbLadeKleuren^APPS.PM.OL.Common() + + \ No newline at end of file Index: BL/PPS/TBX/WPZaag.inc.rou =================================================================== diff -u --- BL/PPS/TBX/WPZaag.inc.rou (revision 0) +++ BL/PPS/TBX/WPZaag.inc.rou (revision 760) @@ -0,0 +1,13 @@ + /// posities in de $LB arrSequences + #Define lbActie 1 + #Define lbQueueID 2 + #Define lbActionPosition 3 + + #Define BulkSortPerLade 1 + #Define BulkSortPerPlaat 2 + #Define BulkSortPerSequentie 3 + + // AchtergrondKleuren + #define BGColorStd "1" + #define BGColorInactive "2" + #define BGColorAttention "3" \ No newline at end of file Index: BL/Derde/Fax/UitgaandeFaxen.inc.rou =================================================================== diff -u --- BL/Derde/Fax/UitgaandeFaxen.inc.rou (revision 0) +++ BL/Derde/Fax/UitgaandeFaxen.inc.rou (revision 760) @@ -0,0 +1,38 @@ + ;d GenerateRes^vhTools("CHUI.Derde.Fax.UitgaandeFaxen","BL.Derde.Fax.UitgaandeFaxen","RaadpleegLijst","Omschrijving","fjs",1) + + ; FaxJobStatus + + ;Geannuleerd`a + #Define fjsCanceled 512 + ;Bezig met annuleren`? + #define fjsCanceling 1024 + ;Afgewerkt`v + #define fjsCompleted 256 + ;Niet gelukt`E + #define fjsFailed 8 + ;In verwerking`? + #define fjsInProgress 2 + ;Storing`E + #define fjsNoLine 32 + ;Onbekend`E + #define fjsNotFound 4096 + ;In pauze`? + #define fjsPaused 16 + ;Wachtend`W + #define fjsPending 1 + ;Max pogingen bereikt`E + #define fjsRetriesExceeded 128 + ;Nieuwe poging`? + #define fjsRetrying 64 + #define fjsRouting 2048 + ;Verzonden`v + #define fjsTransmittedSuccessfully 8192 + + ;Uitz. lang wachten`? + #define fjsMaxQueueTimeExceeded -1 + + ;Fout creatie faxtaak`E + #define fjsErrorWS "Error" + + ;Manuele actie`m + #define fjsManueleActie "Manueel" \ No newline at end of file Index: Activate/VHFaxCOMEx.inc.rou =================================================================== diff -u --- Activate/VHFaxCOMEx.inc.rou (revision 0) +++ Activate/VHFaxCOMEx.inc.rou (revision 760) @@ -0,0 +1,18 @@ +#; Enum TFaxJobStatus +#define fjsCanceled 512 +#define fjsCanceling 1024 +#define fjsCompleted 256 +#define fjsFailed 8 +#define fjsInProgress 2 +#define fjsNoLine 32 +#define fjsNotFound 4096 +#define fjsPaused 16 +#define fjsPending 1 +#define fjsRetriesExceeded 128 +#define fjsRetrying 64 +#define fjsRouting 2048 +#define fjsTransmittedSuccessfully 8192 + +#;User defined fax job status +#define udfjsMaxQueueTimeExceeded -1 + \ No newline at end of file Index: Prod/Kenmerk.inc.rou =================================================================== diff -u --- Prod/Kenmerk.inc.rou (revision 0) +++ Prod/Kenmerk.inc.rou (revision 760) @@ -0,0 +1,7 @@ + +#define AfbeeldingsToepassingDflt "WWW" +#define AfbeeldingsTextTypeFoto "LI" +#define AfbeeldingsTextTypeThumbnail "LB" + + +#define OrgaluxKenmerkGroep "OL" \ No newline at end of file Index: vhUnitTest/DOM/PM/OL/Gamma.inc.rou =================================================================== diff -u --- vhUnitTest/DOM/PM/OL/Gamma.inc.rou (revision 0) +++ vhUnitTest/DOM/PM/OL/Gamma.inc.rou (revision 760) @@ -0,0 +1,2 @@ +#define PRNrStart 1000 +#define PRNrStop 1099 \ No newline at end of file Index: APPS/TBXWeb/EMailAdressen.inc.rou =================================================================== diff -u --- APPS/TBXWeb/EMailAdressen.inc.rou (revision 0) +++ APPS/TBXWeb/EMailAdressen.inc.rou (revision 760) @@ -0,0 +1,63 @@ + /// Routine : APPS.TBXWeb.EMailAdressen + /// + /// Author : Jo Claes + /// Created : + /// + + ; === E-mail adressen voor verzenden van TBX Orders === + + #define EMailFrom2Any "AdminTBX@vanhoecke.be" + + #define EMailFrom2Hein "AdminTBX@vanhoecke.be" + #define EMailAnon2Hein "AdminTBX@hein-beschlag.de" + #define EMailOVHein """HEIN OV."" " + #define EMailOVHeinTEST """HEIN OV."" " + + #define EMailAnon2LMC "AdminTBX@vanhoecke.be" + #define EMailOVLMC2VH "OV_TBX_OPTIMA@vanhoecke.be" + #define EMailOVLMC """LMC OV."" " + #define EMailOVLMC2VHTEST """OV_TBX_OPTIMA"" " + #define EMailOVLMCTEST """OPTIMA OV."" " + + #define EMailAnon2Dupo "AdminTBX@du-pont.be" + #define EMailOVDupo """Du Pont OV."" " + #define EMailOVDupoTEST """Du Pont OV."" " + #define EMailAKDupo """Du Pont TBX Aankoop"" " + + #define EMailAnon2HelmY "AdminTBX@destil.nl" + #define EMailOVHelmY """Destil OV."" " + #define EMailOVHelmY02 """Twan Peters"" " + #define EMailOVHelmYTEST """Destil OV."" " + #define EMailAKHelmY """Destil TBX Inkoop"" " + + #define EMailAnon2Hfle "AdminTBX@hafele.nl" + #define EMailOVHfle """Hafele OV."" " + #define EMailOVHfleTEST """Hafele OV."" " + #define EMailAKHfle """Hafele TBX Inkoop"" " + + #define EMailAKUnknown """Extern TBX Aankoop"" " + + #define EMailAnon2Sfs "AdminTBX@vanhoecke.be" + #define EMailOVSfs2VH "OV_TBX_SFS@vanhoecke.be" + #define EMailOVSfs2VHTEST """OV_TBX_SFS"" " + #define EMailOVSfs """SFS OV."" " + #define EMailOVSfsBis """SFS OV."" " + #define EMailOVSfsTEST """SFS OV."" " + #define EMailAKSfs """SFS TBX Inkoop"" " + + #define EMailAnon2Mbho "AdminTBX@vanhoecke.be" + #define EMailOVMbho2VH "OV_TBX_MBHO@vanhoecke.be" + #define EMailOVMbho2VHTEST """OV_TBX_MBHO"" " + #define EMailOVMbho """MBHO OV."" " + ; #define EMailOVMbhoBis """MBHO OV."" " + #define EMailOVMbhoTEST """MBHO OV."" " + #define EMailAKMbho """MBHO TBX Inkoop"" " + + ; === E-mail adressen voor andere info === + #define EMailTBXInfo2Hein "info@tandem-box.de" + #define EMailTBXInfo2SfsFR "ferrements@sfsunimarket.biz" + #define EMailTBXInfo2SfsDU "beschlaege@sfsunimarket.biz" + #define EMailTBXInfo2Mbho "info@meubelbeslagholland.nl" + + ; === E-mail adressen voor ICT-administrator === (in geval van fout bij "Verzenden van het Order") + #define EMailICTAdminMbho "info@meubelbeslagholland.nl" \ No newline at end of file Index: BL/Prod.inc.rou =================================================================== diff -u --- BL/Prod.inc.rou (revision 0) +++ BL/Prod.inc.rou (revision 760) @@ -0,0 +1,59 @@ + #Define InitOldLocals New D,U,Q Set D="\",U=";",Q="K" + + + #define IdentNrLength 8 + + #Define blProductCreate(%id) Kill %blProduct Set Status=##class(BL.Prod.Product).Create(%id) Quit:($$$pxStatusIsERR(Status)) Status + + /* Prod.Search */ + ; Criteria Usage + #define ProdCritAtKortTekst "K" + #define ProdCritAtIdentNr "I" + #define ProdCritAtLevRef "LR" + #define ProdCritAtDossier "D" + #define ProdCritAtEAN "EAN" + + #define ProdCritUsagevHisieIP "VHISIE_IP" + #define ProdCritUsagevHisieKS "VHISIE_KS" + #define ProdCritUsagevHisieVTW "VHISIE_VTW" + #define ProdCritUsageOVKS "OV_KS" + #define ProdCritUsageOVIP "OV_IP" + #define ProdCritUsageOVALL "OV_ALL" + #define ProdCritUsageDynalog "DYNALOG" + #define ProdCritUsageAll "ALL" + #define ProdCritUsageHalux "HALUX" + #define ProdCritUsageDirectOrder "DO" + + ; Criteria Stock + #define ProdCritStock "S" + #define ProdCritStockNot "N" + #define ProdCritStockContract "C" + #define ProdCritStockDirectOrder "D" + + ; Criteria Producttype + #define ProdCritProdBeslag "B" + #define ProdCritProdMaatwerk "D" + #define ProdCritProdOrgalux "O" + + ; Criteria Active + #define ProdCritActive "A" + #define ProdCritActiveNon "N" + #define ProdCritActiveLimited "B" + + ; Criteria Saleable + #define ProdCritSaleable "S" + #define ProdCritSaleableChild "K" + #define ProdCritSaleableHalffabr "H" + + ; Criteria Pool + #define ProdCritPoolCustService "KS" + #define ProdCritPoolIndustrial "IP" + #define ProdCritPoolNotSpecified "NS" + + ; Criteria Sorted + #define ProdCritSortedSortKey "SK" + #define ProdCritSortedKortTekst "K" + #define ProdCritSortedNot "U" + + + \ No newline at end of file Index: vhLib/cspError.inc.rou =================================================================== diff -u --- vhLib/cspError.inc.rou (revision 0) +++ vhLib/cspError.inc.rou (revision 760) @@ -0,0 +1,11 @@ + + // From Method keywords +#define fmOnPreHTTP "OnPreHTTP" +#define fmHyperEventError "HyperEventError" + + // Error Type keywords (main categories to be distinguish when a CSP error occured) +#define etPageLoadError "PageLoadError" +#define etPreHTTPTimeOut "PreHTTPTimeOut" +#define etHyperEventError "HyperEventError" +#define etHyperEventTimeOut "HyperEventTimeOut" + \ No newline at end of file Index: vhLib/Macro.inc.rou =================================================================== diff -u --- vhLib/Macro.inc.rou (revision 0) +++ vhLib/Macro.inc.rou (revision 760) @@ -0,0 +1,96 @@ + + // Koppeling tussen User en IP adres / IO-device = +#define IctUserFromIP(%ip) $$$IctUserFromIP4($P(%ip,".",4)) +#define IctUserFromIP4(%ip4) $Case(%ip4, 15:"pv", 27:"cw", 97:"wv", 127:"jbl", 138:"wro", 150:"pra", 191:"csc" , 195:"jcl", 204:"fma" , 205:"csc", :"") + +#define UserFromDevice(%v) $$$TextBetween(%v,"|TNT|","_") +#define IctUserFromDevice(%v) $Select($$$UserFromDevice(%v)?1(1"pv",1"cw",1"wv",1"jbl",1"wro",1"pra",1"jcl",1"fma",1"csc"):$$$UserFromDevice(%v), 1:"") + +#define IctSysOp "ICT_SysOp@vanhoecke.be" +#define IctMeldingen "ICT_Meldingen@vanhoecke.be" + + // Constants +#define CRLF $C(13,10) +#define TAB $C(9) +#define NUL $C(0) +#define D "\" +#define PI 3.141592 + + // Math +#define Min(%v1,%v2) $S(%v1<%v2:%v1, 1:%v2) +#define Max(%v1,%v2) $S(%v1>%v2:%v1, 1:%v2) +#define Not(%v) '(%v) +#define ValIsBetween(%v,%min,%max) ((%v'<(%min))&&(%v'>(%max))) + +#define true 1 +#define True 1 +#define false 0 +#define False 0 + +#define Timestamp(%timearg) $zdatetime(%timearg,3,,6) + + // Cache Objects ($$$METH... --> zie %occReference2.INC) +#define Server $ZU(110) +#define NSpace $ZU(5) +#define IsClassMethod(%cls,%mth) $$$METHclassmethod($$$MGINFO,%cls,%mth) +#define IsWebMethod(%cls,%mth) $$$METHwebmethod($$$MGINFO,%cls,%mth) +#define MethodID(%cls,%mth) $$$METHid($$$MGINFO,%cls,%mth) +#define IsMethod(%cls,%mth) ($$$MethodID(%cls,%mth)>0) + + // String +#define Trim(%v) $ZSTRIP(%v,"<>W") +#define DePunc(%v) $TR($G(%v),",?;.:/=+-_&|'(!)~{}[]^`%$=<>""","") +#define DeSpace(%v) $translate(%v," ","") +#define UCase(%v) $ZCVT(%v,"U") +#define LCase(%v) $ZCVT(%v,"L") + // FCase: First character UpperCase, rest is unchanged +#define FCase(%v) $ZCVT($E(%v,1),"U")_$E(%v,2,$L(%v)) +#define Right(%v,%n) $E(%v,$L(%v)-%n+1,999) +#define RightN(%v,%n) $E(%v,$L(%v)-%n+1,999) +#define Right1(%v) $E(%v,$L(%v)) +#define LastPiece(%v,%d) $P(%v, %d, $L(%v,%d)) +#define TextBetween(%v,%f,%t) $P($P(%v,%f,2),%t,1) +#define Replace(%v,%f,%t) $$Replace^vhLib.String(%v,%f,%t) + // PieceFind: analoog aan $Find(String,SubString) en $ListFind(), maar nu ook de Delimiter opgeven +#define PieceFind(%s,%ss,%d) $L($P(%s,%ss),%d) + // StartsWith and StartsWithVar : als de tweede parameter (%ss) een variabele is, gebruik $$$StartsWithVar(), voor vaste tekst als zoekstring: gebruik $$$StartsWith() . +#define StartsWith(%s,%ss) (%s?1%ss.E) +#define StartsWithVar(%s,%ss) (($P(%s,%ss,1)="")&&($L(%s))) +#define Contains(%s,%ss) ($F(%s,%ss)>0) + + + // Arrays +#define aHasData(%v) $D(%v)#10 +#define aHasSubNodes(%v) $D(%v)>1 + + + // ListBuilds +#define LCVT(%v) $$LCVT^vhLib(%v) +#define IsList(%v) $$IsList^vhLib(%v) +#define LBDeleteAt(%lb,%i) $LI(%lb,1,%i-1)_$LI(%lb,%i+1,-1) +#define DoLBDeleteAt(%lb,%i) Set $LI(%lb,%i,%i)="" +#define DoLBDeleteAtIf(%c,%lb,%i) Set:(%c) $LI(%lb,%i,%i)="" + +#define ClassParameter(%v) ##class(%Library.CompiledParameter).%OpenId(%v).Default + +#define AddErrorToList(%List,%Code,%Desc) set %List = %List _ $listbuild($listbuild(%Code,%Desc)) + +#define SystemMail(%v) """"_%v_""" " + +#define Lock(%i,%t) Lock +^LOCKS(%i):%t +#define LockObj(%o,%i,%t) Lock +^LOCKS(%o.%ClassName(1),%i):%t +#define LockObjCon(%p,%o,%i,%t) Lock:%p +^LOCKS(%o.%ClassName(1),%i):%t + +#define UnLock(%i) Lock -^LOCKS(%i) +#define UnLockObj(%o,%i) Lock -^LOCKS(%o.%ClassName(1),%i) +#define UnLockObjCon(%p,%o,%i) Lock:%p -^LOCKS(%o.%ClassName(1),%i) + + +#define StripC0(%Local) $S($C(0)[$G(%Local):"",1:%Local) + + +#define LeftPadding(%s,%l,%c) $translate($justify(%s,%l)," ",$select(%c="":0,1:%c)) + + +#define ConfigGetString(%s) ##class(TECH.Config.ConfigMgr).Instance().GetString(%s) +#define ConfigGetBoolean(%s) ##class(TECH.Config.ConfigMgr).Instance().GetBoolean(%s) \ No newline at end of file Index: WS/WebService.inc.rou =================================================================== diff -u --- WS/WebService.inc.rou (revision 0) +++ WS/WebService.inc.rou (revision 760) @@ -0,0 +1,5 @@ + + +#define LogIncomming(%l,%m) do ##class(%l).%New().LogIncomming(..%ClassName(1),"%m") +#define LogOutgoing(%l,%m,%r) do ##class(%l).%New().LogOutgoing(..%ClassName(1),"%m",%r) + \ No newline at end of file Index: TECH/Error.inc.rou =================================================================== diff -u --- TECH/Error.inc.rou (revision 0) +++ TECH/Error.inc.rou (revision 760) @@ -0,0 +1,59 @@ + /// Routine : TECH.Error.INC + /// + /// Author : Paul Verhulst + /// Created : 11/08/2010 + /// + +#include vhLib.Macro +#include %occInclude + + + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + + +#define TECHErrorTrapOn Set $ETRAP="Do ##class(TECH.Error.impl.ErrorHandler).TrapHandler()" +#define TECHErrorTrapOff Set $ETRAP="" + +#define LocalErrorTrapOn $$$InitLocalErrorTrap Set $ETRAP="Do %TECHErrorLocalTrap("_$stack_").TrapHandler()" +#define LocalErrorTrapOnLabeled(%Label,%Opts) $$$InitLocalErrorTrap Set $ETRAP="Do %TECHErrorLocalTrap("_$stack_").TrapHandler("%Label","%Opts")" +#define LocalErrorTrapOff Kill %TECHErrorLocalTrap($stack) + +#define InitLocalErrorTrap Set %TECHErrorLocalTrap($stack)=%this + +#define CheckLocalErrorTraps $$$DollarOrderCheck $$$DollarDataCheck +#define DollarOrderCheck Set:($O(%TECHErrorLocalTrap($stack))'="") $ECODE="`PreviousTrapNotCleared" +#define DollarDataCheck Set:($D(%TECHErrorLocalTrap($stack))) $ECODE="`PreviousTrapNotCleared" + +#define ThrowError(%s,%v) Set $ECODE="`"_%s_"`"_%v_"`" +#define ThrowErrorStatus(%s,%v,%r) Set $ECODE="`"_%s_"`"_%v_"`"_$$ParseStatus^vhLib(%r)_"`" +#define ThrowErrorUser(%s,%v,%u) Set $ECODE="`"_%s_"`"_%v_"``"_%u, +#define ThrowErrorStatusAndUser(%s,%v,%r,%u) Set $ECODE="`"_%s_"`"_%v_"``"_%u + +#define ClearError Set $ECODE="" +#define StdHandling Do ##class(TECH.Error.impl.ErrorHandler).TrapHandler(.Label,.Options) +#define ReThrow ; Rethrow is automatic + +#define chkRequiredParameter(%p) If '$length($get(%p)) $$$ThrowError($$$errParameterRequired,"%p") +#define chkIsObject(%obj) If '$isobject(%obj) $$$ThrowError($$$errObjectExpected,"%obj") +#define chkValidateObject(%obj) Set sc=%obj.%ValidateObject() If $$$ISERR(sc) $$$ThrowErrorStatus($$$errObjectValidationFailed,"%obj",sc) +#define chkValidateDataType(%dt,%p) if '##class(%dt).IsValidDT(%p) $$$ThrowError($$$errInvalidInput,%p) + + +#define errGeneralError "1000:GeneralError" +#define errPropertyRequired "1001:PropertyRequired" +#define errParameterRequired "1002:ParameterRequired" +#define errParameterInvalid "1002:ParameterInvalid" +#define errObjectExpected "1003:ObjectExpected" +#define errLocked "1004:Locked" +#define errInvalidInput "1005:InvalidInput" +#define errInvalidOutput "1005:InvalidOutput" +#define errInvalidID "1007:InvalidID" +#define errCreateObject "1006:Create object" +#define errInvalidEnumeration "1008:InvalidEnumerationValue" +#define errUnimplemented "1009:Unimplemented" + +#define errObjectValidationFailed "3000:ObjectValidationFailed" +#define errSaveFailed "3001:SaveFailed" + +#define errUserError "5000:UserError" \ No newline at end of file Index: BL/Sys/Proxy.inc.rou =================================================================== diff -u --- BL/Sys/Proxy.inc.rou (revision 0) +++ BL/Sys/Proxy.inc.rou (revision 760) @@ -0,0 +1,30 @@ + //============ + // pxStatus + //============ + + ;Wanneer IsOK=1 en Message="" dan hoeft geen object te worden aangemaakt en is leeg teruggeven ook in orde + ;#Define pxStatusOK ##class(BL.Sys.Proxy.pxStatus).Create(1) + #Define pxStatusOK "" + #Define pxStatusOKAndMsg(%msg) ##class(BL.Sys.Proxy.pxStatus).Create(1,%msg) + #Define pxStatusError(%msg) ##class(BL.Sys.Proxy.pxStatus).Create(0,%msg) + #Define pxStatusErrorEx(%msg,%intmsg) ##class(BL.Sys.Proxy.pxStatus).Create(0,%msg,,%intmsg) + + #Define pxCacheStatus(%cs) $S($$$ISOK(%cs):$$$pxStatusOK,1:$$$pxStatusError($$ParseStatus^vhLib(%cs))) + #Define pxCacheStatusEx(%cs,%msg) $S($$$ISOK(%cs):$$$pxStatusOK,1:$$$pxStatusErrorEx(%msg,$$ParseStatus^vhLib(%cs))) + + //SmartStatus stuurt ook specifieke info terug in het data veld + #Define pxSmartStatusOK(%data) ##class(BL.Sys.Proxy.pxStatus).Create(1,,%data) + #Define pxSmartStatusOKAndMsg(%msg,%data) ##class(BL.Sys.Proxy.pxStatus).Create(1,%msg,%data) + #Define pxSmartStatusError(%msg,%data) ##class(BL.Sys.Proxy.pxStatus).Create(0,%msg,%data) + #Define pxSmartStatusErrorEx(%msg,%intmsg,%data) ##class(BL.Sys.Proxy.pxStatus).Create(0,%msg,%data,%intmsg) + + #Define pxSmartCacheStatus(%cs,%data) $S($$$ISOK(%cs):$$$pxSmartStatusOK(%data),1:$$$pxStatusError($$ParseStatus^vhLib(%cs))) + #Define pxSmartCacheStatusEx(%cs,%msg,%data) $S($$$ISOK(%cs):$$$pxSmartStatusOK(%data),1:$$$pxStatusErrorEx(%msg,$$ParseStatus^vhLib(%cs))) + + #Define pxStatusIsOK(%pxstatus) ((%pxstatus="") || (%pxstatus.IsOK'=0)) + #Define pxStatusIsERR(%pxstatus) ((%pxstatus'="") && (%pxstatus.IsOK=0)) + + + + //DEBUG + #Define WriteAndQuitOnError(%ok) If $$$pxStatusIsERR(%ok) W "ERROR: "_%ok.FullMsg(),! Quit \ No newline at end of file Index: DOM/PM/TBX.inc.rou =================================================================== diff -u --- DOM/PM/TBX.inc.rou (revision 0) +++ DOM/PM/TBX.inc.rou (revision 760) @@ -0,0 +1,15 @@ + + + +#define AftrekRug 87 + +#define RugHoogteNmm 53 +#define RugHoogteMmm 68 +#define RugHoogteKmm 100 +#define RugHoogteBmm 119 +#define RugHoogteCmm 151 +#define RugHoogteDmm 183 + + + + \ No newline at end of file Index: Sys/FOP/Settings.inc.rou =================================================================== diff -u --- Sys/FOP/Settings.inc.rou (revision 0) +++ Sys/FOP/Settings.inc.rou (revision 760) @@ -0,0 +1,19 @@ + ; Process types + #define ptDispatch "D" + #define ptProcess "P" + #define ptHighPrioProcess "H" + #define ptPreFetchData "F" + #define ptWatchDog "W" + + ; Status types + #define stNone "" + #define stWaiting "W" + #define stDataFetched "D" + #define stProcessed "P" + #define stReady "R" + + ; Event types + #define evFetchData "FOP.FETCHDATA" + #define evRender "FOP.RENDER" + + \ No newline at end of file Index: DOM/DomeinContext.inc.rou =================================================================== diff -u --- DOM/DomeinContext.inc.rou (revision 0) +++ DOM/DomeinContext.inc.rou (revision 760) @@ -0,0 +1,6 @@ + +#define CRMGeefKlantAPI ##class(DOM.DomeinContext).Instance().GeefKlantAPI() +#define CRMGeefKlant(%Nr) $$$CRMGeefKlantAPI.GeefKlant(%Nr) + +#define PMGeefProductAPI ##class(DOM.DomeinContext).Instance().GeefProductAPI() +#define PMGeefProduct(%Nr) $$$PMGeefProductAPI.GeefProduct(%Nr) \ No newline at end of file Index: BL/PPS/TBX/Common.inc.rou =================================================================== diff -u --- BL/PPS/TBX/Common.inc.rou (revision 0) +++ BL/PPS/TBX/Common.inc.rou (revision 760) @@ -0,0 +1,31 @@ + #define LevHalux 6332 + + #define TimeStamp $zdt($H,3) + + #define PPSOutputV1 1 + #define PPSOutputLosOnderdeel 2 + #define PPSOutputVertStack 3 + + /// Optimisatie status + #Define osNVT "X" + #Define osWachtend "W" + #Define osOptimize "O" + #Define osQueued "Q" + #Define osFinished "F" + #Define osError "E" + + /// Werkpost status + #Define wsWachtend "W" + #Define wsNVT "X" + #Define wsFinished "F" + #define wsBeschadigd "B" + #Define wsCurrent "I" + #Define wsQueued "Q" + #define wsOnderdeelMissing "M" + + /// Tandembox lade status + #Define tsWachtend "W" + #define tsPostponed "D" + #Define tsFinished "F" + #Define tsRemoved "X" + #Define tsError "E" \ No newline at end of file Index: zTryout/FM/Util/Orders.inc.rou =================================================================== diff -u --- zTryout/FM/Util/Orders.inc.rou (revision 0) +++ zTryout/FM/Util/Orders.inc.rou (revision 760) @@ -0,0 +1,4 @@ +#define LinetypeAllLines "KF" +#define LinetypeProduct "KF0" +#define LinetypeManual "KF1925###" +#define LinetypeText "KF11" \ No newline at end of file Index: BL/Prod/OptiBox.inc.rou =================================================================== diff -u --- BL/Prod/OptiBox.inc.rou (revision 0) +++ BL/Prod/OptiBox.inc.rou (revision 760) @@ -0,0 +1,85 @@ + #Include BL.Sys.Proxy + + + #Define debugHide "X;Q;T" + + + #Define blOptiBox Set:('$D(%blOptiBox)) %blOptiBox=##class(BL.Prod.OptiBox).Create() + + #Define blBoxData Set:('$D(%blBoxData)) %blBoxData=##class(BL.Prod.OptiBox.BoxData).%New() + #Define blBoxMeta Set:('$D(%blBoxMeta)) %blBoxMeta=##class(BL.Prod.OptiBox.BoxMeta).%New() + #Define blOptimize Set:('$D(%blProdOptiBoxOptimize)) %blProdOptiBoxOptimize=##class(BL.Prod.OptiBox.Optimize).%New() + + ;BoxData groep (ObjType) + #Define bdgProduct "PR" + + #define SplitID(%ID) $P(%ID,"||"),$P(%ID,"||",2) + #define UndefinedBoxUsage "*" + + #define TimeStamp(%dt) $zdt(%dt,3) + + #define snPRNr 1 + #define snProductRef 2 + #define snProductAantal 3 + #define snHasSnijDef 4 + #define snBoxUsage 5 + #define snPPSPrioriteit 6 + #define snAantalGevraagd 7 + #define snAantalQueued 8 + #define snAantalFinished 9 + #define snLabel 10 + + #define Log(%Niv,%Grp,%ID,%Ref,%Actie,%Dtl,%Obj) ##class(DS.Prod.OptiBox.Logging).Create(,,%Niv,%Grp,%ID,%Ref,%Actie,%Dtl,%Obj) + #define LogUpdate(%oLog,%Niv,%Grp,%ID,%Ref,%Actie,%Dtl,%Obj) %oLog.Update(%Niv,%Grp,%ID,%Ref,%Actie,%Dtl,%Obj) + #define LastLogCreate(%Niv,%Grp,%ID,%Ref,%Actie,%Dtl,%Obj) Set %LastLog=##class(DS.Prod.OptiBox.Logging).Create(,,%Niv,%Grp,%ID,%Ref,%Actie,%Dtl,%Obj) + #define LastLogUpdate(%Niv,%Grp,%ID,%Ref,%Actie,%Dtl,%Obj) Do:$isObject($G(LastLog)) LastLog.Update(%Niv,%Grp,%ID,%Ref,%Actie,%Dtl,%Obj) + #define WebServiceTrap New $ESTACK,$ETRAP Set $ETRAP="Do WebServiceTrap^BL.Prod.OptiBox.Common()" + #define MailTrapAndHandled New $ESTACK,$ETRAP Set $ETRAP="Do MailTrapAndHandled^BL.Prod.OptiBox.Common()" + #define MailTrap New $ESTACK,$ETRAP Set $ETRAP="Do MailTrap^BL.Prod.OptiBox.Common()" + #define DebugIP Set %ClientIP=##class(DS.Prod.OptiBox.Logging).GetIP() + ; tijdelijk + #define PSSet(%Prop,%Var) + #define PSGet(%Prop,%Var) + + ;QUEUE macro's + ;indien de defines correct zijn, deze in INC plaatsen + #Define qvoShowAlsoFinishedToday 1 + #Define qvoShowAlsoFinished 2 + + ; Snij Status + #Define ssFinished "F" + #Define ssVolume "V" + #Define ssBlocked "X" + #Define ssQueued "Q" + #Define ssError "E" + #Define ssMissing "M" + #Define ssPartieel "P" + #Define ssWachtend "W" + + ; queue status + #Define qsFinished "F" + #Define qsStarted "S" + #Define qsQueued "Q" + #Define qsOnline "ON" + #Define qsOffline "OF" + #Define qsWrongCardboard "W" + #Define qsError "E" + + ; labelprint status + #Define psPrinted "P" + + ; queue type + #Define qtOptimizer "O" + #Define qtSnijden "S" + #Define qtMachine "M" + + #Define qotLeverancier "L" + #Define qotToelevering "T" + #Define qotOnbepaald "X" + + #define CallBack(%Class,%Method,%Param1) $LB(%Class,%Method,%Param1) + + ;Werkposten + #Define wpLosOnderdeel "LO" + #Define wpVerpakking "VERPAK" + #Define wpPers "PERS" \ No newline at end of file Index: vhLib/Class.inc.rou =================================================================== diff -u --- vhLib/Class.inc.rou (revision 0) +++ vhLib/Class.inc.rou (revision 760) @@ -0,0 +1,3 @@ +#define fldClassName 1 +#define fldIsPersistent 2 +#define fldCollection 3 \ No newline at end of file Index: PD/SHDocVw.inc.rou =================================================================== diff -u --- PD/SHDocVw.inc.rou (revision 0) +++ PD/SHDocVw.inc.rou (revision 760) @@ -0,0 +1,98 @@ +#; Enum CommandStateChangeCnstnts +#define CSCuNAVIGATEBACK 2 +#define CSCuNAVIGATEFORWARD 1 +#define CSCuUPDATECOMMANDS -1 +#; Enum OLECMDEXECOPT +#define OLECMDEXECOPTuDODEFAULT 0 +#define OLECMDEXECOPTuDONTPRMPTSR 2 +#define OLECMDEXECOPTuPROMPTUSER 1 +#define OLECMDEXECOPTuSHOWHELP 3 +#; Enum OLECMDF +#define OLECMDFuDEFHIDEONCTXTMENU 32 +#define OLECMDFuENABLED 2 +#define OLECMDFuINVISIBLE 16 +#define OLECMDFuLATCHED 4 +#define OLECMDFuNINCHED 8 +#define OLECMDFuSUPPORTED 1 +#; Enum OLECMDID +#define OLECMDIDuALLOWUILESSSAVES 46 +#define OLECMDIDuCLEARSELECTION 18 +#define OLECMDIDuCLOSE 45 +#define OLECMDIDuCOPY 12 +#define OLECMDIDuCUT 11 +#define OLECMDIDuDELETE 33 +#define OLECMDIDuDONTDOWNLOADCSS 47 +#define OLECMDIDuENABLEuINTERACTN 36 +#define OLECMDIDuFIND 32 +#define OLECMDIDuFOCUSVIEWCONTRLS 57 +#define OLECMDIDuFOCUSVWCNTRLSQRY 58 +#define OLECMDIDuGETPRINTTEMPLATE 52 +#define OLECMDIDuGETZOOMRANGE 20 +#define OLECMDIDuHIDETOOLBARS 24 +#define OLECMDIDuHTTPEQUIV 34 +#define OLECMDIDuHTTPEQUIVuDONE 35 +#define OLECMDIDuNEW 2 +#define OLECMDIDuONTOOLBARACTIVTD 31 +#define OLECMDIDuONUNLOAD 37 +#define OLECMDIDuOPEN 1 +#define OLECMDIDuPAGEACTIONBLOCKD 55 +#define OLECMDIDuPAGEACTIONUIQURY 56 +#define OLECMDIDuPAGESETUP 8 +#define OLECMDIDuPASTE 13 +#define OLECMDIDuPASTESPECIAL 14 +#define OLECMDIDuPREREFRESH 39 +#define OLECMDIDuPRINT 6 +#define OLECMDIDuPRINT2 49 +#define OLECMDIDuPRINTPREVIEW 7 +#define OLECMDIDuPRINTPREVIEW2 50 +#define OLECMDIDuPROPERTIES 10 +#define OLECMDIDuPROPERTYBAG2 38 +#define OLECMDIDuREDO 16 +#define OLECMDIDuREFRESH 22 +#define OLECMDIDuSAVE 3 +#define OLECMDIDuSAVEAS 4 +#define OLECMDIDuSAVECOPYAS 5 +#define OLECMDIDuSELECTALL 17 +#define OLECMDIDuSETDOWNLOADSTATE 29 +#define OLECMDIDuSETPRINTTEMPLATE 51 +#define OLECMDIDuSETPROGRESSMAX 25 +#define OLECMDIDuSETPROGRESSPOS 26 +#define OLECMDIDuSETPROGRESSTEXT 27 +#define OLECMDIDuSETTITLE 28 +#define OLECMDIDuSHOWFIND 42 +#define OLECMDIDuSHOWMESSAGE 41 +#define OLECMDIDuSHOWPAGEACTIONMN 59 +#define OLECMDIDuSHOWPAGESETUP 43 +#define OLECMDIDuSHOWPRINT 44 +#define OLECMDIDuSHOWSCRIPTERROR 40 +#define OLECMDIDuSPELL 9 +#define OLECMDIDuSTOP 23 +#define OLECMDIDuSTOPDOWNLOAD 30 +#define OLECMDIDuUNDO 15 +#define OLECMDIDuUPDATECOMMANDS 21 +#define OLECMDIDuUPDATEPAGESTATUS 48 +#define OLECMDIDuZOOM 19 +#; Enum SecureLockIconConstants +#define secureLockIconMixed 1 +#define secureLockIconScrnknwnBts 2 +#define secureLockIconSecure128Bt 6 +#define secureLockIconSecure40Bit 3 +#define secureLockIconSecure56Bit 4 +#define secureLockIconSecureFrtzz 5 +#define secureLockIconUnsecure 0 +#; Enum ShellWindowFindWindowptns +#define SWFOuCOOKIEPASSED 4 +#define SWFOuINCLUDEPENDING 2 +#define SWFOuNEEDDISPATCH 1 +#; Enum ShellWindowTypeConstants +#define SWCu3RDPARTY 2 +#define SWCuBROWSER 1 +#define SWCuCALLBACK 4 +#define SWCuEXPLORER 0 +#; Enum tagREADYSTATE +#define READYSTATEuCOMPLETE 4 +#define READYSTATEuINTERACTIVE 3 +#define READYSTATEuLOADED 2 +#define READYSTATEuLOADING 1 +#define READYSTATEuUNINITIALIZED 0 + \ No newline at end of file Index: BL/Prod/GAData.inc.rou =================================================================== diff -u --- BL/Prod/GAData.inc.rou (revision 0) +++ BL/Prod/GAData.inc.rou (revision 760) @@ -0,0 +1,195 @@ + /// Routine : BL.Prod.GAData.INC + /// + /// Author : Wim Vermeulen + /// Created : 07/02/2008 + /// + +#include %VHMacro +#include %occInclude + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + /// | To be reorganised | + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + +#define ValidPRNr(%v) (%v?2.7N) +#define gd ..GAData +#define DelimGroepSort ";" + + + + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + /// | Calculation of Product+Kost items | + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + + + /// CalcCache array keys (cckey) +#define cckeyCalcBasis "Basis" +#define cckeyCalcExtend "Extend" +#define cckeyActief "Actief" + + /* +; ------------- +; Template code +; ------------- +; (PRBASIC) Set tmpLB=$LB(Actief,"PRBASIC",SubGroep,SortNr,Oms,,,,)_ $LB(PRNr,KTekst,,KenmGrp,Kenm)_ $LB(Qty,KPrijs,GNetto,GTarra,IncludeBS) ; _ $LB(,)_ $LB(,,,,,,) +; (PRKENM) Set tmpLB=$LB(Actief,"PRKENM" ,SubGroep,SortNr,Oms,,,,)_ $LB(PRNr,KTekst,,KenmGrp,Kenm)_ $LB(Qty,KPrijs,GNetto,GTarra,IncludeBS) ; _ $LB(,)_ $LB(,,,,,,) +; (PR1DIM) Set tmpLB=$LB(Actief,"PR1DIM" ,SubGroep,SortNr,Oms,,,,)_ $LB(PRNr,KTekst,PRLen,KenmGrp,Kenm)_ $LB(Qty,KPrijs,GNetto,GTarra,IncludeBS)_ $LB(,)_ $LB(BrutPct,BrutStk,UitvalPct,UitvalStk,DimHF,DimHFBrut,DimHFUitval) +; (KOST) Set tmpLB=$LB(Actief,"KST" ,SubGroep,SortNr,Oms,TijdMulti,TijdWerk,TijdKost,KostPlaats)_ $LB(,,,,)_ $LB(,KPrijs,,,IncludeBS) ; _ $LB(,)_ $LB(,,,,,,) +; (EXTEND) Set tmpLB=$LB($G(FabrGroep),$G(XMLTags),$G(lbKMArgs),$G(FabrOms),$G(FabrPrep),$G(FabrTekst)) _ $LB(,,,$LB(FabrTekstX01,FabrTekstX02)) +; +; ; Groeperen $LB(): handig om list-pos te controleren! +; ; BASIS : $LB(1-9)_ $LB(10-14)_ $LB(15-19)_ $LB(20-21)_ $LB(22-28) +; ; EXTEND: $LB(1-6)_ $LB(7-10) +*/ + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + /// | List-items in the CalcBasis array (licb) | + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ +#define licbActief 1 +#define licbType 2 +#define licbSubGroep 3 +#define licbSortNr 4 +#define licbOms 5 +#define licbTijdWerk 6 +#define licbTijdKost 7 +#define licbMatKost 8 +#define licbKostPlaats 9 +#define licbPRNr 10 +#define licbKTekst 11 +#define licbPRLen 12 +#define licbKenmGrp 13 +#define licbKenm 14 +#define licbQty 15 +#define licbKPrijs 16 +#define licbGNetto 17 +#define licbGTarra 18 +#define licbIncludeBS 19 + ; Insert here ... +#define licbBrutPct 22 +#define licbBrutStk 23 +#define licbUitvalPct 24 +#define licbUitvalStk 25 +#define licbDimHF 26 +#define licbDimHFBrut 27 +#define licbDimHFUitval 28 + ; Append here ... + + /* +; // list-items (licb) voor PARAM, PARAMFORMULE en PARAMOBJ +;#define licbVal 0 +;#define licbProgLabel 0 +;#define licbBT 0 +;#define licbFMLFormule 0 +;#define licbOBJObjectID 0 +;#define licbOBJClassName 0 + */ + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + /// | List-items in the CalcExtended array (lice) | + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ +#define liceFabrGroep 1 +#define liceXMLTags 2 +#define licelbKMArgs 3 +#define liceFabrOms 4 +#define liceFabrPrep 5 +#define liceFabrTekst 6 +#define liceFabrTekstXmulti 10 + + + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + /// | PRBASIC : Default formules | + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ +#define prBasicActief 1 +#define prBasicPRNr "999999 ???" +#define prBasicKTekst ..ItemGetKortTekst(PRNr) +#define prBasicQty 1 +#define prBasicKPrijs ..ItemGetCifPPL(PRNr,.NoSa)*Qty +#define prBasicGNetto ..ItemGetGewicht("N",PRNr)*Qty +#define prBasicGTarra 0 +#define prBasicCacheLB $LB("","PRBASIC",SubGroep,SortNr,Oms,,,,)_ $LB(PRNr,KTekst,,,)_ $LB(Qty,KPrijs,GNetto,GTarra,IncludeBS) ; _ $LB(,)_ $LB(,,,,,,) + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + /// | PRKENM : Default formules | + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ +#define prKenmActief 1 +#define prKenmKenm $LB($LB("BasisType","?"),$LB("tB",1)) +#define prKenmKenmGrp ..dflKenmGrp +#define prKenmPRNr ..ProductViaKenmerkLijst(Kenm,KenmGrp) +#define prKenmKTekst ..ItemGetKortTekst(PRNr) +#define prKenmQty 1 +#define prKenmKPrijs ..ItemGetCifPPL(PRNr,.NoSa)*Qty +#define prKenmGNetto ..ItemGetGewicht("N",PRNr)*Qty +#define prKenmGTarra 0 +#define prKenmCacheLB $LB("","PRKENM",SubGroep,SortNr,Oms,,,,)_ $LB(PRNr,KTekst,,KenmGrp,Kenm)_ $LB(Qty,KPrijs,GNetto,GTarra,IncludeBS) ; _ $LB(,)_ $LB(,,,,,,) + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + /// | PR1DIM : Default formules | + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ +#define pr1dimActief 1 +#define pr1dimKenm $LB($LB("BasisType","?"),$LB("tB",1)) + ;#define pr1dimKenmGrp $G(%KenmGrpTBX) +#define pr1dimKenmGrp ..dflKenmGrp +#define pr1dimPRNr ..ProductViaKenmerkLijst(Kenm,KenmGrp) +#define pr1dimKTekst ..ItemGetKortTekst(PRNr) +#define pr1dimPRLen ..ItemGetPRLen(PRNr) +#define pr1dimBrutPct 0 +#define pr1dimBrutStk 3 +#define pr1dimUitvalPct 0 +#define pr1dimUitvalStk 0 +#define pr1dimDimHF "999999 ???" +#define pr1dimDimHFBrut (DimHF*(1+BrutPct))+BrutStk +#define pr1dimDimHFUitval (DimHFBrut*(1+UitvalPct))+UitvalStk +#define pr1dimQty 1 +#define pr1dimKPrijs ..ItemGetCifPPL(PRNr,.NoSa)*DimHFUitval/PRLen*Qty +#define pr1dimGNetto ..ItemGetGewicht("N",PRNr)*DimHFUitval/PRLen*Qty +#define pr1dimGTarra 0 +#define pr1dimCacheLB $LB("","PR1DIM",SubGroep,SortNr,Oms,,,,)_ $LB(PRNr,KTekst,PRLen,KenmGrp,Kenm)_ $LB(Qty,KPrijs,GNetto,GTarra,IncludeBS)_ $LB(,)_ $LB(BrutPct,BrutStk,UitvalPct,UitvalStk,DimHF,DimHFBrut,DimHFUitval) + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + /// | KST : Default formules | + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ +#define kstActief 1 +#define kstAddTijdKost Set TijdWerk=TijdWerk+SubKost Set TijdKost=TijdKost+SubKost ; emKost.StaffelCorr(SubKost,Staffel) +#define kstAddMatKost Set MatKost=MatKost+SubMat Set lbMatKost=$G(lbMatKost)_$LB($LB(SubMat,KostMatID)) +#define kstKPrijs ..CalcKost(KostPlaatsID,TijdKost,MatKost) +#define kstCacheLB $LB("","KST",SubGroep,SortNr,Oms,TijdWerk,TijdKost,$G(lbMatKost),KostPlaatsID)_ $LB(,,,,)_ $LB(,KPrijs,,,IncludeBS) ; _ $LB(,)_ $LB(,,,,,,) + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + /// | PARAM / -FORMULE / -OBJ : Default formules | + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + +#define prmActief 1 +#define prmVal "" +#define prmProgLabel Self.Eval("Val") +#define prmBT "" +#define prmFMLFormule "" +#define prmFMLVal Self.Eval("Formule") +#define prmFMLProgLabel $$$prmProgLabel +#define prmFMLBT "" +#define prmOBJProgLabel Self.Eval("Object") +#define prmOBJObject Self.GetObject() +#define prmOBJObjectID "" +#define prmOBJClassName "" +#define prmCacheLB $LB("") + + + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + /// | NAMES of GLOBALS for direct data access | + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + +#define globCalcCache ^Prod.GAData.CalcWV + /* +#define globProdKenmDataDef ^Prod.Ken.DataDefinitieD + */ + + + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + \ No newline at end of file Index: BL/Sys/Toegang.inc.rou =================================================================== diff -u --- BL/Sys/Toegang.inc.rou (revision 0) +++ BL/Sys/Toegang.inc.rou (revision 760) @@ -0,0 +1,85 @@ + #Include BL.Sys.Proxy + + #Define SessieEncrypt "SysToegang" + + #Define blTestExist(%blObj,%class) Set:'$D(%blObj) %blObj=$$NewClass^vhLib(%class) + + #Define blToegangCreate $$$blTestExist(%blToegang,"BL.Sys.Toegang") + #Define blToegangGroepCreate $$$blTestExist(%blToegangGroep,"BL.Sys.ToegangGroep") + #Define blSessionCreate $$$blTestExist(%blSession,"BL.Sys.Toegang.Session") + #Define blResourceCreate $$$blTestExist(%blResource,"BL.Sys.ToegangResource") + #Define blPermissionCreate $$$blTestExist(%blPermission,"BL.Sys.Permission") + #Define blToolTipCreate $$$blTestExist(%blToolTip,"BL.Sys.ToolTip") + + #Define StripC0(%Local) $S($C(0)[$G(%Local):"",1:%Local) + + #Define ReInstateSession(%SK) Set pxStatus=##class(BL.Sys.Toegang.Session).ReInstateSession(.%SK) Quit:($$$pxStatusIsERR(pxStatus)) pxStatus + #Define SaveSettingObj(%sn,%so) Set Status=##class(BL.Sys.Settings).SaveObject(%ECSession.GetIdentification(),%ECSession.Application,%sn,%so) Quit:($$$ISERR(Status)) $$$pxCacheStatusEx(Status,"Cannot load setting") + + #Define CheckAccessesViaToegang(%T,%RN,%lbRR) Set pxStatus=%blSession.HasAccess(%T,%RN,%lbRR) Quit:($$$pxStatusIsERR(pxStatus)) pxStatus + #Define CheckAccessViaToegang(%T,%RN,%RR) $$$CheckAccessesViaToegang(%T,%RN,$LB(%RR)) + + #Define CheckAccess(%RN,%RR) $$$CheckAccessViaToegang(%ECSession.ToegangID,%RN,%RR) + #Define CheckAccesses(%RN,%lbRR) $$$CheckAccessesViaToegang(%ECSession.ToegangID,%RN,%lbRR) + + ;AssocID types (zie Derde.Sys.Toegang) + ;!!! moet overeenkomen met keys uit vhintra/UI_General.XML !!! + #Define aitInternePersoon 1 + #Define aitMagazijn 2 + #Define aitVhisie 3 + + #Define ComposeSecurityID(%st,%id) ##class(BL.Sys.Security).ComposeSecurityID(%st,%id) + + ;==================== + ; ToegangsGroep namen + ;==================== + #Define tgnAdministrators "Administrators" + #Define tgnEveryone "Iedereen" + #Define tgnGuests "Bezoekers" + + #Define sidAdministrators $$$ComposeSecurityID($$$stToegangGroep,$$$tgnAdministrators) + #Define sidEveryone $$$ComposeSecurityID($$$stToegangGroep,$$$tgnEveryone) + #Define sidGuest $$$ComposeSecurityID($$$stToegangGroep,$$$tgnGuests) + + ;PermissionType + #Define ptAllow 1 + #Define ptDeny 2 + + ;PermissionAppliesTo + #Define patThisResource 1 + #Define patThisAndSubResources 2 + #Define patSubResourcesOnly 3 + + ;SecurityID type + #Define stToegang 1 + #Define stToegangGroep 2 + + ;==================== + ; Permission Rights + ;==================== + ;PS: Derde.Sys.emPermission->TranslateRights aanpassen als het aantal rechten wijzigt! + #Define prRead 1 + #Define prCreate 2 + #Define prDelete 3 + #Define prChange 4 + #Define prSave 5 + #Define prUse 6 + #Define prExecute 7 + + ;================ + ; Toegangscodes + ;================ + + ;PRODUCT + #Define tgProduct "Prod.Product" + #Define tgProdSelect "Prod.Select" + #Define tgOptiBox "OptiBox" + + ;KLANT + #Define tgKlantSelect "Klant.Select" + + ;================ + ; Applicaties + ;================ + + #Define appVhintra "vhintra" \ No newline at end of file Index: BL/Derde/Kennis/AutoRes.inc.rou =================================================================== diff -u --- BL/Derde/Kennis/AutoRes.inc.rou (revision 0) +++ BL/Derde/Kennis/AutoRes.inc.rou (revision 760) @@ -0,0 +1,86 @@ + ;Plaats hier macros die in ^RES voorkomen + + ;============================================================================================================= + ;RES: ActionDomain - d GenerateRes^vhTools("DERDE.KENNIS","BL.Derde.Kennis.AutoRes","ACTIONDOMAIN","Actiedomein","ad",1) + ;Boven elke macro: Oms + param KlantVriendelijk + + ;Contact\0 + #Define adContact "CON" + ;Persoonlijk\0 + #Define adContactPersoonlijk "CON:PERS" + ;Telefonisch\0 + #Define adContactTelefonisch "CON:TEL" + ;Logging\0 + #Define adContactLogging "CON:LOG" + ;Logging BKH\0 + #Define adContactLoggingBoekhouding "CON:LOGBKH" + ;Doelstelling\0 + #Define adContactDoelstelling "CON:DOELST" + ;Orderverwerking\0 + #Define adOrderVerwerking "OV" + ;Order ingave\0 + #Define adOrderVerwerkingIngave "OV:ING" + ;Offerte ingave\0 + #Define adOrderVerwerkingOfferteIngave "OV:OFFING" + ;Op bon zetten\0 + #Define adOrderVerwerkingOpBonZetten "OV:BON" + ;Facturatie\0 + #Define adOrderVerwerkingFacturatie "OV:FAC" + ;Magazijn\0 + #Define adMagazijn "MAG" + ;Picking\0 + #Define adMagazijnPicking "MAG:PICK" + ;Consolidatie\1 + #Define adMagazijnConsolidatie "MAG:CONS" + ;Boekhouding\0 + #Define adBoekhouding "BH" + ;Rappels\1 + #Define adBoekhoudingRappels "BH:RPL" + ;Kredietbeheer\0 + #Define adBoekhoudingKredietBeheer "BH:KB" + ;Productie\0 + #Define adProductie "PROD" + ;Voorbereiden\0 + #Define adProductieVoorbereiden "PROD:VB" + ;Bewerken\0 + #Define adProductieBewerken "PROD:BEW" + ;Assembleren\0 + #Define adProductieAssembleren "PROD:ASM" + ;Verpakken\0 + #Define adProductieVerpakken "PROD:VERP" + ;Document\0 + #Define adDocument "DOC" + ;Offerte\0 + #Define adOfferte "DOC:OFF" + ;Order\0 + #Define adOrder "DOC:ORD" + ;Leveringsbon\0 + #Define adLeveringsbon "DOC:LEVB" + ;Leveringoverzicht\0 + #Define adLeveringoverzicht "DOC:LEVO" + ;Transport\0 + #Define adTransport "DOC:TRNS" + ;Factuur\0 + #Define adFactuur "DOC:FAC" + ;Proforma\0 + #Define adProforma "DOC:PROF" + ;Werkbon\0 + #Define adWerkbon "DOC:WERKB" + + ;============================================================================================================= + ;RES: AutoShow - d GenerateRes^vhTools("DERDE.KENNIS","BL.Derde.Kennis.AutoRes","AUTOSHOW","Automatisch tonen","as",1) + ;Altijd + #Define asAlways "ALW" + ;Dagelijks + #Define asDaily "DAY" + ;Wekelijks + #Define asWeekly "WK" + ;Maandelijks + #Define asMonthly "MNTH" + ;Per order/lev/factuur + #Define asPerOrderLevFactuur "OLF" + ;Nooit + #Define asNever "NVR" + ;Niet actief + #Define asNotActive "NA" + \ No newline at end of file Index: BL/Sys/Resources.inc.rou =================================================================== diff -u --- BL/Sys/Resources.inc.rou (revision 0) +++ BL/Sys/Resources.inc.rou (revision 760) @@ -0,0 +1,28 @@ + + ;DERDE SYS + #Define rsTooltip "DB.Derde.Sys.ToolTip" + + #Define rsToegang "DB.Derde.Sys.Toegang" + #Define rsToegangGroep "DB.Derde.Sys.ToegangGroep" + #Define rsToegangResource "DB.Derde.Sys.ToegangResource" + #Define rsPermissions "DB.Derde.Sys.emPermission" + + ;PRODUCT + #Define rsProduct "DB.Prod.Product" + #Define rsProdVerpakking "Prod.Verpakking" + + ;KLANT + #Define rsKlant "DB.Derde.Klant.Klant" + + ;OPTIBOX + #Define rsOptiBox "DB.Prod.OptiBox" + #Define rsBoxData "DB.Prod.OptiBox.BoxData" + #Define rsBoxMeta "DB.Prod.OptiBox.BoxMeta" + + #Define rsOptimize "Prod.OptiBox.Optimize" + + #Define rsPPSTBXOptiBox "PPS.TBX.OptiBox" + + #Define rsPPSOLInpak "PPS.OL.Inpak" + + #Define rsPPSTBXWPZaag "PPS.TBX.WPZaag" \ No newline at end of file Index: BL/EC/Common.inc.rou =================================================================== diff -u --- BL/EC/Common.inc.rou (revision 0) +++ BL/EC/Common.inc.rou (revision 760) @@ -0,0 +1,264 @@ + #include vhLib.Macro + + #define PageSize 100 + #define PageWindowPlus 10 + #define PageWindowMin -10 + + ; Domein ^RES("Derde.EC","PI","DOMEIN") + #define domVanHoecke "VH" + #define domOrgalux "OL" + #define domHein "HEIN" + #define domOptima "OPTIMA" + + ; Toegangsgroep (verschillende mogelijkheden per domain) + ; Bijv tggVHIntern="INT", zoals omschreven in ^RES("DERDE.EC","PI","VH","D","INT") + #Define tggStandard "STD" + #Define tggVHIntern "INT" + #Define tggBigKlant "BIG" + #Define tggMaximum "MAX" + + ;Toegang zie global ^RES("DERDE.EC","PI","ACCESS") + ;d GenerateRes^vhTools("DERDE.EC","BL.EC.Common","ACCESS","Toegangen","tg") + #define tgMenu "MN" + #define tgWebShop "MN:WS" + #define tgOfferte "MN:OF" + #define tgOrder "MN:OD" + #define tgDirectOrder "MN:DO" + #define tgContractOrder "MN:CO" + #define tgFactuur "MN:FA" + #define tgUitlevering "MN:UL" + #define tgHistoriek "MN:HS" + #define tgFavorites "MN:FV" + #define tgKlantProdRef "MN:KPR" + #define tgIntraStat "MN:IS" + + #define tgIntMenu "IM" + #define tgAgendaDag "IM:AGD" + #define tgAgendaKlant "IM:AGK" + #define tgKennisAnker "IM:KA" + #define tgKlachten "IM:KL" + #define tgOmzet "IM:OMZ" + #define tgRecentVkp "IM:RV" + #define tgKlantInfo "IM:KI" + + #define tgKlantSelect "KS" + + #define tgProductTree "PT" + #define tgProductTxt "PS" + #define tgProductKortTekst "PS:KT" + #define tgProductIdentNr "PS:ID" + #define tgProductKlantRef "PS:KR" + #define tgProductLangTekst "PS:LT" + + #define tgWizard "WZ" + #define tgWizardTBX "WZ:TBX" + #define tgWizardGRP "WZ:GRP" + #define tgWizardTLM "WZ:TLM" + #define tgWizardHK "WZ:HK" + #define tgWizardSDM "WZ:SDM" + + ; Intersect : Opties met "I" betekend dat de opties pas geldig is als alle nivo (domein, klant en gebruiker) ze definieert (zoald menuitem) + ; Union : Opties met "U" betekend dat de opties geldig zijn als het in 1 nivo gedefinieerd is + + #define opOptions "OP" + #define opIsKS "OP:KS:U" + #define opAllowAllProd "OP:AAP:U" + #define opIsHandel "OP:HAN:U" + #define opNoPrice "OP:NP:U" + #define opHasProdRef "OP:PR:U" + #define opShowProdRef "OP:SPR" + #define opShowProdGrp "OP:SPG" + #define opShowUitgebreid "OP:SUG:U" + #define opShowProdDetail "OP:SPD:U" + #define opOldTandemBox "OP:OLDTBX" + + #define opMaxDomVanHoecke $LB($$$opShowProdRef,$$$opShowProdGrp,$$$opOldTandemBox) + + #define NoPrice 99.99 + + #define tgGrp(%Dom,%Grp) ^RES("DERDE.EC","PI",%Dom,"D",%Grp,"TG") + #define opGrp(%Dom,%Grp) ^RES("DERDE.EC","PI",%Dom,"D",%Grp,"OP") + #define tgDefault(%Dom) $$$tgGrp(%Dom,$$$tggStandard) + #define opDefault(%Dom) $$$opGrp(%Dom,$$$tggStandard) + #define tgMax(%Dom) $$$tgGrp(%Dom,$$$tggMaximum) + #define opMax(%Dom) $$$opGrp(%Dom,$$$tggMaximum) + + ;ControlType + #define ctRadio "Radio" + #define ctCheckBox "CheckB" + #define ctCombo "Combo" + #define ctEdit "Edit" + #define ctGroepVertical "GrpVert" + #define ctDate "Date" + + ; Product groep + #define pgManueel 3499 + #define pgBeslag 3410 + #define pgBeslagBlum 3411 + #define pgBeslagAndere 3412 + #define pgMaatWerk 3420 + #define pgMaatWerkALU 3421 + #define pgMaatWerkTBX 3422 + #define pgMaatWerkAndere 3423 + #define pgOrgalux 3430 + + #define pgAllProductGroepenList $LB($$$pgBeslagBlum,$$$pgBeslagAndere,$$$pgMaatWerkALU,$$$pgMaatWerkTBX,$$$pgMaatWerkAndere,$$$pgOrgalux) + + #define pgProductGroepenList $LB($LB($$$pgBeslag,$$$pgBeslagBlum,$$$pgBeslagAndere),$LB($$$pgMaatWerk,$$$pgMaatWerkALU,$$$pgMaatWerkTBX,$$$pgMaatWerkAndere),$$$pgOrgalux) + + ; Login encryptie + #define liPlain 0 + #define liMD5 1 + #define liBase64 10 + #define liHex 20 + #define SessieEncrypt "SessieGeheimeSleutel" + + ;Vertalingsgroep + #define VertalingsGroep "EC" + #define DynaPlugVertalingsGroep "DP" + + ;Status Error Codes + + ; Status Error codes -> 10XX = warning Sessie/toegang + #define errWrongLogin 1000 + + ; Status Error codes -> 15XX = severe Sessie/toegang + #define errSessionNoSave 1500 + #define errSessionWrongKey 1501 + #define errTransfer 1502 + #define errToegangIDNotExist 1503 + #define errOudWachtWoordFoutief 1504 + #define errWachtWoordTeKort 1505 + #define errWachtWoordTeLang 1506 + #define errToegangNoSave 1507 + #define errToegangNotAllowed 1508 + + ; Status Error codes -> 19XX = ProductAfgeleid (GAData + GAKader) + ; "GAData Product not created" + #define errGADataNoProd 1901 + ; "Error in GAData Product Build" + #define errGADataBuild 1902 + ; "GAData Product: Invalid products" + #define errGADataValidPR 1903 + ; "KPR Product not created" + #define errGADataNoKPRProd 1904 + ; "Geen Design gevonden" + #define errGADataNotFoundDS 1910 + ; "Geen Standaard Design" + #define errGADataNoStdDesign 1911 + ; "TemplateCode niet gevonden" + #define errGADataNotFoundTPCode 1912 + ; "TemplateID niet gevonden" + #define errGADataNotFoundTPID 1913 + + ; Diverse + #define Translate(%Key) ##class(Res.Vertaling).GetVertalingPlus($$$VertalingsGroep,%Key,"O",$S($L($G(%Taal)):%Taal,1:%ECSession.Taal),,1) + #define DynaPlugTranslate(%Key) ##class(Res.Vertaling).GetVertalingPlus($$$DynaPlugVertalingsGroep,%Key,"O",$S($L($G(Taal)):Taal,1:%ECSession.Taal),,1) + #define Link(%Key) ##class(Res.VertalingLink).GetLinkVertaling($$$VertalingsGroep,%Key,"LB",$S($L($G(%Taal)):%Taal,1:%ECSession.Taal),,"WWW") + #define errCreate(%Key) ##class(BL.EC.pxStatus).Create(%Key,$$$Translate(%Key)) + #define errCreateWithText(%Key,%Text) ##class(BL.EC.pxStatus).Create(%Key,$$$Translate(%Key)_%Text) + #define ListRemove(%List,%Pos) Set:%Pos %List=$LI(%List,1,%Pos-1)_$LI(%List,%Pos+1,$LL(%List)) + + + ;Dynaplug + #define dpStatusOK(%Key) ##class(BL.EC.pxDynaPlug).Create($$$OK,$$$DynaPlugTranslate(%Key)) + #define dpStatusERR(%Key) ##class(BL.EC.pxDynaPlug).Create(%Key,$$$DynaPlugTranslate(%Key)) + + #define WSInternalSecureKey "kuz5JafRew6ESPUD9a3aqAcA2a" + + ;BL.EC.Toegang - Logging + ;GetStatistics TimeInterval constanten + #define tiDaily 1 + #define tiHourly 2 + + ;Statistic Array nodes + #Define userKl 1 + #Define userVTW 2 + #Define userInt 3 + + #Define statReq 1 + #Define statSes 2 + #Define statUser 3 + #Define statGVO 4 + + ;Session + #define ReInstateSession(%SK) Set Status=##class(BL.EC.Session).ReInstateSession(.%SK) Quit:$isObject(Status) Status + #define ControleToegang(%Toegang,%Actie,%Detail) Set Status=%blSession.ControleToegang(%Toegang,%Actie,%Detail) Quit:$isObject(Status) Status + #define SaveSession Set Ok=%ECSession.%Save() + + ;AddToLog + #define logGrpToegang "REQ" + #define logGrpAgenda "AGN" + #define logGrpError "ERR" + #define logGrpSessie "SES" + #define logGrpDoelen "DOE" + + #define AddToLog(%n,%g,%a,%m) Do AddToLog^BL.EC.Common(%n,%g,%a,%m) + #define AddErrorToLog(%g,%a,%e) Do AddErrorToLog^BL.EC.Common(%g,%a,%e) + #define WebServiceTrap New $ESTACK,$ETRAP Set $ETRAP="Do WebServiceTrap^BL.EC.Common()" + #define MailTrap New $ESTACK,$ETRAP Set $ETRAP="Do MailTrap^BL.EC.Common()" + #define WP(%Val) D WLIP^vhDBG(15,%Val) + + #define InitOldLocals New D,U,Q Set D="\",U=";",Q="K" + + ; Webshop - offerte + #define OffStatHas(%oLijn,%Code) $LF(%oLijn.Status,%Code) + + #define OffStatMoederProduct "MP" + #define OffStatFoutievePrijs "VP" + + #define OffStatGeenProduct "GP" + #define OffStatGeenKindProduct "GPK" + #define OffStatLevertermijn "LT" + #define OffStatLevertermijnKind "LTK" + #define OffStatAantal "AA" + #define OffStatAantalKind "AAK" + #define OffStatAfgeleidProd "GA" + #define OffStatAfgeleidProdKind "GAK" + + #define OffLijnInsert "I" + #define OffLijnModify "M" + #define OffLijnDelete "D" + + #define OfferteOpen Do ..OpenOfferte() + #define OfferteSave Set Status=..SaveOfferte() + #define OfferteResetVerstuurd Set %blFlowOfferte.oOfferte.OverzichtVerstuurd="" + + ; Flow.Offerte.Product -> SearchKey + #define skPakket "PAKKET" + #define skIdentNr "I" + #define skKortTekst "K" + #define skEAN "EAN" + + ; business logic + #define blTestExist(%blObj,%class) Set:'$D(%blObj) %blObj=$$NewClass^vhLib(%class) + + #define blGeneral ;$$$blTestExist(%blGeneral,"BL.EC.General") + #define blSession $$$blTestExist(%blSession,"BL.EC.Session") + #define blToegang $$$blTestExist(%blToegang,"BL.EC.Toegang") + #define blData $$$blTestExist(%blData,"BL.EC.Data") + #define blEDI $$$blTestExist(%blEDI,"BL.EC.EDI") + #define blProduct $$$blTestExist(%blProduct,"BL.EC.Product") + #define blWebShop $$$blTestExist(%blWebShop,"BL.EC.WebShop") + #define blDynaPlan $$$blTestExist(%blDynaPlan,"BL.EC.DynaPlan") + #define blDynaPlug $$$blTestExist(%blDynaPlug,"BL.EC.DynaPlug") + #define blWizard $$$blTestExist(%blWizard,"BL.EC.Wizard") + #define blFlowOfferte $$$blTestExist(%blFlowOfferte,"BL.Flow.Offerte.Build") + #define blFlowOffProdGAData $$$blTestExist(%blFlowOffProdGAData,"BL.Flow.Offerte.ProductGAData") + #define blFlowOffProdGAKader $$$blTestExist(%blFlowOffProdGAKader,"BL.Flow.Offerte.ProductGAKader") + #define blFlowOffProd $$$blTestExist(%blFlowOffProd,"BL.Flow.Offerte.Product") + #define blFlowOffOrder $$$blTestExist(%blFlowOffOrder,"BL.Flow.Offerte.Convert2Order") + #define blLeverTermijn(%RefDate) Set:'$D(%blLeverTermijn) %blLeverTermijn=$$blLeverTermijn^BL.EC.Common(%RefDate) + + ;ClassMethods + #Define cmLogging ##class(BL.EC.Logging) + + ;RecordTypes + #Define rtPDF "PDF" + + ;FTP servername + #Define vHisieDownloadIntern "vhisiedownload.vanhoecke.be" + #Define vHisieDownloadExtern "http://res.vanhoecke.be/vhisiedownload" + + ;Constants + #Define cntPasswordChangedByUserMsg "Het paswoord is door de gebruiker zelf bepaald en wordt om veiligheidsredenen niet bewaard." \ No newline at end of file