Sub Initialize
On Error Goto errormsg
' Dim mycon As Lcconnection
Dim sql As String
Dim json As String
Dim Parms As New Lcfieldlist
Dim Parm As LCField
dim MoldCataNum as string
dim DepotCategoryNum as string
dim MoldCategories as string
dim DepotCategoryName as string
dim fldLst as new lcfieldList
MoldCataNum=WF_Document.MoldCataNum(0)
DepotCategoryNum =WF_Document.DepotCategoryNum(0)
MoldCategories =WF_Document.MoldCategories (0)
DepotCategoryName =WF_Document.DepotCategoryName(0)
'sql="SELECT Name,Specification,MoldCategories,TSMN,DepotCategoryName,DepotCategoryNum,MoldCataNum,Quantity,scrapped,Remark FROM S010_Scrapped WHERE MoldCataNum='"+MoldCataNum+"' and DepotCategoryNum='"+DepotCategoryNum +"' "
sql = |SELECT * FROM S010_Scrapped|
call WF_Con.Execute ( sql ,fldLst )
while WF_Con.fetch(fldLst)
json = json + |{"Name":"|+fldLst.lookup("Name").text(0)+|",|
json = json + |"Specification":"|+fldLst.lookup("Specification").text(0)+|",|
json = json + |"MoldCategories":"|+fldLst.lookup("MoldCategories").text(0)+|",|
json = json + |"TSMN":"|+fldLst.lookup("TSMN").text(0)+|",|
json = json + |"DepotCategoryName":"|+fldLst.lookup("DepotCategoryName").text(0)+|",|
json = json + |"DepotCategoryNum":"|+fldLst.lookup("DepotCategoryNum").text(0)+|",|
json = json + |"Remark ":"|+fldLst.lookup("Remark").text(0)+|",|
json = json + |"MoldCataNum":"|+fldLst.lookup("MoldCataNum").text(0)+|",|
json = json + |"Quantity":"|+fldLst.lookup("Quantity").text(0)+|",|
json = json + |"scrapped":"|+fldLst.lookup("scrapped").text(0)+|"},|
wend
json = |{"root":[|+left(json,len(json)-1) +|]}|
msgbox " lsy json="+json
print "content-type:application/text;charset=utf-8"
print json
Call WF_Con.disconnect()
Exit Sub
errormsg:
Msgbox "Rule Error:" & Str(Erl) & " " & Error
End Sub
On Error Goto errormsg
' Dim mycon As Lcconnection
Dim sql As String
Dim json As String
Dim Parms As New Lcfieldlist
Dim Parm As LCField
dim MoldCataNum as string
dim DepotCategoryNum as string
dim MoldCategories as string
dim DepotCategoryName as string
dim fldLst as new lcfieldList
MoldCataNum=WF_Document.MoldCataNum(0)
DepotCategoryNum =WF_Document.DepotCategoryNum(0)
MoldCategories =WF_Document.MoldCategories (0)
DepotCategoryName =WF_Document.DepotCategoryName(0)
'sql="SELECT Name,Specification,MoldCategories,TSMN,DepotCategoryName,DepotCategoryNum,MoldCataNum,Quantity,scrapped,Remark FROM S010_Scrapped WHERE MoldCataNum='"+MoldCataNum+"' and DepotCategoryNum='"+DepotCategoryNum +"' "
sql = |SELECT * FROM S010_Scrapped|
call WF_Con.Execute ( sql ,fldLst )
while WF_Con.fetch(fldLst)
json = json + |{"Name":"|+fldLst.lookup("Name").text(0)+|",|
json = json + |"Specification":"|+fldLst.lookup("Specification").text(0)+|",|
json = json + |"MoldCategories":"|+fldLst.lookup("MoldCategories").text(0)+|",|
json = json + |"TSMN":"|+fldLst.lookup("TSMN").text(0)+|",|
json = json + |"DepotCategoryName":"|+fldLst.lookup("DepotCategoryName").text(0)+|",|
json = json + |"DepotCategoryNum":"|+fldLst.lookup("DepotCategoryNum").text(0)+|",|
json = json + |"Remark ":"|+fldLst.lookup("Remark").text(0)+|",|
json = json + |"MoldCataNum":"|+fldLst.lookup("MoldCataNum").text(0)+|",|
json = json + |"Quantity":"|+fldLst.lookup("Quantity").text(0)+|",|
json = json + |"scrapped":"|+fldLst.lookup("scrapped").text(0)+|"},|
wend
json = |{"root":[|+left(json,len(json)-1) +|]}|
msgbox " lsy json="+json
print "content-type:application/text;charset=utf-8"
print json
Call WF_Con.disconnect()
Exit Sub
errormsg:
Msgbox "Rule Error:" & Str(Erl) & " " & Error
End Sub