签约清单，列识别调整

Units/DealBillsExcelImport.pas

@@ -133,7 +133,7 @@ begin
       sColName := GetCellValue(Excel.XlsFile, FCurRow, iCol);
       sColName := StringReplace(sColName, ' ', '', [rfReplaceAll]);
 
-      if SameText(sColName, '헌데긍뵀') or SameText(sColName, '綾커뵀') then
+      if SameText(sColName, '헌데긍뵀') or (Pos('綾커뵀', sColName) > 0) then
         FB_CodeCol := iCol
       else if Pos('츰냔', sColName) > 0 then
         FNameCol := iCol
@@ -143,7 +143,7 @@ begin
         FPriceCol := iCol
       else if Pos('鑒좆', sColName) > 0 then
         FQuantityCol := iCol
-      else if SameText(sColName, '쏜띨') or SameText(sColName, '북송') then
+      else if (Pos('쏜띨', sColName) > 0) or (Pos('북송', sColName) > 0) then
         FTotalPriceCol := iCol;
     end;