added LSL2 stored procedures
This commit is contained in:
15
LSL2/STPROC/SET_SQL_MFS.txt
Normal file
15
LSL2/STPROC/SET_SQL_MFS.txt
Normal file
@ -0,0 +1,15 @@
|
||||
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
|
Reference in New Issue
Block a user