lecojales

Obrigado a todos pela ajuda, sem elas eu não teria conseguido, ficou assim: 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 Five que fazer assim, pois o primeiro volta o programa Atualppc, e o segundo pedidos. Acho que estou chamando a segunda tela de forma errada, com isso no gerenciador de tarefas é como se tivesse 2 programas rodando. Vou mudar o tópico já como resolvido, e criar um novo. Valeu mesmo. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

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 se fosse 2 programas e ná verdade é um. 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

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) Copyright © 1999-2008, http://www.harbour-project.org/ 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

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) Copyright © 1999-2008, http://www.harbour-project.org/ FWPPC 31/January/2009 Leco Jales. Five PPC Harbour 1.0.1 - 1999-2008

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

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

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

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

xhbcmp para compilar xhblnk para linkar usando o hbmake não consegui gerar, lembrando que dependendo você vai ter que dar permissão para executável, chmod a+x programa. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

Acho que você já deu a resposta. O Return de uma function sempre tem que retornar algo, ou seja: return .f. return .t. return nil Eu tive sérios problemas por não fazer desta forma, quando eu queria que o obj voltasse, eu passava ele por paremetro com o @. Leco Five PPC Harbour 1.0.1 - 1999-2008

Que DEUS lhe de sabedoria necessária, para que você possa continuar. Sinta-se abraçado, e que papai do céu possa lhe confortar. Meus sinceros sentimentos, e com certeza vocêis estarão em nossas orações. Leco Five PPC Harbour 1.0.1 - 1999-2008

eu faço assim do while ... boleto:= cbx:DocumentosCobranca:Add *Monta dados do sacado boleto:NomeSacado = cliente->crazao *Para PJ utilize CNPJSacado boleto:CPFSacado = cliente->ccgc boleto:EnderecoSacado = cliente->cender enddo e somente depois cbx:ImprimeBoletos() *Solicita o envio dos boletos por email ***cbx:EnviaBoletosPorEmail() *Libera instãncia do objeto CobreBemX cbx:= nil primeiro monto todos os boletos depois o comando cbx:ImprimeBoletos() monta a tela com todos Leco Five PPC Harbour 1.0.1 - 1999-2008

Olá elitenet Eu tentei fazer isso, mas esbarrei na questão de que o servidor windows, tem que ter as licenças de terminal, e era uma facada. No windows 2003 ele permite se não me engano 2 ou 3 conexões simultaneas gratuitas, as demais tem que ser adquirido. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

Pessoal bom dia. Desculpem a insistência em perguntar mais uma vez, mas é que não consegui resolver. O pai da five ppc, me deixou orfão a algum tempo. Toda ajuda é bem vinda, sei que o forum aqui é somente five win, e o meu problema é five ppc. Se eu não puder perguntar isso aqui me avisem por favor. Já ouvi falar de muitas linguagens que faz isso, que esta faz, mas não consegui ver ninguém que usa em produção. Obrigado. Five PPC Harbour 1.0.1 - 1999-2008

Pessoal desculpe a insistência, mas ainda não consegui resolver: Se eu chamar a tela assim: DEFINE WINDOW oWndFol TITLE "Pedidos" funciona, mas a tela não fica modal esta tela fica independente da que chamou, com isso eu consigo fechar o programa principal com os menus que a chamou e ela fica aberta, dai abro novamente o programa dá uma pancada de erro. Se eu chamar assim: DEFINE DIALOG oWndFol TITLE "Pedidos" No export method DEFCONTROL Args: [1 ]=C Pedidos [2 ]=O Object stack calls: DEFCONTROL(0) TGET:REDEFINE(0) ABREPEDIDOS(110) E a linha 110 é isso: REDEFINE BTNBMP oBm1 ID 46 OF oFld:aDialogs[ 1 ] RESOURCE "PESQUISAR" ACTION MostraClie(.F.,oWndFol) Desculpe a minha falta de conhecimento, mas é que a Five PPc não manjo muito, ou melhor dizendo nada affff. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

Olá José Tavares. Eu uso a fiveppc, é boa, mas a parte de suporte é complicado, estou a quase 60 dias tentando resolver um problema, só conto com a boa vontade dos amigos aqui do forum, mas como quase ninguém usa, é complicado. Mas como você já usa a Fivewin, acredito que não terá problema. Só que depois do anuncio que vi ontem no jornal, que a google comprou a motorola e os direitos do androide, é que o androide está presente em quase 49,50 % dos celulares vendidos no mundo. Eu particularmente estou pensando muito em ir para androide. Eu uso o fiveppc em 35 aparelhos com o windows mobile, só que a dificuldade para encontrar estes aparelhos hoje com o windows é muita, o mesmo acontece com palmtops. Já os Androides estão igual água, tem em qualquer lugar e qualquer dispositivo. Você que ainda irá começar, é bom pesquizar bastante, para não investir em uma tecnologia que estão matando. Leco Five PPC Harbour 1.0.1 - 1999-2008

Então rsss, se eu deixar como o windows, funciona certinho, mas as telas não ficam modal. A Linha 110 é : REDEFINE BTNBMP oBm1 ID 46 OF oFld:aDialogs[ 1 ] RESOURCE "PESQUISAR" ACTION MostraClie(.F.,oWndFol) Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

Usando a opção do gorverno, eles sempre pedem para emitor 900- contingencia com scan. Ele serve para isso. Já utilizei diversas vezes e não tive problema, a única questão é que a sequencia de NFE não fica a mesma. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

Erro continua: DEFINE DIALOG oWndFol TITLE "Pedidos" .. .. ACTIVATE DIALOG oWndFol VALID SairSistema() No export method DEFCONTROL Args: [1 ]=C Pedidos [2 ]=O Object stack calls: DEFCONTROL(0) TGET:REDEFINE(0) ABREPEDIDOS Five PPC Harbour 1.0.1 - 1999-2008

Assim funciona: DEFINE WINDOW oWndFol TITLE "Pedidos" Erro: No exported method DEFCONTROL Args: [ 1]=C PEDIDOS [ 2]=O Object stack calls: DEFCONTROL(0) TGET:REDEFINE(0) ABREPEDIDOS(110) Assim dá erro: Coloquei um comentário na linha DEFINE WINDOW oWndFol TITLE "Pedidos" e fiz igual o colega sugeriu anterior mente *------------------------------------------------------------------------------- function AbrePedidos() Local oWndFol,lTip_:= .t. ***Local oWnd //MsgInfo("Iniciando Abertura de Arquivos.","Atenção!!!") //@ 9,7 Say substr("Linha->"+str(procline(),4),1,23) of oWnd AbreArqs() //MsgInfo("Arquivos Abertos com Sucesso.","Atenção!!!") //@ 9,7 Say substr("Linha->"+str(procline(),4),1,23) of oWnd IniVar() //MsgInfo("Carregando 3...","Atenção!!!") //@ 9,7 Say substr("Linha->"+str(procline(),4),1,23) of oWnd DEFINE FONT oFontx NAME "MS SanSerif" SIZE 0,-8 //DEFINE WINDOW oWndFol TITLE "Pedidos" &&&&+strzero(Config->codven,6) DEFINE DIALOG oWndFol TITLE "Pedidos" @ 0.5, 1 FOLDER oFld PROMPTS "Pedido","Itens","Obs" DIALOGS "PEDIDOS","ITEM_PEDIDO","OBS_PEDIDO" SIZE 225, 245 oFld:bChange:={|nAtual,nOld| ValidaFolder(nOld)} //aVend:= strzero(Config->codven,6) //define font leco name "MS SanSerif" size 0,-10 of oFont1 Redefine Get oCodCli Var cCodCli ID 101 Pict "999999" Of oFld:aDialogs[ 1 ] Valid PesqCli() REDEFINE BTNBMP oBm1 ID 46 OF oFld:aDialogs[ 1 ] RESOURCE "PESQUISAR" ACTION MostraClie(.F.,oWndFol) Redefine Get oNomCli Var cNomCli ID 102 Pict "@!" Of oFld:aDialogs[ 1 ] When .F. FONT oFontx Redefine Get oNumNF Var cNumNf ID 103 Pict "999999" Of oFld:aDialogs[ 1 ] When .F. Redefine Get oSerie Var cSerie ID 104 Pict "@!" Of oFld:aDialogs[ 1 ] When .F. Redefine ComboBox cVendedor ID 105 Of oFld:aDialogs[ 1 ] ITEMS aVend // Redefine ComboBox cPagto ID 116 Of oFld:aDialogs[ 1 ] ITEMS aPagto Redefine ComboBox oPagto VAR cPagto ID 116 Of oFld:aDialogs[ 1 ] ITEMS aPagto Redefine Get oDestino Var cDestino ID 117 Pict "@!" Of oFld:aDialogs[ 1 ] Redefine Get oEmissao Var dEmissao ID 118 Pict "99/99/9999" Of oFld:aDialogs[ 1 ] Redefine Get oCP1 Var nCP1 ID 131 Pict "999" Of oFld:aDialogs[ 1 ] Redefine Get oCP2 Var nCP2 ID 132 Pict "999" Of oFld:aDialogs[ 1 ] Redefine Get oCP3 Var nCP3 ID 133 Pict "999" Of oFld:aDialogs[ 1 ] Redefine Get oCP4 Var nCP4 ID 134 Pict "999" Of oFld:aDialogs[ 1 ] Redefine Get oCP5 Var nCP5 ID 135 Pict "999" Of oFld:aDialogs[ 1 ] Redefine Get oCP6 Var nCP6 ID 136 Pict "999" Of oFld:aDialogs[ 1 ] Redefine Get oBruto Var nBruto ID 119 Pict "@e 999,999.99" Of oFld:aDialogs[ 1 ] When .F. Redefine Get oDescto1 Var nDescto1 ID 120 Pict "@e 99" Of oFld:aDialogs[ 1 ] Valid _CalcDesc() //Redefine Get oDescto2 Var nDescto2 ID 125 Pict "@e 999.9" Of oFld:aDialogs[ 1 ] Valid _CalcDesc() Redefine Get oLiquido Var nLiquido ID 121 Pict "@e 999,999.99" Of oFld:aDialogs[ 1 ] When .F. Redefine Get oCodPro Var cCodPro ID 201 Pict "@!" Of oFld:aDialogs[ 2 ] Valid PesqProd() Redefine BTNBMP oBm1 ID 46 OF oFld:aDialogs[ 2 ] RESOURCE "PESQUISAR" ACTION MostraProd(.F.,oWndFol) Redefine Get oDesPro1 Var cDespro1 ID 202 Pict "@!" Of oFld:aDialogs[ 2 ] When .F. FONT oFontx Redefine Get oDesPro Var cDespro ID 209 Pict "@!" Of oFld:aDialogs[ 2 ] When .F. FONT oFontx //Redefine Radio oCampo Var nCampo ID 61,62 of oFld:aDialogs[ 2 ] Redefine Get oItem Var cItem ID 203 Pict "999" Of oFld:aDialogs[ 2 ] When .F. Redefine Get oQuant Var nQuant ID 204 Pict "@E 99,999.999" Of oFld:aDialogs[ 2 ] Valid _AtuArray() Redefine Get oVlUnit Var nVlUnit ID 205 Pict "@e 999,999.99" Of oFld:aDialogs[ 2 ] When .F. // Redefine Button Id 59 Of oFld:aDialogs[ 2 ] Action If(nCampo==1,PesqProd(),_AtuArray()) // Redefine Get oDesIte Var cDesIte ID 47 Pict "@!" Of oFld:aDialogs[ 2 ] When .F. Redefine ListBox oBrwPed Fields aPed[oBrwPed],; Left(aPed[oBrwPed],18),; Str(aPed[oBrwPed],10,3),; Transform(aPed[oBrwPed],"@E 9,999.99"),; Transform(aPed[oBrwPed],"@E 9,999.99") ; Headers "Código","Descrição","Quant.","Unit.","Total" ID 49 Of oFld:aDialogs[ 2 ] ; //ColSizes 1,123,48,48,48 //On Change MostraDesc(aPed[oBrwPed]) // Left(aPed[oBrwPed],10),; oBrwPed:SetArray(aPed) oBrwPed:lCellStyle:=.F. //oBrwPed:nLineStyle:=4 //oBrwPed:aJustify:={.F.,.T.,.T.,.T.} Redefine Get oOBS1 Var cOBS1 ID 301 Pict "@!" Of oFld:aDialogs[ 3 ] Redefine Get oOBS2 Var cOBS2 ID 302 Pict "@!" Of oFld:aDialogs[ 3 ] Redefine Get oOBS3 Var cOBS3 ID 303 Pict "@!" Of oFld:aDialogs[ 3 ] Redefine Get oOBS4 Var cOBS4 ID 304 Pict "@!" Of oFld:aDialogs[ 3 ] REDEFINE BUTTON ID 126 OF oFld:aDialogs[ 1 ] ACTION MosTec(@lTip_) REDEFINE BUTTON ID 122 OF oFld:aDialogs[ 1 ] ACTION _Gravar() REDEFINE BUTTON ID 124 OF oFld:aDialogs[ 1 ] ACTION _CalcComissao() *** REDEFINE BUTTON ID 123 OF oFld:aDialogs[ 1 ] ACTION (oWndFol:End()) REDEFINE BUTTON ID 123 OF oFld:aDialogs[ 1 ] ACTION (oWndFol:End()) REDEFINE BUTTON ID 47 OF oFld:aDialogs[ 1 ] ACTION (_ManuPed(oWndFol)) REDEFINE BUTTON ID 48 OF oFld:aDialogs[ 1 ] ACTION (MostraClie(.T.,oWndFol),oCodCli:SetFocus()) REDEFINE BUTTON ID 49 OF oFld:aDialogs[ 1 ] ACTION (MostraProd(.T.,oWndFol),oCodCli:SetFocus()) REDEFINE BUTTON ID 206 OF oFld:aDialogs[ 2 ] ACTION (Inivar2(),oCodPro:SetFocus()) REDEFINE BUTTON ID 208 OF oFld:aDialogs[ 2 ] ACTION (_ExcluiItem(oBrwPed:nAt)) oFld:InitDialogs() ACTIVATE WINDOW oWndFol VALID SairSistema() return nil Five PPC Harbour 1.0.1 - 1999-2008

NFE, 0800-170110 opção 3 está fora do ar, com previsão de retorno as 10:30 dúvida ligar no fone a cima Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

Não deu certo, deu erro. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

Poxa pessoal, nenhuma dica? Five PPC Harbour 1.0.1 - 1999-2008

Pessoal desculpe a insistência, mas ainda não consegui resolver: Se eu chamar a tela assim: DEFINE WINDOW oWndFol TITLE "Pedidos" funciona, mas a tela não fica modal esta tela fica independente da que chamou, com isso eu consigo fechar o programa principal com os menus que a chamou e ela fica aberta, dai abro novamente o programa dá uma pancada de erro. Se eu chamar assim: DEFINE DIALOG oWndFol TITLE "Pedidos" No export method DEFCONTROL Args: [1 ]=C Pedidos [2 ]=O Object stack calls: DEFCONTROL(0) TGET:REDEFINE(0) ABREPEDIDOS(110) E a linha 110 é isso: REDEFINE BTNBMP oBm1 ID 46 OF oFld:aDialogs[ 1 ] RESOURCE "PESQUISAR" ACTION MostraClie(.F.,oWndFol) Desculpe a minha falta de conhecimento, mas é que a Five PPc não manjo muito, ou melhor dizendo nada affff. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008 Mensagem Original Bom dia. No pocket, na janela principal está sendro criado assim: DEFINE WINDOW oWnd TITLE "AtualPPC" MENU BuildMenu() depois a pessoa escolhe pedido e chama esta DEFINE WINDOW oWndFol TITLE "Pedidos" O que ocorre é quando a pessoa atende a ligação, e pressiona 2 vezes o botão para desligar, a aplicação simplesmente some, e é como se o menu fosse independente do pedido, pois ele consegue fechar o programa principal com o menu, e a tela de pedido fica aberta, quando ele tenta abrir, dá um monte de erro, pois já encontra aberto. Gostaria de saber como criar estas telas, de uma forma que a somente a janela principal recebesse o foco, e ele tem que vir fechando, na ordem em que abriu, acho que é modal o nome disso. Saudações. Leco Jales Five Pocket Harbour 1.0.1dev Intl. (Rev. 9361) Copyright © 1999-2008, http://www.harbour-project.org/ Title: FWPPC 31/January/2009 Five PPC Harbour 1.0.1 - 1999-2008 Editado por - lecojales on 09/08/2011 11:35:41 Editado por - lecojales on 25/08/2011 08:29:18

Pessoal desculpe a insistência, mas ainda não consegui resolver: Se eu chamar a tela assim: DEFINE WINDOW oWndFol TITLE "Pedidos" funciona, mas a tela não fica modal esta tela fica independente da que chamou, com isso eu consigo fechar o programa principal com os menus que a chamou e ela fica aberta, dai abro novamente o programa dá uma pancada de erro. Se eu chamar assim: DEFINE DIALOG oWndFol TITLE "Pedidos" No export method DEFCONTROL Args: [1 ]=C Pedidos [2 ]=O Object stack calls: DEFCONTROL(0) TGET:REDEFINE(0) ABREPEDIDOS(110) E a linha 110 é isso: REDEFINE BTNBMP oBm1 ID 46 OF oFld:aDialogs[ 1 ] RESOURCE "PESQUISAR" ACTION MostraClie(.F.,oWndFol) Desculpe a minha falta de conhecimento, mas é que a Five PPc não manjo muito, ou melhor dizendo nada affff. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008 Mensagem Original Bom dia. No pocket, na janela principal está sendro criado assim: DEFINE WINDOW oWnd TITLE "AtualPPC" MENU BuildMenu() depois a pessoa escolhe pedido e chama esta DEFINE WINDOW oWndFol TITLE "Pedidos" O que ocorre é quando a pessoa atende a ligação, e pressiona 2 vezes o botão para desligar, a aplicação simplesmente some, e é como se o menu fosse independente do pedido, pois ele consegue fechar o programa principal com o menu, e a tela de pedido fica aberta, quando ele tenta abrir, dá um monte de erro, pois já encontra aberto. Gostaria de saber como criar estas telas, de uma forma que a somente a janela principal recebesse o foco, e ele tem que vir fechando, na ordem em que abriu, acho que é modal o nome disso. Saudações. Leco Jales Five Pocket Harbour 1.0.1dev Intl. (Rev. 9361) Copyright © 1999-2008, http://www.harbour-project.org/ Title: FWPPC 31/January/2009 Five PPC Harbour 1.0.1 - 1999-2008 Editado por - lecojales on 09/08/2011 11:35:41 Editado por - lecojales on 25/08/2011 08:29:18