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

    Entrada/Saida de Estoque no clique de um Botão

    Compartilhe
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3336
    Registrado : 14/08/2013

    Entrada/Saida de Estoque no clique de um Botão

    Mensagem  FabioPaes em Qua 26 Jul - 20:44

    Nesse Vídeo, mostro como fazer a Baixa/Entrada no estoque utilizando Dao.Recordset.
    A Ideia e lançar os produtos, ao clicar em salvar ser atualizado as quantidade do estoque para cada produto lançado.

    Link Vídeo:

    youtube.com/watch?v=U_ShUg4i0VQ

    Código Utilizado:

    Código:

    Private Sub Comando18_Click()
    'Criado por Fabio Paes
    '   Em 25/07/2017

    DoCmd.RunCommand acCmdSaveRecord 'Salvo o Registro antes de começar a selecionar os dados
    Dim DB As Database 'Declaro as variaveis utilizadas no codigo
    Dim rsO, rsD, rsD2 As DAO.Recordset 'Variavel rsO=Fara a consulta dos produtos lançados na NF (Origem)
                                        'rsD=Fara a consulta do produto a ser adicionado o Estoque
                                        'rsD2=Fara a consulta do produto a ser DIMINUIDO a qnt da OC
    Set DB = CurrentDb() 'defino que irei Utilizar o BD atual
    'Realizo a consulta e trago todos os produtos lançados na NF em questão
    Set rsO = DB.OpenRecordset("SELECT * FROM DETALHES_ENTRADA_NF WHERE Codcont = " & Me.txt_IdIntControle & "")
    '----------------------------------------------------------------------------------------------------------------
        Do While Not rsO.EOF 'Repetirei Até que não haja mais registros no rsO
            'Faço a consulta e pego SOMENTE o produto em questão para adidionar o estoque
        Set rsD = DB.OpenRecordset("SELECT * FROM PRODUTOS WHERE CodPrd = '" & rsO!CodPrd & "'")
        'Faço a consulta e pego SOMENTE o produto em questão para diminuir a quantidade da OC
        Set rsD2 = DB.OpenRecordset("SELECT * FROM DETALHES_DA_OC WHERE NumOC = '" & Me.NumOC & "' AND CodPrd = '" & rsO!CodPrd & "'")
            'Diminui a quantidade Pendente da OC
            rsD2.Edit
            rsD2!QtdePendente = rsD2!QtdePendente - rsO!Quantidade
            rsD2.Update
            
            'Acrescenta a quantidade de cada produto ao estoque
            rsD.Edit
            rsD!EmEstoqueD001 = rsD!EmEstoqueD001 + rsO!Quantidade
            rsD.Update
            
        rsO.MoveNext 'Movo para proximo registro para Iniciar a Atualização do Novo produto...
        Loop    'Fim da alteração e Inicio da nova repetição para o Novo produto
    '--------------------------------------------------------------------------------------------------------------
    'Fecha as Conexoes abertas
    Set DB = Nothing
    Set rsO = Nothing
    Set rsD = Nothing
    Set rsD2 = Nothing
    MsgBox "Entrada Efetuada E Baixa da OC", vbInformation
    Me.Recalc
    End Sub


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: Ter 26 Set - 14:04