Não repetir o mesmo produto e sim a quantidade.

Uma boa noite pessoal,tenho esse bd de venda e necessito de uma alteração,assim:
Eu efetuo a venda pra um cliente um produto com o código por ex: 1342(TecadoPs2) e outra venda código 1246(Tesoura),ai o cliente resolve de comprar mais 1 teclado,ai eu queria que ao inves de repetir outra vez o mesmo produto ele então somasse a quantidade desse produto que era 1 e agora é 2,entenderam.
Alguém poderia dar uma olhada.
Abç.

https://dl.dropboxusercontent.com/u/90217826/TESTEPDV.rar

Alguém sabe resolver esse prolema gente.
Abç

up

Pessoal reabri esse tópico novamente,pra ver se alguém consegue o que gostaria.
Ao repetir um produto na mesma venda,ao invez de duplicar o produto só aumentasse a quantidade.
Algum jeito.
Abç.

brother nas minhas aplicações tenho uma rotina que exclui o item fazendo o estorno no saldo do estoque, em seguida cadastro o item e quantidade.

Cleverson

Ai Cleverson,teria um exemplo pra mim ver essa lida.
Abç.

Estou na casa da sogra.
Assim que chegar em casa posto a rotina, trabalho com forms desacoplados e DAO.

Abraços

ok

Kaynan,


Neste exemplo, o lance é a variável "intCrit", que faz a referência ao lote a ser excluído na Caixa de Listagem ListaLote usando o método FindFirst, e com isso fazer o estorno da quantidade no estoque do Lote selecionado.

Dúvidas manda aí.


Cleverson

Código:



Private Sub CmdExcluir_Click()

On Error GoTo TrataErros


'variáveis para serem usuadas somente neste módulo.
Dim blnOK As Boolean
Dim Cancel As Integer
Dim lin As String
Dim strUserName As String 'Guarda o usernamelogin.
Dim bSalvar As Boolean
Dim SRecebida As String
Dim sMinima As String
Dim sEstoque As String
Dim intReag As Long
Dim intCrit As Long


Dim db As DAO.Database
Set db = CurrentDb()


Dim sSQL As String

Dim rs As DAO.Recordset

sSQL = "SELECT tb_lote.ID_LR, tb_lote.RQ_LR, tb_reagente.NM_RQ, tb_lote.DE_LR, " _
        & "tb_lote.DV_LR, tb_lote.UR_LR, tb_lote.QM_LR, tb_lote.RE_LR, " _
        & "tb_lote.QD_LR, tb_lote.SL_LR, tb_lote.US_LR, tb_lote.QE_LR, tb_reagente.ER_RQ " _
        & "FROM tb_reagente INNER JOIN tb_lote ON tb_reagente.ID_RQ = tb_lote.RQ_LR " _
        & "WHERE (((tb_lote.QE_LR) > 0)) " _
        & "ORDER BY tb_lote.DV_LR;"

lin = Chr$(13) & Chr$(10)
strUserName = basUserLogin.fOSUserName
sMinima = Format(Me.ListaLote.Column(7), "#,##0.000")
sEstoque = Format(Me.ListaLote.Column(9), "#,##0.000")
SRecebida = Format(Me.ListaLote.Column(6), "#,##0.000")


If ListaLote.ItemsSelected.Count = 0 Then
   
    CritMsg "Para Excluir, selecione um Lote."
    DoCmd.CancelEvent
    Exit Sub

End If


If ListaLote.Column(8) <> strUserName Then
       
        basMsg.CritMsg "" & strUserName & " :" & lin _
        & lin & "Este lote só pode ser excluído pelo" & lin _
        & lin & "Usuário: " & ListaLote.Column(8) & "."
        DoCmd.CancelEvent
        Exit Sub
   
End If

    Lista_Rótulo.Caption = ""

    Rótulo_Lote.Caption = "EXCLUIR LOTE DE REAGENTE"

    blnOK = basMsg.Confirmar("" & strUserName & ", Confirma Exclusão?" & lin _
                                & lin & "Reagente  -  " & ListaLote.Column(2) & lin _
                                & lin & "Entrada    -  " & ListaLote.Column(3) & lin _
                                & lin & "Validade  -  " & ListaLote.Column(4) & lin _
                                & lin & "Unidade    -  " & ListaLote.Column(5) & lin _
                                & lin & "Mínima    -  " & sMinima & lin _
                                & lin & "Responsável-  " & ListaLote.Column(8) & "")

If blnOK Then

    Set rs = db.OpenRecordset(sSQL)
    intCrit = Me.ListaLote.Column(0)
   
    rs.MoveFirst
    rs.FindFirst "[ID_LR] = " & intCrit
    rs.Edit
    rs!ER_RQ = rs!ER_RQ - rs!QE_LR
    rs.Update
    rs.Delete
    rs.Close
   
    basMsg.ExclMsg "Lote de Reagente excluído com sucesso!"
    Form_Load

Else
       
    basMsg.CritMsg "Exclusão Cancelada."
    Form_Load

End If
   
Set rs = Nothing
db.Close
Set db = Nothing
     
Saida:
Exit Sub

TrataErros:

If Err.Number = 3200 Then
   
    CritMsg "Este Lote não pode ser Excluído." & lin _
    & lin & "Existe(m) registro(s) vinculado(s)." & lin _
    & lin & "Antes, exclua esse(s) registro(s)."
   
       

Else
   
    CritMsg "Ocorreu um erro! " & Err.Description & "."
    Form_Load

End If

Resume Saida

End Sub



Obrigado amigo,mas não daria de mandar a parte do bd que usa essa rotina,seria mais facil pra mim tentar adaptar no meu.

Mano,


Vou tentar adaptar ao seu BD, em seguida posto aqui.


Abraços,


Cleverson

Ola cleverson não deu certo no meu bd...

Kaynan,

Temos formas diferentes de resolver a mesma situação, sem contar que estou com pouco tempo ultimamente.

Bem, resolvi postar a aplicação com a rotina mencionada, sendo os arquivos dos forms e das tabelas em formato MDB.

Assim, vc pode analisar e estudar com mais calma e com certeza adaptar ao seu caso.

No mais, vou tentando por aqui quando tiver tempo.


- Primeiro, instala arquivo abaixo, com os forms:

SysLab.exe : https://www.dropbox.com/s/oaqtrb5qnkcon6f/SysLab.exe?dl=0

- Em seguida, quando abrir a aplicação informe o arquivo abaixo:

SysLab.mdb: https://www.dropbox.com/s/jw3t71zeqsi7d8u/SysLab_be.mdb?dl=0



Abraços


Cleverson

Não ta dando certo oque pretendo com esse bd,ta complicado esse abençoado rsrsr

cara nao sei se te ajuda mas eu uso esse codigo aqui

If Me!Preço <= 0 Then
Exit Sub
End If

If MsgBox("Confirma a Inclusao deste Produto ?" & Chr(10) & "Código ..: " & Me!CodigoS & Chr(10) & "Descrição .: " & Me!Discriminação & Chr(10) & "Quantidade .: " & Me!Quantidade & Chr(10) & "Valor Unitario .: " & Me!Preço, vbYesNo + vbExclamation + vbDefaultButton1, "Produtos") = vbYes Then
ServerIp = DLookup("[Path_0]", "tblCaminhoBe")
Dim dbLocal As DAO.Database
Dim ws As DAO.Workspace
Dim RS, Rst As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(ServerIp, False, False, "MS Access;PWD=senha")
strSqlS = ("select * from SUBOS where [ORDEM] = '" & Me.ORDEM & "' AND [Cód] = " & Me!N_ORIGINAL & "")
Set Rst = db.OpenRecordset(strSqlS)
If Me!N_ORIGINAL = "000243" Then
Rst.AddNew
Rst("CODIGO") = Me!CodigoS
Rst("DISCRIMINACAO") = Me!Discriminação
Rst("QUANT") = Me!Quantidade
Rst("VLRUNI") = Me!Preço
Rst("idunidade") = Me!Idunidade
Rst("ORDEM") = Me!ORDEM
Rst("DATA") = Date
Rst("CFOP") = Me!Cfop
Rst("NCM") = Me!NCM
Rst("TP") = Me!TP
Rst("vimp") = Me!valorimp
Rst("Desconto") = Me.vdescc
Rst("mar") = Me.marg
Rst("vlrtot") = (Quantidade * Preço)
Rst("VlrLiq") = (Quantidade * Preço) - Me.vdescc
Rst("CÓD") = Me!N_ORIGINAL
Rst("vendedor") = Username
Rst.Update
Else
If Rst.EOF Then
Rst.AddNew
Rst("CODIGO") = Me!CodigoS
Rst("DISCRIMINACAO") = Me!Discriminação
Rst("QUANT") = Me!Quantidade
Rst("VLRUNI") = Me!Preço
Rst("idunidade") = Me!Idunidade
Rst("ORDEM") = Me!ORDEM
Rst("DATA") = Date
Rst("CFOP") = Me!Cfop
Rst("NCM") = Me!NCM
Rst("TP") = Me!TP
Rst("vimp") = Me!valorimp
Rst("Desconto") = Me.vdescc
Rst("mar") = Me.marg
Rst("vlrtot") = (Quantidade * Preço)
Rst("VlrLiq") = (Quantidade * Preço) - Me.vdescc
Rst("CÓD") = Me!N_ORIGINAL
Rst("vendedor") = Username
Rst.Update
Else
Rst.Edit
Rst("QUANT") = Me!Quantidade
Rst("VLRUNI") = Me!Preço
Rst("vimp") = Me!valorimp
Rst("Desconto") = Me.vdescc
Rst("vlrtot") = (Quantidade * Preço)
Rst("VlrLiq") = (Quantidade * Preço) - Me.vdescc
Rst.Update
Rst.MoveNext
End If
End If
Rst.Close
Call baxx
Call ItensOrdem
Forms!ORDEM!ListaI.Requery
Call TOrdem
Call tpecas
Call tservicos
Me!CodigoS = Null
Me!Discriminação = Null
Me!Quantidade = Null
Me!Preço = Null
Me!valorimp = Null
CodigoS.SetFocus
Else
Me!CodigoS = Null
Me!Discriminação = Null
Me!Quantidade = Null
Me!Preço = Null
Me!valorimp = Null
CodigoS.SetFocus
End If

Obrigado pela ajuda amigo,tentei no meu aplicativo mas não ta fácil,será que poderia me enviar parte do teu bd que usa esse código ai serã mais facil de adaptar no meu bd.
Obrigado.

aqui vc filtra o arquivo

strSqlS = ("select * from SUBOS where [ORDEM] = '" & Me.ORDEM & "' AND [Cód] = " & Me!N_ORIGINAL & "")

aqui se ele existir na tabela ele edita o que vc quiser

Rst.Edit
Rst("QUANT") = Me!Quantidade
Rst("VLRUNI") = Me!Preço
Rst("vimp") = Me!valorimp
Rst("Desconto") = Me.vdescc
Rst("vlrtot") = (Quantidade * Preço)
Rst("VlrLiq") = (Quantidade * Preço) - Me.vdescc
Rst.Update
Rst.MoveNext

esse aqui e que eu uso pra nao atualizar a tabela de estoque porque esse codigo 000243 e codigo de servicos

If Me!N_ORIGINAL = "000243" Then

É neste meu bd não faz o que desejo,coisinha difice rsrs

Ai pessoal,gostaria que os amigos olhassem porque ta dando erro ao efetuar uma venda,coloquei esse código que o Noob me passou para quando fazer uma venda não repetir o nome do produto e sim somar a quantidade.
Da erro de compilação caractere de declaração não corresponde ao tipo de dados declarados.


https://dl.dropboxusercontent.com/u/90217826/TESTEPDV.rar