Tempo de leitura: 2 minutos
O ponto de entrada MT120OK é utilizado para fazer validações específicas de usuário na rotina do Pedido de Compras(MATA121) do módulo compras(SIGACOM) do TOTVS Protheus.
Programa Fonte:
MATA121.prx
Localização no Fonte:
Function A120TudOk()
Descrição:
É responsável pela validação de todos os itens da GetDados do Pedido de Compras / Autorização de Entrega.
Em Que Ponto:
O ponto se encontra no final da função e é disparado após a confirmação dos itens da getdados e antes do rodapé da dialog do PC, deve ser utilizado para validações especificas do usuario onde será controlada pelo retorno do ponto de entrada oqual se for .F. o processo será interrompido e se .T. será validado.
Sintaxe:
User Function MT120OK()
Return lValid
Parâmetros:
Nenhum.
Retorno:
Exemplo:
#INCLUDE "TOTVS.ch"
#INCLUDE "rwmake.ch"
#INCLUDE "TBICONN.ch"
#INCLUDE "FWMVCDEF.CH"
/*{Protheus.doc} User Function MT120OK
-Essa função tem por finalidade mostrar o ponto de entrada MT120OK do Pedido de Compras(MATA121)
que realiza validações específicas do usuário)
@?type User Function
@?author Adilio Costa
@?since 22/10/2025
@?version 1.0
@?Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@?Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@?Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@?Conheça os Cursos e Formações do ProtheusAdvpl:
https://cursos-e-formacoes-protheusadvpl.gr-site.com/
@Participe de nossas comunidades no WhatsApp:
-Comunidade Protheus Backoffice:https://chat.whatsapp.com/KMUIAjwZ6EZ6eAHsLkPTyb
-Comunidade Protheus-RH:https://chat.whatsapp.com/L5dUyAna6xU4ylG5DUgfOW
-Comunidade Protheus-Programação:https://chat.whatsapp.com/LsD6z0apdqKHlOz67bcaEn
-Comunidade Protheus-Framework:https://chat.whatsapp.com/BzUFpjaSnTC3vtsfa77jmG
|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|
*/
User Function MT120OK()
Local nPosPrd := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_PRODUTO'})
Local nPosQtd := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_QUANT'})
Local nPosPrc := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_PRECO'})
Local lValid := .T.
Local nX := 0
For nX :=1 To Len( aCols )
If ( !aCols[nx][Len(aCols[nX])] .And. !Empty(aCols[nX][nPosPrd]) )
If ( Empty(aCols[nX][nPosQtd]) .Or. Empty(aCols[nX][nPosPrc]) )
FWAlertInfo("O Produto: "+aCols[nX][nPosPrd]+" deve possuir quantidade e preço preenchidos, assim não será possível incluir o pedido!","Ponto de Entrada MT120OK")
lValido := .F.
Exit
EndIf
EndIf
Next nX
Return(lValid)
Bem, finalizamos mais um post aqui do Blog ProtheusAdvpl. Qualquer dúvida deixe seu comentário ou nos mande um e-mail para adiliocosta@protheusadvpl.com.br. Grande abraço e fica com Deus.
Link(s) de referência(s):https://tdn.totvs.com/pages/releaseview.action?pageId=6085483