'このVBScriptについて：

'【使用方法】

	'このスクリプトは、掛売入金完了処理削除用スクリプトです。
	
	'このファイルをPOS端末へコピーして、下記「SQL文」の「nyushukkaid =」以降を編集後に、ファイルをダブルクリックして適用下さい。


'【スクリプト本体】

Dim strUserid
Dim strPassword
Dim strDsn
Dim strConnection
Dim Connection
Dim rs
Dim strSQL

'データベース接続用ID,パスワードの設定
		
strUserid = ""
strPassword = ""
strDsn = "Nyushukka"
strConnection = "DSN=" & strDsn & "; UID=" & strUserid & "; PWD=" & strPassword

'データベース接続
	
Set Connection = CreateObject("ADODB.Connection")

Connection.Open strConnection

'SQL文

'点検画面内の掛売入金処理削除対象の「掛売」処理「メインID」を「nyushukkaid = 」以降に指定して下さい。
'メインIDが123の掛売の入金完了処理を削除する例文：　strSQL = "DELETE FROM kakeurishori WHERE nyushukkaid = 123"

strSQL = "DELETE FROM kakeurishori WHERE nyushukkaid = ここにメインIDを記入して下さい"

Set rs = Connection.Execute(strSQL)
	
Connection.Close 'データベース接続を閉じる

MsgBox "処理が終了しました",MB_ICONINFORMATION,"掛売入金処理削除用スクリプト"