{A ver si esto te ayuda}
program vendedores;
uses
crt;
type
archivendedores = record
numero : integer;
apellnom : string[25];
cuil : string[25];
end;
tabventas = array[1..50] of record
numero : integer;
cantvendi : integer;
end;
archiventas = record
numero : integer;
apellnom : string[25];
cantvent : integer;
end;
var
arvf : file of archivendedores;
avtf : file of archiventas;
tabla : tabventas;
cont : integer;
dat1 : archivendedores;
dat2 : archiventas;
tec : char;
procedure guardavendedores(v : archivendedores);
begin
assign(arvf,'vendedor.dat');
{$I-} reset(arvf); {$I+} if ioresult <> 0 then
begin
rewrite(arvf);
seek(arvf,0);
write(arvf,v);
close(arvf);
end
else
begin
seek(arvf,filesize(arvf));
write(arvf,v);
close(arvf);
end;
end;
procedure guardaventas(vn : archiventas);
begin
assign(avtf,'ventas.dat');
{$I-} reset(avtf); {$I+} if ioresult <> 0 then
begin
rewrite(avtf);
seek(avtf,0);
write(avtf,vn);
close(avtf);
end
else
begin
seek(avtf,filesize(avtf));
write(avtf,vn);
close(avtf);
end;
end;
procedure tomadatos;
begin
clrscr;
writeln(' ***** Entrada Datos Vendedor *****'); writeln;
write(' Numero : '); readln(dat1.numero);
write(' Apellido Y Nombre : '); readln(dat1.apellnom);
write(' Cuil : '); readln(dat1.cuil);
dat2.numero := dat1.numero;
dat2.apellnom := dat1.apellnom;
guardavendedores(dat1);
write(' Ventas : '); readln(dat2.cantvent);
guardaventas(dat2);
end;
procedure cargaventas(var vt : tabventas);
var
s, i : integer;
carg : longint;
begin
assign(avtf,'ventas.dat');
{$I-} reset(avtf); {$I+} if ioresult <> 0 then
begin
exit;
end
else
begin
carg := filesize(avtf) - 1;
if carg > 49 then
carg := 49;
for i := 0 to carg do
begin
seek(avtf,i);
read(avtf,dat2);
vt[i + 1].numero := dat2.numero;
vt[i + 1].cantvendi := dat2.cantvent;
end;
close(avtf);
cont := integer(carg + 1);
end;
end;
procedure preseatatabla;
var
h : integer;
begin
for h := 1 to cont do
writeln(' ',tabla[h].numero,' ',tabla[h].cantvendi); writeln;
writeln(' Pulse Una Tecla'); readkey;
end;
begin
clrscr;
repeat
tomadatos;
writeln;
writeln(' Desewa Entrar Mas Datos [S/N]'); repeat
tec := upcase(readkey);
until tec in['S','N'];
until tec = 'N';
cargaventas(tabla);
preseatatabla;
end.
Crear cuenta
