Bad Boy
Membros-
Posts
17 -
Joined
-
Last visited
Everything posted by 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
-
c ALGUEM PUDER ME MANAR TB? MEU EMAIL É: CLIPPER_123@HOTMAIL.COM
-
citação:Já foi para o seu email. José Carlos Guarulhos-SP FW 2.0 / Clipper 5.2e / WS | FWH 2.5 / xHarbour / xMate / Pelles id=quote>id=quote>MANDA PRA MIM TB....VALEU CLIPPER_123@HOTMAIL.COM FALOW..!!!!!!!!