|
@@ -916,6 +916,11 @@ procedure TProjectData.CopyPhaseData;
|
|
|
' From ' + PhaseData.ZJJLData.sdpZJJL.TableName +
|
|
|
' In ' + Format('''%s''', [AFileName]);
|
|
|
ExecuteSql(sSql);
|
|
|
+ sSql := 'Select ID, BillsID' +
|
|
|
+ ' Into P_ZJJL_Detail' +
|
|
|
+ ' From ' + PhaseData.ZJJLData.sdpZJJLDetail.TableName +
|
|
|
+ ' In ' + Format('''%s''', [AFileName]);
|
|
|
+ ExecuteSql(sSql);
|
|
|
CopyZJJLBillsData;
|
|
|
end;
|
|
|
|