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....

é isso ai Muito Obrigado

cara..o codigo deu certo ..mas não sei por que o calculo de dias esta errado... veja o codigo que fiz para o calculo..claro que estou pegando os dados da Data inicial da divida para calcular os dias em atrazo procedure TfrmAcordos.FormCreate(Sender: TObject); var Dias:Integer; DtInic,DtAtual:TDate; begin DataInicio.Date:=tblTitulos.fieldbyname('DataInicio').AsDateTime; DtAtual := DataFim.Date; DtInic:=DataInicio.Date; Dias := DaysBetWeen(DtAtual,DtInic); tblTitulos.Edit; tblTitulos.fieldbyname('DiasAtrazo').AsInteger:=Dias; DadaAcordo.caption:=datetostr(date); txtdataAcordo.Text:=datetostr(date); end; desde já obrigado

vixi..deu erro este comando de calculo Error Undeclared indentiffier 'DaysBetWeen'

pessoal...tenho um campo em dias em atrazo e data inicial e final.... como faço para colocar dentro de uma tabela paradox dipo diasematraso=datainicial-datafinal como faço este calculo e colocar no campo dbedit obrigado a todos

Faz o seguinte na tabela Alunos crie um campo com codigo e coloque ele como autonum, e na tabela Materiais crie um campo codigoAluno quando você colocar as tabelas no seu form. selecione a tabela Materiais vai em propriedades, item MasterSource e selecione a tabela Alunos, depois master fild.. você seleciona codigoxCodigoAluno.. assim você criou a tabela Alunos como Pai.. e a Materiais como filio...tudo que for cadastrado na tabela materiais vai ser dos respectivos alunos.. não sei se ajudei.. Paulo Cesar

cara.. primeiro você verifica se as tabelas que você criou. verifica se as tabelas estão publicas no data base desktop, se você criu tabelas privadas não vai rodar mesmo na rede .... configura no servidor como ser fosse uma estação comum...cria um driver no servidor tipo e: direciona no DBE como E:\diretorio\dados, no meu funcionou beleza.... tive este problema no inicio,porque criei tabelas privadas... e ai quando uma maquina entrava a outra dava pau... não sei se te ajudei muito mais beleza Paulo

alguém me ajuda... como faço para calcular Dias em atrazo.. tenho a data inicio e a data fim.... uma - a outra da o dias em atrazo ..como faço para alcular ela na tabela paradox Obrigado

Ok.. Obrigado!!

ok.. este é o modelo do codigo e abaixo meu email.... se puder me ajudar!! obrigado, agora o arquivo txt esta com separdor de ; como faço para eliminar o ponto e virgula? procedure TfrmImportacaocobranca.btnImportarClick(Sender: TObject); var arq: TextFile; var linha: String; begin AssignFile ( arq, 'C:\LB\Cob\Recepcao\16072008.csv'); reset(arq); while not Eof ( arq ) do begin tblDevedores.Open; tblDevedores.Insert; tblDevedores.FieldByName('Nome').Value:= Copy(Linha,6,30); { tblDevedores.FieldByName('CPF').Value:= Copy(Linha,28,60); tblDevedores.FieldByName('TelRes').Value:= Copy(Linha,88,11);} tblDevedores.post; ReadLn ( arq, linha ); end; CloseFile ( arq ); { if(od.Execute) then name:=od.FileName; end;} end;

valeu cara... você tem algum exemplo do formato texto.. é que neste campo de importação ainda estou meio cru... obrigado!