SHARE
TWEET

transfer

Dalacul Oct 19th, 2018 (edited) 159 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. SET TALK OFF
  2. CLEAR
  3. CLOSE ALL
  4. SELECT 1
  5. USE elevi
  6. SELECT 2
  7. USE respinsi
  8. select 1
  9. SCAN
  10. vcod = cod
  11. vnume = nume
  12. vmed = med
  13. vrez = rez
  14. IF vrez=.F.
  15.     ?"sterg " + vnume
  16.     SELECT 2
  17.     APPEND BLANK
  18.     replace cod WITH vcod, med WITH vmed, rez WITH vrez
  19.     SELECT 1
  20. ENDIF
  21. ENDSCAN
  22. DELETE FOR vrez=.F.
  23. PACK
  24. USE
  25. SELECT 2
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top