ho una situazione del genere
non riesco a inserire e visualizzare il testo dei vari oggetti get var
nella situazione sottostante
inizializzo questi valori
oVar[1 ] :='Codice'
oVar[2 ] :='descrizione'
oVar[3 ] :='exqta'
oVar[4 ] :='Qta'
oVar[5 ] :='Esist.'
oVar[6 ] :='Prz.'
oVar[7 ] :='Cst.'
oVar[8 ] :='Rep.'
oVar[9 ] :='Iva'
oVar[10 ] :='Testo'
e nella dialog box mi va vadere solo
codice
descrizione
qta
testo
rispettivamente a 1,2,4,10
mentre gli altri campi sono vuoti
come mai???????????
vi posto il codice completo, non riesco a capire l'errore
include "Fwce.ch"
FUNCTION MAIN()
Local oDlg,
Local oGet[11],oVar[11]
LocaL oFont1,oFont2
oVar[1 ] :='Codice'
oVar[2 ] :='descrizione'
oVar[3 ] :='exqta'
oVar[4 ] :='Qta'
oVar[5 ] :='Esist.'
oVar[6 ] :='Prz.'
oVar[7 ] :='Cst.'
oVar[8 ] :='Rep.'
oVar[9 ] :='Iva'
oVar[10 ] :='Testo'
DEFINE FONT oFont1 NAME "Arial" SIZE 0,-16
DEFINE FONT oFont2 NAME "Arial" SIZE 0,-16
DEFINE DIALOG oDlg RESOURCE "INSERIMENTO"
*---- codice vedo il valore inizializzato
REDEFINE GET oGet[1] Var oVar[1] ID 101;
FONT oFont1 ;
COLORS CLR_HGREEN, nRGB( 240, 248, 255 );
of oDlg
*--- descrizione vedo il valore inizializzato
REDEFINE GET oGet[2] Var oVar[2] ID 103;
FONT oFont2 ;
COLORS CLR_HGREEN, nRGB( 255, 239, 219 );
of oDlg
*--- ex qta vedo il valore vuoto
REDEFINE GET oGet[3] Var oVar[3] ID 102;
FONT oFont2 ;
COLORS nRGB( 255, 235, 215 ), nRGB( 255, 239, 219 );
of oDlg
*--- qta da digitare si vedo il valore inizializzato
REDEFINE GET oGet[4] Var oVar[4] ID 104;
FONT oFont2 ;
COLORS CLR_HGREEN, nRGB( 240, 248, 255 );
of oDlg
*--- esistenza vedo il valore vuoto
REDEFINE GET oGet[5] Var oVar[5] ID 105;
FONT oFont2 ;
COLORS nRGB( 255, 235, 215 ), nRGB( 255, 239, 219 );
of oDlg
*--- prezzo vedo il valore vuoto
REDEFINE GET oGet[6] Var oVar[6] ID 106;
FONT oFont2 ;
COLORS nRGB( 255, 235, 215 ), nRGB( 255, 239, 219 );
of oDlg
*--- costo vedo il valore vuoto
REDEFINE GET oGet[7] Var oVar[7] ID 107;
FONT oFont2 ;
COLORS nRGB( 255, 235, 215 ), nRGB( 255, 239, 219 );
of oDlg
*--- reparto vedo il valore vuoto
REDEFINE GET oGet[8] Var oVar[8] ID 108;
FONT oFont2 ;
COLORS nRGB( 255, 235, 215 ), nRGB( 255, 239, 219 );
of oDlg
*--- iva vedo il valore vuoto
REDEFINE GET oGet[9] Var oVar[9] ID 109;
FONT oFont2 ;
COLORS nRGB( 255, 235, 215 ), nRGB( 255, 239, 219 );
of oDlg
- MESSAGGGIO PIEDE - il valore inizializzato corretto
REDEFINE GET oGet[10] Var oVar[10] ID 110;
FONT oFont2 ;
COLORS CLR_BLUE, nRGB( 127, 255, 212 );
of oDlg
*- bottone esci
REDEFINE BUTTON ID 1 OF oDlg;
ACTION ODLG:END()
oDlg:bKeyDown = { | nKey | If( nKey =27, oDlg:End(), ) }
ACTIVATE DIALOG oDlg CENTERED
RETURN nil
file risorse
define DIALOG_3 3
define DIALOG_2 2
include "c:\fwppc\include\winapi.ch"
ifdef _CE
#include "c:\vce\include\arm\windows.h"
#include "c:\vce\include\arm\commctrl.h"
endif
define IDC_EDIT1 101
define IDC_EDIT3 103
define IDC_EDIT11 102
define IDC_EDIT10 110
define IDC_EDIT2 102
define IDC_EDIT4 104
define IDC_EDIT5 105
define IDC_EDIT6 106
define IDC_EDIT8 108
define IDC_EDIT9 109
define IDC_EDIT7 107
define DIALOG_1 1
define I_IMAGENONE (-2)
define IDS_HELP 104
ifdef _CE
102 RCDATA
BEGIN
102, 2,
I_IMAGENONE, 202, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 202, 0, 0,
I_IMAGENONE, 203, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 203, 0, 1,
END
endif
INSERIMENTO DIALOG 7, 17, 156, 160
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION
CAPTION "Lettura"
FONT 8, "system"
{
EDITTEXT IDC_EDIT1, 35, 3, 109, 13
EDITTEXT IDC_EDIT4, 101, 39, 38, 12
DEFPUSHBUTTON "Esci", IDOK, 43, 138, 78, 20
LTEXT "&Codice", -1, 7, 4, 23, 8
LTEXT "&Qta", -1, 66, 41, 19, 8
EDITTEXT IDC_EDIT3, 7, 19, 136, 13, ES_READONLY | NOT WS_BORDER | WS_TABSTOP
LTEXT "&Esistenza", -1, 7, 57, 54, 8, NOT WS_GROUP
EDITTEXT IDC_EDIT5, 101, 55, 38, 12, ES_READONLY | WS_BORDER | WS_TABSTOP
LTEXT "&Prezzo", -1, 7, 72, 54, 8
EDITTEXT IDC_EDIT6, 101, 70, 38, 12, ES_READONLY | WS_BORDER | WS_TABSTOP
LTEXT "&Costo", -1, 7, 87, 54, 8
EDITTEXT IDC_EDIT7, 101, 85, 38, 12, ES_READONLY | WS_BORDER | WS_TABSTOP
LTEXT "&Rep.", -1, 7, 101, 15, 8
EDITTEXT IDC_EDIT8, 26, 100, 38, 12, ES_READONLY | WS_BORDER | WS_TABSTOP
LTEXT "&Iva", -1, 79, 101, 13, 8
EDITTEXT IDC_EDIT9, 108, 100, 29, 12, ES_READONLY | WS_BORDER | WS_TABSTOP
EDITTEXT IDC_EDIT10, 7, 115, 136, 13, ES_READONLY | NOT WS_BORDER | WS_TABSTOP
LTEXT "&Iva", -1, 141, 41, 13, 8
EDITTEXT IDC_EDIT11, 6, 37, 43, 13, ES_READONLY | WS_BORDER | WS_TABSTOP
}