FiveTech Software tech support forums

... DIALOG oDlg CENTERED ON INIT oMemo:SetFocus()

oFont:End()

RETURN NIL

FUNCTION SET_COLOR( oMemo, nColor )

LOCAL oIni, oBrush, oBmp
LOCAL nTipo, cStyle, cFile, cLogo, nRow, nCol, lSelect

nColor := ChooseColor()

oMemo:SetColor( nColor, CLR_WHITE )
oMemo:Refresh()

RETURN( nColor ...

... lines

when I switch to mode 2 and previously I used mode 1 I still see the vertical lines in the browse how can I not see the excessive lines?


nTipo =1

https://i.postimg.cc/J72hLLF6/primo.png

ntipo =2

https://i.postimg.cc/TPfd9Yyw/secondo.png



when I set ntipo1 I declare local ...

sorry my error

Now only with local nValore:= 6
local nTipo := 3


run ok
For n= 1 to 90
For k= 1 to 90
For j= 1 to 90
nTotale := Calcolo_3_numeri(n,k,j,ntipo)
If nTotale=nvalore
nAt := AScan( aTmp, { |a| a[1] = k .and. a[2] = n .or. a[3] = j } )
If nAt == 0
aadd(aTmp,{n,k,j})
Endif ...

change into

For n= 1 to 90
For k= 1 to 90
For j= 1 to 90
nTotale := Calcolo_3_numeri(n,k,j,ntipo)
If nTotale=nvalore
nAt := AScan( aTmp, { |a| a[1] = j .and. a[2] = k .or. a[3] = n} )
If nAt == 0
aadd(aTmp,{n,k,j})
Endif
Endif
next
next
next

the calc is fast but is also bad because ...

... 1,88,2},{2,1,88},{2,3,86},{2,4,85},;
// {2,5,84},{1,2,88},{2,6,83},{2,7,82},{2,8,81},{2,9,80},{2,10,79}}

local ntotale
local nValore:= 1
local nTipo := 1

For n= 1 to 90
For k= 1 to 90
For j= 1 to 90
nTotale := Calcolo_3_numeri(n,k,j,ntipo)
If nTotale=nvalore
aadd(aTmp,{n,k,j})
Endif ...

... FIELD->DATA ) ] .AND. ;
aCountGiorni[ DOW( FIELD->DATA ) ] .AND. ;
aCountDate[ DAY( FIELD->DATA ) ] )
return nil
> )

oLotto:gobottom()

If nTipo=2

atempDbf:= oLotto:DbfToArray()
oVirtuale:=TDatabase():Open( , cDir+"Virtuale", "DBFCDX", .T. )
oVirtuale:SetOrder( 0 )
oVirtuale:ArrayToDBF ...

... array()

......

ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ( Refresh_data2(oDbf,oSay,oBrw2,nRadio),; //this call Crea_data2(oDbf,nRecord,oBrw2, nTipo )
Refresh_data1(oDbf,oBrw1,adataDbf),; // this call Crea_data1(adata,nRecord,oDbf,oBrw1)
aGet[7]:nHeight:=21.2,;
Eval(oDlg:bResized) )



If I ...

... not Know why ...


to create jpg from Png I made
hBmp := FW_ReadImage( nil, cFile )[ 1 ]
hNew := FW_TransformBitmap( hBmp, NIL, 40)
ext:= aExt[ntipo]
cNewfile:= cFolderTemp+cNewName+ext
FW_SaveImage( hBmp,cNewfile ,90)

then to converte jpg to BMP I made

cFileBmp:= savetobmp(cfileJpg ...

... ID 105 OF oDDAbmLin
REDEFINE GET oImport VAR nImport PICTURE "@E 999,999,999.99" ID 106 OF oDDAbmLin VALID Importe()
REDEFINE GET oTipo VAR nTipo PICTURE "@E 99.99" ID 107 OF oDDAbmLin VALID (G_Linea(),.t.)
REDEFINE GET oNumasi VAR cNumasi ID 101 OF oDDAbmLin ReadOnly
REDEFINE BUTTON ...

Solo un dato curioso en 64 bits.
Si inicializo la variable nTipo a un valor negativo (manía que tengo para según que casos) como por ejemplo -1 el resultado de nTipo una vez ejecutada la función GetBinaryType es un número exageradamente grande de signo negativo. Si inicializo a cero u otro valor ...

... Esperaremos a la siguiente versión de FWH64 para tener los cambios "oficializados"

Solo un dato curioso en 64 bits.
Si inicializo la variable nTipo a un valor negativo (manía que tengo para según que casos) como por ejemplo -1 el resultado de nTipo una vez ejecutada la función GetBinaryType es ...

... me genera GPF, pero no devuelve el valor correcto ( 6 ), devuelve 0
Cristóbal,

Si inicializas la variable con un valor distinto de CERO (ejemplo nTipo:= - 1) podrás comprobar si al pasarla por referencia se cambia el valor, probablemente ni siquiera funcione la "llamada a la función".

A mi me ha ...

... de la Tabla
cTipo, ; // Tipo de campo -> Estilo DBF
nLen, ; // Longitud
nDec, ; // Decimales
Upper(cTipoEx), ; // Tipo de Campo -> ADO
nTipo } ) // Nº del Tipo de Campo -> ADO

2.- He creado la tabla a partir de una estructura de un .DBF

Function StructConect( oConexion, oCat ...

DISKSPACE()
Obtiene la cantidad de espacio disponible en el disco
Syntax
DISKSPACE( [<nDisco>] [, <nTipo>] ) --> nDiskbytes
Arguments
<nDrive> es el número de disco del que esta solicitando información donde 1
= A, 2 = B, etc, Si se especifica cero ó ningún parametro DISKPACE() trabaja sobre
la unidad ...

... and decremental I need it to calculate Tax on a price


First
I first I made a function to change the size of dialog called allarge(oDlg,ntipo)

nTipo can be 1 to second dlg size and 2 to return to first size

when I have the msgcalc I have :

http&#58;//img560&#46;imageshack&#46;us ...