为什么没有插入记录？解决思路

为什么没有插入记录？？
**设置运行环境
SET   TALK   OFF                                     &&关闭命令显示
SET   ESCAPE   OFF                                 &&禁止运行的程序在按   Esc   键后被中断
&&SET   EXCLUSIVE   OFF                           &&数据库表以共享方式打开
SET   DELETED   ON                                 &&过滤掉已带删除标记的记录
SET   HELP   ON                                       &&当按下   F1   键后，显示帮助窗口
**SET   HELP   TO   Mysoft_HELP.CHM       &&指定帮助文件
SET   CONSOLE   OFF                               &&不将结果输出到活动的用户自定义窗口中
SET   DATE   ANSI                                   &&设定日期的年份为   4   位数
SET   CENTURY   ON                                 &&指定日期表达式的显示格式为YY.MM.DD
SET   SAFETY   OFF                                 &&指定在改写已有的文件时不显示对话框
SET   OPTIMIZE   ON                              
SET   SYSMENU   OFF                              
SET   STATUS   BAR   OFF                        

 
set   procedure   to   "getconnect.prg "
ServerConnect   =   GetServerDBConnect()
Ac=SQLEXEC(ServerConnect, "Select     *     From     SS1PRODM ", "SS1PRODM ")  


OPEN     data   SRM
&&     拷贝最近的SS1Prodem到本地
set   exclusive   on

USE   SS1PRODM_SRM   IN   0
SELECT   SS1PRODM_SRM  
ZAP
APPEND   FROM   DBF( 'SS1PRODM ')


use   GOODSINS  
update   GOODSINS   set   DSTATUS   =   'Y '   where   DSTATUS   =   'N '

use   GOODSDEL    
update   GOODSDEL     set   DSTATUS   =   'Y '   where   DSTATUS   =   'N '


SCAN
select pnum   as   GoodsCode   , exnum   as   GoodsNameCHN   ,desc   as   GoodsNameENG   , ' '   as   GoodsSPEC   , size   as   PPUNIT   , ' '   as   PSUNIT,   size   as   SPUNIT   ,   ' '   as     SSUNIT   ,   group   as   CATALOG   ,date()   as   CREATEDATE,     "12Hilton "   as   COMPANY   ,       'N '   as   DSTATUS     ,           date()   as   COPYTIME   ,   ctot( "01/01/1900 "   )   as   TRANSTIME       from   ss1prodm_srm     where   pnum     not   in     (   select   pnum   from     ss1prodm_srm_bak   )   into   arra   dd;