Globales.bas, Módulo de definición de la estructura de los archivos ASCII planos y de las variables globales
| Globales.bas |
| Type configuracion ________nombre As String * 30 ________variables As String * 3 ________varrep1 As String * 10 ________varrep2 As String * 10 ________Label1 As String * 25 ________Label2 As String * 25 ________Label3 As String * 25 ________Label4 As String * 25 ________Label5 As String * 25 ________Label6 As String * 25 ________Label7 As String * 25 ________Label8 As String * 25 ________Label9 As String * 25 ________Label10 As String * 25 ________comb11 As String * 30 ________comb12 As String * 30 ________comb13 As String * 30 ________comb21 As String * 30 ________comb22 As String * 30 ________comb23 As String * 30 ________comb31 As String * 30 ________comb32 As String * 30 ________comb33 As String * 30 ________comb41 As String * 30 ________comb42 As String * 30 ________comb43 As String * 30 ________var1 As String * 8 ________var2 As String * 8 ________var3 As String * 8 ________var4 As String * 8 ________var5 As String * 8 ________var6 As String * 8 ________var7 As String * 8 ________var8 As String * 8 ________var9 As String * 8 ________var10 As String * 8 ________ftribunal As String * 1 ________fciudad As String * 1 ________fjuez As String * 1 ________fsecretario As String * 1 End Type Type historial ________fecha As String * 10 ________rol As String * 15 ________documento As String * 15 ________movimiento As String * 35 ________caratula As String * 30 End Type Type datosfijos ________juez As String * 35 ________secretario As String * 35 ________tribunal As String * 20 ________ciudad As String * 20 ________actuario As String * 20 ________password As String * 15 End Type Global conf As configuracion, histo As historial, fij As datosfijos Global posicion, plantilla Global Const arhisto = "C:\mis documentos\historial.dat", archconf = "C:\mis documentos\confi.dat" Global Const arfijo = "c:\mis documentos\datfij.dat", largoC = 800, largof = 200 |