Duplicar pedido Mestre/Detalhe

(zegitz) #1

Olá Pessoal ,

Minha dúvida é a seguinte:

Hoje uso um formulário Mestre/Detalhe pra gerar alguns pedidos. Gostaria de agilizar o processo de preenchimento do itens no form detalhe criando um campo que busque pelo ID do pedido todos os itens de um pedido anterior e insira eles neste novo pedido. Como posso fazer isso?

Agradeço qualquer ajuda.

(Rodrigo Lins) #2

Bom Dia,

Você pode utilizar um evento ajax do tipo onchange no campo do código do Pedido, e fazer uso da macro sc_lookup neste evento, onde você irá fazer um select no determinado pedido e depois atribuir aos demais campos as informações retornadas.

Ex.

sc_lookup(verifica_pedido,“SELECT produto, valor FROM tb_itens_pedido WHERE Cod_Pedido = {Cod_Pedido}”);

if(!empty({verifica_pedido})) {

 {campo_produto} = {verifica_pedido[0][0]};
 {campo_valor} = {verifica_pedido[0][1]};

}

Espero ter ajudado.

Rodrigo Lins.

(zegitz) #3

Obrigado , vou tentar desenvolver em cima dessa sua ideia.

Valeu pena ajuda!!!

José Gitz

(rayfcrols) #4

Pessoal estou tentando desenvolver um rotina para a duplicação do M/D e não esta funcionado de maneira alguma eis o meu codigo que foi adicionado no afterInsert do mestre :

sc_lookup(verifica_lanc,“SELECT cod_prof,prolabore_prof,especialidade_prof FROM tb_lancamentos_prof WHERE num_lanc = {n_lanc_base}”);

if(empty({verifica_lanc})) {
sc_error_message(“Tem alguma coisa errada,nenhum valor foi retornado pelo banco.
”);
}else{
{cod_prof} = {verifica_lanc [0][0]};
{prolabore_prof} = {verifica_lanc [0][1]};
{especialidade_prof} = {verifica_lanc [0][2]};
sc_exec_sql(“INSERT INTO tb_lancamentos_prof (cod_prof,prolabore_prof,especialidade_prof) VALUES ({cod_prof},{prolabore_prof},{especialidade_prof})”);
}

OBS: lembrando que n_lanc_base é um campo no form pai/mestre em que eu informo o n° do pedido a importar, e que no sc_sql_exec esta dando o seguinte erro:

Erro ao acessar o banco de dados
[Microsoft][ODBC SQL Server Driver][SQL Server]The statement has been terminated.
INSERT INTO tb_lancamentos_prof (cod_prof,prolabore_prof,especialidade_prof) VALUES (371 ,832.95 ,5 )

(George Carvalho) #5

Seus campos cod_prof, prolabore_prof, especialidade_prof são numericos?

George Carvalho

(rayfcrols) #6

Sim são, cod_prof, especialidade, prolabore é Money(currency)

(George Carvalho) #7

Você esta tentando gravar um registro com os mesmos dados do registro lido, não ta dando duplicidade?

George Carvalho

(rayfcrols) #8

Não, é prq ainda não incrementei a função do gravar o num_lanc novo, cara … muito obrigado por ta acompanhando este topico, to tentando de tudo pra resolver este meu problema, já consequi fazer com que grave no banco de dados mais a função só esta gravando o primeiro registro tenho que dar alguma especie de loob que não sei como fazer, meu codigo esta assim :

sc_lookup(resultado, "
SELECT
cod_prof,
prolabore_prof,
obs_prof,
especialidade_prof
FROM
tb_lancamentos_prof
WHERE
(num_lanc = {n_lanc_base})
");
$resl = {resultado [0][0]};
echo "";

/* Erro no lookup /
if (FALSE === {resultado}) {
sc_error_message(“Ocorreu um erro no acesso ao banco de dados.
”);
}
elseif (empty({resultado})) { /
EOF */
sc_error_message(“Nenhum valor foi retornado pelo banco.
”);
}
else {
{num_lanc} = {num_lanc_temp};
{cod_prof} = {resultado [0][0]};
{prolabore_prof} = {resultado [0][1]};
{obs_prof} = {resultado [0][2]};
{especialidade_prof} = {resultado [0][3]};
sc_exec_sql(“INSERT INTO tb_lancamentos_prof (num_lanc,cod_prof,prolabore_prof,obs_prof,especialidade_prof) VALUES ({num_lanc},{cod_prof},{prolabore_prof},’{obs_prof}’,{especialidade_prof})”);
}

(George Carvalho) #9

Não sei quem vai controlar o loop, tenho uma rotina que gera um loop baseado na quantidade de parcelas, segue abaixo e espero que sirva como exemplo.

$id = 0;

sc_select(dataset1, select convenio,autorizacao,matricula,parcelas,valor_parcela,data_venda from clientes_vendas);

if ({dataset1} === false)
{
echo "Erro de acesso a tabela de Vendas = " . {dataset1_erro};
}else {
while (!$dataset1->EOF)
{
$convenio = $dataset1->fields[0];
$autorizacao = $dataset1->fields[1];
$matricula = $dataset1->fields[2];
$parcelas = $dataset1->fields[3];
$valor_parcela = $dataset1->fields[4];

$laco = 1;
$mes = 2;

while ($laco <= $parcelas) //  QTD DE LOOP
{
  $venc = sc_date ($dataset1->fields[5], "aaaa-mm-dd", "+", 0, $mes, 0); //INCREMENTA O MES
  $id++;
  sc_exec_sql("Insert into clientes_parcelas values('$id','$convenio','$autorizacao','$matricula','$parcelas','$valor_parcela','$laco','$venc',0)");
  $laco++;
  $mes++;
}  

$dataset1->MoveNext();
}
$dataset1->Close();
}

(rayfcrols) #10

[b]Valeu gcarvalho v/c ajudou muito mais eu já tinha conseguido que rotina funcione, só não tinha tido tempo de ter te reportado antes.
Valeu mesmo,

Para os Interessado esta assim a minha solução:

1 - No Evento eu lanço o num_lanc como variável global e chamo a função de importar o lançamento;
2 - a função importa_lancamento encontra-se assim:[/b]
[i]sc_lookup(resultado, "
SELECT
cod_prof,
prolabore_prof,
especialidade_prof
FROM
tb_lancamentos_prof
WHERE
(num_lanc = {n_lanc_base})
");

/* Erro no lookup /
if (FALSE === {resultado}) {
sc_error_message(“Ocorreu um erro no acesso ao banco de dados.
”);
}
elseif (empty({resultado})) { /
EOF */
sc_error_message(“Nenhum valor foi retornado pelo banco.
”);
}
else {
for ($i = 0; $i < $conta; $i++) {
{num_lanc} = [num_lanc_temp];
{cod_prof} = {resultado [$i][0]};
{prolabore_prof} = {resultado [$i][1]};
{especialidade_prof} = {resultado [$i][2]};
sc_exec_sql(“INSERT INTO tb_lancamentos_prof (num_lanc,cod_prof,prolabore_prof,especialidade_prof) VALUES ({num_lanc},{cod_prof},{prolabore_prof},{especialidade_prof})”);
}
}
[/i]

Esta rotina básica esta funcionado, falta dar alguns refinamentos e outros teste mais esta funcionado como desejado.

(zegitz) #11

ae pessoal consegui resolver o meu problema com esse codigo:

sc_confirm(Confirma a duplicação deste pedido?);
sc_exec_sql(“INSERT INTO adm_pedidos (FabricaId,ValorPedido,Feito,Ref,Cond,Loja,DataPedido,Status)
VALUES(’[FabricaId]’,’[ValorPedido]’,’[Feito]’,’[Ref]’,’[Cond]’,‘CD’,now(),‘AGUARDANDO’)”);

sc_lookup(ped,“select PedidoID,Ref,Item,Cor,Tam,Qnt,PrecoUnit,Total from adm_pedido_itens where PedidoID = [PedidoID]”);

sc_lookup(novoid, “SELECT max(PedidoID) FROM adm_pedidos”);

$novoid = {novoid[0][0]};

$y = count({ped});
for($x=0;$x<$y;$x++){

$PedidoID = {ped[$x][0]};
$Ref = {ped[$x][1]};
$Item = {ped[$x][2]};
$Cor = {ped[$x][3]};
$Tam = {ped[$x][4]};
$Qnt = (int){ped[$x][5]};
$PrecoUnit = {ped[$x][6]};
$Total = {ped[$x][7]};

sc_exec_sql(“INSERT INTO adm_pedido_itens (PedidoID,Ref,Item,Cor,Tam,Qnt,PrecoUnit,Total)
VALUES(’$novoid’,’$Ref’,’$Item’,’$Cor’,’$Tam’,’$Qnt’,’$PrecoUnit’,’$Total’)”);
}
echo “”;

(Eduardo Alves) #12

Gostaria de redirecionar para o formulario que ele criou (IdNovoPedido) após o botão OK.

Tentei sc_redir mais deu erro :

sc_lookup(ult_id,“SELECT max(id) from adm_os”);
$max_id=$ult_id[0][0];
sc_redir(cad_os_ser_novo.php,{id}="$max_id");

(Diogo Toscano) #13

sc_redir(cad_os_ser_novo.php,id={ult_id[0][0]});

?

(Eduardo Alves) #14

perdão… isso foi um teste que eu fiz…na verdade está assim

{
sc_lookup(ult_id, “SELECT max(id) FROM adm_os”);
echo $maximo_id=$ult_id[0][0];
}

sc_redir(cad_os_ser_novo.php,?id="$maximo_id");

tentei colocar um _blank para ver o que estava vindo e deu o seguinte erro:

{
sc_lookup(ult_id, “SELECT max(id) FROM adm_os”);
echo $maximo_id=$ult_id[0][0];
sc_redir(cad_os_ser_novo.php,?id="$maximo_id", “_blank”);

}

Notice: Undefined variable: nmgp_url_saida in C:\Arquivos de programas\netmake\v5\wwwroot\scriptcase\app\ERP_CENTRAXI\cad_os_ser_novo\cad_os_ser_novo.php on line 1387

o que pode ser isso ???

(Diogo Toscano) #15

sc_redir(cad_os_ser_novo.php,?id=$maximo_id);

?

sem aspas na variavel?

(Eduardo Alves) #16

tem que tirar as aspas ???

(Diogo Toscano) #17

testasse?

(Eduardo Alves) #18

testei tb… com aspas sem aspas, aspas simples ’ … não mais por onde testar… tirei a interrogação do id e ele direcionou para o id correto, mais dá varios erros em varios campos obrigatorios… se voce preenche os mesmos, ainda acusa os erro… vlw pela atenção que está dando

(Cleyton Euler) #19

Testando um parâmetro manual funciona?

sc_redir(cad_os_ser_novo.php,id=1);

(Eduardo Alves) #20

Fala brother…

ai deu certo… mandando para um id que ja existe redireciona certinho… o negocio está então no max(id), vou dar mais uma olhada nesse parametro e depois retorno se der certo ou errado os testes… obrigado e até +