几个有用的LN上传文件必备的数据校验函数

function domain tcbool valid.bp(domain tccom.bpid tmp.bpid)
{
 select tccom100.bpid
 from tccom100
 where tccom100.bpid = {:tmp.bpid}
 selectdo
  return(true)
 endselect
 return(false)
}
function domain tcbool valid.agency(domain tccitg tmp.agen)
{
 if (tmp.agen="") then
  return(true)
 endif
 select tdwai079.agen
 from tdwai079
 where tdwai079.agen = {:tmp.agen}
 selectdo
  return(true)
 endselect
 return(false)
}
function domain tcbool valid.item.group(domain tccitg tmp.citg)
{
 select tcmcs023.citg
 from tcmcs023
 where tcmcs023.citg = {:tmp.citg}
 selectdo
  return(true)
 endselect
 return(false)
}
function domain tcbool valid.country(domain tcccty tmp.ccty)
{
 if (tmp.ccty="") then
  return(true)
 endif
 select tcmcs010.ccty
 from tcmcs010
 where tcmcs010.ccty = {:tmp.ccty}
 selectdo
  return(true)
 endselect
 return(false)
}
function domain tcbool valid.state(domain tcccty tmp.ccty, domain tcmcs.cste tmp.cste)
{
 if (tmp.ccty="") then
  return(true)
 endif
 if (tmp.cste="") then
  return(true)
 endif
 select tcmcs143.cste
 from tcmcs143
 where tcmcs143.ccty = {:tmp.ccty}
 and tcmcs143.cste = {:tmp.cste}
 selectdo
  return(true)
 endselect
 return(false)
}
function domain tcbool valid.item(domain tcitem tmp.item)
{
 select tcibd001.item
 from tcibd001
 where tcibd001._index1 = {:tmp.item}
 selectdo
  return(true)
 endselect
 return(false)
}
function domain tcbool valid.cwar(domain tccwar temp.cwar)
{
 select tcmcs003.*
 from tcmcs003
 where tcmcs003._index1 = {:temp.cwar}
 selectdo
  return(true)
 endselect
 return(false)
}
function domain tcbool valid.loca(domain tccwar temp.cwar, domain whloca temp.loca)
{
 select whwmd300.loca
 from whwmd300
 where whwmd300._index1 = {:temp.cwar,:temp.loca}
 selectdo
  return(true)
 endselect
 return(false)
}