\tnU
.óf,va
at
&Ic(
0có
I
6oIú
qnv
.i
ñ
a
Yú40
J
^
0t,
V
-n-o.'9
U
óAl
4t:)tl
INTEGRJACION DEL ITIICROCOI.ÍPTITADOR A IA UICROEITÍPRESA
tlIETICIA INES POSSO ARBOI,EDAVICTOR HUGO TOVAR SARRIA
Trabajo de grado.
Requisito parcial para optar eI tftulode fngeniero Industrial.
Director: DARIO ESPINOSA
CALI
CORPORACION T'NIVERSITARIA AUTONOUA DE OCCIDENTEDIVISION DE INGENIERIAS
PROGRA}ÍA DE INGENIERTA INDUSTRTAL
L989
f dI c.u.A.oI=I BIBLIOTECArv'
ilil[|ilJlulullulull!|u|ulil
11 25 5
+úifr.'^í1
7?:o;oljx.- . I
Nota de Aceptación
Aprobado por el conité de trabajode grado en cumplimiento de losrequisitos exigidos por la corpo-ración Universl,taria Autonoma deOccidente para optar al tftulo deIngeni Industrial.
! Aalol/,Á1 ,
yPresidente del üurado
u
Cali , ltlarzo de 1989
TABIA DE CIIITENTDO
Pá9.
INTRODUCCION L2
1. PRESENTACION GENERAL DE I¡S I.TODUI¡S L4
L.L. IIIODUI¡ DE CONTABILIDAD..........oo.... . L4
L.2. I,ÍODUIJO DE PRESUPUESTO 16
l_.3. l,foDul_.,o PRoYEccIoNEs L't
L. 4 . IIIODUI¡ DE CARTERA. .
2. UAI{UALES DEL USUARIO .....2.L. GENERAL
2.L.L. Proceso Cornputarizado
2.L.1-.1. Entrada de Datos
2.L.L.2. Proceso de Ia Información
2.L.1-.3. Salida de la Infornación
2.L.2. Aspectos Técnicos .....
L9
2L
2L
2L
2L
2L
22
24
29
30
31
32
2.L.3. El Sistena Operacional de Dieco
2.L.4. La Hoja Electrónica Lotus L-2-3 aaaaa
2.L.5. Base de Datos DBASE III PLUS
2.2. COMO TRABA.TAR EN EL DISCO IICONTABILTDADN
2.2.L. Opción Ent,rada ....................2.2.2. Opción Ver Informes ..........2.2.2.L. Balance General
33
36
36
al.L
2.2.2.2. Subcuentas
2.2.2.3. Cuentas Mayores .....2.2.2.4. P & G .....
2.2.2.5. Movimiento
2.2.2.5.L. Como se Encuentre
2.2.2.5.2. Organizado Cronológicanente
2.2.2.5.3. Organizado por Cuentas
2.2.2.5.4. Retorno
2.2.2.6. AnáIisis2.2.2.6.L. General
2.2.2.6.2. Liguidez
2.2.2.6.3. Actividad
2.2.2. 6. 4. Rentabilidad
2.2.2. 6.5. Apalancamiento
2.2.2.6.6. Tabla
2.2.2.6.7. Retorno
2.2.2.7 . Retorno
2.2.3. Opción Impresión . o. o.
2.2.4. Opción Archivar .......2.2.5. opción Utilidades
2.2.5.1. Búsqueda
2.2.5.2. U1tina Búsgueda
2.2.5. 3. Elinina
2.2.5. 4. Genera-balance
2.2.5.5. Cierre
2.2.5.6. I,lodif ica
2.2.5.7. Retorno
38
39
40
42
42
43
43
43
43
44
46
58
60
68
72
74
74
74
75
76
76
79
79
81
81
82
83
IV
2.2.6. Opción Salida 83
84
91
2.2.7. Opción Fin Macro
2 .3 . COUO TRABA.TAR EN EL DISCO IIPRESUPUESTOII
2.3.L. Opción Datos ...o................ 92
2.3.2. Opción Ubicación ..... . 93
2.3.2.L. Sueldos Estimados 93
2.3.2.2. Sueldo Presupuesto .. r................... 96
2.3.2.3. Presupuesto .. o...... 97
2.3 .2.4. ltfes-Ppto 99
2.3.2.5. Retorno L00
2.3.3. Opción Impresión .......... LOO
2.3 .3 . 1-. Sueldos Estinados 101
2.3.3.2. Sueldos Ppto ..... .....2.3.3.3. Presupuesto
2.3.3.4. Mes-P¡rto
2.3.3.5. Retorno
2.3.4. Opción Archivar ..........
2.3.5. Opción Tabla ISS ...............
2.3.6. Opción Fin lfacro
2.3.7 . Opción Salida
2.4. COITIO TRABA.TAR EN EL DISCO IIPROYECCIONESII
2.4.L. Opción A Entrada de Datos ( Unidades, Precios, Costos ) ...
2.4.2. Opción B Entrada de Datos (Gastos y Varios)
2.4.3. Opción C Menú de Impresiones.....
2.4.4. Opción D Menú Visualizar un Informe .......2.4.5. Opción E Guarda eI Trabajo .....
Lo1
t_o1
10L
r_o1
LO2
L03
L03
l_04
106
l_o8
LL0
LL4
LL5
LL6
v
2.4.6. Opción F Salida de Lotus (Fin del
2.5. COI{O TRABA.TAR EN EL DTSCO IICARTERAX
Prograna)
2.5.L. Opción Entrada .....
2.5.1.1. Facturas ...............
2.5.L.2. Recibos de Caja
2.5.l-.3. Notas Débito
2.5.1-.4. Notas Crédito
2.5.1.5. lfaestro de Clientes
2.5. L.6. Maestro de Enpleados .. o... o.............2.5.L.7 . Fin
2.5.2. Opción lfodificación
2.5.3. Opción Borrar
2.5.4. Opción Reportes
2.5.5. Opción Consultas o o o.,. o... o...............
2.5. 6. Opción Actualizaciones
2.5.7 . Opción Fin
3. IÍANUAL TECNTCO
3 . ]-. I,ÍODUIP IICONTABILTDADN
3.1.L. Inicialización del Sistema
3.L.2. Estructura del Prograna ...................3 . 1. 2 .L. Area de lfacros
3.L.2.2. Area de Estado de Resultados
3.1.2.3. Area de Balance General
3.1-.2.4. Area de Balance de Prueba 1
3.1.2.5. Area de Balance de Prueba 2
3.1.2.6. Area de Condiciones para Consulta
3.1.2.6.L. Condiciones para un Canpo Numérico
1l_8
119
L20
L2L
t23
L25
L27
L29
130
130
13L
133
L35
136
L37
l_38
140
L40
140
141
143
L43
L43
L44
L44
l_45
L45
v1
3.1.2.6.2. Condiciones para un Campo Alfabético3.1.2.7. Area, de Contabilización o üovl.mientos Con
tables . o...
3.L.3. Generación de Reportes
3.1.3.1. Reportes Básicos
3 .1,. 3.2. Otros Reportes
3.1-.4. Manejo de Archivos .....3.L.5. Detalles Técnicos del Programa .....
3.1.6. Detalles de las Macros ...... o...3 .2 . MODUI¡ IIPRESUPUESTOII
3.2.L. Detalles Técnicos del Programa
3.2.2. Detalles de las l.iacros
3 . 3 . I'IODUIO TPROYECCTONESTI
3.3.L. Detalles Técnicos del Prograna
3.3.2. Detalles de las Macros
3 . 4 . UODULO TCARTEIIATI
3.4.1. Estructuras
3.4.2. Programas Fuente .....4. CONCLUSIONES
GIOSARIO
BTBLIOGRAFTA
L46
L46
L47
L47
L47
148
1,48
L52
L73
L73
L74
180
180
183
L86
L86
188
256
258
262
vlt
FTGI'RA 1 :
FIGT'RA 2 3
FIGITRJA, 3 :
FIGT'RA 4 :
FIGUR,A 5 :
FIGI'RA 6 :
FIGT'RA 7 3
FIGT'RA 8 :
FIGTIRA 9 :
FIGITRA ].0:
FIGIJRA ].1:
FIGURA 12:
FIGITRA 13:
FIGURA 1.4:
FIGIJRA 15:
FTGURA 16:
FTGURA 17:
FIGURA ]-8:
FIGIJRA 19:
FTGURA 2O:
LISTA DE FIGT'RAS
Componentes del Conputador
Diagrama de FluJo de la Información -Módulo Contable
Arbol de !!enú Módulo Contable
Submenú Movimiento Módulo Contable. . .
Subnenú AnáIisis Módulo Contable
Submenú Otros Liquidez
Subnenú Otros Rentabilidad
Arbol de üenú Irlódulo Presupuesto.... .
Arbol de Menú lfódulo Proyecciones....
Arbol de Menú Módulo Cartera
Mapa l.fódulo Contable ......Mapa Itlódulo Presupuesto .. .. .. ..Mapa Módulo Proyecciones
Diagrana de Flujo Cartera
Arbol Jerárquico Módulo Cartera
Diagrama de Borrador - üóduto Cartera
Diagrama de Borrar - Módulo Cartera
Diagrana de Canbiar - l{ódulo Cartera.
Diagrana de Cierre - üódulo Cartera
Diagrama de Consol - Módulo Cartera
Pá9.
25
85
86
87
88
89
90
105
LL7
t_39
L42
L74
l_80
189
244
245
245
246
246
247
viil
FIGIIRA 21.:
FIGI'RA 22:
FIGI'RA 23:
FTGIJRJA, 24:
FIGI]RA 25:
FIGITRA 26:
FIGTIRA 27:
FIGI'RA 28:
FIGI'RA 29:
FIGIJRJA 30:
FIGIIRA 31:
FIGT'RA 32:
FIGt]RA 33:
FIGIIRA 34:
FIGIJRJA 35:
FIGIJRA 36:
FIGTIRA 37:
FIGI'RA 38:
FIGTIRA 39:
FIGURA 40:
Diagrama de Consclie - üódulo Cartera
Diagrama de Consenpl - üódulo Cartera.
Diagrama de ConEulta - üódulo Cartera.
Diagrama de Procediniento Control 1lfódulo Cartera
Diagrama de Procediniento Control 2Itlódulo Cartera o ....
Diagrama de Convende - Módulo Cartera
Diagrana de Conventa - lfódulo Cartera
Diagrama de Entrafac - Módulo Cartera
Diagrama de Entranc - ilódulo Cartera
Diagrama de Ent,rand - l{ódulo Cartera
Diagrama de Entrarc - Módulo Cartera
Diagrana de lfcartera- lfódulo cartera
Diagrama de l{odifa - Módulo Cartera
Diagrama de llodifica - t{ódulo Cartera
Diagrama de Procediniento Modinc - I'fódulo Cartera
Diagrama de Procediniento l{odind - I.lódulo Cartera
Diagrama de Procedimiento l.lidirc - l.tódulo Cartera
Diagrama de Pentrada - Dlódulo Cartera
Diagrama de ReporteÉ¡ - Módulo Cartera
Diagrama de Salida - lfódulo Cartera
247
247
248
248
249
249
249
250
250
25L
25L
252
254
253
253
253
254
254
255
255
IX
los programas y cuáIes son los infornes que
obtener después de procesada 1a infornación.
REStmElt
EI trabajo de grado rrlntegraclón del lficroconputador a laMicroempresarr se desarrolla en tres capltulos. EI primero
ofrece una presentación general del modelo de manejo de
la información en cada uno de los cuatro módulos
realizados: contable, presupuestor proyecciones y
cartera. Exptica en forma clara cuáIes datos se requieren
para la entrada de Ia información, qué procesos realizanc Éú*se pueoen
EI segundo capftulo presenta el nanual para el usuario de
este nodelor gue puede ser el microempresario en
solueionar los problenas que se le presentan por eImanejo de grandes volúmenes de información y lapresentación de informes que exige Ia AdministracLón de
Impuestos, o eI estudiante que deEea realizar ejerciciosde aplicación en las áreas financiera y contable para
obtener una visión más real sobre eI manejo yprocesamiento de Ia infornación. Este manual explica paso
a paso los procedimientos para utilizar los programas
x
exigiendo como requisito únicamente tener conocimientos
báaeicos sobre eI nanejo del Lotus L-2-3 y eI Dbase IIIPIus.
El tercer capftulo, Manual Técnico, ofrece lasexplicaciones necesarias para instalar y entender elsistema. lrfuestra cada uno de los programas con sus
estructuras y aspectos técnicos, presentando un modelo
con glran detalle, para que el nicroempresario que vaya a
utilizarlo lo adapte a su caso particular y pueda ser eldueño total de su proÍframa, porque Io conoce
perfectamente y 10 puede nodificar a su amaño.
xl,
INTROTX'CCION
rfntegración del Microcomputador a Ia Microempresail es Iatesis presentada por Leticia Inés Posso A. y Victor Hugo
Tovar S., para optar eI tftulo de fngeniero Industrial,que propone dar una solución práctica y sencilla alproblena que se le presenta al microempresario cuando
necesita manejar grandes núneros de referencias, que se
incrementa a la par del crecimiento de sus clientes.
En muchas ocasiones el microempresario adguiere
microcornputador en Ia esperanza de solucionarproblema. Pero al carecer de los conocimientos básicos
fundamentales sobre la parte operativa delmicroconputador, hace que su inversión E¡ea poco
provechosa porque da una utilización parcial e inadecuada
a su nicro, o porque Eie convierte en preEa fácil de
inescrupulosos gue Ie ofrecen soluciones con paquetes de
programas que Io único que hacen en realidad es
enfrascarlo y volverlo dependiente de su proveedor de
programas.
un
SU
13
Es cierto que en la actualidad existen paquetes de
programas con aplicaciones contables y financieras que
pueden solucionar eI problema, tanbién es ciert,o que
éstos poseen un alto grado de conpleJidad.
EI modelo sencillo que aquf se presenta es un nedio
computarizado para la adninistración y control de Iainformación, que 1e pernite al microempresario
manipularla en forna directa, para obtener resultados
actualizados al instante. Para ésto requiere que eImicroenpresario tenga conocinientos generales sobre lamanera de operar eI microcomputador, la hoja electrónicaLotus de gran difusión en nuestro medio y eI programa
dBase III Plus.
EI objetivo que queremos alcanzar, €s proporcionar almicroempresario un nodelo de sistematización sencillo,práctico y de fácil implementación, que Ie sirr¡a para
diseñar su propio sistema para eI nanejo óptino de
archivos y un flujo eficiente de documentosi modelo que a
la vez puede ser utilizado por la Universidad para que
ros estudiantes realicen prácticas y simuraciones en lasclases del área financiera.
1. PRESETITACIOI| GENERAL DE TOS üOIX'IOS
1. 1. IIOIX'I¡ DE COIITABILIDAI)
Er móduro de contabiridad pernite obtener resurtadosparciales de tal manera que el nicroempresario pueda
conocer la situación financiera de su empresa cualquierdÍa del mes, esto le da un mayor control sobre sus
finanzas.
ENTRADA
- Asientoscontables
- Conprobantesde cierre
- Otros conprobantes de diario.
PROCESO
- Resumen del movi-miento por cuen-tas (comando datatable) .
- CáIculo general,cáIculo de todasIas fórmulas.(comando calc. )
SALTDA
- Balance
-P&G- Resumen del
movimiento porcuentas mayo-res.
- Resumen de1movimiento porcuentas meno-res.
- Detalle delmovimiento.
- Otros
15
Entrada : Los asientos contabres se rearizan normalmente,
o sea que no hay que cambiar el sistema que la empresa
venfa realizando.
Los asientos contables se realizan a partir de losdocumentos fuentes y de cornprobantes de diario comúnnente
usados y los comprobantes de cierre.
Proceso : El primer paso det proceso del programa es elde estabrecer er resumen del movimiento contabre a nivelde subcuentas. Estas a su vez son Ia base o pivote de lascifras hacia los estados financieros y resumen porcuentas mayores.
Este paso se realiza con el comando data table, que evitaIa elaboración de una gran cantidad de fórmulas
disminuyendo de esta manera el consumo de memoria.
Luego de que se ha ejecutado elrealizar el cáIculo general de
hace que los datos obtenidos en
Ios estados financieros.
priner paso se procede a
la hoja de trabajo. Esto
el primer paso lleguen a
Salida : Los informes que presenta este módu1o son losinfornes tradicionales como el Balance General, €r Estado
de Resultados, los Resúmenes por Cuentas üayores, IosResúmenes por subcuentas, er Detarle der Moviniento
1_6
contabre y los informes producidos por el anárisisfinanciero.
Aparte de los infornes preestablecidos el usuario puede
realLzar diferentes infornes utitizando la opción de
búsqueda presentada en el programa, esta opción Iepermite crear un fittro que aplicado ar movimiento
contable produce informes muy especfficos.
Además se puede inprirnir cualquier sección de ra hoja de
trabajo utilizando ros comandos de impreeión del r,otus.
L.2. IITOTX'I¡ DE PRESI'PT'BSTIO
ENTRADA
Sueldosactuales.
Porcentaje deincremento desueldos para elnuevo periodo.
PROCESO SALIDA
Costos de lossalarios alfinal del pre-sente año.
CáIculo general,cálculo de todaslas fómulas.(comando calc.)
Provisiones decesantfas yotros costos
Costo de lossalarios paraeI próx. año.
con los suerdos actuares del personar y el porcentajeplaneado de incrementos salariales del próxino perfodo,
se calculan los gastos por salarios, prestaciones
sociales y las provisiones
demás gastos generados por Ia
L7
respectivas de cesantÍas ynómina.
con base en una hoja de trabajo en la cual grabamos rosgastos acumulados a la fecha, y el presupuesto para elaño que va en curso, podrenos estimar er totar de gastos
ar finar del año; con este dato podenos presupuestar eraño próxino. Adenás tenemos cálcuros porcentuales que
nos indican cómo ha sido el comportamiento de los gastos
frente aI presupuesto.
1.3. ltoDt I¡ 'PROYBCCTOIÍESi
ENTRADA
Gastos acumula-dos a Ia fecha
Presupuesto delaño en curso.
Estimado de losgastos a efec-tuar en 1o queresta del año
Soportado en Ioanterior se es-tima el presu-puesto para elaño siguiente.
Unidades avender
Costos de losproductos
Precios de ven-ta unitarios.
PROCESO
Cálculo general,cálculo de todaslas fórnulas.(comando calc).
SALIDA
Hoja de traba-jo para esti-mar los gastosdel resto delaño.
HoJa de traba-jo para pre-supuestar losgastos delpróximo año.
PIan de gastospara eI próx.año por meses.
Valor de lasventas delpróx. año.
Costo de lasventas de1próx. año.
1_8
- Simulación delestado de re-sultado parae1 próx. año.
Entrada : Esta base de datos pemite estimar las ventas ylos costos de la empresa y pernite anal lzar erconportamiento de las ventas, qlue dan una idea de cómo
se está moviendo Ia cuenta en eI mercado.
salida : se pueden observar por pantarla ros efectos de
los canbios en er presupuesto o en los pranes de venta de
tal manera gue Itjugandon con las cifras se pueda
encontrar er punto adecuado que re quiere dar a su
negocio.
Puede obtener informes impresos como: ra hoja de trabajopara eI presupuesto de gastos, Ia base de datos de
vorúmenes, precios y costos de venta de los productos, y
especialmente los estados de resultado.
El nódulo de PRoYEccroN, permite simular la Eituación de
ra empresa en el futuro, este móduro está basado en elpresupuesto de gastos y de nómina que complementado con
Ia proyección de ventas, precios y costos de losproductos producen un estado de resurtado estinado.
19
1..4. IITOTX,I¡ DE QAIITERA
ENTRADA
Grabación deFacturas
Grabación deRecibos de caja
Grabación deNotas débito
Grabación deNotas créditoAdiciones aIDlaestro deClientes.
Adiciones alMaestro deEmpleados.
Entrada dedatos para con-sultas.
PROCESO
Pega de la graba-ción aI movimien-del mes.
Pega de Ia graba-ción al movimien-del año.
Actualización desaldos.
Validaciones deinconELstenciasen el momento degrabación.
Búsgueda de datospara las consul-tas.
SALIDA
Reporte desaldos.
Reporte delmovimiento delmes.
Reporte delmovimiento delaño.
Consulta delsaldo para uncliente.
Ventas mayoresa un valor.
Listado declientes.
Listado devendedorespróx. año.
Reporte de Iagrabación.
EI módulo de cartera ofrece la información requerida por
Ia administración de impuestos y todo Io referente a losclientes como saldos, facturas pendientes, etc.
Er nódulo de cartera es rearizado en DBASE rrr pLUs. Está
orlentado de tal manera que su utilización sea muy amena
por la presentación de menús muy sencillos, que van
rlevando ar usuario y Ie perrniten utilizar todos los
Unirrskhd tulonomo ü ftcidmt¡
20
recursos del dbase III plus sin que la persona que loutiliza tenga que ser un conocedor del dbase.
Tiene la gran ventaja de que maneJa artos vorúnenes de
información rápidanente, permitiendo conocer er estado de
Ia cartera en cualquier momento, ofreciendo datos con un
nivel de detalle máximo.
2L
2. üANTIAI,F*S DEL USUARIO
2.L. GEIIERAL
2.L.L. Proceso Computarizado
Et computador en su funcionamiento invorucra tresactividades: entrada, proceso, salida.
2.L.1.1. Bntrada de Datos
La entrada de datos se hace utilizando el tecrado y lapantarra. Los programas se encargan de hacer este proceso
fácil y confiable.
La decisión sobre quién introduce ros datos la tomará elempresario y depende de ro confidenciar que sea lainformación.
2.L.L.2. Froceso de la fnfo¡rmación
El proceso de la infornación en la nayorfa de ros casos
22
empieza después de Ia entrada de datos. En otros casos
como eI lot,us, s€ puede hacer que procese
a la par con Ia entrada de datos.
Por ejenplo el porcentaje de aumento de sueldos en un
programa de presupuestos de nónina. Este dato
innediatamente altera todo Io referente a Ia nónina y lasdiferentes provisiones a tener en cuenta.
En un programa de contabilidad, s€ presenta un caso
diferente. Se puede estar entrando información aIcomputador durante todo un mes y al término de éste
pedir qrre la procese.
rnternamente el conputador cuenta con la I]NTDAD CENTRAL
DE PROCESO (CPU), (trüé se encarga de todos los cálculosaritméticos y lógicos y además controra y administra eIflujo de datos y programas por los diferentes canares der
Microcomputador.
2 . L. L. 3 . Salida de Ia Inforaación
Los resultados se pueden obtener por la pantal1a, por Iainpresora o al disco.
r,a pantalla tiene la ventaJa de ra rapidez pero tiene lalinitación del tamaño. Adenás produce fatiga ar analizar
23
resultados, y a veces no pemite fornar una idea clara de
1o que se obserr¡a y tampoco ofrece documentos ffsicos que
confirmen los datos o las situaciones.
La impresora ofrece la sorución a ros problemas de lapantalla.
Otra alternativar la de guardar en disco, perniteaseg[urar ra infornación para reprocesarra en cualquiernomento.
Estas tres arternativas no son excluyentes entre sf. por
elro pueden ser utilizadas las tres o doe si se quiere,ó utirizar sólo una de éstas según convenga alenpresario.
otra sarida der computador es ra destinada a archivos, laque se origina corrientenente en ros cierres de mes
( movirnientos der mes, grabación contable, facturación,etc. ) .
Para archivar o guardar ra informaciónr se utilizancorrientemente ros disquetes o discos frexibles, tanbiénse puede utilizar er disco duro der computador, si rotiene. El disco duro pernite una mayor velocidad en lalectura y escritura de la información. Existe laposibilidad de util izar cintas magnéticas de casetes
24
comunes, aunq[ue este medio es lento.
2.L.2. Aspectoe TécnLcos
La unidad básica de infornación es el BYTE, pero eI
microcomputador en eI manejo de espacios tiene como
unidad eI KBYTE que son l{IL VEINTICUATRO BYTES, podenos
referirnos a un BYTE como un carácter en la mayorfa de
casos.
Una comput,adora personal está compuesta de varias partes,
hardware t y son posibles muchas configuraciones
diferentes. Las dos configuraciones del sistena más
usuales son:
El sistema dual del disco flexible, que contiene dos
unidades de disco flexible.
El sistema de disco rfgido (fijo), que contiene
además una unidad de disco flexible.
Las unidades de disco nos perniten leer o escribir en un
disco flexible, €1 cual nos suministra un almacenamiento
permanente para programas y datos. Los disquetes
flexibles son unas Iáminas cuadradas de plásticoflexible cubiertas con óxido netálico, lo que pennite gue
las cabezas de escritura de las unidades de disco puedan
registrar datos nagnéticamente en la superficie del
25
MON
UNIDADCENTRA
DEPROGES
(CPU)
TEGLADO
TO
L
F1oo
5
UN¡DADES DE DISQUETES
Figura L: Componentes del Computador
26
disquete. Debe manejar cuidadosamente los disquetes
ftexibles para evitar que se dañen los programas y datos
que contienen.
Para cuidar debidamente los disquetes tenga en cuenta 1o
sigruiente:
Introduzca cuidadosanente los disquetes en Ia unidad de
disco con la etiqueta sienpre hacia arriba, (a la vista),con la ranura de protección contraescritura a la derecha,
teniendo abierta inicialnente la rrranura de accesorr
rectangular. si Ia inserción se realiza correctamente,
el disguete se deslizará dentro de la unidad de disco
con poca o ningruna resistencia, y Ia puerta de la unidad
de disco podrá cerrarse ein necesidad de forzarla. sitiene dificultad, saque el disguete e inténtelo de nuevo.
si Io fuerza puede dañar el disquete, lá unidad de
disco o ambos.
Cuando no Io esté utilizando, debe guardar el disguete
en las fundas protectoras que vienen con é1, ya que Ie
ayudan a proteger el sensible agujero de acceso contra elpolvo y otros contaminantes que podrfan originar un daño
ffsico permanente y la pérdida total de datos.
Debe guardarlos bajo un rango de temperatura apropiada.
Un frfo excesivo (por debajo de 10 grados centfgrados), o
27
un calor excesivo (superior a los 52 grados centfgrados)
podrfan dañarlos.
Procure no dejar los disquetes en el carro durante losdías calurosos. Si los disquetes se soneten a
tenperaturas extremadamente frfas, antes de utilizarlosdéJelos que se calienten hasta alcanzar la temperatura
anbiente de una habitación, si no lo hace asf, podrfa
dañarse su unidad de disco.
Ponga etiquetas a sus disquetes; al principio sólotendrá unos pocos disguetes para seg.uirles la pista; sinembargo, Do pasará mucho tienpo antes de que tenga una
gran biblioteca de disquetes, quizá de alrededor de un
ciento. !fnagfnese que intenta localizar un disqueteespecffico entre un grupo de 1OO disquetes idénticos sinetiqueta!. Tómese un minuto extra para poner una
etiqueta y ahórrese la irritación de tener que cargar un
disquete para determinar su contenido. Rellene laetigueta antes de pegarla en eI disquete, o utilice un
rotulador si necesita nodificar una etiqueta que ya está
pegada sobre eI discoi la presión que se ejerce alescribir en Ia etiqueta podrfa dañar eI disguete.
No toque
un disco
sensible
la delicada ventana de acceso. Un disquete es
cubierto con un medio magmético que es muy
aI tacto. La humedad de sus dedos podriet
interferir en la capacidad
Ieer y escribir infomaciónde la unidad de
en el disquete.
28
disco para
EI disco está permanentemente reveetido de
protectora, y dispone de una abertura
ventana de acceso para que pueda acceder
registradora.
una rrchaquet¿tt
rectangular, o
a é1 la cabeza
Nunca saque ni introduzca un disquete en una unidad
cuando esté encendida Ia luz roja de dicha unidad.
Mantenga sus disquetes fuera de campos nagnéticos.Anarice los accesorios der escritorio que están en lasproximidades de su sistema de conputadora. Arguno de
ellos puede poner en peligro la salud de sus disquetes:pinzas de paper magnéticas, relojes nagnéticos y tablonesrnagnéticos, por nombrar sóIo unos poco6.
si viaja con sus disquetes pida ar personal de seguridaddel aeropuerto que examine manuarmente sus cajas de
discos, ros dispositivos busca-metares podrlan borraralgunos datos de sus disquetes.
No de alimentos a sus disquetes, los alimentos y loslfquidos pueden matarlosi si derrama café sobre un
disquete, permanecerá un residuo que no sólo inutirizarásus disquetes, sino que adenás podrfa tanbién originar un
29
daño permanente en su unidad de disco. si caenpartÍculas de alimentos en ra ventana de acceso, lasuperficie del disco se rayarfa.
No doble sus disquetes, una arruga en su disquete podrfahacer que la cabeza registradora nsaltaserr al reer rosdatos y se perdiese información.
un disco duro es un soporte de armacenamiento que
normalmente está encerrado en una caja, conjuntamente con
ra propia unidad de disco rfgido. un disco rfgidosencillo normal puede contener como mfnimo treinta veces
más datos que un disquete flexibte normal.
si su computador contiene disco duro y necesita moverlo,
debe parquearle la cabeza registradora antes de hacer ertrasrado, para evitar que la cabeza dañe el disco. Eldisguete de diagnóstico contiene en er menú ra opción de
preparación del equipo para moverlo de sitio.
2.L.3. El Sistena Operacional de Disco
El Dos es una colección de programas especiales que leayudan a controlar su conputador. Argunos de estosprogramas re pérmiten rearizar tareas tan básicas como
aceptar las órdenes el teclado, visualizar información en
la pantarra, inprinirra en el papel y controrar los
30
dispositivos en la unidad de disco. otros programas estánrelacionados con la responsabiridad del Dos paraadministrar la información de ros discos: guardarinfornación en los discos y leerla de nuevo con suconputador.
El Dos por sf soro no puede procesar textos, crear hojasde trabajo, o desarrollar bases de datos. Estas tareassólo se pueden lrevar a cabo utitizando programas de
apricación. sin enbargo, ros programas de aplicación no
pueden utirizarse sin un programa Dos residente en ramemoria der conputador. por tanto, para poner en narchael sistema hay que cargar el Dos en memoria. Este proceso
se conoce a menudo como rrarrangue det sistemar, o
arranque der Dos, y debemos hacerlo cada que conectamos
eI computador.
2.L.4. Ia Eoja Electrónica Iotus 1-2-3
Er Lotus L-2-3 es un programa de hoja electrónica cuya
estructura básica es una matriz compuesta de 2s6columnas, desde Ia A hasta la fV, y de g.Lgz filas.
Especialmente es utirizado en las áreas adninistrativasdebido a su facilidad de manejo y sus núltipresutilidades en la eraboración de gráficas, base de datos ysu gran agilidad en el manejo de infomación. cuenta
31
además con un gran banco de funciones financieras,matemáticas, estadfsticas, etc.
2.L.5. Base de Datos DBase III plus
Et Dbase rrr Prus en cuanto a la adniniEtración de lainformación en los procesos comerciares, presentaalternativas sencillas y prácticas para . solucionar ragran mayorfa de situaciones que se puedan presentar en
una microempresa.
Er Dbase rrr Plus a diferencia de los lenguajes de
programación como eI Basic, Fortran, Cobol, etc.,tiene una forna estructurada para ra eraboración de
prolframas. El Dbase se naneja con comandosr glu€ pueden
corresponder a varias instrucciones en cuarguiera de losIenguajes nencionados.
El Dbase permite manipular ra info¡:mación de una manera
ágil y versátil, sin mayores restricciones por el vorumen
de ra información, el microempresario que Ee sienteabrumado por los altos vorúmenes de datos puede pasar a
dominar el proceso informativo, con la inplementación de
algunos programas sencillos elaborados en Dbase.
32
2.2. COITIO TRABA"TAR EN EL DTS@ T@¡üTABIIJDAD'
Para manejar el programa de contabilidad elaborado en
lotus efectúe los sigruientes pasos:
-CARGIÍE El DOS en su computador
-e¡RGttE Lotus L23 en la unidad de disco A
-INTROIXIZCñ, disco |ICONTABfLIDADTT en Ia unidad de disco B
-ESCRIBA /FD B:\ Para que el computador pueda leer deIa unidad de disco B.
-ENTRE Oprima Ia tecla Retorno
-ESCRIBA ,/FR Para traer el archivo en que va atrabajar
-CIIRSOR Coloque eI cursor sobre CONTAB
-ENTRE Oprina la tecla Retorno.
En el panel de su computador aparece eI sigir.riente Menú
Principal:
E¡ÜTRADA VER INFORIIES II'IPREiSION ARCATVAR
IAIIJDADES SAIJDA FIN IIACRO
Este Menú Principal le ofrece las siguientesposibilidades:
-ENIRADA para entrar eI movimiento de contabilidad,
-VER IIüFORüES para visualizar en la pantalla losinformes,
33
-IITIPRESION para generar reportes,
-ARCHIVAR para guardar el trabajo realizado,
-IIIfLIDAI)ES para utilizar eI segundo menú de opciones,
-SAI"IDA para salir del Lotus L23, y
-FIN IÍACRO para salir de la macro y utilizar la Hoja deTrabajo.
2.2.L. Opción Entrada
Estando en eI l[enú Principal,
Ct R.SOR Cologue el cursor sobre ENTRADA
ENTRE Oprina la tecla Retorno
o
ESCRIBA E
En Ia pantalla de su computador aparece Ia siguiente Hoja
de Trabajo:
BA c
NIT
E
EECEA123
CUETÜTA NO}IBRE
GTI üF
123
VAIOR No CIIBQIIE D/c DESCRIPCION cIA\r,E
34
En er panel ud encontrará las indicaciones para consigrrarlos movimientos de contabilidad, asf:
El cursor aparece aI finalizar la orden
Entre la CT ENTA
ESCRfBA eI código de Ia cuenta
ENIRE Oprima la tecla Retorno
De inmediato el cursor se despraza y aparece la nueva
orden:
Entre el NOI{BRE
ESCRIBA el nombre de la cuenta
ENTRE Oprina Ia tecla Retorno
El cursor se despraza cada vez que ud entre un datopresionando la tecla Retorno.
En la columna cravE el computador le dará el número
consecutivo en orden de entrada que re corresponde a esa
consignación efectuada.
Finalizada la consignación, en er paner aparece la opciónde continuar o no entrando movimientos. si deseacontinuar,
35
ESCRIBA
E¡ITRE
ESCRIBA
EIITRE
s
Oprima la
De nuevo aparecerán
terminó el trabaJo,
tecla Retorno
las órdenes para consignar. pero si ya
tecla Retorno
N
Oprina la
En eI panel aparecerá el üenú Principal.
De innediato erija ra opción ARCHTvAR para que su trabajosea guardado.
si desea nodificar datos consignados, elija del l[enú
Principal UTTLTDADES y der submenú uoDrFrcA. Aparecerá en
su pantarla todo el novimiento de contabilidad. (Ercursor lo puede desplazar libremente utirizando lasflechas). Después de corregir er error o de nodificar laconsignación, vuelva a g'uardar el trabajo rearizado.
si desea tener actuarizado er Barance General, después de
archivar ra consignación efectuada, sereccione del Menú
Principal ra opción urrLrDADEs y det submenú que aparece
en er panel sereccione GENERA-BAr,ANCE. De inmediato elcomputador actuariza el Balance General con el movimientoacabado de grabar.
36
2.2.2. Opción Ver fnfornes
Estando en el lfenú principal
CTRSOR Coloque eI cursor sobre VER fNFORtfES
ENTRE Oprina Ia tecla Retorno
o
ESCRTBA V
En ra pantalla de su conputador aparece el siguientesubmenú:
BAIAIICB GRAL sIrBütEilTAs qfe.S.ttAYoRBs p y c
IÍO\IIITIENTIO AIIALISIS REIt'RI¡O
Este submenú Ie ofrece:
2.2.2.L. Balance General
Para visuarizar er Barance General de ra Empresa, asf:
37
BATTANCE GENERAL A JITIJO 30, 19
ACTIVO
CÍ)RRIETÍTB
Caja y BancosCaja fngresos por DepositarBancos
InversionesBonos
Cuentas por CobrarClientesPréstamos empleadosPréstamos socios
InventariosMateriales
Gastos pagados por anticipadoAnticipos y retenciones
NO CORRIENTE
FijoEquipoItfuebles y enseresDepreciación acu:nulada
Otros activos
TOTAL ACTIVOS
PASIVO
CORRTENTE
Obligaciones bancariasCuentas por PagarProveedores
38
AcreedoresCuentas por pagar a sociosImpuestos de rentaRetención en la fuenteGastos acumulados por pagarOtros pasivos
Pasivos estimados y provisionesCesantfasIntereses de cesantÍas
TTO CORRIENTE
ProvisionesPrestaciones SocialesPensión de Jubilación
PATRIIITONTO
Capital pagadoResen¡a legalUtilidad por distribuir
PASrvO IIAS PATRI}IONIO
Para volver al lfenú principal presione simultáneamente
Ias teclas {ALT} y (Zl.
2.2.2.2. Sr¡bcuentas
Para ver por pantarra er Barance de prueba 1
(subcuentas). visualizará las subcuentas con la siguientepresentación:
39
A
DE
B
INICDIL
F
CREDI11OS
c
DEBIl'OS123
cATAIffO ct ENTAS
A
cilTAI¡GO DE
G
FINALCT]ENTA,S
Las colunnas A y B per^manecerán siempre
Ud puede desplazarse por las columnas C,
flechas.
pantalla.y G con las
sinultáneamente las
123
en su
ErF
Para volverteclas {ALT}
aI submenú presione
v {zl .
2.2.2.3. Cuentas l[ayores
Para ver por
Mayores), con
pantalla elIa siguiente
B
RBST'TIEN POR CUEIÜTAS(naYoREs)
Balance de prueba
presentación:
c
INICIjAL
2 (Cuentas
E
DEBI11OS
A
123
40
AB
REST'üEH POR CUETTTA.S(tfaYoREs)
F
CREDITIOS
G
FINAL
123
r,as columnas A y B permanecerán siempre en su pantalra.Ud. puede desplazarse por las columnas C, E, F y G con
Ias flechas.
Para vorver ar Menú principar presione simultáneamentelas teclas {ALr} y Gl .
2.2.2.4. P & c
Para ver por pantarra er p y c, con ra siguientepresentación:
4L
ESTADO DE REST'LTADO
üBS efro
IITGRBSOS
TO1TAL INGRESOS
cps1los DIRECnOS
Varios
TCITAL COSTOS DIREEFOS
TITILTDAD BRITTA
Gastos de operaciónSueldosSubsidio transp.Prestaciones soc.Sena, f cbf , Confamil iarSen¡icios públicosArrendamientosAdninistración Lav.Mto. eguipo e inst.TransportesConbustibles
42
IITILIDN) OPERACTONAI,
Otros ingresos (egresos)
IITIIJI}AD AIITES DE IITÍPTIBSTOS
IüPI'ESTOS
UTTLIDAD I{ETA
Cuando termine de visualizar eI p & G , puede volver aIMenú Principal presionando sinurtáneamente ras tecras(ALr) y (zl .
2.2.2.5. Irloviniento
Para visualízar el movimiento de contabiridad. Alelegir este iten, aparecerá un nuevo submenú:
1 CP}IO SE ENCT'ENTRE
2 ORG.CRONOIff
3 ORG FOR CI'ENTA,S
4 REROR¡IO
Para seleccionar cuarquiera de estas opciones, ud. debe
colocar er cursor sobre la opción eregida y oprimir ratecra Retorno, o sólo escribir eI número o la retrainicial de la opción.
43
Este submenú le ofrece las sigruientes opciones:
2.2.2.5.1. Como se encuentre
ud. elige esta opción cuando quiere visuarizar elnovimiento sin inportar cómo se encuentre organizado en
eI momento.
2.2.2.5.2. Organizado cronol@icamente
cuando quiere visuarizar er movimiento organizado en elorden cronorógico como fueron consignados los datos,es decir, el computador Io organizará teniendo en
cuenta el orden ascendente de la clave.
2.2.2.5.3. Organizado por crrentas
cuando quiere visualizar er movimiento teniendo como
base la numeración de ras cuentas, en forma ascendente.
2.2.2.5.4. Retorno
Para regresar al Menú principal.
2.2.2.6. Análisi.s
Para obtener ros análisis financieros. Ar eregir este
44
iten, aparecerá un nuevo submeúu:
1 GENERAI
2 LTQUIDEZ
3 ACII\,IIDAI)
4 RBTÜTAB
5 APAI,AI¡CA
6 TABr,A
7 RE¡ORT¡O
ud. puede seleccionar cualquiera de estas opcionescorocando el cursor sobre la opción deseada y oprimiendola tecra Retorno, o escribiendo er número o la letrainicial de Ia opción.
Este submenú le brinda las siguientes opciones:
2.2.2.6.L. General
Le ofrece una nota expricatica sobre ras razones y lasproporciones financieras :
Tas Razones y Froporciones Financieras
La herramienta de uso más generalizado dentro delanálisis financiero clásico es sin lugar a dudas elcálcuro de ra razones financieras (en argunas ocasiones
encontrará literatura en la que se hace referencia arfproporciones y/o raLiosr) .
45
Las razones financieras son, en sentido estricto, razonescontables que se calcuran a partir de cocientes entrecifras tomadas directamente de ros estados financierosperiódicos de una empresai su poder como herramienta de
diagnóstico dependerá de la disponibilidad de estándaresque pemitan hacer comparaciones entre ros fndicesespecfficos de una empresa y ros pronedios del sectorindustrial al que elra pertenece. Es importante no
perder de vista esta dimensión de ra capacidadexplicativa que en sf mismas tienen ras razonesfinancieras; disponer de una serie (por ejenplo) de
Índice sobre ra prueba ácida, re pernite establecer alanarista una tendencia en er comportamiento de losactivos de fácil realización y, sin enbargo, más atrá de
esto, tar infornación no dice nada sobre el carácteradecuado o no de tal nivel de liquidez.
Existe en ra riteratura especiarizada una rerativahomogeneidad en ra forma como se clasifican , paraefectos de su estudio, ras diferentes razonesfinancierasi eI criterio de clasificación mas comúnmente
utilizado toma como patrón er tipo de información que se
obtiene con el respectivo cociente. llanteniendo estepatrón, podemos clasificar las razones financieras asf:
46
Razones de Liquidez:
Buscan medir la capacidad de ra empresa para cunplir con
las obrigaciones exigibles en el corto prazo, asf como
la caridad de los activos y pasivos de corto plazo.
Razones de Actividad:
Perniten evaluar la efectl-vidad y ef iciencia de raempresa en la utilización de sus activos.
Razones de Rentabilidad:
Permiten evaluar ra efectividad y eficiencia de raempresa a partir de ros rendinientos (retornos)financieros generados.
Razones de Apalancamiento:
Perml-ten evaruar las estrategias de aparancamientofinanciero y la forma como ra empresa ha mezclado 1a
deuda y aportación.
2.2.2.6.2. Liquidez
Le ofrece la posibilidad de calcular: Razón o rndice de
Liquidez, Prueba Acida, capitar Neto de Trabajo, Rotación
de Capital de Trabajo, Perfodo
Cuentas por Cobrar, Rotación de
de Cuentas por Pagar.
Cada cáIculo viene
resultado obtenido,
acompañado de una explicación del
asf:
de Cobro,
Inventarios,
47
Rotación de
y Rotación
Ia Razón o Indice de Liquidez
Nornalmente eI punto de partida en el análisis
financiero, a partir de razones financieras, son los
fndices de liguidez. Una pregunta básica que se debe
poder responder es: CuáI es Ia capacidad de la empresa
para responder por sus obligaciones exigibles en el cortoplazo? Aungue a nuestro juicio una respuesta exahustiva a
esta pregunta requerirfa muy probablemente disponer de un
presupuesto de caja detallado, el fndice de liquidezprovee una aproximación adecuadamente razonable. Este
Índice se calcula tomando los activos corrientes y
dividiéndolos entre Ios pasivos exigibles en el corto
plazo (pasivos corrientes) :
Activo CorrientesRazón de liguidez :
Pasivos Corrientes
Razón de tiquidez : )o(
Una razón corriente de )O( significa qlue, sin considerar
48
aquf la calidad de los activos y pasivos corrientes, Ia
empresa tendrfa la capacidad de generar en el corto plazo
xx pesos por cada peso exigible. En Ia situación más
extrema lo anterior significarfa que, incluso realizando
sus activos de corto plazo por un YYt de su valor de
contabilización, Ia empresa podrfa hacer frente a sus
obligaciones a corto plazo.
P:rueba Acida
Por 1o general suele conpletarse la infomación obtenida
a través de Ia razón de liquidez con la prueba ácidai Ia
misma es un esfuerzo por castigar la situación de
tiquidez de Ia empresa y pregruntarse cuál serfa bajo un
escenario negativo Ia capacidad de pago de dicha empresa
frente a sus acreedores corrientes.
La prueba ácida se calcula encontrando eI cociente entre
Ios activos corrientes, deducJ.endo de los mismos el rubro
que por caraterÍsticas propias del negocio resulte menos
lfquido, y dividiendo este resultado por los pasivos
corrientes.
( Caja + Banco + Cuentas x Cobrar )P:rreba ácida :
Fn¡eba ácida = )m(
Pasivos Corrientes
49
La interpretación anarftica de ra prueba ácida es análogaa ra razón corriente; un resultado de )oo( significa que
por cada peso exigible ra empresa dispone de activosrealizabres en er corto plazo que re pernitirfan generar)üx aún sin recurrir a riquidar sus inventarios. Aunque
es necesario remitir los resultados especfficos a
estándares sectoriales¡ no resulta contraindicadoresaltar que una prueba ácida superior a la unidad (t.o)sugiere una situación favorable desde el punto de vistade tiquidez.
Capital de Trabajo Neto
El ciclo de efectivo del negocLo, de algruna manera recoge
las diferencias en er tiempo entre el flujo de ingresos yer frujo de egresos directamente referidos a un negocioen particular; una de ras consecuencias más directas de
las caracterlsticas der ciclo de efectivo es el niver dercapital de trabajo que ra empresa debe mantener para
soportar en er corto prazo su funcionamiento; el niveróptino det capital de trabajo resurta un objetivojustificable en virtud der costo de oportunidad de
mantener recursos no directamente productivos en ra formade efectivo, cuentas por cobrar e inventarios. Ercapitar neto de trabajo estabrece el niver de gastoscorrientes en que la empresa puede incurrir para mantenersu operación en el corto plazo una vez haya liguidado los
Uninnidd aulonomo dü ftcidrnh
compromisos con acreedores de
trabajo neto representa las
sin incluir la generación
perfodo corriente.
50
corto plazor eI capital de
disponibilidades corrientes
narginal de recursos del
Como tal, eI capital de trabajo neto se calcula restando
de los activos corrientes Ios pasivos respectivos;obsérvese que en el fondo el capital de trabajo es una
relación calculada a partir de las mismas cuentas
utilizadas para el cálculo de la razón corriente y por
supuesto representa otra fo¡:ma de preguntarse por lacapacidad de pago corriente de la enpresa.
Activos Corrientes - PasivosCapital de Trabajo Neto :
Corriente
Capital de Trabajo Neto : vex
La interpretación del significado del capital de trabajoneto es relativamente directat éI mismo es un número que
puede ser positivo, negativo o igual a cero; en eIprimero de los casos, los activos realizables de laempresa son suficientes para cubrir satisfactorianente,con sus obligaciones corrientesi finalmente, cabe Iaposibilidad matenática de ser igual a cero en cuyo caso
los activos realizables en eI corto plazo son igruales aIas exigibitidades del mismo tipo que enfrenta Iaentidad.
5L
La presencia de un capital de trabajo negativo es en
general un sfntona que sugiere problenas de liquidezi no
obstante, debe ser claro que esto no necesariamente es
asf y dependerá mucho del sector industrial y del ciclode efectivo que tipiftque el misno.
Rotación det Capital de Trabajo
Es fact,ible imaginarse que existe una relación directa
entre el volunen del capital de trabajo y los costos de
mantenimiento del mismo; por tanto, una empresa resultará
más favorecida en la medida en que se minimice Ia
inversión necesaria en capital de trabajo nenteniendo
(por supuesto) su volunen de operación. La rotación del
capital de trabajo pernite observar Ia tendencia que
muestra una empresa en la eficiencia con que utiliza sus
activos corrientesi no obstante, una elevación demasiado
abrupta de Ia rotación puede tanbién interpretarse como
un sfntoma de iliquidez que estarfa refleJando niveles de
inventario, caja o (incluso) una polftica crediticia que
resulta restrictiva para Ia expansión de los niveles de
actividad.
La rotación de1 capital de trabajo se calcula dividiendo
Ias ventas entre el capital de trabajo; el resultado se
expresa en VECES.
52
VentasRotación del Capital de Trabajo : -;----
capital de Trabajo
Rotación del Capital de Trabajo = IOO(
Una rotación de )OO( veces, significa que por cada peso de
ventas Ia empresa mantuvo en la forma de activos
corrientes (una vez descontados los pasivos respectivos),
XXX centavos. Tradicionalmente, Ios activos que
conforman eI capital de trabajo se consideran activos no
productivos, lo cual se ha reflejado en el esquema
tradicional que busca minimizar los recursos que la
empresa mantiene en capital de trabajo; no obstante, debe
recordarse que eI efectivo puede convertirse en un activoproductivo de importancia dependiendo de lasposibilidades que ofrezca el mercado financiero a
inversiones de alta liquidez.
La liguidez efectiva de un negocio €sr finalmente, eI
resultado de confrontar el flujo de ingresos con eI flujode egresosi es claro que los factores que rnás inciden en
eI comportamiento de tales fluJos están dete¡minados por
el poder de negociación que tenga Ia empresa con losproveedores y conpradores-competidores además de lascaracterfsticas del proceso de producción. Asl las cosas,
Ia velocidad con que la empresa logra convertir en
efectivo sus activos contra la velocidad con Ia que
53
atiende o debe atender los egresos derivados del proceso
productivo-comercial, están en la baEe de la generación
de tiquidezi de ahf que, a pesar de ser considerados como
indicadores de eficiencia, resulta pertinente calcular la
rotación de las cuentas por pagar, eI perlodo de cobro y
Ia rotación de inventarios, Io cual nos permitirá una
aproximación a Ia calidad de los activos y pasivos
corrientes de la empresa y a proyectar Ia tendencia de
liquidez respectiva.
Periodo de Cobro
Cono su nombre Io sugiere, éste es un indicador del
perÍodo pronedio de duración que utitiza Ia empresa para
recaudar efectivamente los ingresos derivados de la venta
de sus productos y/o servicios. En realidad, el perfodo
de cobro indica la liquidez de las cuentas por cobrari
cuanto mayor sea eI perfodo de cobro, Ia liguidez se
juzga inferior.
Cuentas x CobrarPerfodo de Cobro Promedio :----
VentasX dfas del
perfodo
Perfodo de Cobro Promedio : )OO(
Rotación de las Ctrentas por Cobrar
Una segunda razón contable puede ser útil en el esfuerzo
54
del analista por deteminar la calidad en términos de
liquidez de las cuentas por cobrari este indicador nos
nuestra eI núnero de veces que rotan las cuentas por
cobrar, por perfodo (nomalnente por año) i una rotación
mayor significa una mayor liguidación de la cartera; no
obstante, una rotación significativamente alta puede,
dependiendo del sector y de las condiciones de
competencia, estar indicando una polltica crediticiadenasiado restrictiva, con los inconvenientes que ésta
acarrearfa desde eI punto de vista de crecimiento.
VentasRotación de Cuentas por Cobrar :
Centas x cobrar
Rotación de Cuentas por Cobrar : IOO(
En general, vale Ia pena destacar que (siendo estrictos)tanto el perfodo medio de cobranza como Ia rotación de
cuentas por cobrar deberfan calcularse a partir de las
relaciones que se definan sobre las ventas a crédito,siendo conveniente por Io tanto distinguir de las ventas
contabilizadas, gué porcentaje corresponde a ventas de
contado y cuál a ventas a crédito; no obstante, como en
Ia mayorfa de los estados financieros no se presenta taldistinción, optamos por calcular los respectivos fndices
a partir de relaciones que toman para efectos prácticos
el total de las ventas registradas en el periodo.
55
Rotación de los fnventarios
Suele dedicarse mayor atención en 1o que se refiere a
adninistración del capitat de trabajo, a Io que trata del
manejo y optimización de los inventarios. LoE altoscostos derivados del nantenimiento de inventarios en
exceso, justifican plenanente tal esfuerzo; sedeberá dar
una atención especial al comportamiento de losinventarios, en particular cuando por caracterfsticas de1
respectivo negocio éstos representen un porcentajeimportante de los activos de la empresa.
Tradicionalnente, éste parece ser eI caso de lasagroindustrias o de los sectores que utilizanintensivamente
estacionalidad;
influyen dentro
materias primas
insumos agricolas sujetos a
otro tanto puede decirse de sectores que
de sus insumos un paquete inportante de
inportadas.
La rotación del inventario es una razón financiera que
registra un fndice del número de veces que el inventarioestá rotando por perlodo. Permite expresar el inventariopromedio en térrninos del número de dfas de venta que elmisno representa; una rotación alta de inventariosignlfica que Ia empresa mantiene un margen relativamentepequeño de trstocktr de inventariosi esto puede aumentar eIriesgo de su suministro, pero por otro lado mininiza el
56
riesgo de obsolencia y el costo de mantenimiento de
inventarios. como habrá ido descubriendo aqufr Do
existen reglas fijas del nDEBE SERr, yd que lascondiciones que establecen un niver óptino de inventariosdependerán de las condiciones especfficas y la coyunturapor Ia que atraviese la empresa. El cálculo de larotación de inventarios se hace estabreciendo er cocienteentre el costo de ventas y los niveres respectivos de
inventario; esta variación respecto ar esquema nodelo
para er cárcuro de las rotaciones se justifica, dado elhecho según el cuar mientras ros inventarios estáncontabirizados a su costo (de acuerdo al principio básicode la contabilidad ortodoxa) tos ingresos por ventas se
registran a aprecios de mercadoi aún para inventarios de
producto terminado, esto puede significar una diferenciaimportante que resulta en función der margen de utilidadde la empresa.
De otra parter s€ deberá prestar atención al carácterestacional der inventario y en caso de que lo considerepertinente, para evitar distorsiones extremas se puede
trabajar utilizando en rugar der registro puntuar der
inventario en un perfodo dado, ros inventarios medios opronedios, según lo estime conveniente; finalnente, en lanayorfa de los casos dependiendo del niver de detalle con
que posea la infornación contabre, resulta muy útir porsu varor expricativo del cárculo de ra rotación de
inventarios por tipo, diferenciando entre inventariosnaterias primas, productos en proceso e inventarioproductos teminados.
Costo de ventasRotación de fnventarios :
fnventario promedio
Rotación de Inventarios : l0O(
Rotación de las Cuentas por pagar
Finalnente, para terninar nuestra refrexión sobre ros
indicadores de liquidez, nos quedarfa por discutir rarotación de ras cuentas por pagart ésta estabrece racalidad de tales pasivos en téminos de liquidez, y en
realidad er fndice, núnero de veces o su equivalencia en
dfas, da eI perÍodo en que Ia empresa se financiamediante sus proveedoresi es craro que a nedida que larotación disminuye esto significa gue er prazo en que laempresa debe pagar a sus proveedores se ha extendido, con
Ia contrapartida en liquidez que esto inplica. La
rotación de las cuentas por cobrar y por pagar reflejanla capacidad de negociación de la empresa, tanto con sus
compradores como con sus proveedoresi en una situaciónideal, una arta rotación de ras cuentas por cobraracompañada de una baja rotación de cuentas por pagar
beneficia significativamente el flujo de caja.
57
de
de
58
rguarmente, resurta interesante establecer el perÍodototar del ciclo del capitar de trabajo, definido éstecomo el tienpo que debe transcurrir desde er nomento de
compra de las materias priroas hasta el momento en que lasmismas (pasando previamente por el proceso de manufactura
y venta) generan la riguidez respectiva; este cicro totarpuede ser encontrado mediante la Euma de la rotación de
los inventarios más la rotación de ras cuentas porcobrar.
r,a rotación de las cuentas por pagar se calcula como elcociente entre las compras anuares y er valor respectivodel rubro de cuentas por pagart er indicador muestra elnúnero de veces que rotan las C x p en el perfodo.
Rotación de Cuentas por pagar : Compras
Cuentas x paftar
r,a dificultad tradicional en er cárcuro de esta razónradica en que normarnente los estados financieros tfpicosno registran de manera separada las compras y por Iotanto resulta inposibre sin este varor aplicar la fórmura
pertinente.
2.2.2.6.3 . Actividad
r.€ per^mite carcurar las razones de actividad Rotación
59
del Activo Total, y
Cada cáIculo viene
resultado obtenido,
Rotación del Activo Fijo.acompañado de una e><plicación
asf:deI
Razones de Astividad
Existe ar igual que en el anáriEis de liquidez, un
conjunto de relaciones contableE cuyo propósito espermitir juzgar ra eficiencia interna de la empresa; se
trata entonces de responder a ra preg'unta de qué taneficiente ha sidor €n térmLnos comparativos, una entidaden la utirización de sus activos para generar ventas yutilidades.
RotacLón de Activos Fijoe
En térninos generares, en ra nedida en que una empresa
genere dentro del misno sector industrial y compitiendoincluso en el mismo negocior üD volunen de ventas y/outilidades mayor en térninos relativos a sua conpetidorascon el misno niver de inversión en activosr s€ consideranás eficiente en la utitización de los nisnosi rarotación de activos es un ejercicio para tratar de
cuantificar ra eficiencia der tipo que se descrJ_bió, y elnúmero de veces que ros activos rotan en er perfodorespecto a las ventas nos da un indicador de cuántospesos se generan en ventas por cada peso invertido en
dr Otciüih
activos.
tanto para
fij os.
Tradicionalmente
eI total de los
60
suele calcularse el indicadoractivos, como para los activos
Rotación del Activo Total =Ventas
Activos totales
Rotación del
Rotación del
Activo Tota1 : :ocx
VentasActivo Ftjo: ------
Activos fijos
Rotación de1 Activo Fijo : yyx
un resurtado de r<:cx veces significa güe, por cada peso
invertido en activos, el misno generó xxx pesos de
ventas. En la nedida en que este indicador suba (aunenta
la rotación de los activos) la empresa está generando un
mayor vorumen de ventas por peso invertido en activos.Aungue er análisis de la rotación der activo fijo es
conceptuarmente anárogo al der activo totat, tiene lavirtud de relacionar er volumen de ventas con los activosproductivos.
2.2.2. 6. 4. Rentabilidad
r€ permite carcular Razón de Rentabilidad, t[argen Brutode utilidad, l.fargen de utiridad operacionar, Margen de
utiridad Neta, Rendiniento de ros Activos, Rendimiento de
6L
Capital, y Rendiniento de patrimonio.
Cada cálculo viene acompañado
resultado obtenido, asf:de una explicación del
Razones de rentabilidad
Aunque ra rentabilidad y ra utilidad monetaria sean sórouno de ros objetivos organizacionales de largo prazor Do
resurta traído de los caberlos afirmar que para un gtrupo
muy importante de organizaciones privadas, tantoindustriales como comerciares, ra maxinización delrendimiento de Ia inversión aparece como un objetivocentrar hasta el punto de afectar de manera sustanciar lasupervivencia de tares organizaciones en el rargo plazo.
Resurta entonces indispensabre disponer de herramientaspara juzgar el desempeño de la organización a esterespecto. r,as razones de rentabilidad apuntan en estadirección; dentro de las comúnmente utirizadas tenemos:
-Margen Bruto de Utilidad
-Dlargen de Utilidad Operacional
-lfargen de Utilidad Neta
-Rendiniento de los Activos
-Rendiniento del Capitat
-Rendimiento del patrimonio
Aungue esta lista no
los indicadores de
utilizados.
62
es por supuesto exhaustiva, recoge
rentabilidad más frecuentemente
es
l{argen Brlto de Utilidad
Este indicador pernite establecer er porcentaje de lasventas que excede el costo de producción de ros productos
vendidos; aunque estrictamente no es cierto que todos loscostos de producción sean variables, este indicador sueletomarse como estimativo de margen de utiridad variabre, y
representa er porcentaje de ras ventas gü€, después de
cubrir los costos de producción, queda disponible para
cubrir ros gastos que generen otras estancias de laoperación; obsérvese que este indicador da cuenta de raeficiencia productiva de la empresa dado que para su
cárcuro sólo se están incluyendo los costos inputabres alproceso productivo como tal.
El cáIculo de todos los Índices de margen
relativanente sencillo; es este caso tenemos:
Ventasl[argen Bnrto de
l[argen Bnrto de
UtilidadUtilidad Brlta: ------
Utilidad = --Y
Un valor de )oo( como resultado en el cálculo del indice
63
de margen bruto, significa que cada peso de ventas es
absorbido por :o< centavos de costo de producción y por
obvia deducción quedan disponibles xx centavos para
cubrir ros otros costos que puedan generar por fuera delproceso especffico.
llargen de Utilldad Operacional
Este indicador relaciona ros ingresos por ventas con lautiridad operacinar; por tanto, no soramente mide raeficiencia (a través de la utiridad contable) de laempresa en ros proceso productivos, sino que invorucra raeficiencia adninistrativa y comerciar al estar deducidos
ros gastos de adninistración y ventas en el cárculo de lautilidad operacional.
Utilidad Operacionalüargen de Utilidad Operacional :
Ventas
llargen de lttilidad Operacional : )oo(
un vvet de margen de utiridad operacionar, significa que
por cada peso de ventas, rvr( centavos quedan disponiblespara cubrir gastos no operacionales. Dicho de otro modo,
éste es el resultado net,o de la gestión de producir yvender el producto.
Er cárculo independiente det margen de utiridad bruta y
64
del margen de utilidad operacional, le permite obserr¡arsi ros canbios de rentabilidad de perfodo en perfodo son
inputabres a cambios en ra eficiencia det procesoproductivo o a cambios en ra eficiencia de las áreasadministrativas y comerciares, estableciendo de estamanera los patrones sobre ras tendencias de crecimientode los dLversos componentes de la estructura de costos.
üargen de Utilldad lfeta
como resulta obvio, el marften de utilidad neta incorporaar análisis de ra rentabiridad la dinensión no operacinarde la empresa. At comparar ras ventas con ra utilidadneta final¡ s€ está involucrando la eficiencia de raempresa en el manejo de su tesorerla no solamente en loque respecta al costo de sus fuentes de financiación sinotanbién a los resultados der manejo de sus excedentes de
liguidez y su capacidad de nantener una buena praneación
tributaria.
Este indicador muestra ros resultados finares de
gestión de 1a organización en todas las áreasactividad operacionales y no operaionales.
llarrgen deUtilidad Neta Final
Utilidad Neta : ------Ventas
Utilidad Neta : )oo(
Iade
üargen de
65
Se tiene que por cada peso de ventas la empresa percibe
una utilidad final, a disposición de los accionistas, de
xxx centavos.
Ahora bien, hasta aquf nos he¡nos ref erido a lasrelaciones entre utilidad y volumen de ventas, pero es
claro que Ia utilidad que se obtiene a una nivelespecÍfico de ventas no sale de nadai por supuesto, es elresultado de procesos concretos de producción y/ocomercialización en Ia base de los cuales están losactivos. Resulta entonces igualnente relevante evaluar
la eficiencia de Ia empresa desde eI punto de vista del
rendimiento que obtiene por la utilización especlfica de
sus activos sobre todo si ellos representan la e:qlresión
concreta de Ia inversión.
Es evidente que será más eficiente y por ende más
rentable, si logra generar un mayor nivel de utilidadrelativa con niveles equiparables de inversión en
activos.
Rendiniento de los Activos
Esta raz6n le permite al analista encontrar el retorno
contable por perfodo, por peso invertido en activos.
66
Utilidad Neta FinalRendiriento de los Actiyos :Activos Totales
Rendiniento de los Activos : )oo(
Er resultado anterior re pemite concluir qfue por cada
:oo( peso invertido en activos, ra empresa genera :oo(
centavosr os decir para generar un pe6o de utilidad es
necesario invertir aproxinadamente too( peaos en activos.
Rendimiento del Capital
si se parte de la definición crásica de capital, para lasfuentes de financiación o recursos de rargo prazo de que
dispone una empresa, resurta interesante estabrecer errendimiento de estos recursos que presumibremente se han
aplicado a la consecución de ros activos de ra empresa.
UtilidadRendiniento del Capital :
(Pasivo a IargoPlazo + patrimonio)
Rendimiento del Capital : :o(:(
Debe recordar que alrecursos de largo plazo
evaluando la eficienciadesarrolla actividades
recursos. Un !<:o( por
relacionar la utitidad con loscon que cuenta la empresa, está
con que la empresa identifica y
rentables en las que aplica talesciento de rendimiento significa
67
q[ue' por cada roo( pe€¡o captado vfa endeudamiento a largoprazo o vÍa aportación, la empresa genera mediante su
aplicación al negocio x* centavos de utilidad.
Rendiuiento sobre el patrinonio
Para er accionista como tar, ra variable relevante es elrendiniento sobre los recursoE propios aportados por ér;por lo cualr s€ debe responder ra pregunta Eobre laeficiencia con que la empresa utitiza los recursosaportados por sus accionistas. para tat propósito se
relaciona ra utilidad con el patrinonio o capitarcontabre, obteniéndose de esta manera el rendiniento porcada peso invertido por los accionistas bien sea nediantela conpra de acciones o bien a través de ra aprobación de
utilidades retenidas.
UtilidadRendi-miento del patrimonio : ------
Patrinonio
Rendiniento del patrinonio : :oo(
Er análisis simultáneo sobre las diferencias entre elrendimiento de los activos, del capital, y delpatrinonio, le permite evaluar la bondad de ra estrategiade aparancamiento que ha desarrorlado 1a empresaiig'ualmente los resurtados del rendimiento de ros activos,incruso del rendiml-ento operacional de ros activos,
resulta de vitalmismos tienen en
productiva.
irnportancia dada
la decisión de
68
Ia influencia que losinversión y expansión
2. 2.2. 6.5. Apalancaniento
L€ pemite calcular Razón de
Endeudamiento, Razón de pasivo
Cobertura de fntereses.
Apalancamiento, Razón
a Patrimonio, Razón
de
de
cada cálculo viene acompañado de una explicación deL
resultado obtenido, asf:
Razones de A¡nlancamiento
En er desarrolro nornal de la actividad empresarial, eléxito y la supervivencia están asociados ar crecimiento;aún en mercados maduros y estables, la estrategiaempresarial se concentra en có¡no diversificarse o
integrarse para mantener una rata aceptable de
crecimiento sostenidot er creciniento, sin enbargo, exigeuno de los diseños más finos del campo organizacional.En su aspecto puramente financiero normarmente ras altastasas de crecimiento prantean la necesidad de recurrir a
fuentes de financiación externas ante ra insuficiencia de
generar internamente los volúmenes de recursos necesariospara nantener un crecimiento sostenido. r,as inversiones
69
de expansión, cuyo retorno posiblemente sólo se haga
efectivo después de un tiempo noderadanente lejano,inplica la necesidad imperJ-osa para Ia empresa de
encontrar fuentes de financiación adecuadas; eI manejo
juicioso del endeudamiento es quizás uno de los retos
centrales de la actividad financiera de una empresai un
mal nanejo en tal sentido puede hacer que los esfuerzos
operacionales se esfurnen con sorprendente facilidad.
Dentro de los indicadores que
para evaluar la estratégia de
una empresar s€ encuentran
financieras:
puede utilizar eI analistaendeudamiento seguida por
las siguientes razones
-Razón de Endeudamiento
-Razón Pasivo y Patrinonio
-Razón de Cobertura de Intereses
A continuación haremos una descripción de cada una de
eIlas:
Razón de Endeuda¡niento
Existen fundanentalmente dos grandes proveedores de
recursos financieros para la empresa, estos son, por un
Iado los acreedores externos (endeudaniento) y por otrolos accionistas o propietarios (aportación); Ia razón de
endeudaniento establece la proporción en la que Ia
70
empresa ha utilizado eI endeudamiento para financiar su
actividad.
La comparación entre eI lndice particular de una empresa
y los promedios sectoriales, le permite establecer en
gué medida una empresa puede estar incurriendo en un
exagerado riesgo financiero y consecuentenente en unos
altos costos financieros asociados a altos niveles de
endeudamientoi no se debe perder de vista el hecho de que
el endeudamiento tiene una doble inplicación sobre lasituación financiera de Ia empresa: por un lado, vfa
costo, reflejándose directamente en el volunen y periodo
de pago de los intereses (gastos financieros), y por otrolado, vfa flujo de caja, refleJándose directamente en
función de su exigibilidad sobre la amortización como un
egreso de efectivo de caja.
PasivosRazón de Endeudamiento :
(Totat Pasivo + Patrinonio)
Razón de Endeudaniento = too(
El resultado anterior muestra cóno, del total de
recursos utilizados por la empresa al corte del año
eI ¡oo( por ciento de los nisnos ha sido obtenido
acreedores externos vfa endeudamiento.
Ios
X:K,
de
7L
Razón Paeivo a patrinonio
otra forma de analizar la estrategia de aparancamiento
financiero de una entidad, es nediante el cálculo der
cociente entre pasivos y patrinonio; el resultado de este
cociente pernite establecer, por cada peso aportado por
los accionistas, cuánto ha tenido que sarir a captar laempresa ante terceros.
PasivoRazón Pasivo a Patrinonio :
Patrinonio
Razón Pasivo a Patrimo¡16 - rvr(
Asf las cosas, por cada peso de aportación, ra empresa se
ha endeudado en x-x pesos.
una de ras razones por las cuares er apalancamiento es
una variable crft,ica en el nanejo financiero, radica en
er hecho de que a medida de que una empresa aumenta su
aparancamiento (vfa endeudamiento), sus cargos relativoscrecen correlativamente, esto irnplica un mayor riesgopara la empresa, pueÉ¡ cabe de manera creciente raposibilidad de gue la misma no pueda servir ra deuda ante(por ejenplo) una baja en sus volúmenes de ventasi portar motivo, resurta importante para er diagnósticofinanciero preguntar por el margen de maniobra de que
dispone una empresa en ro que respecta a cumplir con el
72
pago de los intereses derivados de los volúmenes de deuda
arcanzados. Este ejercicio ae puede hacer mediante elcárculo de ra Razón de cobertura de rntereses; estarazón 1e permite comparar ra generación de utiridadesoperacionares respecto de las obrigaciones financierasque enfrenta la empresa.
Razón de Cobertura de fntereses
Razón de Cobertura de Intereses =Utilidad Operacional
fntereses
En el caso que aquf nos compete, este indicador muestra
un resultado de *-x; esto significa que por cada peso de
intereses que Ia empresa debe pagar, elra está generando
xxx pesos¡ en utilidad operacional. Es evidente que
cuanto mayor sea ra cobertura de intereses, el margen de
maniobra de la empresa será mayor y esto Eie interpretacomo un sfntoma de que er riesgo financiero asociado aIuso de la deuda está bajo control.
2.2.2.6.6. Tabla
Le pernite observar er resumen de todas las razonesfinancieras con la sigruiente presentación:
73
TABrJA DE RAZONBS FINA¡TCIERA,S
RAZOIIES DE LTQI'TDEZ
La Razón o Indice de Liquidez
Prueba Acida
Capital de Trabajo Neto
Rotación del Capital de Trabajo
Perfodo de Cobro
Rotación de las Cuentas por Cobrar
Rotación de los Inventarios
RAZOIÍES DE ACTTVIDAI)
Rotación de Activos Totales
Rotación de Activos Fijos
RAZONES DE REIITABILTDN)
üargen Bruto de UtilidadMargen de Uttlidad Operacional
Margen de Utilidad Neta
Rendimiento de los Activos
Rendimiento del Capital
Rendimiento sobre eI patrinonio
74
AZOIÍES DE APAIAT|CAilIENI'O
Razón de Endeudamiento
Razón Pasivo a Patrimonio
Razón de Cobertura de Interbses
2.2.2.6.7. Retorno
Retorna al Menú Principal.
2.2.2.7 . Retorno
Retorna al Menú Principal.
2.2.3. Opción Inpresión
Estando en el l,fenú principal,
CIIRSOR Cologue el cursor en II{PRESION
ENTRE Oprina la tecla Retorno
o
ESCRIBA I
En el panel aparecerá eI siguiente subnenú:
BAI,AIICE GRAL SI'BCT'E¡TTAS CTAS.ITAYORES P Y G
IIO\I1ffiEMI'IO RBITORNO
75
Para inprinir cuarquiera de estas opciones, realice lossiguientes pasos:
- verifique que la rmpresora se encuentre encendida.
seleccione la opción a inprinir corocando er cursorsobre ella y luego opriniendo la tecla Retorno, o
sencilramente escribiendo la letra iniciar de la opción
escogida.
Inmediatamente se iniciará Ia inpresión.Terminada Ia inpresión, en el panel aparece el
submenú, para elegir otra opción de inpresión o para
regresar con la opción Retorno aI Menú principal.
2.2.4. O¡rción Archivar
Estando en el Menú principal
CIIRSOR Cologue el cursor sobre ARCHMR
ENTRE Oprina la tecla Retorno
o
ESCRIBA A
En ra pantalla der computador sólo quedará la Hoja de
Trabajo mientras se reariza ra operación de archivo.
Terminada ésta, aparecerá de nuevo er lrÍenri principar.
76
No olvide archivar su trabajo periódicamente.
2.2 .5. O¡rción Utilidades
Estando en eI lfenú principat
CIIR^SOR Coloque el cursor sobre UTILIDADES
EfmRE Oprima la tecla Retorno
o
ESCRIBA U
La opción UTTLTDADES le brinda un segundo menú de
posibilidades asl:
BItSQttBDA IrLTrüa B[tseUEna ELrt'trl{A GENERA-BAraICE
CIERRE ITODIFTCjA RS¡ORTO
Con este Menú Ud. puede lograr:
2.2.5. 1. hlsqueda
Para definir criterios de consulta.
si erige esta opción, coroque el cursor sobre BUseuEDA yoprima ra tecra Retorno, o sencirlamente escriba ra retraB. En la pantalla aparecerá la orden:
Entre la condición
77
Enseguida aparecen las opciones para escoger cóno guiereencontrar el dato requerido:
CT'ENTA TOilBRE NIT EBCEA VAIOR
IIo.CIIEeIIE D/c DESCRIPCTON
cttRsoR coloque er cursor bajo Ia opción eregida para
buscar eI dato solicitadoESCRfBA la condición
ENTRE Oprima Ia tecla Retorno
POR EiÍEüPIO : Si desea buscar la cuenta t-OOs
CURSOR Coloque eI cursor baJo la opción CUENTA
ESCRfBA la condición, o sea, 1OO5
ENTRE Oprirna la tecla Retorno.
En el panel aparecerá:
Quiere entrar otra condición S/N ?
EscRrBA N' si no guiere añadir nás condiciones
BIITRE Oprima Ia tecla Retorno
De inmediato ra pantalla re mostrará los datosrequeridos. En nuestro ejemplo, aparecerán entonces todoslos datos cuya cuenta sea Ia f.OOs.
78
Tanbién aparece Ia orden:
Eesione (Enter) suando ter¡ine
Por lo cual, cuando ud. termine Eu revisión debe
presionar Ia tecla Retorno y regresará aI Dlenú Principal.
Pero si desea ser más directo en Ia búsqueda y dar, otra
condición,
ESCRIBA S, para dar Ia nueva condición
Ef+TRE Oprina Ia t,ecla Retorno
Y continúe el misrno procedimiento de la prinera
condición.
FOR F^TEIIPIO : Si de la cuenta 1005 sóIo quiere buscar los
datos cuya fecha sea JULIO 29.
Después de realizar los pasos del eJenplo anterior,ESCRIBA S, para dar la nueva condición
ENTRE Oprima la tecla Retorno
CTRSOR Coloque eI cursor bajo Ia opción FECHA
ESCRIBA la nueva condición, o sea, JttLIO 29
ENTRE Oprina la tecla Retorno.
En Ia pantalla aparecerán los datos que cumplan las dos
condiciones:
Cuenta L005 y Fecha Julio 29.
79
2.2.5.2. Ultina Brisqueda
Para ver por pantalla ros datoe que cumplen la úrtimacondición dada. si elige esta opción, coloque er cursorsobre ULTfUA BUSQUEDA y oprima la tecla Retorno, o
sencillamente escriba Ia letra U.
En la pantalla aparecerá la últina búsqueda que Ud.
ordenó a su computador.
Terninada su revisión, presione Ia tecla Retorno y
regresará ar Menú Principar. poR EJEIrtpro: si al comenzar
su jornada de trabajo buscó todos los datos que
cumprieran la condición: NOIIIBRE Arvaro carranza; después
de pasado el tienpo si Ud. elige la opción UTILIDADES,
uLTrItfA BUSQUEDAT €D ra pantalra aparecerán estos datos,que fueron los úItimos solicitados por Ud.
2.2.5.3. Elinina
Para eliminar un registro contabre. st erige esta opción,
coloque el cursor sobre ELfMINA y oprima la teclaRetorno, o sencillamente escriba Ia letra E. En Iapantalla aparecerá eI siguiente mensaje:
una vez salga de esta pantalra, podrá sereccionar lalfnea a eliuinar. para erro uuévase con las flechashacia arriba o hacia abajo. cuando esté t¡bicado presione
80
<enter>.
PRESTOTTE <EITTER> PARA SALIR DE ESTA PA¡ITAI¡A
Al presionar ra tecla Retorno, en su pantarla aparece elmoviniento contable. ubique ra fita que quiere eliminar,moviéndose con las flechas, y oprima la tecla Retorno.Realizada la operación, en eI panel aparece
Quiere eliminar otro registro S/N?
Si desea eliminar otro registro,
ESCRTBA S
ENTRB Oprina Ia tecla Retorno.
Ahora puede realizar su seqfunda erininación, sigruiendo elmismo proceso.
Si no desea eliminar más filas,
ESCRIBA N
ENIRE Oprima Ia tecla Retorno
En eI panel aparece de nuevo eI üenú principal.
Tenga en cuenta que al rearizar la etininación desaparece
toda Ia fila.
8L
Cerciórese de elininar la fila deseada!
Si lo que Ud. desea no es eliminar toda una fita, sino
solamente corregir un registro efectuado, esta opción
ELIIIIINA no le sirve.
Debe elegir Ia opción I,fODff'ICA.
2.2.5. 4. Genera-Balance
Hace el proceso de actualización de saldos, con elmovimiento. Si elige esta opción, cologue el cursor sobre
GENERA-BALANCE y oprina la tecla Retorno, o solament,e
escriba la letra G.
Mientras el conputador realiza los cálculos para generar
eI balance, en eI panel no aparece ninguna opción.
Terminados los cálculos Ie aparecerá de nuevo el üenú
Principal.
2.2.5.5. Cierre
Prepara los saldos para eI nuevo mec¡. Si elige esta
opción, coloque eI cursor sobre CfERRE y oprina la teclaRetorno, o sóIo escriba Ia letra C.
82
En eI panel de su conputador aparecerá Ia orden:
IIÚSERTE EL DISCO PARA GTIARDAR BL TTOVIÜIENTO DB
CPITTABIIJDAD y <EIÍIER>
Después de insertar el disco en la unidad de disco B y de
presionar ra tecla Retorno, en er panel aparecerá lanueva orden:
Bntre eI mes que se cerró (Ol:enero)
Proceda a entrar el mes que se cerró, escribiendo eIcódigo que corresponde a cada mes asl:
01- Enero
04 Abril07 Julio
02 Febrero
05 üayo
Og Agosto
03 Ylarzo
06 Junio
09 Septienbre
LO Octubre 1l_ Novienbre L2 Dicienbre
Luego presione la tecla Retorno. Espere a que eIcomputador efectúe la operación de cierre. cuando ter:mina
regresa al üenú principal.
2.2.5.6. lÍodifica
Para rnodificar un registro contable. si elige estaopción,coloque el cursor sobre UODfFfCA y oprima latecla Retorno, o escriba solamente la letra lf.
83
De inmediato aparece en ra pantarra er novimiento de
contabiridad. ud. puede desprazarse hasta er registro gue
desea nodificar por medio de las flechas.
sitúese sobre er registro a modificar, escriba er dato
correcto y presione ra tecla Retorno. puede nodificartodos los registros que desee, rearizando siempre esta
nisma operación.
Presione sinultáneamente las teclas (ALT) y (Zl para
regresar al Menú Principal después de teminada su laborde nodificación de registros. De inmediato proceda a
seleccionar ra opción ARCHTVAR para actuar izar elmovimiento contable.
2 .2 .5.7 . Retorno
Para regresar al Menú principal.
2.2.6. O¡rción Salida
Estando en
cnRsoR
ENTRE
o
ESCRIBA
eI lfenú Principal,
Coloque eI cursor sobre SALIDA
Oprina la tecla Retorno
84
Esta opción Ie permite salir del Iptus L23.
2.2.7 . O¡rción Fin liacro
Estando en el ttenú principal,
CT RSOR Coloque el cursor sobre FIN l,lACRO
EI{TRE Oprina Ia tecla Retorno
o
ESCRIBA F
Esta opción le pemite sarirse de la macro para utilizarIa Hoja de Trabajo.
cuando quiera regresar a ra macro, oprima simurtáneanente
las teclas (ALT) y {Zl y volverá aI lrfenú principal.
COIITAE¡LIDAD
D0ctJñEiI0ssltl
CODIF¡CRR
igura 2: Diagrana deContable
RUDITORIR s I s tEilfis
RElJI$IOII DE
IAc0D¡FICtCr0ll
PROCESO DEfrAErC¡0tl
II$ITDO DEtt ffiREnct0rl
Flujo de la fn ormación l[ódut
85
86
g !!3 .3:2 J)J¡ tau
7xiÍ .=a)
q
it i ¡i:
z:iÍ .
ii: ¡ir
uo
3-Ft
It
"liJ¡ta{oFqoz,'8S
t
auElUE>o
a
Figura 3: Arbol de Menú tfódulo Contable
87
MOVIMIENTO
1
OOMO SE ENOUEI\TRE
2ORG ORONOLOGIOAMTI\T
3ORG POR OUTNTAS
RETORT\O
Figura 4: Submenú Movimiento üódulo Contable
88
ati!¡At tLtour¡!z
ILtouto!zIAOIDAIoatrnL
IofiorI Ot¡O
t¡t¡¡¡at¡ uftt
oatI I sortc
Io?li utttIutrt t![alll A0Tactio¡ittoirc
Figura 5: Submenú Analisis l{ódulo Contable
0OTROS
(2 L|QU:DEZ)
89
1I
I
ROTAO(\I
oxo
ROTAO
3
NV
ROTAO OXP
RETORI\O
Figura 6: Submenú Otros Liquidez
I u'*'q]:"rT,:i- occ¡'ü'b
I
6OTROS
(4 RETVTAE )
1I
RENDI\I OAP
-)/
REI\DIIV PATR
RETORI\O
TAL
M,
Figura 7: Submenú Otros Rentabilidad
91_
2.3. COIiO TRABAJAR EN EL DISC! iPREST'PTIESTIOII
CARGTIE EI DOS en su computador
CARcttE Lotus LZ3 en la unidad de disco A
rNTRoDUzca, disco pREsupuESTo en la unidad de disco B
EscRrBA /FDA B:\ para que el computador pueda leerde Ia unidad de disco B
ENTRE Oprima la tecla Retorno.
EscRrBA /FR para traer er archivo en que va a
trabajar.Ct R.SOR Cologue el cursor sobre pI{fO
ENTRE Oprima Ia tecla Retorno.
En er panel de su computador aparecerá el lfenú principatasf:
DATOS UBICECTON ITÍPRESIOIÍ ARCATVAR
TABI,A TSS FIN IÍACRO SAI,IDA
Este l[enú Principal Ie ofrece:DATOS para entrar datos.
UBfC,ACfON para llegar a un formato especffico.I}ÍPRESfON para realizar inpresiones.
ARCXIrVAR para gruardar el trabajo realizado.TABI,A rss para actualizar la Tabra del seguro sociar.FIN ITIACRO para salir del macro.
SAI,IDA para salir del Lotus.
92
2.3.L. Opción llatos
Estando en el ltenú principal,
CTRSOR Coloque eI cursor sobre DATOS
EIITRE Oprina Ia tecla Retorno
o
BSCRIBA D
En la pantalla de su computador aparecerá el cuadro de
presupuestos y el cursor estará rocalizado enfrente de
los datos correspondientes a3
eÑo ectuar,
aÑo pnoxlüo
t AIrilENIlo aÑO pnoxllrto ------- t
Escriba ros datos aqui solicitados y desplácese con lasflechas de movimiento.
vuerva al Menú principar opriniendo sinurtáneamente rasteclas {ALT} y (zl .
Elija de innediato ra opción ARCHTVAR para que sean
guardados estos datos.
93
2.3.2. O¡rción llbicación
Estando en eI Menú principal,
CTRSOR Coloque eI cursor sobre UBICACION
ENTRE Oprina Ia tecla Retorno
o
BSCRIBA U
En er paner de su computador aparece er siguientesubmenú:
1STIELDOS BSTIIIIADOS 2sTTELDos Pt|I\o 3PRESI'PT,EST1o
4üES-PP[O REI'ORNO
Para trabajar en cualquiera de las opciones aquÍpresentadas,
cttRsoR coloque el cursor sobre la opción escogida
EIITRB Oprima la tecla Retorno
o
EscRrBA El núnero o ra retra iniciar de la opciónescogida.
Este submenú le ofrece
2.3.2.L. Sueldos Estinados
Para detarlar por pantalra ros sueldos estimados.
94
Al escoger esta opción, en la pantarra de su 6:emFutador
aparecerá eI siguiente cuadro:
PRESItpt ESI1O DE SITELDOS, PRESTACIOIÍES y cAs$os
lfro ec.nrar,
aÑo pnoxllrfo
t ALüENTO eñO pnOxruo t
SUErJ)OS Y PRESTACTOIÍES
COD. NOITIBRB TIEIIFO EN ST'ELDO st,ELDoI,A EHPRESA AIITERIOR AÑO AET
123
123
I1OTAL VAoACION SENA, SF, ISS CESI{T&rNSI'ETDOS
PRIIIIA L. PRI}I EX IIOTTAL AÑOAETUAL.
En esta Hoja de Trabajo ud. debe consignar ros datosreferentes a TrEtttpo EN LA EIrtpREsA ( antiguedad) ,
123
95
suELDo ANTERToR, suELDo A Drc eño acrual.
Escriba eI dato a consignar y desplácese con las flechas
de novimiento.
Después de consignada esta información, DIGITE tF9) para
que eI conputador realice los cáIculos en las otrascolumnas, asf:
$mAL SITELDOS = Sueldo Actual * LL.25
VACjACfON = Sueldo Actual * O.75
SENA, BTEIÍESTAR FA¡{IIüAR, Cit^tA DE C0}ÍPE}TSACION FAürr,LAR :
O.O8 * ( Total Sueldos + Vacación + Prina Exenta )
fSS = Se calcula de acuerdo a la tabla del Seguro
Social.
CESAIITIjAEINTERESES=L3/L2*((SueldoActual
Sueldo Anterior ) * ( Tienpo en la Enpresa + Sueldo
Anterior) ) * L.L2
PRIITIA LEGiAL = Sueldo Actual / 2
PRIIIA EXENTA = Sueldo Actual
$otrAl, eÑo AcruAL = ( sueldo Anual + vacacion + sena,
Bienestar Familiar, Caja de Compensación Familiar + ISS +
Cesantfarlntereses + Prima Legal + Prima Exenta)
Después de consignada toda Ia información y de ejecutados
los cálculos, vuelva aI Menú Principal presionando
simultáneamente las teclas {ALf} y (Zl.
96
Proceda ahora a guardar su trabajo escogiendo la opciónARCHTVAR.
Terninada esta operación, en el paner aparecerá el lfenú
Principal.
2.3.2.2. SueJ.do presupuesto
Para detallar por pantarla er presupuesto de suerdos.
Ar escoger esta opción en su pantarra aparecerá una Hoja
de Trabajo simirar a la anterior, pero ésta será para eraño próximo.
consigne er dato referente a t AUr.fENTo eño pRoxruo, siaún no ro ha hecho, utilizando la opción DATos y DrcrrE
{F9} para que el computador realice todos ros cárculoscorrespondientes aI año próximo.
ras operaciones q[ue realiza er computador son iguales a
ras expuestas en ra opcion 1 suELDos EsrruADos. r,a únicafórnu1a que cambia es
CESA¡ITIA B II*TERESES = L3/L2 * Sueldo a Dic Año
Actuar * t ( Tienpo en la Enpresa + 1 ) * ( t Aumento
AñoPróximo+L) )*L.L2
si desea realizar cálcuros con varios porcentajes de
97
ar¡mento para analizar las variaciones que se obtienen,
después de realizar cada cálculo imprima eI cuadro. Para
esto, siga los siguientes pasos:
Utilizando la opción DATOS, escriba eI I de aumento y
digite {F9} para calcular.Vuelva al llenú Principal presionando
sinultáneamente {AIt} y {Zl.Elija Ia opción Impresión.
Verifique que Ia impresora se encuentre encendida.
DeI submenú de Impresión elija Ia opción 2Sueldos
Presupuestados.
Espere a que se realice la inpresión, y repita este
proceso para eI nuevo porcentaje de aumento de sueldos
gue quiera analizar.
Cuando termine de trabajar en esta opción, puede regresar
aI Menú Principal presionando sinultáneamente las teclas
{ALr} y (zl .
2.3.2.3. Fresupuesto
Para ver por pantalla eI presupuesto de sueldos y gastos.
Al escoger esta opción en su pantalla aparecerá lasiguiente Hoja de Trabajo:
98
DBSCRIPCTON
RE,AI, PSTIO
año-ecr ¡ño-l,ctREAL JIIN JIII-DIC
eÑo-ecr efro-ncr
ESTII,I
eÑo-acr
PSTO EST-ACI PRES-PROX
aÑo-pnox /PRBs-Aer /EST-AC[
En esta Hoja
asÍ:
de. Trabajo Ud. debe consignar los datos
Todos los datos de lasPresupuesto Año Actual y ReaI
Sólo los datos de Gastos
Dic Año Actual y Presupuesto
columnas Real Año Actual,
a Junio Año Actual.
en las columnas ReaI Jul-Año Próxino.
Después de consignados estos datos, oprima la tecla{F9} para que el computador realice los cáIculos de
Prestaciones Real Jul-Dic Año Actual, Estimado Año
Actual, Prestaciones Presupuesto Año próximo, Estimado
Año Actual / Presupuesto Año Actual y presupuesto Año
Próxino / Estinado Año Actual.
Terminado su trabajo,oprimiendo simultáneamente
99
vuelva al üenú principatIas teclas {ALT} y tzl.
No olvide gruardar
ARCHTVAR.
su trabajo mediante Ia opción
2 .3 .2 .4 . ües-lpto
Para ver por pantalla el presupuesto mensual.
Antes de eregir esta opción, ud. debe consf.gnar ros datos
en la opción 3PREsuPUEsro como se indica en este üanual.
Al elegir esta opción, en la pantalla de su conputador
aparecerá el siguiente cuadro:
DESCRIPiCTON ENERO TEBRERO }IARZO l.ER TRIIT.
PREST'PTIESTO IIEIISUAT:
ABR.IL üAYO JI'I{IO 2DO IRITÍ ;TT'IJO AGOSIlO
l_oo
SEPBRE 3BR TRI}I OEIT'BRE NOVBRE DICBRE 4TIO TR.IIÍ $cl{IAL
Cuando termine de visualízar eI Presupuesto mensual,
puede volver al Dfenú Principal opriniendo eimultáneamente
Ias teclas (ALr) y (Zl.
No olvide g'uardar su trabajo mediante Ia opción ARCHMR.
2.3 .2.5. Retorno
Para regresar aI ltfenú Principal.
2.3.3. Opción Impresión
Estando en el Dlenú Principal
CIIR^SOR Coloque el cursor sobre fUPRESION
ENTRE Oprima la tecla Retorno
o
ESCRIBA I
En el panel de su computador aparecerá eI siguientesubmenú
t_oL
I-STIELDOS BSTIIÍADOS 2SI'BI,DOS PI|FO
3PRBSIIPIIBSTO 4l,IES-PPtqO
RET1ORNO
Este Eubmenú Ie ofrece:
2.3.3.1. Sueldos eetinados
Para inprinir eI detalle de los sueldos proyectados a
fin de año.
2.3.3.2. Sueldos P¡lto
Para inprinir el detalle de los sueldos presupuestados.
2.3.3.3. Fresupuesto
Para imprinir el presupuesto.
2.3 .3 .4 . ües-ppto
Para inprinir eI presupuesto mensual de gastos.
2.3 .3 . 5. Retorno
Para regresar aI Menú Principal.
LO2
El procedirniento a seguir para cualguier impresión es:
DeI lfenú Princf.pal elija Ia opción fnpresión
Verifigue que su Impresora se encuentre encendida
Del subnenú de Inpresión, elija Ia opción que guiere
inprinirDe inmediato se realiza Ia inpresión solicitadaTerminada la impresión, en el panel aparece eI submenú
de inpresión.
si quiere realizar otra impresión, realice el mismo
procedimiento.
Si quiere terminar, elija la opcion RETORNO y
regresará al Menú Principal.
2.3. 4. opción Arctrivar
Estando en el lfenú Principal CIIRSOR Coloque eL
cursor sobre ARCHMR
EIITRE Oprima la tecla Retorno
o
ESCRIBA A
De innediato el conputador guarda su trabajo. Terminada
de ejecutar esta orden, en el panel aparece el Ittenú
Principal.
1_03
2.3.5. O¡rción Tabla Iss
Estando en el Menú Principal
CIIRSOR Coloque el cursor sobre TABIA ISS
ENIRE Oprina Ia tecla Retorno
o
ESCRIBA T
Esta opción le permite ir a Ia Tabla del Seguro Social
para hacer las actualizaciones. Puede desplazarse
Iibrenente con las flechas de movimiento.
Después de terminada su consignación para actualizardatos, presione simultáneamente las teclas (ALf) y {Zlpara regresar aI Menú Principal. De inmediato elija laopción ARCHfVAR para que su trabajo sea g'uardado.
2.3.6. O¡rción Fin llacro
Estando en el Menú Principal
CIIRSOR Coloque eI cursor sobre FfN UACRO
ENTRE Oprima la tecla Retorno
o
ESCRTBA F
L04
Esta opción le da Ia oportunidad de sarir de ra macro
para trabajar en Lotus en su Hoja de Trabajo.
cuando desee regresar a Ia macro, oprina sinurtáneamente
ras tecras {ALT} y {zl. En er panel aparecerá el tÍenú
Principal.
2.3.7 . O¡rción Salida
Estando en eI Menú Principal
CURSOR Coloque el cursor sobre SALIDA
ENTRE Oprima la tecla Retorno
o
BSCRIBA S
Esta opción le pernite salir del Lotus.
Cuando Ud elije esta opción, en el panel aparece lapregunta
Ya guardó su trabajo ? (S:si !fq¡s)
Si aún no ha gruardado su trabajo
BSCRIBA N
ENIRE Oprima la tecla Retorno
L05
lfu!tt¡tty
t¡uttttto
tttt¡u?to
{? tfoytl
ilT0r¡o
Figura 8: Arbo1 de Menú Móduto presupuesto
r_06
De inmediato se realizará er archivo de su trabajo y
Iuego saldrá del Lotus.
Si ya guardó su trabajo
ESCRIBA S
EIüIRE Oprima la tecla Retorno
De inmediato saldrá del Lotus.
2.4. COIIIO TRABA,JAR EN EL Dlsco rPRorEccroNBs¡
CARcttB El DOS en su computador
CARGIIB Lotus L23 en Ia unidad de diEco A
rNTRolxtzc¡' disco ttPRoyEccroNEs'r en la unidad de disco B
BscRrBA /FDA B:\ para que er conputador pueda leerde la unidad de disco B
Ef¡TRE Oprima Ia tecla Retorno
ESCRfBA /FR para traer el archivo en que va a
trabajarCIIR.SOR Coloque el cursor sobre pROyEC
ENTRE Oprina Ia tecla Retorno.
En la pantalla de su conputador aparecerá er lrlenú
Principal asÍ:
LO7
******************f **************************************üENU PRINCIPAL
******i***********t*******t**i***************a***rr*****,**
A ENTRADA DE DAIIOS (unidadesrprecios,costos)
B EIIIRADA DE DATCTS (Gastos y varios)C I.iENU DE IITÍPRBSIONES
D üETÜU - VISUALIZAR T'N IIÍFORTÍE
B GTTARDA EL TRABa"TC' (SA\IB)
c SALfDA (Ile este progrraua)
DTGITE LA OPCION A EJECUTAR*********************************************************
Este Menú principar re ofrece ras siguientesposibilidadest
*A l{Bilu BI{TRADA DE DATos para entrar datos de unidades,
precios y costos.
B üENU E!¡TRADiA, DE DATos para entrar datos de gastos yvarios.
c IÍENU DE rllPREsroNEs para rearizar inpresiones de pyc
Consolidado, {rG de! Negocio 1, PlzG del Negocio 2, Datos
de Entrada y Productos.
D üENU vrsuAlrzAR t N rNFoRüE para obsen¡ar en pantalra
$zG Consolidado, pyG Negocio 1 y pyc Negocio 2.
E GUARDA EL TRABe"fo para archivar er trabajo realizado.F SAIJDA DE ESTE PROGRAüA para salir del lotus.
L08
2-4-L- opctón A Entrada de llatos ( unidades, precios,costos)
Estando en el I'fenú principal
BSCRfBA A para entrar en esta opción.
Aparece en su pantalla Ia siguiente Hoja de Trabajo:
JEG
código DESCRIPCION1234
ItcllfAL I'NTT}S PRECTO U.ño acttrer, efro ectuer,
oNüLK
COSTC' T'. TCTAI, UNrDS PRECTO U. CISTO U. \rEilTAaño acttrar, Hlo pnox. Año pRox. eño pnox. eño ectrrar.1234
cosTo VENTA COS$Oaño actuar, eño pnox. Año pRox.1234
En eeta Hoja de Trabajo ud. puede consignar ros datos:código, Descripción, Total unidades, precios unitarios yCostos Unitarios, para los años actual y próximo.
RaP
l_09
El cursor se encontrará bajo ra coh¡mna código. Escribael código y presione la frecha de movimiento hacia laderecha. Er cursor se desprazará a la colunnaDescripción. siempre que escriba una información,presione la frecha de moviniento hacia la derecha. para
empezar otra lfnea, se puede desplazar libremente con rasflechas.
Cuando termine la consignación de datos DIGITE
que el computador realice los cáIculos de
Costos, años actual y próxino; donde,
{F9} para
Ventas y
vEltrA"s Año AcrrIAL : precio año actual * Total unidades
año actual
cusrc, aÑo ACTUAL : Totat unidades año actual * costounidades año actual
vE¡üTAs effo pRoxrlrro- precio año próxino * Totar unidades
año próximo
cps$o efro pRoxrt{o : Total unidades año próximo * costounidades año próxino.
salga de ra opción A presionando sinurtáneamente lastecras {ALT} y (zl. volverá al Menú principat. De
inmediato erija la opción E GUARDA EL TRABA.TO. Teminadade ejecutar esta orden, en la pantarra reaparece er Menú
Principal.
Unirníüd Auronoñ e Gdd.nñ
sie1
t_t-0
desea nodificar infornación consignada, puede utitizarnismo procedimiento para entrar datos:
Del llenú Principar erija ta opción A ENTRADA DE DATos
escribiendo ra retra A. Desplácese ribremente por nediode ras frechas hasta el dato que desea nodificar. Escribala información correcta y desprácese con las flechas de
noviniento. Puede realizar esta operación tantas veces
como lo necesite.
cuando termine de reall-zar las nodificaciones, digite{F9} para que er computador recalcure teniendo en cuenta
la nueva información.
sarga de ra opción A presionando simultáneamente lasteclas (ALT) y (Zl . Volverá al trfenú principal.
De inmediato proceda a gruardar la información con rascorrecciones rearizadas, erigiendo det üenú principat raopción E GUARDA EL TRABA"TO.
Terminada de ejecutar esta orden,reaparece el Menú principal.
en 1a pantalla
2.4.2. Opción B Entrada de llatos ( gastos y varios
Estando en el lfenú principal
lLl_
ESCRfBA B, para entrar en esta opción.
En su pantarla aparece la siguiente Hoja de Trabajo:
Descripción Bntrada de datosAño actual-Negocio 1...Negocio 2...Enpresa ..... .....
APLICEDO GASTO BSPECTFTCP\TENTAS NEIGOCIO 1 IÍE@CIO 2
Año actualDessuentosFletesllercadeoGastos de VentasFrouoción y hopagandaAdninistraciónOtros Ingresos/BgresosIntereses
APLIQADO GA.gTtO EsPEcIFrc!VENTAS IÍEGOCIO 1 NEIGOCIO 2
Año próxinoDescuentosFIetesllercadeoGastos de VentasPromoción y kopagandaAdministraciónOtros Ingresos/EgrresosIntereses
Empiece a escribir ra infornación y desplace el cursorpor medio de la flecha de moviml_ento hacia abajo.
Para el manejo de las columnas cAsro ApLrcADo vENTAs y
cAsro EsPEcrFrco (Negocio I Negocio 21, tenga en cuentaque sólo debe consignar ra infornación en una de lascolumnas.
LL2
FOR EüEttPIó:Si eI descuento año actual es de $SOO. OoO
Aplicado a las ventas:
Esto quiere decir que de acuerdo ar porcentaje de ventasde ros Negocios L y 2r s€ distribuirá el descuento:
Ventas Totales año actual = $rs.ooo.ooo lootVentasNegocioL =$4.SoO.oOO 3Ot
Ventas Negocio 2 = $Lo.soo.ooo 70*
Descuento año actual Negocio J. = 3Ot * SSOO.OOO =
$rso. o00
Descuento año actual Negocio z = zot * g5oo.ooo :sgso.000
Para que el computador realice estas operaciones, rainformación sobre el descuento debe ser consignada en lacolunna GASTO APLTCADO vENTAs.
Pero, si conocemos exactamente er varor que lecorresponde a cada uno de los negocios:
Descuento año actual Negocio 1 = $Z¡S.487
Descuento año actual Negocio 2 = $ZA¿.513
Esta infornación debe ser consignada en las columnas
GASTO ESPECTFICO (Negocio 1 Negocio 2)
Cuando temine de consignar la informaciónpara que eI computador realice los cálculos
1L3
DrcrTE {Fe}
convenientes.
salga de la opción B presionando sinurtáneamente lasteclas (ALT) y {Zl . Volverá aI tfenú principal.
De inmediato erija ra opción E cuARDA EL TRABAiro.
Terminada de ejecutar esta orden, en la pantalra de su
cornputador aparecerá de nuevo el Menú principal.
si desea modificar infornación consignada, puede utilizarel mismo procedimiento para entrar datos:
Der Menú Principat erija la opción B ENTRADA DE DATos
escribiendo ra letra B. Desplácese ribremente por medio
de ras frechas hasta er dato gue desea nodificar. Escribara infor¡ración correcta y desplácese con ras flechas de
movimiento. Puede rearizar esta operación tantas veces
como 1o necesite.
cuando termine de rearizar las nodificaciones, digite{F9} para que el conputador recarcule teniendo en cuentaIa nueva información.
salga de la opción B presionando sinurtáneamente rasteclas {AI-,T) y (Zl . Volverá al tfenú principal.
1L4
De inmediato proceda a guardar ra infomación con rascorrecciones realizadas, erigiendo del Menú principar laopción E GUARDA EL TRABA.TO.
Terninada de ejecutar esta ordenr €D ra pantallareaparece eI Menú principal.
2.1.3. Opción C lfenú de fnpresiones
Estando en eI Irfenú principal
ESCRIBA C, para entrar en esta opción
En la pantalla aparece el siguiente subnenú:
*******************************************t*************üENU DE rüPRESTONES*******ü******************t*****************************
A EL P&G CONSOIJDADOB EL P&G PARA IÍBGOCTO 1C BL P&G PARA IÍEGOCIO 2D T¡S DATOS DE ETURADAE IOS PROIXTCnOSG }TE¡ÜT' PRINCIPAL
DIGTTE LA OPCION A EJECUTAR***********:t**************************:t**:a***************
verifique que su impresora se encuentre encendida.
Elija ra opción que quiere inprinir y escriba la retraescogida. De innediato se realiza la impresión.
' l-L5
Terminada ra impresión, en su pantarla permanece el lrlenú
de Impresiones.
si desea otra inpresion, siga er mismo procedimiento.
Si desea regresar al üenú principal, presione G.
2.4.4. Opción D üenrl Visualizar un Infolne
Estando en eI Itlenú principal
ESCRIBA D, para entrar en esta opción.
En la pantalla de su computador aparece el siguientesubmenú:
*****************************t**********i****t*i********ITENU VTSUALTZAR rlIFOR}fES
* * * * * * * * + * * * * * i * * * :t * * * * * * * * * * * * * * * * * * * * * * it :t * * * * rt * * * * * :r * :t
A BL P&G CONSOLTDADOB BL P&G PARA IÍEG@TO 1C EL P&G PARA I{E@CIO 2
G T.ÍE¡TU PRINCIPAL
DIGITB LA OPCION A EJE CUTAR*******************************i*i**********************
Erija la opción que desea visuarizar presionando la letracorrespondiente. obtendrá er pyG con ra siguientepresentación:
116
EX.IPRESA )m(
ESTADO DE PERDTDAS Y GIITAIICIAS
EfrO EÑO A¡IAI¡rSISDBB.TT / (cRBDrr) AqntAL PRoxrtto vERrrcát EoRrzonrAr.
VE¡ITA,S BRIIIASDescuentosVETÜTA,S IIBTASFletesTNGRESO NEROCoeto de VentaIITILTDAD BRTIIAlfercadeoGastos de Ventaskomoción y propagandaAdministraciónOtros f ngresos/Egrresosfntereses
IITIIJDAD A¡ITES I}fPfmpuestosITTTLIDAD NETA
En Ia pantalla aparecerá el pyc escogJ_do, ya sea el pyc
Consolidado, el grG del Negocio L o el pyc del Negocio 2.Para vorver ar Menú principal presione sinurtáneamente
Ias teclas {ALT} y t?l.
2.4.5. O¡rción E Guarrla eI trabajo
Estando en el l,fenú principal
BSCRfBA E, para entrar en esta opción.
De inmediato se ejecuta ra acción de archivar todo ertrabajo.
LL7
t
at
o<
t
i9;tie rld!:.tB -:
oTJ
.; i3<<!l
!s¡z
Figura 9: Arbol de Menú lrfódulo proyecciones
t l_8
Ter"minada de ejecutar ra orden, en la pantarla permanece
el lfenú Principal.
2-4-6- opción F sarida de rotus ( Fin der Eogrrana )
Estando en eI Menú principal
BSCRfBA F, para entrar en esta opción
En eI panel aparece:
Ya guardó su trabajo ? (S:si lf=no)
Si ya guardó su trabajo,
BSCRIBA S
EIüTRE Oprina Ia tecla Retorno
De innediato sale del Lotus.
Si arln no ha guardado su trabajo,ESCRTBA N
ENIRE Oprima Ia tecla Retorno
De innediato se realiza la orden de guardar er trabajo yluego la orden de salir de1 lotus.
2.5. CPIiO TRABA"'AR EN EL DrSC! TICARTERAT
l_L9
üenú
CARGT'E
EERGI'B
IIITROTXTZCE
ESCRTBA
ESCRTBA
El DOS en su computador
Dbase fff en la unidad de diEco A
EI disco CARTERA en la unidad de discoSet default to B
Do cartera
B
En la pantalla de su conputador aparecerá elPrincipal
IiENU PRINCTPAL CARTERA
1. EÑTRADAS2. IIIODIFICiACION3. BORRAR4. REPORTBS5. C0NSI LTA.S6. ACTT'AI,rZACIONES
O. FIN
seleccione O
Este Menú Principal Ie ofrece:
EI{TRADAS para entrar datos correspondientes a
facturas, recibos de caja, notas débito, notas crédito,naestro de clientes y naestro de enpleados.
L20
IIIODIFICACfON para realizarmovimiento del mes, moviniento
clientes o maestro de enpleados.
modificaciones en
acumulado, maestro
eI
de
BORRAR para borrar grabaciones correspondientes almovimiento der mes, novimiento acumulado, maestro de
clientes o maestro de empleados.
REFORTES para realizar impresiones der Detalle General de
clientes, Detarre de un cliente, Totales por clientes,sardos Generales crientes, sardo de un criente, Relaciónpor vendedor, ventas Mayores a ( varor estipurado ),l[aestro de Clientes y Maestro de Enpleados.
coNsttLTA.s para observar en pantalta sardo de un cliente,ventas a un client,e, ventas de un vendedor, Maestro de
Clientes y Maestro de Enpleados.
ACITAIIZACIOTÍES para actualizar los saldos.
FIIT para salir del programa.
2.5.1. Opción Entrada
Estando en el Menú Principal,
BSCRIBA L, para entrar en eeta opción
el
L2L
sigruienteEn Ia pantalla de su computador aparece
submenú de Entrada
t1. FACI¡T'RAS2. RECIBOS DB C;A,JA3. NOIIA^S DEBTTO4. NOITAS CREDr$O5. I'IAESIRO DE CLfEtfTES6. TIAESTRO DE EIIPIJB;ADOSo. FIlf
seleccione O
En la pantalla de su computador aparecerá
Trabajo correspondiente a esa opción, asf:
Para entrar en cuarquiera de ras opciones de este subnenú
EscRrBA El número gue re corresponde a ra opciónescogida.
Ia Hoja de
2.5.1.1. Facturas
Aparece el cuadro de Entrada de Datos para Facturas
ENTRADA DE DAIIOS FAEN'RA.S
FACIURA CIJEr¡TE ---Fecha factura --/--/--Fecha venciniento --/--/--Vendedor
Venta exentaVenta gravIvaRetenciónDescuento
Valor neto
,,,t,
,tt,,
,r.
últi¡a factura^R Retorna al l,lenrl kinci¡nl-^C üuestra la
L22
El cursor estará localizado al frente de factura.Consigne los datos solicitados, asf3
Factura: número de hasta 5 digitos.criente: código de hasta 3 dfgitos. De inmediatoaparecerá frente al código que acaba de escribir elnonbre que le corresponde según el maestro de
clientes.
Fecha factura: escriba ra fecha teniendo en cuenta erorden nes/dLa/año, consignando sienpre dos digitos. siel mes o er dfa sólo tienen un dfgito, anteponga elnúmero 0.
Fecha vencimiento: siga ras mismas indicaciones de
fecha factura.
Vendedor: código de hasta 3 dfgitos.Venta exenta, Venta gravable, Iva, Retención y
Descuentos:,escriba eI valor sin puntos ni comas.
Ar hacer la consignación de ros datos solicitados,desplácese con las flechas de movimiento.
si consigna una factura que ya ha sido grabada
anteriormente, el conputador re avisará con el mensaje
Factura ya existe en esta grabación
Presione cuarguier tecra para volver a comenzar su
grabación.
L23
Al terminar su consignación, el computador lecalculará eI Valor neto de Ia factura.
Presione la tecra Retorno ei desea grabar otrafactura.
Presione las teclas (crRL) y {c} simurtáneamente sidesea ver er número de ra últina factura grabada.
Presione las tecras (grRL) y {R} simultáneamente sidesea regresar al Menú principal.
Es recomendable que después de efectuada cadaconsignación de datos ud. rearice una inpresión de su
trabajo para que verifique que la grabación estétotalmente correcta.
si desea corregir alguna grabación efectuada, vuelva aIl[enú Principar y escoja ra opción 2 l.foDrFrcAcroN.
2.5.L.2. Recibos de Caja
Aparece el cuadro para Entrada de Datos para Recibos de
Caja
E}ITRADA DE DAI'OS RECIBOS DE C¿.IA
FACTT'RA
^R Regrresa aI üenrl Einci¡n1
L24
Er cursor estará locarizado enfrente de factura. Escribaer número de ra factura a ra cuar va a realizar er recibode caja.
si ra factura ya ha sido grabadar €D ra pantallaaparecerá
ENTRADJA DE DA$OS RECTBOS DE CA,JA
FACTT,RA ¡oooo( VAIÍ,R A CJINCBI,AR
/.------ ---\I varon üAxrltto :oo(,x!.v.ro( itlI SAI¡O NEIIO A¡ÍTERfOR :oo.,:oo<.:o(
|
| --- r ñ, D^ñi I-l VAI¡R lrOlIAL EN ESTA GRABACION :oo(,-x-.:o( |
Factura ya existe en egta grabación
EscRrBA Et varor a cancerar. Asegurese de que haya
guedado bien consigmado.
ENTRE Oprina la tecla Retorno
si desea consignar más recibos de caja, puede continuarefectuando sienpre el misno procedimiento.
si ya ha terminado su consignación, vuelva al lrlenú
Principal presionando sinultáneamente las tecras {crRL} y(R) .
L25
si la factura no ha sido grabadar €D la pantallaaparecerá
Factura no existe en saldos, ni en esta grabación
Fresione una tecla lrara continuar
si ra factura soricitada no tiene saldo, en la pantallaaparecerá el mensaje
FAqN'RA C;AIICEIADA
Después de rearizar sus consignaciones vuelva ar Menú
Principar para que er computador guarde los valoresconsigmados.
Nunca vuelva a una factura que acaba de consignar, sinantes haber ido al Menú principal.
2.5.1.3. Notas Débito
Aparece eI mensaje
t------ ------\-l nsta Nota Efébito afecta Ventas ? S:si ll:no t 1 i\------- -----i
ESCRIBA S o N según sea su respuesta.
En Ia pantarla aparece eI cuadro para Entrada de Datos
Notas Débito
L26
ENTRADJA DE DATIOS NCIT¡"S DEBI$O
FACTURA CLIENTE
^R Retorna al
ESCRTBA eI número de Ia factura
Espere a que sea buscada y encontrada. cuando éstosuceda, €1 cursor aparece ar frente de venta Exenta.Consigne los datos requeridos.
Teminada su consignación, el computador calcula er varorNeto y le envfa el mensaJe:
ACEPTA ESllOS VAI'ORES S=SiIN:NO
BSCRTBA S o N según sea su respuesta
Vendedor _
Venta exentaVenta grravfvaRetencLónDescuento
Valor neto
üenú kinci¡nl
tt,,t
tt,t,
computador graba loscursor vuelve a Ia
Nota Débito.
Si su respuesta
datos acabados
posición Factura
es afirmativa, elde consignar y elpara realizar otra
Si su respuesta
datos acabados
es negativa,
de consignar
el cornputador ignora losy el cursor vuelve a Ia
L27
posición Factura para realizar una nueva Nota Débito.
si desea rearizar otra Nota Débito siga el procedimientoanterior.
si teminó su trabajo, oprima sinultáneamente las tecras(CTRL) y {R} para regresar al Menú principal.
2.5.1.4. Notas Crédito
Aparece eI mensaje
/------ ------\I fsta Nota Crédito afecta Ventas ? S:si tf:¡¡e t I i\------- -----i
ESCRIBA S o N según sea su respuesta.
En ra pantalra aparece el cuadro Entrada de Datos para
Notas Crédito
BNTRADA DE DATOS NCITA,S CREDITO
FACIT'RA
ESCRfBA eI número de la factura
De innediato el conputador re soricita el número de raNota Crédito que va a consignar.
ESCRIBE el número de la Nota Crédito
L28
aparece el cuadro completo para que
a Cancelar
En la pantalla
consigne el Valor
ENTRADA DA$OS NOIIA.S CREDITO
FACIURA )oc¡oo( NCI:IA CRED. No.
VAI¡R A CATTCEI,AR
too(
VAI¡R IÍA)(IIIIO
SALDO NET\O ANTERTOR
VAIOR TOIIAL EtI ESTA
Factura ya existe en esta girabación
Efectúe ra consignación del Varor a cancelar y oprima ratecla Retorno.
En la pantalra vuelve a aparecer er cuadro de Entrada de
Datos para Notas Crédito.
si desea hacer otra consignación siga el mismo proceso.
si ya terrninó su trabajo, vuelva ar üenú principalpresionando sinultáneamente las teclas {CIRL} y {R).
xr:oo(r:oo(. )r:( |
xr:oo(r¡oo(.to( |
GRABACION xr:oo.rw.-x I
L29
2.5.1.5. üaestro de Clientes
En la pantalla aparece el cuadro de Entrada de Datos Dara
el Dlaestro de Clientes
PA¡ÜTAIJa' EIITRADA DATIOS CLTENTES
CIJEIITB
NOIITBRB
NTT
DIRECCION
TET,EFONO
TTPO
Ctrl-Bnd Guarda y sale Bsc Abandona
Efectúe todas sus consignaciones.
Terninado su trabajo oprima sLnultáneamente las tecrasTCTRL) y {END} para guardarlo y regresar aI t[enúPrincipal.
si no desea que los datos consJ.gnados queden grabados en
su disco, presione la tecla {Esc). vorver ar }fenú
Principal.
--:
il Un|Y|fS'dOú iL¡,,r¡lün:J Aa t}t,üdmtrl
L30
2.5.1. 6. Itfaestro de hpleados
En ra pantalla aparece er cuadro para Entrada de Datospara Empleados
PAI{TAIJA ET¡TRADA DE DATIOS EITPI,EJATPS
VBNDBDOR
NOIIBRE
CEIX'I,A
FBcHA_rNc / /SIIELDO
rss
\-------
Ctrl-End Guarda y sale Bsc Abandona
Efectúe todas sus consignaciones.
cuando termine su trabajo presione sinurtáneamente lastecras {crRL} y (END} para g'uardar su trabajo y regresaral Irlenú Principal.
si no desea gruardar su trabajo, presione ra t,ecla (Esc) yvolverá al Menú principal.
2 .5 .L.7 . Fin
L3l_
Para regresar al lfenú principal.
2.5.2. O¡rción ilodifLcacl_ón
Estando en el llenú principat
ESCRfBA 2, para entrar en esta opción
En la pantarta de su computador aparecerá el sig"uientesubmenú
1. T'LTI}IA GRABACION2. !{AESTRO CrJEI¡TES3. UAESTRO EUPI,B;ADOS
O. FIN
seleccione O
Para entrar en cualquiera de estas opciones.
EscRrBA el número que re corresponde a ra opciónescogida.
si desea rearizar modificaciones en la últina grabaciónen la pantalla de su computador aparecerá
/ -;;;;;;;-;;;;;;*"-----;)
I
__T:::_:l_::r_::_:-T:i:" t'---------/
Esc abandona
L32
TIFOS DBDOC[tüEiltrOS
FA:FacturaRGRecibo CajaNItsNota DébitolIGNota Grédito
ESCRIBA
ESCRIBA
eI número del documento que quiere modificarla convención que le corresponde según eltipo de documento que quiere modificar
De inmediato obtendrá la pantalla que le corresponde aldocunento requerido, y podrá efectuar la nodificacióndesplazándose con las flechas de novimiento.
Terninada la nodificación, presione simurtáneamente lastecras {crRL} y {END} para g'uardar el trabajo y vorver alMenú Principal.
si al visuaLízar la pantalra de nodificación encuentraque no necesita corregir ningún dato, vuelva ar Menú
Principal presionando la tecla (ESC).
si desea reafizar modif icaciones en el Irlaestro de
crientes o en el liaestro de Empreados, después de hacerla selección de la opción en er submenú, el computador le
r-33
pedirá el código de cliente o del enpleado al que se reefectuará la nodificación.
ESCRfBA eI código solicitadoBNTRE oprima la tecla Retorno
Aparecerá ra Pantalla de Entrada de Datos soricitada.
Para realizar ra urodificación puede desprazarse con lasflechas de moviniento.
Teminada su nodificación, oprima sinultáneamente lasteclas (crRL) y tEND) para grrardar ra nodificaciónrealizada y para volver al ![enú principal.
si al visuarizar la pantalla de Entrada de Datos c¡e da
cuenta que no necesita realizar ninguna nodificación,vuelva aI Menú Principal presionando Ia tecla {ESC}.
2.5.3. Opción Borrar
Estando en eI lfenú principal
ESCRIBA 3, para entrar en esta opción.
En Ia pantalla aparecerá eI sigruiente submenú
134
1. T'LTI}ÍA GRABACTON3. IIAESTRO CIJE¡ITBS4. üAESIRO EüPT,EjAI)OS
O. FIN
seleccione O
Para trabajar en cualquiera de estas opciones
BscRrBA el número que re corresponde a la opción
seleccionada
si desea borrar un dato de ra úrtina grabación, después
de escoger la opción en ra pantalra aparece er submenú
Entre factura a BORRAR
Entre el tipo de dosr¡¡ento
TIPOS DEDOCttlfEÑIros
FA:FacturaRGRecibo CajaItD=ltota DébitotlGlüota Crédito
Esc abandona \---------------/
ESCRIBA el número del documento a borrarEscRrBA la convención que re corresponda según ratipo de documento a borrar.
De inmediato se realiza la orden de borrar er documento
señalado.
'/
/
\
L35
Presionando la tecla {Esc} regresa ar üenú principal.
si desea borrar un cliente o un Enpleado, después de
escoger la opción correspondiente, en la pantalla aparece
Ia Pantalla de Entrada de Datos requerJ-da.
ESCRfBA eI código del cliente o del empleado
EI|TRE oprima la tecla Retorno
De innediato er cliente o el enpreado será borrado delrespectivo naestro.
oprima ra tecla {Esc} para regres¡ar al Menú principar.
2.5.4. Opción Reportes
Estando en el tÍenú principal,
ESCRIBA 4, para entrar en esta opción.
En la pantalla aparece el siguiente subnenú:
136
SEI,ECCIO¡ÍE BL REPORIE AIXPRIITIR-i:;il;*ilñ---------)
2. \TEIITA,S IIODOS CLTENTBS3. VENTAS PARA T'N Cr,IEIITB4. TOITAI,BS FOR CLIENTE5. SAIJ)OS CLIENTES6. SAIJOS PARA T'}T CIJEilTE7. REI,aCION POR \IEI{DEDOR8. VE¡ITAS IIAYORES A?9. IIAESIRO CIJB¡ÚTE.S10. IIAESTRO EilPI,BADOSo. FIr¡
----/seleccione O
Para rearízar una impresión rearice el siguienteprocediniento:
verifique que se encuentre encendida su impresora.seleccione la inpresión que desea rearizar escribiendo
el número que le corresponde según el submenú anterior.Espere a que se realice la inpresión.Terminada éstar €D la pantalra aparece de nuevo er
Dfenú Principal.
si desea realizar otra inpresión realice el mismo
procediniento.
Para regresar al Menú principal, estando en er submenú
escriba O.
2.5.5. O¡lción Consultas
/
\
Estando en el Menú principal,
L37
ESCRIBA s, para entrar en esta opción.
En la pantalla aparece eI siguiente submenú:
SEI,ECCIONE I-,A CONST'LTA ARE,AIJZAR
;l-;^'"";;;;**----)2. VEilTAS A T'N CI,rET¡TE3. VE¡ÜTA,S DB T'tf VBilDEDOR4. IÍAESIRO CLTETWES5. üAESTRO EüPI,E;ADOSO. FIN
\-----"*;i;-;--------/
Mediante esta opción ud. puede apreciar en pantarracualquiera de los items que le ofrece el submenú.
Para volver ar Menú principal después de cada consurtaoprina la tecla (ESC).
si se encuentra en el subnenú y desea regresar ar Menú
Principal, seleccione la opción O.
2.5.6. Opción Actualizaciones
Estando en eI lfenú principal,
ESCRfBA 6, para entrar en esta opclón.De inmediato se realiza ra actualización de los saldos.
r.38
Esta operación se rleva a cabo cuando el computador anexa
la grabación efectuada ar novimiento der mes y armovimiento acunulado. r,as facturas cuyo saldo es cerodesaparecen de Saldos.
2.5.7. Opción fin
Esta opción le pernite salir del nódulo cartera.ESCRIBA O
De innediato sare de cartera. para salir der dBase rrrPlus,
ESCRIBA . quit
De innediato sale del programa.
r_39
)¡AE OLIEII0HAE EXPLEoFl f,l
A'A{' t¡A¡AOAEIE¡t
LtatOTAIAVE ¡ II'OLI EvEÍtAI oLl
.ALOOr oLlVE¡ I¡I OLIv¡¡tAVEI OC
¡AEXPLE
ltaont oFEAEIE'IT
aXAE EX PLE
x
IALI E¡
TALDOoLrEtl.ALOOt oll
ITEIAE¡X'LEADoFt ¡
F¡0cooE'|ttEialloo
AELIEIIIE
AO
Figura l-0: Arbol de nenu lrfódulo Cartera
IEIfFAOA' NOOtFtOAO IrEPOrTet aAO?UALtZA
U¡ivrnidod {uronomo- da-effi
1_40
3. üANUAL TtsCNTCP
Este capftulo está dedicado a explicar el procedimiento
básico a seguir para instalar y entender el sistema. se
presentan ros diferentes programas para que nediante su
anárisis puedan ser adaptados a la nicroenpresa que en
particular está consultando.
3. 1. IIODT'IO [email protected]
3.1.1 Inicl-alización del Sistena
Lo primero es contar con un disquete nuevo para hacer
una copia del disco llamado rtcoNTABrLrDADrr. Estaoperación puede hacerra con er comando DrsKcopy dersistema operativo l,ts-DOS; tenga en cuenta que eldisquete original esté debidanente protegido contraescritura porque 1o puede destruir.
EI disco contiene los siguientes proftramas:
- Cornmand.Com
l_23. EXE
L4L
L23. CMP
123. SET
AIITO123.WKI
AUTOEXEC. BAT
Er programa 123.sET contiene la configtrración que leindica ar r.otus con qué tipo de monitor e impresora va atrabajar. si usted ya tiene su Lotus debidamenteconfigurado, debe copiar este archivo ( Lz3.sET ) de su
disco de Lotus aI disco CONTABILIDAD.
Er disco CONTABTLTDAD es autocargabler és decir, ustedpuede cargar el computador con este disquete, o puede
hacer dos coE¡as:
Coloque el disquete en la unidad de disco A ypuerta. Encienda el conputador . De innediato se
cierre lacargará eI
Lotus autonáticanente, o
Lrame el lotus y rearice la siguiente secuencia de
digitación del tecladoz / F D A: <ENTER>, paradireccionar el rotus hacia ra unidad de disco A. Luego
digite / F R AUTor.23 <ENTER>; el programa será cargado.
3. l..2.Estrnrctura del programa
La hoja electrónica está dividida en las siguientes
L42
F6
38
60
14
20
28
SA ES
37
4A
2
3
4
AREA DE ANALISIS FINANCIERO
-l
I
aEIEA hE I .
MACROS
P&G
BALANGE
GENERAL
SU BCU E NTAS
CTAS MAYORES
MOVIMIENTO
Figura Ll-: Mapa tfódulo Cont,able
L43
Area de Macros
Area de Estado de Resultado ( p y c )
Area de Balance General
Area de Balance de prueba 1 ( Resunen por subcuentas )
Area de Balance de prueba 2 ( Resunen por cuentas Drayores )
Area de Condiciones para Consulta
Area de contabirización o ltovimientos contablesArea de Anátisis Financiero
3.1.2.L. Area de üacros
El Area de lrlacros contiene toda la parte de programaciónque gobierna la apricación de contabiridad. Es manejada
con menús sinilares a ros menús de lotus, de los cualesusted puede seleccionar con el cursor noviéndolo hasta raopción deseada y dando Enter o presionando la letrainicial de la opción seleccionada.
3.1.2.2. Area de Estado de Resultados
El Estado de Resultados es el informe que permite ver lautilidad der mes en curso y la acumulada der año. Las
cifras las trae el conputador del resumen de subcuentas.
3.1.2.3 Area de Bal.ance General
Aguf se presenta er barance generar de ra empresa. r,as
L44
fórmulas para obtener este informe consisten en traer lascifras del resumen de subcuentas.
3-L-2-1 Area de Balance de prueba 1 ( Resunen porsubcuentag = Resnenores )
Este es er área ¡nás importante puesto que es el eje de
todo el programa. su importancia consiste en que resume
del movimiento contabre los movimientos para cada cuentay permite que ros demás informes se alinenten de rainformación ya resumida.
Esta área es actualizada en er momento en que seselecciona del menú de utilidades, ra opción genera-barance. El proceso de actuarización consiete en raejecución der comando TABLE de doble entrada del lotus yque tlene una única fórmula, ra eDsuu, sumatoria con
criterios apricados a una base de datos que ar sercarcurada para cada cuenta en el débito y en el créditopernite condensar der movimiento al detalre, obteniendoel movimiento débito y crédito para cada cuenta.
3.1.2.5 Area de Balance de prueba 2 ( Resumen ¡ror cuentasmayores : Resmayorea )
Este informe es una condensación del Barance de prueba 1.Presenta el moviniento de ras cuentas mayores, €l saldo
1_45
inicial, €r movimiento y el sardo por cada cuenta mayor.
3.1.2.6. Area de Condiciones para Consulta
En esta área se colocan las condiciones que van a operarcomo filtro, dejando pasar la infornación que cumpla lascondiciones colocadas.
3.1.2.6.L Condiciones para un Canpo tlr¡mérico
se puede corocar un número por eJenplo er de una
cuenta, con ésto se obtiene todo el novimiento der mes
para esa cuenta
se puede colocar una fórnula que esté relacionada conel priner dato del movimiento contabre. si es una fómurasobre las cuentas, debe estar referenciada a la primeracuenta de ra base de datos der movimiento contable; porejemplo, si los datos comienzan en ra A24B y se quiereobtener una reración de un rango de cuentas como ermovimiento de ras cuentas entre L000 y L100, para poderrearizar esta consulta se debe hacer ro sigruiente:Editar la fórmula de esta manera: +A24g<:1100 + A24g> =
l-000, esta fórnura pernite sereccionar der movimiento rascuentas que al evaruarlas en la fórmula den como
resultado 1- que indica que la cuenta cumple con lafórnula.
L46
3-1-2-6-2 condiciones para 'na canpo Arfabético
Por ejemplo, se puede colocar una D en eI campo D/C yforzamos el conputador para que trabaje o seleccione rastransacciones contabres que son Débitos; además se puede
corocar al mismo tiempo que se coroca otra condición enotro campo y poder conbinar condiciones.
se puede corocar cualquiera de las sigruientes fórmulas:
A* selecciona los datos que tengan una frAr en el primercarácter.
??A selecciona ros datos que tengan una ,Ar en er tercercarácter.
D si se coloca en er campo D/c serecciona ros movimientosdébitos.
PAPELERIA Si se coloca
movimientos relacionados
en descripción selecciona loscon papelerfa.
3-1.2.7 Area de contabitización o [ovimie¡rtos contables.
Esta área es la últina en
esta localización porque
abajo para no tirnitarcontabilizaciones.
la parte inferior. Debe tenernecesita el área libre haciaIa entrada de registros o
L47
3 . 1. 3 Generación de Reportes
El programa tiene unos reportes básicos, Ios cuales ya
están prefijados, y además permite dete¡ninar ribremente
qué información inprime con los comandos de inpresión dellotus.
3.1.3.1 Reportes Básicos
Los reportes básicos son los informes financieros y ros
diferentes resúmenes.
3.L.3 .2 Otros Re¡rortes
se puede realízar cuarquier reporte utirizando rosconandos de inpresión del lotus, para ello tenga en
cuenta lo siguiente:
Cancele el últi¡no rango de impresión asf:
/PPcRQ
Defina eI nuevo rango de inpresión asf:
/ P P R defina el rango, <ENTER> e
Realice la inpresión asÍ:
/PPAGPQ
L48
3.1.4 llanejo de Archivos
Et programa en sÍ E¡e puede considerar un archivo y debe
ser manejado en un disguete independiente, además debe
permanecer una copia idéntica del disquete, para evitar
malos ratos en caso de que se dañe eI disco de trabajo,
porque en el programa se encuentra eI movimiento del mes
y en caso de daño habrfa que reconEtruir todo eI
novimiento
Cuando se hace eI cierre de mes, eI programa genera dos
archivos: uno que contiene los saldos iniciales y el otro
que contiene eI moviniento del mes.
3.1.5. Detalles Técnicos del Progrrana
Información General - Hoja Electrónica Lotus L23
Nonbre del Program
Area Total
Iteraciones
Forma de calcular
orden de cáIculo
Ancho estándar col
Formato general
A: \AUTOl23.I{Kl-
A1..85793
L
manual
natural
9
(F0)
Et ancho de las columnas es eI sigruiente:
AB C D E F G
631L49 L4 1315
UVWXYZAA
L2 33 L4 4 25 1_6 13
Columna escondida D
Nornbres de losACIDA
APAI.,ANCA
AQUI
AREABI,ANCA
B/G
c
CAPTRANET
cICLoBUSQUE
CICI¡DC
CICI¡ELIUTNA
CI,AVECRONO
CI,AVECT'ENTA
COBERINT
CONTADOR
CRIT
CRITl
CRTTERTO
CRITTODO
CUENTAS
D
Rangos
T1..X20
DUl..EB25
v42
v42.. X61
4206. .8264
458
Yl. .AC37
466
As0
c68
J415
4415
ES]-..EZLL
460
A409
4413
e4L2. .141,3
44L3. . 1413
429L..A363
457
L49
oPoRsT13L4 LO9 309
J LU
463
4.7
5
H
3
AD
5
r30
AE
26
N
0L4
fl l,,,'t.''t* t''.,,,ñu ott-dffil
L50
DATOS
DATOS2
DATOSPRINT
ENDEUDA
ENTRJADA
FINAL
GENERAL
GENERAL2
INICIAL
INICTAUES
LIQUIDEZ
I,ÍARBRWTIL
I,TARUTINETA
UARUTIOPER
I,TENSAESPERA
IIÍENSAII,fP
I,ÍENU]-
I{ENUI0
MENU11
I,ÍENU12
I,ÍENU2
I{ENU3
I,ÍENU4
I,ÍENU5
II{ENU6
I,ÍENUT
l,fENuS
4415. .J815
J8r.O. . M192
4415..1468
ECl. .F,J24
449
G29L..G364
Gt . .K40
G2L
c29L. . C364
459
N1
ccr.. . cN22
cr{L. . DD30
coL . .9124
862
859
446
At_l_9
4125
A13t_
463
475
480
488
493
4101_
AL07
L51
UENU9
l{Es
tfEs2
l{ovI
IIÍOVII{IENTO
OUT
OTJITPTJ1T
PASAPATRT
PERCOB
PYG
RAZRENT
REGENI.TOVI
REGENI{OVI2
RENACT
RENCAP
RENPAT
RESCUENTAS
RESI{AYORES
RESI,TENORES
RESPUESTA
RESI'}[EN
ROTACTTOT
ROTCAPTRA
ROTCXC
ROTCXP
ROTINV
s
A1L3
866
869
4416
4416..J475
L4L2
L4t_5. . S415
EKl..ER26
AKl..AR9
A1_49. .8196
BYl. . CF25
855
857
cw4L. . DD44
DEl. . DL18
DIr{l. . DqI20
A,287..c365
4380..G398
4289..G365
455
D29L..G355
BQl..BX38
AD1. .A,J4L
ASL. .4230
BI1.. . BP33
BA1. . BH51
456
L52
TABI,AFIN A1
TABI,AFIN2 A2L.. D39
TIrUI¡S A415. .I4L5
\0 A43
\P c68
\z A43
3.1.6. Detalles de las llacros
List,ado de la Macro \0 (\Z) tA43l* [443 ] : {paneloffl /tttT9/rndagui-/rncaqui--(goto}areabtan
ca- { windowson } /rcnmenul-
Referencias:
Menu Branch MENU1 [A46]
Listado de la Dfacro tA48l
[A48] : {let iniciamesrmovi=0:value} /wchdl-{goto} movi-
{up} (down} /'rtEh /xiinici€tnés=0- {END} (DOI{N2}
[449]: /xn Entre Ia CTENTA --{rightl /xL Entre eI NoUBRE
--{rightl /xn Entre el NrT-- lrightl /xL Entre ta FECHA--
{rightl /xn Entre eI VAIÉR-- {rightl /xn Entre eI No.
CHEQUE -- {right}* IASOJz/xL Entre D/C-- /c- respuesta- /xirespuesta<>D-
/respuesta<>C- /xgciclodc-* [Asl]: {rightl /xL Entre Ia DEscRIpcroN {right}{paneloff} /ccontador-- (edit}+l- /c- contador- {panelon}
{down} {end} {reft} /xr euiere entrar un nuevo registro
1_53
S,/N - respuesta- /xírespuest¿=g- (panetoff) /XGENTRADA-
* [A52]: /xc\z-Referencias:
Xgoto
Xgoto
Xgoto
crcr¡Dc [A50]
ENTRADA [A49]
\o (\z) [A43 ]
Listado de la ![acro tB4g]* [B48] : /utchdL-/>mmenu3-
Referencias:
Menu Branch UENU3 [AZ5]
Listado de la Macro tC4gl
* [C48]: {calc}/mnenu4-Referencias:
I{enu Branch llEMt4 [AB0]
Listado de la Macro tD4Bl
* [D48] : /fs-r(esc]/xnmenul-Referencias:
Menu Branch tlENUt [A46]
Listado de la üacro tE4gl* [848]: /:mmenu2-
Referencias:
Menu Branch I{ENU2 [A63 ]
L54
Listado de Ia Macro tF4gl
[F48]: /W
Listado de la ltacro tc4gl
[c48] : {goto}agui-(euit}
Listado de Ia lrÍacro REGENITTOVI tE55I
[855]: {windowsoff} {paneloff} {goto}novi-/rndmoviniento- /rncmovimiento- {end} {down} {rightg}-
I/xr-
Listado de Ia Irfacro REGElftfOVI2 tE57l
[857]: {windowsoff} {paneloff} {goto} movi-
/rn¡rmoviniento- /rncnovimiento- {end} {down} lrightS}-/xr-
Listado de Ia t[acro ]íENSAIUP tE59l
[859]: {goto} areabranca- {dorrnT} REvrsE euE EL pApEL
ESTE BIEN COI.oCADO EN I,A IUPRESORA- TDOT{N2} REVISE QUE IAII.TPRESORA ESTE PRENDIDA-
[E6O]: {down 5} PRESIONE <ENTER> PARA CONTINUAR-
{windowson} {vindowsoff} /reareablanca- {?}- /xr-
Listado de la t[acro IIENSAESPERA tE62]
[862]: {windowsoff} {goto} areabldncá- {down9} *** pOR
L55
FAVOR ESPERE ItN MOI{ENTO ***- {windowson} {windowsoff }
/reareablanca- /xr-
Listado de la Macro tA65l
lA6sl: {windowsoff} {blank crittodo} /dqidatos-ccriterio- ooutput- q {goto} crit- {goto} critt-* [A66]: {windowson} (panelon} {?}- /xlguiere entrarotra condición S/N ? -respuesta- /xirespuesta=S-/xgcíclobusque-
tA67l: {goto}out- /dqeq {down4 | /wtjr- {?}-* [468 ] : /vttc /xg\z-Referencias:
Xgoto cIcIoBUseUE [A66]
xgoto \0 (\z) [A43]
Listado de Ia lrfacro tB65l* [865]: (goto] out- (?)- /xg\z-Referencias:
xgoto \o (\z) [A43]
Listado de la Macro tC65l
IC65]: {windowsoff} (paneloff¡ lgoto} areablanca-
{down7} Una vez salga de esta pantaIIa, podrá
seleccionar- {down} Ia lfnea a elininar, para ellomuévase con las frechas- {down} hacia arriba o haciaabajo. Cuando esté ubicado presione (enter>-
[c66]: {downs) ***** PRESTONE <ENTER> PARA SALIR DE ESTA
l_56
PANTALT,A *****- (down2 ) (windowson) {windowsoff}/reareablanca- {?}-[C67]: {Iet iniciames, movi=O: value} /wchdl- {goto}movi- (up) (down) /utt}¡ /xiiniciames,:O- (up) {END} (DOI{N2}
{end} {up} (down}
* [C68]: {panelon} {windowson} /urdr {esc} (?}- /xIQuiere eliminar otro registro S/N respuesta-
/xirespuesta=S- /XGcícloelimina-* [C69]: (windowsoff] {paneloff) {goto} datos-
/rnddatos- /rncdatos- {rightg} (down 4OO}- /xg\z-Referencias:
Xgoto
Xgoto
Referencias:
Subrutina
Henu Branch
crcr,oEl,rurNA (\P) [C68]
\o (\z) [A43 ]
REGEN¡,ÍOVr [855]
l,fENUl [A46 ]
Lietado de la l*facro tD65l* [D65]: {table} {calcl /xcregenmovi- />mmenul-
ID66]:
ID67]:
ID68 ] :
ID6e]:
Listado de la üacro tE65l
[865]: {panelon} ** INSERTE EL DISQUETE PARA GUARDAR EL
I,!OVIUf ENTO DE CONTABILIDAD y <ENTER> ** { ? } { esc }
l_57
/xlEntre eI mes que se cerró (Ol=enero) mes- (panelon)
/fxrruovcon
[866]: 01
[867] : -datos2-r(escl/redatos2-
[868] : /cmes-mes2-/fxtrinicon
[E6e]: ol* [E7o]: -inicial- r{escl /rvfína1- inicial- {table}{calc} /recontador- /xg\z-Referencias:
Xsoto \0 (\z) [A43]
Listado de la Macro tF65l
[F65]: (hone] (goto] movi- {up} {down} /vrrll {end} {down}
{windowson} {panelon}
Listado de Ia lfacro tc65l* [c65]: /xg\z-Referencias:
xgoto \o (\z) [A43]
Listado de Ia llacro lL77l
14777. {cOTo} B/c- {uP2}
Listado de la lfacro tB77)
[877]z {goto} resmenores- (Up4} {RrcHT2} (DOI{N6, /vr|-;b
Listado de Ia lfacro fC77 )
lc77lr (hone) {goto} resmayores- {Up4} {right2) {DOI{N7}
t_58
/Yttb
Listado de la Macro lD77J
lD77lz {coTo} PYc- {UP4} (RrcHT2} (Dor{Nzl /vfrB
Listado de la llacro Í877)* lB77lz /xcregenmovi- {windowsoff} {hone} (goto} novi-
{up} {down} /wTH {downL8}
* [878]: /mnenuS-
Referencias:
Subrut,ina REGENI{OVf tE55l
Menu Branch l.fENUs [Ag8]
Listado de Ia üacro ÍF77J* lF77)z /:mmenu7-
Referencias:
Itlenu Branch }íENU7 [Ai.01]
Listado de Ia l[acro Íc77)* lc77lz /xg\z-Referencias:
Xgoto \0 (\z) tA43l
Listado de Ia lfacro tAg2l
[482 ] : /ppr[483]: b /g-cb[A84]: os (ESC] \027l,f- nI10- qagontO- qq
L59
* [A85]: /:<rnmenu4-
Referencias:
Menu Branch !{ENU4 [A8O]
l882l
cb
\0270- p10o-
Listado de la t{acro
[882]: /ppr[883] 3 r€snenores-
lB84l: os(ESC) \01s* [885]: /rmnenu4-
n120- qagop66- n10- qq
ReferencLas:
Menu Branch l,fENU4 [A80]
Listado de Ia lrfacro tCB2l
[c82]: /ppr
[C83]: resmayores- cb
Ic84] : os{ESC}\o27l,t\o2734-qLLtllagq
* [C85]: />mnenu4-
Referencias:
Menu Branch Ir{ENU4 [Ag0]
Listado de la Macro tDB2l
ID82]: /pprID83]: pyg-ID84]: os{ESC} \O27tt- tfl,ls- qagpomlO-
* [D85]: /rmmenu4-
Referencias:
I{enu Branch LENU4 [A80]
L60
Listado de Ia Macro tEg2l* [882]: /:<nmenu6-
Referencias:
llenu Branch UENU6 [A93 ]
Listado de Ia lfacro tF82l* [F82]: /xg\z-Referencias:
xsoto \0 (\z) [A43]
Listado de la Macro tAgO:
[A9O] : (windowson] {panelon}
Listado de la l¡[acro tBgO]
[890] ¡ /dsdnovimiento- pclavecrono- a- g(windowson]
{panelon}
Listado de la Irfacro tCgol
IC9O] : /dsdmovimiento- pclavecuenta- a- g(windowson]
{panelon}
Listado de Ia lrfacro tDgOl
* [Dso]: /xg\z-Referencias:
xgoto \o (\z) tA43l
l_61_
Listado de Ia Macro tA95l* [A95]: /xcmensainp- /xcregenmovi2- /pprmovimiento-
[496J: os {ESc} \015 \0270- h {esc} tfOvIUIENTO DE
CONTABfLIDAD- p10O- nl7- brtÍtutos- qagpcbop66- nIO- qq
* [497]: /xcregennovi- {goto} areablanca- (windowson}
/:<nnenu4-
IAe8]:
Referencias:
Subrutina llENSAItfp tE59l
Subrutina REGENIT{OVI2 tE57l
Subrutina REGENI,ÍOVI tE55l
Menu Branch l.fEMJ4 [Ag0]
Listado de la tfacro tB95l* [B95]: /xcmensaimp- /dsdnovimiento- pclavecrono- a- g
/xcregenmovi2-
[896] : /pprnovimiento-
[897]: os{ESC} \01s \o270- h {esc} UOVI}.ÍrENTO DE
CONTABILIDAD- p100- n17- brtÍtulos- qagpcbop66- nlO- qq
* [898]: /xcregenmovi- (goto] areablanca- {windowson}
/:mnenu4-
Referencias:
Subrutina MENSAIUP tE59l
Subrutina REGENI.ÍOVI2 tE57l
Subrutina REGENTÍOVI tE55l
Menu Branch UENU4 [Ag0]
L62
Listado de la Macro tCg5l
* [C95]: /xcmensainp- /dsdnovimiento- pclavecuenta- a- g
/xcregenmovi2-
[C96] : /pprnoviniento-
Ic97 ] : os{ESC} \0l-s \0220- h {esc} t{ovrulENTo DE
CONTABILIDAD- plOO- nI7- brtftulos- qagpcbop66- nlO- qq
* [C98]: /xcregennovi- (goto] areablanca- lwindowson]
/>mnenu4-
Referencias:
Subrutina IIENSAIMP tE59l
Subrutina REGENMOVI2 tEsZl
Subrutina REGENMOVI tE55l
Menu Branch I{ENU4 [Ag0]
Listado de la llacro tD95l
* [D9s]: /xg\z-Referencias:
xgoto \0 (\z) tA43l
Listado de Ia l[acro [A]-03l
[A].031: {goto} general- {?}-* [A104]: {goto} areabldDCa- /><mmenuT-
Referencias:
llenu Branch I,ÍENUT [AL01]
Listado de la l¡tacro tBtO3l* [8103]: /:<mmenuS-
r.63
Referencias:
Itfenu Branch l,tENUS [A107]
Listado de Ia Macro [C103]
[cLO3]: {goto} rotacttot- (?}-
* [C104]: {goto) areablanca- /mmenuT-Referencias:
Menu Branch I{ENU7 [A10].1
Listado de la l[acro tD1O3]
* [D].031 : /xnmenul_o-
Referencias:
l.fenu Branch tfENUlO [A119]
Listado de Ia Uacro tELO3l
* [8L03]: /nnenuL2-Referencias:
l[enu Branch MENU12 [At 31]
Listado de Ia lfacro tFlO3l
I1103]: {goto} tablafin- {?l- {goto} tablafin2- t?}-
* [FL04]: {goto} areablanca- /:omenuT-
Referencias:
Menu Branch l,fENUZ [A]_011
L64
Listado de la tfacro [c103]* [G]-o3l: /xg\z-Referenciae:
xsoto \o (\z) tA43l
Listado de la Macro tAl0gl
IA10s]: (goto] liquidez- (?]-
* [A]-101: {goto} areablanca- /:omenuS-
Referencias:
Menu Branch nENUs [A107]
Listado de la llacro t B1O9l
[8109]: (goto] ácida- {?}-* [8110]: {goto} areablanca- /:mmenuS-
Referencias:
lfenu Branch UENUs [A107]
Listado de la Dtacro tClOgl
Ic1-09]: (goto] captranet- (?]-* [C]-101: (goto] areablanca- /xnnenuS-
Referencias:
Menu Branch MENU8 [A107 ]
Listado de Ia Macro tDlogl
[DL09]: {goto} rotcaptra- {?}-* [DL10]: {goto} areablanca- />mmenuS-
L65
Referencias:
Dlenu Branch }[ENU8 [A107 ]
Listado de la Dfacro tEl0gl
IE]-091: {goto} percob- (?}-* [8110]: {goto} areablanca- />mmenug-
Referencias:
Menu Branch tfENUS [A107]
Listado de Ia Macro tFlOgl* [FL09]: /:mnenug-
Referencias:
Menu Branch ¡{ENU9 [A]_ j.3l
Listado de la ttacro tcj.Ogl* [Gt_O9]: /:omenuT-
Referencias:
Menu Branch DíENUT [A1O1]
Listado de la lfacro tAltsl[411s] ¡ (goto] rotcxc- (?]-* [AL16]: {goto} areablanca- /mnenug-Referencias:
llenu Branch ttENUg [A113 ]
Listado de la l,tacro [8115]
[8115]: {goto} rotinv- (?}-
L66
* [8116]: (goto] areablanca- /:mmenug-
Referencias:
Dfenu Branch UENUe [A113]
Listado de Ia Macro tcLlsllcl-L5l ¡ {goto} rotcxp- (?}-* [CL16]: {goto} areablanca- />mmenug-
Referencias:
Menu Branch MENUe [A113 ]
Listado de la lfacro tD115l* [D1L5]: /r<mmenuT-
Referencias:
Menu Branch UENUT [A10].I
Listado de la Macro tA121l
[A]-211: {goto} razrent- {?}-
Listado de Ia Macro tBL2ll
[B].2LJ: (goto] marbruutil- t?]-* lBL2z)z {goto} areablanca- /><nmenulO-
Referencias:
Menu Branch t{ENUi_0 [A119]
Listado de Ia üacro tC121l
ICL21]: {goto} narutioper- (?}-* leL22)z lgoto) areablanca- /:<nmenut-O-
L67
Referencias:
Itlenu Branch llENUlO [A1-19]
Listado de Ia ![acro [D121]
ID].211 : (goto] marutineta- l? l-* lDL2zlz {goto} areablanca- /nmenul,O-
Referencias:
lfenu Branch llENUlO [A119 ]
Listado de la Macro [E].211
IE].2Ll: {goto} renact- (?}-* lEL22l: {goto} areablanca- /xrnmenulO-
Referencias:
Menu Branch ltENUL0 [A1].9l
Listado de la lfacro [F12LJ
* [F121]: /rmnenull-Referencias:
Menu Branch ¡{ENU1.1. [A125]
Listado de Ia Macro [cL21]* [G].21_l: /><nmenuT-
Referencias:
Menu Branch l.fENUT [A101]
1_68
Listado de Ia Macro fAL27l
lAL27)r {goto} rencap- {?}-* [A]-281: (goto] areablanca- /:mmenuL1-
Referencias:
I{enu Branch ttENUl_l tA125l
Listado de la Irtacro lBL27 )
l8127l: {goto} renpat- (?}-* [8]-281: {goto} areablanca- /xnmenulO-
Referencias:
I{enu Branch tfENUt-O tAlLgl
Listado de la lrtacro ICL2Z l* lCLz7)z /xmmenu7-
Referencias:
I{enu Branch ¡{ENU7 [A].0j.1
Listado de Ia üacro tAt-331
[A].331: (goto] apalanca- {?}-* [A134]: {goto} areablanca- /:mnenul2-Referencias:
Menu Branch IÍENUl2 tA131l
Listado de la l,facro tBL33l
[8133]: {goto} endeuda- (?}-* [B]-341: {goto} areablanca- /xrnmenul2-Referencias:
L69
üenu Branch uENU12 [A13L]
Listado de Ia Macro tC133l
[c133]: {goto} pasapatri- (?}-* [C134]: {goto} areablanca- /mmenul2-Referencias:
I{enu Branch UENUl2 [A131J
Listado de la Macro tD133J
[D133]: {goto} coberint- t?}-* [D134]: (goto¡ areablanca- /mmenul2-Referencias:
lÍenu Branch lfENUt 2 [A131]
Listado de la t[acro tE133]* [E].331 : /:<mmenuT-
Referencias:
Menu Branch ttEMtT [A1O1]
Menús de Referencia:
MENUL [A46]
ENTRADA VER INFOR¡{ES II,ÍPRESION
SALTDA FTN }TACRO
tfENU2 [A63 ]
ARCHIVAR UTILIDADES
BUSQUEDA ULTII,IA BUSQUEDA
CIERRE I,TODIFTCA RETORNO
ELIT,f TNA GENERA-BALANCE
L70
l,fENu3 [A75]
BALANCE GRAL SUBCUENTAS CTAS.UAYORES P Y G
I,TOVIUTENTO ANALISIS RETORNO
I{ENU4 [A8O]
BALANCE GRAL SUBCUENTAS CTAS .IiIAYORES P Y G
UOVIUTENTO RETORNO
UENUs [A88 ]
1COUO SE ENCUENTRE 2ORG.CRONOIPG. 3ORG POR CUENTAS
RETORNO
r{ENU6 [A93 ]
COII{O SE ENCUENTRE ORG.CRONOIOGICN.TENTE POR CUENTAS ORG.
RETORNO
l,tENUT [A101]
].GENERAL 2LIQUIDEZ 3ACTIVTDAD 4RENTAB sAPALANCA
6TA8I,A RETORNO
r.fENuS [A1O7 ]
1LTQUTDEZ 2ACTDA 3CAPITAL 4ROT.CAP 5PER.COBRO 6OTROS
RETORNO
r,fENUg [A113 ]
]-ROT CXC 2ROT rl{v 3ROT CXP RETORNO
l,rENUlo [A1]_91
].RENTAB 2II{ARGEN B,U.
6OTROS RETORNO
Otros Rangos y Parámetros:
!1[ENU11 [A125]
2REND CAPITAL 2REND PATRIITI REToRNo
tfENUl2 [A13].1
]-APAIANCA 2 ENDEUDA
RETORNO
L7L
3OPER TITTL 4UTIL NETA sREND ACT
3PASIV A PATRII.Í 4COBERT INT.
Data Tab1es
Table 1
Table 2
Query
Input
Output
Criterion
Print range
Print styleFiIl Range
Sort Range
Prim Sort [asc]
GIobaI Protection
Setup string
D290..F363
D288
44L5..J815
L4L5. . S41,5
¡,4L2. . 1413
4206. .E,264
formatted
J416. .J475
4416. .J475
4415
not enabled
\027u
L72
Margins L€ft Right Top Bottom pagelen
102400066Label Prefix ' [single quote]
3.2. IrfOIXtIft iPRESttptIESTOrl
3.2.L. Detalles Técnicos del prograna
fnformación General - Hoja Electrónica Lotus LZ3
Nombre Prograna A: \ADMON.I{Kl
Area Total A1..Apt_02
Iteraciones 1
Tipo de cáIculo nanual
Orden de cáIculo naturalAncho estándar col l_L
Formato estándar (r0)
Los anchos de las colunnas son los siguientes:A B C r J K L U P a S X y ABACAD
5 23 10 L1 1_1- t_t_ 1t_ L2 L2 11 1_O L2 10 L2 t-O 13
* Nombre de los Rangos *
AREABI,ANCA APl
BORDECS A13..813
BORDEPPTO A29. .B,29
BORDERS A1..A12
rss 882
l{ENUl AD2
L73
t{ENU2
I,TENU3
Ii{ENU4
PPTO
PPTO}.TES
PE{rOUES2
RESPUESTA
SALIDA
srNo
SUELDOSl-
SUELDOS2
\o
\zPrint range
Print, styleSetup stringIrfargins
Label PrefixBorder Columns
AD9
ADl8
AD2O
429. .J72
K29 . .R7 2
s29. .AA72
AEz6
AD28
AE25
AL..L27
N13. .V27
AD].
ADl
K29. .F'72
fornatted
\015
Left Right Top Bottom pagelen
101502066
' Isingle quote]
429. .829
3.2.2. Detalles de las üacros
Listado de la l,[acro \o (\z) tADl]* [ADl]: {paneloff} /VlÍC {goto) areablanca- /mmenut-[AD2]: DATos
[AD3]: Para entrar datos
L74
2830
75
82
102
SUELDOS
Y PRESTAC.
ACTUAL
SUELDOS
Y PRESTAC.
PROXIMO
PPTO ANUAL-MENSUAL
DE GASTOS
Figura L2z Mapa Módulo presupuesto
L75
[AD4] : (coTo]sUELDosj.-
[ADs]: {RIGHT 2}{down 5}
Referencias:
Menu Branch UENU1 tAD2 l
Listado de la lfacro tAE4l* [AE4]: {windowsoff} /xnmenu3-
Referencias:
Menu Branch UENU3 tADlBl
Listado del I{ENU3 tADlg l]-SUELDOS ESTII,ÍADOS 2SUELDOS PPTO 3PRESUPUESTO
4¡IES-PPTO RETORNO
Option: I-SUELDOS ESTITÍADOS
Prompt: Para ver por pantalla el detalre de los sueldosestimados
[AD2o] : {coTo} suELDosj.-
[AD2]-l: {RIGHT2} {DowNl2) /wrBOption: 2SUELDOS ppTO
Prompt: Para ver por pantalla el detalre der presupuesto
de sueldos
[AE2o] : {coTo} suELDosl-
[4E21]: (RrcHT2] (DowNl2] /vrTB
[4822] : (rightl3] (refr2]Option: 3PRESUPUESTO
Pronpt: Para ver por pantalla el presupuesto de suerdos ygastos
L76
[4F20]: {coTo} ppto-
[4F21]: {RIGHT2} (Dor{N4 | /tt¡tr'B
Option: 4l{ES-ppTO
Prompt: Para ver por pantalla presupuesto mensual
[4G20]: tcoTo] ppto-
[4G21]: {RrcHT 2} {DowN 4} /wrB
lAc22lz (right i.0) {teft 2}
Option: RETORNO
Prompt: Regresa aI Menú principal* [4H20] : /:<rnrnenul_-
Referencias:
ltenu Branch lfENUt_ tAD2l
For total Menu
Referencias:
Menu Branch I,fENUl tAD2l
Listado de la l,facro tAF4l* [AF4]: /:mmenu2-
Referencias:
I{enu Branch I,ÍENU2 tADgl
Listado de1 I,IENU2 tADgl
].SUELDOS ESTIUADOS 2SUELDOS PPTO 3PRESUPUESTO
4T,TES-PPTO RETORNO
Option: 1SUELDOS ESTfIÍADOS
Pronpt: rmprime er detalre de los sueldos proyectados a
L77
fin de año
[ADllJ: /ppcbontO- nI10- mr240- qr
[4D12]: sueldosl-* [4D13 ] : AGe /Xul,tENU2-
Referencias:
I{enu Branch f.fENU2 [AD9]
Option: 2SUELDOS ppTO
Pronpt: rmprine el detalre de los sueldos presupuestados
[AE1-L]: ,/ppontO- mr132- nt7-
[48L2]: brborders-
[4E13]: bcbordecs- qr
[AE].41: sueldos2-
* [AE]_51: AGe /)O,Í¡{ENU2-
Referencias:
Menu Branch l,fENU2 [AD9 ]
Option: 3PRESUPUESTO
Pronpt: fmprime el presupuesto
[4F11]: /ppcbontO- ¡rli_O- mr240- qr
[AF]-2I : PPTO-I* [4F13 ] : AGe /XtftfENU2-
Referencias:
Irfenu Branch ttENU2 [AD9]
Option: 4ItfES-PPtO
Prompt: Imprine el presupuesto mensual de gastos
[AGll]: /pponllO- mrl_50- nt2- p66-
[4G12] : BCBoRDEPPTO- eR
[AG1-3J : PPTOIIES- AGPR
L78
[4G14] : PPTOITíES2- AcQ
* [4c15]: /XUI.ÍENU2-
Referencias:
üenu Branch MENU2 [AD9]
Option: RETORNO
Prompt: Regresa al Menú principal* [4H11]: /xg\z-Referencias:
Xgoto \o (\z) [AD]_l
For total Dlenu
Referencias:
I{enu Branch t-lENU2 [AD9 ]
Xgoto \o (\z) [AD].1
Listado de la Macro tAG4l
[AG4]: /fs- r(esc]* [Ac5]: />mmenul-
Referencias:
I{enu Branch l,fENUl [AD2 ]
Listado de la Macro tAH4l
IAH4]: {goto}iss-
Listado de la l,[acro tAI4 ]
[AI4 ] : /xq
L79
Listado de Ia Macro tA,J4l
* [4.74]: /XGSALIDA-
Referencias:
Xgoto SALIDA [AD2s]
Listado de la l¡tacro SALIDA tAD2Bl
[4D28]: {GETLABEL Ya guardó su trabajo ? (S=si
N=no) , respuesta)
[4D29]: (IF SINO=RESPUESTA] /QY
[4D30]: /Fs -R{Esc} /qv
3. 3. üOIXIIO TPROYECCTONBSi
3 . 3 . 1. Detalles Técnl-cos del kograna
Información General - HoJa Electrónica Lotus L23
Nonbre del Programa A:\pROyEC.I{Kj.
Area Total AL..All336
Iteraciones 1
Tipo de cálculo manual
Orden de cálculo naturalAncho estándar col 9
Formato estándar (c)
I UnicrsÍri*t luforr0tlro do lkoútntrg
t_80
A D G R W AIAM
AREA
DE
MACROS
ENTRADA
DATOS
UNID. PREC-
GOSTOS
P&G
III
ENTBADA DATOA
GASTOA Y SR.
23
30
50
55
100
Figura 1-3: Mapa Módulo Proyecciones
t_8L
Los anchos de las columnas son los siguientes:ABCDEFGHTüKLUNOPA
50L2 l_5 lL547 7 32L2 11 L2 11 Ll, 11 L2 t3L2R S T U V T{ X Y Z AAABACADAEAFAGAH
L2 L2 L2 L2 L2 22 L2 L2 L2 L2 L2 L2 L2 L2 L2 L2 L2
AI A.T AK AL ATII
L2 23 10 L2 11
* Nombre de los Rangos *
A
B
c
coNsoL
D
DATOS
DATOS2
E
EIt{PRESA
F
G
H
I
J
K
L
I{AC1_
IrlAC2
MAC3
c1
c2
c3
x1
c4
Hl..R50
AJL..AIr{30
c5
AK3
c6
c7
c8
c9
cL0
cLL
cL2
413
422
425
L82
ItlAC4
MAC5
II{AC6
ItENSA,JE
IIENUl
¡{ENU2
IIENU3
¡{ENU4
t{ENU5
OPCION
PYGl
PYG2
PYGBORDE
PYGCON
RESPUESTA
srNo
T
Y
\o
\zPrint range
Print styleGIobaI Protection
Setup stringMargins
435
445
As0
890
Dt
D2L
D4L
D61
D81
A11
AB1. .A823
AFl. .AI23
w1
I{1..AA23
843
B,42
Dl..Fl
D20..F20
Al_
A1
Hl..R50
fornatted
not enabled
\o27l.t
Left Right Top Botton
t_o 240 0 0
' Isingle quote]
PageLen
66
Label Prefix
l_83
3.3.2. Detalles de las üacros
Listado de Ia lfacro <ALL> (\0, \Z) tAtl* [41]: /VfrC {ONERROR ttAC6 , I,IENSA.TE}
[42]: /WTC (TNDICATE] {Br,ANK OPCTON}-
[43]: {coTo} MENUI_- {DorfN} {RrcHT} {beep}
[44]: {cET OPCTON}-
* [As]: {BRANCH }rAcl}-
Referencias:
Error Branch MAC6 [A50]
Branch I'ÍACI [A13 ]
Listado de Ia Macro l,fAC6 tAsOl* [Aso]: {coTo} t{ENUs- {Dor{N 2} {RrcHT} {?}- {BRANCH \z}Referencias:
Branch <ALL> (\0, \Z) tAll
Listado de la l¡facro tfACt- tA13l
[413]: {rF OpcroN=A} {coTo} DATOS- {RrcHT} {DOIW 2l
{QUTT} NENTRADA DE DATOS'I
[414]: {Ir oPCroN=B} {coTo} DATos2-(RrcHT} {DoyfN} teUrT}IIENTRJADA DE DATOSII
* [A]-51 : { IF OPCION=C } ( BRANCH I.íAC3 } - rIt{ENU DE
IIr{PRESIONTf
* [416]: {IF OPCION=D} (BRANCH UAC4}- rrl,IENU VTSUALIZAR
INFORI,ÍESII
* [A17]: tIF OPCION:E] {BRANCH r.f.AC2}- TGUARDA EL
L84
TRABA.'OII
* [418]: tIF OPCION=F] (BRN{CH l,fAcs)- TTSALE DEL IOTUS|t
* [A19]: {BRANCH \Z}-Referencias:
Branch
Branch
Branch
Branch
Branch
l.iAc3 [A25]
uAc4 [A35]
MAC2 lA22)
IrfAcs [A45]
<ALL> (\0, \Z) [A1]
Listado de la lfacro MAC3 [A25]
lA2sl: {wrNDowsoFF}- {coTo} UENU3- (DOWN} {RrcHT}-{wrNDor{soN} {GET OPCTON}-
* [426]: (IF oPCIoN=A] {I{INDowsoFF} (PANELOFF}
/PPCBRPYGCON- O!,ÍL1O- QAGQ { BRANCH UAC3 } "EL p&c
CONSOLIDADOI'
* lL27)z {rF oPcIoN=B) {wINDowsoFF} (PANEr¡FF} /ppRpgcl-OBCPYGBORDE- l,ll.l0- QAGQ {BRANCH Ir{AC3} "EL P&c Lrl
* [A28]: (rF oPCroN=C] {I{rNDowSoFF} {PANELOFF}
/PPRPYG2-OBCPYGBORDE- l.tLlo- QAGQ (BRANCH DíAC3) "EL p&c 2n
* [429]: {IF OPCION=D} {WINDOI{SOFF} {PANELOFF}
/PPRDATOS2- CBAGQ {BRANCH MAC3} |lI¡S GASTOS DE ENTRADAr
* [A3o]: {Ir OPCION=E} {wINDowSOFF} tPANELOFF}
/PPRDATOS- CBAGQ {BRANCH I'íAC3} "IpS DATOS DE PRODUCTOS'I
* [431]: (BRANCH \z]-Referencias:
Branch lfAC3 [A2S]
L85
Branch <ALL> (\0, \z) [A1]
Listado de Ia üacro l{AC4 tA35l
lA3sl: {coTo} l[ENu2- {cET oPcIoN}
[436] ! {rF OpCTON=A} {WINDOT{SOFF} {PANELOFF} {GOTO}
PYGCON- {RrcHT} (DOWN 6} (WTNDOWSON} (pANEr¡N} (QUrT} ,'EL
P&G CONSOLIDADOII
[437]: {IF OPCIoN=B} (I{rNDoI{soFF} {PANELOFF} {coTo}PYGCON- {RTGHT} {DOI{N6 | /WTB (RrcHTT} {LEFT3} .
{WINDOWSON} {PANEI¡N} {QUrT} rEL p&c CONSOLIDADO"
IA38]: {rF oPCIoN=C} (wINDoI{soFF} {PANELoFF} {coTo}PYGCoN- {RrcHT) {DoWN 6} /WTB {RrcHT 11} {LEFT 3)
{WINDOWSON} (PANETON} {QUIT} ''EL p&G CONSOLTDADO"
* [439]: (BRANCH \z]-Referencias:
Branch <ALL> (\0, \Z) tAll
Listado de la lfacro MAC2 1A221
* ll22)t /Fs- R {Esc} {BRANCH \z}Referencias:
Branch <ALL> (\0, \Z) [At]
Listado de la llacro UACS tA45l
[445]: {GETLABEL Ya guardó su trabajo ?? (S=si N:no) ,
respuesta)
lA46l: {rF SINo=RESPUESTA} /QY
[A47]: /Fs- R(Escl /AY
Listado de Ia Macro tA53l
[As3] ! {WTNDOWSOFF}- {GOTO}
{ {RTGHT}- {WrNDOr{SoN} {?}- (RETTTRN}
3.4. IIOIX'I¡ iCARIERA - CITEIÜTAS POR COBRARi
3 .4. 1. Estmcturas
Structure for database: A:movcxc.dbfNumber of data recordsi 32Date of last update ¿ LT/L3/B8Field Field Name Tlpe Width tlec
L FACTURA Numeric 52 CLIENTE Numeric 33 DOCI ITIENTO Numeric 54 TfPO_DOC Character 25 FECHA-FAC Date 86 FECHA-PAG Date 87 VENTA_EXE Numeric L28 VENTA-GRAV Numeric 129 M Numeric L2
l-O VAI¡R Numeric t_31-1 VENDEDOR Numeric 3L2 VENTAS Character 213 RETENCION Nuneric L2L4 DESCUENTO Numeric L215 DESCCONCEP Character 25** Total ** 135
r.86
I,ÍENU5- { DOWN }
Structure for database: A:movcxcac.dbfNumber of data records: 19Date of last update : O4/OB/BBField Field Name 1\pe l{idth Dec
2222
2222
1- FACTT'RA2 CLIENTE
NumericNumeric
NumericNuneric
3 DOCTTUENTO Numeric4 TIPO_DOC Character5 FECHA_FAC Date6 FECHA-PAG Date7 VENTA_EXE Numeric8 VENTA GRAV Numeric
5352II
L2L2L2t_3
9 IVA10 VAIPR
L87
11 VENDEDORL2 CONCEPTO13 RETENCTONL4 DESCT'ENTO15 DESCCONCEP
** Total **
NumericCharacterNumericNunericCharacter
32
L2L225
135
Structure for database: A:movfacOl.dbfNunber of data records: 8Date of last update z LZ/O4/88Field Field Nane Type l{idth
1 FACIURA Numeric 52 CLIENTE Numeric 33 DOCU¡IENTO Numeric 54 TIPO_DOC Character 25 FECHA_FAC Date 86 FECHA-PAG Date 87 VENTA_EXE Nuneric L28 VENTA-GRAV Numeric L29 M Nuneric L2
10 VAI¡R Numeric 1311 VENDEDOR Numeric 3L2 VENTAS Character z13 RETENCION Numeric L2L4 DESCUENTO Nuneric L2L5 DESCCONCEP Character 25** Total ** 135
1 FACTURA2 CLIEMTE
NunericNumeric
Dec
53II
1_3 23
4L
2222
22
Structure for database: A:saldos.dbfNumber of data records: 10Date of last update I O4/OB/89Field Field Name Tlpe Width Dec
3 FECHA-FAC Date4 FECHA_PAG Date5 VAI-.,OR Numeric6 VENDEDOR Numeric** Total **
Structure for database: A:clientes.dbfNumber of data records: 634Date of last update z LT/LL/BB FieldI{idth Dec
1 CLIENTE Numeric2 NOI{CLfENTE Character3 NfT Numeric
32510
Field Name Tlpe
1,88
4 DIRECCION Character i_85 C¡\r,r.R Numeric 36 CARRERA Numeric 37 TELEFONO Numeric 7I ORIGEN Character 19 TIPO Character 1
10 SALDO_CXC Numeric LZ 211 l,fA:KfUO CRE Numeric L2 z** Total ** 96
Structure for database: A:enpleado.dbfNunber of data records: 5Date of last update z L2/L3/BBField Fietd Name epe Width Dec
1 VENDEDOR Numeric 22 NOI,IBRE Character 253 CEDULA Nuneric 104 FECHA-ING Date 85 SUELDO Numeric 9 26 ISS Nuneric 107 VENTAS_EFE Numeric L2 2MNTAS_CRE Numeric L2 29 COITIISION Numeric 9 2** Total ** 9g
3.4.2. kogranas Fuente
I2 * Programa.: MCARTERA.PRG3 * Autor...: VfCTOR TOVAR4 * Fecha...: O7/3O/975*6 CLEAR ALL7 SET BELL OFF8 SET ESCAPE OFF9 SET CONSOLE ON
1011 DO WHIIE .T.L2 W SET TALK OFF1.3 T{ SET STAIrUS OFF].4 T{ SET CONFTRM OFF1.5 W CLEARL6 W € 2,7 TO L7 ,72 DOUBLE17W e3,L9 SAY[ttENU PRTNCTPAL C];L7W +[ARTERAIL8 W g 4,8 TO 4,7L DOUBLE19 W * ---disptay detail lines20 I{ e 7,35 SAY [1. ENTRADAS]2r- w e 8,35 SAY Í2. I{ODTFTCACTONI22 W e 9,3s SAY [3. BORRAR]23 W € 10,35 SAY [4. REPORTES]
Grafica 1-4: Diagrana de F1ujo ltódulo Cartera
L89
! Ufllrlfsilhd .lrfonnmn d¡ ll¡¿iA-r^ |
l_90
24 Vt e 11,3s SAY [s. CONSULTAS]25 W e L2,35 SAy [6. ACTUALIZACIONES]26 W e L5, 35 SAY '0. rrN'27 W selectnum=O28 I{ e L7,33 SAY tr seleccione rl
29 W e L7r45 GET selectnun pICTttRE n9r RANGE O,730 W READ3LW32 W DO CASE33 W CASE selectnum : 034 I{ ]- SET BELL ON35 W 1 SET TALK ON36 I{ 1 SET STATUS ON37W 1 CLEARALL3839W 140 W CASE selectnum = L41 T{ 2 * DO ENTRADA42W 2 DOPENTRADA43 I{ 244 VI CASE selectnum = 245 I{ 3 * DO I,ÍODIFICACION46W 3 DOI,ÍODIFICA47W 348 W CASE selectnum = 349W 4 * DOBORRJAR50W 4 DOBORRARsl w 452 W CASE selectnum = 453W 5 * DOREPORTES54W 5 DOREPORTES55 I{ 556 W CASE selectnum = 557W 6 * DOCONSULTAS58 T{ 6 DO CONSULTA59W 660 W CASE selectnum = 66]. T{ 7 * DO CIERRE62W 7 DOCTERRE63W 764 I{ CASE selectnum = 765W 8 * DOSALIDA66W 8 DOSALIDA67 W ENDCASE68W69 ENDDO T70 RETT'RN7L * EOF: }ÍCARTERA.PRG
++ End of Program ITICARTERA ++ DOC found no error
r_91_
12 * Programa.: PENTRADA.PRG3 * Autor....: VIqtOR TOVAR4 * Fecha....: Og/Og/875 * Nota.....: Copyright (c) 1997, VICIOR TOVAR, A1I5 * Rights Reser/ed6 * Reserva..: opcion7*89 SET TALK OFF
10 SET BELL OFF11 SET STATUS OFFL2 SET ESCAPE OFFL314 DO WHILE .T.r_5 w16 T{ SET CONFTRU OFF1.7 W SET TALK OFF18 I{ CLEAR19W20 w e 4, 0 TO L4,26 DOUBLE2L W e 5,2 SAY [1. FACTTRAS]22 W e 6,2 SAY 12. RECTBOS DE C¡"TAI23 W e 7,2 SAY [3. NOTAS DEBITO]24 W e 8,2 SAY 14. NOTAS CREDITOI25 W E 9,2 SAY [5. UAESTRO DE CLIENTES]26 W E LO,z SAY [6. IIIAESTRO DE EI,ÍPLEADOS]27 W e 11, 2 SAY 'O. FrN'28 W STORE 0 TO opcion29 W e l-3,5 SAY rr seleccione n
30 W e L3,L7 GET opcion PfCIURE rtgrf RANGE 0,631 W READ32W33 W DO CASE34 I{ CASE opcion : 035 T{ 1 SET BELL ON36 I{ ]. SET TALK ON37W 1 CI,EARALL3839 I{ 140 tÍ CASE opcion = 141 W 2 * DOFACTT'RAS42W 2 DOENTRAFAC43 W 2 SET CONFIRT,Í OFF44W 2 STORE ' t TOespera45 I{ 2 e 2310 SAy ,presione una tecla yr;45 W 2 + ' continua...rGet espera46 I{ 2 READ47 W 2 SET CONFTRIÍ ON48 I{ 249 W CASE opcion = 250 W 3 * DO RECTBOS DE CA.TA51W 3 DOENTRARC
L92
52 W 3 SET CONFIRU OFF53 Yt 3 STORE , , TO espera54 W 3 e 23rO SAy ,presione una Tecla y';54 If 3 + , continua..., GET espera55 W 3 READ56 W 3 SET CONFTRM ONs7 I{ 358 W CASE opcion = 359 I{ 4 * DO NOTAS DEBITO60W 4 DOENTRAND61 W 4 SET CONFIRI,T OFF62W 4 STOREn TOespera63 W 4 e 23rO SAy ,preEione una Tecla yr;63 W 4 + , continua..., GET espera64 W 4 READ65 TI 4 SET CONFIRU ON66W 467 W CASE opcion = 468W 5 * DONOTASCREDITO69W 5 DOENTRANC70 T{ 5 SET CONFIF¡I OFF7LW 5 STORE t , TO espera72 W 5 g 23,0 SAy ,presione una Tecla yr;72 W 5 + ' continua..., GET espera73 W 5 READ74 W 5 SET CONFIRM ON75W 576 W CASE opcion = 577 W 6 * DO I.IAESTRO DE CLIENTES78 W 6 USE CLIENTES INDEX CLTENTES79 W 6 SET FORI,IAT TO CLTENTES80 W 6 APPEND81W 6 CLEARALL8283W 684W 685 I{ CASE opcion = 686 T{ 7 * DO UAESTRO DE EUPLEADOS87 W 7 USE EMPLEADO INDEX EI-ÍPLEADOS88 T{ 7 SET FORIIíAT To EDIPLEADO89 W 7 APPEND90 !{ 7 CLEAR ALL91 <--------RETURN TO IÍASTER92W 793 I{ ENDCASE94W95 ENDDO T96 RETURN97 * EOF: ENTRADA.PRG98
++ End of progran pElflrRADA ++ Doc found no error
L93
t2 * Programa..: l,tODIFfCA.pRG3 * Autor...: VICTOR TOVAR4 *Date zOB/OB/8756 SET TALK OFF7 SET BELL OFF8 SET STATUS OFF9 SET ESCAPE ON
].0 SET CONFIRI{ OFF1L PUBLrC BASE,TNDICEL2 BASE=tr rl
13 INDTCE-r rl
L41-5 CLAVE = 0L6L7 CLEAR18 e 4, 0 TO LO,26 DOUBLEL9 * ---display detail 1ines20 e 5,2 SAY [1. ULTTUA GRABACION]2L e 6,2 SAY 12. l,fAEsTRO CLTENTESj22 e 7,2 SAY t3. I,IAESTRO Et-fpLEADOSj23 g 9, 2 SAY '0. FrN'24 STORE O TO opcion25 e 13 r 5 SAY rr seleccione rt
26 e L3,L7 GET opcion PICIURE n9r RANGE 0,627 READ2829 DO CASE30 CASE opcion : 031 1 SET BELL ON32 1 SET TALK ON33 1 SET STATUS OFF34 ]- CLEAR ALL35 <----RET['RN36 137 CASE opcion = 138 2 * r,fovIlfrENTOl.fES39 2 DO CAITIBIAR40 <----RET['RN4L242 CASE opcion = 243 3 * !{AESTRO DE CLIENTES44 3 USE CLTENTES rNDEX CLIENTES45 3 CLEAR46 3 e 6 13 SAY I|CLTENTE rl
47 3 0 6113 cET CLAVE PrCT r999rl48 3 READ49 3 SEEK CI.AVE50 3 rF FOnNDo51 3 T SET FORI,ÍAT TO CLIENTES52 3 T EDTT53 3 EI,SE
L94
54 3 F CI,EAR55 3 F e 9, 18 SAy TICLIENTE NO EXTSTET|56 3 F I{AIT rr Presione <Enter> parar i563 F +rrcontinuarn57 3 ENDIF58 3 CLEAR ALL59 <----RETURN60361 CASE opcion = 362 4 * EI,IPI,EADOS63 4 USE EUPLEADO INDEX EITIPLEADo64 4 CI,EJA,R65 4 e 6,3 SAY TTEMPT.EADO rl
66 4 e 6,L2 cET CT,AVE Prer x99'l67 4 READ68 4 SEEK CI,AVE6e 4 rF FOnNDo70 4 T SET FORUAT TO ETIIPLEADO7L 4 T EDIT72 4 EI,SE73 4 F CLEAR74 4 F e 9,18 SAY TEIíPLEADO NO EXISTETI75 4 F WAIT rr Presione <Enter> parart;754 F +rrcontinuarrl76 4 ENDIF77 4 CLEAR ALL78 <----RETURN79 ENDCASE80 RETT'RI{81*FIN:ENTRADA.PRG
++ End of Progran UODIFICA ++ DOC found no error
t_95
L2 * Prograna..: BORRAR.PRG3 * Autor...: VICTOR TOVAR4 *Date zO8/OB/8756 SET TALK OFF7 SET BELL OFF8 SET STATUS OFF9 SET ESCAPE ON
10 SET CONFTR}Í OFF11 CLAVE = O
L213 DO T{HILE .T.14 W CLEARL5 w e 4, 0 To LL,26 DOUBLE16 W e 5,2 SAY [1. ULTr]fA GRABACIONIL7 W e 6,2 SAY 12. MAESTRO CLTENTESI18 W e 7,2 SAy [3. I,ÍAESTRO m{PLEADOS]t9 w e 9, 2 SAY '0. FrN'20 W STORE 0 TO opcion2L W e 13,5 SAY rr seleccione rl
22 W e L3,L7 GET opcion PICIURE r9il RANGE 0,623 W READ24W25 W DO CASE26 W CASE opcion = 027 W 1 SET BELL ON28 W 1 SET TALK ON29 W 1 SET STATUS OFF30W 1 CLEARALL3132W L33 W CASE opcion = I34W 2 * l,fOVIl,trENTOUES35 Y{ 2 BASE:||üOVCXCTI36 I{ 2 INDICE:TTUOVCXCDOTI37W 2 DOBORRADOR38 W 2 SET CONFIRI,Í OFF39W 2 STORE', TOwaitsubst40 I{ 2 e 23rO SAY ,Presi6ne una tecla yr;40 W 2 + ' contin#e..., GET wait subst41 T{ 2 READ42W 2 CLEARALL43 W 2 SET CONFTRü ON44W 245 W CASE opcion = 246W 3 * !,ÍAESTRODECLIENTES47 W 3 USE CLIENTES INDEX CLIENTES48 W 3 CLEAR49 W 3 CLAVE=O50 w 3 e 613 SAY TTCLIENTE rl
51 W 3 e 6111 GET CLAVE PIqI r999rl52 W 3 READ
1_96
53 I{s4w55W56 I{57W58W59W60 I{60w61 I{62W63W64 I{65 t{66 I{67W68W69W70w71 W
72W73W74W75W76W77W78W79W79W80w81 I{82W83W84 ENDDO85 RETT'RN
++ End of Program BORRAR ++ DOC found no errors.
3 SEEK CI.AVE3 rF FOLND()3 T DELETE3 T PACK3 ELSE3 F CI,EAR3 F e 9, L8 SAY |tCLIENTE NO EXTSTET|3 F WAIT rr presione <Enter>rr;3 F + It para continuarrl3 ENDTF3
CASE opcion = 34 * EITTPLEADOS4 USE EI,ÍPLEADO INDEX EI,ÍPLEADO4 CLEAR4 CLAVE=O4 e 6,3 SAY rrEIrlPLEjA,DO rl
4 e 6,L2 GET CI,AVE PrCT r99rl4 READ4 SEEK CI,AVE4 rF FOITND o4 T DEI,ETE4 T PACK4 T CLEAR4 EI-,SE4 F CT,EAR4 F e g, L8 sAy rEl,fpr.EADo No ExIsTEn4 F WAIT It presione <Enter>r;4 F + rr para continuarn4 ENDIF4
ENDCASE
L97
12 * Prograna..: REPORTES.PRG3 * Autor. .. : VICTOR TOVAR4 *Date rO8/O8/9756 SET TALK OFF7 SET BELL OFF8 SET STATUS OFF9 SET ESCAPE ON
].0 SET CONFIRITI OFF1.1 CI,AVE : O
L2t3L4 DO WHTLE .T.15WL6wL6wL7W18Wr_9 w20 I{21 W
22W23W24W25W26W27W28W29W30w31 W
32W33W34W35W36W37W38 I{39W40 I{41 W
42W43 I{44W
* ---Display menu optJ.ons, centered on the* screen.* draw menu border and print headingCLEARe 2,0 sAY rt SELECCTONE EL REPORTE A n
e 3,0 sAY tl I}ÍPRT}ÍIRIIe 4, 0 TO L7 ,29 DOUBLE* ---display detail Iinese 5,2 SAY [ 1. LISTA GRABACION]e 6,2 SAYe 7,2 SAYe 8,2 SAY
2. VENTAS TODOS CLIENTESI3. VENTAS PARA nN CLIENTEI4. TOTALES POR CLIENTEIg 9,2 SAY t 5. SALDOS CLIENTESI
e LO,2 SAY [ 6. SALDOS PARA ttN CLIENTE]e LL,2 SAy f 7. RELACION pOR VENDEDORIg L2,2 SAY t 8. VENTAS IIAYORES A? le L3,2 SAY t 9. IÍAESTRO CLIENTESJe L4,2 SAy [10. UAESTRO EIÍPLEADOS]e L6, 2 SAY ' O. FrN'STORE O TO opcione 18 r 5 SAY rr seleccione rlg L8,L7 GET opcion PICTURE rr99n RANGE OrLOREAD
DO CASECASE opcion = 0
]. SET BELL ON1 SET TALK ON1 SET STATUS OFF1 CLEAR ALL
4546W 147 W CASE opcion = l-48W 2 * LISTAGRABACTON49W 2 CLEARALL50 I{ 2 SET VIEW TO REPORTE151 W 2 REPORT FORT.Í REPORTE1 TO PRINT52
t-98
53 I{ 254 W CASE opcion = 255 W 3 * DETALI,E POR CLIENTE VENTAS56 T{ 3 CI,EAR ALL57 W 3 SET VIEW TO REPORTE258 W 3 REPORT FORIII REPORTE2 To PRTNT5960w 36l_w 362 W CASE opcion = 363 tÍ 4 * DETAr.ra UN CLIENTE64 I{ 4 CODIGO=O65 W 4 CLEAR66 I{ 4 g 23115 SAY ,Esc abandona,67 W 4 e 17115 SAY rr Entre el codigo delrri67W 4 +rrClientert68 I{ 4 e L7,46 cET CODIGO pICTttRE .t999r RANGE O,i68 W 4 100069 W 4 READ70w 4 IFREADKEYO=I27L <---- return to master72 w 4 endif73 W 4 SET VIEI{ TO REPORTE274 W 4 SET FILTER TO CLfENTE=CODIGO7 5 W 4 REPORT FORIII REPORTE2 TO PRINT76 W 4 WAIT7778W 479 W CASE opcion = 480W 5 * TOTALESPORCLIENTE8].W 5 CLEARALL82 W 5 SET VIEW TO REPORTE283 W 5 REPORT FORT,Í REPORTE4 TO PRINT8485W 586 W CASE opcion = 587W 6 * SALDOSCLIENTES88W 6 CLEARALL89 W 6 SET VIEW TO REPORTEs90 I{ 6 REPORT FORI,Í REPORTEs TO PRINT91 <--------RET['RN92W 693 I{ CASE opcion = 694W 7 * SALDOSUNCLIENTE95 I{ 7 CODIGO=O96 W 7 CLEAR97 W 7 e 23115 SAy ,EEc abandona,98 W 7 € 17115 SAY rr Entre el codigo delrri98t{ 7 +rclienterf99 W 7 E L7,46 GET CODIGO PICTURE II999II RANGE O,i99 W 7 l_000
]-OO W 7 READL01 w 7 TFREADKEYO=I2
L99
LO2103 W 7 endif]-04 W 7 SET VIEW TO REPORTEs1-05 W 7 SET FILTER TO CLIENIE=CODIGO1.06 W 7 REPORT FORI{ REPORTEs TO PRINTL07 w 7 I{AIT108t_09 I{ 7l-L0 W CASE opcion = 7]-11-W 8 * REI,ACIONVENDEDOR]-]-2W 8 CLEARALL113 W 8 SET VIEW TO REPORTE6]-14 W 8 REPORT FORI,Í REPORTE6 TO PRINT115 <--------RET['RNr.16 W I117 I{ CASE opcion = I].18W 9 *VENTASMAYORESA?119 I{ 9 üINIMA=O120 W 9 CLEiAR1-21 VÍ 9 e 23115 SAY ,Esc abandona,L22 W 9 e 17, L5 SAY rr Entre eI I{INfüO de ventarr iL22W g +||totalrlL23 W 9 e L7,46 cET UINIIT{A PfCIURE n999,999tgggtlL24 W 9 READ125 I{ 9 IF READKEY ( ) =12L26L27 W 9 endif]-28 W 9 SET VIEW TO REPORTE2L29 W 9 REPORT FORM REPORTE4 FOR VAI¡Q ): UINfUA;L29W 9 TOPRINTL30 w 9 WAITt-31 <--------RETURN132W 9L33 W CASE opcion = 9134 W ].0 * I,ÍAESTRO DE CLIENTES].35 I{ 10 CLEAR ALL].36 W 10 USE CLIENTES rNDEX CLIENTES].37 TÍ 10 REPORT FORM CLIENTES TO PRrNTr_38r.39 t{ 10l-40 I{ CASE opcion = LO14L W l-L rt ITIAESTRO DE E!,ÍPI_,EADOSL42 W 11 CLEAR ALL143 I{ 11 USE EI.ÍPI,EADO INDEX EUPLEADO].44 W 11 REPORT FORI.I EI.ÍPLEADO TO PRINT1_45L46 W t_1_
L47 W 11L48 W 11149 W 1l_t_50 w 111_51 W 1_1
r_52 W 11
:!
Uniwn;uol 4ut0nnÍn0 úo 0r.tiOcnh I
200
]-53 T{ ENDCASE154 W
]-55 ENDDO T]-56 RETT'RNL57*FTN:ENTRADA.PRG
++ End of Progran REpORTES ++ DOC found no error
20L
I2 * Programa..: CONSULTA.PRG34 SET TALK OFF5 SET BELL OFF6 SET STATUS OFF7 SET ESCAPE ON8 SET CONFIRU OFF9 SET STAT OFF
l-OTECIA= ' '11L2 CL,EAR13 g 2,O SAY r SELnCCIONE LA CONSULTA A xL4 e 3rO SAY r REALIZARTT15 e 4, O TO LL,28 DOUBLE16 * ---display detail linesL7 e 5,2 SAy [1. SALDO DE ttN CLIENTES]1-8 e 6,2 SAy t2. VENTAS A ttN CLTENTEJL9 e 7,2 SAy [3. VENTAS DE tN VENDEDOR]20 e 8,2 SAY [4. IÍAESTRO CLTENTES]2L e 9,2 SAY [5. I,ÍAESTRO EUPLEADOS]22 g 10, 2 SAY '0. FIN'23 STORE O TO opcion24 e L2 r 5 SAY rr seleccione rr
25 e L2,L7 GET opcion PICIURE xgrr RANGE 0r526 READ2728 DO CASE29 CASE opclon = 030 1 SET BELL ON3]- 1 SET TALK ON32 ]. SET STATUS OFF33 1 CLEAR ALL34 <----RETT'RN TO I,TASTER35 136 CASE opcion = 137 2 * SALDO DE I'N CLIENTE38 2 DO CONSALDO39 2 CI¡SE DATABASES40 <----RET[RN4L242 CASE opcion = 243 3 * VENTASAI'NCLIENTE44 3 DO CONVENTA45 3 CIOSE DATABASES46 <----RET[RN47348 CASE opcion = 349 4 * VENTAS DE UN VENDEDOR50 4 DO CONVENDE51 4 CI¡SE DATABASES52 <----RETURN534
202
54 CASE opcion = 455 5 * I,ÍAESTRO DE CLIENTES56 5 CODIGO:O57 5 CLEAR58 5 e 15, 1,3 TO 19 , 55 DOUBL,E59 s SET COI¡R TO N/W60 5 e 23115 SAY 'Esc abandona,61 5 SET COrpR TO rVN62 5 g 17115 SAY rr Entre eI codigo del Cliente rl
63 5 e L7,46 cET CODTGO PICTURE r999il RANGE OrLOoO64 5 READ65 5 IF READKEYO=I266 <--------RETURN TO UASTER67 5 ENDTF68 5 SET CONFIRI{ OFF69 5 USE CLIENTES INDEX CLIENTES70 5 SEEK CODIGO7L 5 rF FOnNDo72 5 T CLEAR73 5 T DOCONSCLIE74 5 T e 2O,O75 5 T SET CONFIRM OFF76 5 T g 22,L9 SAY rrPresione una tecla pararr;76 5 T + rr continuarrr GET TECLA77 5 T READ78 5 T SET CONFIRIT{ ON7980 5 EI,SE815 F CTEARALL82 5 F CI¡SEDATABASES83 5 F e 22,L9 SAY rrCodigo no existerr cET TECLA84 5 F READ85 <--------RET['RN86 5 ENDIF87588589 CASE opcion = 590 6 * IIAESTRO DE EUPLEADOS91 6 CODIGO=O92 6 CLEJA,R93 6 e 23,L5 SAY 'Esc abandona,94 6 e 17115 SAY !r Entre el codigo del Enpleado rl
95 6 e L7,46 cET CODIGO pIqrURE r999'f RANGE O'1OOO96 6 READ97 6 IF READKEYO=I29899 6 endif
1-OO 6 USE EI.ÍPLEADO INDEX EUPLEADOLor- 6 SEEK coDrcoLOz 6 rF FOrrNDo1.03 6 T CLE,AR]-046 T DOCONSEMPL1_056 T e2O,O
203
1-06 6 T SET CONFfRIII OFFLO7 6 T e 22tLg SAY trPresione una tecla pararr;LO76 T +ncontinuarrrGETTECLA].08 6 T READ109 6 T SET CONFIRIT{ ONl_10 <--------RET['RN TO I,ÍASTERLLL 6 ELSELL2 6 F CLEARALL1].36 F CI¡SEDATABASESLL41-].5 6 ENDIFt_16 6LL7 ENDCASEl,L8119 RETURNL2O*FIN:ENIRADA.PRGL2LL22
++ End of Progran CONSULTA ++ DOC found no error
204
]- SET SAFETY OFF2 CLEAR3 SET ESCAPE ON{ ffig=r r
5 e 8,5 SAY TTENTRE EL llES A ACTUALIZAR (Use 2tr;5 + il digitos)x cET IttES6 READ7 I{OVFAC=TTMOVFAC&I{ES fl
8 UOVFCIFTTI,IOVFCL&I{EStl9 UOVFVE=||üOVFVE&}ÍES||
10L1 USE &UOVFAC].2 APPEND FROI{ II{OVCXC1.3 INDEX ON FAETURA TO &UOVFACL4 INDEX ON CLTENTE TO &IIIOVFCLT].5 INDEX ON VENDEDOR TO &I,ÍOVFVE1617 USE MOVFACAC18 APPEND EROU I,TOVCXC].9 INDEX ON FACTT,RA TO ITIOVFACAC20 INDEX ON CLIENTE TO I,TOVACCLI2L INDEX ON VENDEDOR TO I.ÍOVACVEN2223 USE SALDOS TNDEX SALDOS24 REINDEX25 APPEND FROM I,ÍOVCXC26 TOTAL ON FACTTRA TO SALDOSXX FIELDS VALOR,VAT,_ORrGEN27 USE28 IDEL SALDOS.DBF29 IREN SALDOSXX.DBF SALDOS.DBF30 USE SALDOS31 DELETE FOR VAI,oR=O32 PACK33 INDEX ON FACTT'RA TO SALDOS34 TNDEX ON CLIENTE TO SALDOCLI3536 USE MOVCXC rNDEX MOVCXC,ITTOVCXCDO37 ZAP3839 RETURN40
++ End of Progran CIERRE ++ DOC found no errors.
205
1 * -- ENTRAFAC.PRG2 * Programa para entrada de Facturas en el mrdulo2 * de cartera.34 CLEAR5 SET TALK OFF6 SET ECHO OFF7 SET STATUS OFF8 SET ESCAPE ON9 SET PROCEDT'RE TO CONTROL
10 * -- C:EMTRAFAC11 SELEeI C12 USE SALDOS INDEX SALDOS1.3 SELECT B14 USE CLIENTES INDEX CLIENTES]-5 SEI,ECT A16 USE IIIOVCXC fNDEX MOVCXC,TIOVCXCDOL7 PUBLTC XFACT, XCLI, XFFAC, XFpAc, )(VEXE, XVGRA, XIV, XRET, ;L7 XDESC, XVAL, XVEND, XTDOC, I, N1.8 PUBLIC ULTFAET19 ULTFACT=O20 N=02L f=022 XFACP = O
23 XCLf = O
24 XFFAC=CTOD(rr / / t,)25XFPAG:CToD(rr / / ")26 XVEXE = 027 XVGRA = O
28XIV=O29 XRET = 0.0030 XDESC : 031'XVAL = O.0032 XVEND = O
33 INDI,:O3435 DO WHILE .T.36 W CLEAR37 W SET COr¡R TO N/r{38 W e 2315 SAY rr^R Retorna al t{en# principaltt39 W e 23,36 say rr^C muestra Ia ultina facturart40 w sET cor¡R To vN41 W e 3,25 SAy TENTRjA,DA DE DATOS FASTURASTI42 W e 4 '25 SAY rr------- -------rl43 W SET COI.oR TO44 W e 6,3 SAY nFACtrURArl45 I{ € 6,1-8 SAY TCLTENTE¡|46 I{ e 8r3 SAY rrFecha factura / /tt47 W e 9,3 SAY rrFecha vencimiento / /r,48 Il e 1Or3 SAY rrVendedorrl49 I{ e I,34 SAY rrVenta exenta , , . tt:.49 I{ +r rl
50 W e 9,34 SAY rrVenta grav , , . r;
206
50W +r fr
5l-w elor34sAYrrlva , , . ri5Lw +r rl
52 W e 11134 SAY rrRetencion r , . rri52W + rr rl
53W eL2,34 SAYrrDescuento , , . tt;53Yt +r rl
54 W e L3 ,44 say tl
55 W € L4 r34 SAY rrValor neto rr '55W +n rl
56 tÍ IF INDl<>L57 W T XFACT=ULTFACI58 W T ULTFACI=O59 I{ T € 6,11 cET XFAet pIqI .t99999n RANGE L,9999960 W T READ61W T IFREADKEYO=I262W T T CI¡SEALL6364 W T ENDTF65 I{ T66W T DOCONTROL167W T DOCONTROL268W T IFULTFAqT>O69 A===:=======:f.rQQp70 W T ENDIF7LI{ T72W T IFXFACT<=O73 T{ T T SET COI¡R TO N*/W*74 W T T e 21r3O SAY rr Factura invatida rr
75 W T T SET COI¡R TO w/N76W T T ESPERA=O77W T T DOWHILE.T.78W T T Y[ ESPERA=ESPERA+I79W T T I{ IFESPERA=S80 W T fql=:=====::==f,[f!81. I{ T T T{ ENDTF82W T T ENDDO83 I{ T T84 A===:===:====frQQp85 I{ T ENDIF86W T SELEETC87W T SEEKXFAST88W T TFFOnNDo89 W T T SET COIOR TO N*/W*90 W T T e 21125 SAY rr Factura ya existe enrt;90w T T +rsaldosrl91 I{ T T SET COL,OR TO IVN92W T T I{AIT93 A============frQQp94 W T ENDIF95W T SELECTA96 I{ T SEEK XFACTe7w T TFFOnNDo
207
98 T{ T T SET COI¡R TO N*/W*99 IÍ T T e 2L,21 SAY rr Factura ya existe enrf i99W T T +rrestagrabacionrl
r-oo w T T sET coroR TO vN1-01 W T T VÍAITLO2 A
]-03 W T ENDIF104 I{ EI,SE105 W F e 6,11 SAY XFAet prgr n99999t1L06 W F e 6,2'7 SAY XCLI PrCT m999rl107W F e6135SAYr&NOt{BRErlt08w F e8,22 SAYXFFACL09 I{ F e 9,22 SAY XFPAGl-L0 w F e 10rt-2 sAy xvEND pler r999rl]-11 W ENDIF &&INDIL12 W rF INDl<>ll-13 I{ T e 6,27 GET XCLr prCT rgggr RANGE L,999].1-4 W T READt-15W T DOCONTROL1L16W T IFXCLI<=Ot_17 t{ T T SET COI¡R TO N*/I{*l-18 I{ T T e 21131 SAY tr Cliente invalido rt
l-L9 I{ T T ESPERA=O1-20 I{ T T DO WHILE .T.l-21 W T T W ESPERA=ESPERA+IL22 I{ T T W IFESPERA=3OL23 W T T !{ T SET COIOR TO VNL24 W T f(===========f,)(ffL25W T T W ENDIFL26W T T ENDDOL27W T TL28 ^ I¡OPL29 W T ENDIF].30W T SEI,ECTB131 W T USE CLIENTES INDEX CLIENTES]-32W T SEEKXCLIr_33W T TFFOUNDOL34 I{ T T NOMBRE=NOI.ÍCLIENTEr-35 W T T SET COIOR TO N/W136 I{ T T e 6,35 SAY n&NOMBRETI
1_37 W T T SET COI¡R TO rVN]-38 W T EI,SEL39 t{ T F SET COr¡R TO N*/W*L40 I{ T F € 2Lr31 SAY rrCliente invalidorlr-41 r{ T F SET COI¡R TO VNL42W T F WAITl-43 A I¡OP1-44 W T ENDIF145 r{ T1.46 I{ T SELEqT AL47W T e8,22 GETXFFAC148 W T RE..AD149W T DOCONTROL1
208
150W T e9,22 cETXFPAG1.51 W T READr_52 I{ T DO COIüSROL1153 I{ T e LO rL2 cET XVEND prer r999r RANGE 0,9991-54 W T READ155W T DOCONTROL11.56 W ENDIF &&TNDI157 W SELEET Al-58 IY INDI=O159 I{ I=READIGY ( )160 W e 8,52 cET XVEXE PICI .19,999r999.99n RAI-IGE O,i160 W 999999999999]-61. I{ READr_62 W DO CONTROL1l-63 W e 9,52 cET XVGRA PICT .t9r999,999.99n RANGE O,i163 I{ 999999999999164 W REJADr-65 W DO CONTROLLL66 I{ e LO,52 cET XMret n9,999,999.99r RAI{GE O,iL66 W 999999999999L67 W READ168 W DO CONTROL1L69 W e LL,52 cET XRET prCt n9,999r999.99r RANGE;169 W 0.O0,999999999.99L70 t{ RE¡AD171 T{ DO CONTROL1L72 W e L2,52 cET XDESC PICT n9,999,999.99r RANGE O,;L72 W 999999999999173 W READL74 W DO CONTROL1175 t{ XRET=XRET¡I-IL76 W XDESC=XDESC*-1L77 W e 8,52 SAy XVEXE prel n9,999r999.99r1l-78 I{ e 9,52 SAy XVGRA prCT 19,999,999.99[179 W e LO,52 SAy XMIeI n9 ,999 1999.9911180 W e LLt52 SAy XRET prCT ng,g9g,9g9.ggn181 W € L2,52 SAy XDESC prer n9,gggtg99.99rf182 W XVAIFXVEXE+XVGRiA+XIV+XRET+XDESCL83 W e L4,52 SAy )(vAL pler t91999,999.9911L84 W IF XVAL<oL85 I{ T INDl=lL86 W T XRET=XRET*-Il-87 W T XDESC=XDESC*-1188 W T SET COI¡R TO N*/t{*1-89 I{ T e 21,31- SAY tr Venta neta errada rl
r.9o w T sET coI¡R TO IVN191 I{ T T{AITL92 A==:===-I¡QOP193 T{ ENDIF194W ?L95W ?l-96 I{ ?L97W ?
209
L98 W VIAIT I Presione <ENTER> paral il-98 I{ +mcontinuarrl199 W * -- REPLACE data in a file section --200 W * -- From Screen C:ENTRAFAC --201 I{ fF XVAIFO2O2 A===:=:==LOOP203 I{ ENDIF2O4 W IF XFACT = 02O5 A==::==:=IOOP206 W ENDIF2O7 W APPEND BI,ANK2O8 W REPLACE FACTURA WITH XFACTTCLIENTE WITH XCLI, i208 W FECHA-FAC WITH XFFAC209 W REPIACE FECHA PAG I{fTH XFPAG ,VENTA EXE wITHt20s w xvExE2L0 w REPLACE VENTA_GRAV I{ITH XVGRA, M WITH XrV, ;2]-O W RETENCTON WITH XRET2LL W REPT,ACE DESCUENTO WITH XDESC,VALOR I{ITH XVAL, i211 W VENDEDOR WITH XVEND2L2 W REPIACE TrPO_DOC I{ITH f|F'iATTVENTAS WrTH rrgJn, i2L2 W DOCUUENTO I{ITH XFA T2L3 W REPI,ACE VAL-ORIGEN T{ITH XVAL2L4W XFACT=O215W XCLI=02L6W XFFAC=CtoD(r / / u)2L7W XFPAG:CTOD(tr / / rt)2l-8 I{ XVEXE : 02L9W XVGRA=022OW XIV=022LW XRET=0222W XDESC=O223 W XVAL=O224W XVEND=O225 W
226 ENDDO227 RETT'RN229
++ End of Progran ENTRAFAC ++ DOC found no error
ll . :unrü$C{rrt Autonomo ds kldüh
2to
1 *PROG ENTRARC23 CLEAR4 SET TALK OFF5 SET ECHO OFF6 SET STATUS OFF7 SET ESCAPE ON8 SET PROCEDI'RE TO CONTROL9 * -- C:ENTRARC
1,0 *SEI,ECT B]-1. *USE SALDOS INDEX SALDOSL2 *SELE T AL3 *USE ITIOVCXC INDEX I{OVCXC,IIOVCXCDOL4 PUBLIC Il-5 I=0l-6 RESULT=OL7 XFACT = 0L8 XVAL = O.0019 XIDOC='RC'20 INDI:O21 VALI¡ÍVTO=O22 VAIFO23 RECIÍ\JIIO=O24 SrNO=tr rl
25 DO WHrLE .NOT. SINO $rssNn'26 W SET COr¡R TO N/r{27 W e 23 t25 SAY tt [ESC] Retorna al Men# principalrl28 W SET COI¡R TO VN29 W g 2,5 TO 20,79 DOUBLE30 w sET colpR To w+/N+3L W SET COIOR TO32 W e 10113 SAY rrEste Recibo de CaJa afectarr;32 W + rr Ventas ? S=si N=no [ ]tt33 I{ g l_0,60 cET SrNo '34 W READ35 W rF READKEYO=I236W T CI¡SEALL3738 W ENDIF39 ENDDO40 IF SlNg=ttttt41 T XVENTAS=IISIII42 ENDIF434445 DO I{HILE .T.46 W * -- DISPI,AY SCREEN --47 W CLEAR48 Il VALlrfVlfO=O49 W VAIFO50 W RECltfVllO=O51 W
52 r{ SET COLOR TO N/r{
2LL
53 W g 2415 SAY rr^R retorna al menu principaltt54 I{ set color to {n55W56 W e 3,25 SAy TENTRADA DE DATOS RECIBOST;56 W + r! DE CA,JArl57 W e 4,25 SAY ,57 I{ rf-------58 W e 6,3 SAY TFACTURA''59 W rF INDl<>l60 I{ T e 6,11 cET XFACI plgt x99999r RANGE L, j60 w T 9999961- W T READ62W T IFREADKEYO=IZ63W T T CI¡SEDATABASES6465 W T ENDIF66W T DOCONTROL167W T IFXFACT<=O68 T{ T T SET COI¡R TO N*/W*69 W T T e L7,28 SAY rtFactura invalida rl
70 W T T SET COIOR TO rVN7L A=====:=====:frQQp72 W T ENDIF73W T74 W T USE SALDOS INDEX SALDOS75W T ttSELEqIB&&SALDOS76W T SEEKXFACT77W T TFFOnNDo78W T T VAIFVAI¡R79 W T EI,SE80 W T F USE UOVCXC INDEX I,ÍOVCXC,IiOVCXCDO8LI{ T F :ISEIECTA&&MOVCXC82T{ T F GOTOP83 W T F LOCATE FOR FACTURJI=XFACT .AND. i83 I{ T F TrPO DOC-rFArl84W T F ITFOtNDo85W T F T VAIFVAI¡R86W T F EI,SE87W T F F SETCOI¡RTON*/W*88 W T F F e 17128 SAY rrFactura no exister;88 I{ T F F + rr en saldos, ni en estart i88 I{ T F F +rrgrabacirnrl89W T F F XFACT=O90 r{ T F F SET COI¡R TO }r/N91 l{ T F F PAUSE=rrrl92 W T F F g L9,24 SAY nPresione una teclarr i92W T F F +trparacontinuarrrGETPAUSE93W T F F READ94W T F F TFREADKEYO:I295W T F F T CI¡SEALI,9697W T F F ENDIF98 A=:===========:==I,QOP
2L2
99W T F F1.OOIf T F ENDIF].O1 W T ENDIFr.02 w TL03W T *SELECTA&&ITíOVCXCL04 I{ T USE !ÍOVCXC INDEX I{OVCXC,IÍOVCXCDO].05W T SEEKXFACT106W Tr.07 r{ T IF FOTTNDO &&2L0gW T T VALDÍ\IIO=Ol-09 W T T SET FILTER TO FACIURi|:XFACT .AND. t109 I{ T T TIPO DOC <> rFArl
. 110 W T T St'Itl VEI¡R TO VALI,ÍVTOL11 I{ T T IF VAIF-VALI,Í\rTO1.¡-2W T T T CLEAR1.13W T T T SETCOI¡RTON*/W*1-14W T T T EIT,2SSAYIIFACrURACANCEI,ADANr-r-5w T T T SETCOI¡RTOIVNLl-6 I{ T T T e L9,24 SAY trPresione una teclarr i116W T T T +rrparacontinuarnLL7W T T T WAIT'|rl118 A=== I¡OP].].9 I{ T T ENDIFl_20 I{ T T1-21 W T TL22 W T T g L9,21 SAY rrFactura ya existe enr iL22W T T +rrestagrabacionrlL23W T TL24W T T125w r r srNo=ilrrL26W T T et0,0ToL6,50DouBLEL27 W T T e L5r5 SAY ||VAIPR TOTAL EN ESTArriL27W T T +I'GRABACIONII128 I{ T T e 15135 SAy VAL¡,ÍUrO PICI n9,999,n¡128 I{ T T +nggg.ggrlL29 W T T e 13,5 SAy TTSALDO NETO ANTERIORT!130 W T T e 13,35 SAy VAL pIqI n9,999,999.99r1].31 I{ T ENDIF132 W ENDIFL33 W VALltf,AiK=VAIi-VAL¡,f\rTO134 W e 1l-r5 SAY rrVAI¡R IIIAXIMO rl
l_35 W SET COrOR TO W*/N*136 W e 11135 SAy VAL¡,ÍNK pler n9,999,999.9911r_37 W SET COr¡R TO w/N138 I{ e 6,LL SAY XFACT PICT ''9999911L39 W XDOC=OL40 W e 6rLg SAY TTRECIBO DE CA.IA No.nGET XDOC PICT iL40 w rgggggrl].41 W READL42 w IF READKEY O =12L43 W T CIJARALLL44145 T{ ENDIF
2L3
146 W e 8116 SAY ilVAI¡R A CANCEIARilL47 W e gr3g GET XVAL prCT ng,gg9,9gg.ggr RANGE O,iL47 W 999999999999]-48 W READ149 I{ IF READKEY ( ) =1215OW T CLE.ARALL151 <--------RET['RN TO !.ÍASTER]-52 I{ ENDTF153 W
1_54 w DO CONTROL1155 W IF XVAL>VALITÍAX156 I{ T XVAIFO157 l{ T INDl=l1_58 W T SET COI¡R TO N*/I{*159 W T e 6,54 SAY xEL VAI¡R EXCEDET|L60 W T SET COrOR TO VNl_61 W T STORE rrTOPAUSA162 W T SET COI¡R TO N*/W*L63 I{ T e 21,120 SAY rrPresione Enter pararriL63 W T + rr continuarrr GET PAUSAr.64 r{ T SET COI¡R TO rVNL65W T e19,01-66 W T READL67 W T INDL=OL68 A========I,QOP169 W ENDIF1-70 T{ SELEqT A171 W APPEND BIANKL72 W IF XVAIFOL73 A====:===I¡QOPL74 W ENDIFl-75 I{ REPLACE FACTURA I{ITH XFASI,'TIPO DOC WITHTt-75 W XTDOC,VALOR WITH -XVAL]-76 W REPI,ACE DOCT'}IENTO WITH XDOCL77 W XFACT=OL78 W XVAIFOL79 W INDI=O180 W VALM\JIIO=O1-81 ENDDO].82 RETURN
++ End of Progran ENTRARC ++ DOC found no errors
2L4
1 * -- ENTRAND.PRG2 CLEAR3 SET TALK OFT4 SET ECHO OFF5 SET STATUS OFF6 SET ESCAPE ON7 SET PROCEDTJRE TO CONTROL8 * -- C:ENTR,AND9 PUBLIC XFAXT, XCLI, XFFAC, XFPAG, XVEXE, XVGRA, XrVA, ;9 XRET, XDESC, XVAL, XVEND, XDOC
10 XVENTAS=' '11 A=0L2 e 10,3 TO 12,56 DOUBLEL3 sINO=tr tl
L4 DO I{HILE .NOT. SINO $xssNn,15 I{ e 1115 SAY IBsta Nota Débito afecta Ventas ?t,15 W + rr S=si N=no [ ]"l-6 tT e LL,49 cET SINOL7 W READ18 ENDDO1-9 rF READKEY ( ) =1220 T CLEAR ALL2L <----RETT'RN TO I,TASTER22 ENDIF23 DO CONTROL124 IF UPPER(SINO) =rrsrt25 T XVENTAS=nSIII26 ENDIF27 SELECT C28 USE MOVCXC INDEX IÍOVCXC,IIÍOVCXCDO29 SELECT B30 USE CLIENTES INDEX CLIENTES31 SELECT A32 USE I,TOVFACAC INDEX I.ÍOVFACAC33 DO WHILE .T.34W XFACT=O35W XCLI:O36 I{ XFFAC = CIOD(tr / / ")37W XFpAc=CToD(tr / / ")38 I{ XVEXE = 039W X\IGRA=O40W XIVA=041W XRET:0.0042W XDESC=O43 I{ XVAL = O.OO44W XVEND=O45 l{ XVAI*SALDO = 046 W XVALI,fi/1IO=O47 W XDOC=O48 W CLEAR4e w sET cor¡R To N/w50 W e 2315 SAY n^R Retorna al menu principalrl5r_ w sET coI¡R TO w/N
2L5
52 W SET COI¡R TO53 W DO I{HILE XFACT <= 054 W l{ e 6,3 SAY TFACTUIIATI55 W W e 6,11 cET XFACT prCT r99999rr RiANGE L,ggggg56 W W READ57W W IFREADKEYO=I258W W T CLEARALL5960 TT W ENDIF6r-w w DoCoNTROL162 W ENDDO63W SELECTA&&UOVFACAC64 w sET FTLTER To rrPo Doc=rrFAtl65 W SEEK XFAC'T66 W IF FOTTNDO &&667 W T XCLI=CLIENTE68 I{ T XVEXE=VENTA EXE69 W T XVGRA=VENTA-GRAV70 W T XIVA=IVA7L W T XRET=RETENCfON72 W T XDESC=DESCUENTO73 W T XVAIFVALOR74W T SELECTB&&CLTENTES75W T SEEKXCLI76 W T rF FOnNDO &&777W T T NOIIBRE=NOI,ICLIENTE78 I{ T T e 6155 SAY n&NOr{BRF:il79W T ENDTF&&780 W EI,SE81- W F SELECT C &&I,ÍOVCXC indexada por factura82 W F SET FILTER TO TIPO DOC=xFAft83W F SEEKXFACT84 r{ F rF FOTTNDO &&585W F T XCLI=CLIENTE86W F T XVEXE=VENTAEXE87W F T XVGRA=VENTAGRAV88W F T XIVA=IVA89W F T XRET=RETENCfON90W F T XDESC=DESCUENTO91 W F T XVAIFVAIOR92 W F EI,SE93 I{ F F CI.E'AR94 W F F SET COL,OR TO N/W95 W F F e L0,20 sAy rFAeruRA NO EXTSTETI96 W F F SET COrOR TO tflN97w F F PAUSA=rrrl98 I{ F F e 18110 SAY rrPresione <Enter> parart;98W F F +rrcontinuarrGETPAUSA99W F F READ
1-ooW F F fFREADKEYO=I2].O]-W F F T CLEARALLLO21.03W F F ENDIF
2L6
L04 A==:=====-==f_¡QQp1.05 W F ENDIF106 I{ ENDTFL07 W rF )n/AL > 0r_08 w T1-O9W T SELECIA&&IIíOVFACAC1-1O W T SET FfLTER TO TIPO DOC = rRCr .OR. t1-1ow r TrPo-Doc=nNcnl-L1 W T VALND=0LLz W T St]}l VAIOR TO VALND FOR FACruRA = XFACT113W T1_14W T SELECTC&&I,ÍOVCXC1-15 W T SET FILTER TO TIPO DOC = rRCil .OR. i115 ÍÍ T TfPO DOC = rr¡CrlL16w T vafNpfrov:oL1-7 I{ T SttU VAIOR TO VALNDITTOV FOR FACTURA : XFACTl-18W T VALI,ÍAX=-VALND-VALNDIIOV119 W T IF VALMAX (= 0 .AND. XVENTAS=|ISI||12ow r T PAUSA=rrrl12LW T T CtEiilRL22 W T T e 16,10 SAy rNO SE PUEDE EI_,ABORART;L22W T T +IINOTADEBITO''L23 I{ T T e 17110 SAY IISE DEBE HACER NUEVAT;L23W T T +||FACTURATIL24 W T T e 19110 SAY rrPreEione <Enter> parailiL24W T T +rrcontinuarilGETPAUSAL25W T T READ126W T T TFREADKEYO=I2L27W T T T CI,EARALLL28L29W T T ENDIF130 A============frQQp].31 W T ENDIF1_32 W T133 W T DO WHIIJ XDOC (: O
L34 I{ T W SET COI¡R TO I{+/N+l-35 W T W e 13,63 SAy rVAI¡R UAXTUO rl
136 W T W € L4,63 SAy VAI,IÍNK pIqI úgg,gggrniL36 I{ T W +rggg.ggrl1_37 W T I{ SET COL,OR TO IVN138 I{ T W e 6120 SAY ttNOTA DEBITO No.rl139 W T W e 6,36 cET XDOC PICT r99999r RANGE L,íl_39W T W 99999]-4OW T W READ1,41 I{ T W IF READKEYO=I2L42W T I{ T CLEJilRALLL43L44W T W ENDIF].45 I{ T T{ DO CONTROL1]-46 I{ T ENDDOL47 W T g 3,25 SAy rElflrRADA DE DATOS NOTASil iL47W T +rDEBrTOr148W T €4,25SAYi
2L7
L48 I{149 W
150 W
151 W
1_51 W152 W
152 I{L53 I{153 I{r_s4 I{154 W
155 W
155 W
156 W
157 VÍ
L57 W
158 W
1_59 W
160 W
L61 W
162 I{L63 W
r_64 W
L65 W
1_66 I{L67 WL67 W
168 W
169 W
170 W
r_71 t{L72 W
173 I{L74 W
L74 W
L75 W
L76 W
L77 W
L77 W
r_78 W
L79 W
L80 I{L80 W
1_8L I{L82 I{1_83 W
l_83 W
L84 W
185 W
1_86 W
L85 W
187 I{L88 W
TTTTTTTTTTTTTTTTTTTTTTTTTTTTTT
ll _______ ____ rtg 6,43 SAY rcLrElflfErle 1Or3 SAY rrVendedorne 8130 SAY trVenta exenta , , ni+r.tlg 9130 SAY rrVenta grav+ll.tle L0r30 SAY nlva+ll.lle 11130 SAY rrRetencion+ll.llg 12130 SAY rrDeEcuento+||.ile 13140 say tlg 14 r 30 SAY rrValor neto+||.tle 6,51 SAY XCLr PICT n999rle 8r48 SAy XVEXE prCT ngtggg,ggg.ggrle 9,48 SAy XVGRA prC"I n9,9gg,ggg.ggne 10r48 SAy XM PICT ..gr99grg99.9g|le 11r48 SAY XRET PICT n9,9991999.9911g L2r48 SAY XDESC pICf n9,999,999.99rte L4r48 SAy XVAL PICT n9,999,999.9911SINO=tr rl
DO WHILE .NOT. SINO $rssNn"w e 2o,3 SAy TACEPTA ESTOS VAT,ORES " iW + II S=Si/N=NO IIGET SINOW READW DO CONTROL1
ENDDO
r.,il. ,
llot
llo Itt
tlllo ,
ENDIFIF UPPER(SrNO) =rrNrl
T DO WHII,E .T.T t{ g g,4g cET }Ñ/EXE prCT .tg ,999 ,ggg.9gn iT W RANGE 0,999999999999T W READT W DO CONTROL1T I{ e 9 ,48 GET XVGRA PICT ,.9 ,999 ,999.99r ;T W RANGE 0,999999999999T W READT W DO CONTROL].T W e 10r 48 cET XM pler n9,999,999.99n iT I{ RiANGE 0,999999999999T W READT W DO CONTROL1T W e 11148 GET XRET pIgI ..9,999,999.99r'iT W &&RANGE 0,999999999999T T{ READT W DO CONTROL1T I{ e L2 | 4g GET XDESC prCT u9 ,ggg ,9gg .9gn iT W &&RANGE 0,999999999999T W READT W DO CONTROL1
2L8
L89W T W XRET=-XRET19Otg T W XDESC=-XDESCt-91 w T w e 11148 SAy XRET plet .t9,999,999.99r1L92 W T W e L2,48 SAy XDESC pIeI n9,999,999.99r1193W T W XVAIFXVEXE+XVGRA+XM+)RET+XDESCL94 W T W g L4,48 SAy XVAL PICT n9,999,999.99[195W T W
196 W T I{ IF VALMAX <= XVAL .AND. XVENTAS=!|SIrL97vl r w r PAUSA=rrrr198 I{ T Í{ T CLEAR199W T W T e16110SAYtrNOSEpUEDErri].99 W T I{ T + II EIABORAR NOTA DEBITO''20o w T w T e 17,10 SAy nSE DEBE HACER NUEVAT';200w T w T +rFAeruRArl201 W T W T glgrl0SAYtrPresionecEnter>rri201 I{ T W T + rr para continuarn GET PAUSA2O2W T TÍ T PEAD203 I{ T W T IFREADKEYO=I22O4W T T{ T T CLE,ARALL205206W T W T ENDTF2O7W T W T A=1208 W f4l===========f,[ff209 I{ T W ENDIF210W T W
21,L W T r{2L2 I{ T W fF XVAL<=O2L3W T W T SETCOI¡RTON*/r{*2L4 W T I{ T g 21131 SAY rr Venta neta errada rl
2t5W T t{ T SETCOI¡RTOlÍ/N2L6W T W T WAfTilPresione<enter>pararri2L6W T W T + rr continuarrl2L7 W T A========IóOP218W T T{ EI,SE219 W f(======:====f,[ff22OW T W ENDIF22LW T W
222W T W
223 W T ENDDO224W T IFA=1225W T T A=0226 A I¡OP227 W T ENDTF228W T229W T23O W ENDIF23L W
232 W IF VALMN( (= XVAL .AND. XV'ENTAS=|!SI||233w T PAUSA=rrrr234 W T CLEAR235 W T e 16,L0 SAy rrNo sE PUEDE ELABORAR NOTAI;235W T + || DEBITOTI236 W T € 17,10 SAy rSE DEBE HACER NUEVA FAeIURATI
2L9
237 W T e 19 r 10 SAY rrPresione <Enter> parail;237 W T + rr continuarrr GET PAUSA238 W T READ239W T IFREADKEYO=I224OW T T CLEARALL24L <--- -RETT'RN TO T,ÍASTER242 W T ENDIF243 A=::===:=ITOOP244 W ENDIF245 W
246 W ttIF VALMAX < XVAL247W SELECTC&&I{OVCXC248 W APPEND BI,ANK249 W REPIACE FACTURA WITH XFACI,CLTENTE WITH XCLr,;249 W FECHA-FAC WITH XFFAC250 I{ REPLACE FECHA pAG WITH XFPAG ,VENTA EXE WITHT250 W XVEXE251 I{ REPI,ACE VENTA GRAV WITH XVGRA, M I{rTH XIVA, ;25]. Tf RETENCION T{TTH XRET252 W REPLACE DESCUENTO I{ITH XDESC,VAI¡R I{ITH XVAL, ;252 W VENDEDOR I{ITH XVEND253 W REPLACE TIPO DOC WITH T|NDTTVENTAS WrTH i253 W ilXVENTAST,DOEUUENTO WITH XDOC254 ENDDO255 RETURN
++ End of Progran ENTRAND ++ DOC found no errors
Univrnidad lutonorno ds 0(ddnrfr
220
1 * PROGRAI,ÍA..* ENTRANC23 CLEAR4 SET TALK OFF5 SET ECHO OFF6 SET STATUS OFF7 SET ESCAPE ON8 SET PROCEDT'RE TO CONTROL9 PUBLIC XFACT, XVAL, XTDOC, I , RESULT, XDOC
10 XDOC=Ol-L I=0L2 XVENTAS=, ,13 e 1O,3 TO 12,56 DOUBLE14 SfNO:r rl
l-5 DO WHILE .NOT. SINO I'SsNn,L6 I{ e L1,5 SAY rrEsta Nota Credito afecta Ventastril_6 w + n ? S=si N:no I Jrt17 W e 11,50 cET SINO1-8 W READl-9 W IF READKEY O =rZ20W T CLEARALL2L <--------RET[IRN TO ITIASTER22 W ENDIF23W24 W DO CONTROL125 ENDDO26 IF SINO=trSrl27 T XVENIAS=IISIr28 ENDTF29 RESULT=O30 XFACT = 031 XVAL = O.OO32 INDI=O33 RCNDNC=O34 VAIFO35 VAIFACI=O36 DO I{HILE .T.37 W * -- DISPI,AY SCREEN --38 W CLEAR39 W SET COIpR TO N/I{40 W e 24 r 5 SAY rr^R retorna al menu principalrl41 W set color Eo ur/n42W43 Vl e 3,25 SAY ||ENTRADA DE DATOS NOTAST;43W +trCRnP11gn44 W e 4,25 SAY i44 W rf---__-_ _____rl45 W e 6,3 SAY nFACTt RATI46 T{ IF IND1<>].47 W T e 6,11 cET XFAgr plgr r99999r RANGE L,i47 W T 9999948 I{ T READ49w T IFREADKEYO=12
22L
50W T T CLEARALL5]. <---- RETT'RN TO UASTER52 W T ENDIF53W T54W T DOCONTROL],55W T IFXFACI<:O56 W T T SET COI¡R TO N*/W*57 Yl T T e L7 ,28 SAY nFactura invalida rl
58 W T T SET COr..,OR TO VN59A I¡OP60 W T ENDIF61 W T e 6,18 SAY INOTA CRED. No.nGET XDOC62 W T READ63 I{ T IF READKEY ( ) =1264W T T CLEARALL65 <---- RETURN TO I,ÍASTER66 W T ENDIF67W T68 W T USE SALDOS INDEX SALDOS69W T SEEKXFACT70w T rrForJNDo71W T T VALFACT=VALOR72W T T73 W T EI,SE74 W T F USE I{OVCXC INDEX I{OVCXC,ITIOVCXCDO75 W T F I¡CATE FOR FACTIIRj\=XFACT .Al{D. t75w r F TrPo-Doc:rrFArl76W T F TFFOLNDO &&277W T F T VALFACI=VAL,OR78W T F EI,SE79W T F F SETCOI¡RTON*/I{*80W T F F eL7r28SAY[Facturanoexistetri80 W T F F + rr en SALDO ni en esta grabacirrnrl8LW T F F XFACI:O82W T F F SETCOT¡RTOVN83 W T F F e L9 r24 SAY rrPreEione una teclarr i83W T F F +rrparacontinuarrt84W T F F I{ArT rtl85A I¡OP86W T F ENDIF87W T F88 W T ENDIF89W T90 W T USE UOVCXC INDEX I,ÍOVCXC,IIOVCXCDO9L W T RCNDNC=O92 W T SET FILTER TO TIPO DOC = xRC'' .OR.;92 W T TIPO-DOC : IINCII .6N. TIPO-DOC = |INDN
93 W T SIJl,f VAI¡R TO RCNDNC FOR FACTURA = XFACT94W T95 I{ T VALFINALFVALFACI+RCNDNC96W T97W T IFVALFINAIFO98W T T CLEAR
222
99 TÍ T T SET COI¡R TO N*/W*lOO I{ T T e 17,28 SAy mFAeTURA CA}ICETADATIr.01 w T T sET COI¡R TO VN1-O2 W T T e L9,24 SAY |tPresione una tecla pararr;102W T T +rrcontinuarrlL03 Yf T T I{AIT rrl1,04W T T fNDL=O1-O5W T T XFACT:OL05W T T XDOC=OLO7 A======:=====frQQp]-08 W T ENDTF1_09 I{ T110W TLll. I{ T g l-9r21 SAY rrFactura ya existe en estatriL11 W T +rrgrabacirtnrlLl_2 w T113W T1-14W T SINO=trtlLt-s !{ T g 10,0 To 16,50 DOUBLELL6 I{ T e 15,5 SAy rVAr¡R TOTAL EN ESTA GRABACTON"1-17 I{ T e 15,35 SAy RCNDNC plqr n9,999,999.99r1118 I{ T e 13,5 SAy TSALDO NETO ANTERIORrLL9 W T € 13 r 35 SAy VALFAqT PICT n9,999,999.99t1].20 W ENDIFL21- I{ VALMAX=VALFACT+RCNDNCL22 W e 11,5 SAY ilVArpR tfAxrl,fo rl
123 W SET COI¡R TO W*/N*L24 W e 11135 SAy VALü,ÍAX prCT ngtggg,999.99rlr_25 W SET COI¡R TO r{/NL26 W g 5,1-l- SAY XFASI PrgI n99999r1L27 W g 8,15 SAY IVAI¡R A CANCEIARTTl-28 W e 8133 GET XVAL PICT úgr999,ggg.ggrr RANGE O,ir.28 W 999999999999L29 W READL30 W IF READKEYO=121.31 T{ T CLEAR ALLL32].33 W ENDIF134 W
135 W DO CONTROL1].36 W IF XVAL>VAL¡.IAX137 W T XVAIF0l-38 I{ T fNDl=l139 I{ T SET COI¡R TO N*/I{*l-40 w T e 6,54 SAY nEL VAIpR EXCEDET|141 W T SET COI¡R TO rVNL42W T STORE rrTOPAUSAL43 W T SET COI¡R TO N*/W*144 W T e 21120 SAY rrPreEione Enter pararr;L44 W T + It continuarrr GET PAUSAr_45 W T SET COr¡R TO rVN146 W T € l_9,OL47 W T READ
223
148 A========I¡OP149 W ENDTFl-5O W IF XVAIFO151_ A========I¡OP152 W ENDIF],53 W SELECT A154 W APPEND BIANK155 W REPIACE FACTIIRA WITH XFACI,TIPO_DOC WrTH rNCr, i1.55 W VAI¡R I{ITH -XVAL156 T{ REPIACE DOCT'I.IENTO IIITH XDOC157 I{ XFACT=O158 W XVAIFO159 W INDI=Ol-60 W RCNDNC=OL6L T{ XDOC=OL62 W VALFACT=O163 I{ VAL}íAX=OL64 ENDDO]-65 RETT'RN
++ End of Progran ENTRANC ++ DOC found no errors
224
L e 2, 23 SAY frD I S T R r T O D O L T D A.x2 e 3, 22 SAY nPAIflTALIA ENTRADA DATOS CLTENTESTI3 e 5, 23 sAY rrcLrENTErl4 e 5, 35 cET CLIENTES->CLIENTE5 e 7, 23 sAY rrNolfBREtl6 e 7, 35 cET CLIENTES->NOIICLIENTE7 e 9, 23 SAY rNrTx8 0 9, 35 GET CLTENTES->NrT9 e 11, 23 SAY TTDTRECCTONI
10 e 11, 35 cET CLTENTES->DTRECCION]-L g L3, 23 SAY ITEr.EFONO|IL2 e 13, 35 cET CLTENTES->TELEFONO1,3 e 15, 23 SAY ttTrPorlL4 e 15, 35 cET CLTENTES->TIPO15 e L9, 7 SAY rrCtrl-End Guarda y sale1,5 + rr Esc Abandonarl16 e L, 5 TO L7, 73 DOUBITEL7 e 4, 7 TO 4,7218 e 1, 6 TO 17, 73 DOUBLE
++ End of Program CLIENTES.FIfT ++
||.,
225
1e 2,22 SAYTDISTRTTODO LTDA.rl2 g 3, 20 SAY TTPAIflIALIA ENTRADA DE DATOS EITíPLEADOS¡I3 e 5, 23 SAY ||VENDEDORTI
4 e 5, 35 GET EUPLEADO->VENDEDOR5 e 7, 23 SAY nNOtfBREn6 e 7, 35 cET EUPLEADO->NOI,ÍBRE prepURE ,6 rxxxxxxxxxxxxxxxxxxxxxxxxrl7 e g, 23 SAY rCEDUr,Arl8 e 9, 35 cET EIIPLEADO->CEDUIA9 e 11, 23 SAY TFECHA rNcrl
10 e 11, 35 cET EMPLEADO->FECHA ING11 e 13, 23 SAY TSUELDOTI
L2 e 13, 35 cET EI.ÍPLEADO->SUELDOL3 e L5, 23 SAY rrssrtL4 e 15, 35 cET EI{PLEjADO->ISSL5 e L9, 9 SAY rrCtrl-End Guarda y sale ,t j15 + rr Esc Abandona¡.16 e L, 7 TO L7, 72 DOUBLEL7 g 4, g TO 4,7L
++ End of Progran El{pLEADO.FtflI ++
226
1 * Program..: CA!{BfAR.PRG2*34 SET TALK OFF5 SET BELL OFF6 SET STATUS OFF7 SET ESCAPE OFF8 SET PROCEDI'RE TO UODIDOC9 PUBLIC XDOC, XCLI, XDOC, XFECF, XFECP, XVENEX, XVENGRA, ;9 XrVA, XVENDE, XVENTA, XRET
10 PUBLTC XVALTXDESC,XFASTLL XDOC:OL2 XCLI=Ol-3 XDOC:OL4 XFECF=O15 XFECP=Ol-6 XVENEX=OL7 XVENGRA=O18 XIVA:OL9 XVENDE=O20 XVENTA=O21 XRET:O22 XDESC=O23 XVAIFO24 USE MOVCXC rNDEX I,ÍOVCXCDO,!ÍOVCXC25 XDOC:O26 XFACT=O27 TIPDOC=' '2829 DO WHILE .T.30 W CLEAR31 I{ g 23115 SAY ,Esc abandona,32 W e 16,55 to 23,71 double33 W e 17,56 SAY ' TIPOS DE'34W g l-8,56 SAY ' DOCIII{ENTOS,35 W e l-9,56 SAY 'FA:Factura,36 W e 20156 SAY ,RC=Recibo Caja,37 W e 21,56 SAY ,ND-Nota Débito'38 I{ e 22,56 S.AY ,NC=Nota Crédito,39W40 w e Lo,L2 TO 14,49 DOUBLE4t- W e 11rL5 SAY ,Entre documento a üODIFICAR 'GET;41 I{ XDOC PISTURE '99999'42 W e 13115 SAY 'Entre eI tipo de documento 'GET;42 W TIPDOC PICTURE '!!'43 T{ READ44 w IF READKEYO=I24546 W endif47 W GO TOP48 W I¡CATE FOR DOCUI.ÍENTO =XDOC .N{D. TIPO DOC :i48 I{ TIPDOC49 W rF FOrrNDo
227
50 W T XCLI=CLIENTE51 W T XDOC=DOCIII,ÍENTO52W T XFECF=FECHAFAC53 W T XFECP=FECHA-PAG54 W T XV,ENEX=ABS(VENTA_EXE)55 W T X\IENGRA=ABS(VENTA_GRAV)56 W T XIVA=ABS(M)57 W T XVENDE=VENDEDOR58 I{ T XVENTA=VENTAS59 W T XRET:ABS(RETENCION)60 W T XDESC:ABS(DESCUENTO)61 t{ T XVAIFABS (VAIPR)62 W T XFACT=FACIURA63T{ T64 I{ T CLEAR65W T DOCASE66W T CASETIPDOC=rFAtr67W T 1 DO!,ÍODIFA68W T 1_
69 t{ T cAsE TIPDoc=rrNDrl70W T 2 DO I,ÍODIND71 r{ T 272W T CASETIPDOC=nNCr73 W T 3 DOI,IODINC74W T 375W T CASETIPDOC=trRCtr76W T 4 DOIÍODIRC77W T 478 W T ENDCASE7980w T81 I{ EI,SE82 T{ F STORE II II TO PAUSA83 I{ F g 2L, L0 SAY ttFACTttRA NO EXISTET|84 W F e 22 r L0 SAY rrPresione <Enter> pararr i84 I{ F + rr continuarrr GET PAUSA85 I{ F READ86w F IFREjADKEYO=128788 W F ENDIF89 W F XDOC=O90 I{ F TlpDoc=r_rl9l_w F92 A===:====LOOP93 W ENDIF94 ENDDO95 RETT'RN
++ End of Program CAI{BIAR ++ DOC found no errors
228
1- * Program..: BORRADOR.PRG2 ¡t Author...: VIetOR TOVAR3 * Date...... O8/O8/874 * Notice...: Copyright (c) L987, VfefOR TOVAR, AIl4 * Rights Resen¡ed5 * Notes....:6 * Reserved.: opcion7*89 SET TALK OFF
10 SET BELL OFF11 SET STATUS OFFL2 SET ESCAPE OF'Fl_314 USE &BASE INDEX &INDICEL5 XDOC=O16 TIPDOC=' 'L718 DO WHTLE .T.1.9 T{ CI,EAR20 W e 23,L5 SAY 'Esc abandona,2LW22 W e 16155 to 23,71 double23 W e 17,55 SAY ' TrPOS DE'24W e18,56SAY' DOCITUENTOS'25 W e L9r56 SAY 'FA=Factura'26 W e 20156 SAY 'RC=Recibo Caja,27 W e 21,56 SAY 'NEI-Nota Débito'28 W e 22,56 SAY 'NC=Nota Crédito'29W30 I{ e LO,L2 TO L4,47 DOUBLE31 W e 11,15 SAY 'Entre documento a BORRAR ,GET;3L W XDOC PICTURE '99999'32 W e l-3r15 SAY 'Entre el tipo de docunento ,GET;32 W TIPDOC PICTURA ' !I'33 W READ34 W fF READKEYO=I23536 W endif37W38 W I-.,OCATE FOR FACTIJRA =XDOC .AND. TIPO DOC =i38 W TIPDOC3e r{ rr FouNDo40 W T DELETE41 W T TEUPORAIFBASE+n.TDlPrr42 W T BASE=BASE+||.DBFrl43W T CI¡SEDATABASES44 I{ T RENA}íE &BASE TO &TEI,IPORAL45 W T SET DEI,ETED ON46W T USE&TEUPORAL47 W T COPY TO &BASE48W T CI¡SEDATABASES49 W T DEI,E FII,E &TEXI{PORAL
229
50 <--------RET[RN51 W EI,SE52 W F e 21,10 SAY TFASTURA NO EXISTE'I53 W F WAIT trPresione <Enter> para continuarrl54 W F XDOC=O55 l{ F TIPDOC=II rl
56W F57 A==-====IOOP58 W ENDIF59 ENDDO60 PETT'RN
++ End of Program BORITADOR ++ DOC found no error
230
1 * Consulta al archivo de saldos2 SET TAIJ( OFF3 SET ECHO OFF4 SET SAFETY OFF5 SET STATUS OFF6 SET BELL OFF7 CTEARI SINO=n rl
9 Sul[,4=01-O DO T{HTLE . T.11W llave=0L2 W e 1,15 Say ,CONSULTA SALDOS DE CARTERA POR';12 I{ +'CLIENTE'l-3 I{ e 3r5 Say 'CLIENTE, get- llave pict rr999rl].4 W READl-5 w e 3,13 SAY LLAVE]-6 T{ USE CLIENTES INDEX CLIENTESL7 W SEEK LI,AVE18 W NOüBRE=NOII{CLIENTEL9 W e 3,18 SAY NOIIBRE20 w IF slNo=rr rl
2].W T USESALDOS22 W T INDEX ON cliente TO llave23 W EI,SE24 W F USE SALDOS INDEX LI,AVE25 T{ ENDIF26 W LIN=727 W SEEK llave28 W DO WHILE CLIENTE=LIAVE .AND. .NOT. EOF()29 W W e 5, t_ SAy 'VENDEDOR FAeTURA F.FAC ' i29W I{ + ' F.PAGO VAI¡R'30 w I{ e LIN,4 SAY VENDEDOR31W W eLIN,IOSAYFAqTURA32 W W e LINrl7 SAY FECHA FAC33 W I{ e LIN, 27 SAY FECHA-PAG34 I{ W 0 LrN,37 SAy VAr¡n prCr ngg,ggg tggg rn i34W W +rggg.gg|l35W W LIN=LINfl36 W W IF LfN= 1837 W !{ T e 2L,L38 W W T WAIT rr Teclee <ENTER> paratt;38 I{ W T +rrcontinuarrl39W W T e7r1 clearto2O.TL40W W T e22,L CLEAR41W W T LIN=742 W W ENDIF43 I{ W SUüA:SIIIIÍ,A*VAIOR44 W I{ e L9,30 SAY nTOTALT!
45 I{ W SET COI¡R TO N+/W+46 W W e L9,37 SAy SInfA PICT n99,999,999,999.99.'47 W W SET COI¡R TO48 W W SKrP49 W ENDDO
23L
50w ezorL cr,EAR51 W SET COI¡R TO N*/W+52 W e 2t,L5 SAy ITER!,ÍrNO r,A BUSQUEDA|'53 W SIII¡IA=O54 I{ SET COI¡R TO55 W WAIT rr Tecle <ENTER> para continuarrl56 W CLEiilR57 w SINo=rr rl
58 I{ DO WHILE .NOT. SINO $rrSNsnn59 W W e 10110 SAY rrDesea repetir la consulta [i59 I{ W + tt (S=SI/N=NO) n GET SINO PIg1 rr I rr
60 W W READ61 IÍ ENDDO62 W fF SINO:ilNn63 W T CLEAR64 <==:-===EXIT65 I{ ENDIF65 W CLEAR67 ENDDO68 RETT'RN69
++ End of Program CONSALDO ++ DOC found no error
232
I * Consulta las ventas a un Cliente2 SET TALK OFF3 SET ECHO OFF4 SET SAFETY OFF5 SET STATUS OFF6 SET BELL OFF7 SET ESCAPE ON8 CI,EAR ALL9 CLEAR
1-0 SINO:I rl
11 SUl,fA:OL21.3 DO I{HILE .T.14W llave=O15 W IF sINo=¡¡ rt
16W T mes=rr rl
L7 W T e 23,15 SAY 'Esc abandona,18 W T e LO,L2 TO L4,49 DOUBLEl-9 W T e 12rL5 SAY'Enero=Olr Febrero:O2, etc.'20 W T e 13,15 SAY tAcumulado del a$o:AC'2l- I{ T e 11115 SAY 'Entre eI l.fES a consultar ',2LW T GETmes22 W T READ23 I{ T IF READKEY ( ) =122425 W T endif26 W ENDIF27W28 W CLEAR29 W g 1115 Say 'CONSULTA LAS VENTAS A ItN CLIENTE'30 W e 3r5 Say 'CLIENTE' get llave pict rr999rl31 W READ32 W e 3,L3 SAY LLAVE33W34 W USE CLIENTES TNDEX CLIENTES35 W SEEK LI,AVE36 I{ NOüBRE:NOIIÍCLIENTE37 W e 3,18 SAY NOIÍBRE38W39 I{ IF SrNO-il rl
40 W T BASE=trlfOVFACrr+l[ES41W T USE&BASE42 W T INDEX ON cliente TO llave43 I{ EI,SE44 W F USE &BASE INDEX LI,AVE45 T{ ENDIF46 I{ LIN=747 W SEEK llave48 I{ DO WHILE CLIENTE=LLAVE .AND. .NOT. EOF049 W W € 5,1 SAy 'VENDEDOR FASTURA F.FAC
"49W W + ' F.PAGO VAL,OR'50W W gLIN,4SAYVENDEDOR51 W W e LIN,IO SAY FACTI'RA
233
52 W I{ e LIN,17 SAY FECHA FACs3 w I{ e LrN,27 SAY FECHA:PAG54 W I{ e LIN,37 SAy VAIOR prer ,199,999,999,r i54W W +nggg.ggrl55W W LIN=LIN+156 W Yl IF I¡fN= 1857W W T e2L,L58 t{ W T WAIT It Teclee <ENTER> pararr;58W W T +rrcontinuarrl59W W T g7r1 clearto?O,TL60w w T e22,L CLEAR61W W T LIN=762 W I{ ENDIF63 W tÍ SultlA=SUl[A+VAIOR64W W elg,3oSAYrTOTALrl65 W W SET COIóR TO N+/W+66 !{ I{ g L9,37 SAY SII'IA PICT ))99,999,999,999.991167 W W SET COI_.,OR TO68 I{ W SKIP69 W ENDDO70w e2o,L CLEAR71 W SET COISR TO N*/W+72 W e 2L,LS SAY riTERI,{INO LA BUSQUEDATT73 W SIIIÍ,A=O7 4 W SET COf¡R TO75 W I{AIT rr Tecle <ENTER> para continuarrl76 W CLEAR77 W SINO=rr rl
78 W DO I{HILE .NOT. SINO $rSNsn,79 W W e 10rL0 SAY rrDesea repetir Ia consulta t ,79 W I{ + tt (S=SI/N=NO) rr GET SINO PICT rr I rl
80 W W READ81 I{ ENDDO82 W IF SINO=trNtr83 W T CLEJAR84 <=-===:=EXIT85 II ENDIF86 !I CLEAR87 ENDDO88 RETT'RN89
++ End of Progran COIÍVENTA ++ DOC found no error
234
1 * Consulta las ventas a un Cliente2 SET TALK OFF3 SET ECHO OFF4 SET SAFETY OFF5 SET STATUS OFF6 SET BELL OFF7 SET ESCAPE ON8 CLEAR ALL9 CI,EAR
10 SINO=r n
11 SII}Í,A=OL21.3 DO I{HILE .T.14W llave:015 w rF srNo=n r16 tl T mes=r rl
L7 I{ T g 23,15 SAY ,Esc abandona'18 W T e L0,12 TO L4,49 DOUBLE19 I{ T e 12115 SAY 'Enero=Olr Febrero:O2r etc.,20 W T e 13,L5 SAY 'Acunulado del a$o=AC,2L W T e 11115 SAY ,Entre eI tfES a conaultar , í2LW T GETnes22 W T READ23w T IFREADKEYO=I22425 W T endif26 W ENDIF27W28 W CI,EAR29 W e 1,15 Say 'CONSULTA I,AS VENTAS DE ttN,i29W +'VENDEDOR'30 W e 3 r 5 Say 'VENDEDOR, get llave pict rr999rl31 I{ READ32 W e 3,L4 SAY LI,AVE33 I{34 W USE ET,ÍPLEADO INDEX E}IPI,EJADO35 W SEEK LI,AVE36 W NA}IE=NOIIÍBRE37 W e 3118 SAY NAITiE38W39 W IF SINO-r rl
40 W T BASE=trltOVFACrr+l,IES41W T USE&BASE42 W T INDEX ON VENDEDOR TO llave43 W EI,SE44 W F USE &BASE TNDEX LI,AVE45 W ENDIF46 W LIN=747 W SEEK llave48 I{ DO WHfLE VENDEDOR=r.rAVFr .AND. .NOT. EOFO49 W W e 5,L SAy 'CLIENTE FACTURA F.FAC 'i49 W W + ' F.PAGO VAIóR'50w w eLIN,4SAYCLTENTE
235
51 W W e LIN,IO SAY FAeTURA52 W W g LIN,17 SAY FECHA FAC53 I{ W e LTN,27 SAY FECHA-PAG54 W tf e LrNr37 SAy VAI¡n prCt ngg,ggg,999,n¡54W I{ +rggg.ggrl55W W LIN:LINfL56 I{ W IF LIN= 1857W I{ T ezL,L58 I{ tl T I{AIT rr Teclee <ENTER> pararr i58t{ W T +rrcontinuarfl59 I{ W T e 7r1 clear to 2O,7L60w I{ T e22,L CLEAR61W W T LIN=762 W W ENDIF63 W I{ SU}Í,A=SU}Í,A+VAIóR64W W elg,3oSAYúTOTALTI65 W I{ SET COI¡R TO N+/W+66 W I{ e L9,37 SAY SIrIrlA PICI n99,999,9991999.991167 W W SET COI¡R TO68 T{ I{ SKIP69 W ENDDO70 w e 2o,L CLEAR71 W SET COI¡R TO ¡*/I{+72 W e 21,15 SAy rrTERl,fINO tA BUSQUEDAr73 W SUIÍA=07 4 W SET COI¡R TO75 W I{AIT n Tecle <ENTER> para continuarrl76 W CLEAR77 W SINO=rr rl
78 W DO WHILE .NOT. SINO $trSNsnr79 W W g LOr10 SAY rrDesea repetir Ia consulta rr;79 W W + tt (S=SI/N=NO) rr GET SINO PICT rr I rl
80 W W READ8]. W ENDDO82 W IF SINO:trNrl83 W T CLEAR84 <=:-===:EXIT85 W ENDIF86 I{ CLEAR87 ENDDO88 RETT'RN89
++ End of Program COIÍVENDE ++ DOC found no error
236
1e 2,23 SAYTDTSTRTTODO LTDA.'l2 e 3, 22 SAY It CONSULTA DE CLIENTESTI3 € 5, 23 SAY TCLTENTE|I4 e 5, 35 SAY CLTENTES->CLTENTE5 e 7t 23 sAY ttNol{riFr:tt6 e 7, 35 SAY CLIENTES->NOIÍCLIENTE7 e 9, 23 SAY ilNrTr8 e 9, 35 SAY CLTENTES->NrT9 e 11, 23 SAY IDIRF:CCION'I
L0 e 11, 35 SAy CLTENTES->DTRECCTON11 e 13, 23 SAY TTELEFONOTi
L2 e L3, 35 SAY CLIENTES->TELEFONO13 e L5, 23 SAY rTIPOrl14 e 15, 35 SAY CLTENTES->TIPO15 e L, 6 TO 17, 73 DOUBLE16 e 4, 7 TO 4, 72L7 e L, 6 TO L7, 73 DOUBLE
++ End of Program CONSCLIE ++ DOC found no error
237
1e 2,22 SAY||DISTRTTODO LTDA.rl2 g 3| 22 SAY r CONSULTA EI{PLEAI)OS!|3 e 5, 23 SAy TVENDEDORII
4 e 5, 35 SAY EI,ÍPLEADO->VENDEDOR5 € 'l , 23 SAY nNOIr{BRF:n
6 g 7, 35 SAY EttptEADO->NOt{BRE pIqrURE i6 rxxxxxxxxxxxxxxxxxxxxxxxxrl7 e 9, 23 SAY rCEDUr,Arl8 g 9, 35 SAY E!,ÍPLEADO->CEDUIA9 e 11, 23 SAY TFECHA rNcrl
Lo e 11, 35 SAy EIÍPLEADO->FECHA ING11 e 13, 23 SAY rStrELDOrlL2 e L3, 35 SAY EITIPLEADO->SUELDO13 e 15, 23 SAY rrsstlL4 g 15, 35 SAY EI,ÍPLEADO->ISSt-5 e L, 7 TO L7, 72 DOUBLEL6 e 4, I TO 4, 7L
++ End of Program CONSE!,ÍPL ++ DOC found no error
238
1 PROCEDT'RE CONTROL12 I=READIGY ( )3 IF I=6 && ^R4 T CLEAR ALL5 <----RETURN TO I,ÍASTER6 ENDIF7 RETTIRNI
++ End of Procedure CONTROLI(CONTROL)
239
1- PROCEDT'RE CONTROL22 I=READIGY ( )3 IF I=74 T SELECT A5 T N=RECCOUNT o6T GOTON7 T ULTFACT=FAETURA8 T CI,EAR9 <----RETURN
10 ENDTF].1 RETURN
++ End of Procedure CoNTROL2 (CONTROL)
240
]- * PROGRAI,ÍA I,ÍODIDOC2]. PROCEDI'RE MODIFA23 SET CONSOLE ON4 e 1,0 TO 24,79 DOUBLE5 e 2,L9 SAY IPN{TALLA DE MODIFTCACION DE FAqTUR.AS]6 e 3,1 TO 3,78 DOUBLE7 e 23,15 SAY 'Esc abandona,8 e 23r4L say 'Ctrl-End Guarda el registro,9 e 5,10 SAY 'FASTURA 'cET XFAgt pIqrIrRE '99999'l-0 e 5,30 sAY ,CLIENTE 'cET XCLI PIeIURE '999'
1-1 e 7,LO SAy 'FECHA FASTURA 'cET XFECFL2 e 7,33 SAY 'FECHA PAGO 'cET XFECPl-3 e 9,1O SAY 'VENTA EXENTA 'cET XVENEX prgfUFE iL3 , 9 ,999 ,999 .99 '14 e Lt-,lo sAY 'VENTA GRAVABLE ' cET XVENGRjA;L4 PTCTURE'9,999,999.99'l-5 e l-3, L0 sAY ,VAL,OR rVA ' cET XrVA prCTttRE iL5 '999,999.99'L6 e 15rt_0 SAy 'RETENCION ' cET XRET PICT ngrn-l_6 + nggg,ggg.ggrlL7 e t-7r10 SAy 'DESCUENTO ' GET XDESC prCT ng,t.-L7 + nggg,ggg.ggrlL8 e 19,10 SAY 'VENDEDOR ' cET XVENDE prCrUREtl-8 ,99'L9 e 2L,LO SAY 'AFECTA VENTAS? 'cET XVENTA PICTIRE '!'20 READ2L IF XVENTA $trgsn22 T XVENTA=|rSIr23 ENDIF2 4 VAIFXVENEX+XVENGRA+XM-XRET-XDESC2526 IF READKEYO=1227 <----return to naster28 endif29 REPIACE FECHA_FAC WrTH XFECF,FECHA_PAG WrTH XFECp,;29 FACfl'RA WITH XFACT30 REPLACE CLIENTE WITH XCLI,VENTA_EXE I{ITH XVENEX,;30 VENTA-GRAV WITH XVENGRA3L REPLACE M WITH XM,VENDEDOR IÍITH XVENDE,VENIAS;3I. T{ITH XVENTA32 REPLACE VAIÉR WITH VAL ,RETENCION WITH -XRET,;32 DESCUENTO WTTH -XDESC33 RETT'RN3435
++ End of Procedure I{ODIFA(}íODIDOC)
24L
1 PROCEDI'RE I.IODINC23 SET CONSOI,E ON4 CLEAR5 e 2, O TO 4,79 DOUBLE6 e 3,L9 SAY IPANTALI,A DE I.ÍODIFICACION DE NOTAS] t6 + [ CREDTTO]7 g 2,0 TO L8,79 DOUBLE8 e 23,L5 SAY 'Esc abandona'9 e 23141. say tCtrl-End Guarda eI registrot
Lo e 7110 sAY 'FACTI'RA 'cET XFAer prqIURE '99999'l-1 e 7,28 SAy 'DOCUüENTO 'cET XDOC prgrtRE '99999'L2 e 9,1O SAY 'CLIENIE 'cET XCLI PICTURE '999'13 € l-1,,1,O SAY 'VENTA EXENTA 'cET XVEIÍEX prCTttRE i13 '9,999,999.99'L4 e 13,10 SAy 'VENTA GRAVABIJE ' cET XV'ENGRA;14 PICTURE'9,999,999.99'L5 e L5,10 sAY ,VAI0R M ' cET XrVA pICTttRE iL5 ' 999 ,999 .99 'L6 e 17110 SAY 'AFECTA VENTAS? 'cET XVENTA prgrURE i16 'l'1.7 READ18 VAIFXVENEX+XVENGRA+XM19 IF XVENTA $tt$"tr20 T XVEIü['A=rrSIrf21 ENDTF2223 IF READKEYO=1224 T CI¡SE DATABASES25 <----RETT'RN TO MASTER26 ENDIF2728 REPIACE FACTURA !ÍITH XFACT, CLIENTE WITH XCLI,;28 VENTA-EXE WITH -XVENEX29 REPLACE VENTA_GRAV WITH -XVENGRA, M WrTH -XrVA, ;29 VENTAS T{ITH XVENTA3 O REPI,ACE VAI¡R WITH -VAL3 ]. RETT'RN3233
++ End of Procedure ¡{ODfNC (UODIDOC)
242
1 PROCEDI'RE UODIND23 SET CONSOLE ON4 CLEAR5 e 2rO TO 4,79 DOUBLE6 e 3,L9 SAY IPANTALLA DE UODIFICACION DE NOTAS]'6 + [ DEBTTO]7 e 2r0 TO L8,79 DOUBLEI e 23115 SAY 'Esc abandona,9 e 23r4L say 'Ctrl-End Guarda el registro'
10 e 7,1O SAY 'FACTI'RA 'cET XFACI prgfURE '99999't-l. e 7,28 SAy 'DOgtntENTO 'cET XDOC prerURE '99999'L2 e 9,1O SAy 'CLTENTE 'cET XCLI prerURE '999'L3 e 11,10 SAY 'VENTA EXENTA 'cET )(V'ENEX PICTIRE il-3 , 9 ,999 r99g .gg 'L4 e l-3,1-0 SAY 'VENTA GRAVABLE ' cET XVENGRA;L4 PISTURE ' 9 ,999 ,999.99'15 g L5,l_0 sAY ,VAI¡R M ' cET XM pIentRE iL5 ' 999 t999 .99 '16 e L7,LO SAY 'AFECIA VENTAS? 'GET XVENTA PICTURE i16 '!'17 READl-8 VAIFXVENEX+XVENGRA+XM19 IF XVENTA $ttgsn20 T XVENTA-ISIr|2]. ENDIF2223 IF READKEYO=1224 T CI¡SE DATABASES25 <----RETURN TO I,fASTER26 ENDIF2728 REPIACE FACTURA I{ITH XFAet, CLIENTE I{ITH XCLI,;28 VENTA-EXE WITH XVENEX29 REPI¡ACE VENTA_GRAV WrTH XVENGRATTVA WrTH XIVA,;29 VENTAS WITH XIIENTA30 REPI,ACE VAI¡R I{ITH VAL31 RETTJRN323334
++ End of Procedure UODIND(!,ÍODIDOC) ++ DOC found
243
1 PROCEDI'RE T{ODIRC23 SET CONSOI,E ON4 CLEAR5 e 2,O TO 4,79 DOUBLE6 e 3,L9 SAY [pArflIALIrA DE IÍODTFTCACTON DE RECIBOS] ;6+[DECA,JA]7 e 2,O TO L8,79 DOUBLE8 e 23,15 SAY 'Esc abandonat9 e 23,4L say 'Ctrl-End Guarda eI registro,
L0 e 7,10 sAY 'FACTIRA 'cET XFAgr prgrURE '99999'LL e 7,28 SAY 'DOCInÍENTO 'cET XDOC prcfttRE '99999'L2 e 9,10 SAY 'CLTENTE 'cET XCLr prcrttRE '999'L3 e 11,10 SAY 'VAI¡R 'cET )ffAL PICIURE '9,999,'¡13 + 'ggg.ggt14 READ15 IF XVENTA Srrssrll-6 T XVEI¡IIA=!|SI||L7 ENDIF18L9 IF READKEY()=1220 T CI¡SE DATABASES2L <----RETURN TO I.IASTER22 ENDIF2324 REPT,ACE FACTURA WrTH XFAer, CLIENTE I{rTH XCLr,;24 VAI¡R WTTH -XVAL25 RETT'RN
++ End of Procedure UODIRC (l.fODfDOC) ++ DOC found
244
Figura 1-5: Arbol
I.fCARTERA---BORRAR
I ---BORRADOR---CIERRE---coNsuLTA
| ---cousAlDo| ---coNscLrEl---CONSEIIIPL| ---colwENDEr ---CONVENTA
---I{ODTFTCAr ---CAI,ÍBIAR
- - -IrlODI FA ( TIODI DOC )- - -l,IoDrNc ( lroDr Doc )---uoDrND (uoDrDoc)
r - - -Ir{ODIRC ( l.tODI DOC )---PENTRADA
---ENTRAFAC| ---conrnoll ( coNTRoL)r ---coNTRoL2 ( CONTROL)
---ENTRAI.ICr ---coNTRoLl ( CONTROL)
---ENTRANDr ---coNTRoLl ( CONTROL)
---ENTR,ARCr ---coNTRoLl ( CONTROL)
---REPORTES---SALIDA
jerarguico para el l,fódulo cartera
245
BORRAR
BORRADOR
Figura L6: Diagrama de Borrador, üóduto Cartera
Fig'ura 1-7:. Diagrama de Borrar, modulo Cartera
MCARTERA
I
I
vIt_
BORRAR
246
t_CN.fBIAR
r,rcARrERA I
vt_CTERRE
I
IIl_
t{oDrDocI{ODIFA
It_IIIODIDOCITIODINC
Figura L8: Diagrana de Cambiar ttódulo Cartera
Figura 19: Diagrama de cierre, l.fódulo Cartera
247
CONSULTA
Iv
l^^,,..,,*lI
coNsAlpo I
Figura 2O: Diagrana de Consaldo llódulo Cartera
CONSULTA
t_CONSCLIE
Figura 21-: Diagrama de Consclie, Itlódulo Cartera
CONSULTA
Figura 22: Diagrana de Consempl, Módulo Cartera
I
v
248
I,ÍCARTERA
t_t_CONSEUPL CO}{VENDE CONVENTA
Figura 23: Diagrama de Consulta üódulo Cartera
ENTRAFAC ENTRANC
ENTRATIID
TENTRARC
T
l-coutnor, I
I coNrRolr_
|
figura 24: Diagrama de Procediniento Controll,Cartera
MóduIo
249
ENTRAFAC
Il-I coNiRoL
I
I coNrRoL2
|
Figrura 25: DiagranaCartera
de Procediniento Control2, Módulo
CONSULTA
Figura 26: Diagrana de Convende, I{ódulo Cartera
CONSULTA
I
v
Figura 27: Diagrama de Conventa, l{ódulo Cartera
250
PENTRADA
I
t-------t__t_coNiRorllcou'inollcoNrRoLl
llcoNrnor,z I
t_ENTRAFAC
IIt_
CONTROLCONTROL],
Figura 28: Diagrama de Entrafac. l{ódulo de Cartera
PENTRADA
Figura 29: Diagrana de Entranc, l.fódulo Cartera
25L
PENTRADA
CONTROLl
Figura 30: Diagrama de Entrand, t{ódulo Cartera
PENTRADA
I
I
vIt_
ENTRJARC
I
I
v
t_I con'inol
I
I coNrRorl I
Figura 31: Diagrama Entrarc, l,tódulo de Cartera
252
I,TCARTERA
CTERRE
t_REPORTES
_l
t_SALIDA
Figura 32: Diagrama de Mcartera, Módulo Cartera
CAITIBIAR
PENTRADA I
IIt_
I.ÍODIDOCMODTFA
Figrura 33: DiagramaCartera
de Procedimiento l{odifa, }fódulo
253
IIÍCARTERA
Figrura 34: Diagrana de Modifica, lfódulo Cartera
CAII{BIAR
t_CAII{BIAR
_t_l,foDrDoc
t_!.ÍoDIDOC
ItfoDrNc I
I
v
Figura 35: Diagrana de Proced. I'Íodicnc nodulo Cartera
CAUBTAR
v
UODIND
Figura 36: Diagrama de Proc. llodind, Módulo Cartera
254
t_I r.roDiDoc
I
I r.foprRc I
figura 37: Diagrana de Proc. Modirc, l,[ódulo Cartera
CAIIIBIAR
I,fCARTERA
ENTRAND
t_r_--__l| "**" I
de Pentrada, l{ódulo
ENTRANC
l_l*n"
I
r_l_¡ ""**oo
-l
l';i------'-i |""r.'-l
Figura 38: Diagrama Cartera
255
UCARTERA
Figura 39: Diagrama de Reportes, l[ódulo de Cartera
I,TCARTERA
Figura 40: Diagrana de Salida, Módulo Cartera
256
CONCLI'STONES
4.1. EI contacto directo con el medio permitió observar
la necesidad sentida que existe a nivel del
microenpresario, de programas sencilloe que a Ia vez
suministren Ia información requerida de una manera clara
y accequible, que pernitan tanbién su adaptación a las
necesidades especfficas de Ia microempresa.
4.2. EI microempresario aI disponer de esta herramienta
y utilizarla, aprovechará su tiempo de la nejor manera
para dedicarse a la planeación estratégica. El tienpo que
antes gastaba en papeleo y cálculos para conocer la
tendencia y el comportamiento de su empresa lo nininizade tal manera qfue una vez obtenidas las cifrae puede
analizarlas más lúcidamente.
4.3. En Ia nedida que se avanzaba en eI trabajo se hacia
cada vez más fuerte la exigencia de orden de parte del
modelo de sistematización. Esto inplica que eI
microempresario deba tomar actitudes serias respecto alnanejo de sus documentos una vez inplantado este sistema
4.
257
en la microenpresa.
4.4. Los estudiantes del área financiera podrán realizarejercicios contables, que le pernitirán ver eI efecto de
ciertas transacciones en los fndices y razones
financieras. Asf el estudiante adquiere una visión más
real aI poder combinar Ia teorfa con la práctica.
4.5. Las aplicaciones aquf presentadas sirven de modelo
para que el nicroempresario las adopte en su totalidad o
Ias tome como base para construir una propia.
4.6. Los programas fuente están disponibles sin ningún
tipo de protección, de tal manera que se puedan copiar
para realizar las adaptacLones del caso.
258
GIOSARIO
AccEsO: I*létodo o procedimiento para buscar y recuperarlos datos almacenados en una posición de nenoriadeterminada.
BASE DE DATOS: Banco de datos donde se almacenaninformaciones organizadas en forna sencilla, parafacilitar su localización.
BYTE: Término para designar una secuencia fomada porocho dígitos binarios adyacentes. En términos deprogramación un byte representa Ia unidad básica deinformación.
CABEZA DE LECTURA/GRABACION: Conjunto de electroi-manesque leen la información contenida en los discosnagnéticos, transnitiéndola a continuación a launidad central.
CAITIPO: Conjunto de caracteree que forman parte de unregistro.
CANAL: Vfa de comunicación entre eI computador central ylos periféricos.
CARACTER: Letra, dlgito, signos ortográficos o cualquierotro sf¡nbolo que se utiliza para representar datos.
CARGAR: Acción de introducir datos o programas en Iamemoria principal del computador. AI conectar elcomputador la menoria está vacfa y, por tanto, siqueremos ejecutar un programa debemos transferirleprinero Ia inf ormación contenl-da en una memoriaexterna ( por ejenplo un disco ).
CLAVE: Parte de un registro formado por un grupo decaracteres, que se utiliza para identificarlo uordenar su contenido.
CPU ( Central Processing Unlt ): Unidad central deprocec¡o, parte del computador, compuesta por la
259
unidad de control y Ia unidad arLtnética. Su funciónconsiste básicamente en recibLr las lnstrucciones,decodificarlas, ejecutarlas y eJecutar todos y cadauno de los pasos del proceso
cuRsoR: Sfmbolo luminoso nóvil en forma de puntocuadrado o flecha que aparece en la pantalla paraindicar el lugar donde se situará el caráctersiguiente. Puede parpadear o permanecer estático,asf como desplazarse hacia la izquierda o la derechay hacia arriba o hacia abaJo con ayuda del teclado.
DATOS: Cualquier tipo de representación a Ia que se leasigna un significado: números, letras, signosortográficos y otros signos que representancondiciones, hechos, situaciones y valores.
dBASE IfI PLUS: Conjunto de órdenes que perniten accedera Ia base de datoE mediante el teclado. Puedemanejar lrooo millones de registros y hasta L28campos de registros, conteniendo cada registro hasta4rooo caracteres. Puede ordenar varios campos a lavez y es sumamente rápido.
DECODIFICAR: Descifrar las instrucciones codificadas.
DIAGRiAIIIA DE FLUJO: Representación gráfica del flujo o,en su caso, de la elaboración de los datos medianteuna serie de sfnbolos determinados.
DIscO, DISQUETE: DiEco flexible de material plástico y depequeño tamañor gu€ se introduce en Ia unidadcorrespondiente, donde gira de manera continua ocuando se solicl-ta infomación.Está protegido por una funda que sóIo deja libre laspartes indispensables para Ia lectura.
Dos ( Disk operating System ): Sietema operativoutilizado para garantizar la correcta transmisión deIos datos y su almacenaniento en discos.
ENTRADA: Con este térrnino Ee designa genéricamente latransmisión de datos desde la periferia hasta Iamemoria a través de canales correspondientes.
FORUATO: Disposición especffJ-ca de los datos.
GRABAR: Registrar datos en un dispositivo dealmacenamiento o en un soporte de datos.
HARDI{ARE: Equipo f lsico del computador, todos losaparatos y nateriales que Ee pueden tocar.
Univrrim furtonnmo dc (kcldütr
260
IUPRESORA: Dispositivo que reproduce sobre papel losdatos que constituyen la salLda del sistema deproceso.
UEUORIA DB TRABAJO: Es uno de los componentes másimportantes del computador, pues en ella sealmacenan los datos que Eirven de base a lasdistintas operaciones. Es como una estanterfa degran tamaño dividida en compartinientoa numerados enlos que se introduce y de loe que se sacan coc¡asQ[üe, según las necesLdadeE, pueden agruparse.
I,ÍEUORIA EXTERNA: Dispositivo capaz de almacenar Iainformación contenida en soportes externos. Porejenplo, unidades de cinta magnética, unidades dealmacenamiento en disco, etc.
IIIEI,IORIA PRINCIPAL: Lugar donde se almacenan los datos,instrucciones y progframas. Se le llama tambiénI{enoria Central o Memoria de Trabajo.
l[ENsA.tE: Conbinación ordenada de caracteres y sfmboloscon los que se expresa o, en su caso, se transniteinformación.
IIENU: Del nismo nodo que cuando vamos a un restauranteconsultamos la carta para saber cuáI es eI nenú deldfa, asi tanbién podenos pedir aI computador que nosenseñe eI nenrl, que en este contexto representa unresumen de todos los programas. EI usuario eligeentonces el proftrama que le interesa y detemina elorden de eJecución de las diversas partes que Io. componen.
PANEL: Lugar donde aparece el nenú, Iocalizado en laparte superior de Ia hoja de trabajo.
PANTALLA: Superficie de un tubo de rayoa catódicos,idénticos a Ia televisión, mediante Ia cual sevisualiza la infornación .
PERIFERIA: Concepto que engloba todas las máguinas ydispositivos que pueden conectarse aI conputador.
PROGRAI,IA: Conjunto de instrucciones escritas en unlenguaje de programación gü€, introducido en unconputador, Ie hacen desempeñar una tareadeterminada.
SALIDA: Una vez procesados, los datos puedenvisualizarse a través de una impresora o de unapantalla, o si no se necesitan innediatamente,almacenarse en un soporte, donde pueden buscarEe en
cualquier momento.
SOFTI{ARE: Conjunto de proÍtramas,procedimientos relacionados con Iafuncionaniento y manejo de un sistenadatos.
26L
métodos yexplotación,de proceso de
TNIDAD ARITTIETICA Y LOGICA: Sitio donde Ee alojan loscircuitos que ejecutan las operacionee aritnéticas.
UNIDAD CENTRAL: Centro donde Ee coordina y controla elcorrecto funcionamiento de las demás unidades. Estáintegrada por las unidades de control, artimética ylógica, de entrada y de salida, y Ia memoria detrabajo.
IINIDAD DE CONTROL: Encargada de vigilar que se cunplantodas y cada una de las instruccionee conforne aIorden establecido.
BIBLIOGRAFI,A
CARRABIS, Joseph David. Programacl-ón Avanzada en DbaseIII. Técnicas de Desarrollo de Aplicaciones. Bogotá:Red Editorial Iberoamericana, Andes Hda, , L997.
FTTNDACION CARVAJAL. Serie de Temas Adninistrativos paraPequeñas Enpresas. Análisis Financiero. Cali :Fundación Carvajal, 1985. 43 p.
. Serie de Temas Adninistrativos para PequeñasEmpresas. Principios de Adninistración. Cali :Fundación CarvajaI, 1985.
. Serie de Temas adninistrativos para pequeñasEmpresas. Principios de Contabilidad. CaIi :Fundación Carvajal, 1985. 64 p.
JONES, Edward. Aplique el Dbase flf PIus. Madrid:Osborne/lfcGraw-Hill, L9g7 .
r¡Tus DEvEr,oPl{ENT coRPoRATroN l.lanuar de r.otus l-23 versión2.O. Camrrridge USA.
sERRAli¡o, Javier. Fundamentos de Finanzaa. Bogotá : IrlccralrHiII Latinoamericana, 1998. 255 p.
Top Related