FiveTech Software tech support forums

... that I have already done for many years it is possible to use ( oDlg:end( IDOK ) ) and ( oDlg:end( IDCANCEL ) ) ? and use IF oDlg:nresult == IDOK orec:save() ENDIF if I have to change all the insertion dialogs to check the get controls with the lsave variable I prefer not to do it, I waste years ...

... 32 ] } )            oDbfMod:SaveArrayToDBF( cItemFlds, oBrowse:aDeleted )         endif save on first record the code (oRec:codRep) and save on 29 record the counter "00001" AEval( aDataForm, { |a| a[ 1 ] := oRec:codRep } )        ...

hi, thx for Answer Please copy the method SavePQQ() to a separate function "MySavePQQ( oRec )" in your program and make the changes you need. i can use your Sample with XBROWSE and :bLDblClick for "save" ok, i will try that Way --- instead of XBROWSER ...

If you want to change the logic of the method SavePQQ(), please do this way. oRec := TDataRow():New( oRs, [lAppend] )oRec:bSave := { |oRec| MySavePQQ( oRec ) }oRec:Edit() Please copy the method SavePQQ() to a separate ...

... two fields as well, because now the function does not work correctly the search in the Nages function was cSearch := oDbf:ApplyParams( cSearch, { oRec:rooms_id, oRec:type, oRec:RecNo, ; oRec:check_out, oRec:check_in } ) now I don't understand if adding the other parameters can work cSearch := ...

... { || youreditfunction() } :CreateFromCode() END You can always make your own editdialog in all style you like. We recommend oBrw:bEdit := { |oRec| OurEditFunction( oRec ) oRec is TDataRow object function OurEditFunction( oRec )   local lAppending := ( oRec:RecNo ...

Instead of GetRowObj(), use oRec := oQry:Record() // returns FW_Record/TDataRow Object  You may edit the oRec object using oRec:FieldName in the Gets,etc/ Instead of GetBlankRow(), use oRec := oQry:Record( .t. ) // ...

... without Tax: 25.05 Price with tax: 29.81 ( amount) Tax import: 4.76 How i can to implement this on yunus ? I modified on function EditInvoice( oRec ) I add this line before the xbrowse bCalcRow := { || (TotalRow(oBrw),  oBrw:RefreshFooters(), oDlg:Update() ...

... up memory for each copy. Please read the class definition again. database object and they would have to have different names oDbf:bEdit := { |oRec| MyNewEdit( oRec ) } oDbf:Edit()

... in each btnbmp I have saved some information in cargo such as the INVOICE reservation number So I cannot open function Edit_Reservation( oRec ) because I not have oRec on my function of edit reservation I have oPrenotazioni := TReserva():New() oRecPrenota:=oPrenotazioni:record(.t.) // ...

... OTTO, I use another function Please see YUNUS.prg search static function EditInvoice( oRec ) .... if ! Empty( oBrw:aDeleted ) AEval( oBrw:aDeleted, { |a| a[ 9 ] := -a[ 9 ] } ) IIT->( FW_SaveArrayToDBF( cItemFlds, oBrw:aDeleted ) ) ...

... it in yunus' editinvoice function I saw that to load the records you do this aItems := IIT->( FW_DbfToArray( cItemFlds, { || IIT->INVNUM == oRec:InvNum } ) ) I changed this line static cItemFlds := "INVNUM,SERIAL,ITEMCODE,ITEMNAME,QUANTITY,UNIT,PRICE,DISCOUNT,RECNO()" into static ...

Damiano, Please post the complete code for function EditDialog( oRec ) It seems as oDlg:oBrush has been changed to nil This little example works fine here, thats why I need to review your code: #include "FiveWin.ch"function Main()  ...

hi Antonio, thank you. Now I have another error. I'm try to modify dialogscroll.prg in samples folder and I added another editdialog(oRec) istruction: //----------------------------------------------------------------------------//function Main()   local oRec   SetGetColorFocus()  ...

... directamente. Hago : oSql:= oCon:Query( "SELECT * FROM articulos" ) ? oSql:lreadonly --> .f. Luego del :Requery() si lo edito : oRec:= TDataRow():New( ::oSql ) ? oRec:lReadonly, oRec:uSource:lReadOnly ---> .t., .t. por que hace esto ???