>CLEA >CLOSE ALL >*!* sele A >*!* use gh >SET STATUS OFF >SET TALK OFF >SET SAFETY OFF >set date british >set century on >USE UUU >ZAP >USE >if thisFORM.COMMAND2.CLICK() >thisform.command1.enabled=.t. >lcAcno=space(15) >lcSecuno=space(15) > >if thisform.combo1.value="ACNO" >USE KKK > >lcAcno=thisform.acno2.value >INSERT INTO KKK(NAME); >VALUES(lcAcno) >*lcSecuno= >SELE security1.name,security1.ACNO,gh.TYPE,gh.secuno,gh.AMOUNT,gh.DUE_DATE ; >FROM security1,gh WHERE security1.acno=GH.ACNO AND security1.acno=lcAcno INTO CURSOR TT >COPY TO UUU > >BROW noedit noappend >close all >thisform.release() > >close all > >ELSE >lcSecuno=thisform.acno2.value >INSERT INTO KKK(NAME); >VALUES(lcsecuno) >SELE security1.name,security1.ACNO,gh.TYPE,gh.secuno,gh.AMOUNT,gh.DUE_DATE ; >FROM security1,gh WHERE security1.acno=GH.ACNO AND gh.secuno=lcSecuno INTO CURSOR TT >COPY TO UUU > >BROW noedit noappend >ENDIF >*endif >thisform.release() > >close all > >ans=0 >ans=messagebox("Want to Print..?",4+0+16," Hello") > >if ans=6 >close all >thisform.release() >THISFORM.HIDE >do INTPRINT22 >else >do form general name juform linked >endif >endif > >CLOSE ALL >>