António Roberto Software

a.roberto@mail.telepac.pt

Aula de 24 de Janeiro de 2003

Desenvolvimento da solução SolLoja (continuação):  Processamento das Encomendas

• Incorporação das seguintes regras de negócio no subsistema Loja:

  • quando a Quantidade em Stock de um produto baixar ou igualar o valor do seu Ponto de Encomenda, deverá ser efectuada uma nova Encomenda desse produto

  • uma Encomenda tem um Prazo de Entrega, findo o qual terá de ser efectuada a recepção da Encomenda

• Na base de dados, foi estabelecida a seguinte relação entre as duas tabelas:

• Foram adicionados os seguintes métodos à classe BDLoja:
  • Public Function AdicionarEncomenda(ByVal CodigoProduto As Integer, ByVal QuantidadeEncomendada As Integer) As Integer
    • insere uma nova encomenda na tabela Encomendas
    • retorna o valor do campo IDEncomenda (numeração automática) do novo registo inserido
  • Public Sub ActualizarDataChegadaEncomenda(ByVal CodigoEncomenda As Integer)
    • actualiza o campo DataChegada de uma encomenda, com a data/hora da sua recepção

• Foi adicionada a classe Encomenda ao projecto Loja:

  • à semelhança da classe Produto, a classe Encomenda tem um campo partilhado BD e um método partilhado InitLoja,  de forma a todos os objectos da classe Encomenda, associados a uma loja, utilizarem o mesmo objecto para aceder à Base de Dados

  • Public Sub New(ByVal CodigoProduto As Integer, ByVal QuantidadeEncomendada As Integer)
    • é adicionada uma nova encomenda à base de dados
  • Public Sub EsperaEncomenda()

    • este método será executado num outro Thread, em alternativa à utilização de um Timer, de forma a simular o Prazo de Entrega de uma encomenda

    • no final da subrotina, é actualizada a Data de Chegada da encomenda e actualizada a Quantidade em Stock do produto encomendado

• Foi actualizado o método Comprar da classe Produto
  • caso se verifiquem as condições de efectuar uma nova encomenda do produto:
  • If m_Quantidade <= PontoEncomenda And Not EncomendaFeita Then
        ' É necessário fazer uma nova encomenda
        Dim Enc As Encomenda
        Enc = New Encomenda(CodProduto, 100)

        ' Cria um novo Thread para executar a espera da chegada da encomenda
            Dim thr As Thread
        thr = New Thread(AddressOf Enc.EsperaEncomenda)
        thr.Start()

        EncomendaFeita = True
        RaiseEvent EncomendaEfectuada()
    End If

Código fonte obtido no final da aula:

Nome da Solução	Tipo	Código Fonte
SolLoja	Windows Application + Class Library	SolLoja24Janeiro

Nota: para a solução correr no seu computador, tem de actualizar a Connection String no construtor da classe BDLoja.