sygecom

Eu sei que muda isso no MY.INI / MY.CNF que fica dentro da instalação do Mysql, mas não lembro o parâmetro. Entre tanto olha a dica do chatgpt: No MySQL, você pode ajustar o parâmetro wait_timeout para controlar o tempo que uma conexão ociosa pode permanecer aberta antes de ser fechada pelo servidor. Este parâmetro especifica o número de segundos de inatividade após os quais uma conexão será fechada automaticamente. Para definir um valor para wait_timeout, você pode executar uma consulta SQL como esta: SET GLOBAL wait_timeout = 300; -- Define o tempo limite de espera para 300 segundos (5 minutos) Isso definirá o tempo limite de espera globalmente para todas as conexões no servidor. Você também pode definir isso no arquivo de configuração do MySQL (por exemplo, my.cnf ou my.ini) para que ele persista entre reinicializações do servidor. Lembre-se de que ajustar esse valor pode afetar o comportamento do seu aplicativo, especialmente se você tiver conexões de longa duração. Certifique-se de ajustá-lo de acordo com as necessidades do seu sistema.

Qual gerenciador de banco de dados está usando ? MYSQL, POSTGRESQL OU .....?

Eu procuraria outras resposta. 1-O que fazer depois que aposentar e, claro que deve valer a pena a ocupação mental e física( fazer o que gosta ) 2-Como se manter $$$ depois que aposentar. Se tivermos essas duas respostas bem definida, o restante já está resolvido.

Eu uso xharbour 1.2.3 Geralmente eu transformo o JSON em HASH e depois procuro no Hash hHash := Hash() cJSON:='{'+; '"message": "Segue documento para assinatura.",'+; '"skip_email": "0",'+; '"workflow": "1"'+; '}' hb_jsondecode( cJSON, @hHash ) // aqui transforma o JSON em HASH IF HHasKey( hHash, 'workflow' ) ? 'EXISTE' ELSE ? 'NÃO EXISTE' ENDIF

Alguem tem a versão 64bits do Bcc 7.70?

Visualmente parece que seu JSON está faltando virgulas, tente gerar o JSON e valida nesse site: https://jsonlint.com/ cTexto := '{ ' cTexto += '"id_client": ' + pCpf +"," cTexto += '"id_company": ' + pCnpj+"," cTexto += '"Id_employee": ' + pNome+"," cTexto += '"File": ' + pArquivo cTexto += ' }'

Bom dia pessoal. Pra quem não viu ainda, mas todos os fontes do xharbour.com está liberado Open source. Inclusive o SQLRDD https://github.com/ronpinkas/xharbour/tree/main/xHarbourBuilder/xHarbour-SQLRDD

Aqui usamos: https://receitaws.com.br/

Bom dia Alê, Lembro de você em um evento do Fivewin que aconteceu em Minas, acho que no SESC, foi top aquele evento, por aqui tudo corrido e por ai ? tudo bem ? Segue abaixo o exemplo, como eu disse não está 100% mas da para partir dai para fazer algo bem legal. FUNCTION MyManualReport( cTXT2FR3 ) /* Recebe por parâmetro o arquivo .txt ou .prn para mostrar na tela do fastreport exemplo: c:\syg_temp\relatorio.txt */ local oFrPrn IF !FILE(cTXT2FR3) ShowMsg("Erro ao localizar o arquivo para impressão " +cTXT2FR3 ) RETURN(.F.) ENDIF oFrPrn := frReportManager():new() //oFrPrn:LoadLangRes(PEGA_ARQUIVO_SAGI(1,.T.)) // aqui é o icone da tela oFrPrn:PreviewOptions:SetShowCaptions(.T.) oFrPrn:SetIcon(1001) oFrPrn:SetTitle("Visualizador de Relatórios do Sistema.") oFrPrn:StartManualBuild( { || MyManualReport2(oFrPrn,cTXT2FR3) }, FR_LANDSCAPE, , FR_PIXELS ) oFrPrn:PrepareReport() oFrPrn:ShowPreparedReport() oFrPrn:Clear() oFrPrn:DestroyFR() // detona com o fastreporte e a dll da memoria. oFrPrn:=nil RETURN(.t.) FUNCTION MyManualReport2(oFrPrn,cTXT2FR3) /* Exemplo de uso sem arquivo .FR3 */ local tmp_Name:='', cText_ARQ:='', nLINES:=0, nA:=0, nINIT_LINE:=0, cIMPTEXT:='' //local cLOGO:=ARQUIVOLOGOMARCA() // pega o logotipo do cliente para mostrar no relatorio local cLOGO:='' oFrPrn:SetDefaultFontProperty( "Name", "Arial" ) oFrPrn:SetDefaultFontProperty( "Size", 10 ) IF !EMPTY(cLOGO) oFrPrn:PictureAt( cLOGO , 30, 200, 150, 150 ) nINIT_LINE:=300 ENDIF cText_ARQ := memoread( cTXT2FR3 ) // carrega o TXT nLINES := mlcount( cText_ARQ, 250 ) // total de linhas FOR nA := 1 to nLINES cLINE := MEMOLINE( cText_ARQ, 250, nA, 1, .F., .T. ) IF Left(AllTrim( cLine ), 1 ) == Chr( 15 ) .or. Left( AllTrim(cLine), 1 ) == Chr( 18 ) loop ENDIF If Left(AllTrim(cLine),1)==Chr(12) //SALTO DA PAGINA LOOP //oFrPrn:NewPage() ENDIF IF AT('[',cLine)>0 .OR. AT(']',cLine)>0 cLine:=Stuff(cLine, AT('[',cLine),1,'-') cLine:=Stuff(cLine, AT(']',cLine),1,'-') ENDIF IF !EMPTY(ALLTRIM(cLINE)) //oFrPrn:MemoAt(cLINE, 100, (nA*100)+nINIT_LINE, 350, 50 ) nINIT_LINE:=0 cIMPTEXT:=cIMPTEXT+cLINE+CR_LF //MemoAt(cStr, nLeft, nTop, nWidth, nHeight) ENDIF NEXT oFrPrn:MemoAt(cIMPTEXT, 10, 350, 1500, 1500 ) * tmp_Name := oFrPrn:MemoAt( "Some memo with bottom frame ...", 30, 30, 300, 50 ) * oFrPrn:SetManualObjProperty( tmp_Name + ".Frame", "Typ", "[ftBottom]" ) // oFrPrn:LineAt( 30, 200, 100, 100 ) // oFrPrn:MemoAt( "<-- It's a some line ...", 200, 250, 350, 50 ) // oFrPrn:NewPage() // oFrPrn:MemoAt( "It's a second page..................", 30, 30, 100, 1000 ) RETURN(.T.)

@alex2002 Tenho um exemplo que não está 100% que lê relatórios em TXT para gerar em FASTREPORT, se isso ajuda posso postar aqui.

É um projeto open source https://github.com/blueedgetechno/win11React

kkkkkkkkkkk

Rochina, Acho que os dois últimos post antes do seu são SPAM, mas o ultimo rendeu umas risadas aqui....kkkkkk

@edutraini Se quiser fazer um teste com o sistema abaixo, nele consegue conecta em varias balanças: https://sagierp.com.br/devel/uteis/balancas/balanca-06-10-2020.zip Posso compartilhar o fonte dele, é bem simples. Veja se da certo.

Realmente tem um custo. Se o volume for grande seria bom ir direto para o PRO, que tem IP DEDICADO, isso ajuda muito para definir regras de PROXY nos clientes.