×
Linguagem de Programação ADVPL
Perguntas Gatilho
- efuzetto
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 9
- Obrigados Recebidos: 0
10 anos 7 meses atrás #17695
por efuzetto
Bom dia a todos,
Estou tentando criar um gatilho mas esta dando erro e peço vossa ajuda.
Tenho a seguinte situacao:
criei uma tabela de preço (ZBJ) e nela tem os campos ZBJ_COD (codigo produto) e ZBJ_PRECO (preco da lista). no orcamento do call center quando digito o campo produto (UB_PRODUTO) preciso que atualize o preço da tabela (UB_PRCTAB).
Agradeço desde ja toda ajuda!
Obrigado!
Estou tentando criar um gatilho mas esta dando erro e peço vossa ajuda.
Tenho a seguinte situacao:
criei uma tabela de preço (ZBJ) e nela tem os campos ZBJ_COD (codigo produto) e ZBJ_PRECO (preco da lista). no orcamento do call center quando digito o campo produto (UB_PRODUTO) preciso que atualize o preço da tabela (UB_PRCTAB).
Agradeço desde ja toda ajuda!
Obrigado!
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 7 meses atrás #17703
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Eduardo boa tarde, no caso o seu gatilho o ideal é vc fazer uma função mesmo, tipo assim:
No gatilho vc vai colocar
UB_PRODUTO
UB_PRCTAB
U_PrcTab(n)
User Function PRCTAB(nPos)
Local nPosCod := aScan(aCols,{|x|AllTrim(x[2])=="UB_PRODUTO"})
Local nPosPrc := aScan(aCols,{|x|AllTrim(x[2])=="UB_PRCTAB"})
nPreco := aCols[nPosPrc,nPos]
If SBJ->(dbSetOrder(1), dbSeek(xFilial("ZBJ")+aCols[nPosCod,nPos]))
nPreco := ZBJ->ZBJ_PRECO
Endif
Return nPreco
bom não testei.
No gatilho vc vai colocar
UB_PRODUTO
UB_PRCTAB
U_PrcTab(n)
User Function PRCTAB(nPos)
Local nPosCod := aScan(aCols,{|x|AllTrim(x[2])=="UB_PRODUTO"})
Local nPosPrc := aScan(aCols,{|x|AllTrim(x[2])=="UB_PRCTAB"})
nPreco := aCols[nPosPrc,nPos]
If SBJ->(dbSetOrder(1), dbSeek(xFilial("ZBJ")+aCols[nPosCod,nPos]))
nPreco := ZBJ->ZBJ_PRECO
Endif
Return nPreco
bom não testei.
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.
- efuzetto
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 9
- Obrigados Recebidos: 0
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 7 meses atrás #17723
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Eduardo boa noite, por favor coloque como você fez, pra ajudar os próximos.
Abraços.
Abraços.
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.
Tempo para a criação da página:0.114 segundos