ÍNDICE

1. Visión general
   
2. Ejemplo de utilización
   
3. Tablas

01. VISIÓN GENERAL

Se tiene la necesidad de la creación de un punto de entrada (PE) en la rutina de generación de Notas de Crédito (LOCXNF), el cual remplace la ventana de selección del punto de venta, Informando mediante el PE el código del punto de venta configurado de manera fija.

El PE se detona al momento de realizar la generación de los Documentos Fiscales (NF, NCC, NDC, …) es de suma importancia condicionar su ejecución solo para los documentos que son requeridos.

02. EJEMPLO DE UTILIZACIÓN

Se creó el punto de entrada LOCXPDV para que se pueda definir un punto de venta de forma fija.

Punto de Entrada

¡IMPORTANTE!

En la variable cParam es definido el punto de venta, es de suma importancia tomar en cuenta las siguientes consideraciones:

1. El valor asignado debe de corresponder a un punto de venta valido que se encuentra en la tabla de puntos de venta(CFH), en caso contrario el sistema no permitirá continuar con el proceso.

2. La validación del punto de entrada es muy importante, en ella determinamos bajo qué condiciones será retornado el valor definido para el punto de venta fijo, en el siguiente ejemplo, condicionamos que el valor solo será retornado cuando este en uso la rutina Generación de Notas de Crédito y Débito (MATA465N) o la Rutina de Cambio (LOJA720) y que sea de tipo Nota de Crédito (4), y además este en uso la Controladora Fiscal (lFiscal). Solo cuando sean cumplidas estas condiciones el valor definido será retornado.

      3. En caso de no cumplir con los requisitos de validación definida en el punto anterior, es de suma importancia que la variable cParam quede vacía, observe el siguiente ejemplo.   

Configuraciones previas:

Acceda al TOTVS | Developer Studio - TDS
Cree un código fuente con las reglas necesarias para la empresa.
Compile el referido código fuente.
A continuación se muestra un ejemplo para la utilización:

#INCLUDE "Protheus.ch"
#INCLUDE "TopConn.ch"

User Function LOCXPDV()
Local cRutina := ParamIXB[1]//Parametro que informa la rutina que esta en uso.
Local nEspecie := ParamIXB[2]//Informa el tipo de documento

Local cParam := ''

If cRutina == 'MATA465N' .AND. nEspecie == 4 .AND. Type("lFiscal")#"U"
   If lFiscal
      cParam := '0001'//Punto de venta fijo
      Alert("Su punto de venta es el "+cParam+".")
  EndIf
Else
   cParam := ''//Parametro que siempre debe de ir vacío en caso de que no se cumpla la condición
EndIf

Return cParam

Flujo de prueba:

*Modulo de Facturación

1.  Ingresar a  la rutina Generac. de Notas de Crédito y Débito en el menú Facturación(Actualización|Facturación), informamos los parámetros.

   ¿Formulario propio? = Si

   ¿Tipo de Factura? = Crédito 

   ¿Incluir vinculo?  =  No

   ¿Asiento Contab. On-Line?  =  No

   ¿Muestra Asiento Contab.? = No

   ¿Agrupa Asientos? = No

2. Se ejecuta el punto de entrada y al cumplirse con la condición asigna el valor correspondiente al punto de venta predefinido, muestra mensaje con el valor informado. 
3. Genere una Nota de crédito.

1. Ingresar a  la rutina Generac. de Notas de Crédito y Débito en el menú Facturación(Actualización|Facturación), informamos los parámetros.

   ¿Formulario propio? = Si

   ¿Tipo de Factura? = Débito

   ¿Incluir vinculo?  =  No

   ¿Asiento Contab. On-Line?  =  No

   ¿Muestra Asiento Contab.? = No

   ¿Agrupa Asientos? = No

2. Se ejecuta el punto de entrada, pero al no cumplirse con la condición muestra la ventana para la selección del punto de venta.
3. Genere una nota de débito. 

*Modulo de Control de Tienda

1. En la rutina de Facturaciones en el menú de Facturación(Actualización|Facturación) contar por lo menos con un registro de factura de salida.
2. Ingresar a la rutina Rutina de Cambio en el menú de Control de Tiendas(Actualización|Atención), se ingresarán los productos, seleccionando el origen con documento de entrada e indicaremos la factura deseada
3. Se ejecuta el punto de entrada y al cumplirse con la condición asigna el valor correspondiente al punto de venta predefinido, muestra mensaje con el valor informado. 
4. generar la nota de crédito.

03. Tablas

1. CFH - Punto de Venta

Versión: 12.1.17