Left Join nao retornou nada

Question

Ol� amigos, estou tentando fazer um left join como abaixo:[code:1:139f4515f7]�Select Vendas.*,Clientes.NomCli FROM Vendas Left Join Clientes ON (Vendas.Codcli=Clientes.CodCli) WHERE (Vendas.CodEmp=:vC...

Emerson Nascimento · Answer

esteticamente, a instru��o ficaria melhor assim:

Select Vendas.*, Clientes.NomCli
FROM Vendas
Left Join Clientes ON (Clientes.CodCli=Vendas.Codcli and Clientes.CodEmp=Vendas.CodEmp)
WHERE Vendas.CodEmp=:vCodEmp
ORDER BY Vendas.Data, Vendas.Pedido DESC

para incluir esse campo no ClientDataset voc� precisa colocar essa instru��o nele e abri-lo em tempo de projeto. Depois voc� executa os procedimentos normais para inclus�o do campo persistente e fecha o ClientDataset.

mas fiquei com um d�vida: porque voc� tem o campo CodEmp na tabela de clientes?

Aldus · Answer

Ol� Emerson, que uso o campo codemp porque estou desenvolvendo para poder trabalhar com multiplas empresas dentro do mesmo banco.

Quanto a sua resposta. Eu estou utilizando apenas um clientdataset para cada tabela, nesses casos que tenho que buscar o conte�do de outras, seria interessante ter um clientdataset apenas para consulta?

Atenciosamente

Mario

Emerson Nascimento · Answer

voc� pode ter um cds s� para consulta ou pode deixar de trabalhar com campos persistentes, criando as colunas de cada grid �na m�o�....

Emerson Nascimento · Answer

quanto ao multi-empresas, � multi-empresas ou multi-filiais?

porque creio que o correto seria ter um banco de dados para cada empresa, e dentro desse banco apontar as filiais. pois sup�e-se que todas as filiais tenham o mesmo foco, tanto em clientes quanto em produtos. o que n�o � necessariamente verdadeiro em se tratando de empresas diferentes.
mesmo porque isso garantiria o bom gerenciamento dos dados, tanto em performance quanto em seguran�a.

imagine que voc� tem dados de tr�s empresas distintas num mesmo banco de dados. se por acaso esse banco de dados sofrer algum dano, as tr�s empresas ser�o prejudicadas (mesmo que momentaneamente), o que n�o ocorreria se esses dados estivessem distribu�dos em tr�s bancos diferentes: apenas uma empresa seria prejudicada.

ent�o, a estrutura deveria ser mais ou menos assim:

bancoXX (onde XX � o c�digo da empresa)
  clientes (n�o me preocupo com a filial)
    id_cliente
    cnpjcpf
    endereco
    
   
  produtos (n�o me preocupo com a filial)
    id_produto
    codigo
    nome
    descricao
    

  saldos (me preocupo com a filial)
    id_produto
    id_local
    id_filial
    saldoatual
    
  pedidos (me preocupo com a filial)
    id_pedido
    id_filial
    numero
    data
    

  pedidositens (n�o me preocupo com a filial, pois est� embutida no pedido)
    id_item
    id_pedido
    id_produto
    valorunitario
    quantidade

e assim por diante

Aldus · Answer

Emerson, expressei-me errado, o controle � multi-filiais, mas quanto a isso n�o tenho problemas.

Eu tenho um form de consulta padr�o e j� crio os campos manualmente, como abaixo, s� que como citei acima, era para o campo �NomCli� estar dispon�vel quando debugo ap�s a query, n�o era?

            Lista.DataSource := DM.DS_Vendas ;
            Lista.Columns.Add;
            Lista.Columns[0].FieldName := �PEDIDO�;
            Lista.Columns[0].Title.Caption:= �Pedido�;
            Lista.Columns.Add;
            Lista.Columns[1].FieldName := �DATA�;
            Lista.Columns[1].Title.Caption:= �Data da Venda�;
            Lista.Columns.Add;
            Lista.Columns[2].FieldName := �CODCLI�;
            Lista.Columns[2].Title.Caption:= �Cliente�;
            Lista.Columns.Add;
            Lista.Columns[3].FieldName := �NOMCLI�;
            Lista.Columns[3].Title.Caption:= �Nome do Cliente�;
            Lista.Columns.Add;
            Lista.Columns[4].FieldName := �CODPLA�;
            Lista.Columns[4].Title.Caption:= �Pagamento�;
            Lista.Columns.Add;
            Lista.Columns[5].FieldName := �TOTALBRU�;
            Lista.Columns[5].Title.Caption:= �Total Bruto�;
            Lista.Columns.Add;
            Lista.Columns[6].FieldName := �TOTALLIQ�;
            Lista.Columns[6].Title.Caption:= �Total L�quido�;

At�

Emerson Nascimento · Answer

ele s� estaria dispon�vel [b:249497d60a]depois de aberta a query[/b:249497d60a] e se [b:249497d60a]n�o houver campos persistentes[/b:249497d60a]....

Aldus · Answer

Emerson, por favor examine esse c�digo, que uso para filtrar todos os pedidos e depois apresent�-los no grid

DM.CDS_Vendas.Close ; DM.SQL_Vendas.CommandText := �Select Vendas.*,Clientes.NomCli as NomCli FROM Vendas Left Join Clientes ON (Vendas.Codcli=Clientes.CodCli) WHERE (Vendas.CodEmp=:vCodEmp and Vendas.CodEmp=Clientes.CodEmp) ORDER BY Vendas.Data+Vendas.Pedido DESC�; DM.SQL_Vendas.ParamByName(�vCodEmp�).AsInteger := fMenu.CodEmpSelec ; DM.CDS_Vendas.Open ;

Ap�s o Open, debugo todos os campos para testar �dm.cds_vendas.fieldbyname(nomedocampo).asstring�, todos retornam o seu conte�do, exceto o danado �NomCli� que retorna aquele erro �Delphi exception EDatabaseError at $84BF92D�

O que est� errado, a sintaxe da instru��o est� correta?

Mario

Paulo_amorim · Answer

Ol�Ap�s abrir, debugue e tente verificar: S� pra come�ar, o n�mero de campos que o Cds est� retornando. Se for diferente do esperado (o total de campos da tabela vendas + NomCli) pode ser issoDepois, verifique o nome dos campos (Fields.FieldName) , principalmente os �ltimos. Certifique-se de que o seu campo est� l�Provavelmente o erro est� em alguma coisa nesses passos... sen�o ele traria normalmente...At�+...

Emerson Nascimento · Answer

aparentemente n�o h� nada errado, mas estou me perguntando porque n�o d� erro ao abrir a query, pois voc� somou o Vendas.Data+Vendas.Pedido, e eu supondo que s�o campos de tipos diferentes.

como eu disse antes, apenas por est�tica, eu faria assim:

with DM.CDS_Vendas do
begin
  Close;
  CommandText := �Select Vendas.*, Clientes.NomCli FROM Vendas �+
                 �Left Join Clientes ON (Clientes.CodCli=Vendas.Codcli and Clientes.CodEmp=Vendas.CodEmp) �+
                 �WHERE Vendas.CodEmp=:vCodEmp �+
                 �ORDER BY Vendas.Data, Vendas.Pedido DESC �;
  ParamByName(�vCodEmp�).AsInteger := fMenu.CodEmpSelec;
  Open;
end

outra coisa: na tabela Vendas n�o h� um campo [i:940ffb318d]NomCli[/i:940ffb318d], n�? Se houver, talvez o sistema esteja se perdendo por n�o saber qual campo utilizar...

Aldus · Answer

Progresso Emerson. No meu datamodule, estavam incluidos todos campos da tabela vendas, � claro menos o NomCli pois o mesmo n�o existe. Retirei todos os campos do cds, a� apareceu o nome dos clientes. S� que para formatar os valores por exemplo que aparecer�o no grid preciso inclu�-los no cds para alterar o displayformat, da� incluo somente estes campos num�ricos, da� no resultado da query, s� me retorna aqueles campos que est�o inclu�dos.

Da� o dilema, se incluo todos no cds, n�o aparece o NomCli no grid ou se n�o incluo nenhum, aparece tudo mas n�o posso formatar os valores no grid, pois como voc� viu acima, eu incluo os campos em runtime e n�o h� propriedade para format�-los.

E agora brother, sabes o que posso fazer?

Emerson Nascimento · Answer

foi o que eu te disse acima voc� �pode deixar de trabalhar com campos persistentes�....

voc� pode, sim, criar as m�scaras de formata��o em tempo de execu��o.
por exemplo:

depois de abrir a query:

with DM.CDS_Vendas do
begin
  TDateTimeField(FieldByName(�DATA�)).DisplayFormat := �dd/mm/yyyy�;
  TFloatField(FieldByName(�TOTALBRU�)).DisplayFormat := �,#0.00�;
  TFloatField(FieldByName(�TOTALLIQ�)).DisplayFormat := �,0.00�;
end;

Aldus · Answer

Salve Salve Emerson! Amigo, acho que � essa a solu��o, apenas quando declaro o display me d� a seguinte mensagem de erro �[Error] uConsulta.pas(322): Undeclared identifier: �TFloatField��. Est� faltando declarar algo em uses n�?

Aguardo ancioso seu retorno.

Mario

Emerson Nascimento · Answer

basta declarar a unit DB na cl�usula uses....

Aldus · Answer

Estou tipo trancado pelos p�s cara. Quase l�, mas ainda deu o mesmo erro, declarei no uses e ...

unit uConsulta; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uConsultaPai, StdCtrls, ExtCtrls, Grids, DBGrids, Buttons, ComCtrls, DB;

Emerson Nascimento · Answer

publique o c�digo exatamente como voc� fez no Delphi....

F�rum Left Join nao retornou nada #267059