Jump to content
Fórum Script Brasil

Riatla

Membros
  • Content Count

    13
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Riatla

  1. 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.CdsPed
  2. 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
  3. 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 !
  4. 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 :=
  5. 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
  6. 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
  7. 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.CdsVend
  8. 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.Exe
  9. 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
  10. 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 coman
  11. 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 !
  12. 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 aju
×
×
  • Create New...