- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Documento de entrada
×
Linguagem de Programação ADVPL
Perguntas Documento de entrada
- sarraipa
- Autor do Tópico
- Desconectado
- Membro Dourado
-
Menos
Mais
- Postagens: 232
- Obrigados Recebidos: 1
10 anos 3 meses atrás #24308
por sarraipa
Documento de entrada foi criado por sarraipa
Cara tenho a seguinte situação quero quando for incluir um documento de entrada de um tipo de produto o campo de pedido de compra seja obrigatório.
alguém tem alguma luz para este caso.
alguém tem alguma luz para este caso.
Por favor Acessar ou Registrar para participar da conversa.
- THALESCOTR
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 124
- Obrigados Recebidos: 0
10 anos 3 meses atrás #24313
por THALESCOTR
Respondido por THALESCOTR no tópico Documento de entrada
Bom dia André,
utilize o ponto de entrada MT100LOK() na validação da linha do documento de entrada.
User Function MT100LOK()
Local lRet := .T.
Local cCod := Ascan(aHeader,{|x| AllTrim(x[2]) == "D1_COD"} )
Local cTipo:= ""
cTipo := Posicione("SB1",xFilial("SB1")+Acols[N][cCod],"SB1->B1_TIPO")
If cTipo == "seutipo"
If empty(campodopedido)
msgAlert("Preencha o pedido de compra !!")
lRet := .F.
EndIf
EndIf
Return lRet
Att
Thales
utilize o ponto de entrada MT100LOK() na validação da linha do documento de entrada.
User Function MT100LOK()
Local lRet := .T.
Local cCod := Ascan(aHeader,{|x| AllTrim(x[2]) == "D1_COD"} )
Local cTipo:= ""
cTipo := Posicione("SB1",xFilial("SB1")+Acols[N][cCod],"SB1->B1_TIPO")
If cTipo == "seutipo"
If empty(campodopedido)
msgAlert("Preencha o pedido de compra !!")
lRet := .F.
EndIf
EndIf
Return lRet
Att
Thales
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Documento de entrada
Tempo para a criação da página:0.102 segundos