home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 May / CHIPCD5_98.iso / software / testsoft / vendo / VENDO.400 / pak / _NAG_WZ.FK next >
Encoding:
Text File  |  1998-03-24  |  519 b   |  36 lines
  1. PRIVATE i
  2. PRIVATE War2
  3. PRIVATE Zaks
  4. PRIVATE RLicznik
  5. PRIVATE M_Poz
  6. PRIVATE M_Nag
  7.  
  8. LET M_Poz = ALLTRIM( PKPOZ->Pozycje )
  9. LET M_Nag = ALLTRIM( PKPOZ->Naglowki )
  10.  
  11. IF PrivUse( M_Poz, M_Poz, @_UseFiles ) == 1
  12.   RETURN
  13. ENDIF
  14.  
  15. IF PrivUse( M_Nag, M_Nag, @_UseFiles ) == 1
  16.   RETURN
  17. ENDIF
  18.  
  19. FILE KLIENT
  20.  
  21. DO dbSelectArea( M_Nag )
  22. RELATION PLAT_SKROT, KLIENT
  23.  
  24. IF EMPTY( WARUNEK )
  25.   LET Warunek = '.T.'
  26. ENDIF
  27.  
  28. LET War2 = ALLTRIM( Warunek )
  29.  
  30. LET Zaks = 0
  31. LET RLicznik = 0
  32.  
  33. DO _DekretyNag()
  34.  
  35. RETURN
  36.