FiveTech Software tech support forums

... CLR_HGRAY } } :bClrStd := {|| IIf( oBrw:KeyNo() % 2 == 0, { CLR_BLACK, RGB( 198, 255, 198 ) }, { CLR_BLACK, RGB( 232, 255, 232 ) } ) } END AEval( oBrw:aCols, {|o| o:nHeadStrAlign := AL_CENTER, o:oDataFont := aFont[1]} ) oBrw:CreateFromCode() oWnd:oClient := oBrw BrwBtnBar( oBrw ) WaitOff( ...

LOCAL xPath := "C:\PDF\" * --- Elimina File che Iniziano con CLI_...PDF AEVAL(DIRECTORY(xPath + "CLI_*.PDF"),{|aFile|FERASE(xPath + aFile[F_NAME])} ) nel tuo comando : cFILE := ALLTRIM( aDIR[i][1] ) fai un display della variabile cFILE se comprende ...

... 11:06:45 Error description: Error BASE/1004 Metodo non disponibile: LCHANGED Args: [ 1] = U This error means that oGet is NIL Nages, I tried with Aeval( aGet, { | o | if(o != nil .and. o:IsKindOf( "TGET" ) .and. o:lChanged,lAsk := .t.,.f.) } ) //this give me allways .t. #include"fivewin.ch"Function ...

//aGet lAsk:= Aeval( aGet, { | o | o:lChanged } ) or Aeval( aGet, { | o | if(o:lChanged,lAsk := .t.,.f.) } ) give me error Error description: Error BASE/1004 No exported method: LCHANGED Args: [ 1] = U Stack Calls =========== Called ...

... oDlg:end( IDCANCEL ) )       *  bCheck:= { || lSave:= IIF(Msgyesno("I must save ?"),.t.,.f.), oDLG:AEvalWhen(), .t. }AEval( aGet, { |o| o:bChange :=  bCheck } )ACTIVATE DIALOG oDLG CENTER ON INIT EVAL(bCheck)IF ...

... field as it is done on yunus.prg If I add and delete, a number is not inserted So we arrived at this conclusion which seems to work AEval( oBrowse:aDeleted, { |a| IF(a[ 32 ] ==0, a[32] := len(oBrowse:aDeleted),nil) } ) also because the programmer checked for days the exact correspondence ...

Thanks !

Dear Yuri,

Use AScan() instead of AEval()

Hi,

Is it possible to interrupt the execution of the aeval() function by condition ?

... procedure where all deleted invoice items will be erased for sure ? Before save this code is done in Yunus. if ! Empty( oBrw:aDeleted ) AEval( oBrw:aDeleted, { |a| a[ 9 ] := -a[ 9 ] } ) IIT->( FW_SaveArrayToDBF( cItemFlds, oBrw:aDeleted ) ) endif What is the AEval doing ?

... oCol XBrowse provides a much easier way. No need for using "for each oCol in :aCols" or "AEval( :aCols.", etc. WITH OBJECT oBrw      :bOnPreEdits := { | oCol, xVal, nKey | IIF(nSaldo <= 0,MsgStop("No hay más autobuses ...

... solucionó el error en tiempo de ejecucion return IfNil( cContents, "" ) local cDefault := MEMOREAD( "c:\fwh\bitmaps\sea.bmp" ) AEval( aCols, { |a,i| a[ 4 ] := WebPageContents( a[ 4 ] ), ; If( Empty( a[ 4 ] ), a[ 4 ] := cDefault, nil ) } ) Esto muestra solamente la primer foto ...

Dear Marc,

AEval( Directory( "*.prg" ), { | aFile | CopyFile( aFile[ 1 ], "path\" + aFile[ 1 ] ) } )

... (aacciones[i][7]),; oBar,; ,; ,; {aAcciones[i][6],aAcciones[i][2]},; ,; ,; (aacciones[i][4]),; ,; (aacciones[i][3]),; ,; ,; ,; .F. ) next AEVAL(oBar:aControls,{|o,n|o:SetColor(CLR_BLACK,CLR_BLUE)}) oBar:bPainted := {|| oBar:SayText( "Prueba", nil, "R" ) } //* los 2 ...

...  ENDIF   IF ! Empty( aValues )      IF AScan( aValues, {|x| Valtype(x) <> "O" } ) > 0         AEval( aValues, {|x,i| x:=FieldGet(i) },,, .T. )      ELSE         AEval( aValues, {|o| o:setData() } ...