evertonlb

Ei amigos... onde eu consigo uma lista dos codigos das teclas F2, F3, F4.... e tambem das ALT+F1, F2, F3.... tentei colocar uma pesquisa de clientes no ALT+F2, usei o mesmo código que eu uso no Clipper, porem nao deu certo! Obrigado! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Ei amigos... onde eu consigo uma lista dos codigos das teclas F2, F3, F4.... e tambem das ALT+F1, F2, F3.... tentei colocar uma pesquisa de clientes no ALT+F2, usei o mesmo código que eu uso no Clipper, porem nao deu certo! Obrigado! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

vou testar a noite... desde ontem apareceu outra problema.... valeu pessoal.. eu retorno dizendo o resultado. Obrigado Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

cara... tirei tudo onde tinha preview, ai o que acontece é que a impressão fica no gerenciador até eu sair do sistema.. qdo eu saio, ai o documento é impresso. se deixo o preview, qdo clico no botão da impressora, imprime quase que imediatamente, a impressora esta em rede, então desconsidero pequenos atrasos. Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Olha amigo, uma vez eu tinha um note da IBM, que dava para colocar senha na Bios e no HD, inclusive no manual do note tinha um alerta dizendo que nem mesmo os técnicos da IBM poderiam retirar a senha caso ela fosse esquecida. Claro que no boot da máquina eu tinha que digitar as duas senhas, e o HD só dava boot depois de digitado a senha... Isso era em 94/95.. faz tempo! hehehehe. Não sei se existe isso nos notes da IBM ainda... Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Amigos... sei que é uma duvida boba, evidentemente que ja verifiquei no forum a respeito disso, mas, não achei a resposta... Como eu faço para gerar um relatório com a TPrinter e mandá-lo direto pra impressora sem o oPrn:Preview()? Obrigado. Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Amigos... sei que é uma duvida boba, evidentemente que ja verifiquei no forum a respeito disso, mas, não achei a resposta... Como eu faço para gerar um relatório com a TPrinter e mandá-lo direto pra impressora sem o oPrn:Preview()? Obrigado. Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Pessoal, consegui resolver a bronca, eu estava tentando abrir dois DBF's com o mesmo nome... ai o negócio nao funciona mesmo... Bom.. ao menos fica ai a "experiencia" t+ Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Pessoal, estou com este erro "Too many recursive error Handler calls" ( e ta um caus mesmo!). Este erro acontece qdo abro os arquivos (dbf), tenho uma rotina de abertura de arquivos onde passo para a funcao ABRE() os campos, tamanhos, tipos, decimais, nome do DBF, nome dos Indices, e chaves dos indices. O mais estranho é que até semana passada estava tudo funcionando perfeitamente abrindo 28 arquivos, esta semana resolvi criar mais um arquivo e começou o problema, ja tirei este ultimo, e fui tirando, agora so consigo abrir 14, nem os outros que ja usava nao consigo mais abrir... se eu tentar abrir o 15 da a mensagem de erro. Ja fiz uma pesquisa e ja vi algumas dicas, todos falam a respeito da errorsys, mas eu nao tenho errorsys alterada. Que farei pois para solucionar tão grave problema? Obrigado! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 29/11/2010 17:17:17

Pessoal, estou com este erro "Too many recursive error Handler calls" ( e ta um caus mesmo!). Este erro acontece qdo abro os arquivos (dbf), tenho uma rotina de abertura de arquivos onde passo para a funcao ABRE() os campos, tamanhos, tipos, decimais, nome do DBF, nome dos Indices, e chaves dos indices. O mais estranho é que até semana passada estava tudo funcionando perfeitamente abrindo 28 arquivos, esta semana resolvi criar mais um arquivo e começou o problema, ja tirei este ultimo, e fui tirando, agora so consigo abrir 14, nem os outros que ja usava nao consigo mais abrir... se eu tentar abrir o 15 da a mensagem de erro. Ja fiz uma pesquisa e ja vi algumas dicas, todos falam a respeito da errorsys, mas eu nao tenho errorsys alterada. Que farei pois para solucionar tão grave problema? Obrigado! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 29/11/2010 17:17:17

Cara.. muito bom... Obrigado. Eu estava usando o PREVIEW TO ARQ.TXT, e nao dava certo... mas somente com o TO ARQ.TXT. ficou perfeito.. Obrigado! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Pessoal, Nao tenho muita experiencia com relatorios em FW. na realidade agora que estou começando a fazer eles... fiz um relatorio de Clientes usando, os seguinte comandos.. Footer OemtoAnsi("Página: ")+str(oReport:nPage,3) Center Font ofnt Preview Column Title 'Código' Data Clientes->CL_CODI Column Title 'Nome' Data Clientes->CL_NOME Column Title 'Telefone' Data Clientes->CL_TRES Column Title 'Endereço Eletônico' Data Clientes->CL_MAIL id=code>id=code>Mas preciso que este relatorio vá para um arquivo TXT.. como faço? Obrigado! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Pessoal, Nao tenho muita experiencia com relatorios em FW. na realidade agora que estou começando a fazer eles... fiz um relatorio de Clientes usando, os seguinte comandos.. Footer OemtoAnsi("Página: ")+str(oReport:nPage,3) Center Font ofnt Preview Column Title 'Código' Data Clientes->CL_CODI Column Title 'Nome' Data Clientes->CL_NOME Column Title 'Telefone' Data Clientes->CL_TRES Column Title 'Endereço Eletônico' Data Clientes->CL_MAIL id=code>id=code>Mas preciso que este relatorio vá para um arquivo TXT.. como faço? Obrigado! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Ola... O que eu faria. seria o seguinte.. se o cara cadastra um TIPO novo eu ja cadastraria um Sub-Tipo "OUTROS" ai se o cara quiser ele vai lá e altera o "OUTROS" por outra coisa... Ou... poderia fazer uma pergunta "Quer cadastrar o Sub-Tipo? se responder sim abriria a tela de cadastro de sub-tipos e ja poria a titulo de "OUTROS"... mas teu problema tá na lógica mesmo ou voce esta encontrando dificuldade em algum outro passo?!? Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

RESOLVIDO... tirei a funcao, e coloquei o codigo no form principal... exatamente igual o que estava na funcao, só que desta vez funcionou!! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Boa tarde pessoal... fiz um programa que fica vendo os dados enviados por um frente de caixa e gravando nos meus arquivos, eu tenho uma funcao que verifica a existencia de um arquivo MEM, se existir pega a configuracao que esta gravada la.. coisas tipo, pasta onde estao meus arquivos, tempo de leitura, porta para autenticar a venda, porta para imprimir carne, tipo de carne... coisas assim... ai como precisava colocar mais algumas configuracoes, eu alterei e compilei... fiz alguns testes e estava rodando tudo certo.. mas agora ( ja faz umas 2 horas ) eu compilo, gera o executavel, entra no executável, mas qdo vai entrar na funcao Ve_INIT() para pegar as configuracoes, o sistema cai fora... sem mensagem alguma... simplesmente no momento que deveria chamar a funcao, é cancelada a execuçao... coloquei um alerta "?? alguma coisa " para checar por onde esta passando.. até na linha anterior da chamada da funcao vai blz, mas o alerta que coloquei dentra da funcao nao é mostrado e simplesmente para a execuçao.. tirei a chamada da funcao, ai roda.. da erro claro mas roda... o mais intrigante é que nao me da mensagem de erro alguma... Alguma idéia??? function Var_I(Criou) ?? "teste " * public C_FldGrav public C_FldRead public C_FldLog public C_TmpRead public C_GeraLog Public C_CodEmpr Public C_ModeCar Public C_Porta Public C_Autenti begin sequence xE := errorblock( {|x|break( x ) } ) restore from BSM00.MEM additive recover C_FldGrav := Space( 100 ) C_FldRead := Space( 100 ) C_FldLog := Space( 100 ) C_TmpRead := 5 C_GeraLog := .f. C_CodEmpr := "000" C_ModeCar := 6 C_Porta := 1 C_Autenti := .f. * MsgWait( "Atenção! O arquivo de configuração não foi encontrado e foi recriado."+CRLF+" Verifique as suas configurações.", "Arquivo de Configuração", 4 ) Criou := "B" end sequence errorblock( xE ) release xE * if type( "C_FldGrav" ) # "C"; C_FldGrav := Space( 100 ) ; endif if type( "C_FldRead" ) # "C"; C_FldRead := Space( 100 ) ; endif if type( "C_FldLog" ) # "C"; C_FldLog := Space( 100 ) ; endif if type( "C_TmpRead" ) # "N"; C_TmpRead := 2 ; endif if type( "C_GeraLog" ) # "L"; C_GeraLog := .f. ; endif if type( "C_CodEmpr" ) # "C"; C_CodEmpr := Space(03) ; endif if type( "C_ModeCar" ) # "N"; C_ModeCar := 1 ; endif if type( "C_Porta" ) # "N"; C_Porta := 1 ; endif if type( "C_Autenti") # "L"; C_Autenti := .f. ; endif * id=code>id=code>Editado por - evertonlb on 18/05/2010 16:49:42

Boa tarde pessoal... fiz um programa que fica vendo os dados enviados por um frente de caixa e gravando nos meus arquivos, eu tenho uma funcao que verifica a existencia de um arquivo MEM, se existir pega a configuracao que esta gravada la.. coisas tipo, pasta onde estao meus arquivos, tempo de leitura, porta para autenticar a venda, porta para imprimir carne, tipo de carne... coisas assim... ai como precisava colocar mais algumas configuracoes, eu alterei e compilei... fiz alguns testes e estava rodando tudo certo.. mas agora ( ja faz umas 2 horas ) eu compilo, gera o executavel, entra no executável, mas qdo vai entrar na funcao Ve_INIT() para pegar as configuracoes, o sistema cai fora... sem mensagem alguma... simplesmente no momento que deveria chamar a funcao, é cancelada a execuçao... coloquei um alerta "?? alguma coisa " para checar por onde esta passando.. até na linha anterior da chamada da funcao vai blz, mas o alerta que coloquei dentra da funcao nao é mostrado e simplesmente para a execuçao.. tirei a chamada da funcao, ai roda.. da erro claro mas roda... o mais intrigante é que nao me da mensagem de erro alguma... Alguma idéia??? function Var_I(Criou) ?? "teste " * public C_FldGrav public C_FldRead public C_FldLog public C_TmpRead public C_GeraLog Public C_CodEmpr Public C_ModeCar Public C_Porta Public C_Autenti begin sequence xE := errorblock( {|x|break( x ) } ) restore from BSM00.MEM additive recover C_FldGrav := Space( 100 ) C_FldRead := Space( 100 ) C_FldLog := Space( 100 ) C_TmpRead := 5 C_GeraLog := .f. C_CodEmpr := "000" C_ModeCar := 6 C_Porta := 1 C_Autenti := .f. * MsgWait( "Atenção! O arquivo de configuração não foi encontrado e foi recriado."+CRLF+" Verifique as suas configurações.", "Arquivo de Configuração", 4 ) Criou := "B" end sequence errorblock( xE ) release xE * if type( "C_FldGrav" ) # "C"; C_FldGrav := Space( 100 ) ; endif if type( "C_FldRead" ) # "C"; C_FldRead := Space( 100 ) ; endif if type( "C_FldLog" ) # "C"; C_FldLog := Space( 100 ) ; endif if type( "C_TmpRead" ) # "N"; C_TmpRead := 2 ; endif if type( "C_GeraLog" ) # "L"; C_GeraLog := .f. ; endif if type( "C_CodEmpr" ) # "C"; C_CodEmpr := Space(03) ; endif if type( "C_ModeCar" ) # "N"; C_ModeCar := 1 ; endif if type( "C_Porta" ) # "N"; C_Porta := 1 ; endif if type( "C_Autenti") # "L"; C_Autenti := .f. ; endif * id=code>id=code>Editado por - evertonlb on 18/05/2010 16:49:42

Olá Vander... obrigado pela força, mas, nao chegou nada no meu e-mail... poderia fazer a gentileza de enviar novamente para os seguintes endereços? evertonlb@gmail.com evertonlb@uol.com.br everton_battiston@hotmail.com Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Olhei o exemplo enviado pelo amigo Fluna. Mas não consegui pegar o "mio da fiada". Tenho um software que monitora determinada pasta, e achando o arquivo esperado, abre-o e grava seus dados em alguns DBF. Gostaria muito que ele ficasse invisivel no systray.. Fluna da um help ai?!?! O que eu devo usar do PRG que tu postou em DICAS? Obrigado! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Olhei o exemplo enviado pelo amigo Fluna. Mas não consegui pegar o "mio da fiada". Tenho um software que monitora determinada pasta, e achando o arquivo esperado, abre-o e grava seus dados em alguns DBF. Gostaria muito que ele ficasse invisivel no systray.. Fluna da um help ai?!?! O que eu devo usar do PRG que tu postou em DICAS? Obrigado! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

eu faço da seguinte maneira... COLOR 0, 16777215 PIXEL OF oFormLP ON CHANGE (SearchProduto(nKey),oBrw1:refresh()) FONT oFont1 static Function SearchProduto(nKey) local chave, n select Produtos chave:=Upper(chr(nKey)) if chave = " " procc := "" else procc += chave // alltrim(teste[t]) endif set softseek on DBSEEK( alltrim(procc) ) oBrw1:refresh() set softseek off return nil id=code>id=code>Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

citação:Como não houve contestações iremos fazer a reserva do local já na segunda-feira, 08/03, para garantir esta data. id=quote>id=quote>Perfeito, sabendo da data com esta antecedencia, muito melhor pra gente se programar!!! ( em xHb e Fw, lógico!!! hehehe ) Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Pessoal, estou integrando meu software de retaguarda com um de frente de caixa e tenho uma rotina para ler o arquivo TXT de retorno, nesta rotina tem uma variavel que determina o tempo de intervalo entre a leitura (a cada 2, 3...10, 20 segundos) e mais 4 variaveis contadoras de registros lidos, e que são mostradas no video. O que esta acontecendo é que ao serem mostradas no vídeo as variaveis sempre iniciam do numero um... por exemplo, se estamos na leitura 85 as variaveis, ao serem mostradas no video, começam sempre do 1 e vão até o 85... na próxima vez começam do 1 novamente e vão até o 86 e na proxima do 1 ao 87, e assim por diante... ai a leitura que deveria ser feita a cada 5 segundos começa a demorar muito, porque qdo a variavel está no 3 ou 4 mil demora cerca de 3 segundos para mostrar no video, porque sempre começa do um, e como são 4 variaveis a coisa demora cerca de 15 segundos... porque isso acontece? segue o código! Obrigado if file( C_FldRead + "\EENNNNNN.ECF" ) * cFileName := C_FldRead + "\EENNNNNN.ECF" * * if Empty( cFileName ) .OR. .NOT. File( cFileName ) QUIT endif * cText := MemoRead( cFileName ) * imax := MLCount( cText, nLineLen, nTabSize, lWrap ) for i:=1 TO imax cLine := MemoLine( cText, nLineLen, i, nTabSize, lWrap ) if left( cLine, 1 ) == "0" AntVendas := QtdeVendas QtdeVendas := QtdeVendas + 1 * @ 30, 86 SAY oSay6 VAR QtdeVendas SIZE 130, 20 PIXEL; OF oGrp5 COLOR 2139694, 14933984 picture "99999999" FONT oFont4 * elseif left( cLine, 1 ) == "1" AntProdutos := Qtdeprodutos QtdeProdutos := QtdeProdutos + 1 * @ 30, 369 SAY oSay8 VAR QtdeProdutos SIZE 121, 22 PIXEL; OF oGrp5 COLOR 462581, 14933984 picture "99999999" FONT oFont4 * elseif left( cLine, 1 ) == "2" * AntParcelas := QtdeParcelas QtdeParcelas := QtdeParcelas + 1 * @ 53, 369 SAY oSay9 VAR QtdeParcelas SIZE 128, 21 PIXEL; OF oGrp5 COLOR 11280015, 14933984 picture "99999999" FONT oFont4 * *elseif left( cLine, 1 ) == "3" * *elseif left( cLine, 1 ) == "9" * endif next * endif id=code>id=code>Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Pessoal, estou integrando meu software de retaguarda com um de frente de caixa e tenho uma rotina para ler o arquivo TXT de retorno, nesta rotina tem uma variavel que determina o tempo de intervalo entre a leitura (a cada 2, 3...10, 20 segundos) e mais 4 variaveis contadoras de registros lidos, e que são mostradas no video. O que esta acontecendo é que ao serem mostradas no vídeo as variaveis sempre iniciam do numero um... por exemplo, se estamos na leitura 85 as variaveis, ao serem mostradas no video, começam sempre do 1 e vão até o 85... na próxima vez começam do 1 novamente e vão até o 86 e na proxima do 1 ao 87, e assim por diante... ai a leitura que deveria ser feita a cada 5 segundos começa a demorar muito, porque qdo a variavel está no 3 ou 4 mil demora cerca de 3 segundos para mostrar no video, porque sempre começa do um, e como são 4 variaveis a coisa demora cerca de 15 segundos... porque isso acontece? segue o código! Obrigado if file( C_FldRead + "\EENNNNNN.ECF" ) * cFileName := C_FldRead + "\EENNNNNN.ECF" * * if Empty( cFileName ) .OR. .NOT. File( cFileName ) QUIT endif * cText := MemoRead( cFileName ) * imax := MLCount( cText, nLineLen, nTabSize, lWrap ) for i:=1 TO imax cLine := MemoLine( cText, nLineLen, i, nTabSize, lWrap ) if left( cLine, 1 ) == "0" AntVendas := QtdeVendas QtdeVendas := QtdeVendas + 1 * @ 30, 86 SAY oSay6 VAR QtdeVendas SIZE 130, 20 PIXEL; OF oGrp5 COLOR 2139694, 14933984 picture "99999999" FONT oFont4 * elseif left( cLine, 1 ) == "1" AntProdutos := Qtdeprodutos QtdeProdutos := QtdeProdutos + 1 * @ 30, 369 SAY oSay8 VAR QtdeProdutos SIZE 121, 22 PIXEL; OF oGrp5 COLOR 462581, 14933984 picture "99999999" FONT oFont4 * elseif left( cLine, 1 ) == "2" * AntParcelas := QtdeParcelas QtdeParcelas := QtdeParcelas + 1 * @ 53, 369 SAY oSay9 VAR QtdeParcelas SIZE 128, 21 PIXEL; OF oGrp5 COLOR 11280015, 14933984 picture "99999999" FONT oFont4 * *elseif left( cLine, 1 ) == "3" * *elseif left( cLine, 1 ) == "9" * endif next * endif id=code>id=code>Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

AI pessoas... o pessoal do FiveWin do Oeste de Santa Catarina vai estar ai em peso!!!! e poe peso nisso... no minimo 100Kg. hehehehe A data de 06 e 07/11/10 está confirmada? ou ainda poderá sofrer alterações? Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS