Permalink
Browse files

Version 1.0

  • Loading branch information...
cubewise cubewise
cubewise authored and cubewise committed May 2, 2017
0 parents commit 18f9c1415c1d21bf8d17f42b94a9ff9665f60dc4
Showing with 15,557 additions and 0 deletions.
  1. +745 −0 Bedrock.Cube.Clone.pro
  2. +856 −0 Bedrock.Cube.Data.Copy.pro
  3. +569 −0 Bedrock.Cube.Data.ExportToFile.pro
  4. +716 −0 Bedrock.Cube.Data.ImportFromFile.pro
  5. +635 −0 Bedrock.Cube.Data.ViewExportToFile.pro
  6. +303 −0 Bedrock.Cube.Data.ZeroOut.pro
  7. +214 −0 Bedrock.Cube.Delete.pro
  8. +463 −0 Bedrock.Cube.Dimension.Replace.pro
  9. +323 −0 Bedrock.Cube.View.Delete.pro
  10. +285 −0 Bedrock.Cube.View.Publish.pro
  11. +343 −0 Bedrock.Cube.ViewAndSubsets.Create.pro
  12. +209 −0 Bedrock.Dim.AllConsols.Delete.pro
  13. +177 −0 Bedrock.Dim.AllElements.Delete.pro
  14. +161 −0 Bedrock.Dim.Attr.Delete.pro
  15. +315 −0 Bedrock.Dim.Attr.ImportFromFile.pro
  16. +186 −0 Bedrock.Dim.Attr.Insert.pro
  17. +219 −0 Bedrock.Dim.Attr.SwapAlias.pro
  18. +327 −0 Bedrock.Dim.Clone.pro
  19. +179 −0 Bedrock.Dim.Create.pro
  20. +196 −0 Bedrock.Dim.Destroy.pro
  21. +225 −0 Bedrock.Dim.Element.Create.pro
  22. +209 −0 Bedrock.Dim.Element.Delete.pro
  23. +283 −0 Bedrock.Dim.Element.Move.pro
  24. +210 −0 Bedrock.Dim.EmptyConsols.Delete.pro
  25. +325 −0 Bedrock.Dim.ExportToFile.pro
  26. +225 −0 Bedrock.Dim.Hierarchy.Unwind.All.pro
  27. +307 −0 Bedrock.Dim.Hierarchy.Unwind.Consolidation.pro
  28. +450 −0 Bedrock.Dim.ImportFromFile.pro
  29. +128 −0 Bedrock.Dim.Sub.Create.All.pro
  30. +138 −0 Bedrock.Dim.Sub.Create.Attribute.All.pro
  31. +140 −0 Bedrock.Dim.Sub.Create.Attribute.Leaf.pro
  32. +297 −0 Bedrock.Dim.Sub.Create.ByElement.pro
  33. +234 −0 Bedrock.Dim.Sub.Create.ByLevel.pro
  34. +312 −0 Bedrock.Dim.Sub.Create.ByMDX.pro
  35. +133 −0 Bedrock.Dim.Sub.Create.Consolidation.All.pro
  36. +135 −0 Bedrock.Dim.Sub.Create.Consolidation.Leaf.pro
  37. +130 −0 Bedrock.Dim.Sub.Create.Leaf.pro
  38. +246 −0 Bedrock.Dim.Sub.Create.Orphans.pro
  39. +256 −0 Bedrock.Dim.Sub.Create.TopLevelHierarchy.pro
  40. +443 −0 Bedrock.Dim.Sub.Create.pro
  41. +323 −0 Bedrock.Dim.Sub.Delete.pro
  42. +275 −0 Bedrock.Dim.Sub.Exclude.pro
  43. +389 −0 Bedrock.Dim.Sub.ExportToFile.pro
  44. +261 −0 Bedrock.Security.Client.Create.pro
  45. +221 −0 Bedrock.Security.Client.Delete.pro
  46. +316 −0 Bedrock.Security.Client.Group.Assign.pro
  47. +220 −0 Bedrock.Security.Client.Password.Reset.pro
  48. +135 −0 Bedrock.Security.ClientGroupSetup.pro
  49. +220 −0 Bedrock.Security.Group.Create.pro
  50. +219 −0 Bedrock.Security.Group.Delete.pro
  51. +377 −0 Bedrock.Security.Object.Assign.pro
  52. +143 −0 Bedrock.Security.Refresh.pro
  53. +143 −0 Bedrock.Server.SaveDataAll.pro
  54. +68 −0 README.md

Large diffs are not rendered by default.

Oops, something went wrong.

Large diffs are not rendered by default.

Oops, something went wrong.

Large diffs are not rendered by default.

Oops, something went wrong.

Large diffs are not rendered by default.

Oops, something went wrong.

Large diffs are not rendered by default.

Oops, something went wrong.
@@ -0,0 +1,303 @@
601,100
562,"NULL"
586,
585,
564,
565,"kTtW7YAvHzta[=1`1a<eFGUN_;vLsDKldSY_tq3kcB7Bjk[NfER7BR8=Iqp6dxp9BEm>2@wsp=wntPKA0yeL7ixv9r]Fh<2Vbw1h0FDh<w=q]ld<fO\fwBIWW;FLL7FeLpEe0]>WSZb\l2[oAyV]O:V0drPH2QACejc45ifUU_B]yDkCX>\i0Vkc<Fo`=b12;S8MdDkR"
559,0
928,0
593,
594,
595,
597,
598,
596,
800,
801,
566,0
567,","
588,"."
589,
568,""""
570,
571,
569,0
592,0
599,1000
560,5
pCube
pDelimDim
pDelimElem
pFilter
pDebug
561,5
2
2
2
2
1
590,5
pCube,""
pDelimDim,"&"
pDelimElem,"+"
pFilter,""
pDebug,0.
637,5
pCube,Cube Name
pDelimDim,Dimension Delimiter
pDelimElem,Element Delimiter
pFilter,Filter (Dim 1 + Elem1 + Elem2
pDebug,Debug Mode
577,0
578,0
579,0
580,0
581,0
582,0
572,170
#****Begin: Generated Statements***
#****End: Generated Statements****
#####################################################################################
##~~Copyright bedrocktm1.org 2011 www.bedrocktm1.org/how-to-licence.php Ver 1.0.0~~##
#####################################################################################
# This process automatically creates a view and zeros it out.
# It can handle specific element references for any number of dimensions and elements.
# Note:
# - The pFilter parameter contains the dimenson and elements to be used for filtering.
# - The format of the pFilter parameter is as follows (using the default delimiters of & and +):
# Dim1+Elem1+Elem2&Dim2+Elem3+Elem4
# - The dimension parameters do not need to be given in the index order of dimensions in the cube.
# - The dimension name is specified as the first member of the delimited string of elements.
### Constants ###
cProcess = 'Bedrock.Cube.Data.ZeroOut';
cTimeStamp = TimSt( Now, '\Y\m\d\h\i\s' );
cDebugFile = GetProcessErrorFileDirectory | cProcess | '.' | cTimeStamp | '.';
cView = '}' | cProcess | '.' | NumberToString( ROUND( RAND( ) *100000 ) );
cSubset = cView;
### Initialise Debug ###
If( pDebug >= 1 );
# Set debug file name
sDebugFile = cDebugFile | 'Prolog.debug';
# Log start time
AsciiOutput( sDebugFile, 'Process Started: ' | TimSt( Now, '\d-\m-\Y \h:\i:\s' ) );
# Log parameters
AsciiOutput( sDebugFile, 'Parameters: pCube : ' | pCube );
AsciiOutput( sDebugFile, ' pDelimDim : ' | pDelimDim );
AsciiOutput( sDebugFile, ' pDelimElem : ' | pDelimElem );
AsciiOutput( sDebugFile, ' pFilter : ' | pFilter );
EndIf;
### Validate Parameters ###
nErrors = 0;
# If blank delimiter specified then convert to default
If( Trim( pDelimDim ) @= '' );
pDelimDim = '&';
EndIf;
If( Trim( pDelimElem ) @= '' );
pDelimElem = '+';
EndIf;
# If no cube has been specified then terminate process
If( Trim( pCube ) @= '' );
nErrors = 1;
sMessage = 'No cube specified';
If( pDebug >= 1 );
AsciiOutput( sDebugFile, sMessage );
EndIf;
ItemReject( sMessage );
EndIf;
# If specified cube does not exist then terminate process
If( CubeExists( pCube ) = 0 );
nErrors = 1;
sMessage = 'Cube: ' | pCube | ' does not exist';
If( pDebug >= 1 );
AsciiOutput( sDebugFile, sMessage );
EndIf;
ItemReject( sMessage );
EndIf;
### Create View ###
If( pDebug <= 1 );
If( ViewExists( pCube, cView ) = 1 );
ViewDestroy( pCube, cView );
EndIf;
ViewCreate( pCube, cView );
ViewExtractSkipCalcsSet( pCube, cView, 0 );
ViewExtractSkipZeroesSet( pCube, cView, 1 );
ViewExtractSkipRuleValuesSet( pCube, cView, 1 );
EndIf;
### Split filter and create subsets ###
sFilter = pFilter;
nDelimDimIndex = 1;
# Split filter into seperate dimensions
While( nDelimDimIndex <> 0 & Long( sFilter ) > 0 );
nDelimDimIndex = Scan( pDelimDim, sFilter );
If( nDelimDimIndex <> 0 );
sArgument = Trim( SubSt( sFilter, 1, nDelimDimIndex - 1 ) );
sFilter = Trim( SubSt( sFilter, nDelimDimIndex + Long( pDelimDim ), Long( sFilter ) ) );
Else;
sArgument = Trim( sFilter );
EndIf;
# Split argument into dimension and elements
nDelimElemIndex = Scan( pDelimElem, sArgument );
If( nDelimElemIndex = 0 );
# Argument does not contain at least one delimiter (the first delimiter seperates the dimension name from the elements)
nErrors = 1;
sMessage = 'Filter not specified correctly: ' | sArgument;
If( pDebug >= 1 );
AsciiOutput( sDebugFile, sMessage );
EndIf;
ItemReject( sMessage );
EndIf;
sDimension = Trim( SubSt( sArgument, 1, nDelimElemIndex - 1 ) );
sElements = Trim( SubSt( sArgument, nDelimElemIndex + 1, Long( sArgument ) ) );
# Check that dimension exists in the cube
If( DimensionExists( sDimension ) = 1 );
# Step 3: Create subset and assign to view
If( pDebug <= 1 );
ExecuteProcess( 'Bedrock.Dim.Sub.Create.ByElement',
'pDimension', sDimension,
'pSubset', cSubset,
'pElements', sElements,
'pDelimiter', pDelimElem,
'pDebug', pDebug
);
If( SubsetGetSize( sDimension, cSubset ) > 0 );
ViewSubsetAssign(pCube, cView, sDimension, cSubset);
Else;
# Empty subset created. Cancel process
nErrors = 1;
sMessage = 'Dimension: ' | sDimension | ' created an empty subset';
If( pDebug >= 1 );
AsciiOutput( sDebugFile, sMessage );
EndIf;
ItemReject( sMessage );
EndIf;
EndIf;
Else;
# The dimension does not exist in the model. Cancel process
nErrors = 1;
sMessage = 'Dimension: ' | sDimension | ' does not exist';
If( pDebug >= 1 );
AsciiOutput( sDebugFile, sMessage );
EndIf;
ItemReject( sMessage );
EndIf;
End;
### Zero Out View ###
If( pDebug >= 1 );
AsciiOutput( sDebugFile, 'View and Subsets created' );
EndIf;
If( pDebug <= 1 );
ViewZeroOut( pCube, cView );
EndIf;
### End Prolog ###
573,3
#****Begin: Generated Statements***
#****End: Generated Statements****
574,3
#****Begin: Generated Statements***
#****End: Generated Statements****
575,35
#****Begin: Generated Statements***
#****End: Generated Statements****
#####################################################################################
##~~Copyright bedrocktm1.org 2011 www.bedrocktm1.org/how-to-licence.php Ver 1.0.0~~##
#####################################################################################
### Initialise Debug ###
If( pDebug >= 1 );
# Set debug file name
sDebugFile = cDebugFile | 'Epilog.debug';
# Log errors
If( nErrors <> 0 );
AsciiOutput( sDebugFile, 'Errors Occurred' );
EndIf;
# Log finish time
AsciiOutput( sDebugFile, 'Process Finished: ' | TimSt( Now, '\d-\m-\Y \h:\i:\s' ) );
EndIf;
### If errors occurred terminate process with a major error status ###
If( nErrors <> 0 );
ProcessQuit;
EndIf;
### End Epilog ###
576,CubeAction=1511 DataAction=1503 CubeLogChanges=0
638,1
804,0
1217,1
900,
901,
902,
903,
906,
929,
907,
908,
904,0
905,0
909,0
911,
912,
913,
914,
915,
916,
917,0
918,0
919,0
920,50000
921,""
922,""
923,0
924,""
925,""
926,""
927,""
Oops, something went wrong.

0 comments on commit 18f9c14

Please sign in to comment.