Monthly Archives: Março 2011

Sistema de vendas (actualização)

Neste actualização do sistema de vendas as alterações foram as seguintes:
Colocar a imagem da empresa no relatório, que não estava aparecer.
Reformulação do aspecto da impressão da venda e colocação do campo “produto” que não estava na impressão.
Colocação da tabela de IVa e totais.
Criação do formulário de listagem de vendas diárias, onde podemos ver todas as vendas efectuadas no dia e uma listagem por tipo de pagamento.
Alteração do código para introduzir a imagem do logotipo da empresa. Como a imagem esta ligada ao campo ‘localfoto’ que é o caminho no disco onde está a imagem, caso a imagem não se encontre no local dava erro e não abria o formulário “dados da empresa”. Assim sendo coloquei uma rotina que verifica se dá erro e caso isso aconteça esconde a imagem e sai da função para não dar erro. Basicamente volta ao estado inicial como se ainda não tivesse imagem.
Alterado no formulário e no relatório de impressão da venda.
Fornecedores – Foi criado o formulário de fornecedores. Sempre que inserir uma nova compra e o fornecedor não existir, pergunta se deseja adicionar. Em caso afirmativo abre o formulário “Fornecedores” para introduzir os dados.
Compras – Se o artigos não existir, pergunta se quer inserir.

Download: Sistema de Vendas

Agradeço que testem e comentem, para melhorar o sistema.

Actualização do código para inserir uma foto

No exemplo do abrigo animais e no exemplo sistema de vendas existe um formulário onde podemos colocar uma foto. Após utilização desse código verifiquei que como a imagem esta ligada ao campo ‘localfoto’ que é o caminho no disco onde está a imagem, caso a imagem não se encontre no local dava erro e não abria o formulário. Assim sendo coloquei uma rotina que verifica se dá erro e caso isso aconteça esconde a imagem e sai da função para não dar erro. Basicamente volta ao estado inicial como se ainda não tivesse imagem.

Na próxima mensagem vou colocar a próxima actualização do sistema de vendas onde poderemos ver o código em funcionamento. Entretanto podemos fazer um teste que é colocar o sistema de vendas numa pasta diferente e verificar o que acontece quando abrimos o formulário dos dados da empresa.

O código actualizado é o seguinte:

‘www.accessexemplos.com
‘José Martins
‘2011-02-28

On Error GoTo Err_mostraimagem

If IsNull(Me.Localfoto) = False Then
Me.FOTO.Picture = Me.Localfoto
FOTO.Visible = True
SEMFOTO.Visible = False
Else
Me.FOTO.Picture = “”
SEMFOTO.Visible = True
FOTO.Visible = False
End If

Exit_mostraimagem:
Exit Sub

Err_mostraimagem:
Select Case Err.Number
Case 2220 ‘ Não encontra a imagem
FOTO.Visible = False
SEMFOTO.Visible = True
Resume Exit_mostraimagem:
Case Else ‘ Outro Erro.
MsgBox Err.Number & ” ” & Err.Description
Resume Exit_mostraimagem:
End Select

Escrever tudo em maiúsculas ou minúsculas

Para que um utilizador quando estiver a introduzir dados escreva sempre em maiúsculas basta colocar o seguinte código nas propriedades do campo, no evento ‘ao premir a tecla’ (OnKeyPress ):

KeyAscii = Asc(UCase(Chr(KeyAscii)))

onde keyascii vai receber o novo código ASCII

chr = exibe o carácter do código ASCII

Função ‘Asc’: Devolve um número inteiro que representa o código (ASCII) de carácter correspondente à primeira letra numa cadeia.

Função Ucase: converte uma cadeia de caracteres para maiúsculas.

Função Chr: mostra o carácter do código ASCII

Para converter para minúscula basta alterar Ucase por Lcase:

KeyAscii = Asc(LCase(Chr(KeyAscii)))