Pascal/Turbo Pascal - PROGRAMA PASCAL SOBRE UNA PANADERIA

   
Vista:

PROGRAMA PASCAL SOBRE UNA PANADERIA

Publicado por lisbeth sdacosta25@yahoo.com (17 intervenciones) el 11/06/2015 01:45:51
buenas noches Por fa Ayuda sobre un programa:

Dicho Sistema Automatizado, debe cumplir con las siguientes pautas:

o Presentar un Menú Principal  con las opciones siguientes:
Materias Primas.
Recepción_Despacho de Materia Prima
Reportes.

a. Reporte    de Existencia de todas las Materias
Primas

b. Reporte Detallado de Movimientos de cada
Materia Prima (ordenado por Materia Prima
indicando: Entradas, Salidas y Existencias) para un
lapso de tiempo determinado.

c. Reporte Global de Movimientos de todas las
Materias Primas (Entradas, Salidas y Existencia) en
un lapso de tiempo determinado.

9 Salir del Sistema


El Menú de Mantenimiento de cada Archivo debe presentar las opciones
siguientes:
Incluir
Consultar
Modificar
Eliminar.
Reportes.

ƒ En la opción Incluir, se debe verificar si la Materia Prima  ya ha sido creada; en tal
caso aparecerá un mensaje que lo indique.
ƒ Mostrar por pantalla, cuando se consulte una Materia Prima, toda la información
referente a la misma.

ƒ Mostrar por pantalla, en la opción Modificar y en la opción Eliminar, un mensaje
de confirmación, donde el usuario ratifica la acción de modificar o eliminar datos
en el sistema.

ƒ Las opciones Consultar, Modificar y Eliminar, harán uso de los mismos datos
registrados en la opción Incluir
• Debe registrar, con la opción Incluir Materia Prima, los siguientes datos:
o Código de Materia Prima.
o Nombre de la Materia Prima.
o Descripción de la Materia Prima.
o Unidad (Kg., Tarro, Barra, etc.)
o Fecha de Creación.  

• Debe registrar, con la opción Recepción_Despacho de Materia Prima, los
siguientes datos que servirán para la actualización de la cantidad en existencia de
cada uno de los productos.
o Código de Materia Prima
o Tipo de Operación (E) para entradas de producto o (S) para salidas de producto.
o Código de Referencia de la Operación.
o Fecha de Entrada de Materia Prima.
o Fecha de Salida de Materia Prima.
o Cantidad de Entrada de Materia Prima.
o Cantidad de Salida de Materia Prima.
o Cantidad actualizada de Materia Prima en existencia

Cantidad Mínima sugerida como límite inferior en stock  
o Alerta de Escasez del Producto
NOTA: En el caso de que la Cantidad Mínima sugerida como límite inferior en
stock sea mayor a la cantidad actualizada de Materia Prima en Existencia ,
debe  ser colocado mensaje de alerta.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

PROGRAMA PASCAL SOBRE UNA PANADERIA

Publicado por ramon (2072 intervenciones) el 13/06/2015 14:07:34
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
{Mira esto a ver si es como lo quieres para poder continuar }
 
program panaderia;
 uses
    crt;
  const
     menu = 'Materias Primas, Recepcion_Despacho de Materia Prima, Reportes';
 type
    materia_prima = record
             Codigo : word;
             Nombre : string[80];
             Descripcion : string;
             Unidad : string[10];
             Fecha : string[10];
          end;
 
     recepcion = record
            Codigo : word;
         Fecha_ent : string[10];
         Fecha_sal : string[10];
      Cantidad_ent : integer;
      Cantidad_sal : integer;
      Cantidad_exi : integer;
      end;
 
   var
     mater : file of materia_prima;
     recep : file of recepcion;
     datomat : materia_prima;
     datorep :recepcion;
 
 
    procedure guareda_datos(cual : char);
    begin
       if cual = 'M' then
       begin
          assign(mater,'Materiap.dat');
       {$I-} reset(mater); {$I+}
       if ioresult <> 0 then
       begin
          rewrite(mater);
          seek(mater,0);
          write(mater,datomat);
          close(mater);
       end
     else
         begin
            seek(mater,filesize(mater));
            write(mater,datomat);
            close(mater);
         end;
       end;
       if cual = 'R' then
       begin
         assign(recep,'Recepcio.dat');
       {$I-} reset(recep); {$I+}
       if ioresult <> 0 then
       begin
          rewrite(recep);
          seek(recep,0);
          write(recep,datorep);
          close(recep);
       end
     else
         begin
            seek(recep,filesize(recep));
            write(recep,datorep);
            close(recep);
         end;
       end;
    end;
 
    procedure entrada_materia;
    var
       tt : char;
    begin
       clrscr;
       writeln('   **** Entradas Materia Primas ****');
       writeln;
       write('   Nombre      : ');readln(datomat.Nombre);
       write('   Descripcion : ');readln(datomat.Descripcion);
       write('   Unidad [Kg, Tarro, Barra, etc.] : ');readln(datomat.Unidad);
       write('   Fecha [dia/mes/ayo] : ');readln(datomat.Fecha);
       writeln;
       writeln('   Guardamos Los Datos [S/N]');
       repeat
           tt := upcase(readkey);
       until tt in['S','N'];
       if tt = 'S' then
       guareda_datos('M');
    end;
 
    procedure entrada_recepcion;
    var
      tt : char;
    begin
       clrscr;
       writeln('   **** Entradas Recepcion ****');
       writeln;
       write('  Codigo                  : ');readln(datorep.Codigo);
       write('  Fecha Entrada [D/M/AYO] : ');readln(datorep.Fecha_ent);
       write('  Fecha Salida  [D/M/AYO] : ');readln(datorep.Fecha_sal);
       write('  Cantidad Entrada entero : ');readln(datorep.Cantidad_ent);
       write('  Cantidad Salida  entero : ');readln(datorep.Cantidad_sal);
       datorep.Cantidad_exi := (datorep.Cantidad_ent - datorep.Cantidad_sal);
       writeln;
       writeln('   Guardamos Los Datos [S/N]');
       repeat
           tt := upcase(readkey);
       until tt in['S','N'];
       if tt = 'S' then
       guareda_datos('R');
    end;
 
 
 
 
  begin
     clrscr;
 
 
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

PROGRAMA PASCAL SOBRE UNA PANADERIA

Publicado por lisbeth sdacosta25@yahoo.com (17 intervenciones) el 15/06/2015 03:37:45
buenas noches ramón estuve revisando así es el programa que lleve los menús y todo lo que indica el trabajo. te lo agradeceria ya que soy estudiante de ing industrial en la una y no tengo conocimiento de este tipo de programa.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

PROGRAMA PASCAL SOBRE UNA PANADERIA

Publicado por ramon (2072 intervenciones) el 23/06/2015 22:53:38
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
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
{Mira si vamos bien }
 
program panaderia;
 uses
    crt;
  const
     menus = 'Materias Primas, Recepcion_Despacho de Materia Prima, Reportes';
 type
    materia_prima = record
             Codigo : word;
             Nombre : string[80];
             Descripcion : string;
             Unidad : string[10];
             Fecha : string[10];
          end;
 
     recepcion = record
            Codigo : word;
         Fecha_ent : string[10];
         Fecha_sal : string[10];
      Cantidad_ent : integer;
      Cantidad_sal : integer;
      Cantidad_exi : integer;
      end;
 
   var
     mater : file of materia_prima;
     recep : file of recepcion;
     datomat : materia_prima;
     datorep :recepcion;
 
 
    procedure guareda_datos(cual : char);
    begin
       if cual = 'M' then
       begin
          assign(mater,'Materiap.dat');
       {$I-} reset(mater); {$I+}
       if ioresult <> 0 then
       begin
          rewrite(mater);
          seek(mater,0);
          write(mater,datomat);
          close(mater);
       end
     else
         begin
            seek(mater,filesize(mater));
            write(mater,datomat);
            close(mater);
         end;
       end;
       if cual = 'R' then
       begin
         assign(recep,'Recepcio.dat');
       {$I-} reset(recep); {$I+}
       if ioresult <> 0 then
       begin
          rewrite(recep);
          seek(recep,0);
          write(recep,datorep);
          close(recep);
       end
     else
         begin
            seek(recep,filesize(recep));
            write(recep,datorep);
            close(recep);
         end;
       end;
    end;
 
    procedure entrada_materia;
    var
       tt : char;
    begin
       clrscr;
       writeln('   **** Entradas Materia Primas ****');
       writeln;
       write('   Nombre      : ');readln(datomat.Nombre);
       write('   Descripcion : ');readln(datomat.Descripcion);
       write('   Unidad [Kg, Tarro, Barra, etc.] : ');readln(datomat.Unidad);
       write('   Fecha [dia/mes/ayo] : ');readln(datomat.Fecha);
       writeln;
       writeln('   Guardamos Los Datos [S/N]');
       repeat
           tt := upcase(readkey);
       until tt in['S','N'];
       if tt = 'S' then
       guareda_datos('M');
    end;
 
    procedure entrada_recepcion;
    var
      tt : char;
    begin
       clrscr;
       writeln('   **** Entradas Recepcion ****');
       writeln;
       write('  Codigo                  : ');readln(datorep.Codigo);
       write('  Fecha Entrada [D/M/AYO] : ');readln(datorep.Fecha_ent);
       write('  Fecha Salida  [D/M/AYO] : ');readln(datorep.Fecha_sal);
       write('  Cantidad Entrada entero : ');readln(datorep.Cantidad_ent);
       write('  Cantidad Salida  entero : ');readln(datorep.Cantidad_sal);
       datorep.Cantidad_exi := (datorep.Cantidad_ent - datorep.Cantidad_sal);
       writeln;
       writeln('   Guardamos Los Datos [S/N]');
       repeat
           tt := upcase(readkey);
       until tt in['S','N'];
       if tt = 'S' then
       guareda_datos('R');
    end;
 
 
   procedure salidas_recepcion;
   var
      codi : word;
      cont : longint;
      enco : boolean;
      tt : char;
   begin
       clrscr;
       writeln;
       write('   Entre Codigo : ');
       readln(codi);
       assign(recep,'Recepcio.dat');
       {$I-} reset(recep); {$I+}
       if ioresult <> 0 then
       begin
           writeln('   Error Archivo Da¤ado o No Existe Pulse Una Tecla');
           readkey;
       end
    else
        begin
          enco := false;
          for cont := 0 to filesize(recep) - 1 do
          begin
            seek(recep,cont);
            read(recep,datorep);
            if datorep.Codigo = codi then
            begin
              enco := true;
              break;
            end;
          end;
          if enco = true then
          begin
             write('  Fecha Salida  [D/M/AYO] : ');readln(datorep.Fecha_sal);
             write('  Cantidad Salida  entero : ');readln(datorep.Cantidad_sal);
             datorep.Cantidad_exi := (datorep.Cantidad_ent - datorep.Cantidad_sal);
             writeln;
             writeln('   Guardamos Los Datos [S/N]');
             repeat
                tt := upcase(readkey);
             until tt in['S','N'];
             if tt = 'S' then
             seek(recep,cont);
             write(recep,datorep);
             close(recep);
          end
      else
          begin
            writeln('   Codigo No Encontrado Pulse Una Tecla');
            readkey;
          end;
      end;
    end;
 
   procedure reporte_materia_primas;
   var
      tec : char;
      cont : longint;
   begin
       assign(mater,'Materiap.dat');
       {$I-} reset(mater); {$I+}
       if ioresult <> 0 then
       begin
         writeln('   Error Archivo Da¤ado o No Existe Pulse Una Tecla');
         readkey;
       end
    else
       begin
          clrscr;
          cont := 0;
        repeat
            seek(mater,cont);
            read(mater,datomat);
            writeln(datorep.Codigo);
            writeln(datorep.Fecha_ent);
            writeln(datorep.Fecha_sal);
            writeln(datorep.Cantidad_ent);
            writeln(datorep.Cantidad_sal);
            writeln(datorep.Cantidad_exi);
            writeln;
            writeln('  Ver Mas Tecla [',chr(25),'][',chr(24),'] Salir [ESC]');
            tec := readkey;
            if tec = #80 then
            begin
            cont := cont + 1;
            if cont > filesize(mater) - 1 then
            cont := filesize(mater);
            end;
            if tec = #72 then
            begin
            cont := cont - 1;
            if cont = 0 then
            cont := 0;
            end;
            clrscr;
        until tec = #27;
        close(mater);
       end;
   end;
 
   procedure report_recepcion;
   var
      tc : char;
      cont : longint;
     begin
         assign(recep,'Recepcio.dat');
       {$I-} reset(recep); {$I+}
       if ioresult <> 0 then
       begin
           writeln('   Error Archivo Da¤ado o No Existe Pulse Una Tecla');
           readkey;
       end
    else
        begin
          cont := 0;
        repeat
             seek(recep,cont);
             read(recep,datorep);
             writeln(datomat.Nombre);
             writeln(datomat.Descripcion);
             writeln(datomat.Unidad);
             writeln(datomat.Fecha);
             writeln;
             writeln('  Ver Mas Tecla [',chr(25),'][',chr(24),'] Salir [ESC]');
             tc := readkey;
            if tc = #80 then
            begin
            cont := cont + 1;
            if cont > filesize(recep) - 1 then
            cont := filesize(recep);
            end;
            if tc = #72 then
            begin
            cont := cont - 1;
            if cont = 0 then
            cont := 0;
            end;
            clrscr;
        until tc = #27;
        close(recep);
        end;
    end;
 
   procedure menu;
   var
      tp, tecla : char;
      sam, salir : boolean;
    begin
        salir := false;
    repeat
       clrscr;
       writeln;
       writeln('     ****** Menu Jeneral ******');
       writeln;
       writeln('  1 =  Materias Primas ');
       writeln('  2 =  Recepcion_Despacho de Materia Prima');
       writeln('  3 =  Salida De Materiales');
       writeln('  4 =  Reportes');
       writeln('  5 =  Salir');
       writeln;
       writeln('  <<<<< Elija Opcion >>>>>');
       repeat
          tecla := readkey;
       until tecla in['1','2','3','4','5'];
       clrscr;
    case tecla of
  '1' : entrada_materia;
  '2' : entrada_recepcion;
  '3' : salidas_recepcion;
  '4' : begin
          sam := false;
          repeat
          clrscr;
          writeln;
          writeln('     ****** Menu Reporte ******');
          writeln;
          writeln('  M = ateria Prima');
          writeln('  R = ecepcion');
          writeln('  S = alir');
          writeln;
          writeln('  Elija Opcion');
        repeat
          tp := upcase(readkey);
        until tp in['M','R','S'];
     case tp of
  'M' : reporte_materia_primas;
  'R' : report_recepcion;
  'S' : sam := true;
      end;
      until sam = true;
        end;
  '5' : salir := true;
    end;
  until salir = true;
    end;
 
 
 
 
  begin
     clrscr;
     menu;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

PROGRAMA PASCAL SOBRE UNA PANADERIA

Publicado por carol (17 intervenciones) el 29/06/2015 21:07:28
buenas tardes ramon estuve revisando el programa y veo que el menu no es igual.. menu general debe ser incluir consultar modificar eliminar y reportes. si te fijas bien en las especificaciones del trabajo y disculpa.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

PROGRAMA PASCAL SOBRE UNA PANADERIA

Publicado por carol sdacosta25@yahoo.com (17 intervenciones) el 18/07/2015 03:01:57
hola buenas noches ramon y disculpa la profesora reviso y falta el menu de mantenimiento si me puedes ayudar.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

PROGRAMA PASCAL SOBRE UNA PANADERIA

Publicado por crisbelt guerra (4 intervenciones) el 23/06/2015 01:08:25
hola amigo ramon estoy interesada en el mismo trabajo como hacemos para que me lo envies completo por favor.. y si me lo puedes eniar en pseudocodigo para corregir el que hice que estoy confundida
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

PROGRAMA PASCAL SOBRE UNA PANADERIA

Publicado por daniel (1 intervención) el 28/06/2015 15:19:11
porfa me pueden ayudar ,enviandome el codigo fuente?
sefortm@gmail.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

PROGRAMA PASCAL SOBRE UNA PANADERIA

Publicado por ramon (2072 intervenciones) el 29/06/2015 01:14:15
Solo tines que marcarlo copiarlo y pegarlo en el bloc de notas y lo guardas por ejemplo : panaderi.pas
no teniendo mas de esas letras.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

PROGRAMA PASCAL SOBRE UNA PANADERIA

Publicado por carol sdacosta25@yahoo.com (17 intervenciones) el 04/07/2015 02:56:22
hola buenas noches ramon disculpa mira ya el programa me corre pero veo un detalle con el menu de mantenimiento la profesora te agradezco que me ayude que tengo que entregarlos mas tardar el 15 de este mes.. me falt hacer el analisis.. gracias y disculpa
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

PROGRAMA PASCAL SOBRE UNA PANADERIA

Publicado por Ibrahi, ibrahimmjmh@gmail.com (2 intervenciones) el 12/07/2015 03:24:53
ramon muchisimas gracias por tu aporte, disculpa la pregunta, eres de Venezuela? me gustaria pagarte una pequeña asesoria, mi correo es ibrahimmjmh@gmail.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

PROGRAMA PASCAL SOBRE UNA PANADERIA

Publicado por Ibrahi, ibrahimmjmh@gmail.com (2 intervenciones) el 12/07/2015 03:36:41
ramon muchisimas gracias por tu aporte, disculpa la pregunta, eres de Venezuela? me gustaria pagarte una pequeña asesoria, mi correo es ibrahimmjmh@gmail.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

PROGRAMA PASCAL SOBRE UNA PANADERIA

Publicado por crisbelt (4 intervenciones) el 16/07/2015 20:23:56
hola amigo tengo unas dudas que me gustaria me aclararas xfa en el programa colocaste unas funciones que no entiendo son estas x favor ayudame (crt, word, cual, reset, {si-}, {si+}, ioresult, filesize, tt, upcase. x fa esperare respuesta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

PROGRAMA PASCAL SOBRE UNA PANADERIA

Publicado por ramon (3 intervenciones) el 18/07/2015 13:25:55
crt, word, cual, reset, {si-}, {si+}, ioresult, filesize, tt, upcase.

crt = Unidad de pascal para manejo de pantalla,
word = Es untimo numerico como lo son ybteger o real y otros,
reset = Para la avertura de archivos y {si-}, {si+} permiten manejar los errores en caso de tenerlos
a la hora de trabajar con archivos,
ioresult = Informa si tenia error ono 0 no error otro valor error,
filesize = Informa del tamaño del archivo para poder segir entrando registros o para sacarlos sin que nos
retorne un error por querer leer mas registros de los que hay,
tt = Es una variable normal sin mas,
upcase = Combierte las letras a mallusculas hojo solo un caracter no una cadena,

Espero estas aclaraciones te sirvan ,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

PROGRAMA PASCAL SOBRE UNA PANADERIA

Publicado por Kevin (2 intervenciones) el 28/01/2016 16:29:51
Disculpa Ramon, tengo un problema parecido pero con otras variables, me podrias ayudar, la formaulacion es la siguiente:

ESPECIFICACIONES:

La agencia de viajes “TOURSVEN” no escapa e esta situación, por lo que se
ha dado a la tarea de automatizar el proceso de venta de boletos, con el fin de
llevar el control de clientes que puedan y deseen viajar al exterior, para ello se
cuenta con la siguiente información:

- Número de pasaporte
- Fecha de expedición del pasaporte
- Origen del pasaporte:
- V = Venezolano
- E = Extranjero
- Fecha de expedición del certificado de vacuna
- Fecha de expedición de la declaración de impuesto. Si el pasaporte fue
expedido en Venezuela caducará al año, en caso contrario su duración es
de dos años. El certificado de vacuna y la declaración de impuesto son
válidos por un año.


Para la automatización del proceso de ventas de boletos se debe considerar la
siguiente información, donde se detalla el registro con las características de
cada cliente, la longitud y tipo (numérico y alfanumérico) de sus campos:

INFORMACIÓN LONGITUD TIPO
Apellidos y nombre 60 X
Número de pasaporte 10 N
Fecha de expedición 8 N
Origen del pasaporte 1 X
Fecha de certificado-vacuna 8 N
Fecha de declaración-impuesto 8 N

Con base en lo planteado, diseñe un programa en Pascal que, haciendo uso de
Arreglos (vectores y/o matrices), permita realizar lo siguiente:
ƒ Presentar un menú de mantenimiento con las opciones de Incluir,
Modificar, Eliminar, Reporte y Salida.
ƒ Validar los datos en línea, es decir, en el momento que se introduzca el
valor del campo debe ser validado.
ƒ Ingresar por pantalla los datos correspondientes a los clientes
ƒ Ordenar el registro de cliente por el Número de Pasaporte.
ƒ Procesar la información dada de tal manera que chequee si los recaudos
están vigentes, en caso contrario se debe imprimir además de los datos
del cliente, el mensaje “RECAUDOS NO VIGENTES”.

ƒ Generar un reporte impreso que presente la siguiente información
- Cuantos clientes tienen pasaporte Venezolano
- Cuantos clientes tienen pasaporte Extranjero
- Cuantos clientes tienen vencido el certificado de vacunas
- Cuantos clientes tienen vencido la declaración de Impuesto
- Cuantos clientes tienen los recaudos vigentes.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar