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

2
programe/actualizare_aplicatie.prg
View File

@@ -21,6 +21,7 @@ IF m.llSucces
TRY
This.Log(m.lcServer)
loHTTP.Open('GET', lcServer, .F.)
loHTTP.SetRequestHeader('User-Agent', 'Mozilla/5.0 (Windows NT 10.0; Win64; x64)')
loHTTP.setRequestHeader("Content-Type", "application/xml")
loHTTP.Send()
llSucces = .T.
@@ -69,6 +70,7 @@ If m.llSucces AND m.lcVersiuneServer <> m.lcVersiuneClient AND !EMPTY(m.lcServer
TRY
This.Log(m.lcServer)
loHTTP.Open('GET', lcServer, .F.)
loHTTP.SetRequestHeader('User-Agent', 'Mozilla/5.0 (Windows NT 10.0; Win64; x64)')
loHTTP.setRequestHeader("Content-Type", "application/vnd.microsoft.portable-executable")
loHTTP.Send()
llSucces = .T.

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

1
programe/oproceduri_comune.prg
View File

@@ -8353,6 +8353,7 @@ PROCEDURE HTTPDownloadFile
loHTTP = Createobject("winhttp.winhttprequest.5.1")
loHTTP.Open("GET", m.lcURL, .F.)
loHTTP.SetRequestHeader('User-Agent', 'Mozilla/5.0 (Windows NT 10.0; Win64; x64)')
loHTTP.Send()
lnStatus = loHTTP.Status
lnBytes = 0

1
programe/xmlefactura-preview.prg
View File

@@ -100,6 +100,7 @@ Define Class eFacturaXmlPreview As Custom
* Deschide conexiunea
loXMLHTTP.Open("POST", This.webURL + "receiver.php", .F.)
loXMLHTTP.SetRequestHeader('User-Agent', 'Mozilla/5.0 (Windows NT 10.0; Win64; x64)')
* Seteaza headere
loXMLHTTP.setRequestHeader("Content-Type", "application/xml; charset=UTF-8")