[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.

Desculpe minha ignorância mas o que é  MPM
media ponderada eu sei o que é e sei fazer , mas o que seria o móvel.


coloca sua base para download.

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”

Entendi
mas tem uma duvida.
a partir de que momento voce começa a desconsiderar os preços mais antigos da compra para fazer a media


seria mais fácil de trabalhar em cima da sua base de dados

fiz um exemplo veja se é isto que voce quer quando diz a cada linha.
so fiz o preço médio ponderado os outros campos são simples.
poderia usar também um saldo acumulado linha a linha.

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.

Agora ficou bem mais fácil

Fica no aguardo

Marquei o tópico para acompanhar.

Ola
Como voce não colocou a sua base de dados fiz um de acordo com os dados do excell.

Os dados do rodapé não ficaram claro do que se tratava se era media, total então ficou em aberto, mas ve se era isso.

ate mais

o código esta todo comentado.

Ate mais

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 colegas.

Em qual situação será alterado o estoque inicial e seu custo?

Após uma contagem de estoque (inventário)?
Acredito que seja, então acrescentar uma outra operação que poderia ser "AcertEstoque" com o mesmo código do EstoqInicial. Quanto ao custo que irá informar
deverá ser o último calculado pelo sistema a não ser que queira usar o da última compra.

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.

Nilton, por parte:

1- sobre "alterar estoque e custo" o que foi proposto, poderá ser?

2- A compra do produto XYZ de diferentes fornecedores e custos.
"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."
 
Sinceramente não imagino como montar esse relatório e é para que?

"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."

Converse com seu contador e apresente essa questão (2).

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...

Muito bem vamos la então


Para a quantidade inicial e custo.


A um tempo atrás desenvolvi um sistema de rastreabilidade de lotes de produção de ração
Onde cada ingrediente da formula teria que ser rastreado e desenvolvi uma função que para que a cada tonelada de ração produzida fosse adicionado os os códigos correspondentes (faturei 5000 nessa brincadeira o nem que sou especialista em access faço programas para a empresa que trabalho) e acho que essa mesma técnica vai ser vir para você. De graça kkkk
Mas preciso da sua base de dados por causa do volume de dados que já tem e para ver sua estrutura, tempo de execução, confiabilidade dos calculos, você diz que tem um form de entrada outro para saída e uma consulta que ajunta tudo.

Apague os forms, tabela, e relatório não necessários e poste para download
a outras pessoas que podem ajudar

Ou me mande na mensagem privada.

Ate mais

Fiz uma alteração no meu exemplo mesmo.

o comentário de funcionamento esta no código.

ate mais

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.

Muito bem

Estou no aguardo.
Depois de resolver esta questão vamos

Para o caso 2

qual o critério que determinaria quem sairia primeiro do estoque?

Poderia ser usado o sistema PEPS e de forma automática também

usa um pouco mais de programação mas é fácil de fazer.


Ate mais

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.

Tudo bem mas o que preciso saber é o seguinte por exemplo se usar a data de entrada para drtetminsr quem sai primeiro as datas são crescentes os lotes que você disse são crescentes ou aleatórios e as notas cada empresa tem a sua numeração.
Para funcionar tem que usar um critério que seja igual para todos os fornecedores como se fosse uma numeração automática.

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

Ola

Ficou muito bem implantado

Valeu pelo retorno