标准程序是下面这个,你可以通过将其集成至录入点,调整它来适应你的需求:
Local File VALGASTMP [ZVGA]
GOK = 1
Trbegin [ZVGA]
Delete [ZVGA] Where [F:ZVGA]IDENT=[L]ZIDENT
If fstat
GOK=0 : Call ECR_TRACE("Pb RAZ de la table VALGASTMP",1) From GESECRAN
Rollback
Else
Commit
Endif
Close Local File [ZVGA]