FiveTech Software tech support forums

... { "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

... Viendo en el foro la sugerencia de ANTONIO fue usar SKIN. al compilar el ejemplo con buildh. bat me da este error. Error prsht.h 1081 1: '#endif' before '#if' Probé usando las mismas sentencias en mi prg y no logro ver ningún cambio. Se debe definir algo diferente en el WORKSHOP? segunda ...

... ) if aRow == NIL // not found, then inserts aRow := { "aa","bb" } oCn:Upsert( "states", nil, { aRow } ) endif But insert not work. Table `states` has 3 fields: id, code, name where id is autoincrement field This should work: oCn:Upsert( "states", ...

... if oBtn:lMOver clr := {{ 1, RGB( 250,250,245),RGB( 250,250,245) }} elseif oBtn:lPressed clr := RGB( 180,136,85 ) else clr := RGB( 245,245,235) endif endif return clr > obtn[n]:nClrBorder := RGB(195,195,185) obtn[n]:oCursor:= oCursorBtn next Is it possible that it can't be removed or changed ...

... not found - path ignored in option '-I' (esa ruta no está en bcc77 ) al compilar rcimport.rc -> Error prsht.h 918 9: '#endif' before '#if' / Warning W8123: Path 'c:\bcc7\include\windows\rtl' not found - path ignored in option '-I' (esa ruta no está en bcc77 ) Tu logras ...

... y nos conectamos cuando tu puedas. Ahora tengo todo casi resuelto, mi único problema es el prsht.h, que me da el error de un if sin endif, pero lo estoy revisando ahora. Gracias por tu gran disposición, si resuelvo eso escribo por acá.

... not found - path ignored in option '-I' (esa ruta no está en bcc77 ) al compilar rcimport.rc -> Error prsht.h 918 9: '#endif' before '#if' / Warning W8123: Path 'c:\bcc7\include\windows\rtl' not found - path ignored in option '-I' (esa ruta no está en bcc77 ) Tu logras ...

... not found - path ignored in option '-I' (esa ruta no está en bcc77 ) al compilar rcimport.rc -> Error prsht.h 918 9: '#endif' before '#if' / Warning W8123: Path 'c:\bcc7\include\windows\rtl' not found - path ignored in option '-I' (esa ruta no está en bcc77 ) Tu logras ...

... function veo(nApu,oLbx,aAcciones,nKey) nApu:=ascan(aAcciones,{|x|IF(LEN(X)>4,x[5]==nKey,.F.)}) if empty(nApu) return .f. else return .t. endif *------------------------------------------------------------------------------------ Gracias