Filipe
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 09/09/2009 15:58 hs
Pessual este é meu codigo para cadastramento: Dim prog As String
Dim mod2 As String
Dim seq, seq2, qtd1, qtd2 As Integer
prog = Programacao Set rs1 = vgDb.OpenRecordSet("select * from itens_programa where programa = '" & prog & "' and Status = 'A'")
If Not rs1.EOF Then
seq = rs1("seq") Set rs2 = vgDb.OpenRecordSet("select itens_programa.codmat from itens_programa, imodulos where itens_programa.codmat = imodulos.codmod and Status = 'A'")
If Not rs2.EOF Then
If seq <= 2 Then
seq2 = seq + 1
qtd1 = rs1("qtd")
vgDb.Execute "insert into itens_programa (Programa,Codmat,Origem,Qtd,Status,seq, qto, qtm) select '" & prog & "', imodulos.codmat, imodulos.codmod, imodulos.qtd * " & qtd1 & ", 'A' , " & seq2 & ", " & qtd1 & ", imodulos.qtd from itens_programa, imodulos where itens_programa.codmat = imodulos.codmod and seq = " & seq & "" MsgBox "Certo! Nv: " & seq + 1
vgDb.Execute "update itens_programa set Status = 'E' where programa = '" & prog & "' and seq = " & seq & ""
Grid(Index).Refresh 'remonta o grid
Else
seq2 = seq + 1
Set rs3 = vgDb.OpenRecordSet("select * from itens_programa where itens_programa.Codmat = Origem")
qtd1 = rs1("qto")
qtd2 = rs3("qtm")
vgDb.Execute "insert into itens_programa (Programa,Codmat,Origem,Qtd,Status,seq, qto, qtm) select '" & prog & "', imodulos.codmat, imodulos.codmod, " & qtd2 & " * " & qtd1 & ", 'A' , " & seq2 & ", " & qtd1 & ", " & qtd2 & " from itens_programa, imodulos where itens_programa.codmat = imodulos.codmod and seq = " & seq & "" MsgBox "Certo! Nv: " & seq + 1
vgDb.Execute "update itens_programa set Status = 'E' where programa = '" & prog & "' and seq = " & seq & ""
Grid(Index).Refresh 'remonta o grid
End If
Else
vgDb.Execute "update itens_programa set Status = 'E' where programa = '" & prog & "' and seq = " & seq & ""
Grid(Index).Refresh 'remonta o grid
MsgBox "Nenhum Status como A , Nv:" & seq
End If
Else
MsgBox "Não existem mais Modulos a serem Explodidos", vbInformation
End If so q oke acontece é o seguinte, 1º linha blz, so vai ter 1 a "EXPLODIR", 2º vai pegar apenas 1 QTD, pq so vai ter 1 a explodir!! a 3º linha, tem varios itens a serem inseridos, e eles pegam todos a mesma quantidade, pegam de todos os da 1º linha!!!!!! oke eu faço pra esse codigo ae, ir pegando cadastro a cadastro?????? :( me ajudem por favor |
|
|
|
|
|
|
|
Postada em 09/09/2009 16:20 hs
Cara, vc tem como postar o teu projeto?
Só olhando esse código fica difícil ajudar....
__________________
"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."
-F.E.A.R. (First Encounter Assault Recon )
|
|
|
|
|
|
Postada em 09/09/2009 16:24 hs
foi mal, vou explicar o que acontece no projeto: Loop linha a linha [ Ajuda ]Ola galera, primeiro vou falar oque meu trabalho devera fazer:
primeiro, eu entro na tela, e cadastro 1 produto ex:
CORPO, e a quantidade q eu quero> 2
dentro de corpo existem outros produtos...
Cabeça, e Braço...
para fazer 1 corpo, é necessario > 1 cabeça
para fazer 1 corpo é necessario > 2 braços
e dentro de braço eu tenho o produto DEDOS, necessario 5 para sua construção
eu faço 1 programa ( ex: MES DE DEZEMBRO, para que eu saiba oque eu é necessario para fabricar no mes de dezembro, ai coloco la: 2 CORPO )
ai fica:
PROGRAMA: PRODUTO: ORIGEM: QTD: STS:
MES DE DEZEMBRO / CORPO / / 2 / A
AI EU CLICO NUM BOTÃO, PARA EXPLODIR ESTE PRODUTO:
PROGRAMA: PRODUTO: ORIGEM: QTD: STS:
MES DE DEZEMBRO / CORPO / / 2 / E
MES DE DEZEMBRO / CABEÇA / CORPO / (1*2) / A
MES DE DEZEMBRO / BRAÇO / CORPO / (2*2) / A
ATÉ AQUI, FUNCIONA NORMAL, AI CHEGA O PROBLEMA, NA HORA DO 3º NIVEL, OQUE ACONTECE ELE NÃO PEGA A QTD DO SEU ORIGEM, E SIM DA PRIMEIRA LINHA:
PROGRAMA: PRODUTO: ORIGEM: QTD: STS:
MES DE DEZEMBRO / CORPO / / 2 / E
MES DE DEZEMBRO / CABEÇA / CORPO / (1*2) / E
MES DE DEZEMBRO / BRAÇO / CORPO / (2*2) / E
MES DE DEZEMBRO / DEDOS / BRAÇO / (2*2) AO INVEZ DE 2*4 / A
DEU PRA INTENDER?
......................
alguem sabe como eu faço para criar um loop q faça linha a linha ao invez de jogar todo o dado?, pq se CABEÇA estiver com status E, e braço com A, pega o valor correto, + como ele passa tudo de 1 vez, ele "come bola", alguem pode me ajudar ? abraços |
|
|
|
|
|
Postada em 09/09/2009 16:48 hs
Agora eu entendi a lógica do código.
Mas não deveria ser:
MES DE DEZEMBRO / DEDOS / BRAÇO / (5*2*2)/ A
5 dedos para cada braço. 2 Braços por corpo. Dois corpos.
Então... dedos = corpos * braços * 5
__________________
"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."
-F.E.A.R. (First Encounter Assault Recon )
|
|
|
|
|
|
Postada em 09/09/2009 17:15 hs
é issu ae ! :D ... axo q issu tbm ta errado! kkkkkkkkkkkk me ajuda ae maninho! |
|
|
|
Filipe
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/09/2009 17:16 hs
OPA, calmaaaaa! não é não!!!!!!!! pq tpw: 2 CORPO 2 BRAÇOS 5 DEDOS ..... VAI FICAR: 2 CORPO 4 BRAÇOS pra q eu preciso fazer dedos*braços*corpo? se o braço ja tem 4? entendes? obrigado, você esta me ajudando muito! |
|
|
|
|
