today problem with savetodbf

[Silvio.Falconi]

I understood I have aItems of 18 field and citemflds of 19

How I can make to set aItems to 19 fields ?

[Silvio.Falconi]

'Silvio,

but before you can save a record you have to navigate to the recNo

METHOD GoTo( nRecNo )
or insert a new record.
METHOD Append()


Why don't you create a function, SAVE () and pass your data?
There you open your database again and save everything.
And then closes it.


For such a complicated task, this is more transparent.
And more secure. Commit, skip problems. More save in network enviroment.


Best regards,
Otto

after i can do everything, first i solve this problem

in the yunus.prg program Nages adds a field to aBlankItem

i have the array differently and i don't know how to add the field

[Silvio.Falconi]

Perhaps I found a solution

I add on dbf Rig_Res a field recno numeric 3cr

when I add a new service I add a new field

Code: Select all  Expand view

AaDd(oBrowse:aArrayData,{ ".\bitmaps\servizio.png"  ,;
                          "01"    ,;
                          "servizio" ,;
                          1    ,;
                          9  ,;
                          9 ,;
                           ,;
                           ,;
                            ,;
                          0  ,;
                          0  ,;
                          nInvoice ,;
                          .t. ,;
                          .t.,;
                          "",;
                          "",;
                          1    ,;
                          0,0} )
 

now the fields are 19


the I save with oRigheInvoice:ArrayToDBF( aData, cItemFlds,, .t., .t. ) and seem to run
Now I must make the edit procedure

[Silvio.Falconi]

Otto,
making the modifies this afyernoon perhaps it can run

the new record is ok
the modify record is ok

I have problems when I delete a row

on xbrowse of yunus it delete with

Code: Select all  Expand view

 :bKeyDown   := { |k| If( k == VK_DELETE, ( oBrowse:aAppend := nil, oBrowse:Delete(), 0 ), nil ) }

I insert a button at xbrowse with

Code: Select all  Expand view

WITH OBJECT oBrowse:aCols[ 12]
                      :AddBitmap({"delete.bmp","broom.png"})
                       :nBtnBmp := 1
                       :lBmpStretch     := .F.
                       :lBmpTransparent := .T.
                       :nwidth := 30
                       :nEditType := EDIT_BUTTON
                       :bEditBlock := { || oBrowse:Delete()  }
                       :nHeadBmpNo := 2
                       :cHeader := ""
                     END
 

this seem be not the same
when I save the rows
I use this

Code: Select all  Expand view

 if ! Empty( oBrowse:aDeleted )
            AEval( oBrowse:aDeleted, { |a| a[ 18 ] := -a[ 18 ] } )
             oRigheInvoice:SaveArrayToDBF( cItemFlds,oBrowse:aDeleted ) // save the delete records
          endif

If I use my method not run ok

in fact it does not delete (on dbf) the lines that I have deleted on xbrowse

[Silvio.Falconi]

OK NOW RUN OK

Code: Select all  Expand view

if ! Empty( oBrowse:aDeleted )
            AEval( oBrowse:aDeleted, { |a| a[ 19 ] := -a[ 19 ] } )
             oRigheInvoice:SaveArrayToDBF( cItemFlds,oBrowse:aDeleted ) // save the delete records
          endif
 

I AM HAPPY