[Resolvido]Gestão economato X Frontend e backend

Boa tarde Amigos,

Hoje me deparei com o seguinte problema, ao usar o arquivo de gestão de estoque economato no bd normal, ele funciona perfeito.
Porem hoje quando fiz a separação do meu BD m front e banckend apenas o gestão economato não funciona, na caixa de listagem aonde aparece as movimentações não aparece a movimentação entrada opu saida do dia, e tambem na caixa de texto aonde mostra o estoque atual tambem não está atualizando.

Alguem pode me ajudar? acredito que seja aqui o problema:


Option Compare Database
Option Explicit

Private sNome As String
Private iStock As Double
Property Get nome()
'Retorna o valor da variável privada
nome = sNome
End Property
Property Get Stock()
'Retorna o valor da variável privada
Stock = iStock
End Property
Public Function Carrega(CpCodigoDoProduto As Long)
'Altera o valor das variáveis privadas
Dim db As DAO.Database
Dim rst As DAO.Recordset

Set db = CurrentDb()
Set rst = db.OpenRecordset("SELECT * " & _
"FROM tblProdutos" & _
"WHERE cpCodigoDoProduto =" & CStr(CpCodigoDoProduto))

If rst.RecordCount = 0 Then
MsgBox "Não há produto cadastrado com o código " & _
CStr(CpCodigoDoProduto) & ".", vbCritical
Else
With rst
.MoveFirst
sNome = !CpNomeDoProduto
iStock = !CpUnidadeEstoque
End With
End If

Set rst = Nothing
Set db = Nothing
End Function
Public Function AcertaStock(CpCodigoDoProduto As Long, CpQuantidade As Double)
'Altera o stock e coloca a informação na tabela de Movimentações (saída)
Dim db As DAO.Database
Dim rstProdutos As DAO.Recordset
Dim rstMovimentações As DAO.Recordset

Set db = CurrentDb()
Set rstProdutos = db.OpenRecordset("SELECT * FROM tblProdutos " & _
"WHERE cpCodigoDoProduto=" & CStr(CpCodigoDoProduto), dbOpenDynaset)

If rstProdutos.RecordCount = 0 Then
MsgBox "Não há produto cadastrado com o código " & _
CStr(CpCodigoDoProduto) & ".", vbCritical
Else
With rstProdutos
.MoveFirst
.Edit
!CpUnidadeEstoque = !CpUnidadeEstoque + Format(CpQuantidade, "0")
.Update
iStock = Format(!CpUnidadeEstoque, "0")
End With
End If

Set rstProdutos = Nothing

Set rstMovimentações = db.OpenRecordset("tblMovimentações", dbOpenTable)
With rstMovimentações
.AddNew
!CpCodigoDoProduto = CpCodigoDoProduto
!CpQuantidade = Format(CpQuantidade, "0")
!CpData = Date
.Update
End With

Set rstMovimentações = Nothing
Set db = Nothing

End Function
Public Function AcertaStock1(CpCodigoDoProduto As Long, CpQuantidade As Double)
'Altera o stock e coloca a informação na tabela de Movimentações (entrada)
Dim db As DAO.Database
Dim rstProdutos As DAO.Recordset
Dim rstMovimentações As DAO.Recordset

Set db = CurrentDb()
Set rstProdutos = db.OpenRecordset("SELECT * FROM tblProdutos " & _
"WHERE cpCodigoDoProduto=" & CStr(CpCodigoDoProduto), dbOpenDynaset)

If rstProdutos.RecordCount = 0 Then
MsgBox "Não há produto cadastrado com o código " & _
CStr(CpCodigoDoProduto) & ".", vbCritical
Else
With rstProdutos
.MoveFirst
.Edit
!CpUnidadeEstoque = !CpUnidadeEstoque + Format(CpQuantidade, "0")
.Update
iStock = Format(!CpUnidadeEstoque, "0")
End With
End If

Set rstProdutos = Nothing

Set rstMovimentações = db.OpenRecordset("tblMovimentações", dbOpenTable)
With rstMovimentações
.AddNew
!CpCodigoDoProduto = CpCodigoDoProduto
!CpQuantidade = Format(CpQuantidade, "0")
!CpData = Date
.Update
End With

Set rstMovimentações = Nothing
Set db = Nothing

End Function

Mesmo dividido deveria funfar.

Você tem as tabelas bem vinculadas ?

sim está vinculada pelo assistente de divisão do access, todas as outras tabelas estão funfando. só não o que se refere ao economato.

E quer colocar aqui os dois bancos para eu testar ?

Não dar para colocar aqui, e grande demais o BD, sugere outra coisa?

Em .zip quantos megas ?

Pode enviar para o meu email ?

me massa seu e-mail, irei mandar por e-mail ja que são dados sigilosos.

Obrigado,

Sem problema;

jpaulo65@gmail.com

te mandei por e-mail. obrigado.

Em qual form não funciona ?

o form economato, ele não atualiza a saida e entrada, e não dar o saldo do estoque após dado baixo no form.

Teste;

Delete tudo o que está no modulo "modProduto" e cole este;




Option Compare Database
Option Explicit
'By JPaulo ® Maximo Access
Private sNome As String
Private iStock As Double
Property Get nome()
'Retorna o valor da variável privada
nome = sNome
End Property
Property Get Stock()
'Retorna o valor da variável privada
Stock = iStock
End Property

Public Function Carrega(CodigoDoProduto As Long)
'Altera o valor das variáveis privadas
Dim db As DAO.Database
Dim rst As DAO.Recordset

Set db = CurrentDb()
Set rst = db.OpenRecordset("SELECT * " & _
"FROM tblProdutos" & _
"WHERE cpCodigoDoProduto =" & CStr(CodigoDoProduto))

If rst.RecordCount = 0 Then
MsgBox "Não há produto cadastrado com o código " & _
CStr(CodigoDoProduto) & ".", vbCritical
Else
With rst
.MoveFirst
sNome = !CpNomeDoProduto
iStock = !CpUnidadeEstoque
End With
End If

Set rst = Nothing
Set db = Nothing
End Function

Public Function AcertaStock(CodigoDoProduto As Long, Quantidade As Double)
'Altera o stock e coloca a informação na tabela de Movimentações (saída)
Dim db As DAO.Database
Dim rstProdutos As DAO.Recordset
Dim rstMovimentações As DAO.Recordset

Set db = CurrentDb()
Set rstProdutos = db.OpenRecordset("SELECT * FROM tblProdutos " & _
"WHERE cpCodigoDoProduto=" & CStr(CodigoDoProduto), dbOpenDynaset)

If rstProdutos.RecordCount = 0 Then
MsgBox "Não há produto cadastrado com o código " & _
CStr(CodigoDoProduto) & ".", vbCritical
Else
With rstProdutos
.MoveFirst
.Edit
!CpUnidadeEstoque = !CpUnidadeEstoque + Format(Quantidade, "0")
.Update
iStock = Format(!CpUnidadeEstoque, "0")
End With
End If

Set rstProdutos = Nothing

Set rstMovimentações = db.OpenRecordset("tblMovimentações")
With rstMovimentações
.AddNew
!CpCodigoDoProduto = CodigoDoProduto
!CpQuantidade = Format(Quantidade, "0")
!CpData = Date
.Update
End With

Set rstMovimentações = Nothing
Set db = Nothing

End Function

Public Function AcertaStock1(CodigoDoProduto As Long, Quantidade As Double)
'Altera o stock e coloca a informação na tabela de Movimentações (entrada)
Dim db As DAO.Database
Dim rstProdutos As DAO.Recordset
Dim rstMovimentações As DAO.Recordset

Set db = CurrentDb()
Set rstProdutos = db.OpenRecordset("SELECT * FROM tblProdutos " & _
"WHERE cpCodigoDoProduto=" & CStr(CodigoDoProduto), dbOpenDynaset)

If rstProdutos.RecordCount = 0 Then
MsgBox "Não há produto cadastrado com o código " & _
CStr(CodigoDoProduto) & ".", vbCritical
Else
With rstProdutos
.MoveFirst
.Edit
!CpUnidadeEstoque = !CpUnidadeEstoque + Format(Quantidade, "0")
.Update
iStock = Format(!CpUnidadeEstoque, "0")
End With
End If

Set rstProdutos = Nothing

Set rstMovimentações = db.OpenRecordset("tblMovimentações")
With rstMovimentações
.AddNew
!CpCodigoDoProduto = CodigoDoProduto
!CpQuantidade = Format(Quantidade, "0")
!CpData = Date
.Update
End With

Set rstMovimentações = Nothing
Set db = Nothing

End Function

Obrigado, vc e bom mesmo.


Hehehe, ja fez alguma vez um controle de curva abc de estocagem? o primeiro que entra e o primeiro que sai?

Abraços,

Tenho um que fiz para uma Empresa aqui perto, sim.

Trabalham com o FIFO (first in first out), para isso tem de introduzir sempre a data/hora no estoque.

Eu preciso montar um desse, porem que fale o racker usado e a data e produto que tem no racker, e que mostre relatorio mostrando quais produtos estão mais velhos e em qual racker estão.

Apanhei e não dei conta de fazer.

Monte até onde conseguir, e depois abra um tópico na sala "Projetos em Desenvolvimento", que a selva ajuda.

ok obrigado, abraços.