[Resolvido]Ficha de Estoque MPM

Estou precisando de ajuda para criar um form de "Ficha de Estoque MPM" a ser alimentado por tabelas de Materiais, Vendas e Compras.
Para cada Código de Material, seria gerado uma Ficha de Estoque contendo o Estoque Inicial, As Compras e As Vendas, sendo que a cada linha o form calcularia o estoque final com quantidade restante e valor do estoque, pela "Média Ponderada Móvel" conforme o desenho anexo...
Já procurei no site e não encontrei.
Agradeço a ajuda.

Veja isso...

“Contabilidade Comercial

Avaliação de Estoques

Média Ponderada Móvel (MPM)

Para contornar as dificuldades operacionais causadas pelo
controle de valores por lotes, como é feito nos métodos PEPS
e UEPS, podemos utilizar o método da Média Ponderada Móvel
(MPM), que permite a avaliação dos estoques pelo preço médio
ponderado.

Esse método é chamado de Média Ponderada Móvel porque,
a cada nova unidade comprada por valores diferentes dos valores
existentes no estoque, o valor do custo médio sofre alteração
em seu valor, evitando os extremos que ocorrem ao se avaliar
os estoques pelo método PEPS ou pelo método UEPS, ou seja,
as primeiras ou últimas compras no estoque, respectivamente.
Ele é operacionalizado pela divisão do custo total dos estoques
pelas unidades existentes.
Observe-se que esse método, pela sua facilidade de
operacionalização, é o mais utilizado pelas empresas de uma
maneira geral.


Unip Universidade Paulista – Contabilidade Comercial Unidade I”

No início vc tem o Custo da Mercadoria Vendida "CMV" que é o custo de compra mais frete e seguro do ítem. E tem o custo total e quantidade de ítens em estoque naquela data, deste referido produto.
Vc vende ao CMV que estava na ficha de estoque.
Quando compra, vc soma o custo total do estoque neste momento ao custo total das compras deste ítem e divide pelo número de peças que ficarão no estoque após a compra.
A partir daí o custo da mercadoria vendida "CMV" passa a ser a média.
A próxima venda tem o CMV anterior...
E assim por diante.

Das minhas tabelas de Materiais, Compras e de Vendas que estão relacionadas, faço um select e populo o formulário...

Mas não consigo calcular depois, linha a linha... como deveria ficar a ficha de estoque.

Até consigo calcular, mas tenho que inserir o saldo anterior manualmente.

Esta é a minha dúvida, como calcular linha a linha num form uma consulta que já está filtrada.

Boa noite Scandinavo

Está perfeito seu código, agradeço muito sua atenção...

Esta ficha que fez, faz o cálculo perfeitamente, mas imagina a situação...

Tenho tabela com aproximadamente 3000 ítens de materiais em estoque, tabela de compras de materiais com fornecedores e custos, tabela de ítens vendidos no dia a dia da loja...

Numa compra, num formulário próprio de entradas de mercadorias, após dar entrada, a consulta acréscimo só adiciona a data, o material, a quandidade, a operação e o custo unitário de compra à tabela tblMovimento;

Numa venda, após baixar o estoque, a consulta acréscimo só adiciona a data, o material, a quantidade e a operação à tabela tblMovimento, o custo tem que vir da MPM da linha anterior do form.

Numa devolução, após baixar o estoque, a consulta acréscimo só adiciona a data, o material, a quantidade e a operação à tabela tblMovimento, o custo tem que vir da MPM da linha anterior do form.

Para o estoque inicial, pode ser feito conforme seu exemplo, que está perfeito, mas se eu precisar alterar o estoque inicial e seu custo, todas as linhas contidas nesta ficha devem ser recalculadas automaticamente.

E, como podemos calcular linha a linha desta ficha, automaticamente, a partir somente das informações que as consultas acréscimo fazem na tblMovimento, toda vez que eu filtrar um produto diferente?

Abraços

Boa tarde

Agradeço sua atenção...

A princípio não alteramos uma ficha de estoque, mas podem haver erros no inventário inicial e até na digitação do custo inicial.

Pensei numa maneira de flexibilizar e dar opção de acerto ao usuário, e que deveria ser liberado com senha de administrador.

A ficha não pode ser editável, seria como um relatório, um registro do que aconteceu.

Só que o CMV (custo da mercadoria vendida) seria usado no registro de vendas; inclusive tem mais um problema...

Tem casos em que numa nota fiscal de saída eu teria a venda de um mesmo produto com dois ou mais CMV diferentes, isto é, no meu registro de ítens vendidos, eu teria por exemplo: Venda de 50 peças de produto XYZ, sendo que 15 peças tinham o CMV de R$ 12,00 que foram comprados com a NF de Comércio Alpha nº 1234, 25 peças tinham o CMV de R$ 13,20 que foram comprados com a NF de Comércio Beta nº 567 e 10 peças tinham o CMV de R$ 14,00 que foram comprados com a NF de Comércio Gama nº 890. Isso teria que aparecer na ficha de estoque com 3 linhas de vendas a CMV's iguais da MPM e identificando as NF's de entrada diferentes.

Ao identificar de qual nota saiu cada produto poderíamos também calcular ST (substituição tributária) e ICMS diferenciado a Compensar ou a Pagar, com mais precisão.

Sou Contador e também pratico um pouco de programação em access.

A ficha de estoque não pode ser editada, ela deve ser alimentada indiretamente via formulários de compra de produtos e de vendas... Como o exemplo do excel postado anteriormente.

O caso da edição da linha inicial somente para o caso de erro de digitação de quantidade de ítens de estoque e custo inicial.

O caso 2 nos ajuda quando a venda é feita para outro estado e temos Substituição Tributária, e também Isenções ou Diferenciais de Alíquotas de ICMS de alguns produtos nas diferentes notas de entrada, que são variáveis dependendo de que estado essa mercadoria veio.

Imagino um formulário dinâmico pra fazer tudo isso, mas não sei por onde começar...

Scandinavo...

Muito boa sua solução...

Agora dá pra automatizar.

Fiz uma pequena alteração no evento ao clicar do botão recalcular,

E também bloqueio todo o form pra edição, as informações virão somente da tabela tblMovimento.

Assim posso recalcular tudo num clique com senha ou ao abrir o form, desde que eu insira o estoque inicial e o valor inicial.

--------------------------------------------------------------

Private Sub btRecalcular_Click()
'Percorre todo o formulario refazendo os calculos
'Poderia usar o selct case mas não testei

'os campos iniciais sao editaveis altere os valores e veja o resultado
'Voce poderia por Campos desacoplados para pegar estes valores

'Tambem poderia alimentar este formulario com os dados da consulta filtrada por dada
'pois não precisa ser do inicio do estoque e sim do lançamento que voce quer corrigir
'que a partir do primeiro registro do formulario todos os outros posteriores serão editados

'simples não........

Dim NEstoque As Integer 'quantidade em estoque
Dim PrUntEstoque As Currency 'preço unitario no estoque

Dim rst As Recordset
Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst

'Para inicio de lançamentos os dados são inseridos atraves de uma inputbox
If Me.cmbOperacao = "EstoqInicial" Then

NEstoque = InputBox("Qual seu estoque inicial:", "Atençao")
PrUntEstoque = InputBox("Qual o preço unitario do seu estoque:", "Atençao")

Me.QntEstoque = NEstoque 'Pega a quantidade da variavel
Me.PrecoUntEstoque = PrUntEstoque 'Pega o preço medio da variavel
Me.ValorEstoque = Me.QntEstoque * Me.PrecoUntEstoque 'Calcula o valor do estoque

'Atualiza os dados do formulario com os valores atuais
Forms![frmProduto].[Estoque] = Me.QntEstoque 'Estoque
Forms![frmProduto].[MPM] = Me.PrecoUntEstoque 'Preço unitario
Forms![frmProduto].[ValorDoEstoque] = Me.ValorEstoque 'Valor do estoque

'Me.QntEstoque = Forms![frmProduto].[Estoque] 'Pega a quantidade da variavel
'Me.PrecoUntEstoque = Forms![frmProduto].[MPM]  'Pega o preço medio da variavel
'Me.ValorEstoque = Me.QntEstoque * Me.PrecoUntEstoque 'Calcula o valor do estoque
Else

.
.
.
.
--------------------------------------------------------------------

Agradeço muito pela ajuda,

Assim que adaptar seu código ao meu projeto te envio cópia.

Os métodos PEPS e MPM são aceitos pelo fisco...

No método PEPS ficaria mais fácil separar de qual lote sai cada parte de uma venda de uma mesma mercadoria,

Só que pra programar é mais complicado...

Por isso trabalho no MPM.

Acredito que um trabalho em cima do método PEPS seria mais usado pela maioria.

No MPM o critério para "caso 2" deveria ser o mesmo do método PEPS, e o sistema precisaria dividir a venda deste produto (na ficha de estoque) em duas ou mais linhas, apontando o lote ou a nota de entrada diferente em cada linha com suas respectivas quantidades, mesmo que estas linhas tenham o mesmo valor do Custo Médio Anterior.

Grande Scandinavo

Consegui um tempo pra separar um pedaço do projeto,

Segue anexo...

senha usuário = user

senha master = admin

Feito em access 2000

Um abraço