now with Harbourino preprocessor we can use this simple codeing syntax for our OpenXML word programming.
Best regards
Otto
- Code: Select all Expand view
method OffertDetailsHeader()
local cPositionen := ""
*----------------------------------------------------------
cPositionen += '<w:tbl>' + CRLF
cPositionen += '<w:tblGrid>' + CRLF
cPositionen += '<w:gridCol w:w="9083"/>' + CRLF
cPositionen += '</w:tblGrid>' + CRLF
cPositionen += '<w:tr w:rsidR="006E5E3D" w:rsidTr="006E5E3D">' + CRLF
$-> TableColumnLeft.prg : prozent= 60; content='Bezeichnung'
$-> TableColumnRechts.prg : prozent= 10; content='Menge'
$-> TableColumnRechts.prg : prozent= 10; content='Preis'
$-> TableColumnRechts.prg : prozent= 20: content='Wert'
cPositionen += '</w:tr>' + CRLF
cPositionen += '</w:tbl>' + CRLF
return( cPositionen )
//----------------------------------------------------------------------------//
TableColumnLeft.prg
- Code: Select all Expand view
&-
cPositionen += '
<w:tc>
<w:tcPr><w:tcW w:type="pct" w:w="|prozent|"/></w:tcPr>
<w:p w:rsidR="0062457A" w:rsidRDefault="00290886" w:rsidP="00290886">
<w:pPr><w:rPr><w:color w:val="404040"/></w:rPr>
</w:pPr><w:rPr><w:color w:val="404040"/></w:rPr>
<w:t>'+ |content|+'</w:t>
</w:p>
</w:tc>
' + CRLF
-&
Best regards
Otto
