Perguntas Validação de Produto x Moeda

Mais
7 anos 2 semanas atrás - 7 anos 1 semana atrás #31933 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)
Ultima edição: 7 anos 1 semana atrás por admin.

Por favor Acessar ou Registrar para participar da conversa.

Mais
7 anos 1 semana 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.

Tempo para a criação da página:0.110 segundos
Joomla templates by a4joomla