Riatla

Bem Jhonas eu mudei a linha de comando aqui e deu certo, não está dando mais o erro ! Usei essa linha aqui : procedure TFPedidoCompra.BtGravarClick(Sender: TObject); var nmrped: Double; begin dm.CdsPedidoCompra.open; Dm.CdsPedidoCompra.edit; dm.CdsPedidoCompraNMR_PED.Value := dm.RetornaID('NMR_PED'); dm.CdsPedidoCompraID_FORN.Value := i; dm.CdsPedidoCompraDTA_PED.Value := DateTimePicker1.Date; dm.CdsPedidoCompraVLR_PED.Value := StrToFloat(Label8.Caption); dm.CdsPedidoCompraOBS1_PED.Value := Edit1.Text; dm.CdsPedidoCompraOBS2_PED.Value := Edit2.Text; nmrped := dm.CdsPedidoCompraNMR_PED.Value; dm.CdsPedidoCompra.Post; dm.CdsPedidoCompra.ApplyUpdates(0); dm.CdsProdTemp.Edit; with dm.SQLProdTemp do begin close; CommandText := 'update prodtemp set nmr_ped = ' + FloatToStr(nmrped); ExecSql; CommandText := 'select id_produto, des_produto, id_vendedor, prc_vnd, prc_vnd_vendedor, qtd_produto, sld_produto, prc_unt, prc_tot, Id_forn, nmr_ped from PRODTEMP'; ExecSQL; open; end; ShowMessage('O número desse pedido é : ' + FloatToStr(nmrped) + ' !' ); dm.CdsProdTemp.close; // dm.CdsProdTemp.Open; dm.cdsprodtemp.close; não me dei erro algum, acho que agora está tudo certo ! Valeu pela força ! um Abraço Tópico Resolvido !

OLá pessoal estou aqui de novo e com um problema que não estou conseguindo resolver ! Tenho uma tabela temporária na qual faço autalizações nela e depois gravo essas atualizações na tabela original ! Mas esta me ocorrendo um erro que não me deixa gravar na tabela original o erro que me dá é esse : EDataBaseError 'SqlProdTemp' : Cursor not returned from query'. E estou usando essa linha de comando : procedure TFPedidoCompra.BtGravarClick(Sender: TObject); var nmrped: Double; begin dm.CdsPedidoCompra.open; Dm.CdsPedidoCompra.edit; dm.CdsPedidoCompraNMR_PED.Value := dm.RetornaID('NMR_PED'); dm.CdsPedidoCompraID_FORN.Value := i; dm.CdsPedidoCompraDTA_PED.Value := DateTimePicker1.Date; dm.CdsPedidoCompraVLR_PED.Value := StrToFloat(Label8.Caption); dm.CdsPedidoCompraOBS1_PED.Value := Edit1.Text; dm.CdsPedidoCompraOBS2_PED.Value := Edit2.Text; nmrped := dm.CdsPedidoCompraNMR_PED.Value; dm.CdsPedidoCompra.Post; dm.CdsPedidoCompra.ApplyUpdates(0); dm.CdsProdTemp.Edit; with dm.SQLProdTemp do begin close; CommandText := 'update prodtemp set nmr_ped = ' + FloatToStr(nmrped); ExecSql; Open; end; dm.CdsProdTemp.close; dm.CdsProdTemp.Open; end; Uso Delphi 7 e Firebird 2.0 Alguém poderia me ajudar ? agradeço desde já ! Riatla

Olá Jhonas, bem valeu pela força mesmo, mas eu achei melhor usar campos calculados para esta parte de programação e esta tudo certo agora ! Obrigado pela força ! um abraço, até a próxima !

Caro amigos, estou com uma dúvida que não consigo resolver e gostaria da ajuda de vocês.. tenho um campo que recebe valor de uma variável... e está tudo certo funcionando perfeitamente, (mas se eu colocar o valor errado e tentar editar o mesmo ele acaba somando ao valor da variável que já existia no campo) preciso de ajuda.... Minha linha de comando esta sendo essa : begin total := dm.CdsItpdcmpQTD_PRODUTO.Value * Dm.CdsItpdcmpPRC_UNT.Value; if total > 0 then begin dm.CdsItpdcmp.Edit; Dm.CdsItpdcmpPRC_UNT.Value := StrToFloat(DBEdit7.Text); Dm.CdsItpdcmpPRC_TOT.Value := total; vlrtotalped := vlrtotalped + total; dm.CdsPedidoCompraVLR_PED.Value := vlrtotalped; dm.CdsItpdcmp.post; dm.CdsItpdcmp.ApplyUpdates(0); end; end; gostaria que ao invés dele somar.. ele editasse o valor que já tinha colocado... isso seria possivel ? Uso Firebird 2.0 e DELPHI 7 Desde já agradeço

bem flávio (eu não uso maskedit) por achar que dá muito problema! Você vai usá-lo apenas para data não é ? (se for isso, use um datatimepicker) eu acho bem melhor ! Espero que tenha ajudado com essa sugestão.. qualquer coisa tu fala aê.. que agnt dá uma olhada

isso está correto ... pois se voce tiver 3 paginas o resultado do calculo parcial tem que aparecer em cada folha na verdade voce pode deixar o resultado em um Label e utiliza-lo no relatório sem precisar passar para um DataMemo abraço Sei que o tópico já foi concluido mas estou com um problema parecido : estou fazendo um relatório simples onde tem 12 campos e tenho que buscar mais um campo mas este campo que tenho que buscar vem de outra tabela. até consegui fazer ele buscar ! Mas ele só busca o primeiro dado desse campo que seria o nome da cidade (mas ele só busca a primeira cidade mesmo se o nome cidade não for deste campo.. ele só busca o primeiro ) e isso ocorre, em todos eles.. oque deveestar acontecendo ? USO FIREBIRD 2.0 e delphi 7.0 conto com a resposta de vocês ! um abraço

Kuroi consegui resolver o problema usando essa linha de comando : procedure TFVendProd.BtGravarClick(Sender: TObject); begin with dm.sqlVendedor_prod do begin Close; CommandText := 'delete from vendedor_produtos where id_vendedor = ' + FloatToStr(i); ExecSQL; CommandText := 'insert into vendedor_produtos (id_vendedor, id_produto, prc_vnd) select id_vendedor, id_produto, prc_vnd_vendedor from Prodtemp where (prc_vnd_vendedor > 0)'; ExecSQL; CommandText := 'select id_vendedor, id_produto, prc_vnd from vendedor_produtos'; ExecSQL; Open; end; Dm.CdsVendedor_prod.Post; Dm.CdsVendedor_prod.close; Dm.CdsVendedor_prod.open; DM.CdsProdTemp.close; end; Valeu mesmo pela força ! até a próxima !

olha Kuroi estou usando esse código agora : dm.sqlVendedor_prod.Close; dm.sqlVendedor_prod.CommandText := 'delete from vendedor_produtos where id_vendedor = ' + FloatToStr(i); dm.sqlVendedor_prod.ExecSQL; dm.sqlVendedor_prod.CommandText := 'insert into vendedor_produtos (id_vendedor, id_produto, prc_vnd) select id_vendedor, id_produto, prc_vnd_vendedor from Prodtemp where (prc_vnd_vendedor > 0)'; dm.sqlVendedor_prod.ExecSQL; dm.sqlVendedor_prod.Close; dm.sqlVendedor_prod.CommandText := 'select id_vendedor, id_produto, prc_vnd from vendedor_produtos'; dm.sqlVendedor_prod.ExecSQL; dm.SQLVendedor_prod.Open; dm.CdsVendedor_prod.Post; dm.CdsVendedor_prod.ApplyUpdates(0); dm.SQLVendedor_prod.CommandText := 'select id_vendedor, id_produto, prc_vnd from vendedor_produtos'; dm.SQLVendedor_prod.ExecSQL; dm.CdsVendedor_prod.Close; dm.CdsVendedor_prod.Open; // close; O erro que ele esta me retornando agora é que ele não acha a tabela vendedor_produtos ! O que deve ser a causa desse erro ?

Kuroi, é eu vi esse erro mas agora eu mudei essa minha linha de comando, estou fazendo essa : insert into vendedor_produtos (id_vendedor, id_produto, prc_vnd) select id_vendedor, id_produto, prc_vnd_vendedor from prodtemp where prc_vnd_vendedor > 0 mas ele me dá esse erro : SQlVendedor_prod : Cursor not returned from Query Mas eu adiciono informações na tabela... mas ele diz que num ta retornando nada.. o que estaria ocasionando esse erro ? um abraço

Aê galera, estou aqui mais uma vez.. precisando de ajuda! Uso Firebird 2.0 e delphi 7 Nessa duvida ou melhor erro do programa acontece isso : Após fazer as alterações na tabela TEMPORÁRIA eu tento inserir essas alterações em uma tabela real, mas quando mando gravar.. o meu delphi trava e buga junto com o banco ! Meu banco começa a ficar cheio de tanta informação só que eu só alterei um campo que é minusculo o seu tamanho.. ele vai de 3MB pra quase 500 MB e seeu deixar vai continuando ! mesmo se eu sair dodelphi e do IBEXPERT ele continua lotando meu banco ! eu estou usando esse comando aqui : insert into vendedor_produtos (vendedor_produtos.id_vendedor, vendedor_produtos.id_produto, vendedor_produtos.prc_vnd) select PT.id_vendedor, PT.id_produto, PT.prc_vnd_vendedor from prodtemp PT, vendedor_produtos where (PT.prc_vnd_vendedor > 0) Oque deve esta acontecendo ? Um abraço, Riatla

Douglas eu já tinha testado essa query no ibexpert mas estava dando erro... mas eu conseguir arrumar esse erro ! A linha de comando que estou fazendo agora é essa daqui : update prodtemp set prc_vnd_vendedor = (select first 1 vendedor_produtos.prc_vnd from vendedor_produtos where ( prodtemp.id_vendedor = vendedor_produtos.id_vendedor and prodtemp.id_produto = vendedor_produtos.id_produto)) ta dando certinho agora ! Obrigado pela ajuda.. e já esta Resolvido esse tópico ! um Abraço até a próxima !

meu bando de dados é firebird !

Olá galera ! Bem estou com um problema na minha programação estou tentando fazer um update com um select no meu programa... estou usando esse comando : update prodtemp set prc_vnd_vendedor = (select prodtemp.id_produto, prodtemp.id_vendedor, prodtemp.prc_vnd_vendedor, vendedor_produtos.prc_vnd from prodtemp, vendedor_produtos where prodtemp.id_vendedor = vendedor_produtos.id_vendedor) e infelizmente ocorre este erro : Invalid token. Dynamic SQL Error. SQL error code = -104. Invalid command. count of column list and variable list do not match. Não estou conseguindo resolver e preciso de ajuda. Podem me ajudar ? um abraço