MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Ao finalizar venda marcar itens vendidos

    Compartilhe

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    [Resolvido]Ao finalizar venda marcar itens vendidos

    Mensagem  thiagonsilvaa em Sex 04 Ago 2017, 15:31

    Bom dia a todos !
    Tenho formulário de cadastro de obras, e dentro tem um subform onde cadastro os apartamentos, dentro desse subform tenho um campo "sim/não".
    Na tela de vendas, tenho uma lista desses apartamentos, onde filtro por uma combox os apartamentos correspondentes aquela obra. Quando dou um duplo click nos apartamentos selecionados, através do insert into insiro todas as informações que preciso em uma outra tabela. Até aí tudo bem. Quando clico em um botão para finalizar a venda, como faço para marcar o campo "Sim/não" do apartamento correspondente na tbl de apartamentos para que ele não esteja mais disponível para venda ?

    Gratidão.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3417
    Registrado : 14/08/2013

    Re: [Resolvido]Ao finalizar venda marcar itens vendidos

    Mensagem  FabioPaes em Sex 04 Ago 2017, 16:32

    Veja algo bem parecido com o que precisa... Nesse caso é com Empréstimo de Livros.
    youtube.com/watch?v=VE5GOGb4PB0


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    Ao finalizar venda marcar itens vendidos

    Mensagem  thiagonsilvaa em Sex 04 Ago 2017, 17:35

    Boa tarde !
    Assisti o  vídeo, fiz o código seguindo o exemplo do vídeo e nada certo.
    Quando finalizo a venda, marca apenas um apartamento e não todos os que foram inseridos.
    Vou anexar o BD para melhor analise.
    Gratidão.
    Anexos
    System Atual.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (255 Kb) Baixado 10 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3417
    Registrado : 14/08/2013

    Re: [Resolvido]Ao finalizar venda marcar itens vendidos

    Mensagem  FabioPaes em Sex 04 Ago 2017, 20:11

    Amigo, se tem mais de um apartamento, logo terá que realizar um Loop para isso!

    Faça atraves de Recorset, busque todos os apartamentos da venda atual... Edite o registro, atualize ele e vá para o Proximo.

    Algo muito parecido com o parcelamento do outro tópico.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    Ao finalizar venda marcar itens vendidos

    Mensagem  thiagonsilvaa em Sex 04 Ago 2017, 22:46

    Boa noite meu caro !
    Vou tentar buscar mais informações no fórum, pois não entendi muito bem o que me falou. Se puder me dar mais detalhes ficarei grato.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3417
    Registrado : 14/08/2013

    Re: [Resolvido]Ao finalizar venda marcar itens vendidos

    Mensagem  FabioPaes em Sab 05 Ago 2017, 21:07

    Lembra do que foi feito aqui nesse tópico:
    [Você precisa estar registrado e conectado para ver este link.]
    Então, irá fazer um Loop pelos registros referente a venda que acabou de fazer, e atualizar o registro.

    No gerador de parcelas, eu abria um recordset na tabal (Set rs = DB.OpenRecordset("Tbl_Parcelamento")) e adicionava os registros, certo?

    Agora iremos fazer um pouco diferente:
    Set rs = DB.OpenRecordset("SELECT * FROM NomeTabela WHERE IDVenda= " & Me.IDVenda &"")
    Dessa forma eu busco todos os APs incluido na venda atual, filtrando pelo campo IDVenda.

    Agora, basta eu realizar um Loop e Editar o registro, ao inves de
    rs.AddNew

    Será Rs.Edit


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    Ao finalizar venda marcar itens vendidos

    Mensagem  thiagonsilvaa em Sab 05 Ago 2017, 22:00

    Boa tarde !
    "Dessa forma eu busco todos os APs incluido na venda atual, filtrando pelo campo IDVenda." não entendi essa parte.

    Nesse código : Set rs = DB.OpenRecordset("SELECT * FROM NomeTabela WHERE IDVenda= " & Me.IDVenda &"") vou selecionar a tabela de detalhes da venda ou a de apartamentos? Acredito que a de detalhes da venda né ? Mas como que por ela eu vou marcar os apartamentos que foram vendidos na tbl_aptos ? Eis a minha dúvida.

    Abraços.

    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3417
    Registrado : 14/08/2013

    Re: [Resolvido]Ao finalizar venda marcar itens vendidos

    Mensagem  FabioPaes em Seg 07 Ago 2017, 13:57

    Veja aqui como fazer...
    [Você precisa estar registrado e conectado para ver este link.]
    Nesse caso foi estoque, mas é a mesma coisa!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    Ao finalizar venda marcar itens vendidos

    Mensagem  thiagonsilvaa em Seg 07 Ago 2017, 15:27

    Bom dia meu caro !
    Estou tentando adaptar o código utilizado na video aula que você mencionou mas não estou obtendo sucesso:
    Código:
    'Criado por Fabio Paes
    '  Em 25/07/2017

    DoCmd.RunCommand acCmdSaveRecord 'Salvo o Registro antes de começar a selecionar os dados
    Dim DB As Database 'Declaro as variaveis utilizadas no codigo
    Dim rsO, rsD, rsD2 As DAO.Recordset 'Variavel rsO=Fara a consulta dos produtos lançados na NF (Origem)
                                        'rsD=Fara a consulta do produto a ser adicionado o Estoque
                                        'rsD2=Fara a consulta do produto a ser DIMINUIDO a qnt da OC
    Set DB = CurrentDb() 'defino que irei Utilizar o BD atual
    'Realizo a consulta e trago todos os produtos lançados na NF em questão
    Set rsO = DB.OpenRecordset("SELECT * FROM Tbl_DetalhesVenda WHERE CodVendaDt = " & Me.txtcodigo & "")
    '----------------------------------------------------------------------------------------------------------------
        Do While Not rsO.EOF 'Repetirei Até que não haja mais registros no rsO
            'Faço a consulta e pego SOMENTE o produto em questão para adidionar o estoque
        Set rsD = DB.OpenRecordset("SELECT * FROM Tbl_DetalhesVenda WHERE Apto = " & Forms!FormVenda!Tbl_DetalhesVenda.Form!Apto & "")
        'Faço a consulta e pego SOMENTE o produto em questão para diminuir a quantidade da OC
        Set rsD2 = DB.OpenRecordset("SELECT * FROM Tbl_Aptos WHERE Código =" & Me.listaaptos.Column(5) & "'")
            'Diminui a quantidade Pendente da OC
            rsD2.Edit
            rsD2("Vendido") = -1
            rsD2.Update
           
            'Acrescenta a quantidade de cada produto ao estoque
            rsD.Edit
            rsD!Vendido = -1
            rsD.Update
           
        rsO.MoveNext 'Movo para proximo registro para Iniciar a Atualização do Novo produto...
        Loop    'Fim da alteração e Inicio da nova repetição para o Novo produto
    '--------------------------------------------------------------------------------------------------------------
    'Fecha as Conexoes abertas
    Set DB = Nothing
    Set rsO = Nothing
    Set rsD = Nothing
    Set rsD2 = Nothing
    MsgBox "Entrada Efetuada E Baixa da OC", vbInformation
    Me.Recalc

    Onde estou errando ? Não estou conseguindo identificar.
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/09/2011

    Re: [Resolvido]Ao finalizar venda marcar itens vendidos

    Mensagem  cleverson_manaus em Seg 07 Ago 2017, 22:33



    Caros

    Acredito que há um erro no relacionamento entre as tabelas DetalhesVenda e Obras, quando deveria ser entre DetalhesVenda e aptos.

    Bem como alterar o tipo de dados do campo Apto da tabela DetalhesVenda de Texto para Número.



    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    ao finalizar venda marcar itens vendidos

    Mensagem  thiagonsilvaa em Ter 08 Ago 2017, 01:32

    Boa noite Cleverson !
    Eu acabei de fazer essa mudança na tabela detalhes venda.
    Agora, a respeito das relações, você viu o projeto anexo na mensagem anterior? Mudando a relação entre essas tabelas, mudaria toda estrutura do sistema ? Ou não afetaria ?
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/09/2011

    Re: [Resolvido]Ao finalizar venda marcar itens vendidos

    Mensagem  cleverson_manaus em Ter 08 Ago 2017, 12:43



    Pelo contrário, só tende a melhorar.

    Após essa mudança no relacionamento vc deve seguir a dica do colega Fabio Paes, pois as regras de estoque se aplicam ao seu caso, apenas vc deve quebrar mais cabeça para entender essa lógica.

    Abraços,


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    ao finalizar venda marcar itens vendidos

    Mensagem  thiagonsilvaa em Ter 08 Ago 2017, 13:08

    Bom dia !
    Bom, pelo que entendi, veja se estou correto. Você disse na mensagem anterior que a tbl_detalhesvenda deveria se relacionar com a de aptos e não com a de obras. Qual campo seria necessário relacionar? Ou eu criaria um campo novo na tabela de aptos e relacionaria o código da tbl_detalhesvenda com esse novo campo ? A tbl obras relacionaria apenas com a de aptos, enquanto a de aptos relacionaria com a de detalhes e a de obras. Seria isso ?
    Abraços.
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/09/2011

    Re: [Resolvido]Ao finalizar venda marcar itens vendidos

    Mensagem  cleverson_manaus em Ter 08 Ago 2017, 13:50

    Dê uma olhada na figura, se conseguir visualizar não sou bom ainda com essa ferramenta do forum:

    [Você precisa estar registrado e conectado para ver este link.]


    Respondendo:

    01 - Você disse na mensagem anterior que a tbl_detalhesvenda deveria se relacionar com a de aptos e não com a de obras. Qual campo seria necessário relacionar?

    - Utilize o campo chave primária da tabela aptos com o campo aptos da tabela DetalhesVenda, mas antes altere esse campo para numero;

    02 - Ou eu criaria um campo novo na tabela de aptos e relacionaria o código da tbl_detalhesvenda com esse novo campo ?

    - não é necessário;

    03 - A tbl obras relacionaria apenas com a de aptos, enquanto a de aptos relacionaria com a de detalhes e a de obras. Seria isso ?

    - pode ser as duas coisas, ou somente a primeira.


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    Ao finalizar marcar itens vendidos

    Mensagem  thiagonsilvaa em Ter 08 Ago 2017, 14:37

    Bom dia !
    Veja se seria dessa maneira:
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Aconteceu um problema com o "insert into" que usava na lista de apartamentos para inserir na "tbl_detalhesvenda" através do click duplo, não está mais inserindo, por que ?
    Outra coisa, na tbl_detalhesvenda eu poderia eliminar o campo "Codobradt" ou ainda poderia usá-lo ?
    Qual seria o próximo passo ?

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    Ao finalizar marcar itens vendidos

    Mensagem  thiagonsilvaa em Ter 08 Ago 2017, 15:36

    Esqueci de mencionar o código que estou usando:
    Código:
    CurrentDb.Execute "INSERT INTO Tbl_DetalhesVenda (CodVendaDt, Obra, Apto, Valor_Apto,CodObraDt)" & _
    "VALUES(" & Me.txtcodigo & ",'" & Me.listaaptos.Column(1) & "', " & Me.listaaptos.Column(2) & ", " & Me.listaaptos.Column(3) & ", " & Me.listaaptos.Column(0) & ")"

    Me.Tbl_DetalhesVenda.Requery

    O campo "codvendadt" vem do form principal (FormVenda)
    A obra vem da lista de apartamentos (coluna 1, texto)
    O apto vem da lista de apartamentos (coluna 2, número)
    O valor_apto vem da lista de apartamentos (coluna 3, moeda)
    O codobradt vem da lista de apartamentos (coluna 0, número)

    No aguardo.
    Gratidão.

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    Ao finalizar venda marcar itens vendidos

    Mensagem  thiagonsilvaa em Qua 09 Ago 2017, 21:50

    Boa tarde !
    Venho através desta mensagem agradecer aos meus amigos desse fórum por me ajudarem mais uma vez em minhas dúvidas.
    Passo agora o tópico para resolvido, e disponibilizo o projeto no qual estou desenvolvendo.
    Gratidão !
    Anexos
    System Atual.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (254 Kb) Baixado 5 vez(es)

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    Ao finalizar venda marcar itens vendidos

    Mensagem  thiagonsilvaa em Qua 09 Ago 2017, 21:56

    Resolvido !
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3417
    Registrado : 14/08/2013

    Re: [Resolvido]Ao finalizar venda marcar itens vendidos

    Mensagem  FabioPaes em Qua 09 Ago 2017, 22:14

    Grato pelo retorno amigo, até a próxima se Deus Quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: Ter 21 Nov 2017, 17:32