REVELAR

Fórum Dúvida Instrução SQL - Firebird, DBExpress, Delphi 7 #325642

19/07/2006

0

:?: Olá a todos.
Preciso implementar a instrução SQL abaixo; o problema esta no campo Pag_Empresa e Rec_Empresa, ele é do tipo VarChar (tamanho variavel).
Como posso fazer para incluir um campo deste tipo na instrução Sql??

M_Aux := ´Select ´ + QuotedStr(´-´) + ´ Operacao, Pag_Cod Codigo, ´ + ´Pag_Pagto Data, Pag_Liquido - (Pag_Liquido * 2) Valor, Pag_Empresa Empresa From Pagamentos ´;
M_Aux := M_Aux + ´Union Select ´ + QuotedStr(´+´) + ´ Operacao, Rec_Cod Codigo, ´ + ´Rec_Pagto Data, Rec_Liquido + 0 Valor, Rec_Empresa Empresa From Recebimentos ´;

Além disso, gostaria de poder selecionar os registros pelo campo Data (acima criado ) usando Where com parametro, e estou recebendo uma mensagem de erro.

M_Aux := ´Select ´ + QuotedStr(´-´) + ´ Operacao, Pag_Cod Codigo, ´ + ´Pag_Pagto Data, Pag_Liquido - (Pag_Liquido * 2) Valor, Pag_Empresa Empresa Where (Data <= DataF) From Pagamentos ´;
M_Aux := M_Aux + ´Union Select ´ + QuotedStr(´+´) + ´ Operacao, Rec_Cod Codigo, ´ + ´Rec_Pagto Data, Rec_Liquido + 0 Valor, Rec_Empresa Empresa Where (Data <= DataF) From Recebimentos ´;

Dm.SqlDtStAcao.CommandText := M_Aux;

Abraços
Neto


Neto

Neto

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar