home *** CD-ROM | disk | FTP | other *** search
/ TopWare Tools / TOOLS.iso / tools / top1033 / gepackt.exe / TOPDATA / ARTLIST1.FOR < prev    next >
Encoding:
Text File  |  1993-06-12  |  1.8 KB  |  50 lines
  1. ^12
  2. ^BArtikelliste ^b^12
  3. /
  4. !#VORHERIGE_GRUPPE:= "' '"
  5.                                                               Seite: #SEITE:8:0
  6.                                                               Stand: #DATUM
  7. ─────────────────────────────────────────────────────────────────────────────
  8. ArtikelNr.      Bezeichnung                     Einheit  Netto VK   Brutto VK
  9. //3456789012345 123456789012345678901234567890  12345 12345678901 12345678901
  10. ─────────────────────────────────────────────────────────────────────────────
  11. !LISTE:56
  12. !WENN #Gruppe <> ' ' .AND. #Vorherige_Gruppe <> #Gruppe
  13.  
  14. ^B#Gruppentitel  #Gruppe ^b^12    // Ausgabe der Gruppe bei entsprechender Sortierung
  15.  
  16. !ENDEWENN
  17. #ART_NR         #ART_NAME:30                    #Einh #NETTOVK:11 #BRUTTOVK:11
  18.                 #Art_text:40
  19. /
  20. !#Anz:= #Anz+ 1          // Zähle die Anzahl der gedruckten Artikel...
  21. !#vorherige_Gruppe:= #Gruppe
  22. /
  23. !ENDELISTE
  24. /
  25. !#vorherige_Gruppe:= #Gruppe
  26. !WENN #LetzteSeite
  27. ─────────────────────────────────────────────────────────────────────────────
  28. Anzahl der aufgelisteten Artikel: #ANZ:8:0
  29. !ENDE WENN
  30. !SEITENAUSWURF
  31. !FORMULARENDE
  32.  
  33.  
  34.  
  35. !PLATZHALTER
  36.   #ART_NR     ,      art->Art_nr
  37.   #ART_NAME   ,      art->Art_name            // Kurzbezeichnung
  38.   #ART_TEXT   ,      art->art_text            // Ausführlicher Text
  39.   #ART_BEMERKUNG ,   Trim( art->BEMERKUNG)
  40.   #Einh,             art->MengenEinh
  41.   #BRUTTOVK ,        art->BruttoVerk
  42.   #NettoVK,          art->NettoVerk
  43.   #EKPREIS,          art->einkaufpr
  44.   #BESTAND,          art->bestand
  45.   #Anz,              nAnz                     // nur zum Zählen der Artikel
  46.  
  47.   #GRUPPE,           IF( 'Gruppe'$ cArtSort, art->Art_Gruppe, '' )
  48.   #GRUPPENTITEL,     IF( 'Gruppe'$ cArtSort, 'GRUPPE: ', '')
  49.   #VORHERIGE_GRUPPE, vorhergruppe
  50. !ENDE PLATZHALTER