Vamos lá..
Tenho um projeto de aluguel de equipamento, ontem possuo todos os equipamentos que tenho na empresa e tambem o que tenho alugado
Exemplo: (tabela: Aluguel_Cadastro_Equipamento)
Descrição quant quant_alugada
Furadeira 10 8
Lixadeira 20 5
noutra tabela faço o aluguel dos equipamentos (Aluguel_Cadastro_Itens)
Toda vez que alugo um equipamento, eu somo a quantidade alugada anteriormente com a quantidade alugada do momento, ou seja, imaginei q tinha 8 furadeiras alugadas e aluguei mais 1 furadeira.... então meu Aluguel_Cadastro_Equipamento.QUANT_ALUGADA = 9
Quando excluo um equipamento... automaticamente ele subtrai
Até ai tudo bem...
Porem preciso excluir um contrato com 4 equipamentos que estão listado em um flexgrid
A questão seria fazer o loop, pegar o primeiro da lista, obter a quantidade atual dele(Aluguel_Cadastro_Equipamento.QUANT_ALUGADA) e subtrair com a quantidade q está no grid e atualizar a tabela Aluguel_Cadastro_Equipamento.QUANT_ALUGADA com a nova quantidade.... depois passar para o proximo da lista... um por um..
Fiz assim para atualizar clicando de um por um... e executando o comando(um por vez)
porem queria fazer com todos pelo loop, o que preciso mudar?
Tenho um projeto de aluguel de equipamento, ontem possuo todos os equipamentos que tenho na empresa e tambem o que tenho alugado
Exemplo: (tabela: Aluguel_Cadastro_Equipamento)
Descrição quant quant_alugada
Furadeira 10 8
Lixadeira 20 5
noutra tabela faço o aluguel dos equipamentos (Aluguel_Cadastro_Itens)
Toda vez que alugo um equipamento, eu somo a quantidade alugada anteriormente com a quantidade alugada do momento, ou seja, imaginei q tinha 8 furadeiras alugadas e aluguei mais 1 furadeira.... então meu Aluguel_Cadastro_Equipamento.QUANT_ALUGADA = 9
Quando excluo um equipamento... automaticamente ele subtrai
Até ai tudo bem...
Porem preciso excluir um contrato com 4 equipamentos que estão listado em um flexgrid
A questão seria fazer o loop, pegar o primeiro da lista, obter a quantidade atual dele(Aluguel_Cadastro_Equipamento.QUANT_ALUGADA) e subtrair com a quantidade q está no grid e atualizar a tabela Aluguel_Cadastro_Equipamento.QUANT_ALUGADA com a nova quantidade.... depois passar para o proximo da lista... um por um..
Fiz assim para atualizar clicando de um por um... e executando o comando(um por vez)
Code:
'atualizar os equipamentos alugados
i = GridProdutos.Row
sSQL = 'SELECT QUANT_ESTOQUE, QUANT_ALUGADA FROM Aluguel_Cadastro_Equipamento WHERE (COD_EQUIP = ' & GridProdutos.TextMatrix(i, 12) & ');'
Set r = dbData.OpenRecordset(sSQL)
Dim varQuantAtual As Integer
Dim varQuantAlugada As Integer
Dim varNovaQuant As Integer
varQuantAtual = r('QUANT_ALUGADA')
varQuantAlugada = GridProdutos.TextMatrix(i, 4)
varNovaQuant = varQuantAtual - varQuantAlugada
'colocar a quantidade de itens alugados
dbData.Execute 'UPDATE aluguel_cadastro_equipamento SET QUANT_ALUGADA = ' & varNovaQuant & ' WHERE (COD_EQUIP = ' & GridProdutos.TextMatrix(i, 12) & ');'