PC Toledo

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 ...

Na atual tem DrawBox(), talvez seja equivalente.

Um modelo de uso, não específico de DrawBox(), é o boleto, da BoletoClass

Um outro, está com o uso de MySQL do meu aplicativo, mas seria trocar pra texto simples e/ou outra base de dados.
É com a pdfclass atual e DrawBox():


/*
PJPPEDIDOFATURA ...

Bom dia!

Estou desenhando um retangulo, gostaria de colocar as letras pretas e o fundo cinza usando o PDFClass do José Quintas.

oPDF:DrawRetangle( 9, 0, nMaxCol/4, 5.5, Nil, Nil, Nil ) //fundo cinza
oPDF:DrawText( 10, 1, "Vendedor:", Nil, 8, "Helvetica", Nil, Nil ) //letras pretas

Já procurei ...

... 18", "TED (Transferência Eletrônica Disponível)" ],
[ "19", "Programa de fidelidade, Cashback, Crédito Virtual" ],
[ "20", "PIX QRCode Estático ou Transferência" ],
[ "21", "Crédito em Loja, pago anteriormente, devolução, etc" ],
[ "22", "Pagto Eletrônico não informado, por falha de ...

Olá Pessoal,

Alguém usa ou sabe usar a função Leto_ProcessRun()? Não consigo rodar nada com ela...

Leto_ProcessRun (<cCmd>, NIL, [<@cStdOut>], [<@cStdErr>]) ==> nError

Extraído do Manual do Leto_DBF (Traduzido):

* TENHA CUIDADO COM O COMANDO <cCmd> *, pois um processo não finalizado ...