Jump to content
Fivewin Brasil

Five Pocket, Criação de tela Ainda não Resolvi

lecojales

By lecojales
in Programação

 Share

Recommended Posts

lecojales Newbie

lecojales

Posted
Posted

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

Link to comment
Share on other sites
lecojales Newbie

lecojales

Posted
  • Author
Posted

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

Link to comment
Share on other sites
lecojales Newbie

lecojales

Posted
  • Author
Posted

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

Link to comment
Share on other sites
Luisão Newbie

Luisão

Posted
Posted

Não uso Five Pocket, mas acho que no lugar de

ACTIVATE WINDOW oWndFol

deveria ser

ACTIVATE DIALOG oWndFol

Luis Fernando Jr. (Luisão)

Leme/SP

--

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

luis.fernando.majr@gmail.com

juninho_luisao@hotmail.com (só msn)

Skype luis.fernando.jr

http://www.luisfernandojr.com

Link to comment
Share on other sites
lecojales Newbie

lecojales

Posted
  • Author
Posted

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

Link to comment
Share on other sites
lecojales Newbie

lecojales

Posted
  • Author
Posted

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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
 Share
Go to topic listing
×
×
  • Create New...