Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas


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:

MATA110 - Solicitud de compras

País:

Brasil

Ticket:


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



02. DESCRIPCIÓN

El Punto de entrada tiene como función validar todos los ítems da una Solicitud de compras durante cualquier acción, sea esta, inclusión, modificación o borrado.


03. UBICACIÓN

El Punto se encuentra al final de la función y debe utilizarse para validaciones específicas del usuario, donde será controlada por la devolución del punto de entrada, si este fuera .F. el proceso se interrumpirá y si fuera .T. se validará.


04. PARÁMETROS

Nombre

Tipo

Descripción

PARAMIXB[1]

Array

Devolución en el momento de la activación del punto de entrada.

PARAMIXB[2]

Array

Fecha de la solicitud de compras


05. DEVOLUCIÓN

Tipo

Descripción

Lógico

·         Si fuera .T. valida la operación

·         Si fuera .F. no valida la operación.

06. EJEMPLO DE UTILIZACIÓN

ADVPL
#INCLUDE "PROTHEUS.CH"
/*/{Protheus.doc} User Function MT110LOK
Función para incluir nuevas opciones en la SC.
@type  Function
@since 01/10/2024
@version P12
@param param_name, param_type, param_descr
@return return_var, return_type, return_description
/*/
User Function  MT110LOK()
Local nPosPrd  := aScan(aHeader,{|x| AllTrim(x[2]) == 'C1_PRODUTO'})
Local nPosItem := aScan(aHeader,{|x| AllTrim(x[2]) == 'C1_ITEM'})
Local lValido  := .T.


dbSelectArea('SC1')
dbSetOrder(2)


If MsSeek(xFilial('SC1')+aCols[n][nPosPrd]+cA110Num+aCols[n][nPosItem])    
    If (C1_QUJE > 0) .Or. (C1_RESIDUO == 'S')
        lValido := .F.    
    EndIf
EndIf


MsgInfo("¡PE ejecutado!","ATENCIÓN")


Return(lValido)