Configuraciones previas, Flujo de pruebas, Punto de Entrada, Ejemplo de uso, Ejemplo de Grupo de Preguntas
ids
paso1,paso2,paso3,paso4,paso5
Totvs custom tabs box items
default
yes
referencia
paso1
Se crea el siguiente grupo de preguntas con la misma estructura que el grupo estándar. Revisar punto04. INFORMACIÓN ADICIONAL.
Ejemplo MTXTES:
GRUPO
ORDEN
PREGUNTA
TIPO
TAMAÑO
DECIMAL
MTXTES
01
¿Incluir Vínculo NF Entrada ?
N
1
0
MTXTES
02
¿Asiento Contab. On-Line NF Entrada ?
N
1
0
MTXTES
03
¿Muestra Asiento Contab. NF Entrada ?
N
1
0
MTXTES
04
¿Agrupa Asientos NF Entrada ?
N
1
0
Desarrollar y compilar el punto de entrada"LOCXPERG".
Totvs custom tabs box items
default
no
referencia
paso2
En el móduloFacturación(SIGAFAT):
Ir al menúActualizaciones | Facturación | Facturaciones (MATA467N).
El MsgAlert se mostrará con el mensaje ''Punto de entrada LOCXPERG''
Consulta el grupo de preguntas.
Totvs custom tabs box items
default
no
referencia
paso3
Descripción
Punto de entrada para el usuario poder elegir un grupo de preguntas diferente, dependiendo de la rutina que se está ejecutando. El retorno de cada pregunta debe respetar el mismo del grupo de preguntas original, ya que estas se procesan internamente en el fuente. La utilidad de este punto de entrada es mantener el DEFAULT de respuestas para cada documento o cada grupo de documentos, pero con el grupo de preguntas personalizado.
Programa Fuente:
LocxNF.PRW
Función
LocxPERG
Parámetros
Parámetro: nTipo Tipo: Numérico Descripción: Tipo de documento
Retorno:
La primera posición debe tener el grupo de preguntas que debe ser utilizado, y la segunda posición debe contener .T. si las preguntas deben ser mostradas en pantalla, y .F. si no deben ser mostradas. Ejemplo: Return {"MATXNF", .F.}
Estructura del array:
Posición [1]: grupo de preguntas.
Posición [2]: .T. o .F.
Totvs custom tabs box items
default
no
referencia
paso4
Ejemplo PE:
Bloco de código
language
js
theme
Midnight
title
LOCXPERG
linenumbers
true
#INCLUDE "PROTHEUS.CH"
User function LOCXPERG()
Local aRet := {}
If FunName() == "MATA467N" //Factura de Salida
MsgAlert("Punto de Entrada LOCXPERG ")
aRet := {"MTXTES", .T.}
EndIf
Return aRet
