'ILS-ADD Start 2015/05/22 出荷検品無線対応
'+---------------------------------------------------------------------------+
'|		ピッキングテキストの受信	99999.txt                    |
'| 開始テキストの送信が必要（ＡＳＰＡＣで処理中扱いとする為）   大坪         |
'+---------------------------------------------------------------------------+

f.pdown

	'初期処理
    '｜変数の個数が最大数をオーバーした対応
	f.proc%=0

	'FTPﾊﾟﾗﾒﾀ取得
	gosub f.init
	if f.err9=1 then return endif

	'ﾛｸﾞｲﾝ
	gosub f.login
	if f.err9=1 then return endif

	'ｶﾚﾝﾄをﾃﾞｰﾀﾌｫﾙﾀﾞにする
	f.chdir$=f.dinpic$								'データﾌｫﾙﾀﾞ名
	gosub f.chgdir
	if f.err9=1 then return endif

	'ﾃﾞｰﾀﾀﾞｳﾝﾛｰﾄﾞ
	if CSkenpin$ = "C" then
		f.sfnm$=mid$(wpicno$ , 1 , 5)+"C.TXT"			'受信ﾌｧｲﾙ(ｹｰｽ専用検品)
	else
		f.sfnm$=mid$(wpicno$ , 1 , 5)+".TXT"			'受信ﾌｧｲﾙ
	endif

	f.cfnm$=pictxt$
	f.fld$=picffld$
	gosub f.downld									'ダウンロード
	if f.err9=1 then return endif

	'ｻｰﾊﾞﾋﾟｯｷﾝｸﾞﾃｷｽﾄの削除
	f.sfnm$=f.sfnm$
	gosub f.del										'ｻｰﾊﾞﾌｧｲﾙ削除
	if f.err9=1 then return endif

'▼北九　検品作業開始テキストを作成する					15.06.08 大坪
	'ｶﾚﾝﾄをﾃﾞｰﾀﾌｫﾙﾀﾞにする
	f.chdir$=f.dotpic$								'結果ﾌｫﾙﾀﾞ
	gosub f.chgdir
	if f.err9=1 then return endif

	'ﾃﾞｰﾀｱｯﾌﾟﾛｰﾄﾞ1
	gosub picetc.opn
	picetc.pic$ = mid$(wpicno$ , 1 , 5) : picetc.tan$ = mid$(wtanto$ , 1 , 3)
	put picetc9 , 1
	close #picetc9

	f.cfnm$=picetc$									'ﾛｰｶﾙﾌｧｲﾙ名(PICNO.TXT)
	f.sfnm$= mid$(wpicno$ , 1 , 5) + hht$ + ".PIS"		'送信ﾌｧｲﾙ名
	gosub f.upld									'アップロード
	if f.err9=1 then return endif

	'ｶﾚﾝﾄを管理ﾌｫﾙﾀﾞにする
	k.proc%=K.CDIR%									'管理ﾌｫﾙﾀﾞ移動
	f.chdir$=f.dkanri$
	gosub f.chgdir
	if f.err9=1 then return endif

	f.cfnm$=picetc$									'ﾛｰｶﾙﾌｧｲﾙ名(PICNO.PIS)
	f.sfnm$= mid$(wpicno$ , 1 , 5) + hht$ + ".PIS"		'送信ﾌｧｲﾙ名
	gosub f.upld									'アップロード
	if f.err9=1 then return endif
'▲北九　検品作業開始テキストを作成する					15.06.08 大坪


	'終了処理
	gosub f.logoff							'ﾛｸﾞｵﾌ
	if f.err9=1 then return endif

	gosub f.quit
	if f.err9=1 then return endif

	return

