FiveTech Software tech support forums

Otto wrote:Use STRTRAN()

Perhaps we not understading the problem...
in the xbrowse table I have the numerical digits with the comma separator, then when I go to make the change I find the digits with the dot separator, do you think this is normal?

... for: SUBTOTAL( -> SUBTOTAAL( SUM( --> ??? - > SOM( TRUE --> ??? -> WAAR FALSE --> ??? -> ONWAAR Language ID = 1043 Decimal separator = , Thousands separator = . List separator = ; I live in Belgium. Best regards Bart

... nCount < 100       UTILPRN ::oUtil nLinea+=.34,2 SAY  StrZero( nCount++,3 )       ISEPARATOR     enddo   ENDPAGE   IMPRIME END .F.   aEval( aoR, {|o| if( Valtype( o ) ...

... ; * COLORSELECT CLR_HMAGENTA, CLR_HGREEN else MENUITEM ( AllTrim( oemtoansi(TablaMnu[i,3]) ) ) endif case TablaMnu[i,2] == 2 // separador SEPARATOR case TablaMnu[i,2] == 3 // final del menu ENDMENU endcase next ENDMENU return oMenu *----------------------------------------------------------------------------//

... MENU oMenu POPUP MENUITEM oItem1 PROMPT "First" ACTION (oItem1:SetCheck( ltipo1 := ! ltipo1 ),; Maketree(oDbf,oBrw)) CHECKED SEPARATOR MENUITEM oItem2 PROMPT "Second" ACTION oItem2:SetCheck( ltipo2 := ! ltipo2 ) CHECKED ENDMENU return oMenu

... Function BtnPop() local oItem1,oItem2 MENU oMenu POPUP MENUITEM oItem1 "First" ACTION oItem:SetCheck( ltipo1 := ! ltipo1 ) CHECKED SEPARATOR MENUITEM oItem2 "Second" ACTION oItem2:SetCheck( ltipo2 := ! ltipo2 ) CHECKED ENDMENU return oMenu why it is not compiled ? Try ...

... Function BtnPop() local oItem1,oItem2 MENU oMenu POPUP MENUITEM oItem1 "First" ACTION oItem:SetCheck( ltipo1 := ! ltipo1 ) CHECKED SEPARATOR MENUITEM oItem2 "Second" ACTION oItem2:SetCheck( ltipo2 := ! ltipo2 ) CHECKED ENDMENU return oMenu why it is not compiled ?

Dear Silvio,

When you add the new separator button, increase its oBtn:nLeft value

I have this bar



But I have a problem

I wish insert a separator on this point



If I add a button (disabled) with group it erase the text "in"

how I can make it ?

I saved a table in an ascii file with the separator character "," or ";" but I would like to protect this file and create a particular and personalized format that no one could reopen but me with my little program of course ...

... MENUITEM "&4.- Item 4" CHARICON 57756 COLORRIGHT CLR_HRED MENUITEM "&5.- Item 5" CHARICON 57736 COLORRIGHT CLR_MAGENTA SEPARATOR MENUITEM "&Grabar como." RESOURCE "SAVE" no se como insertar una imagen por aqui para que vea como se descuadran los ...

... description: Error BASE/1003 No existe la variable: SUPER Stack Calls =========== Called from: Source\impresion\TImpStock.prg => TIMPSTOCK:SEPARATOR( 265 ) METHOD separator( nSpace ) CLASS TImpStock   IF ( Super:Separator( nSpace ) )      ...

... ACTION EVAL(::bkeydown,VK_INSERT) WHEN !EVAL(::beof()) MENUITEM "删除本行 Delete" ACTION EVAL(::bkeydown,VK_DELETE) WHEN !EVAL(::beof()) end separator MENUITEM "另存入Excel" ACTION ::SAVE() MENUITEM "打印" ACTION ::REPORT(,.f.) MENUITEM "打印预览" ACTION ::REPORT(,.t.) ...

Correct function Builddbf(aHeader,Alengte,cDbf,cdeli) local aStru := {} local aFields := HB_ATokens(aHeader[1], cdeli ) for i = 1 to len(aFields) cField = (aFields[i]) aAdd( aStru, { cField , "C", 255 , 0 } ) // I insert 255 is the max lenght next dbCreate( cDbf , aStru ) return nil Now t...

I use this : (found from the forum) Maybe this be be updated of made better. Silvio : where is the source code complete ? This function i have found on the forum. What would you like more ? the problem is on function Builddbf(adata,Alengte,cDbf) if the header is Articolo;variante;Simili;Codice;Desc...