FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour problem to erase rows of xbrowse - RESOLVED
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
problem to erase rows of xbrowse - RESOLVED
Posted: Thu Nov 21, 2019 11:07 AM
I must erase all rows of a xbrowse ( array) but not the first rows I made

For n=1 to Len(oBrowse:aArrayData)
IF ! n = 1 // oBrowse:nArrayAt = 1
ADel( oBrowse:aArrayData, n, .t. )
oBrowse:MakeTotals()
oBrowse:Refresh()
CalcoloTotali2(oBrowse,aGet,@nSconto,@nSubtotale,@nTotale)
endif
next

but erase only the last row

how I can resolve i t?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: problem to erase rows of xbrowse
Posted: Thu Nov 21, 2019 11:31 AM
Silvio.Falconi wrote:I must erase all rows of a xbrowse ( array) but not the first rows I made

For n=1 to Len(oBrowse:aArrayData)
IF ! n = 1 // oBrowse:nArrayAt = 1
ADel( oBrowse:aArrayData, n, .t. )
oBrowse:MakeTotals()
oBrowse:Refresh()
CalcoloTotali2(oBrowse,aGet,@nSconto,@nSubtotale,@nTotale)
endif
next

but erase only the last row

how I can resolve i t?


This not run ?
Code (fw): Select all Collapse
 For n=1 to Len(oBrowse:aArrayData)
    IF ! n = 1 // oBrowse:nArrayAt = 1
           //ADel( oBrowse:aArrayData, n, .t. )
           oBrowse:SetPos( 2, 1 )
           oBrowse:Delete()
           //oBrowse:MakeTotals()
           //oBrowse:Refresh()
           CalcoloTotali2(oBrowse,aGet,@nSconto,@nSubtotale,@nTotale)
         endif
       next
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: problem to erase rows of xbrowse
Posted: Thu Nov 21, 2019 12:12 PM
no I tried also with

Code (fw): Select all Collapse
Static Function DeleteAllRows( oBrowse,aGet )
   Local n
   if msgYesNo( i18n("¿ E' sicuro che devo cancellare tutto ?") )
    if ! Empty( oBrowse:aArrayData )
       For n=1 to Len(oBrowse:aArrayData)
          IF ! n = 1
              oBrowse:SetPos( n, 1 )
           oBrowse:Delete()
         //  ADel( oBrowse:aArrayData, n, .t. )
         // oBrowse:MakeTotals()
         // oBrowse:Refresh()
          //CalcoloTotali2(oBrowse,aGet,@nSconto,@nSubtotale,@nTotale)
         endif
       next n
     Endif
Endif

return nil
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: problem to erase rows of xbrowse
Posted: Thu Nov 21, 2019 12:20 PM

Cristobal
on oldest function run ok

Static Function DeleteAllRows( oBrowse,aGet )
if msgYesNo( i18n("¿ E' sicuro che devo cancellare tutto ?") )
if ! Empty( oBrowse:aArrayData )
aSize( oBrowse:aArrayData, 0 )
oBrowse:Refresh()
oBrowse:MakeTotals()
CalcoloTotali(oBrowse,aGet)
endif
Endif
return nil

but it erase all records
I wish no erase the first row

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: problem to erase rows of xbrowse
Posted: Thu Nov 21, 2019 01:36 PM

Add the first line again
Add (oBrowse: aArrayData, {...................})

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: problem to erase rows of xbrowse
Posted: Thu Nov 21, 2019 03:17 PM

is it a Joke ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Otto
Posts: 6983
Joined: Fri Oct 07, 2005 07:07 PM
Re: problem to erase rows of xbrowse
Posted: Thu Nov 21, 2019 06:06 PM

Silvio, I will remember that xBrowse needs a minimum of 1 entry.
Regards,
Otto

nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: problem to erase rows of xbrowse
Posted: Thu Nov 21, 2019 07:29 PM
The best way is:
Code (fw): Select all Collapse
ASize( oBrw:aArrayData, 0 )
oBrw:MakeTotals()
oBrw:Refresh()


This is also possible
Code (fw): Select all Collapse
do while oBrw:nLen > 0
   oBrw:Delete()
enddo
Regards



G. N. Rao.

Hyderabad, India
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: problem to erase rows of xbrowse
Posted: Thu Nov 21, 2019 07:29 PM
The best way is:
Code (fw): Select all Collapse
ASize( oBrw:aArrayData, 0 )
oBrw:MakeTotals()
oBrw:Refresh()


This is also possible
Code (fw): Select all Collapse
do while oBrw:nLen > 0
   oBrw:Delete()
enddo
Regards



G. N. Rao.

Hyderabad, India
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: problem to erase rows of xbrowse
Posted: Thu Nov 21, 2019 09:06 PM

Nages,
I Wish no erase the First row of array

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: problem to erase rows of xbrowse
Posted: Thu Nov 21, 2019 11:43 PM
Silvio, try this way.
Code (fw): Select all Collapse
//---------------------------//
function Borrando(aArray,oBrw)
local n
oBrw:nArrayAt := 2
For n := 2 to oBrw:nLen
   ADel( aArray, oBrw:nArrayAt, .f. )
   ASize(aArray,1)
   oBrw:Refresh()
Next
Return nil
Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: problem to erase rows of xbrowse
Posted: Fri Nov 22, 2019 02:39 AM
Silvio.Falconi wrote:Nages,
I Wish no erase the First row of array


Code (fw): Select all Collapse
ASize( oBrw:aArrayData, 1 )
oBrw:MakeTotals()
oBrw:Refresh()
Regards



G. N. Rao.

Hyderabad, India
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: problem to erase rows of xbrowse
Posted: Sat Nov 23, 2019 10:14 AM

good I resolved

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Continue the discussion

Static archive · New replies & topics via GitHub Discussions