SQL - Erro
:?:
Olá a todos,
Uso Delphi 7, SqlDataSet + Provider + ClientDataSet + DataSource
Estou com problema ao abrir uma tabela detalhe
Está tabela esta relacionada com a tabela mestre pelas propriedades:
MasterSource, MasterField, IndexFieldName (coluna MVE_COD).
Uso duas variaveis string (SqlMestre e SqlDetalhe)
Uso o SQL Editor do IBExpert para testar o funcionamento das instruções SQL, e ele retorna as informações normalmente, curioso que na aplicação depois de abrir a tabela mestre tento abrir a tabela detalhe ai erro:
Token unknown - Line 1, char 228 A.
Abaixo o momento que apresenta o erro:
procedure TFrM2000.FormCreate(Sender: TObject);
begin
inherited;
// === >>>>> aqui monto a sqlmestre
V_SqlMestre := ´SELECT A.MVE_COD, A.MVE_DTCADASTRO, A.MVE_OPERACAO, ´ +
´A.TPF_COD, A.TPS_COD, A.FRN_COD, A.MVE_DOCTO, A.MVE_NOTAFISCAL, ´ +
´C.TPF_DESCRICAO, ´ +
´D.TPS_DESCRICAO, ´ +
´E.FRN_NOMEFANTASIA ´ +
´FROM ESTOQUEMESTRE A ´ +
´INNER JOIN FINALIDADES C ON A.TPF_COD = C.TPF_COD ´ +
´INNER JOIN SERVICOS D ON A.TPS_COD = D.TPS_COD ´ +
´INNER JOIN FORNECEDORES E ON A.FRN_COD = E.FRN_COD ´ +
´ORDER BY A.MVE_COD ´;
// ==>>>>>>> aqui monto a sqldetalhe
V_SqlDetalhe := ´SELECT A.MVE_COD, A.MVD_ITEM, A.PRD_PN, A.MVD_LOTESERIAL, ´ +
´A.MVD_DOCTO, A.MVD_QTDE, A.MVD_VLRCARGA, ´ +
´A.MVD_VLRMAOOBRA, A.MVD_VLRUNITARIO, A.MVD_VLRLOGISTICA, ´ +
´A.MVD_VLRPECA, ´ +
´B.PRD_DESCRICAO ´ +
´FROM ESTOQUEDETALHE A ´ +
´INNER JOIN PRODUTOS B ON A.PRD_PN = B.PRD_PN ´ +
´ORDER BY A.MVE_COD , A.MVD_ITEM´;
V_CdsMestre.Close;
V_SqlMestre.Close;
V_SqlMestre.CommandText := V_SqlMestre;
V_CdsMestre.Open; // =====>>> aqui abre normalmente
V_CdsDetalhe.Close;
V_SqlDetalhe.Close;
V_SqlDetalhe.CommandText := V_SqlDetalhe;
V_CdsDetalhe.Open;
end;
Abraços a todos
Neto
Olá a todos,
Uso Delphi 7, SqlDataSet + Provider + ClientDataSet + DataSource
Estou com problema ao abrir uma tabela detalhe
Está tabela esta relacionada com a tabela mestre pelas propriedades:
MasterSource, MasterField, IndexFieldName (coluna MVE_COD).
Uso duas variaveis string (SqlMestre e SqlDetalhe)
Uso o SQL Editor do IBExpert para testar o funcionamento das instruções SQL, e ele retorna as informações normalmente, curioso que na aplicação depois de abrir a tabela mestre tento abrir a tabela detalhe ai erro:
Token unknown - Line 1, char 228 A.
Abaixo o momento que apresenta o erro:
procedure TFrM2000.FormCreate(Sender: TObject);
begin
inherited;
// === >>>>> aqui monto a sqlmestre
V_SqlMestre := ´SELECT A.MVE_COD, A.MVE_DTCADASTRO, A.MVE_OPERACAO, ´ +
´A.TPF_COD, A.TPS_COD, A.FRN_COD, A.MVE_DOCTO, A.MVE_NOTAFISCAL, ´ +
´C.TPF_DESCRICAO, ´ +
´D.TPS_DESCRICAO, ´ +
´E.FRN_NOMEFANTASIA ´ +
´FROM ESTOQUEMESTRE A ´ +
´INNER JOIN FINALIDADES C ON A.TPF_COD = C.TPF_COD ´ +
´INNER JOIN SERVICOS D ON A.TPS_COD = D.TPS_COD ´ +
´INNER JOIN FORNECEDORES E ON A.FRN_COD = E.FRN_COD ´ +
´ORDER BY A.MVE_COD ´;
// ==>>>>>>> aqui monto a sqldetalhe
V_SqlDetalhe := ´SELECT A.MVE_COD, A.MVD_ITEM, A.PRD_PN, A.MVD_LOTESERIAL, ´ +
´A.MVD_DOCTO, A.MVD_QTDE, A.MVD_VLRCARGA, ´ +
´A.MVD_VLRMAOOBRA, A.MVD_VLRUNITARIO, A.MVD_VLRLOGISTICA, ´ +
´A.MVD_VLRPECA, ´ +
´B.PRD_DESCRICAO ´ +
´FROM ESTOQUEDETALHE A ´ +
´INNER JOIN PRODUTOS B ON A.PRD_PN = B.PRD_PN ´ +
´ORDER BY A.MVE_COD , A.MVD_ITEM´;
V_CdsMestre.Close;
V_SqlMestre.Close;
V_SqlMestre.CommandText := V_SqlMestre;
V_CdsMestre.Open; // =====>>> aqui abre normalmente
V_CdsDetalhe.Close;
V_SqlDetalhe.Close;
V_SqlDetalhe.CommandText := V_SqlDetalhe;
V_CdsDetalhe.Open;
end;
Abraços a todos
Neto
Neto
Curtidas 0
Respostas
Neto
30/01/2008
Nada mesmo pessoal ????????????
o que será
Abraços
Neto
o que será
Abraços
Neto
GOSTEI 0