FiveTech Software tech support forums

... ; 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 ...

... ( xOrden := oOrden:nAt, CambioOrden( ors1 ,xorden), obusco:setfocus() ) OF odlgSTK REDEFINE XBROWSE oBrw ID 181 recset oRS1 OF oDlgSTK FIELDS ; iif ( ( oRS1:Fields( "disconti" ):Value ) = "S", "S", "N" ), ; oRS1:Fields( "codigo" ):Value, ; oRS1:Fields( ...

... CLICK SOBRE ESTA COLUMNA oBrw:aCols[1]:cHeader := "Est" oBrw:aCols[1]:nHeadStrAlign := AL_LEFT //LEFT oBrw:aCols[1]:bBmpData := { || iif( cTab_Art:opcion=.t., 1, 2) } oBrw:aCols[1]:nWidth := 20 oBrw:aCols[2]:cHeader := "Código" oBrw:aCols[2]:bStrData := { || cTab_Art:cod_art ...

... CLICK SOBRE ESTA COLUMNA oBrw:aCols[1]:cHeader := "Est" oBrw:aCols[1]:nHeadStrAlign := AL_LEFT //LEFT oBrw:aCols[1]:bBmpData := { || iif( cTab_Art:opcion=.t., 1, 2) } oBrw:aCols[1]:nWidth := 20 oBrw:aCols[2]:cHeader := "Código" oBrw:aCols[2]:bStrData := { || cTab_Art:cod_art ...

... REDEFINE GET onrocli var xnrocli ID 101 OF ofld1:aDialogs[ 1 ] picture "999999" valid iif ( xnrocli <> 0, ( val_cli( xnrocli ), onrocli:Refresh(), onomcli:refresh(), odircli:refresh(), BuscoAntInfo( xnrocli, xNUsuario, ofld1:aDialogs[ ...

... quitar barra horizontal oBrw:lHScroll := .F. oBrw:aCols[ 4 ]:cDataType := "F" oBrw:aCols[ 2 ]:nWidth := 20 oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} oBrw:bLDblClick := { |nRow,nCol,nKeyFlags|/*EditCorrijo(.f.),*/oBrw:Refresh()} oBrw:nHeadStrAligns ...

... 55 PIXEL; FLAT RIGHT; FONT oFontSmall ; PROMPT cDesc ; OF oElements action Msginfo() aBtnEle[n]:ocursor:= oHand aBtnEle[n]:nClrBorder := { |obtn| (IIF(obtn:lMOver,CLR_BLUE,CLR_HGRAY)) } aBtnEle[n]:bClrGrad = { | lInvert | If( ! lInvert,; { { 1, CLR_WHITE, CLR_WHITE } },; { { 1, RGB( 229,241,251 ...

... seem run ok the border color https://i.postimg.cc/GpgQV8XH/hh.gif I set the btnbmps into the scrollpanel with :nClrBorder := { || (IIF(ocontrol:lMOver,CLR_BLUE,CLR_HGRAY)) }