Salve a tutti,con difficoltà sono riuscito a compilare un programma clipper da e fw 1.95 con fw 6.12 e compilatore harbour fornito proprio da fivetech.una volta compilato ho questo tipo di errore di cui questo è il log. Ho provato a dichirare la variabile sia nel main che nel file dove viene effettivamente utlizzata ma non ottengo risultati.qualcuno ha qualche idea? grazie anticipatamente per la collaborazione

Error description: Error BASE/1003 Variable does not exist: DATA_INIZIO

Stack Calls

Called from: pratiche.prg => FINITPRATICHE(157)
Called from: main.prg => FCARPRAT(775)
Called from: main.prg => MAIN(135)

Variables in use

Procedure Type Value
==========================
FINITPRATICHE
Param 1: L .F.
Param 2: N 1
Param 3: U
Param 4: U
Param 5: U
Param 6: U
Param 7: U
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: U
Param 18: U
Param 19: U
Param 20: U
Param 21: U
Param 22: U
Param 23: U
Param 24: U
Param 25: U
Param 26: U
Param 27: U
Param 28: U
Param 29: U
Param 30: U
Param 31: U
Param 32: U
Param 33: U
Param 34: U
Param 35: U
Param 36: L .F.
Local 1: U
Local 2: N 21
Local 3: N 1
Local 4: N 0
Local 5: U
Local 6: N 0
FCARPRAT
Param 1: L .F.
Param 2: L .F.
Param 3: N 1
Param 4: U
Param 5: U
Param 6: U
Param 7: U
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: U
Param 18: U
Param 19: U
Param 20: U
Param 21: U
Param 22: U
Param 23: U
Param 24: C ""
Param 25: U
Param 26: U
Param 27: A Len: 0
Param 28: A Len: 0
Param 29: C " "
Param 30: U
Param 31: U
Param 32: U
Param 33: U
Param 34: U
Param 35: U
Param 36: U
Param 37: U
Param 38: U
Param 39: U
Param 40: U
Param 41: U
Param 42: U
Local 1: N 21
Local 2: U
MAIN
Local 1: C ""
Local 2: U
Local 3: O Class: TMENU
Local 4: O Class: TICON
Local 5: U
Local 6: O Class: TPANEL
Local 7: U
Local 8: U
Local 9: C "millennium"
Local 10: N 16
Local 11: N 2
Local 12: N 100
Local 13: N 2
Local 14: N 20
Local 15: N 90
Local 16: N 360
Local 17: N 80
Local 18: N 170
Local 19: N 230
Local 20: N 325
Local 21: N 380
Local 22: N 100
Local 23: N 450
Local 24: N 4
Local 25: N 10
Local 26: N 100
Local 27: N 200
Local 28: N 300
Local 29: U
Local 30: N 40
Local 31: N 140
Local 32: N 240
Local 33: N 340
Local 34: N 410
Local 35: N 480
Local 36: U
Local 37: U
Local 38: N 0
Local 39: N 12632256
Local 40: C "D@vide M i l l e n n i u m"

Non puoi usare una variabile con il nome più lungo di 10 caratteri.

Massimo Linossi wrote:Non puoi usare una variabile con il nome più lungo di 10 caratteri.

intanto ringrazio entrambi per la risposta.Ecco la funzione che determina l'errore. Andando avanti con gli errori mi segnala anche il medesimo errore sulla variabile descrizione(riga subito successiva). Grazie per la collaborazione

//***********
function fInitPratiche(lInsert,nPos,cCodFascicolo,cFascicolo,cDescr,dDataInizio,;
dDataFine,cCodAutorita,cAutorita,cSede,cNumCausa,nValore,nTipo,nDifficolta,;
cCodStato,cStato,dUltUdienza,dProssUdienza,mNote,cCodPratica,nRif,cNomeGiudice,;
cNumFasc,nValFatt,lFatturata,lSaldata,lModificata,cCodProcedura,cProcedura,;
oAssociato,cAssociato,cCodAssociato,oDomicil,cDomicil,cCodDomicil,;
lAgenda,lSalvabile)
//***********
local nArea:=select(),nOldPos,nIndice:=indexord()

select pratiche
nOldPos:=recno()
if lInsert
goto bottom
skip
dDataInizio:=date()
cFascicolo:=STR_FASC_ANON
cCodFascicolo:=padr("abcd",LUNG_COD_CONTRO)
nRif:=autoRifPratiche()
else
go nPos
/ if lSalvabile
rec_lock(m->ritardo)
else
MioMsgInfo("Pratica bloccata da altro utente"+CRLF+"Modifiche ai dati non salvate")
endif
/

    dDataInizio:=pratiche->data_inizio                                                                           //riga 157
    cFascicolo:=MioDecrypt(controve->descrizione)
    cCodFascicolo:=fCodContro(pratiche->cod_pratica)
    nRif:=pratiche->rif

endif
cCodPratica:=pratiche->cod_pratica
cDescr:=MioDecrypt(pratiche->descrizione)
dDataFine:=pratiche->data_fine
cCodAutorita:=pratiche->Autorita
cAutorita:=(fTrovaDescr("autorita",cCodAutorita,"descr"))
cCodProcedura:=pratiche->codProced
cProcedura:=(fTrovaDescr("tipiProc",cCodProcedura,"descr"))

// cAutorita:=MioDecrypt(fTrovaDescr("autorita",cCodAutorita,"MioDecrypt(descr)"))
cSede:=MioDecrypt(pratiche->Sede)
cNumCausa:=pratiche->Num_Causa
nValore:=pratiche->Val_causa

if nValore >=0
    nTipo:=3
    nValore:=if(m->lUsaEuro,fEuro(nValore),nValore)
elseif nValore=-1
    nTipo:=1
    nValore:=0
elseif nValore=-2
    nTipo:=2
    nValore:=0
endif
nDifficolta:=pratiche->Difficolta

cCodDomicil:=pratiche->codDomicil
cDomicil:=alltrim(fTrovaDescr("anag",cCodDomicil,"MioDecrypt(cognome)+' '+MioDecrypt(nome)","Codice"))

cCodStato:=pratiche->Stato
cStato:=fTrovaDescr("Stato",cCodStato,"descr")

if lAgenda=nil
    fTrovaUdienze(@dUltUdienza,@dProssUdienza,cCodPratica)
endif
mNote:=MioDecrypt(pratiche->Note)
cCodAssociato:=pratiche->codAssociato
cAssociato:=(fTrovaDescr("associa",cCodAssociato,"nome"))
cNomeGiudice:=pratiche->nome_giudice
cNumFasc:=pratiche->NumFasc
nValFatt:=fConvVal(pratiche->ValFatt)
lFatturata:=pratiche->Fatturata
lSaldata:=pratiche->Saldata
lModificata:=pratiche->Modificata
go nOldPos
select(nArea)

return nil

risolto grazie. Era il nome delle varibili che sforavano i 10 caratteri . in clipper vengono troncate,quindi mi dava errore erchè non le trovava

Ok, giusto. Come ho detto, in [x]Harbour i nomi delle variabili possono essere più lunghi di 10 caratteri ma proprio per questo se una variabile si chiama DATA_INIZIO non ti puoi riferire ad essa con DATA_INIZI.

EMG

Non vorrei andare in OT ma posto qui l'errore,in caso apro un nuovo post. Adesso mi ritorna un errore del tipo Error DBFNTX/1201 Work area not indexed. Questo è il log file :

Stack Calls

Called from: => DBSEEK(0)
Called from: main.prg => FAPRIFILES(630)
Called from: main.prg => MAIN(109)

Variables in use

Procedure Type Value
==========================
DBSEEK
Param 1: C "PESSI"
Local 1: N 0
FAPRIFILES
MAIN
Local 1: C ""
Local 2: U
Local 3: U
Local 4: U
Local 5: U
Local 6: U
Local 7: U
Local 8: U
Local 9: C "millennium"
Local 10: N 16
Local 11: N 2
Local 12: N 100
Local 13: N 2
Local 14: N 20
Local 15: N 90
Local 16: N 360
Local 17: N 80
Local 18: N 170
Local 19: N 230
Local 20: N 325
Local 21: N 380
Local 22: N 100
Local 23: N 450
Local 24: N 4
Local 25: N 10
Local 26: N 100
Local 27: N 200
Local 28: N 300
Local 29: U
Local 30: N 40
Local 31: N 140
Local 32: N 240
Local 33: N 340
Local 34: N 410
Local 35: N 480
Local 36: U
Local 37: U
Local 38: N 0
Local 39: N 12632256
Local 40: C "D@vide M i l l e n n i u m"

Linked RDDs

DBF
DBFFPT
DBFBLOB
DBFNTX

DataBases in use

1: => PERSONAL RddName: DBFNTX
==============================
RecNo RecCount BOF EOF
1 1 .F. .F.

 Indexes in use                        TagName

 Relations in use

Classes in use:

 1 HBCLASS
 2 HBOBJECT
 3 TWINDOW
 4 TDIALOG
 5 TBRUSH
 6 TCONTROL
 7 TBITMAP
 8 TFONT
 9 TTIMER
10 TINI
11 ERROR
12 TREG32

grazie per la collaborazione . Saluti

Se stai utilizzando i tag allora prova ad attivare il tag desiderato con SET ORDER TO "nometag".

EMG

ho controllato i tag e sono già impostati. può essere che l'errore è sempre derivato dalla lunghezza delle variabili?
Error description: Error DBFNTX/1201 Workarea not indexed

Stack Calls

Called from: => DBSEEK(0)
Called from: main.prg => FINITFASC(898)
Called from: main.prg => FCARPRAT(778)
Called from: main.prg => MAIN(136)

riga 898 e successive

select parti
set filter to upper(cod_contro+qualita)=upper(cCodFascicolo+STR_PARTI)
seek upper(m->cCodFascicolo+STR_PARTI) //riga 898

    select cparti
set filter to upper(cod_contro+qualita)=upper(cCodFascicolo+STR_CPARTI)
    seek upper(m->cCodFascicolo+STR_CPARTI)

    select altri
set filter to upper(cod_contro+qualita)=upper(cCodFascicolo+STR_ALTRI)
    seek upper(m->cCodFascicolo+STR_ALTRI)

capito l'errore. utilizzavo la funzione cmxAutoOpen per aprire la tabella ed impostare l'indice corretto.Come posso fare per settare l'indice della tabella correttamente senza utilizzare la funzione cmxAutoopen? grazie per la collaborazione

Prova con SET AUTORDER TO <nOrder>.

EMG

ho provato a modificare seguendo i tuoi consigli ma ho sempre los tesso errore. a me servirebbe una funzione che svolga il compito di cmxautoopen . grazie per la collaborazione. Saluti

SET AUTOPEN ON, ma dovrebbe essere il default.

EMG

ho provato a settare l'indice con set autopen off ed on,ma l'errore non si risolve. posto la parte del codice dove utilizzo le funzioni.Grazie a tutti.saluti

function fCompAus()
************/
local nArea:=select(),aFiles,lGiaAperto,cNome,nI,cChiave

    *        select pratiche
    *        cChiave:=cod_pratica
    close databases
    aFiles:=directory("*.dbf")

// cmxAutoOpen(.f.)

    for nI=1 to len(aFiles)
            cNome:=aFiles[nI][1]
            use (cNome) alias tmpPack exclusive new
            pack
            use
    next

// cmxAutoOpen(.t.)

fArchivi(.f.)