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]Solicitação de Itens com abatimento do Saldo

    Compartilhe
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 653
    Registrado : 09/11/2012

    [Resolvido]Solicitação de Itens com abatimento do Saldo

    Mensagem  =>Nois em Seg 28 Ago 2017, 14:53

    Boa tarde cheers

    Preciso de uma Luz!

    Faço uma programação de embalagens nessa ordem:

    exemplo:

    10 do item A
    5 do item B
    3 do Item C

    Terei uma tela que faz a solicitação de itens por quantidade

    Exemplo:

    necessito de 10 itens

    teoricamente na ordem devera ser enviado 10 itens do A abatendo o saldo para 0

    no entanto preciso ir um pouco além, se eu necessitasse de 12 itens

    teoricamente na ordem eu precisaria dos 10 do A e 2 Do B, deixando um saldo de 3 no B


    Alguem ja fez algo parecido?


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 797
    Registrado : 23/09/2011

    Re: [Resolvido]Solicitação de Itens com abatimento do Saldo

    Mensagem  cleverson_manaus em Seg 28 Ago 2017, 15:13



    pergunto?

    como se deu a entrada de saldo nos itens A, B e C?




    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 653
    Registrado : 09/11/2012

    Re: [Resolvido]Solicitação de Itens com abatimento do Saldo

    Mensagem  =>Nois em Seg 28 Ago 2017, 15:19

    Em Anexo Exemplo

    fiz o lançamento manual na tabela diretamente simulando uma tela de programação

    fiz uma consulta indicando o saldo total e filtrado por aquelas que nao foram baixadas e tem saldo


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 653
    Registrado : 09/11/2012

    Re: [Resolvido]Solicitação de Itens com abatimento do Saldo

    Mensagem  =>Nois em Seg 28 Ago 2017, 16:04

    Acho que estou no Caminho

    Código:

    Private Sub cmdSpeak_Click()


    'On Error Resume Next

    Dim PrimeiraRef, CodigoRefReg, PegaQtd, AcertoSaldo As Double
    Dim BaixaReg

    'Seguindo uma logica o dlookup pega a primeira referencia como ponto de partida

    PrimeiraRef = DLookup("[SaldoTT]", "cns_programa")
    CodigoRefReg = DLookup("[Codigo_Ref]", "cns_programa")
    PegaQtdSaldo = Nz(DLookup("[Qtd_Saldo]", "cns_programa"), 0)
    PegaQtd = Me.txtQtd

    AcertoSaldo = PegaQtdSaldo + PegaQtd

    BaixaReg = -1

    'MsgBox "1: " & PrimeiraRef
    'MsgBox "2: " & CodigoRefReg
    'MsgBox "3: " & PegaQtd

    If PrimeiraRef > AcertoSaldo Then

       
        CurrentDb.Execute "UPDATE cns_programa SET Qtd_Saldo=" & AcertoSaldo & " WHERE Codigo_Ref=" & CodigoRefReg & "" 'Insiro a Qtd solicitado + a quantidade que ja tinha
        Call GeraPedido

    ElseIf PrimeiraRef = AcertoSaldo Then

        CurrentDb.Execute "UPDATE cns_programa SET Qtd_Saldo=" & AcertoSaldo & " WHERE Codigo_Ref=" & CodigoRefReg & "" 'Insiro a Qtd solicitado + a quantidade que ja tinha
        CurrentDb.Execute "UPDATE cns_programa SET Baixa=" & BaixaReg & " WHERE Codigo_Ref=" & CodigoRefReg & "" 'Dou Baixa no registro para exibir o proximo registro da ordem
        Call GeraPedido

    ElseIf PrimeiraRef < AcertoSaldo Then
       

        Exit Sub

    End If

    End Sub



    Sub GeraPedido()

    MsgBox "Pedido Gerado"
    Me.txtQtd = Null



    End Sub


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 653
    Registrado : 09/11/2012

    Re: [Resolvido]Solicitação de Itens com abatimento do Saldo

    Mensagem  =>Nois em Ter 29 Ago 2017, 11:00

    Resolvi.

    Deixarei no repositório uma cópia também.
    Anexos
    Database1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (65 Kb) Baixado 43 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

      Data/hora atual: Sab 18 Nov 2017, 17:24