×
Linguagem de Programação ADVPL
Perguntas Ajuda com Gatilho
- vitorvilas
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 28
- Obrigados Recebidos: 0
11 anos 3 semanas atrás #18204
por vitorvilas
Ajuda com Gatilho foi criado por vitorvilas
Criei uma tabela SZ9 com os campos que necessito, porém preciso que ao preencher o número de uma nota fiscal no campo Z9_NFE, ele busque na SF2 o número da nota que foi digitado, e me traga o valor do F2_VALBRUT daquela nota, para o campo Z9_VLRNF. Já tentei de quase tudo! Conhecimento básico em ADVPL.
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
-
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
11 anos 3 semanas atrás #18206
por kanaamlrr
Respondido por kanaamlrr no tópico Ajuda com Gatilho
Acho que isso deve resolver
Campo: Z9_NFE
Sequencia: 001
Cnt. Dominio: Z9_VLRNF
Tipo: Primario
Regra: SF2->F2_VALBRUT
Posiciona: Sim
Alias: SF2
Ordem: 1
Chave: xFilial("SF2")+M->Z9_NFE
Não testei.
Testa ai e diz se deu certo.
Campo: Z9_NFE
Sequencia: 001
Cnt. Dominio: Z9_VLRNF
Tipo: Primario
Regra: SF2->F2_VALBRUT
Posiciona: Sim
Alias: SF2
Ordem: 1
Chave: xFilial("SF2")+M->Z9_NFE
Não testei.
Testa ai e diz se deu certo.
Por favor Acessar ou Registrar para participar da conversa.
- vitorvilas
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 28
- Obrigados Recebidos: 0
11 anos 3 semanas atrás #18209
por vitorvilas
Respondido por vitorvilas no tópico Ajuda com Gatilho
Vou testar e aviso se funcionou.
Obrigado!
Obrigado!
Por favor Acessar ou Registrar para participar da conversa.
- vitorvilas
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 28
- Obrigados Recebidos: 0
11 anos 3 semanas atrás #18210
por vitorvilas
Respondido por vitorvilas no tópico Ajuda com Gatilho
Funcionou cara! Obrigado!
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 11 meses atrás #19233
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 Ajuda com Gatilho
#INCLUDE "rwmake.ch"
/*/
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Programa ³ CALCPESO Autor ³ Luiz Alberto ³ Data ³ 11/01/10 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Objetivo ³ Funcao responsavel pelo preenchimento dos campos ±±
de Peso Bruto e Peso Liquido do Pedido de Vendas
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Uso ³ Criar Gatilho no Campo C6_QTDVEN igual a U_CALCPESO(M->C6_QUANT)
Contra dominio C6_QTDVEN ³±±
±± ³±±
±± ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
/*/
User Function CalcPeso(nValor)
Local nPesoBruto := 0
Local nPesoLiqui := 0
nPosItem := ASCAN(aHeader, {|aVal| Alltrim(aVal[2]) == "C6_ITEM"})
nPosProd := ASCAN(aHeader, {|aVal| Alltrim(aVal[2]) == "C6_PRODUTO"})
nPosQtde := ASCAN(aHeader, {|aVal| Alltrim(aVal[2]) == "C6_QTDVEN"})
nPosQtdL := ASCAN(aHeader, {|aVal| Alltrim(aVal[2]) == "C6_QTDLIB"})
For _nItem := 1 to Len(aCols)
If ! aCols[_nItem,Len(aHeader)+1]
Posicione("SB1",1,xFilial("SB1")+aCols[_nItem,nPosProd],"")
Posicione("SB5",1,xFilial("SB5")+aCols[_nItem,nPosProd],"")
// Posiciona-se no item do pedido atual gravado e efetua o abatimento caso o mesmo já tenha sido atendido parcialmente
If SC6->(dbSetOrder(2), dbSeek(xFilial("SC6")+aCols[_nItem,nPosProd]+M->C5_NUM+aCols[_nItem,nPosItem]))
If !Empty(aCols[_nItem,nPosQtdL])
nPesoLiqui += ((aCols[_nItem,nPosQtdL]) * SB1->B1_PESO)
nPesoBruto += ((aCols[_nItem,nPosQtdL]) * SB1->B1_PBRUT)
Else
nPesoLiqui += ((aCols[_nItem,nPosQtde] - SC6->C6_QTDENT) * SB1->B1_PESO)
nPesoBruto += ((aCols[_nItem,nPosQtde] - SC6->C6_QTDENT) * SB1->B1_PBRUT)
Endif
Else
If !Empty(aCols[_nItem,nPosQtdL])
nPesoLiqui += (aCols[_nItem,nPosQtdL] * SB1->B1_PESO)
nPesoBruto += (aCols[_nItem,nPosQtdL] * SB1->B1_PBRUT)
Else
nPesoLiqui += (aCols[_nItem,nPosQtde] * SB1->B1_PESO)
nPesoBruto += (aCols[_nItem,nPosQtde] * SB1->B1_PBRUT)
Endif
Endif
EndIf
Next
M->C5_PBRUTO := nPesoBruto
M->C5_PESOL := nPesoLiqui
GetDRefresh()
Return nValor
/*/
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Programa ³ CALCPESO Autor ³ Luiz Alberto ³ Data ³ 11/01/10 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Objetivo ³ Funcao responsavel pelo preenchimento dos campos ±±
de Peso Bruto e Peso Liquido do Pedido de Vendas
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Uso ³ Criar Gatilho no Campo C6_QTDVEN igual a U_CALCPESO(M->C6_QUANT)
Contra dominio C6_QTDVEN ³±±
±± ³±±
±± ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
/*/
User Function CalcPeso(nValor)
Local nPesoBruto := 0
Local nPesoLiqui := 0
nPosItem := ASCAN(aHeader, {|aVal| Alltrim(aVal[2]) == "C6_ITEM"})
nPosProd := ASCAN(aHeader, {|aVal| Alltrim(aVal[2]) == "C6_PRODUTO"})
nPosQtde := ASCAN(aHeader, {|aVal| Alltrim(aVal[2]) == "C6_QTDVEN"})
nPosQtdL := ASCAN(aHeader, {|aVal| Alltrim(aVal[2]) == "C6_QTDLIB"})
For _nItem := 1 to Len(aCols)
If ! aCols[_nItem,Len(aHeader)+1]
Posicione("SB1",1,xFilial("SB1")+aCols[_nItem,nPosProd],"")
Posicione("SB5",1,xFilial("SB5")+aCols[_nItem,nPosProd],"")
// Posiciona-se no item do pedido atual gravado e efetua o abatimento caso o mesmo já tenha sido atendido parcialmente
If SC6->(dbSetOrder(2), dbSeek(xFilial("SC6")+aCols[_nItem,nPosProd]+M->C5_NUM+aCols[_nItem,nPosItem]))
If !Empty(aCols[_nItem,nPosQtdL])
nPesoLiqui += ((aCols[_nItem,nPosQtdL]) * SB1->B1_PESO)
nPesoBruto += ((aCols[_nItem,nPosQtdL]) * SB1->B1_PBRUT)
Else
nPesoLiqui += ((aCols[_nItem,nPosQtde] - SC6->C6_QTDENT) * SB1->B1_PESO)
nPesoBruto += ((aCols[_nItem,nPosQtde] - SC6->C6_QTDENT) * SB1->B1_PBRUT)
Endif
Else
If !Empty(aCols[_nItem,nPosQtdL])
nPesoLiqui += (aCols[_nItem,nPosQtdL] * SB1->B1_PESO)
nPesoBruto += (aCols[_nItem,nPosQtdL] * SB1->B1_PBRUT)
Else
nPesoLiqui += (aCols[_nItem,nPosQtde] * SB1->B1_PESO)
nPesoBruto += (aCols[_nItem,nPosQtde] * SB1->B1_PBRUT)
Endif
Endif
EndIf
Next
M->C5_PBRUTO := nPesoBruto
M->C5_PESOL := nPesoLiqui
GetDRefresh()
Return nValor
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.130 segundos