2024年5月25日发(作者：督光启)
#tiptop新手开发神器—单档多栏开发模板
#单档模板--多栏维护档
#Alfa 精心制作 madeinchina 296066606@
DATABASE ds
GLOBALS "../../config/"
DEFINE
g_tc_omg DYNAMIC ARRAY OF RECORD
Variables)
tc_omg01 LIKE tc_omg__omg01,
tc_omg02 LIKE tc_omg__omg02,
tc_omg03 LIKE tc_omg__omg03,
tc_omg04 LIKE tc_omg__omg04,
tc_omg05 LIKE tc_omg__omg05,
tc_omg06 LIKE tc_omg__omg06,
tc_omg07 LIKE tc_omg__omg07,
tc_omg08 LIKE tc_omg__omg08,
tc_omg09 LIKE tc_omg__omg09,
tc_omg10 LIKE tc_omg__omg10,
tc_omgacti LIKE tc_omg__omgacti
END RECORD,
#程式變數(Program
g_tc_omg_t DYNAMIC ARRAY OF RECORD #程式變數(Program
Variables)
tc_omg01 LIKE tc_omg__omg01,
tc_omg02 LIKE tc_omg__omg02,
tc_omg03 LIKE tc_omg__omg03,
tc_omg04 LIKE tc_omg__omg04,
tc_omg05 LIKE tc_omg__omg05,
tc_omg06 LIKE tc_omg__omg06,
tc_omg07 LIKE tc_omg__omg07,
tc_omg08 LIKE tc_omg__omg08,
tc_omg09 LIKE tc_omg__omg09,
tc_omg10 LIKE tc_omg__omg10,
tc_omgacti LIKE tc_omg__omgacti
END RECORD,
b_tc_omg RECORD LIKE tc_omg_file.*,
g_wc2,g_sql LIKE type_1000, #-680102CHAR(300),
g_rec_b LIKE type_5, #單身筆數 #-680102
SMALLINT
l_ac LIKE type_5 #目前處理的ARRAY CNT
#-680102 SMALLINT
DEFINE g_forupd_sql STRING #SELECT ... FOR UPDATE SQL
2024年5月25日发(作者：督光启)
#tiptop新手开发神器—单档多栏开发模板
#单档模板--多栏维护档
#Alfa 精心制作 madeinchina 296066606@
DATABASE ds
GLOBALS "../../config/"
DEFINE
g_tc_omg DYNAMIC ARRAY OF RECORD
Variables)
tc_omg01 LIKE tc_omg__omg01,
tc_omg02 LIKE tc_omg__omg02,
tc_omg03 LIKE tc_omg__omg03,
tc_omg04 LIKE tc_omg__omg04,
tc_omg05 LIKE tc_omg__omg05,
tc_omg06 LIKE tc_omg__omg06,
tc_omg07 LIKE tc_omg__omg07,
tc_omg08 LIKE tc_omg__omg08,
tc_omg09 LIKE tc_omg__omg09,
tc_omg10 LIKE tc_omg__omg10,
tc_omgacti LIKE tc_omg__omgacti
END RECORD,
#程式變數(Program
g_tc_omg_t DYNAMIC ARRAY OF RECORD #程式變數(Program
Variables)
tc_omg01 LIKE tc_omg__omg01,
tc_omg02 LIKE tc_omg__omg02,
tc_omg03 LIKE tc_omg__omg03,
tc_omg04 LIKE tc_omg__omg04,
tc_omg05 LIKE tc_omg__omg05,
tc_omg06 LIKE tc_omg__omg06,
tc_omg07 LIKE tc_omg__omg07,
tc_omg08 LIKE tc_omg__omg08,
tc_omg09 LIKE tc_omg__omg09,
tc_omg10 LIKE tc_omg__omg10,
tc_omgacti LIKE tc_omg__omgacti
END RECORD,
b_tc_omg RECORD LIKE tc_omg_file.*,
g_wc2,g_sql LIKE type_1000, #-680102CHAR(300),
g_rec_b LIKE type_5, #單身筆數 #-680102
SMALLINT
l_ac LIKE type_5 #目前處理的ARRAY CNT
#-680102 SMALLINT
DEFINE g_forupd_sql STRING #SELECT ... FOR UPDATE SQL