MAMP2

ok, obrigado

oi kapiaba, nao esta aceitando o comando na compilacao, da erro, tem que acrescentar alguma LIB? Error: Unresolved external '_HB_FUN_FWSETLANGUAGE' referenced from C:\SCH2\SCH999.OBJ da este erro

bom dia pessoal como faço pra a mensagem do MSGYESNO os botoes venham em ingles (Yes;No)? quero ter as duas opcoes poder ser em portugues ou em ingles pois nos parametros do sistema eu vou te a opcao de linguagem. se ele escolher portugues (SIM/NAO) se ele escolher ingles (Yes/No)

rochinha, o comando que voce esta falando sincroniza o horario do computador que voce esta usando com o horario de um outro computador(que tambem pode estar errado) o comando que eu quero é pra acertar a hora do computador com a hora da internet (ou seja) acertar a hora do comutador. Kapiaba o comando "control timedate.cpl", chama a tela pra acertar a hora, eu preciso acertar a hora sem colocar esta tela no ar e pedir pra o ussuario acertar, este seu comando seria 10 se pudesse passar alguns parametros e o usuario nao tivesse que interagir com o computador, tem jeito?

bom dia pessoal, tem como um comando pelo fivewin sincronizar a hora do computador com a internet? obrigado

ok, vou olhar eu uso o 1701. Estou em porto alegra iplantando sistema novo e agora vou estar ocupado a noite eu olho e lhe respondo mais uma vez obrigado

nao esta nao, este gmail tudo que ele nao "reconhece" ele fala que é "suspeito" pode acessar

zipei renomeie pra txt e enviei, obrigado pela paciencia e desculpe o incomodo

gerou o MOT3.EXE roda, nao da erro, mas nao gera o MOTVAI1.ZIP

pode me mandar o buildx.bat, acho que "mexi" nele e ele nao esta mais original, eu nao tenho mais

fico pensado se nao é nehuma LIB, eu estou usando no projeto hbzip.lib

boa noite kapiaba, fiz exatamente como voce escreveu porem o erro persiste, segue como ficou ******************* Function ZIPA_DBF2() ******************** LOCAL cArq LOCAL lRet := .F. LOCAL aFiles := {} if file("c:\mot\motvai1.zip") delete file c:\mot\motvai1.zip endif aFiles := {, ; "C:\MOT2\QU_01.DBF",; "C:\MOT2\CO_99.DBF",; "C:\MOT2\CX_99.DBF",; "C:\MOT2\MD_99.DBF",; } aFiles := {, ; "C:\MOT2\RESPONSA.DBF",; "C:\MOT2\TESTE.DBF",; } msgwait(OemToAnsi("Iniciando Compactacao de Arquivos ","",2)) cArq = "C:\MOT\MOTVAI1.ZIP" lRet := hb_ZipFile(cArq,aFiles) if .not. lRet msgwait(OemToAnsi("Compactacao de Arquivos nao executada","",2)) else msgwait(OemToAnsi("Compactacao de Arquivos Terminada","",2)) endif Return(Nil)

bom tarde Kapiaba fiz assim, e continuou a dar o mesmo erro, ******************** Function ZIPA_DBF2() ******************** LOCAL vServer if file("c:\mot\motvai1.zip") delete file c:\mot\motvai1.zip endif aFiles := { "C:\MOT2\QU_01.DBF","C:\MOT2\CO_99.DBF","C:\MOT2\CX_99.DBF","C:\MOT2\MD_99.DBF" } msgwait("Iniciando Compactacao de Arquivos ","",1) cArq = "C:\MOT\MOTVAI1.ZIP" lRet := hb_ZipFile (cArq, aFiles) if .not. lRet msgwait("Compactacao de Arquivos nao executada","",1) else msgwait("Compactacao de Arquivos Terminada","",1) endif **\ ZipCreate( cFile , aFiles ) Return(Nil)

Boa noite pessoal estou tentando fazer funcioanr esta rotina de compartacao de arquivos porem quando entra na linha em vermmelho da a mensagem este mensagem é que tem alguma coisa errada no comando, mas nao consigo encontrar, alguem pode me ajudar?, segue a rotina: ******************* Function ZIPA_DBF2() ******************** LOCAL vServer if file("c:\mot\motvai1.zip") delete file c:\mot\motvai1.zip endif aFiles := { "C:\MOT2\QU_01.DBF","C:\MOT2\CO_99.DBF","C:\MOT2\CX_99.DBF","C:\MOT2\MD_99.DBF" } msgwait("Iniciando Compactacao de Arquivos ","",1) cFile = "C:\MOT\MOTVAI1.ZIP" ZipCreate( cFile , aFiles ) msgwait("Compactacao de Arquivos Terminada","",1) Return(Nil) ******************* function ZipCreate(cFile, uContents, nLevel, bUpdate, lOverwrite, password,; lPath, lDrive, bFileUpdate) ******************* Local lRet Default lOverwrite to .t. Default lPath to .t. Default password to .f. IF ( lRet := HB_ZIPFILE( cFile, uContents, nLevel, bUpdate, lOverwrite,; password, lPath, lDrive, bFileUpdate) ) ? cFile + " was successfully created" ENDIF lRet := HB_ZIPFILE( cFile, uContents, nLevel, bUpdate, lOverwrite,; password, lPath, lDrive, bFileUpdate) Return lRet

Kapiaba da erro na compilacao nao reconhece HB_JSONDcode, e xBrowse, sera que precisa de alguma LIB?

me mande seu contato, email, telefone pra gente conversar

EDUTEK, me ajude por favor

EDUTEK, como o seu ja funciona poderia me ajudar, nao estou conseguindo evoluir

oi kapiaba, nao estou encontrando nada sobre habilitar e desabilitar a COM neste site

Bom dia Kapiaba, nao sou um tecnico em TI, sou um programador em fivewin, porem a gente encontra algumas dificuldades e tenta resolver procurando soluces que possam nos ajudar, explicando melhor pra voce: O meu programa controla um aparelho de controle de energia que fica plugado na USB do computador que gerou uma COMX, esta COMX(vez por outra) perde a conexao, e o usuario tira (desconecta) o cabo da porta USB e recoloca e tudo volta ao normal, entao como eu sei qual porta COM é a responsavel pelo controle e sempre que eu mando o comando eu testo a existencia dela, no momento que eu testar e nao encontra-la, eu daria um comando de desativação e reativação e evito que o usuario fique fazendo este trabalho que pode porventura danificar o equipamento uma vez que o usuario nao tem a atenção e sensibilidade suficiente pra fazer isto de forma segura.

Mandei o que eu fiz pra o pessoal dizer se tem alguma coisa errada que eu esteja fazendo, as vezes a gente olha e nao ve o obvio uma outra pessoa olha e percebe rapidamente, nao sei o que estou errando.

eu fiz gilmer, e no post o resultado é o esperado, quando faço via fivewin o resultado vem em branco este comando busca um token que eu devo pega-lo e colocar em um get e buscar os dados de um cliente, porem o token nao vem, ou seja, nao da erro na execução, mas nao vem nada a variavel cResp vem em branco.

é este mesmo amigo, eu deveria pegar este token e usar um get, porem ao buscar o token o campo nao vem, o cResp vem em branco, o que pode ser isto, tem alguma ideia?

oi pessoal sobre isto coloquei; oHttp:=TIpClientHttp():new("https://200.143.189.241:2001/api/segurancas/tokens", .F. ) cJson := '{"NomeUsuario":"02615937812","Senha":"tc123456+"}' cRet := "" IF .NOT. oHttp:open() MsgAlert( "Connection error:", oHttp:lastErrorMessage( ) ) ELSE oHttp:Post( cJson) cRet := oHttp:readAll( ) oHttp:close() ENDIF messagebox(0,cRet,"Passou") porem quando roda o o erro : Application =========== Path and name: C:\mot2\mot999.exe (32 bits) Size: 8,448,000 bytes Time from start: 0 hours 0 mins 49 secs Error occurred at: 07/08/2020, 07:26:01 Error description: Error BASE/1081 unsupported protocol: TIPCLIENTHTTP:new() Args: [ 1] = O Object [ 2] = C https Stack Calls =========== Called from: client.prg => TIPCLIENT:NEW(177) Called from: httpcln.prg => TIPCLIENTHTTP:NEW(96) Called from: mot999.prg => BUS_JSON2(33219) Called from: mot999.prg => (b)MENUPRIM(8057) Called from: MENU.PRG => TMENU:COMMAND(0) Called from: WINDOW.PRG => TWINDOW:COMMAND(0) Called from: => TWINDOW:HANDLEEVENT(0) Called from: WINDOW.PRG => _FWH(0) Called from: => WINRUN(0) Called from: WINDOW.PRG => TWINDOW:ACTIVATE(0) Called from: mot999.prg => MAIN(4095) deve estar faltando alguma LIB, é isto?, se for qual á a LIB?

Bom dia Pessoal estou precisando ler um arquivo Json para pegar um retorno, e processar dentro do meu sistema, o cliente me mandou isto: Envio: Método: POST URL: http://200.143.189.241:2001/api/segurancas/tokens Parâmetro de envio no body (corpo da requisição): {"NomeUsuario":"nome_usuario_enviado","Senha":"senha_enviada"} Observação: Substituir na String acima, nome_usuario_enviado pelo cpf. Substituir a senha_enviada pela senha enviada. Retorno { "token”: “eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9”} alguem pode me ajudar?, nao sei como fazer pra fazer isto