- 0
- 온텍
- 조회 수 3876
'금월적산적산 및 전월적산유량 로거데이터 값 수집
'UIS정보.PGX에서 호출
Sub IAMT_DINPUT()
Dim i
SETTAGVAL"TEMP.UIS수집중", 1
T=TimeStr(51)
IF (T <> 01) THEN
YM$=ReportTimeStr("0년",50) & ReportTimeStr("-1월",51)
i = msgbox ("01이 아닌 루틴입니다." & YM$, 1 + 32+4096, "확인")
ELSEIF (T = 01) THEN
YM$=ReportTimeStr("-1년",50) & ReportTimeStr("-1월",51)
i = msgbox ("01인 루틴입니다. " & YM$, 1 + 32+4096, "종료확인")
END IF
SETTAGVAL "ORACLE.FMJ" , "FMJ006"
SETTAGVAL "ORACLE.MNGT" , "3030000"
SETTAGVAL "ORACLE.MON", YM$
moninput = right(YM$,2)
SETTAGVAL "UISCHECK.전달표기", moninput
SETTAGVAL "UISCHECK.금달표기", T
for i = 1 to 27
ST = "ST" & i
'전월 적산데이터 읽어오기 -----------------------------------
A = moninput + 0
A1 = GetTagVal (ST & ".전월적산보관.전월" & A)
SETTAGVAL (ST & ".UIS.전월적산"), A1
A2 = GetTagVal (ST & ".전월적산보관.저장일자" & A)
SETTAGVAL (ST & ".전월적산보관.전저장일자"), A2
'금월 적산데이터 읽어오기 -----------------------------------
B = DLogVal (ST & ".적산유량", "0월5일00시")
' 금월 5일 적산값이 있을때 5일00시 가져오기
if B <> 0 then
SETTAGVAL (ST & ".UIS.금월적산"), B
SETTAGVAL (ST & ".전월적산보관.저장일자"), "5일"
end if
' 금월 5일 적산값 로드시 5일자 data가 없을때 4일00시 가져오기
' else
if B <= 0 then
B1 = DLogVal (ST & ".적산유량", "0월4일00시")
SETTAGVAL (ST & ".UIS.금월적산"), B1
SETTAGVAL (ST & ".전월적산보관.저장일자"), "4일"
end if
' 금월 5일 적산값 로드시 5, 4일자 data가 없을때 3일00시 가져오기
' else
if B <= 0 and B1 <= 0 then
B2 = DLogVal (ST & ".적산유량", "0월3일00시")
SETTAGVAL (ST & ".UIS.금월적산"), B2
SETTAGVAL (ST & ".전월적산보관.저장일자"), "3일"
end if
' 금월 5일 적산값 로드시 5, 4, 3일자 data가 없을때 2일00시 가져오기
' else
if B <= 0 and B1 <= 0 and B2 <= 0 then
B3 = DLogVal (ST & ".적산유량", "0월2일00시")
SETTAGVAL (ST & ".UIS.금월적산"), B3
SETTAGVAL (ST & ".전월적산보관.저장일자"), "2일"
end if
' 금월 5일 적산값 로드시 5, 4, 3, 2일자 data가 없을때 1일00시 가져오기
' else
if B <= 0 and B1 <= 0 and B2 <= 0 and B3 <= 0 then
B4 = DLogVal (ST & ".적산유량", "0월1일00시")
SETTAGVAL (ST & ".UIS.금월적산"), B4
SETTAGVAL (ST & ".전월적산보관.저장일자"), "1일"
end if
' 금월 5일 적산값 로드시 5, 4, 3, 2, 1일자 data가 없을때 0 처리
' else
if B <= 0 and B1 <= 0 and B2 <= 0 and B3 <= 0 and B4 <= 0 then
SETTAGVAL (ST & ".UIS.금월적산"), 0
SETTAGVAL (ST & ".전월적산보관.저장일자"), "자료없음"
end if
sleep(1000)
'전월 적산데이터 읽어오기 -----------------------------------
T1=val(TimeStr(51))
SETTAGVAL (ST & ".전월적산보관.전월" & T1), GetTagVal (ST & ".UIS.금월적산")
SETTAGVAL (ST & ".전월적산보관.저장일자" & T1), GetTagVal (ST & ".전월적산보관.저장일자")
sleep(1000)
next i
'데이터 수집후 연산 출력
RunScript "IAMT_DOUTPUT"
SETTAGVAL "TEMP.UIS수집중", 0
SLEEP(5000)
End Sub
댓글 0
권한이 없습니다.