---

IVA 3

A finales de los 1980 era mucho más entretenido programar rutinas en Sinclair BASIC para mover robots de Lego con la voz, o jueguecitos de marcianos en código máquina del Z80, o aventuras conversacionales en Forth... pero de vez en cuando tocaba programar aplicaciones en dBase para llevar el registro del IVA...

Creo que IVA 3 debió de ser mi primera aplicación «seria» en dBase III. Era finales de 1987. A comienzos de aquel año había tenido el primer contacto con dBase II (en máquinas MSX2 de Philips, como la VG-8235 y la NMS-8250, ambas excelentes computadoras en su época), y pocos meses después empecé a trabajar con dBase III en máquinas PC de IBM. Recuerdo que entonces se empezaba a hablar de Clarion como una posible alternativa a dBase para desarrollar aplicaciones de bases de datos...

Al final de los listados está el enlace para descargar todo el programa, con sus ficheros de formato de pantalla, sus bases de datos vacías y sus índices.

Código fuente

i3menu.prg

* IVA 3 i3menu.prg
* Copyright (C) 1987 Marcos Cruz (http://programandala.net)
* Licencia/License: http://programandala.net/license
* 1987-12-04
SET TALK OFF
SET HELP OFF
SET MENU OFF
CLEA
mfic="R"
DO WHIL .T.
USE
@ 0,70 SAY DATE()
?
TEXT
                   ====================================
                   =                                  =
                   =              I V A  3            =
                   =                                  =
                   ====================================
_______________________________________________________________________________

ENDT
? "                          FACTURAS "
IF mfic="R"
?? "RECIBIDAS"
ELSE
?? "EMITIDAS "
ENDI
TEXT
_______________________________________________________________________________

                             OPCIONES

                          A$adir Facturas
                        Hojear las facturas
                       Listado por impresora
                        Cambio de trimestre
                              Salir
ENDT
? "                      Facturas "
IF mfic="R"
?? "recibidas"
ELSE
?? "emitidas "
ENDI
mopc=" "
DO WHIL .NOT. mopc$"AHLCSF"
@ 19,0
mopc=" "
WAIT "Pulse la letra inicial de la opcion elegida " TO mopc
mopc=UPPER(mopc)
ENDD
DO CASE
CASE mopc="A"
DO i3anadir
CASE mopc="H"
DO i3hojear
CASE mopc="L"
DO i3listad
CASE mopc="C"
DO i3cambio
CASE mopc="S"
QUIT
CASE mopc="F"
DO CASE
CASE mfic="R"
mfic="E"
CASE mfic="E"
mfic="R"
ENDC
ENDC
ENDD

i3anadir.prg

* IVA 3 i3anadir.prg 
* Copyright (C) 1987 Marcos Cruz (http://programandala.net)
* Licencia/License: http://programandala.net/license
* 1987-12-04
CLEA
USE i3factx&mfic INDE i3factx&mfic
SET FORM TO i3anadx&mfic
APPE
RETU

i3hojear.prg

* IVA 3 i3hojear.prg
* Copyright (C) 1987 Marcos Cruz (http://programandala.net)
* Licencia/License: http://programandala.net/license
* 1987-12-04
CLEA
USE i3factx&mfic INDE i3factx&mfic
TEXT
Instrucciones
'''''''''''''
ENDT
GO BOTT
BROW
RETU

i3listad.prg

* IVA 3 i3listad.prg
* Copyright (C) 1987 Marcos Cruz (http://programandala.net)
* Licencia/License: http://programandala.net/license
* 1987-12-04
CLEA
USE i3factx&mfic INDE i3fact&mfic
REPO FORM i3infox&mfic TO PRIN
RETU

i3cambio.prg

* IVA 3 i3cambio.prg
* Copyright (C) 1987 Marcos Cruz (http://programandala.net)
* Licencia/License: http://programandala.net/license
* 1987-12-04
mopc=" "
DO WHIL .NOT. mopc$"SN"
CLEA
mopc=" "
WAIT "¿Cambio de trimestre? Responda S o N " TO mopc
mopc=UPPE(mopc)
ENDD
IF mopc="S"
RUN rename i3factxR.dbf i3factxR.dbB
RUN rename i3factxE.dbf i3factxE.dbB
RUN delete i3*.dbf
USE i3factxR.dbB
COPY STRU TO i3factxR
USE i3factxE.dbB
COPY STRU TO i3factxE
ENDI
RETU

Descargas

iva3.tar.gz (3.11 KiB)