home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE4NL / SAMPLES.ZIP / EXTRACOD.UPD (.txt) < prev    next >
Encoding:
dBase Update  |  1993-05-18  |  4.9 KB  |  79 lines
  1. * dBASE IV .UPD file 8
  2. CLOSE DATABASES
  3. SET EXACT ON
  4. SELECT 1
  5. USE PERSONEL.DBF
  6. SELECT 2
  7. USE NETNUM.DBF
  8. SET FILTER TO 
  9. GO TOP
  10. SELECT 2
  11. USE NETNUM.DBF
  12. SELECT 1
  13. IF network()
  14. COUNT TO QBE___CNTR
  15. GO TOP
  16. ENDIF
  17. DO WHILE .NOT. EOF()
  18. IF network()
  19. IF QBE___CNTR < 1
  20. ENDIF
  21. QBE___CNTR = QBE___CNTR - 1
  22. ENDIF
  23. SELECT 2
  24. APPEND BLANK
  25. REPLACE WOONPLAATS WITH PERSONEL->WOONPLAATS,KENGETAL WITH ;
  26. SUBST(Personel->Telefoon,1,3)
  27. SELECT 1
  28. ENDDO
  29. SELECT 1
  30. SET FILTER TO
  31. SET FIELDS TO
  32. SET SKIP TO
  33. SET RELATION TO
  34. SELECT 1
  35. SELECT 2
  36. PERSONEL.DBF
  37. NETNUM.DBF
  38. :Personel.dbf*$i
  39. :ACHTERNAAM*$i
  40. :VOORNAAM*$i
  41. :INVOEG*$i
  42. :AFDELING*$i
  43. :PERS_NR*$i
  44. :TELEFOON*$i
  45. :BRANCHE*$i
  46. :INFO*$i
  47. :BONUS*$i
  48. :IN_DIENST*$i
  49. :TITEL*$i
  50. :SPAARFONDS*$i
  51. :DEELTIJD*$i
  52. :SCHAAL*$i
  53. :TOESLAG*$i
  54. :SALARIS*$i
  55. :FUNCTIE*$i
  56. :DIENSTJR*$i
  57. :ADRES1*$i
  58. :ADRES2*$i
  59. :POSTCODE*$i
  60. :WOONPLAATS*$i
  61. :PROVINCIE*$i
  62. :achternaam+voornaam+invoeg*$i
  63. :STR(dienstjr,4,1)*$i
  64. :afdeling+achternaam+voornaam+invoeg*$i
  65. :afdeling+STR(salaris,8,2)*$i
  66. ,xx:plaats*$i
  67. ,xx:*$i
  68. :Netnum.dbf*$i
  69. :WOONPLAATS*$i
  70. :KENGETAL*$i
  71. ,xx:Append*$i
  72. ,xx:plaats*$i
  73. ,xx:nwcode*$i
  74. ,xx:*$i
  75. ,xx:    *$i
  76. :Rekenvelden*$i
  77. :SUBST(Personel->Telefoon,1,3)*$i
  78. ,xx:nwcode*$i
  79.