FiveTech Software tech support forums

... // Calculate the total height of the activated boxes for nIndex := 1 to Len(aFilters) if aFilters[nIndex, 1] nVisibleBoxHeight += nBoxHeight endif next // Adjust the height of the XBROWSE based on the height of the activated boxes oBrw:nBottomMargin+= nBoxHeight oBrw:refresh()

...           oBox[2]:show()              oDlgx:= oBox[2]              oBrw:nBottomMargin += oBox[2]:nTop-2           Endif chapGpt tell me this For n= 1 to Len(aFilters) IF aFilters[ nIndex, 1 ] IF nBox <= len(oBox) oBox[nIndex+1]:show() oDlgx:= oBox[nIndex+1] nbox++ ...

... ) IF !EMPTY( cSender ) cFrom := ["] + cSender + ["] + " <" + cFrom + ">" //Traza( 1, ":" ) ENDIF oMsg:DSNOptions := 14 /// <<<<<<<<<<<<<<<< AQUÍ ESTÁ !!!!!! :P :P :P :P :P :P :P VOY A CELEBRARLO ...

... ) IF !EMPTY( cSender ) cFrom := ["] + cSender + ["] + " <" + cFrom + ">" //Traza( 1, ":" ) ENDIF oMsg:DSNOptions := 14 /// <<<<<<<<<<<<<<<< AQUÍ ESTÁ !!!!!! :P :P :P :P :P :P :P VOY A CELEBRARLO ...

I use tdatabase and I have modify if Empty( cFilter ) oDbf:Clearfilter() else odbf:dbsetfilter( cFilter) endif But Not work It should be simple to change and make it work. I made these 6 minor changes and it works well. #include "fivewin.ch"REQUEST DBFCDXfunction ...

... filter ( ru nok I put as 3) local cState:= space(25) If nIndex=3 Selection_State( @cstate ) cFilter:= 'STATE='+ "'"+cState+"'" endif see the code pls #include "fivewin.ch"REQUEST DBFCDXfunction Main()   local oDlg, oBrw   local cFilter  := ""   local ...

... aFilters ), oDlg:Update() }      aCheck[ n ]:lTransparent := .t.      nCol  += 150      if n == 3         EXIT      endif   next   @  80, 40 SAY { || "FILTER : " + cFilter } SIZE 400, 25 PIXEL OF oDlg CENTER UPDATE   @ 115, 40 XBROWSE oBrw SIZE ...

... AGE SayBitmap(01.20,00.50,01.40,01.50,"logocoop.bmp",oPrn) oPrn:cmSay(2.50,14.00,"FACTURA",oFnt11) endif oPrn:cmSay( 3.30,14.00, "Período: "+subs(1->mes_liq,6,2)+"/"+; subs(1->mes_liq,1,4),oFnt3) oPrn:cmSay( 3.70,14.00, "Emisión: ...

... { "one" } I not Know how I Have on String now I made aLines := hb_ATokens( cString,"|" ) if empty(aLines[1] ) alines:= {} Endif

Otto wrote:Static function changeBrw(oBrw,lmarried)
IF lmarried
oBrw:nBottomMargin -= 40
else
oBrw:nBottomMargin += 40
endif
oBrw:refresh()
return nil

use the test I published

Static function changeBrw(oBrw,lmarried)
IF lmarried
oBrw:nBottomMargin -= 40
else
oBrw:nBottomMargin += 40
endif
oBrw:refresh()
return nil

I not Know How change the height of a xbrowse I tried with

Static function changeBrw(oBrw,lmarried)
IF lmarried
oBrw:nHeight -= 40
else
oBrw:nHeight += 40
endif
oBrw:refresh()
return nil

but not happen nothing

... a imprimir IF cImpFac == "S" IMPRIMIR(cFilImp,"") else IMPRIMIR(cFilImp,"2") ... // IMPRIMIR(cFilImp,"3") endif FUNCTION IMPRIMIR(cFilImp,cNroImp)    LOCAL cNomRem := ""         IF cNroImp == "3"  // REMOTA X RESTAURANTES .. COMO ...

... Error E0030 Syntax error "syntax error at 'LIKE'" karinha.prg(134) Error E0014 ELSE does not match IF karinha.prg(143) Error E0010 ENDIF does not match IF 3 errors No code generated.

... oBrw:nHeight:= oBar:ntop-40 else oSay[1]:hide() oSay[2]:hide() oGet:hide() oBrw:oSortCbx:hide() oBrw:nTop:=2 oBrw:nHeight:= oBar:ntop-40 Endif for n=1 to Len(aBtn) aBtn[n]:ntop:= oBar:ntop-40 aBtn[n]:refresh() next return nil