Ir para conteúdo
Fórum CódigoFonte.net

juds

Membros
  • Total de itens

    4
  • Registro em

  • Última visita

  1. juds

    ADOQuery

    Bom dia! Tenho um a AdoQuery que pega os campos da tabela ContasAPagar. Adicionei todos os campos: dsConta, vlConta, vlAcres, vlDesco, idPlano, vlLiqui, idConta, dtEmiss, dtPagto, dtVenci, idForma, idClien. Em outra Query criei um campo calculado chamado 'valor' que receberá o somatório do campo 'vlLiqui' da query acima. Para isso fiz no event OnCalcFields da Query o seguinte: if qyRelPlanConflPlano.AsString = 'C' then begin qyrec.Close; qyrec.SQL.Clear; qyrec.SQL.Add('select sum(vlLiqui) as soma, idPlano from tbContasReceber group by idplano'); qyrec.Open; qyRelPlanConvalor.AsFloat := qyrec.fieldbyname('soma').asfloat; end; Porém, aparece a seguinte mesmo de erro: qyRec: Field 'dsConta' not found Já deixei apenas os campo 'vlLiqui' e 'idPlano' na query Rec, mas dá erro ainda. Alguém pode ajudar?
  2. juds

    tabela temporária

    Bom dia a todos. Bem pessoal, tô tentando pegar os dados de uma tabela (tbContasPagar) e inserir numa tabela (tbBalancete) temporária. Para isso tô tentando usar o código abaixo e esse usa a função mais abaixo para verificar se os dados já existe na tbBalancete. Se existir farei um Insert, caso contrário um Update. Mas não consigo fazer nenhum dos dois. Gostaria de saber o que tá dando errado. Agradeço. //eliminando registros da tabela temporária tbBalancete qyInsUpd.Close; qyInsUpd.SQL.Clear; qyInsUpd.SQL.Add('delete from tbBalancete'); qyInsUpd.ExecSQL; //pegando os campos da tabela tbContasPagar qyPag.Close; qyPag.SQL.Clear; qyPag.SQL.Add('select f.idForne, f.dsForne, p.* from tbContasPagar as p, tbFornecedor as f '+ ' where f.idForne = p.idForne '); qyPag.Open; while not qyPag.Eof do begin if testaQyConPagar(qyPagdtPagto.AsString) then begin qyInsUpd.Close; qyInsUpd.SQL.Clear; qyInsUpd.SQL.Add('insert into tbBalancete (dtBalan, dsClien, vlReceb) values (' +qyPagdtPagto.AsString+ ','+qyPagdsForne.AsString+ ','+formatfloat('##0.00',strtofloat(qyPagvlLiqui.Asstring))+')'); qyInsUpd.ExecSQL; end else begin qyInsUpd.Close; qyInsUpd.SQL.Clear; qyInsUpd.SQL.Add('update tbBalancete set dtBalan = '+qyPagdtPagto.AsString+ ', dsClien ='+qyPagdsForne.AsString+ ', vlReceb = '+formatfloat('##0.00',strtofloat(qyPagvlLiqui.Asstring))); qyInsUpd.ExecSQL; end; qyPag.Next; end; function TfrBusRelBal.testaQyConPagar( data: string): boolean; begin qyInsUpd.Close; qyInsUpd.SQL.Clear; qyInsUpd.SQL.Add('select * from tbBalancete where dtBalan = '+data); qyInsUpd.open; if qyInsUpd.IsEmpty then testaQyConPagar := true else qyInsUpd.Last; if qyInsUpdvlPago.AsFloat <> 0 then testaQyConPagar := true else testaQyConPagar := false; //testaQyConPagar := false; end;
  3. juds

    Condição para consulta

    Bom dia! Estou fazendo um relatório para balancete diário de Contas a pagar(tabela) e Contas a receber (tabela) pegando as datas e os valores liquidos. Faço a seguinte consulta: select p.idConta, p.dtPagto, p.vlLiqui, r.idConta, r.dtPagto, r.vlLiqui from tbContasPagar as p, tbContasReceber as r order by p.idconta e obtenho : 29 2008-11-11 00:00:00.000 53.23 3 2008-11-11 00:00:00.000 125.50 29 2008-11-11 00:00:00.000 53.23 4 2009-09-17 00:00:00.000 142.50 29 2008-11-11 00:00:00.000 53.23 5 2008-12-29 00:00:00.000 201.64 31 2008-10-30 00:00:00.000 123.54 3 2008-11-11 00:00:00.000 125.50 31 2008-10-30 00:00:00.000 123.54 4 2009-09-17 00:00:00.000 142.50 31 2008-10-30 00:00:00.000 123.54 5 2008-12-29 00:00:00.000 201.64 . Como faço uma condição para não repetir os registros. Agredeço a quem puder ajudar.
  4. juds

    Botões de edição

    Estou tentando fazer a sincronia dos botões de edição num form, mas não consigo fazer essa sincronia. Estou seguindo esse passo: Não tô conseguindo entender essa procedure e nem como chamá-la dos 'OnClick' Alguém podeira ajudar?
×
×
  • Criar Novo...