Configuraciones Previas, Flujo de prueba, Punto de entrada, Ejemplo de uso
ids
paso1,paso2,paso3,paso4
Totvs custom tabs box items
default
yes
referencia
paso1
Desarrollar y compilar el punto de entrada"VLCEREQU".
Parámetros: MV_AGENTE = "SSSSS" (Determina si la empresa usuario es Agente de Retención) . MV_2DUPREF = "SF1->F1_SERIE" (Campo del dato a ser grabado en el prefijo del titulo cuando este es emitido automáticamente por el modulo de Compras ) .
A través de la rutina MATA360 - Condición de Pago (SE4) incluir una condición de pago.
Mediante rutina FINA010 - Modalidades (SED) se incluye una modalidad.
Usando la rutina MATA995 - Impuestos Variables (SFB) configurar el impuesto RIR.
Usando la rutina MATA080 - Tipos de Entrada y Salida (SF4/SFC) configurar un TES con el impuesto RIR.
Tener configurado la impresión de certificados de retenciones revisar 04. ASUNTOS RELACIONADOS.
Totvs custom tabs box items
default
no
referencia
paso2
Mediante la rutina MATA101N - Factura entrante (SF1/SD1) incluir una factura con las configuraciones anteriores. Al finalizar aparece el mensaje de que se ha generado un certificado de retención
Usando la rutina MATA101N - Factura entrante (SF1/SD1) elimine la factura generada anteriormente
La nota será eliminada o no según la declaración creada en el punto de entrada
Totvs custom tabs box items
default
no
referencia
paso3
Descripción
Agregar validaciones al eliminar una nota con certificado
Programa Fuente:
LOCXEQU.PRX
Función
VLCEREQU
Parámetros
Nombre
Tipo
Descripción
PARAMIXB[1]
Lógico
Indica si aparece mensaje o no.
PARAMIXB[2]
Caracter
Código de proveedor
PARAMIXB[3]
Caracter
Tienda
PARAMIXB[4]
Caracter
Prefijo
PARAMIXB[5]
Caracter
Serie
PARAMIXB[6]
Caracter
Documento
Retorno:
Lógico: .T. (True) o .F. (False)
Al regresar .T. la nota no se borrará y aparecerá un mensaje; al regresar .F. la nota se eliminará y no aparecerá ningún mensaje en la pantalla
Totvs custom tabs box items
default
no
referencia
paso4
Ejemplo del Punto de Entrada: "VLCEREQU".
Bloco de código
title
MT123BRWVLCEREQU
linenumbers
true
#include "Protheus.ch"
User Function VLCEREQU()
local lRet := .T.
lRet := PARAMIXB[1]
Return lRet
