ActiveDelphi

[Marcelosoft]

A quem puder me ajudar agradeço desde já !

Preciso puxar informações através das datas dos campos "MaskEdit1.Text" e "MaskEdit2.Text" junto com o campo "Nome" "
Uso o Paradox !
E através destas informaçoes gravarei em uma tabela temporária para que eu possa imprimir a Fatura !

Att.
Marcelo.

[Azirrarth]

Esotou com o msmo problema.

Tentei dessas formas

table1.Filtered := false;
table1.Filter := Format('Data >= %s and Data <= %s and Medicamento = %s',
[QuotedStr(mskDataInicial.text), QuotedStr(mskDataFinal.text), QuotedStr(Edit2.Text)]);
table1.filtered := true;


mas ele limpa tudo...testa ai...

[Individuo]

Para filtrar por data vc pode fazer desse jeito no (paradox com table)

if key = 13 then
if (maskedit1.text <> ' / / ') and (maskedit2.text <> ' / / ') then begin
Tabela.Filtered:= false;
Tabela.Filter := 'data >=''' + maskedit1.text + ''' and data <=''' + maskedit2.text + '''';
Tabela.Filtered:= True;

Testa ai..vlw

[rafa.spimenta]

Tente configurar a propriedade EditMask dos seus MaskEdits para: !99/99/0000;1;_
_________________
"Você pode ter todo o dinheiro do mundo, mas há algo que jamais poderá comprar: um dinossauro!"

Meu blog:
http://delphiexpresso.blogspot.com/

[Marcelosoft]

Esta consulta eu coloco antes ou depois do Do While ?

Att.
Marcelo.

[Marcelosoft]

Não está dando certo é puxado varias vezes os registros sem ter, isto é, duplica os registros !

Ou estou fazendo errado ?

Favor verificar codigo abaixo .....

var
num1, num2, TotFatu : Double;
begin
With DM1 Do
Begin
If CF_BuscaDataIni.Text = ' / / ' Then
Begin
ShowMessage('Digite a Data Inicial !');
CF_BuscaDataIni.SetFocus;
Abort;
End;

If CF_BuscaDataFinal.Text = ' / / ' Then
Begin
ShowMessage('Digite a Data Final !');
CF_BuscaDataFinal.SetFocus;
Abort;
End;

If TabCadConhectoTransp.Active Then
TabCadConhectoTransp.Close;
TabCadConhectoTransp.Open;
TabCadConhectoTransp.First;

If TabCadFaturaServs.Active Then
TabCadFaturaServs.Close;
TabCadFaturaServs.Open;
TabCadFaturaServs.First;

If TabCadFaturaServsAux.Active Then
TabCadFaturaServsAux.Close;
TabCadFaturaServsAux.Open;
TabCadFaturaServsAux.First;

TabCadConhectoTransp.First;
TabCadConhectoTransp.Filtered := False;
TabCadConhectoTransp.Filter := Format('Data_NatPrest >= %s and Data_NatPrest <= %s and Nome_Remet = %s', [QuotedStr(CF_BuscaDataIni.text), QuotedStr(CF_BuscaDataFinal.text), QuotedStr(CF_BuscaNome.Text)]);
TabCadConhectoTransp.Filtered := True;
While not TabCadConhectoTransp.Eof Do
Begin
Try
TabCadFaturaServsAux.Insert;
Except
ShowMessage('Atenção !!!... Código 01 - Favor Comunicar a Marques e Ferreira !');
End;

TabCadFaturaServsAux.FieldByName('Nro_Conhecto').AsString := TabCadConhectoTransp.FieldByName('Nro_Conhecto').AsString;
TabCadFaturaServsAux.FieldByName('Dia_NatPrest').AsString := TabCadConhectoTransp.FieldByName('Dia_NatPrest').AsString;
TabCadFaturaServsAux.FieldByName('Mes_NatPrest').AsString := TabCadConhectoTransp.FieldByName('Mes_NatPrest').AsString;
TabCadFaturaServsAux.FieldByName('Ano_NatPrest').AsString := TabCadConhectoTransp.FieldByName('Ano_NatPrest').AsString;
TabCadFaturaServsAux.FieldByName('Vlr_Mercadoria').AsString := TabCadConhectoTransp.FieldByName('Valor_Mercadoria').AsString;
TabCadFaturaServsAux.FieldByName('Terminal').AsString := TERMINALSEL;

Try
TabCadFaturaServsAux.Post;
Except
ShowMessage('Atenção !!!... Código Nº 02 - Favor Comunicar a Marques e Ferreira !');
End;

// Total das Mercadorias - Do Conhecimento de Transporte Rodoviário de Cargas
num1:=TabCadFaturaServsAux.FieldByName('Vlr_Mercadoria').AsFloat;
num2:=StrToFloat(Label25.Caption);
TotFatu:=(Num1+Num2);
Label25.Caption:=FloatToStr(TotFatu);

Try
TabCadFaturaServs.Next;
Except
ShowMessage('Atenção !!!... Código Nº 05 - Favor Comunicar a Marques e Ferreira !');
End;
End;
TabCadConhectoTransp.Filtered:=false;
End;

Att.
Marcelo.

[Marcelosoft]

E qdo não exister o registro com estes dados de Datas e Nome do Remet. no banco de dados !
Como posso fazer para dar uma mensagem que não existe estes registros no banco de dados.

Att.
Marcelo.

[imex]

Experimente alterar o trecho