I don't execute the code.
I using the 11.6 version.
View attachment 2041
FIRST place no .pf file in this statement
-assemblies C:\DirectoryofDLL
USING ThoughtWorks.QRCode.Codec.*.
USING System.Drawing.*.
DEF VAR i-ix AS INT.
DEF VAR c-local AS CHAR.
DEF VAR c-arquivo AS CHAR.
DEF VAR c-texto AS CHAR.
DEFINE VARIABLE c-QrCode AS ThoughtWorks.QRCode.Codec.QRCodeEncoder NO-UNDO.
DEFINE VARIABLE c-imagem AS System.Drawing.Image NO-UNDO.
REPEAT i-ix = 1 TO (NUM-ENTRIES(FILE-INFO:FILE-NAME,'\') - 1):
ASSIGN c-local = c-local + '\' + ENTRY(i-ix, FILE-INFO:FILE-NAME,'\').
END.
ASSIGN c-local = SUBSTRING(c-local,2,5000)
c-arquivo = "Qrcode.png"
c-local = c-local + "\" + c-arquivo
c-texto = "A:123456789*B:999999990*C
T*D:FT*E:N*F:20191231*G:FT AB2019/0035*H:CSDF7T5H-0035*I1
T*I2:12000.00*I3:15000.00*I4:900.00*I5:50000.00*I6:6500.00*I7:80000.00*I8:18400.00*J1
T-AC*J2:10000.00*J3:25000.56*J4:1000.02*J5:75000.00*J6:6750.00*J7:100000.00*J8:18000.00*K1
T-MA*K2:5000.00*K3:12500.00*K4:625.00*K5:25000.00*K6:3000.00*K7:40000.00*K8:8800.00*L:100.00*M:25.00*N:64000.02*O:513600.58*P:100.00*Q:kLp0*R:9999*S:TB;PT00000000000000000000000;513500.58".
c-QrCode = NEW QRCodeEncoder().
c-QrCode:QRCodeVersion = 18.
c-imagem = c-QrCode:Encode(c-texto).
DELETE OBJECT c-QrCode.
c-imagem:Save(c-local,System.Drawing.Imaging.ImageFormat
ng).
OS-COMMAND SILENT VALUE(c-local).