datrepos.i 452 B

1234567891011121314151617
  1. fData = TRUE.
  2. RUN dataAvailable ( INPUT 'SAME' ).
  3. FIND FIRST tRowObject NO-LOCK.
  4. FIND {&Tabelle}
  5. &IF '{&TabWhere}' NE ''
  6. &THEN {&TabWhere}
  7. &ELSE OF tRowObject
  8. &ENDIF
  9. NO-LOCK NO-ERROR.
  10. IF AVAILABLE {&Tabelle} THEN cRowid = STRING(ROWID({&Tabelle})).
  11. ELSE cRowid = ?.
  12. IF cRowid <> ?
  13. THEN DYNAMIC-FUNCTION('fetchRowIdent':U, INPUT cRowid, INPUT ? ).