Perguntas Gatilho
- vfranceschi
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 5
- Obrigados Recebidos: 0
11 anos 2 meses atrás #16599
por vfranceschi
Gatilho foi criado por vfranceschi
Bom dia pessoal
tudo bem?
estou bem perdido para fazer um gatilho.
Criei um campo na SB1 chamado "B1_partn" ele é referente ao "part number" do produto, o que eu precisaria da ajuda de vocês na verdade seria, toda vez que num pedido de compra por exemplo eu digitasse o "codigo do produto" ele trouxesse o "part number" ou se eu digitasse o "part number" ele trouxesse o "codigo do produto" (b1_cod)
sou bem fraco em questão gatilhos
agradeço desde de ja toda ajuda
tudo bem?
estou bem perdido para fazer um gatilho.
Criei um campo na SB1 chamado "B1_partn" ele é referente ao "part number" do produto, o que eu precisaria da ajuda de vocês na verdade seria, toda vez que num pedido de compra por exemplo eu digitasse o "codigo do produto" ele trouxesse o "part number" ou se eu digitasse o "part number" ele trouxesse o "codigo do produto" (b1_cod)
sou bem fraco em questão gatilhos
agradeço desde de ja toda ajuda
Por favor Acessar ou Registrar para participar da conversa.
- THALESCOTR
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 124
- Obrigados Recebidos: 0
11 anos 2 meses atrás #16605
por THALESCOTR
Respondido por THALESCOTR no tópico Gatilho
Boa tarde Vinicius, não sei se entendi muito bem, mas vamos lá.
Crie um gatilho do campo D1_COD para o Campo D1_COD com a regra por exemplo U_TESTE()
Crie um índice B1_FILIAL+B1_PARTN
User Function TESTE
Local nCodProd := Ascan(aHeader,{|x| AllTrim(x[2]) == "D1_COD"} )
Local cPartN := ""
Local cCod := ""
cPartN := Posicione("SB1",1,xFilial("SB1") + AllTrim(Acols[N][nCodProd]),"B1_COD")
If !empty(cPartN) //encontrou pela part number
cCod := cPartN
Else
cCod := Posicione("SB1",1,xFilial("SB1") + AllTrim(Acols[N][nCodProd]),"B1_PARTN")
EndIf
Return cCod
A função TESTE() retornará o part number ou o código do produto, vê se é isso que tu precisa.
Att
Thales
Crie um gatilho do campo D1_COD para o Campo D1_COD com a regra por exemplo U_TESTE()
Crie um índice B1_FILIAL+B1_PARTN
User Function TESTE
Local nCodProd := Ascan(aHeader,{|x| AllTrim(x[2]) == "D1_COD"} )
Local cPartN := ""
Local cCod := ""
cPartN := Posicione("SB1",1,xFilial("SB1") + AllTrim(Acols[N][nCodProd]),"B1_COD")
If !empty(cPartN) //encontrou pela part number
cCod := cPartN
Else
cCod := Posicione("SB1",1,xFilial("SB1") + AllTrim(Acols[N][nCodProd]),"B1_PARTN")
EndIf
Return cCod
A função TESTE() retornará o part number ou o código do produto, vê se é isso que tu precisa.
Att
Thales
Por favor Acessar ou Registrar para participar da conversa.
- vfranceschi
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 5
- Obrigados Recebidos: 0
11 anos 2 meses atrás #16610
por vfranceschi
Respondido por vfranceschi no tópico Gatilho
Thales obrigado pela sua ajuda, mas consegui resolver da seguinte forma
Campo-C6_PARNT
sequencia -001
Cnt.dominioC6_PRODUTO
tipo - primario
posiciona - sim
alias - SB1
REGRA -M->C6_PRODUTO := SB1->B1_PARTN
ORDEM- 0
CHAVE - xfilial("SB1")+M->C6_PARTN
Campo-C6_PARNT
sequencia -001
Cnt.dominioC6_PRODUTO
tipo - primario
posiciona - sim
alias - SB1
REGRA -M->C6_PRODUTO := SB1->B1_PARTN
ORDEM- 0
CHAVE - xfilial("SB1")+M->C6_PARTN
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.112 segundos