hexagon logo

Create Item List from History Record

I am trying to create an item list from a history record that can be used in a display combo box. I am running into the problem of getting all the records in field "A" in a list. Any suggestions ?
  • To update. I have used CVHISNAM but my data is in the form of " 000.000.00.00 " and gives an Unpermissible object error.
  • So you have an HRC with 000.000.00.00 in field A? An HRC contains only text, so you should be able to loop through it & write the field A into an XML. Not sure how CVHISNAM will help you though. Or have I misunderstood something?
  • Thanks to Steve this is solved for me.

    ! Read in Rotor Part List Text file (from Excel sheet)
    DELETE (NAM=HRC:PART_LIST, CNF=N, TYP=HRC)
    DFNHRC (NAM=PART_LIST, MOD=NEW, FLD=(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W ,X,Y,Z,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p), FLG=(20,12,10,10,10,10,10,10,10,10,15,10,10,10,10, 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10 ,10,10,10,10,10,10,10,10,10,10))
    DFNHRC (NAM=MATCH, MOD=NEW, FLD=(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W ,X,Y,Z,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p), FLG=(20,12,10,10,10,10,10,10,10,10,15,10,10,10,10, 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10 ,10,10,10,10,10,10,10,10,10,10))
    DFNHRC (NAM=RANGE, MOD=NEW, FLD=(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W ,X,Y,Z,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p), FLG=(20,12,10,10,10,10,10,10,10,10,15,10,10,10,10, 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10 ,10,10,10,10,10,10,10,10,10,10))
    CNVFIL (FIL=C:\Quindos7Lib\XXXX_LIST.TXT, TYP=HRC)

    ! SLCSTY (SRC=PART_LIST, TRU=RANGE, DEL=Y, TYP=HRC, STR=25*, MOD=MT, DSC=A)
    ! TXT/MSK for listing Field 'A' of HRC to a TXT
    !!CVMSKTXT (TXT=HRC_Field_A, MSK=HRC_Field_A)
    !EDTTXT HRC_Field_A
    !CNVTXT (NAM=HRC_Field_A)
    ! strip out field 'A' of the HRC, this is part field, to be used for pulldown list
    LISHRC (NAM=LDBHRC:RANGE, DEV=D1, MSK=HRC_Field_A, TXT=DLP_XXX_LIST)
    RMVDUPLNS (NAM=DLP_XXX_LIST)
    RPLSTR (NAM=DLP_XXX_LIST, FRM=Size, TO ='')
    ! EDTTXT DLP_ROTOR_LIST
    ! convert TXT listing to XML for use in DLP
    CnvTxtToItemList (TXT=DLP_ROTOR_LIST, XML=ROTOR_LIST)


    DELUVS (NAM=XXX_Menu, CNF=N)
    4100:ShowDialog (DLP=XXX_Menu, OBJ=LDBUVS:XXX_Menu)