aarhin / jazz-sdk Goto Github PK

Adicionadas as propriedades ao repositório, assim os logs podem ser
associados aos "issues".

Para reproduzir
1. Crie um objeto BO e mapeie mais de um campo como OID
2. Grave algum objeto deste no banco, depois tente excluí-lo(Não tive
problemas com inserção e seleção, apenas com exclusão. Atualização não 
testei)

O comando SQL gerado para esta operação só considera o último campo da OID
para gerar a clausula where

Sugestão:
Alterar TSQLSelectObjectStatement.GetSQLWhere para:
function TSQLSelectObjectStatement.GetSQLWhere: string;
var
 I: Integer;
 LColName: string;
 LParamIndex: Integer;
 LParamName: string;
 LItem: IMemberMeta;
begin
 LParamIndex:= 0;

 for I:= 0 to Meta.OID.Count -1 do
 begin
   LItem:= Meta.OID[I];
   LColName:= Driver.GetColumnName(Meta, LItem.MemberName, False);
   LParamName:= Format('P%d_%s', [LParamIndex, LItem.ColumnName]);
   if I = 0 then
     Result := 'WHERE'
   else
     Result := Result + ' AND';

   Result:= Result + ' (' + LColName + ' = :' + LParamName + ')';
   Inc(LParamIndex);
 end;
end;

What steps will reproduce the problem?
1. Use delphi 7
2. Build and install all packages
3. Run any demo

What is the expected output? What do you see instead?
Demo projects doesn't get open correctly, Form doesn't show or demo project
does not build. 

What version of the product are you using? On what operating system?
You don't have a version file. I downloaded this file JazzSDKr194.7z
Operating system: Windows XP 

Please provide any additional information below.
I'll gladly give more details as I'm very interested to try this out.

Ao clonar uma lista, os objetos excluídos não são clonados.
Isso pode causar erros se a lista for utilizada para excluir lançamentos.

Ao executar uma alteração em um objeto, ví que a lista de parametros no
comando SQL é diferente da lista de objetos TParams. Isso fez com que os
valores de alguns campos fossem trocados uns com os outros.

Segue em anexo um exemplo que expõe o problema, foi feito utilizando Delphi
2006, Firebird 1.5, DbExpress e a revisão 171 do Jazz.

What steps will reproduce the problem?
1.
2.
3.

What is the expected output? What do you see instead?


What version of the product are you using? On what operating system?


Please provide any additional information below.

Para reproduzir:
1. Instancie um TStringType
2. Atribua uma string vazia a ele

O objeto devia deixar de estar marcado como nulo. No entanto, continua nulo.

Quando o objeto é criado, seu valor é inicializado para uma string vazia
(isso o próprio Delphi faz quando um objeto é instanciado) e ele é marcado
como nulo(em branco). Quando você chama o método SetValue passando uma
string vazia como parâmetro, o teste "FValue <> Value" retorna falso e,
como consequencia disso, nada é feito, apesar de eu estar atrubuíndo a ele
um valor diferente de nulo.
A minha sugestão é adicionar um 'else' que testa se o objeto está nulo e,
se estiver, chama o método Modified.
Ficaria assim:
procedure TStringType.SetValue(const Value: string);
begin
  if FValue <> Value then
  begin
    FValue:= Value;
    Modified;
  end
  else if IsNull then
    Modified;
end;

Imagino que problema semelhante ocorra com os outros tipos(TIntegerType,
TBooleanType, etc).

Tive um problema ao passar um valor de data para um criterio.
Meu código estava mais ou menos assim:
Criteria.Add(ctEqualTo, 'Data', [Objeto.Member['Data'].AsString]);
Com isso, o valor foi passado no formato DD/MM/AAAA
Só que o formato de data pode variar de banco para banco. Eu por exemplo
tive problemas com o firebird pois ele esperava o formato MM/DD/AAAA e aí a
data que eu passei foi retornada como inválida. Resolvi isso utilizando a
função FormatDateTime para formatar a data. Contudo, e se eu quiser rodar o
sistema em um banco que trabalha com outro formato?
A minha sugestão é, ao invés de passar um vetor de strings, utilizar um
vetor de IValueType
Assim, ali, eu passaria um IDateType ao invés de uma string. Depois, o
mechanism se encarregaria de passar a data no formato apropriado.
Assim, meu código poderia ficar como:
Criteria.Add(ctEqualTo, 'Data', [Objeto.Member['Data']]);
para valores constantes, poderia ser algo como:
Criteria.Add(ctEqualTo, 'Data', [TypeFactory.NewDate(EncodeDate(2006, 12,
14))]);
Assim também seria possível futuramente uma busca utilizando como parâmetro
um outro objeto, como por exemplo se eu tenho um objeto Funcionario que
possui um membro do tipo IEmpresa chamado 'Empresa', eu posso ter uma
variável com uma referencia a um IEmpresa e quero buscar os funcionários
dessa empresa. Seria assim:
var
  Empresa: IEmpresa;
begin
  Criteria.Add(ctEqualTo, [Empresa]);

Na função TObjecTType.GetMember, se o IsObjectMember(Name) retornar false,
a chamada a CheckAutoLoadMember(LMember); que ocorre ao final da função
será feita com o argumento igual a nil.
Não sei se é esse o comportamento esperado.. Mas por via das dúvidas, abri
este issue.

TObjectTable não gera erro quando campo requerido é nulo.

What steps will reproduce the problem?
1. Install BitDefener AntiVirus 2010
2. Download 
http://code.google.com/p/jazz-sdk/downloads/detail?name=JazzSDKr194.7z&can=2&q=

What is the expected output? What do you see instead?
Expected to get the file.
Got a popup instead, that a virus was found, with the name:
BehaveLike:BAT.Delete

Please provide any additional information below.
Probably there's a batchfile to clear useless auto-generated Delphi files that 
looks suspicious to my virus scanner. 

É necessário criar parametros para visualização dos dados. Exemplo:

Membro: RazaoSocial
DisplayText: "Razão Social"

Membro: ID
Visible: False

Membro: Valor
DisplayFormat: 999,999.99

Esses parametros vão servir para criação de visualizações dinâmicas como
listviews, forms de edição, etc.

Quando tento iniciar uma transação utilizando o ZeosMechanism, ocorre o
erro 'Connection is not opened yet.'

Para reproduzir:
* Inicie uma nova aplicação
* Adicione um TZConnection, configure-o como necessario(Aqui o utilizei com
Firebird 2.0)
* Inicie uma nova sessão no Jazz utilizando o TZeosMechanism. Altere a
propriedade Connection do Mechanism para apontar para o TZConnection criado
anteriormente.
* Tente abrir uma transação com (sessão).Mechanism.StartTransaction;

Aparentemente, o mechanism está utilizando um TZConnection criado
internemente por ele, armazenado em FInternalConnection, ao invés de
utilizar o que eu atribuí à propriedade Connection. Como esse TZConnection
não está devidamente configurado, dá pau.

Carrego um objeto, dou Clear em um de seus membros e salvo-o novamente.

Após isso, o campo correspondente ao tal membro permanecia inalterado.

Após um debug no Jazz, ví que o problema é que, após o Clear, o membro não
é marcado como modificado, então cheguei ao seguinte workarround: 

Você deve chamar o método Modified do membro antes de chamar Clear. Assim:
(Objeto.Member['Nome do membro'] as IMemberState).Modified; 
Objeto.Member['Nome do membro'].Clear;

Boa Tarde..

Estou iniciando estudos com o jazz. 

Alguem poderia postar um exemplo utilizando Tquery em vez de Ttable.


Obrigado

Is it possible to include a Criteria in a One To Many relationship to sort
or filter the resulting ObjectList