告知内容表事件代码:Dim ab1 As DataRow= DataTables("信息模板").SQLFind("适用人员='" & e.DataRow("人员类型") & "'and 流程名称='" & e.DataRow("流程名称") & "'")
If ab1 IsNot Nothing Then
Dim s1 As String
s1 = e.DataRow("案件状态")
If e.DataRow("案件类别")="二审公诉案件(未检)" Then
e.DataRow("流程名称")="审查起诉"
If s1.contains("审结") Then
e.DataRow("告知内容")=ab1("模板内容")
End If
If s1.contains("审理") Then
e.DataRow("告知内容")=ab1("模板内容")
End If
End If
信息模板表里面有适用人员 流程名称 模板内容三个字段
模板内容字段值为:
e.datarow("姓名") & "您好!" & e.datarow("嫌疑人姓名") & "涉嫌" & e.datarow("涉嫌案由") & "一案,"& ab("移送机关") & "于" & e.datarow("受理日期") & "移送我院" & e.datarow("流程名称") & ",根据系统轮案规则,现由你进行办理,请在" & e.datarow("到期日期") & "前,办理完毕!有疑问请咨询案管办" & ab("案管办电话") & "!请参考:" & e.datarow("法律法规")
怎么利用这个模板内容字段值得内容 读取到告知内容中的事件中去,并且生成对应的告知内容值呢?
当前告知内容得到的值是模板内容的原值:如下:
e.datarow("姓名") & "您好!" & e.datarow("嫌疑人姓名") & "涉嫌" & e.datarow("涉嫌案由") & "一案,"& ab("移送机关") & "于" & e.datarow("受理日期") & "移送我院" & e.datarow("流程名称") & ",根据系统轮案规则,现由你进行办理,请在" & e.datarow("到期日期") & "前,办理完毕!有疑问请咨询案管办" & ab("案管办电话") & "!请参考:" & e.datarow("法律法规")
效果值应该如下:
张三,你好!李四涉嫌抢劫罪一案,公安机关于2019年12月1日移送我院,……