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

sync SVN r18224

Browse Source
This commit is contained in:
Marius Mutu
2026-09-29 16:36:55 +03:00
parent ca8e7ca694
commit 1ae4086ee6
14 changed files with 1092 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
programe/anaf_efactura.prg
View File

@@ -624,6 +624,7 @@ select a.*, cast(NULL as varchar2(1000)) as factura_detalii, 0 as modificat
loHTTP = CREATEOBJECT('WinHttp.WinHttpRequest.5.1')
loHTTP.SetTimeouts(5000, 5000, 5000, 5000)
loHTTP.Open('POST', lcPickUrl, .F.)
loHTTP.SetRequestHeader('User-Agent', 'Mozilla/5.0 (Windows NT 10.0; Win64; x64)')
loHTTP.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded')
loHTTP.Send('state=' + lcState)
lnStatus = loHTTP.Status
@@ -714,7 +715,6 @@ select a.*, cast(NULL as varchar2(1000)) as factura_detalii, 0 as modificat
llSucces = .T.
lcRefreshToken = Alltrim(This.cRefreshToken)
tcMesaj = ''
SET STEP ON
If Empty(m.lcRefreshToken)
tcMesaj = 'Completati Refresh Token'
This.Log(m.tcMesaj)
@@ -724,6 +724,7 @@ select a.*, cast(NULL as varchar2(1000)) as factura_detalii, 0 as modificat
TRY
loHTTP = Createobject('winHTTP.winHTTPrequest.5.1')
loHTTP.Open('POST', lcURL, .F.)
loHTTP.SetRequestHeader('User-Agent', 'Mozilla/5.0 (Windows NT 10.0; Win64; x64)')
loHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
loHTTP.Send([refresh_token=] + m.lcRefreshToken)
@@ -735,6 +736,7 @@ select a.*, cast(NULL as varchar2(1000)) as factura_detalii, 0 as modificat
TRY
loHTTP = Createobject('MSXML2.XMLHTTP.6.0')
loHTTP.Open('POST', lcURL, .F.)
loHTTP.SetRequestHeader('User-Agent', 'Mozilla/5.0 (Windows NT 10.0; Win64; x64)')
loHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
loHTTP.Send([refresh_token=] + m.lcRefreshToken)
CATCH TO loEx