i must to compiling my app write in clipper/fwh 1.95 with harbour and fwh 6.12,but have some error :
- Code: Select all Expand view RUN
- Error description: Error BASE/1081 Argument error: +
Args:
[ 1] = N 0
[ 2] = N 15
Stack Calls
===========
Called from: => (b)DEFAULT(0)
Called from: => AEVAL(0)
Called from: => TWBROWSE:DEFAULT(0)
Called from: => TWBROWSE:NEW(0)
Called from: main.prg => FLBXORDINI(259)
Called from: main.prg => FWINORDINI(236)
Called from: main.prg => FINIZIO(222)
Called from: main.prg => MAIN(50)
Variables in use
================
Procedure Type Value
==========================
(b)DEFAULT
Param 1: N 15
Param 2: N 1
Local 1: N 0
Local 2: N 15
Local 3: N 0
AEVAL
Param 1: A Len: 7
Param 2: B {|| ... }
TWBROWSE:DEFAULT
Local 1: O Class: TWBROWSE
Local 2: N 8
Local 3: A Len: 7
Local 4: C "TABORD01"
Local 5: N 7
Local 6: N 0
TWBROWSE:NEW
Param 1: N 2.5
Param 2: N 0
Param 3: N 100
Param 4: N 100
Param 5: B {|| ... }
Param 6: A Len: 7
Param 7: U
Param 8: O Class: TWINDOW
Param 9: C "DtoS(DATINS)"
Param 10: C "20061201"
Param 11: C "20061231"
Param 12: U
Param 13: B {|| ... }
Param 14: U
Param 15: O Class: TFONT
Param 16: U
Param 17: N 0
Param 18: N 16777215
Param 19: U
Param 20: L .F.
Param 21: C "TABORD01"
Param 22: L .F.
Param 23: U
Param 24: L .F.
Param 25: U
Param 26: U
Param 27: U
Local 1: O Class: TWBROWSE
FLBXORDINI
Param 1: O Class: TWINDOW
Param 2: L .F.
FWINORDINI
Param 1: O Class: TWINDOW
FINIZIO
Param 1: O Class: TWINDOW
Param 2: U
MAIN
Local 1: U
Local 2: U
Local 3: U
Local 4: U
Local 5: O Class: TMENU
Local 6: O Class: TBRUSH
Local 7: O Class: TICON
Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFCDX
DBFNTX
DataBases in use
================
1: ANACF RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
1 0 .F. .T.
Indexes in use TagName
=> CLFR+CODCF ANACF1
CLFR + CODCF CODICE
CLFR+upper(RAGSOC) ANACF2
CLFR + Upper(RAGSOC) NOME
Relations in use
2: RICHIE RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
1 0 .F. .T.
Indexes in use TagName
=> CODCF CODICE
Relations in use
3: TABGEN RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
245 244 .F. .T.
Indexes in use TagName
=> CHIAVE + CODICE TABGEN
Relations in use
4: => TABORD01 RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
1 0 .T. .T.
Indexes in use TagName
TIPDOC + STR(NUMDOC, 6) TABORD11
=> DtoS(DATINS) + STR(NUMDOC, 6) TABORD13
Relations in use
1: TO "CAUMA" + TABORD01->CAUMAG INTO TABGEN
2: TO TABORD01->CLFR + TABORD01->CODCF INTO ANACF
3: TO TABORD01->CODCF INTO RICHIE
Classes in use:
===============
1 HBCLASS
2 HBOBJECT
3 TFONT
4 TWINDOW
5 TDIALOG
6 TBRUSH
7 TCONTROL
8 TGET
9 GET
10 TCLIPGET
11 TBUTTON
12 TINI
13 TICON
14 TMENU
15 TMENUITEM
16 TMSGBAR
17 TRECT
18 TMSGITEM
19 TTIMER
20 TBITMAP
21 TWBROWSE
22 TSCROLLBAR
23 ERROR
24 TREG32
here the function that caused error :
- Code: Select all Expand view RUN
- #include "colors.ch"
#include "directry.ch"
#include "\ric98\winric.ch"
#include "TWBrowse.ch"
//******************************************************************************
function Main(cParolaChiave,cDitta,cData)
//******************************************************************************
local oBar, oMenu, oBrush, oIco
public oWndOrdini, oLbxOrdini
.... code......
...............
fInizio(oWndOrdini, cParolaChiave) riga 51
..............
..............
//******************************************************************************
function fInizio(pWnd, cParolaChiave)
//******************************************************************************
if cParolaChiave = nil // programma non attivato da altro modulo
endif
// CmxSys(1001, .t.)
// CmxSys(1002, .t.)
// ProtezioneProgramma(STR_TITOLO, pWnd)
ProtezioneProgramma(STR_VERS, pWnd,{"anacf","articoli","movcon","movmag","tabfat01"},"anagrafi e movimenti")
fWinOrdini(pWnd) riga 223
return nil
//******************************************************************************
//******************************************************************************
function fWinOrdini(pWnd)
//******************************************************************************
m->dDaDataVisibile := bom(m->menud)
m->dADataVisibile := eom(m->menud)
NormalizzaData()
ApriFiles()
m->oWndOrdini := pWnd riga 237
fLbxOrdini(pWnd, @oLbxOrdini)
m->oWndOrdini:cTitle(fTitOrdini())
fBottoni(STR_PROG_ORD, pWnd, m->oLbxOrdini)
m->oWndOrdini:oClient = oLbxOrdini
m->oWndOrdini:CoorsUpdate()
m->oWndOrdini:Move(m->oWndOrdini:nTop, m->oWndOrdini:nLeft,;
m->oWndOrdini:nRight, m->oWndOrdini:nBottom, .t.);
return nil
//******************************************************************************
//******************************************************************************
function fLbxOrdini(oWnd, oLbx)
//******************************************************************************
@ 2.5, 0 LISTBOX oLbx;
FIELDS fSelBmp(), TABORD01->TIPDOC, Str(TABORD01->NUMDOC, 6), DtoC(TABORD01-> DATINS),;
TABORD01->CLFR + " " + TABORD01->CODCF,;
if(TABORD01->CLFR == "R", non_ansi(RICHIE->RAGSOC), non_ansi(ANACF-> RAGSOC)), TABGEN->DESC;
HEADERS "Stato", "Tipo", "N° Doc.", "Data", "Cod. Anagrafe", "Destinatario", "Caus. Mov.";
ALIAS "TABORD01" OF oWnd;
SELECT "DtoS(DATINS)" FOR DtoS(m->dDaDataVisibile) TO DtoS(m->dADataVisibile);
FONT m->fntProgramma; //riga 260
ON DBLCLICK (if("O"$TABORD01->tipdoc, EditPreventivo(TABORD01->(Eof ()),.f.),EditPreventivo(TABORD01->(Eof()),.t.)), oLbx:Refresh())
// ON DBLCLICK (if("O"$TABORD01->tipdoc, fEditOrdine(TABORD01->(Eof())), EditPreventivo(TABORD01->(Eof()))), oLbx:Refresh())
// ON DBLCLICK (if(TABORD01->OEMESSO, fEditOrdine(TABORD01->(Eof())), EditPreventivo(TABORD01->(Eof()))), oLbx:Refresh())
/*
#define LINES_NONE 0
#define LINES_BLACK 1
#define LINES_GRAY 2
#define LINES_3D 3
#define LINES_DOTED 4
oLbx:nLineStyle := LINES_NONE
oLbx:SetFocus()
oLbx:ClientEdge()
*/
oLbx:SetFocus()
return oLbx
thanks a lot for all reply. best regards
Salvo
