71 lines
1.4 KiB
Plaintext
71 lines
1.4 KiB
Plaintext
COMPILE ROUTINE FIX_MAST_SCHED(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, obj_WO_Log, Set_Status, obj_WO_Step, RList, obj_WO_Mat
|
|
DECLARE SUBROUTINE ErrMsg
|
|
DECLARE FUNCTION Get_Status, Set_Printer, obj_WO_Mat
|
|
|
|
|
|
EQU Dates$ to 1
|
|
EQU Month$ to 2
|
|
EQU MaxReacts$ to 3
|
|
EQU Day1$ to 4
|
|
EQU Day2$ to 5
|
|
EQU Day3$ to 6
|
|
EQU Day4$ to 7
|
|
EQU Day5$ to 8
|
|
EQU Day6$ to 9
|
|
EQU Day7$ to 10
|
|
EQU Day8$ to 11
|
|
EQU Day9$ to 12
|
|
EQU Day10$ to 13
|
|
EQU Day11$ to 14
|
|
EQU Day12$ to 15
|
|
EQU Day13$ to 16
|
|
EQU Day14$ to 17
|
|
EQU Day15$ to 18
|
|
EQU Day16$ to 19
|
|
EQU Day17$ to 20
|
|
EQU Day18$ to 21
|
|
EQU Day19$ to 22
|
|
EQU Day20$ to 23
|
|
EQU Day21$ to 24
|
|
EQU Day22$ to 25
|
|
EQU Day23$ to 26
|
|
EQU Day24$ to 27
|
|
EQU Day25$ to 28
|
|
EQU Day26$ to 29
|
|
EQU Day27$ to 30
|
|
EQU Day28$ to 31
|
|
EQU Day29$ to 32
|
|
EQU Day30$ to 33
|
|
EQU Day31$ to 34
|
|
|
|
|
|
OPEN 'CONFIG' TO FuckingMess THEN
|
|
READ OrgRec FROM FuckingMess,'WO_MAST_SCHED' THEN
|
|
|
|
BadSchedData = OrgRec<4>
|
|
GoodSched = FIELD(OrgRec,@FM,1,3)
|
|
GoodSchedData = ''
|
|
FOR Day = 1 TO 31
|
|
GoodSchedData<Day> = FIELD(BadSchedData,@VM,1,74)
|
|
BadSchedData[1,COL2()] = ''
|
|
|
|
NEXT DAY
|
|
GoodRec = GoodSched:@FM:GoodSchedData
|
|
|
|
debug
|
|
|
|
WRITE GoodRec ON FuckingMess,'WO_MAST_SCHED' THEN NULL
|
|
END
|
|
END
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|