- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- ATUALIZAR CAMPO DE UMA TABELA
×
Linguagem de Programação ADVPL
Perguntas ATUALIZAR CAMPO DE UMA TABELA
- Vcrinfo
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 13
- Obrigados Recebidos: 0
11 anos 4 meses atrás #9125
por Vcrinfo
ATUALIZAR CAMPO DE UMA TABELA foi criado por Vcrinfo
Boa noite a todos e Feliz 2013
Estou precisando atualazar um campo da SA1
Tem algum comando em que atualuzo este campo para todos os clientes que tem o mesmo CNPJ
Estou precisando atualazar um campo da SA1
Tem algum comando em que atualuzo este campo para todos os clientes que tem o mesmo CNPJ
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 4 meses atrás #9127
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Re: ATUALIZAR CAMPO DE UMA TABELA
Boa Noite Vera
se for SQL entre no queryanaliser e digite
UPDATE SA1010
SET A1_CAMPO = 'CONTEUDO'
WHERE A1_CGC = '1234567781882828'
se for SQL entre no queryanaliser e digite
UPDATE SA1010
SET A1_CAMPO = 'CONTEUDO'
WHERE A1_CGC = '1234567781882828'
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- Vcrinfo
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 13
- Obrigados Recebidos: 0
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 4 meses atrás #9129
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Re: ATUALIZAR CAMPO DE UMA TABELA
cCgc := '54010293902020019'
If SA1->(dbSetOrder(3), dbSeek(xFilial("SA1")+cCgc))
While SA1->(!Eof()) .And. SA1->A1_FILIAL == xFilial("SA1") .And. SA1->A1_CGC == cCgc
If RecLock("SA1",.f.)
SA1->A1_CAMPO := "CONTEUDO"
MsUnlock()
Endif
SA1->(dbSkip(1))
Enddo
Else
MsgStop("Atencao CNPJ Não Encontrado!!!")
Return
Endif
If SA1->(dbSetOrder(3), dbSeek(xFilial("SA1")+cCgc))
While SA1->(!Eof()) .And. SA1->A1_FILIAL == xFilial("SA1") .And. SA1->A1_CGC == cCgc
If RecLock("SA1",.f.)
SA1->A1_CAMPO := "CONTEUDO"
MsUnlock()
Endif
SA1->(dbSkip(1))
Enddo
Else
MsgStop("Atencao CNPJ Não Encontrado!!!")
Return
Endif
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- ATUALIZAR CAMPO DE UMA TABELA
Tempo para a criação da página:0.106 segundos