home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1999 September / PCW0999.ISO / sharewar / update / bspexcel.exe / pcutool.int < prev    next >
Encoding:
Text File  |  1999-02-03  |  2.1 KB  |  99 lines
  1. '---------------------------------------------------------------------------------
  2. '    pcutool.int - Interfacedatei mit Hilfsfunktionen
  3. '
  4. '    DruckNT Version 2.0
  5. '  Lexware urlaubskartei - Version 2.10
  6. '
  7. '    Bemerkungen:
  8. '  erstellt am : 01.02.99
  9. '  zuletzt bearbeitet am :    03.02.99
  10. '
  11. '    Hilfsfunktionen, die Datei ist selbst nicht lauffΣhig und wird in andere
  12. '    Formulare eingebunden
  13. '    
  14. '    ⌐     Lexware GmbH & Co. KG 1999
  15. '---------------------------------------------------------------------------------
  16. Include "pcuvar.int"
  17.  
  18. function DrawField(width as Numeric, s as String)
  19.     dim c_text as CellType
  20.  
  21.     c_text = CreateCell(width, 0, CELL_TYPE_DYNVERT)
  22.     SetCellBorder(c_text, CELL_BORDER_ALL, 0, PEN_NULL, COLOR_TRANSPARENT)
  23.     SetCellTextBorder(c_text, 10, 0, 10, 0)
  24.     SetCellText(c_text, s)
  25.     
  26.     dim y as Numeric
  27.     dim x as Numeric
  28.     GetPos(x, y)
  29.     DrawCell(c_text, TRUE)
  30.     SetPos(x + width, y)
  31. end function
  32.  
  33. ' -----------------------------------------------------------------------------
  34. ' Die Funktion liefert die Wochentage, an denen der Mitarbeiter arbeitet als Text zurⁿck
  35. ' -----------------------------------------------------------------------------
  36. function GetTage() as String
  37.     dim s as String
  38.     if Is( VAR_P_ARBEITET_MONTAG ) then
  39.         s = "Mo "
  40.     end if
  41.  
  42.     if Is( VAR_P_ARBEITET_DIENSTAG ) then
  43.         s = s + "Di "
  44.     end if
  45.     
  46.     if Is( VAR_P_ARBEITET_MITTWOCH ) then
  47.         s = s + "Mi "
  48.     end if
  49.     
  50.     if Is( VAR_P_ARBEITET_DONNERSTAG ) then
  51.         s = s + "Do "
  52.     end if
  53.     
  54.     if Is( VAR_P_ARBEITET_FREITAG ) then
  55.         s = s + "Fr "
  56.     end if
  57.     
  58.     if Is( VAR_P_ARBEITET_SAMSTAG ) then
  59.         s = s + "Sa "
  60.     end if
  61.     
  62.     if Is( VAR_P_ARBEITET_SONNTAG ) then
  63.         s = s + "So"
  64.     end if
  65.  
  66.     GetTage = s
  67. end function    
  68.  
  69. function GetAdress() as String
  70.     dim strasse as String
  71.     dim plz as String
  72.     dim ort as String
  73.     dim r as String
  74.  
  75.     str = Get("P", 4)
  76.     plz = Get("P", 5)
  77.     ort = Get("P", 6)
  78.     
  79.     r = str
  80.     
  81.     if plz <> "" then
  82.         if r <> "" then
  83.             r = r + ", "
  84.         end if
  85.  
  86.         r = r + plz
  87.     end if
  88.  
  89.     if ort <> "" then
  90.         if r <> "" then
  91.             r = r + " "
  92.         end if
  93.  
  94.         r = r + " " + ort
  95.     end if
  96.  
  97.     GetAdress = r
  98. end function
  99.