'*****************************************************************************************
'*			ケース検品ﾌﾟﾛｸﾞﾗﾑ						 *
'*	内容		:								 *
'*	ﾌﾟﾛｸﾞﾗﾑ ID	:	PROGC							 *
'*	作成者		:	QUSSCO(Y.Y)						 *
'*	作成日		:	00.07.21						 *
'*	修正日		:	00.08.25						 *ﾋﾟｯｷﾝｸﾞ枚数を定数にする(kakihana)
'*	修正日		:	2002.07.16	梱包検品追加	  										 *
'*	修正日		:	2014.08.06	PD4化			  										 *
'*****************************************************************************************

'*****************************************************************************************
'*	内容		:	初期設定						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
'/------------------------------外部ＰＧ読込---------------------------------------------/
	'$include:'progcsys.src'							'ｼｽﾃﾑ設定
	'$include:'progckan.src'							'関数設定
'ILS-ADD Start 北九州共和個別カスタマイズ 導入 
    '$include:'ftpwork.src'                                 'FTP用関数
'ILS-ADD Start 北九州共和個別カスタマイズ 導入 
	'使用する変数の列挙
	common dataflg$[2]								'ﾒﾆｭｰからの処理ﾃﾞｰﾀﾌﾗｸﾞ
	common trnno9									'階層
	common menuA9									'階層1ﾒﾆｭｰ№
	common menuB9									'階層2ﾒﾆｭｰ№
'==== KY597 梱包検品追加 == 02.07.16 柿花 ================================START=
'	MAIN.PD3とcommonは合わさないと実行時ｴﾗｰになる
	common menuC9			'階層3ﾒﾆｭｰ№
'==== KY597 梱包検品追加 == 02.07.16 柿花 ================================E N D=
'ILS-ADD Start 北九州共和個別カスタマイズ 導入
    common CSkenpin$[1]     'ﾗﾝﾀﾞﾑ検品の動作制御ﾊﾟﾗﾒｰﾀ（"":通常検品、"C":ｹｰｽ専用検品）
'ILS-ADD End 北九州共和個別カスタマイズ 導入

'*****************************************************************************************
'*	内容		:	ﾒｲﾝﾌﾟﾛｸﾞﾗﾑ						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
main
	screen 1									'画面を漢字ﾓｰﾄﾞに設定
	locate ,,0									'ｶｰｿﾙ非表示
	gosub s.sysset									'ｼｽﾃﾑの設定
	kyukei$=""									'休憩時間の初期化
	kyukei.s$ = ""									'休憩開始時間の初期化
	kennum9 = 0									'配列の件数の初期化
'-- ﾋﾟｯｷﾝｸﾞ枚数を増やしたい   00.08.25----------/
'	dim wpicno.k$(20)								'PICNoを入れる配列
	dim wpicno.k$(picmaisu9)						'PICNoを入れる配列
	gosub pic.opn : close #pictxt9 : kill pictxt$					'a:C_PICNO.TXTをクリア
	gosub piched.opn : close #piched9 : kill piched$				'a:C_PICNO.HEDをクリア
	gosub picetc.opn : close #picetc9 : kill picetc$				'a:C_PICST.TXTをクリア
	gosub picerr.opn : close #picerr9 : kill picerr$				'a:C_PICERR.TXTをクリア
	gosub picend.opn : close #picend9 : kill picend$				'a:C_PICEND.TXTをクリア
	mainsflg9 = 0
	mainflg9 = 1

	while mainsflg9 = 0								'mainsflg が 0の間ﾙｰﾌﾟ
		select mainflg9
			case 1								'データ受信の入力
				gosub datac.nyu
			case 2								'送信
				gosub soshin
			case 3								'データ受信
				gosub datac.ju 
			case 4								'集荷検品作業
				gosub kenpin.c
			case 5								'作業完了
				gosub sagyo.owr   
		end select
	wend
	chain menu$
	return

'*****************************************************************************************
'*	内容		:	データ受信入力						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
datac.nyu
	nyusetflg9 = 0
	nyuflg9 = 1
	while nyusetflg9 = 0								'nyusetflg が 0の間ﾙｰﾌﾟ
		select nyuflg9
			case 1								'担当者入力
				gosub tanto.nyu
			case 2								'PICNo入力
				gosub picno.nyu
		end select
	wend
	return

'*****************************************************************************************
'*	内容		:	担当者 入力						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
tanto.nyu
	on error goto err.cmn : werror$ = "tanto.nyu"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	on key (30) gosub menu.m1 : on key (31) gosub menu.m2				'M1,M2ｷｰ設定
	key (30) on : key (31) on							'M1,M2ｷｰ有効
	gosub gamen.1									'画面表示
	locate 7  , fntatechg9(2)
	a$ = fncodeget2$(3 , wtanto.c$)							'担当コード入力
'	//-----	 分岐設定  -----//
	ikisaki$ = wkeyflg$ : wkeyflg$ = ""						'初期化
	select ikisaki$
		case m1$								'M1を押したとき
			if a$ <> "" then						'担当者ｺｰﾄﾞが空でないとき
				if wpicno.k$(1) <> "" then				'PICNOが空でなければ
					wtanto.c$ = a$
					nyusetflg9 = 1 : mainflg9 = 2 :sousinflg9 = 1	'送信に抜ける
				else
					wtanto.c$ = a$
					beep ,,2,0
				endif
			else
				if wpicno.k$(1) <> "" then				'PICNOが空でなければ
					nyusetflg9 = 1 : mainflg9 = 2 :sousinflg9 = 1	'送信に抜ける
				else
					beep ,,2,0
				endif
			endif
		case m2$								'M2を押したとき
			nyusetflg9 = 1							'データ受信入力を抜ける
			mainsflg9 = 1							'ﾒｲﾝﾌﾟﾛｸﾞﾗﾑを抜ける
		case else								'スキャン、またはＥＮＴを押したとき
			if len(a$) = 0 then 
				beep ,,2,0 : nyuflg9 = 1
			else
				wtanto.c$ = a$
				nyuflg9 = 2						'PICNO入力に抜ける
			endif
	end select
	return

'*****************************************************************************************
'*	内容		:	ﾋﾟｯｷﾝｸﾞ番号 入力					 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
picno.nyu
	on error goto err.cmn : werror$ = "picno.nyu"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	on key (30) gosub menu.m1 : on key (31) gosub menu.m2				'M1,M2ｷｰ設定
	key (30) on : key (31) on							'M1,M2ｷｰ有効
	gosub gamen.1									'画面表示
	a$ = ""										'初期化
	locate 7  , fntatechg9(3)
	a$ = fncodeget$(5 , wpicno.c$)							'PICNo入力
	jmp.flg9 = off9 : ikisaki$ = ""							'初期化
'	//-----	 分岐設定  -----//
	ikisaki$ = wkeyflg$ : wkeyflg$ = ""						'初期化
	select ikisaki$
		case m2$								'M2を押したとき
			nyuflg9 = 1							'担当ｺｰﾄﾞ入力に戻る
		case m1$								'M1を押したとき
			if a$  = "" then
				if kennum9 <> 0 then					
					nyusetflg9 = 1 : mainflg9 = 2 : sousinflg9 = 1	'送信に抜ける
				else
					beep ,,2,0 : nyuflg9 = 2
				end if
			else
				if len(a$ ) = 5 then
'-- ﾋﾟｯｷﾝｸﾞ枚数を増やしたい   00.08.25----------/
'					if kennum9 + 1 > 20 then			'20件以上のとき
					if kennum9 + 1 > picmaisu9 then		'指定枚数以上のとき
						beep ,,2,0
						return
					endif
					for i9 = 1 to kennum9
						if a$  = wpicno.k$(i9) then		'エラー時
							beep ,,2,0
							cls
							print "その番号は登録済みです"
							wait 0 , 3 : b$ = inkey$ : wkeyflg$ = ""
							nyuflg9 = 2
							i9 = 99
							return
						endif
					next i9
					'ok
					kennum9 = kennum9 + 1
					wpicno.k$(kennum9) = a$ 
					nyusetflg9 = 1 : mainflg9 = 2 : sousinflg9 = 1	'送信に抜ける
				else
					beep ,,2,0
				endif
			endif
		case ""									
			if len(a$ ) = 5 then
'-- ﾋﾟｯｷﾝｸﾞ枚数を増やしたい   00.08.25----------/
'				if kennum9 + 1 > 20 then				'20件以上のとき
				if kennum9 + 1 > picmaisu9 then		'指定枚数以上のとき
					beep ,,2,0
					return
				endif
				for i9 = 1 to kennum9
					if a$  = wpicno.k$(i9) then
						beep ,,2,0
						cls
						print "その番号は登録済みです"
						wait 0 , 3 : b$ = inkey$ : wkeyflg$ = ""
						nyuflg9 = 2                             
						i9 = 99
						return
					endif
				next i9
				'ok
				kennum9 = kennum9 + 1
				wpicno.k$(kennum9) = a$ 
			else
				beep ,,2,0
			endif
		case else								'スキャン、またはＥＮＴを押したとき
			beep ,,2,0
	end select
	return
'*****************************************************************************************
'*	内容		:	画面１表示						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
gamen.1
	cls										'画面消去
	print "○ｹｰｽﾃﾞｰﾀ受信"
	print "担当: 　　　　　"
	print "PIC : 　　　　　"
	print "Noを読みＭ１　　";
	locate 7 , fntatechg9(2) : print wtanto.c$;					'担当者表示
	locate 7 , fntatechg9(3) : print wpicno.k$(kennum9)				'PICNO表示
	locate 14 , fntatechg9(3) : if kennum9 <> 0 then print kennum9 ; endif		'件数の表示
	return

'*****************************************************************************************
'*	内容		:	送信							 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
soshin
	souflg9 = 0
	while souflg9 = 0
	select sousinflg9
		case 1									'送信
			gosub soshin.c
		case 2									'PIC送信
			gosub pic.sou
		case 3									'PIC受信
			gosub pic.jusin
	end select
	wend
	return

'*****************************************************************************************
'*	内容		:	送信							 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
soshin.c
	on error goto err.cmn : werror$ = "soshin.c"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	on key (30) gosub menu.m1 : on key (31) gosub menu.m2				'M1,M2ｷｰ設定
	key (30) on : key (31) on							'M1ｷｰ有効,M2ｷｰ有効

	if wtanto.c$ = "" then								'未入力時戻す
		 mainflg9 = 1 : nyuflg9 = 1 : return
	endif
	if wpicno.k$(kennum9) = "" then 						'未入力時戻す
		mainflg9 = 1 : nyuflg9 = 2 : return  
	endif
	gosub gamen.sou
	recmode$ = touroku$								'登録ﾓｰﾄﾞにする
	pgflg$	= tuujou$								'通常ﾓｰﾄﾞにする
	'//-----  念のため	-----//
	gosub pic.opn : close #pictxt9 : kill pictxt$
	openflg9 = 0
	gosub key.trap
'	//-----	 分岐設定  -----//
	ikisaki$ = wkeyflg$ : wkeyflg$ = ""						'初期化
	select ikisaki$
		case m1$								'M1を押したとき
			gosub picetc.opn						'ファイルpicetc$にデータを書き込む
			for i9 = 1 to kennum9
				picetc.pic$ = mid$(wpicno.k$(i9), 1 , 5) 
				picetc.tan$ = mid$(wtanto.c$ , 1 , 3)
				put picetc9 , i9
			next i9
			close #picetc9
			sousinflg9 =2							'PIC送信に抜ける
		case m2$								'M2を押したとき
			mainflg9 = 1 : nyuflg9 = 1 : souflg9 = 1			'担当者ｺｰﾄﾞ入力に戻る
		case else					
			beep								'ｴﾗｰ
			soushinflg9 = 1
	end select
	return

'*****************************************************************************************
'*	内容		:	PIC送信							 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
pic.sou
	on error goto err.cmn : werror$ = "PIC送信"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	cls
	print "送信中　　　　　"
'ILS-MOD Start 北九州共和個別カスタマイズ 導入 
'	print "00000/" + right$("00000" + mid$(str$(kennum9) , 2) , 5)			'データの件数分を出力
'	locate 1 , fntatechg9(2)
'	open comport$ as #souju9
'	xfile picetc$ , sousin$
'	close #souju9
'	cls
'	print "送信中　　　　　"
'	print "送信完了　　　　";
'	close #souju9
'	kill picetc$
'' ▼PD4化 2014/08 T.S
'    timea = 5  :  wait 0,&h10
'' ▲PD4化 2014/08 T.S
'	beep
'	sousinflg9 = 3									'PIC受信に抜ける

	f.err9 = 0
	if stype$ = "0" then
		print "00000/" + right$("00000" + mid$(str$(kennum9) , 2) , 5)			'データの件数分を出力
		locate 1 , fntatechg9(2)
		open comport$ as #souju9
		xfile picetc$ , sousin$
		close #souju9
	else
		f.cfnm$ = picetc$
		f.sfnm$ = caseetcfname$ + hht$ + "." + cakext$
		gosub f.txtup
	endif

	if f.err9 = 0 then
		cls
		print "送信中　　　　　"
		print "送信完了　　　　";
		kill picetc$
	    timea = 5  :  wait 0,&h10
		beep
		sousinflg9 = 3									'PIC受信に抜ける
	else
		openflg9 = 0
		goto soshin.c
	endif
'ILS-MOD End 北九州共和個別カスタマイズ 導入 
	return

'*****************************************************************************************
'*	内容		:	PIC 受信						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
pic.jusin
	on error goto err.cmn : werror$ = "PIC受信"				'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	cls
	print "データ受信中 "
'ILS-MOD Start 北九州共和個別カスタマイズ 導入 
'	open comport$ as #souju9
'	xfile picerr$ , jusin$
'	close #souju9
'' ▼PD4化 2014/08 T.S
'    timea = 5  :  wait 0,&h10
'' ▲PD4化 2014/08 T.S
'	cls
'	print "データ受信中 "
'	open comport$ as #souju9
'	xfile pictxt$ , jusin$
'	close #souju9
'' ▼PD4化 2014/08 T.S
'    timea = 5  :  wait 0,&h10
'' ▲PD4化 2014/08 T.S
'	cls
'	print "データ受信中 "
'	beep ,,0								'件数が多くなるとﾙｰﾌﾟを脱出しないのを回避するためのbeep
'	mainflg9 = 3 : souflg9 = 1						'データ受信に抜ける

	f.err9 = 0
	if stype$ = "0" then
		open comport$ as #souju9
		xfile picerr$ , jusin$
		close #souju9
		cls
		print "データ受信中 "
		open comport$ as #souju9
		xfile pictxt$ , jusin$
		close #souju9
	else
		f.cfnm$ = picerr$
		f.sfnm$ = caseerrfname$ + hht$ + "." + txtext$
		f.fld$  = caseerrffld$
		gosub f.txtdown
		if f.err9 = 0 then
			cls
			print "データ受信中 "
			f.cfnm$ = pictxt$
			f.sfnm$ = casetxtfname$ + hht$ + "." + txtext$
			f.fld$  = casetxtffld$
			gosub f.txtdown
		else
'▼エラー時の行き先を変更　　　大坪 15.06.04
'			goto soshin.c
			goto pic.jusin
'▲エラー時の行き先を変更　　　大坪 15.06.04
		endif
	endif

	if f.err9 = 0 then
	    timea = 5  :  wait 0,&h10
		cls
		print "データ受信中 "
		beep ,,0								'件数が多くなるとﾙｰﾌﾟを脱出しないのを回避するためのbeep
		mainflg9 = 3 : souflg9 = 1						'データ受信に抜ける
	else
		openflg9 = 0
		goto soshin.c
	endif
'ILS-MOD End 北九州共和個別カスタマイズ 導入 
	return

'*****************************************************************************************
'*	内容		:	画面(送信)						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
gamen.sou
	cls
	print "送信    　　　　"
	print "準備ＯＫ？　　　"
	print "M1:Yes  M2:No 　"
	print "　　　　　　　　";
	return

'*****************************************************************************************
'*	内容		:	データ受信						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
datac.ju
	on error goto err.cmn : werror$ = "datac.ju"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	on key (30) gosub menu.m1 : on key (31) gosub menu.m2 				'M1,M2ｷｰ設定
	key (30) on : key (31) off 							'M1ｷｰ有効,M2ｷｰ無効
	
	gosub picerr.opn
	gosub pic.opn

	get #picerr9 , 1
	if picerr.err$ <> "" then							'a:C_PICNO.TXTが空でC_ERR.TXTがあるとき
		close #pictxt9
		gosub gamen.3er								'画面表示
		close #picerr9
		gosub key.trap
'	//-----	 分岐設定  -----//
		ikisaki$ = wkeyflg$ : wkeyflg$ = ""					'初期化
		if ikisaki$ = m1$ then							'M1を押したとき
			mainflg9 = 1 : nyuflg9 = 1					'担当者ｺｰﾄﾞ入力に戻る
			return
		endif
		beep									'ｴﾗｰ
		mainflg9 = 3
		return
	else										'a:C_PICNO.TXTが存在するとき
		close #picerr9
		gosub pic.get								'PICﾌｧｲﾙの総件数取得
		kaisi.j$ = fndtdev$(time$)						'開始時刻ｾｯﾄ
		kyukei$	 = ""								'休憩時間クリア
		pgmode$	  = tuujou$							'通常モードに設定
		recmode$  = touroku$							'登録ﾓｰﾄﾞに設定
		gosub gamen.3								'画面表示
		gosub key.trap
'	//-----	 分岐設定  -----//
		ikisaki$ = wkeyflg$ : wkeyflg$ = ""					'初期化
		if ikisaki$ = m1$ then							'M1を押したとき
			gennum9 = 1     ': kensu9 = 1
			mainflg9 = 4 : kenflg9 = 1					'PICNo選択へ抜ける
			return
		endif
		beep									'ｴﾗｰ
		mainflg9 = 3
		return
	endif
	

'*****************************************************************************************
'*	内容		:	画面３							 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
gamen.3
	cls										'画面消去
	print "○データ受信完了"
	print "枚数　："
	print "行数  ："
	print "ｹｰｽ数 ：";
	locate 10 , fntatechg9(2) : print wmaisu$  ;					'総枚数表示
	locate 10 , fntatechg9(3) : print wgyosu.t$;					'総行数表示
	locate 10 , fntatechg9(4) : print wkeisu.t$;					'総ケース数表示
	return

'*****************************************************************************************
'*	内容		:	画面３エラー						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
gamen.3er
	cls										'画面消去
	print "○データ受信　　"
	print "      　　　　　"
	print "●　　　　　　　"
	print "　　　　　　　　";
	locate 3 , fntatechg9(3)
	select mid$(picerr.err$ , 1 , 3)
		case "NOH"	: print "作業対象外です"
		case "ING"	: print "他で作業中です"
		case "END"	: print "作業済分です"
		case "ERR"	: print "エラーです"
	end select
	return

'*****************************************************************************************
'*	内容		:	検品							 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
kenpin.c
	kensetflg9 = 0
	while kensetflg9 = 0
	select kenflg9
		case 1
			gosub pic.select						'PICNo選択
		case 2
			gosub jun.select						'Jコード選択
		case 3
			gosub pic.check							'数量チェック
		case 4
			gosub jun.error							'商品エラー
		case 5
			gosub suryo.err							'数量エラー
		case 6
			gosub tyoku.chg							'直送区分の変換
	end select
	wend
	return

'*****************************************************************************************
'*	内容		:	PICNo選択						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
pic.select
	on error goto err.cmn  : werror$ = "pic.next"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	on key (30) gosub menu.m1 : on key (31) gosub menu.m2				'M1,M2ｷｰ設定
	on key (5) gosub menu.f5 : on key (6) gosub menu.f6				'F5,F6ｷｰ設定
	on key (4) gosub menu.f4 							'F4ｷｰ設定
	key (30) off : key (31) off : key (4) off						'M1,M2,F4ｷｰ無効
	key (5) on : key (6) on								'F5,F6ｷｰ有効
	gosub gamen.4
	locate 5 , fntatechg9(3)
	a$ = fncodeget$(5 , wpicno.c$)
'	//-----	 分岐設定  -----//
	ikisaki$ = wkeyflg$ : wkeyflg$ = ""						'初期化
	select ikisaki$
		case f5$								'F5を押したとき
			if gennum9 = 1 then						'PICNoが１件目のとき
				beep ,,2,0
			else
				gennum9 = gennum9 - 1					'前のPICNoへ移動
			endif
			kenflg9=1
		case f6$								'F6を押したとき
			if gennum9 = kennum9 then					'PICNoが１件目のとき
				beep ,,2,0
			else
				gennum9 = gennum9 + 1					'後ろのPICNoへ移動
			endif
			kenflg9=1

		case ""									'スキャン、またはＥＮＴを押したとき
			if a$ = "" then
				a$ = wpicno.k$(gennum9)
				kensu9 = search( #pictxt9 , pic.picno$ , a$)
				kenflg9 = 2						'JAN入力へ抜ける
			else
		
				for i9 = 1 to kennum9
					if a$ = wpicno.k$(i9) then
						a$ = wpicno.k$(i9)
						kensu9 = search( #pictxt9 , pic.picno$ , a$)
						kenflg9 = 2				'JAN入力へ抜ける
						return
					endif
				next i9
				beep ,,2,0
				kenflg9 = 1
			endif
		
		case else 
			beep ,,2,0
			kenflg9 = 1
	end select
	return
	
'*****************************************************************************************
'*	内容		:	JAN 入力(確認)						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
jun.select
	on error goto err.cmn : werror$ = "jun.select"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	on key (4) gosub menu.f4 : on key (5) gosub menu.f5 : on key (6) gosub menu.f6	'F4,F5,F6ｷｰ設定
	on key (1) gosub menu.f1 							'F1ｷｰ設定
	on key (31) gosub menu.m2 : on key (30) gosub menu.m1				'M1,M2ｷｰ設定
	key (4) on : key (5) on : key (6) on 						'F4,F5,F6ｷｰ有効
	key (31) on									'M2ｷｰ有効
	key (1) off : key (30) off							'M1,F1ｷｰ無効
	gosub gamen.4nyu
	if val(pic.syusu$) <> 0 then
		gosub gamen.4s
	endif
	jun$ = ""
	locate 3 , fntatechg9(3)
	a$ = fnitfget2$(13 , jun$)
'	//-----	 分岐設定  -----//
	ikisaki$ = wkeyflg$ : wkeyflg$ = ""						'初期化
	jun$ = a$ : a$ = ""
	select ikisaki$
		case m2$								'M2を押したとき
			if kyukeiflg9=1 then
				kyukeiflg9=0 
				gosub kyukei.ed : kenflg9 = 2			'休憩時間を求める
			endif
			for i9 = 1 to kennum9
			 	if pic.picno$ = wpicno.k$(i9) then
					gennum9 = i9
					kenflg9 = 1					'PICNo選択へ戻る
					return
				endif
			next i9
		case f4$								'F4を押したとき
			kyukeiflg9 = 1
			gosub kyukei.st : kenflg9 = 2					'休憩開始時間を記憶する
		case f5$								'F5を押したとき
			if kyukeiflg9=1 then
				kyukeiflg9=0 
				gosub kyukei.ed : kenflg9 = 2			'休憩時間を求める
			endif
			if kensu9 = 1 then
				beep ,,2,0
			else
				kensu9 = kensu9 - 1					'前のレコードへ移動
				kenflg9 = 2
			endif
		case f6$								'F6を押したとき
			if kyukeiflg9=1 then
				kyukeiflg9=0 
				gosub kyukei.ed : kenflg9 = 2			'休憩時間を求める
			endif
			if kensu9 = lof( #pictxt9 ) then
				kensetflg9 = 1 : mainflg9 = 5 : sagyoflg9 = 1
			else
				kensu9 = kensu9 + 1					'後ろのレコードへ移動
				kenflg9 = 2
			endif
		case ""									'スキャン、またはＥＮＴを押したとき
			if jun$ = "" then
				beep ,,2,0
				kenflg9 = 2
			else
				if kyukeiflg9=1 then
					kyukeiflg9=0 
					gosub kyukei.ed : kenflg9 = 2			'休憩時間を求める
				endif
				if pic.jan$ <> jun$ then				'入力されたjcodeがあるかを判別する
					if pic.jisya$ <> jun$ then			
						errbacknum9 = 0
					 	kenflg9 = 4				'商品エラーへ抜ける
					else
						if val(pic.syusu$) < 9999 then 
							pic.syusu$ = str$(val(pic.syusu$) + 1)
							put #pictxt9 , kensu9
						endif
						kenflg9 = 3				'数量チェックへ抜ける
					endif
				else
					if val(pic.syusu$) < 9999 then
						pic.syusu$ = str$(val(pic.syusu$) + 1)
						put #pictxt9 , kensu9
					endif
					kenflg9 = 3					'数量チェックへ抜ける
				endif
			endif
			
		case else 
			beep ,,2,0
			kenflg9 = 2
	end select
	return

'*****************************************************************************************
'*	内容		:	数量チェック						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
pic.check
	on error goto err.cmn : werror$ = "pic.check"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	on key (4) gosub menu.f4 : on key (5) gosub menu.f5 : on key (6) gosub menu.f6	'F4,F5,F6ｷｰ設定
	on key (30) gosub menu.m1 : on key (31) gosub menu.m2				'M1,M2ｷｰ設定
	on key (1) gosub menu.f1							'F1ｷｰ設定
	key (1) on : key (30)on : key (31) off  						'F1,M1ｷｰ有効,M2ｷｰ無効
	key (4) off : key (5) off : key (6) off						'F4,F5,F6ｷｰ無効
	gosub gamen.4nyu
	cursor off
	gosub gamen.4s
	wsuryo$ = ""
	locate 11 , fntatechg9(4)
	a$ = fnitfget$(4 , wsuryo$)
'	//-----	 分岐設定  -----//
	ikisaki$ = wkeyflg$ : wkeyflg$ = ""						'初期化
	wsuryo$ = a$  : a$ = ""
	select ikisaki$
		case f1$								'F１を選択したとき
			kenflg9 = 6							'直送区分の変換へ抜ける
		case m1$ 								'M1を選択したとき
			if wsuryo$<> "" then
				gosub write.pic
			endif 
			if val(pic.sisu$) = val(pic.syusu$) then
				kensu9 = kensu9 + 1
				if kensu9 > lof(#pictxt9) then 
					kensetflg9 = 1 : mainflg9 = 5 : sagyoflg9 = 1	'作業確認へ抜ける
				else
					kenflg9 = 2					'JAN入力へ戻る
				endif
			else
					kenflg9 = 5					'数量エラーへ抜ける
			endif
		case ""
			wkeyflg$ = ""
			if len(wsuryo$) < 5 then					'ＥＮＴを押したとき
				if wsuryo$<> "" then
					gosub write.pic
				endif 
				return
			endif
			if openflg9 = 0 then  pic.opn endif				'ファイルをOPENする
			get #pictxt9,kensu9
			if pic.jan$ = wsuryo$ or pic.jisya$ = wsuryo$ then		'スキャンしたとき
				if val(pic.syusu$) < 9999 then
					wsuryo$ = fnspplus$(val(pic.syusu$) + 1 , 5) 
					pic.syusu$ = wsuryo$ 
					put #pictxt9,kensu9
				end if
				kenflg9 = 3
				return
			else
				errbacknum9 = 1
				kenflg9 = 4
			endif
	end select 
	return

'*****************************************************************************************
'*	内容		:	直送区分の変換						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
tyoku.chg
	on error goto err.cmn : werror$ = "tyo.error"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	on key (30) gosub menu.m1 : on key (31) gosub menu.m2				'M1,M2ｷｰ設定
	on key (1) gosub menu.f1							'F1ｷｰ設定		
	key (30) on : key (31) off : key (1) off					'M1ｷｰ有効,F1,M2ｷｰ無効
	cursor off
	gosub tyo.gamen
	gosub key.trap2
'	//-----	 分岐設定  -----//
	ikisaki$ = wkeyflg$ : wkeyflg$ = ""						'初期化
	select ikisaki$
		case m1$								'M1を押したとき
			pic.tyo$ = "0"							'直送コードを"0"にする
			put #pictxt9 ,kensu9
			kenflg9 = 3
		case ""									'ＥＮＴを押したとき
			pic.tyo$ = "1"							'直送コードを"1"にする
			pic.syusu$ = pic.sisu$						'指示数を入れる
			put #pictxt9 ,kensu9
			kenflg9 = 3
	end select
	
	return

'*****************************************************************************************
'*	内容		:	商品エラー						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
jun.error
	on error goto err.cmn : werror$ = "jun.error"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	on key (30) gosub menu.m1 : on key (31) gosub menu.m2				'M1,M2ｷｰ設定
	on key (1) gosub menu.f1 : on key (4) gosub menu.f4				'F1,F4ｷｰ設定
	on key (5) gosub menu.f5 : on key (6) gosub menu.f6				'F5,F6ｷｰ設定
	key (30) on : key (31) off								'M1ｷｰ有効,M2ｷｰ無効
	key (1) off : key (4) off : key (5) off : key (6) off				'F1,F4,F5,F6ｷｰ無効
	gosub gamen.4err
	gosub key.trap
'	//-----	 分岐設定  -----//
	ikisaki$ = wkeyflg$ : wkeyflg$ = ""						'初期化
	if ikisaki$ = m1$ then
		select errbacknum9
			case 0								'JAN入力でエラーになったとき
				kenflg9 = 2						'JAN入力でエラーに戻る
			case 1								'数量チェックでエラーになったとき
				kenflg9 = 3						'数量チェックに戻る
		end select
		return
	endif
	return

'*****************************************************************************************
'*	内容		:	PICﾌｧｲﾙ書込						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
write.pic
	on error goto err.cmn : werror$ = "write.pic"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	pic.syusu$ = fnzeroplus$(val(wsuryo$) , 5)					'数量
	put #pictxt9 , kensu9
	return

'*****************************************************************************************
'*	内容		:	数量エラー						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
suryo.err
	on error goto err.cmn : werror$ = "suryo.err"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	on key (1) gosub menu.f1 : on key (30) gosub menu.m1				'F1,M1ｷｰ設定
	key (1) on : key (30) on 							'F1,M1ｷｰ有効
	gosub gamen.4er2								'画面表示
	locate 4 , fntatechg9(4)
	gosub key.trap
'	//-----	 分岐設定  -----//
	ikisaki$ = wkeyflg$ : wkeyflg$ = ""						'初期化
	select ikisaki$ 
		case f1$								'F1を押したとき
			if  dousa$ = "0" or val(pic.sisu$) >= val(pic.syusu$) then
				 kensu9 = kensu9 + 1
				if kensu9 > lof(#pictxt9) then 
					kensetflg9 = 1 : mainflg9 = 5 : sagyoflg9 = 1	'作業確認へ抜ける
				else 
					kenflg9 = 2					'JAN入力に戻る
				endif
			endif
		case m1$								'M1を押したとき
			kenflg9 = 3							'数量チェックに戻る
		case else 
			beep							'ｴﾗｰ
			
	end select 
	return

'*****************************************************************************************
'*	内容		:	画面4(PINo選択)						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
gamen.4
	cls										'画面消去
	print "○PICNo選択     "
	print "　　　　　      "
	print "PIC:"
	print "　　　　　　　　";
	locate 5 , fntatechg9(3) : print wpicno.k$(gennum9)
	locate 10, fntatechg9(3) : print str$(gennum9)+"/"+str$(kennum9)
	return

'*****************************************************************************************
'*	内容		:	画面4(jcode選択)					 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
gamen.4nyu
	cls										'画面消去
	print "No:"
	print "得:"
	print "J:"
	print "　　　　　　　　";
	if openflg9 = 0 then  pic.opn endif						'ファイルをOPENする
	get #pictxt9 , kensu9
	locate 4 , fntatechg9(1) : print pic.picno$ ;
	locate 10 , fntatechg9(1) :
	select kyukeiflg9 
		case 0
			print fnspplus$(kensu9,3)+"/"+fnspplus$(lof(#pictxt9),3);
		case 1
			print "休憩";
	end select
	locate 4 , fntatechg9(2) : print fnmeiget$( "1" , pic.tokui$ );      
	locate 14 , fntatechg9(2) :  if pic.tyo$ = "1" then print "直" ; endif
	locate 3 , fntatechg9(3) : 
	if mid$(pic.jan$,1,13) = "" then
		print mid$(pic.jisya$ , 1 , 13);
	else
		print mid$( pic.jan$ , 1 , 13 );
	endif
	locate 1 , fntatechg9(4) : print fnhanzen$(fnspplus$(val(mid$(pic.sisu$,2,5)),4)) ;
'▼北九　都城倉庫対応　ロケ表示の追加                  15.10.28 大坪
	locate 1 , fntatechg9(5) : print "ﾛｹ:"
	locate 4 , fntatechg9(5) : print mid$(pic.roke$,1,2)
	locate 6 , fntatechg9(5) : print "-"
	locate 7 , fntatechg9(5) : print mid$(pic.roke$,3,2)
	locate 9 , fntatechg9(5) : print "-"
	locate 10 , fntatechg9(5) : print mid$(pic.roke$,5,2)
	locate 12 , fntatechg9(5) : print "-"
	locate 13 , fntatechg9(5) : print mid$(pic.roke$,7,1)
	locate 14 , fntatechg9(5) : print "-"
	locate 15 , fntatechg9(5) : print mid$(pic.roke$,8,2);
	return
'▲北九　都城倉庫対応　ロケ表示の追加                  15.10.28 大坪

'*****************************************************************************************
'*	内容		:	画面4err						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
gamen.4err
	locate 1 , fntatechg9(4) : print "●商品違い      ";
	beep ,,2,0
	return	

'*****************************************************************************************
'*	内容		:	画面4.S							 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
gamen.4s
	locate 9 , fntatechg9(4) : print fnhanzen$(fnspplus$(val(mid$(pic.syusu$,2,5)),4));'入力数量の表示
	return

'*****************************************************************************************
'*	内容		:	画面4数量ｴﾗｰ						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
gamen.4er2
	locate 1 , fntatechg9(4):
	if val(pic.sisu$) >= val(pic.syusu$) then
		print "●数量エラー    ";
	else
		print "●数量オーバー  ";
	endif
	beep ,,2,0
	return

'*****************************************************************************************
'*	内容		:	直送画面						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
tyo.gamen
	cls										'画面消去
	print "直送に"
	print "振替えますか？"
	print "ENT : はい"
	print "M1  : いいえ";
	return

'*****************************************************************************************
'*	内容		:	作業完了						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
sagyo.owr
	makeflg9 = 0
	kenpinflg9 = 0
	while makeflg9=0
		select sagyoflg9
			case 1 								'作業確認
				gosub sagyo.chk						
			case 2								'欠品チェック
				gosub keppin.chk
			case 3 								'送信
				gosub sousinb
			case 4								'HED送信
				gosub hed.soshin
			case 5								'BODY送信
				gosub body.sou
			case 6								'結果受信
				gosub kekka.ju
			case 8   							'データ送信エラー
				gosub sousin.err
			case 9								'送信完了
 				gosub sousin.kan
		end select 
	wend
	return

'*****************************************************************************************
'*	内容		:	作業確認						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
sagyo.chk
	on error goto err.cmn : werror$ = "sagyo.kaku"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	on key (30) gosub menu.m1 : on key (31) gosub menu.m2				'M1,M2ｷｰ設定
	on key (4) gosub menu.f4 : on key (5) gosub menu.f5 : on key (6) gosub menu.f6	'F4,F5,F6ｷｰ設定
	key (30) on : key (31) on							'M1,M2ｷｰ有効
	key (5) on									'F5ｷｰ有効
	key (4) off : key (6) off							'F4,F6ｷｰ無効
	gosub pic.get.d
	gosub gamen.6
	gosub key.trap
'	//-----	 分岐設定  -----//
	ikisaki$ = wkeyflg$ : wkeyflg$ = ""						'初期化
	end.flg9 = on9
	select ikisaki$
		case f5$								'F5を押したとき
			kensu9 = lof(#pictxt9)						'最終レコードを表示
			makeflg9=1 : mainflg9 = 4 : kenflg9 = 2				'JAN入力に戻る
		case m1$								'M1を押したとき
			if kenpinflg9 = 1 then
				sagyoflg9 = 2						'送信 欠品警告へ抜ける
			else
				sagyoflg9 = 3 						'送信確認画面
			endif
		case m2$								'M2を押したとき
			for i9 = 1 to lof(#pictxt9)
				if openflg9 = 0 then  pic.opn endif			'ファイルをOPENする
				beep ,,0						'件数が多くなるとﾙｰﾌﾟを脱出しないのを回避するためのbeep
				get #pictxt9 , i9
				if pic.sisu$ > pic.syusu$ then				'欠品があるか調べる
					kensu9 = i9 : makeflg9=1
					mainflg9 = 4 : kenflg9 = 2			'JAN入力に戻る
					cls
					return
				endif
			next i9
			kensu9 = lof(#pictxt9)
		 	makeflg9=1 : mainflg9 = 4 : kenflg9 = 2				'JAN入力に戻る
		case else
			beep
			sagyoflg9 = 1
	end select
	return

'*****************************************************************************************
'*	内容		:	送信 欠品警告						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
keppin.chk
	on error goto err.cmn : werror$ = "sagyo.err"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	on key (1) gosub menu.f1 : on key (5) gosub menu.f5	 			'F1,F5ｷｰ設定
	on key (30) gosub menu.m1 : on key (31) gosub menu.m2				'M1,M2ｷｰ設定
	key (1) on :key (31) on								'F1,M2ｷｰ有効
	key (5) off : key (30) off :							'F5,M1ｷｰ無効
	gosub gamen.6wor								'画面表示
	gosub key.trap
'	//-----	 分岐設定  -----//
	ikisaki$ = wkeyflg$ : wkeyflg$ = ""						'初期化

	select ikisaki$
		case f1$								'F1を押したとき
			sagyoflg9 = 3							'送信確認画面へ抜ける
		case m2$								'M2を押したとき
			sagyoflg9 = 1							'作業確認へ戻る 
		case else
			beep								'ｴﾗｰ
			sagyouflg9 = 2
	end select
	return

'*****************************************************************************************
'*	内容		:	送信確認画面						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
sousinb
	on error goto err.cmn : werror$ = "soshinb1"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	on key (1) gosub menu.f1 : on key (30) gosub menu.m1				'F1,M1ｷｰ設定
	on key (31) gosub menu.m2							'M2ｷｰ設定
	key (1) off : key (30) on : key (31) on						'F1ｷｰ無効,M1,M2ｷｰ有効
	gosub gamen.sou									'画面表示
	gosub key.trap
'	//-----	 分岐設定  -----//
	ikisaki$ = wkeyflg$ : wkeyflg$ = ""						'初期化
	select ikisaki$ 
		case m1$								'M1を押したとき
			sagyoflg9 = 4							'HED送信に抜ける
		case m2$								'M2を押したとき
			sagyoflg9 = 1							'作業確認に戻る
		case else
			beep										'ｴﾗｰ
			sagyoflg9 = 3
	end select
	return

'*****************************************************************************************
'*	内容		:	HED送信							 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
hed.soshin
	on error goto err.cmn : werror$ = "HED送信"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	syuryo.j$ = fndtdev$(time$)
	gosub piched.opn
' ▼PD4化 2014/08 T.S
'	hed.picno$	= fnzeroplus$(val(wpicno.k$(1)) ,5)
	hed.picno$	= ufnmaezero$(ufnnumstr$(val(wpicno.k$(1))), 6)
' ▲PD4化 2014/08 T.S
	hed.tanto$	= fnzeroplus$(val(wtanto.c$) ,3)
' ▼PD4化 2014/08 T.S
'	hed.kaisi$	= fnzeroplus$(val(kaisi.j$) , 6)
'	hed.syuryo$ 	= fnzeroplus$(val(syuryo.j$) , 6)
'	hed.kyukei$	= fnzeroplus$(val(kyukei$) , 6)
	hed.kaisi$	= ufnmaezero$(ufnnumstr$(val(kaisi.j$)), 6)
	hed.syuryo$ = ufnmaezero$(ufnnumstr$(val(syuryo.j$)), 6)
	hed.kyukei$	= ufnmaezero$(ufnnumstr$(val(kyukei$)), 6)
' ▲PD4化 2014/08 T.S

	hed.sijig$	= fnzeroplus$(val(wgyosu.t$), 4)
' ▼PD4化 2014/08 T.S
'	hed.sijic$	= fnzeroplus$(val(wkeisu.t$) , 7)
	hed.sijic$	= ufnmaezero$(ufnnumstr$(val(wkeisu.t$)), 7)
' ▲PD4化 2014/08 T.S
	hed.kekkag$	= fnzeroplus$(val(wtgyosu$), 4)
' ▼PD4化 2014/08 T.S
'	hed.kekkac$	= fnzeroplus$(val(wtkeisu$), 7)
	hed.kekkac$	= ufnmaezero$(ufnnumstr$(val(wtkeisu$)), 7)
' ▲PD4化 2014/08 T.S
'ILS-ADD Start 北九州共和個別カスタマイズ 導入
	hed.prtno$ = "000"
	hed.hhtno$ = hht$
'ILS-ADD End 北九州共和個別カスタマイズ 導入
	put #piched9 , 1
	close #piched9
	cls
	print "送信中　HED 　　"
'ILS-MOD Start 北九州共和個別カスタマイズ 導入
'	print "00000/" + "00001"
'	locate 1 , fntatechg9(2)
'	open comport$ as #souju9
'	xfile piched$ , sousin$
'	close #souju9
'' ▼PD4化 2014/08 T.S
'    timea = 5  :  wait 0,&h10
'' ▲PD4化 2014/08 T.S
'	beep
''	//-----	 受信エラー発生時のため  -----//
'	sagyoflg9 = 5									'BODY送信へ抜ける

	f.err9 = 0
	if stype$ = "0" then
		print "00000/" + "00001"
		locate 1 , fntatechg9(2)
		open comport$ as #souju9
		xfile piched$ , sousin$
		close #souju9
	else
		f.cfnm$ = piched$
'▼北九ファイル名を変更            15.05.26 大坪
'		f.sfnm$ = casehedfname$ + hht$ + "." + hedext$
'		f.sfnm$ = "C" + hht$ + wpicno.k$(1) + "." + piyext$
'		gosub f.txtup
		close #pictxt9
'▼北九 picno$の値を設定する                15.06.02 大坪
		f.picno$ = mid$(hed.picno$ , 2 , 5 )
'▲北九 picno$の値を設定する                15.06.02 大坪
		gosub f.pupck
'▲北九ファイル名を変更            15.05.26 大坪
		
	endif

	if f.err9 = 0 then
	    timea = 5  :  wait 0,&h10
		beep
'▼有線と無線で処理を分ける           15.06.02 大坪
'		sagyoflg9 = 5									'BODY送信へ抜ける
		if stype$ = "0" then
			sagyoflg9 = 5
		else
			sagyoflg9 = 9
		endif
'▲有線と無線で処理を分ける           15.06.02 大坪
	else
		openflg9 = 0
		goto sagyo.chk
	endif

'ILS-MOD End 北九州共和個別カスタマイズ 導入
	return

'*****************************************************************************************
'*	内容		:	BODY送信						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
body.sou
	on error goto err.cmn : werror$ = "BOD送信"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	cls
	print "送信中　BODY　　"
'ILS-MOD Start 北九州共和個別カスタマイズ 導入
'	print "00000/" + fnzeroplus$(val(wgyosu.t$) , 5)
'	locate 1 , fntatechg9(2)
'	close #pictxt9
'	open comport$ as #souju9
'	xfile pictxt$ , sousin$
'	close #souju9
'' ▼PD4化 2014/08 T.S
'    timea = 5  :  wait 0,&h10
'' ▲PD4化 2014/08 T.S
'	beep
'	sagyoflg9 = 6									'KEK受信に抜ける
'	gosub pic.opn

	f.err9 = 0
	if stype$ = "0" then
		print "00000/" + fnzeroplus$(val(wgyosu.t$) , 5)
		locate 1 , fntatechg9(2)
		close #pictxt9
		open comport$ as #souju9
		xfile pictxt$ , sousin$
		close #souju9
	else
		close #pictxt9
		f.cfnm$ = pictxt$
'▼北九ファイル名を変更            15.05.26 大坪
'		f.sfnm$ = casetxtfname$ + hht$ + "." + piyext$
		f.sfnm$ = "C" + hht$ + wpicno.k$(1) + "." + txtext$
'▲北九ファイル名を変更            15.05.26 大坪
		gosub f.txtup
	endif

	if f.err9 = 0 then
	    timea = 5  :  wait 0,&h10
		beep
		sagyoflg9 = 6									'KEK受信に抜ける
		gosub pic.opn
	else
		openflg9 = 0
		gosub pic.opn
		goto sagyo.chk
	endif
'ILS-MOD End 北九州共和個別カスタマイズ 導入
	return

'*****************************************************************************************
'*	内容		:	KEK受信							 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
kekka.ju
	on error goto err.cmn : werror$ = "KEK受信"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	cls
	print "受信中　結果　　"
'ILS-MOD Start 北九州共和個別カスタマイズ 導入
'	open comport$ as #souju9
'	xfile picend$ , jusin$
'	close #souju9
'' ▼PD4化 2014/08 T.S
'    timea = 5  :  wait 0,&h10
'' ▲PD4化 2014/08 T.S
'	beep
'	gosub picend.opn
'	get #picend9 , 1
'	a$ = mid$(picend.pic$ , 1 , 3)
'	close #picend9
'	if a$ ="ERR" then 
'		sagyoflg9 = 8								'データ送信エラーへ抜ける 
'	else 
'		sagyoflg9 = 9 								'送信完了へ抜ける
'	endif
'▼北九　無線の場合はテキストを置いたら送信完了とする   15.05.26 大坪
	f.err9 = 0
	if stype$ = "0" then
		open comport$ as #souju9
		xfile picend$ , jusin$
		close #souju9
'	else
'		f.cfnm$ = picend$
'		f.sfnm$ = caseendfname$ + hht$ + "." + txtext$
'		f.fld$  = caseendffld$
'		gosub f.txtdown
'
'	endif
		if f.err9 = 0 then
		    timea = 5  :  wait 0,&h10
			beep
			gosub picend.opn
			get #picend9 , 1
			a$ = mid$(picend.pic$ , 1 , 3)
			close #picend9
			if a$ ="ERR" then 
				sagyoflg9 = 8								'データ送信エラーへ抜ける 
			else 
				sagyoflg9 = 9 								'送信完了へ抜ける
			endif
		else
			openflg9 = 0
			goto sagyo.chk
		endif
	else
		sagyoflg9 = 9 								'送信完了へ抜ける
	endif
'▲北九　無線の場合はテキストを置いたら送信完了とする   15.05.26 大坪
'ILS-MOD End 北九州共和個別カスタマイズ 導入
	return

'*****************************************************************************************
'*	内容		:	ﾋﾟｯｷﾝｸﾞﾃﾞｰﾀ 送信ｴﾗｰ					 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
sousin.err
	on error goto err.cmn : werror$ = "sousin.err"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	on key (30) gosub menu.m1 : on key (31) gosub menu.m2				'M1,M2ｷｰ設定
	key (30) on : key (31) off							'M1ｷｰ有効,M2ｷｰ無効
	gosub gamen.9err								'画面表示
	gosub key.trap
'	//-----	 分岐設定  -----//
	ikisaki$ = wkeyflg$ : wkeyflg$ = ""						'初期化
	if ikisaki$ = m1$ then								'M1を押したとき
		sagyoflg9=1 : return 							'作業確認に戻る
	endif
	beep										'ｴﾗｰ
	sagyoflg9 = 8
	return

'*****************************************************************************************
'*	内容		:	送信完了						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
sousin.kan
	on error goto err.cmn : werror$ = "sousin.end"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	on key (30) gosub menu.m1 : on key (31) gosub menu.m2				'M1,M2ｷｰ設定
	key (30) on : key (31) off							'M2ｷｰ無効, M1ｷｰ有効
	if openflg9 = 0 then
		gosub pic.opn 
	end if
	close #pictxt9 : openflg9 = 0 : kill pictxt$					'a:C_PICNO.TXTをクリア
	gosub piched.opn : close #piched9 : kill piched$				'a:C_PICNO.HEDをクリア
	gosub picetc.opn : close #picetc9 : kill picetc$				'a:C_PICST.TXTをクリア
	gosub picerr.opn : close #picerr9 : kill picerr$				'a:C_PICERR.TXTをクリア
	gosub picend.opn : close #picend9 : kill picend$				'a:C_PICEND.TXTをクリア	
	erase wpicno.k$									'wpicno.k$配列の消去
	gosub gamen.9kan
	gosub key.trap
'	//-----	 分岐設定  -----//
	ikisaki$ = wkeyflg$ : wkeyflg$ = ""						'初期化
	if ikisaki$ = m1$ then								'M1を押したとき 
		makeflg9=1 : mainflg9 = 1						'担当者入力に戻る
'-- ﾋﾟｯｷﾝｸﾞ枚数を増やしたい   00.08.25----------/
'		dim wpicno.k$(20)							'初期化
		dim wpicno.k$(picmaisu9)					'初期化
		kennum9 = 0								'初期化
	endif	
	beep										'ｴﾗｰ
	sagyoflg9 = 9
	return
'*****************************************************************************************
'*	内容		:	画面６							 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
gamen.6
	cls										'画面消去
	print "○作業確認"
	print "枚数 "
	print "行数 "
	print "ｹｰｽ数";
	locate 7 , fntatechg9(2) : print wmaisu$;					'総枚数表示
	locate 11 , fntatechg9(2) : print ":"
	locate 12 , fntatechg9(2) : print wmaisu$;					'総枚数表示
	locate 7 , fntatechg9(3) : print wgyosu.t$;					'総行数
	locate 11 , fntatechg9(3) : print ":"
	locate 12, fntatechg9(3) : print wtgyosu$;					'実行数
	locate 16, fntatechg9(3) :
	if wgyosu.t$ <> wtgyosu$ then print "*"; endif					'違い表示
	locate 7 , fntatechg9(4) : print wkeisu.t$;					'総指示ケース数
	locate 11, fntatechg9(4) : print ":";
	locate 12, fntatechg9(4) : print wtkeisu$;					'実際総ケース数
	locate 16, fntatechg9(4) :
	if kenpinflg9 = 1 then print "*"; endif						'違い表示
	return

'*****************************************************************************************
'*	内容		:	画面６wor						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
gamen.6wor
	cls										'画面消去
	print "○作業確認"
	print "　　　　"
	print "欠品あり　　　"
	print "OK=F1　NO=M2　　";
	beep ,,2,0									'警告
	return

'*****************************************************************************************
'*	内容		:	画面９err						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
gamen.9err
	cls										'画面消去
	print "○データ送信　　"
	print " 　　　　　"
	print "●通信エラーです"
	print "　　　　　　　　";
	return

'*****************************************************************************************
'*	内容		:	画面９kan						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
gamen.9kan
	cls																		'画面消去
	print "○作業確認　　"
	print " 　　　　　"
	print "○送信完了　　　"
	print "　　　　　　　　";
	return

'*****************************************************************************************
'*	内容		:	PICﾌｧｲﾙ総件数取得					 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
pic.get
	on error goto err.cmn								'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	wgyosu.t9 = 0 :  wkeisu.t9 = 0							'変数初期化
	wmaisu$ = fnspplus$(kennum9 , 4)
	wgyosu.t$ = fnspplus$(lof(#pictxt9) , 4)
	if openflg9 = 0 then  pic.opn endif
	for i9 = 1 to lof(#pictxt9)
		beep ,,0								'件数が多くなるとﾙｰﾌﾟを脱出しないのを回避するためのbeep
		get #pictxt9 , i9
		wkeisu.t9 = wkeisu.t9 + val(pic.sisu$)
	next i9
	wkeisu.t$ = fnspplus$(wkeisu.t9 , 4)
	return

'*****************************************************************************************
'*	内容		:	PICﾌｧｲﾙ総件数取得(data)					 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
pic.get.d
	on error goto err.cmn : werror$ = "pic.get.d"					'ｴﾗｰﾄﾗｯﾋﾟﾝｸﾞ設定
	wtgyosu9 = 0 : wtkeisu9 = 0							'変数初期化
	if openflg9 = 0 then  pic.opn endif						'ファイルをOPENする
	for i9 = 1 to lof(#pictxt9)
		beep ,,0								'件数が多くなるとﾙｰﾌﾟを脱出しないのを回避するためのbeep
		get #pictxt9 , i9
		wtkeisu9 = wtkeisu9 + val(pic.syusu$)
		if val(pic.syusu$) <> 0 then
			wtgyosu9 = wtgyosu9 + 1
		endif
		if val(pic.sisu$) > val(pic.syusu$) then
			kenpinflg9 = 1
		endif
	next i9
	wtgyosu$ = fnspplus$(wtgyosu9 , 4)
	wtkeisu$ = fnspplus$(wtkeisu9 , 4)
	return
'*****************************************************************************************
'*	内容		:	サブルーチン読込					 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
'$include:'progcsub.src'								'ケース検品用SUB
'$include:'syssub.src'									'ｼｽﾃﾑ設定
'ILS-ADD Start 北九州共和個別カスタマイズ 導入 
'$include:'ftpkan.src'
'$include:'ftpMAIN.src'
'$include:'FTPinspection.src'
'ILS-ADD Start 北九州共和個別カスタマイズ 導入 

'*****************************************************************************************
'*	内容		:	ｴﾗｰ処理(共通)						 *
'*	作成日		:	00.07.21						 *
'*****************************************************************************************
err.cmn
	beep
	close
	openflg9 = 0
	cls
	ikisaki$ = ""
	select werror$
		case "HED送信"
			ikisaki$ = "1"
		case "BOD送信"
			ikisaki$ = "2"
		case "KEK受信"
			ikisaki$ = "3"
		case "PIC送信"
			ikisaki$ = "P"
		case "PIC受信"
			ikisaki$ = "J" : kekka$ = ""
		case ""		   :
			print "ERROR!　　　　　"
			print "Error No. 　　　"
			print "　　　　　　　　"
			print "　　　　　　　　";
			locate 1 , fntatechg9(3) : print hex$(err) ;
			locate 9 , fntatechg9(3) : print hex$(erl);
			wait 0 , 3 : wkeyflg$ = "" : ikisaki$ = "END"
		case else
			print "　　　　　ERROR!"
			print "Error No. 　　　"
			print "　　　　　　　　"
			print "　　　　　　　　";
			locate 1 , fntatechg9(1) : print werror$;
			locate 1 , fntatechg9(3) : print hex$(err) ;
			locate 9 , fntatechg9(3) : print hex$(erl);
			wait 0 , 3 : wkeyflg$ = ""
			
	end select
	if ikisaki$ = "P" or ikisaki$ = "1" or ikisaki$ = "2" or ikisaki$ = "J" or ikisaki$ = "3" then
			print "通信エラー　　　"
			print "再度処理を行って"
			print "　　　　　下さい"
			print "　　　　　　　　";
' ▼PD4化 2014/08 T.S
            locate 1, fntatechg9(4)  :  print hex$(err);
            locate 9, fntatechg9(4)  :  print hex$(erl)
' ▲PD4化 2014/08 T.S
			wait 0 , 3 : wkeyflg$ = ""
	endif
	if ikisaki$ = "P" then resume soshin.c endif
	if ikisaki$ = "J" then resume soshin.c endif
	if ikisaki$ = "1" then resume sagyo.chk endif
	if ikisaki$ = "2" then resume sagyo.chk endif
	if ikisaki$ = "3" then resume sagyo.chk endif
	chain menu$
	return
