Code: Select all
Application
===========
Path and name: C:\Work\Prg\family2\Main.Exe (32 bits)
Size: 7,751,168 bytes
Compiler version: Harbour 3.2.0dev (r1406271520)
FiveWin version: FWH 17.02
C compiler version: Borland C++ 5.8.2 (32-bit)
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 7 secs
Error occurred at: 11-09-2017, 11:34:15
Error description: Error BASE/1066 Parametro errato: condizionale
Args:
[ 1] = U
Stack Calls
===========
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:NEWBAR( 547 )
Called from: source\Main.prg => TAPPLICATION:BUILDBTNBAR4( 1337 )
Called from: source\Main.prg => TAPPLICATION:NEW( 425 )
Called from: source\Main.prg => MAIN( 72 )on BUILDBTNBAR4
I have
Code: Select all
METHOD BuildBtnBar4() CLASS TApplication
Local oHand
DEFINE CURSOR oHand HAND
DEFINE BUTTONBAR ::obar _3D SIZE 66, 64 OF ::oWndMain 2015 GDIPLUS // NOBORDER
::nBarHeight := ::obar:nHeight
::obar:bRClicked := { || .t. }
::obar:oCursor:= oHand
DEFINE BUTTON OF ::obar ;
RESOURCE "TOOLBAR_ESERCIZI" ;
PROMPT "Esercizi" ;
ACTION Esercizi() ;
TOOLTIP i18n( "Gestione Esercizi Finanziari" ) ;
MESSAGE i18n( "Gestione Esercizi Finanziari" ) ;
NOBORDER
DEFINE BUTTON OF ::obar ;
RESOURCE "TOOLBAR_ATTIVITA" ;
PROMPT "Attività" ;
ACTION Attivita() ;
TOOLTIP i18n( "Gestione Attività" ) ;
MESSAGE i18n( "Gestione Attività." ) ;
GROUP NOBORDER
DEFINE BUTTON OF ::obar ;
RESOURCE "TOOLBAR_APUNTES" ;
PROMPT "Movimenti" ;
ACTION Movimenti() ;
TOOLTIP i18n( "Gestione Movimenti" ) ;
MESSAGE i18n( "Elenco dei movimenti contabili" ) ;
NOBORDER
DEFINE BUTTON OF ::obar ;
RESOURCE "TOOLBAR_PERIODIC" ;
PROMPT "Scadenze" ;
ACTION Periodici() ;
TOOLTIP i18n( "Gestione Movimenti Periodici" ) ;
MESSAGE i18n( "Gestione Movimenti Periodici." ) ;
NOBORDER
DEFINE BUTTON OF ::obar ;
RESOURCE "TOOLBAR_BUDGET" ;
PROMPT "Previsione" ;
ACTION Preventivi() ;
TOOLTIP i18n( "Gestione Preventivi di spesa" ) ;
MESSAGE i18n( "Preventivi di spesa e reddito e situazione contabile" ) ;
NOBORDER
DEFINE BUTTON OF ::obar ;
RESOURCE "TOOLBAR_GRAFICI" ;
PROMPT "Statistiche" ;
ACTION Grafico() ;
TOOLTIP i18n( "Statistiche annuali o per causali" ) ;
MESSAGE i18n( "Visualizzazione grafica statistica dei movimenti contabili" ) ;
NOBORDER
DEFINE BUTTON OF ::obar ;
RESOURCE "TOOLBAR_ENTRATE" ;
PROMPT "Entrate" ;
ACTION Entrate() ;
TOOLTIP i18n( "Anagrafica per voci entrate" ) ;
MESSAGE i18n( "Elenco delle causuali di entrata" ) ;
GROUP NOBORDER
DEFINE BUTTON OF ::obar ;
RESOURCE "TOOLBAR_CLIENTI" ;
PROMPT "Soggetti" ;
ACTION Clientes() ;
TOOLTIP i18n( "Pagatori o Soggetti" ) ;
MESSAGE i18n( "Elenco dei soggetti paganti oppure clienti" ) ;
NOBORDER
DEFINE BUTTON OF ::obar ;
RESOURCE "TOOLBAR_USCITE" ;
PROMPT "Uscite" ;
ACTION Uscite() ;
TOOLTIP i18n( "Anagrafica per voci uscite" ) ;
MESSAGE i18n( "Elenco delle causali di uscita" ) ;
GROUP NOBORDER
DEFINE BUTTON OF ::obar ;
RESOURCE "TOOLBAR_FORNITORI" ;
PROMPT "Fornitori" ;
ACTION Proveedores() ;
TOOLTIP i18n( "Fornitori di servizi o Destinazione" ) ;
MESSAGE i18n( "Elenco dei fornitori di servizi" ) ;
NOBORDER
DEFINE BUTTON OF ::obar ;
RESOURCE "TOOLBAR_CONTI" ;
PROMPT "Conti" ;
ACTION Conti() ;
TOOLTIP i18n( "Gestione conti correnti e carte" ) ;
MESSAGE i18n( "Anagrafica dei conti correnti e delle carte di redito con saldi" ) ;
GROUP NOBORDER
DEFINE BUTTON OF ::obar ;
RESOURCE "TOOLBAR_TRASFER" ;
PROMPT "GiroConti" ;
ACTION TrasferimentoConti() ;
TOOLTIP i18n( "Gestione giroconti" ) ;
MESSAGE i18n( "Elenco dei traferimenti da un conto corrente ad un altro" ) ;
NOBORDER
DEFINE BUTTON OF ::obar ;
RESOURCE "RIBBON_BENI" ;
PROMPT "Inventario" ;
ACTION Inventario() WHEN ::lPlus;
TOOLTIP i18n( "Gestione beni inventariali" ) ;
MESSAGE i18n( "Elenco dei beni inventariali" ) ;
GROUP NOBORDER
DEFINE BUTTON OF ::obar ;
RESOURCE "RIBBON_TABELLE" ;
PROMPT "Tabelle" ;
MENU Inventario_Mnu() ;
TOOLTIP i18n( "Tabelle dei beni inventariali" ) ;
MESSAGE i18n( "Elenco tabelle dei beni inventariali" ) ;
NOBORDER
DEFINE BUTTON OF ::obar ;
RESOURCE "TOOLBAR_INDICIZZA" ;
PROMPT "Indicizza" ;
ACTION Ut_Indexar() ;
TOOLTIP i18n( "Indicizzazione archivi" ) ;
MESSAGE i18n( "Avviare l'indicizzazione degli archivi" ) ;
GROUP NOBORDER
DEFINE BUTTON OF ::obar ;
RESOURCE "RIBBON_ACERCADE" ;
PROMPT "Autori" ;
ACTION ::AppAcercade() ;
TOOLTIP i18n( "Autori del programma" ) ;
MESSAGE i18n( "Autori e CopyRights" ) ;
NOBORDER
DEFINE BUTTON OF ::obar ;
RESOURCE "TOOLBAR_USCITA" ;
PROMPT "Uscita" ;
ACTION ::ExitFromBtn() ;
TOOLTIP i18n( "Uscita dal programma" ) ;
MESSAGE i18n( "Terminare l'esecuzione del programma" ) ;
NOBORDER
RETURN NIL
DEFINE BUTTON OF ::obar ;
RESOURCE "RIBBON_BENI" ;
PROMPT "Inventario" ;
ACTION Inventario() WHEN ::lPlus;
TOOLTIP i18n( "Gestione beni inventariali" ) ;
MESSAGE i18n( "Elenco dei beni inventariali" ) ;
GROUP NOBORDER
why there is this error ?
