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
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 )
//----------------------------------------------------------------------------//
Code: Select all
&-
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