lecojales

Deixa eu tentar explicar melhor. Eu preciso simular o pressionamento do enter ou da seta para baixo. keyboard(chr(13)) não deu certo nem __keyboard(chr(13)). O setfocus não dá certo, pois nem sempre o foco vai para o mesmo lugar. Fiz deste jeito, pois tem alguns get que não quero que ele seja alterado e se uso o when .f. ele fica muito claro e não consigo ler. 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 460 OF oFld:aDialogs[ 2 ] RESOURCE "PESQUISAR" ACTION MostraProd(.F.,oWndFol) Redefine Get oDesPro Var cDespro ID 209 Pict "@!" Of oFld:aDialogs[ 2 ] When .t. .and. MUDAFOCO() Function MUDAFOCO() __Keyboard(Chr(13)) return .t. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

No Five ppc, como faço para simular um pressionamento de uma tecla, tipo enter, seta pra baixo, pois o keyboard(chr(13)) não está dando certo. O que acontece é que tem alguns objetos de get, não posso usar o when .f. neste, então criei uma rotina para quando estes gets receberem o foco, gostaria que ele jogasse para o próximo objeto. Como fazer? Leco Jales. Resolvido assim: oEmissao:bGotFocus:= {||___Keyboard(chr(9))} Five PPC Harbour 1.0.1 - 1999-2008 Editado por - lecojales on 03/05/2012 12:07:38

No Five ppc, como faço para simular um pressionamento de uma tecla, tipo enter, seta pra baixo, pois o keyboard(chr(13)) não está dando certo. O que acontece é que tem alguns objetos de get, não posso usar o when .f. neste, então criei uma rotina para quando estes gets receberem o foco, gostaria que ele jogasse para o próximo objeto. Como fazer? Leco Jales. Resolvido assim: oEmissao:bGotFocus:= {||___Keyboard(chr(9))} Five PPC Harbour 1.0.1 - 1999-2008 Editado por - lecojales on 03/05/2012 12:07:38

Eu acredito que o problema não é na impressora, pois outros modelos apresentam o mesmo problema. Eu criei um buffer, que tudo passa no leitor vai para este buffer, e este buffer faz o tratamento de impressão, deu um bom trampo mas fica muito bom. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

Argox os214 eu faço assim: @ prow()+1,00 say Chr(2)+"f285"+Chr(13) @ prow()+1,00 say Chr(2)+"O0220"+Chr(13) @ prow()+1,00 say Chr(2)+"L"+Chr(13) @ prow()+1,00 say "D11"+Chr(13) @ prow()+1,00 say "H15"+Chr(13) &&& temperatura @ prow()+1,00 say "PE"+Chr(13) @ prow()+1,00 say "A2"+Chr(13) @ prow()+1,00 say "122200000860051"+trim(pnome)+chr(13) @ prow()+1,00 say "1922A1200310249R$"+str(pvendap,8,2)+chr(13) @ prow()+1,00 say "1F8405000150035"+substr(pcodigo,1,12)+chr(13) vsqtdeimp:= 1 @ prow()+1,00 say "Q"+strzero(vsqtdeimp,4) + Chr(13) &&& quantidade @ prow()+1,00 say "E" + Chr(13) Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

Walter, bom dia. Este leitor eu nunca usei, mas eu peguei um leitor uma vez, que permitia configurar a simulação da tecla pressionada logo após ler o código de barra. Ou seja, ler e não acrescentar nenhum comando, dai o usuário tinha que dar enter, simumalar um enter, um esc, e tinha várias teclas. Será que não é o caso? Leco jales Five PPC Harbour 1.0.1 - 1999-2008

Como não dei conta de fazer o que nossos amigos sugeriram, fiz uma gambi aqui e deu certo. Obrigado. Leco Five PPC Harbour 1.0.1 - 1999-2008

Olá pessoal. O projeto em Pocket Quando desativo algum campo com when .f. ele fica cinza claro, e o cliente reclama que fica ruim para ler, já tentei trocar a cor, para preto e até agora não consegui, sou um pouco grosso nisso, kakaka se puderem ajudar. Estou usando assim: CONTROL "", 202, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 62, 9, 86, 12 //Descrição CONTROL "", 209, "EDIT", ES_MULTILINE+ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 1 ,22,148, 17 //Descrição 1 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 Leco Five PPC Harbour 1.0.1 - 1999-2008 Editado por - lecojales on 05/04/2012 08:59:21

Olá pessoal. O projeto em Pocket Quando desativo algum campo com when .f. ele fica cinza claro, e o cliente reclama que fica ruim para ler, já tentei trocar a cor, para preto e até agora não consegui, sou um pouco grosso nisso, kakaka se puderem ajudar. Estou usando assim: CONTROL "", 202, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 62, 9, 86, 12 //Descrição CONTROL "", 209, "EDIT", ES_MULTILINE+ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 1 ,22,148, 17 //Descrição 1 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 Leco Five PPC Harbour 1.0.1 - 1999-2008 Editado por - lecojales on 05/04/2012 08:59:21

citação:Continuamos com o problema, após fechar uma dialog nao esta liberando na memoria, e sim ficando acumulado. Este problema vem de longa data, mas agora com este monte de coisas novas do FW, passa a preocupar. "Não faça para o proximo o que não quer para sí mesmo!" id=quote>id=quote> Olá S.A.Oliveira, bom dia. Não sei se isso pode lhe ajudar, mas depois de muito brigar com isso, eu cheguei a conclusão, que este problema não é nas fariações, ou seja, hwgui, wvwtools ou fivewim. Pois já escutei reclamações, de todos os usuario, em eu particular uso wvwtools e hwgui. Nossos amigos tem razão em dizer que isso não acontece, mas eu digo, isso não acontece com eles. Eu cheguei a filmar a tela do sistema trabalhando. Cara é inacreditável, após uma hora de uso fica insuportável, de lento. Sai do sistema entra novamente rica rápido. Eu acredito que é algo que estou fazendo de errado, só não sei o que? Estou na luta. Desisti de fazer algo neste momento, estou correndo atrás de outras coisas. Mas se eu puder ajudar, estou a disposição. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

Olá Rogério, bom dia. A versão free, tem alguma restrição? Ou funciona tudo? Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

Marcio bom dia. Temos 2 situações, a primeira é conforme nosso colega já disse, vai sair mais caro você tentar cancelar este boleto do que pagar. situação 1 tenho vários clientes, que pega de volta estes boletos e na devida data quita eles. situação 2 você vai ter que gerar um arquivo de remessa cancelando esta cobrança, você pode ver junto ao bradesco como fazer isso, ou a maneira mais fácil, pedir ajuda para o cobrebenx, o pessoal é super bacana. Leco Five PPC Harbour 1.0.1 - 1999-2008

citação:Pessoal, tem como alguem colocar um arquivo texto de uma nfe para eu poder comparar. valeu. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5 Tá Leco, mas o que tem o emissor gratuito de NFe em gerar o xml/txt de uma Nfe, com SPED-Pis/Cofins. Dimob / SPED(pis/cofins) ..:: Mancelo mandou, eu obedeço ::.. id=quote>id=quote> Pelo que compreendi, é que ele estava querendo um modelo de nfe em txt, com os calculos do pis e do cofins. Se fosse isso daria certo o esquema da portal do governo. Então não devo ter compeendido o que o colega precisa, se puder mandar no meu email também, este arquivo texto, fico grato. lecojales@yahoo.com.br Five PPC Harbour 1.0.1 - 1999-2008

Olá bom dia. Eu baixei a versão de teste do governo, cadastrei uma nfe lá, até para saber quais são os campos obrigatório. Depois exportei para txt, e até para xml. Fica bem mais prático o compreendimento, até porque qualquer dúvida que tiver de que valor que é aquele lá, eu ia no programa e consultava. Boa sorte. Leco Five PPC Harbour 1.0.1 - 1999-2008

citação:A propósito, estou aposentando o DBFCDX. Vou passar a usar MySQL ou Firebird. Aceito sugestões sobre qual a melhor opção. Conheça o Pacote Fivewin em http://www.arsoft-ap.com.br - "Leia a Bíblia diariamente" id=quote>id=quote> Ariston, bom dia. Antes de mais nada, gostaria de agradecer as preciosas dicas que tem me dado. E é claro ao grupo todo, pois este grupo e bem ativo. Eu particularmente, lembrando que ainda estou gatinhando nisso, já usei o mysql, firebird, hoje pra mim está sendo melhor usar o postgress, pois comprei a rdd, o que facilitou e muito a migração. mysql-> bom, leve, se precisar hospedar o banco na net é fácil de encontrar, e é seguro. firebird-> bom, leve, mas.. a segurança deixa um pouco a desejar. postgres-> sem comentários. Acredito se escolher mysql, seria uma boa escolha, mas se puder ir para postgress seria melhor ainda. Tudo de bom. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

citação:A propósito, você sabe quais serão os aparelhos que a empresa irá adquirir ? Galaxy Tab 10.1 ? Xoom ? Acer Iconia ? 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> Nossa Luisão, o que é a falta de atenção, eu mesmo cobro aqui do pessoal, rsss, ele já me respondeu e eu perturbando o cara, kakakakakaka. Será o Samsung Galaxy Tab 10.1, ele roda o Androide 3.1 (honeycomb), sei lá o que é este tal de (honeycomb) mas está escrito lá kakakaka. Leco Five PPC Harbour 1.0.1 - 1999-2008

citação:Boa tarde... Pelo que sei o FIVEDROID ainda esta em fase inicial de projeto... Aconselho a usar Pacote de Desenvolvimento da Motorola para o Android. http://developer.motorola.com/ Este pacote é completo e pode até parecer.... mas usando o motodev você não fica amarrado somente aos aparelhos motorola... Abraços id=quote>id=quote> Olá Cristiano, vou dar uma olhada, obrigado. Sabe me dizer se usar isso para desenvolver eu fico amarrado a Motorola, ou roda em qualquer Androide. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

citação:Na verdade seu amigo disse para usar o Java pois no desenvolvimento para android usam java e na hora de compilar, ao invés de gerar o JAR é gerado o APK, para dispositivos Android. O que você precisa fazer ? Digitar informações de um pedido e acessar um BD online para gravar ? 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> Hoje o sistema é simples, ele tem um botão que acessa um ftp, e pega clientes, e produtos, e já sobe os pedidos feitos e zera local. O sistema trabalha off line. E outro a onde digita. Leco Five PPC Harbour 1.0.1 - 1999-2008

Por isso desisti da tela que estava fazendo, o cliente num prazo de 3 meses não vai mais usar o mobile, então não vira investir. Meu único cliente, acabou de fechar uma plano, que irá receber tablets com androide 3.0. Ouvi falar do five droide, alguém que usa em produção recomenda? Tenho um amigo de sampa que quer eu faça em Java, nossa dá um frio na espinha só de pensar. Se alguém já tiver algum projeto pronto, e estiver a fim de negociar. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

Por isso desisti da tela que estava fazendo, o cliente num prazo de 3 meses não vai mais usar o mobile, então não vira investir. Meu único cliente, acabou de fechar uma plano, que irá receber tablets com androide 3.0. Ouvi falar do five droide, alguém que usa em produção recomenda? Tenho um amigo de sampa que quer eu faça em Java, nossa dá um frio na espinha só de pensar. Se alguém já tiver algum projeto pronto, e estiver a fim de negociar. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

citação:isso ta respondido no outro topic, ultima msg minha vai de novo DEFINE WINDOW oWnd TITLE "teste" .. ... ACTIVATE WINDOW oWnd ; VALID MsgYesNo( "Finalizar?", "Selecione" ) MODAL id=code>id=code>oWnd insirir objeto da tela principal nos dialogs e windows secundarios ex: DIALOG ex: DEFINE DIALOG oDlg FROM 1, 1 TO 19, 31 TITLE "Clientes" OF oWnd WINDOWS ex: DEFINE WINDOW oWndSECUNDARIO TITLE "teste" of oWnd NAO esqueça de pôr MODAL na janela prinncipal abraço OBS: eu uso dialog nas telas secundarias Editado por - roberio on 13/01/2012 14:53:50 Editado por - roberio on 13/01/2012 15:08:10 id=quote>id=quote> Rogério, será que é porque está desatualizado minha FIVEPPC? Veja o erro que dá ao compilar ****************************************************************************** * FiveWin for Pocket PC - February 2010 Harbour development power * * © FiveTech Software, 1993-2010 for Microsoft Windows Pocket PC * * Harbour 1.0.1dev Intl. (Rev. 9361) * * Copyright © 1999-2008, http://www.harbour-project.org/ * ****************************************************************************** Compiling... Harbour 1.0.1dev Intl. (Rev. 9361) Copyright © 1999-2008, http://www.harbour-project.org/ Compiling 'atualppc.prg' and generating preprocessed output to 'atualppc.ppo'... 1 error No code generated atualppc.prg(112) Error E0030 Syntax error: "syntax error at 'WINDOW'" * Compile errors * S:\mobile\atualppc> DEFINE WINDOW oWndFol TITLE "Pedidos" of oWnd Five PPC Harbour 1.0.1 - 1999-2008

citação:E se fizer como o Kapiaba disse ? Trocar DEFINE WINDOW oWndFol TITLE "Pedidos" &&&&+strzero(Config->codven,6) por DEFINE DIALOGid=red> oWndFol TITLE "Pedidos" &&&&+strzero(Config->codven,6) ? 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>No exported method DEFCONTROL Args: [ 1] = C PEDIDOS [ 2] = O Object stack calls: DEFCONTROL(0) TGET:REDEFINE(0) ABREPEDIDOS(122) (b)BUILDMENU(1322) TMENU:COMMAND(0) TWINDOW:COMMAND(0) TWINDOW:HANDLEEVENT(0) _FWPPC(0) WINRUN(0) TWINDOW:ACTIVATE(0) MAIN(92) Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

citação:Tentou assim ? DEFINE WINDOW oWndFol OF oWndid=red> TITLE "Pedidos" &&&&+strzero(Config->codven,6) 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> Não deu certo, dá o seguinte erro: ****************************************************************************** * FiveWin for Pocket PC - February 2010 Harbour development power * * © FiveTech Software, 1993-2010 for Microsoft Windows Pocket PC * * Harbour 1.0.1dev Intl. (Rev. 9361) * * Copyright © 1999-2008, http://www.harbour-project.org/ * ****************************************************************************** Compiling... Harbour 1.0.1dev Intl. (Rev. 9361) Copyright © 1999-2008, http://www.harbour-project.org/ Compiling 'atualppc.prg' and generating preprocessed output to 'atualppc.ppo'... 1 error No code generated atualppc.prg(113) Error E0030 Syntax error: "syntax error at 'WINDOW'" * Compile errors * Five PPC Harbour 1.0.1 - 1999-2008

Olá bom dia a todos. Quando escolho uma opção no programa, a segunda tela, fica desvinculada da primeira, e no gerenciador de tafera aparece como sendo 2 programas, Tipo o primeiro é o atualppc, e o segundo é pedidos, como fazer para deixar este pedido vinculado a primeira, e mostrar somente a do menu principal atualppc. 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 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 "AtualPPC" ACTIVATE WINDOW oWnd Return nil *------------------------------------------------------------------------------- function BuildMenu() local oMenu DEFINE MENU oMenu RESOURCE 102 REDEFINE MENUITEM ID 110 OF oMenu ACTION AbrePedidos() REDEFINE MENUITEM ID 120 OF oMenu ACTION ConectaFtp() REDEFINE MENUITEM ID 130 OF oMenu ACTION ReparaTabela() return oMenu *------------------------------------------------------------------------------- function AbrePedidos() Local oWndFol,lTip_:= .t. AbreArqs() IniVar() DEFINE FONT oFontx NAME "MS SanSerif" SIZE 0,-8 DEFINE WINDOW oWndFol TITLE "Pedidos" &&&&+strzero(Config->codven,6) @ 0.5, 1 FOLDER oFld PROMPTS "Pedido","Itens","Obs" DIALOGS "PEDIDOS","ITEM_PEDIDO","OBS_PEDIDO" SIZE 225, 245 oFld:bChange:={|nAtual,nOld| ValidaFolder(nOld)} 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 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 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 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 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 ] ; oBrwPed:SetArray(aPed) oBrwPed:lCellStyle:=.F. 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 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 DIALOG oWndFol VALID SairSistema() return nil Leco Jales Five PPC Harbour 1.0.1 - 1999-2008 Editado por - lecojales on 13/01/2012 15:23:02

Olá bom dia a todos. Quando escolho uma opção no programa, a segunda tela, fica desvinculada da primeira, e no gerenciador de tafera aparece como sendo 2 programas, Tipo o primeiro é o atualppc, e o segundo é pedidos, como fazer para deixar este pedido vinculado a primeira, e mostrar somente a do menu principal atualppc. 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 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 "AtualPPC" ACTIVATE WINDOW oWnd Return nil *------------------------------------------------------------------------------- function BuildMenu() local oMenu DEFINE MENU oMenu RESOURCE 102 REDEFINE MENUITEM ID 110 OF oMenu ACTION AbrePedidos() REDEFINE MENUITEM ID 120 OF oMenu ACTION ConectaFtp() REDEFINE MENUITEM ID 130 OF oMenu ACTION ReparaTabela() return oMenu *------------------------------------------------------------------------------- function AbrePedidos() Local oWndFol,lTip_:= .t. AbreArqs() IniVar() DEFINE FONT oFontx NAME "MS SanSerif" SIZE 0,-8 DEFINE WINDOW oWndFol TITLE "Pedidos" &&&&+strzero(Config->codven,6) @ 0.5, 1 FOLDER oFld PROMPTS "Pedido","Itens","Obs" DIALOGS "PEDIDOS","ITEM_PEDIDO","OBS_PEDIDO" SIZE 225, 245 oFld:bChange:={|nAtual,nOld| ValidaFolder(nOld)} 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 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 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 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 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 ] ; oBrwPed:SetArray(aPed) oBrwPed:lCellStyle:=.F. 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 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 DIALOG oWndFol VALID SairSistema() return nil Leco Jales Five PPC Harbour 1.0.1 - 1999-2008 Editado por - lecojales on 13/01/2012 15:23:02