PE MT116TEL - Incluye parámetros al array en Conocimiento de flete

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:	MATA116 - Conocimiento de flete
País:	Brasil
Ticket:
Requisito/Story/Issue (informe el requisito relacionado):

02. DESCRIPCIÓN

El Punto de entrada MT116TEL permite sustituir la pantalla estándar de parámetros en el módulo Conocimiento de flete.

03. UBICACIÓN

MATA116 > “Conocimiento de flete”.

Se ejecuta al inicio de la función MATA116A - Programa de digitación de Conocimiento de flete y sustituye la pantalla estándar de parámetros. El punto de entrada debe colocar todos los parámetros en el Array “aParametros”, configure el siguiente cuadro y podrá mostrarlos, opcionalmente, en una pantalla personalizada por el cliente.

04. PARÁMETROS

aParametros	Descripción
01	Define la rutina: 1-Inclusión / 2-Borrado
02	Considerar facturas: 1 - Compra , 2 - Devolución
03	Fecha inicial para filtro de las Facturas originales
04	Fecha final para filtro de las Facturas originales
05	Cód. Proveedor para filtro de las Facturas originales
06	Tienda Proveedor para filtro de las Facturas originales
07	¿Utiliza formulario proprio? 1-Sí,2-No
08	Nº de la Factura de conocimiento de flete
09	Serie de la Factura de conocimiento de flete
10	Código del Proveedor de la Factura de FLETE
11	Tienda del Proveedor de la Factura de flete
12	Tes utilizada en la Clasificación de la factura
13	Valor total del Flete sin impuestos
14	Estado/Prov/Reg de Origen del flete
15	Agrupa productos: .T. , .F
16	Base del Icms retenido
17	Valor de Icms retenido
18	Filtra factura con conocimiento de flete .F. , .T.
19	Clase de la factura
20	Modalidad de ingreso

05. DEVOLUCIÓN

Nombre	Tipo	Descripción
lRet	Lógico	.T. = Continua / .F. = Interrumpe

06. EJEMPLO DE UTILIZACIÓN

ADVPL

#Include 'Protheus.ch'
/*/{Protheus.doc} MT116TEL
Incluye parámetros al array en el Conocimiento de flete.
@type     function
@author      
@since       19/09/2024
/*/
User Function MT116TEL()


Local lRet := .T.


//Personalizaciones del cliente


aAdd(aParametros,1)             // 01o.parámetro: Define la rutina: 1-Inclusión / 2-Borrado
aAdd(aParametros,1)             // 02o.parámetro: Considerar facturas: 1 - Compra , 2 - Devolución
aAdd(aParametros,date()-100)    // 03o.parámetro: Fecha inicial para filtro de las Facturas originales
aAdd(aParametros,date())        // 04o.parámetro: Fecha final para filtro de las Facturas originales
aAdd(aParametros,SPACE(6))      // 05o.parámetro: Cód. Proveedor para filtro de las Facturas originales
aAdd(aParametros,SPACE(2))      // 06o.parámetro: Tienda Proveedor para filtro de las Facturas originales
aAdd(aParametros,2)             // 07o.parámetro: ¿Utiliza Formulario propio? 1-Sí,2-No
aAdd(aParametros,SPACE(9))      // 08o.parámetro: Nº de la Factura de conocimiento de flete
aAdd(aParametros,SPACE(3))      // 09o.parámetro: Serie de la Factura de conocimiento de flete
aAdd(aParametros,SPACE(6))      // 10o.parámetro: Código del Proveedor de la Factura de FLETE
aAdd(aParametros,SPACE(2))      // 11o.parámetro: Tienda del Proveedor de la Factura de flete
aAdd(aParametros,SPACE(3))      // 12o.parámetro: Tes utilizada en la Clasificación de la factura
aAdd(aParametros,0)             // 13o.parámetro: Valor total del Flete sin impuestos
aAdd(aParametros,SPACE(2))      // 14o.parámetro: Estado/Prov/Reg de Origen del flete
aAdd(aParametros,.F.)           // 15o.parámetro: Agrupa productos: .T. , .F.
aAdd(aParametros,0)             // 16o.parámetro: Base del Icms retenido
aAdd(aParametros,0)             // 17o.parámetro: Valor de Icms retenido
aAdd(aParametros,.F.)           // 18o.parámetro: Filtra factura con conocimiento de flete .F. , .T.
aAdd(aParametros,SPACE(5))      // 19o.parámetro: Clase de la factura
aAdd(aParametros,SPACE(5))      // 20o.parámetro: Modalidad de ingreso


If  ! l116Auto  //  Si no ejecutara la rutina automática    


      //-- Pantalla del usuario para exhibición / modificación de los parámetros (opcional)
//-- Ej. de pregunta (pueden ser opciones) p/ Anular o Confirmar la ejecución de la rutina (recurso obligatorio para el punto de entrada)


      lRet := ( Aviso('ATENCIÓN','¿Ejecuta la rutina Conocimiento de flete?',{'Anula','Confirma'}) == 2 )
EndIf
Return lRet

Atalhos

Árvore de páginas