Jhowcs

Kuroi de certo obrigado!!!!! Só que eu cai em outro problema, se por exemplo o valor de cada parcela for 19,73 dá erro por causa da vírgula. Esse erro quando eu dou debug INSERT INTO contasreceber (Codigocli, Nomecli,Codigoven,Codigovenda, Datavenda, parcela, datavenct, valorparcela, ValorTotal)VALUES(4,'ADRIANA CÁSSIA',5,8,'08/12/2008',1,'12/12/2008',19,34,58) perceba que no valor da parcela está 19,34 ou seja eu tenho quase certeza que essa vírgula tá dando erro... Obrigado você tem me ajudado muito!!!

bom estou com problema em gravar no contas a receber, na tabela do banco de dados firebird eu vou gravar o seguinte: codigocli, nomecli, codigoven, codigovenda, datavenda, parcela, datavenct, valorparcela, valortotal. meu código é esse If cboFormaPagto.ListIndex <> 0 Then parcela = Round(total / CInt(cboParcelas.Text), 2) diferenca = total - parcela * CInt(cboParcelas.Text) Vencto = Now() For x = 1 To CInt(cboParcelas.Text) frase = "INSERT INTO contasreceber (Codigocli, Nomecli,Codigoven,Codigovenda, Datavenda, parcela, datavenct, valorparcela, ValorTotal)" frase = frase & "VALUES(" & txtCodigo.Text & "," frase = frase & "'" & txtNome.Text & "'," frase = frase & "" & txtCodigoven.Text & "," frase = frase & "" & txtCodigoVenda.Text & "," frase = frase & "'" & mskDatavenda.Text & "'," frase = frase & "" & x & "," frase = frase & "'" & Format(Vencto, "dd/mm/yyyy") & "'," If x = 1 Then frase = frase & "" & parcela + diferenca & "," Else frase = frase & "" & parcela & "," End If frase = frase & "" & total & ")" Vencto = DateAdd("m", 1, Vencto) Next x End If Con.Execute (frase) só que o jeito que está gravando está errado e não estou conseguindo consertar... está assim exemplo: codigocli=1, nomecli=Jonathan, codigoven=1, codigovenda=1, datavenda=11/12/2008, parcela3, datavenct=11/02/2009, valorparcela=30, valortotal=90 eu quero que grave assim: codigocli=1, nomecli=Jonathan, codigoven=1, codigovenda=1, datavenda=11/12/2008, parcela=1, datavenct=11/12/2008, valorparcela=30, valortotal=90 codigocli=1, nomecli=Jonathan, codigoven=1, codigovenda=1, datavenda=11/12/2008, parcela=2, datavenct=11/01/2009, valorparcela=30, valortotal=90 codigocli=1, nomecli=Jonathan, codigoven=1, codigovenda=1, datavenda=11/12/2008, parcela=3, datavenct=11/02/2009, valorparcela=30, valortotal=90 me ajudem por favor!!!

Kuroi muito obrigado deu certo.... ficou assim... Private Sub txtCodigovenda_GotFocus() frase = "SELECT codigovenda FROM vendas where codigovenda = (Select max(codigovenda)from vendas)" Set TbCli = Con.Execute(frase) If Not TbCli.EOF Then txtCodigoVenda.Text = TbCli![codigovenda] + 1 End If End Sub

é o seguinte eu tenho na minha tela de venda o código da venda, eu quero quando eu clicar no txtcodigovenda ele busque o ultimo código de venda cadastrado e some 1 para eu fazer uma nova venda.

Esse é o script da minha tabela de login, tipo o resto do sistema não abre enquanto eu não digitar o nome de usuário e a senha. mas eu quero bloquear algumas abas do MDIFORM, conforme o usuário. Dim Con As New ADODB.Connection Dim TbCli As New ADODB.Recordset Dim strSQL As String Dim x As Integer Private Sub cmdLogar_Click() 'vou selecionar na tabela cadastrousuario o campo login e senha e verificar se esta cadastrado, senão estiver o sistema não abre strSQL = "Select * from cadastrousuario where login = '" & txtlogin.Text & "' and senha = '" & txtsenha.Text & "'" Set TbCli = Con.Execute(strSQL) If Not TbCli.EOF Then MDIBStar.Show Unload Me Else MsgBox "Nome de Usuário ou senha incorreto", vbCritical, "Erro" txtlogin.Text = "" txtsenha.Text = "" txtlogin.SetFocus End If End Sub Private Sub Form_Load() Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2 StringConexao = "DSN=Banco;Driver=Firebird/InterBase(r) driver;Dbname=H:\Projeto Loja Firebird\LOJA.FDB;CHARSET=NONE;UID=SYSDBA" Con.Open StringConexao End Sub A minha tela cadastro de usuário também está funcionando... eis o script!!! Dim Con As New ADODB.Connection Dim TbCli As New ADODB.Recordset Dim frase As String 'usada para montar as instruções SQL Dim strSQL As String Private Sub cmdApagar_Click() strSQL = "Select * from cadastrousuario where login = '" & txtlogin.Text & "' and senha = '" & txtSenha.Text & "'" Set TbCli = Con.Execute(strSQL) If Not TbCli.EOF Then If MsgBox("Deseja Realmente Excluir Este Usuário?", vbYesNo + vbCritical, "Atenção...") = vbYes Then Con.Execute "delete from cadastrousuario where login = '" & txtlogin.Text & "' and senha = '" & txtSenha.Text & "'" End If Else MsgBox "Usuário não Cadastrado", vbExclamation End If txtlogin.Text = "" txtSenha.Text = "" End Sub Private Sub cmdCancelar_Click() txtlogin.Text = "" txtSenha.Text = "" End Sub Private Sub cmdGravar_Click() frase = "INSERT INTO cadastrousuario (Login, Senha, nivel)" frase = frase & " VALUES ('" & txtlogin.Text & "'," frase = frase & "'" & txtSenha.Text & "'," If optAdmin.Value Then frase = frase & "'A')" Else frase = frase & "'U')" End If Con.Execute (frase) txtlogin.Text = "" txtSenha.Text = "" End Sub Private Sub cmdSair_Click() Unload Me End Sub Private Sub Form_Load() Centraliza MDIBStar, Me Con.Open StringConexao End Sub Private Sub Form_Unload(Cancel As Integer) Con.Close End Sub

Galera eu to fazendo um trabalho pra conclusão de módulo, e nesse trabalho uma das coisas é definir nível de usuário do meu programa, eu tenho a tela de cadastro de usuário, onde eu vou cadastrar o usuário informando nome de usuário e senha e escolher se ele é apenas(Usuário ou Administrador) em um optionbutton. ou seja vou ter uma política de acesso. eu quero saber como eu bloqueio algumas abas no meu MDIform, pois a parte de cadastro, e a parte de fechamento de caixa apenas quem tiver logado como administrador poderá acessar e modificar. Obrigado

Galera to fazendo um trabalho pra conclusão de módulo, é um programa comercial de uma loja de roupa. O cadastro de cliente, vendedores, produtos estão prontos, cheguei na parte mais difícil "a parte de vendas", eu estou usando o firebird como banco de dados. A tela de venda já está pronta está gravando e dando baixa no estoque, só que quando eu clicar em finalizar venda além de gravar na tabela de venda ele também tem que gravar em contas a receber e é nisso que eu estou com dúvida, não estou conseguindo. Eis o que eu fiz até agora!!! Private Sub cmdFechamento_Click() Dim X As Integer Dim total, parcela, diferenca As Double Dim Vencto As Date total = 0 parcela = 0 For X = 1 To (GridProdutos.Rows - 1) frase = "INSERT INTO Vendas (Codigocli,Codigoven,Codigovenda, Datavenda, CodigoProduto, ValorUnit, Qtde, ValorTotal, FormaPagto, QtdeParcelas)" frase = frase & "VALUES(" & txtCodigo.Text & "," frase = frase & "" & txtCodigoVen.Text & "," frase = frase & "" & txtCodigoVenda.Text & "," frase = frase & "'" & mskDatavenda.Text & "'," frase = frase & "" & GridProdutos.TextMatrix(GridProdutos.Rows - X, 1) & "," 'Codigo Produto frase = frase & "" & CCur(GridProdutos.TextMatrix(GridProdutos.Rows - X, 3)) & "," 'Valor Unitario frase = frase & "" & GridProdutos.TextMatrix(GridProdutos.Rows - X, 4) & "," 'Qtde frase = frase & "" & CCur(GridProdutos.TextMatrix(GridProdutos.Rows - X, 5)) & "," 'Vlr Total frase = frase & "'" & cboFormaPagto.Text & "'," If cboParcelas.Text = "" Then frase = frase & "Null" & ")" Else frase = frase & "" & cboParcelas.Text & ")" End If Con.Execute (frase) 'baixando do estoque frase = "update CadastroProduto set qtde= qtde - " & GridProdutos.TextMatrix(GridProdutos.Rows - X, 4) & " where codigo = " & GridProdutos.TextMatrix(GridProdutos.Rows - X, 1) Con.Execute (frase) No contas a receber eu vou ter de gravar: CodigoCliente, CodigoVendedor, CodigoVenda, CodigoProduto, DataVenda, Parcelas,DataVencto(Data Vencimento de cada parcela), ValorParcela(Valor de cada Parcela), TotalVenda. Me ajudem a faze isso....