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): |
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.
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á.
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 |
Tipo | Descripción |
Lógico | · Si fuera .T. valida la operación · Si fuera .F. no valida la operación. |
#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)