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
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)