报废统计报表的规则

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