WEB SERVICES

Public Class FormAtualiza
    Dim representantes() As Representantes
    Dim prodcat() As ProdCat
    Dim clientes() As Clientes
    Dim operacao1Concluida, operacao2Concluida, operacao3Concluida As Boolean
    Dim insercao1Concluida, insercao2Concluida, insercao3Concluida As Boolean

[c]    Public Sub RepresentantesCallback(ByVal ar As IAsyncResult)
        Cursor.Current = Cursors.WaitCursor
        Try
            Dim server As serverwsRepresentantes = CType(ar.AsyncState, serverwsRepresentantes)
            representantes = server.EndlistarRepresentantes(ar)
        Catch ex As Web.Services.Protocols.SoapException
            MsgBox(ex)
            Try
                Dim server As serverwsRepresentantes = CType(ar.AsyncState, serverwsRepresentantes)
                representantes = server.EndlistarRepresentantes(ar)
            Catch x As Exception
                MsgBox(x)
            End Try
        End Try
        operacao1Concluida = True
        Cursor.Current = Cursors.Default
        AtualizaDados()
    End Sub

    Public Sub listaProdCatCallback(ByVal ar As IAsyncResult)
        Cursor.Current = Cursors.WaitCursor
        Try
            Dim server As serverwsRepresentantes = CType(ar.AsyncState, serverwsRepresentantes)
            prodcat = server.EndlistaProdCat(ar)
        Catch ex As System.Web.Services.Protocols.SoapException
            MsgBox(ex)
            Try
                Dim server As serverwsRepresentantes = CType(ar.AsyncState, serverwsRepresentantes)
                prodcat = server.EndlistaProdCat(ar)
            Catch x As System.Web.Services.Protocols.SoapException
                MsgBox(x)
            End Try
        End Try
        operacao2Concluida = True
        Cursor.Current = Cursors.Default
        AtualizaDados()
    End Sub

    Public Sub listaClientesCallback(ByVal ar As IAsyncResult)
        Cursor.Current = Cursors.WaitCursor
        Try
            Dim server As serverwsRepresentantes = CType(ar.AsyncState, serverwsRepresentantes)
            clientes = server.EndlistarClientes(ar)
        Catch ex As Web.Services.Protocols.SoapException
            MsgBox(ex)
            Try
                Dim server As serverwsRepresentantes = CType(ar.AsyncState, serverwsRepresentantes)
                clientes = server.EndlistarClientes(ar)
            Catch x As Web.Services.Protocols.SoapException
                MsgBox(x)
            End Try
        End Try
        operacao3Concluida = True
        Cursor.Current = Cursors.Default
        AtualizaDados()
    End Sub

    Private Sub AtualizaDados()

        Dim representantesLength, prodcatLength, i As Integer

        Dim connection As Data.SqlServerCe.SqlCeConnection = New Data.SqlServerCe.SqlCeConnection("DataSource = \AFV\BdAFV\SoccolBd.sdf;")
        Dim command As SqlCeCommand = connection.CreateCommand()
        connection.Open()

        If Not representantes Is Nothing Then representantesLength = representantes.Length
        If Not prodcat Is Nothing Then prodcatLength = prodcat.Length

        If Not (operacao1Concluida And operacao2Concluida And operacao3Concluida) Then Exit Sub

        If Not (insercao1Concluida) Then

            command.CommandText = "DELETE FROM wsProdCat;"
            command.Parameters.Clear()
            command.ExecuteNonQuery()

            i = 0
            For Each listaProdCat As ProdCat In prodcat
                command.CommandText = "INSERT INTO wsProdCat ( Cod, Nome) VALUES ( ?, ? )"
                command.Parameters.Clear()
                command.Parameters.Add("@codigo", listaProdCat.codigo)
                command.Parameters.Add("@nome", listaProdCat.nome)
                command.ExecuteNonQuery()
                i += 1
            Next
            MsgBox(" Recebidas " & i & " Categorias de Produtos")
            insercao1Concluida = True
        End If

        If Not (insercao2Concluida) Then
            i = 0
            command.CommandText = "DELETE FROM wsRepresentante;"
            command.Parameters.Clear()
            command.ExecuteNonQuery()
            For Each representante As Representantes In representantes
                command.CommandText = "INSERT INTO wsRepresentante ( Cod, Nome, NmReduzido, Endereco, Bairro, Uf, Cep, Cpf, Fax, Fone, Email, Login, Senha ) VALUES ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? )"
                command.Parameters.Clear()
                command.Parameters.Add("@codigo", representante.codigo)
                command.Parameters.Add("@nome", representante.nome)
                command.Parameters.Add("@nmReduz", representante.nmReduz)
                command.Parameters.Add("@endereco", representante.endereco)
                command.Parameters.Add("@bairro", representante.bairro)
                command.Parameters.Add("@estado", representante.estado)
                command.Parameters.Add("@cep", representante.cep)
                command.Parameters.Add("@cgc", representante.cgc)
                command.Parameters.Add("@fax", representante.fax)
                command.Parameters.Add("@fone", representante.telefone)
                command.Parameters.Add("@email", representante.email)
                command.Parameters.Add("@login", representante.login)
                command.Parameters.Add("@senha", representante.senha)
                command.ExecuteNonQuery()
                i += 1
            Next
            MsgBox(" Recebidas as informacoes de " & i & " Revendedores")
            insercao2Concluida = True
        End If


        If Not (insercao3Concluida) Then
            command.CommandText = "DELETE FROM wsClientes;"
            command.Parameters.Clear()
            command.ExecuteNonQuery()
            i = 0
            For Each dtCliente As Clientes In clientes
                command.CommandText = "INSERT INTO wsClientes (  Nome, NmReduzido, Representante, Endereco, Uf, Cep, Cnpj, Tel) "
                command.CommandText += " VALUES ( ?, ?, ?, ?, ?, ?, ?, ?)"
                command.Parameters.Clear()
                command.Parameters.Add("@nome", dtCliente.nome)
                command.Parameters.Add("@nmReduz", dtCliente.nmReduz)
                command.Parameters.Add("@representante", "V00017")
                command.Parameters.Add("@endereco", dtCliente.endereco)
                command.Parameters.Add("@estado", dtCliente.estado)
                command.Parameters.Add("@cep", dtCliente.cep)
                command.Parameters.Add("@cgc", dtCliente.cgc)
                command.Parameters.Add("@fone", dtCliente.telefone)
                command.ExecuteNonQuery()
                i += 1
            Next
            MsgBox(" Recebidas as informacoes de " & i & " Revendedores")
            insercao3Concluida = True
        End If
        connection.Close()
        Cursor.Current = Cursors.Default
        MsgBox(" Ok! Sincronização Finalizda com Sucesso!!")
        '       Exit Sub
    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Me.Close()
    End Sub

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        Form2.Show()
    End Sub

    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        txBWs.Text = "Iniciando Sincronização de Bancos de Dados com a Empresa..."
        Button1.Enabled = False

        AtualizaDados()

        Dim server As New serverwsRepresentantes


        Dim callback As AsyncCallback = New AsyncCallback(AddressOf RepresentantesCallback)
        server.BeginlistarRepresentantes(callback, server)

        Dim callback2 As AsyncCallback = New AsyncCallback(AddressOf listaProdCatCallback)
        server.BeginlistaProdCat(callback2, server)

        Dim callback3 As AsyncCallback = New AsyncCallback(AddressOf listaClientesCallback)
        server.BeginlistarClientes("V00017", callback3, server)

    End Sub