<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Action '�ˆ—�‹æ•ª Dim EnshuName '‰‰�KCD�A ‰‰�K–¼�Ì Dim TekiyoCD '“E—vƒR�[ƒh�A“E—v Dim KanrenKaisyaCD '‰ïŽÐƒR�[ƒh�AŠÖ˜A‰ïŽÐƒR�[ƒh Dim MousikomiNum '�\�ž”Ô�† Dim TorihikisakiCD,HokenkikanFrom,HokenkikanTo Dim Tanka '’P‰¿ Dim Suryo '�”—Ê Dim Kakaku '•W�€‰¿Ši Dim Kingaku '‹àŠz Dim Ryoritsu '—¿—¦ Dim HokenRyokin '•ÛŒ¯—¿‹à Dim HSyubetsuCode '•ÛŒ¯Ží•ÊCD Dim Biko '”õ�l Dim Mosikomibi '�oŒÉ Dim SyukkoNo '�oŒÉ”Ô�† Dim KitakuNo 'Šñ‘õŽÒŽó•t”Ô�† Dim KitakuCD 'Šñ‘õŽÒCD Dim SyohinCD '�¤•iƒR�[ƒh Dim SyohinName '�¤•i–¼�Ì Dim Basyo '‘qŒÉ�ê�Š Dim SokoBetsu '‘qŒÉŽí•Ê Dim KitakuFrom 'Šñ‘õŠúŠÔŽn Dim KitakuTo 'Šñ‘õŠúŠÔ�I Dim SyukoYMD '�oŒÉ”NŒŽ“ú Dim SyukoSuryo '�oŒÉ�”—Ê Dim Tekiyo '“E—v Dim Kisu 'Šú�” Dim SokoHokenRyo '‘qŒÉ•ÛŠÇ—¿ Dim SokoNiyakukin '‘qŒÉ‰×–ð—¿‹à Dim Sokoryokin '�¿‹�‘qŒÉ—¿‹à Dim Jyokaritsu '�]‰¿—¦ Dim Jyoryoritsu '�]—Ê—¦ Dim Niyakuritsu '‰×–ð—¦ Dim Hanbaitanka '•W�€”Ì”„’P‰¿ Dim Syohinjyuryo '�¤•i�d—Ê Dim Syohinyouseki '�¤•i—e�Ï Dim NyukoYMD '“üŒÉ“ú Dim NyukoSuryou '“üŒÉ�”—Ê Dim SuryoTotal '‘��oŒÉ�” Dim SyukoZentaka '�oŒÉŽc�‚ Dim Query Dim Content Dim Query1 Dim Content1 Dim Ng , ErrMSG , rsts , rsts1 rsts = True rsts1= True Action = Request("Action") 'TekiyoCD = Request("TekiyoCD") 'Tekiyo = Request("Tekiyo") 'KanrenKaisyaCD = Request("KanrenKaisyaCD") SyukkoNo = Request("SyukkoNo") KitakuCD = Request("KitakuCD") KitakuNo = Request("KitakuNo") SyohinCD = Request("SyohinCD") SyukoYMD = Request("SyukoYMD") SyukoSuryo = Request("SyukoSuryo") Tekiyo = Request("Tekiyo") Kisu = Request("Kisu") SokoHokenRyo = Request("SokoHokenRyo") SokoNiyakukin = Request("SokoNiyakukin") Sokoryokin = 0'= Request("Sokoryokin") 'SyohinName = Request("SyohinName") Basyo = Request("Basyo") SokoBetsu = Request("SokoBetsu") KitakuFrom = Request("KitakuFrom") KitakuTo = Request("KitakuTo") Jyokaritsu = Request("Jyokaritsu") Jyoryoritsu = Request("Jyoryoritsu") Niyakuritsu = Request("Niyakuritsu") NyukoYMD = Request("NyukoYMD") NyukoSuryou = Request("NyukoSuryou") SuryoTotal = Request("SuryoTotal") SyukoZentaka = Request("SyukoZentaka") 'MousikomiNum = Request("MousikomiNum") 'TorihikisakiCD = Request("TorihikisakiCD") 'HSyubetsuCode = Request("HSyubetsuCode") 'Mosikomibi = Request("Mosikomibi") 'HokenkikanFrom = Request("HokenkikanFrom") 'HokenkikanTo = Request("HokenkikanTo") 'SyohinCD = Request("SyohinCD") 'Tanka = Request("Tanka") 'Kingaku = Request("Kingaku") 'Suryo = Request("Suryo") 'Ryoritsu = Request("Ryoritsu") 'HokenRyokin = Request("HokenRyokin") 'Biko = Request("Biko") ErrMsg = Request("ErrMsg") If SyukkoNo <> "" Then if Action = 3 then Action =2 end if Else Action =1 End If If SyukkoNo = "" Then SyukkoNo = "null" End If 'If rsts = False Then If 1 = 0 Then Ng = "fu_syuko.asp?action=" & Action & "&nr=r" & "&EnshuCD=" & EnshuCD Ng = Ng & "&MousikomiNum=" & MousikomiNum & "&KaisyaCD=" & KaisyaCD & "&TorihikisakiCD=" & TorihikisakiCD Ng = Ng & "&HSyubetsuCode=" & HSyubetsuCode & "&Mosikomibi=" & Mosikomibi Ng = Ng & "&HokenkikanFrom=" & HokenkikanFrom & "&HokenkikanTo=" & HokenkikanTo Ng = Ng & "&SyohinCD=" & SyohinCD & "&Tanka=" & Tanka Ng = Ng & "&Kingaku=" & Kingaku & "&Suryo=" & Suryo Ng = Ng & "&Ryoritsu=" & Ryoritsu & "&HokenRyokin=" & HokenRyokin Ng = Ng & "&Biko=" & Biko Ng = Ng & "&ErrMSG=" & ErrMSG ' Response.Redirect(Ng) Response.Write(SubmitHystoryBack(Ng)) Exit Sub End If If Action = 4 Then Query = "exec SPC�oŒÉ�í�œ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& SyukkoNo &"" Set Content = OpenQuery(Query) Response.Redirect("fu_syuko_ichiran.asp" ) Else Query = "exec SPC�oŒÉ�X�V '" & GB_SystemCD & "'," & Action Query = Query & ",'" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Query = Query & "," & SyukkoNo if not isnumeric(KitakuNo) then Query = Query & ",null" else Query = Query & "," & KitakuNo end if Query = Query & ",'" & SyohinCD & "'" if KitakuCD="" then Query = Query & ",null" else Query = Query & ",'" & KitakuCD & "'" end if if SyukoYMD="" then Query = Query & ",null" else Query = Query & ",'" & SyukoYMD & "'" end if if not isnumeric(Kisu) then Query = Query & ",null" else Query = Query & "," & ConvMoneyToInt(Kisu) end if if not isnumeric(SyukoSuryo) then Query = Query & ",null" else Query = Query & "," & ConvMoneyToInt(SyukoSuryo) end if if not isnumeric(Sokoryokin) then Query = Query & ",null" else Query = Query & "," & ConvMoneyToInt(Sokoryokin) end if if not isnumeric(SokoHokenRyo) then Query = Query & ",null" else Query = Query & "," & ConvMoneyToInt(SokoHokenRyo) end if if not isnumeric(SokoNiyakukin) then Query = Query & ",null" else Query = Query & "," & ConvMoneyToInt(SokoNiyakukin) end if if Tekiyo="" then Query = Query & ",null" else Query = Query & ",'" & Tekiyo & "'" end if End If Set Content = OpenQuery(Query) If Content.Fields.Count > 0 Then rsts = Content.Fields(0) End If If (Action <> 3) and (Action <> 4) Then Query1 = "exec SPCŠñ‘õ�oŒÉ�”�X�V '" & GB_SystemCD & "'," & Action Query1 = Query1 & ",'" & EnshuCD & "'" Query1 = Query1 & ",'" & KaisyaCD & "'" Query1 = Query1 & "," & KitakuNo if not isnumeric(SuryoTotal) then Query1 = Query1 & ",null" else Query1 = Query1 & "," & ConvMoneyToInt(SuryoTotal) end if if not isnumeric(SyukoZentaka) then Query1 = Query1 & ",null" else Query1 = Query1 & "," & ConvMoneyToInt(SyukoZentaka) end if Set Content1 = OpenQuery(Query1) If Content1.Fields.Count > 0 Then rsts1 = Content1.Fields(0) End If End If If Action = 4 Then Response.Redirect("fu_syuko_ichiran.asp" ) Else Response.Redirect("fu_syuko_view.asp?SyukkoNo=" & rsts ) End If End Sub %>