[Resolvido]Gestão Stock Jpaulo

Boa noite

Esta vai ser a minha 1ª mensagem no fórum.

Estou a utilizar a ferramenta de gestão de stock elaborado pelo jpaulo e estou com uma dúvida.

Ao selecionar a saída de um produto aparece uma janela para introduzirmos o nome de utilizador. O que queria saber era, se é possível em vez de introduzir o nome de utilizador abria uma janela que desse para escolher, de uma lista de vários utilizadores, apenas um utilizador.

Ou seja em vez disto:




Teria isto:



Depois era só adicionar

Como posso fazer algo assim?


Obrigado

Seja bem vindo ao Forum.

Amigo, para isso tera que ao inves utiliza InputBox, chamar um formulario igual ao de Login... Onde seleciona o usuario e insere a senha, se for a senha correta passs se nao avisa algo assim...

Obrigado pela resposta!

Mas se eu tiver um formulário igual ao login teria que escrever o nome de utilizador. O que pretendia era escolher o nome de utilizador de uma lista já feita com vários utilizadores. Assim já não era necessário estar a escrever o nome de utilizador.

Amigo, basta criar uma Caixa de Combinacao (ComboBox) que busca os nomes do usuario, ao inves de digita_los.... Igua na sua imagem...

Falei igual ao formulario de login pois achei que o seu seria assim, nao conheço esse exemplo do mestre JPaulo.

A ComboBox consegui criar, o problema agora é substituir o InputBox pela ComboBox que criei.

Ou seja, ao clicar no botão de saída que está no formulário iria aparecer a ComboBox e não a InputBox.

Vamos la...  a linha responsavel por chamar pedindo a senha tem esse texto:

InputBox(".....

Comente ela, e coloque a que chama o Formulario, algo assim:

DoCmd.OpenForm "NomeDoFormulario"


Veja logo a baixo tambem, que essa ImputBox deve estar passando o valor para uma variavel...

Substitua pelo Nome da Combo que seleciona o Usuario...

Obrigado FabioPaes. Vou tentar isso.

Agora essa linha DoCmd.OpenForm "NomeDoFormulario" coloco onde diz: strUser = InputBox("Introduza o nome do utilizador.", "SAÍDA DE PRODUTOS") ?

Este é o código original sem qualquer alteração:

Private Sub cmdSaída_Click()
'Reduz a quantidade do produto no stock
Dim intQuantidade As Integer
Dim lngCódigoDoProduto As Long
Dim Cancel As Integer
Dim strUser As String

On Error GoTo Tratamento
'inicia com a variavel limpa
strUser = ""
'coloca na variavel o utilizador
strUser = InputBox("Introduza o nome do utilizador.", "SAÍDA DE PRODUTOS")

intQuantidade = txtQuantidade
lngCódigoDoProduto = ListaProdutos

If intQuantidade > txtStock.Value Then

MsgBox "Não tem quantidade em Stock Suficiente para efectuar o movimento.", vbExclamation, "Gestão de Economato"
Cancel = True
Me.txtQuantidade.SetFocus
Me.txtQuantidade.Value = 1
Exit Sub
End If

'se cancelar a inputbox, aborta
   If strUser = "" Then
   MsgBox "Operação Cancelada...", vbCritical
   Exit Sub
   Else
'se não cancelar, coloca na variavel publica o nome do utilizador
   strUtilizador = strUser

If MsgBox("Deseja reduzir " & intQuantidade & " unidade(s) do Stock ?", vbQuestion + vbYesNo, "Gestão de Economato") = vbYes Then
   intQuantidade = txtQuantidade
   modProduto.AcertaStock lngCódigoDoProduto, (intQuantidade * (-1))
       MsgBox "Operação concluída com sucesso. Novo Stock de " & _
   modProduto.Nome & ": " & modProduto.Stock & " unidade(s).", _
   vbInformation + vbOKOnly, "Gestão de Economato"
   txtQuantidade = 1
   AtualizaCampos
   ListaProdutos.SetFocus
Else
   Exit Sub
End If

Amigão, será necessário alguns ajustes a mais...

Posta aqui esse aplicativo...

O ficheiro é este com algumas alterações.

Amigão, assim que possível eu altero pra vc...

Aqui amigo, versão conforme indicação anterior.
https://www.dropbox.com/s/ndzz1yu1toe64ub/Economato-Corrigido.rar?dl=0

Usuario | Senha
---------------------
Fabio  | 123
Joao   | 1234
Maria  | 12345

Foi alterado apenas no botão de Saída.

FabioPaes muito obrigado pelo teu trabalho, era exatamente isto!

Agora queria era inserir o usuário sem ter que por a password, é possível?

Ou seja, selecionava o usuário é fazia ok e nome do usuário era inserido.

Hum...

Quer dizer que qualquer usuário pode ir e fazer uma Movimentação em meu Nome???

Segue sem a verificação de senha.
https://www.dropbox.com/s/emuh7vbbuoes7s6/Economato-SemSenha.rar?dl=0

Obrigado FabioPaes, testei o novo ficheiro e está excelente!

Sim, o nome de usuário é só para controlar quem levou um determinado produto, ou seja, qual foi o destino do produto.

É só para introduzir o nome do usuário nas movimentações.

FabioPAes, desculpa estar a pedir isto mas como vou ter muitos nomes de utilizadores e o histórico vai ser grande, existe a possibilidade de criar algo como uma procura por utilizador. Tal como está no formulário a pesquisa por produto, é possível ter um pesquisa por utilizador?

Desta forma no quadro das movimentações só iria aparecer o nome utilizador que esqui e não todos.

Obrigado pelo teu trabalho!

Geralmente sempre tem como amigo...

Tal como está no formulário a pesquisa por produto...

Isso vc quer lá no Formulário principal, onde mostram os movimentos?

Sim, na pesquisa de produtos já existe. Se fosse possível criar algo para o formulário das movimentações era excelente, mas só com o nome dos utlizadores.

Desta forma aparecia o histórico com todos os utilizadores ou então a partir da opção da pesquisa, escolhia o utilizador que pretendia pesquisar.

Eu vou enviar um novo ficheiro porque fiz algumas modificações na parte de elaborar um relatório.

Eu criei um botão (relatórioutilizador) que permite abrir um relatório das movimentações a partir de vários critérios. Utlizador; Produto e Data. Só tenho é um problema com a ComboBox da Data pois queria ver se conseguia fazer a procura por mês/ano. Ou seja, escolhia um mês e no relatório iria aparacer apenas as movimentações do mês que escolhi para um determinado Utilizador e Produto.

Ultimamente tenho estado a fazer algumas alterações no ficheiro mas estou com um problema no código de um botão "cancelar movimento" que serve para anular uma movimentação.

Eu copiei o código de um outro ficheiro já existente mas não tem funcionado, aparece sempre um erro.

Alguém pode ajudar-me?

Na lista de Produtos, tem um código no evento apos atualizar...

Mude ele para:

Código:

Private Sub ListaProdutos_AfterUpdate() 'Aqui
Dim strSQL As String
    strSQL = "SELECT DISTINCTROW qryHistórico.Data, qryHistórico.Entrou, qryHistórico.Saiu, qryHistórico.Utilizador,qryHistórico.Cód_Mov,qryHistórico.Cód_Prod " & vbCrLf & _
    "FROM qryHistórico " & vbCrLf & _
    "WHERE qryHistórico.Cód_Prod= " & Forms!frmEconomato!ListaProdutos.Column(0) & " " & vbCrLf & _
    "ORDER BY qryHistórico.Data DESC , qryHistórico.Cód_Mov DESC;"
   
    Me.ListaHistórico.RowSource = strSQL
   
    AtualizaCampos
    cmdEntrada.Enabled = True
    cmdSaída.Enabled = True
    Me.ListaHistórico.Requery
    Me.txtQuantidade.SetFocus
End Sub

Agora na sua ListaHistórico, Mude o Numero de colunas para =6

No comando do Botão Cancelar coloque:

Código:

Private Sub Comando96_Click()
 Dim strSQL As String
    Dim VarIt
 
  If IsNull(Me.ListaHistórico) Then
  MsgBox "É necessário seleccionar um produto e o movimento...", vbExclamation + vbOKOnly, "Gestão de Economato"
  Exit Sub
  Else
    If MsgBox("Pretende abortar este movimento ?", vbYesNo + vbDefaultButton2 + vbQuestion) = vbYes Then
    For Each VarIt In ListaHistórico.ItemsSelected
            If Me.ListaHistórico.Column(1) = 0 Then
            MsgBox Me.[ListaHistórico].Column(5)
            CurrentDb.Execute "UPDATE tblProdutos SET UnidadesEmStock=UnidadesEmStock + " & Me.[ListaHistórico].Column(2) & " WHERE [CódigoDoProduto]=" & Me.[ListaHistórico].Column(5) & ""
            CurrentDb.Execute "DELETE * FROM [tblMovimentações] WHERE [CódigoDaMovimentação]=" & Me.[ListaHistórico].Column(4)
            ElseIf IsNull(Me.ListaHistórico.Column(5, VarIt)) Then
              MsgBox "Para sua segurança, volte a selecionar o produto e o movimento a abortar...", vbCritical
              Exit Sub
            Else
            CurrentDb.Execute "UPDATE tblProdutos SET UnidadesEmStock=UnidadesEmStock - " & Me.[ListaHistórico].Column(2) & " WHERE [CódigoDoProduto]=" & Me.[ListaHistórico].Column(5) & ""
            CurrentDb.Execute "DELETE * FROM [tblMovimentações] WHERE CódigoDaMovimentação=" & Me.[ListaHistórico].Column(4)
          End If
            Next
        Else
        Exit Sub
    End If
  End If
  AtualizaCampos
End Sub

Evite utilizar acentos, espaços e caracteres especiais em nomes de Campos!

Muito obrigado FabioPaes, funciona perfeito!!

Agora está muito bom.

Os valores do código de movimento que aparecem nas movimentações é que pode baralhar um bocado, ainda tentei tornar essa coluna invisível lol.

Edit: Após cancelar um movimento aparece uma janela com o código do produto é normal?




Cumprimentos

A mensagem e que esqueci de remer essa Linha:

MsgBox Me.[ListaHistórico].Column(5)




Agora quanto as duas colunas novas, basta na propriedade Largura das Colunas colocar:


;0;0


Assim estou definindo as duas ultimas com largura Zero, ou seja, elas nao aparecem...

FabioPaes já fiz as correções e está muito bom!

Muito obrigado pela tua ajuda e pelo teu tempo, o projeto ficou muito melhor!

Um grande abraço.

Grato pelo Retorno! Até a próxima se Deus quiser!