Sorry, my English is Very Bad (I speek portuguese) ...I Try!!! Create One New File FoxUser.Dbf e Replace The fields With In The code:


************************************************************************
Locate For FoxUser.name='Print Preview'

Delete From FoxUser Where FoxUser.id='TTOOLBAR'
m.type = 'PREFW'
m.id = 'TTOOLBAR'
m.name = 'Print Preview'
m.readonly = .t.

If m.leButtonPrint && If Button Visible
m.ckval = 61510
m.lcStrImp1 = ('004000181000000000206003000000000188255255013000000000050000000000000000000000009001000000'+;
'054000000000000000000000000000000000001018000000000000000000036000000000255255255127255255'+;
'255127255255255127255255255127255255255127000000000016177001000000000000000000001188255255'+;
'000188255255000000000000000000000000000000000000000000000000000000000000015001000000047001'+;
'000000234001001064002188255255000188255255000000000000000000000000000000000000000000000000'+;
'000000000000016001000000048001000000234001002064000000000000000000000000000000000000000000'+;
'000000000002000000000000000000000000000000000000000000000000000000000000000000003188255255'+;
'000188255255000000000000000000000000000000000000000000000000000000000000232001000000233001'+;
'000000234001004064000000000000000000000000000000000000000000000000000002000000000000000000'+;
'000000000000000000000000000000000000000000000000004188255255000188255255000000000000000000'+;
'000000000000000000000000000000000000000000017001000000049001000000234001006064005188255255'+;
'000188255255000000000000000000000000000000000000000000000000000000000000018001000000050001'+;
'000000234001007064000000000000000000000000000000000000000000000000000002000000000000000000'+;
'000000000000000000000000000000000000000000000000006188255255000188255255000000000000000000'+;
'000000000005000000056000000000024000000000000000000000000000000000234001009064000000000000'+;
'000000000000000000000000000000000000000002000000000000000000000000000000000000000000000000'+;
'000000000000000000007188255255000188255255000000000000000000000000000000000000000000000000'+;
'000000000000019001000000051001000000234001011064000000000000000000000000000000000000000000'+;
'000000000002000000000000000000000000000000000000000000000000000000000000000000008188255255'+;
'000188255255000000000000000000000000000000000000000000000000000000000000217000000000231000'+;
'000000234001013064080117115104000067108105099107032116111032065099116105118097116101000083'+;
'104111119115032116104101032102105114115116032112097103101032111102032116104101032114101112'+;
'111114116000070105114115116032080097103101000000083104111119115032116104101032112114101118'+;
'105111117115032112097103101032111102032116104101032114101112111114116000080114101118105111'+;
'117115032080097103101000000083101108101099116032110101119032112097103101032116111032100105'+;
'115112108097121000071111032116111032080097103101000000083104111119115032116104101032110101'+;
'120116032112097103101032111102032116104101032114101112111114116000078101120116032080097103'+;
'101000000083104111119115032116104101032108097115116032112097103101032111102032116104101032'+;
'114101112111114116000076097115116032080097103101000000083099097108101115032116104101032116'+;
'101120116032105110032116104101032112114101118105101119032119105110100111119000090111111109'+;
'000000067108111115101115032082101112111114116032080114101118105101119032119105110100111119'+;
'000067108111115101032080114101118105101119000000080114105110116115032097032114101112111114'+;
'116000080114105110116032082101112111114116000000')

Else && If Button Not Visible

m.ckval = 3901
m.lcStrImp1 = ('004000181000000000096003000000000188255255011000000000050000000000000000000000236000000000'+;
'054000000000000000000000000000000000001018000000000000000000036000000000255255255127255255'+;
'2551272552552551272552552551272552552551272552552552550000000000000000000000000011882552550'+;
'0018825525500000000000000000000000000000000000000000000000000000000000001500100000004700100'+;
'0000234001001064002188255255000188255255000000000000000000000000000000000000000000000000000'+;
'0000000000160010000000480010000002340010020640000000000000000000000000000000000000000000000'+;
'0000000200000000000000000000000000000000000000000000000000000000000000000000318825525500018'+;
'8255255000000000000000000000000000000000000000000000000000000000000232001000000233001000000'+;
'2340010040640000000000000000000000000000000000000000000000000000020000000000000000000000000'+;
'0000000000000000000000000000000000000000000418825525500018825525500000000000000000000000000'+;
'0000000000000000000000000000000000017001000000049001000000234001006064005188255255000188255'+;
'2550000000000000000000000000000000000000000000000000000000000000180010000000500010000002340'+;
'0100706400000000000000000000000000000000000000000000000000000200000000000000000000000000000'+;
'0000000000000000000000000000000000000006188255255000188255255000000000000000000000000000005'+;
'0000000560000000000240000000000000000000000000000000002340010090640000000000000000000000000'+;
'0000000000000000000000000000200000000000000000000000000000000000000000000000000000000000000'+;
'0000007188255255000188255255000000000000000000000000000000000000000000000000000000000000019'+;
'0010000000510010000002340010110640801171151040000671081050991070321161110320650991161051180'+;
'9711610100008310411111911503211610410103210210511411511603211209710310103211110203211610410'+;
'1032114101112111114116000070105114115116032080097103101000000083104111119115032116104101032'+;
'1121141011181051111171150321120971031010321111020321161041010321141011121111141160000801141'+;
'0111810511111711503208009710310100000008310110810109911603211010111903211209710310103211611'+;
'1032100105115112108097121000071111032116111032080097103101000000083104111119115032116104101'+;
'0321101011201160321120971031010321111020321161041010321141011121111141160000781011201160320'+;
'8009710310100000008310411111911503211610410103210809711511603211209710310103211110203211610'+;
'4101032114101112111114116000076097115116032080097103101000000083099097108101115032116104101'+;
'0321161011201160321051100321161041010321121141011181051011190321191051101001111190000901111'+;
'1110900000006710811111510111503208210111211111411603208011410111810510111903211910511010011'+;
'1119000067108111115101032080114101118105101119000000')
EndIf
m.data = ''

For m.lnConta1=1 To Len(m.lcStrImp1) Step 3
m.data = (m.data+Chr(Val(SubStr(m.lcStrImp1,m.lnConta1,3))))
EndFor
m.updated = Date()
Insert Into ('FoxUser') From Memvar

Select ('FoxUser')
Pack
Use In ('FoxUser')
Set Resource To (m.lcArqFoxUser+'.dbf')
Set Resource On


*******************************************


Richard Diegues
richarddiegues@msn.com
richarddiegues@ig.com.br