Configuraciones Previas,Flujo de prueba,Punto de entrada,Ejemplo de uso
ids
paso01,paso02,paso03,paso04
Totvs custom tabs box items
default
yes
referencia
paso01
Aplicar el punto de entrada"MT150PESC".
Tener informado el parámetro MV_MOEDLOC igual a ".T."
En la rutina de Proveedores (Ruta: COMPRAS (SIGACOM) >> Actualizaciones| Archivos Rutina: MATA020) incluir un proveedor.
Mediante la rutina Productos (Ruta: COMPRAS (SIGACOM) >> Actualizaciones| Archivos Rutina: MATA010) ingresar un nuevo producto.
Añadir una solicitud de compra (Ruta: COMPRAS (SIGACOM) >> Actualizaciones | Solicitudes | Solicitud de Compra Programa: MATA110).
Mediante la rutina de “Generar cotizaciones(Ruta: COMPRAS (SIGACOM) >> Cotizaciones | Generar cotizaciones Programa: MATA131)” agregar cotización para la solicitud de compra.
Totvs custom tabs box items
default
no
referencia
paso02
Mediante la rutina de “Actualizar cotizaciones (Ruta: COMPRAS (SIGACOM) >> Cotizaciones | Generar cotizaciones Programa:MATA150)” informar una cotización en moneda 2.
Verificar si de acuerdo al retorno del PE y la configuración del parámetro MV_MOEDLOC, revisar el apartado "04. INFORMACIÓN ADICIONAL" para mayor información.
Totvs custom tabs box items
default
no
referencia
paso03
Descripción
Permite manipular la variable usada para la actualización de la tasa de moneda en “Actualización de cotización(MATA150)".
Programa Fuente:
MATA150.PRX
Función
MT150PESC
ParámetrosSin
parámetros. PARAMIXB// Lógico: .T. (True) o .F. (False) indica si hay actualización en la cotización el valor se obtiene del parámetro MV_MOEDLOC
Retorno:
Lógico: regresa un .T. (True) o .F. (False)
Al tener el parámetro MV_MOEDLOC igual a ".T." el punto de entrada debe regresar ".F." para agregar la cotización personalizada en "Actualización de cotización(MATA150)".
Totvs custom tabs box items
default
no
referencia
paso04
Ejemplo del punto de entrada "MT150PESC".
Bloco de código
language
xml
theme
Emacs
title
MT150PESC
linenumbers
true
#Include 'Protheus.ch'
User Function MT150PESC()
Local lRet:=.T.
Local lM150PESC:=.F.
If ValType(PARAMIXB) == "A" lM150PESC:=PARAMIXB[1]IF FunName()=="MATA150" .AND. lM150PESClRet:=.F.
ENDIF
EndIf
Return lRet
