51 lines
826 B
Plaintext
51 lines
826 B
Plaintext
COMPILE ROUTINE TEST_OBJ_POST_LOG(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Notes, Set_Status, obj_Export, ErrMsg, obj_Post_Log
|
|
DECLARE FUNCTION Get_Status, Utility, obj_Post_log
|
|
|
|
$INSERT POST_LOG_EQUATES
|
|
|
|
EQU CRLF$ TO \0D0A\
|
|
|
|
|
|
|
|
|
|
FieldNos = 33:@VM:33:@VM:33:@VM:33
|
|
FieldVals = '99863':@VM:'100000':@VM:'100002':@VM:'100391'
|
|
FieldAddMVBys = 'AR':@VM:'AR':@VM:'AR':@VM:'AR'
|
|
|
|
DEBUG
|
|
|
|
FOR I = 1 TO 4
|
|
obj_Post_Log('Create','WO_LOG':@RM:'150091':@RM:FieldNos:@RM:FieldVals:@RM:FieldAddMVBys)
|
|
NEXT I
|
|
|
|
awShit = Get_Status(errCode)
|
|
|
|
|
|
DEBUG
|
|
|
|
obj_Post_Log('Post')
|
|
|
|
|
|
goto Bail
|
|
|
|
StartTime = Time()
|
|
LOOP
|
|
a = XLATE('SYSLISTS','1*2*3*4','','X')
|
|
UNTIL a NE ''
|
|
REPEAT
|
|
EndTime = Time()
|
|
|
|
Delta = EndTime - StartTime
|
|
|
|
awShit = Get_Status(errCode)
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
RETURN
|