problem to erase rows of xbrowse - RESOLVED

[Silvio.Falconi]

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?

[cnavarro]

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: Select all  Expand view

 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

 

[Silvio.Falconi]

no I tried also with

Code: Select all  Expand view

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

[Silvio.Falconi]

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

[cnavarro]

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

[Silvio.Falconi]

is it a Joke ?

[Otto]

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

[nageswaragunupudi]

The best way is:

Code: Select all  Expand view

ASize( oBrw:aArrayData, 0 )
oBrw:MakeTotals()
oBrw:Refresh()
 

This is also possible

Code: Select all  Expand view

do while oBrw:nLen > 0
   oBrw:Delete()
enddo
 

[nageswaragunupudi]

The best way is:

Code: Select all  Expand view

ASize( oBrw:aArrayData, 0 )
oBrw:MakeTotals()
oBrw:Refresh()
 

This is also possible

Code: Select all  Expand view

do while oBrw:nLen > 0
   oBrw:Delete()
enddo
 

[Silvio.Falconi]

Nages,
I Wish no erase the First row of array

[FranciscoA]

Silvio, try this way.

Code: Select all  Expand view

//---------------------------//
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

[nageswaragunupudi]

Nages,
I Wish no erase the First row of array

Code: Select all  Expand view

ASize( oBrw:aArrayData, 1 )
oBrw:MakeTotals()
oBrw:Refresh()
 

[Silvio.Falconi]

good I resolved