FiveTech Software tech support forums

...   else        msgalert("ERROR EN LA IMPORTACION","ATENCION")        endif        oExcel:Quit()Retu Nil Cuando importo ficheros slk me da el siguiente error: https://live.staticflickr.com/65535/50149943158_695f2aca56_w.jpg Si pincho en No, todo ...

Hola Sr. Navarro Ejecuto Fivedit, importo un proyecto desde Verce y cuando elijo solo compilar me arroja lo siguiente: Harbour 3.2.0dev (r1703231115) Copyright (c) 1999-2016, http://harbour-project.org/ Compiling 'c:\disco-d\disco-d\programs\colegiobh\prg\COLEGIO.prg' ...

... { || MV->causale } oCol:cHeader := i18n( "Causale" ) oCol:nWidth := 200 oCol := oBrowse:AddCol() oCol:bStrData := { || round(MV->importo,2) } oCol:cHeader := i18n( "Importo Totale" ) oCol:nWidth := 150 oCol:nDataStrAlign := AL_RIGHT oCol:cEditPicture := PictEuros() oCol:lTotal ...

Hi.
With the function changed like this, I have this result :

IMPORTO = L2BIN( NDBL2FLT( 0 ))
nReturn = AdsGetDouble(handle, "IMPORTO", @IMPORTO)
msginfo(NFLT2DBL(IMPORTO), str(nReturn))

Hi Enrico.
With this code I have this result :

IMPORTO = L2BIN( NDBL2FLT( 0 ))
nReturn = AdsGetDouble(handle, "IMPORTO", @IMPORTO)
msginfo(IMPORTO, str(nReturn))

Massimo Linossi wrote:Placing a replicate(chr(0),8) in the importo variable I have the same result.

Probably it's not the right binary representation for 0 double value the function is expecting. There is any mention in the docs about the expected double format?

EMG

Placing a replicate(chr(0),8) in the importo variable I have the same result. Looking inside the ADS documentation I found this : AdsGetLong Retrieves the long integer value from the given field. Syntax UNSIGNED32 AdsGetLong (ADSHANDLE hTable, ...

Hi Enrico. With this code nReturn is 0 (correct) but IMPORTO is -343597384 IMPORTO = "0.00" nReturn = AdsGetDouble(handle, "IMP_FORN", @IMPORTO) msginfo(IMPORTO, str(nReturn)) IMPORTO = "0.00" is not correct. This is a ...

Hi Enrico.
With this code nReturn is 0 (correct) but IMPORTO is -343597384

IMPORTO = "0.00"
nReturn = AdsGetDouble(handle, "IMP_FORN", @IMPORTO)
msginfo(IMPORTO, str(nReturn))

Hi.
Now there is no error but I get a strange result.
Inside the table field the value is 729.29 but with this code I get -343597384

value = 0.00
AdsGetDouble(handle, "IMPORTO", @value)
msginfo(value)

Many thanks for your help.
Massimo

... "Desc", "Precio", "Importe" ; HEADERS "Qta", "Descrizione", "Prezzo", "Importo" ; COLSIZES 30, 170, 60, 60 ; PICTURES "999,999", nil, "999.99", "999.99" ; NOBORDER ; FONT oFntBrow STYLE ...

... ,i18n("Ritenuta") ,nil ,80 },; { "PAIVA" ,i18n("Iva") ,"99%" ,36 },; { "PATOTALE" ,i18n("Importo") ,pict_money_Euro ,80 }} @ 0, 0.2 XBROWSE oBrw ; OF oFld:adialogs[1] DATASOURCE "TB" ; COLUMNS aBrowse CELL LINES FOOTERS NOBORDER ...

... ,i18n("Ritenuta") ,nil ,80 },; { "PAIVA" ,i18n("Iva") ,"99%" ,36 },; { "PATOTALE" ,i18n("Importo") ,pict_money_Euro ,80 }} @ 0, 0.2 XBROWSE oBrw ; OF oFld:adialogs[1] DATASOURCE "TB" ; COLUMNS aBrowse CELL LINES FOOTERS NOBORDER ...

... button .... action lRitenuta:=IF(lRitenuta,.f.,.t.),; oBrw:aCols[8]:lHide:=!lRitenuta, oBrw:refresh() the problem : I not see the last header of Importo and I wish if it possble check all when the user set the lritenuta

... you want to display in the inserted column and what other column you want to change and refresh. If you just want to display 20% of the value in Importo column, you can do this ADD TO oBrw AT 8 DATA (oBrw:Importo:Value * 0.20) TITLE "New" PICTURE "9999.99" If you want some ...