Inser com aplicação consulta

Consultas
#1

Bom tarde !
Pessoal eu tenho a seguinte consulta: em
select e.entrada, e.nf, i.codprod, r.nome, i.numpedc
from entrada e, item_entrada i, requisitante r
where e.filial = i.filial
and e.entrada = i.entrada
and i.cod_requisitante = r.codrequis;
e na aplicação eu inseri mais um campo, “qtd” que coloquei no filtro também, quando eu executo a aplicação eu entro com o campo entrada, e no campo qtd eu coloco qualquer numero ex: 10.
Então o grid vem correto do jeito que eu quero com os itens filtrado corretamente e no campo qtd o valor informado no filtro.
O que eu pretendo é colocar um botão onde eu possa salvar o resultado desta consulta em uma outra tabela ex: tbresultado
Obs: preciso que ele repita este insert a quantidade de vezes que tem no meu campo “qtd”.
Estou iniciando no scriptcase e não consegui fazer esta operação.

Pessoal desde já agradeço a atenção.

#2

Você pode usar um botão do tipo Run na sua Grid(Consulta).
Desta forma você programa o que quer que aconteça.

Veja aqui o como usar o botão Run: https://www.scriptcase.com.br/samples/tutoriais/grid/grid44.php

#3

boa tarde Cleidson!

vou tentar aqui e retorno com o resultado.

#4

bom pessoal, resolvi da seguinte forma:

Evento onrecord:

sc_select(ds, “SELECT E.ENTRADA,E.NF,I.CODPROD,R.NOME,I.NUMPEDC //aqui eu seleciono os registros
FROM ENTRADA E,ITEM_ENTRADA I,REQUISITANTE R
WHERE E.FILIAL = I.FILIAL
AND E.ENTRADA= I.ENTRADA
AND E.ENTRADA= ‘{E.ENTRADA}’ //aqui a variavel
AND I.COD_REQUISITANTE = R.CODREQUIS”);

$qtd = ({ETQ}); // esta variável $qtd eu guardo a infrmação de quantos registros eu quero copiar, qriei este campo “etq” e coloquei no filtro
for($x=0;$x<$qtd;$x++) // fiz o loop e gravei o resultado na tabela etiquetas, depois foi só imprimir num reportpdf.
{
$str_sql = “INSERT INTO AGR_ETIQUETAS_T(ENTRADA, NF, CODPROD, REQ, NUMPEDC) VALUES (’{E.ENTRADA}’,’{E.NF}’,’{I.CODPROD}’,’{R.NOME}’,’{I.NUMPEDC}’)”;
sc_exec_sql($str_sql);
}

espero que isso possa ajudar aqueles que como eu está começando no scriptcse.