fdsilva.desenv
Novato
Registrado: Quarta-Feira, 28 de Novembro de 2012
Mensagens: 68
|
 Enviada: Qua Nov 28, 2012 3:54 pm Assunto: Erro E2171 Variable Self inaccessible here due to optimizati |
 |
|
Pessoal, td bem?
Comecei a criar esta procedure abaixo porém no final dela, na ultima variável aparece o seguinte erro:
//E2171 Variable Self inaccessible here due to optimization
| Código: |
procedure TfrmCadCaixa.CarregaDados;
begin
uSala.frmSala.TrazSalaSelecionada;
uSala.frmSala.TrazEstanteSelecionada;
uSala.frmSala.TrazArmarioSelecionado;
uSala.frmSala.TrazPrateleiraSelecionada;
TrazLinhaTitulo;
with uDtm.frmDtm.Qry_BuscaArmazenamento do
begin
Close;
SQL.Clear;
SQL.Add('Select a.*, d.*, t.*');
SQL.Add('From Armazenamento a,');
SQL.Add(' Departamento d,');
SQL.Add(' Titulo t');
SQL.Add('Where a.nr_box =' + inttostr(vBox) + '');
SQL.Add('and a.id_prateleira = ' + IntToStr(vIdPrateleira) + '');
SQL.Add('and a.id_armario = ' + IntToStr(vIdArmario) + '');
SQL.Add('and a.id_estante = ' + IntToStr(vIdEstante) + '');
SQL.add('and a.id_titulo = t.id_titulo');
SQL.add('and a.id_departamento = d.id_departamento');
SQL.Add('and a.id_tparmazenamento = 2');
Open;
edtNumeroCaixa.Text := FieldByName('nr_caixa').AsString;
cbxEmpresaCaixa.Text:= FieldByName('ic_empresa').AsString;
edtFilial.Text := FieldByName('ic_filial').AsString;
cbxDepartamento.ItemIndex := FieldByName('id_departamento').AsInteger;
cbxTitulo.Text := FieldByName('ds_titulo').AsString;
edtDtFim.Text := FieldByName('dt_caixafim').AsString;
mDescricao.Text := FieldByName('ds_armazenamento').AsString;
edtPosicao.Text := FieldByName('ds_posicao').AsString;
edtDtIni.Text := FieldByName('dt_caixaini').AsString;
end;
end;
|
O que fiz de errado?
Como proceder?
Atenciosamente, |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
