FiveTech Software tech support forums

... .5 LISTBOX oLbx FIELDS "Folio: " + Transform(oRecordSet:Fields("Id"):value,"9999") + CRLF + "Codigo:" + IIF(oRecordSet:Fields("Codigo"):value=NIL,"",Transform(oRecordSet:Fields("Codigo"):value,"99999")) + CRLF + ...

... := AL_CENTER // alinea al centro las cabeceras de columnas // defino colores de los registros en el browse oBrw:bClrStd := {|| { iif(empty(_ActxCoe->FecAct),CLR_GREEN,CLR_RED),CLR_WHITE } } oBrw:bclrSel := {|| { iif(empty(_ActxCoe->FecAct),CLR_GREEN,CLR_RED),CLR_WHITE } ...

Excelente ernesto!!

Aún puedes mejorar ese código si usas iif y or preguntando por la existencia de los archivos y cambiando el suiche todo en una sola linea

... make this @ 16, 5 SCROLLBAR oScrollDbf HORIZONTAL SIZE 425,10 PIXEL OF oDlg ; RANGE 1,ntotal_records ; ON DOWN ( nSec := SECONDS() , oDbf:Skip(), IIf( oDbf:EoF(), oDbf:GoBottom(),),; Refresh_Say(oSay,oDbf) ,; Refresh_data1(.....),; Refresh_data2(....), Msginfo(SECONDS() - nSec )) ; ON UP (nSec ...

... look good commercially. Could you, just for the sake of testing uncomment ALL items that have to do with the looks ? like oLbx:nClrPane := { || IIF( ( oLbx:cAlias )->( OrdKeyNo() ) %2 == 0, ; CLR_LGREEN, CLR_LGRAY ) } and all others. Just to see if you get more speed and then turn on step ...

... := n Nages, on first column I made :aCols[1]:nEditType := EDIT_LISTBOX :aCols[1]:aEditListTxt := acOperators :aCols[1]:bEditBlock := { |r,c|IIF(oBrwFilter:nArrayAt = 1,MsgInfo("not"),) } I not want the end use can select the combobox if is on first line ( SEE THE PICTURE) https://i.postimg.cc/4NbFm215/filter.jpg

...  END for the first column I wish it not show the listbox when is the first line of array this not run :aCols[1]:bEditBlock := { |r,c,oCol|IIF(!oBrwFilter:nArrayAt = 1, MsgInfo("Non puoi")) } for the 4th column I have problem because I cannot insert more characters

... ; LOCAL nScope, oClass, oInstance ; IF s_oClass == NIL .AND. __clsLockDef( @s_oClass ) ; BEGIN SEQUENCE ; nScope := 1 ; ( ( nScope ) ) ; oClass := iif( .F.,, HBClass():new( "TFactur_1", iif( .T., { @TIMPRIME() }, { @HBObject() } ), @TFactur_1() ) ) ; _HB_MEMBER { AS LOGICAL lRegistered ...

... .T. :lColDividerComplete := .T. :lIncrFilter := .F. :nStretchCol := STRETCHCOL_WIDEST :bClrSel := { || { CLR_BLACK, 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 ...

... nil It seem run ok if I select two or three records and deselect one, the menu in the buttonbar remains unchanged because I added an if control IiF(LEN(oBrw:aSelected)==0,Btnbar(1,.....) thanks

... oBrw:lContrastClr := .f. oBrw:lHScroll := .f. oBrw:nHeadStrAligns := AL_CENTER // alinea al centro las cabeceras de columnas oBrw:bClrStd := {|| { iif(!empty(Neteo->FechaPago),CLR_GREEN,CLR_RED),CLR_WHITE } } oBrw:bclrSel := {|| { iif(!empty(Neteo->FechaPago),CLR_GREEN,CLR_RED),CLR_WHITE ...

... abrirlos en modo compartido. cambiando esta linea, las abre en modo compartido (no se que otras consecuencias puede tener...)" dbUseArea( .F.,Iif(nDriver==1,"DBFNTX",Nil),oApp:DataPath+cName,cRealAlias,.T.,.F.,Iif(!Empty(cdp),cdp,Nil) ) Alguien ha realizado este cambio ? Voy a intentar ...

MENUITEM "Copy" WHEN acopy=NIL .and. oBrw:IsSelectedRow(); // only when is seletected ACTION ( IIF(Len(oBrw:aselected) >1,aClone:=Giverows(oBrw),; aCopy := aclone(oBrw:aRow)),; oBrw:SetFocus() ) Function Giverows(oBrw) local n,atmp:={},nAt For n= 1 to Len( oBrw:aselected) ...

Perhaps... MENUITEM "Copy" WHEN acopy=NIL .and. oBrw:IsSelectedRow(); // only when is seletected ACTION IIF(Len(oBrw:aseleted) >1,Aclone:= Giverows (oBrw),aCopy := aclone(oBrw:aRow)),; oBrw:SetFocus() ) Function Giverows (oBrw) local n,uBook,nAt local aTmp:= {} For ...

...  Prompt "&EXIT"  SIZE  45,  10 PIXEL  OF oDlg ACTION ( oDlg:end( IDCANCEL ) )       *  bCheck:= { || lSave:= IIF(Msgyesno("I must save ?"),.t.,.f.), oDLG:AEvalWhen(), .t. }AEval( aGet, { |o| o:bChange :=  bCheck ...