|
If e.Form.Controls("jijutiaoma").text =Nothing Then
If MessageBox.Show("机具条码不能为空,是否继续绑定","提示",MessageBoxButtons.YesNo) =DialogResult.No Then
e.Form.Controls("jijutiaoma").text =Nothing
e.Form.Controls("jijutiaoma").Enabled= False
e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
e.Form.Controls("jijubangding").Enabled=False
e.Form.Controls("jijujiebang").Enabled= False
Return
End If
End If
Dim dr As DataRow = DataTables("POS机库存资料").Find("机具条码='" & e.Form.Controls("jijutiaoma").text & "'")
e.Form.Controls("jijutiaoma").text
If dr Is Nothing Then
msgbox("没有查到符合条件的数据,请核实机具是否入库!")
Return
ElseIf dr.IsNull("商户ID") = False Then
msgbox("机具已占用,请核实机具号!")
Return
End If
systemready = False
If Tables("商户资料表").Current.Isnull("机具ID") Then
dr("商户ID") = Tables("商户资料表").Current("商户ID")
dr("商户名称") = Tables("商户资料表").Current("商户名称")
dr("客户ID") = Tables("商户资料表").Current("客户ID")
dr("客户姓名") = Tables("商户资料表").Current("法人姓名")
dr("机具是否绑定") = True
Tables("商户资料表").Current("机具ID")=dr("机具ID")
Tables("商户资料表").Current("机具条码")=dr("机具条码")
e.Form.Controls("jijutiaoma").text =Nothing
e.Form.Controls("jijutiaoma").Enabled= False
e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
e.Form.Controls("jijubangding").Enabled=False
e.Form.Controls("jijujiebang").Enabled= False
msgbox("成功")
Else
Dim dlg = MessageBox.Show("是否绑定?","确定绑定",MessageBoxButtons.YesNoCancel)
If dlg = DialogResult.Yes Then
dr("商户ID") = Tables("商户资料表").Current("商户ID")
dr("商户名称") = Tables("商户资料表").Current("商户名称")
dr("客户ID") = Tables("商户资料表").Current("客户ID")
dr("客户姓名") = Tables("商户资料表").Current("法人姓名")
dr("机具是否绑定") = True
Tables("商户资料表").Current("机具ID")=dr("机具ID")
Tables("商户资料表").Current("机具条码")=dr("机具条码")
e.Form.Controls("jijutiaoma").text =Nothing
e.Form.Controls("jijutiaoma").Enabled= False
e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
e.Form.Controls("jijubangding").Enabled=False
e.Form.Controls("jijujiebang").Enabled= False
msgbox("绑定成功")
ElseIf dlg = DialogResult.No
'新增加的代码
Dim tbl As Table =Tables("商户资料表")
Dim tbl1 As Table = Tables("POS机库存资料")
Dim sr As Row = tbl.Current
Dim nr As Row = tbl.addnew
e.Form.DropDownBox.Value = tbl.Current("商户ID")
nr("通道名称") = sr("通道名称")
nr("网点地址") = sr("网点地址")
nr("商户名称") = sr("商户名称")
nr("网点名称") = sr("网点名称")
nr("网点编号") = sr("网点编号")
nr("备注") = sr("备注")
nr("商户照片") = sr("商户照片")
nr("商户编号") = sr("商户编号")
nr("客户ID") = sr("客户ID")
nr("法人姓名") = sr("法人姓名")
nr("流量卡ID") = sr("流量卡ID")
nr("流量卡号") = sr("流量卡号")
tbl1.Current("商户ID") = tbl.Current("商户ID")
tbl1.Current("商户名称")= tbl.Current("商户名称")
tbl1.Current("客户ID")= tbl.Current("客户ID")
tbl1.Current("客户姓名")= tbl.Current("法人姓名")
tbl.Current("机具ID")= tbl1.Current("机具ID")
tbl.Current("机具条码")= tbl1.Current("机具条码")
If tbl1.Current("商户ID") IsNot Nothing Then
tbl1.Current("机具是否绑定")= True
Else
tbl1.Current("机具是否绑定")= False
End If
msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
End If
End If
systemready = True
|
加好友 
发短信
Post By：2017/9/18 9:14:00 [只看该作者]
