Massimo, 1º IF SET DELETED ON then APPEND not append deleted records and target Lastrec() not equal source Lastrec() 2º IF source area have a SET FILTER.... Regards
Massimo Belgrano escribió en mensaje <[email protected]>... >Executing follow code inside my application i receive error because >same record are not appended >Error occour also using rddads >If i isolate in a sample program i can run witout error (all record >as appended) >ppo in my sample and in my application are equal >Append from (in my application) not append all record on >What error can i have made in my application > >Thanks for support >function main() > ? "Verify append operation" > X_RDD="DBFCDX" > XA_DIR:=ARRAY( ADIR("*.DBF")) > ADIR("*.DBF",XA_DIR) > FOR A=1 TO LEN(XA_DIR) > X_DB1=XA_DIR[A] > ? X_DB1 > X_DB2 := "DB2TEMP.DBF" > use &X_DB1 alias TEMP VIA X_RDD exclusive > X_LASTREC=LASTREC() > ?? X_LASTREC > A_STRUTTURE:=DBSTRUCT() > USE > dbcreate(X_DB2,A_STRUTTURE,X_RDD) > use &X_DB2 alias TEMP VIA X_RDD exclusive > append from &(X_DB1) VIA X_RDD > SKIP 0 > X_LASTREC2=LASTREC() > ?? X_LASTREC2 > use > IF X_LASTREC2<>X_LASTREC > ?? "ERROR NOT ALL RECORD WAS APPENDED" > ENDIF > NEXT A > RETURN > >regarding append i have found this xharbour ng regarding an eror that >give me error also with harbour last cvs so i post here also if is >unrelated with my problem. >REQUEST DBFCDX > >function main() > local aTst, aTstErr > local aStruct := { { "id", "C", 2, 0 }, ; > { "name", "c", 30, 0 } } > > cls > ? ' Begin test' > ? ' create tables' > ? RddSetDefault( "DBFCDX" ) // !!! 1 condition !!! > dbCreate( "testsrc", aStruct, "DBFCDX", .T., "testsrc" ) > dbAppend() > testsrc->ID := '01' > testsrc->NAME := 'test record' > dbcommit() > testsrc->( DbCloseArea() ) > > dbCreate( "testapp", aStruct, "DBFCDX", .T., "testapp" ) > index on field->id tag id // !!! 2 condition !!! > > // --- must be ok --- > ? ' ' > ? ' test appending from table with differ name' > ? ' lastrec = ' > ?? testapp->( LastRec() ) > ? ' append from testsrc.dbf' > append from ('testsrc.dbf') > ? ' lastrec = ' > ?? testapp->( LastRec() ) > ? '' > ? if ( testapp->( LastRec() ) == 1, 'OK!', 'Error!' ) > > // --- ERROR --- > ? ' ' > ? ' test appending from table with same name, but differ ext' > zap > FRename( 'testsrc.dbf', 'testapp.bak' ) // !!! 3 condition !!! > > ? ' lastrec = ' > ?? testapp->( LastRec() ) > ? ' append from testapp.bak' > append from ('testapp.bak') > ? ' lastrec = ' > ?? testapp->( LastRec() ) > ? '' > ? if ( testapp->( LastRec() ) == 1, 'OK!', 'Error!' ) > > wait >return nil > >-- >Massimo Belgrano _______________________________________________ Harbour mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
