ukoenig wrote:Silvio,
Images I'm using for examples are ALL public domain from the internet.
regards
Uwe
IF TRIM(cAuthor) = TRIM(cUser) .or. TRIM(cAuthor) = "*.*" .and. nTSelect = 1 // works !!!!
// MsgAlert( TRIM(cAutor), TRIM(cUser) )
lFound := .T.
ENDIF
IF dDate >= dDateFrom .and. dDate <= dDateTo .and. nTSelect = 2 // date selection ????????????
MsgAlert( TRIM(cAutor), TRIM(cUser) )
lFound := .T.
ENDIF
IF lFound = .T.
cCode := ExtractPrgCode( cCode )
DBAPPEND()
FIELD->TOPICNO := nTopic
FIELD->LINK := TopicNoToURL( nTopic )
FIELD->TOPIC := cTopic
FIELD->AUTHOR := cUser
FIELD->DATE := dDate
FIELD->LIKE := 0
FIELD->CODE := cCode
IF nForum = 1
FIELD->FORUM := "England"
ELSEIF nForum = 2
FIELD->FORUM := "Spain"
ELSEIF nForum = 3
FIELD->FORUM := "Italy"
ELSEIF nForum = 4
FIELD->FORUM := "Germany"
ELSEIF nForum = 5
FIELD->FORUM := "Portugal"
ENDIF
ENDIF
Maybe also a option that you save the last date or topic nr. download into the systemfile,
and that we can UPDATE with a single click, so that
the range will be taken from the ini file, updated and new range in saved again.
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: nageswaragunupudi, richard-service and 55 guests