Word from FW with OpenXML
Posted: Thu Dec 05, 2019 4:11 pm
Hello,
now with Harbourino preprocessor we can use this simple codeing syntax for our OpenXML word programming.
Best regards
Otto
TableColumnLeft.prg
Best regards
Otto
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