PC Toledo

Ola Quintas,

Não seria esse aqui, esta em informe tecnicos:

Olá Quintas,

Grato pela ajuda.

Não tinha visto essa sua postagem, mais ao baixar o novo manual do BRADESCO achei a resposta.


if ::DtVenc > ctod([21/02/2025])
cFatorVenc := STRZERO( ((::DtVenc-dDataBase)-9000), 4 )
else
cFatorVenc := STRZERO( ::DtVenc - dDataBase , 4 ) //4 < 10000 = 9999 ...

Ola Amigos,

Uso o harbour boleto e hoje apareceu um problema.

A geração ate o vencimento em 21/02/2025 no campo digitavel do boleto fica desta maneira 99990000819600, sendo 9999 para o vencimento 21/02/2025 e 819600 para o valor.

A partir de 22/02/2025 a meu ver seria 10000, so que em um boleto ...

Olá, amigos,

Agradeço as respostas. consegui fazer...

Desculpe, me expressei mal, era um imagem de um arquivo PDF codificado em base64.

Estava errando em não ler o arquivo, hb_memoread(cBase64Image)



FUNCTION TESTE_PDF()
PRIVATE cBase64Image := [C:\PETROBRAS\TESTE.A64], hOutput
PRIVATE ...

Ola Amigos,

Alguém teria um exemplo de como converte um arquivo de uma NFe codificado em BASE64 para PDF.

Agradeço a ajuda.

Ola Amigos,

Consegui enviar via Soapui, mais nao consigo enviar via MSXML...

No soapui, fica assim, como devo parametrizar para conseguir enviar.

Nao consigo entender como anexar, como o soap faz via attachamnet

Tentei dessa maneira, mais não vai.


cTXT:='c:\json_teste.zip'

oHttps:= win ...

Ola Amigos,

Como faço para enviar um arquivo json em form-data pelo MSXML, e possivel?

Passaram esse documentação, mais nao sei como fazer.


curl
--location "https://datareception.solutions.iqvia.com/api/v1/layout1/upload" \
--header "Content-Type: multipart/form-data" \
--header ...

Ola amigos,


Alexandre, baseado em minha necessidade, fiz assim:



FUNCTION AcrescentaTempo( dias, horas, minutos, segundos ) // soma tempo a data atual
LOCAL tResulta := hb_DateTime()
LOCAL tINICIO, tFINAL

tINICIO:=tRESULTA

IF dias > 0
tRESULTA := tRESULTA += DIAS
ENDIF

IF horas > 0 ...

Ola amigos,

Pesquisando na net, tip_URLEncode(), achei esse site que converte...

Observe que ele faz exatamente como deve ser, fica a dica.

Olá amigos,

Agradeço a todos pela ajuda, mais infelizmente não funciona.

Criei uma rotina, pois somente preciso converter o formato time(), onde altero o espaço e os dois pontos, deixando no formato que preciso enviar:

?dt_ultima_requisicao=2023-12-15%2021%3A00%3A00

como e feito no SoapUI em que ...

Ola Amigos,

Existe alguma funcao que converta um datetime para envio em uma URL?

No SoapUi no envio ele converte 2023-12-15 21:00:00 em 2023-12-15%2021%3A00%3A00"

Preciso enviar essa Query usando MSXML2.ServerXMLHTTP.6.0 mais não sei como converte este datetime, ou se existe ano no MSXML2 ...

Ola amigos,

Resolvido, bastou eu usar o HB_MD5()...

Ola Pessoal,

Rochinha, grato pela sua atenção e me desculpe não ter respondido antes, mais por problema particular não tive tempo de dar continuidade a essa rotina.

Vamos lá, pesquisando consegui achar o tipo de criptográfica, que no caso na ANS e usado o MD5.

Pelo que pesquisei, devo retirar ...

Ola Amigos,

Preciso gerar um arquivo xml para envio a convenio medico referente a TISS SP/SADT, e nao sei como calcular o codigo hash deste arquivo.

Pesquisei aqui no forum e achei diversos exemplos, mais não consegui entender como devo proceder.

Achei na net diversos site que fazem este calculo ...

Ola Amigos,

Baseado neste exemplo:


/* This is a very basic sample of using browse.
Hwg_WChoice() do the same and more */
#include "hwgui.ch"
Function Test()
Local oDlg, oBrw
Local aSample := { {"Alex",17,1200,17,1200,17,1200,17,1200,17,1200}, {"Victor",42,1600,17,1200,17,1200,17,1200,17,1200 ...