16 lines
680 B
Plaintext
16 lines
680 B
Plaintext
Compile subroutine Set_Sql_MFS(VOID)
|
|
|
|
Tables = ""
|
|
Tables := "ASSIGN_CAUSE,CDM_LOG,COMPANY,CUSTOMER,DESIG_ERR_GRP,LOSS_CODES,NCR,ORDER,ORDER_CHANGE,PROD_SPEC,QUOTE,RDS,RDS_LAYER,RDS_TEST,REACT_MODE,"
|
|
Tables := "REACT_RUN,REACT_STATUS,RECIPE,SURFACE_SCAN,SURF_SCAN_TOOL,TOOL,TUBE,TW_CODES,TW_PRIME_USAGE,TW_USAGE,WAREHOUSE,WO_LOG,WO_MAT,WO_STEP,"
|
|
Tables := "ANNUAL_CONTRACTS,ORDER_RECON,QUARTZ_TC_LOG,QUARTZ_WAND_LOG,REACTOR_LOG,REACT_EVENT,REACT_ITEMS,ASM_PART,CALIBRATION,CALIB_LIST,WO_MAST_SCHED"
|
|
|
|
NumTables = Count(Tables, ",") + 1
|
|
|
|
For iTable = 1 to NumTables
|
|
Table = Field(Tables, ",", iTable)
|
|
Call Set_MFS(Table, "SQL_MFS*LSL2", 3)
|
|
Next iTable
|
|
|
|
Return
|