Orlando FMC

Jorge, sou de BH. Qual é o favor? Envie e-mail, pois entro pouco aqui. orlandofmc@yahoo.com.br

Sugestão: "Sistema em FW Comunicando com Base de Dados MySql na Nuvem."

Já usei isto, e funcionou muito bem. Foi em 2014, depois não precisei mais, e abandonei. Vou procurar, pois não me lembro onde deixei o programa. Era para uma imobiliária, onde todos os corretores, em máquina diferentes tinham acesso ao mesmo banco de dados. Usei o DropBox.

emottaPor favor, me envie no e-mail: orlandofmc@yahoo.com.br Obrigado

Kapiaba, Tem jeito de fazer isto no windows, fora do FiveWin? Identificar, e informar na barra de tarefas se a tecla CAPS LOCK está ativada?

Tem jeito de identificar, e informar na barra de tarefas se a tecla CAPS LOCK está ativada? Ao fazer login, para digitar a senha do usuário, o windows 7 avisa se ela está ativada: "Tecla Caps Lock ativada". A minha máquina não tem nenhum led indicador. Às vezes, para digitar uma senha, preciso antes digitar em outro local para saber o estado de Caps Lock. Acho que esta questão não está no local adequado, mas, não encontrei o ideal.

Eu uso assim: winexec("C:\Program Files\Google\Chrome\Application\chrome.exe http://www.mg.superesportes.com.br/campeonatos/"+ALLTRIM(STR(YEAR(DATE())))+"/brasileiro/serie-a/") Mas, neste caso, veja que estou usando o "Google\Chrome".

SQLLIB.CH Quem tem e pode me enviar? Não consegui encontrar na internet. orlandofmc@yahoo.com.br Obrigado

No testtitl.prg do samples, tem como colocar TOOLTIP´s nos bitmaps? @ 65, 10 TITLEIMG OF oTitle4 BITMAP "..\bitmaps\AlphaBmp\explorer.BMP" SIZE 30, 30 REFLEX ANIMA // TOOLTIP "Tooltip Não funciona"

Eu também gostaria de receber. Se puder, favor enviar para orlandofmc@ufmg.br

Obrigado, Joaosolution, obrigado, Kapiaba. A opção do Leonardo Machado, não consegui usar. Usei a solução do Kbelo.

Tem jeito de retirar o [X] (fechar programa) da barra superior, sem tirar a própria barra?

Em testfldm.prg não tem múltiplos get´s em uma mesma página.

\samples\testfld4 e \samples\testfld6 apresentam os mesmos problemas: - 'TAB' e 'ENTER' NÃO FUNCIONAM PARA MUDAR DE CAMPO. - O cursor some, mas não sai do campo. - 'SHIFT+TAB' (sentido inverso) funciona normal.

Não sei onde colocar isto, Kapiaba. Não seria no WS? Estou usando o PellesC.

Senhores, Verifiquei, que, em minha rotina, as teclas 'TAB' e 'ENTER' não funcionam no FOLDER. Observei o mesmo em outras rotinas minhas. Testei a mesma rotina fora do folder, e funcionou normal. - 'TAB' e 'ENTER' NÃO FUNCIONAM PARA MUDAR DE CAMPO. - O cursor some, mas não sai do campo. - 'SHIFT+TAB' (sentido inverso) funciona normal. Será por alguma configuração do PellesC? Não consegui anexar a DLL aqui. Ao tentar, recebi a mensagem: "Erro Você não tem permissão para fazer upload deste tipo de arquivo" Coloquei a DLL neste link: https://www.dropbox.com/s/vocn0a45607tx3t/Teste_Pelles.DLL?dl=0 Vejam o código: #include "fivewin.ch" #include "FOLDER.Ch" FUNCTION MAIN() SetBalloon( .t. ) // tooltip tipo baloon ARQ="Teste_Get_Folder" aMatStru={; { "CAMPO1____" , "C" , 5 , 0 } ,; // { "CAMPO2____" , "C" , 5 , 0 } ,; // { "CAMPO3____" , "C" , 5 , 0 } ,; // { "CAMPO4____" , "C" , 5 , 0 } ,; // { "CAMPO5____" , "C" , 5 , 0 } ,; // { "CAMP_MEMO_" , "M" , 10 , 0 } } IF !FILE(ARQ+".dbf") MSGWAIT("Criando o arquivo","",2) DbCreate(ARQ,aMatStru) ENDIF USE &ARQ IF (ARQ)->(RECCOUNT())=0 MSGINFO("No browse a seguir, insira alguns registros, para uso no teste.","ATENÇÃO!!!") BROWSE(ALIAS()) ENDIF DEFINE FONT ofCOUR12 NAME "Courier New" SIZE 00,-12 // bold // UNDERLINE DLL1="Teste_Pelles.DLL" SET RESOURCES TO DLL1 // , "BWCC.DLL" DEFINE DIALOG dAA NAME "AA_FLD0" // OF oWnd // COLOR "B/W" FONT ofDialog dAA:LHELPICON := .F. REDEFINE BTNBMP oBSair RESOURCE "_SAIR" ID 9999 OF dAA ACTION dAA:END() oBSair:ctooltip:={"Fechar esta janela","SAIR"} REDEFINE FOLDER oFld ID 5000 OF dAA ; ; // ON CHANGE AA_MUDA_FOLDER(nOption,nOldOption); PROMPT "&FOLDER 01", "&FOLDER 02" ; DIALOGS "AA_FLD1" , "AA_FLD2" REDEFINE SAY o4009 PROMPT TRAN(RECNO(),"####") ID 4009 OF oFld:aDialogs[1] Font ofCOUR12 REDEFINE GET o4001 VAR (ARQ)->CAMPO1____ ID 4001 OF oFld:aDialogs[1] Font ofCOUR12 REDEFINE GET o4002 VAR (ARQ)->CAMPO2____ ID 4002 OF oFld:aDialogs[1] Font ofCOUR12 REDEFINE GET o4003 VAR (ARQ)->CAMPO3____ ID 4003 OF oFld:aDialogs[1] Font ofCOUR12 REDEFINE GET o4004 VAR (ARQ)->CAMPO4____ ID 4004 OF oFld:aDialogs[1] Font ofCOUR12 REDEFINE GET o4005 VAR (ARQ)->CAMPO5____ ID 4005 OF oFld:aDialogs[1] Font ofCOUR12 REDEFINE GET o4006 VAR (ARQ)->CAMP_MEMO_ ID 4006 OF oFld:aDialogs[1] Font ofCOUR12 MEMO REDEFINE Button o4008 ID 4008 OF oFld:aDialogs[1] ACTION (BROWSE(ALIAS()), o4001:REFRESH(), o4002:REFRESH(), o4003:REFRESH(), o4004:REFRESH(), o4005:REFRESH(), o4006:REFRESH(), o4009:REFRESH() ) ACTIVATE DIALOG dAA SET RESOURCES TO CLOSE ALL SYSREFRESH() CANCEL RETURN NIL

- Qual é o melhor? WS ou PELLES? - Qual é a versão mais recente do WS? Eu tenho a 4.5. - Onde baixar?

Depois de inúmeras tentativas, retirei a linha: #Include "DSay.Ch" no início de C.PRG, e resolveu tudo. Não sei a função desta linha aí.

Mestres, Tenho vários sistemas funcionando, com uma estrutura sempre parecida com a seguinte: Agenda.PRG // programa principal A.PRG // diversas Procedures / funções do programa específico B.PRG // diversas Procedures / funções do programa específico C.PRG // diversas Procedures / funções do programa específico D.PRG // diversas Procedures / funções do programa específico E.PRG // diversas Procedures / funções do programa específico ARQS.PRG // estruturas dos arquivos de dados (.dbf) C:\APLIC\FUNCOES_INI.PRG // diversas funções de inicialização comuns a todos os sistemas C:\APLIC\FUNCOES_ACE.PRG // diversas funções acessórias comuns a todos os sistemas DSAY.PRG No final do programa principal (no caso, AGENDA.PRG), coloco (todos os sistemas são assim): #INCLUDE "C:\APLIC\FUNCOES_INI.PRG" #INCLUDE "C:\APLIC\FUNCOES_ACE.PRG" #INCLUDE "DSAY.PRG" #INCLUDE "ARQS.PRG" #INCLUDE "A.PRG" #INCLUDE "B.PRG" #INCLUDE "C.PRG" #INCLUDE "D.PRG" #INCLUDE "E.PRG" procedure AppSys // XBase++ absurd requirement return De alguns dias para cá, não sei por que, para este programa (AGENDA), está dando problema na compilação: Error: Unresolved external ´_HB_FUN_DL_ANV´ referenced from C:\APLIC\AGENDA13\AGENDA.OBJ Error: Unresolved external ´_HB_FUN_FP´ referenced from C:\APLIC\AGENDA13\AGENDA.OBJ As duas funções (DL_ANV e FP) exitem e estão respectivamente no programas D.PRG e E.PRG. Se eu mudo a ordem dos #INCLUDE, como a seguir, #INCLUDE "C:\APLIC\FUNCOES_INI.PRG" #INCLUDE "C:\APLIC\FUNCOES_ACE.PRG" #INCLUDE "DSAY.PRG" #INCLUDE "ARQS.PRG" #INCLUDE "D.PRG" // <--- mudei de lugar #INCLUDE "A.PRG" #INCLUDE "B.PRG" #INCLUDE "E.PRG" // <--- mudei de lugar #INCLUDE "C.PRG" assim a compilação transcorre normalmente, no entanto, as funções que estão em C.PRG não funcionam. Isto está acontecendo só agora, e só neste sistema (AGENDA). Pergunta-se: 1 - Por que a ordem dos #INCLUDE altera a compilação? 2 - Por que as funções de C.PRG deixaram de funcionar?

Obrigado, Ladinilson. Orlando

Ladinilson,Pode mandar para mim? orlandofmc@yahoo.com.br Obrigado

Muito bom. Valeu...

Eu já fiz centenas de Laudos, na área de Engenharia, com assinatura digital.

Testei aqui, e funcionou normal: nOption := Alert("Origem da fotografia.",{"Da &pasta","Da &WebCam", "Excluir","Retor&nar"},"Origem da fotografia.")

FOR I=5 TO 6 // colunas 5 e 6 oBrw:aCols[ I]:lHide := .t. // esconde NEXT I ... FOR I=5 TO 6 // colunas 5 e 6 oBrw:aCols[ I]:lHide := .n. // mostra NEXT I