REPLACE pham vi WITH FOR itn học ứng dụng itn học ứng dụng itn học ứng dụng itn học ứng dụng itn học ứng dụngitn học ứng dụngitn học ứng dụngitn học ứng dụng dùng để tính toán, điền (sửa) nội dung vào các trường Lưu ý Có FOR thì không bắt buộc ghi phạm vi, không có FOR thì phải ghi All tất cả bản.
REPLACE [pham vi] WITH FOR dùng để tính tốn, điền (sửa) nội dung vào trường *Lưu ý: Có FOR khơng bắt buộc ghi [phạm vi], khơng có FOR phải ghi All: tất ghi Next n: Bản ghi từ vị trí trỏ thứ n Record n: Bản ghi thứ n Rest: Bản ghi từ vị trí đứng đến hết C (Character) FOR tính TBC trường số TOTAL ON TO FIELDS FOR tính tổng trường số nhóm ghi, kết lưu tệp (.dbt) *Lưu ý: -Khi dùng hàm TOTAL dùng hàm INDEX trước (tức trước tính tổng phải phân nhóm trước) - Tiêu thức sx TOTAL INDEX giống - “từng, những, các, mỗi” -> INDEX -> TOTAL - “nhiều nhất, cao nhất, thấp nhất” -> INDEX lần L1: theo tiêu chí đề hỏi “cho biết” L2: theo FIELDS TOTAL Bài 1: Người ta dùng hóa đơn để quản lý việc sử dụng nước hộ gia đình thơng qua tệp liệu QLNS.DBF có cấu trúc sau: SOHD NGAY MAKH SONK CSTT CSTN LTT SOTIEN C D C N N N N N 10 3 20 Số hóa đơn Ngày, tháng, năm Mã khách hàng, ký tự cuối mã chi nhánh Số nhân Chỉ số đồng hồ tháng trước Chỉ số đồng hồ tháng Lượng tiêu thụ Số tiền phải trả In danh sách khách hàng sửa dụng 20𝑚3 tháng 10/2018 Use QLNS List all fields MAKH for LTT>20 and Month(NGAY)=10 and Year(NGAY)=2018 to printer Tính lượng nước tiêu thụ số tiền phải trả theo CT sau: Lượng tiêu thụ = Chỉ số đồng hồ tháng – Chỉ số đồng hồ tháng trước Tiền nước = Lượng tiêu thụ x Đơn giá Đơn giá có mức sau: Đến 4𝑚3 /𝑛𝑔ườ𝑖 có giá 5300đ/𝑚3 Từ − 6𝑚3 /𝑛𝑔ườ𝑖 có giá 10200đ/𝑚3 Trên 6𝑚3 /𝑛𝑔ườ𝑖 có giá 11400đ/𝑚3 Thuế GTGT 10%, phí bảo vệ mơi trường 5% Use QLNS Replace all LTT with CSTN-CSTT Replace all SOTIEN with 5300*LTT/SOTIEN*SOTIEN*1.1*1.05 for LTT/SOTIEN4 and LTT/SOTIEN6 In danh sách khách hàng có số tiền phải trả nhiều năm 2017 Use QLNS Index on MAKH to Cau3 for Year(Ngay)=2017 Total on MAKH to KqCau3 fields SOTIEN Use KqCau3 Index on SOTIEN to Sapxep Goto Bottom Skip -2 List next fields MAKH, SOTIEN to printer Tính lượng nước tiêu thụ bình qn nhân thuộc chi nhánh ABD Use QLNS Sum LTT to a for Right(MAKH,3)=”ABD” Sum SONK to a for Right(MAKH,3)=”ABD” ?a/b Lập bảng kê cho chi nhánh tổng số lượng nước tiêu thụ, tổng số tiền phải trả tháng 10/2018 Use QLNS Index on Right(MAKH,3) to Cau5 for Month(NGAY)=10 and Year(NGAY)=2018 Total on Right(MAKH,3) to KqCau5 fields LTT, SOTIEN Use KqCau5 List fields Right(MAKH,3), LTT, SOTIEN Bài 2: Để quản lý việc sử dụng điện hộ gia đình, người ta sử dụng hóa đơn có thơng tin sau: HOTEN MACT MACN NGAY CSD CSC SSD ST DM C C C C N N N N N 30 10 5 10 0 0 Họ tên chủ hộ Mã công tơ Mã chi nhánh cung cấp điện dd/mm/yyyy Chỉ số công tơ đầu tháng Chỉ số công tơ cuối tháng Số sử dụng điện tháng Số tiền phải trả tháng Định mức sử dụng điện tháng Tạo tệp quản lý điện nhập liệu với cấu trúc cho Create Qldien Use Qldien Append Tính số sử dụng điện hóa đơn Use Qldien Replace all SSD with CSC-CSD Tính số tiền phải trả hóa đơn biết đơn sau: -700đ cho kW DM -1000đ cho kW vượt DM 50kW -> 100kW -1400đ cho kW vượt DM 100kW -> 150kW -2000đ cho kW vượt DM 150kW Sau thêm 10% VAT Use Qldien Replace all ST with SSD*700*1.1 for SSD>=0 and SSDDM+100 and SSDDM+150 Hiển thị hóa đơn tháng 5/2017 chi nhánh có mã CN03 Use Qldien List for Right(NGAY,7)=”05/2017” and MACN=”CN03” Sắp xếp hóa đơn theo thứ tự tăng dần số điện sử dụng tháng 5/2018 Use Qldien Index on SSD to Cau5 for Right(NGAY,7)=”05/2018” Sắp xếp hóa đơn theo thứ tự Alphabet mã chi nhánh, chi nhánh sx theo thời gian Use Qldien Index on MACN+NGAY to Cau6 -Nếu trường NGAY dạng D: Index on MACN + Str(Year(NGAY)) + Str(Month(NGAY)) + Str(Day(NGAY)) to Cau6a Nếu sx tăng dần theo SSD, SSD sx theo thời gian (NGAY dạng D): Index on SSD + Year(NGAY) + Month(NGAY) + Day(NGAY) to Cau6b Đếm số phiếu có số sử dụng vượt định mức chi nhánh CN02 quý năm 2018 Use Qldien Count to a for SSD>DM and MACN=”CN02” and Val(Substr(NGAY,4,2))>3 and Val(Substr(NGAY,4,2))3 and Val(Substr(NGAY,4,2))120 Total on MACN to KqCau11 fields SSD, ST Use KqCau11 List to printer/ List fields MACN,SSD, ST to printer Bài 3: Để quản lý lương sản phẩm hàng tháng, người ta sử dụng tệp sở liệu QLLSP.DBF THANG C Tháng tính lương dạng: mm/yyyy HOTEN C 30 Họ tên công nhân MACN C Mã công nhân SPDM N Số sản phẩm định mức SPTT N Số sản phẩm thực tế DGSP N Đơn giá lương sản phẩm THUONG N 10 Tiền thưởng PHAT N 10 Tiền phạt THUCLINH N 10 Số tiền thực lĩnh tháng Mã công nhân, ký tự đầu mã phân xưởng 1.In danh sách họ tên cơng nhân phân xưởng có mã PX1 tháng Use QLLSP List all fields HOTEN for Left(MACN,3)=”PX1” and C1: Val(Left(THANG,2))=Month(Date()) C2: Left(THANG,2)=Str(Month(Date())) to printer Tính khoản thưởng, phạt, thực lĩnh cơng nhân, biết: Thực lĩnh = Số sản phârn định mức x Đơn giá + Thưởng – Phạt Thưởng = Số sản phẩm vượt định mức x Đơn giá x 70% Phạt = Số sản phẩm hụt định mức x Đơn giá x 30% Use QLLSP Replace all THUONG with (SPTT-SPDM)*DGSP*0.7 for SPTT>SPDM Replace all PHAT with (SPDM-SPTT)*DGSP*0.3 for SPDM>SPTT Replace all THUCLINH with SPDM*DGSP+THUONG-PHAT Đổi đơn vị từ triệu đồng thành đồng Use QLLSP Replace all DGSP with DGSP*1e6 4.In bảng lương phân xưởng PX3 nửa đầu năm 2018 theo thực lĩnh giảm dần Use QLLSP Index on –THUCLINH to Cau4 for Left(MACN,3)=”PX3” and Val(Left(THANG,2))6 and Year(NGAY)=”2018” List to printer Sửa số tiền chứng từ PT2605 DT1410 thành 20 triệu Use QLTM Replace all SOTIEN with 20e6 for Left(Alltrim(SOCT),6)=”PT2605” and Left(Alltrim(SOCT),6)=”DT1410” Tính tổng số tiền thu tháng 12/2017 đối tượng 05 Use QLTM Sum SOTIEN to a for Month(NGAY)=”12” and Year(NGAY)=”2017” Substr(TKNO,5,2)=”05” ?a Xóa phiếu chi lập ngày 1/1/2018 2/9/2018 Use QLTM Delete for Left(TKCO,3)=”111” and NGAY=Date(2018/1/1) or NGAY=Date(2018/9/2) NGAY={^2018/09/02} NGAY={^2018/01/01} 5.Tính tổng số tiền thu đối tượng năm 2016 cho biết dối tượng có tổng cố tiền thu cao Use QLTM Index on Substr(TKNO,5,2) to Cau5 for Left(TKNO,3)=”111” and Year(NGAY)=2016 Total on Substr(TKNO,5,2) to KqCau5 fields SOTIEN Use KqCau5 Index on SOTIEN to Sapxep Goto Bottom Skip -4 List next fields Substr(TKNO,5,2), SOTIEN Xác định tổng số tiền chi bình quân cho tháng kể từ năm 2015 cho việc trả lương Nợ TK 334 Có TK 111 Use QLTM Index on Year(NGAY) + Month(NGAY) to Cau6 for Left(TKCO,3)=”111” and Left(TKNO,3)=”334” and Year(NGAY)>2015 Total on Year(NGAY) + Month(NGAY) to KqCau6 fields SOTIEN Use KqCau6 Sum SOTIEN to b Count to c ?b/c Có ngày quý năm 2018 có tổng số tiền thu vượt 100 triệu Use QLTM Index in NGAY to Cau7 for Left(TKNO,3)=”111” and Month(NGAY)>6 and Month(NGAY)100e6 ?d Bài 5: Cho tệp liệu QLCD.DBF chứa thông tin cổ đông chiến lược Tệp QLCD.DBF chứa trường liệu: -Mã cổ đông: MACD C(11) -Cổ đông: TENCD C(20) -Ngày mua cổ phần: NGAY D(8) -Số lượng cổ phần: SCP N(10,0) Đưa danh sách cổ đông sở hữu triệu cổ phần Use QLCD List fields TENCD for SCP>1e6 Điều chỉnh số lượng cổ phần sở hữu tăng 1.5% cho cổ đông chiến lược Use QLCD Replace all SCP with SCP*101.5% Đưa danh sách 10% cổ đông chiến lược sở hữu chủ yếu cổ phần công ty Use QLCD Index on TENCD to Cau3 Total on TENCD to KqCau3 fields SCP Use KqCau3 Count to a Index on SCP to Sapxep Goto Bottom Skip -(0.1*a-1) List rest fields TENCD, SCP Bài 6: Xét toán quản lý việc xuất nhập vật tư đơn vị thông qua phiếu nhập phiếu xuất có cấu trúc sau: MAVT C(4), TENVT C(30),TKNO C(8), TKCO C(8), NGAYNX D(8), DVT C(5), KL N(8,0), DG N(8,0), TT N(15,0) Phân biệt Phiếu nhập Phiếu xuất thơng qua TKNO TKCO Trong ký tự 4,5,6 để chi tiết cho mã kho (152xxx) Phiếu nhập: Nợ 152 Phiếu xuất: Có 152 Tạo tệp nhập liệu theo cấu trúc cho Create QLVT Use QLVT Append Xóa chứng từ khơng ghi định khoản kế tốn Use QLVT Tính thành tiền cho phiếu: TT = KL*DG+10%VAT Nếu vật tư xuất tháng đơn giá tăng 5% Use QLVT Replace all TT with KL*DG*1.1 Replace all TT with KL*DG*1.05*1.1 for Left(TKCO,3)=”152” and Month(NGAYNX)=7 or Month(NGAYNX)=8 In phiếu xuất tháng 10/2018 theo kho, kho xếp theo khối lượng Use QLVT Index on Substr(TKCO,4,3) + Str(KL) to Cau4 for Left(TKCO,3)=”152” and Month(NGAYNX)=10 and Year(NGAYNX)=2018 List to printer Tăng đơn giá xuất vật tư có mã “S10” ngày 20/10/2010 tăng thêm 10% Use QLVT Replace all DG with DG*1.1 for Left(TKCO,3)=”152” and Left(Alltrim(MAVT),3)=”S10” and NGAYNX=Date(2010/10/20) Đổi đơn vị từ “tấn” thành ”kg” Use QLVT Replace all DVT with “kg” Replace all KL with KL*1000 Replace all DG with DG/1000 Tính tổng số tiền nhập vật tư ngày 26/05/2018 kho K01 Use QLVT Sum SOTIEN to a for Left(TKNO,6)=”152K01” and NGAYNX=Date(2018/5/26) ?a Tính đơn giá xuất bình quân vật tư có mã S06 T02 trog quý 1/2018 Use QLVT Sum TT to b for Left(TKCO,3)=”152” and Left(Alltrim(MAVT),3)=”S06” and Month(NGAYNX)