- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Funções AdvPL
- Validação de Produto x Moeda
Perguntas Validação de Produto x Moeda
- AdrSantana
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 1
- Obrigados Recebidos: 0
7 anos 8 meses atrás - 7 anos 8 meses atrás #31933
por AdrSantana
Validação de Produto x Moeda foi criado por AdrSantana
Bom Dia,
Estou inciando em ADVPL eu gostaria de uma ajuda dos colegas, eu preciso criar um fonte para quando incluir um pedido de venda com um produto importado ele avise na tela que a moeda tem que ser do tipo "2" e que se estiver com a moeda "1" ele altere para dois se o usuário clicar em OK.
pretendo utilizar esse PE de exemplo:
#include “Protheus.ch”
//—————————————————————————
User Function M410LIOK()
//—————————————————————————
Local lOk := .T.
Local aArea := GetArea()
Local nPosProd := AScan(aHeader,{|x| AllTrim(x[2]) == “C6_PRODUTO” })
If AllTrim(aCols[N][nPosProd]) == “CODTESTE”
MsgAlert(“Alerta de produto teste.”)
EndIf
Return (lOk)
Estou inciando em ADVPL eu gostaria de uma ajuda dos colegas, eu preciso criar um fonte para quando incluir um pedido de venda com um produto importado ele avise na tela que a moeda tem que ser do tipo "2" e que se estiver com a moeda "1" ele altere para dois se o usuário clicar em OK.
pretendo utilizar esse PE de exemplo:
#include “Protheus.ch”
//—————————————————————————
User Function M410LIOK()
//—————————————————————————
Local lOk := .T.
Local aArea := GetArea()
Local nPosProd := AScan(aHeader,{|x| AllTrim(x[2]) == “C6_PRODUTO” })
If AllTrim(aCols[N][nPosProd]) == “CODTESTE”
MsgAlert(“Alerta de produto teste.”)
EndIf
Return (lOk)
Ultima edição: 7 anos 8 meses atrás por admin.
Por favor Acessar ou Registrar para participar da conversa.
- admin
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 297
- Obrigados Recebidos: 21
7 anos 8 meses atrás #31940
por admin
Respondido por admin no tópico Validação de Produto x Moeda
BOM DIA SEGUE AJUSTE
#include “Protheus.ch”
//—————————————————————————
User Function M410LIOK()
//—————————————————————————
Local lOk := .T.
Local aArea := GetArea()
Local nPosProd := AScan(aHeader,{|x| AllTrim(x[2]) == “C6_PRODUTO” })
If AllTrim(aCols[N][nPosProd]) == “CODTESTE”
If M->C5_MOEDA <> 2
MsgStop("Atenção Selecionado Produto Importado, Moeda do Pedido Alterada para Tipo 2")
M->C5_MOEDA := 2
Endif
GetDRefresh()
Endif
Return (lOk)Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Funções AdvPL
- Validação de Produto x Moeda
Tempo para a criação da página:0.100 segundos