set memowidth to 60
https://www.lianja.com/doc/index.php/SET_MEMOWIDTH
use prospect set memowidth to 40 m_last = memlines(comp_hist) declare lines[m->m_last] for n=1 to m->m_last lines[m->n] = mline(comp_hist,m->n) next
https://www.lianja.com/doc/index.php/MEMLINES()
use prospect set memowidth to 40 m_last = memlines(comp_hist) for n=1 to m_last m_line = mline(comp_hist,n) ? m_line next
https://www.lianja.com/doc/index.php/MLINE()
use accounts m_var = memotran(product_des)
https://www.lianja.com/doc/index.php/MEMOTRAN()
use prospect m_last = memlines(comp_hist) for n=1 to m->m_last m_line = memoline(comp_hist,40,m->n) ? m_line next clear
https://www.lianja.com/doc/index.php/MEMOLINE()
// To transfer company history notes use prospect memowrite("tempname.txt",comp_hist) seek "00234" if found() memoread("tempname.txt",comp_hist) endif
https://www.lianja.com/doc/index.php/MEMOREAD()
// To transfer company history notes use prospect memowrite(tmpnam() + ".txt", comp_hist)
https://www.lianja.com/doc/index.php/MEMOWRITE()
use prospect m_last = mlcount(comp_hist, 40) declare lines[m->m_last] for n=1 to m->m_last lines[m->n] = mline(comp_hist, m->n) next
https://www.lianja.com/doc/index.php/MLCOUNT()
string = mtos(notes) string = string + chr(10) + "AT" + date() +" " + time() replace notes with string
https://www.lianja.com/doc/index.php/MTOS()
use "C:\Program Files (x86)\Microsoft Visual FoxPro 9\Samples\Classes\samples.vcx" goto 34 myarray = mtoa(methods) list memory create table temp (tempmemo memo) use temp append blank ? atom(myarray,tempmemo)
https://www.lianja.com/doc/index.php/ATOM()
use "C:\Program Files (x86)\Microsoft Visual FoxPro 9\Samples\Classes\samples.vcx" goto 34 myarray = mtoa(methods) list memory create table temp (tempmemo memo) use temp append blank ? atom(myarray,tempmemo)
https://www.lianja.com/doc/index.php/MTOA()