[ Foro de Pascal ]

ERROR PASCAL

30-Jul-2023 05:39
Invitado (MARIBO)
1 Respuestas

Hola soy bastante nuevo en esto... tengo que presentar un trabajo para la facu pero a la hora de compilar me sale el siguiente error: 'Can't find unit(y el nombre que le puse a program)' Por, ejemplo si mi programa es: NEGOCIO;
Aqui les dejo el codigo fuente:

{PROGRAMA NEGOCIO DE VENTAS}
{REALIZADO POR MANUEL RIVERO}

program NEGOCIO;

uses negocio;
var
nombre,direccion,telefononegocio,registrofiscal,telefonocontacto,mr:string;
negociodata: datos;
r:char;
negociodata.nombre,negociodata.direccion,negociodata.telefononegocio,negociodata.registrofiscal,negociodata.telefonocontacto,negocio:string;

begin
clrscr;
repeat
writeln('BIENVENIDO AL PROGRAMA DE NEGOCIOS DE VENTAS');
writeln();
writeln('1.- AGREGAR DATOS DEL NEGOCIO');
writeln();
writeln('2.- EDITAR DATOS DEL NEGOCIO');
writeln();
writeln('3.- AGREGAR NUEVOS CLIENTES');
writeln();
writeln('4.- EDITAR DATOS DE LOS CLIENTES');
writeln();
writeln('5.- LISTA DE CLIENTES REGISTRADOS');
writeln();
writeln('6.- INVENTARIO DE MERCANCIA');
writeln();
writeln('7.- EDITAR INVENTARIO DE MERCANCIA');
writeln();
writeln('8.- SISTEMA DE FACTURACION');
writeln();
readln(menu);
clrscr;

procedure agregardatos();
if menu=1 then
begin
       clrscr;
       writeln('AGREGAR DATOS DEL NEGOCIO');
       writeln();
       writeln('NOMBRE DEL NEGOCIO:                                     ');
       readln(nombre);
       writeln('DIRECCION DEL NEGOCIO:                                  ');
       readln(direccion);
       writeln('TELEFONO DEL NEGOCIO:                                   ');
       readln(telefononegocio);
       writeln('INGRESE REGISTRO FISCAL:                                ');
       readln(registrofiscal);
       writeln('INGRESE TELEFONO DE CONTACTO:                           ');
       readln(telefonocontacto);
clrscr;

       writeln('INFORMACION DE DATOS DEL NEGOCIO');
       writeln();
       writeln('NOMBRE DEL NEGOCIO:',''nombre);
       writeln('DIRECCION DEL NEGOCIO:',''direccion);
       writeln('TELEFONO DEL NEGOCIO:',''telefononegocio);
       writeln('REGISTRO FISCAL:',''registrofiscal);
       writeln('TELEFONO DE CONTACTO:',''telefonocontacto);
       readln(mr);
clrscr;
readln;
end;

procedure editarnegocio();
if menu=2 then
begin
clrscr;
       writeln(' EDITAR DATOS DEL NEGOCIO');
       writeln();

repeat

       writeln('1.- EDITAR NOMBRE DEL NEGOCIO');
       writeln();
       writeln('2.- EDITAR DIRECCION DEL NEGOCIO');
       writeln();
       writeln('3.- EDITAR TELEFONO DEL NEGOCIO');
       writeln();
       writeln('4.- EDITAR REGISTRO FISCAL DEL NEGOCIO');
       writeln();
       writeln('5.- EDITAR NUMERO DE TELEFONO DEL CONTACTO');
       writeln();
       write('SELECCIONE SU OPCION POR FAVOR: ');
       readln(opcion);
       writeln();

       case opcion of
'1': begin
        write('INGRESE EL NUEVO NOMBRE DEL NEGOCIO:                     ');
        readln(negociodata.nombre);
        writeln('NOMBRE DEL NEGOCIO ACTUALIZADO.');
        writeln();
        end;

'2': begin
        write('INGRESE LA NUEVA DIRECCION DEL NEGOCIO:                  ');
        readln(negociodata.direccion);
        writeln('DIRECCION ACTUALIZADA DEL NEGOCIO: ');
        writeln();
        end;

'3': begin
        write('INGRESE EL NUEVO TELEFONO DEL NEGOCIO:                   ');
        readln(negociodata.telefono);
        writeln('NUMERO DEL TELEFONO ACTUALIZADO: ');
        writeln();
        end;

'4' : begin
         write('INGRESE SU NUEVO NUMERO DE REGISTRO FISCAL:             ');
         readln(negociodata.registrofiscal);
         writeln('NUMERO DE REGISTRO FISCAL ACTUALIZADO: ');
         writeln();
         end;

'5' : begin
         write('INGRESE SU NUEVO NUMERO DE CONTACTO PERSONAL:           ');
         readln(negociodata.telefonocontacto);
         writeln('NUMERO DE TELEFONODE CONTACTO PERSONAL ACTUALIZADO: ');
         writeln();
         end;

'6' : writeln('REGRESAR AL MENU PRINCIPAL......');

else begin
        writeln('SU OPCION NO ES VALIDA....INTENTE DE NUEVO');
        writeln();
        end;
end;
until opcion= '6';
end;

procedure agregarclientes();
if menu= 3 then
begin
       writeln('AGREGAR NUEVOS CLIENTES');
       writeln();
       writeln('NOMBRE DEL CLIENTE');
       readln(nombre);
       writeln('DIRECCION DEL CLIENTE:                                  ');
       readln(direccion);
       writeln('TELEFONO DE CONTACTO:                                   ');
       readln(telefonocontacto);
       writeln('INGRESE REGISTRO FISCAL DEL CLIENTE:                    ');
       readln(registrofiscal);
clrscr;

       writeln('INFORMACION DE DATOS DEL CLIENTE');
       writeln();
       writeln('NOMBRE DEL CLIENTE:',''nombre);
       writeln('DIRECCION DEL CLIENTE:',''direccion);
       writeln('TELEFONO DE CONTACTO DEL CLIENTE:',''telefonocontacto);
       writeln('REGISTRO FISCAL DEL CLIENTE:',''registrofiscal);
       readln(mr);


06-Aug-2023 09:58
Nacho Cabanes (+83)

Te sobra la segunda línea, el "uses negocio;"






Si ya eres usuario del sistema, puedes contestar desde tu cuenta y así ganar prestigio.

Si sólo eres un visitante, puedes optar por...