Histórico da Página

01. 

...

DATOS GENERALES

02. 

...

DESCRIPCIÓN

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 Función responsable por imponer una condición de uno o todos los ítems del GetDados del Pedido de compras / Autorización de entrega. Ejemplo utilizado: "Precio unitario menor que 5".

03.

...

UBICACIÓN

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

...

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

...

El punto se encuentra al final de la función y se activa tras confirmar los ítems de la GetDados y antes del pie de página de la dialog del PC, debe utilizarse para validaciones específicas del usuario donde se controlará por medio de la devolución del punto de entrada, si este fuera .F. el proceso se interrumpirá y si fuera .T. se validará.

04. PARÁMETROS

No hay

05. DEVOLUCIÓN

06. EJEMPLO DE UTILIZACIÓN

#INCLUDE "TOTVS.ch"


/*/{Protheus.doc} User Function MT120OK
   ValidaçãoValidación de todos oslos itensítems dodel Getdados dodel PC/AutorizaçãoAutorización de Entregaentrega.
   @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çoPrecio menor do que 5.")
                Exit        
            EndIf    
        EndIf
    Next nX
     
Return(lValido)

...