Geomar Canjundo

Jhonas, Obrigado pelas dicas. Ficou apenas uma dúvidas que penso que me poderás ajudar. O meu formulário chama o procedimento para Salvar a Compra duas Vezes, antes de Salvar os itens da compra ao fechar o formulário. Nesse caso, fazendo as transacções apenas nno procedimento de Salvar a compra ele também fará rollback a itens caso cancele, ou tenho usar em ambos os casos?

Olá pessoal, Tenho num formulário na qual tenho dois AdoQuery (Master x Detail). Para inserir o primeiro registo relacionado a tabela pai na tabelha detail, tenho de salvar inicialmente o registo da tabela pai, até ai tudo bem. Acontece que se eventualmente eu desejar cancelar alguma acção na tabela pai a minha é que também seja cancelada as mesmas feitas a tabela detail na naquela sessão exacta de edição da tabela. Ou seja caso eu eu já tenha peoduto adicionado a aquela compra, caso na sessao actual eu tenha adicionado algum dadoa a tabela filho e cancelar na tabela pai o sistema faz um rollback transaction nas duas tabelas. Tem como fazer isso?!?!

Consegui resolver! Fui até a pasta vcl e copiei o unico arquivo *.res e alterei o nome para Control.res e está a funcionar normalmente.

Jhonas acontece que esse erro está a ser gerado em qualquer projecto que tento fazer no Delphi.

Olá Pessoal, Mais uma vez venho solicitar a vossa ajuda De repente o meu Delphi deixou de compilar os programa gera um erro E1026 File not Found: 'Controls.res' já procurei em todas as pastas do Delphi a ver se encontro e nada... Já desinstalei o Delphi e voltei a instalar e o problema persiste. Eu estou a usar o Delphi XE.

Jhonas o seu entendimento foi perfeito, e sua explicação mais clara ainda, obrigado pela ajuda. Vou criar as DLL e tentar usa-las Obrigado pela ajuda, Valeu

amigo, voce tem que ser mais claro quanto ao que quer fazer... a que tipo de código voce esta se referindo ? delphi ? assembler ? Php ? Script ? quanto mais detalhada a sua dúvida, mais rapido terá uma resposta .. ok ? abraço Viva Jhonas, Obrigado pela dica. O código que quero adicionar é delphi. Esse código está armazenado num dos campos da tabela em que é feita a consulta. Eu quero antes da abertura do FormPrincipal, o sistema adicione esse conteudo armazenado na tabela (FormClientes.visible:=False/True) no código fonte já existente. Espero ter sido mais claro...

Olá Pessoal, Alguém sabe como faço para adicionar código em tempo de Execucao, se for possível fazer isso. A minha ideia é, após o inicio do Programa, ele escreva o conteudo armazenado num variável O meu codigo vai abaixo: with ModuloDados.QryPerfil do begin Close; Sql.Add(' AND P.CODIGO_GRUPO = :GRUPO AND E.NOME_EMPRESA = :EMPRESA '); Parameters.ParamByName('GRUPO').Value:=grupo; Parameters.ParamByName('EMPRESA').Value:=empresa; open; if IsEmpty then begin FormPrincipal.rbMenu.Destroy; end else begin registo:=0; First; while registo <RecordCount do begin Perfil(ModuloDados.QryPerfilPRIVILEGIO.Text); // Função contendo o código que será escrito, armazenado na tabela next; Inc(registo, 1) end; end; FormPrincipal.empresa:=ModuloDados.QryPerfilCODIGO_EMPRESA.AsInteger; FormPrincipal.utilizador:=ModuloDados.QryUtilizadoresUTILIZADOR.Text; FormPrincipal.ShowModal; end; Aguardo o vosso parecer, Obrigado.

Viva Amigos, Mais uma vez devo agradecer a vossa prestabilidade. Consegui superar o erro gerado pela consulta da seguinte forma: Em vez de fazer a consulta no AdoQuery, fiz directamente na Base dados mediante Stored Procedure, adicionei um componente TAdoStoredProc e chamei a procedure a partir daí... Funcionou perfeitamente. Valeu!!!

Jhonas pode dar uma luz de como fazer stored procedure com uma única escolha?

Progr'amador, Tentei as duas opções e continuo recebendo o mesmo erro.

Jhonas, Confesso-te sinceramente que percebi nada da sua explicação.

Olá Pessoal, Estou tentando fazer uma consulta (AdoQuery e SQL SERVER) na qual me vai gerando a o seguinte erro: "EOleException with Message: sp_cursoropen/sp_cursorprepare: The statement can only be a batch or a stored procedure with a single select, without FOR BROWSE, COMPUTE BY, or variable assignements " A consulta é a seguinte procedure AdicionaAoStockLoja(produto:Integer); begin With ModuloDados.QryStockLoja do begin Close; SQL.Add('SELECT L.*, C.DESCRICAO AS DS_CATEGORIA FROM COM_STOCK_LOJA L , OFI_CATEGORIAS C,'); SQL.Add(' COM_PECAS P, SYS_EMPRESAS E WHERE L.CODIGO = '+ IntToStr(produto)); SQL.Add(' AND L.CODIGO_CATEGORIA = P.CODIGO_CATEGORIA AND P.CODIGO_CATEGORIA = C.CODIGO AND'); SQL.Add(' L.CODIGO_EMPRESA = E.CODIGO ORDER BY L.DESCRICAO '); Open; end;

Bruno, Obrigado pela ajuda, funcionou na perfeição... Valeu, mano...

Bruno, Obrigado pela ajuda, tentei usar o teu código, mas gerou o seguinte erro: "Pelo menos uma das colunas do controle DataGridView não tem nenhum modelo de célula."