-
Notifications
You must be signed in to change notification settings - Fork 0
/
GES031.PRG
124 lines (113 loc) · 4.13 KB
/
GES031.PRG
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
* * * * * * * * * * *
* Programa .........: Gestion para Talleres de Lacado v1.00
* Subprograma ......: Creacion de Ficheros de Datos.
* Programador ......: Fco. Javier Perez Vidal.
* * * * * *
* CrearDatos() : Funcion general para la creacion de las bases de datos.
* CrearPro() : Funcion para crear Proveedores.
* CrearFam() : Funcion para crear Familias.
* CrearArt() : Funcion para crear Articulos.
* CrearCli() : Funcion para crear Clientes.
* * * * *
MEMVAR cCNormal, cCMenus
//
FUNCTION CrearDatos()
LOCAL nMenu := 1
LOCAL cPantalla := SAVESCREEN( 6,13,22,67 )
LOCAL cPassword := SPACE( 20 )
LOCAL GetList := {}
LOCAL cPantAcceso := ""
// Proceso utilizado para pedir una clave de acceso a fin de provenir usos indebidos.
cPantAcceso := SAVESCREEN( 7,20,16,60 )
@ 7,20 CLEAR TO 16,60
CajaTitulo( 7,20,16,60,2," ACCESO RESTRINGIDO ","" )
@ 10,25 SAY "INTRODUZCA CLAVE DE ACCESO....:"
@ 13,30 GET cPassword COLOR "B/B"
READ
RESTSCREEN( 7,20,16,60,cPantAcceso )
IF !( cPassword == "JAVIER " )
ALERT( "; A T E N C I O N !!!;;PASSWORD ERRONEO;PROCESO NO AUTORIZADO" )
ELSE
// Proceso utilizado para crear los ficheros. Se filtra anteriormente para no borrar datos.
DO WHILE .T.
CajaTitulo( 6,13,22,67,2," CREACION DE FICHEROS DE DATOS ", "" )
@ 7,15 PROMPT " 1) Creacion de Proveedores "
@ 8,15 PROMPT " 2) Creacion de Familias "
@ 9,15 PROMPT " 3) Creacion de Articulos "
@ 10,15 PROMPT " 4) Creacion de Clientes "
@ 11,15 PROMPT " 5) Creacion de TODOS los Ficheros "
MENU TO nMenu
DO CASE
CASE nMenu == 1
CrearPro()
CASE nMenu == 2
CrearFam()
CASE nMenu == 3
CrearArt()
CASE nMenu == 4
CrearCli()
CASE nMenu == 5
CrearPro()
CrearFam()
CrearArt()
CrearCli()
ENDCASE
RESTSCREEN( 6,13,22,67,cPantalla )
RETURN NIL
ENDDO
ENDIF
RETURN NIL
//
STATIC FUNCTION CrearPro()
LOCAL aFProveedo :={}
aadd(aFProveedo,{"CODIGO","N",3,0})
aadd(aFProveedo,{"NOMBRE","C",30,0})
aadd(aFProveedo,{"DIRECCION","C",30,0})
aadd(aFProveedo,{"CODPOSTAL","C",5,0})
aadd(aFProveedo,{"POBLACION","C",25,0})
aadd(aFProveedo,{"PROVINCIA","C",25,0})
aadd(aFProveedo,{"TELEFONO","C",15,0})
aadd(aFProveedo,{"FAX","C",15,0})
aadd(aFProveedo,{"NIFCIF","C",10,0})
aadd(aFProveedo,{"CONTACTO","C",30,0})
aadd(aFProveedo,{"ACUCOMPRAS","N",10,2})
*
DBCREATE( "DATOS\PROVEEDO", aFProveedo )
RETURN NIL
//
STATIC FUNCTION CrearFam()
LOCAL aFFamilias := {}
aadd(aFFamilias,{"CODIGO","N",2,0})
aadd(aFFamilias,{"NOMBRE","C",30,0})
*
DBCREATE( "DATOS\FAMILIAS", aFFamilias )
RETURN NIL
//
STATIC FUNCTION CrearArt()
LOCAL aFArticu := {}
aadd(aFArticu,{"CODIGO","N",5,0})
aadd(aFArticu,{"NOMBRE","C",40,0})
aadd(aFArticu,{"FAMILIA","N",2,0})
aadd(aFArticu,{"PROVEEDOR","N",3,0})
aadd(aFArticu,{"PTSCOSTE","N",8,2})
aadd(aFArticu,{"PTSVENTA","N",8,2})
*
DBCREATE( "DATOS\ARTICU", aFArticu )
RETURN NIL
//
STATIC FUNCTION CrearCli()
LOCAL aFClientes := {}
aadd(aFClientes,{"CODIGO","N",5,0})
aadd(aFClientes,{"NOMBRE","C",30,0})
aadd(aFClientes,{"DIRECCION","C",30,0})
aadd(aFClientes,{"CODPOSTAL","C",5,0})
aadd(aFClientes,{"POBLACION","C",25,0})
aadd(aFClientes,{"PROVINCIA","C",25,0})
aadd(aFClientes,{"TELEFONO","C",15,0})
aadd(aFClientes,{"FAX","C",15,0})
aadd(aFClientes,{"NIFCIF","C",10,0})
aadd(aFClientes,{"CONTACTO","C",30,0})
aadd(aFClientes,{"ACUVENTAS","N",10,2})
*
DBCREATE( "DATOS\CLIENTES", aFClientes )
RETURN NIL