01. DATOS GENERALES

Producto:

TOTVS Backoffice

Línea de producto:

Línea Protheus

Segmento:

Backoffice

Módulo:

 

TOTVS Backoffice (Línea Protheus) - Compras (SIGACOM)

Función:

MATA120

País:

Brasil

Ticket:


Requisito/Story/Issue (informe el requisito relacionado):



02. DESCRIPCIÓN

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

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

Tipo

Descripción

Lógico

  • Si .T. línea validada, sigue el proceso
  • Si .F. interrumpe el proceso

06. EJEMPLO DE UTILIZACIÓN

ADVPL
#INCLUDE "TOTVS.ch"


/*/{Protheus.doc} User Function MT120OK
   Validación de todos los ítems del Getdados del PC/Autorización 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("Precio menor que 5.")
                Exit        
            EndIf    
        EndIf
    Next nX
     
Return(lValido)