REQUISIS DXL-Bibliothek

Die größte DXL-Bibliothek im deutschsprachigen Raum

name:	compareWithPreviousBaseline
Type:	DXL-Layout-Column
description:	This script shows differences between your current version and the last baseline (copy this script into a new column of type dxl-layout to use it in DOORS)

Sourcecode:

//compareWithPreviousBaseline
/********************************************************************************************************
   REQUISIS DXL-Bibliothek
   https://requisis.com/de/dxl-bibliothek.html

Die größte DXL-Bibliothek im deutschsprachigen Raum.

*********************************************************************************************************
  (c) 2009-2017 REQUISIS GmbH
      Walter-Benjamin-Platz 8
      D-10629 Berlin

https://requisis.com

*********************************************************************************************************
Beschreibung:
Dieses Layoutscript stellt die Unterschiede zwischen dem current-Stand und der vorigen Baseline dar.
(Dazu wird es in eine neue Spalte vom Typ DXL Layout des Moduls kopiert.)

description:
This script shows differences between your current version and the last baseline
(copy this script into a new column of type dxl-layout to use it in DOORS)

*********************************************************************************************************
Nutzungsrechte:

Dieses Script darf frei für die tägliche Arbeit mit Doors verwendet werden. 
Es darf beliebig in eigene Scripte integriert werden, sofern diese 
nur für den Eigengebrauch bestimmt sind.
! Die Integration in andere Produkte oder Scripte, die nicht ausschließlich für den Eigengebrauch 
! bestimmt sind, erfordert die schriftliche Zustimmung der REQUISIS GmbH.
! Die Verbreitung und Veröffentlichung dieses Scripts ist nur der REQUISIS GmbH vorbehalten.

This script may be used for daily work with IBM Rational Doors. It is allowed to include this script
into own scripts if they are only intended to be used for own purposes.
! The integration into other products or scripts, which are not soley used for own purposes 
! is not permitted.
*********************************************************************************************************
*/
   
// prevent dxl timeout dialog
pragma runLim, 0

// includes
#include <layout/actual/common.inc>

// display out-links

Module mc=current
Object oTarget=obj
// Old Object
Baseline bl=getMostRecentBaseline(mc)
if (bl!=null)
{
	Module mo=load(mc,bl,false)
	int absno=oTarget."Absolute Number"
	Object oo=object(absno,mo)
	string Text=""
	if (oo!=null)
	{
		AttrDef ad
		//Um Attribute aus dem Vergleich herauszunehmen - hinten an die if-anweisung anhängen
		for ad in mc do 
		{
			if ((ad.object)&&(!ad.dxl)&&(ad.name!="Last Modified On")&&(ad.name!="Last Modified By")&&(ad.name!="DeXI_Modifications"))
			{
		    	Buffer bufCur = create()
				bufCur=oTarget.(ad.name)
				Buffer bufOld = create()
				// check if Attribute also exists in old baseline
				AttrDef adold = find(mo, (ad.name)) 
				if (adold!=null)
				{
					bufOld=oo.(ad.name)
				} else 
				{
					bufOld=""
				}
			
				Buffer bufDiff = create()
				diff(bufDiff, bufOld, bufCur, "\\b\\cf1\\strike ", "\\b\\cf3\\ul ")
				if (bufCur!=bufOld) Text = Text stringOf(bufDiff) " (" ad.name ")\n"
				
				delete(bufOld)
				delete(bufCur)
				delete(bufDiff)
			}
		} 
		displayRichWithColor(Text)
	} 
	else
	{
		display "new object"
	}
}

Dieses Script darf frei für die tägliche Arbeit mit Doors verwendet werden.
Es darf beliebig in eigene Scripte integriert werden, sofern diese nur für den Eigengebrauch bestimmt sind.

Die Integration in andere Produkte oder Scripte, die nicht ausschließlich für den Eigengebrauch bestimmt sind, erfordern die schriftliche Zustimmung der REQUISIS GmbH.
Die Verbreitung und Veröffentlichung dieses Scripts ist nur der REQUISIS GmbH vorbehalten. Die REQUISIS GmbH übernimmt für die zur Verfügung gestellten Scripte keinerlei Verantwortung.
Jegliche Haftung ist ausgeschlossen.

DXL - Library

OLE

functions

Ihr Ansprechparter

Peter Kurras

Telefon:	+49 (30) 536506-719
Fax:	+49 (30) 536506-319
E-Mail:	peter.kurras@requisis.com