classdongbo.vb

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

Imports System.IO
Imports System.Xml
Imports System.Data
Imports System.Data.SqlServerCe
Public Class ClassDongBo
    Dim TableProcess As New ClassTableProcess()
    Dim TbPro As New ClassTableProcess()
    Dim Bang2 As DataTable
    Public Function LoadDataClien(ByRef strXml As String) As String
        Dim ab As New adadampv.TTAGateway
        Dim xml As String = ab.TTADelivery(strXml)
        Return xml
    End Function
    Public Function GetWebContent(ByVal sUri As String) As String
        Try
            Dim WR As System.Net.HttpWebRequest
            WR = System.Net.WebRequest.Create(sUri)

            Dim str = (New StreamReader(WR.GetResponse().GetResponseStream())).ReadToEnd()
            WR = Nothing
            Return str
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Return ""
        End Try
    End Function
    Public Function giaohang() As String
        Dim strxml As String = ""
        strxml = "<?xml version=""1.0"" encoding=""utf-8""?>" & _
                        "<tta>"
        Dim sqlstring1 As String = "select * from [sales order line]"
        Bang2 = TbPro.Fill(sqlstring1)
        If Bang2.Rows.Count > 0 Then
            strxml += "<salesorderlines>"
            Dim i As Integer = 0
            For i = 0 To Bang2.Rows.Count - 1
                strxml += "<salesorderline>"
                strxml += "<LineNo_>" + Bang2.Rows(i).Item("Line No_").ToString + "</LineNo_>"
                strxml += "<DocumentNo_>" + Bang2.Rows(i).Item("Document No_").ToString + "</DocumentNo_>"
                strxml += "<ItemNo_>" + Bang2.Rows(i).Item("Item No_").ToString + "</ItemNo_>"
                If Bang2.Rows(i).Item("Quantity").ToString <> "" Then
                    strxml += "<Quantity>" + Bang2.Rows(i).Item("Quantity").ToString + "</Quantity>"
                Else
                    strxml += "<Quantity>0</Quantity>"
                End If

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

                If Bang2.Rows(i).Item("Service Amount").ToString <> "" Then
                    strxml += "<ServiceAmount>" + Bang2.Rows(i).Item("Service Amount").ToString + "</ServiceAmount>"
                Else
                    strxml += "<ServiceAmount>0</ServiceAmount>"
                End If

                If Bang2.Rows(i).Item("sale Quantity").ToString <> "" Then
                    strxml += "<SaleQuantity>" + Bang2.Rows(i).Item("Sale Quantity").ToString + "</SaleQuantity>"
                Else
                    strxml += "<SaleQuantity>0</SaleQuantity>"
                End If

                If Bang2.Rows(i).Item("Sale Amount").ToString <> "" Then
                    strxml += "<SaleAmount>" + Bang2.Rows(i).Item("Sale Amount").ToString + "</SaleAmount>"
                Else
                    strxml += "<SaleAmount>0</SaleAmount>"
                End If

                If Bang2.Rows(i).Item("Sale Service Amount").ToString <> "" Then
                    strxml += "<SaleServiceAmount>" + Bang2.Rows(i).Item("Sale Service Amount").ToString + "</SaleServiceAmount>"
                Else
                    strxml += "<SaleServiceAmount>0</SaleServiceAmount>"
                End If

                If Bang2.Rows(i).Item("Bet Amount").ToString <> "" Then
                    strxml += "<BetAmount>" + Bang2.Rows(i).Item("Bet Amount").ToString + "</BetAmount>"
                Else
                    strxml += "<BetAmount>0</BetAmount>"
                End If

                strxml += "</salesorderline>"
            Next
            strxml += "</salesorderlines>"
        End If
        sqlstring1 = "select * from [sales order header]"
        Bang2 = TbPro.Fill(sqlstring1)
        If Bang2.Rows.Count > 0 Then
            strxml += "<salesorderheaders>"
            Dim i As Integer = 0
            For i = 0 To Bang2.Rows.Count - 1
                strxml += "<salesorderheader>"
                strxml += "<No_>" + Bang2.Rows(i).Item("No_") + "</No_>"
                strxml += "<DocumentDate>" + Date.Parse(Bang2.Rows(i).Item("Document Date")).ToString("MM/dd/yyyy") + "</DocumentDate>"
                strxml += "<CustomerCode>" + Bang2.Rows(i).Item("Customer Code").ToString + "</CustomerCode>"
                strxml += "<OrderDeliveryStatus>" + Bang2.Rows(i).Item("Order Delivery Status").ToString + "</OrderDeliveryStatus>"
                strxml += "<OrderDeliverySync>" + Bang2.Rows(i).Item("Order Delivery Sync").ToString + "</OrderDeliverySync>"
                strxml += "</salesorderheader>"
            Next
            strxml += "</salesorderheaders>"
        End If
        sqlstring1 = "select * from [Sales Order Receive Empty Bottle ]"
        Bang2 = TbPro.Fill(sqlstring1)
        If Bang2.Rows.Count > 0 Then
            strxml += "<salesorderreceiveemptybottles>"
            Dim i As Integer = 0
            For i = 0 To Bang2.Rows.Count - 1
                strxml += "<salesorderreceiveemptybottle>"
                strxml += "<LineNo_>" + Bang2.Rows(i).Item("Line No_").ToString + "</LineNo_>"
                strxml += "<DocumentNo_>" + Bang2.Rows(i).Item("Document No_").ToString + "</DocumentNo_>"
                strxml += "<ItemNo_>" + Bang2.Rows(i).Item("Item No_").ToString + "</ItemNo_>"

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

                If Bang2.Rows(i).Item("Debit Quantity").ToString <> "" Then
                    strxml += "<DebitQuantity>" + Bang2.Rows(i).Item("Debit Quantity").ToString + "</DebitQuantity>"
                Else
                    strxml += "<DebitQuantity> 0 </DebitQuantity>"
                End If

                If Bang2.Rows(i).Item("Returned Quantity").ToString <> "" Then
                    strxml += "<ReturnedQuantity>" + Bang2.Rows(i).Item("Returned Quantity").ToString + "</ReturnedQuantity>"
                Else
                    strxml += "<ReturnedQuantity> 0 </ReturnedQuantity>"
                End If

                strxml += "<Note>" + Bang2.Rows(i).Item("Note").ToString + "</Note>"
                strxml += "</salesorderreceiveemptybottle>"
            Next
            strxml += "</salesorderreceiveemptybottles>"
        End If
        strxml += "</tta>"
        Dim Path As String = ((System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase) + "\xml.xml"))
        Dim sw As New System.IO.StreamWriter(Path)
        sw.Write(strxml)
        Bang2.Clear()
        Return strxml
    End Function
    Public Function NhanHang() As String
        Dim strxml As String = ""
        strxml = "<?xml version=""1.0"" encoding=""utf-8""?>" & _
                        "<tta>"
        Dim sqlstring1 As String = "select * from [debt]"
        Bang2 = TbPro.Fill(sqlstring1)
        If Bang2.Rows.Count > 0 Then
            strxml += "<debt1s_>"
            Dim i As Integer = 0
            For i = 0 To Bang2.Rows.Count - 1
                strxml += "<debt1_>"
                strxml += "<DebtID>" + Bang2.Rows(i).Item("Debt ID").ToString + "</DebtID>"
                strxml += "<CustomerCode>" + Bang2.Rows(i).Item("Customer Code").ToString + "</CustomerCode>"
                strxml += "<DebtDate>" + Date.Parse(Bang2.Rows(i).Item("Debt Date")).ToString("MM/dd/yyyy") + "</DebtDate>"
                If Bang2.Rows(i).Item("Debt Amount").ToString = "" Then
                    strxml += "<DebtAmount>0</DebtAmount>"
                Else
                    strxml += "<DebtAmount>" + Bang2.Rows(i).Item("Debt Amount").ToString + "</DebtAmount>"
                End If

                'strxml += "<Amount>" + CDate(bang2.Rows(0).Item("Amount")).ToString("MM/dd/yyyy") + "</Amount>"
                If Bang2.Rows(i).Item("Debt Bet Amount").ToString = "" Then
                    strxml += "<DebtBetAmount>0</DebtBetAmount>"
                Else
                    strxml += "<DebtBetAmount>" + Bang2.Rows(i).Item("Debt Bet Amount").ToString + "</DebtBetAmount>"
                End If

                If Bang2.Rows(i).Item("Debt Service Amount").ToString = "" Then
                    strxml += "<DebtServiceAmount>0</DebtServiceAmount>"
                Else
                    strxml += "<DebtServiceAmount>" + Bang2.Rows(i).Item("Debt Service Amount").ToString + "</DebtServiceAmount>"
                End If

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

                If Bang2.Rows(i).Item("Bet Amount").ToString = "" Then
                    strxml += "<BetAmount>0</BetAmount>"
                Else
                    strxml += "<BetAmount>" + Bang2.Rows(i).Item("Bet Amount").ToString + "</BetAmount>"
                End If
                If Bang2.Rows(i).Item("Service Amount").ToString = "" Then
                    strxml += "<ServiceAmount>0</ServiceAmount>"
                Else
                    strxml += "<ServiceAmount>" + Bang2.Rows(i).Item("Service Amount").ToString + "</ServiceAmount>"
                End If

                strxml += "</debt1_>"
            Next
            strxml += "</debt1s_>"
        End If

        '===============================================================
        sqlstring1 = "select * from [Debt Bet Item]"
        Bang2 = TbPro.Fill(sqlstring1)
        If Bang2.Rows.Count > 0 Then
            strxml += "<debtbetitems>"
            Dim i As Integer = 0
            For i = 0 To Bang2.Rows.Count - 1
                strxml += "<debtbetitem>"
                strxml += "<ID>" + Bang2.Rows(i).Item("ID").ToString + "</ID>"
                strxml += "<DebtID>" + Bang2.Rows(i).Item("Debt ID").ToString + "</DebtID>"
                strxml += "<ItemNo_>" + Bang2.Rows(i).Item("Item No_").ToString + "</ItemNo_>"
                If Bang2.Rows(i).Item("Bet Quantity").ToString = "" Then
                    strxml += "<BetQuantity>0</BetQuantity>"
                Else
                    strxml += "<BetQuantity>" + Bang2.Rows(i).Item("Bet Quantity").ToString + "</BetQuantity>"
                End If
                If Bang2.Rows(i).Item("Bet Receive").ToString = "" Then
                    strxml += "<BetReceive>0</BetReceive>"
                Else
                    strxml += "<BetReceive>" + Bang2.Rows(i).Item("Bet Receive").ToString + "</BetReceive>"
                End If


                strxml += "</debtbetitem>"
            Next
            strxml += "</debtbetitems>"
        End If

        '=============================================================
        'Bang2.Clear()
        Dim str As String = "select * from [debt lend item]"
        Bang2 = TbPro.Fill(str)
        If Bang2.Rows.Count > 0 Then
            strxml += "<debtlenditems>"
            Dim i As Integer = 0
            For i = 0 To Bang2.Rows.Count - 1
                strxml += "<debtlenditem>"
                strxml += "<ID>" + Bang2.Rows(i).Item("ID").ToString + "</ID>"
                strxml += "<DebtID>" + Bang2.Rows(i).Item("Debt ID").ToString + "</DebtID>"
                strxml += "<ItemNo_>" + Bang2.Rows(i).Item("Item No_").ToString + "</ItemNo_>"
                If Bang2.Rows(i).Item("Lend Quantity ").ToString = "" Then
                    strxml += "<LendQuantity>0</LendQuantity>"