Newsgroup: it.comp.lang.vo-clipper
Titolo: AIUTO AIUTO AIUTO !!!!!! - Qualcuno può aiutarmi sulla DATABROWSE. ?????

AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO
AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO
AIUTO AIUTO AIUTO AIUTO
AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO AIUTO
AIUTO AIUTO
Richiedo cortesemente il vostro aiuto.
Credo che qualcuno di voi abbia avuto la necessita di creare una DataWindows
con relativo browse richiamabile con il pulsante della Toolbar.
Ho provato, e nel primo tentativo non ho avuto alcuna difficolta. Dopo aver
creato la finestra con l'autolayout riuscivo a vedere perfettamente il
contenuto dei dati sia in formato form che browse.
In seguito ho rinominato le SingleLineEdit relativamente alla
visualizzazione in formato form e lasciando inalterata la visualizzazione
del formato browse cosě come era stata creata dall'autolayout.
Il form č stato cambiato nel seguente modo:
- Ho evidenziato le SingleLineEdit ed ho eseguito un Ctrl-C per eseguire un
copia
- Ho eliminato con Del i campi evidenziati
- Ho incollato quello che avevo appena copiato.
Bene, dopo tale attivitŕ, non riesco piů a vedere alcun valore della mia
tabella in formato browse. Sembra che non vengano generate le righe
(records) del browse, nonostante la tabella sia valorizzata. Il bianco piů
assoluto.
Ero sicuro di non riuscire a vedere alcun valore nelle SingleLineEdit
rinominate ma non mi aspettavo un comportamento cosě anomalo per quanto
diguarda le DataColumn del Browser che sono rimaste tale e quali alla prima
versione.
Il motivo di questa minima modifica č stato per verificare se la generazione
delle finestre e dei relativi browse avveniva in maniera analoga alla
versione 1.0d in quanto vorrei migrare dei vecchi applicativi scritti su
questa versione.
Ho fatto un po' di analisi sul codice che viene generato dal Windows Editor
ed ho scoperto quanto segue:
Nella versione 1.0d l'editore di finestra generava una parte di codice che
ora non viene piů generata ed in particolare una SingleLineEdit fantasma che
serviva esclusivamente per valorizzare la DataColumn.
QUALCUNO SA INDICARMI COME RISOLVERE QUESTO "PROBLEMA" ?????
GRAZIE TANTE
Mario Arienti
Quanto sotto č uno stralcio del codice:
********************************************* PRIMA VERSIONE Vo 2.5a1
**************************************
CLASS NewWindow1 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
  file://{{%UC%}} USER CODE STARTS HERE (do NOT remove this line)
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,"Codice:",NULL_STRING,NULL_STRING}
oDCSC_DESCRI := FixedText{SELF,ResourceID{NEWWINDOW1_SC_DESCRI,_GetInst()}}
oDCSC_DESCRI:HyperLabel :=
HyperLabel{#SC_DESCRI,"Descri:",NULL_STRING,NULL_STRING}
oDCCODICE := SingleLineEdit{SELF,ResourceID{NEWWINDOW1_CODICE,_GetInst()}}
oDCCODICE:FieldSpec := M_CDC_CODICE{}
oDCCODICE:HyperLabel :=
HyperLabel{#CODICE,"Codice:",NULL_STRING,"M_CDC_CODICE"}
oDCDESCRI := SingleLineEdit{SELF,ResourceID{NEWWINDOW1_DESCRI,_GetInst()}}
oDCDESCRI:FieldSpec := M_CDC_DESCRI{}
oDCDESCRI:HyperLabel :=
HyperLabel{#DESCRI,"Descri:",NULL_STRING,"M_CDC_DESCRI"}
SELF:Caption := "DataWindow Caption"
SELF:HyperLabel := HyperLabel{#NewWindow1,"DataWindow
Caption",NULL_STRING,NULL_STRING}
self:Menu := WINMENU{}
if !IsNil(oServer)
  self:Use(oServer)
else
  self:Use(M_CDC{})
endif
self:Browser := DataBrowser{self}
oDBCODICE := DataColumn{M_CDC_CODICE{}}
oDBCODICE:Width := 8
oDBCODICE:HyperLabel := oDCCODICE:HyperLabel
oDBCODICE:Caption := "Codice:"
self:Browser:AddColumn(oDBCODICE)
oDBDESCRI := DataColumn{M_CDC_DESCRI{}}
oDBDESCRI:Width := 8
oDBDESCRI:HyperLabel := oDCDESCRI:HyperLabel
oDBDESCRI:Caption := "Descri:"
self:Browser:AddColumn(oDBDESCRI)
self:ViewAs(#FormView)
self:PostInit(oWindow,iCtlID,oServer,uExtra)
return self
********************************************* SECONDA VERSIONE VO 2.5a1
*********************************
*********** IN QUESTA VERSIONE SONO STATE SOLO RINOMINATE LE SINGLE LINE
EDIT ***********
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
  file://{{%UC%}} USER CODE STARTS HERE (do NOT remove this line)
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,"Codice:",NULL_STRING,NULL_STRING}
oDCSC_DESCRI := FixedText{SELF,ResourceID{NEWWINDOW1_SC_DESCRI,_GetInst()}}
oDCSC_DESCRI:HyperLabel :=
HyperLabel{#SC_DESCRI,"Descri:",NULL_STRING,NULL_STRING}
oDCmCODICE := SingleLineEdit{SELF,ResourceID{NEWWINDOW1_MCODICE,_GetInst()}}
oDCmCODICE:FieldSpec := M_CDC_CODICE{}
oDCmCODICE:HyperLabel :=
HyperLabel{#mCODICE,"Codice:",NULL_STRING,"M_CDC_CODICE"}
oDCmDESCRI := SingleLineEdit{SELF,ResourceID{NEWWINDOW1_MDESCRI,_GetInst()}}
oDCmDESCRI:FieldSpec := M_CDC_DESCRI{}
oDCmDESCRI:HyperLabel :=
HyperLabel{#mDESCRI,"Descri:",NULL_STRING,"M_CDC_DESCRI"}
SELF:Caption := "DataWindow Caption"
SELF:HyperLabel := HyperLabel{#NewWindow1,"DataWindow
Caption",NULL_STRING,NULL_STRING}
self:Menu := WINMENU{}
if !IsNil(oServer)
  self:Use(oServer)
else
  self:Use(M_CDC{})
endif
self:Browser := DataBrowser{self}
oDBCODICE := DataColumn{M_CDC_CODICE{}}
oDBCODICE:Width := 8
oDBCODICE:HyperLabel :=
HyperLabel{#CODICE,"Codice:",NULL_STRING,"M_CDC_CODICE"}
oDBCODICE:Caption := "Codice:"
self:Browser:AddColumn(oDBCODICE)
oDBDESCRI := DataColumn{M_CDC_DESCRI{}}
oDBDESCRI:Width := 8
oDBDESCRI:HyperLabel :=
HyperLabel{#DESCRI,"Descri:",NULL_STRING,"M_CDC_DESCRI"}
oDBDESCRI:Caption := "Descri:"
self:Browser:AddColumn(oDBDESCRI)
self:ViewAs(#FormView)
self:PostInit(oWindow,iCtlID,oServer,uExtra)
return self
**** QUELLE CHE RIPORTO DI SEGUITO SONO DIFFERENZE TRA LA PRIMA E LA SECONDA
VERSIONE
File compare: 19/03/2000 15.33.28
File 1: D:\medov\WIN1.PRG     ************************  VERSIONE MODIFICATA
File 2: D:\medov\WIN2.PRG     ************************  VERSIONE ORIGINALE
SENZA MODIFICHE
Difference: File 1, lines 7 to 8
                 File 2, lines 7 to 8
  File 1 detail:
   7:   PROTECT oDCmCODICE AS SINGLELINEEDIT
   8:   PROTECT oDCmDESCRI AS SINGLELINEEDIT
  File 2 detail:
   7:   PROTECT oDCCODICE AS SINGLELINEEDIT
   8:   PROTECT oDCDESCRI AS SINGLELINEEDIT
Difference: File 1, lines 11 to 12
                 File 2, lines 11 to 10
  File 1 detail:
   11:   INSTANCE mCODICE
   12:   INSTANCE mDESCRI
  File 2 detail:
Difference: File 1, lines 27 to 33
                 File 2, lines 25 to 31
  File 1 detail:
   27: oDCmCODICE :=
SingleLineEdit{SELF,ResourceID{NEWWINDOW1_MCODICE,_GetInst()}}
   28: oDCmCODICE:FieldSpec := M_CDC_CODICE{}
   29: oDCmCODICE:HyperLabel :=
HyperLabel{#mCODICE,"Codice:",NULL_STRING,"M_CDC_CODICE"}
   30:
   31: oDCmDESCRI :=
SingleLineEdit{SELF,ResourceID{NEWWINDOW1_MDESCRI,_GetInst()}}
   32: oDCmDESCRI:FieldSpec := M_CDC_DESCRI{}
   33: oDCmDESCRI:HyperLabel :=
HyperLabel{#mDESCRI,"Descri:",NULL_STRING,"M_CDC_DESCRI"}
  File 2 detail:
   25: oDCCODICE :=
SingleLineEdit{SELF,ResourceID{NEWWINDOW1_CODICE,_GetInst()}}
   26: oDCCODICE:FieldSpec := M_CDC_CODICE{}
   27: oDCCODICE:HyperLabel :=
HyperLabel{#CODICE,"Codice:",NULL_STRING,"M_CDC_CODICE"}
   28:
   29: oDCDESCRI :=
SingleLineEdit{SELF,ResourceID{NEWWINDOW1_DESCRI,_GetInst()}}
   30: oDCDESCRI:FieldSpec := M_CDC_DESCRI{}
   31: oDCDESCRI:HyperLabel :=
HyperLabel{#DESCRI,"Descri:",NULL_STRING,"M_CDC_DESCRI"}
Difference: File 1, lines 48 to 48
                 File 2, lines 46 to 46
  File 1 detail:
   48: oDBCODICE:HyperLabel :=
HyperLabel{#CODICE,"Codice:",NULL_STRING,"M_CDC_CODICE"}
  File 2 detail:
   46: oDBCODICE:HyperLabel := oDCCODICE:HyperLabel
Difference: File 1, lines 54 to 54
                 File 2, lines 52 to 52
  File 1 detail:
   54: oDBDESCRI:HyperLabel :=
HyperLabel{#DESCRI,"Descri:",NULL_STRING,"M_CDC_DESCRI"}
  File 2 detail:
   52: oDBDESCRI:HyperLabel := oDCDESCRI:HyperLabel
********* CODICE GENERATO DALLA VERSIONE VO 1.0d PERFETTAMENTE FUNZILONANTE
*************
CLASS newwindow INHERIT DATAWINDOW
 INSTANCE  oDBCODICE
 INSTANCE  oDBDESCRI
 PROTECT oDCmCODICE AS SINGLELINEEDIT
 PROTECT oDCSC_CODICE AS FIXEDTEXT
 PROTECT oDCCODICE AS SINGLELINEEDIT
 PROTECT oDCmDESCRI AS SINGLELINEEDIT
 PROTECT oDCSC_DESCRI AS FIXEDTEXT
 PROTECT oDCDESCRI AS SINGLELINEEDIT
 INSTANCE mCODICE
 INSTANCE CODICE
 INSTANCE mDESCRI
 INSTANCE DESCRI
 file://USER CODE STARTS HERE (do NOT remove this line)
METHOD INIT(oWindow,iCtlID,oServer) CLASS newwindow
LOCAL DIM aFonts[1] AS OBJECT
SELF:PreInit()
SUPER:init(oWindow,ResourceID{"newwindow",_GetInst()},iCtlID)
aFonts[1] := Font{,8,"MS Sans Serif"}
aFonts[1]:Bold := TRUE
SELF:ChangeFont(aFonts[1], FALSE)
oDCmCODICE := SingleLineEdit{SELF,ResourceID{NEWWINDOW_MCODICE,_GetInst()}}
oDCmCODICE:FieldSpec := M_CDC_CODICE{}
oDCmCODICE:HyperLabel :=
HyperLabel{#mCODICE,"Codice:",NULL_STRING,"M_CDC_CODICE"}
oDCSC_CODICE := FixedText{SELF,ResourceID{NEWWINDOW_SC_CODICE,_GetInst()}}
oDCSC_CODICE:HyperLabel :=
HyperLabel{#SC_CODICE,"Codice:",NULL_STRING,NULL_STRING}
oDCCODICE := SingleLineEdit{SELF,NEWWINDOW_CODICE,Point{0,0},Dimension{0,0}}
oDCCODICE:FieldSpec := M_CDC_CODICE{}
oDCCODICE:HyperLabel :=
HyperLabel{#CODICE,"Codice:",NULL_STRING,"M_CDC_CODICE"}
oDCmDESCRI := SingleLineEdit{SELF,ResourceID{NEWWINDOW_MDESCRI,_GetInst()}}
oDCmDESCRI:FieldSpec := M_CDC_DESCRI{}
oDCmDESCRI:HyperLabel :=
HyperLabel{#mDESCRI,"Descri:",NULL_STRING,"M_CDC_DESCRI"}
oDCSC_DESCRI := FixedText{SELF,ResourceID{NEWWINDOW_SC_DESCRI,_GetInst()}}
oDCSC_DESCRI:HyperLabel :=
HyperLabel{#SC_DESCRI,"Descri:",NULL_STRING,NULL_STRING}
oDCDESCRI := SingleLineEdit{SELF,NEWWINDOW_DESCRI,Point{0,0},Dimension{0,0}}
oDCDESCRI:FieldSpec := M_CDC_DESCRI{}
oDCDESCRI:HyperLabel :=
HyperLabel{#DESCRI,"Descri:",NULL_STRING,"M_CDC_DESCRI"}
SELF:Caption := "DataWindow Caption"
SELF:HyperLabel := HyperLabel{#newwindow,"DataWindow
Caption",NULL_STRING,NULL_STRING}
SELF:Menu := WINMENU{SELF}
SELF:Accelerator := WINMENU_ACCELERATOR{}
IF (oServer = NIL)
 SELF:Use(M_CDC{})
ELSE
 SELF:Use(oServer)
ENDIF
SELF:Browser := newwindow_DataBrowser{SELF}
oDBCODICE := DataColumn{M_CDC_CODICE{}}
oDBCODICE:Width := 8
oDBCODICE:HyperLabel := oDCCODICE:HyperLabel
oDBCODICE:Caption := "Codice:"
SELF:Browser:AddColumn(oDBCODICE)
oDBDESCRI := DataColumn{M_CDC_DESCRI{}}
oDBDESCRI:Width := 8
oDBDESCRI:HyperLabel := oDCDESCRI:HyperLabel
oDBDESCRI:Caption := "Descri:"
SELF:Browser:AddColumn(oDBDESCRI)
SELF:ViewAs(#FormView)
SELF:PostInit()
RETURN SELF

scusami tanto ma... a me non č mai successo.
Fossi in te farei rigenerare il browse ex novo (se non addirittura la
finestra) mi sembra la via piů semplice e rapida.

 wrote in message
8b8bqc$von$1...@lacerta.tiscalinet.it...
