21 lines
872 B
Plaintext
21 lines
872 B
Plaintext
#DEFINE CRLF Chr(13) + Chr(10)
|
|
SET PROCEDURE TO D:\ROA_RB\ROAPRINT\COMUN\UTILE\WEB\htmlmerge.prg ADDITIVE
|
|
SET PROCEDURE TO D:\ROA_RB\ROAPRINT\COMUN\PROGRAME\regex.prg ADDITIVE
|
|
lcTemplate = "c:\roaprint_initializari\totals_win.tmpl"
|
|
Create cursor bon (TIP N(2),DENUMIRE C(50),CANTITATE N(10,4),PRET N(10,4),UM C(10),COTATVA N(5,2),DEPARTAMENT N(2))
|
|
Insert into bon(tip, denumire, cantitate, pret, um, cotatva, departament) values (1,'ARTICOL 1', 1, 10.00, 'BUC', 1.19, 1)
|
|
loHTML = CREATEOBJ('HTMLMerge')
|
|
lcText = FILETOSTR(lcTemplate)
|
|
lcText = loHTML.ScanMerge(lcText)
|
|
lcText = loHTML.cHtml
|
|
MessageBox(lcText)
|
|
lcText = strtranregexp(lcText,"(^<.*>\r*\n*)", "") && <...> + chr(13) + chr(10)
|
|
Debug
|
|
Suspend
|
|
lnPos = At(CRLF+CRLF,lcText)
|
|
Do while lnPos > 0
|
|
lcText = Strtran(lcText, CRLF+CRLF, CRLF)
|
|
lnPos = At(CRLF+CRLF,lcText)
|
|
EndDo
|
|
MessageBox(lcText)
|