alecosta

Olá, Alessandro! Na verdade esses arquivos são apagados sim, porém, enquanto ele está sendo exibido na tela, outro pode visualisá-lo por um editor de texto (bloco de notas, editplus...). Nesse caso, se ele tivesse codificado ou algo assim, um editor de texto não conseguiria lê-lo. Mas obrigado pela atenção! []s, Alexandre Costa --------------- Cl53b/FW24/HB.0.99.50/xDev.65/BCC55

Olá, pessoal! Tem como gerar um arquivo texto (de um relatório, por exemplo) em formato binário ou algo parecido?? Meu problema é que gero meus relatórios em arquivo texto e depois os visualizo na tela. Mas outros usuários acabam bisbilhotando o arquivo gerado e lendo relatórios que não podem ser vistos por eles. Já mudei de diretório, deixei oculto e tudo mais, mas sempre tem um "fulano" que descobre e fica lendo esses arquivos. Queria descobrir se tem algum jeito de criptografar o arquivo texto e apenas o executável poder lê-lo. Se alguém tiver alguma outra sugestão, está valendo. Esse sistema está em Harbour 0.99.50. Obrigado. []s, Alexandre Costa --------------- Cl53b/FW24/HB.0.99.50/xDev.65/BCC55

Olá, pessoal! Tem como gerar um arquivo texto (de um relatório, por exemplo) em formato binário ou algo parecido?? Meu problema é que gero meus relatórios em arquivo texto e depois os visualizo na tela. Mas outros usuários acabam bisbilhotando o arquivo gerado e lendo relatórios que não podem ser vistos por eles. Já mudei de diretório, deixei oculto e tudo mais, mas sempre tem um "fulano" que descobre e fica lendo esses arquivos. Queria descobrir se tem algum jeito de criptografar o arquivo texto e apenas o executável poder lê-lo. Se alguém tiver alguma outra sugestão, está valendo. Esse sistema está em Harbour 0.99.50. Obrigado. []s, Alexandre Costa --------------- Cl53b/FW24/HB.0.99.50/xDev.65/BCC55

Olá, pessoal!! Tem como listar duas tabelas (dbfs) em uma mesmo listbox? Exemplo: uma tabela de notas fiscais e a outra de cadastro de clientes, listo as notas fiscais, mas ao invés de mostrar o código, mostro a razão social do cliente. Obrigado. []s, Alexandre Costa Adv Software --------------- Cl53b / FW24 / xHB.82 Simplex / xDev.33 / BCC55

Olá, pessoal!! Tem como listar duas tabelas (dbfs) em uma mesmo listbox? Exemplo: uma tabela de notas fiscais e a outra de cadastro de clientes, listo as notas fiscais, mas ao invés de mostrar o código, mostro a razão social do cliente. Obrigado. []s, Alexandre Costa Adv Software --------------- Cl53b / FW24 / xHB.82 Simplex / xDev.33 / BCC55

Olá, pessoal!! Estou desenvolvendo um sistema de orçamentos para uma gráfica e eles tem o formulário para preenchimento. Eles querem agora que o orçamento seja impresso diretamente na laser, sem necessidade de ter o formulário pré-impresso. Tem como colocar um fundo em jpg (ou outro formato) e eu somente posiciono os campos nesta imagem e mando imprimir o orçamento?? Estou utilizando TDOSPRN e TXTPREVIEW. Obrigado! Alexandre Costa ------------------- FW24/CL53b/Workshop

Olá, pessoal!! Estou desenvolvendo um sistema de orçamentos para uma gráfica e eles tem o formulário para preenchimento. Eles querem agora que o orçamento seja impresso diretamente na laser, sem necessidade de ter o formulário pré-impresso. Tem como colocar um fundo em jpg (ou outro formato) e eu somente posiciono os campos nesta imagem e mando imprimir o orçamento?? Estou utilizando TDOSPRN e TXTPREVIEW. Obrigado! Alexandre Costa ------------------- FW24/CL53b/Workshop

Olá, pessoal! Tenho um amigo que trabalha em uma lanhouse e quer um programa que controle as impressões que foram enviadas para a impressora. Ele tem uma rede com 23 computadores. Toda vez que alguém manda uma impressão pela rede, ele cobra do cliente por páginas tal... São duas impressoras conectadas no servidor para fazer as impressões e o usuário escolhe para qual delas vai mandar. Ele quer um programa que controle a quantidade de impressões feitas no dia e armazene este histórico. Ah, a rede é windows. Alguém tem ou sabe como fazer isso?? Obrigado []s, Alexandre Costa Adv Software --------------- Cl53b / FW24 / xHB.82 Simplex / xDev.33 / BCC55 Editado por - alecosta on 23/01/2007 09:46:09

Olá, pessoal! Tenho um amigo que trabalha em uma lanhouse e quer um programa que controle as impressões que foram enviadas para a impressora. Ele tem uma rede com 23 computadores. Toda vez que alguém manda uma impressão pela rede, ele cobra do cliente por páginas tal... São duas impressoras conectadas no servidor para fazer as impressões e o usuário escolhe para qual delas vai mandar. Ele quer um programa que controle a quantidade de impressões feitas no dia e armazene este histórico. Ah, a rede é windows. Alguém tem ou sabe como fazer isso?? Obrigado []s, Alexandre Costa Adv Software --------------- Cl53b / FW24 / xHB.82 Simplex / xDev.33 / BCC55 Editado por - alecosta on 23/01/2007 09:46:09

Gente, descobri o erro!!! Tinha um cidadão mexendo nos arquivos!! Estava quebrando a cabeça, conferindo todo o sistema, não encontrei erro algum, estava estranhando, até que o cara se entregou. Ele quis apagar os CDX e apagou tudo. Ele digitou DEL *.* no diretorio da base de dados. Os arquivos que estavam sendo utilizados na rede não foram apagados, mas o resto... Já estou recuperando pelo backup. Obrigado!! []s, Alexandre Costa Adv Software --------------- Cl53b / FW24 / xHB.82 Simplex / xDev.33 / BCC55

Olá, pessoal! Estou com um problemão aqui. Alguns arquivos, sempre os mesmos, somem de repente, como se tivessem sido apagados. Tenho que sempre ficar voltanto-os do backup. Não tenho nenhuma função que apaga os arquivos dentro do sistema. Porém os dbfs que abro logo que rodo o executável somem de vez em quando. Alguém já passou por isso? O que pode ser? Se alguém puder dar uma "luz" agradeço! []s, Alexandre Costa Adv Software --------------- Cl53b / FW24 / xHB.82 Simplex / xDev.33 / BCC55

Olá, pessoal! Estou com um problemão aqui. Alguns arquivos, sempre os mesmos, somem de repente, como se tivessem sido apagados. Tenho que sempre ficar voltanto-os do backup. Não tenho nenhuma função que apaga os arquivos dentro do sistema. Porém os dbfs que abro logo que rodo o executável somem de vez em quando. Alguém já passou por isso? O que pode ser? Se alguém puder dar uma "luz" agradeço! []s, Alexandre Costa Adv Software --------------- Cl53b / FW24 / xHB.82 Simplex / xDev.33 / BCC55

Olá, pessoal! Esta dando a seguinte mensagem no final da compilacao com Fwh e xHarbour: Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Error: Unresolved external '_HB_FUN_HB_DBG_VMSTKLCOUNT' referenced from C:\FWH\LIB\FIVEH.LIB|HARBOUR Error: Unresolved external '_HB_FUN_HB_DBG_VMPARLLIST' referenced from C:\FWH\LIB\FIVEH.LIB|HARBOUR Error: Unresolved external '_HB_FUN_HB_DBG_VMVARLGET' referenced from C:\FWH\LIB\FIVEH.LIB|HARBOUR Error: Unresolved external '_HB_FUN_HB_DBG_VMVARSLEN' referenced from C:\FWH\LIB\FIVEH.LIB|HARBOUR Abnormal end of process ------- Inclui as libs Fiveh e Fivehc e continua dando o erro acima? O que está faltando? []s, Alexandre Costa Adv Software --------------- Cl53b / FW24 / xHB.82 Simplex / xDev.33 / BCC55

Olá, pessoal! Esta dando a seguinte mensagem no final da compilacao com Fwh e xHarbour: Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Error: Unresolved external '_HB_FUN_HB_DBG_VMSTKLCOUNT' referenced from C:\FWH\LIB\FIVEH.LIB|HARBOUR Error: Unresolved external '_HB_FUN_HB_DBG_VMPARLLIST' referenced from C:\FWH\LIB\FIVEH.LIB|HARBOUR Error: Unresolved external '_HB_FUN_HB_DBG_VMVARLGET' referenced from C:\FWH\LIB\FIVEH.LIB|HARBOUR Error: Unresolved external '_HB_FUN_HB_DBG_VMVARSLEN' referenced from C:\FWH\LIB\FIVEH.LIB|HARBOUR Abnormal end of process ------- Inclui as libs Fiveh e Fivehc e continua dando o erro acima? O que está faltando? []s, Alexandre Costa Adv Software --------------- Cl53b / FW24 / xHB.82 Simplex / xDev.33 / BCC55

Obrigado, Kbelo! Mas essa função que você postou é para modo gráfico, não é? Não estou itilizando barra de botões e coisas do tipo. O programa está em xHarbour, mas com carinha de clipper puro! Por enquanto só recompilei do cl52 com xHb. O que gostaria de saber era se tem alguma função igual a que mencionei! Mesmo assim, obrigado! Vou aproveitar sua dica no sistema que estou reescrevendo! Valeu! []s, Alexandre Costa Adv Software --------------- Cl53b / FW24 / xHB.82 Simplex / xDev.33 / BCC55

Obrigado pela informação, henning! Já encontrei o erro. Era a meneira com que setava um campo na indexação. Deu certo. Já estou rodando o sistema em xHarbour!! Valeu! []s, Alexandre Costa ----------------------------------- Clipper 5.3b + Fivewin 2.4

Olá, pessoal! Existe alguma versão dos em 32 bits? Passei meu sistema de Cl53b puro para xHarbour com BCC. Não utilizo biblioteca gráfica alguma, apenas recompilei os fontes sem mudar nada. Aqui na empresa tem alguns terminais sem windows e sem hd, somente com dos, que acessa a rede novel para entrar no sistema. O sistema compilado pelo xHarbour não roda neles, pois neles roda o dos 16 bits (dos 6.22). Tem alguma maneira de fazer rodar. Temos 15 terminais e vai ficar meio pesado para o patrão trocar tudo de uma vez. Obrigado! Alexandre Costa --------------------------------------- Cl53b / xHb Build 0.82 Simplex / BCC55

Olá, pessoal! Existe alguma versão dos em 32 bits? Passei meu sistema de Cl53b puro para xHarbour com BCC. Não utilizo biblioteca gráfica alguma, apenas recompilei os fontes sem mudar nada. Aqui na empresa tem alguns terminais sem windows e sem hd, somente com dos, que acessa a rede novel para entrar no sistema. O sistema compilado pelo xHarbour não roda neles, pois neles roda o dos 16 bits (dos 6.22). Tem alguma maneira de fazer rodar. Temos 15 terminais e vai ficar meio pesado para o patrão trocar tudo de uma vez. Obrigado! Alexandre Costa --------------------------------------- Cl53b / xHb Build 0.82 Simplex / BCC55

Olá, pessoal! Alguém sabe se existe algum "reloginho" para colocar o xHarbour? No Cl53b puro, utilizo a função Showtime() da Ctp.lib para aparecer o relógio no canto superior direito da tela. Para compilar com o xHarbour, precisei tirá-la, pois dava erro. Tem alguma função para substituir? []s, Alexandre Costa ----------------------------------- Clipper 5.3b + Fivewin 2.4

Olá, pessoal! Alguém sabe se existe algum "reloginho" para colocar o xHarbour? No Cl53b puro, utilizo a função Showtime() da Ctp.lib para aparecer o relógio no canto superior direito da tela. Para compilar com o xHarbour, precisei tirá-la, pois dava erro. Tem alguma função para substituir? []s, Alexandre Costa ----------------------------------- Clipper 5.3b + Fivewin 2.4

Olá, pessoal! Estou tentando passar meu sistema em Cl53b puro para xHarbour com FWH. Consegui compilar todas as rotinas, porém quando abro muitos arquivos dá erro, principalmente quando tento criar um indice (utilizo o CDX). Para fazer a compilação, utilizei o xDev 0.33. O erro é: Unvecoverable error 9003 Too many recursive error handler calls O que pode ser? O harbour precisa de alguma configuração de ambiente como no Clipper, tipo SET CLIPPER? Obrigado! []s, Alexandre Costa ----------------------------------- Clipper 5.3b + Fivewin 2.4 Editado por - alecosta on 19/09/2006 07:52:47

Olá, pessoal! Estou tentando passar meu sistema em Cl53b puro para xHarbour com FWH. Consegui compilar todas as rotinas, porém quando abro muitos arquivos dá erro, principalmente quando tento criar um indice (utilizo o CDX). Para fazer a compilação, utilizei o xDev 0.33. O erro é: Unvecoverable error 9003 Too many recursive error handler calls O que pode ser? O harbour precisa de alguma configuração de ambiente como no Clipper, tipo SET CLIPPER? Obrigado! []s, Alexandre Costa ----------------------------------- Clipper 5.3b + Fivewin 2.4 Editado por - alecosta on 19/09/2006 07:52:47

Olá, pessoal! Tem como inserir uma barra de progresso no PACK? Estou indexando assim: ... MsgMeter( {|o1,o2,o3,l4| InCadaclfo(o1,o2,o3,@l4)},"Indexando CADACLFO","Manutencao - Cadastro de Clientes") ... FUNCTION InCadaclfo( oMeter, oText, oDlg, lEnd ) oMETER:nTOTAL := LASTREC() oMETER:cTEXT := "Limpando a tabela de dados" PACK // EVAL( oMETER:SET( RECNO() ) , SYSREFRESH() , !lEND ) oMETER:nTOTAL := LASTREC() oMETER:cTEXT := "Indice 1 de 6" INDEX ON STR(CODICLFO,6) TAG 1 TO CADACLFO.CDX EVAL( oMETER:SET( RECNO() ) , SYSREFRESH() , !lEND ) oMETER:cTEXT := "Indice 2 de 6" INDEX ON RAZAOSOC TAG 2 TO CADACLFO.CDX EVAL( oMETER:SET( RECNO() ) , SYSREFRESH() , !lEND ) oMETER:cTEXT := "Indice 3 de 6" INDEX ON NOMEFANT TAG 3 TO CADACLFO.CDX EVAL( oMETER:SET( RECNO() ) , SYSREFRESH() , !lEND ) oMETER:cTEXT := "Indice 4 de 6" INDEX ON STR(VENDEDOR,3) TAG 4 TO CADACLFO.CDX EVAL( oMETER:SET( RECNO() ) , SYSREFRESH() , !lEND ) oMETER:cTEXT := "Indice 5 de 6" INDEX ON CNPJCPF TAG 5 TO CADACLFO.CDX EVAL( oMETER:SET( RECNO() ) , SYSREFRESH() , !lEND ) oMETER:cTEXT := "Indice 6 de 6" INDEX ON CIDADECO TAG 6 TO CADACLFO.CDX EVAL( oMETER:SET( RECNO() ) , SYSREFRESH() , !lEND ) RETURN NIL ... Queria colocar uma barra no PACK também. Tem como? []s, Alexandre Costa ----------------------------------- Clipper 5.3b + Fivewin 2.4

Olá, pessoal! Tem como inserir uma barra de progresso no PACK? Estou indexando assim: ... MsgMeter( {|o1,o2,o3,l4| InCadaclfo(o1,o2,o3,@l4)},"Indexando CADACLFO","Manutencao - Cadastro de Clientes") ... FUNCTION InCadaclfo( oMeter, oText, oDlg, lEnd ) oMETER:nTOTAL := LASTREC() oMETER:cTEXT := "Limpando a tabela de dados" PACK // EVAL( oMETER:SET( RECNO() ) , SYSREFRESH() , !lEND ) oMETER:nTOTAL := LASTREC() oMETER:cTEXT := "Indice 1 de 6" INDEX ON STR(CODICLFO,6) TAG 1 TO CADACLFO.CDX EVAL( oMETER:SET( RECNO() ) , SYSREFRESH() , !lEND ) oMETER:cTEXT := "Indice 2 de 6" INDEX ON RAZAOSOC TAG 2 TO CADACLFO.CDX EVAL( oMETER:SET( RECNO() ) , SYSREFRESH() , !lEND ) oMETER:cTEXT := "Indice 3 de 6" INDEX ON NOMEFANT TAG 3 TO CADACLFO.CDX EVAL( oMETER:SET( RECNO() ) , SYSREFRESH() , !lEND ) oMETER:cTEXT := "Indice 4 de 6" INDEX ON STR(VENDEDOR,3) TAG 4 TO CADACLFO.CDX EVAL( oMETER:SET( RECNO() ) , SYSREFRESH() , !lEND ) oMETER:cTEXT := "Indice 5 de 6" INDEX ON CNPJCPF TAG 5 TO CADACLFO.CDX EVAL( oMETER:SET( RECNO() ) , SYSREFRESH() , !lEND ) oMETER:cTEXT := "Indice 6 de 6" INDEX ON CIDADECO TAG 6 TO CADACLFO.CDX EVAL( oMETER:SET( RECNO() ) , SYSREFRESH() , !lEND ) RETURN NIL ... Queria colocar uma barra no PACK também. Tem como? []s, Alexandre Costa ----------------------------------- Clipper 5.3b + Fivewin 2.4

Tem como trocar o alias da listbox? Exemplo: - Tenho uma combobox com as opcoes "A RECEBER" e "A PAGAR" - Tenho uma listbox mostrando as duplicadas a receber. - As tabelas com as informacoes sao ARECEBER.DBF E APAGAR.DBF e as duas tem a mesma estrutura. Quando mudo a combobox, preciso atualizar a listbox, ou seja, troquei o alias. Montei a funcao para isso, só que a listbos nao atualiza. ... REDEFINE LISTBOX lbxCAIXA ; FIELDS &arqCAIXA->NUMEDOCT ,; DTOC(&arqCAIXA->DATAMOVI) ,; TRANSFORM(&arqCAIXA->VLRENTRA,"@E ###,###.##") ,; TRANSFORM(&arqCAIXA->VLRSAIDA,"@E ###,###.##") ,; TRANSFORM(&arqCAIXA->VLRSALDO,"@E ###,###.##") ,; STRZERO(&arqCAIXA->ID_CAIXA,3) ,; &arqCAIXA->HISTORIC ; HEADERS OemToAnsi("Documento") ,; OemToAnsi("Dt Movto") ,; OemToAnsi("Vlr Entrada") ,; OemToAnsi("Vlr Saida") ,; OemToAnsi("Vlr Saldo") ,; OemToAnsi("Cod") ,; OemToAnsi("Historico") ; FIELDSIZES( 50 , 50 , 60 , 60 , 60 , 15 , 200 ) ; COLORS CLR_BLACK, 14483196; ON DBLCLICK CAIXA_OPE( "ALTERAR" ); ID 1500 OF dlgCAIXA ... FUNCTION CAIXA_FIL() IF cFTRMOSTRA == "ARECEBER" SELECT A_RECEBER ELSE SELECT A_PAGAR ENDIF arqCAIXA := ALIAS() SELECT &arqCAIXA DBSETFILTER( {|| &bFILTROCAI }, bFILTROCAI ) DBGOTOP() lbxCAIXA:UpStable() lbxCAIXA:Refresh() SysRefresh() ... A filtragem funcionou, mas a listbox nao está sendo atualizada. Ela permanece sempre no primeiro alias. Coloquei duas listbox ao mesmo tempo, só para testar, cada uma mostrando uma das tabelas, e deu para ver que a funcção faz a filtragem corretamente, mas nao consegue atualizar a listbox. Obrigado. []s, Alexandre