Colegas,
Estou desenvolvendo um sistema e agora em certo momento está me aparecendo o
erro: Invalid Variant Operation
Este erro está ocorrendo no servidor de aplicação:
// usuário
if SourceDS = QryPadrao then
begin
dmconexao.nomeTabelaLog := 'seg_usuario';
if UpdateKind <> ukDelete then
begin
if dmconexao.validarCampoObrigatorio(DeltaDS, 'nome') = false then
raise exception.Create('Nome do usuário é obrigatório');
if dmconexao.validarCampoObrigatorio(DeltaDS, 'senha') = false then
raise exception.Create('Senha do usuário é obrigatório');
if dmconexao.verificarDuplicidade('login', UpdateKind, 'id_usuario',
'seg_usuario', DeltaDS) then
raise exception.Create('Login já existente no sistema.');
end;
if UpdateKind = ukInsert then
begin
DeltaDS.FieldByName('id_usuario').NewValue := getSequencial
('gen_usuario');
end;
if (UpdateKind = ukDelete) then
begin
raise exception.Create(
'Somente poderá ser excluída pela administração do banco');
end;
end;
// acesso
if SourceDS = QryAcesso then
begin
dmconexao.nomeTabelaLog := 'seg_acesso';
if UpdateKind = ukInsert then
begin
DeltaDS.FieldByName('id_acesso').NewValue :=
getSequencial('gen_acesso');
end;
end;
O ERRO APARECE AO FINALIZAR O PRIMEIRO SOURCE (QRYPADRAO).
PELO QUE ACHO, PARECE TER ALGUM PROBLEMA NA SEGUNDA FONTE.
Qualquer ajuda é bem-vinda.
Att,
--
Marcelo Moacir Florindo
Analista/Desenvolvedor
http://www.gestaotec.com.br
[As partes desta mensagem que não continham texto foram removidas]
