ricardomouramarques

Atualização: 13/09/2011 tá ficando Show: Vejam Video: Link Versão 11.09b http://www.megaupload.com/?d=MCRCAHB4 Tem mais coisas... Depois posto outro vídeo com maiorres detalhes. ********************************************************* Atualização: 08/09/2011 http://www.megaupload.com/?d=9ZUS65QW Vídeo: Agora é possível: - compilar através do RVisual (Projeto). - Definir chamadas de funções para os controles ( Action, bKeyDown, bKeyChar, bLostFocus, bGotFous, bChange) - Inserir Vídeo Dica: 26/05/2011 Para escolher entre WINDOW e DIALOG, clique no FORM e, no "Object Inspector" dê um duplo click na "cClass" (primeira linha, segunda coluna). Abrirá então as opções WINDOW e DIALOG. Dicas: 21/05/2011 pra começar insira um xbrowse e pressione control+P vc poderá configuarar várias opções do xbrowse aí se fez isso: Em "DISPLAY" com um duplo clique vc define quais campos vc deseja que seja apresentado, no "HEADER" vc altera o titulo da coluna, em "WIDTH" vc define a larguma da coluna se na opção "2007", vc escolher "FALSE", então poderá definir as cores do HEADER e do FOOTER pode escolher cores diferentes para cada coluna, header ou footer, assim como também as fontes de cada uma... ou todas Insira um TSAY e depois pressione CONTROL+D algumas vezes pra duplicar esses SAYs. Depois selecione todos os SAYs com a ferramenta SELEÇÃO... apos isso pressione CONTROL+E e pra editar todos. Também pode trocar as cores ou fontes de todos os selecionados, clicando na linha correspondente do OBJECT INSPECTOR pode também arrastar todos os selecionados com o mouse ou usando os controles da barra a direita. Ah! Nesta barra dá pra fazer algumas coisas como centralizar, distribuir, etc. no menu "CONTROLS->ORDER", vc pode alterar a ordem do controle... muito util, se após inserir vários controles, vc decidiu enfiar um outro lá no meio. ah! falando em enfiar um controle no meio de outros já inseridos, vc também pode fazer isso de forma mais fácil... faz assim: basta SELECIONAR o controle anterior ao novo que vc deseja inserir. Depois escolhe o control novo e na hora de inseri-lo no form vc segura o CONTROL pra clicar... entendeu? *use as setas pra movimentar os controles. *Setas+SHIFT para um movimento mais rápido *SETAS+CONTROL pra alterar o tamanho do(s) control(s). *Se selecionados mais de 1, todos os efeitos serão atribuidos a todos depois é só clicar no botão SOURCE e o código taí. Ele cria um arquivo de nome TEMP.PRG e abre com o NOTEPAD . Então vc pode salva-lo com o nome que vc quizer. (futuramente vou colocar uma opção pra vc definir qual programa usar) dicas: - Para inserir um novo controle entre outros já inseridos: 1 selecione o controle imdiatamente anteiror ao que vc quer inserir 2 Selecione, na barra de ferramentas o novo controle 3 Segure o CONTROL na hora do CLICK - Use CONTROL+D para duplicar um controle (abaixo) - Use SHIFT+D para duplicar um controle (a direita) - Para selecionar mais de um controle, individualmente, click sobre cada um com segurando o CONTROL - Para editar as opções do XBROWSE ou FOLDER, selecione o controle e pressione CONTROL+P - Para alterar os "CAPTIONS" de vários controles (como says, buttons, etc) selecione os utilizando a dica acima ou utilizando a ferramenta selecionar e use CONTROL+E outras dicas, passo depois. Ricado Marques Araguari-MG Editado por - ricardomouramarques on 09/09/2011 10:25:35 Editado por - ricardomouramarques on 13/09/2011 00:31:59 Editado por - ricardomouramarques on 13/09/2011 00:33:09

Atualização: 13/09/2011 tá ficando Show: Vejam Video: Link Versão 11.09b http://www.megaupload.com/?d=MCRCAHB4 Tem mais coisas... Depois posto outro vídeo com maiorres detalhes. ********************************************************* Atualização: 08/09/2011 http://www.megaupload.com/?d=9ZUS65QW Vídeo: Agora é possível: - compilar através do RVisual (Projeto). - Definir chamadas de funções para os controles ( Action, bKeyDown, bKeyChar, bLostFocus, bGotFous, bChange) - Inserir Vídeo Dica: 26/05/2011 Para escolher entre WINDOW e DIALOG, clique no FORM e, no "Object Inspector" dê um duplo click na "cClass" (primeira linha, segunda coluna). Abrirá então as opções WINDOW e DIALOG. Dicas: 21/05/2011 pra começar insira um xbrowse e pressione control+P vc poderá configuarar várias opções do xbrowse aí se fez isso: Em "DISPLAY" com um duplo clique vc define quais campos vc deseja que seja apresentado, no "HEADER" vc altera o titulo da coluna, em "WIDTH" vc define a larguma da coluna se na opção "2007", vc escolher "FALSE", então poderá definir as cores do HEADER e do FOOTER pode escolher cores diferentes para cada coluna, header ou footer, assim como também as fontes de cada uma... ou todas Insira um TSAY e depois pressione CONTROL+D algumas vezes pra duplicar esses SAYs. Depois selecione todos os SAYs com a ferramenta SELEÇÃO... apos isso pressione CONTROL+E e pra editar todos. Também pode trocar as cores ou fontes de todos os selecionados, clicando na linha correspondente do OBJECT INSPECTOR pode também arrastar todos os selecionados com o mouse ou usando os controles da barra a direita. Ah! Nesta barra dá pra fazer algumas coisas como centralizar, distribuir, etc. no menu "CONTROLS->ORDER", vc pode alterar a ordem do controle... muito util, se após inserir vários controles, vc decidiu enfiar um outro lá no meio. ah! falando em enfiar um controle no meio de outros já inseridos, vc também pode fazer isso de forma mais fácil... faz assim: basta SELECIONAR o controle anterior ao novo que vc deseja inserir. Depois escolhe o control novo e na hora de inseri-lo no form vc segura o CONTROL pra clicar... entendeu? *use as setas pra movimentar os controles. *Setas+SHIFT para um movimento mais rápido *SETAS+CONTROL pra alterar o tamanho do(s) control(s). *Se selecionados mais de 1, todos os efeitos serão atribuidos a todos depois é só clicar no botão SOURCE e o código taí. Ele cria um arquivo de nome TEMP.PRG e abre com o NOTEPAD . Então vc pode salva-lo com o nome que vc quizer. (futuramente vou colocar uma opção pra vc definir qual programa usar) dicas: - Para inserir um novo controle entre outros já inseridos: 1 selecione o controle imdiatamente anteiror ao que vc quer inserir 2 Selecione, na barra de ferramentas o novo controle 3 Segure o CONTROL na hora do CLICK - Use CONTROL+D para duplicar um controle (abaixo) - Use SHIFT+D para duplicar um controle (a direita) - Para selecionar mais de um controle, individualmente, click sobre cada um com segurando o CONTROL - Para editar as opções do XBROWSE ou FOLDER, selecione o controle e pressione CONTROL+P - Para alterar os "CAPTIONS" de vários controles (como says, buttons, etc) selecione os utilizando a dica acima ou utilizando a ferramenta selecionar e use CONTROL+E outras dicas, passo depois. Ricado Marques Araguari-MG Editado por - ricardomouramarques on 09/09/2011 10:25:35 Editado por - ricardomouramarques on 13/09/2011 00:31:59 Editado por - ricardomouramarques on 13/09/2011 00:33:09

pra quem não sabe ainda: if select( cAlias ) = 0 //não está aberto endif id=code>id=code> Ricado Marques Araguari-MG

mostre o conteudo destas Vars (cXml e cVarios ) Ricado Marques Araguari-MG

Acredito que seja isso: $WshShell = new COM("WScript.Shell"); $oExec = $WshShell->Run("seu_programa.exe", 7, false); veja aqui: http://br2.php.net/exec Ricado Marques Araguari-MG

Estranho é que o erro é "data type error",ou seja, o tipo de dado é diferente. Veja se em algum lugar vc não está atribuindo outro tipo de dado a esta variável. Pra que serve variável "cHis"? Por acaso em algum local vc não está igualando estas duas, tipo cHistori = cHis ? Ricado Marques Araguari-MG

citação:que programa é esse do ricardo?onde encontro? att marcelo id=quote>id=quote>Marcelo, O pessoal empolgou com a briga e sua pergunta passou batida. Está em DICAS: http://www.fivewin.com.br/Dicas/1063RMail.rar Ricado Marques Araguari-MG

Jackson, Está retornando retornando apenas o "path" para cSelect. Daí aFiles fica zerado. Alguma idéia? Ricado Marques Araguari-MG

citação:Isto ja tem pronto no fivewin.Olhe em \Source\WinApi\GetFiles.prg que tem a Função aGetFiles() que retorna um vetor dos arquivos selecionados. id=quote>id=quote>Giovany, Não encontrei não. Nem na pasta WinApi, nem em qualquer outra subpasta do FWH. Talvez seja a versão. Se tiver como você passar o conteúdo desse PRG, talvez dê pra gente ver quais são as "Flags" passados na função, visto que a API do Windows deve ser a mesma (GetOpenFileName). Ricado Marques Araguari-MG

Colega, Pra usar o cGetFile32() MultiSelect, com o path inicial funfando, faça assim: cGetFile32( "Arquivo Fonte|*.PRG", "Seleção de Arquivos Fontes", 1, cPathIni, .F., nor( 0x200, 0x80000, 0x4 ) ) id=code>id=code> Ricado Marques Araguari-MG

Araguari - MG Ricado Marques Araguari-MG

01-roberio------- 42 02-luisao-------- 21 03-ico----------- 44 04-emotta-------- 32 05-dorneles------ 39 06-vagner-------- 48 07-giovanyvecchi- 39 08-kleyber------- 46 09-CleitonSH----- 32 10-Theotokos----- 39 11-EMPRESOFT----- 39 12-betovsp------- 39 13-S.A.Oliveira-- 53 14-reneumg------- 43 15-CIACPD-------- 39 16-netsys-------- 48 17-sambomb------- 23 18-LUIS---------- 43 19-Evandro------- 55 20-henning------- 32 21-Aloizio------- 39 22-Decker-------- 51 23-Leco Jales---- 35 24-elitenet------ 33 25-joaosolution-- 33 26-SISTEMASIT -- 41 27-Ricardo Marques - 43 Média = 39,67 anos Na casa dos 20 -> 02 Na casa dos 30 -> 13 Na casa dos 40 -> 09 Na casa dos 50 -> 03 Ricado Marques Araguari-MG

43 - Anos Basic (sei lá quando - apenas testes) Clipper 5 - 1993 (aqui tudo começou de verdade - saudades) DBFast - 1995 Fivewin - 1997 MiniGui, HWGui e Visual Basic para testes (poucos programinhas) Já fiz algumas coisinhas em DELPhhhiiiaaacc (não gostei) Ricado Marques Araguari-MG

Arrisco dizer que o problema é que osg GETs e os SAYs pertecem a janela, então estão ocupando o mesmo lugar. Daí dá pau mesmo. O correto é declarar os GETs como pertencendo ao BITMAP. Em @Say faço assim: *********************************** define dialog oDlg.... @ lin, col Bitmap oBMP ... of oDlg @ lin, col GET oGet... of oBMP *********************************** Observe que na delcarção do GET ele percence ao BITMAP (of oBmp). Trate o bitmap como uma janela. E nesse caso lembre-se que as coordenadas do GET linha e coluna se referem a linha e coluna dentro do BITMAP. Ricado Marques Araguari-MG

Ele gera o código em @Say. Mas te dá o código pronto. O restante é tudo igual. Você pode usar arquivo de recursos (RC) onde informa suas suas imagens e icones, para incluir no EXE. Ricado Marques Araguari-MG

Assim: oGet:lDisColors := .f. id=code>id=code>Então poderá usar a cor que desejar. Ricado Marques Araguari-MG

fácil, fácil... Antes de tudo, dê um nome diferente para cada objeto do SAY. Tipo: oSay1, oSay2... etc. faça assim: redefine say oSay1 var oDbf:CODIGO ID 4003 of oFld:aDialogs[3] color Azul_Escuro font oFont redefine say oSay2 var oDbf:NOMECOMPL ID 4005 of oFld:aDialogs[3] color Azul_Escuro font oFont redefine say oSay3 var alltrim(oDbf:ENDERECO_)+", n.º "+oDbf:NUMERO ID 4006 of oFld:aDialogs[3] Color Azul_Escuro font oFont id=code>id=code>blz... Agora vamos fazer com que o clique na terceira aba do folder atualize esses SAYs. Não ví no seu código qual é o objeto do folder, então vou usar como exemplo "oFolder". Logo após a declaração do folder coloque essa linha: oFolder:bChange := {|| if(oFolder:nOption = 3, Carga(), NIL) } id=code>id=code>Agora crie a função CARGA(), onde os SAYs serão atualizados: Function Carga() //------------------------------------------ Function Carga() oDbf:Load() oSay1:Refresh() oSay2:Refresh() oSay3:Refresh() Return NIL id=code>id=code>Taí... prontinho. Ricado Marques Araguari-MG

neste exemplo que te mandei, aparece somente os percentuais. Testa ele aí Ricado Marques Araguari-MG

tô adererindo também. Teste Ricado Marques Araguari-MG

olha aí um exemplo: #include "Fivewin.ch" #include "TGraph.ch" FUNCTION MAIN() LOCAL oDlg, oGraph DEFINE DIALOG oDlg SIZE 600, 500 @ 1, 1 GRAPH oGraph; SIZE 250, 200; TYPE 4; YVALUES 3D XGRID YGRID XVALUES LEGENDS PIXEL oGraph:aSeries = { { "Serie 1", CLR_CYAN },; { "Serie 2", CLR_YELLOW },; { "Serie 3", CLR_HRED } } oGraph:aData = { { 35 }, {40}, {25} } oGraph:nClrX = CLR_GREEN oGraph:nClrY = CLR_RED ACTIVATE DIALOG oDlg CENTER RETURN NIL id=code>id=code>

Vc tem várias opções aí. Veja as variáveis de instância: lxGrid lyGrid lDotted lxVal // mostra valores na HORIZONTAL lyVal // mostra valores na VERTICAL lTitle // mosrta o titulo lLegends // mostra a legenda lViewVal // ver valores etc. etc. Então basta vc mudar o valor de qaulquer uma pra mostrar ou não. Tipo: oGraph:lViewVal := .f.

1 -cria o temp.dbf 2 -renomear o arquivo para .XLS 3 - ShellExecute( , "open", "SeuAqr.xls" ) Pronto.

isso mesmo garoto. Pega aí qualquer DBF que vc tiver, faça uma cópia dele e altere sua extensão para XLS. Tipo: CLIENTES.DBF -> CLIENTES.XLS. Agora dá dois cliques neste ultimo e verá que o excel vai abrilo, sem perguntar nada.

João, Uma maneira simples de fazer isso, é vc salvar o bd com a extensão ".xls" Va pode salvar o BD inteiro, ou criar um temporário com as informações que vc deseja e salvar como a extensão xls e pronto.

Pompeo, Quanto ao GET: Como exemplifiquei, anteriormente, vc não var USAR o GET diretamente nos campos. As variáveis de instancia criadas pela classe, são como variáveis mesmo. POde ficar tranquilo. Elas podem ser alteradas, editadas, etc. Mas só quando houver a chamada do Method :Save() é haverá a gravação. Nesse momento ( :SAVE() ) a classe então fará o bloqueio dos registros, efetuará a gravação e desbloquerá os registros. E vc nem precisou se preocupar com nada.