Porque pasa de largo
Publicado por Martin (1 intervención) el 01/11/2016 11:41:53
Porqué pasa de alto cuando tiene que tomar DNI?? Esto viene de un CASE que llama a este procedimiento, DNI es tipo string..alguien sabe?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
PROCEDURE ALTA_CLIENTE;
begin
write ('Ingrese el DNI del cliente: '); readln (dni);
if (buscar(dni)=true) then writeln ('El cliente se encuentra en la base de datos.')
else begin
writeln ('El DNI no se encuentra, debe darlo de alta');
writeln ('Ingrese el nombre del cliente: ');readln (apellido);
seek(clien,filepos(clien));
cli.c_apellido:=apellido;
cli.c_dni:=dni;
write (clien,cli);
readkey;
ORDENO;
end;
Valora esta pregunta
0