Dúvida em como transferir dados de tabela para outra...

[Dimmy Angelo]

Pessoal é o seguinte fiz um rascunho na imagem em anexo, quero transferir dados de uma tabela para outra, conto com ajuda ou exemplo de como fazer, me perdoe a minha falta de conhecimento.

Desde ja agradeço, Obrigado por enquanto

[Gustavo]

Olá,

Segue a programação do botão "Transferir Dados".

TabGlobal.DQUESTIONAMENTO.filtro.Clear;
tabGlobal.DQUESTIONAMENTO.filtro.Add('QUESTIONAMENTO.CODIGO_MODALIDADE ='+inttostr(CODIGO_MODALIDADE(do formulário de transferência)));
TabGlobal.DQUESTIONAMENTO.AtualizaSql;
try
tabglobal.DQUESTIONAMENTO.First;

while not tabglobal.DQUESTIONAMENTO.Eof do
begin
TabGlobal.DCheck.Inclui(Nil);
TabGlobal.DCheck.CODIGO_QUEST??O.Conteudo := TabGlobal.DQUESTIONAMENTO.CODIGO_QUEST??O.Conteudo;
TabGlobal.DCheck.CODIGO_MODALIDADE.Conteudo := TabGlobal.DQUESTIONAMENTO.CODIGO_MODALIDADE.Conteudo;
TabGlobal.DCheck.CODIGO_QUESTIONAMENTO.Conteudo := TabGlobal.DQUESTIONAMENTO.CODIGO_QUESTIONAMENTO.Conteudo;
TabGlobal.DCheck.QUESTIONAMENTO.Conteudo := TabGlobal.DQUESTIONAMENTO.QUESTIONAMENTO.Conteudo;
TabGlobal.DCheck.BASE_LEGAL.Conteudo := TabGlobal.DQUESTIONAMENTO.BASE_LEGAL.Conteudo;
TabGlobal.DCheck.MODALIDADE.Conteudo := TabGlobal.DQUESTIONAMENTO.MODALIDADE.Conteudo;
TabGlobal.DCheck.Processo.Conteudo := CODIGO_QUESTAO(Formulário de transferência);
TabGlobal.DCheck.salva;
end;
TabGlobal.DQUESTIONAMENTO.next;
except
showmessage('Erro na Transferência...');
end;
TabGlobal.DQUESTIONAMENTO.filtro.Clear;

Para ordenar a tabela Check pelo campo codigo_questionamento, vá em tabelas, tabela Check, e em Ordem Inicial, defina o campo codigo_questionamento lá.

[Dimmy Angelo]

[Dimmy Angelo]

tabGlobal.DQUESTINAMENTO.filtro.Add('QUESTINAMENTO.CODIGO_MODALIDADE ='+inttostr(CODIGO_MODALIDADE(DTranferencia)));

Olá amigo, onde estou errando ? Se não for incomodar mando o projeto ...

Obrigado

[Gustavo]

Se o o nome da tabela do formulário de transferência for DTransferencia, faça assim:

tabGlobal.DQUESTINAMENTO.filtro.Add('QUESTINAMENTO.CODIGO_MODALIDADE ='+inttostr(tabglobal.dtransferencia.codigo_modalidade.conteudo));

[Dimmy Angelo]

Bom Dia, pra ajudar agora esta acontecendo um erro na inicialização, se importaria que eu enviasse o projeto por e-mail pra voce.

Obrigado por enquanto.

[Gustavo]

Sem problemas, mande o seu projeto compactado sem o executável para suporte@xmaker.com.br

Assim que possível estaremos postando a resolução de seu problema.

[Gustavo]

Olá,

Analisamos o seu projeto, e verificamos o seguinte:

*Referente ao erro de inicialização, abra o aquivo SYSEMP.Dat, e verifique o caminho especificado para encontrar a base, provavelmente o erro está acontecendo porque o caminho da BASE.gdb está errado.

*Segue abaixo o código correto do botão "Transferir Dados".

TabGlobal.DQUESTIONAMENTO.filtro.Clear;
tabGlobal.DQUESTIONAMENTO.filtro.Add('QUESTIONAMENTO.CODIGO_MODALIDADE ='+inttostr(tabglobal.dtransferencia.codigo_modalidade.conteudo));
TabGlobal.DQUESTIONAMENTO.AtualizaSql;
try
tabglobal.DQUESTIONAMENTO.First;

while not tabglobal.DQUESTIONAMENTO.Eof do
begin
TabGlobal.DCheck.Inclui(Nil);
TabGlobal.DCheck.CODIGO_QUEST??O.Conteudo := TabGlobal.DQUESTIONAMENTO.CODIGO_QUEST??O.Conteudo;
TabGlobal.DCheck.CODIGO_MODALIDADE.Conteudo := TabGlobal.DQUESTIONAMENTO.CODIGO_MODALIDADE.Conteudo;
TabGlobal.DCheck.CODIGO_QUESTIONAMENTO.Conteudo := TabGlobal.DQUESTIONAMENTO.CODIGO_QUESTIONAMENTO.Conteudo;
TabGlobal.DCheck.QUESTIONAMENTO.Conteudo := TabGlobal.DQUESTIONAMENTO.QUESTIONAMENTO.Conteudo;
TabGlobal.DCheck.BASE_LEGAL.Conteudo := TabGlobal.DQUESTIONAMENTO.BASE_LEGAL.Conteudo;
TabGlobal.DCheck.MODALIDADE.Conteudo := TabGlobal.DQUESTIONAMENTO.MODALIDADE.Conteudo;
TabGlobal.DCheck.Processo.Conteudo := tabglobal.dtransferencia.Processo.conteudo;
TabGlobal.DCheck.salva;
end;
TabGlobal.DQUESTIONAMENTO.next;
except
showmessage('Erro na Transferência...');
end;
TabGlobal.DQUESTIONAMENTO.filtro.Clear;



Entre em contato com a equipe Xmaker para adquirir uma nova licença.