Clipper On Line • Ver Tópico - Atualizar com base em outras tabelas

Atualizar com base em outras tabelas

Discussão sobre SQL

Moderador: Moderadores

 

Atualizar com base em outras tabelas

Mensagempor JoséQuintas » 31 Mar 2020 12:49

Sei que o ideal é STORED PROCEDURE, mas não quero mexer com isso por enquanto.
Ia perguntar, mas acho que já pensei na solução durante o post.

   WITH OBJECT cnSQL
      :QueryCreate()
      :QueryAdd( "ESDATLAN",   mData )
      :QueryAdd( "ESTIPLAN",   Iif( mSomaTira < 0, "1", "2" ) )
      :QueryAdd( "ESNUMDEP",   mDeposito )
      :QueryAdd( "ESNUMDOC",   Right( Replicate( "0", 9 ) + SoNumeros( mNumNota ), 9 ) )
      :QueryAdd( "ESPRODUTO",  jpitped->ipProduto )
      :QueryAdd( "ESTRANSA",   jppedido->pdTransa )
      :QueryAdd( "ESCADASTRO", jppedido->pdCadastro )
      :QueryAdd( "ESQTDE",     jpitped->ipQtde )
      :QueryAdd( "ESVALOR",    jpitped->ipValNot / jpitped->ipQtde )
      :QueryAdd( "ESCFOP",     jpitped->ipCfOp )
      :QueryAdd( "ESTIPDOC",   "PEDIDO" )
      :QueryAdd( "ESPEDIDO",   jppedido->idPedido )
      :QueryAdd( "ESINFINC",   LogInfo() )
      :QueryExecuteInsert( "JPESTOQUE" )
   ENDWITH


Uma vez que dá pra combinar comandos, a solução deve ser:

INSERT INTO JPESTOQUE ( <lista> ) VALUES ( SELECT .... )

E pegando direto da base, sem necessidade de variável temporária, salvo exceções.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Atualizar com base em outras tabelas

Mensagempor JoséQuintas » 31 Mar 2020 12:54

E na prática com SQL poderia ser feito pra todos os produtos do pedido de uma vez, ao invés de um por um.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes




Retornar para SQL

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro