Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 2 minutos


01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:


TOTVS Backoffice (Linha Protheus) - Compras (SIGACOM)
Função:MATA120
País:Brasil
Ticket:
Requisito/Story/Issue (informe o requisito relacionado) :


02. DESCRIÇÃO

Função responsável por impor uma condição de um ou todos os itens do GetDados do Pedido de Compras / Autorização de Entrega. Exemplo utilizado: "Preço unitário menor que 5".


03. LOCALIZAÇÃO

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 específicas do usuário onde será controlada pelo retorno do ponto de entrada o qual se for .F. o processo será interrompido e se .T. será validado.


04. PARAMETROS

Não há

05. RETORNO

Tipo

Descrição

Logico
  • Se .T. linha validada segue o processo
  • Se .F. interrompe o processo

06. EXEMPLO DE UTILIZAÇÃO

ADVPL
#INCLUDE "TOTVS.ch"


/*/{Protheus.doc} User Function MT120OK
   Validação de todos os itens do Getdados do PC/Autorização de Entrega.
   @type Function
   @since 11/09/2024
   @author user
/*/
 
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 lValido   := .T.
    Local nX        := 0
     
    For nX :=1 To Len( aCols )    
        If ( !aCols[nx][Len(aCols[nX])] .And. !Empty(aCols[nX][nPosPrd]) )    
            If aCols[nX][nPosPrc]<5
                lValido := .F.
                MsgAlert("Preço menor do que 5.")
                Exit        
            EndIf    
        EndIf
    Next nX
     
Return(lValido)