fxbb4.prg

来自「使用VFP编写的信用社系统专用会计报表系统,可上报,汇总,打印.是一款优秀的信用」· PRG 代码 · 共 18 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: FXBB4.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 SET TALK OFF
 SET ESCAPE OFF
 SET SAFETY OFF
 DEFINE WINDOW QWIN FROM 0 , 0 TO 21 , 79
 SELECT (XMKNAME)
 INDEX ON XMDH TO XMTMP
 SELECT (BDATNAME)
  SET RELATION TO XMDH INTO XM&M_BH
 ACTIVATE WINDOW QWIN
  BROW FIELDS XM&M_BH->XMDH:H="代  号":R:W=.F., XM&M_BH->XMMC:23:H="项目名称":R:W=.F., DA12:H=" "+AA+" "  FOR LEN(LTRIM(RTRIM(XM&M_BH->XMMC)))#0  AND BLX1=m_blx1 AND BLX2=m_blx2 AND DQDH=M_DQDH LOCK 2 IN WINDOW QWIN
 RELEASE WINDOW QWIN
*