Sage X3 Create a new CLOB Text

Here how to create a CLOB text

Funprog F_CRELOB(YABRFIC,YTEXTE)
Value Char YABRFIC
Value Char YTEXTE

  Local Char XXRTFTXT(250)(3)
  XXRTFTXT(0) = "{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fprq2\fcharset0 MS Sans Serif;}}\viewkind4\uc1\pard\f0\fs17 "
  XXRTFTXT(1) = YTEXTE
  XXRTFTXT(2) = "\par}"

  Local Char X_RET
  Local Integer XXOK
  Local Char XCHAMPLIEN : XCHAMPLIEN = "YYYY"
  Global Char YYYY : YYYY = YABRFIC

  Local Clbfile WWCLOB
  Local Mask ACLOB [M:ACL]
  Setlob WWCLOB With XXRTFTXT
  [M:ACL]CLOB = WWCLOB
  Call CRE_CLOB_ACL(XCHAMPLIEN,XXOK) From TRTX3TEX
  Close Local Mask [M:ACL]
  X_RET = YYYY
  Kill YYYY

End X_RET

 

Leave a Reply