'ILS-ADD Start  北九州共和個別カスタマイズ 導入 
'********************************************************************************
'*		内容		：		ＳＳ無線ＦＴＰ対応(BHT7500S)						*
'*					：		出荷検品、梱包検品、ピック梱包検品					*
'*					：		ケーススキャン送信、積込検品送信					*
'*		作成日		：		2015.04.16											*
'********************************************************************************

'+------------------------------------------------------------------------------+
'|                                                                      	    |
'|	ASPAC消費財卸　ハンディオプション											|
'|		ﾌﾟﾛｸﾞﾗﾑ		：		各種検品用無線ﾃﾞｰﾀ送受信							|
'|		ﾌﾟﾛｸﾞﾗﾑ ID	：		FTPinspection										|
'|		作成者		：		morimoto											|
'|		作成日		：		2015.04.16											|
'|		ﾊﾞｰｼﾞｮﾝ		：															|
'|        	                                                             	    |
'+------------------------------------------------------------------------------+

'+------------------------------------------------------------------------------+
'|		テキストの受信							|
'|		f.cfnm,f.sfnm,f.fldは呼び出し元で設定する事			|
'+------------------------------------------------------------------------------+
f.txtdown

	f.errfuncmode% = 1
	if f.cfnm$ = "" or f.sfnm$ = "" or f.fld$ = "" then
		beep 1,1,3
		return
    endif

	'初期処理
	f.proc%=0

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

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

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

	gosub f.downld									'ダウンロード
	if f.err9=1 then
		gosub f.resetF
		return 
	endif

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

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

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

	gosub f.resetF

	f.errfuncmode% = 0
	return

'+---------------------------------------------------------------------------+
'|		テキストの送信														 |
'|		f.cfnm,f.sfnmは呼び出し元で設定する事							 	 |
'+---------------------------------------------------------------------------+
f.txtup

	f.errfuncmode% = 1
	if f.cfnm$ = "" or f.sfnm$ = "" then
		beep 1,1,3
		return
    endif

	'初期処理
	f.stat%=0
	f.proc%=0
	k.proc%=0

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

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

	'ｶﾚﾝﾄをﾃﾞｰﾀﾌｫﾙﾀﾞにする
'要確認（大坪）

	if right$(f.sfnm$ , 3) = "txt" or right$(f.sfnm$ , 3) = "hed" then
		f.chdir$=f.drcv$								'結果ﾌｫﾙﾀﾞ
	else
		f.chdir$=f.dkanri$
	endif
'要確認（大坪）
	gosub f.chgdir
	if f.err9=1 then
		gosub f.resetF
		return 
	endif

	'ﾃﾞｰﾀｱｯﾌﾟﾛｰﾄﾞ1
	gosub f.upld									'アップロード
	if f.err9=1 then
		gosub f.resetF
		return 
	endif

	gosub f.logoff									'ﾛｸﾞｵﾌ
	if f.err9=1 then
		gosub f.resetF
		return 
	endif

	'終了処理
	gosub f.quit
	if f.err9=1 then
		gosub f.resetF
		return 
	endif

	gosub f.resetF

	return


'+---------------------------------------------------------------------------+
'|		ピッキングテキストの送信	PICNO.HED	→	htxxxxx.hed				 |
'|									PICNO.TXT	→	htxxxxx.TXT				 |
'|									管理ﾌｧｲﾙ	→	htxxxxx.pic				 |
'|              出荷検品用
'+---------------------------------------------------------------------------+
f.pup

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

	'時間の取得
	f.time$=mid$(time$,1,2)+mid$(time$,4,2)+mid$(time$,7,2)

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

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

	'ｶﾚﾝﾄをﾃﾞｰﾀﾌｫﾙﾀﾞにする
	f.chdir$=f.dotpic$								'結果ﾌｫﾙﾀﾞ
	gosub f.chgdir
	if f.err9=1 then return endif

	'ﾃﾞｰﾀｱｯﾌﾟﾛｰﾄﾞ1
	f.cfnm$=piched$									'ﾛｰｶﾙﾌｧｲﾙ名(PICNO.HED)
	f.sfnm$= mid$(wpicno$ , 1 , 5) + hht$ + ".HED"		'送信ﾌｧｲﾙ名
	gosub f.upld									'アップロード
	if f.err9=1 then return endif

	'ﾃﾞｰﾀｱｯﾌﾟﾛｰﾄﾞ2
	f.cfnm$=pictxt$									'ﾛｰｶﾙﾌｧｲﾙ名(PICNO.TXT)
	f.sfnm$= mid$(wpicno$ , 1 , 5) + hht$ + ".TXT"		'送信ﾌｧｲﾙ名
	gosub f.upld									'アップロード
	if f.err9=1 then return endif

	'管理ﾌｧｲﾙの送信
	k.proc%=0

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

	k.proc%=K.KANRI%
	kanrif$=mid$(wpicno$ , 1 , 5) + hht$ + ".PIC"		'管理ﾌｧｲﾙの作成
	gosub f.kopn
	if f.err9=1 then return endif

	k.proc%=K.UP%									'管理ﾌｧｲﾙ送信
	f.sfnm$=""
	f.cfnm$=kanrif$
	gosub f.upld									'アップロード
	if f.err9=1 then return endif

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

	'終了処理
	gosub f.quit
	if f.err9=1 then return endif
	kill mid$(kanrif$,1)							'ﾛｰｶﾙ管理ﾌｧｲﾙ削除

	return
'ILS-ADD End 2015/05/22 出荷検品無線対応

'+---------------------------------------------------------------------------+
'|		ピッキングテキストの送信	PICNO.HED	→	htxxxxx.hed				 |
'|									PICNO.TXT	→	htxxxxx.TXT				 |
'|									管理ﾌｧｲﾙ	→	htxxxxx.pic				 |
'|              ﾋﾟｯｷﾝｸﾞ梱包検品用
'+---------------------------------------------------------------------------+
f.puppkk

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

	'時間の取得
	f.time$=mid$(time$,1,2)+mid$(time$,4,2)+mid$(time$,7,2)

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

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

	'ｶﾚﾝﾄをﾃﾞｰﾀﾌｫﾙﾀﾞにする
	f.chdir$=f.dotpic$								'結果ﾌｫﾙﾀﾞ
	gosub f.chgdir
	if f.err9=1 then return endif

	'ﾃﾞｰﾀｱｯﾌﾟﾛｰﾄﾞヘッダ
	f.cfnm$=fpkjsk$									'ﾛｰｶﾙﾌｧｲﾙ名(PICNO.HED)
	f.sfnm$= f.picno$ + hht$  + ".HED"					'送信ﾌｧｲﾙ名
	gosub f.upld									'アップロード
	if f.err9=1 then return endif

	'ﾃﾞｰﾀｱｯﾌﾟﾛｰﾄﾞ明細
	f.cfnm$=fpkdat$									'ﾛｰｶﾙﾌｧｲﾙ名(PICNO.TXT)
	f.sfnm$= f.picno$ + hht$ + ".TXT"					'送信ﾌｧｲﾙ名
	gosub f.upld									'アップロード
	if f.err9=1 then return endif

	'管理ﾌｧｲﾙの送信
	k.proc%=0

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

	k.proc%=K.KANRI%
	kanrif$=hht$+mid$(wpicno$ , 1 , 5)+".PIC"
'	kanrif$= f.picno$ + hht$ + ".PIX"					'管理ﾌｧｲﾙの作成
	gosub f.kopn
	if f.err9=1 then return endif

	k.proc% = K.UP%									'管理ﾌｧｲﾙ送信
	f.cfnm$ = kanrif$
	f.sfnm$ = f.picno$ + hht$ + ".PIX"
	gosub f.upld									'アップロード
	if f.err9=1 then return endif

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

	'終了処理
	gosub f.quit
	if f.err9=1 then return endif
	kill mid$(kanrif$,1)							'ﾛｰｶﾙ管理ﾌｧｲﾙ削除

	return
'ILS-ADD End 2015/05/22 出荷検品無線対応
'+---------------------------------------------------------------------------+
'|		ピッキングテキストの送信	PICNO.HED	→	htxxxxx.hed				 |
'|									PICNO.TXT	→	htxxxxx.TXT				 |
'|									管理ﾌｧｲﾙ	→	htxxxxx.pic				 |
'|              梱包検品用
'+---------------------------------------------------------------------------+
f.pupkk

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

	'時間の取得
	f.time$=mid$(time$,1,2)+mid$(time$,4,2)+mid$(time$,7,2)

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

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

	'ｶﾚﾝﾄをﾃﾞｰﾀﾌｫﾙﾀﾞにする
	f.chdir$=f.dotpic$								'結果ﾌｫﾙﾀﾞ
	gosub f.chgdir
	if f.err9=1 then return endif

	'ﾃﾞｰﾀｱｯﾌﾟﾛｰﾄﾞ1
	f.cfnm$ = piched$									'ﾛｰｶﾙﾌｧｲﾙ名(PICNO.HED)
	f.sfnm$ = f.picno$ + hht$  + ".HED"		'送信ﾌｧｲﾙ名
	gosub f.upld									'アップロード
	if f.err9=1 then return endif

	'ﾃﾞｰﾀｱｯﾌﾟﾛｰﾄﾞ2
	f.cfnm$ = pictxt$									'ﾛｰｶﾙﾌｧｲﾙ名(PICNO.TXT)
	f.sfnm$ = f.picno$ + hht$  + ".TXT"		'送信ﾌｧｲﾙ名
	gosub f.upld									'アップロード
	if f.err9=1 then return endif

	'管理ﾌｧｲﾙの送信
	k.proc%=0

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

	k.proc%=K.KANRI%
	kanrif$=hht$+mid$(wpicno$ , 1 , 5)+".PIC"					'管理ﾌｧｲﾙの作成
	gosub f.kopn
	if f.err9=1 then return endif

	k.proc% = K.UP%									'管理ﾌｧｲﾙ送信
	f.cfnm$ = kanrif$
	f.sfnm$ = f.picno$ + hht$ + ".PIZ"
	gosub f.upld									'アップロード
	if f.err9=1 then return endif

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

	'終了処理
	gosub f.quit
	if f.err9=1 then return endif
	kill mid$(kanrif$,1)							'ﾛｰｶﾙ管理ﾌｧｲﾙ削除

	return
'ILS-ADD End 2015/05/22 出荷検品無線対応

'+---------------------------------------------------------------------------+
'|		ピッキングテキストの送信	PICNO.HED	→	htxxxxx.hed				 |
'|									PICNO.TXT	→	htxxxxx.TXT				 |
'|									管理ﾌｧｲﾙ	→	htxxxxx.pic				 |
'|              ケース検品用
'+---------------------------------------------------------------------------+
f.pupck

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

	'時間の取得
	f.time$=mid$(time$,1,2)+mid$(time$,4,2)+mid$(time$,7,2)

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

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

	'ｶﾚﾝﾄをﾃﾞｰﾀﾌｫﾙﾀﾞにする
	f.chdir$=f.dotpic$								'結果ﾌｫﾙﾀﾞ
	gosub f.chgdir
	if f.err9=1 then return endif

	'ﾃﾞｰﾀｱｯﾌﾟﾛｰﾄﾞ1
	f.cfnm$ = piched$							
	f.sfnm$ = f.picno$ + hht$ + ".HED"			'送信ﾌｧｲﾙ名
	gosub f.upld									'アップロード
	if f.err9=1 then return endif

	'ﾃﾞｰﾀｱｯﾌﾟﾛｰﾄﾞ2
	f.cfnm$ = pictxt$									'ﾛｰｶﾙﾌｧｲﾙ名(PICNO.TXT)
	f.sfnm$ = f.picno$ + hht$ + ".TXT"			'送信ﾌｧｲﾙ名
	gosub f.upld									'アップロード
	if f.err9=1 then return endif

	'管理ﾌｧｲﾙの送信
	k.proc%=0

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

	k.proc%=K.KANRI%
	kanrif$= hht$+mid$(wpicno$ , 1 , 5)+".PIC"					'管理ﾌｧｲﾙの作成
	gosub f.kopn
	if f.err9=1 then return endif

	k.proc% = K.UP%									'管理ﾌｧｲﾙ送信
	f.cfnm$ = kanrif$
	f.sfnm$ = f.picno$ + hht$ + ".PIY"
	gosub f.upld									'アップロード
	if f.err9=1 then return endif

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

	'終了処理
	gosub f.quit
	if f.err9=1 then return endif
	kill mid$(kanrif$,1)							'ﾛｰｶﾙ管理ﾌｧｲﾙ削除

	return
'ILS-ADD End 2015/05/22 出荷検品無線対応


'+-----------------------------------------------+
'| 送受信ファイル名初期化                        |
'+-----------------------------------------------+
f.resetF
	f.cfnm$ = ""
	f.sfnm$ = ""
	f.fld$  = ""
	f.errfuncmode% = 0
	return

'+-----------------------------------------------+
'| ｴﾗｰ時の処理                                   |
'+-----------------------------------------------+
Er3Ftp

  'ｴﾗｰ割込み設定
  on error goto ErrIgnore2                         'ｴﾗｰ割込み設定

	'f.proc%に処理内容、f.stat%に状態を保存している。
	'値の意味は変数定義のftpwork.src内のF.xxxx%を参照

	'エラーメッセージ生成
	err.proc$=""
	err.coment$=""

	select case f.proc%
		case	0
			err.proc$="初期処理失敗　"
		case	4
			err.proc$="ログイン失敗　"
		case	5
			err.proc$="指定ﾌｫﾙﾀﾞなし "
			err.coment$=f.chdir$
		case	6
			err.proc$="管理Ｆ作成失敗"
			err.coment$=kanrif$
		case	7
			err.proc$="ﾌｧｲﾙ受信失敗　"
			err.coment$=f.sfnm$
		case	8
			err.proc$="ﾌｧｲﾙ送信失敗　"
			err.coment$=f.cfnm$
		case	9
			err.proc$="ﾌｧｲﾙ変名失敗　"
		case	10
			err.proc$="ﾌｧｲﾙ削除失敗　"
			err.coment$=f.sfnm$
		case	11
			err.proc$="ログオフ失敗　"
		case	12
			err.proc$="終了処理失敗　"
		case	else
			err.proc$="原因不明のエラー "
	end select

	'サーバにファイルがない
	if (f.proc%=F.DOWN% or f.proc%=F.RENM% or f.proc%=F.DEL%) _
	    and err.code%=ERR.DOWN% and sav.reply%=ERR.REPLY% then
			'ファイルが存在しない。
			cls
			print "　　　　　ERROR!"
			print err.proc$
			print err.coment$
			locate 1 , fntatechg9(1) : print werror$

	else
		cls
		if assoc%=-1 then 
			'同期エラー
			print "　　　　　ERROR!"
			print "アクセスポイント"
			print "から離れています"
			print "移動してください"
		else
			'その他エラー
			print "　　　　　ERROR!"
			print err.proc$
			print err.coment$
			print "再処理して下さい"
			print "stat:"+ufnnumstr$(f.stat%)
			print "K"+ufnnumstr$(k.proc%)+" reply:"+ufnnumstr$(reply%)
			print "ERR="+hex$(err.code%)+"h ERL="+hex$(err.line9)+"h"
		endif
	end if

  '-----------------------------------------------
  '終了処理
  '-----------------------------------------------

	'強制的にﾛｸﾞｱｳﾄして(進捗表示なし)戻る
	call "ftp.fn3" 3 hftp%,reply%             			'ﾛｸﾞｱｳﾄ
	call "socket.fn3" 43 interface%               		'Ethernet切断
	close #hCom3                                  		'COM3ｸﾛｰｽﾞ
	kill mid$(kanrif$,1)								'ﾛｰｶﾙ管理ﾌｧｲﾙ削除
	f.stat%=0

	gosub f.quit

	beep 1,1,3                                  		'ｴﾗｰ音
	wait 0 ,3 : aa$ = inkey$

	return
'+---------------------------------------------------------------------------+
'|  ErrIgnore2                                                 2002/01/27    |
'|                                                                           |
'|  【機能】標準ｴﾗｰ割込み処理                                                |
'|                                                                           |
'|  【処理内容】                                                             |
'|    ・発生したｴﾗｰを無視し、ｴﾗｰが発生した次の処理(行)に飛ぶ                 |
'|                                                                           |
'+---------------------------------------------------------------------------+
ErrIgnore2

	resume next                                     'ｴﾗｰ発生処理の次に戻る

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