Perguntas Gatilhos Cadastro Cliente

Boa tarde, Pessoal.

Foram criados 3 campos na SA1:

A1_XCODGRU
A1_XLOJGRU
A1_XNOMGRU

E também foram criados 02 Gatilho para A1_XNOMGRU e uma sequencia para A1_XLOJGRU, até aqui tudo bem agora estou precisando de uma LUZ, por exemplo quando for alterado o Nome Reduzido do codigo "001" preciso que seja alterado todos os clientes que tiverem o XCODGRU = 001 amarrado no cadastro.

Att,

Ronaldo Gomes

Blz cara, seguinte neste caso vai ter que rolar um função de usuário mesmo, vc vai ter que desenvolver e colocar no gatilho do nome reduzido do cliente.

tipo U_XGRUPO()

"rgomes":1wr7x51z escreveu: Boa tarde, Pessoal.

Foram criados 3 campos na SA1:

A1_XCODGRU
A1_XLOJGRU
A1_XNOMGRU

E também foram criados 02 Gatilho para A1_XNOMGRU e uma sequencia para A1_XLOJGRU, até aqui tudo bem agora estou precisando de uma LUZ, por exemplo quando for alterado o Nome Reduzido do codigo "001" preciso que seja alterado todos os clientes que tiverem o XCODGRU = 001 amarrado no cadastro.

Att,

Ronaldo Gomes[/quote:1wr7x51z]

Outra coisa, é melhor vc utilizar um ponto de entrada no final da tela de cadastro de clientes, e verificar se é uma alteração, ai sim rodar a sua função para alterar o nome reduzido em todos os clientes com este grupo ok.

Se precisar de ajuda pode me dar um toque ok.

Bom dia, Luiz

Desculpa a demora para responder, mais uma vez obrigado pela ajuda vou trabalhar em cima disso agora.
Mais uma vez obrigado

att,

Ronaldo Gomes

Bom dia, Luiz.

Poderia verificar se fiz tudo certo, por favor?

Att,

Ronaldo Gomes

OBS: Tem o Exemplo 2 é diferente do que você me explicou, já acho que esta errado <!-- s:lol: --><img src="{SMILIES_PATH}/icon_lol.gif" alt="" title="Laughing" /><!-- s:lol: -->[attachment=0:j39qdkv4]<!-- ia0 -->MALTCLI.zip<!-- ia0 -->[/attachment:j39qdkv4]

Ronaldo você criou um novo Indice para os Campos criados, pois haverá necessidade disso para que você possa localizar os clientes que estão amarrados.

Por Exemplo: Criar Indice 99 (Exemplo não Sei a Próxima Ordem)

A1_FILIAL+A1_XCODGRU



#include &quot;protheus.ch&quot;
#include &quot;rwmare.ch&quot;
/*
EXEMPLO 1
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³MALTCLI ºAutor ³Ronaldo Gomes º Data ³ 13/10/2011 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Confirma as alterações no A1_NREDUZ para todos os cadastro º±±
±±º no campo A1_XNOMGRU º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function MALTCLI
[color=#FF0000:172wce2e]Local aArea := GetArea()[/color:172wce2e]
[color=#FF0000:172wce2e]Local nReg := SA1-&gt;(Recno()) // Guarda o Registro SA1 Atual[/color:172wce2e]

DbSelectArea(&quot;SA1&quot;)
[color=#FF0000:172wce2e]dbSetOrder(99) // Ordem do Novo Indice Criado[/color:172wce2e]
[color=#FF0000:172wce2e]If dbSeek(xFilial(&quot;SA1&quot;)+M-&gt;A1_XCODGRU)[/color:172wce2e]
[color=#FF0000:172wce2e]While SA1-&gt;(!Eof()) .And. M-&gt;A1_XCODGRU == SA1-&gt;A1_XCODGRU[/color:172wce2e]
[color=#FF0000:172wce2e]If RecLock(&quot;SA1&quot;,.F.)[/color:172wce2e]
SA1-&gt;A1_XNOMGRU := M-&gt;A1_NREDUZ
MsUnlock()
EndIf
[color=#FF0000:172wce2e]SA1-&gt;(dbSkip(1))[/color:172wce2e]
[color=#FF0000:172wce2e]EndDo[/color:172wce2e]

[color=#FF0000:172wce2e]SA1-&gt;(dbGoTo(nReg))[/color:172wce2e]
[color=#FF0000:172wce2e]RestArea(aArea)[/color:172wce2e]

Return

&quot;rgomes&quot;:172wce2e escreveu: Boa tarde, Pessoal.

Foram criados 3 campos na SA1:

A1_XCODGRU
A1_XLOJGRU
A1_XNOMGRU

E também foram criados 02 Gatilho para A1_XNOMGRU e uma sequencia para A1_XLOJGRU, até aqui tudo bem agora estou precisando de uma LUZ, por exemplo quando for alterado o Nome Reduzido do codigo &quot;001&quot; preciso que seja alterado todos os clientes que tiverem o XCODGRU = 001 amarrado no cadastro.

Att,

Ronaldo Gomes[/quote:172wce2e]