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

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