Bad Boy

Muito Obrigado, (Edvaldo) obs: esse cara maja muito de programacao. Meu passei meu codigo para ele, nao deu 2 minutos o cara já tinha me passado a solucao, Só tenho que agradecer a ele pois c nao fosse ele acho que já ia ficar + um dia quebrando a cabeca com isso. Muito Obrigado............VALEU CARA............ Aqui abaixo vai um simples exemplo de como montar um get atravez de array, ficou muito legal. e já esta certinho com a solucao do meu novo amigo (Edvaldo). //---------------------------- #INCLUDE "FIVEWIN.CH" Procedure Main() local Hborland := LoadLibrary("bwcc.dll") local XEXTR := {} SET 3DLOOK ON SET RESOURCES TO "EXEMPLO.DLL" //--CARREGA A DLL AADD(XEXTR,{05,105,"@!",.T.}) AADD(XEXTR,{06,106,"999,99",.T.}) acad1:=array(6) CAD_CID(ACAD1,XEXTR) return /**********************************************************/ FUNCTION CAD_CID(ACAD1,XEXTR) LOCAL NOK:=.F., ODLG , NPOSI , NMOST , oGet oGet := array(6) DEFINE DIALOG ODLG RESOURCE "CAD_CID_1" set cursor on REDEFINE get oGet[01] var acad1[02] ID 102 OF oDLG PICTURE "@!" VALID !EMPTY(ACAD1[02]) REDEFINE get oGet[02] var acad1[03] ID 103 OF oDLG PICTURE "@!" VALID !EMPTY(ACAD1[03]) REDEFINE get oGet[03] var acad1[04] ID 104 OF oDLG PICTURE "99.999-999" //---O PROBLEMA ESTA AQUI NESSE FOR ELE DEVERIA MOSTRAR OS GETS CONFORME ESTA PRENCHIDO AI A CIMA O ARRAY. //---SO QUE NAO ESTA FAZENDO ISSO ELE MOSTRA OS 2 CAMPOS SÓ QUE TODOS OS GETS QUE ESTAVAO NESSE ARRAY SAEM IGUAL A O ULTIMO CAMPO LIDO DO ARRAY IF LEN(XEXTR) > 0 FOR POS := 1 TO LEN(XEXTR) //-FUNCAO SALVADORA DA PATRIA DO (Edvaldo) CriaGet( oDlg, oGet , ACAD1 , XEXTR , POS ) //--CODIGO ERRADO AQUI //NPOSI:=XEXTR[POS,1] //NMOST:=XEXTR[POS,4] //msginfo(nposi) //REDEFINE GET oGet[nPOSI] var ACAD1[nPOSI] ID XEXTR[POS,2] COLOR"B/W+*" OF oDLG PICTURE XEXTR[POS,3] WHEN NMOST NEXT ENDIF REDEFINE BUTTON ID 1 OF oDLG ACTION (NOK:=.T.,oDLG:END()) REDEFINE BUTTON ID 2 OF oDLG ACTION (oDLG:END()) ACTIVATE DIALOG oDLG CENTERED IF NOK == .T. //---AQUI DAI MANDO GRAVA ENDIF RETURN //-------------------------------------------------------- // FUNCAO DO MEU AMIGO(Edvaldo)...VALEU CARA //-------------------------------------------------------- STATIC FUNCTION CriaGet( oDlg, aVarGet, aVarCFG, aVarData, nInd ) REDEFINE GET aVarGet[aVarData[nInd, 1]] VAR aVarCFG[aVarData[nInd, 1]] ID aVarData[nInd, 2]; COLOR"B/W+*" OF oDLG PICTURE aVarData[nInd, 3] WHEN aVarData[nInd, 4] RETURN ------------------------- Clipper5.2e+Blinker5.10+FiveWin1.92 Email/msn: clipper_123@hotmail.com

Muito Obrigado, (Edvaldo) obs: esse cara maja muito de programacao. Meu passei meu codigo para ele, nao deu 2 minutos o cara já tinha me passado a solucao, Só tenho que agradecer a ele pois c nao fosse ele acho que já ia ficar + um dia quebrando a cabeca com isso. Muito Obrigado............VALEU CARA............ Aqui abaixo vai um simples exemplo de como montar um get atravez de array, ficou muito legal. e já esta certinho com a solucao do meu novo amigo (Edvaldo). //---------------------------- #INCLUDE "FIVEWIN.CH" Procedure Main() local Hborland := LoadLibrary("bwcc.dll") local XEXTR := {} SET 3DLOOK ON SET RESOURCES TO "EXEMPLO.DLL" //--CARREGA A DLL AADD(XEXTR,{05,105,"@!",.T.}) AADD(XEXTR,{06,106,"999,99",.T.}) acad1:=array(6) CAD_CID(ACAD1,XEXTR) return /**********************************************************/ FUNCTION CAD_CID(ACAD1,XEXTR) LOCAL NOK:=.F., ODLG , NPOSI , NMOST , oGet oGet := array(6) DEFINE DIALOG ODLG RESOURCE "CAD_CID_1" set cursor on REDEFINE get oGet[01] var acad1[02] ID 102 OF oDLG PICTURE "@!" VALID !EMPTY(ACAD1[02]) REDEFINE get oGet[02] var acad1[03] ID 103 OF oDLG PICTURE "@!" VALID !EMPTY(ACAD1[03]) REDEFINE get oGet[03] var acad1[04] ID 104 OF oDLG PICTURE "99.999-999" //---O PROBLEMA ESTA AQUI NESSE FOR ELE DEVERIA MOSTRAR OS GETS CONFORME ESTA PRENCHIDO AI A CIMA O ARRAY. //---SO QUE NAO ESTA FAZENDO ISSO ELE MOSTRA OS 2 CAMPOS SÓ QUE TODOS OS GETS QUE ESTAVAO NESSE ARRAY SAEM IGUAL A O ULTIMO CAMPO LIDO DO ARRAY IF LEN(XEXTR) > 0 FOR POS := 1 TO LEN(XEXTR) //-FUNCAO SALVADORA DA PATRIA DO (Edvaldo) CriaGet( oDlg, oGet , ACAD1 , XEXTR , POS ) //--CODIGO ERRADO AQUI //NPOSI:=XEXTR[POS,1] //NMOST:=XEXTR[POS,4] //msginfo(nposi) //REDEFINE GET oGet[nPOSI] var ACAD1[nPOSI] ID XEXTR[POS,2] COLOR"B/W+*" OF oDLG PICTURE XEXTR[POS,3] WHEN NMOST NEXT ENDIF REDEFINE BUTTON ID 1 OF oDLG ACTION (NOK:=.T.,oDLG:END()) REDEFINE BUTTON ID 2 OF oDLG ACTION (oDLG:END()) ACTIVATE DIALOG oDLG CENTERED IF NOK == .T. //---AQUI DAI MANDO GRAVA ENDIF RETURN //-------------------------------------------------------- // FUNCAO DO MEU AMIGO(Edvaldo)...VALEU CARA //-------------------------------------------------------- STATIC FUNCTION CriaGet( oDlg, aVarGet, aVarCFG, aVarData, nInd ) REDEFINE GET aVarGet[aVarData[nInd, 1]] VAR aVarCFG[aVarData[nInd, 1]] ID aVarData[nInd, 2]; COLOR"B/W+*" OF oDLG PICTURE aVarData[nInd, 3] WHEN aVarData[nInd, 4] RETURN ------------------------- Clipper5.2e+Blinker5.10+FiveWin1.92 Email/msn: clipper_123@hotmail.com

E ai Galera, nada ainda..to precisando fazer isso ai galera urgente. quem quiser que eu passe o exemplo do que esto querendo fazer é só postar aqui o email ou me adicionar ai no msn o meu é: clipper_123@hotmail.com Vamo lá Galera..to precisando de ajuda...SOS!! ------------------------- Clipper5.2e+Blinker5.10+FiveWin1.92 Email/msn: clipper_123@hotmail.com

citação:Olá Bad Boy, não é questão de zoar vc não , eu estou zoando o Kapiaba, com o @ isso é coisa de criança, com resource, vc terá que criar todos os seus gets no WS e depois jogar para o array, somente o ID, como eu não gosto e não trabalho com o WS, todas essas perguntas sobre o WS eu deixo para ele, mas vamos ver se consigo lhe ajudar Vc criou todos os seus gets no WS ?, enumerou todos diretinho ?, o que acontece ?, dá erro ?, não apresenta ?, vc definiu uma quantidade de objetos para esses gets ? Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 id=quote>id=quote>Vagner eu criei um exemplo explicando o que estou tentando fazer, e ele tb mostra o problema que estou tendo. ficaria + facil vagner c vc desse uma olhada. c vc quiser me adicionar no msn o meu email é: clipper_123@hotmail.com ou me passe seu email que dai te mando o exemplo de que estou falando...blz!!! ------------------------- Clipper5.2e+Blinker5.10+FiveWin1.92 Email/msn: clipper_123@hotmail.com

citação:(heheheheheh), Até dá para fazer, mas essa eu vou deixar para o Kapiaba responder Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 id=quote>id=quote>Eu vou pedir a paciencia a vcis pois sou iniciante em fiveWin, e gostaria que no lugar d me zoarem vcis respondencem minha pergunta. Por favor pesso colaboracao e ajuda de vcis c possivel. ------------------------- Clipper5.2e+Blinker5.10+FiveWin1.92 Email/msn: clipper_123@hotmail.com

citação:Olá, Não é tão difícil assim. O livro oferecido neste "site", apesar de caro, te dá uma boa mão. Avaliei várias alternativas de migrar para o ambiente Windows, inclusive convertendo alguns aplicativos para Delphi, mas o que achei mais interessante foi o FiveWin. Estou "falando" de casa. Em meu escritório tenho uma apostila do Ortiz Ziñinga e traduzida por Maurício Ventura Faria. Se você quiser te envio de lá. []s, Evandro G. de Paula Curvelo - MG id=quote>id=quote>C der mande para mim tb..email: clipper_123@hotmai.com ------------------------- Clipper5.2e+Blinker5.10+FiveWin1.92 Email/msn: clipper_123@hotmail.com

POR FAVOR GALERA QUEM QUISER TESTAR O CODIGO ESTA AI CERTINHO COMO ESTOU USANDO..QUERIA SABER C O FIVEWIN NAO ACEITA FAZER ISSO, POIS NO CLIPPER USAVA DO MESMO GEITO E DAVA CERTINHO. /*********************************************************/ //-ASSIM E COMO ESTA O ARRAY SERIAO OS VALORES DOS MEUS GETS AADD(XEXTR,{05,105,"@!",.T.}) AADD(XEXTR,{06,106,"999,99",.T.}) /*********************************************************/ FUNCTION CAD_CID(ACAD1,XEXTR) LOCAL NOK:=.F., ODLG , NPOSI , NMOST DEFINE DIALOG ODLG RESOURCE "CAD_CID_1" set cursor on REDEFINE get acad1[02] ID 102 OF oDLG PICTURE "@!" VALID !EMPTY(ACAD1[02]) REDEFINE get acad1[03] ID 103 OF oDLG PICTURE "@!" VALID !EMPTY(ACAD1[03]) REDEFINE get acad1[04] ID 104 OF oDLG PICTURE "99.999-999" //---O PROBLEMA ESTA AQUI NESSE FOR ELE DEVERIA MOSTRAR OS GETS CONFORME ESTA PRENCHIDO AI A CIMA O ARRAY. //---SO QUE NAO ESTA FAZENDO ISSO ELE MOSTRA OS 2 CAMPOS SÓ QUE TODOS OS GETS QUE ESTAVAO NESSE ARRAY SAEM IGUAL A O ULTIMO CAMPO LIDO DO ARRAY IF LEN(XEXTR) > 0 FOR POS := 1 TO LEN(XEXTR) NPOSI:=XEXTR[POS,1] NMOST:=XEXTR[POS,4] REDEFINE GET ACAD1[nPOSI] ID XEXTR[POS,2] COLOR"B/W+*" OF oDLG PICTURE XEXTR[POS,3] WHEN NMOST NEXT ENDIF REDEFINE BUTTON ID 1 OF oDLG ACTION (NOK:=.T.,oDLG:END()) REDEFINE BUTTON ID 2 OF oDLG ACTION (oDLG:END()) ACTIVATE DIALOG oDLG CENTERED IF NOK == .T. //---AQUI DAI MANDO GRAVA ENDIF RETURN ------------------------- Clipper5.2e+Blinker5.10+FiveWin1.92 Email/msn: clipper_123@hotmail.com

Galera to com uma duvida ... No fiveWin nao to conseguindo ver por exemplo o valor de uma variavel ou um array em tempo de execucao, eu vi que no debug do fivewin até tem a opcao lá de (Watch Point) + clico lá e nao acontece nada nao abre nada nao faz nda, diferente do clipper que a gente digitava a variavel ou um array ai ele mostrava o valor dela. queria saber c tem algum problema nessa versao do fiveWin ou é assim em todas? Outra coisa no (Var inspector) mostra lá até o valor de algumas variaves + nao sao todas, até mostra o array lá, + quando a gente vai dar um clice para ver o valor que exite nele, ai da um erro e sai fora do sistemas Alguem sabe me dizer como posso fazer isso no FiveWin, como eu fazia no nosso velho amigo clipper Socorro, Valeu Galera..!! ------------------------- Clipper5.2e+Blinker5.10+FiveWin1.92 Email/msn: clipper_123@hotmail.com

I manda pra mim novamente, pois o meu hotmail bloqueou o email..Por favor c tiver como mande zipado... valeu pessoal ------------------------- Clipper5.2e+Blinker5.10+FiveWin1.92 Email/msn: clipper_123@hotmail.com

citação:Bad Boy, seria interessante vc modificar seu perfil, constando qual a versão de seu Fw, nome e email, para que possamos entrar em contato caso necessário. Beto betovsp@hotmail.com (16)9148-1515 CL53B + FW2.0 + @ SAY Ribeirão Preto/SP id=quote>id=quote>Beto obrigado pela dica.! ------------------------- Clipper5.2e+Blinker5.10+FiveWin1.92 Email/msn: clipper_123@hotmail.com

citação:O BIXO : AI VAI VARIAR SE VC É BOM DE MATEMATICA OU NAO. 1. METODO PRA PREGUICOSO : NAO USE A CLAUSULA "´PIXEL" AO DEFINIR JANELAS E DIALOGS, O FW VAI ENTENDER QUE VC QUER LINHAS E COLUNA "DE CLIPPER"... É MOLE?...O ACABAMENTO NEM SEMPRE FICA BOM... CUIDADO QUE DIALOG ENTENDE TD DOBRADO : TIPO SE VOCE POE @ 2,2 SAY "teste" VAI SAIR NA 4,4 ENTENDE ? É ASSIM MESMO ESSA DROGA... 2. MÉTODO DE CAPRICHOSO CHATO, ALTO ACABAMENTO:(QUE NEU EU) APRENDA A USAR AS FUNCOES DO FW QUE TE DAO A ALTURA E A LARGURA DOS FONTES USADOS, EM PIXEL LOGICO. E POSICIONE TUDO EM PIXEL, FAZENDO AS CONTAS PRA FICAR GENERICO NO CODIGO.., EX : ALT := ALTURA DO FONTE LAR := LARGURA DO FONTE @ 2 * ALT, 2 * LAR SAY "teste" PIXEL se voce mudar o fonte o @ acompanha em multiplos das dimensoes do fonte. CUIDADO COM OS PORR.. DOS DIALOGS.. DAI TEM QUE DIVIDIR AS COORDENDADS POR 2 !!!!!!! tenta ai amigao abr FW1.92+Clipper 5.3+Lib+Blinker+BC++ id=quote>id=quote>viu eu queria fazer usando as merdas das contas matematicas...+ nao consegui entender muito bem o seu exemplo vc poderia explicar um pouco melhor...

Galera eu dinovo.rsrs Tem algum calculo, que tranforme o de linha e colunas antigos do clipper para pixel do fivewin..c alguem souber como me avisem... Valeu Galera!!!!!!

citação:Galera to comecando agora no fivewin.. Tava querendo saber c tem como fazer o seguinte colocar um tecla te atalho como F2 no botao, feito no workshop? E TB ALT+F5 ? E tb c tem como colocar em um get feito nanualmente no codigo a mascara de senha os ***** da vida..pq no workshop eu vi que tem geito lá, queria saber c via programacao tem tb? C TB NO LISTBOX TEM COMO SABER POR EXEMPLO, C O CARA CLICAR EM UMA COLUNA, EU SABER EM QUAL COLUNA FOI CLICADA. DAI CHAMAR UMA FUNCAO COM ESSE CLIK E PASSAR O PARAMETRO DE QUAL COLUNA FOI...BLZ id=quote>id=quote>Galera valeu pela ajuda ali do get..queria avisar que deu certinho. e tb o esqueminha do F2 tb deu certo valeu pela ajuda.. ------ Agora sobre o listbox galera vou usar o exemplo de uma outra postatem de um amigo no marcio. Daqui pra baixo postagem do nosso amigo..estou rescrevendoa pois la na postagem dele ninguem me respondeu. --------------inicio da postagem do nosso amigo----------- Galera Estou Precisando de Uma pesquisa Incremental, baixei Algumas do Forum, mas não deu Certo ! (igualzinho a mim) O lance é o seguinte: MEU dbf é assim CÓDIGO = NUMERICO = 6 NOME = CARACTER = 35 APELIDO= CARACTER = 15 Gostaria de Colocar Um combo, e dependendo do campo Selecionado Pesquisar ! Será que alguem Poderia me ajudar ! isso usando o listbox...tem como? --------------fim da postagem do nosso amigo---------------- ai um cara falou que tinha incrementado uma pesquisa que tinha aqui no site do fivewin so que dai pedi para ele mandar no meu email, + acho que ele deve estar meio sem tempo pois por isso estou pedindo aqui ajuda de vcis galera quem puder me ajudar por favor socorro? Valeu galera..!!!

Galera to comecando aqui no forum.. + vo adiciona uma galera pq...e bom pra fazer perguntas + simples pros feras. quem quiser me adicionar ai o meu e: clipper_123@hotmail.com

Galera to comecando agora no fivewin.. Tava querendo saber c tem como fazer o seguinte colocar um tecla te atalho como F2 no botao, feito no workshop? E TB ALT+F5 ? E tb c tem como colocar em um get feito nanualmente no codigo a mascara de senha os ***** da vida..pq no workshop eu vi que tem geito lá, queria saber c via programacao tem tb? C TB NO LISTBOX TEM COMO SABER POR EXEMPLO, C O CARA CLICAR EM UMA COLUNA, EU SABER EM QUAL COLUNA FOI CLICADA. DAI CHAMAR UMA FUNCAO COM ESSE CLIK E PASSAR O PARAMETRO DE QUAL COLUNA FOI...BLZ