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 : 1404
    Registrado : 18/07/2010

    [Resolvido]aviso de estoque baixo

    Mensagem  Agravina em 31/10/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
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]aviso de estoque baixo

    Mensagem  CassioFabre em 31/10/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 : 1404
    Registrado : 18/07/2010

    Re: [Resolvido]aviso de estoque baixo

    Mensagem  Agravina em 31/10/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
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]aviso de estoque baixo

    Mensagem  CassioFabre em 31/10/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 : 1404
    Registrado : 18/07/2010

    Re: [Resolvido]aviso de estoque baixo

    Mensagem  Agravina em 31/10/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 31/10/2017, 18:31, editado 2 vez(es)
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]aviso de estoque baixo

    Mensagem  CassioFabre em 31/10/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 : 1404
    Registrado : 18/07/2010

    Re: [Resolvido]aviso de estoque baixo

    Mensagem  Agravina em 31/10/2017, 19:05

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

    Respeito às Regras 100%

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

    Re: [Resolvido]aviso de estoque baixo

    Mensagem  CassioFabre em 1/11/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 : 1404
    Registrado : 18/07/2010

    Re: [Resolvido]aviso de estoque baixo

    Mensagem  Agravina em 1/11/2017, 19:37

    Perfeito muito obrigado CassioFabre

      Data/hora atual: 23/9/2018, 00:18