- change by xuhu 2021.03.15
SET CENTURY ON
SET DEFAULT TO
CLOSE all
Clear
USE ptype
- 商品名称
DO while .not.eof()
REPLACE fullname WITH strtran(ALLTRIM(fullname),"(","(")
REPLACE fullname WITH strtran(ALLTRIM(fullname),")",")")
REPLACE usercode with upper(MYhzsx(fullname))
Skip
ENDDO
USE BTYPE
- 往来单位
DO WHILE .NOT. EOF()
REPLACE usercode WITH upper(MYhzsx(fullname))
*REPLACE usercode WITH upper(namepy)
Skip
ENDDO
SELECT BTYPE.name, BTYPE.fullname, BTYPE.level, BTYPE.sonnum,;
BTYPE.usercode;
FROM BTYPE; - WHERE (BTYPE.LEVEL > 1);
ORDER BY BTYPE.usercode
SELECT * FROM ptype;
*WHERE (ptype.LEVEL > 1);
ORDER BY ptype.usercode
USE
CLOSE all
CLOSE DATABASE
*CLOSE DATABASES ALL
CLOSE DATABASES ALL
*过程名称:hzpy
*过程功能:汉字转拼音首字
*调用方法:?hzpy(‘汉字拼音’) 结果:HZPY
******************************************************PROCEDURE hzpy
*过程名称:hzpy
*过程功能:汉字转拼音首字
*调用方法:?hzpy(‘汉字拼音’) 结果:HZPY
******************************************************PROCEDURE hzpy
! PARAMETER MYhzsx(HZstr)
! LOCAL PYstr,i,j,C,hz
function MYhzsx(HZstr)
LOCAL PYstr,i,j,C,hz
PYstr=’’
IF TYPE(“PYCode”)=“U”
PUBLIC PBSTR
- PYCode=“吖八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗”
- PYCode=“吖八差咑妸发旮铪讥讥咔垃妈拿讴趴七呥仨他哇哇哇夕丫匝咗”
PYCode=“吖八擦咑屙发旮铪讥讥咔垃妈拿讴趴七呥仨他哇哇哇夕丫匝咗”
ENDIF
FOR i=1 to len(HZstr)
IF ASC(SUBSTR(HZstr,i,1))>160
hz=SUBSTR(HZstr,i,2)
C=‘Z’
FOR j=1 TO 26
IF SUBSTRC(hz,1,1)<SUBSTRC(PYCode,j,1)
C=CHR(95+j)
EXIT
ENDIF
ENDFOR
if asc(hz) = 45988 &&汉字’长’的发音是CHANG
C=‘C’
endif
PYstr=PYstr+upper©
i=i+1
ELSE
PYstr=PYstr+upper(SUBSTR(HZstr,i,1))
ENDIF
ENDFOR
RETURN PYstr
ENDPROC