6 replies to this topic

[webdotx]

Ai galera eu estou desenvolvendo um sisteminha de estoque em ASp e estou com a maior duvida sobre a estrutura da tabela de entrada, saida e saldo.

Pois o que eu quero é que além do BD guardar as informações de entrada e saida durante o mês ou ano inteiro eu gostaria de ver o saldo do produto no estoque .

Tem como vc´s me da uma luz de como devo fazer pois já estou perdendo a cabeça com a estrutura desse BD

[viniciusjau]

como funciona ???

( entrada - saida = saldo ? )

se for iso eu aconselho vc a fazer essas contas via codigo.....

se não for posta mais detalhadamente pra gente poder te ajudar

[Agente Linhares]

dê detalhes do q vc precisa, pra que exatamente, se tera muitos acessos, plataforma, etc, etc, etc..

[Generation]

Opa blz?
seria + ou - isso?

+ Produtos
-- ID
-- Produto
-- QTD_estoque
-- QTD_saida

Entrou mercadoria voce adiciona ex.: 15 no QTD_estoque.
Vendeu uma peça, voce tira 1 do QTD estoque e Acrescenta + 1 em QTD_saida
no final do periodo voce teria a quatidade de peças vendidas totalizadas em QTD_saida...

Agora se for uma estatistica, acho que voce deveria gravar todas as vendas em uma tabela contento todas as informaçoes, como data, codigo produto, nome, etc..Voce poderia tirar tudo isso no Select,(vendas por periodo, Por peça, etc) tendo assim uma estatistica definida de acordo com as necessidades do usuario...


T+

[webdotx]

Ai galera Brigadão pela força - vou colocar abaixo o jeito que eu fiz

Primeiro eu tenho um BD com os seguintes campos

Tabentrada
CondGrupo - CodMaterial - Nome - QutEntra - Data

Essa tabela esta relacionada a TabGrupo - e TabMaterial

ai criei dois forms um entrada e outro saida sendo que na pagina que processa as infos para cadastrar no BD eu fiz assim

cadentra.asp

<%
'Funcao para tratamento de virgula e ponto
Function MudaNumero(pNumero,pFormato) 
Select Case pFormato 
Case 1 ' converte de nacional para o formato americano 
pNumero = Replace(pNumero,",","") 
pNumero = Replace(pNumero,",",",") 
Case 2 ' Converte de americano para o formato nacional 
pNumero = Replace(pNumero,".",",") 
End Select 
MudaNumero = pNumero 
End Function 


DB = "Data Source=" & Server.Mappath("estocar.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"
Set objConn = Server.CreateObject("AdoDb.Connection") 
objConn.provider="Microsoft.Jet.OLEDB.4.0" 
objConn.connectionstring=Server.Mappath("estocar.mdb") 
objConn.open 


dim nome,entra,data

' Criamos a connection
Set objConexao = Server.CreateObject("ADODB.Connection")
' Abrimos
objConexao.Open DB
'Form
SQL_Cat = "select * from tabentrada order by codmaterial desc"
Set RS_Cat = objConn.Execute(SQL_Cat)

cod = TRIM(Request.Form("material"))
entra = TRIM(Request.Form("quantentra"))
data = Date()
'Criamos a linha SQL para inserir
SQL = "INSERT INTO tabentrada(codmaterial,quantentra,data) VALUES ('" & cod & "','" & entra & "','" & data & "')"
'Executamos a SQL de INSERÇÂO
objConexao.Execute SQL
objConexao.Close
set objConexao = Nothing
set rs_cat = Nothing
response.redirect("index.asp") 
%>

Esse dai entra com as informações na tabentrada

e usando o mesmo codigo e a mesma tabela eu apenas mudei essa linha abaixo

entra = - TRIM(Request.Form("quantentra"))

e chamei de cadsai.asp

pra visualizar o saldo no estoque fiz este select

SELECT tabgrupo.nome, tabmaterial.nomematerial, Sum(tabentrada.Quantentra) AS numclassific FROM tabgrupo INNER JOIN (tabmaterial INNER JOIN tabentrada ON tabmaterial.codmaterial = tabentrada.CodMaterial) ON tabgrupo.codgrupo = tabmaterial.codgrupo GROUP BY tabgrupo.nome, tabmaterial.nomematerial, tabentrada.CodMaterial ORDER BY Sum(tabentrada.Quantentra) DESC;

pronto o meu estoque esta pronto

vou aperfeiçoar algumas coisas e organizar a casa e perguntar ai a galera do Forum se posso publicar esse sisteminha pra comunidade daqui do forum - se vc´s permite

[webdotx]

Ai galera eu gostaria de colocar um aviso -
Quando o cliente escolhe um produto e digita um valor acima do que tem no estoque o sistema retornar dizendo que uma Msg pra ele - deu pra entender

[Agente Linhares]

webdotx, não poste topicos consecutivos, nestes casos, use o botão EDITAR. ok?


sobre a duvida, é simples..
so vc pegar a varivel da qtde d estoque e verificar com if..

ex.:

If variavel_valor_digitado > variavel_quantida_de_estoque Then
response.write "O valor digitado é maior do que consta em nosso estoque.."
Else
'aqui vem o resto do code, se o valor ta menor q o q tem no estoque..
End If