Skip to main content
Skip table of contents

Erstellen einer rtf-Tabelle mit flexiblem Layou aus einer Datenquelle

Im vorliegenden Beispiel werden die Daten aus der Tabelle KDNPRG in einer Tabelle auf der Arbeitskarte dargestellt.
Es wird in der Variable cText ein html-Code abgelegt. Und dann mittels Standard-Funktion MemoHTMLToRTF eine rtf-Text daraus erstellt, welcher im Layout dargestellt werden kann.

CODE
| cText, oDM, oKDNPRG, oMemoBO |

oDM := createObject('TBeDbget'),
startseq
   oKDNPRG := MygetTable(oDM, waKDNPRG, ),
   oKDNPRG.IndexName := 'DAB210_ID',
   DbScope(,oKDNPRG),
   DbScope({DAB240:DAB210_ID},{DAB240:DAB210_ID},oKDNPRG),
   cText := '',
   if not noDS(oKDNPRG) then
      cText := '<html><body><table border style="width:100%; border:#C10 thin ">'+crlf,
      cText += '<tr><th width=20%>Prog. Nr.</th><th width=10%>Sp</th><th width=10%>EsM</th><th width=10%>G Sp</th><th>Kommentar</th></tr>'+crlf,
      DbGoTop(oKDNPRG),
      while not eof(oKDNPRG) do
         cText += '<tr><td>'+oKDNPRG:PROGNR+'</td><td>'+oKDNPRG:SPANNMITT+'</td>',
         cText += '<td>'+oKDNPRG:ESPAMASS+'</td><td>'+oKDNPRG:GEGESPANN+'</td>',
         cText += '<td>'+oKDNPRG:MEMO+'</td></tr>'+crlf,
         dbskip(1, oKDNPRG),
      end,
      cText += '<tr><td></td><td></td><td></td><td></td><td></td></tr>'+crlf,
      cText += '<tr><td></td><td></td><td></td><td></td><td></td></tr>'+crlf,
      ctext += '</table></body></html>',
      oMemoBo := CreateObject('TBeMemoBo'),
      startseq,
         oMemoBo.MemoID := 74, // An ID mit z.B. E-Mail anpassen
         cText := MemoHTMLToRTF(cText, oMemoBo.CbId),    writeln(cText),
      always,
         DestroyObject(oMemoBo),
      stopseq,
   endif,

   printvarval(printobject(report,"Programme"),cText),
always
   destroyobject(oDM),
stopseq,
''
JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.