Bug #1045 中间计量，再次生成，丢失编号

DataModules/ZJJLDm.pas

@@ -494,17 +494,14 @@ begin
   cdsZJJLBillsID.AsInteger := ANode.ID;
   cdsZJJLType.AsInteger := AType;
   ZJJLNode := GetOrgZJJLNode(ANode.ID);
-  if not Assigned(ZJJLNode) then
-  begin
-    cdsZJJLCode.AsString := GetNewCode;
-    if AType = Ord(ztFx) then
-      cdsZJJLBillsCode.AsString := ANode.Rec.ValueByName('Code').AsString
-    else if AType = Ord(ztGcl) then
-      cdsZJJLBillsCode.AsString := ANode.Rec.ValueByName('B_Code').AsString;
-  end
-  else
+
+  cdsZJJLCode.AsString := GetNewCode;
+  if AType = Ord(ztFx) then
+    cdsZJJLBillsCode.AsString := ANode.Rec.ValueByName('Code').AsString
+  else if AType = Ord(ztGcl) then
+    cdsZJJLBillsCode.AsString := ANode.Rec.ValueByName('B_Code').AsString;
+  if Assigned(ZJJLNode) then
   begin
-    cdsZJJLCode.AsString := GetNewCode;
     cdsZJJLCertificateCode.AsString := ZJJLNode.FCertificateCode;
     cdsZJJLFormulaMemo.AsString := ZJJLNode.FFormulaMemo;
     cdsZJJLRelaFile.AsString := ZJJLNode.FRelaFile;