lmi

Kapiaba esteou mandando novamente: FUNCTION i_Cep() private v_campo:= {} aadd(v_campo,{'cep ','c',08,00}) aadd(v_campo,{'endereco ','c',40,00}) aadd(v_campo,{'compl ','c',40,00}) aadd(v_campo,{'cidade ','c',40,00}) aadd(v_campo,{'estado ','c',02,00}) IF (!FILE('Cep.DBF')) GRAVAR('Cep.DBF') ELSE COMPARA('Cep.DBF',V_CAMPO) END FERASE('Cep.CDX') IF(NETUSE('Cep',.t.,5)) DELE ALL FOR EMPTY(Cep) .or. EMPTY(endereco) // Compactar('CEP','Compactando !!!') Organizador('CEP','Organizando por CEP !!!','CEP','CEP','CEP') Organizador('CEP','Organizando Por Enedereço !!!','Endereco','Endereco','CEP') ELSE RETU(.F.) END CLOSE ALL RETU FUNCTION Organizador(NomeCabecalho,NomeTexto,NomeIndice,NomeTag,NomeArquivo) LOCAL bAction bAction :={|oMeter,NomeTexto| BarraIndexar(oMeter,NomeIndice,NomeTag,NomeArquivo)} MsgMeter(bAction,NomeTexto,NomeCabecalho) RETURN FUNCTION BarraIndexar(oMeter,NomeIndice,NomeTag,NomeArquivo) oMeter:nTotal:=(LastRec()) INDEX ON &NomeIndice TAG &NomeTag TO &NomeArquivo EVAL{||oMeter:Set(RECNO())} EVERY 5 RETURN(.t.) Ocorreu um erro em seu programa para mantelo funcionando clien IGNORAR Grato Luciano. suporte@lmi-informatica.com.br

Paulo ja troquei o Blinker 4.1 pelo 7.0, estou tentando com este com o seguinte LNK, só nà o troquei para o Clipper 5.3b por não ter conseguido encontralo, os erros continuam os mesmos como fa falei somente na hora de indexar. BLINKER CLIPPER SYMBOL OFF BLINKER INCREMENTAL OFF // desativa geraçao rapida do executavel BLINKER EXECUTABLE COMPRESS 1 // gera executavel compactado BLINKER EXECUTABLE ALIGNMENT 128 BLINKER LINK VERSION 7.0 // colocar sua versão de blinker BLINKER PROCEDURE DEPTH 90 NOBELL PACKCODE PACKDATA DEFBEGIN //define o programa e tamanho da pilha name 'Gerente' description 'Sistema Gerente' exetype Windows 3.1 code moveable discardable preload data preload moveable stacksize 12500 heapsize 8500 segment 'PLANKTON_TEXT' nondiscardable segment 'EXTEND_TEXT' nondiscardable segment 'OM_TEXT' nondiscardable segment 'OSMEM_TEXT' nondiscardable segment 'SORTOF_TEXT' nondiscardable segment 'STACK_TEXT' nondiscardable DEFEND BEGIN AREA // define os programas a serem linkados FI Gerente, Cep, Acesso, Funcao, Empresa, Linha, Grupo, Reducao FI Fornece, Produto # , rempresa, rfornece, rcadast, rproduto, rproducao, requival # FI rcliente, rvendedo, rnaturez, f_gere, rcompra, rvenda, rconta, rserie # FI rservico, rordem, rbem, rveiculo, rcaixa, rreducao # file rnota FI Calculo, Printer, Rpreview, Tdosprn ENDAREA #------------------------------------------------------------------------------ #LIBS DE TERCEIROS #------------------------------------------------------------------------------ # LIBS DO FIVEWIN LIB FIVE LIB FIVEC LIB OBJECTS LIB WINAPI #------------------------------------------------------------------------------ # LIBS DO CLIPPER 5.2e - LIB CLIPPER LIB DBFCDX LIB _DBFCDX LIB EXTEND LIB TERMINAL OUTPUT Gerente.exe Pessoal acho que tenho de der um belo de um soco nas maquina. Grota. suporte@lmi-informatica.com.br

Pessoal agradeço a todos felizmente o bonitão esta rodando no XP mas agora quando indexo o sistema com uma base com aproximadamente 90 megas e com 640.000 registro ou até mesmo menos estou usando duas funções: FUNCTION i_Cep() private v_campo:= {} aadd(v_campo,{'cep ','c',08,00}) aadd(v_campo,{'endereco ','c',40,00}) aadd(v_campo,{'compl ','c',40,00}) aadd(v_campo,{'cidade ','c',40,00}) aadd(v_campo,{'estado ','c',02,00}) IF (!FILE('Cep.DBF')) GRAVAR('Cep.DBF') ELSE COMPARA('Cep.DBF',V_CAMPO) END FERASE('Cep.CDX') IF(NETUSE('Cep',.t.,5)) DELE ALL FOR EMPTY(Cep) .or. EMPTY(endereco) // Compactar('CEP','Compactando !!!') Organizador('CEP','Organizando por CEP !!!','CEP','CEP','CEP') Organizador('CEP','Organizando Por Enedereço !!!','Endereco','Endereco','CEP') ELSE RETU(.F.) END CLOSE ALL RETU FUNCTION Organizador(NomeCabecalho,NomeTexto,NomeIndice,NomeTag,NomeArquivo) LOCAL bAction bAction :={|oMeter,NomeTexto| BarraIndexar(oMeter,NomeIndice,NomeTag,NomeArquivo)} MsgMeter(bAction,NomeTexto,NomeCabecalho) RETURN FUNCTION BarraIndexar(oMeter,NomeIndice,NomeTag,NomeArquivo) oMeter:nTotal:=(LastRec()) INDEX ON &NomeIndice TAG &NomeTag TO &NomeArquivo EVAL{||oMeter:Set(RECNO())} EVERY 5 RETURN(.t.) Retorna a Bela tela Branca Com: Ocorreu um erro em seu programa para mantelo funcionando clien IGNORAR Aí ele roda, quem se abilita , Grato Luciano.

Caro colega afera, tentei como voce falou, mas o resultado foi o mesmo, ja no Win98SE quando mando criar os indeces com uma base grande passou a dar ocorreu um erro em seu programa para continuar tecle Ignorar blabla blabla, você tem ideia do que pode ser isto? Grato.

Luis não existe está funcão nos meus arquivos. Grato pela atenção.

Caro Kapiaba, quando estava digitanto Clipper 5.2e digitei 5.1e, segue arquivo LNK #BLINKER DEMONSTRATION DATE 2005/08/30 BLINKER CLIPPER SYMBOL OFF PACKCODE PACKDATA BLINKER EXECUTABLE REAL # Comprimir Executavel 1=maximo 5=defaults BLINKER EXECUTABLE COMPRESS 1 # Set Clipper=F100 # BLINKER EXECUTABLE CLIPPER F150 # Abilita EMS para Overlays # BLINKER OVERLAY PAGEFRAME ON # Determina tamanho de Cache para Overlays # BLINKER OVERLAY OPSIZE 128 # BLINKER CACHE XMS 256 # BLINKER CACHE EMS 256 # BLINKER INCREMENTAL OFF NOBELL DEFBEGIN name Gerente description 'Sistema Gerente' exetype Windows 3.1 code preload moveable discardable data preload moveable stacksize 10000 heapsize 1024 segment 'PLANKTON_TEXT' nondiscardable segment 'EXTEND_TEXT' segment 'OM_TEXT' segment 'OSMEM_TEXT' segment 'SORTOF_TEXT' segment 'STACK_TEXT' DEFEND BEGINAREA FI Gerente, Cep, Acesso, Funcao, Empresa, Linha, Grupo, Reducao FI Fornece, Produto # , rempresa, rfornece, rcadast, rproduto, rproducao, requival # FI rcliente, rvendedo, rnaturez, f_gere, rcompra, rvenda, rconta, rserie # FI rservico, rordem, rbem, rveiculo, rcaixa, rreducao # file rnota FI Calculo, Printer, Rpreview, Tdosprn ENDAREA LIB Five, FiveC, Objects ,WinApi, DbfCdx, _DbfCdx OUT gerente

Caros amigos Carlos e Paulo Araujo agraço pela atenção dispensada por vocês, o sistema está começando a rodar só que agora está muito lento e me dá e seguinte mensagem Ocoreu um erro em seu aplicativo Ignorar Fechar "o de praxe" e mais uma outra; Erro de aplicativo Meu.exe foi causado uma falha de proteção geral em modulo neu.exe em 0010:4363 Escolher fechar. meu.exe será fechado já mudei o stacks=9,1024 mas não resolveu, alguen sabe? Mais uma vez obrigado

Pessoa estou convertendo um Sistema do Clipper 5.1 para Clipper 5.1e C/ Fivewin 2.4, quando executo no Windows 98SE ele roda normal já quando vai para o Ruindows XP ele simplesmente não faz nada (no Prompt vai para a linha de baixo e mais nada) se alguem ja teve este problema e puder me ajudar, ficolhe muito grato. suporte@lmi-informatica.com.br

Pessoa estou convertendo um Sistema do Clipper 5.1 para Clipper 5.1e C/ Fivewin 2.4, quando executo no Windows 98SE ele roda normal já quando vai para o Ruindows XP ele simplesmente não faz nada (no Prompt vai para a linha de baixo e mais nada) se alguem ja teve este problema e puder me ajudar, ficolhe muito grato. suporte@lmi-informatica.com.br

Pessoa estou convertendo um Sistema do Clipper 5.1 para Clipper 5.1e C/ Fivewin 2.4, quando executo no Windows 98SE ele roda normal já quando vai para o Ruindows XP ele simplesmente não faz nada (no Prompt vai para a linha de baixo e mais nada) se alguem ja teve este problema e puder me ajudar, ficolhe muito grato. suporte@lmi-informatica.com.br

Estou tentando converter um arquivo DBF que tem campos memo (DBT) mas na Hora de converter para (FPT) ela da uma mensagem de erro " Error Description: Error DBFCDX/1012 Corruption detected XXX.dbf " como posso resolver isto? lmi

Ola pessoal, crie um campo memo em um arquivo de dados e montei minha tela de DIALOGO com o BRW, na hora de editar o campo ñ consigo fazer com que ele vá para a outra linha, alguém pode me ajudar (sou novo em FIVEWIN) Grato, lmiinfo@terra.com.br