用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月 忘记密码?

发表随想


还能输入:200字
云代码 - 其他代码库

kewyou

2018-02-09 作者:dengsm 举报

[其他]代码库

long ll_count
String ls_id
IF f_str_ISNULL(vid) THEN
	ls_id = '%'
ELSE
	ls_id = vid
END IF	
IF NOT f_str_ISNULL(vbarcode) THEN
	If Len(vbarcode)>12 and f_str_isnumber(vbarcode) Then
		If f_verifyean13code(vbarcode)<>1 Then
			Messagebox('错误','['+vbarcode+']商品条码校验出现错误,请仔细检查商品条码后重新输入!',Stopsign!)
			Return -1
		End If
	End If
	If Len(vbarcode)=8 And f_str_isnumber(vbarcode) Then
		If f_verifyean8code(vbarcode)<>1 Then
			Messagebox('错误','['+vbarcode+']商品条码校验出现错误,请仔细检查商品条码后重新输入!',Stopsign!)
			Return -1
		End If
	End If
	SELECT count(*) INTO :ll_count FROM goodsbase 
	 WHERE gbbarcode=:vbarcode AND gbid <> :ls_id;
	IF SQLCA.SQLCODE<0 THEN
		f_ora_err()		
		Return 1
	ELSEIF ll_count>0 THEN	
		Messagebox('错误','['+vbarcode+']商品条码已被基本信息使用!',Stopsign!)
		Return -1
	END IF	
	SELECT count(*) INTO :ll_count FROM goodsunits
	 WHERE gubarcode=:vbarcode AND gugdid <> :ls_id;
	IF SQLCA.SQLCODE<0 THEN
		f_ora_err()		
		Return 1
	ELSEIF ll_count>0 THEN	
		Messagebox('错误','['+vbarcode+']商品条码已被多单位使用!',Stopsign!)
		Return -1
	END IF	
	SELECT count(*) INTO :ll_count FROM goodsbarcode
	 WHERE gcbarcode=:vbarcode AND gcgdid <> :ls_id;
	IF SQLCA.SQLCODE<0 THEN
		f_ora_err()		
		Return 1
	ELSEIF ll_count>0 THEN	
		Messagebox('错误','['+vbarcode+']商品条码已被多原码使用!',Stopsign!)
		Return -1
	END IF	
END IF	
Return 1
	

[代码运行效果截图]


kewyou

[源代码打包下载]




分享到:
更多

网友评论    (发表评论)


发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。