pcst

ola pessoal como faço pra gerar registro baseado em datas com referencia a quantidade de parcelas preciso montar um esquema de pedidos de protudos tipo codigo descrição... data da venda quantidade valor 001 produto 15/06/2009 3 100,00 ========== total geral 300,00 quando finalizar no pagamento preciso gerar um parcelamentos tipo o valor deu R$ 300,00 --- vezes de parcelamento 3 data parcela valor 15/07/2009 1/3 100,00 15/08/2009 2/3 100,00 15/09/2009 3/3 100,00 Como eu faria o codigio em delphi ... usando o Query e o data source no banco de dados paradox. at.. obrigado

Então coloquei o seguinte codigo Query1.Close; Query1.Free; Query1.SQL.Text:= 'Selec * FROM testepesqdata WHERE Codigio = :CODIGIO AND datapagamento >= :DATIN AND datapagamento <= :DATFIM'; Query1.Open; Query1.Active:=True; mas quando fiz o teste e cliquei no botão para fazer a pesquisa me deu Project pesq.exe raised exception class EAccessViolation With message 'Access violation at address 004b779b in module 'pesq.exe'. read of address 00000248'. Process Stopped. Use Step or Rum to. e se faço somente desta forma abaixo da outro erro Query1.SQL.Text:= 'Selec * FROM testepesqdata WHERE Codigio = :CODIGIO AND datapagamento >= :DATIN AND datapagamento <= :DATFIM'; Project pesq.exe raised exception class EDatabaseErro With message 'Query1: Project pesq.exe raised exception class EAccessViolation With message 'Query1': Cannot perform this operation an a closed data set. Process Stopped. Use Step or Rum to.

bom dia/tarde/noite pessoal fiz algumas busca pela internet e não achei estou com um cliente e tem o banco de dados Paradox e estou usando o component TQuery1 gostaria de saber se alguém pode me ajudar Meu problema é o seguinte preciso fazer uma pesquisa de datas tipo contas a pagar preciso pesquisar o campo datapagamento assim preciso fazer uma pesquisa entre data inicio e data fim, alguém pode me adudar neste codigo.. obrigado Paulo

Ola me manda mais informações sobre o sistema pcyz@uol.com.br pcstand@hotmail.com abraços

pcstand@hotmail.com me passa mais sobre o que você precisa estou a disposição Att.

Resolvido com certeza vai ter o juros de cada mes, mais isso vai ser usado pelo operador... a empresa que vai cadastrar o juros no banco de dados referente ao dias em atraso.. mas vou tentar desta forma, tb achei a logica legal

mas se eu usar a tabela que é do dbexpress...que é .. sqlTable(sqlExpr) e quando vou colocar ...tblClientes.insert ele me da uma msg assim Project textdbe.exe raised exception class EDatabaseError with message 'tblClientes: cannot perform this operation on a closed dataset'. Prossess stopped. Use step or Run to continue.

Voce diz, criar uma tabela temporaria..jogar tudo nela e depois ir fazendo a insersão na tabela atua é isso?

bom assim vou ver se consigo explicar na minha tabela tenho campo=datavencimento, quantidade de titulo, valor Inicial data vencimento= 01/05/2008 quantidade de titulo=03 , valor inicial.,R$ 200,00 como quantidade de titulo esta marcando 03 então preciso inserir mais 02 titulos iguais a esse para ficar trez titulos na grid detelhe data vencimento=01/05/2008 Valor inicial R$ 200,00 data vencimento=01/06/2008 Valor inicial R$ 200,00 data vencimento=01/07/2008 Valor Inicial R$ 200,00 estes dados são importados de um arquivo cvs então vam somente uma linha contendo a quantidade de titulos. conseguiu entender? Paulo

boa tarde pessoal tenho um problema, estou iniciando no firibird, já consegui fazer a conexão com o banco via dbexpress, estou usando uma query, mas não estou conseguindo inserir dados nos campos. como estou acostumando com paradox, não estou conseguindo ver ferramenta para fazer isso no paradox eu usava uma tabela... e era so colocar tblexemplo.insert e estava em modo de insersão. ou tblexemplo.edit e podia editar os dados e assim pra frente mas agora em firibird..como faço para colocar em modo de insersão edição exclusão etc? alguém pode me ajudar Paulo

Boa tarde pessoal estou com um problema ... como faço para colocar em uma grid em ordem de tata tenho uma grid assim agenda -- devedor ... valor como faço para ordenar decrescente e crescente? Obrigado desde Já

o erro é que... quando verifico o campo e ele esta vazio não faz o calculo de data e da erro.. quero verificar o campo se estiver vazio ele pula para o proximo registro... e ai ele calcula os dias em atrazo e grava no campo dias em atrazo acho q é isso? Utilizei este codigo..mas parece que o while não esta funcionando...não esta correndo na tabela... fica parado somente no primeiro registro que encontra fiz assim. procedure TfrmAcordos.btnAtualizadiasClick(Sender: TObject); var Dias:Integer; DtInic,DtAtual:TDate; i:integer; begin DataFim.Date:=Now; btnAtualizadias.Enabled:=False; While not tblTitulos.Eof do begin if not tblTitulos.FieldByName('DataVencimento').IsNull then begin DtInic:=tblTitulos.FieldByName('DataVencimento').Value; DtAtual:= DataFim.Date; Dias := DaysBetWeen(DtInic,DtAtual); tblTitulos.Edit; tblTitulos.fieldbyname('DiasAtrazo').AsInteger:=Dias; DadaAcordo.caption:=datetostr(date); txtdataAcordo.Text:=datetostr(date); tblTitulos.Next; End; tblTitulos.Next; end; btnAtualizadias.Enabled:=True; end;

obrigado cara...mas ainda não deu certo parece que o loop while não esta funcionando... se colocar no registro ele coloca...mas não roda na tabela deu o mesmo erro procedure TfrmAcordos.btnAtualizadiasClick(Sender: TObject); var Dias:Integer; DtInic,DtAtual:TDate; i:integer; begin DataFim.Date:=Now; btnAtualizadias.Enabled:=False; While not tblTitulos.Eof do begin if not tblTitulos.FieldByName('DataVencimento').Value = null then // if not tblTitulos.FieldByName('DataVencimento').IsNull then begin DtInic:=tblTitulos.FieldByName('DataVencimento').Value; DtAtual:= DataFim.Date; Dias := DaysBetWeen(DtInic,DtAtual); tblTitulos.Edit; tblTitulos.fieldbyname('DiasAtrazo').AsInteger:=Dias; DadaAcordo.caption:=datetostr(date); txtdataAcordo.Text:=datetostr(date); tblTitulos.Next; end; btnAtualizadias.Enabled:=True; end;

alguém consegue me ajudar, como faço para pular o campo de um cadastro que esta em branco e pegar somente o que já esta com registro... exemplo do codigo. procedure TfrmAcordos.btnAtualizadiasClick(Sender: TObject); var Dias:Integer; DtInic,DtAtual:TDate; begin DataFim.Date:=Now; btnAtualizadias.Enabled:=False; While (not tblTitulos.Eof) do //enquanto não chega no final da tabela. begin DtInic:=tblTitulos.FieldByName('DataVencimento').Value; DtAtual:= DataFim.Date; // aqui preciso verificar se a DataVencimento esta vazia ou preenchida // se tiver vazia ele vai para o proximo registro ... caso contrario executa o codigo abaixo. Dias := DaysBetWeen(DtAtual,DtInic); tblTitulos.Edit; tblTitulos.fieldbyname('DiasAtrazo').AsInteger:=Dias; DadaAcordo.caption:=datetostr(date); txtdataAcordo.Text:=datetostr(date); End; btnAtualizadias.Enabled:=True; end;

cara..obrigado mesmo....