Search found 31 matches: ntipo

Return to advanced search

Re: delete identical records

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 ...
by Silvio.Falconi
Wed Nov 02, 2022 10:55 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: delete identical records
Replies: 6
Views: 350

Re: delete identical records

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 ...
by Silvio.Falconi
Wed Nov 02, 2022 10:05 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: delete identical records
Replies: 6
Views: 350

Re: delete identical records

...              //    {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)      ...
by Silvio.Falconi
Wed Nov 02, 2022 8:32 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: delete identical records
Replies: 6
Views: 350

Re: Copy structure or create new file dbf

... ) ] .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( ...
by Silvio.Falconi
Thu Jun 09, 2022 7:42 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Copy structure or create new file dbf
Replies: 8
Views: 576

Strange array/ oDbf

... aData2_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 change ...
by Silvio.Falconi
Mon May 30, 2022 11:01 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Strange array/ oDbf
Replies: 0
Views: 127

Problem with conversion Image on W7

... 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) Function ...
by Silvio.Falconi
Sat May 16, 2020 4:02 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Problem with conversion Image on W7
Replies: 7
Views: 773

Re: uan con GET ... VALID

... 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 ...
by gautxori
Thu Apr 07, 2016 6:05 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: uan con GET ... VALID
Replies: 9
Views: 2056

Re: Borland7 versus VisualStudio

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 ...
by cnavarro
Sat Mar 19, 2016 9:29 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Borland7 versus VisualStudio
Replies: 35
Views: 9360

Re: Borland7 versus VisualStudio

... a la siguiente versión de FWH64 para tener los cambios "oficializados" :D 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 ...
by JmGarcia
Fri Mar 18, 2016 11:56 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Borland7 versus VisualStudio
Replies: 35
Views: 9360

Re: Borland7 versus VisualStudio

... 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". ...
by JmGarcia
Fri Mar 18, 2016 7:14 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Borland7 versus VisualStudio
Replies: 35
Views: 9360

Re: Empezando con ADO

... 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, ...
by cnavarro
Thu Oct 03, 2013 7:14 pm
 
Forum: Off Topic / Otros temas
Topic: Empezando con ADO
Replies: 48
Views: 17698

Re: DiskSpace(), algun elemplo?

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 ...
by compubrion
Sun Jun 30, 2013 6:47 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: DiskSpace(), algun elemplo?
Replies: 2
Views: 692

Re: DIALOG ON DIALOG

... incremental 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://img560.imageshack.us/img560/8918/calcn.jpg ...
by Silvio.Falconi
Tue May 07, 2013 9:16 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: DIALOG ON DIALOG
Replies: 8
Views: 3025

Re: cmxAutoOpen

... @dDataFine,@cCodAutorita,@cAutorita,@cSede,@cNumCausa,@nValore,@nTipo,@nDifficolta,; @cCodStato,@cStato,@dUltUdienza,@dProssUdienza,@mNote,@cCodPratica,@nRif,; @cNomeGiudice,@cCodice,@lVisColl,@lVisSegr,@aLegali,@aCodLegali,@cLegale,; ...
by Salvo1087
Wed Jan 26, 2011 11:21 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: cmxAutoOpen[solved]
Replies: 19
Views: 4589

Re: TDOSPRN y XP WINDOWS - SOLUCIONADO

... METHOD PrintSetup() CLASS TDosPrn local oDlg, oRad, oChk, oSay := array(3) local nModo := 1 local nLinP := ::nLength, lPreview := .f. local nTipo, oP := self local oBtnOk, oBtnCn, oBtnSetup, oBtnAtrib, cModoImp ::lCancel := .t. // cerramos el puerto que se abrio al principio if (::hDC # ...
by Armando Picon
Mon Jan 24, 2011 8:50 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: TDOSPRN y XP WINDOWS
Replies: 21
Views: 4648
Next

Return to advanced search