Delair José Gasperin

Já que você sempre me ajuda, deixa eu tentar te retribuir. Criar, redimensionar dialog´s e manuzear elementos gráficos você sabe melhor que eu, minha sugestão fica no controle. - Numa 1ª dialog coloque icones correspondentes às salas do estabelecimento. Guardar estas inforções em estabel.dbf, com as dimensões de cada sala. - Para cada sala você precisa disponibilizar controles para redimensionamento das áreas e interativamente incorporar elementos que identifiquem os volumes, tais como, parede, janelas, colunas escadas. Quardar salas.dbf estes elementos que identificam graficamente as salas, com suas coordenadas. - Um dos elementos que devem ser incluidos, nesta etapa são as posições das mesas, que nessa altura podem figurar vazias. Cada mesa tem, em mesas.dbf (ou ainda em salas.dbf), associado, sala, coordenadas e número de identificação. - No dia-a-dia teremos, ao abrir o sistema, o estabelecimento montado e as mesas já posicionadas e vazias. Ao se clicar nas proximidades das coordenadas, conforme mesas.dbf (ou salas.dbf), termos, basicamente 2 ações. 1- ocupar mesa e abrir conta e 2- fechar conta, emitir fatura e desocupar mesa. Trocar o ícone torna-se apenas um detalhe. Espero ter ajudado, senão vingue-se quando eu te postar minhas dúvidas. Abraços. ----------------------------------------------------------- FiveWin 8.04/ Harbour 1.1-1 / Workshop / ADS 6.2

Eu também estou indo pro FW, mas antes preciso ir para 32 bits. Pisei na bola, de novo, tem controle de seqüencia, sim. Só não entendi por que não dá para passar a função Break() por makro. Deixa pra lá, passei, por makro, uma UDF que chama a função Break e está ok. Muito obrigado pela atenção. Agora parece Ok. Até a próxima. ----------------------------------------------------------- FiveWin 8.04/ Harbour 1.1-1 / Workshop / ADS 6.2

Obrigado pela atenção. Não sei se entendi. O Blinker linkedita em 32 bits, também. Assim diz o fabricante. E, em 16 bits, é normal o uso com qq lib. O que você quer dizer com "COMANDO NOVO"? Já que blinker pode ser usado para empacotar programa em Borland C/C++ e Harbour converte prg para C, não poderiamos usar Blinker para gerar os exe a partir dos obj resultantes do Harbour? ----------------------------------------------------------- FiveWin 8.04/ Harbour 1.1-1 / Workshop / ADS 6.2

A falha ocorria em janela DOS que houvesse rodado anteriormente o programa Clipper?!?!??! As vezes. Quanto ao erro de sair de vez em quando do programa, você, para variar, tinha razão, de novo. Era a função "break" passada em makro. No Harbour não temos "Begin/Break/Recover/End Sequence"? ----------------------------------------------------------- FiveWin 8.04/ Harbour 1.1-1 / Workshop / ADS 6.2

É isso mesmo: Incapaz de encontrar o Advantage Database Server. Poderia ser por não estar rodando o Server, mas isso não. A vesão Clipper funciona bem nesta máquina, acredito que esteja faltando algo neste exe / Harbour. ----------------------------------------------------------- FiveWin 8.04/ Harbour 1.1-1 / Workshop / ADS 6.2

Ok. Na bagunça eu havia retirado AdsSetServerType( 2 ) e o ADS está configurado para operar em modo exclusivo. Agora, ao "logar" no ADS, reporta erro 6420 "unable to dicover the ADS". De vez em quando "loga" normal. ----------------------------------------------------------- FiveWin 8.04/ Harbour 1.1-1 / Workshop / ADS 6.2

Cara, resolveu, mesmo. Obrigado! Agora, num ponto qq, está simplesmente abortando. Vou investigar. Até mais! ----------------------------------------------------------- FiveWin 8.04/ Harbour 1.1-1 / Workshop / ADS 6.2

Oi amigos! Será possível usar o bom Blinker para linkeditar meus programas agora em Harbour? ----------------------------------------------------------- FiveWin 8.04/ Harbour 1.1-1 / Workshop / ADS 6.2

Oi amigos! Será possível usar o bom Blinker para linkeditar meus programas agora em Harbour? ----------------------------------------------------------- FiveWin 8.04/ Harbour 1.1-1 / Workshop / ADS 6.2

Oi Kapiaba! Realmente eu não havia usado esta lib, porém adicionei e nada. Aí estão as libs que uso. c:\harbour\lib\rtl.lib + c:\harbour\lib\vm.lib + c:\harbour\lib\gtgui.lib + c:\harbour\lib\gtwin.lib + c:\harbour\lib\lang.lib + c:\harbour\lib\macro.lib + c:\harbour\lib\rdd.lib + c:\harbour\lib\dbfntx.lib + c:\harbour\lib\dbfcdx.lib + c:\harbour\lib\dbffpt.lib + c:\harbour\lib\hbsix.lib + c:\harbour\lib\debug.lib + c:\harbour\lib\common.lib + c:\harbour\lib\pp.lib + c:\harbour\lib\codepage.lib + c:\harbour\lib\rddads.lib + c:\harbour\lib\ace32.lib + c:\bcc55\lib\cw32.lib + c:\bcc55\lib\import32.lib + ----------------------------------------------------------- FiveWin 8.04/ Harbour 1.1-1 / Workshop / ADS 6.2

Oi amigos! Alguém poderia me socorrer? Compilei todo um programa, que funciona bem em Clipper, utilizando o Harbour 1.1-1, sem o FW. Depois de substituidas as funções do ADS, que não existem no Hb, agora está compilando bem, mas o programa não roda. Ao chamar o executável abre uma janela DOS que fica parada na carga. O exe ficou com 1517KB, não deve ser este o problena, né? Agradeço qq luz. ----------------------------------------------------------- FiveWin 8.04/ Harbour 1.1-1 / Workshop / ADS 6.2

Oi amigos! Alguém poderia me socorrer? Compilei todo um programa, que funciona bem em Clipper, utilizando o Harbour 1.1-1, sem o FW. Depois de substituidas as funções do ADS, que não existem no Hb, agora está compilando bem, mas o programa não roda. Ao chamar o executável abre uma janela DOS que fica parada na carga. O exe ficou com 1517KB, não deve ser este o problena, né? Agradeço qq luz. ----------------------------------------------------------- FiveWin 8.04/ Harbour 1.1-1 / Workshop / ADS 6.2

Ao retornar, antes de executar ShowMenu() o foco deve ser dado à window do menu. Assim que eu puder faço uma correção em ShowMenu() para contornar isso. ----------------------------------------------------------- FiveWin 8.02/ Harbour 1.1-1 / Workshop / ADS 6.2

1 - O DBF deverá estar indexado pelo CodCli 2 - Se for ADS, siga a oridentação do Giovani. Se não for ADS use o OrdScope() do Alessandro, porém com TipoNF em SET FILTE TO, para atender as duas, ou mais, condições. ----------------------------------------------------------- FiveWin 8.02/ Harbour 1.1-1 / Workshop / ADS 6.2

citação:Grato amigos FWH8.02 PELLES+SQLLIB+MYSQL id=quote>id=quote>Então a forma + correta de se usar seria: ************************************************************ DLL32 function keybd_event(bVk as _INT,bScan as _INT,dwFlags ; as DWORD,dwExtraInfo as PTR) as VOID pascal lib "user32.dll" ************************************************************ Porém alguns tipos são equivalentes. Mais ainda em 32 bits. Para entender melhor veja o final do tstShowMenu.ppo e ... ... http://msdn2.microsoft.com/en-us/library/ms646304.aspx ----------------------------------------------------------- FiveWin 8.02/ Harbour 1.1-1 / Workshop / ADS 6.2

Obrigado, eu não sabia onde estavam os defines. Completando: #define VOID 0 #define BYTE 1 #define CHAR 2 #define WORD 3 id=code>id=code> citação:Amigo não há problema nenhum as duas Funções estão exatamente iguais. E não tem nada de esse negocio de ajeitar o erro no C. Veja vc mesmo dentro do DLL.CH #ifdef __CLIPPER__ #define _INT 4 // conflicts with Clipper Int() #else #define _INT 7 #endif #define BOOL 5 #define HDC 6 #define LONG 7 #define STRING 8 #define LPSTR 9 #define PTR 10 #define _DOUBLE 11 // conflicts with BORDER DOUBLE #define DWORD 12 id=code>id=code>A diferença é que um usa uma Variavel e outro coloca o valor da mesma. Então pode usar tanto um quando o outro que eu agarantio Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. id=quote>id=quote>Tem razão, o compilador não resolve nada. E aproveitando, já que você entende mais, porque devo passar _INT e não BYTE? ----------------------------------------------------------- FiveWin 8.02/ Harbour 1.1-1 / Workshop / ADS 6.2

Quase nada. Apenas que _INT e LONG são constantes de conteúdo 7 e informam ao C o tipo de variável que se está passando, que neste caso não é nada crítico, pois o próprio compilador resolve o erre. A rigor deveriamos passar ( BYTE, BYTE, DWORD, PTR ) e como retorno VOID, mas não sei quais as constantes mais adequadas. Não há com o que se preocupar, mesmo que o compilador não contornasse a situação não causaria danos, poderia, no máximo, a função não funcionar a contendo. ----------------------------------------------------------- FiveWin 8.02/ Harbour 1.1-1 / Workshop / ADS 6.2

Meus agradecimentos ao Marllon Fogueiredo e ao Giovany Vecchi, que se empenharam em me ajudar, e a todos que abriram este tópico com a intensão de colaborar. O problema foi contornado usando-se Harbour 1.1-1 em vez de xHarbour 1.0.0. Por enquanto ficarei com Harbour, porém quando conseguir fazer funcionar para xHarbour, cocluiei este tópico. ----------------------------------------------------------- FiveWin 8.02/ xHarbour 8.02 / Workshop / ADS 6.2

Até que em fim consegui postar ShowMenu() em dicas, mas para isso precisou que o Gilmer acertasse meu cadastro. ----------------------------------------------------------- FiveWin 8.02/ xHarbour 8.02 / Workshop / ADS 6.2

Oi Marcelo. citação:Se quiserem eu coloco isso dentro da classe Tmenu sem precisar alterar a classe nativa!... Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE id=quote>id=quote>Você está se referindo ao TMru() ou ShowMenu()? Ambas me interessam desde que sejam opcionais, selecionáveis para cada item. ----------------------------------------------------------- FiveWin 8.02/ xHarbour 8.02 / Workshop / ADS 6.2

Na minha opinião, só existem 2 modos de proteção, uma para tí outra para os dados do teu sistema. A primeira é o contrato: Em meus contratos deixo bem claro de que não tenho responsabilidade alguma sobre os dados do sistema e prevejo que qq manutenção de dados serão cobrados a parte; exclaresso quanto a seguraça inserida por um sistema cliente/servidor. Testo todos os processos na presença do cliente em todas as implantações/ampliações e pego assinatura em documento. A segunda é para os dados do cliente: Os dados só estarão seguros de "entendidos" com sistema Cliente/Servidor (ADS ou SQL). Não trabalho com SQL, mas poço te dizer que ADS funciona muito bem, pois você pode tira todos os direitos de acesso dos usuários, daí apenas o Servidor do ADS, que foi instalado com direitos de Administrador, poderá manusear os dados. Use uma ou as duas proteções a teu critério, mas sem elas não há como. ----------------------------------------------------------- FiveWin 8.02/ xHarbour 8.02 / Workshop / ADS 6.2

citação:bom, ví mais um problema,, em relatorios quando abre a preview, ele nao retorna... alguem se habilita??? estou tentanto tambem vitor s.b.c. id=quote>id=quote>Como estou apenas iniciando em FW não tenho nenhum relatório com preview, para testar, mas acredito que deva estar perdendo a informação de LastItem. Para contornar, armazene WndMain():oMenu em variável local, no início de seu relatório, e passe para ShowMenu() como parâmetro oM. Nos reporte quando testar. ----------------------------------------------------------- FiveWin 8.02/ xHarbour 8.02 / Workshop / ADS 6.2

citação:Pessoal, se me permitem meter o bedelho, eu decidi resolver esta questão de uma outra maneira. Resolvi fazer como o Windows faz, colocar os programas mais utilizados no menu iniciar. O que eu fiz foi fazer uma barra de botões na janela principal e cada vez que se usa uma função, esta função está associada a um botão com sua imagem já pré-definida juntamente com o perfil do usuário e vai se atualizando automaticamente. Cada vez que o usuário entra no sistema, o sistema verifica quais as opções mais utilizadas por ele e coloca na barra de botões ordenado decrescente da esquerda pra direita. Desta forma, o usuário terá sempre a mão a sua opção mais utilizada. Eroni (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf id=quote>id=quote>Bem legal sua solução. Me parece que seria ainda mais simpática se ela fosse incorporada ao TMru, pois não popularia a tela com elementos extras (botões). Alguém se habilita em alterar a classe TMru, para guardar e retornar todos os parâmentos dos últimos MenuItems? Vocês acham válida esta idéia? ----------------------------------------------------------- FiveWin 8.02/ xHarbour 8.02 / Workshop / ADS 6.2

citação:Realmente muito bom Delair funciona mesmo.. apenas uma observação, quando não usamos pelo menu.. isto é eu abro pelos botoes de atalho.. sua rotina dá um erro.. pois ele tenta retornar ao item do menu chamado.. e nao houve nenhum objeto do menu.. entao apenas modifiquei sua funcao.. apenas esse detalhe... PARABENS !!! function ShowMenu( oM, nNiv ) local nItem, oLItM, cMov :="", cMv, nChr default oM :=WndMain():oMenu default nNiv :=0 oLItM :=oM:LastItem() // coloquei isso aqui para quando nao é chamado // pelo menuitem if empty(oLItM) return .f. end ////////////////////// vitor s.b.c. id=quote>id=quote>Maravilha!! Já estou ganhando, também. Já corrigi a função. Obrigado. ----------------------------------------------------------- FiveWin 8.02/ xHarbour 8.02 / Workshop / ADS 6.2

Obrigado. É bom saber que também posso ser útil. Que seja este um pequeno agradecimento às ajudas que tenho daí recebido. Estou providenciando para postar um exemplo em dicas. ----------------------------------------------------------- FiveWin 8.02/ xHarbour 8.02 / Workshop / ADS 6.2