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
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
Por supuesto que dice si aparecerá ayuda o no.
PARAMIXB[2]
Caracter
Código de proveedor
PARAMIXB[3]
Caracter
Loja
PARAMIXB[4]
Caracter
Prefixo
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
MT123BRW
linenumbers
true
#include "Protheus.ch"
User Function VLCEREQU()
local lRet := .T.
lRet := PARAMIXB[1]
Return lRet
