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

anaf efactura generare token cu citire automata token din romfast.ro

Browse Source
This commit is contained in:
Marius Mutu
2026-07-07 22:49:57 +03:00
parent 0acdff9647
commit 71bafec09b
7 changed files with 232 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
COMUN/programe/oexport.prg
View File

@@ -299,9 +299,12 @@ Define Class oExportConfig As wwConfig
Endfunc && Report2File
************************************** INCEPUT : open_default_app
*!* 07.07.2026
*!* open_default_app - intoarce .T./.F. dupa rezultatul ShellExecute (>32 = succes)
*!* apelantii existenti care ignora rezultatul nu sunt afectati
Procedure OPEN_DEFAULT_APP
Parameters tcNumeFisier
Local lcActiune
Local lcActiune, lnResult
Declare Integer ShellExecute In shell32.Dll ;
Integer hndWin, ;
@@ -311,8 +314,9 @@ Define Class oExportConfig As wwConfig
String cDir, ;
Integer nShowWin
lcActiune = "open"
ShellExecute(0, lcActiune, tcNumeFisier, "", "", 1)
lnResult = ShellExecute(0, lcActiune, tcNumeFisier, "", "", 1)
Return (m.lnResult > 32)
Endproc && open_default_app
************************************** SFARSIT : open_default_app
************************************** INCEPUT : getExcelMask