FIVE PPC - deixar 1 programa rodando-RESOLVIDO

lecojales · December 23, 2011

Para evitar que no pocket tenha 2 cÃ³pias do programa rodando.

Function Main()

IF IsExeRunning( cFileName( HB_ArgV( 0 ) ) )

cExe := cFileName( HB_ArgV( 0 ) )

CFILENAME := STRTRAN(UPPER(cExe),".EXE","")

SHOWWINDOW( FINDWINDOW( 0, CFILENAME ), 9 )

SETFOREGROUNDWINDOW( FINDWINDOW( 0, CFILENAME ) )

CFILENAME:= "Pedidos"

SHOWWINDOW( FINDWINDOW( 0, CFILENAME ), 9 )

SETFOREGROUNDWINDOW( FINDWINDOW( 0, CFILENAME ) )

RETURN NIL

ENDIF

Editado por - lecojales on 12/01/2012 17:38:02

lecojales · December 23, 2011

Para evitar que no pocket tenha 2 cÃ³pias do programa rodando.

Function Main()

IF IsExeRunning( cFileName( HB_ArgV( 0 ) ) )

cExe := cFileName( HB_ArgV( 0 ) )

CFILENAME := STRTRAN(UPPER(cExe),".EXE","")

SHOWWINDOW( FINDWINDOW( 0, CFILENAME ), 9 )

SETFOREGROUNDWINDOW( FINDWINDOW( 0, CFILENAME ) )

CFILENAME:= "Pedidos"

SHOWWINDOW( FINDWINDOW( 0, CFILENAME ), 9 )

SETFOREGROUNDWINDOW( FINDWINDOW( 0, CFILENAME ) )

RETURN NIL

ENDIF

Editado por - lecojales on 12/01/2012 17:38:02

gilmer · December 23, 2011

Ajudo vocÃª, mas meu suporte tem custo, como todos sabem!

Alias acho que vocÃª achou um lugar para reclamar! nÃ£o Ã©!?

NÃ£o tem Ã¡rea para FWPPC e nem vai ter, pois nÃ£o tem necessidade, pode ser postado neste mesmo forum de fivewin.

e-mail: gilmer@fivewin.com.br

msn: fivewinbrasil@hotmail.com

lecojales · January 11, 2012

NÃ£o Gilmer, nÃ£o Ã© que encontrei um lugar para reclamar, quando eu comprei a FIVE PPC, ficou combinado que teria um ajuda, mas ficou pendende algumas coisas que na Ã©poca vocÃª estava com muito serviÃ§o, e ficou para depois, e agora vocÃª estÃ¡ querendo cobrar. VocÃª prometeu entregar uma atualizaÃ§Ã£o, pois a versÃ£o que estava contigo era antiga. E agora vocÃª quer cobrar para ajudar, e para atualizar. NÃ£o acho errado isso, acho errado a forma como foi negociado.

Eu comprei sua aplicaÃ§Ã£o nfe3g, e fiquei no vaco tambÃ©m, nÃ£o consegui colocar em produÃ§Ã£o.

Pelo amor de DEUS, nÃ£o me leve a mau nÃ£o, vocÃª Ã© uma pessoa bacana, jÃ¡ me ajudou muito, mas nÃ£o acho certo pagar atualizaÃ§Ã£o e suporte, pois nÃ£o foi combinado isso na compra.

Se algum colega do forum puder dar uma forÃ§a, fico grato, e se nÃ£o puder, agradeÃ§o mesmo assim, pois sei que todos somos muito ocupados.

Feliz 2012 a todos.

Leco

Five PPC

Harbour 1.0.1 - 1999-2008

ecmsoft · January 11, 2012

Leco, poste as suas dÃºvidas, talvÃ©z alguem possa te ajudar !

Marciano Queiroz

Teixeira de Freitas-Ba

marciano@bitfarma.com.br

roberio · January 11, 2012

lecojales,Ã© facil o FWPPC "terminei" um programinha de fazer pedido e sincronizar (recebimento e envio), se precisar de ajuda eh soh perguntar (FWPPC1002)

lecojales · January 11, 2012

Legal, obrigado.

Eu jÃ¡ estou com o programa funcionando, dÃ¡ uns erros mas estÃ¡, jÃ¡ envia e recebe informaÃ§Ãµes. JÃ¡ coloquei em produÃ§Ã£o pois nÃ£o tinha como resolver, e assim ver outros erros.

A primeira dÃºvida Ã© se a aplicaÃ§Ã£o estiver rodando, e a pessoa atende a ligaÃ§Ã£o, e clica 2 vezes em desligar, a aplicaÃ§Ã£o Ã© jogada atrÃ¡s das demais telas, eu gostaria de alguma forma, ou nÃ£o deixar ela sair com o botÃ£o, ou deixar ela sempre visÃvel, ou se tentar entrar pela segunda vez, fechar e jÃ¡ abrir o que ficou escondido. Hoje para contornar isso ele vai em gerenciadores de programas para reativar o programa.

Leco

Five PPC

Harbour 1.0.1 - 1999-2008

roberio · January 11, 2012

lecojales

acabei de testar aqui o programinha no smartphone aberto e fiz uma ligacao para o smartphone e nÃ£o "fechou" a tela do programa, mesmo atendendo e deligando a ligacao ... uso um HTC HERO e FWPPC1002

Editado por - roberio on 11/01/2012 12:31:08

gilmer · January 11, 2012

Leco Boa Tarde,

Se eu fiquei de enviar uma atualizaÃ§Ã£o para vocÃª e eu nÃ£o enviei, pode ser um erro meu, neste caso, entre em contato comigo e farei o envio da atualizaÃ§Ã£o para vocÃª, inlcusive a mais atual! aguardo seu contato por telefone ou msn.

Quanto a NFE eu ajudei muita gente, alias ajudei muito mais do que devia para falar a verdade, se vocÃª nÃ£o conseguiu usar, deve ter ocorrido outro problema ou algum problema de entendimento seu, isto eu tenho certeza 100%, mesmo assim, informe para mim o que vocÃª nÃ£o soube fazer na NFE ?

Quanto ao cobrar o suporte, certamente dei, como dou suporte para todos, por 45 dias apÃ³s a compra, mas realmente eu nÃ£o carrego no colo por mais tempo, cada empresa faz sua politica comercial, esta Ã© a minha politica, depois do prazo, sÃ³ tendo contrato ou efetuado pagamentos avulsos, meu produto Ã© suporte.

citaÃ§Ã£o:

NÃ£o Gilmer, nÃ£o Ã© que encontrei um lugar para reclamar, quando eu comprei a FIVE PPC, ficou combinado que teria um ajuda, mas ficou pendende algumas coisas que na Ã©poca vocÃª estava com muito serviÃ§o, e ficou para depois, e agora vocÃª estÃ¡ querendo cobrar. VocÃª prometeu entregar uma atualizaÃ§Ã£o, pois a versÃ£o que estava contigo era antiga. E agora vocÃª quer cobrar para ajudar, e para atualizar. NÃ£o acho errado isso, acho errado a forma como foi negociado.

Eu comprei sua aplicaÃ§Ã£o nfe3g, e fiquei no vaco tambÃ©m, nÃ£o consegui colocar em produÃ§Ã£o.

Pelo amor de DEUS, nÃ£o me leve a mau nÃ£o, vocÃª Ã© uma pessoa bacana, jÃ¡ me ajudou muito, mas nÃ£o acho certo pagar atualizaÃ§Ã£o e suporte, pois nÃ£o foi combinado isso na compra.

Se algum colega do forum puder dar uma forÃ§a, fico grato, e se nÃ£o puder, agradeÃ§o mesmo assim, pois sei que todos somos muito ocupados.

Feliz 2012 a todos.

Leco

Five PPC

Harbour 1.0.1 - 1999-2008

id=quote>id=quote>

e-mail: gilmer@fivewin.com.br

msn: fivewinbrasil@hotmail.com

gilmer · January 11, 2012

RobÃ©rio,

Uma sugestÃ£o Ã© vocÃª ler o MSDN do Windows Mobile, vocÃª irÃ¡ achar vÃ¡rias informaÃ§Ãµes ou funÃ§Ãµes da API que podem ser usado para recursos um pouco diferente, se vocÃª olhar no future do produto, nÃ£o tem nenhuma informaÃ§Ã£o falando que o aplicativo precisa ser fechado, isto pode ser feito, mas tem que ver na API.

citaÃ§Ã£o:

lecojales

acabei de testar aqui o programinha no smartphone aberto e fiz uma ligacao para o smartphone e nÃ£o "fechou" a tela do programa, mesmo atendendo e deligando a ligacao ... uso um HTC HERO e FWPPC1002

Editado por - roberio on 11/01/2012 12:31:08

id=quote>id=quote>

e-mail: gilmer@fivewin.com.br

msn: fivewinbrasil@hotmail.com

roberio · January 11, 2012

gente eu estou tentando ajudar

eu nao tenho nenhum problema como o "fechar" minimizar citado pelo o amigo lecojales, soh simulei o que foi dido no meu smartphone e nao tive o problema que ele mencionou.

LuisÃ£o · January 11, 2012

e clica 2 vezes em desligar

O primeiro "desligar" finaliza a ligaÃ§Ã£o e entÃ£o seu programa fica em foreground, certo ? O segundo "desligar" fecha seu aplicativo, seria isso ?

Bom, nÃ£o trabalho com FIVE PPC, mas Ã© sÃ³ para tirar essa dÃºvida, porque pelo teste do Roberio, ele disse que isso nÃ£o ocorre.

Luis Fernando Jr. (LuisÃ£o)

--

FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

luis.fernando.majr@gmail.com

juninho_luisao@hotmail.com (msn)

gilmer · January 11, 2012

Desculpe, li errado

citaÃ§Ã£o:

gente eu estou tentando ajudar

eu nao tenho nenhum problema como o "fechar" minimizar citado pelo o amigo lecojales, soh simulei o que foi dido no meu smartphone e nao tive o problema que ele mencionou.

id=quote>id=quote>

e-mail: gilmer@fivewin.com.br

msn: fivewinbrasil@hotmail.com

roberio · January 11, 2012

Gilmer

sem problemas amigo. tive grande ajuda sua no desenrolar da NFe(classe Gilmer) ate com acesso remoto e tenho a certeza q nosso amigo lecojales vai resolver o seu problema logo logo.

vlw

lecojales · January 11, 2012

citaÃ§Ã£o:
e clica 2 vezes em desligar

O primeiro "desligar" finaliza a ligaÃ§Ã£o e entÃ£o seu programa fica em foreground, certo ? O segundo "desligar" fecha seu aplicativo, seria isso ?

Bom, nÃ£o trabalho com FIVE PPC, mas Ã© sÃ³ para tirar essa dÃºvida, porque pelo teste do Roberio, ele disse que isso nÃ£o ocorre.

Luis Fernando Jr. (LuisÃ£o)

--

FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

luis.fernando.majr@gmail.com

juninho_luisao@hotmail.com (msn)

id=quote>id=quote>

Isso mesmo LuisÃ£o, o primeiro termina a ligaÃ§Ã£o, e a segunda clicada, joga a aplicaÃ§Ã£o, por trÃ¡s de todas as janelas, entÃ£o preciso de uma forma de deixar a tela principal tipo modal exclusiva, ou quando em uma segunda tentativa de abrir o programa, dar tipo um alt+tab e jogar o programa que jÃ¡ estÃ¡ aberto novamente. Pra falar a verdade ele nÃ£o fecha, joga pra trÃ¡s, pois se vai no gerenciador ele estÃ¡ lÃ¡ rodando, o duro Ã© explicar para um vendedor, como recuperar a aplicaÃ§Ã£o.

FaÃ§o o teste em um HTC P3401 e em um Sony Ericsson Xperia X1.

Harbour 1.0.1dev Intl. (Rev. 9361)

FWPPC 31/January/2009

Leco Jales.

Five PPC

Harbour 1.0.1 - 1999-2008

LuisÃ£o · January 11, 2012

Acho que fiz um exemplo assim com FW mesmo uma vez, nÃ£o sei se pra WinMobile dÃ¡ certo.

IF !IsWindowVisible( hWnd )

ShowWindow( hWnd, 3 )

ENDIF

id=code>id=code>ou entÃ£o, talvez isso:

ShowWindow( oWND:hWnd, 3 )

ENDIF

id=code>id=code>Talvez colocando um timer na janela principal para fazer essa verificaÃ§Ã£o.

Luis Fernando Jr. (LuisÃ£o)

--

FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

luis.fernando.majr@gmail.com

juninho_luisao@hotmail.com (msn)

roberio · January 11, 2012

lecojales fiz o teste assim:

http://www.screencast.com/t/gWRRDw5BsJW

seria isso mesmo?

repare que o programa ainda fica ativo

Ariston Santos · January 11, 2012

OlÃ¡.

Tenho o FWPPC e jÃ¡ fiz testes com Windows Mobile 6.1 e 6.5. A funÃ§Ã£o abaixo faz com que, ao executar o programa, ele apenas venha para a frente se ja estiver sendo executada.

IF IsExeRunning( cFileName( HB_ArgV( 0 ) ) )

cExe := cFileName( HB_ArgV( 0 ) )

CFILENAME := STRTRAN(UPPER(cExe),".EXE","")

SHOWWINDOW( FINDWINDOW( 0, CFILENAME ), 9 )

SETFOREGROUNDWINDOW( FINDWINDOW( 0, CFILENAME ) )

RETURN NIL

ENDIF

id=code>id=code>

E, para facilitar o acesso, sempre crio um atalho para o programa no menu Iniciar do SmartPhone.

Qualquer outra dÃºvida, entre em contato.

ConheÃ§a o Pacote Fivewin em http://www.arsoft-ap.com.br - "Leia a BÃblia diariamente"

lecojales · January 12, 2012

citaÃ§Ã£o:
OlÃ¡.

Tenho o FWPPC e jÃ¡ fiz testes com Windows Mobile 6.1 e 6.5. A funÃ§Ã£o abaixo faz com que, ao executar o programa, ele apenas venha para a frente se ja estiver sendo executada.
IF IsExeRunning( cFileName( HB_ArgV( 0 ) ) )

cExe := cFileName( HB_ArgV( 0 ) )

CFILENAME := STRTRAN(UPPER(cExe),".EXE","")

SHOWWINDOW( FINDWINDOW( 0, CFILENAME ), 9 )

SETFOREGROUNDWINDOW( FINDWINDOW( 0, CFILENAME ) )

RETURN NIL

ENDIF

id=code>id=code>
E, para facilitar o acesso, sempre crio um atalho para o programa no menu Iniciar do SmartPhone.

Qualquer outra dÃºvida, entre em contato.

ConheÃ§a o Pacote Fivewin em http://www.arsoft-ap.com.br - "Leia a BÃblia diariamente"

id=quote>id=quote>

Fiz o teste, com um Xperia X-1, windows mobile 6.1, ele nÃ£o deixa executar uma segunda cÃ³pia, mas nÃ£o trÃ¡s para frente a que jÃ¡ estÃ¡ executando.

Harbour 1.0.1dev Intl. (Rev. 9361)

FWPPC 31/January/2009

Function Main()

SET DELETE ON

SET CONFIRM ON

SET CENTURY ON

SET SOFTSEEK ON

SET DATE TO BRITISH

SET EPOCH TO 1960

DEFINE WINDOW oWnd TITLE "AtualPPC" MENU BuildMenu()

@ 3,13 BITMAP oBmp RESOURCE "users" NOBORDER

@ 5,7 Say "Programa Pocket 1.01"

IF IsExeRunning( cFileName( HB_ArgV( 0 ) ) )

cExe := cFileName( HB_ArgV( 0 ) )

CFILENAME := STRTRAN(UPPER(cExe),".EXE","")

SHOWWINDOW( FINDWINDOW( 0, CFILENAME ), 9 )

SETFOREGROUNDWINDOW( FINDWINDOW( 0, CFILENAME ) )

RETURN NIL

ENDIF

ACTIVATE WINDOW oWnd

Return nil

Leco Jales

Five PPC

Harbour 1.0.1 - 1999-2008

LuisÃ£o · January 12, 2012

A funÃ§Ã£o FindWindow(, ) nÃ£o procura pelo nome do EXE, mas sim pelo TÃtulo da Window.

Tente usar FindWindow(nil,"TÃtulo do Sistema") // Troque "TÃtulo do Sistema" pelo caption que estÃ¡ na sua janela principal.

Por exemplo, seu EXE tem um nome Program.EXE, mas na janela principal estÃ¡ "Sistema Fincanceiro", vocÃª terÃ¡ que passar "Sistema Financeiro" para a findwindow. Tenho quase certeza disso.(mas posso estar errado )

Luis Fernando Jr. (LuisÃ£o)

--

FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

luis.fernando.majr@gmail.com

juninho_luisao@hotmail.com (msn)

kapiaba · January 12, 2012

// Tente assim:

/* // indice CDX

ANNOUNCE RDDSYS

REQUEST DBFCDX, DBFFPT

//external ordkeyno, ordkeycount, ordcreate, ordkeygoto

REQUEST OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto

*/

STATIC oWnd

Function Main()

IF ISEXERUNNING( CFILENAME( HB_ARGV( 0 ) ) )

__Quit()

ENDIF

//RDDSETDEFAULT( "DBFCDX" )

SET CENTURY ON

SET DATE BRITISH

SET EPOCH TO YEAR(DATE())-50

SET SOFTSEEK OFF

SET WRAP ON

SETCANCEL( .F. )

SET CONFIRM OFF

SET DELETED ON

SET ESCAPE ON

SET EXCLUSIVE OFF

SET MULTIPLE OFF

DEFINE WINDOW oWnd TITLE "AtualPPC" ;

MENU BuildMenu()

@ 3,13 BITMAP oBmp RESOURCE "users" NOBORDER

@ 5,7 Say "Programa Pocket 1.01"

ACTIVATE WINDOW oWnd

Return nil

id=code>id=code>

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Ariston Santos · January 12, 2012

OlÃ¡.

A funcÃ§Ã£o tem que ficar antes do DEFINE WINDOW.

#include "FWCE.ch"

REQUEST HB_LANG_ESWIN

Request DbfCdx

Request DbfFpt

REQUEST DBFCDX

Function Main()

IF IsExeRunning( cFileName( HB_ArgV( 0 ) ) )

cExe := cFileName( HB_ArgV( 0 ) )

CFILENAME := STRTRAN(UPPER(cExe),".EXE","")

SHOWWINDOW( FINDWINDOW( 0, CFILENAME ), 9 )

SETFOREGROUNDWINDOW( FINDWINDOW( 0, CFILENAME ) )

RETURN NIL

ENDIF

SET DELETE ON

SET CONFIRM ON

SET CENTURY ON

SET SOFTSEEK ON

SET DATE TO BRITISH

SET EPOCH TO 1960

DEFINE WINDOW oWnd TITLE "AtualPPC" MENU BuildMenu()

@ 3,13 BITMAP oBmp RESOURCE "users" NOBORDER

@ 5,7 Say "Programa Pocket 1.01"

ACTIVATE WINDOW oWnd

Return nil

id=code>id=code>

ConheÃ§a o Pacote Fivewin em http://www.arsoft-ap.com.br - "Leia a BÃblia diariamente"

lecojales · January 12, 2012

A rotina que foi passado, estÃ¡ funcionando ele sÃ³ nÃ£o estÃ¡ ativando a anterior, jÃ¡ testei com mensagens, acho que Ã© porque no gerenciador de taferas motra 2 programas que estÃ£o rodando:

AtualPPC

pedidos

Como eu mudo o jeito de chamar a pedidos?

No .rc estou criando ela assim:

PEDIDOS DIALOG 192, 49, 150, 135

STYLE 0x4L | WS_CHILD

FONT 8, "MS SanSerif"

LANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US

Estou chamando ela assim:

DEFINE WINDOW oWndFol TITLE "Pedidos" &&&&+strzero(Config->codven,6)

LecoJales

Five PPC

Harbour 1.0.1 - 1999-2008

Editado por - lecojales on 12/01/2012 12:15:43

roberio · January 12, 2012

lecojales

na sua janela principal vc pÃµe em MODAL? ex:

DEFINE WINDOW oWnd TITLE "teste"

..

...

ACTIVATE WINDOW oWnd ;

VALID MsgYesNo( "Finalizar?", "Selecione" ) MODAL

id=code>id=code>

se sim,... vc usa OF oWND(objeto da tela principal) nas telas secundarios ex:

DEFINE DIALOG oDlg FROM 1, 1 TO 19, 31 TITLE "Clientes" OF oWnd

em resumo se vc NAO usa MODAL talvez seja isso que mostre 2 executaveis no gerenciador de dispositivo

Editado por - roberio on 12/01/2012 16:59:28

leandroptu · January 12, 2012

lecojales,

Conseguiu resolver, para esse problema eu faÃ§o assim:

If isExeRunning("SucPocket")

oWnd:=FindWindow(0,"SucPocket")

If !(oWnd==0) // Aberto

MsgStop("JÃ¡ se encontra em aberto!!!","SucPocket")

BringWindowToTop(FindWindow(0,"SucPocket"))

SetForegroundwindow(FindWindow(0,"SucPocket"))

Quit

EndIf

Essa funÃ§Ã£o faz o seguinte, quando vc executar novamente o seu programa ela mostrar uma mensagem e trÃ¡s para frente o programa. No windows mobile eu deixei um atalho no menu iniciar para facilitar o acesso. Com isso esse tipo de problema eu nÃ£o tenho.

Espero que lhe ajude.

Fivewin 8.12 + XHarbour Build 1.1.0 + WorkShop + vLib + SqlLib + MySQL 5.0.27 + xDev Studio + FWPPC

E-mail: leandrolopes@success.inf.br

Msn: leandroptu@ada.com.br

Paracatu/MG

FIVE PPC - deixar 1 programa rodando-RESOLVIDO

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation