GHÉP TỆP U*.DBF

Ý nghĩa chức năng

Khi convert dữ liệu bản 2.0 thì cần gom dữ liệu từ các U*.dbf vào 1 tệp. Rồi sau đó convert tệp dữ liệu này lên sql

Hướng dẫn thao tác

• Copy hàm ở dưới vào sdt()

• Vào mode lập trình hoặc mode cus

  • mode cus: Vào màn hình tìm kiếm, Bấm Ctrl+Alt + S

• Bấm Ctrl+F11 để hiện cửa sổ lệnh chạy

• Nhập tên function và enter để chạy lệnh: ghepthutien()

// Some code
FUNCTION ghepthutien
nn=adir(ardir,p_defdir+"sepdata\u*.dbf")
use p_defdir+"\thu_tien.dbf" in thu_tien alia thutien excl
*wait wind "1"
sele thutien
dele all
pack
*wait wind "2"
sele thutien
for i=1 to nn
	_st = p_defdir+"sepdata\" + ardir(i,1)
	sele thutien
	appen from &_st
endf
*wait wind "3"
sele thutien
pack
*wait wind "4"