Jump to content
Fivewin Brasil

General Protection Fault at 000F:40BF

rmarra

By rmarra
in Programação

 Share

Recommended Posts

pauloaraujo Newbie

pauloaraujo

Posted
Posted

Olá.

Já vi isso acontecer em clipper puro, e em três situações diferentes:

- não se deletar o equivamente em NTX

- não se deletar o próprio CDX

- o caminho do TEMPPATH não existir na máquina

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

Link to comment
Share on other sites
Valdir Newbie

Valdir

Posted
Posted

Olá rmarra

Seja bem vindo ao Fórum...

Além das perguntas e possibilidades acima, o seus Bancos de Dados utilizam o Campo Memo ?

Este erro ocorreu comigo quando tentei migrar o indíces de NTX para CDX utilizando Campo Memo.

Substitui este tipo de campo para Texto e não mais tive problemas...

um abraço

Valdir - Jundiaí - S.P.

FW23/CLIP52E/BLINKER7

Link to comment
Share on other sites
eajunior Newbie

eajunior

Posted
Posted

Ola RMarra, seja bem vindo ao forum. para uma melhor ajuda, poste a parte do seu prg para podermos ajuda-lo.

Verifique se esta utilizando correntamente as chamadas para o RDD

Onde você vê um obstáculo alguém vê o término da viagem e o outro vê uma chance de crescer.

Elias Abrão Júnior

Fone : (0**11) 5181-6909 São Paulo - SP

eajunior.fw@terra.com.br

xHarbour 0.99.0 - Fivewin 2.5 e xMate

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

citação:

citação:

Ola Rmarra

Informe versao: Windows,Clipper,Fivewim,etc...

Yrece/Osasco/SP

FWH 2.6 xharbour comercial xBuild - Pelles

id=quote>id=quote>

Windows 2000, Clipper 5.2e, Fw 1.92, Blinker 7

Clipper 5.2e, Fivewin 1.92, Blinker 7, Windows 2000

id=quote>id=quote>

POSTE A PARTE DE SEU MENU PRINCIPAL ONDE VOCE FAZ A CHAMADA AO RDD..

POSTE O SEU ARQUIVO.LNK

Bad Boy - São Paulo.

kmt_karinha@pop.com.br - 1 GB de Espaço.

FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Link to comment
Share on other sites
rmarra Newbie

rmarra

Posted
  • Author
Posted

Prezados, segue em anexo o programa que faz a chamada, o programa que cria os índices e o arquivo LNK.

Se eu eliminar alguma parte do programa funciona. Por exemplo, eliminar a procedure organiza5() funciona.

As variáveis de ambiente estão : F:150 // DYNF:8 // SWAPK:65535 // SWAPPATH:c:\ // TEMPPATH:c:\

Desde já agradeço pela ajuda.

----------------------------------------

#include "FiveWin.ch"

function main()

local oMenu

public pDIR := "\RCA\"

private oWnd

request DBFCDX

rddSetDefault("DBFCDX")

SetHandleCount(150)

set date brit

set deleted on

set 3dlook on

MENU oMenu

MENUITEM "&Teste" ;

ACTION rca900()

ENDMENU

define window oWnd MENU oMENU

SET MESSAGE OF oWnd TO "Copyright 2005" ;

CENTERED KEYBOARD DATE TIME

activate window oWnd MAXIMIZED

------------------------------------------------

/*********

*

* Programa.....: RCA900.PRG

* Autor........: Rondinelli Pinheiro Marra.

* Data.........: 12/07/05.

* Ult. Alt.....: 12/07/05.

* Alterado por.:

* Objetivo.....: Atualizacao de indice.

*

*/

// >>>>> ATENCAO <<<<<.

// Qualquer indice acrescentado nos arquivos de Pedidos e Caixa

// deve ser acrescentado tambem no programa RCA216B.PRG

#include "FiveWin.ch"

procedure RCA900()

msg("ATEN€ÇO:;;Em caso de Rede, NÇO prossiga enquanto os " + ;

"outros terminais estiverem utilizando o Sistema!")

if sn("Prossegue com a atualiza‡Æo de arquivo")

cursorwait()

organiza1()

msg("Organiza 1")

organiza2()

msg("Organiza 2")

organiza3()

msg("Organiza 3")

organiza4()

msg("Organiza 4")

organiza5()

msg("Organiza 5")

organiza6()

msg("Organiza 6")

organiza7()

msg("Organiza 7")

tone(300,1)

tone(100,1)

msg("Arquivos atualizados com sucesso.")

endif

return

****************************

static procedure organiza1()

****************************

ferase(pDIR + "NRCAIXA.CDX")

if !net_use("NRCAIXA",,"E")

return

endif

pack

index on NRCAIXA + dtos(DATA) tag (pDIR + "NRCAIXAX") to (pDIR + "NRCAIXA")

close databases

// Todo indice do Caixa deve ser executado no Cxadia tambem.

ferase(pDIR + "CAIXA.CDX")

if !net_use("CAIXA",,"E")

return

endif

index on DATA tag (pDIR + "INDCDAT") to (pDIR + "CAIXA")

index on NRORDEM tag (pDIR + "INDCORD") to (pDIR + "CAIXA")

index on val(NRORDEM) tag (pDIR + "CAINRVAL") to (pDIR + "CAIXA")

close databases

ferase(pDIR + "CXADIA.CDX")

if !net_use("CXADIA",,"E")

return

endif

index on DATA tag (pDIR + "DNDCDAT") to (pDIR + "CXADIA")

index on NRORDEM tag (pDIR + "DNDCORD") to (pDIR + "CXADIA")

index on val(NRORDEM) tag (pDIR + "DAINRVAL") to (pDIR + "CXADIA")

close databases

ferase(pDIR + "PED_CANC.CDX")

if !net_use("PED_CANC",,"E")

return

endif

index on NRORDEM tag (pDIR + "PEC_NR") to (pDIR + "PED_CANC")

index on DATA_CANC tag (pDIR + "PEC_DATA") to (pDIR + "PED_CANC")

close databases

ferase(pDIR + "NR_ORCA.CDX")

if !net_use("NR_ORCA",,"E")

return

endif

pack

index on NUMERO tag (pDIR + "NRORCAME") to (pDIR + "NR_ORCA")

index on val(NRPREVENDA) tag (pDIR + "NRPREVEX") to (pDIR + "NR_ORCA")

close databases

ferase(pDIR + "NR_PREV.CDX")

if !net_use("NR_PREV",,"E")

return

endif

pack

index on NUMERO tag (pDIR + "PRENRORC") to (pDIR + "NR_PREV")

index on val(NRPREVENDA) tag (pDIR + "PRENRPRE") to (pDIR + "NR_PREV")

close databases

ferase(pDIR + "ENTRAPRO.CDX")

if !net_use("ENTRAPRO",,"E")

return

endif

index on dtoc(DTENTRA)+NRNOTA tag (pDIR + "ENTRA") to (pDIR + "ENTRAPRO")

index on CODPRO tag (pDIR + "ENTPRO") to (pDIR + "ENTRAPRO")

index on DESCPRO tag (pDIR + "ENTRADES") to (pDIR + "ENTRAPRO")

index on CODPRO+dtos(DTENTRA) tag (pDIR + "ENTRAX") to (pDIR + "ENTRAPRO")

close databases

ferase(pDIR + "PAGAR.CDX")

if !net_use("PAGAR",,"E")

return

endif

index on PAFORNECE tag (pDIR + "FORNECEPA") to (pDIR + "PAGAR")

index on PATITULO tag (pDIR + "TITULOPA") to (pDIR + "PAGAR")

index on PAVENCI tag (pDIR + "VENCIPA") to (pDIR + "PAGAR")

index on PADTENT tag (pDIR + "DTENTPA") to (pDIR + "PAGAR")

close databases

ferase(pDIR + "PAGO.CDX")

if !net_use("PAGO",,"E")

return

endif

index on POTITULO tag (pDIR + "PAGOTIT") to (pDIR + "PAGO")

index on POFORNECE tag (pDIR + "PAGOFOR") to (pDIR + "PAGO")

index on dtos(PODTPAG) tag (pDIR + "PAGODT") to (pDIR + "PAGO")

index on dtos(POEMISSAO) tag (pDIR + "PAGOEMI") to (pDIR + "PAGO")

close databases

ferase(pDIR + "CHEQFARM.CDX")

if !net_use("CHEQFARM",,"E")

return

endif

pack

index on NUMERO tag (pDIR + "CHFARNR") to (pDIR + "CHEQFARM")

index on NOME + dtos(DTVENCI) tag (pDIR + "CHFARNOM") to (pDIR + "CHEQFARM")

index on DTVENCI tag (pDIR + "CHFARVEN") to (pDIR + "CHEQFARM")

index on DTPAG tag (pDIR + "CHFARPAG") to (pDIR + "CHEQFARM")

index on NOME + dtos(DTPAG) tag (pDIR + "CHFARPGN") to (pDIR + "CHEQFARM")

close databases

ferase(pDIR + "PATIVO.CDX")

if !net_use("PATIVO",,"E")

return

endif

index on CODIGO tag (pDIR + "PATIVOCD") to (pDIR + "PATIVO")

index on DESCRICAO tag (pDIR + "PATIVONM") to (pDIR + "PATIVO")

close databases

ferase(pDIR + "DOMICIL.CDX")

if !net_use("DOMICIL",,"E")

return

endif

index on NUMERO tag (pDIR + "DOMICILX") to (pDIR + "DOMICIL")

close databases

ferase(pDIR + "DTQUICON.CDX")

if !net_use("DTQUICON",,"E")

return

endif

index on NOMECONV tag (pDIR + "DTQUICOX") to (pDIR + "DTQUICON")

close databases

ferase(pDIR + "ENCERRA.CDX")

if !net_use("ENCERRA",,"E")

return

endif

index on DATA tag (pDIR + "XENCERRA") to (pDIR + "ENCERRA")

close databases

ferase(pDIR + "NOMPED.CDX")

if !net_use("NOMPED",,"E")

return

endif

index on NOMPED tag (pDIR + "NOMPEDX") to (pDIR + "NOMPED")

close databases

ferase(pDIR + "FALTAS.CDX")

if !net_use("FALTAS",,"E")

return

endif

pack

index on CODIGO tag (pDIR + "FALTAS") to (pDIR + "FALTAS")

index on DESCRICAO tag (pDIR + "FALTAS2") to (pDIR + "FALTAS")

close databases

ferase(pDIR + "NFISCAL.CDX")

if !net_use("NFISCAL",,"E")

return

endif

index on NRNOTAF tag (pDIR + "NRNOTA") to (pDIR + "NFISCAL")

close databases

if !net_use("SUGCOMPRA",,"E")

return

endif

pack

close databases

return

****************************

static procedure organiza2()

****************************

ferase(pDIR + "RECEBIDO.CDX")

if !net_use("RECEBIDO",,"E")

return

endif

index on CLIENTE tag (pDIR + "TITURECX") to (pDIR + "RECEBIDO")

index on NRORDEM tag (pDIR + "TITURETX") to (pDIR + "RECEBIDO")

index on alltrim(NRORDEM)+PRODUTO tag (pDIR + "RECEB03") to (pDIR + "RECEBIDO")

index on CLIENTE+dtos(DTPAGTO) tag (pDIR + "RECEB01") to (pDIR + "RECEBIDO")

index on dtos(DTPAGTO)+CLIENTE tag (pDIR + "RECEB02") to (pDIR + "RECEBIDO")

use

if !net_use("RECEBER")

return

endif

//barra("Aguarde, efetuando baixa automatica de recebimentos ...")

go top

do while !eof()

if PG = "PG" .and. PRODUTO # "RESCON"

if rlock()

delete

unlock

endif

endif

skip

enddo

close databases

ferase(pDIR + "RECEBER.CDX")

if !net_use("RECEBER",,"E")

return

endif

index on NRORDEM tag (pDIR + "TITULOTX") to (pDIR + "RECEBER")

index on CLIENTE tag (pDIR + "TITULOCX") to (pDIR + "RECEBER")

index on PRODUTO tag (pDIR + "RECEBPRO") to (pDIR + "RECEBER")

index on alltrim(NRORDEM)+PRODUTO tag (pDIR + "RECEBER1") to (pDIR + "RECEBER")

index on CLIENTE+dtos(DTCOMPRA) tag (pDIR + "RECEBER2") to (pDIR + "RECEBER")

index on dtos(DTCOMPRA) tag (pDIR + "RECEBER3") to (pDIR + "RECEBER")

use

return

****************************

static procedure organiza3()

****************************

ferase(pDIR + "CLIENTES.CDX")

if !net_use("CLIENTES",,"E")

return

endif

index on CCODIGO tag (pDIR + "CLICODIG") to (pDIR + "CLIENTES")

index on CNOME tag (pDIR + "CLINOME") to (pDIR + "CLIENTES")

index on CCODIGO+CNOME tag (pDIR + "CLICONO") to (pDIR + "CLIENTES")

index on CBLOQUEIO tag (pDIR + "CLIBOQ") to (pDIR + "CLIENTES")

index on strtran(strtran(strtran(CCGC,"."),"-"),"/") ;

tag (pDIR + "CLICPF") to (pDIR + "CLIENTES")

index on CTELEFONE tag (pDIR + "CLITELE") to (pDIR + "CLIENTES")

index on CTEL_ENTR1 tag (pDIR + "CLITELE1") to (pDIR + "CLIENTES")

index on CTEL_ENTR2 tag (pDIR + "CLITELE2") to (pDIR + "CLIENTES")

use

return

****************************

static procedure organiza4()

****************************

ferase(pDIR + "HISTPROD.CDX")

if !net_use("HISTPROD",,"E")

return

endif

pack

index on PRODUTO tag (pDIR + "HISTPRODX") to (pDIR + "HISTPROD")

use

ferase(pDIR + "BALCON.CDX")

if !net_use("BALCON",,"E")

return

endif

index on BCODIGO tag (pDIR + "BALCODIG") to (pDIR + "BALCON")

index on BNOME tag (pDIR + "BALNOME") to (pDIR + "BALCON")

index on BCODIGO+BNOME tag (pDIR + "BALCONO") to (pDIR + "BALCON")

index on val(BCODIGO) tag (pDIR + "VALBAL") to (pDIR + "BALCON")

use

ferase(pDIR + "CONVENIO.CDX")

if !net_use("CONVENIO",,"E")

return

endif

index on CODIGO tag (pDIR + "CONCODIG") to (pDIR + "CONVENIO")

index on NOME tag (pDIR + "CONNOME") to (pDIR + "CONVENIO")

use

ferase(pDIR + "FORNECE.CDX")

if !net_use("FORNECE",,"E")

return

endif

index on FCODIGO tag (pDIR + "FORCODIG") to (pDIR + "FORNECE")

index on FNOME tag (pDIR + "FORNOME") to (pDIR + "FORNECE")

use

ferase(pDIR + "TIPOPRO.CDX")

if !net_use("TIPOPRO",,"E")

return

endif

index on TPCODIGO tag (pDIR + "TPCODIG") to (pDIR + "TIPOPRO")

index on TPDESC tag (pDIR + "TPNOME") to (pDIR + "TIPOPRO")

use

ferase(pDIR + "GRUPO.CDX")

if !net_use("GRUPO",,"E")

return

endif

index on GRUPO tag (pDIR + "GRUPOX") to (pDIR + "GRUPO")

index on DESCRICAO tag (pDIR + "GRUPOY") to (pDIR + "GRUPO")

use

ferase(pDIR + "SUBGRUPO.CDX")

if !net_use("SUBGRUPO",,"E")

return

endif

index on CODIGO tag (pDIR + "SUBGRUPX") to (pDIR + "SUBGRUPO")

index on DESCRICAO tag (pDIR + "SUBGRUPY") to (pDIR + "SUBGRUPO")

use

ferase(pDIR + "CRTCRE.CDX")

if !net_use("CRTCRE",,"E")

return

endif

index on CODIGO tag (pDIR + "CRTCRECD") to (pDIR + "CRTCRE")

index on NOME tag (pDIR + "CRTCRENM") to (pDIR + "CRTCRE")

use

return

****************************

static procedure organiza5()

****************************

local cBAIXAR

if !net_use("PARAME")

return

endif

cBAIXAR := CHEQUE_B

close databases

ferase(pDIR + "CHEQUES.CDX")

if !net_use("CHEQUES",,"E")

return

endif

index on NUMERO tag (pDIR + "NUMEROCH") to (pDIR + "CHEQUES")

index on NOME tag (pDIR + "NOMECH") to (pDIR + "CHEQUES")

index on DTVENCI tag (pDIR + "VENCICH") to (pDIR + "CHEQUES")

index on TITULO tag (pDIR + "TITULOCH") to (pDIR + "CHEQUES")

index on CLIENTE tag (pDIR + "CLIENTCH") to (pDIR + "CHEQUES")

index on CPF + NUMERO tag (pDIR + "CHQCPF") to (pDIR + "CHEQUES")

use

ferase(pDIR + "CHPAGO.CDX")

if !net_use("CHPAGO",,"E")

return

endif

index on NUMERO tag (pDIR + "NUMECHPG") to (pDIR + "CHPAGO")

index on NOME tag (pDIR + "NOMECHPG") to (pDIR + "CHPAGO")

index on DTPAG tag (pDIR + "PAGOCHPG") to (pDIR + "CHPAGO")

index on TITULO tag (pDIR + "TITUCHPG") to (pDIR + "CHPAGO")

use

if cBAIXAR = "S"

if !net_use("CHEQUES","CHEQUES")

return

endif

if !net_use("CHPAGO","CHPAGO")

return

endif

// barra("Aguarde, efetuando baixa automatica de cheques ...")

select CHEQUES

go top

do while !eof()

select CHEQUES

if DTVENCI <= DATE()

select CHPAGO

addrec(0)

replace NUMERO with CHEQUES->NUMERO ,;

NOME with CHEQUES->NOME ,;

DTENTRADA with CHEQUES->DTENTRADA ,;

DTVENCI with CHEQUES->DTVENCI ,;

DTPAG with date() ,;

VALORPAG with CHEQUES->VALOR ,;

BANCO with CHEQUES->BANCO ,;

AGENCIA with CHEQUES->AGENCIA ,;

TITULO with CHEQUES->TITULO ,;

CLIENTE with CHEQUES->CLIENTE ,;

TITULOS with CHEQUES->TITULOS ,;

TELEFONE with CHEQUES->TELEFONE

unlock

select CHEQUES

rec_lock()

delete

unlock

endif

skip

enddo

close all

endif

return

****************************

static procedure organiza6()

****************************

// Todo indice do Pedidos deve ser executado no Peddia tambem.

ferase(pDIR + "PEDIDOS.CDX")

if !net_use("PEDIDOS",,"E")

return

endif

index on NRORDEM tag (pDIR + "PDNRX") to (pDIR + "PEDIDOS")

index on CLIENTE tag (pDIR + "PDCLIENTE") to (pDIR + "PEDIDOS")

index on UN_DESC tag (pDIR + "PDDESCR") to (pDIR + "PEDIDOS")

index on DTEMINF tag (pDIR + "PDDATA") to (pDIR + "PEDIDOS")

index on TIPVENDA + str(NRORDEM, 6) tag (pDIR + "PTIPVEN") to (pDIR + "PEDIDOS")

index on TIPO+UN_DESC+CLIENTE tag (pDIR + "PDEPTA") to (pDIR + "PEDIDOS")

use

ferase(pDIR + "PEDDIA.CDX")

if !net_use("PEDDIA",,"E")

return

endif

index on NRORDEM tag (pDIR + "DDNRX") to (pDIR + "PEDDIA")

index on CLIENTE tag (pDIR + "DDCLIENTE") to (pDIR + "PEDDIA")

index on UN_DESC tag (pDIR + "DDDESCR") to (pDIR + "PEDDIA")

index on DTEMINF tag (pDIR + "DDDATA") to (pDIR + "PEDDIA")

index on TIPVENDA + str(NRORDEM, 6) tag (pDIR + "DTIPVEN") to (pDIR + "PEDDIA")

index on TIPO+UN_DESC+CLIENTE tag (pDIR + "DDEPTA") to (pDIR + "PEDDIA")

use

return

****************************

static procedure organiza7()

****************************

ferase(pDIR + "ESTOQUE.CDX")

if !net_use("ESTOQUE",,"E")

return

endif

index on ECODIGO tag (pDIR + "ESTOCOD") to (pDIR + "ESTOQUE")

index on EDESCRICAO tag (pDIR + "ESTONOME") to (pDIR + "ESTOQUE")

index on ECODBARRA tag (pDIR + "ESTOBARR") to (pDIR + "ESTOQUE")

index on EC_ELETRO1 tag (pDIR + "ESTOQUEI") to (pDIR + "ESTOQUE")

index on ELUNAR tag (pDIR + "ESTOQUEM") to (pDIR + "ESTOQUE")

index on EPROFARMA tag (pDIR + "ESTPROF") to (pDIR + "ESTOQUE")

index on EPANARELLO tag (pDIR + "ESTPANAR") to (pDIR + "ESTOQUE")

index on ESANTACRUZ tag (pDIR + "ESTSCRUZ") to (pDIR + "ESTOQUE")

index on ECOMPROFAR tag (pDIR + "ESTCOMPR") to (pDIR + "ESTOQUE")

index on EPRVENDA tag (pDIR + "ESTPRVEN") to (pDIR + "ESTOQUE")

index on EFORNECE tag (pDIR + "ESTFOR") to (pDIR + "ESTOQUE")

index on ETIPOPROD tag (pDIR + "ESTOTIP") to (pDIR + "ESTOQUE")

index on EFORNECE + EDESCRICAO tag (pDIR + "ESTFORD") to (pDIR + "ESTOQUE")

index on ETIPOPROD + EDESCRICAO tag (pDIR + "ESTIPOD") to (pDIR + "ESTOQUE")

index on EFILTRO tag (pDIR + "ESTFILT") to (pDIR + "ESTOQUE")

use

return

-----------------------------------------------------------

BLINKER INCREMENTAL OFF

BLINKER CLIPPER SYMBOL OFF

BLINKER EXECUTABLE COMPRESS // Gera executavel compactado.

NOBELL

PACKCODE

PACKDATA

//Define o programa e tamanho de pilha

DEFBEGIN

name 'TESTE'

description 'Sistema de funcoes'

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

//Define os programas a serem linkados

BEGIN AREA

FILE TESTE

FILE DBCONTR

FILE CONTROLS

FILE RCA900

ENDAREA

LIB DbfCdx, Five, FiveC, Objects, WinApi, Clipper, Extend

OUTPUT TESTE.EXE

----------------------------------------------------------

Clipper 5.2e, Fivewin 1.92, Blinker 7, Windows 2000

Link to comment
Share on other sites
rmarra Newbie

rmarra

Posted
  • Author
Posted

Tirei o CHEQUES.CDX e continua o erro. Se eu eliminar o CHEQUES e CHPAGO da rotina, para no PEDIDOS.CDX.

Se eu eliminar uma pequena parta da rotina, completa sem problemas. Por exemplo, elimino a procedure organiza5(), completa sem problemas.

Clipper 5.2e, Fivewin 1.92, Blinker 7, Windows 2000

Link to comment
Share on other sites
pauloaraujo Newbie

pauloaraujo

Posted
Posted

Rmarra,

Experimente mudar seu LNK para:

BLINKER CLIPPER SYMBOL OFF

BLINKER LINK VERSION 7.0

BLINKER EXECUTABLE COMPRESS

BLINKER EXECUTABLE ALIGNMENT 128

NOBELL

BLINKER INCREMENTAL OFF

BLINKER PROCEDURE DEPTH 90

PACKCODE

PACKDATA

FILE .....

FILE .....

OUTPUT TESTE

DEFBEGIN

name 'TESTE'

description 'Sistema de funcoes'

exetype Windows 3.1

code moveable discardable preload

data preload moveable

stacksize 18000 // <<-- AUMENTE AQUI

heapsize 8520

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

LIB Five // 1º as libs do FW

LIB FiveC

LIB Objects

LIB WinApi

LIB Clipper

LIB DbfCdx

LIB Extend

LIB Terminal

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

Link to comment
Share on other sites
rmarra Newbie

rmarra

Posted
  • Author
Posted

Fiz conforme abaixo e coloquei stacksize até 30000 mas continua o erro.

BLINKER CLIPPER SYMBOL OFF

BLINKER LINK VERSION 7.0

BLINKER EXECUTABLE COMPRESS // Gera executavel compactado.

BLINKER EXECUTABLE ALIGNMENT 128

NOBELL

BLINKER INCREMENTAL OFF

BLINKER PROCEDURE DEPTH 90

PACKCODE

PACKDATA

FILE TESTE

FILE DBCONTR

FILE CONTROLS

FILE RCA900

OUTPUT TESTE.EXE

//Define o programa e tamanho de pilha

DEFBEGIN

name 'TESTE'

description 'Sistema de funcoes'

exetype Windows 3.1

code moveable discardable preload

data preload moveable

stacksize 30000

heapsize 8520

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

//Define os programas a serem linkados

LIB Five, FiveC, Objects, WinApi, Clipper, DbfCdx, Extend, Terminal

Clipper 5.2e, Fivewin 1.92, Blinker 7, Windows 2000

Link to comment
Share on other sites
pauloaraujo Newbie

pauloaraujo

Posted
Posted

Amigo,

Não vejo nenhum erro na sua rotina, exceto aquele alltrim() que falei.

Volte o stacksize para 18000.

Voce disse que retirando a organiza5() tudo funciona.

Se voce deixar a organiza5() e retirar outra também funciona??

Experimente retirar aquele SET CLIPPER=//.. O FW não precisa dele.

Voce já testou em outra máquina?? W98??

Você estabelece BUFFERS em algum CONFIG da vida??

Tirando o fato de eu usar o Clipper 5.3b e você o 5.2,

eu entrego os pontos e deixo para outro colega te ajudar.

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

citação:

Estou mudando meu padrão de indice de NTX para CDX. Ao criar os índices, está ocorrendo este erro. Por favor, me ajudem. E-mail : rmarra@rcasistemas.com.br

id=quote>id=quote>

Qual é a versão do seu Five? Qual a Versão do seu Clipper?

Siga o Conselho do Sérgio(pernsonal) e altere o seu PERFIL.

Bad Boy - São Paulo.

kmt_karinha@pop.com.br - 1 GB de Espaço.

FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Link to comment
Share on other sites
pauloaraujo Newbie

pauloaraujo

Posted
Posted

Ele já alterou, Kapiaba

Clipper 5.2e, Fivewin 1.92, Blinker 7, Windows 2000

Tudo o que os meus parcos conhecimentos podiam fazer, já fizeram.

Falta ele fazer alguns testes que pedi, mas acho que não vão dar em nada. Vejo a maioria usar 5.2 com libs do 5.3. Não sei se é isso.

Um abraço

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

Editado por - pauloaraujo on 15/07/2005 14:14:27

Link to comment
Share on other sites
personal Newbie

personal

Posted
Posted

Bem... eu não consegui usar o CDX com Clipper 52E puro,

para não mesclar 52e com Libx do 53b, conforme sujestão

aqui mesmo do forum, fiz tudo com 53b.

REQUEST DBFCDX

DBSETDRIVER("DBFCDX")

Use Arquivo.DBF VIA "DBFCDX"

Index on Campo1 TAG "CAMPO1" To Indice.cdx

Index on Campo2 TAG "CAMPO2" To Indice.cdx

Use

Voce esta fazendo assim.

index on DATA tag (pDIR+id=red>"XENCERRA") to (pDIR + "ENCERRA")

Outra coisa, meus problemas só terminaram, quando criei

os arquivos pelo sistema, e importei os dados.

http://www.personal.com.br/PAGINA/rodape_fw.jpg[/img

Editado por - personal on 15/07/2005 14:59:04

Link to comment
Share on other sites
rmarra Newbie

rmarra

Posted
  • Author
Posted

Voce disse que retirando a organiza5() tudo funciona.

Se voce deixar a organiza5() e retirar outra também funciona??

Resp.: SIM. Deixei a organiza5() e tive que tirar a 1 e a 7 para funcionar.

Voce já testou em outra máquina?? W98??

Resp.: SIM

Você estabelece BUFFERS em algum CONFIG da vida?? Resp.: SIM, Buffers=60

Desde já agradeço.

Clipper 5.2e, Fivewin 1.92, Blinker 7, Windows 2000

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

citação:

Voce disse que retirando a organiza5() tudo funciona.

Se voce deixar a organiza5() e retirar outra também funciona??

Resp.: SIM. Deixei a organiza5() e tive que tirar a 1 e a 7 para funcionar.

Voce já testou em outra máquina?? W98??

Resp.: SIM

Você estabelece BUFFERS em algum CONFIG da vida?? Resp.: SIM, Buffers=60

Desde já agradeço.

Clipper 5.2e, Fivewin 1.92, Blinker 7, Windows 2000

id=quote>id=quote>

CLIPPER 5.2E, NAO TEM SUPORTE A RDD CDX. USE O 5.3B OU INCORPORE AS LIBS DO 5.3B AO COMPILADOR DO 5.2E.

Bad Boy - São Paulo.

kmt_karinha@pop.com.br - 1 GB de Espaço.

FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
 Share
Go to topic listing
×
×
  • Create New...