[Resolvido]Exemplo de Ficha de um produto, composto por vários produtos

Boa tarde Amigos

Preciso de estudar um exemplo de uma Ficha de um produto, composto por vários produtos.

Obrigado

Up

Algum exemplo

Olá, Assis Boa noite

Não tenho um exemplo mas um aplicativo que fiz aqui para uso em meu trabalho, Recarga de Cartuchos, tive que fazer assim:

1º - Faço uma transferência dos produtos base buscando os valores de custo
Ex.: Tinta, esponja, Clips
2º - Pego o valor de custo total e dou entrada no novo produto
Ex.: Recarga Cartucho HP 662

Fiz desta forma porque se o fisco quiser saber para onde foram os produtos tenho como comprovar e controlo meu estoque ml a ml, gr a gr.

O ruim é que exige 3 lançamentos: Saída dos produtos base, entrada do produto final e saída como venda ao cliente.

Um erro que cometi foi que tudo fica na mesma tabela e assim serviço fica junto com mercadoria mas como você é expert em access e eu sou
só fuçador dá para fazer bem legal. Eu quebrei a cabeça e não consegui uma alternativa a 3 lançamentos.

Complementando a dica do amigo...

Nunca o fiz, mas ja vi feito em outros sistemas assim:

Vc cadastra o Produto Final, e nele Cadastra uma Receita, para quando lançar a produção desse produto, alem da entrada no estoque ele ja de Baixa nos suprimentos utilizados...


Ex:
Protudo Final:
Cartucho Impressora XXX -------------- UN

Formula:
Tinta ------------- 2ml
Outros produtos --------------2UN




Então na Hora de Lançar a Produção, vc seleciona o Produto Cartucho Impressora, digita a quantidade produzida.

E AO salvar, ele faz:

Dar a Entrada no estoque do Cartucho Impressora;
Busca na tabelaFormula (filtrando pelo CodProduto Final) todos os Codigos e as quantidades de Cada produtos Utilizado para produzir o Cartucho, e Dá a saida das quantidades do Estoque.

Ex: Cartucho Impressora XXX ---------- 2 UN

Entra no estoque 2UN

Sai do Estoque:

Tinta (2ml*2) 'Saira 4ml de tinta, ja que foram produzidos 2 UN do Cartucho Impressora XXX
Outros Produtos (2UN *2)

Acredito eu que daria pra fazer essa Movimentação através de DAO.RecordSet

Assim agiliza um pouco o Processo, ja basta lançar a produção diaria...

Sobre as Tabelas, acredito que daria pra ser feito assim:

Na tabela Cadastro de Produtos, vc criaria um Campo do tipo Sim/Nao com nome de ProducaoPropria. Sendo assim criaria uma Tabela com o nome ProdFormula (ID,IdProduto,IdSuprimento,Qnt). IdProduto pegaria o Codigo do Produto da produção propria; IdSuprimento, vc colocaria uma Combobox que buscar na propria tabela de Cadastro de produtos, porem filtrando para mostrar apenas o que nao estao marcados como ProducaoPropria;

No Formulario de Cadastro de Produtos, ao marca o Campo ProducaoPropria Ele Mostraria o Subformulario com os Campos da Tabela ProdFormula .

Uma tabela de Produção e uma com o DetalheProducao. Pra ficar registrado os dias, os produtos produzidos e as quantidades...


Claro, isso foi um pensamento rapido sobre o assunto rerererererere

Boa noite, segue um exemplo em simples de montagem de produto composto.

Boa Jungli Era exatamente isto que eu Tinha em Mente...
Acrescentando apenas a Quantidade de Cada produto, para a saida...

Boa tarde Amigos

A minha intenção é mais em termos de preço de custo do produto composto.
Como o produto composto é composto por um ou mais subprodutos, queria que ao alterar o preço de um subproduto, todos os produtos compostos que tivessem esse subproduto associado fossem atualizados automaticamente

Obrigado

Boa Mestre Assis, a partir deste mesmo exemplo você pode acrescentar o campo preço de custo ao produto e fazer a soma dos custos de cada subproduto inserido na montagem do produto composto, assim como fiz no preço unitário.

abs.

Olá a todos
Assis, ao alterar o custo do produto composto, pode efetuar o que pretende com uma consulta atualizar.
Basta saber o valor novo - valor anterior e adicionar o resultado ao preço, cujo tem produtos relacionados.
Fica a sugestão.
Abraço

Boa mestre Assis, como anda o projeto?

Boa tarde Jungli

De momento essa parte está em stand By.

Junto anexo um exemplo daquilo que queria, não tem nada a ver com stoks, tem a ver com o preço final do produto final, quando os preços dos sub produtos são alterados, actualizar todos os produtos finais quando un subproduto é alterado.

Olá Assis,
Para o que pretende veja:


Se que alterar o preço do composto de 1,00 para 2,00, o que vai fazer é o seguinte:

Preço Atual (3,00)  -  Preço Anterior do composto (1,00) + Preço Novo do Composto (2,00)

Abraço

Obrigado Teixeira

Olá,
Sim, mas vai querer que também altere o preço de todos os artigos que gaste o composto.
Deverá ser um formulário de alteração de preço.
Ao confirmar, uma consulta vai verificar quais os artigos que tem o composto alterado e actualiza o preço no artigo.
Abraço

Boa noite Teixeira

O formulário de alterar o preço de preços será este.

Mas como fazer para que ao alterar um preço neste form (Imagem) e alterar os preços do produto final ?



Obrigado

Boa senhores,

Assis,

analizando o banco de dados

Boa,

no formulário: TabelaSubProdutos
no campo: Prod_PUnit
no evento ao atualizar { Prod_PUnit_AfterUpdate() }, coloque


   Dim strAtualiza As String
   strAtualiza = "UPDATE dbProduto_Composicao SET Prod_PUnit = " & Me.Prod_PUnit.Value & _
                 " WHERE sysId_Prod_Comp=" & Me.sysId.Value & ";"
   DoCmd.SetWarnings (False)
   CurrentDb.Execute strAtualiza
   DoCmd.SetWarnings (True)


no formulário: frmProduto no evento { Form_Current() } coloque

'// Atualiza o valor do propduto
   Call Comando17_Click

Jungli

Bom dia

Bons progressos ... mas na tabela não actualiza todos.

Obrigado

Olá a todos,
Assis não baixei nem testei exemplo do colega.
Mas repare, só falta acrescentar a query (consulta actualizar o preço) dos artigos que tem o composto alterado.
No que vejo do código do colega, na minha opinião so falta isso.

Nota final, eu não sou muito adepto de ter valores calculados (total compostos) guardados noutra tabela (preço artigo)
Já pensou que quando o artigo é composto, poderia fazer a soma (dos compostos) e ter sempre o preço de venda "on time".
Por vezes existe várias soluções para o mesmo problema.
Abraço

Boa tarde,

eis ...

Obrigado Jungli

Aí está ele ....

Olá a todos.
Glicério (Jungli), obrigado pela ajuda, vou partilhar o seu código (muito bem comentado), para ficar mais visivel.

Código:

Private Sub Prod_PUnit_AfterUpdate()
'// Variáveis
    Dim strAtualiza As String
    Dim rs, rsSoma As DAO.Recordset
'// Popula a variável
    strAtualiza = "UPDATE dbProduto_Composicao SET Prod_PUnit = " & Me.Prod_PUnit.Value & _
                  " WHERE sysId_Prod_Comp=" & Me.sysId.Value & ";"
'// Tratamento de erros
On Error GoTo sair3021
'// Desativa os alertas do sistema
    DoCmd.SetWarnings (False)
'// Ativa a ampulheta do mouse
    DoCmd.Hourglass (True)
'// Executa a consulta para atualizar valores da tabela: dbProduto_Composicao
    CurrentDb.Execute strAtualiza
'// Abre o recodset da tabela dbProduto
    Set rs = CurrentDb.OpenRecordset("SELECT * from dbProduto")
'// Loop para atuallizar os preços
    Do Until rs.EOF
    Dim numId As Integer '................ Variável
    numId = rs![sysId] '.................. Popula a variável
    '// Atualiza o valor do produto
        Set rsSoma = CurrentDb.OpenRecordset("SELECT sysId_Prod, Sum(Prod_PUnit) AS J FROM dbProduto_Composicao GROUP BY sysId_Prod HAVING sysId_Prod=" & numId & ";")
        rs.Edit '......................... Modo de edição
        rs![Prod_PUnit] = rsSoma![J] '.... Atuliza o campo PUNIT pela soma dos produtos obtidos na consulta, no campo J
        rs.Update '....................... Grava a modificação feira no registro
        rs.MoveNext '..................... Move para o próximo registro
    '// Fecha o recordset e limpa a memória
        Set rsSoma = Nothing: Close
    Loop
'// Fecha o recordset e limpa a memória
    Set rs = Nothing: Close
'// Ativa os alertas do sistema
    DoCmd.SetWarnings (True)
'// Desativa a ampulheta do mouse
    DoCmd.Hourglass (False)
    
sair3021:
'// Ao ocorrer o erro
    If Err.Number = 3021 Then: Exit Sub

End Sub

 Fico feliz
 Em ajudar

Muito Bomm o seu exemplo Jungli... Parabéns por partilhar o seu conhecimento