Instituto Superior “Luis E.

Valcárcel”
Computación e Informática

DEDICATORIA

Es Un Gran Esfuerzo En El Presente Trabajo, Que Nos Permitio Un Nuevo

Peldaño En Nuestra Vida, Dedicamos A Nuestros Familiares Como Filtro De
Un Anhelo Compartido.

En Especial A Nuestras Madres Que Nos Apoyaron En Todo Momento Para

Que Nuestra Meta Se Llegar A Cumplir Y A Nuetros Hijos Por Ser Nuestro
Motor Y Motivo De Ser.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 1
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

AGRADECIMIENTO

nuestro agradecimiento a nuestro señor dios todo poderoso, por permitirnos

día a día a continuar adelante con metas propósitos.

nuestro sinceros agradecimiento a los profesores del instituto superior

tecnológico “Luis e. Valcárcel” en especial a los docente del programa de
estudio de Computación e informática, quien supo orientar e incentivar en
este reto.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 2
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

INDICE

1. INTRODUCCIÓN………….……………………………………………………
2. PROBLEMA…………………………………………………………………
2.1 Diagnóstico de la situación problemática……………………………..……
2.2 Planteamiento del problema………………………………...………………
3. HIPOTESIS O PROPUESTA DE SOLUCIÓN………………………………
4 .JUSTIFICACIÓN DEL TRABAJO DE APLICACIÓN PROFESIONAL…
4.1. En lo social……………………………………………………………….
4.2. En lo tecnológico………………………………………………………….
5. OBJETIVOS…………………………………………………………………..
5.1. Objetivo general………………………………………………………...
5.2. Objetivos específicos…………………………………………………….
6. MARCO TEORICO…………………………………………………………….
6.1. Antecedentes……………………………………………………………..
6.2. Fundamentación teórico del trabajo de aplicación profesional……..
7. ESTRATEGIAS METODOLÓGICAS………………………………………..
8. RESULTADOS………………………………………………………………..
9. CONCLUSIONES…………………………………………………………….
10. RECOMENDACIONES………………………………………………………
11. REFERENCIAS BIBLIOGRÁFICAS………………………………………..
11.1 Bibliografía………………………………………………………………
11.2 Web grafía……………………………………………………………….

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 3
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

INTRODUCIÓN

Actualmente es notable que los Sistemas de Información son necesarios en la

mayoría de empresas para poder cumplir con los objetivos de los negocios
así como también en la toma de decisiones, pero hay muchas empresas que
no cuentan con un Sistema de Información que permita facilitar sus procesos
de ventas, el cual hace que la empresa tenga pérdida de tiempo en cuanto a
la atención, es por ello que se implementará un Sistemas de Información en la
Empresa VERDULERIA MAX, que está ubicado en el ovalo de Nuevo Ilo, que
mejore estos procesos, el sistema se basará en el problema actual por el cual
está pasando la empresa, para el sistema se implementará la metodología
AUP (Proceso Unificado Ágil) y se desarrollará en Visual Fox Pro 2019 y
Motor de Base de Datos de Fox Pro 2019. El sistema de gestión de venta
será muy útil para mejorar los procesos de Ventas que se desarrollan en la
Empresa Max, que esta ubicado en el ovalo de Nuevo Ilo.

Palabras Claves: Sistemas de gestión de venta, Procesos, Compras, Ventas,

Metodología AUP

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 4
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

2. EL PROBLEMA.
2.1 DIAGNÓSTICO DE LA SITUACIÓN PROBLEMÁTICA.
La empresa Humaju al presentar este tipo de problemas en las
áreas de compras y ventas le ha ocasionado lo siguiente:
El tiempo para la elaboración de la orden de venta y el
comprobante de pedido del cliente, demanda demasiado tiempo ya
que para emitir la orden de servicio se tiene que validar la
información con los documentos en físico con respecto a los
productos que soliciten, además una vez realizado la venta la
emisión del comprobante se genera a través de facturas que son
registradas de manera manual, toda esta actividad genera demoras
debido que al contar con toda la información en físico no se puede
acceder a ella fácilmente, incluso si el cliente es nuevo o recurrente,
siempre se tendrán que volver a tomar los datos para la emisión del
comprobante, lo cual, ocasiona demoras en la atención.

El tiempo de elaboración de la orden de compra para los productos

faltantes, esta actividad genera retrasos ya que los inventarios se
manejan de manera escrita, lo cual, genera que se invierta
demasiado tiempo en la consolidación para la reposición de todos
los productos faltantes y en muchas ocasiones se tiene que volver
hacer el inventario de los artículos debido a que la información no
es exacta.
El tiempo para emitir la cotización al cliente, el cual, varía de
acuerdo al requerimiento o necesidad del mismo, en donde en
muchas ocasiones los clientes quedan en cola esperando ser
atendidos debido a que la atención se realiza de manera manual y
esto demanda mucho tiempo.
El tiempo para la elaboración del kardex valorizado, esta actividad
controla y registra todas las entradas y salidas de los productos de
manera manual, lo que lleva demasiado tiempo debido a que la
información está incompleta y los materiales no se encuentran con
facilidad.
El tiempo para generar el pedido a los proveedores, esta actividad
demanda demasiado tiempo ya que la realizan de manera manual,
debido que al no contar con una base de datos o un sistema de
información se tiene que realizar por cada orden todos los
documentos emitidos al proveedor, lo cual, de por sí ya genera
retraso en la adquisición de productos y en la atención a los
clientes.
El nivel de Satisfacción del cliente, debido a los problemas
presentados la satisfacción que tiene el cliente hacia los servicios

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 5
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

brindados por la empresa han ido disminuyendo conforme a los

inconvenientes mostrados.
El proceso mostrado anteriormente muestra problemas en:
 Los reportes no son entregados en las fechas solicitadas.
 Demora en la toma de decisiones para el proceso de
compra.
 Los reportes de ventas no están bien detallados.
 Los procesos de compras y ventas no se realizan en el
tiempo determinado.

2.2 PLANTEAMIENTO DEL PROBLEMA.

Situación Problemática Realidad Mundial: En los últimos años

el mundo de los negocios y la actividad del comercio, han sufrido
grandes cambios y modernizaciones debido al gran desarrollo de
las comunicaciones, la incorporación de la tecnología en los
procesos operativos, la aparición de nuevos conceptos o teorías ,
las predicciones y la orientación que en los grandes foros y
congresos expresan los expertos, la imperiosa necesidad de las
empresas de actualizar y modernizar su operación para logar
mayores eficiencias y la aparición de nuevos competidores.
Cualquiera que sea el sector al que pertenezca su empresa, estos
cambios obligan a mejorar el desempeño si desea permanecer e
incrementar su participación en el mercado. (Montoya, 2010).
Según Martínez J., 2009, menciona que las compras representan
un factor clave del éxito de cualquier institución que quiere alcanzar
la excelencia. En estos tiempos de crisis, contar con un proceso de
compras optimo, aumenta la probabilidad de alcanzar el éxito.
(Martínez, 2009). En otro ámbito, el estilo y la capacidad de venta
han sido factores de primerísima importancia en el desarrollo de los
países que han devenido en grandes potencias industriales. Tales
son los casos, para citar algunos, de Inglaterra, los Estados Unidos
y Japón. Estas naciones, especialmente los Estados Unidos,
históricamente se caracterizaron por una fuerte resolución en su
estilo de ventas, que les permitió el control de vastos mercados.
(Erickson, 2001).

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 6
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

Realidad Nacional Según Calderón (2014) en el Perú, las

organizaciones que emplean un sistema de información constituyen
un alto porcentaje en el mundo comercial. El sector comercial
engloba las actividades que suponen el intercambio de productos y
servicios que serán, o bien transformados para la reventa o puestos
directamente a disposición del consumidor final. El comercio cobra
especial relevancia ya que es uno de los principales sectores
motores de la economía no sólo a nivel nacional sino a nivel 3
mundial que ha sufrido una intensa modificación como
consecuencia del avance tecnológico y que ha conseguido
globalizar la inmensa mayoría de productos y servicios. (Sánchez
de Puerta P., 2014). Dzodan (2013), presidente de la empresa
alemana SAP menciona lo siguiente: “En el Perú les brindamos esta
tecnología a más de 600 compañías, de las cuales las dos terceras
partes son pequeñas y medianas empresas”. (Diario Comercio,
2013). Según Polastri (2015), Gerente General de Google Perú, las
pequeñas y medianas empresas peruanas presentan un bajo nivel
de virtualización: solo el 15% de las pymes utilizan herramientas
digitales en sus operaciones de negocio y poco más del 60% no
entienden el valor de estas herramientas. (Diario Gestión, 2015).
Según, el Boletín Estadístico mensual del Sector Servicios del
Instituto Nacional de Estadística e Informática, 2016, el sector
comercio en noviembre de 2016, registró una variación de 0,47%,
respecto al mismo mes del año anterior, determinado por el mayor
ritmo de crecimiento en comercio mayorista y minorista, donde el
comercio al por mayor creció en 0.88% y el comercio al por menor
incrementó en 0.34%. (Instituto Nacional de Estadística e
Informática, 2016).

Realidad Empresarial En la Empresa VERDULERIA MAX, que

esta ubicado en el ovalo de Nuevo Ilo, se registran de manera
manual las operaciones de las áreas de compras (stock, registro de
productos y órdenes de compra para reposición de artículos) y
ventas (registro de venta, cotizaciones, emitir comprobante de pago
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 7
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

del cliente). La empresa ovalo al realizar sus procesos de manera

manual, en la mayoría de los casos ocasiona que se pierda la
información o que la misma esté incompleta para realizar un
requerimiento, originando retrasos en la atención a los clientes. De
acuerdo a lo mencionado estos problemas originan que no se
pueda analizar la información tanto de compra y venta que ayude a
la toma de decisiones y control en la empresa.

3. HIPOTESIS O PROPUESTA DE SOLUCIÓN.

El desarrollo e implementación de un Sistema de Información permitirá

mejorar los procesos de Ventas de la Empresa VERDULERIA MAX,
ubicada en el ovalo de Nuevo Ilo.

4. JUSTIFICACIÓN DEL TRABAJO DE APLICACIÓN PROFESIONAL.

El desarrollo del presente estudio en la Empresa VERDULERIA MAX, que

está ubicada en el ovalo de Nuevo Ilo, nos permite brindar la siguiente
solución a las necesidades actuales de las áreas de ventas.

4.1 Justificación Práctica

Ingeniería es la profesión que aplica con fundamento y responsabilidad

los conocimientos científicos y técnicos logrados a través del estudio, la
experiencia y la práctica para emplear racional y económicamente los
recursos y las fuerzas de la naturaleza en beneficio del hombre y la
sociedad. (Cuadros E., 2006).
Dado el carácter multidisciplinar de los sistemas de información, se
adquieren conocimientos y se desarrollan habilidades de muy diversa
índole. A las capacidades propias de un Ingeniero de Sistemas,
centradas en el desarrollo e integración de aplicaciones informáticas,
se añaden las específicas relacionadas con los aspectos
organizacionales, empresariales, de interacción y de comunicación
propios de los sistemas de información. (ACM/IEEE. 2008).
Según lo citado anteriormente el equipo desarrollará un sistema de
información que resolverá la problemática con respecto a la demora de

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 8
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

atención, así como la falta de información en los procesos de Ventas

de la Empresa Max que está ubicada en el ovalo de Nuevo Ilo.
4.2 En lo social.

Según Kotler & Keller, (2006), refieren que la calidad de

productos, servicios, la satisfacción de los clientes y la
rentabilidad de la empresa están estrechamente relacionadas.
Una gran calidad conlleva un alto nivel de satisfacción de sus
clientes que a su vez apoya a unos precios más altos y con
frecuencia costos más bajos. Por otra parte, Rodríguez, Camero
& Gutiérrez, (2002); Delgado, (2004), define la lealtad como un
comportamiento efectivo materializado en la repetición de las
compras del mismo producto, marca o proveedor, sin apreciar
las intenciones declaradas por el cliente respecto de futuras
adquisiciones.

Ingeniería es la profesión que aplica con fundamento y

responsabilidad los conocimientos científicos y técnicos logrados
a través del estudio, la experiencia y la práctica para emplear
racional y económicamente los recursos y las fuerzas de la
naturaleza en beneficio del hombre y la sociedad. (Cuadros E.,
2006). Dado el carácter multidisciplinar de los sistemas de
información, se adquieren conocimientos y se desarrollan
habilidades de muy diversa índole. A las capacidades propias de
un Ingeniero de Sistemas, centradas en el desarrollo e
integración de aplicaciones informáticas, se añaden las
específicas relacionadas con los aspectos organizacionales,
empresariales, de interacción y de comunicación propios de los
sistemas de información. (ACM/IEEE. 2008). Según lo citado
anteriormente el equipo desarrollará un sistema de información
que resolverá la problemática con respecto a la demora de
atención, así como la falta de información en los procesos de
Ventas de la Empresa VERDULERIA MAX, que está ubicada en
el ovalo de Nuevo Ilo.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 9
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

4.3 En lo tecnológico.

Estas tendencias tecnológicas tienen repercusiones en

prácticamente todos los campos de actividad social, como la
industria, las finanzas o el comercio, y en el modo de vida social.
En este contexto, profundamente sujeto a cambios imprevisibles
y extremadamente dependiente de la información, las
organizaciones van adquiriendo conocimientos y experiencias
que les ayudan a obtener mayor rentabilidad de sus recursos de
información, a conseguir aumentos de la productividad de su
información. (Esmeralda & Elia, 2019). Por tal motivo el
desarrollo e implementación de un sistema de información para
mejorar los procesos de Ventas en la Empresa VERDULERIA
MAX, que está ubicado en ovalo de Nuevo Ilo, permitirá dar el
soporte adecuado a las áreas involucradas, debido a que los
procesos serán más dinámicos y entendibles en la interacción
con el usuario.

TIPO Y NIVEL DE LA INVESTIGACIÓN

Tipo de Investigación

El presente trabajo desarrollará un sistema informativo que

permitirá en el desarrollo de la empresa, para la mejorar los
procesos y el tipo de investigación es aplicada.

Nivel de Investigación

La presente investigación busca explicar el porqué de los hechos

mediante el establecimiento de relaciones causa-efecto de los
procesos de compra y venta de la empresa VERDULERIA MAX

5. OBJETIVOS.

5.1 Objetivo general.

Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 10
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

Desarrollar e implementar un Sistema de Información

“VERDULERIA MAX”, con la metodología Proceso Unificado Ágil
(AUP) para mejorar los procesos de Ventas en la Empresa de
VERDULERIA MAX, ubicada en el ovalo de Nuevo Ilo.

5.2 Objetivos específicos.

a) Reducir el tiempo para elaborar orden y comprobante de pedido
del cliente.
b) Reducir el tiempo de elaboración de orden de compra de
productos faltantes.
c) Reducir el tiempo para emitir cotización al cliente.
d) Reducir el tiempo de elaboración de kardex valorizado.
e) Reducir tiempo para generar pedido a proveedores.
f) Mejorar el nivel de satisfacción del cliente.

6. MARCO TEORICO

6.1 Antecedentes.

Janeth Troncoso Huamani (2010). Sistema Informático para la Gestión

de Almacén en el Hospital Hogar de la Madre Año.
En esta tesis el sistema de información se realiza en base a la gestión
de almacén que forma parte importante dentro de una empresa, porque
es considerado como aspecto vital dentro del sistema logístico, es así
que el presente informe de investigación realizado en el Hospital Hogar
de la Madre, se desarrolló e implementó un sistema informático para la
gestión de almacén; asimismo se justificó no solo para automatizar el
proceso llevado a cabo en el área de almacén, sino mejorar con nuevas
técnicas de manejo de almacén.
Se planteó como objetivo determinar la influencia de un Sistema
Informático para la Gestión de Almacén en el Hospital Hogar de la
Madre. En este estudio se tomaron dos indicadores, tiempo de
búsqueda de un fármaco y tiempo de generación de reporte, con el
propósito de realizar una medición.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 11
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

La tesis se encuentra desarrollada bajo la metodología de desarrollo

RUP por su flexibilidad. En el aspecto metodológico se abordó el tipo de
estudio experimental con un diseño pre-experimental.
Asimismo, la población para ambos indicadores está formada por 21
procesos de búsqueda de un fármaco y 12 procesos de generación de
reporte; se contó con dos muestras, las cuales están conformadas por
21 procesos de búsqueda de un fármaco y 12 procesos de generación
de reporte.
Posterior a la implementación del sistema informático se observó que el
tiempo de búsqueda de un fármaco se redujo de 26:14 minutos a 1:04
minutos y el tiempo de generación de reporte se redujo de 62:14
minutos a menos de un 20 minuto (0:42 segundos), donde finalmente se
concluyó que un Sistema de Información mejora la gestión de almacén
en el Hospital Hogar de la Madre.

Correlación: De esta tesis se tomará como referencia los procesos

para realizar el sistema de información para la gestión del almacén, así
como las mejoras de reducción de los tiempos de atención, así también
como automatizar y mejorar el proceso que lleva a cabo el área de
almacén. Para ello se planteó realizar un sistema de información que
permita mejorar la operación en almacén, teniendo acceso rápido a la
información y evitar pérdidas de tiempos. En esto nos guiaremos para
poder realizar nuestro sistema de información para la empresa ovalo.
La metodología RUP que están utilizando en esta tesis, la cual, nos
permitirá poder guiarnos para realizar el software que se quiere
implementar en la empresa VERDULERIA MAX, en el ovalo de Nuevo
Ilo y así reducir los tiempos en los procesos principales que son:
compras y ventas. Esta metodología nos permitirá asegurar la
producción de software de alta y mayor calidad para poder satisfacer las
necesidades del usuario, de la cual tomaremos algunos datos.

Y como se muestra esta tesis en sus resultados un sistema de

información mejora las gestiones, así como los tiempos en los procesos.
(Troncoso, 2010).
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 12
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

Raúl Miguel Romero Galindo(2012): Análisis, Diseño e Implementación

de un Sistema de Información Aplicado a la Gestión Educativa en
Centros de Educación Especial. La siguiente tesis consiste en el
análisis, diseño e implementación de un sistema de información de
apoyo a la gestión educativa en centros de educación especial.
El propósito de esta plataforma es posibilitar la administración y atención
de los planes curriculares funcionales (en adelante programas
educativos) y terapéuticos para personas con necesidades especiales,
así como consolidar el conocimiento de trastornos y promover la
participación y evaluación continua entre padres y especialistas.
La administración del proyecto adoptó las prácticas establecidas por el
Project Management Institute. No obstante, fueron recogidos un número
específico de procesos de gestión según el alcance de la solución.
Como metodología de desarrollo de software fue seleccionada la
metodología Agile Unified Process (AUP) por su mayor afinidad y
claridad de actividades en las etapas de diseño y construcción de este
producto.

Correlación:
De esta tesis se tomará como referencia la metodología AUP realizar
los procesos y el software para el desarrollo del sistema, la metodología
utilizada en esta tesis nos permitirá tener una idea de cómo realizar
nuestro sistema de información para la empresa ovalo.

La metodología AUP es una versión simplificada del Proceso Unificado

de Rational (RUP), en donde describe de manera simple y fácil de
entender para poder desarrollar aplicaciones de software para negocios,
esto se podrá realizar usando técnicas y conceptos que aún se
mantienen válidos en RUP. Las referencias que se tomará también, es
que implementaron una solución automatizada la cual ayudará
administrando los programas educativos, planes de tares, etc. Esto se
pudo realizar satisfactoriamente con las fases que tiene la metodología
AUP. (Romero, 2012).
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 13
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

6.2 Fundamentación teórico del trabajo de aplicación profesional.

Para el desarrollo de la investigación los antecedentes que ayudaron de

base en referencia, se procedió a la exploración de algunos estudios
que estén relacionados con el problema. Dentro de los antecedentes
que ayudaron a la investigación en referencia, y que integraron
elementos de relevancia, se encuentran los siguientes:

Sistema de Información
Definición:
Un sistema es un conjunto de componentes que interaccionan entre su
para lograr un objetivo en común. Aunque existe una gran variedad de
sistemas, la mayoría de ellos pueden representarse a través de un
modelo formado por cinco bloques básicos: elementos de entrada,
elementos de salida, sección de transformación, mecanismo de control y
objetivos. Tal y como muestra en la Figura 4, los recursos acceden al
sistema a través de los elementos de entrada para ser modificados en la
sección de transformación. Este proceso es controlado por el
mecanismo de control con el de lograr el objetivo marcada. Una vez se
ha llevado a cabo la transformación, el resultado sale del sistema a
través de los elementos de salida.

Objetivos

Mecanismo de
Control

Entradas Transformación Salidas

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 14
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

Fuente: (Esmerlada).

Ciclo de Vida de un Sistema de Información

Principios a seguir en el desarrollo de un Sistema de Información. A lo

largo del desarrollo de un nuevo sistema de información, el analista de
sistemas y el director de proyectos, como responsables de su éxito,
deben tener presentes algunos principios generales.
Figura N° 4: Modelo general de sistemas
Desde los principios de los setenta, hasta la actualidad se ha escrito
mucha literatura sobre los principios a seguir durante el desarrollo de un
sistema de información. A continuación, se exponen los principios
generales que han sido más relevantes a lo largo de los últimos años.
 Implicar a los usuarios del sistema.
 Utilizar una estrategia de resolución de problemas.
 Establecer fases y actividades.
 Documentar durante desarrollo del sistema.
 Establecer estándares.
 Gestionar los procesos y el proyecto.
 Justificar el sistema como una inversión de capital.
 No tener miedo de revisar o cancelar algún objetivo.
 Dividir los problemas y resolverlos uno a uno.
 Diseñar sistemas con previsión de crecimiento y cambio. ( ).

o Componentes de un Sistema de Información: El sistema informativo

se divide en dos componentes:
o Componentes Físicos: El hardware de un ordenador, según la Real
Academia Española, es el conjunto de los componentes que integran la
parte material de una computadora. Un ordenador está formado, al
menos por los siguientes componentes:
o Dispositivos de entrada de Datos: Permiten introducir datos en el
ordenador.
o Memorias: Permiten almacenar los datos. Dispositivos de salida de
datos: permiten visualizar el resultado de los cálculos.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 15
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

o Componentes Lógicos: El software o programas informáticos están

constituidos por el conjunto de instrucciones que permitan al ordenador
realizar una determinada tarea.
o Software de Aplicación: El software de aplicación está orientado al
usuario final, con conocimientos básicos de informática. Normalmente,
este tipo de software se ejecuta sobre una interfaz gráfica para que se
uso sea más sencillo.
o Software de Programación: Es el conjunto de programas que
permiten generar nuevos programas o modificar los existentes.
o Software de Sistema: Es el conjunto de programas que oculta la
complejidad del hardware al programador.
Partes de un Sistema de Información.
Las partes de un Sistema de Información:
o Hardware: Está conformado por los dispositivos electrónicos y
mecánicos que realizan los cálculos y el manejo de la información de
los datos.
o Software: Se trata de las aplicaciones y los datos que explotan los
recursos hardware.
o Personal: Está compuesto tanto por los usuarios que interactúan con
los equipos como por aquellos que desarrollan el software para que
esa interacción sea posible.
o Información descriptiva: es el conjunto de manuales, formularios o
cualquier soporte de ayuda para el uso del sistema.

Categorías:

Los sistemas informáticos se pueden categorizar en lo siguiente:

 Sistema para el proceso de transacciones (TPS): Son los

sistemas computarizados que efectúan y registran las
transacciones diarias rutinarias, que son necesarios para la
marcha del negocio; estos sistemas sirven de forma creciente a
nivel operativo de la organización.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 16
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

 Sistema de automatización de oficinas (OAS): Diseñado para

aumentar la productividad de los trabajadores en la oficina,
apoyando las actividades de coordinación, organización y
comunicación.

 Sistema de Información Gerencial (MIS): SI en el nivel de

administración de una organización que sirve a las funciones de
planificación, control y toma de decisiones, proporcionando
informes rutinarios resumidos.

 Sistema de apoyo a decisiones (DSS): SI en el nivel de

administración de una organización que combina datos y modelos
analíticos avanzados o herramientas de análisis de datos, para
apoyar la toma de decisiones semi -estructurada y no
estructurada.
 Sistema de trabajo de conocimiento (KWS): Sistema de
información que ayuda a los trabajadores de conocimientos en la
creación e integración de nuevos conocimientos en la
organización.
o Sistema de Soporte a Ejecutivos (ESS): Sistemas de
información en el nivel estratégico de una organización, diseñado
para apoyar la toma de decisiones no estructuradas, mediante
gráficos y comunicaciones avanzados. (Fernández, 2006)
Actividades de un sistema de información
Un sistema de información realiza cuatro actividades básicas: entrada,
almacenamiento, procesamiento y salida de información.

o Entrada de Información: Es el proceso mediante el cual el

Sistema de Información toma los datos que requiere para
procesar la información. Las entradas pueden ser manuales o
automáticas. Las manuales son aquellas que se proporcionan en
forma directa por el usuario, mientras que las automáticas son
datos o información que provienen o son tomados de otros
sistemas o módulos. Esto último se denomina interfaces

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 17
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

automáticas. Las unidades típicas de entrada de datos a las

computadoras son las terminales, las cintas magnéticas, las
unidades de diskette, los códigos de barras, los escáneres, la
voz, los monitores sensibles al tacto, el teclado y el mouse, entre
otras.
o Almacenamiento de información: El almacenamiento es una de
las actividades o capacidades más importantes que tiene una
computadora, ya que a través de esta propiedad el sistema
puede recordar la información guardada en la sección o proceso
anterior. Esta información suele ser almacenada en estructuras
de información denominadas archivos. La unidad típica de
almacenamiento son los discos magnéticos o discos duros, los
discos flexibles o diskettes y los discos compactos (CD-ROM).
o Procesamiento de Información: Es la capacidad del Sistema de
Información para efectuar cálculos de acuerdo con una secuencia
de operaciones preestablecida. Estos cálculos pueden efectuarse
con datos introducidos recientemente en el sistema o bien con
datos que están almacenados. Esta característica de los sistemas
permite la transformación de datos fuente en información que
puede ser utilizada para la toma de decisiones, lo que hace
posible, entre otras cosas, que un tomador de decisiones genere
una proyección financiera a partir de los datos que contiene un
estado de resultados o un balance general de un año base.
o Salida de Información: La salida es la capacidad de un Sistema
de Información para sacar la información procesada o bien datos
de entrada al exterior. Las unidades típicas de salida son las
impresoras, terminales, diskettes, cintas magnéticas, la voz, los
graficadores y los plotters, entre otros. Es importante aclarar que
la salida de un Sistema de Información puede constituir la entrada
a otro Sistema de Información o módulo. En este caso, también
existe una interface automática de salida.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 18
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

CLASIFICACIÓN DE LOS SISTEMAS DE INFORMACIÓN Clasificación

según el propósito Los sistemas de información, de manera general se
pueden clasificar de tres formas según sus propósitos generales:

o Sistemas transaccionales: Son Sistemas de Información que

logran la automatización de procesos operativos dentro de una
organización ya que su función primordial consiste en procesar
transacciones tales como pagos, cobros, entradas, salidas, etc.
o Sistemas de soporte Sistemas de Soporte a la Toma de
Decisiones, Sistemas para la Toma de Decisión de Grupo,
Sistemas Expertos de Soporte a la Toma de Decisiones y
Sistema de Información para Ejecutivos: Son Sistemas de
Información que apoyan el proceso de toma de decisiones.
o Sistemas Estratégicos. - Son sistemas de información
desarrollados en las organizaciones con el fin de lograr ventajas
competitivas, a través del uso de la tecnología de información.
(Edwin O., 2012).

Compras Proceso de Compras:

Las empresas no son autosuficientes, éstas dependen de terceros o

elementos externos.
Para abastecer sus operaciones y actividades, las empresas necesitan
materias primas, materiales, máquinas, equipos, servicios, y un sin
número de insumos que provienen del ambiente exterior.

Concepto de Compras:
La compra es aquella operación que involucra todo el proceso de
ubicación de proveedor o fuentes de abastecimiento, adquisición de
materiales a través de negociaciones de precio y condiciones de pago
con el proveedor elegido y la recepción de las mercaderías
correspondientes para controlar y garantizar el suministro de la
adquisición.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 19
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

Para aclarar el concepto antes analizado, debes tener presente que

existen características propias de todo proceso de compras, las cuales
te detallamos a continuación:
Función de Compras
Es aquella que relaciona a las distintas áreas de la Empresa con los
diferentes proveedores externos, es decir, el Departamento de Compras
o Encargado de Compras, es el intermediario para cubrir las
necesidades de la Empresa con sus proveedores.
Importancia de Compras:
Se manifiesta principalmente en asegurar el abastecimiento normal de
las necesidades de insumos y materiales de la empresa. Además, la
colaboración en la administración de los recursos materiales y
financieros de la Empresa, es decir, saber a quién, cómo y cuándo
comprar, puede traer consigo mayor economía y ganancias para la
Empresa.
Organización de Compras:
Todas las Empresas son diferentes por lo tanto sus necesidades
también van a ser diferentes, ya sea por su giro, tamaño, organización y
situación geográfica. Dentro de toda la diferencia, podemos, establecer
algunas semejanzas entre ellas como son: La actividad de compra
puede ser centralizada o descentralizada, las cuales tienen sus ventajas
o desventajas.
Organización Centralizada:
Es aquella en que todas las compras de la empresa se concentran en el
departamento, sección o encargado de compras.
Las ventajas de este sistema son:
Obtención de mayores ventajas y descuentos de los proveedores por
compras en grandes cantidades.
 Calidad uniforme de los materiales adquiridos.
 Mayor especialización de los compradores.
 Organización de los procedimientos de compras.

Las desventajas de este sistema son:

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 20
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

 Poca flexibilidad.
 No siempre atiende a las necesidades locales, cuando los
diferentes organismos de la empresa se encuentran
geográficamente dispersos.

Organización Descentralizada:
Es aquélla en que cada unidad dispersa de la empresa tiene sus propios
encargados de compras para atender sus necesidades específicas y
locales.

Las ventajas de este sistema son:

 Mayor conocimiento de los proveedores locales.
 Mejor atención de las necesidades específicas de cada unidad
de la Empresa.
 Agilidad en las compras.

Entre las desventajas más importantes se destacan:

 Permite un menor volumen de compra.
 No permite aprovechar las ventajas y descuentos de los
proveedores.
 Falta de esquematización en los procedimientos de compra.
Poca uniformidad en la calidad de los materiales comprados.
El Ciclo de Compras:
El proceso de compra de una empresa no es fácil de realizar ya que se
debe tener una organización adecuada y acorde a las necesidades
propias de ellas.
A continuación, podrás identificar las cinco etapas principales de un ciclo
de compras:
 Análisis de la Solicitud de Compras.
 Investigación y Selección de Proveedores.
 Negociación con el Proveedor (seleccionado).

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 21
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

 Acompañamiento de Pedido (Follow-Up) y Control de la

Recepción del Material Comprado. Representemos el ciclo de
compras.

Análisis de la Selección Acompaña

de Negociación miento de Control de
solicitud de
Proveedores con el la
Compras Pedido Selección
Proveedor

RETROALIMENTACIÓN

Fuente(Esmeralda) 2019

Proceso de Ventas
Definición
Los procesos de ventas son las actividades más pretendidas por
empresas, organizaciones, o personas que ofrecen algo (PRODUCTOS,
SERVICIOS, U OTROS), en su mercado meta, debido a que su éxito
depende directamente de la cantidad de veces que realice esta
cantidad, de lo bien que lo hagan y de cuan rentable les resulte hacerlo.

¿Cómo es el proceso de Ventas?

Dentro de la venta puedes encontrar seis pasos clave. Prácticamente
todas las interacciones de ventas exitosas, el proceso puede durar
varios minutos o varios meses en concretarse, aplicable para empresas
pequeñas y medianas, donde se podrá responder ha ¿Cómo es el
proceso de venta?:
 Prospección: Se trata de localizar personas u organizaciones
calificadas para comprar sus productos.
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 22
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

 Contacto Inicial: Generar el momento de verdad en el que la

empresa entra en contacto para entablar la relación con el
prospecto.
 Presentación de Ventas: Conocer las necesidades presentes y
futuras del cliente o prospecto y hacer una propuesta formal,
clara, detallada y limpia de los productos y soluciones.

 Manejo de Objeciones: Se trata de poner las cartas sobre la

mesa y dejar correr los detalles de negociación, respondiendo a
todas las dudas del prospecto.
 Cierre de la Venta: Una vez pactados los requerimientos y
negociados los detalles, se declara la aceptación de venta y
arranca la parte de la entrega.
 Seguimiento y Servicio después de la venta: Después de
prestar el servicio o producto es importante evaluar el grado de
satisfacción del cliente y estar atento a cualquier
retroalimentación del cliente con el fin de resolverla. (Munch,
2013).
La venta como proceso
La venta no es solo el acto en el que tiene lugar, o no, la compra de
un producto o servicio. Según se realice directamente al comprador
final o a otra empresa tendrán lugar algunas diferencias:

Venta al comprador final

Este tipo de ventas se lleva a cabo, generalmente, en
establecimientos de venta al detalle (es el tipo de venta tradicional) y
en autoservicios (donde el cliente realiza el acto de la compra en
vez de acudir a un dependiente).
Mediante ellas, se comercializan bienes de uso y consumo
(productos y servicios).

Venta de empresa a empresa

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 23
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

En este tipo de ventas el fabricante vende al mayorista, al detallista

y, en general, a los intermediarios. Se trata de un tipo de ventas más
complejo mediante el que se comercializan tanto bienes de uso o
consumo, como productos industriales y servicios.
La venta es un proceso que comprende diferentes etapas:
 Establecer una asociación con el cliente y generar confianza.
 Identificar las necesidades del consumidor o los problemas
de la empresa a la que se quiere vender.
 Seleccionar la Ventaja Competitiva o la oferta que va a hacer
que el producto sea percibido diferente.
 Comunicar la Ventaja Competitiva o la oferta al consumidor o
a la empresa.
 Ofrecer servicios después de la venta que permitan
establecer relaciones duraderas con el cliente.
El servicio al Cliente, una vez realizada la venta, ayuda a:
 Demostrar la importancia que el cliente tiene para la empresa.
Esto contribuirá a reforzar las relaciones a largo plazo.
 Transmitir seguridad al cliente. Asegurar al cliente que puede
contar con la empresa siempre que tenga algún problema con
la instalación o funcionamiento del producto transmite
seguridad y confianza.
 El “boca/oído” es la herramienta de comunicación más barata
y eficaz. Un cliente insatisfecho contara su decepción en
materia de servicio al menos a once personas; en cambio, uno
satisfecho solo lo contara a tres.
Fases en el Proceso de Venta
Las principales fases, que tienen lugar durante el proceso de la venta
de un determinado producto o servicio, son generalmente:
 Fase Previa: En ella el vendedor planifica su trabajo, fija los
objetivos comerciales que quiere alcanzar, e intenta
establecer un primer contacto con los clientes potenciales de
la empresa.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 24
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

 La Oferta del Producto: En ella el vendedor presenta su

producto al cliente y expone las principales ventajas que este
puede obtener con la compra del mismo, atendiendo a sus
necesidades y problemas.
 La Demostración: En esta fase el vendedor trata de justificar
la compra del producto evidenciando los beneficios que el
cliente obtendrá con su adquisición y ajustando la oferta a sus
necesidades y deseos actuales.
 La Negociación: en esta fase el vendedor intenta
intercambiar impresiones con el cliente y persuadirle para que
compre el producto; entonces, el cliente planteara sus propias
objeciones y el vendedor tratara de convencerle. producto o
rechazarlo. (Editorial Vértice, 2008).
PROCESO DE VENTA

Fase La oferta del La

Previa Producto Demostración

El Cierre Comunicación La
con el cliente Negociación

Fuente(Esmeralda)
Figura N° 6: Proceso de ventas
 El Cierre del Acuerdo: esta es la fase más difícil para el
vendedor, ya que es en ella cuando el cliente decide comprar el
producto.
Fuente: Editorial Vértice, 2008.

Importancia del Proceso de Ventas

El proceso estructurado de ventas como eje de cualquier transformación
orientada al crecimiento.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 25
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

La mayoría de la gente de ventas, y las compañías no utilizan

actualmente un proceso formal de ventas.
El desempeño de venta individual como el de la compañía mejora
sustancialmente cuando se implementa un proceso a lo largo de toda la
organización, logrando incrementos de un 20% en las ventas. Este
proceso prospera cuando todos dentro de la organización utilizan un
lenguaje común y sugiere un proceso determinado.
El único camino para lograr la escalabilidad en los equipos de ventas
requiere la implementación de un proceso simple pero estructurado, que
pueda ser seguido por todos, y sea la base de la mejora de desempeño
para todos los ejecutivos.

¿Qué es un Proceso?
Un proceso es una serie sistemática de acciones o una serie de pasos
repetitivos que buscan conseguir un resultado. Cuando estos pasos son
seguidos pueden derivar consistentemente en los resultados esperados.
Hay muchos ejemplos de procesos que nos rodean en la vida cotidiana,
aunque no nos demos cuentas, nuestros autos son construidos usando
procesos de manufactura, nuestra ropa, nuestros computadores,
nuestros televisores y aún la comida que consumimos son elaborados
en base a procesos que aseguran su calidad y consistencia. Con las
ventas, suceso lo mismo, una venta es una serie de pasos definidos y
repetibles, que ejecutados consistentemente van a proveer los
resultados esperados.
Por otro lado, cualquier esfuerzo de ventas sin una serie de pasos bien
definidos a menudo termina en resultados desfavorables.
Un proceso de ventas define y documenta aquellos pasos de principio a
fin del ciclo de ventas, que desembocan en un incremento de la
productividad. Provee un marco de trabajo para cada fase del ciclo de
ventas.
Un buen proceso de ventas debe permitir, identificar, analizar, calificar y
medir las oportunidades, y de este modo, determinar cuál es el paso
más adecuado para el cierre del negocio.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 26
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

Estos procedimientos deberían estar alineados con la manera en que

compra el cliente más que en la forma en la que venden los vendedores.
¿Porque es importante tener un proceso de ventas?
Porque provee a toda la gente involucrada en los esfuerzos de ventas
de una hoja de ruta para ejecutar la siguiente acción con alta
probabilidad de éxito. Saber qué hacer y cuando es crítico para la
efectividad del trabajo.
Un proceso estructurado de ventas permite a los ejecutivos y a las
compañías lo siguiente:
 Determinar el próximo paso.
 Diagnosticar y corregir las deficiencias de la ejecución.
 Evaluar cada oportunidad objetivamente.
 estimar los volúmenes de ingreso objetivamente Facilitar la
adopción de un lenguaje común en toda la compañía.
 Retener a clientes. Porque se maneja de un modo objetivo sus
expectativas y por lo tanto su nivel de satisfacción
 Permite mejorar la calidad de vida en el trabajo y disfrutar más
las actividades que se realizan en las áreas de ventas.
¿Cuáles son los componentes de un proceso de ventas
estructurado y simple?
Se identifican 5 componentes:
1. Conocer el proceso que sigue el cliente para comprar.
2. Conocer el ciclo de venta de la empresa. De modo de alinear el
ciclo de ventas con el de compras del cliente.
3. Los elementos o resultados verificables que obtengo al finalizar
cada fase, cada acción, cada paso táctico dentro del ciclo de
ventas. Nos permite saber si hemos sido exitosos en esa fase
que acaba de concluir.
4. Un proceso estructurado formal y profesional, debe contar con
herramientas y componentes de ayuda para que al vendedor le
faciliten la ejecución de cada fase de su ciclo de ventas.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 27
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

5. Un sistema de Management que le permita al vendedor y al

gerente medir y reforzar el proceso determinando objetivamente
las opciones de éxito.
La clave está en llevar a cabo una Metodología, que permita
implementar de modo efectivo y sustentable en el tiempo,
logrando un alto desempeño en ventas. (Bravo, 2010).

7. ESTRATEGIAS METODOLÓGICAS (Desarrollo del marco operativo).

7.1 Modelamiento de Empresa

Descripción de Empresa

La empresa VERDURERIA MAX, es una empresa fundada por dos

amigas, Esmeralda y Elia, es por ello el nombre de VERDURERIA MAX.
Esta empresa se dedica a la compra y venta de verdulería, lo cual ya
tienen dos años en el mercado.

Misión

Somos una empresa dedicada a atender las necesidades de verduderia y

servicios en el mercado a través del mejor equipo humano, brindando un
excelente servicio de venta, post venta y mantenimiento a nuestros
clientes. Somos distribuidores de repuestos originales y alternativos de
calidad a precios competitivos.

Visión

Ser la mejor empresa importadora y comercializadora de repuestos

automotrices en el Perú, brindando un excelente servicio en venta,
generando valor agregado para nuestros clientes y la sociedad.

7.2 Visión del Producto

Geográfico: El proyecto beneficiará al proceso de extracción de

información concerniente al proceso de Compras y Ventas de la empresa
VERDULERIA MAX.

Organizacional: Optimizará el proceso de extracción de información del

área de funcional de compras y ventas.
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 28
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

Funcional: Mayor respaldo a la obtención de información del área de

Compras y Ventas de manera rápida, precisa, eficiente, para mayor
entendimiento del personal, y los directores generales de la empresa, de
modo que la toma de decisiones sea adecuada y precisa.

Beneficios: Los principales beneficios que se obtendrán al implementar

el Sistema de Información en la empresa VERDULERIA MAX.

El sistema puede ser utilizado simultáneamente por varios usuarios,

haciendo consultas, capturas y finalmente arrojando reportes para la toma
de decisiones.

El acceso rápido a la información y por ende mejora en la atención a los

clientes.

Generación de informes e indicadores, que permiten corregir fallas

difíciles de detectar y controlar con un sistema manual.

Evitar pérdida de tiempo recopilando información que ya está almacenada

en base de datos que se puede compartir.

7.3 ESTUDIO DE FACTIBILIDAD

En esta etapa se elabora un estudio de factibilidad el cual permite

determinar si la solución es alcanzable tomando en cuenta
restricciones y recursos de la organización, en este caso, la empresa
VERDULERIA MAX. Aquí se analizará las tres áreas principales de la
factibilidad: factibilidad técnica, factibilidad operativa y económica que
se detallará a continuación.

7.3.1 Factibilidad Técnica Se realizó la investigación necesaria en la

empresa VERDULERIA MAX, la parte técnica a verificar y
constatar la infraestructura tecnológica y de comunicaciones que
se requiere, así como los recursos humanos, de esta manera se
identificará los recursos técnicos que tiene la empresa. Además,
deberá permitir el almacenamiento de los datos. En tal sentido la

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 29
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

tecnología requerida para la habilitación y construcción de la

aplicación es:

 Una computadora Intel I7, para almacenar datos y

aplicaciones.
 Una impresora para imprimir los documentos de pago y los
reportes.
 Un software de base de datos en visual Fox Pro
 El IDE de desarrollo será Visual FOX PRO.

7.3.2 Factibilidad Operativa El desarrollo del Sistema de Información

es factible operativamente debido a las siguientes razones:

El personal de la empresa VERDULERIA MAX, encargados de

dar información sobre los procesos de Compras y Ventas, están
entusiasmados con el desarrollo de esta herramienta debido a
los numerosos beneficios que proporcionará en el desarrollo del
proceso de acceso a la información por lo que después de su
uso se reducirá considerablemente el tiempo en realizar estos
importantes procesos, ya que actualmente se realizan
manualmente. Debido a esta razón no se ha creado
inconvenientes al desarrollar este Sistema de Información,
además se ha proporcionado información de relevancia para la
adecuada planificación y el análisis necesario para el desarrollo
de esta herramienta.

7.3.3 Factibilidad Económica Se realizó un estudio que dio como

resultado la factibilidad económica del desarrollo del nuevo
Sistema de Información. Se determinaron los recursos para
desarrollar, implantar, y mantener en operación el sistema
programado, haciendo una evaluación donde se puso de
manifiesto el equilibrio existente entre los costos intrínsecos del
sistema y los beneficios que se derivaron de éste, lo cual
permitió observar de una manera más precisa las bondades del
sistema propuesto.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 30
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

A continuación, presentamos los recursos necesarios para la

implementación del proyecto.

GENERALIDADES

La construcción del Sistema de Información automatizara los procesos de

Compras y Ventas de la empresa VERDULERIA MAX, el cual está basado en
la metodología AUP, que consta de cuatro fases: iniciación, elaboración,
desarrollo y cierre.

El software desarrollado en una unidad de tiempo es llamado iteración, la cual

debe durar de una a cuatro semanas. Cada iteración de ciclo de vida incluye:

Primera Fase: Iniciación, consiste en identificar todas las entidades externas

de las cuales el sistema interactúe (los actores) y definir la naturaleza de esta
interacción. Esto implica identificar y describir casos de uso. Dándonos como
resultado una visión general de los requerimientos básicos del proyecto.
Segunda Fase: Elaboración, cuyo propósito es desarrollar el plan del
proyecto y, mitigar los elementos de riesgo. Para lograr estos objetivos, se
deben tener una visión holística del sistema para definir los requisitos
funcionales y no funcionales del sistema y sus principales actores.

Tercera Fase: Desarrollo, se desarrollan todas las características del sistema

y se integran en la solución.

Cuarta Fase: Transición, producto para la producción para realizar pruebas

correspondientes y hacer retroalimentación para corregir errores o crear
nuevas versiones. Cuando el producto tenga la madurez correspondiente
para la producción.

En la construcción del sistema de información emplearemos el programa

Visual FOX PRO con lo cual se crearán todas las interfaces de acuerdo a los
requerimientos de la empresa VERDULERIA MAX y la base de datos a
utilizar es del visual Fox Pro.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 31
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

8. RESULTADOS.

POBLACIÓN Y MUESTRA

Población

Se identifica como unidad de análisis al conjunto de procesos de la empresa

VERDULERIA MAX.

Muestra Para el muestreo de la investigación se tomarán los procesos de

compras y ventas de la empresa VERDULERIA MAX donde, existen varios
procedimientos estadísticos de forma aleatoria para calcular el tamaño de la
muestra, conociendo o no el valor de la población, para esta investigación se
tomó una muestra de valor 30, ya que es un valor adecuado, estándar, y se
utiliza en varios procesos de investigación.

Tipo de Muestreo Intencional: Para el experimento la muestra será elegida

intencionalmente según el investigador.

NIVEL DE CONFIANZA

Para la prueba de hipótesis para los datos recolectados serán evaluados

utilizando los siguientes parámetros

Nivel de Confianza 95%.

VALIDEZ DE LA EVALUACIÓN DEL INSTRUMENTO

Según Carrasco (2009, Pág. 45) este atributo de los instrumentos de

investigación consiste en que estos miden con objetividad, precisión,
veracidad y autenticidad aquello que se desea medir de las variables en
estudio.

En la presente investigación para determinar la validez del instrumento

implico someterlo a la evaluación de un panel de expertos antes de su
aplicación (juicio de expertos), para tal efecto se hizo revisar a los siguientes
expertos: La validación de nuestro instrumento estuvo a cargo de cinco
profesores expertos.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 32
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

9. CONCLUSIONES.

a) Se observa que la utilización de la metodología ágil AUP en el presente

proyecto ha proporcionado un buen resultado, ya que, a diferencia de
las convencionales, estas son las flexibles antes los cambios y
requerimientos inesperados.

b) Según al antecedente de la tesis “Sistema Informático para la Gestión

de Almacén en el Hospital Hogar de la Madre”, se confirma que el
implementar un sistema permite automatizar, reducir y mejorar los
tiempos en los procesos sin perder información importante para la
empresa, como son en los procesos de compras y ventas.

c) Se comprueba que la metodología Ágil AUP, permitió conocer los

riesgos de gestión, en donde estos tengan prioridad en el proceso de
desarrollo del sistema, el cual busca darle una mayor satisfacción al
cliente mediante la entrega temprana del software, se pudo observar
que esta metodología se centra en la funcionalidad que el sistema debe
poseer para satisfacer las necesidades del usuario; y siendo una
metodología con claridad en sus actividades en las etapas del diseño y
construcción de software ,según lo menciona también la tesis “Análisis,
Diseño e Implementación de un Sistema de Información Aplicado a la
Gestión Educativa en Centros de Educación Especial” .

d) Se observa que la empresa ha obtenido mejores resultados al

momento de hacer la toma de decisiones, con la ayuda del Sistema de
Información.

e) Se comprueba que esta herramienta ayuda a cualquier empresa a

organizarse, como también a reducir su tiempo en cuanto a procesos
de Compras y Venta y también a una buena toma de decisiones.

f) Según el antecedente de la tesis “Análisis y Diseño de un Sistema de

Información para mejora el registro de historias clínicas electrónicas de
un Centro de Salud, aplicando el lenguaje UML en el proceso de
desarrollo RUP”, se confirma que la atención al cliente debe ser una de

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 33
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

las prioridades de la empresa, es por ello que los sistemas deben de

ser diseñados de manera amigable y entendible, de tal manera que los
usuarios del proceso siempre tengan la información en todo momento
sin restricciones, como son consultas de pedidos, cotizaciones, etc.

g) Es necesario saber que el sistema le permite al personal que labora en

la empresa, llevar un control y seguimiento de las entradas y salidas de
los productos.

f) Se observa que si se cumplen los objetivos trazados al inicio de la

tesis.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 34
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

RECOMENDACIONES.

a) Se recomienda investigar más sobre lo útil de las metodologías agiles

como la metodología AUP.
b) Se debe capacitar al personal del uso del Sistema de Información.
c) Se recomienda una actualización y mantenimiento constante del
Sistema de Información por cada cierto periodo.
d) Acondicionar un área para la instalación de computadoras y cualquier
otro tipo de requerimientos necesarios para la implantación del sistema.
e) Implementar algunas políticas de seguridad para garantizar el
resguardo de los datos.
f) Se debe realizar reportes constantes para ver el desarrollo del sistema.
g) Se recomienda a las empresas poder tener cualquier tipo de software
para la automatización y agilización de sus procesos, permitiéndoles
tener generar más productividad.
h) Se recomienda utilizar herramientas tecnológicas que permitan el buen
desarrollo y el mejor manejo de información para los procesos de la
empresa.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 35
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

10. REFERENCIAS BIBLIOGRÁFICAS.

10.1 Bibliografía
 Chugnas, J. (2012). Sistema de gestión de ventas para reducir
el tiempo de atención al cliente y aumentar el margen de utilidad
en la empresa “Corporación Dijol SRL”. (Tesis para optar el título
profesional de Ingeniero de Sistemas). Universidad Privada del
Norte, Perú, Lima
 Rodriguez, J. (2013). Análisis, diseño e implementación de un
sistema de información para una tienda de ropa con enfoque al
segmento juvenil. (Tesis para optar el título profesional de
Ingeniero Informático). Pontificia Universidad Católica del Perú,
Lima.
 Romero, R. (2012). Análisis, Diseño e Implementación de un
Sistema de información aplicado a la Gestión Educativa en
Centros de Educación Especial. (Tesis para optar el título
profesional de Ingeniero Informático). Pontificia Universidad
Católica del Perú, Lima.
 Veramendi, R. (2011). Análisis y Diseño de un Sistema de
Información para mejora el registro de historias clínicas
electrónicas de un Centro de Salud, aplicando el lenguaje UML
en el proceso de desarrollo RUP. (Tesina). Universidad Nacional
Mayor de San Marcos, Lima.
11.2 Libros físicos
Erickson, B. (2010). La Publicidad. (1a ed.). Miami, FL: Firmas Press.

Martínez, J. (2009). El uso de manuales de procedimientos para

contribuir a la optimización del departamento de compras. (1a ed.).
Córdoba: El Cid Editor Montoya, A. (2011). Administración de
compras. (1a ed.). Paracuellos de Jarama, Madrid: Starbook.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 36
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

Sánchez de Puerta, P. (2014). Dirección y estrategias de ventas e

intermediación comercial UF1723. (1a ed.). Madrid: Editorial CEP, S.L.

11.3 Libros Electrónicos:

Fernández, V. (julio, 2016). Desarrollo de sistemas de información. (1a
ed.). Barcelona:Edicions Universitat Politécnica de Catalunya, SL.
Recuperado de
https://pdfs.semanticscholar.org/946d/1e19f09e8dac8744f7875c876fe1
4a7 3e9b0.pdf

Sitios Web:
Midori, L. (junio, 2016). ¿Cómo es el Proceso de Venta?.
Recuperado.de:
http://tecnicasdeventasdeservicios.blogspot.com/2013/01/como-es-el-
proceso-de-venta.html#.U35j59J5MYo

Torrecilla, P. (julio, 2016). El Proceso Unificado Ágil: fases y disciplinas.

Recuperado de
http://nosolopau.com/2012/06/07/m

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 37
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

ANEXOS

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 38
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

ENCUESTA AL PUBLICO PARA LA ELABOR ACION DE UN SISTEMA DE

VENTAS DE VERDURAS.

1. TIEMPO PARA ELABORAR UN LISTADO DE PRODUCTOS DE PEDIDO

AL PROVEEDOR.
a) 10 minutos
b) 20 minutos
c) 30 minutos
d) N.A.

2. TIEMPO DE ELABORACION DE UNA ORDEN DE COMPRA DE

PRODUCTOS DE VEDURAS.
a) 30 minutos
b) 10 minutos
c) 15 minutos
d) N.A.

3.- TIEMPO DE EMITIR LA COTIZACION AL CLIENTE.

a) 5 minutos
b) 3 minutos
c) 1 minutos
d) N.A

4.- TIEMPO EN LA ELABORACION DE KARDEX VALORIZADO

a) 30 minutos
b) 60 minutos
c) 40 minutos
d) N.A.

5.- TIEMPO PARA GENERAR PEDIDO A PROVEEDOR

a) 20 minutos
b) 10 minutos
c) 15 minutos

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 39
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

d) N.A.
6.- NIVEL DE SATISFACCION DEL CLIENTE.

a) Buena
b) Regular
c) Mala
d) N.A.

ANEXO

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 40
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

SISTEMA INFORMATICO PARA VENTAS DE VERDURAS

PASO 1: Ingresar nombre del usuario y luego contraseña, presionar el botón ingresar.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 41
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

PASO 2: Muestra la pantalla de Bienvenido al sistema de Ventas Matrix, donde se

presionará la opción Menú principal.

PASO 3: Se vizualiza el Menú Principal del Sistema de Ventas (Verdureria Max).

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 42
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

PASO 4: Se ingresa la opción 1 (ingresar producto) del menú principal.

PASO 5: Se visualiza el menú de productos con 5 opciones a elegir. Se digita la opción 1.

PASO 6: Se visualiza una ventana donde se ingresa el código de producto.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 43
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

PASO 7: Se visualiza el menú de productos con 5 opciones a elegir. Se digita la opción 2 consultar
productos.

PASO 8: Se visualiza la pantalla buscador de productos, donde solicitar ingresar el código del
producto.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 44
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

PASO 9: Se visualiza la descripción del producto en consulta.

PASO 10: Se visualiza el menú de productos con 5 opciones a elegir. Se digita la opción 3 ver
productos.

PASO 11: Se genera el reporte total de todas las verduras para su venta y descripción
correspondiente.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 45
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

PASO 12: Se visualiza el menú de productos con 5 opciones a elegir. Se digita la opción 4 Visualizar
Stock.

PASO 13: Se visualiza todo el stock existente en almacén para su venta.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 46
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

PASO 14: Retornamos al Menú Principal y elegimos la opción 2.

PASO 15: En el Menú principal se elige la opción 3 Administrar clientes.

Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 47
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

PASO 16: Se visualiza el Menú de Clientes con 4 opciones para Registrar, Buscar y Eliminar clientes.

PASO 17: En el Menú principal elegimos la opción 4 Historial.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 48
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

PASO 18: Se visualiza el cuadro del Historial de Ventas realizadas a la fecha.

PASO 19: En el Menú principal elegimos la opción 5 vender productos.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 49
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

PASO 20: opción para registrar la venta de clientes.

PASO 21: Se elige la opción 6 del Menú principal para crear una Boleta de Venta.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 50
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

PASO 22: Se genera la Boleta de Venta del cliente.

BASES DE DATOS

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 51
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

Base de datos para generar las boletas de Ventas

Base de Datos de clientes

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 52
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

Base de Datos de los productos

Base de Datos para realizar las Ventas.

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 53
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

ANEXO

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 54
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

CAPTURA DE PANTALLA DE “VERDURERIA MAX” SALIR

IF THISFORM.Texto1.value = "VENTAS2019" AND THISFORM.texto2.value =
"VENTAS2019"
MESSAGEBOX ("¡ BIENVENIDO AL SISTEMA MATRIX !")
MESSAGEBOX ("ACCESO AUTORIZADO")
THISFORMSET.FORM1.VISIBLE = .F.
THISFORMSET.FORM2.VISIBLE = .T.
ELSE
MESSAGEBOX (" ¡USUARIO O CONTRASEÑA INVALIDO!",0+64,"ACCESO
DENEGADO")
THISFORMSET.FORM1.texto1.VALUE = ""
THISFORMSET.FORM1.texto2.VALUE = ""
THISFORMSET.FORM1.texto1.setfocus
THISFORMSET.FORM1.Visible = .T.
THISFORMSET.FORM2.Visible = .F.

A = A + 1
IF A = 3
LOCKED = MESSAGEBOX ("HA FALLADO LOS 3 INTENTOS DE ACCESO, ¡CONSULTE
LA CONTRASEÑA Y VUELVA A INTENTARLO! ",0," ¡ACCESO BLOQUEADO!")
THISFORM.Release
ENDIF
ENDIF

CAPTURA DE PANTALLA DE “VERDURERIA MAX” INGRESAR

ATENCION = MESSAGEBOX ("¿DESEA CANCELAR Y SALIR DEL PROGRAMA?", 4+32,

"¡ATENCION!")
DO CASE
CASE ATENCION = 6
THISFORM.Release

CASE ATENCION=7
CANCEL
ENDCASE

Buscar clientes
SET TALK OFF
DO WHILE .T.
OP=SPACE(4)
OP2=SPACE(4)
USE clientes1.dbf

STORE 0 TO COD
CLEAR
@2,50 SAY "VERDULERIA MAX " FONT "MAGNETO",20 STYLE "BU"
@2/1.16,40 TO 4,110 COLOR BB+
***************************************************************************
**
@1.1,2 TO 15,140 COLOR BB+
@1,2 TO 15,140 COLOR BB+
@1,2 TO 14.9,140 COLOR BB+
@1,2 TO 7,140 COLOR BB+
@1,2 TO 7.1,140 COLOR BB+

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 55
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

@5,49 SAY "BUSCADOR DE CLIENTES" FONT "ARIAL BLACK",14 STYLE "BU"

COLOR BG+
@9,10 SAY "INGRESE CODIGO:" FONT "ARIAL BLACK",14 GET COD PICT
"99999" FONT "ARIAL",14
@12,40 SAY "PRECIONE ENTER PARA BUSCAR AL CLIENTE:" FONT "ARIAL
BLACK",12 COLOR BG+
READ

USE clientes1.dbf
LOCATE FOR COD=cod_client
IF COD=cod_client THEN

CLEAR
@1,2 TO 30,138 COLOR BB+
@1,2 TO 27.2,138 COLOR BB+
@1,2 TO 7,138 COLOR BB+
@1,2 TO 7.1,138 COLOR BB+

@2/1.16,38 TO 4.8,115 COLOR BB+

@2,50 SAY "VERDULERIA MAX " FONT "MAGNETO",22 STYLE "BU"

@5,49 SAY "BUSCADOR DE CLIENTES" FONT "ARIAL BLACK",14
STYLE "BU"
@10,18 TO 27,120 COLOR BB+
@8,12 SAY "SU CODIGO ES:" FONT "ARIAL BLACK",13 COLOR
BG+
@8,37 SAY cod_client FONT "ARIAL BLACK",13

@11,20 SAY "SU NOMBRE ES:" FONT "ARIAL BLACK",13 COLOR

BG+
@11,48 SAY nombres FONT "ARIAL BLACK",13
@14,20 SAY "DNI ES :" FONT "ARIAL BLACK",13 COLOR BG+
@14,50 SAY dni FONT "ARIAL BLACK",13
@17,20 SAY "DIRECCION:" FONT "ARIAL BLACK",13 COLOR
BG+
@17,45 SAY direccion FONT "ARIAL BLACK",13
@20,20 SAY "TELEFONO:" FONT "ARIAL BLACK",13 COLOR BG+
@20,49 SAY telefono FONT "ARIAL BLACK",13
@23,20 SAY "EMAIL:" FONT "ARIAL BLACK",13 COLOR BG+
@23,67 SAY correo FONT "ARIAL BLACK",13
READ

@28,70 SAY "¿¿DESEA CONTINUAR??(S)(N):" FONT "ARIAL BLACK",16 COLOR BG+

COLOR GR+/B,R/W GET OP FONT "ARIAL BLACK",16 COLOR BG+ COLOR BG+

READ
IF OP="S" THEN
LOOP
ELSE
CLEAR
DO submenuclient1.prg

ENDIF
ELSE
CLEAR

*******************************************************************
@ 4,7 TO 8,103 COLOR R+
@ 8,7 TO 12,103 COLOR R+

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 56
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

@5,10 SAY "¡¡ESTE CODIGO NO EXISTE!!" FONT "ARIAL BLACK",16

COLOR BG+ STYLE "BU"
READ
@9,25 SAY "¿¿DESEA CONTINUAR??(S)(N):" FONT "ARIAL BLACK",16
COLOR BG+ STYLE "BU" GET OP COLOR WB+ FONT "ARIAL BLACK",16
READ

IF OP="S" THEN
LOOP

ELSE

CLEAR
DO submenuclient1.prg

ENDIF
ENDIF

***********************************************************************+
ENDDO

CONSULTA

SET TALK OFF

DO WHILE .T.
OP=SPACE(4)

USE productos1.dbf

STORE 0 TO COD
CLEAR
@2,50 SAY "VERDULERIA MAX " FONT "MAGNETO",20 STYLE "BU"
@2/1.16,40 TO 4,110 COLOR BB+
***************************************************************************
**
@1,2 TO 15,140 COLOR BB+
@1.1,2.5 TO 14.8,139.5 COLOR BB+
@1.3,3 TO 14.6,138.6 COLOR RR+
@1.3,3 TO 7,138.6 COLOR BB+
@1.3,3 TO 7.4,138.6 COLOR RR+

@1,2 TO 15,140 COLOR BB+

@5,49 SAY "BUSCADOR DE PRODUCTOS" FONT "ARIAL BLACK",14 STYLE "BU"
COLOR BG+
@8.5,10 SAY "INGRESE CODIGO:" FONT "ARIAL BLACK",14 GET COD
PICT "99999" FONT "ARIAL",14
@12,40 SAY "PRESIONE ENTER PARA VERIFICAR EL PRODUCTO:" FONT "ARIAL
BLACK",12 COLOR BG+
READ

LOCATE FOR COD=cod_pro

IF COD=cod_pro THEN

CLEAR
@1,2 TO 30,138 COLOR BB+
@1,3 TO 30,138 COLOR BB+
@1.5,2.5 TO 29.9,137 COLOR BB+
@1,2 TO 7,138 COLOR BB+

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 57
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

@1,2 TO 7.1,138 COLOR RR+

@1,2 TO 7.3,138 COLOR BB+
@2,45 SAY "VERDULERIA MAX" FONT "MAGNETO",24 STYLE "BU"
@5,49 SAY "CONSULTA DE PRODUCTOS" FONT "ARIAL BLACK",14
STYLE "BU"
@10,18 TO 27,120 COLOR BB+
@8,12 SAY "SU CODIGO ES:" FONT "ARIAL BLACK",13 COLOR
BG+
@8,37 SAY cod_pro FONT "ARIAL BLACK",13

@11,20 SAY "SU NOMBRE ES:" FONT "ARIAL BLACK",13 COLOR

BG+
@11,45 SAY nombre FONT "ARIAL BLACK",13
@14,20 SAY "SU CATEGORIA ES:" FONT "ARIAL BLACK",13 COLOR
BG+
@14,50 SAY categoria FONT "ARIAL BLACK",13
@17,20 SAY "PROVIENE DE:" FONT "ARIAL BLACK",13 COLOR
BG+
@17,45 SAY proveedor FONT "ARIAL BLACK",13
@20,20 SAY "PRECIO POR KILO:" FONT "ARIAL BLACK",13 COLOR
BG+
@20,49 SAY prevenkl FONT "ARIAL BLACK",13
@20,62 SAY "S/" FONT "ARIAL BLACK",13
@23,20 SAY "CANTIDAD EN EXISTENCIA:" FONT "ARIAL BLACK",13
COLOR BG+
@23,63 SAY stock FONT "ARIAL BLACK",13
@23,79 SAY "KILOS" FONT "ARIAL BLACK",13
READ

@28,70 SAY "¿¿DESEA CONTINUAR??(S)(N):" FONT "ARIAL BLACK",13 COLOR BG+

COLOR GR+/B,R/W GET OP FONT "ARIAL BLACK",13 COLOR BG+ COLOR BG+

READ
IF OP="S" THEN
LOOP
ELSE
CLEAR
DO submenuproductos1.prg

ENDIF
ELSE
CLEAR

*******************************************************************
@ 4,7 TO 8,103 COLOR R+
@ 8,7 TO 12,103 COLOR R+
@5,10 SAY "¡¡CODIGO NO EXISTE...PRODUCTO NO EXISTE!!" FONT
"ARIAL BLACK",16 COLOR BG+ STYLE "BU"
READ
@9,25 SAY "¿¿DESEA CONTINUAR??(S)(N):" FONT "ARIAL BLACK",16
COLOR BG+ STYLE "BU" GET OP COLOR WB+ FONT "ARIAL BLACK",16
READ

IF OP="S" THEN
LOOP

ELSE

CLEAR
DO submenuproductos1.prg
ENDIF
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 58
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

ENDIF

***********************************************************************+
ENDDO

CREAR BOLETAS

SET TALK OFF

DO WHILE .T.
CLEAR

CLOSE DATABASES
USE venpro1.dbf

NPRO=SPACE(15)
NCLI=SPACE(15)

OPCLI2=SPACE(3)
OPCLI=SPACE(3)
*clie=SPACE(15)
STORE 0 TO T1
STORE 0 TO T2
STORE 0 TO T3
STORE 0 TO T4
STORE 0 TO T5
STORE 0 TO T6
STORE 0 TO T7

STORE 0 TO TG
STORE 0 TO B
STORE DATE () TO fechas1

STORE 0 TO codpr,cantidad1,codcli
STORE 0 TO codpr2,cant2
STORE 0 TO codpr3,cant3
STORE 0 TO codpr4,cant4
STORE 0 TO codpr5,cant5
STORE 0 TO codpr6,cant6
STORE 0 TO codpr7,cant7
CLEAR

@1,2 TO 35,140
@1,2 TO 7,140
@1,2 TO 25,140 COLOR BB+

@1,3 TO 9,139 COLOR R+

@1,3 TO 24,139 COLOR RR+

@2,6 SAY "VERDULERIA MAX" FONT "Amethyst",10 COLOR RGB

(0,128,128) STYLE "BU"
@3.3,6 SAY "DE MAXIMO CCAHUANA PARIONA" FONT "ARIAL BLACK",9
COLOR RGB (0,128,128)

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 59
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

@4.3,6 SAY "Mercado Santa Anita " FONT "ARIAL BLACK",9 COLOR
RGB (0,128,128)
@5.3,6 SAY "Puesto Nº 34 Surquillo-Lima" FONT "ARIAL
BLACK",9 COLOR RGB (0,128,128)
***************************************************************************
*****************
@4,80 SAY "RUC: 10294706751" FONT "ARIAL BLACK",10 COLOR RGB
(0,128,128)
@1.3,45 SAY "VERDULERIA MAX" FONT "Magneto",20 STYLE "BU"
COLOR RGB (0,128,128)
@5,80 SAY "BOLETA DE VENTA Nº" FONT "ARIAL BLACK",14 GET B FONT
"ARIAL BLACK",14 COLOR RGB(255,0,0)
READ
USE boletas.dbf
LOCATE FOR B=numero
IF B=numero THEN
CLEAR
@5,19 SAY "ESTE NUMERO DE BOLETA YA EXISTE" FONT "ARIAL BLACK",15 COLOR
RR+
READ
LOOP
ELSE

***************************************************************************
**************+

@7,5 SAY "FECHA:" FONT "ARIAL BLACK",12

@7.3,19 SAY fechas1 FONT "ARIAL",12

**%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
@7,33 SAY "COD CLIENTE: " FONT "ARIAL BLACK",12 GET codcli FONT "ARIAL
BLACK",11
READ
READ
READ
USE clientes1.dbf
LOCATE FOR codcli=cod_client
IF codcli=cod_client THEN

@7,72 SAY "NOMBRE: " FONT "ARIAL BLACK",12

@7.3,87 SAY nombres FONT "ARIAL",12
NCLI=nombres
ELSE
CLEAR
CLEAR
@2,4 TO 10,140 COLOR BB
@5,8 SAY "ESTE CLIENTE NO EXISTE PORFAVOR REGISTRE AL CLIENTE" FONT
"ARIAL BLACK",17 COLOR RR+
READ
@10,50 SAY "DESEA CONTINUAR SI/NO" FONT "ARIAL BLACK",15 COLOR BG+ GET
OPCLI FONT "ARIAL BLACK",15
READ
IF OPCLI="S" THEN
LOOP
ELSE
DO menu1.prg
ENDIF
ENDIF
ENDIF

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 60
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

**%%%%%%%%%%%%%%%%%%%%%%%%1111111111111111111111111111%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%
@1,3 TO 11,139
@9,4 SAY "COD DE PRODUCTO " FONT "ARIAL BLACK",10 get codpr FONT "ARIAL
BLACK",10
READ
USE productos1.dbf
LOCATE FOR codpr=Cod_pro
IF codpr=cod_pro THEN

@9,50 SAY nombre FONT "ARIAL",12

@9,86 SAY "CANTIDAD " FONT "ARIAL BLACK",10 GET cantidad1

FONT "ARIAL",10
@9,118 SAY "KILOS " FONT "ARIAL
BLACK",10
NPRO=nombre
READ

T1=prevenkl*cantidad1
ENDIF
READ
USE boletas.dbf
APPEND BLANK
REPLACE Numero WITH B
REPLACE Codpro WITH codpr
REPLACE nompro WITH NPRO
REPLACE Codclie WITH codcli
REPLACE nomcli WITH NCLI
REPLACE preven WITH T1
REPLACE Canti WITH cantidad1
REPLACE fecha WITH fechas1
READ

**%%%%%%%%%%%%%%%%%%%%%%2222222222222222222222%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%
@1,3 TO 13,139
@11,4 SAY "COD DE PRODUCTO " FONT "ARIAL BLACK",10 get codpr2 FONT
"ARIAL BLACK",10
READ
USE productos1.dbf
LOCATE FOR codpr2=Cod_pro
IF codpr2=cod_pro THEN
@11,50 SAY nombre FONT "ARIAL",12
@11,86 SAY "CANTIDAD " FONT "ARIAL BLACK",10 GET cant2 FONT
"ARIAL",10
@11,118 SAY "KILOS " FONT
"ARIAL BLACK",10
NPRO=nombre
READ

T2=prevenkl*cant2
ENDIF
READ
USE boletas.dbf
APPEND BLANK
REPLACE Numero WITH B
REPLACE Codpro WITH codpr2
REPLACE nompro WITH NPRO
REPLACE Codclie WITH codcli
REPLACE nomcli WITH NCLI
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 61
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

REPLACE preven WITH T2

REPLACE Canti WITH cant2
REPLACE fecha WITH fechas1
READ

**%%%%%%%%%%%%33333333333333333333333333333333333333%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%
@1,3 TO 15,139
@13,4 SAY "COD DE PRODUCTO " FONT "ARIAL BLACK",10 get codpr3 FONT
"ARIAL BLACK",10
READ
USE productos1.dbf
LOCATE FOR codpr3=Cod_pro
IF codpr3=cod_pro THEN
@13,50 SAY nombre FONT "ARIAL",12
@13,86 SAY "CANTIDAD " FONT "ARIAL BLACK",10 GET cant3 FONT
"ARIAL",10
@13,118 SAY "KILOS " FONT
"ARIAL BLACK",10
NPRO=nombre
READ

T3=prevenkl*cant3
ENDIF
READ
USE boletas.dbf
APPEND BLANK
REPLACE Numero WITH B
REPLACE Codpro WITH codpr3
REPLACE nompro WITH NPRO
REPLACE Codclie WITH codcli
REPLACE nomcli WITH NCLI
REPLACE preven WITH T3
REPLACE Canti WITH cant3
REPLACE fecha WITH fechas1
READ
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%444444444444444444444444%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%
@1,3 TO 17,139
@15,4 SAY "COD DE PRODUCTO " FONT "ARIAL BLACK",10 get codpr4 FONT
"ARIAL BLACK",10
READ
USE productos1.dbf
LOCATE FOR codpr4=Cod_pro
IF codpr4=cod_pro THEN
@15,50 SAY nombre FONT "ARIAL",12
@15,86 SAY "CANTIDAD " FONT "ARIAL BLACK",10 GET cant4 FONT
"ARIAL",10
@15,118 SAY "KILOS " FONT
"ARIAL BLACK",10
NPRO=nombre
READ

T4=prevenkl*cant4
ENDIF
READ
USE boletas.dbf
APPEND BLANK
REPLACE Numero WITH B
REPLACE Codpro WITH codpr4
REPLACE nompro WITH NPRO
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 62
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

REPLACE Codclie WITH codcli

REPLACE nomcli WITH NCLI
REPLACE preven WITH T4
REPLACE Canti WITH cant4
REPLACE fecha WITH fechas1
READ

*%%%%%%%%%%%%%%%%%%%%%%555555555555555555555555555555%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%
@1,3 TO 19,139
@17,4 SAY "COD DE PRODUCTO " FONT "ARIAL BLACK",10 get codpr5 FONT
"ARIAL BLACK",10
READ
USE productos1.dbf
LOCATE FOR codpr5=Cod_pro
IF codpr5=cod_pro THEN
@17,50 SAY nombre FONT "ARIAL",12
@17,86 SAY "CANTIDAD " FONT "ARIAL BLACK",10 GET cant5 FONT
"ARIAL",10
@17,118 SAY "KILOS" FONT "ARIAL
BLACK",10
NPRO=nombre
READ

T5=prevenkl*cant5
ENDIF
READ
USE boletas.dbf
APPEND BLANK
REPLACE Numero WITH B
REPLACE Codpro WITH codpr5
REPLACE nompro WITH NPRO
REPLACE Codclie WITH codcli
REPLACE nomcli WITH NCLI
REPLACE preven WITH T5
REPLACE Canti WITH cant5
REPLACE fecha WITH fechas1
READ

*%%%%%%%%%%%%%%%%%%%%%%%%%%66666666666666666666%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%
@1,3 TO 21,139
@19,4 SAY "COD DE PRODUCTO " FONT "ARIAL BLACK",10 get codpr6 FONT
"ARIAL BLACK",10
READ
USE productos1.dbf
LOCATE FOR codpr6=Cod_pro
IF codpr6=cod_pro THEN
@19,50 SAY nombre FONT "ARIAL",12
@19,86 SAY "CANTIDAD " FONT "ARIAL BLACK",10 GET cant6 FONT
"ARIAL",10
@19,118 SAY "KILOS " FONT
"ARIAL BLACK",10
NPRO=nombre
READ

T6=prevenkl*cant6
ENDIF
READ
USE boletas.dbf
APPEND BLANK
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 63
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

REPLACE Numero WITH B

REPLACE Codpro WITH codpr6
REPLACE nompro WITH NPRO
REPLACE Codclie WITH codcli
REPLACE nomcli WITH NCLI
REPLACE preven WITH T6
REPLACE Canti WITH cant6
REPLACE fecha WITH fechas1
READ

*%%%%%%%%%%%%%%%%%%%%%%%%%%%%777777777777777777777777777%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%
@1,3 TO 23,139
@21,4 SAY "COD DE PRODUCTO " FONT "ARIAL BLACK",10 get codpr7 FONT
"ARIAL BLACK",10
READ
USE productos1.dbf
LOCATE FOR codpr7=Cod_pro
IF codpr7=cod_pro THEN
@21,50 SAY nombre FONT "ARIAL",12
@21,86 SAY "CANTIDAD " FONT "ARIAL BLACK",10 GET cant7 FONT
"ARIAL",10
@21,118 SAY "KILOS " FONT
"ARIAL BLACK",10
NPRO=nombre
READ

T7=prevenkl*cant7
ENDIF
READ
USE boletas.dbf
APPEND BLANK
REPLACE Numero WITH B
REPLACE Codpro WITH codpr7
REPLACE nompro WITH NPRO
REPLACE Codclie WITH codcli
REPLACE nomcli WITH NCLI
REPLACE preven WITH T7
REPLACE Canti WITH cant7
REPLACE fecha WITH fechas1
READ
READ
@26,53 TO 30,130 COLOR BB+
@26,53 TO 30,100 COLOR BB+
@26,53 TO 34,130 COLOR BB+
*QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
USE boletas.dbf
TG=T1+T2+T3+T4+T5+T6+T7
APPEND BLANK
REPLACE total WITH TG
REPLACE fecha WITH fechas1
*@ 27,55 say "S/:" FONT "ARIAL BLACK",17
@ 27,55 say "MONTO TOTAL: S/" FONT "ARIAL BLACK",17
@ 27,105 say TG FONT "ARIAL BLACK",17
READ
READ
@ 31,60 say "¿DESEA CONTINUAR S/N? " FONT "ARIAL BLACK",17 GET OPCLI2
FONT "ARIAL BLACK",17
READ

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 64
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

IF OPCLI2="S" THEN
LOOP
ELSE
CLEAR
DO menu1.prg
ENDIF
*QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
ENDDO

ELIMINAR CLIENTE
**%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%
SET TALK OFF
DO WHILE .T.
OP=SPACE(4)
OP2=SPACE(4)
USE clientes1.dbf

STORE 0 TO COD
CLEAR
@2,50 SAY "VERDULERIA MAX " FONT "MAGNETO",20 STYLE "BU"
@2/1.16,40 TO 4,110 COLOR BB+
**%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%
@1.1,2 TO 15,140 COLOR BB+
@1,2 TO 15,140 COLOR BB+
@1,2 TO 14.9,140 COLOR BB+
@1,2 TO 7,140 COLOR BB+
@1,2 TO 7.1,140 COLOR BB+

@5,49 SAY "ELIMINAR CLIENTES" FONT "ARIAL BLACK",14 STYLE "BU"

COLOR BG+
@9,10 SAY "INGRESE CODIGO:" FONT "ARIAL BLACK",14 GET COD PICT
"99999" FONT "ARIAL",14
@12,30 SAY "PRECIONE ENTER PARA BORRAR AL CLIENTE:" FONT "ARIAL
BLACK",12 COLOR BG+
READ
USE clientes1.dbf
LOCATE FOR COD=cod_client
IF COD=cod_client THEN

**%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%
CLEAR
@1,2 TO 30,138 COLOR BB+
@1,2 TO 27.2,138 COLOR BB+
@1,2 TO 7,138 COLOR BB+
@1,2 TO 7.1,138 COLOR BB+

@2/1.16,38 TO 4.8,115 COLOR BB+

@2,50 SAY "VERDULERIA MAX " FONT "MAGNETO",22 STYLE "BU"

@5,49 SAY "ELIMINAR CLIENTES"FONT "ARIAL BLACK",14 STYLE
"BU"
@10,18 TO 27,120 COLOR BB+
@8,12 SAY "SU CODIGO ES:" FONT "ARIAL BLACK",13 COLOR
BG+
@8,37 SAY cod_client FONT "ARIAL BLACK",13

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 65
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

@11,20 SAY "SU NOMBRE ES:" FONT "ARIAL BLACK",13 COLOR

BG+
@11,48 SAY nombres FONT "ARIAL BLACK",13
@14,20 SAY "DNI ES :" FONT "ARIAL BLACK",13 COLOR
BG+
@14,50 SAY dni FONT "ARIAL BLACK",13
@17,20 SAY "DIRECCION:" FONT "ARIAL BLACK",13 COLOR
BG+
@17,45 SAY direccion FONT "ARIAL BLACK",13
@20,20 SAY "TELEFONO:" FONT "ARIAL BLACK",13 COLOR
BG+
@20,49 SAY telefono FONT "ARIAL BLACK",13
@23,20 SAY "EMAIL:" FONT "ARIAL BLACK",13 COLOR
BG+
@23,67 SAY correo FONT "ARIAL BLACK",13
READ
**%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%
CLEAR
@1,2 TO 30,138 COLOR BB+
@1,2 TO 27.2,138 COLOR BB+
@1,2 TO 7,138 COLOR BB+
@1,2 TO 7.1,138 COLOR BB+

@2/1.16,38 TO 4.8,115 COLOR BB+

@2,50 SAY "VERDULERIA MAX " FONT "MAGNETO",22 STYLE "BU"

@5,49 SAY "ELIMINAR CLIENTES"FONT "ARIAL BLACK",14 STYLE
"BU"
@10,18 TO 27,120 COLOR BB+

@16,23 SAY "¿ESTA SEGURO QUE DESEA ELIMINAR ESTE CLIENTE?"

FONT "ARIAL BLACK",13 COLOR RR+
@18,20 SAY "SI ELIMINA, EL REGISTRO SE BORRARA PERMANENTEMENTE"
FONT "ARIAL BLACK",13 COLOR RR+

READ
**%%%%%%%%%%%%%%%%%%%%%%%%
@28,70 SAY "¿¿DESEA CONTINUAR??(S)(N):" FONT "ARIAL BLACK",16 COLOR
BG+ COLOR GR+/B,R/W GET OP FONT "ARIAL BLACK",16 COLOR BG+ COLOR BG+
READ
IF OP="S" THEN
USE clientes1.dbf
GO TOP
GO COD
DELETE
PACK
READ
READ
**%%%%%%%%%%%%%%%%%%%%%%%%
CLEAR
@1,2 TO 30,138 COLOR BB+
@1,2 TO 27.2,138 COLOR BB+
@1,2 TO 7,138 COLOR BB+
@1,2 TO 7.1,138 COLOR BB+

@2/1.16,38 TO 4.8,115 COLOR BB+

@2,50 SAY "VERDULERIA MAX " FONT "MAGNETO",22 STYLE

"BU"

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 66
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

@5,49 SAY "ELIMINAR CLIENTES" FONT "ARIAL BLACK",14 STYLE

"BU"
@10,18 TO 27,120 COLOR BB+
@16,23 SAY "EL CLIENTE A SIDO ELIMINADO CORRECTAMENTE "
FONT "ARIAL BLACK",13 COLOR BG+
READ
READ
**%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%
ELSE
**%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%
CLEAR
@1,2 TO 30,138 COLOR BB+
@1,2 TO 27.2,138 COLOR BB+
@1,2 TO 7,138 COLOR BB+
@1,2 TO 7.1,138 COLOR BB+

@2/1.16,38 TO 4.8,115 COLOR BB+

@2,50 SAY "VERDULERIA MAX " FONT "MAGNETO",22 STYLE

"BU"
@5,49 SAY "ELIMINAR CLIENTES" FONT "ARIAL BLACK",14 STYLE
"BU"
@10,18 TO 27,120 COLOR BB+

@16,23 SAY "EL CLIENTE NO HA SIDO ELIMINADO" FONT

"ARIAL BLACK",17 COLOR BG+
READ
READ
**%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%
CLEAR
DO submenuclient1.prg

ENDIF
ELSE
CLEAR

**%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%
@ 4,7 TO 8,103 COLOR R+
@ 8,7 TO 12,103 COLOR R+
@5,10 SAY "¡¡ESTE CODIGO NO EXISTE!!" FONT "ARIAL BLACK",16
COLOR BG+ STYLE "BU"
READ
@9,25 SAY "¿¿DESEA CONTINUAR??(S)(N):" FONT "ARIAL BLACK",16
COLOR BG+ STYLE "BU" GET OP COLOR WB+ FONT "ARIAL BLACK",16
READ

IF OP="S" THEN
LOOP

ELSE

CLEAR
DO submenuclient1.prg

ENDIF
ENDIF
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 67
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

**%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%
ENDDO

HISTORIA

SET TALK OFF

DO WHILE .T.
CLEAR
OP=SPACE(3)

define windows rr from 0,0 to 70,150 Shadow color RGB (1,1,1,1)

ACTIVATE WINDOWs rr
@0.5,35 TO 6,100

@1.5,45 SAY "VERDULERIA MAX " FONT "magneto",25 STYLE "BU"

*@6,48 SAY "STOCK DE PRODUCTOS" FONT "ARIAL",17 STYLE "BU" COLOR
BW+

@7,1 SAY "FECHA" FONT "ARIAL BLACK",8

@7,13 SAY "PRODUCTO" FONT "ARIAL BLACK",8
@7,25 SAY "CANTIDAD" FONT "ARIAL BLACK",8
@7,37 SAY "CLIENTE" FONT "ARIAL BLACK",8
@7,48 SAY "PRECIO PRO" FONT "ARIAL BLACK",8
@7,60 SAY "PRECIO TOTAL" FONT "ARIAL BLACK",8

USE venpro1.dbf
LIST ALL fecha,codpro,canti,codclie,preven,total off

@16,88 SAY " VERDULERIA MAX" FONT "MAGNETO",18 STYLE "BU"

@20,92 SAY "HISTORIAL DE VENTAS" FONT "ARIAL",18 STYLE "BU"

READ
READ
READ
CLEAR
USE venpro1.dbf
BROWSE FONT "ARIAL BLACK",9
READ
READ
define windows rr from 0,0 to 50,150 Shadow color RGB (1,1,1,1)
DEACTIVATE WINDOWs rr
@0.2,30 TO 10,145 COLOR BB+
@5,30 TO 10,145 COLOR BB+
@0.2,29 TO 11,146 COLOR BB+
@1.5,45 SAY "VERDULERIA MAX " FONT "magneto",30 STYLE "BU" COLOR
BG+
@6,45 SAY "¿DESEA CONTINUAR S/N?" FONT "ARIAL BLACK",25 GET OP FONT
"ARIAL BLACK",25
READ
IF OP="S"THEN
LOOP
ELSE
CLEAR
define windows rr from 0,0 to 50,150 Shadow color RGB (1,1,1,1)
DEACTIVATE WINDOWs rr
DO menu1.prg
ENDIF
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 68
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

ENDDO

INGREDI1

SET TALK OFF

DO WHILE .T.
CLEAR
define windows rr from 1,34 to 17,150 Shadow color
RGB(24,28,24,24)
ACTIVATE WINDOWs rr

CLOSE DATABASES
USE clientes1.dbf

OP=SPACE(3)

NOM=SPACE(30)
D=SPACE(30)
EMAIL=SPACE(35)

STORE 0 TO COD,DNIS,TEL

****************
CLEAR
@1,15 TO 6,99
@1,15 TO 11,99
@1,14 TO 12,100
@2.5,24 say "VERDULERIA MAX REGISTRO DE CLIENTE " FONT "ALGERIAN",22
STYLE "BU"
@8,25 say "INGRESE CODIGO DEL NUEVO CLIENTE" FONT "ARIAL BLACK",15 GET COD
FONT "ARIAL BANCK",15
READ

*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%
LOCATE FOR COD=cod_client
IF COD=cod_client THEN

CLEAR
define windows rr from 1,34 to 17,150 Shadow color RGB(24,28,24,24)
DEACTIVATE WINDOWs rr

define windows rr from 1,2 to 15,70 Shadow color RGB(24,28,24,24)

ACTIVATE WINDOWs rr
@2,5 TO 11,62
@3,15 SAY "¡¡ESTE CODIGO YA EXISTE!!" FONT "ARIAL BLACK",15 COLOR RR+
STYLE "BU"
READ
@7,14 SAY " DESEA CONTINUAR (S)(N):" FONT "ARIAL BLACK",15 GET OP
FONT "ARIAL BLACK",15 COLOR GG+
READ
IF OP="S"THEN
define windows rr from 1,2 to 15,70 Shadow color RGB(24,28,24,24)
DEACTIVATE WINDOWs rr
LOOP
ELSE
CLEAR
define windows rr from 1,2 to 15,70 Shadow color RGB(24,28,24,24)
DEACTIVATE WINDOWs rr
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 69
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

DO submenuclient1.prg

ENDIF

****************************************++++****

ELSE
CLEAR
define windows rr from 1,34 to 17,150 Shadow color
RGB(24,28,24,24)
DEACTIVATE WINDOWs rr

@1,2 TO 30,140 COLOR BB+

@1,2 TO 29.5,140 COLOR BB+
@1,2 TO 9,140 COLOR BB+
@1,2 TO 8.5,140 COLOR BB+
@2/1.16,40 TO 4.5,110 COLOR BB+
@2/1.16,40 TO 5,110 COLOR BB+

@2,50 SAY "VERDULERIA MAX " FONT "MAGNETO",21 STYLE

"BU"
@5,49 SAY "REGISTRO DE CLIENTE " FONT "ARIAL BLACK",16
STYLE "BU"

@ 9,5 SAY " CODIG0 Nº" FONT "ARIAL BLACK",12 STYLE "BU"
@ 9,21 SAY COD FONT "ARIAL BLACK",12 STYLE "BU"

***********************
@ 11,5 SAY "NOMBRES Y APELLIDOS"COLOR BG+ FONT "ARIAL BLACK",12
GET NOM FONT "ARIAL BLACK",12
@ 14,5 SAY " INGRESE DNI" COLOR BG+ FONT "ARIAL BLACK",12
GET DNIS FONT "ARIAL BLACK",12
@ 17,5 SAY " DIRECCION" COLOR BG+ FONT "ARIAL BLACK",12
GET D FONT "ARIAL BLACK",12
@ 20,5 SAY " TELEFONO CELULAR" COLOR BG+ FONT "ARIAL BLACK",12
GET TEL FONT "ARIAL BLACK",12
@ 23,5 SAY "CORREO ELECTRONICO" COLOR BG+ FONT "ARIAL BLACK",12
GET EMAIL FONT "ARIAL BLACK",12

@ 26,55 SAY "PRESIONE ENTER PARA REGISTRAR" COLOR BG+ FONT "ARIAL
BLACK",16
READ
APPEND BLAN
REPLACE cod_client WITH COD
REPLACE dni WITH DNIS
REPLACE nombres WITH NOM
REPLACE direccion WITH D
REPLACE telefono WITH TEL
REPLACE correo WITH EMAIL

CLEAR
@1,2 TO 11,140 COLOR RR+
@2/1.16,40 TO 4,110 COLOR RR+
@2,50 SAY "VERDULERIAS MAX" FONT "ALGERIAN ",16 STYLE "BU"
@5,20 SAY "NUEVO CLIENTE REGISTRADO CORRECTAMENTE" COLOR BG+ FONT
"ARIAL BLACK",16 STYLE "BU"
READ
@7,40 SAY "¿DESEA CONTINUAR REGISTRANDO? S/N" FONT "ARIAL BLACK",15
COLOR BG+ GET OP COLOR gr+/b,r/w FONT "ARIAL BLACK",15
READ
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 70
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

IF OP="S"
LOOP
ENDIF
IF OP="N"
CLEAR
DO submenuclient1.prg
ENDIF

ENDIF
ENDDO
RETURN

INGRESO DE PRODUCTOS

SET TALK OFF

CLEAR

CLOSE DATABASES
DO WHILE .T.

USE productos1.dbf

OP=SPACE(3)

STORE DATE () TO fecha2

nom=SPACE(30)
categ=SPACE(30)
prove=SPACE(30)
obs=SPACE(30)

STORE 0 TO COD,canti,preco,preven,D

****************
CLEAR
define windows rr from 0,25 to 15,120 Shadow color RGB (1,1,1,1)
ACTIVATE WINDOWs rr
@1.5,10 TO 12,80
@1.5,10 TO 5,80
@1.5,10 TO 6,80

@0.9,9.5 TO 13.2,81.5
*@2,35 TO 8,120
@ 1.5,20 say "VERDURERIA MAX" FONT "MAGNETO",23 STYLE "BU"
@ 8,15 say "INGRESE CODIGO DEL PRODUCTO" FONT "ARIAL BLACK",15 GET COD
FONT "ARIAL BANCK",15
READ

LOCATE FOR COD=cod_pro

IF COD=cod_pro THEN
**************************************************
CLEAR
define windows rr from 0,25 to 15,120 Shadow color RGB (1,1,1,1)
DEACTIVATE WINDOWs rr

@2,2 TO 7,62 COLOR RR+

@1,1 TO 8,63 COLOR RR+

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 71
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

@3,5 SAY "¡¡ESTE CODIGO YA EXISTE!!" FONT "ARIAL BLACK",15 COLOR BG+
STYLE "BU"
READ
@5,3 SAY " DESEA CONTINUAR (S)(N):" FONT "ARIAL BLACK",15 GET OP FONT
"ARIAL BLACK",15 COLOR BG+
READ
IF OP="S"THEN

LOOP
ELSE
CLEAR
define windows rr from 0,25 to 15,120 Shadow color RGB
(1,1,1,1)
DEACTIVATE WINDOWs rr
DO submenuproductos1.prg

ENDIF

*****************************************++++****
LOOP
ELSE
CLEAR

DEACTIVATE WINDOWs rr

define windows rr from 0,0 to 48,130 Shadow color RGB

(0,0,0,119,136,153)
ACTIVATE WINDOWs rr

@0,2 TO 47,126 COLOR BB+

@0,0 TO 47,128 COLOR BB+

@7,3 TO 35,125 COLOR RGB (0,255,255)

@2,48 SAY "VERDULERIA MAX " FONT "MAGNETO",25 STYLE "BU"

COLOR BG+
@6,49 SAY "INGRESO DE PRODUCTOS " FONT "ARIAL BLACK",14
STYLE "BU" COLOR RGB (0,255,255)

@ 9,7 SAY " CODIG0 Nº" FONT "ARIAL BLACK",12

@ 9,21 SAY COD FONT "ARIAL BLACK",12

*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%

@ 11,7 SAY "INGRESE NOMBRE" COLOR BG+ FONT "ARIAL

BLACK",13 GET nom FONT "ARIAL BLACK",13 COLOR RGB (0,0,255)
@ 14,9 SAY "INGRESE CATEGORIA" COLOR BG+ FONT "ARIAL
BLACK",13 GET categ FONT "ARIAL BLACK",13 COLOR RGB (0,0,128)
@ 17,11 SAY "INGRESE CANTIDAD INICIAL" COLOR BG+ FONT "ARIAL
BLACK",13 GET canti FONT "ARIAL BLACK",13 COLOR RGB (0,0,128)
@ 17,57 SAY "KL" COLOR BG+ FONT "ARIAL
BLACK",13
@ 20,13 SAY "INGRESE PROVEEDOR" COLOR BG+ FONT "ARIAL
BLACK",13 GET prove FONT "ARIAL BLACK",13 COLOR RGB (0,0,128)

@ 23,15 SAY "INGRESE PRECIO DE COMPRA" COLOR BG+ FONT "ARIAL

BLACK",13 GET preco FONT "ARIAL BLACK",13 COLOR RGB (0,0,128)
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 72
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

@ 26,19 SAY "INGRESE PRECIO DE VENTA" COLOR BG+ FONT "ARIAL

BLACK",13 GET preven FONT "ARIAL BLACK",13 COLOR RGB (0,0,128)
@ 29,21 SAY "FECHA DE INGRESO" COLOR BG+ FONT "ARIAL BLACK",12
@ 29,45 SAY fecha2 FONT "ARIAL BLACK",12

@ 26,65 SAY "POR KL" COLOR BG+ FONT "ARIAL

BLACK",13
@ 32,23 SAY "OBSERVACIONES" COLOR BG+ FONT "ARIAL
BLACK",13 GET obs fONT "ARIAL BLACK",13 COLOR RGB (0,0,128)

@ 36,68 SAY "PRESIONE ENTER PARA GUARDAR" COLOR BG+ FONT "ARIAL
BLACK",13
READ
APPEND BLAN
REPLACE fecha WITH fecha2
REPLACE cod_pro WITH COD
REPLACE nombre WITH nom
REPLACE categoria WITH categ
REPLACE cantikl WITH canti
REPLACE stock WITH canti
REPLACE proveedor WITH prove
REPLACE precom WITH preco
REPLACE prevenkl WITH preven
REPLACE observa WITH obs

***********************************************
*HALLAMOS EL PROMEDIO*******
A=precom
B=prevenkl
C=Inversión
D=A*B
REPLACE Inversión WITH D
************************************************
CLEAR
@0,2 TO 47,126 COLOR BB+
@0,0 TO 47,128 COLOR BB+

@7,3 TO 35,125 COLOR RGB (0,255,255)

@2,48 SAY "VERDULERIA MAX " FONT "MAGNETO",25 STYLE "BU"

COLOR BG+
@6,49 SAY "INGRESO DE PRODUCTOS " FONT "ARIAL BLACK",14
STYLE "BU" COLOR RGB (0,255,255)

@17,40 SAY "SISTEMA MATRIX" FONT "ARIAL BLACK",16 STYLE "BU"

@20,13 SAY "LOS DATOS HAN SIDO ALMACENADOS CORRECTAMENTE" COLOR BG+
FONT "ARIAL BLACK",16 STYLE "BU"
READ
@23,40 SAY "¿DESEA CONTINUAR INGRESANDO? S/N" FONT "ARIAL BLACK",15
COLOR BG+ GET OP COLOR gr+/b,r/w FONT "ARIAL BLACK",15
READ

IF OP="S"
LOOP
ELSE
DEACTIVATE WINDOWs rr
CLEAR
DO submenuproductos1.prg
ENDIF
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 73
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

ENDIF
ENDDO
RETURN

MENU1

SET TALK OFF

DO WHILE .T.

CLEAR

*DEFINE WINDOW wMain AT 0,0 SIZE 40,130 ;FONT 'Courier New',10 ;DOUBLE
CLOSE
*ACTIVATE WINDOW wMain
STORE 0 TO OP

define windows AA from 1,2 to 40,130 SHADOW COLOR RGB (0,0,0,119,136,153)

ACTIVATE WINDOWs AA
@1,35 TO 4,100 COLOR RGB (0,255,255)
@7,10 TO 35,115 COLOR RGB (0,255,255)
@8,11 TO 28,114 COLOR RGB (0,255,255)
@0,2 TO 38,124 COLOR BG+
@0,0 TO 38,128 COLOR BG+

*********************************************************************
*********************************************************************
@1,37 SAY "VERDULERIA MAX" FONT "MAGNETO",30 STYLE "BU" COLOR RGB
(0,255,255,)
@5,48 SAY "MENU DE INGRESO PRINCIPAL" FONT "ARIAL",17 STYLE "BU" COLOR
RGB (0,191,255,)
***************************************************************************
*******
@10,12 SAY "1.INGRESAR PRODUCTO" FONT "ARIAL BLACK",14
@15,15 SAY "2.ADMINISTRAR PRODUCTOS" FONT "ARIAL BLACK",14
@20,18 SAY "3.ADMINISTRAR CLIENTES" FONT "ARIAL BLACK",14
@25,21 SAY "4.HISTORIAL" FONT "ARIAL BLACK",14

@10,72 SAY "5.VENDER PRODUCTOS" FONT "ARIAL BLACK",14

@15,75 SAY "6.CREAR BOLETA" FONT "ARIAL BLACK",14
@20,78 SAY "7.GENERAR REPORTE" FONT "ARIAL BLACK",14
@25,81 SAY "8.SALIR DEL PROGRAMA" FONT "ARIAL BLACK",14
**************************************************************************

@31,78 SAY "INGRESE OPCION" FONT "ARIAL",17 STYLE "BU" GET OP PICT "9999"
FONT "ARIAL",17 COLOR BG+

READ
*****************************************
DO CASE

CASE OP=1
DEACTIVATE WINDOWs AA
DO ingrepro1.prg
CASE OP=2

DEACTIVATE WINDOWs AA
DO submenuproductos1.prg
CASE OP=3

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 74
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

DEACTIVATE WINDOWs AA
DO submenuclient1.prg
CASE OP=4

DEACTIVATE WINDOWs AA
DO historial1.prg
CASE OP=5

DEACTIVATE WINDOWs AA
DO ventareal.prg
CASE OP=6

DEACTIVATE WINDOWs AA
DO crearboleta.prg
CASE OP=7

DEACTIVATE WINDOWs AA

CASE OP=8
QUIT

******************************************
OTHERWISE
CLEAR
@1,35 TO 4,100 COLOR RGB (0,255,255)
@7,10 TO 35,115 COLOR RGB (0,255,255)
@8,11 TO 28,114 COLOR RGB (0,255,255)
@0,2 TO 38,124 COLOR BG+
@0,0 TO 38,128 COLOR BG+

@1,37 SAY "VERDULERIA MAX" FONT "MAGNETO",30 STYLE "BU"

COLOR RGB (0,255,255,)
@5,48 SAY "MENU DE INGRESO PRINCIPAL" FONT "ARIAL",17 STYLE "BU"
COLOR RGB (0,191,255,)

@16,15 SAY "¡¡OPCION NO EXISTE!! PRECIONE ENTER PARA CONTINUAR" FONT

"ARIAL BLACK",17 STYLE "N" COLOR RR+
@19,15 SAY " INGRESE LAS OPCIONES QUE SE MUESTRAN EN EL MENU"
FONT "ARIAL BLACK",17 STYLE "N" COLOR RR+
READ
LOOP

ENDCASE
ENDDO

REPORTE1

SET TALK OFF

f2=SPACE(9)
STORE DATE () TO f2
OP=SPACE(3)
DO WHILE .T.
CLEAR

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 75
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

@1,45 SAY "VERDULERIA MAX " FONT "magneto",25 STYLE "BU"

@6,45 SAY "INGRESE FECHA" FONT "ARIAL BLACK",25 GET f2 FONT "ARIAL
BLACK",25

USE Venpro1.dbf
LOCATE FOR Fecha=f2
IF Fecha=f2 THEN

LIST ALL codpro,nompro,canti,codclie,nomcli,preven, total off

READ
ELSE
LOOP

ENDIF
ENDDO

STOCK PRO

SET TALK OFF

DO WHILE .T.
CLEAR
OP=SPACE(3)

define windows rr from 0,0 to 70,150 Shadow color RGB (0,0,0,0,206,209)

ACTIVATE WINDOWs rr
@0,0 TO 69,149 COLOR BG+

@1.5,45 SAY "VERDULERIA MAX " FONT "magneto",25 STYLE "BU" COLOR BG+
*@6,48 SAY "STOCK DE PRODUCTOS" FONT "ARIAL",17 STYLE "BU" COLOR
BW+

@7,1 SAY "CODIGO" FONT "ARIAL BLACK",8

@7,13 SAY "NOMBRE DEL PRODUCTO" FONT "ARIAL BLACK",8
@7,38 SAY "FECHA DE INGRESO" FONT "ARIAL BLACK",8
@7,57 SAY "CANTIDAD INICIAL" FONT "ARIAL BLACK",8
@7,75 SAY "STOCK" FONT "ARIAL BLACK",8
USE PRODUCTOS1.dbf
LIST ALL cod_pro,nombre,fecha,cantikl,stock off

READ
READ
READ
CLEAR

DEACTIVATE WINDOWs rr
@0.2,30 TO 10,145 COLOR BB+
@5,30 TO 10,145 COLOR BB+
@0.2,29 TO 11,146 COLOR BB+
@1.5,45 SAY "VERDULERIA MAX " FONT "magneto",30 STYLE "BU" COLOR
BG+
@6,45 SAY "¿DESEA CONTINUAR S/N?" FONT "ARIAL BLACK",25 COLOR RGB(0,0,128)
GET OP FONT "ARIAL BLACK",25
READ
IF OP="S"THEN
LOOP
ELSE
CLEAR

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 76
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

DEACTIVATE WINDOWs rr
DO submenuproductos1.prg
ENDIF
ENDDO

SUB MENU CLIENTE1

SET TALK OFF

DO WHILE .T.

CLEAR
STORE 0 TO OP

define windows rr from 1,2 to 40,130 Shadow COLOR RGB(0,0,0,119,136,153)

ACTIVATE WINDOWs rr
@0,2 TO 39,124 COLOR BG+
@0,0 TO 39,129 COLOR BG+
@1,35 TO 4,100 COLOR RGB (0,255,255)
@7,10 TO 35,115 COLOR RGB (0,255,255)
@7,10 TO 29,115 COLOR RGB (0,255,255)
@8,11 TO 34,114 COLOR RGB (0,255,255)
@8,11 TO 28,114 COLOR RGB (0,255,255)

**%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*********************************************************************
@1.4,45 SAY "VERDULERIA MAX " FONT "Magneto",25 STYLE "BU" COLOR
BG+
@5,48 SAY "MENU DE CLIENTES" FONT "ARIAL",17 STYLE "BU" COLOR RGB
(0,0,128)
***************************************************************************
*******
@12,19 SAY "1.REGISTRAR CLIENTES" FONT "ARIAL BLACK",14
@20,19 SAY "2.BUSCAR CLIENTES" FONT "ARIAL BLACK",14
@12,68 SAY "3.ELIMINAR CLIENTES" FONT "ARIAL BLACK",14
@20,68 SAY "4.REGRESAR AL MENU PRINCIPAL" FONT "ARIAL BLACK",14
**************************************************************************

@31,80 SAY "INGRESE OPCION" FONT "ARIAL",17 STYLE "BU" GET OP PICT "9999"
FONT "ARIAL",17 COLOR BG+

READ

**%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
DO CASE

CASE OP=1
define windows rr from 1,2 to 40,130 Shadow color RGB
(0,64,64,64)
DEACTIVATE WINDOWs rr
DO ingrecli1.prg
CASE OP=2
define windows rr from 1,2 to 40,130 Shadow color RGB
(0,64,64,64)
DEACTIVATE WINDOWs rr
DO buscarclient1.prg
CASE OP=3
define windows rr from 1,2 to 40,130 Shadow color RGB
(0,64,64,64)
DEACTIVATE WINDOWs rr
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 77
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

DO eliminarcliente1.prg

CASE OP=4
define windows rr from 1,2 to 40,130 Shadow color RGB
(0,64,64,64)
DEACTIVATE WINDOWs rr
DO menu1.prg

**%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
OTHERWISE
CLEAR
@0,2 TO 39,124 COLOR BG+
@0,0 TO 39,129 COLOR BG+

@1,35 TO 4,100 COLOR RGB (0,255,255)

@7,10 TO 35,115 COLOR RGB (0,255,255)
@7,10 TO 29,115 COLOR RGB (0,255,255)
@8,11 TO 34,114 COLOR RGB (0,255,255)
@8,11 TO 28,114 COLOR RGB (0,255,255)

@1.4,45 SAY "VERDULERIA MAX " FONT "Magneto",25 STYLE "BU"

COLOR BG+
@5,48 SAY "MENU DE CLIENTES" FONT "ARIAL",17 STYLE "BU" COLOR RGB
(0,0,128)

@15,15 SAY "¡¡OPCION NO EXISTE!! PRECIONE ENTER PARA CONTINUAR" FONT

"ARIAL BLACK",17 STYLE "N" COLOR BG+
@17,14 SAY "INGRESE LAS OPCIONES QUE SE MUESTRAN EN EL MENU" FONT
"ARIAL BLACK",17 STYLE "N" COLOR BG+
READ
LOOP

ENDCASE
ENDDO
**;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

SUBMENU PRODUCTOS1

SET TALK OFF

DO WHILE .T.

CLEAR
STORE 0 TO OP

define windows rr from 1,2 to 40,130 Shadow color RGB (0,0,0,119,136,153)

ACTIVATE WINDOWs rr
@0,0 TO 38,129 COLOR BG+
@1,35 TO 4,100 COLOR RGB(0,255,255)
@7,10 TO 35,115 COLOR RGB(0,255,255)
@8,11 TO 28,114 COLOR RGB(0,255,255)
*********************************************************************
*********************************************************************
@1.5,45 SAY "VERDULERIA MAX " FONT "MAGNETO",25 STYLE "BU" COLOR
BG+
@5,48 SAY "MENU DE PRODUCTOS" FONT "ARIAL",17 STYLE "BU" COLOR RGB
(0,255,255)
***************************************************************************
*******
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 78
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

@12,19 SAY "1.INGRESAR PRODUCTOS" FONT "ARIAL BLACK",14

@20,19 SAY "2.CONSULTAR PRODUCTOS" FONT "ARIAL BLACK",14
@26,19 SAY "3.VER PRODUCTOS" FONT "ARIAL BLACK",14
@12,68 SAY "4.VISUALIZAR STOCK" FONT "ARIAL BLACK",14
@20,68 SAY "5.REGRESAR AL MENU PRINCIPAL" FONT "ARIAL BLACK",14
**************************************************************************

@31,80 SAY "INGRESE OPCION" FONT "ARIAL",17 STYLE "BU" GET OP PICT "9999"
FONT "ARIAL",17 COLOR BG+

READ
*****************************************
DO CASE

CASE OP=1
define windows rr from 1,2 to 40,130 Shadow color RGB
(0,64,64,64)
DEACTIVATE WINDOWs rr
DO ingrepro1.prg
CASE OP=2
define windows rr from 1,2 to 40,130 Shadow color RGB
(0,64,64,64)
DEACTIVATE WINDOWs rr
DO consulta1.prg

CASE OP=3
define windows rr from 1,2 to 40,130 Shadow color RGB
(0,64,64,64)
DEACTIVATE WINDOWs rr
DO verproductos1.prg
CASE OP=4
define windows rr from 1,2 to 40,130 Shadow color RGB
(0,64,64,64)
DEACTIVATE WINDOWs rr
DO stockpro1.prg
CASE OP=5
define windows rr from 1,2 to 40,130 Shadow color RGB
(0,64,64,64)
DEACTIVATE WINDOWs rr
DO menu1.prg
*****************************************
OTHERWISE
CLEAR
@5,10 SAY "¡¡OPCION NO EXISTE!! PRECIONE ENTER PARA CONTINUAR" FONT
"ARIAL",15 STYLE "N" COLOR BG+
@7,10 SAY "INGRESE LAS OPCIONES QUE SE MUESTRAN EN EL MENU" FONT
"ARIAL",15 STYLE "N" COLOR BG+
READ
LOOP

ENDCASE
ENDDO

VENTA REAL

SET TALK OFF

CLOSE DATABASES
CLEAR

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 79
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

define windows MM from 0,2 to 49,130 Shadow color RGB (0,0,0,119,136,153)

ACTIVATE WINDOWs MM

DO WHILE .T.

USE venpro1.dbf

NPRO=SPACE(15)
NCLI=SPACE(15)

OPCLI2=SPACE(3)
OPCLI=SPACE(3)
*clie=SPACE(15)
STORE 0 TO T1
STORE 0 TO T2
STORE 0 TO T3
STORE 0 TO T4
STORE 0 TO T5
STORE 0 TO T6
STORE 0 TO T7

STORE 0 TO TG

STORE DATE () TO fechas1

STORE 0 TO codpr,cantidad1,codcli
STORE 0 TO codpr2,cant2
STORE 0 TO codpr3,cant3
STORE 0 TO codpr4,cant4
STORE 0 TO codpr5,cant5
STORE 0 TO codpr6,cant6
STORE 0 TO codpr7,cant7
CLEAR

*BORDE 2
@0,0 TO 6,128 COLOR RGB (0,209,206)
*BORDE 3
@0,0 TO 9,128 COLOR RGB (0,206,209)
*BORDE GRANDE
@0,0 TO 48,128 COLOR BG+
*BORDE VENTAS
@12.5,4 SAY " INGRESE LA LISTA DE PEDIDOS" FONT "ARIAL
BLACK",12 COLOR RGB(0,255,255)

@15,4 SAY "CODIGO" FONT "ARIAL BLACK",13 COLOR RGB(5,0,255)

@15,20 SAY "NOMBRE" FONT "ARIAL BLACK",13 COLOR RGB(5,0,255)
@15,40 SAY "CANTIDAD" FONT "ARIAL BLACK",13 COLOR RGB(5,0,255)

@14,1 TO 35,33 COLOR RGB (0,206,209)

@14,1 TO 35,17 COLOR RGB (0,206,209)
@17,1 TO 35,60 COLOR RGB (0,206,209)
@14,1 TO 35,60 COLOR RGB (0,206,209)

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 80
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

@1,43 SAY "VERDULERIA MAX" FONT "MAGNETO",20 STYLE "BU" COLOR

RGB(0,0,0)
@4,45 SAY "VENTA DE PRODUCTOS" FONT "ARIAL BLACK",15 STYLE "BU" COLOR BG+

@7,2 SAY "FECHA DE VENTA:" FONT "ARIAL BLACK",10 COLOR BG+

@7,19 SAY fechas1 FONT "ARIAL BLACK",10
**%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
@7,33 SAY "COD CLIENTE: " FONT "ARIAL BLACK",10 COLOR BG+ GET codcli
FONT "ARIAL BLACK",10
READ

USE clientes1.dbf
LOCATE FOR codcli=cod_client
IF codcli=cod_client THEN

@7,72 SAY "CLIENTE:" FONT "ARIAL BLACK",10 COLOR BG+

@7.3,87 SAY nombres FONT "ARIAL",10
NCLI=nombres

ELSE
@20,8 SAY "ESTE CLIENTE NO EXISTE PORFAVOR REGISTRE AL CLIENTE" FONT
"ARIAL BLACK",17 COLOR RR+
READ
@23,50 SAY "DESEA CONTINUAR SI/NO" FONT "ARIAL BLACK",15 COLOR BG+ GET
OPCLI FONT "ARIAL BLACK",15
READ
IF OPCLI="S" THEN
LOOP
ELSE
DO menu1.prg
ENDIF
ENDIF

**%%%%%%%%%%%%%%%%%%%%%%%%1111111111111111111111111111%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%
@18,3 SAY "COD" FONT "ARIAL BLACK",10 get codpr FONT "ARIAL BLACK",10
READ
USE productos1.dbf
LOCATE FOR codpr=Cod_pro
IF codpr=cod_pro THEN

@18,19 SAY nombre FONT "ARIAL",10

@18,35 SAY "CANT" FONT "ARIAL BLACK",10 GET cantidad1 FONT

"ARIAL",10
@18,50 SAY "KILOS " FONT "ARIAL
BLACK",10
NPRO=nombre
READ
resta=stock-cantidad1

REPLACE stock WITH resta

IF stock<20

@37,4 SAY "¡¡ALERTA!! PRODUCTOS DEBAJO DEL STOCK" FONT

"ARIAL BLACK",9 STYLE "BU"COLOR RR+

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 81
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

@39,15 SAY "PRODUCTOS CON:" FONT "ARIAL BLACK",9 STYLE

"BU"COLOR RR+
@41,5 SAY codpr FONT "ARIAL BLACK",9
@41,4 SAY "COD" FONT "ARIAL BLACK",9

ENDIF
T1=prevenkl*cantidad1
ENDIF
READ
USE venpro1.dbf
APPEND BLANK

REPLACE Codpro WITH codpr

REPLACE nompro WITH NPRO
REPLACE Codclie WITH codcli
REPLACE nomcli WITH NCLI
REPLACE preven WITH T1
REPLACE Canti WITH cantidad1
REPLACE fecha WITH fechas1
READ
**%%%%%%%%%%%%%%%%%%%%%%2222222222222222222222%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%
@20,3 SAY "COD" FONT "ARIAL BLACK",10 get codpr2 FONT "ARIAL
BLACK",10
READ
USE productos1.dbf
LOCATE FOR codpr2=Cod_pro
IF codpr2=cod_pro THEN
@20,19 SAY nombre FONT "ARIAL",10

@20,35 SAY "CANT" FONT "ARIAL BLACK",10 GET cant2 FONT

"ARIAL",10
@20,50 SAY "KILOS " FONT "ARIAL
BLACK",10
NPRO=nombre
READ
resta=stock-cant2
REPLACE stock WITH resta
IF stock<20
@37,4 SAY "¡¡ALERTA!! PRODUCTOS DEBAJO DEL STOCK" FONT "ARIAL
BLACK",9 STYLE "BU"COLOR RR+
@39,15 SAY "PRODUCTOS CON:" FONT "ARIAL BLACK",9 STYLE
"BU"COLOR RR+
@43,5 SAY codpr2 FONT "ARIAL BLACK",9
@43,4 SAY "COD" FONT "ARIAL BLACK",9
endif
T2=prevenkl*cant2
ENDIF
READ
USE venpro1.dbf
APPEND BLANK
REPLACE Codpro WITH codpr2
REPLACE nompro WITH NPRO
REPLACE Codclie WITH codcli
REPLACE nomcli WITH NCLI
REPLACE preven WITH T2
REPLACE Canti WITH cant2
REPLACE fecha WITH fechas1
READ

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 82
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

**%%%%%%%%%%%%33333333333333333333333333333333333333%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%

@22,3 SAY "COD" FONT "ARIAL BLACK",10 get codpr3 FONT "ARIAL BLACK",10
READ
USE productos1.dbf
LOCATE FOR codpr3=Cod_pro
IF codpr3=cod_pro THEN
@22,19 SAY nombre FONT "ARIAL",10
@22,35 SAY "CANT" FONT "ARIAL BLACK",10 GET cant3 FONT
"ARIAL",10
@22,50 SAY "KILOS " FONT "ARIAL
BLACK",10
NPRO=nombre
READ
resta=stock-cant3
REPLACE stock WITH resta
IF stock<20
@37,4 SAY "¡¡ALERTA!! PRODUCTOS DEBAJO DEL STOCK" FONT
"ARIAL BLACK",9 STYLE "BU"COLOR RR+
@39,15 SAY "PRODUCTOS CON:" FONT "ARIAL BLACK",9 STYLE
"BU"COLOR RR+
@45,5 SAY codpr3 FONT "ARIAL BLACK",9
@45,4 SAY "COD" FONT "ARIAL BLACK",9
endif
T3=prevenkl*cant3
ENDIF
READ
USE venpro1.dbf
APPEND BLANK
REPLACE Codpro WITH codpr3
REPLACE nompro WITH NPRO
REPLACE Codclie WITH codcli
REPLACE nomcli WITH NCLI
REPLACE preven WITH T3
REPLACE Canti WITH cant3
REPLACE fecha WITH fechas1
READ
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%444444444444444444444444%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%

@24,3 SAY "COD" FONT "ARIAL BLACK",10 get codpr4 FONT "ARIAL BLACK",10
READ
USE productos1.dbf
LOCATE FOR codpr4=Cod_pro
IF codpr4=cod_pro THEN
@24,19 SAY nombre FONT "ARIAL",10
@24,35 SAY "CANT" FONT "ARIAL BLACK",10 GET cant4 FONT
"ARIAL",10
@24,50 SAY "KILOS " FONT "ARIAL
BLACK",10
NPRO=nombre
READ
resta=stock-cant4
REPLACE stock WITH resta
IF stock<20
@37,4 SAY "¡¡ALERTA!! PRODUCTOS DEBAJO DEL STOCK" FONT
"ARIAL BLACK",9 STYLE "BU"COLOR RR+
@39,15 SAY "PRODUCTOS CON:" FONT "ARIAL BLACK",9 STYLE
"BU"COLOR RR+
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 83
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

@41,21 SAY codpr4 FONT "ARIAL BLACK",9

@41,20 SAY "COD" FONT "ARIAL BLACK",9

endif
T4=prevenkl*cant4
ENDIF
READ
USE venpro1.dbf
APPEND BLANK
REPLACE Codpro WITH codpr4
REPLACE nompro WITH NPRO
REPLACE Codclie WITH codcli
REPLACE nomcli WITH NCLI
REPLACE preven WITH T4
REPLACE Canti WITH cant4
REPLACE fecha WITH fechas1
READ

*%%%%%%%%%%%%%%%%%%%%%%555555555555555555555555555555%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%

@26,3 SAY "COD" FONT "ARIAL BLACK",10 get codpr5 FONT "ARIAL BLACK",10
READ
USE productos1.dbf
LOCATE FOR codpr5=Cod_pro
IF codpr5=cod_pro THEN
@26,19 SAY nombre FONT "ARIAL",10
@26,35 SAY "CANT" FONT "ARIAL BLACK",10 GET cant5 FONT
"ARIAL",10
@26,50 SAY "KILOS" FONT "ARIAL
BLACK",10
NPRO=nombre
READ
resta=stock -cant5
REPLACE stock WITH resta
IF stock<20
@37,4 SAY "¡¡ALERTA!! PRODUCTOS DEBAJO DEL STOCK" FONT
"ARIAL BLACK",9 STYLE "BU"COLOR RR+
@39,15 SAY "PRODUCTOS CON:" FONT "ARIAL BLACK",9 STYLE
"BU"COLOR RR+
@43,21 SAY codpr5 FONT "ARIAL BLACK",9
@43,20 SAY "COD" FONT "ARIAL BLACK",9

endif
T5=prevenkl*cant5
ENDIF
READ
USE venpro1.dbf
APPEND BLANK
REPLACE Codpro WITH codpr5
REPLACE nompro WITH NPRO
REPLACE Codclie WITH codcli
REPLACE nomcli WITH NCLI
REPLACE preven WITH T5
REPLACE Canti WITH cant5
REPLACE fecha WITH fechas1
READ

*%%%%%%%%%%%%%%%%%%%%%%%%%%66666666666666666666%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 84
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

@28,3 SAY "COD" FONT "ARIAL BLACK",10 get codpr6 FONT "ARIAL
BLACK",10
READ
USE productos1.dbf
LOCATE FOR codpr6=Cod_pro
IF codpr6=cod_pro THEN
@28,19 SAY nombre FONT "ARIAL",10
@28,35 SAY "CANT" FONT "ARIAL BLACK",10 GET cant6 FONT
"ARIAL",10
@28,50 SAY "KILOS " FONT "ARIAL
BLACK",10
NPRO=nombre
READ
resta=stock-cant6
REPLACE stock WITH resta
IF stock<20
@37,4 SAY "¡¡ALERTA!! PRODUCTOS DEBAJO DEL STOCK" FONT
"ARIAL BLACK",9 STYLE "BU"COLOR RR+
@39,15 SAY "PRODUCTOS CON:" FONT "ARIAL BLACK",9 STYLE
"BU"COLOR RR+
@45,21 SAY codpr6 FONT "ARIAL BLACK",9
@45,20 SAY "COD" FONT "ARIAL BLACK",9

endif
T6=prevenkl*cant6
ENDIF
READ
USE venpro1.dbf
APPEND BLANK
REPLACE Codpro WITH codpr6
REPLACE nompro WITH NPRO
REPLACE Codclie WITH codcli
REPLACE nomcli WITH NCLI
REPLACE preven WITH T6
REPLACE Canti WITH cant6
REPLACE fecha WITH fechas1
READ

*%%%%%%%%%%%%%%%%%%%%%%%%%%%%777777777777777777777777777%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%

@30,3 SAY "COD" FONT "ARIAL BLACK",10 get codpr7 FONT "ARIAL
BLACK",10
READ
USE productos1.dbf
LOCATE FOR codpr7=Cod_pro
IF codpr7=cod_pro THEN
@30,19 SAY nombre FONT "ARIAL",10
@30,35 SAY "CANT" FONT "ARIAL BLACK",10 GET cant7 FONT
"ARIAL",10
@30,50 SAY "KILOS " FONT "ARIAL
BLACK",10
NPRO=nombre
READ
resta=stock-cant7
REPLACE stock WITH resta
IF stock<20
@37,4 SAY "¡¡ALERTA!! PRODUCTOS DEBAJO DEL STOCK" FONT
"ARIAL BLACK",9 STYLE "BU"COLOR RR+
@39,15 SAY "PRODUCTOS CON:" FONT "ARIAL BLACK",9 STYLE
"BU"COLOR RR+
Título: “Sistema de Ventas de Verduras”
Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 85
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

@41,31 SAY codpr7 FONT "ARIAL BLACK",9

@41,30 SAY "COD" FONT "ARIAL BLACK",9

endif
T7=prevenkl*cant7
ENDIF
READ
USE venpro1.dbf
APPEND BLANK
REPLACE Codpro WITH codpr7
REPLACE nompro WITH NPRO
REPLACE Codclie WITH codcli
REPLACE nomcli WITH NCLI
REPLACE preven WITH T7
REPLACE Canti WITH cant7
REPLACE fecha WITH fechas1
READ
READ
*QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
USE venpro1.dbf
TG=T1+T2+T3+T4+T5+T6+T7
APPEND BLANK
REPLACE total WITH TG
REPLACE fecha WITH fechas1

@12.5,80 SAY "DATOS DEL CLIENTE QUE SE ENTREGA" FONT "ARIAL BLACK",12
COLOR RGB(0,255,255)
@14,75 TO 31,123 COLOR RGB (0,206,209)
@14,75 TO 35,123 COLOR RGB (0,206,209)

USE clientes1.dbf
LOCATE FOR codcli=cod_client
IF codcli=cod_client THEN

@18,78 SAY "NOMBRE:" FONT "ARIAL BLACK",10

@18,90 SAY nombres FONT "ARIAL",10
@20,78 SAY "DNI:" FONT "ARIAL BLACK",10
@20,90 SAY Dni FONT "ARIAL",10
@22,78 SAY "DIRECCION:" FONT "ARIAL BLACK",10
@22,90 SAY Direccion FONT "ARIAL",10
@24,78 SAY "TELEFONO:" FONT "ARIAL BLACK",10
@24,90 SAY Telefono FONT "ARIAL",10
@26,78 SAY "EMAIL:" FONT "ARIAL BLACK",10
@26,90 SAY Correo FONT "ARIAL",10

ENDIF
@32,81 say "MONTO TOTAL: S/" FONT "ARIAL BLACK",13
@32,105 say TG FONT "ARIAL BLACK",13
READ
READ
@42,80 say "¿DESEA CONTINUAR S/N? " FONT "ARIAL BLACK",14 COLOR BG+ GET
OPCLI2 FONT "ARIAL BLACK",14
READ
READ
IF "S"=OPCLI2 THEN
LOOP
ELSE
CLEAR
DEACTIVATE WINDOWs MM

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 86
Instituto Superior “Luis E. Valcárcel”
Computación e Informática

DO menu1.prg
ENDIF
*QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
ENDDO

VER PRODUCTOS

SET TALK OFF

DO WHILE .T.
OP=SPACE(3)
CLEAR
@2,4 TO 80,200 COLOR rr+

USE productos1.dbf
BROWSE FONT "ARIAL BLACK",9

READ
READ

CLEAR
@0.2,30 TO 10,145 COLOR BB+
@5,30 TO 10,145 COLOR BB+
@0.2,29 TO 11,146 COLOR BB+
@1.5,45 SAY "VERDULERIA MAX " FONT "magneto",30 STYLE "BU" COLOR
BG+
@6,45 SAY "¿DESEA CONTINUAR S/N?" FONT "ARIAL BLACK",20 GET OP FONT
"ARIAL BLACK",20
READ
IF OP="S"THEN
LOOP
ELSE
CLEAR
DO submenuproductos1.prg
ENDIF
ENDDO

Título: “Sistema de Ventas de Verduras”

Autores: Elia Mary Ope Meza.
Esmeralda Juana Sotomayor Ricalde. pág. 87