Erro de cadastro e exibição

[Fér@ 0]

Eu e os meus colegas de trabalho tentamos arrumar o "fornecedores" (telefone) mas não conseguimos... ele adiciona o telefone no cmb, mas na hora se armazená-los na tabela não vai! Sabemos que deve ser feito um While, mas não sabemos como, pois já tentamos com While, For, etc..

 

E ainda, enquanto testando o sistema, não conseguimos resolver o seguinte erro: cadastrar carnê, tudo vai normalmente, mas na hora de cadastrar o carnê, não vai... fizemos o seguinte,

 

Set gcarne = Nothing

gcarne.Open "select * from carne where cancod= " & Val(txtcarcod.Text), eaglebanco, adOpenStatic, adLockPessimistic

If gcarne.EOF = False Then

MsgBox "Número já Existente!", vbInformation + vbYesNo, "Eagle - Carnê"

txtcarnumerocarne.SetFocus

Exit Sub

End If

 

gcarne.AddNew

 

carne = gcarne!cancod

gcarne!canvalortotal = txtcarvalortotal.Text

gcarne!candtvencimento = mskcarvencimento.Text

gcarne!canvalorparcelado = txtcarvalorparcelado.Text

gcarne!candtemissao = mskcardataemissao.Text

gcarne!cannumcarne = UCase(txtcarnumerocarne.Text)

gcarne!canpparcelas = txtcanpar.Text

gcarne!vencodc = txtcarcodigovenda.Text

gcarne!caxcodc = gcaixa!caxcod

gcarne!funcodc = txtcanfuncod.Text

 

gcarne.Update

 

txtcarvalortotal.Text = Empty

mskcarvencimento.Text = "__/__/____"

mskcardataemissao.Text = "__/__/____"

txtcanpar.Text = Empty

txtcarnumerocarne.Text = Empty

txtcarcodigovenda.Text = Empty

 

na tela de Carnê;

 

 

' Set gcarne = Nothing

' gcarne.Open "Select * from carne where cancod = " & carne & "", eaglebanco, adOpenStatic, adLockPessimistic

' If gcarne.EOF = False Then

' gcarne.AddNew

' gcarne!vencodc = txtvencod.Text

' gcarne!candtvencimento = "12/12/1222"

' gcarne.Update

' End If

 

 

' MsgBox "Venda Realizada com Sucesso!", vbExclamation, "Eagle - Vendas"

 

 

ne tela de Vendas;

 

Assim, o carnê é cadastrado em sua respectiva tabela normalmente, mas quando o usuario finaliza a venda, ele recebe o código da venda no campo "vencodc"; como deste modo não estava indo... fizemos desse outro jeito [código acima] : o usuário seleciona a opção carnê, e quando ele finaliza a venda a janela de Carnê aparece para o usuário cadastrá-lo, mas mesmo assim não vai...

 

E quando pareceu que iria, apareceu a img na tela [ohgod.jpg] que diz que Carnê precisa estar relacionado com Vendas, e ele está!

 

Já cadastramos primeiramente a venda e depois o carnê, e nada de funcionar... fizemos o contrário (carnê, venda) e nada também...

 

 

 

E assim, ao adicionar um produto à venda, é necessário ver a quantidade dele, se a qtde solicitada for maior que a existente não é possível a inclusão dele na venda, certo?

pois bem, se colocarmos, um produto com 200 unidades e colocar 50 na quantidade, funciona; se colocarmos 1000 na quantidade, não funciona; se colocarmos 50 na quantidade, funciona. (...)

 

achamos qua é porque na tela de produtos, eles estão sendo cadastrados com o código do mesmo fornecedor (mesmo selecionando outro)...

 

Set gprodutos = Nothing

gprodutos.Open "Select * from produtos where procod='" & msfgvenconpro.TextMatrix(msfgvenconpro.RowSel, 0) & "'", eaglebanco, adOpenStatic, adLockPessimistic

If gprodutos!prounidade < txtvenqtde.Text Then

MsgBox "A quantidade de produtos disponível é inferior a " & Val(txtvenqtde.Text) & ".", vbCritical, "Eagle - Vendas"

Exit Sub

End If

 

If msfgvenconpro.RowSel > 0 Then

If MsgBox("Adicionar o Produto " & msfgvenconpro.TextMatrix(msfgvenconpro.RowSel, 1) & " ?", vbQuestion + vbYesNo, "Eagle - Vendas") = vbYes Then

Set gprodutos = Nothing

gprodutos.Open "Select * from produtos where procod ='" & msfgvenconpro.TextMatrix(msfgvenconpro.RowSel, 0) & "'", eaglebanco, adOpenStatic, adLockPessimistic

frmvendas.msfgvenpro.Rows = frmvendas.msfgvenpro.Rows + 1

 

frmvendas.msfgvenpro.TextMatrix(frmvendas.msfgvenpro.Rows - 1, 0) = gprodutos!procod

frmvendas.msfgvenpro.TextMatrix(frmvendas.msfgvenpro.Rows - 1, 1) = gprodutos!prodesc

frmvendas.msfgvenpro.TextMatrix(frmvendas.msfgvenpro.Rows - 1, 2) = Format$(gprodutos!provenda, "R$ ###,###,##0.00")

frmvendas.msfgvenpro.TextMatrix(frmvendas.msfgvenpro.Rows - 1, 3) = txtvenqtde.Text

frmvendas.txtvenvalortotal.Text = Format$(frmvendas.txtvenvalortotal.Text + (gprodutos!provenda * txtvenqtde.Text), "R$ ###,###,##0.00")

gprodutos!prounidade = gprodutos!prounidade - txtvenqtde.Text * 1

frmvendas.imgremoverpro.Enabled = True

End If

Unload Me

End If

 

na tela de vendas (consulta de produtos)

 

 

Obs.: já invertemos a unidade com a txtvenqtde e já colocamos >= e <= e nada!

 

Estamos usando o VB6!!

Precisamos da ajuda de vocês o mais rapido possivel!!

Pq estamos perto da data de entrega do sistema para a empresa!!!

[tcn 1]

Bom Dia Amigo

 

Sei que tópico e antigo mas vamos la...

 

Isso esta certo?

 

carne = gcarne!cancod

 

não seria o contrario nao ?

 

outra coisa Isso você esta usando SQL, ou outro banco e controlando por sequence pq ADDNEW nao cria automaticamente ID não...

 

e se você quer fazer usando While Seria mais ou menos assim

 

 While con.Proximo
 < linha de codigo>

wend