romfast/comun
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sync SVN r18181

Browse Source
This commit is contained in:
Marius Mutu
2026-09-18 19:48:19 +03:00
parent 79214c44ea
commit 45aad0f07c
5 changed files with 1122 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
programe/xmlefactura.prg
View File

@@ -1240,7 +1240,7 @@ Define Class ExportEFactura As Custom
* lReturn: .T. valid, .F. invalid
Local loReturn, llValid
Local loHTTP As 'winHTTP.winHTTPrequest.5.1'
Local lcFileName, lcFisierRaspuns, lcMesaj, lcSend, lcServer, lcStare, llOk, llSilentios, llSucces
Local lcFileName, lcFisierRaspuns, lcMesaj, lcSend, lcServer, lcStare, lcTip, llOk, llSilentios, llSucces
Local lnMesaj, lnMesaje, loJson, loMessage, loEx as Exception, lcToken
llValid = .F.
@@ -1268,13 +1268,14 @@ Define Class ExportEFactura As Custom
If !Empty(m.lcFileName) And Type('lcFileName') = 'C' And File(m.lcFileName)
TRY
lcSend = Filetostr(m.lcFileName)
lcTip = IIF('CreditNote'$m.lcSend, 'FCN', 'FACT1')
IF !EMPTY(m.lcToken)
* validare oauth
lcServer = [https://api.anaf.ro/prod/FCTEL/rest/validare/FACT1]
lcServer = [https://api.anaf.ro/prod/FCTEL/rest/validare/] + m.lcTip
ELSE
* validare fara autentificare
lcServer = [https://webservicesp.anaf.ro/prod/FCTEL/rest/validare/FACT1]
lcServer = [https://webservicesp.anaf.ro/prod/FCTEL/rest/validare/] + m.lcTip
ENDIF
loHTTP = Createobject('winHTTP.winHTTPrequest.5.1')