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

Boa tarde

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?

pergunto?

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

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

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

Resolvi.

Deixarei no repositório uma cópia também.