rilevante

Ho il seguente problema:

In una datawindow visualizzo il contenuto di un file dbf con un
databrowser in modo solo lettura con le seguenti istruzioni nel
Postinit:

METHOD PostInit(oWindow,iCtlID,oServer,uExtra) CLASS dtwtac
//Put your PostInit additions here
LOCAL x,i AS INT
LOCAL f AS OBJECT
LOCAL oDB,ot

SELF:dFecha:=DATE()
SELF:Caption:='Tasas de Cambio de '+W_MON_BS+' a '+W_MON_OS
SELF:Menu:PARATasas()

SELF:oBrNoFilter := Brush{Color{COLORYELLOW}}

--> self:Browser:SetStandardStyle( GBSREADONLY)

se eseguo il programma nell'IDE, non mi da nessun errore, ma quando lo
eseguo come .exe mi da:

error code 13 [NO EXPORTED METHOD]
subsystem:BASE
funtion: SEND
argument: DATALISTVIEW:SETSTANDARDSTYLE

nella linea segnalata.

Pensando che mancasse qualche dll ho copiato tutti i dll del folder \
\CAVO\BIN nel folder del .EXE ma questo non ha risolto niente.

Se elimino la linea in questione, l'errore si produce in
corrispondenza del seguente riferimento al databrowser.

Ho una applicazione simile per un altro cliente dove tutto funziona
sia in fase di prova sia nel runtime ma sinceramente non sono riuscito
a trovare nessuna differenza nella definizione della datawindow.

Una cosa che non capísco è perchè l'errore menziona DATALISTVIEW
quando in realtà è un DATABROWSER.

Grazie per qualsiasi aiuto che mi possiate dare.

Giorgio Pollarolo

UM!!! Molto strano, il metodo init puoi postarlo?

Danilo

"Giorgio Pollarolo" ha scritto nel messaggio
news:cef6

Ho il seguente problema:

In una datawindow visualizzo il contenuto di un file dbf con un
databrowser in modo solo lettura con le seguenti istruzioni nel
Postinit:

METHOD PostInit(oWindow,iCtlID,oServer,uExtra) CLASS dtwtac
//Put your PostInit additions here
LOCAL x,i AS INT
LOCAL f AS OBJECT
LOCAL oDB,ot

SELF:dFecha:=DATE()
SELF:Caption:='Tasas de Cambio de '+W_MON_BS+' a '+W_MON_OS
SELF:Menu:PARATasas()

SELF:oBrNoFilter := Brush{Color{COLORYELLOW}}

--> self:Browser:SetStandardStyle( GBSREADONLY)

se eseguo il programma nell'IDE, non mi da nessun errore, ma quando lo
eseguo come .exe mi da:

error code 13 [NO EXPORTED METHOD]
subsystem:BASE
funtion: SEND
argument: DATALISTVIEW:SETSTANDARDSTYLE

nella linea segnalata.

Pensando che mancasse qualche dll ho copiato tutti i dll del folder \
\CAVO\BIN nel folder del .EXE ma questo non ha risolto niente.

Se elimino la linea in questione, l'errore si produce in
corrispondenza del seguente riferimento al databrowser.

Ho una applicazione simile per un altro cliente dove tutto funziona
sia in fase di prova sia nel runtime ma sinceramente non sono riuscito
a trovare nessuna differenza nella definizione della datawindow.

Una cosa che non capísco è perchè l'errore menziona DATALISTVIEW
quando in realtà è un DATABROWSER.

Grazie per qualsiasi aiuto che mi possiate dare.

Giorgio Pollarolo

se stai usando una DataListView il gbs_readonly non va
è già read only la datalistview

Massimo



Il 19/01/2012 17:43, Giorgio Pollarolo ha scritto:
[..]

Non leggo nel tuo ini da nessuna parte una riga tipo:

self:Browser := DataBrowser{self}

Danilo

"Danilo Giuliani" ha scritto nel messaggio
news:30a8

UM!!! Molto strano, il metodo init puoi postarlo?

Danilo

"Giorgio Pollarolo" ha scritto nel messaggio
news:cef6

Ho il seguente problema:

In una datawindow visualizzo il contenuto di un file dbf con un
databrowser in modo solo lettura con le seguenti istruzioni nel
Postinit:

METHOD PostInit(oWindow,iCtlID,oServer,uExtra) CLASS dtwtac
//Put your PostInit additions here
LOCAL x,i AS INT
LOCAL f AS OBJECT
LOCAL oDB,ot

SELF:dFecha:=DATE()
SELF:Caption:='Tasas de Cambio de '+W_MON_BS+' a '+W_MON_OS
SELF:Menu:PARATasas()

SELF:oBrNoFilter := Brush{Color{COLORYELLOW}}

--> self:Browser:SetStandardStyle( GBSREADONLY)

se eseguo il programma nell'IDE, non mi da nessun errore, ma quando lo
eseguo come .exe mi da:

error code 13 [NO EXPORTED METHOD]
subsystem:BASE
funtion: SEND
argument: DATALISTVIEW:SETSTANDARDSTYLE

nella linea segnalata.

Pensando che mancasse qualche dll ho copiato tutti i dll del folder \
\CAVO\BIN nel folder del .EXE ma questo non ha risolto niente.

Se elimino la linea in questione, l'errore si produce in
corrispondenza del seguente riferimento al databrowser.

Ho una applicazione simile per un altro cliente dove tutto funziona
sia in fase di prova sia nel runtime ma sinceramente non sono riuscito
a trovare nessuna differenza nella definizione della datawindow.

Una cosa che non capísco è perchè l'errore menziona DATALISTVIEW
quando in realtà è un DATABROWSER.

Grazie per qualsiasi aiuto che mi possiate dare.

Giorgio Pollarolo

.... non avevo letto fino in fondo ...

evidentemente eredita da DataListView

Massimo



Il 19/01/2012 17:43, Giorgio Pollarolo ha scritto:
[..]

On 19 ene, 12:18, Massimo Bighelli <i> wrote:
> se stai usando una DataListView il gbs_readonly non va
> è già read only la datalistview
>
> Massimo
>

Massimo non sto usando una datalistview. Ti mando il metodo init della
datawindow:

method Init(oWindow,iCtlID,oServer,uExtra) class dtwtac

self:PreInit(oWindow,iCtlID,oServer,uExtra)

super:Init(oWindow,ResourceID{"dtwtac",_GetInst()} ,iCtlID)

self:Caption := "Tasas de Cambio"
self:HyperLabel := HyperLabel{#dtwtac,"Tasas de
Cambio",NULL_STRING,NULL_STRING}
self:Icon := SICOGICON{}
self:IconSm := SICOGICON{}
self:Menu := Mantenimiento{}
self:ContextMenu := Mantoesp{}
self:AllowServerClose := False
self:PreventAutoLayout := True
self:QuitOnClose := False

if !IsNil(oServer)
self:Use(oServer)
endif
self:ViewAs(#BrowseView)

self:PostInit(oWindow,iCtlID,oServer,uExtra)

return self

Grazie,

Giorgio Pollarolo

On 19 ene, 12:36, "Danilo Giuliani" <softd> wrote:
> Non leggo nel tuo ini da nessuna parte una riga tipo:
>
> self:Browser := DataBrowser{self}
>
> Danilo
>

In realtà sto specificando:

Browser inherit from: Databrowser

nella Data Windows Properties al momento del disegno.

Grazie

Giorgio

e dove sono nell'Init() le righe:


SELF:Browser := DataBrowser{SELF}
oDBCODCOM := DataColumn{13}
oDBCODCOM:Width := 13
oDBCODCOM:HyperLabel :=
HyperLabel{#CODCOM,"Commessa",NULL_STRING,NULL_STR ING}
oDBCODCOM:Caption := "Commessa"
SELF:Browser:AddColumn(oDBCODCOM)

ecc...

???



Il 19/01/2012 19:40, Giorgio Pollarolo ha scritto:
[..]

On 19 ene, 12:50, Massimo Bighelli <i> wrote:
> e dove sono nell'Init() le righe:
>
> SELF:Browser := DataBrowser{SELF}
> oDBCODCOM := DataColumn{13}
> oDBCODCOM:Width := 13
> oDBCODCOM:HyperLabel :=
> HyperLabel{#CODCOM,"Commessa",NULL_STRING,NULL_STR ING}
> oDBCODCOM:Caption := "Commessa"
> SELF:Browser:AddColumn(oDBCODCOM)
>
> ecc...
>
> ???
>


Massimo e Danilo,

ho aggiunto la riga nel metodo Init:

SELF:Browser := DataBrowser{SELF}

e ha funzionato.

Però adesso quando entro nel disegno della datawindow e esco salvando
le modifiche, il metodo init elimina la riga.

Dove sta il problema ?

Giorgio

L'Init viene sovrascritto dal WED ed è normale che le tue modifiche
spariscano.
quindi c'è qualcosa che non va
prova a ricreare il form, mettilo in BrowseView e butta dentro qualche
colonna
vedi se ha costruito bene l'Init con le righe che ti ho postato prima

Massimo


Il 19/01/2012 20:10, Giorgio Pollarolo ha scritto:
[..]