Changeset 463 for cprs/branches/foia-cprs/CPRS-Chart/uSignItems.pas

Timestamp:

Jul 6, 2008, 9:44:35 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading 1.0.26.76, OR_30_277

File:

• cprs/branches/foia-cprs/CPRS-Chart/uSignItems.pas (modified) (2 diffs)

cprs/branches/foia-cprs/CPRS-Chart/uSignItems.pas

@@ -1 @@
-      unit uSignItems;
+unit uSignItems;
 
 {.$define debug}
@@ -654 +654 @@
                                  //end CQ3301/3302
 
+                                 // GWOT - CV Default to Yes.
+                                 if ( (si = siCombatVeteran) and (StsIdx = isUnKnown) ) then
+                                 begin
+                                    StsIdx := isChecked;
+                                    Flags[7] := 'C';                  // HD200866 default as Combat Related - GWOT mandated Change
+                                    FItems.SetStrPiece(i, 4, Flags);  // HD200866 default as Combat Related - GWOT mandated Change
+                                 end;
                                      
                                  case StsIdx of