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.