SAOliveira

IF(Subs(cBack,Len(cBack)-2,3)=="ZIP") WMensa:="Aguarde... descompactando arquivo." ; OWmensa:Refresh() aExtract:=HB_GetFilesInZip(cBack) nRet:=HB_UNZIPFILE(cBack,,,,PastaSistema+"\TMP",aExtract,) cBack:=PastaSistema+"\TMP\"+aExtract[1] Warquivo:=aExtract[1] ; OWarquivo:Refresh() ENDIF

Será que com base na busca incremental, você não chega perto.

Eduardo, qual uso para isto, e em que situação você usa ou pretende usar.

Muito embora já tenha colocado para o Herberson, coloco alguns detalhes aqui. Não participo dos encontros por motivos de saúde. No ultimo organizado em MG, cheguei a me inscrever e até pagar algumas parcelas, mas pelo motivo acima desisti. Neste ponderei e procurei alternativas para ir, mas até o presente momento não me é possível. Mas se pudesse ir. Algumas coisas que levaria em conta. 1 - Concordo totalmente com o Ale. 2 - O que foi definido até agora, além do lugar e o valor, que ao meu ver são ótimos. 3 - Qual o posicionamento do representante do FW e se pode apresentar de novidades. 4 - Alguns se posicionaram em favor de trazer o Linares. - Me pergunto, qual a novidade real e pratica que poderíamos ter dele. - Estaria eu disposto bancar seu custo. - Eu mesmo me respondi. NAO!!! o que ele teria de tão importante para mostrar que justificasse eu bancar parte. Algumas coisas que me faria ir. sem levar em conta o acima. 1 - Conhecer pessoalmente alguns membros do fórum. 2 - Aprender e compartilhar algumas experiências, não sendo restrito ao mundo FW/Xh. 3 - Ouvir e falar de caminhos interessantes para WEB e Tablets. 4 - Ainda trocar conhecimentos a respeito de SQL. Qualquer coisa relacionada a outras linguagens, acho eu que deveria ser apresentada off-encontro. Apenas um comentário baseado em minha opinião atual, sem querer questionar, pressionar ou ofender alguém.

Se puder mostre. Uma imagem vale mais que mil palavras kkk

http://www.oho.com.br/fw/webcam2.zip Quem sabe ajuda. Testei o .exe agora no Windows 8.1/64 Não fui eu que compilou. Quem sabe ajuda.

E esta tabela, não tem nenhum campo "unique"

Será que li errado no primeiro post ? "Encontro de programadores Fivewin"

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=24635&hilit=sms&start=195 Página 14, Silvio e Resposta do Linares.

var_do_combo:=cTEXTGG[x]

cId:=SqlArray("SELECT LAST_INSERT_ID() FROM "+Arg2+" LIMIT 1")[1,1] Bom. se o numero sequencial da OS for auto_increment, jamais acontecerá. Controlar é simples. - Ao entrar na OS pega o ultimo numero válido. - Ao gravar deixa a cargo do BD. - Após gravar pega o Last_Insert_id que é numero da ultima inclusão da conexão.

Ferrou o code. Esta Click() faz o que ?

nRet:=PrinterSetUp() IF(nRet#0) nPrn:=PastaSistema+"\sumatrapdf.exe -print-to "+PrinterPortToName(PrnGetPort())+" -reuse-instance -lang br " WinExec(nPrn+cArq,0) // sem preview //WinExec(PastaSistema+"\sumatrapdf.exe -reuse-instance -lang br "+cArq) // com preview //WinExec(PastaSistema+"\sumatrapdf.exe -print-to-default -reuse-instance -lang pt "+cArq) // sem preview ENDIF Uso desta forma, para imprimir um arquivo.pdf. em conjunto com o SumatraPdf. Detalhe com o Windows 8.1/64 se o nome da impressora tiver espaços não funciona. Pelo menos eu não consegui.

Quando passeii de @say para .RES (PellesC) passei por isto. Hoje é padrão meu, pode estar errado ou ser redundante. No pelles defino a fonte como arial 8 para dialogs. no .prg após definir a dialog oDlg:SetFont(sua_font) e oDlg:SetColor(cor_letra,cor_fundo)

STATIC FUNCTION teste(Arg1) SysWait(10) IF(GetActiveWindow()==0) ? "Estou na internet." ELSE ? "Não sai do sistema." ENDIF RETURN(.T.) Tenta.

Veja bem. Apenas fiz um teste rápido simulando uma situação. - Sistema aberto - Janela aberta (com um botão para simular um processamento longo) - Clique no botão, desviando para a função Teste() Ao executar a função, fui para o IE. Veja bem, testei a dialog, e não a window. Processamento concluído (syswat(20)) Retorna a mensagem "To lendo a internet". Acho que se tratar o retorno chega ao que vc quer.

http://www.oho.com.br/fw/EM.png

STATIC FUNCTION teste() ? "Teste" SysWait(20) IF(!oDlg:lFocused) ? "To lendo na internet." ENDIF RETURN(.T.) Coloquei um botão na dialog só para testar. chamei a função Teste() e fui para o IE Apesar de ser só uma mensagem, da para ver o resultado. Ai se vc vai trazer o sistema para o focu ou vai mandar uma mensagem no tray, é contigo.

IF(oObj:lFocused) RETURN(.T.) ENDIF IF(!oObj:lFocused) RETURN(.T.) ENDIF Eduardo, estou sem tempo. mas veja de ajuda.

Eduardo. Eu uso IF( oBjeto:lFocused) dentro de dialogs mas sempre tem uma função validando. No seu caso, não captei exatamente como e porque ?

Kleyber. Sei que é difícil este lance com pseudos Contadores. Acho que tanto o Marcio como TioaoFW, tem razão. Se o seu sistema exporta e valida pelo Sintegra, vale a pena levar ao conhecimento do Cliente, e se possível exportar o arquivo validade pelo Sintegra. Vale lembrar que se levar e fizer as validações na frente do cliente melhor. Mas que é complicado é. Tem contador que fala do erro, e sequer temos como testar no validador do sistema dele, isto quando temos um layout.

Veja se serve. eMail.bmp eMail1.bmp

Veja na pasta include do xHarbour, inkey.ch

0x50201004 oBrwSCB:lVScroll:= .T.

1 - Coloque a LibMySql.lib e SqlLib.lib na pasta lib do xHarbour. 2 - Coloque a SqlLib.ch nas pasta include do FW (adicione na compilação) 3 - Coloque libmySQL.dll na pasta do seu sistema (.exe) No prog Main, adiocione. - REQUEST SQLLIB - REQUEST MYSQL - RDDSETDEFAULT("MYSQL") - DBSETDRIVER("MYSQL") Faça a conexão ao BD. Servidor=Nome ou endereço IP Porta=3306 (padrão my sql) Cliente=nome do bd (bd_hotel) Usuario=manoel Senha=xxxxxx SqlLib_Conn( AllTrim(Lower(servidor)),Val(porta),Lower(AllTrim(cliente)),Lower(AllTrim(usuario)),Lower(AllTrim(senha)),SQL_NO_WARNING,"MySql") IF SQL_ErrorNO() > 0 _Erro:="Não foi possível conectar ao banco de dados !"+CRLF+; "Informe esta mensagem ao suporte." +CRLF+; "IP : "+QualServer +CRLF+; "IP : "+QualServer +CRLF+; SQL_ErrorMsg()+" " MsgInfo(_Erro," ..:: Falha na conexão com banco de dados ::..") Quit ENDIF xBanco:=SQLGetConn() - (numero da conexão, útil para quem vai usar mais de uma conexão) Seguindo estes passos, vc conecta ao bd.