Categorie
Sage X3 Tips & Tricks

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

 

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *