曰本性感美女视频,韩国美女免费福利视频网

1procedureTFrmWeekAnalysisQry.BtnExportToExcelClick(Sender: TObject);

2varwordApp,WordDoc,WrdSelection:variant;

3strAdd:string;

4i,j,iRangeEnd,iStart,iEnd : integer;

5wdPar,wdRange:OleVariant;

6oShape, oChart,myCol: OleVariant;

7SumJHTonCount, SumWCTonCount, PJTS, PJZCSJ, YSSR, DuoJing: Currency;

8SumJHCarCount, SumWCCarCount: Integer;

9SumDJ,SumFDJ: Currency;//多經(jīng) 非多經(jīng)匯總

10begin

11wordApp := CreateOleObject('Word.Application');

12wordApp.Visible :=true;

13wordDoc:=WordApp.Documents.Add();

14wordDoc.select;

15wrdSelection :=WordApp.selection;

16strAdd:='%s年第%d周戰(zhàn)略裝車點生產(chǎn)經(jīng)營分析';

17strAdd:= Format(strAdd, [FormatDateTime('YYYY', Date), WeekofYear(Date)]);

18wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;

19wrdSelection.Font.bold :=true;

20wrdSelection.Font.Size := 15;

21//wrdSelection.Font.UnderLine := 1; 下劃線

22wrdSelection.TypeText(strAdd);

23wordApp.selection.TypeParagraph;//換行

24wrdSelection.Font.bold :=false;

25wrdSelection.Font.Size := 10;

26wrdSelection.Font.bold :=false;

27wrdSelection.TypeText(FormatDateTime('MM月DD日', DateBegin.Date)+'-'+FormatDateTime('MM月DD日', DateEnd.Date));

28wordApp.selection.TypeParagraph;//換行

29wrdSelection.TypeText('西安鐵路局貨運處');

30wordApp.selection.TypeParagraph;//換行

31wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphLeft;

32wrdSelection.Font.bold :=true;

33wrdSelection.TypeText('1、戰(zhàn)略裝車點主要運營指標(biāo)完成情況：');

34//從新設(shè)置字體

35wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphLeft;

36wrdSelection.Font.bold :=false;

37wrdSelection.Font.Size := 10;

38wrdSelection.Font.UnderLine := 0;

39wdPar:=WordApp.ActiveDocument.Paragraphs.Add;

40wdRange:=wdPar.Range;

41wdRange :=wordApp.ActiveDocument.Content;

42wdRange.Collapse(wdCollapseEnd);

43wordDoc.Tables.Add(wdRange,cdsMain.RecordCount+ 2,11);

44//合并單元格不成功

45{iStart:=WordDoc.Tables.Item(1).Cell(1,1).Range.Start;

46//myCol:= WordDoc.Tables.Item(1).Cell(1,2);

47//myCol:= WordDoc.Tables.Item(1).Columns.Item(2);

48//iEnd:=myCol.Cells.Item(myCol.Cells.Count).Range.End;

49//iEnd:= WordDoc.Tables.Item(1).Cell(2,1).Range.Start;

50iEnd:= iStart+ 1;

51wdRange:=WordDoc.Range;

52wdRange.Start:=iStart;

53wdRange.End :=iEnd;

54wdRange.Cells.Merge; }

55//插入數(shù)據(jù)

56wordDoc.Tables.Item(1).Cell(1,1).Range.Text:= '序號';

57wordDoc.Tables.Item(1).Cell(1,2).Range.Text:= '車站';

58wordDoc.Tables.Item(1).Cell(1,3).Range.Text:= '品類';

59wordDoc.Tables.Item(1).Cell(1,4).Range.Text:= '周計劃車數(shù)';

60wordDoc.Tables.Item(1).Cell(1,5).Range.Text:= '周計劃萬噸';

61wordDoc.Tables.Item(1).Cell(1,6).Range.Text:= '周完成車數(shù)';

62wordDoc.Tables.Item(1).Cell(1,7).Range.Text:= '周完成萬噸';

63wordDoc.Tables.Item(1).Cell(1,8).Range.Text:= '平均停時(小時)';

64wordDoc.Tables.Item(1).Cell(1,9).Range.Text:= '平均裝車時間(小時)';

65wordDoc.Tables.Item(1).Cell(1,10).Range.Text:= '運輸收入(萬元)';

66wordDoc.Tables.Item(1).Cell(1,11).Range.Text:= '多經(jīng)毛利測算(萬元)';

67cdsMain.First;

68SumJHTonCount:= 0;

69SumWCTonCount:= 0;

70PJTS:= 0;

71PJZCSJ:= 0;

72YSSR:= 0;

73SumJHCarCount:= 0;

74SumWCCarCount:= 0;

75DuoJing:= 0;

76fori:= 2tocdsMain.RecordCount+ 1do

77begin

78wordDoc.Tables.Item(1).Cell(i,1).Range.Text:= cdsMain.FieldByName('ROWNUM').AsString;

79wordDoc.Tables.Item(1).Cell(i,2).Range.Text:= cdsMain.FieldByName('UPNAME').AsString;

80wordDoc.Tables.Item(1).Cell(i,3).Range.Text:= cdsMain.FieldByName('PLNAME').AsString;

81wordDoc.Tables.Item(1).Cell(i,4).Range.Text:= cdsMain.FieldByName('PLANCARCOUNT').AsString;

82wordDoc.Tables.Item(1).Cell(i,5).Range.Text:= cdsMain.FieldByName('PLANTONCOUNT').AsString;

83wordDoc.Tables.Item(1).Cell(i,6).Range.Text:= cdsMain.FieldByName('CARCOUNT').AsString;

84wordDoc.Tables.Item(1).Cell(i,7).Range.Text:= cdsMain.FieldByName('TONCOUNT').AsString;

85wordDoc.Tables.Item(1).Cell(i,8).Range.Text:= cdsMain.FieldByName('AVGSTOP').AsString;

86wordDoc.Tables.Item(1).Cell(i,9).Range.Text:= cdsMain.FieldByName('AVGLOAD').AsString;

87wordDoc.Tables.Item(1).Cell(i,10).Range.Text:= cdsMain.FieldByName('TRANSINCOME').AsString;

88wordDoc.Tables.Item(1).Cell(i,11).Range.Text:= cdsMain.FieldByName('DUOJING').AsString;

89SumJHTonCount:= SumJHTonCount+ cdsMain.FieldByName('PLANTONCOUNT').AsCurrency;

90SumWCTonCount:= SumWCTonCount+ cdsMain.FieldByName('TONCOUNT').AsCurrency;

91PJTS:= PJTS+ cdsMain.FieldByName('AVGSTOP').AsCurrency;

92PJZCSJ:= PJZCSJ+ cdsMain.FieldByName('AVGLOAD').AsCurrency;

93YSSR:= YSSR+ cdsMain.FieldByName('TRANSINCOME').AsCurrency;

94SumJHCarCount:= SumJHCarCount+ cdsMain.FieldByName('PLANCARCOUNT').AsInteger;

95SumWCCarCount:= SumWCCarCount+ cdsMain.FieldByName('CARCOUNT').AsInteger;

96DuoJing:= DuoJing+ cdsMain.FieldByName('DUOJING').AsCurrency;

97cdsMain.Next;

98end;

99Inc(i);

100wordDoc.Tables.Item(1).Cell(i,2).Range.Text:= '合計';

101wordDoc.Tables.Item(1).Cell(i,3).Range.Text:= '';

102wordDoc.Tables.Item(1).Cell(i,4).Range.Text:=IntToStr(SumJHCarCount);

103wordDoc.Tables.Item(1).Cell(i,5).Range.Text:=CurrToStr(SumJHTonCount);

104wordDoc.Tables.Item(1).Cell(i,6).Range.Text:=IntToStr(SumWCCarCount);

105wordDoc.Tables.Item(1).Cell(i,7).Range.Text:=CurrToStr(SumWCTonCount);

106ifcdsMain.RecordCount> 0then

107begin

108wordDoc.Tables.Item(1).Cell(i,8).Range.Text:= CurrToStr(PJTS/cdsMain.RecordCount);

109wordDoc.Tables.Item(1).Cell(i,9).Range.Text:= CurrToStr(PJZCSJ/cdsMain.RecordCount);

110end;

111wordDoc.Tables.Item(1).Cell(i,10).Range.Text:=CurrToStr(YSSR);

112wordDoc.Tables.Item(1).Cell(i,10).Range.Text:=CurrToStr(DuoJing);

113

114wordApp.Selection.EndKey(wdStory,EmptyParam);

115wdPar :=wordApp.ActiveDocument.Paragraphs.Add;

116wdRange :=wordApp.activeDocument.Content;

117wdRange.Collapse(wdCollapseEnd);

118ifSumJHTonCount<=>0thenSumJHTonCount:=SumWCTonCount;

119//ifEdtQJHF.Value<=>0thenEdtQJHF.Value:=SumWCTonCount;

120//ifSumJHCarCount<=>0thenSumJHTonCount:=SumWCCarCount;

121wrdSelection.TypeText('（1）全局28個戰(zhàn)略裝車點共裝車'+ IntToStr(SumWCCarCount)+'輛，完成計劃的'+ GetPercent(SumWCCarCount , SumJHCarCount)+'；發(fā)送貨物'

122+CurrToStr(SumWCTonCount)+'萬噸，完成計劃的'+GetPercent(SumWCTonCount , SumJHTonCount)+'，占全局貨發(fā)總量的'

123+GetPercent(SumWCTonCount , EdtQJHF.Value)+ '。');

124wordApp.selection.TypeParagraph;//換行

125wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;

126wrdSelection.TypeText('圖-6 戰(zhàn)略裝車點裝車數(shù)完成情況');

127

128

129wordApp.Selection.EndKey(wdStory,EmptyParam);

130wdPar :=wordApp.ActiveDocument.Paragraphs.Add;

131wdRange :=wordApp.activeDocument.Content;

132wdRange.Collapse(wdCollapseEnd);

133

134oShape:= wordApp.Selection.InlineShapes.AddOleObject(ClassType:='MSGraph.Chart.8',FileName:='',LinkToFile :=False,DisplayAsIcon :=False);

135oChart:=oShape.OleFormat.Object;

136oChart.Application.DataSheet.Cells.Clear;

137oChart.ChartArea.Font.Size:= 8;

138oChart.Application.Update;

139oChart.ChartType:= 51;// 1是面積圖 4是線形圖 5是餅圖 51是柱狀圖

140//添加行標(biāo)題

141oChart.Application.DataSheet.Cells[2,1].Value:= '計劃';

142oChart.Application.DataSheet.Cells[3,1].Value:= '實際完成';

143//添加列標(biāo)題

144oChart.Application.DataSheet.Cells[1,2].Value:= '上周';

145oChart.Application.DataSheet.Cells[1,3].Value:= '本周';

146

147oChart.Application.DataSheet.Cells[2, 2].Value:=LastPlanCarCount;

148oChart.Application.DataSheet.Cells[2, 3].Value:=SumJHCarCount;

149oChart.Application.DataSheet.Cells[3, 2].Value:=LastImplCarCount;

150oChart.Application.DataSheet.Cells[3, 3].Value:=SumWCCarCount;

151oChart.Application.Update;

152oChart.Application.Quit;

153

154wordApp.Selection.EndKey(wdStory,EmptyParam);

155wdPar :=wordApp.ActiveDocument.Paragraphs.Add;

156wdRange :=wordApp.activeDocument.Content;

157wdRange.Collapse(wdCollapseEnd);

158wrdSelection.TypeText('圖-7 戰(zhàn)略裝車點貨物發(fā)送量完成情況');

159wordApp.Selection.EndKey(wdStory,EmptyParam);

160wdPar :=wordApp.ActiveDocument.Paragraphs.Add;

161wdRange :=wordApp.activeDocument.Content;

162wdRange.Collapse(wdCollapseEnd);

163

164oShape:= wordApp.Selection.InlineShapes.AddOleObject(ClassType:='MSGraph.Chart.8',FileName:='',LinkToFile :=False,DisplayAsIcon :=False);

165oChart:=oShape.OleFormat.Object;

166oChart.Application.DataSheet.Cells.Clear;

167oChart.ChartArea.Font.Size:= 8;

168oChart.Application.Update;

169oChart.ChartType:= 51;// 1是面積圖 4是線形圖 5是餅圖 51是柱狀圖

170//添加行標(biāo)題

171oChart.Application.DataSheet.Cells[2,1].Value:= '計劃';

172oChart.Application.DataSheet.Cells[3,1].Value:= '實際完成';

173//添加列標(biāo)題

174oChart.Application.DataSheet.Cells[1,2].Value:= '上周';

175oChart.Application.DataSheet.Cells[1,3].Value:= '本周';

176

177oChart.Application.DataSheet.Cells[2, 2].Value:=LastPlanTonCount;

178oChart.Application.DataSheet.Cells[2, 3].Value:=SumJHTonCount;

179oChart.Application.DataSheet.Cells[3, 2].Value:=LastImplTonCount;

180oChart.Application.DataSheet.Cells[3, 3].Value:=SumWCTonCount;

181oChart.Application.Update;

182oChart.Application.Quit;

183

184wordApp.Selection.EndKey(wdStory,EmptyParam);

185wdPar :=wordApp.ActiveDocument.Paragraphs.Add;

186wdRange :=wordApp.activeDocument.Content;

187wdRange.Collapse(wdCollapseEnd);

188wrdSelection.TypeText('圖-8 戰(zhàn)略裝車量占貨物發(fā)送量情況');

189wordApp.Selection.EndKey(wdStory,EmptyParam);

190wdPar :=wordApp.ActiveDocument.Paragraphs.Add;

191wdRange :=wordApp.activeDocument.Content;

192wdRange.Collapse(wdCollapseEnd);

193

194oShape:= wordApp.Selection.InlineShapes.AddOleObject(ClassType:='MSGraph.Chart.8',FileName:='',LinkToFile :=False,DisplayAsIcon :=False);

195oChart:=oShape.OleFormat.Object;

196oChart.Application.DataSheet.Cells.Clear;

197oChart.ChartArea.Font.Size:= 8;

198oChart.Application.Update;

199oChart.ChartType:= 5;// 1是面積圖 4是線形圖 5是餅圖 51是柱狀圖

200//添加行標(biāo)題

201oChart.Application.DataSheet.Cells[2,1].Value:= '發(fā)送萬噸';

202//添加列標(biāo)題

203oChart.Application.DataSheet.Cells[1,2].Value:= '戰(zhàn)略裝車點';

204oChart.Application.DataSheet.Cells[1,3].Value:= '其他裝車';

205oChart.Application.DataSheet.Cells[2, 2].Value:=SumWCTonCount;

206oChart.Application.DataSheet.Cells[2, 3].Value:=EdtQJHF.Value;

207oChart.Application.Update;

208oChart.Application.Quit;

209

210wordApp.Selection.EndKey(wdStory,EmptyParam);

211wdPar :=wordApp.ActiveDocument.Paragraphs.Add;

212wdRange :=wordApp.activeDocument.Content;

213wdRange.Collapse(wdCollapseEnd);

214wrdSelection.TypeText('圖-9 戰(zhàn)略裝車量分品類完成情況');

215wordApp.Selection.EndKey(wdStory,EmptyParam);

216wdPar :=wordApp.ActiveDocument.Paragraphs.Add;

217wdRange :=wordApp.activeDocument.Content;

218wdRange.Collapse(wdCollapseEnd);

219

220oShape:= wordApp.Selection.InlineShapes.AddOleObject(ClassType:='MSGraph.Chart.8',FileName:='',LinkToFile :=False,DisplayAsIcon :=False);

221oChart:=oShape.OleFormat.Object;

222oChart.Application.DataSheet.Cells.Clear;

223oChart.ChartArea.Font.Size:= 8;

224oChart.Application.Update;

225oChart.ChartType:= 5;// 1是面積圖 4是線形圖 5是餅圖 51是柱狀圖

226//添加行標(biāo)題

227oChart.Application.DataSheet.Cells[2,1].Value:= '發(fā)送萬噸';

228//添加列標(biāo)題

229cdsGroupByPL.First;

230fori:= 2tocdsGroupByPL.RecordCount+ 1do

231begin

232oChart.Application.DataSheet.Cells[1,i].Value:= Trim(cdsGroupByPL.FieldByName('PLNAME').AsString);

233oChart.Application.DataSheet.Cells[2, i].Value:= cdsGroupByPL.FieldByName('TONCOUNT').AsCurrency;

234cdsGroupByPL.Next;

235end;

236oChart.Application.Update;

237oChart.Application.Quit;

238

239wordApp.Selection.EndKey(wdStory,EmptyParam);

240wdPar :=wordApp.ActiveDocument.Paragraphs.Add;

241wdRange :=wordApp.activeDocument.Content;

242wdRange.Collapse(wdCollapseEnd);

243wrdSelection.TypeText('（2）貨車停留時間平均為'+ GetDiv(PJTS,cdsMain.RecordCount)+'小時,較考核目標(biāo)超'+GetOverloadTime(PJTS,cdsMain.RecordCount,5)+'小時，'

244+'較全局平均停時減少2.8小時；平均裝車作業(yè)時間'+ GetDiv(PJZCSJ, cdsMain.RecordCount)+'小時，較考核目標(biāo)超'+GetOverloadTime(PJZCSJ,cdsMain.RecordCount,2)+'小時。');

245wordApp.selection.TypeParagraph;//換行

246wrdSelection.TypeText('（3）路局多經(jīng)參與經(jīng)營的12個戰(zhàn)略裝車點，本周總計完成'+IntToStr(SumWCCarCount)

247+'車，比上周'+ IntToStr(Trunc(LastImplCarCount))+'車多裝'+ IntToStr(Trunc(SumWCCarCount- LastImplCarCount))+'車，增加了'

248+GetPercent(SumJHCarCount- LastImplCarCount, LastImplCarCount)+'，日均裝車'+GetDiv(SumWCTonCount, Trunc(DateEnd.Date-DateBegin.Date+ 1))

249+'車。占全局戰(zhàn)略裝車點發(fā)送總量的'+ GetPercent(SumWCCarCount, EdtQJHF.Value)+'。');

250wordApp.selection.TypeParagraph;//換行

251wrdSelection.TypeText('3、毛利分析：本周實現(xiàn)毛利'+ CurrToStr(DuoJing)+'萬元，和上周基本持平。');

252SumDJ:= 0;

253SumFDJ:= 0;

254cdsMain.First;

255withcdsMain do

256begin

257DisableControls;

258whilenotEof do

259begin

260ifFieldByName('DJCY').AsInteger= 0then

261SumDJ:= SumDJ+ FieldByName('TONCOUNT').AsCurrency

262else

263SumFDJ:= SumFDJ+ FieldByName('TONCOUNT').AsCurrency;

264cdsMain.Next;

265end;

266EnableControls;

267end;

268wordApp.selection.TypeParagraph;//換行

269wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;

270wrdSelection.TypeText('圖-10 多經(jīng)參與戰(zhàn)略裝車情況');

271wordApp.Selection.EndKey(wdStory,EmptyParam);

272wdPar :=wordApp.ActiveDocument.Paragraphs.Add;

273wdRange :=wordApp.activeDocument.Content;

274wdRange.Collapse(wdCollapseEnd);

275

276oShape:= wordApp.Selection.InlineShapes.AddOleObject(ClassType:='MSGraph.Chart.8',FileName:='',LinkToFile :=False,DisplayAsIcon :=False);

277oChart:=oShape.OleFormat.Object;

278oChart.Application.DataSheet.Cells.Clear;

279oChart.ChartArea.Font.Size:= 8;

280oChart.Application.Update;

281oChart.ChartType:= 5;// 1是面積圖 4是線形圖 5是餅圖 51是柱狀圖

282//添加行標(biāo)題

283oChart.Application.DataSheet.Cells[2,1].Value:= '發(fā)送噸';

284//添加列標(biāo)題

285oChart.Application.DataSheet.Cells[1,2].Value:= '多經(jīng)參與經(jīng)營發(fā)送噸';

286oChart.Application.DataSheet.Cells[1,3].Value:= '其他戰(zhàn)略裝車點發(fā)送噸';

287oChart.Application.DataSheet.Cells[2, 2].Value:=SumDJ;

288oChart.Application.DataSheet.Cells[2, 3].Value:=SumFDJ;

289oChart.Application.Update;

290oChart.Application.Quit;

291

292wordApp.selection.TypeParagraph;//換行

293wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;

294wrdSelection.TypeText('圖-11 多經(jīng)參與戰(zhàn)略裝車點經(jīng)營收入（萬元）');

295wordApp.Selection.EndKey(wdStory,EmptyParam);

296wdPar :=wordApp.ActiveDocument.Paragraphs.Add;

297wdRange :=wordApp.activeDocument.Content;

298wdRange.Collapse(wdCollapseEnd);

299

300oShape:= wordApp.Selection.InlineShapes.AddOleObject(ClassType:='MSGraph.Chart.8',FileName:='',LinkToFile :=False,DisplayAsIcon :=False);

301oChart:=oShape.OleFormat.Object;

302oChart.Application.DataSheet.Cells.Clear;

303oChart.ChartArea.Font.Size:= 8;

304oChart.Application.Update;

305oChart.ChartType:= 51;// 1是面積圖 4是線形圖 5是餅圖 51是柱狀圖

306//添加行標(biāo)題

307oChart.Application.DataSheet.Cells[2,1].Value:= '收入（萬元）';

308//添加列標(biāo)題

309oChart.Application.DataSheet.Cells[1,2].Value:= '本周';

310oChart.Application.DataSheet.Cells[1,3].Value:= '上周';

311oChart.Application.DataSheet.Cells[2, 2].Value:= 319.14;

312oChart.Application.DataSheet.Cells[2, 3].Value:= 314.96;

313oChart.Application.Update;

314oChart.Application.Quit;

315

316wordApp.Selection.EndKey(wdStory,EmptyParam);

317wdPar :=wordApp.ActiveDocument.Paragraphs.Add;

318wdRange :=wordApp.activeDocument.Content;

319wdRange.Collapse(wdCollapseEnd);

320wrdSelection.TypeText('（4）裝車分析：與上周一樣，全局僅有黃陵、安口南兩個戰(zhàn)略裝車點到達(dá)日均裝運一列的要求，'

321+'占全局戰(zhàn)略裝車點總數(shù)的7%。周裝車少于100車的有梅家坪、白水江、燕子砭、咸陽西4個點。');

322wordApp.selection.TypeParagraph;//換行

323wrdSelection.TypeText('2.存在問題及分析：');

324wordApp.selection.TypeParagraph;//換行

325wrdSelection.TypeText('（1）全局共有14個裝車點為完成周裝車計劃。完成比例在50%以下的有桑樹坪、合陽、白水江、燕子砭4個戰(zhàn)略裝車點，占總數(shù)的14%');

326wordApp.selection.TypeParagraph;//換行

327wrdSelection.TypeText('主要原因有四個方面。一是空出來源緊張，不能滿足日均裝車需求。裝運大宗貨源煤炭、石油需要的敞車、罐車缺口較大。'

328+'如牛家梁在請求車5418車的情況下，僅承認(rèn)了916車；柞水、官渡、三橋也存在此類原因。本周共產(chǎn)生壞車及過期車2104量，'

329+'修復(fù)使用1745車。三是停限裝原因，戰(zhàn)略裝車點請求車兌現(xiàn)率僅為41%。四是貨源依舊不足。鐵礦石、焦炭市場不好影響裝車。');

330wordApp.selection.TypeParagraph;//換行

331wrdSelection.TypeText('（2）一是裝車速度較慢，影響裝車時間，造成平均停時較大，如合陽點專用線裝車為漏斗漏煤，裝車速度較快，平煤采取刮板刮平后，'

332+'人工平頂，速度較慢，引起停時較大。二是壞車修復(fù)時間長，也是引起停時較大的一個重要原因。');

333wordApp.selection.TypeParagraph;//換行

334wrdSelection.TypeText('3.戰(zhàn)略裝車點下周重點工作：');

335wordApp.selection.TypeParagraph;//換行

336wrdSelection.TypeText('（1）加大貨源組織工作。廣泛宣傳戰(zhàn)略裝車點優(yōu)勢，公布資源受理電話、去向、運輸品類和開行時間，在貨運計劃、配空車'

337+'等方面予以優(yōu)惠政策，重點做好新建戰(zhàn)略裝車點瑤曲、安口南的貨源組織工作，開發(fā)戰(zhàn)略裝車點新貨源，保證裝車上量。');

338wordApp.selection.TypeParagraph;//換行

339wrdSelection.TypeText('（2）提高承認(rèn)車兌現(xiàn)率。對組織不力造成承認(rèn)車落空的進行認(rèn)真分析，納入考核并追究管理責(zé)任。調(diào)度、運輸、貨運部門要加強協(xié)作，'

340+'落實戰(zhàn)略裝車點計劃、承認(rèn)、配空、掛運四優(yōu)先制度。');

341wordApp.selection.TypeParagraph;//換行

342wrdSelection.TypeText('（3）大力壓縮等待時間。與專用線加強協(xié)調(diào)，增強戰(zhàn)略裝車點裝車、平頂、加固車門人員力量，壓縮撞車后的整理等待時間。');

343end;

本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點擊舉報。

国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看