• 목록
  • 아래로
  • 위로
  • 0
  • 온텍
  • 조회 수 3957

'금월적산적산 및 전월적산유량 로거데이터 값 수집
'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

공유

facebooktwitterpinterestbandkakao story
퍼머링크

댓글 0

권한이 없습니다.