Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 3 minutos


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:

MATA140 - Factura previa de entrada

País:

Brasil

Ticket:


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



02. DESCRIPCIÓN

El punto de entrada MT140LOK tiene como objetivo, validar las informaciones completadas en el aCols de cada ítem del documento previo de entrada.


03. UBICACIÓN

Function Ma140LinOk() - Función responsable por la validación de cada ítem del documento previo de entrada que se está registrando.


04. PARAMETROS

Nombre

Tipo

Descripción

PARAMIXB[1]

Array of Record

Variable lógica que valida el contenido de la línea del aCols para continuar o impedir que siga adelante.

PARAMIXB[2]

Array of Record

Vector de valores que contienen los totales calculados en el documento previo de entrada

PARAMIXB[3]

Array of Record

Vector de valores que contienen los gastos calculados en el documento previo de entrada.

05. DEVOLUCIÓN

Tipo

Descripción

Lógico

Variable lógica de respuesta para continuar con la modificación de la línea o impedir al sistema que continúe con la operación.

06. EJEMPLO DE UTILIZACIÓN

ADVPL
#INCLUDE "PROTHEUS.CH"


User Function MT140LOK
/*/{Protheus.doc} User Function MT140LOK
Función validar ítem por ítem en el documento previo de entrada.
@type  Function
@since 30/09/2024
@version P12
@param param_name, param_type, param_descr
@return return_var, return_type, return_description
/*/
Local lRet   := ParamIXB[1]
Local aTotais:= ParamIXB[2]
//aTotais[1] Valor unitario
//aTotais[2] Descuento
//aTotais[3] Valor Total
Local aDesp  := ParamIXB[3] // Validaciones específicas que se realizarán
//aDesp[2] // descuento
//aDesp[4] // valor de flete
//aDesp[6] // seguro
//aDesp[8] // gasto


If aTotais[2] > 0
    lRet:=.T.
Else
    MsgInfo("Informe el valor del descuento","¡DESCUENTO EN CERO!")
    lRet:=.F.
EndIf
Return lRet