Newsgroup: it.comp.lang.vo-clipper
Titolo: Richiesta aiuto su DataBrowser VO2.5

Salve a tutti.
volevo porre alla vostra attenzione questo strano comportamento che ho
notato relativamente al DataBrowser.
Sono diversi giorni che tento di risolvere tale problema ma non sono
riuscito a capire in realtà che cosa succede.
Vi elenco i passi da me eseguiti per poter risimulare tale comportamento:
Iª Fase:
1) ho creato un DbServer su di un file composto da un codice ed una
descrizione. Ho inserito una decina di             record di prova
utilizzando dbmax.
2) ho creato un menu generico per una DataWindow (con generico intento
l'autocomposizione che propone vo         quando si crea un nuovo menu)
3) ho creato una DataWindow con l'auto composizione relativamente al
DbServer precedentemente creato.
4) durante la creazione della datawindow sono passato datta modalita form a
table per creare il browse e             quindi sono ritornato alla modalita
form.
5) Ho provato a utilizzare la DataWindow e tutto funzionava regolarmente. In
particolare passando dalla                 modalità form a table potevo
vedere i record precedentemente inseriti.
IIª Fase
1) ho modificato la DataWindow in questo modo:
    a) Ho selezionato le singlelineedit della Datawindows ed ho fatto un cut
and paste. Quindi ho eliminato le               precedenti singlelineedit ed
ho rinominato le due nuove singlelineedit.
        Il mio obbiettivo era quello di avere due nuove singlelineedit
(modalità form) che non facessero                         direttamente
riferimento ai campi del mio file e quindi non venissero valorizzate
all'attivazione della                     DataWindows. Volevo, però, che le
singlelineedit del browser continuassero a fare riferimento ai campi del
mio file in modo da visualizzare, passando alla modalità table, il contenuto
dei records.
2) ho provato ad attivare la finestra e per qunto riguarda la modalità form
il mio test ha avuto esito positivo. Ma     quando sono passato alla
modalità table purtroppo non sono riuscito a vedere alcunchè come se il file
fosse     completamente vuoto.
3) MI SONO INCAZZATO !
IIIª Fase
1) Ho rigenerato una nuova DataWindow esattamente uguale a quella della Iª
fase
2) Ho comparato il codice delle due DataWindows ed a mio parere non ci sono
differenze che possano                 giustificare il comportemento anomalo
della DataWindow creata nella IIª fase
Premesso che tale possibilità funziona nella versione 1.0d (non sò la
versione 2.0 in quanto non l'ho mai usata), non posso credere che nella
nuova versione ciò non sia possibile, quindi devo pensare di aver sbagliato
qualcosa o essermi dimenticato qualcosa.
Potete darmi eventuali indicazioni ?
Vi ringrazio e cordialmente vi saluto.
Mario
ELENCO DEL CODICE CREATO DA VO NELLA IIª FASE
CLASS NewWindow1 INHERIT DATAWINDOW
 PROTECT oDBCODICE AS DataColumn
 PROTECT oDBDESCRI AS DataColumn
 PROTECT oDCSC_CODICE AS FIXEDTEXT
 PROTECT oDCSC_DESCRI AS FIXEDTEXT
 PROTECT oDCmCODICE AS SINGLELINEEDIT
 PROTECT oDCmDESCRI AS SINGLELINEEDIT
 INSTANCE CODICE
 INSTANCE DESCRI
 INSTANCE mCODICE
 INSTANCE mDESCRI
RESOURCE NewWindow1 DIALOGEX  8, 8, 322, 199
STYLE WS_CHILD
FONT 8, "MS Sans Serif"
BEGIN
 CONTROL "Centro di costo:", NEWWINDOW1_SC_CODICE, "Static", WS_CHILD, 15,
19, 60, 15
 CONTROL "Descrizione centro di costo:", NEWWINDOW1_SC_DESCRI, "Static",
WS_CHILD, 15, 38, 105, 15
 CONTROL "Centro di costo:", NEWWINDOW1_MCODICE, "Edit",
ES_AUTOHSCROLL|WS_TABSTOP|WS_CHILD|WS_BORDER, 123, 22, 72, 15,
WS_EX_CLIENTEDGE
 CONTROL "Descrizione centro di costo:", NEWWINDOW1_MDESCRI, "Edit",
ES_AUTOHSCROLL|WS_TABSTOP|WS_CHILD|WS_BORDER, 123, 41, 177, 15,
WS_EX_CLIENTEDGE
END
ACCESS CODICE() CLASS NewWindow1
RETURN SELF:FIELDGET(#CODICE)
ASSIGN CODICE(uValue) CLASS NewWindow1
SELF:FIELDPUT(#CODICE, uValue)
RETURN CODICE := uValue
ACCESS DESCRI() CLASS NewWindow1
RETURN SELF:FIELDGET(#DESCRI)
ASSIGN DESCRI(uValue) CLASS NewWindow1
SELF:FIELDPUT(#DESCRI, uValue)
RETURN DESCRI := uValue
METHOD Init(oWindow,iCtlID,oServer,uExtra) CLASS NewWindow1
SELF:PreInit(oWindow,iCtlID,oServer,uExtra)
SUPER:Init(oWindow,ResourceID{"NewWindow1",_GetInst()},iCtlID)
oDCSC_CODICE := FixedText{SELF,ResourceID{NEWWINDOW1_SC_CODICE,_GetInst()}}
oDCSC_CODICE:HyperLabel := HyperLabel{#SC_CODICE,"Centro di
costo:",NULL_STRING,NULL_STRING}
oDCSC_DESCRI := FixedText{SELF,ResourceID{NEWWINDOW1_SC_DESCRI,_GetInst()}}
oDCSC_DESCRI:HyperLabel := HyperLabel{#SC_DESCRI,"Descrizione centro di
costo:",NULL_STRING,NULL_STRING}
oDCmCODICE := SingleLineEdit{SELF,ResourceID{NEWWINDOW1_MCODICE,_GetInst()}}
oDCmCODICE:FieldSpec := FSCDC{}
oDCmCODICE:HyperLabel := HyperLabel{#mCODICE,"Centro di costo:","Inserire il
centro di costo.",NULL_STRING}
oDCmDESCRI := SingleLineEdit{SELF,ResourceID{NEWWINDOW1_MDESCRI,_GetInst()}}
oDCmDESCRI:FieldSpec := FSDESCRI{}
oDCmDESCRI:HyperLabel := HyperLabel{#mDESCRI,"Descrizione centro di
costo:","Inserire la descrizione del centro di costo.",NULL_STRING}
SELF:Caption := "DataWindow Caption"
SELF:HyperLabel := HyperLabel{#NewWindow1,"DataWindow
Caption",NULL_STRING,NULL_STRING}
self:Menu := WinMenu{}
self:Accelerator := WinMenu_Accelerator{}
if (oServer = NIL)
 self:Use(MCDC{})
else
 self:Use(oServer)
endif
self:Browser := DataBrowser{self}
oDBCODICE := DataColumn{FSCDC{}}
oDBCODICE:Width := 8
oDBCODICE:HyperLabel := HyperLabel{#CODICE,"Centro di costo:","Inserire il
centro di costo.",NULL_STRING}
oDBCODICE:Caption := "Centro di costo:"
self:Browser:AddColumn(oDBCODICE)
oDBDESCRI := DataColumn{FSDESCRI{}}
oDBDESCRI:Width := 8
oDBDESCRI:HyperLabel := HyperLabel{#DESCRI,"Descrizione centro di
costo:","Inserire la descrizione del centro di costo.",NULL_STRING}
oDBDESCRI:Caption := "Descrizione centro di costo:"
self:Browser:AddColumn(oDBDESCRI)
self:ViewAs(#FormView)
self:PostInit(oWindow,iCtlID,oServer,uExtra)
return self
ACCESS mCODICE() CLASS NewWindow1
RETURN SELF:FIELDGET(#mCODICE)
ASSIGN mCODICE(uValue) CLASS NewWindow1
SELF:FIELDPUT(#mCODICE, uValue)
RETURN mCODICE := uValue
ACCESS mDESCRI() CLASS NewWindow1
RETURN SELF:FIELDGET(#mDESCRI)
ASSIGN mDESCRI(uValue) CLASS NewWindow1
SELF:FIELDPUT(#mDESCRI, uValue)
RETURN mDESCRI := uValue
ELENCO DEL CODICE CREATO DA VO NELLA IIIª FASE
CLASS NewWindow2 INHERIT DATAWINDOW
 PROTECT oDBCODICE AS DataColumn
 PROTECT oDBDESCRI AS DataColumn
 PROTECT oDCSC_CODICE AS FIXEDTEXT
 PROTECT oDCSC_DESCRI AS FIXEDTEXT
 PROTECT oDCCODICE AS SINGLELINEEDIT
 PROTECT oDCDESCRI AS SINGLELINEEDIT
 INSTANCE CODICE
 INSTANCE DESCRI
RESOURCE NewWindow2 DIALOGEX  7, 7, 322, 199
STYLE WS_CHILD
FONT 8, "MS Sans Serif"
BEGIN
 CONTROL "Centro di costo:", NEWWINDOW2_SC_CODICE, "Static", WS_CHILD, 15,
19, 60, 15
 CONTROL "Descrizione centro di costo:", NEWWINDOW2_SC_DESCRI, "Static",
WS_CHILD, 15, 38, 105, 15
 CONTROL "Centro di costo:", NEWWINDOW2_CODICE, "Edit",
ES_AUTOHSCROLL|WS_TABSTOP|WS_CHILD|WS_BORDER, 131, 19, 72, 15,
WS_EX_CLIENTEDGE
 CONTROL "Descrizione centro di costo:", NEWWINDOW2_DESCRI, "Edit",
ES_AUTOHSCROLL|WS_TABSTOP|WS_CHILD|WS_BORDER, 131, 38, 177, 15,
WS_EX_CLIENTEDGE
END
ACCESS CODICE() CLASS NewWindow2
RETURN SELF:FIELDGET(#CODICE)
ASSIGN CODICE(uValue) CLASS NewWindow2
SELF:FIELDPUT(#CODICE, uValue)
RETURN CODICE := uValue
ACCESS DESCRI() CLASS NewWindow2
RETURN SELF:FIELDGET(#DESCRI)
ASSIGN DESCRI(uValue) CLASS NewWindow2
SELF:FIELDPUT(#DESCRI, uValue)
RETURN DESCRI := uValue
METHOD Init(oWindow,iCtlID,oServer,uExtra) CLASS NewWindow2
SELF:PreInit(oWindow,iCtlID,oServer,uExtra)
SUPER:Init(oWindow,ResourceID{"NewWindow2",_GetInst()},iCtlID)
oDCSC_CODICE := FixedText{SELF,ResourceID{NEWWINDOW2_SC_CODICE,_GetInst()}}
oDCSC_CODICE:HyperLabel := HyperLabel{#SC_CODICE,"Centro di
costo:",NULL_STRING,NULL_STRING}
oDCSC_DESCRI := FixedText{SELF,ResourceID{NEWWINDOW2_SC_DESCRI,_GetInst()}}
oDCSC_DESCRI:HyperLabel := HyperLabel{#SC_DESCRI,"Descrizione centro di
costo:",NULL_STRING,NULL_STRING}
oDCCODICE := SingleLineEdit{SELF,ResourceID{NEWWINDOW2_CODICE,_GetInst()}}
oDCCODICE:FieldSpec := FSCDC{}
oDCCODICE:HyperLabel := HyperLabel{#CODICE,"Centro di costo:","Inserire il
centro di costo.",NULL_STRING}
oDCDESCRI := SingleLineEdit{SELF,ResourceID{NEWWINDOW2_DESCRI,_GetInst()}}
oDCDESCRI:FieldSpec := FSDESCRI{}
oDCDESCRI:HyperLabel := HyperLabel{#DESCRI,"Descrizione centro di
costo:","Inserire la descrizione del centro di costo.",NULL_STRING}
SELF:Caption := "DataWindow Caption"
SELF:HyperLabel := HyperLabel{#NewWindow2,"DataWindow
Caption",NULL_STRING,NULL_STRING}
SELF:Menu := WinMenu{}
SELF:Accelerator := WinMenu_Accelerator{}
IF (oServer = NIL)
 SELF:Use(MCDC{})
ELSE
 SELF:Use(oServer)
ENDIF
SELF:Browser := DataBrowser{SELF}
oDBCODICE := DataColumn{FSCDC{}}
oDBCODICE:Width := 8
oDBCODICE:HyperLabel := oDCCODICE:HyperLabel
oDBCODICE:Caption := "Centro di costo:"
SELF:Browser:AddColumn(oDBCODICE)
oDBDESCRI := DataColumn{FSDESCRI{}}
oDBDESCRI:Width := 8
oDBDESCRI:HyperLabel := oDCDESCRI:HyperLabel
oDBDESCRI:Caption := "Descrizione centro di costo:"
SELF:Browser:AddColumn(oDBDESCRI)
SELF:ViewAs(#FormView)
SELF:PostInit(oWindow,iCtlID,oServer,uExtra)
RETURN SELF

 wrote in message
818ja2$eeq$1...@fe1.cs.interbusiness.it...
