- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- PONTO ENTRADA COMPRAS
×
Linguagem de Programação ADVPL
Perguntas PONTO ENTRADA COMPRAS
- felipe_jabu
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 10
- Obrigados Recebidos: 0
11 anos 2 meses atrás #17163
por felipe_jabu
PONTO ENTRADA COMPRAS foi criado por felipe_jabu
no cadastro produto, Temos o campo B1_PRV1 = PREÇO VENDA E O B1_UPRC = ULTIMA COMPRA
Aqui no cliente, ele sempre trabalha alterando o preço de venda dependendo do preço de compra.
eu queria uma ponto de entrada de quando o campo B1_UPRC for alimentado, também alimentar o campo B1_PRV1
como eu poderia fazer funcionar?
Obrigado
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
Aqui no cliente, ele sempre trabalha alterando o preço de venda dependendo do preço de compra.
eu queria uma ponto de entrada de quando o campo B1_UPRC for alimentado, também alimentar o campo B1_PRV1
como eu poderia fazer funcionar?
Obrigado
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 2 meses atrás #17165
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 PONTO ENTRADA COMPRAS
Nao testei, veja se funfa ai.
User function MT103UPC()
Local nPreco :=0
nPreco:= SD1->D1_VUNIT + SD1->D1_VALFRE + (SF1->F1_DESPESA / SD1->D1_QUANT)
If SB1->(dbSetOrder(1), dbSeek(xFilial("SB1")+SD1->D1_COD))
If RecLock("SB1",.f.)
SB1->B1_PRV1 := nPreco
SB1->(MsUnlock())
Endif
Endif
Return nPreco
User function MT103UPC()
Local nPreco :=0
nPreco:= SD1->D1_VUNIT + SD1->D1_VALFRE + (SF1->F1_DESPESA / SD1->D1_QUANT)
If SB1->(dbSetOrder(1), dbSeek(xFilial("SB1")+SD1->D1_COD))
If RecLock("SB1",.f.)
SB1->B1_PRV1 := nPreco
SB1->(MsUnlock())
Endif
Endif
Return nPreco
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.
- felipe_jabu
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 10
- Obrigados Recebidos: 0
11 anos 2 meses atrás #17173
por felipe_jabu
Respondido por felipe_jabu no tópico PONTO ENTRADA COMPRAS
Obrigado Luiz!!
Funcionou direitinho...
Obrigado.
Felipe Cunha
Funcionou direitinho...
Obrigado.
Felipe Cunha
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- PONTO ENTRADA COMPRAS
Tempo para a criação da página:0.078 segundos