Jump to content
Fivewin Brasil

evertonlb

Membros
  • Posts

    733
  • Joined

  • Last visited

  • Days Won

    18

Everything posted by evertonlb

  1. Valeu ICO. Só que não estou usando o FW para esta aplicação, to fazendo ela console mesmo. Mas vou fazer isso que vc me sugeriu! Em um outro software estou sando o FW 6.12 e está tudo certo... Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 01/02/2010 11:19:04
  2. Testador?!?!? Cara, tu ta querendo dizer aquele negócio que se coloca na cabeça pra não bater a testa? Aqui a gente chama de capacete, mas pra sua informação aqui no Brasil o "testador", como você chama, é obrigatório pra andar de moto. hahahhaha... o cara trabalha na oLympia mesmo... veja o e-mail dele!!!! Nã,nã,nã... pelo menos podia ter mandado para o Off Topic. Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS
  3. Pessoal, estou pela 4 vez tentando converter um software meu de Clipper para xHarbour. Agora estou usando o xHb 1.0.0 e preciso da xHb.Lib, na versao que instalei nao veio junto, ai peguei uma que achei no meu HD e tentei compilar, mas ai da um erro na compilação... XBL.LIB contains invalid OMF record, type 0x21 (possibly COFF) É por causa das diferentes versoes? alguem tem ela pra me enviar? Obrigado Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 01/02/2010 10:31:09 Editado por - evertonlb on 01/02/2010 14:24:39 Editado por - evertonlb on 01/02/2010 16:13:05
  4. Pessoal, estou pela 4 vez tentando converter um software meu de Clipper para xHarbour. Agora estou usando o xHb 1.0.0 e preciso da xHb.Lib, na versao que instalei nao veio junto, ai peguei uma que achei no meu HD e tentei compilar, mas ai da um erro na compilação... XBL.LIB contains invalid OMF record, type 0x21 (possibly COFF) É por causa das diferentes versoes? alguem tem ela pra me enviar? Obrigado Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 01/02/2010 10:31:09 Editado por - evertonlb on 01/02/2010 14:24:39 Editado por - evertonlb on 01/02/2010 16:13:05
  5. Cara veja só... tive um caso parecido com o seu, peguei uma loja pra trocar o sistema ai o cara me mandou um TXT que tava tudo meio misturado, porem separado por virgula como as coisas nao estavao em colunas determinadas o negocio pegou um pouco. O que eu fiz... joguei tudo para um DBF com o comando SDF ( dentro do DBU mesmo ) ai cada registro do TXT estava num registro do DBF, ai foi moleza. Talvez vc ache algo muuuiiitttoooo mais simples, mas isso me resolveu o problema.. * * Pega Código e pega Valor * Codi_valor := space(30) // inicialia a variaval que recebera o campo todo Codi_Barras := Space(13) // Inicializa a variavel que recebera o codigo de barras select Banco // seleciona o arquivo DBF do while !eof() Codi_Valor := alltrim( Dados_Cod_Val ) // o nome do teu campo que contem o codigo,valor sem os brancos cPar1 := "" // inicia as variaveis que serao usadas dentro do while cQtde := 0 // PASS := 0 // cTamCodVal := LEN( Codi_Valor ) // pega o tamanho do campo que contem o codigo e valor ( ja sem espaços ) do while pass <= cTamCli // fica no while até o tamanho da variavel pass ++ // esta variavel é para contar a posição de leitura do campo CPar2 := substr( Codi_Valor, Pass, 1 ) // CPar2 recebe o caracter que esta no campo, na posicao do CPass if CPar2 $ "0123456789" // verifica se é numero, se não for é porque é virgula ou ponto CPar1 := CPar1 + CPar2 // se for numero o CPar1 reebe ele mais o caracter lido else CPar2 == "," // se for virgula é porque ja chegou no valor Cod_Barras := cPar1 // Recebe o codigo de barras, não importando o tamanho, sé é 13 ou menos ou mais... cQtde := val( rigth( Codi_Val, (cTamCodVal - cPass ) ) // recebe o restante do campo, que supostamente é a qtde... endif enddo skip * enddo id=code>id=code>Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 12/01/2010 16:38:05
  6. evertonlb

    REI

    Veja pessoal, acho que muitos aqui nao entenderam a pergunta do amigo, bom tentarei esclarecer a duvida do companheiro do forum. Reinaldo, a questao é absolutamente estética, a ergonomia dos teclados atuais comparados aos padroes utilizados pela grande massa técnica faz com que questoes como a sua seja analizada pelas formas legais dos processos dinamicos e analiticos do fato em si. Isto é, não podemos separar a virgula do ponto pois justamente esta junção é que faz a diferença técnica. Veja o ponto e virgula, eles não se separam, se qualquer um separar o ponto e virgula irá acabar com um em cada lado do teclado, outro exemplo é o "trema". Programacionalmente seria como separar o lado esquerdo do direito, as proporçoes aleatórias variam de acordo com o espaço ocupado, com relaçao ao tempo estimado de permanencia! Ennfim, o conceito básico dos extremos gera esta tua dúvida. Entendeu? Caso não tenha entendido, posso tentar ser menos técnico e mais claro! Apesar de aparentar isto não é brincadeira! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS
  7. Bom pelo menos eu achei engraçado! hehehehe Certa vez um dragão aprisionou uma linda princesa em uma torre que fica em uma ilha, a única forma de se acessar esta ilha era através de uma ponte na qual o dragão ficava dia e noite de vigia. Programadores foram contratados para resgatar a princesa: O Programador Java: Chega, encontra o dragão. Desenvolve um framework para aniquilamento de dragões em múltiplas camadas. Escreve vários artigos sobre o framework, mas não mata o dragão. O Programador .NET: Chega, olha a idéia do Javanês e a copia, tenta matar o dragão, mas é comido pelo réptil. O Programador C: Chega, olha para o dragão com olhar de desprezo, puxa seu canivete minúsculo extremamente leve e simples, degola o dragão. Encontra a princesa, mas a ignora para ver os últimos checkins no CVS do Kernel do Linux. O Programador C++: Cria um canivete básico e vai juntando funcionalidades até ter uma espada complexa avassaladora, mas que apenas ele consegue entender ... Mata o dragão, mas trava no meio da ponte por causa dos Memory Leaks. O Programador COBOL: Chega, olha o dragão, pensa que tá velho demais para conseguir matar um bicho daquele tamanho e pegar a princesa e, então, vai embora de volta ao seu mundinho. O Programador Pascal: Se prepara durante 10 anos para criar um sistema de aniquilamento de dragão... Chegando lá descobre que o programa só aceita lagartixas no máximo médias como entrada. O Programador VB: Monta uma arma de destruição de dragões a partir de vários componentes, parte pra atacar o dragão e, na hora H, descobre que a espada só funciona durante noites chuvosas, e deve ser reiniciada a cada golpe para voltar a funcionar, só não sabe o porquê disso... O Programador PL/SQL: Coleta dados de outros matadores de dragão, cria tabelas com N relacionamentos de complexidade ternária, dados em 3 dimensões, OLAP, demora 15 anos para processar a informação. O Programador Ruby: Chega com uma baita fama, falando que é o melhor faz tudo, quando vai enfrentar o dragão ao invés de ir pros finalmente, mostra um videozinho dele matando um dragão... O dragão come ele de tédio. O Programador Smalltalk: Chega, analisa o dragão e a princesa, vira as costas e vai embora, pois eles são muito inferiores. O Programador shell: Cria uma arma poderosa para matar os dragões, mas, na hora H, não se lembra como usá-la. O Programador shell(2): O cara chega no dragão com um scr1p7 de 2 linhas que mata, corta, stripa, empala, pica em pedacinhos e empalha o bicho, mas na hora que ele roda, o scr1p7 aumenta, engorda, enfurece e coloca álcool no fogo do dragão. O Programador ASSEMBLY: Acha que está fazendo o mais certo e enxuto, porém troca um A por D, mata a princesa e transa com o dragão. O Programador Fortran: Chega, desenvolve uma solução com 45000 linhas de codigo, mata o dragão vai ao encontro da princesa... Mas esta o chama de tiuzinho e sai correndo atrás do programador Java que era elegante e ficou rico. O Programador FOX PRO: Desenvolve um sistema para matar o dragão, por fora é bonitinho e funciona, mas por dentro está tudo remendado. Quando ele vai executar o aniquilador de dragões descobre que esqueceu de indexar os DBF's. O Programador CLIPPER: Monta uma rotina que carrega um array de codeblocks para insultar o dragão, cantar a princesa, carregar a espada para memória, moer o dragão, limpar a sujeira, derramar leite condensado com morangos na princesa, transar com a princesa, tomar banho, ligar o carro, colocar gasolina e voltar pra casa. Na hora de rodar recebe um "Bound Error: Array Access" e o dragão o come com farinha. O Programador CLIPPER(2): Enquanto outros programadores estão ocupados distraindo o dragão, o programador Clipper entra de fininho no castelo carregando suas armas... Ao chegar no quarto da princesa, ela tem uma crise de riso: - HAHAHAHA! Você ainda usa uma CLAVA! HAHAHAHAHA... Cadê a tua armadura??? HUAHAHAHAHAHAHAHA! Qual é o tamanho máximo desse teu DBF? HAHAHAHA. O programador Clipper sai deprimido do castelo e voluntariamente se entrega para o dragão... Ao morrer, lembra com orgulho dos bons tempos, quando uma Clava bem torneada matava qualquer dinossauro... O Programador Python: Abre uma faquinha do canivete e mata o dragão numa punhalada só. Mas aí descobre que no canivete tinha armas mais legais ainda, e fica eternamente ressucitando o dragão pra matá-lo de diferentes formas, se esquecendo assim da princesa. O Programador BASIC: Desenvolve uma ferramenta para matar dragões. Só que quando vai usar, descobre que a ferramenta só funciona pra matar dragões de muletas com mais de 30 anos e o dragão come ele no jantar. O Programador PHP: Desenvolve em alguns minutos uma lâmina perfeita, afiada e funcional. Escolhe uma bonita textura para o cabo, e outra bonita textura para a armadura. Escreve um CSS com o alinhamento exato dos golpes necessários para matar o dragão. Corre para matar o dragão, mas, chegando lá, descobre que as texturas que escolheu para o cabo da espada e para a armadura não combinam com dragão e nem com o vestido da princesa. Volta pra frente do micro e perde algumas horas para produzir texturas melhores no photoshop. Volta majestoso para matar o dragão, uma cena bonita mesmo, todas as cores em equilíbrio. A princesa sorri, por ser salva por um herói tão bem alinhado, o dragão sorri também, pois quando o programador tenta o primeiro golpe, descobre que fez o CSS dos golpes para IE e não para o MOZILLA. Resultado: Churrasquinho de programador... O Programador HTML: 404 Error. The Page Was Not Found. O MARIO (Que tinha um livro de LISP no armário): Atendendo o chamado de um grande amigo, Mario tira o seu poderoso livro de Lisp completo e total do armário e começa a desenvolver... Abre um parênteses para começar o programa, outros 15 parênteses para iniciar a lógica da espada, com apenas 70 parênteses e um pouco de código conseguiu implementar uma armadura otimizada. Tentou sair de casa para desafiar o dragão, mas um parênteses estava bloqueando a porta. Tentou sair pela janela, mas ao abri-la a sua única vista era uma tela azul do décimo terceiro andar... Mario definhou em sua casa, perdido entre parênteses estúpidos, sem nunca colocar seu código em produção... Uma triste história que o dragão leu no obituário local... O Consultor: Chega, faz uma analise da situação, entrevista os usuários e depois de 2 anos de trabalho entrega um relatório de 500.000 páginas onde fica claro que para pegar a princesa é preciso matar o dragão. Vai embora rico sem nem chegar perto do bicho. O Analista de Processos: Chega ao dragão com duas toneladas de documentação desenvolvida sobre o processo de se matar um dragão genérico, desenvolve um fluxograma super complexo para libertar a princesa e se casar com ela, convence o dragão que aquilo vai ser bom pra ele e que não será doloroso. Ao executar o processo ele estima o esforço e o tamanho do estrago que isso vai causar e então compra 2 bombas nucleares, 45 canhões, 1 porta aviões, contrata 300 homens armados até os dentes, quando na verdade necessitaria apenas da espada que estava na sua mão o tempo todo, mas que não sabe mais usar, por ter praticado pouco e ter estudado muito as métricas de engenharia de software... Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS
  8. Bom pelo menos eu achei engraçado! hehehehe Certa vez um dragão aprisionou uma linda princesa em uma torre que fica em uma ilha, a única forma de se acessar esta ilha era através de uma ponte na qual o dragão ficava dia e noite de vigia. Programadores foram contratados para resgatar a princesa: O Programador Java: Chega, encontra o dragão. Desenvolve um framework para aniquilamento de dragões em múltiplas camadas. Escreve vários artigos sobre o framework, mas não mata o dragão. O Programador .NET: Chega, olha a idéia do Javanês e a copia, tenta matar o dragão, mas é comido pelo réptil. O Programador C: Chega, olha para o dragão com olhar de desprezo, puxa seu canivete minúsculo extremamente leve e simples, degola o dragão. Encontra a princesa, mas a ignora para ver os últimos checkins no CVS do Kernel do Linux. O Programador C++: Cria um canivete básico e vai juntando funcionalidades até ter uma espada complexa avassaladora, mas que apenas ele consegue entender ... Mata o dragão, mas trava no meio da ponte por causa dos Memory Leaks. O Programador COBOL: Chega, olha o dragão, pensa que tá velho demais para conseguir matar um bicho daquele tamanho e pegar a princesa e, então, vai embora de volta ao seu mundinho. O Programador Pascal: Se prepara durante 10 anos para criar um sistema de aniquilamento de dragão... Chegando lá descobre que o programa só aceita lagartixas no máximo médias como entrada. O Programador VB: Monta uma arma de destruição de dragões a partir de vários componentes, parte pra atacar o dragão e, na hora H, descobre que a espada só funciona durante noites chuvosas, e deve ser reiniciada a cada golpe para voltar a funcionar, só não sabe o porquê disso... O Programador PL/SQL: Coleta dados de outros matadores de dragão, cria tabelas com N relacionamentos de complexidade ternária, dados em 3 dimensões, OLAP, demora 15 anos para processar a informação. O Programador Ruby: Chega com uma baita fama, falando que é o melhor faz tudo, quando vai enfrentar o dragão ao invés de ir pros finalmente, mostra um videozinho dele matando um dragão... O dragão come ele de tédio. O Programador Smalltalk: Chega, analisa o dragão e a princesa, vira as costas e vai embora, pois eles são muito inferiores. O Programador shell: Cria uma arma poderosa para matar os dragões, mas, na hora H, não se lembra como usá-la. O Programador shell(2): O cara chega no dragão com um scr1p7 de 2 linhas que mata, corta, stripa, empala, pica em pedacinhos e empalha o bicho, mas na hora que ele roda, o scr1p7 aumenta, engorda, enfurece e coloca álcool no fogo do dragão. O Programador ASSEMBLY: Acha que está fazendo o mais certo e enxuto, porém troca um A por D, mata a princesa e transa com o dragão. O Programador Fortran: Chega, desenvolve uma solução com 45000 linhas de codigo, mata o dragão vai ao encontro da princesa... Mas esta o chama de tiuzinho e sai correndo atrás do programador Java que era elegante e ficou rico. O Programador FOX PRO: Desenvolve um sistema para matar o dragão, por fora é bonitinho e funciona, mas por dentro está tudo remendado. Quando ele vai executar o aniquilador de dragões descobre que esqueceu de indexar os DBF's. O Programador CLIPPER: Monta uma rotina que carrega um array de codeblocks para insultar o dragão, cantar a princesa, carregar a espada para memória, moer o dragão, limpar a sujeira, derramar leite condensado com morangos na princesa, transar com a princesa, tomar banho, ligar o carro, colocar gasolina e voltar pra casa. Na hora de rodar recebe um "Bound Error: Array Access" e o dragão o come com farinha. O Programador CLIPPER(2): Enquanto outros programadores estão ocupados distraindo o dragão, o programador Clipper entra de fininho no castelo carregando suas armas... Ao chegar no quarto da princesa, ela tem uma crise de riso: - HAHAHAHA! Você ainda usa uma CLAVA! HAHAHAHAHA... Cadê a tua armadura??? HUAHAHAHAHAHAHAHA! Qual é o tamanho máximo desse teu DBF? HAHAHAHA. O programador Clipper sai deprimido do castelo e voluntariamente se entrega para o dragão... Ao morrer, lembra com orgulho dos bons tempos, quando uma Clava bem torneada matava qualquer dinossauro... O Programador Python: Abre uma faquinha do canivete e mata o dragão numa punhalada só. Mas aí descobre que no canivete tinha armas mais legais ainda, e fica eternamente ressucitando o dragão pra matá-lo de diferentes formas, se esquecendo assim da princesa. O Programador BASIC: Desenvolve uma ferramenta para matar dragões. Só que quando vai usar, descobre que a ferramenta só funciona pra matar dragões de muletas com mais de 30 anos e o dragão come ele no jantar. O Programador PHP: Desenvolve em alguns minutos uma lâmina perfeita, afiada e funcional. Escolhe uma bonita textura para o cabo, e outra bonita textura para a armadura. Escreve um CSS com o alinhamento exato dos golpes necessários para matar o dragão. Corre para matar o dragão, mas, chegando lá, descobre que as texturas que escolheu para o cabo da espada e para a armadura não combinam com dragão e nem com o vestido da princesa. Volta pra frente do micro e perde algumas horas para produzir texturas melhores no photoshop. Volta majestoso para matar o dragão, uma cena bonita mesmo, todas as cores em equilíbrio. A princesa sorri, por ser salva por um herói tão bem alinhado, o dragão sorri também, pois quando o programador tenta o primeiro golpe, descobre que fez o CSS dos golpes para IE e não para o MOZILLA. Resultado: Churrasquinho de programador... O Programador HTML: 404 Error. The Page Was Not Found. O MARIO (Que tinha um livro de LISP no armário): Atendendo o chamado de um grande amigo, Mario tira o seu poderoso livro de Lisp completo e total do armário e começa a desenvolver... Abre um parênteses para começar o programa, outros 15 parênteses para iniciar a lógica da espada, com apenas 70 parênteses e um pouco de código conseguiu implementar uma armadura otimizada. Tentou sair de casa para desafiar o dragão, mas um parênteses estava bloqueando a porta. Tentou sair pela janela, mas ao abri-la a sua única vista era uma tela azul do décimo terceiro andar... Mario definhou em sua casa, perdido entre parênteses estúpidos, sem nunca colocar seu código em produção... Uma triste história que o dragão leu no obituário local... O Consultor: Chega, faz uma analise da situação, entrevista os usuários e depois de 2 anos de trabalho entrega um relatório de 500.000 páginas onde fica claro que para pegar a princesa é preciso matar o dragão. Vai embora rico sem nem chegar perto do bicho. O Analista de Processos: Chega ao dragão com duas toneladas de documentação desenvolvida sobre o processo de se matar um dragão genérico, desenvolve um fluxograma super complexo para libertar a princesa e se casar com ela, convence o dragão que aquilo vai ser bom pra ele e que não será doloroso. Ao executar o processo ele estima o esforço e o tamanho do estrago que isso vai causar e então compra 2 bombas nucleares, 45 canhões, 1 porta aviões, contrata 300 homens armados até os dentes, quando na verdade necessitaria apenas da espada que estava na sua mão o tempo todo, mas que não sabe mais usar, por ter praticado pouco e ter estudado muito as métricas de engenharia de software... Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS
  9. citação:Pode mostrar via codigo, por favor? João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>ok. este é o código! na realidade sempre que eu clicar sobre a mensagem ela desaparece. local oBrush, oBar, oBmp, hDll, WTEMAVIS, hWnd SET _3DLOOK ON // Microsoft 3D Look * set key -38 to ATLSenha() SET DATE TO BRITISH SET CONFIRM OFF SET EXCLUSIVE OFF SET EPOCH TO 1950 Set Century ON Set Delete On * Public executa := .t. * set helpfile to "help\BSFrigo.chm" Define icon oIco file("bola.ico") DEFINE BRUSH oBrush TRANSPARENT // FiveWin new predefined Brushes DEFINE FONT oFONT1 NAME "Courier New" SIZE 8, 16 DEFINE CURSOR oHand HAND Define WINDOW oFormIni TITLE "BS.Frigo" MDI; FROM 1, 1 to 700, 1023 PIXEL COLOR 0, 16777215; MENU BuildMenu() *Define WINDOW oFormIni TITLE "BS.Frigo" MDI; * FROM 1, 1 to 710, 1023 PIXEL COLOR 0, 16777215; * MENU BuildMenu() * hDll := LoadLibrary("appface.dll") * If hDll == 0 // Error Load dll * Msginfo("Erro em appfaceu.dll" ) * Else * if file('tema.txt') * PeleTema := "Skins\" + alltrim( memoread('tema.txt') ) * SkinStart( alltrim(PeleTema), 3, nil, 1, 1, 1) * endif * endif Macro_init() *SkinWindowSet(oFormIni:hWnd,101) DEFINE BUTTONBAR OF oFormIni _3D SIZE 57, 57 CURSOR oHand DEFINE BUTTON OF oFormIni:oBar NOBORDER ACTION if( Executa, DLP0031(), Negado() ); FILENAME "bitmaps\Produto.bmp" ; MESSAGE "Acesso ao Cadastro de Produtos e de Materia Prima" DEFINE BUTTON OF oFormIni:oBar NOBORDER ACTION if( Executa, DLP0012(), Negado() ); FILENAME "bitmaps\Composicao.bmp"; MESSAGE "Acesso ao Cadastro de Composição de Produtos" // DLP0012() DEFINE BUTTON OF oFormIni:oBar NOBORDER ACTION if( Executa, DLP0022(), Negado() ); FileName "bitmaps\Producao.BMP"; MESSAGE "Acesso a Rotina de Produção" DEFINE BUTTON OF oFormIni:oBar NOBORDER ACTION if( Executa, Eai(), Negado() ); FileName "bitmaps\Quantita.BMP"; MESSAGE "Acesso a Rotina de Cálculo Quantitativo de Abate e Desossa" DEFINE BUTTON OF oFormIni:oBar NOBORDER ACTION if( Executa, Eai(), Negado() ); FileName "bitmaps\Recebimento.bmp"; MESSAGE "Acesso a Rotina Calculo de Quebra" DEFINE BUTTON OF oFormIni:oBar NOBORDER ACTION if( Executa, Eai(), Negado() ); FileName "bitmaps\Configuracao.bmp"; MESSAGE "Acesso a Rotina de Configurações" @ 4, 16 BITMAP oBmp FILENAME "bitmaps\FUNDO.BMP" ADJUST SIZE 1024, 768 OF oFormIni ; ON CLICK ( oBmp:lStretch := ! oBmp:lStretch, oBmp:Refresh( .t. ) ) SET MESSAGE OF oFormIni TO "Controle de Custos e Produção - Versão 0.05.A - Operador.: Empr.: Estação.: " + NetName() + " " CLOCK DATE KEYBOARD NOINSET ATLArquivos() ACTIVATE WINDOW oFormIni MAXIMIZED; ON INIT AtlSenha( oFormIni, @executa ); ON RESIZE oBmp:Center(); ON PAINT ( PalBmpDraw( hDC,; ( oFormIni:nHeight() / 2 ) - ( oBmp:nHeight() / 2 ) - 50,; ( oFormIni:nWidth() / 2 ) - ( oBmp:nWidth() / 2 ), oBmp:hBitmap ) ) ; VALID MsgYesNo( "Você realmente deseja finalizar a aplicação?", "Escolha uma opção" ) oBmp:End() * set resources to * freelibrary() Return NIL id=code>id=code>tá, tá, vou confessar, algumas coisas deste PRG eu copiei de exemplos que peguei no forum, no \Samples, de alguem que me enviou exemplo, e talvez, de outros lugares mais. Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS
  10. Seguinte pessoal, no meu form principal tenho o Set Message com o nome do software, nome da estação, status do teclado, hora e tal. qdo entro no programa ta tudo certo, mas ai de vez em quando, abro algum outro form e a linha de mensagens do form pricipal some, fica coberta pelo BMP do fundo, só volta se eu minimizar e maximizar o software. o que eu faço pra resolver a questão e deixar sempre aparente e linha de mensagens? Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 11/01/2010 13:11:55
  11. Seguinte pessoal, no meu form principal tenho o Set Message com o nome do software, nome da estação, status do teclado, hora e tal. qdo entro no programa ta tudo certo, mas ai de vez em quando, abro algum outro form e a linha de mensagens do form pricipal some, fica coberta pelo BMP do fundo, só volta se eu minimizar e maximizar o software. o que eu faço pra resolver a questão e deixar sempre aparente e linha de mensagens? Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 11/01/2010 13:11:55
  12. Acho que não tenho bagagem suficiente para "enfrentar" tuas mais de 12000 mensagens, mas vai lá. Teria que ser algum programa de reconhecimento de caractares (OCR) da uma olhada no "Screen OCR", não testei, mas parece que te serve. Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS
  13. Bom pessoal... depois de muito tempo me lembrei de reportar o que fiz para acertar o meu problema com a macro. Pensei em usar um vetor mas na ultima olhada no meu código descobri o que tava fazendo. Obrigado a todos pela ajuda. Segue a baixo os códigos, primeiro o errado e depois o correto. Deus os abençoe CODIGO ERRADO pI := 0 select produtos go top for pI := 1 to 97 CodProcura := "Cod" + alltrim(str( pI, 2, 0 )) PesoItem := "Pes" + alltrim(str( pI, 2, 0 )) * if val( &CodProcura. ) > 0 if dbseek( CodProcura ) replace PD_ESTO with ( PD_ESTO + PesoItem ) else MsgAlert( "Código de lançamento " + CodProcura + " não existe. Faça lançamento manual.", "Entrada no Estoque" ) endif endif next id=code>id=code>CODIGO CORRETO pI := 0 select produtos set order to 01 go top for pI := 1 to 97 __c_PI := alltrim(str( pI, 2, 0 )) CodProcura := Cod&__c_PI. PesoItem := Pes&__c_PI. if Cod&__c_PI. > 0 if dbseek( strzero( Cod&__c_PI., 8, 0 ) ) rlock() replace PD_ESTO with ( PD_ESTO + Pes&__c_PI. ) else MsgAlert( "Código de lançamento " + strzero( Cod&__c_PI., 8, 0 ) + " não existe. Faça lançamento manual.", "Entrada no Estoque" ) endif endif next id=code>id=code>Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS
  14. Perfeito Kapiaba... 100%. muito obrigado brother! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS
  15. Ok. ja vi... inclusive ja baixei e ja fiz um teste. Mas realmente não percebi pra que serve, então, acho que não to precisando dele ainda. hehehe De qualquer maneira eu acho muito legal este lance das pessoas trabalharem pra fazerem ferramentas pra facilitar a vida dos usuários do FW. Acho que falo por muitos do Forum, muito obrigado Kapiaba, sei que um dia usarei o GASFW. Mas voce poderia resumir em uma frase a utilidade do GASFW né? Assim pessoas como eu poderiam avaliar melhor. Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS
  16. Bom dia amigos... como faço para chamar um arquivo CHM de dentro do meu software? Coloquei uma opção "Ajuda" e tentei com WinExec() mas nao deu! hehehe. Obrigado Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS
  17. Bom dia amigos... como faço para chamar um arquivo CHM de dentro do meu software? Coloquei uma opção "Ajuda" e tentei com WinExec() mas nao deu! hehehe. Obrigado Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS
  18. Tenho as mesmas duvidas do Ico... Uso o VRMM Union, e acho muito loco o negócio, o GASFW substitui ele? Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS
  19. Isso ai Ricardo... Problema resolvido 1o. Isso mesmo mas na realidade não sei o que deu, qdo eu associava ele ao Group a coisa ficava pior. hehehehe. refiz a tela, agora deu certo. 2o. Quanto tempo ein cara? por onde andavas? perdi minha versão 0.8 do VRMM fiquei usando a 0.6 dai colocava o dtpicker no PRG. 3o. Até que enfim consegui achar o VRMM ferramenta que pra mim tem sido insuperável. Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS
  20. Vamos ver se aprendi a colocar uma imagem! hehehehe ta ai... né de vê que deu certo?!?!? Bem como podem ver o Spinner no get das quantidades nao aparece, e o box/moldura/risquinho dos DTPicker tambem não... na realidade to refazendo a tela, mas qqer ajuda será bem vinda. Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS
  21. Valeu Ico Obrigado... estas informaçoes me serão muito util, inclusive estava querendo era mandar uma tela de Help pra vcs me ajudarem mas felizmente ja consegui resolver... Obrigado pelas dicas pessoal... Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS
  22. Bom dia amigos. Feliz ano de 2010 a todos vocezes. A realmente todos do forum que sempre estão dispostos a ajudar, esclarecer duvidas e muitas outras coisas... Bom estou fazendo uma tela, nesta tem um Group que faz um fundo e mais outros dois Grups acima pra separar as informações. O Problema é que o SPINNER nao ta aparecendo só aparece quando eu clico onde deveriam estar as setinhas, se cloico pra baixo aparece ela se clico pra cima aparece a flexinha pra cima... E ainda tem o DtPicker que nao aparece a moldura do "get" o calendário aparece mas a moldura do "GET" não... ja tentei tirar o Group do "fundo" mas nada... PS.: ja procurei no forum e nao encontrei nada pra me ajudar. Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS
  23. Bom dia amigos. Feliz ano de 2010 a todos vocezes. A realmente todos do forum que sempre estão dispostos a ajudar, esclarecer duvidas e muitas outras coisas... Bom estou fazendo uma tela, nesta tem um Group que faz um fundo e mais outros dois Grups acima pra separar as informações. O Problema é que o SPINNER nao ta aparecendo só aparece quando eu clico onde deveriam estar as setinhas, se cloico pra baixo aparece ela se clico pra cima aparece a flexinha pra cima... E ainda tem o DtPicker que nao aparece a moldura do "get" o calendário aparece mas a moldura do "GET" não... ja tentei tirar o Group do "fundo" mas nada... PS.: ja procurei no forum e nao encontrei nada pra me ajudar. Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS
  24. Pessoal como coloco uma imagem numa post meu para poder exeplificar uma duvida minha aqui no forum? Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS
  25. Pessoal como coloco uma imagem numa post meu para poder exeplificar uma duvida minha aqui no forum? Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS
×
×
  • Create New...