Advertisement
Dalacul

transfer

Oct 19th, 2018
1,586
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
Advertisement
RAW Paste Data Copied
Advertisement