I HAVE A BROWSE THAT POPULATED WITH EMPLOYEES NAME AND THE VOLUME OF WORKS THAT THEY DONE. (DAILYLOG.DBF)
AS PART OF MY END OF DAY PROCEDURE, WE ARE TO AUDIT THEM ONE BY ONE BY SIMPLY COUNTING THEIR VOLUME AGAINST ACTUAL PAPER SIGNED ETC....
ONCE A WORKER GET AUDITED, A RECORD IS BEING CREATED IN "CLOSURE.DBF" THAT HAS INDEX FOR DATE+EMPLOYEE_ID#".
THIS WOULD THEN PREVENTED THEM BEING AUDITED TWICE.
THE FOLLOWING SCRIPTS I HAVE ATTACHED TO THE BROWSE(ON ROW CHANGE EVENT) AND MY IDEA IS TO SET/TOGGLE THE VAR->DONE
CONDITION WITH "Y" OR "N" DEPENDING IF THE EMPLOYEE ID AND CORRESPONDING DATE EXISTS IN CLOSURE.DBF.
IN ADDITION, I HAVE A CALCULATED FIELD THAT SUPPOSSED TO DISPLAY THE CONDITION "Y" OR "N".
I WILL USE THIS CONDITION TO TURN THE "POSTING" BUTTON HIDE OR SHOW. THIS IN MY OPINION WOULD PREVENT USER FROM PUSHING "POST" IF THE EMPLOYEE HAD BEEN AUDITED. (BECAUSE THE "POST" BUTTON IS IN HIDE CONDITION)
BUT, MY PROBLEM HERE IS THAT ONCE THE EMPLOYEE GOT AUDITED
AND THE CALCULATED FIELD SUPPOSSED TO NOW SHOWING "Y".
STILL SHOWING "N".
HOW DO GET IT TO "REFRESH" ?
THE ONLY WAY I GET IT TO REFRESH NOW IS TO CLOSE THE FORM AND RE-OPEN AGAIN.
SAMPLE OF THE CODE I USE..
DIM DDD AS D
DIM ID AS N
DIM GET AS C
DDD=DATE.value 'THIS IS AUDIT DATE
ID=EMC.VALUE ' THIS IS THE EMPLOYEE ID NUMBER
GET=CDATE(DDD)+STR(ID,3,0)
if EXIST(GET,"CLOSURE.DBF","EXITS")
VAR->DONE="Y"
ELSE
VAR->DONE="N"
end if
CD.REFRESH() ' CD IS THE CALCULATED FIELD
AS PART OF MY END OF DAY PROCEDURE, WE ARE TO AUDIT THEM ONE BY ONE BY SIMPLY COUNTING THEIR VOLUME AGAINST ACTUAL PAPER SIGNED ETC....
ONCE A WORKER GET AUDITED, A RECORD IS BEING CREATED IN "CLOSURE.DBF" THAT HAS INDEX FOR DATE+EMPLOYEE_ID#".
THIS WOULD THEN PREVENTED THEM BEING AUDITED TWICE.
THE FOLLOWING SCRIPTS I HAVE ATTACHED TO THE BROWSE(ON ROW CHANGE EVENT) AND MY IDEA IS TO SET/TOGGLE THE VAR->DONE
CONDITION WITH "Y" OR "N" DEPENDING IF THE EMPLOYEE ID AND CORRESPONDING DATE EXISTS IN CLOSURE.DBF.
IN ADDITION, I HAVE A CALCULATED FIELD THAT SUPPOSSED TO DISPLAY THE CONDITION "Y" OR "N".
I WILL USE THIS CONDITION TO TURN THE "POSTING" BUTTON HIDE OR SHOW. THIS IN MY OPINION WOULD PREVENT USER FROM PUSHING "POST" IF THE EMPLOYEE HAD BEEN AUDITED. (BECAUSE THE "POST" BUTTON IS IN HIDE CONDITION)
BUT, MY PROBLEM HERE IS THAT ONCE THE EMPLOYEE GOT AUDITED
AND THE CALCULATED FIELD SUPPOSSED TO NOW SHOWING "Y".
STILL SHOWING "N".
HOW DO GET IT TO "REFRESH" ?
THE ONLY WAY I GET IT TO REFRESH NOW IS TO CLOSE THE FORM AND RE-OPEN AGAIN.
SAMPLE OF THE CODE I USE..
DIM DDD AS D
DIM ID AS N
DIM GET AS C
DDD=DATE.value 'THIS IS AUDIT DATE
ID=EMC.VALUE ' THIS IS THE EMPLOYEE ID NUMBER
GET=CDATE(DDD)+STR(ID,3,0)
if EXIST(GET,"CLOSURE.DBF","EXITS")
VAR->DONE="Y"
ELSE
VAR->DONE="N"
end if
CD.REFRESH() ' CD IS THE CALCULATED FIELD
Comment