evertonlb

Não, não, não... é o fim mesmo... cara meu pai se aposentou com uns 40 anos de caminhoneiro, ta com a saude arrebentada, velhinho que só... e ganha 465,00 por mes... nunca matou, roubou, nem estuprou ninguem, sempre achou que sendo honesto ficaria melhor que bandido... sinceramente nem vou comentar isso que li com ele... vou deixar ele passar os ultimos anos de vida pensando que tava certo!!! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS

De fato. Obrigado pelas dicas, realmente vou usar um vetor, acaba ficando infinitamente mais pratico. valeu rapaziada.. Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS

Certo Samir. Obrigado pela resposta, mas meu problema não é em saber se a variavel em questao tem algum valor ou não. antes do FOR elas (ALGUMAS) tem o problema e qdo entra no FOR, ai TODAS aparecem zeradas. Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS

Seguinte pessoal... tenho uma função que da entrada no estoque. esta função recebe 97 variaveis com os codigos dos produto e mis 97 com a quantidade para dar entrada. As variáveis enviadas pra a função possuem nomes fora de uma sequencia porque elas pertencem a grupos distintos, exemplo de nomes: COD_1A1, COD_X17, COD_LMD... ai o qe fiz, na funcao em recebo elas numa sequencia, COD1, COD2, COD3, COD4,... COD96, COD97. Ai fz um FOR NEXT contando do 1 a 97 ai crio uma variavel CODProcura querecebe o nome COD + str(nI)... assim poupo código, minha rotina de gravar fica umas 10 linhas, se verificar todas as variaveis sem faze isso e teria umas 300. Meu poblema: Quando entro na funcao a variavel COD1 que recebe a variavel mandada COD_1A1, fca com valor 1 ( correto ) qdo entro no FOR a variavel CODProcura que recebe a variavel COD1 fica com valor 0(zero). Codgo que uso... Static Function FunGrava( Cod1, Cod2, Cod3,; Cod96, Cod97 ) * ?? "codigo do produto na Fungrava" ?? Cod1 // aqui o valor é 1 ( um, esta certo ) * pI := 0 select produtos go top for pI := 1 to 97 CodProcura := "Codigo" + alltrim(str( pI, 2, 0 )) PesoItem := "Pes" + alltrim(str( pI, 2, 0 )) * ?? CodProcura // aqui mostra COD1 ( nome da variável ) ?? &CodProcura. // Aqui mostra o valor da variável, mas esta 0 (zero) * if val( &CodProcura. ) > 0 ?? "maior que zero" ) if dbseek( CodProcura ) replace PD_ESTO with ( PD_ESTO + PesoItem ) ?? "produto encontrado e lançado." else MsgAlert( "Código de lançamento " + CodProcura + " não existe. Faça lançamento manual.", "Entrada no Estoque" ) endif endif next Obrigado por qqe ajuda Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 11/01/2010 16:59:35

Seguinte pessoal... tenho uma função que da entrada no estoque. esta função recebe 97 variaveis com os codigos dos produto e mis 97 com a quantidade para dar entrada. As variáveis enviadas pra a função possuem nomes fora de uma sequencia porque elas pertencem a grupos distintos, exemplo de nomes: COD_1A1, COD_X17, COD_LMD... ai o qe fiz, na funcao em recebo elas numa sequencia, COD1, COD2, COD3, COD4,... COD96, COD97. Ai fz um FOR NEXT contando do 1 a 97 ai crio uma variavel CODProcura querecebe o nome COD + str(nI)... assim poupo código, minha rotina de gravar fica umas 10 linhas, se verificar todas as variaveis sem faze isso e teria umas 300. Meu poblema: Quando entro na funcao a variavel COD1 que recebe a variavel mandada COD_1A1, fca com valor 1 ( correto ) qdo entro no FOR a variavel CODProcura que recebe a variavel COD1 fica com valor 0(zero). Codgo que uso... Static Function FunGrava( Cod1, Cod2, Cod3,; Cod96, Cod97 ) * ?? "codigo do produto na Fungrava" ?? Cod1 // aqui o valor é 1 ( um, esta certo ) * pI := 0 select produtos go top for pI := 1 to 97 CodProcura := "Codigo" + alltrim(str( pI, 2, 0 )) PesoItem := "Pes" + alltrim(str( pI, 2, 0 )) * ?? CodProcura // aqui mostra COD1 ( nome da variável ) ?? &CodProcura. // Aqui mostra o valor da variável, mas esta 0 (zero) * if val( &CodProcura. ) > 0 ?? "maior que zero" ) if dbseek( CodProcura ) replace PD_ESTO with ( PD_ESTO + PesoItem ) ?? "produto encontrado e lançado." else MsgAlert( "Código de lançamento " + CodProcura + " não existe. Faça lançamento manual.", "Entrada no Estoque" ) endif endif next Obrigado por qqe ajuda Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 11/01/2010 16:59:35

Olha Sr. Everton um pouco de pesquisa não faz mal a ninguem, se o Sr. puder fazer um teste verás que é só colocar depois de COLOR a mesma sequencia de numeros que o sr. colocou na momento que criou seu Folder... evidentemente tirando o "Transparent". Valeu pessoal... ta td certinho agora... obrigado a todos... Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS

Blz. tirando o "transparent" deu pra definir a cor de fundo do Sensitiv Say. Agora, onde consigo uma listagem destas definicoes de cores? CLR_??????... Obrigado Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP/JESUS/ESPOSA/3FILHOS

Então caros amigos. meu negócio é que preciso colocar um say e qdo o operado clica nele chama uma função, pois bem, não sei se isto é do proprio FW e foi alterada pelo Ramom Avedño ou se foi inteiramente criada pelo cara. d qqer maneira ahei-a nas DICAS, ela foi aicionada pelo Tche Guri Kapiaba, agora baixei a vesão 6.12 Free do FW ( assim me mantenho na legalidade ) mas ai o fundo dest Sensitive Say que antes era da mesma cor do Folder, ficou branca! Ai fica feio pra demais da conta sô! @ 87, 117 SENSITIVE SAY "Sangue"; SIZE 92,15 PIXEL OF oFld1:aDialogs[1]; FONT oFont2 COLOR CLR_BLACK COLOROVER CLR_HRED; ACTION Formula( "Sangue", @_3C, F_3C, "X_3C"); TRANSPARENT assim é minha linha de código. Obrigado Everton Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP

Veja Kapiaba, alterei as cores, coloquei COLOR CLR_BLACK, CLR_HGRAY COLOROVER CLR_RED - Nada COLOR CLR_RED, CLR_HGRAY COLOROVER CLR_HBLUE - Cor de fundo permanece branca... bom fiz um monte de variações, coloquei virgula, tirei, coloquei duas e até tres cores mas nada... so consigo mudar a cor do texto mas nao a de fundo, escreve em vermelho, azul, verde, mas a cor de fundo é sempre branca... tem outra sugestão? Obrigado Everton Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM/XP

Baixei estes dias do DICAS, uma postagem do Kapiaba a respeito do Sensitive say com action. só que peguei ontem a FW 6.12 e junto o xHarbour 99.71, ta tudo funcionando, mesmo o Sensitive Say que foi compilado com a 99.50 esta rodando e funcionando corretamente, no entanto a cor do fundo do say ficou branca... e antes era aquele cinzinha tipico... como faço pra alterar a cor do fundo? vi que tem 3 declaracoes de cores a CLR_BLACK COLOROVER CLR_HRED Clr_BLAK e a cor do texto CLR_RED e a cor qdo o cursor ta sobre o texto ntão.. como mudo a cor do fundo do dito cujo? Obrigado! Everton xHb 99.71 - FWH 6.12 - XDev - MyMake - VRMM 0.6

Baixei estes dias do DICAS, uma postagem do Kapiaba a respeito do Sensitive say com action. só que peguei ontem a FW 6.12 e junto o xHarbour 99.71, ta tudo funcionando, mesmo o Sensitive Say que foi compilado com a 99.50 esta rodando e funcionando corretamente, no entanto a cor do fundo do say ficou branca... e antes era aquele cinzinha tipico... como faço pra alterar a cor do fundo? vi que tem 3 declaracoes de cores a CLR_BLACK COLOROVER CLR_HRED Clr_BLAK e a cor do texto CLR_RED e a cor qdo o cursor ta sobre o texto ntão.. como mudo a cor do fundo do dito cujo? Obrigado! Everton xHb 99.71 - FWH 6.12 - XDev - MyMake - VRMM 0.6

AI amigo... sou novato no uso do xHarbour + FW tambem... te aconselho a usar o MyMake do vailton para compilar, intuitivo e muito "facilississimo" (hehe) de usar, e ainda tem um video no site do cara que te ensina funciona, Pra mim foi "uma mão na roda" o cara ainda tem o xDev Studio outra ferramenta que eu te recomendo. veja ai: www.sqllib.com.br Everton - Chapecó-SC XHB9950/FW28/MyMake/xDev/VRMM/XP

a maneira que o ICO sugeriu funcionou diretinho... obrigado amigo. Everton - Chapecó-SC XHB9950/FW28/MyMake/xDev/VRMM/XP

valeu... obrigado.. vou tentar o segundo modo ( ICO ) tenquiú!!! Everton XHB9950/FW24/MyMake/xDev/XP

Boa tarde pessoal, faz muito tempo que nao posto nenhuma duvida aqui, não que elas não existam, mas com algumas priciosissimas dicas de alguns companheiros por MSN e lendo um pouco eu to andando... bom é o seguinte. Tenho um Form para composição de produtos, neste form tem um get para o código do produto fabricado, verifico a existência do produto e abro um browse com as materias primas que compoem este produto, e ai vou para outros dois get´s... um pede o código da materia prima e outro a quantidade utilizada para a confecção do referido produto. bem abaixo tenho um outro botão para fazer o cálculo do valor do produto ( considerando o valor das matérias primas utilizadas ) o que acontece é que toda a vez que digito um codigo de materia prima e a quantidade o foco vai pro botão e eu gostaria de deixar o codigo da máteria prima e a quantidade num loop..e só quando eu pusesse o codigo em branco ai sim iria para o botão de cálculo. Tentei usar o do while, mas ou fiz algo errado ou nao da certo mesmo!!! uso: xDev 0.65 MyMake 1.9 VRMM 0.6 xHarbour 99.50 FW 2.8 Espero ter sido claro. Obrigado Everton XHB9950/FW24/MyMake/xDev/XP

Boa tarde pessoal, faz muito tempo que nao posto nenhuma duvida aqui, não que elas não existam, mas com algumas priciosissimas dicas de alguns companheiros por MSN e lendo um pouco eu to andando... bom é o seguinte. Tenho um Form para composição de produtos, neste form tem um get para o código do produto fabricado, verifico a existência do produto e abro um browse com as materias primas que compoem este produto, e ai vou para outros dois get´s... um pede o código da materia prima e outro a quantidade utilizada para a confecção do referido produto. bem abaixo tenho um outro botão para fazer o cálculo do valor do produto ( considerando o valor das matérias primas utilizadas ) o que acontece é que toda a vez que digito um codigo de materia prima e a quantidade o foco vai pro botão e eu gostaria de deixar o codigo da máteria prima e a quantidade num loop..e só quando eu pusesse o codigo em branco ai sim iria para o botão de cálculo. Tentei usar o do while, mas ou fiz algo errado ou nao da certo mesmo!!! uso: xDev 0.65 MyMake 1.9 VRMM 0.6 xHarbour 99.50 FW 2.8 Espero ter sido claro. Obrigado Everton XHB9950/FW24/MyMake/xDev/XP

Obrigado gilberto. Ja tinha chegado a este modelo... Obrigado Everton Everton XHB9950/FW24/MyMake/xDev/XP

Bom dia pessoal, eh o seguinte... estou imprimindo codigos de barras com um codigo fonte que foi postado aqui no forum pelo Alberto Zamai. esta funcionando coretamente, so que eu preciso de um codigo de barras que seja nao muito maior que o Ean13 e que no final eu possa mandar duas letras. imprimo os codigos do meu sistema que sao 7 digitos e mais as duas letras seriam entao 9 digitos a serem impressos... coloquei a barlib.lib ( nao sei se era necessaria...) e no inicio do PRG a BARCODE.CH preciso isso pras 14:00hs ( hehehehe ) Agradeco a ajuda... Everton XHB9950/FW24/MyMake/xDev/XP

Bom dia pessoal, eh o seguinte... estou imprimindo codigos de barras com um codigo fonte que foi postado aqui no forum pelo Alberto Zamai. esta funcionando coretamente, so que eu preciso de um codigo de barras que seja nao muito maior que o Ean13 e que no final eu possa mandar duas letras. imprimo os codigos do meu sistema que sao 7 digitos e mais as duas letras seriam entao 9 digitos a serem impressos... coloquei a barlib.lib ( nao sei se era necessaria...) e no inicio do PRG a BARCODE.CH preciso isso pras 14:00hs ( hehehehe ) Agradeco a ajuda... Everton XHB9950/FW24/MyMake/xDev/XP

Bom entao o seguinte, falei maximizar, mas na realidade queria dizer restaurar pra tela cheia... Esse "utilitario" que eu to usando fui em que fiz, na realidade eh um programinha pra imprimir etiquetas de codigo de barras numa HP, meu sistema grava os dados das etiquetas num arquivo e chama este programa que poe tudo num vetor e depois vai descarregando na impressora... ainda nao testei ele,mas acho que vai dar certo. Meu problema nem eh o de minimizar meu sistema, mas em como restaurar para tela cheia depois que aimpressao acaba e o programinha encerr,ou o operador escolhe "abandonar". Ei Paulo, to fazendo o possivel cara... confirmo ou nao a inscricao na 2a. feira. Everton XHB9950/FW24/MyMake/xDev/XP

Entendi, eh o seguinte... qdo abro o prog for Win ele minimiza o Clipper, ai entao eh so abrir e fechar varias coisas alternando entre um e outro, depois o que abre eu fecho e o que fechou eu abro, entao eh um tal de abre e fecha, carrega um programa depois do outro e por fim os dois ao mesmo tempo! Aaaahhhh, agora sim... hahahahaha Obrigado pela dica. hahahaha Falando serio... eu tenho so uma telinha pequenininha, abrir sobre o prog em clipper sem chance? outra... entendi o abrir e fecha, mas como faco pra voltar ao sistema em Clipper que esta minimizado? imfelizmente esta chamada acontece no meio de um outro processo e nao tenho como fecha-lo...Como Maximizo ele? Everton Everton XHB9950/FW24/MyMake/xDev/XP

Amigos tenho um sistema em Clipper e gostaria de chamar um programinha em xHb+FW pra impressao... ate chamo com o RUN mas dai fecha o sistema em Clipper e qdo sai do programinha de impressao o sistema em Clipper fica minimizado... Gostaria de chamar o programa de relatorios e que ele sobrepusesse o sistema em Clipper, tem jeito disso acontecer? Obrigado Everton Chapeco-SC Everton XHB9950/FW24/MyMake/xDev/XP

Amigos tenho um sistema em Clipper e gostaria de chamar um programinha em xHb+FW pra impressao... ate chamo com o RUN mas dai fecha o sistema em Clipper e qdo sai do programinha de impressao o sistema em Clipper fica minimizado... Gostaria de chamar o programa de relatorios e que ele sobrepusesse o sistema em Clipper, tem jeito disso acontecer? Obrigado Everton Chapeco-SC Everton XHB9950/FW24/MyMake/xDev/XP

O mesmo problema ocorreu comigo... alguem no forum usa a vGet? Por favor... ajudem a gente! Atenciosamente Everton XHB9950/FW24/MyMake/xDev/XP

Ola Ico...... essa vGet32 da o que falar neh? hehehehe Everton Everton XHB9950/FW24/MyMake/xDev/XP