From 8a8be2aabe7e6f21acbcbb6398f70bcbfbfb38e9 Mon Sep 17 00:00:00 2001
From: drazmyslovich <razmyslovich@volumegraphics.com>
Date: Tue, 19 Aug 2014 14:28:48 +0200
Subject: [PATCH] 0025168: STEP Writer - empty AppliedGroupAssignment can cause
 exception in RWStepAP214_RWAppliedGroupAssignment class

Function WriteStep is fixed
---
 src/RWStepAP214/RWStepAP214_RWAppliedGroupAssignment.cxx | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/RWStepAP214/RWStepAP214_RWAppliedGroupAssignment.cxx b/src/RWStepAP214/RWStepAP214_RWAppliedGroupAssignment.cxx
index e70a81f300..18b160eada 100644
--- a/src/RWStepAP214/RWStepAP214_RWAppliedGroupAssignment.cxx
+++ b/src/RWStepAP214/RWStepAP214_RWAppliedGroupAssignment.cxx
@@ -83,9 +83,12 @@ void RWStepAP214_RWAppliedGroupAssignment::WriteStep (StepData_StepWriter& SW,
   // Own fields of AppliedGroupAssignment
 
   SW.OpenSub();
-  for (Standard_Integer i1=1; i1 <= ent->Items()->Length(); i1++ ) {
-    StepAP214_GroupItem Var0 = ent->Items()->Value(i1);
-    SW.Send (Var0.Value());
+  if (!ent->Items().IsNull())
+  {
+    for (Standard_Integer i1=1; i1 <= ent->Items()->Length(); i1++ ) {
+      StepAP214_GroupItem Var0 = ent->Items()->Value(i1);
+      SW.Send (Var0.Value());
+    }
   }
   SW.CloseSub();
 }