romfast/tasks
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial commit - tasks v1.1.14

Browse Source 
Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-04-21 15:46:20 +03:00
commit d91b19e336
218 changed files with 8258 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
programe/testmerge.prg Normal file
View File

@@ -0,0 +1,20 @@
#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)