PC Toledo

Estou tentando fazer um código rodar como serviço.
Instalado tudo direitinho com o NSSM.
Porém, ao executar, pelo menos segundo o log que implementei, ele para num determinado trecho e não segue, não me dá nenhuma satisfação rsrsrrs
Alguém com experiência no assunto para comentar ?

Segue o trecho ...

Olá!
Não compilava os exemplos, mas compilava um teste simples. E agora dá erro.
[1] Saving project files...
Form1.prg
[2] Building main.prg...
[3] Compiling main.prg...
OK
[4] Compiling framework...
OK
[5] Compiling C sources...
OK
[6] Compiling GTK3 backend...
OK
[7] Linking...
FAILED:
/usr ...

Olá!
Fica o meme! kkkkk

... própria da linguagem, completa, multiplataforma, de código aberto e gratuita.

Tudo começou com a curiosidade do Antônio Liñares em testar Claude Code, uma IA própria para escrever código fonte.

Ele foi guiando esta IA com os requisitos que imaginou para a IDE e a IA foi gerando o código em C ...

Amiguinhos,

Mude:
oHttp:Open("POST", cUrl, .F.)
oHttp:SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
oHttp:Send(cbody)

Por:
oHttp:Open("POST", cUrl + "?" + cbody, .F.)
oHttp:SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
oHttp:Send("")

... CreateObject("WinHttp.WinHttpRequest.5.1")
oHttp:Open("POST", cUrl, .F.)
oHttp:SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
oHttp:Send(cbody)
cResponse := oHttp:ResponseText
cToken := extraiJson( cResponse, "access_token" )


MAS AQUI na operacao pra mandar um xml ...

... oWeb :Open(vmetodo, cUrl + oData, .F. ) // <==== soma no endereço
oWeb :SetRequestHeader( "Content-Type","application/x-www-form-urlencoded")
oWeb :Send("") // hb_JsonEncode( oData ) ) <=== envia vazio o outro tá comentado
oWeb :WaitForResponse( 300 )
cResposta := oWeb:ResponseBody ...

... MSXML2.ServerXMLHTTP" )
oWeb :Open(vmetodo, cUrl + oData, .F. )
oWeb :SetRequestHeader( "Content-Type","application/x-www-form-urlencoded")
oWeb :Send("") // hb_JsonEncode( oData ) )
oWeb :WaitForResponse( 300 )
cResposta := oWeb:ResponseBody()

RETURN cResposta



d:\temp>type ...

Olá!
Pq vocês não usam algo nativo, que já tem no windows ?
1. Forma mais simples e recomendada (sem instalar nada extra) – Usando PowerShell (funciona dentro do CMD)
powershell -command "Start-Process -FilePath 'C:\caminho\seu_arquivo.pdf' -Verb Print"


Isso usa o leitor de PDF padrão do Windows ...

segue


curl --location 'https://apigateway.digitalcomm.com.br:8443/auth/oauth/v2/token' \
--header 'Content-Type: application/x-www-form-urlencoded' \
--data-urlencode 'client_id=b11817f1-36c5-4119-b0a8-d95e8c960e1b' \
--data-urlencode 'client_secret=f3b469c2-88a0-4eca-9116-fdc92d936e17' \
--data ...

Amiguinhos,

Você está usando:

oWeb :SetRequestHeader( "Content-Type","application/x-www-form-urlencoded")
oWeb :Send( hb_JsonEncode( oData ) )


Quando deveria fazer:

oWeb :SetRequestHeader( "Content-Type", "application/json")
oWeb :Send( hb_JsonEncode( oData ) )


Você expôs suas client_id e ...

... local oWeb, cResposta
oWeb := win_OleCreateObject( "MSXML2.ServerXMLHTTP" )
oWeb :Open(vmetodo, cUrl, .F. )
oWeb :SetRequestHeader( "Content-Type","application/x-www-form-urlencoded")
oWeb :Send( hb_JsonEncode( oData ) )
oWeb :WaitForResponse( 300 )
cResposta := oWeb:ResponseBody()
return cResposta

Amiguinhos,

O controle de contingencia deve ser usado quando o SEFAZ se torna instável, sem acesso ou a empresa está sem internet.

Durante uma urgência, a emissão da nota deve ser feita neste modelo contingenciada e no primeiro minuto do problema ter sido sanado transmitida para o portal.

Podemos ...

Tente assim ou veja no manual próprio.

// Exemplo conceitual para impressão direta
cComandos := "SIZE 100 mm, 150 mm" + CRLF + ;
"CLS" + CRLF + ;
"TEXT 10,10,""3"",0,1,1,""Exemplo Knup""" + CRLF + ;
"PRINT 1" + CRLF
nHandle := fcreate("LPT1") // Ou a porta USB mapeada
fwrite(nHandle ...

... IN aPDFMsgList
::DrawText( nLine + 42 + ( cTxt:__EnumIndex * 3 ), 20, cTxt, , ::nfontsizeNormal )
NEXT
IF nVia == 2 .AND. ! Empty( oBoleto:cPixCode )
::DrawBarcodeQRCode( nLine + 39, 128, 0.8, oBoleto:cPixCode )
ENDIF

::DrawLine( nLine + 44, 158, nLine + 44, 197 )

::DrawLine( nLine + 50 ...