Can I Post Vbscript Code For Speeding/Fixing Things In Sap Powerdesigner

See more:

VBScript

Hi,
i have code for speeding/fixing things in SAP PowerDesigner, written in vbscript, so can i post it codeproject?
Here is one:

Prepare PDM model for Database Script Generation, by fixing some problems

Each time, I had several problems when generating the database creation script, so i created the following script to handle these issues.

which are mainly



* Collect and show the reference names that are longer than 128 characters, so we can shorten them.
* Stop the update and delete constrains for cyclic references, that start with: zRecursive, zRelDependent, zRelTwo, zzOptional, zRecyclec
* Stop generating the triggers.

'-----------------------------------------------------------------------------  
' Main function  
'-----------------------------------------------------------------------------  
' Get the current active model  
Dim mdl  
Dim Fldr  
Dim RQ  
Dim isFound  
Dim strLongReferenceNames  
dim iCountChanged, iCountNotChanged, iCountEntities  
dim iAllTables  
dim iAllIndex  
dim glob_IndexFound  
dim glob_iIndex_Removed  
Set mdl = ActiveModel  
call mainProcedure  
sub mainProcedure()  
   If (mdl Is Nothing) Then  
      MsgBox "There is no Active Model"  
      exit sub  
   End If  
   If Not mdl.IsKindOf(PdPDM.cls_Model) Then  
      MsgBox "This is not PDM"  
      exit sub  
   end if  
     
   Set Fldr = ActiveDiagram.Parent  
   RQ = MsgBox ("Starting at Folder: " & Fldr.Name & " Is Run ?", vbYesNo + vbInformation,"Confirmation")  
   if RQ= VbNo then  
      exit sub  
   end if  
     
   '------------------------------------  
   iCountChanged = 0  
   iCountEntities = 0  
   iCountNotChanged = 0  
     
   FixReferences mdl  
   output  "_____Reference Cardinality changed = " & iCountChanged & " in " & iCountEntities & " Entities. and not changed = " &  iCountNotChanged  
     
   '------------------------------------  
   iCountChanged = 0  
   iCountEntities = 0  
   iCountNotChanged = 0  
   strLongReferenceNames = ""  
     
   start_Reference_CheckName mdl  
   output "_____Reference Longer than 128, found = " & iCountChanged & " in " 

...
..
.