classdongbo.vb

Chuong trinh tren PDA cho phep ket noi ve server va cap nhat du lieu ve PDA

                Else
                    strxml += "<LendQuantity>" + Bang2.Rows(i).Item("Lend Quantity ").ToString + "</LendQuantity>"
                End If

                If Bang2.Rows(i).Item("Lend Receive").ToString = "" Then
                    strxml += "<LendReceive>0</LendReceive>"
                Else
                    strxml += "<LendReceive>" + Bang2.Rows(i).Item("Lend Receive").ToString + "</LendReceive>"
                End If

                strxml += "</debtlenditem>"
            Next
            strxml += "</debtlenditems>"
        End If
        strxml += "</tta>"
        Return strxml
    End Function
    Public Function UpdateData(ByRef strXml1 As String) As String
        Try
            Dim m_xmld As XmlDocument
            Dim m_nodelist As XmlNodeList
            Dim m_node As XmlNode
            'Create the XML Document
            m_xmld = New XmlDocument()
            m_xmld.LoadXml(strXml1)
            '===================Kiem Tra Table ===================================
            'Get the list of name nodes 
            m_nodelist = m_xmld.SelectNodes("/tta/Item")
            Dim i As Integer = m_nodelist.Count
            'Loop through the nodes
            If i > 0 Then
                m_nodelist = m_xmld.SelectNodes("/tta/Item/Row")
                If m_nodelist.Count > 0 Then
                    Dim table As String = m_nodelist.Item(0).InnerXml
                    Dim itemNo_ As String
                    Dim itemName As String
                    Dim unitprice As String
                    Dim UOM As String
                    Dim VAT As String
                    Dim sdate As String
                    For Each m_node In m_nodelist
                        'Lay gia tri o node dau tien
                        itemNo_ = m_node.ChildNodes.Item(0).InnerText
                        itemName = m_node.ChildNodes.Item(1).InnerText
                        UOM = m_node.ChildNodes.Item(2).InnerText
                        unitprice = m_node.ChildNodes.Item(3).InnerText
                        VAT = m_node.ChildNodes.Item(4).InnerText
                        sdate = m_node.ChildNodes.Item(5).InnerText
                        'cTable = TableProcess.Query("select  from [sales order line]")
                        Dim ParameterList1(5) As SqlCeParameter
                        ParameterList1(0) = New SqlCeParameter("@itemNo_", itemNo_)
                        ParameterList1(1) = New SqlCeParameter("@itemName", itemName)
                        If unitprice = "" Then
                            unitprice = "1"
                        End If
                        ParameterList1(2) = New SqlCeParameter("@unitprice", unitprice)

                        ParameterList1(3) = New SqlCeParameter("@UOM", UOM)
                        ParameterList1(4) = New SqlCeParameter("@sVAT", VAT)
                        ParameterList1(5) = New SqlCeParameter("@sdate", sdate)
                        Dim ParameterList As SqlCeParameter = New SqlCeParameter("@itemNo", itemNo_)
                        Dim sql As String = "select * from [Item] where [Item No_]=@itemNo"
                        Bang2 = TbPro.FillWithPara(sql, ParameterList)
                        Dim count As Integer = Bang2.Rows.Count
                        If count > 0 Then
                            sql = "UPDATE [item] SET " & _
                                     "[Item Name] = @itemName," & _
                                     "[Unit Of Measure] = @UOM," & _
                                     "[Unit Price] = @unitprice," & _
                                     "[VAT Prod_Posting Group]=@VAT," & _
                                     "[Date Update] = @sdate" & _
                                     " WHERE [Item No_]= @itemNo_"
                            TbPro.NonQueryWithListParameter(sql, ParameterList1)
                        Else
                            Dim SQLString As String = "insert into [Item] values(@itemNo_,@itemName,@UOM,@unitprice,@sVAT,@sdate)"
                            TbPro.NonQueryWithListParameter(SQLString, ParameterList1)
                        End If
                    Next
                End If
            End If

            '===================Kiem Tra Table ===================================
            m_nodelist = m_xmld.SelectNodes("/tta/customer")
            i = m_nodelist.Count
            'Loop through the nodes
            If i > 0 Then
                m_nodelist = m_xmld.SelectNodes("/tta/customer/Row")
                If m_nodelist.Count > 0 Then
                    Dim table As String = m_nodelist.Item(0).InnerXml
                    Dim CCode As String
                    Dim CName As String
                    Dim Address As String
                    Dim Phone As String
                    Dim VAT As String
                    Dim sDate As String
                    'Dim Address As String

                    For Each m_node In m_nodelist
                        'Get the Gender Attribute Value
                        'Get the firstName Element Value
                        CCode = m_node.ChildNodes.Item(0).InnerText
                        CName = m_node.ChildNodes.Item(1).InnerText
                        Address = m_node.ChildNodes.Item(2).InnerText
                        Phone = m_node.ChildNodes.Item(3).InnerText
                        VAT = m_node.ChildNodes.Item(4).InnerText
                        sDate = m_node.ChildNodes.Item(5).InnerText
                        Dim ParameterList1(5) As SqlCeParameter
                        ParameterList1(0) = New SqlCeParameter("@CCode", CCode)
                        ParameterList1(1) = New SqlCeParameter("@CName", CName)
                        ParameterList1(2) = New SqlCeParameter("@Address", Address)
                        ParameterList1(3) = New SqlCeParameter("@Phone", Phone)
                        ParameterList1(4) = New SqlCeParameter("@VAT", VAT)
                        ParameterList1(5) = New SqlCeParameter("@sdate", sDate)

                        Dim ParameterList As SqlCeParameter = New SqlCeParameter("@CCode1", CCode)
                        Dim sql As String = "select * from [customer] where [Customer Code]=@CCode1"
                        Bang2 = TbPro.FillWithPara(sql, ParameterList)

                        Dim count As Integer = Bang2.Rows.Count
                        If count > 0 Then
                            sql = "UPDATE [customer] SET" & _
                                          "[Customer Name] = @CName," & _
                                          "[Address] = @Address ," & _
                                          "[Phone No_] = @Phone ," & _
                                         "[VAT Prod_Posting Group] = @VAT," & _
                                         "[Date Update] = @sDate " & _
                                         " WHERE [Customer Code] = @CCode"
                        Else
                            Dim SQLString As String = "insert into [customer] values(@CCode,@CName,@Address,@Phone,@VAT,@sDate)"
                            TbPro.NonQueryWithListParameter(SQLString, ParameterList1)
                        End If
                        'Write Result to the Console

                    Next
                End If
            End If
            '===================Kiem Tra Table ===================================
            m_nodelist = m_xmld.SelectNodes("/tta/debt")
            i = m_nodelist.Count
            'Loop through the nodes
            If i > 0 Then
                m_nodelist = m_xmld.SelectNodes("/tta/debt/Row")
                If m_nodelist.Count > 0 Then
                    Dim table As String = m_nodelist.Item(0).InnerXml
                    Dim DID As String
                    Dim CCode As String
                    Dim DDate As String
                    Dim DAmount As String
                    Dim DBA As String
                    Dim DSA As String
                    Dim Amount As String
                    Dim BAmount As String
                    Dim SAmount As String
                    'Dim Address As String
                    Dim ParameterList1(5) As SqlCeParameter

                    For Each m_node In m_nodelist
                        'Get the Gender Attribute Value
                        'Dim genderAttribute = m_node.Attributes.GetNamedItem("gender").Value
                        'Get the firstName Element Value
                        DID = m_node.ChildNodes.Item(0).InnerText
                        CCode = m_node.ChildNodes.Item(1).InnerText
                        DDate = m_node.ChildNodes.Item(2).InnerText
                        DAmount = m_node.ChildNodes.Item(3).InnerText
                        DBA = m_node.ChildNodes.Item(4).InnerText
                        DSA = m_node.ChildNodes.Item(5).InnerText
                        Amount = m_node.ChildNodes.Item(6).InnerText
                        BAmount = m_node.ChildNodes.Item(7).InnerText
                        SAmount = m_node.ChildNodes.Item(8).InnerText

                        ParameterList1(0) = New SqlCeParameter("@CCode", CCode)
                        ParameterList1(1) = New SqlCeParameter("@DDate", DDate)
                        If DAmount = "" Then
                            DAmount = "0"
                        End If
                        ParameterList1(2) = New SqlCeParameter("@DAmount", DAmount)
                        If DBA = "" Then
                            DBA = "0"
                        End If
                        ParameterList1(3) = New SqlCeParameter("@DBA", DBA)
                        If DSA = "" Then
                            DSA = "0"
                        End If
                        ParameterList1(4) = New SqlCeParameter("@DSA", DSA)
                        'ParameterList1(5) = New SqlCeParameter("@Amount", Amount)
                        'ParameterList1(6) = New SqlCeParameter("@BAmount", BAmount)
                        'ParameterList1(7) = New SqlCeParameter("@SAmount", SAmount)
                        Dim ParameterList As SqlCeParameter = New SqlCeParameter("@DID1", DID)
                        Dim sql As String = "select * from [debt] where [Debt ID] = @DID1"
                        Bang2 = TbPro.FillWithPara(sql, ParameterList)
                        Dim count As Integer = Bang2.Rows.Count
                        If count > 0 Then
                            'Write Result to the Console
                            sql = "UPDATE [debt] SET" & _
                                     "[Customer Code]= @CCode," & _
                                     "[Debt Date]= @DDate," & _
                                     "[Debt Amount]= @DAmount," & _
                                     "[Debt Bet Amount]= @DBA ," & _
                                     "[Debt Service Amount]= @DSA" & _
                                     " WHERE [Debt ID] = @DID"
                            TbPro.NonQueryWithListParameter(sql, ParameterList1)
                        Else
                            sql = "select * from [debt]"
                            Bang2 = TbPro.Fill(sql)
                            Dim cc As Integer = Bang2.Rows.Count
                            ParameterList1(5) = New SqlCeParameter("@DID", cc + 1)

                            Dim SQLString As String = "insert into [debt]([Debt ID],[Customer Code],[Debt Date],[Debt Amount],[Debt Bet Amount],[Debt Service Amount]) values(@DID,@CCode,@DDate,@DAmount,@DBA,@DSA)"
                            TbPro.NonQueryWithListParameter(SQLString, ParameterList1)
                        End If
                    Next
                End If
            End If
            '===================Kiem Tra Table ===================================
            m_nodelist = m_xmld.SelectNodes("/tta/debtlenditem")
            i = m_nodelist.Count
            'Loop through the nodes
            If i > 0 Then
                m_nodelist = m_xmld.SelectNodes("/tta/debtlenditem/Row")
                If m_nodelist.Count > 0 Then
                    Dim table As String = m_nodelist.Item(0).InnerXml
                    Dim ID As String
                    Dim DID As String
                    Dim ItemNo_ As String
                    Dim LQ As String
                    Dim LR As String
                    Dim ParameterList1(3) As SqlCeParameter
                    Dim ParameterList2(1) As SqlCeParameter
                    Dim parameterlist3(0) As SqlCeParameter
                    For Each m_node In m_nodelist
                        'Get the Gender Attribute Value
                        'Dim genderAttribute = m_node.Attributes.GetNamedItem("gender").Value
                        'Get the firstName Element Value
                        ID = m_node.ChildNodes.Item(0).InnerText
                        DID = m_node.ChildNodes.Item(1).InnerText
                        ItemNo_ = m_node.ChildNodes.Item(2).InnerText
                        LQ = m_node.ChildNodes.Item(3).InnerText
                        LR = m_node.ChildNodes.Item(4).InnerText

                        'ParameterList1(0) = New SqlCeParameter("@ID", ID)