ItemSetValue

(Available in 00 TS Tools(Base) - TS_Tools_Atomizer)

Source

METHOD ItemSetValue( cItem AS STRING, cValue AS STRING ) AS LOGIC PASCAL CLASS TS_Atomizer
LOCAL oAtomizerItem AS TS_AtomizerItem
LOCAL lRetVal AS LOGIC
LOCAL iItem AS DWORD
   TSTrace Enter
   iItem:=SELF:_LocateItem( cItem )
   IF LOGIC( _CAST, iItem )
      oAtomizerItem:=SELF:_ItemsAtivated[ iItem ]
      IF cValue==NULL_STRING
         oAtomizerItem:Value:=TS_S_EMPTY
      ELSE
         oAtomizerItem:Value:=cValue
      END
      oAtomizerItem:=NULL_OBJECT
      lRetVal:=TRUE
   ELSE
      TSTrace Warning "LOGIC(_CAST,SELF:_LocateItem("+cItem+"))"
      lRetVal:=FALSE
   END
   TSTrace Leave
RETURN lRetVal