MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]aviso de estoque baixo

    Compartilhe
    avatar
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1328
    Registrado : 18/07/2010

    [Resolvido]aviso de estoque baixo

    Mensagem  Agravina em Ter 31 Out 2017, 12:23

    Como colocar uma msg de aviso de estoque baixo ,no momento da venda do produto
    tenha os seguintes campos

    Nome tabela= tblprodutos
    campos = QuantEstoque
    =QuantMinino
    a ideia é quando vender um produto que atinge a quantidade minima de estoque receba um aviso.
    avatar
    CassioFabre
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 18/01/2013

    Re: [Resolvido]aviso de estoque baixo

    Mensagem  CassioFabre em Ter 31 Out 2017, 12:48

    Bom dia,

    Depois de realizar o processo de venda, descontar a quantidade comprada do estoque disponível (campo QuantEstoque) faça uma simples verificação.

    Código:
    Dim rs as recordset
    set rs = CurrentDb.OpenRecordset("SELECT CodProduto, Produto, QuantEstoque, QuantMinino FROM tblprodutos WHERE CodProduto = " & [campoCodFormulario] & "")

    If rs!QuantEstoque < rs!QuantMinino Then
        MsgBox("O produto " & rs!Produto & " está com estoque abaixo do mínimo!", vbExclamation, "Estoque Mínimo")
    End if

    rs.close

    Onde CodProduto e Produto são, respectivamente, os campos que possuem o código do produto e o nome do produto na tblprodutos. E [campoCodFormulario] é o seu campo que tem o codigo do produto no seu form de venda.

    Abraço.


    .................................................................................
    Só não tem código pra morte!
    avatar
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1328
    Registrado : 18/07/2010

    Re: [Resolvido]aviso de estoque baixo

    Mensagem  Agravina em Ter 31 Out 2017, 13:16

    Olá CassioFabre
    Desde já agradeço por sua atenção

    no meu caso eu tenho um subformulário devo colocar este código em qual evento?
    avatar
    CassioFabre
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 18/01/2013

    Re: [Resolvido]aviso de estoque baixo

    Mensagem  CassioFabre em Ter 31 Out 2017, 14:41

    Boa tarde,

    Coloque logo após a conclusão da gravação do registro. Por exemplo, se voce tiver uma msgbox "Venda concluída com sucesso!", coloque logo após esta msgbox.

    Abraço.


    .................................................................................
    Só não tem código pra morte!
    avatar
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1328
    Registrado : 18/07/2010

    Re: [Resolvido]aviso de estoque baixo

    Mensagem  Agravina em Ter 31 Out 2017, 18:03

    Boa tarde!
    Postei parte do bd pois não estou a conseguir

    Abra frmpontodevenda
    utilize o código 123 para venda e para finalizar a venda F5

    [Você precisa estar registrado e conectado para ver este link.]


    Última edição por Agravina em Ter 31 Out 2017, 18:31, editado 2 vez(es)
    avatar
    CassioFabre
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 18/01/2013

    Re: [Resolvido]aviso de estoque baixo

    Mensagem  CassioFabre em Ter 31 Out 2017, 18:05

    Boa tarde,

    O bd não veio.

    Abraço.


    .................................................................................
    Só não tem código pra morte!
    avatar
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1328
    Registrado : 18/07/2010

    Re: [Resolvido]aviso de estoque baixo

    Mensagem  Agravina em Ter 31 Out 2017, 19:05

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    CassioFabre
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 18/01/2013

    Re: [Resolvido]aviso de estoque baixo

    Mensagem  CassioFabre em Qua 01 Nov 2017, 11:13

    Bom dia,

    Altere o código do Comando32 para:
    Código:
    Private Sub Comando32_Click()
    Me.TxtVenda = Me.Códigovenda
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

        Dim rs, rs1 As Recordset
        Dim str As String
        
        Set rs1 = CurrentDb.OpenRecordset("SELECT coddetalhevenda, codprod FROM tbldetalhe_sisPDV WHERE coddetalhevenda = " & Me.codvenda & " GROUP BY codprod, coddetalhevenda")
        
        Do While Not rs1.EOF
            Set rs = CurrentDb.OpenRecordset("SELECT CódigoProduto, QuantidadeEstoque, EstoqueMinimo, Descrição FROM Tab_Produto WHERE CódigoProduto = " & rs1!codprod & "")
            
            If rs!QuantidadeEstoque < rs!EstoqueMinimo Then
                If str <> "" Then str = str & ", "
                
                str = str & rs!Descrição
            End If
            
            rs.Close
            rs1.MoveNext
        Loop
        
        rs1.Close
        
        If str <> "" Then
            MsgBox "Atenção, os produtos " & str & " estão abaixo do estoque mínimo.", vbExclamation, "Estoque mínimo"
        End If

    DoCmd.GoToRecord , , acNewRec
    End Sub
    Obs: evite usar acentuação e caracteres especiais em nomes de campos na tabela. Por exemplo o campo Descrição substitua por descricao. Esta é uma ótima prática.

    Abraço.


    .................................................................................
    Só não tem código pra morte!
    avatar
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1328
    Registrado : 18/07/2010

    Re: [Resolvido]aviso de estoque baixo

    Mensagem  Agravina em Qua 01 Nov 2017, 19:37

    Perfeito muito obrigado CassioFabre

      Data/hora atual: Qua 22 Nov 2017, 10:41