home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 21 / CTROM21A.mdf / mmm / bestel.dxr / 00046.ls < prev    next >
Encoding:
Text File  |  1999-09-27  |  3.6 KB  |  92 lines
  1. on printbestel hcc, abo, nederl, macht, nr, date
  2.   register(xtra("PrintOMatic"), "POMX153-131-03210")
  3.   doc = new(xtra("PrintOMatic"))
  4.   if not objectp(doc) then
  5.     exit
  6.   end if
  7.   setDocumentName(doc, "Bestelformulier")
  8.   newPage(doc)
  9.   w = getPageWidth(doc)
  10.   h = getPageHeight(doc)
  11.   startx = 0
  12.   starty = 0
  13.   setColor(doc, 0, 0, 0)
  14.   newFrame(doc, rect(startx, starty, w, h), 0)
  15.   if abo then
  16.     append(doc, member("form01"), 1)
  17.   else
  18.     append(doc, member("form00"), 1)
  19.   end if
  20.   newFrame(doc, rect(startx + 10, starty + 225, w, h), 0)
  21.   setTextFont(doc, "Arial")
  22.   setTextSize(doc, 12)
  23.   setTextStyle(doc, "bold")
  24.   append(doc, "Naam en voorletters:" & RETURN, 1)
  25.   append(doc, "Adres:" & RETURN, 1)
  26.   append(doc, "Postcode + woonplaats:" & RETURN, 1)
  27.   if nederl then
  28.     append(doc, "Land: Nederland" & RETURN, 1)
  29.   else
  30.     append(doc, "Land:" & RETURN, 1)
  31.   end if
  32.   append(doc, "Telefoonnummer:" & RETURN, 1)
  33.   newFrame(doc, rect(startx + 10, starty + 322, w, h), 0)
  34.   if hcc and abo then
  35.     append(doc, "Ik ben HCC-lid en betaal f70,--/1400 BF." & RETURN & "Mijn lidmaatschapsnummer is:" & RETURN, 1)
  36.   else
  37.     if not hcc and abo then
  38.       append(doc, "Ik ben nog geen HCC-lid en betaal f95,--/1900 BF." & RETURN, 1)
  39.     else
  40.       if hcc and not abo then
  41.         append(doc, "Ik ben HCC-lid en betaal f22,50/450 BF." & RETURN & "Mijn lidmaatschapsnummer is:" & RETURN, 1)
  42.       else
  43.         if not hcc and not abo then
  44.           append(doc, "Ik ben nog geen HCC-lid en betaal f29,95/595 BF." & RETURN, 1)
  45.         end if
  46.       end if
  47.     end if
  48.   end if
  49.   newFrame(doc, rect(startx + 10, starty + 360, w, h), 0)
  50.   if macht then
  51.     append(doc, "Automatische incasso:" & RETURN & RETURN, 1)
  52.     append(doc, " Naam en voorletters:" & RETURN, 1)
  53.     append(doc, " Adres:" & RETURN, 1)
  54.     append(doc, " Postcode + woonplaats:" & RETURN, 1)
  55.     if nederl then
  56.       append(doc, " Land: Nederland" & RETURN, 1)
  57.     else
  58.       append(doc, " Land:" & RETURN, 1)
  59.     end if
  60.     append(doc, " Bank/girorekeningnummer:" & RETURN & RETURN, 1)
  61.     if hcc and abo then
  62.       append(doc, "Verleent hierbij IDG Communications B.V. te Haarlem toestemming om f70,-- van bovenstaande rekening af te schrijven in verband met C!T-ROM " & nr & "." & RETURN, 1)
  63.     else
  64.       if not hcc and abo then
  65.         append(doc, "Verleent hierbij IDG Communications B.V. te Haarlem toestemming om f95,-- van bovenstaande rekening af te schrijven in verband met C!T-ROM " & nr & "." & RETURN, 1)
  66.       else
  67.         if hcc and not abo then
  68.           append(doc, "Verleent hierbij IDG Communications B.V. te Haarlem toestemming om f22,50 van bovenstaande rekening af te schrijven in verband met C!T-ROM " & nr & "." & RETURN, 1)
  69.         else
  70.           if not hcc and not abo then
  71.             append(doc, "Verleent hierbij IDG Communications B.V. te Haarlem toestemming om f29,95 van bovenstaande rekening af te schrijven in verband met C!T-ROM " & nr & "." & RETURN, 1)
  72.           end if
  73.         end if
  74.       end if
  75.     end if
  76.   else
  77.     if nederl then
  78.       append(doc, "Ik stuur een ingevulde Eurocheque of girobetaalkaart mee." & RETURN, 1)
  79.     else
  80.       append(doc, "Ik maak het verschuldigde bedrag over op rekeningnummer 720-520-6775-21 van de ABN-AMRO Bank te Brussel o.v.v. C!T-ROM " & nr & "." & RETURN, 1)
  81.     end if
  82.   end if
  83.   newFrame(doc, rect(startx + 280, starty + 525, w, h), 0)
  84.   append(doc, "Datum:" & RETURN, 1)
  85.   append(doc, "Handtekening:" & RETURN, 1)
  86.   setColor(doc, 255, 255, 255)
  87.   newFrame(doc, rect(startx + 280, starty + 585, w, h), 0)
  88.   append(doc, "U kunt deze machtiging opsturen tot " & date & RETURN, 1)
  89.   print(doc)
  90.   doc = 0
  91. end
  92.