Jump to content

How to save information in CHR


Recommended Posts

Ill take a look at it tomorrow, i've never used chr files before so im not sure if calypso will create one.
I see you are using the extension ".PARA" in your add to file code.

I have code very similar to yours for a text file, but i like to set my directory path as a variable.

filePath = "X:\Org\CMM\REPORTS\XXX\WSPC_REPORTS\Part_Number-xxx\"+getRecordHead ("planid")+"\"
ext = ".txt"

N1 = getRecordHead ("planid")
N2 = getRecordHead ("lotid")
deleteFile(filePath + N1 + (" ") + N2 + (" ") + ext) //delete duplicate file
dirPath = filePath + N1 + (" ") + N2 + (" ") + ext

//#11
DIM11 = getActual("# 11 Dat C Distance").actual
//#12
DIM12 = getActual("# 12 Perpendicularity").actual
//#21 profile
DIM21 = getActual("# 21 Profile").actual
DIM21MAX = getMaxActual("# 21 Profile Min Max").actual/25.4
DIM21MIN = getMinActual("# 21 Profile Min Max").actual/25.4

addToFile(dirPath,(" "))
addToFile(dirPath,N2)
addToFile(dirPath,N1)
addToFile(dirPath,date()+ (" ") +time())
addToFile(dirPath,(" "))
addToFile(dirPath,("Dim 11 Distance : "),DIM11)
addToFile(dirPath,("Dim 12 Perpendicularity : "),DIM12)
addToFile(dirPath,("Dim 21 Profile : "),DIM21)
addToFile(dirPath,("Dim 21 Min/Max : "),DIM21MIN," / ",DIM21MAX)

Capture984654.JPG

×
×
  • Create New...