Pascal/Turbo Pascal - Registro de ventas

{Por la cantidad de datos te lo paso como punteros espero te sirva}

 program proyecto;

  uses

     crt, dos;

  type

    pregcli = ^registrocliente;

    registrocliente = record

           Cedula : longint;

           Nombre : string;

         Telefono : longint;

            Movil : longint;

             Sexo : string[8];

        Direccion : string;

          Credito : char;

    Monto_Credito : real;

    Cod_T_Cliente : longint;

 Nombre_T_Cliente : string;

              sig : pregcli;

          end;

    pproduc = ^regproducto;

    regproducto = record

          Codigo_Articulo : longint;

          Nombre_Articulo : string;

     Descripcion_Articulo : string;

          Precio_Articulo : real;

          sigp : pproduc;

         end;

     regisarticulo = record

         Cantidad_Articulo : integer;

           Codigo_Articulo : longint;

           Nombre_Articulo : string;

           Precio_unitario : real;

              Precio_total : real;

            end;

     pdidocli = ^pedidocliente;

     pedidocliente = record

            Codigo_Cliente : longint;

            Nombre_Cliente : string;

                     Fecha : string[10];

                      hora : string[5];

                     artic : array[1..5] of regisarticulo;

                     Total : real;

                       sge : pdidocli;

                   end;

     pretor = ^regretorno;

     regretorno = record

                  Codigo_Cliente : longint;

                  Nombre_Cliente : string;

           Fecha_Compra_Articulo : string[10];

                           Fecha : string[10];

                            Hora : string[5];

                 Codigo_Articulo : longint;

                 Nombre_Articulo : string;

                  Motivo_Retorno : string;

                             arg : pretor;

              end;

  var

    cliente : registrocliente;

    actu, ante, prim : pregcli;

    act, ant, pri : pproduc;

    produc : regproducto;

    ac, an, pr : pdidocli;

    pedod : pedidocliente;

    rac, ran, rpr : pretor;

    reto : regretorno;

  function fechasistema : string;

  var

    an, me, di, dis : Word;

    elna : string[4];

    elme, eldi : string[2];

    begin

       GetDate(an,me,di,dis);

       str(an,elna);

       str(me, elme);

       str(di, eldi);

       fechasistema := eldi + '/' + elme + '/' + elna;

    end;

   function poncero(w : word) : string;

   var

      s : string;

    begin

      str(w:0,s);

      if length(s) = 1 then

       s := '0' + s;

      poncero := s;

    end;

   function horasistema : string;

   var

     ho, mi, se, dec : word;

     laho, elmi : string[2];

    begin

       gettime(ho,mi,se,dec);

       laho := poncero(ho);

       elmi := poncero(mi);

       horasistema := laho + ':' + elmi;

    end;

  procedure asigna_retorno(rto : regretorno);

  begin

     if rpr <> nil then

     begin

        new(rac);

        rac^ := rto;

        rpr := rac;

        rac^.arg := nil;

     end

  else

      begin

        ran := rac;

        new(rac);

        rac^ := rto;

        ran^.arg := rac;

        rac^.arg := nil;

      end;

  end;

  procedure entrada_retorno;

  var

    t : char;

  begin

     clrscr;

     gotoxy(22,2);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ');

     gotoxy(22,3);write('³    **** Entrada De Retorno ****    ³Þ');

     gotoxy(22,4);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');

     gotoxy(22,5);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');

     gotoxy(12,7);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ');

     gotoxy(12,8);write('³  Codigo Cliente         :                            ³Þ');

     gotoxy(12,9);write('³  Nombre Cliente         :                            ³Þ');

    gotoxy(12,10);write('³  Fecha Compra Arcticulo :                            ³Þ');

    gotoxy(12,11);write('³  Fecha                  :                            ³Þ');

    gotoxy(12,12);write('³  Hora                   :                            ³Þ');

    gotoxy(12,13);write('³  Codigo Articulo        :                            ³Þ');

    gotoxy(12,14);write('³  Nombre Articulo        :                            ³Þ');

    gotoxy(12,15);write('³  Motivo Retorno         :                            ³Þ');

    gotoxy(12,16);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');

    gotoxy(12,17);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');

    with reto do

    begin

       gotoxy(40,8);readln(Codigo_Cliente);

       gotoxy(40,9);readln(Nombre_Cliente);

       gotoxy(40,10);readln(Fecha_Compra_Articulo);

       Fecha := fechasistema;

       gotoxy(40,11);write(fecha);

       Hora := horasistema;

       gotoxy(40,12);write(hora);

       gotoxy(40,13);readln(Codigo_Articulo);

       gotoxy(40,14);readln(Nombre_Articulo);

       gotoxy(40,15);readln(Motivo_Retorno);

    end;

     gotoxy(10,18);write('** Datos Correctos [S/N] **');

     repeat

        t := upcase(readkey);

    until t in['S','N'];

    if t = 'S' then

    begin

       asigna_retorno(reto);

    end

  else

     begin

        entrada_retorno;

     end;

  end;

  procedure asigna_pedido(pd : pedidocliente);

  begin

     if pr <> nil then

     begin

        new(ac);

        ac^ := pd;

        pr := ac;

        ac^.sge := nil;

     end

  else

      begin

        an := ac;

        new(ac);

        ac^ := pd;

        an^.sge := ac;

        ac^.sge := nil;

      end;

   end;

  procedure  entrada_pedido;

  var

    tr, t : char;

    cont, i : integer;

    begin

      fillchar(pedod,sizeof(pedod),0);

      clrscr;

      gotoxy(24,4);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');

      gotoxy(24,5);write('³     ** Entrada Datos Pedido **     ³Þ');

      gotoxy(24,6);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');

      gotoxy(24,7);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');

      gotoxy(2,8);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');

      gotoxy(2,9);write('³ Codigo Cliente :            ³Þ');

     gotoxy(2,10);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');

     gotoxy(2,11);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');

     gotoxy(36,8);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');

     gotoxy(36,9);write('³ Nombre Cliente :                      ³Þ');

    gotoxy(36,10);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');

    gotoxy(36,11);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');

     gotoxy(2,12);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');

     gotoxy(2,13);write('³ Fecha :                 Hora :                ³Þ');

     gotoxy(2,14);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');

     gotoxy(2,15);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');

     gotoxy(2,17);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');

     gotoxy(2,18);write('³   Cantidad Articulos :                        ³Þ');

     gotoxy(2,19);write('³   Codigo Articulos   :                        ³Þ');

     gotoxy(2,20);write('³   Nombre Articulos   :                        ³Þ');

     gotoxy(2,21);write('³   Precio Unitario    :                        ³Þ');

     gotoxy(2,22);write('³   Precio Total Linea :                        ³Þ');

     gotoxy(2,23);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');

     gotoxy(2,24);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');

    with pedod do

    begin

    gotoxy(21,9);readln(Codigo_Cliente);

    gotoxy(55,9);readln(Nombre_Cliente);

    Fecha := fechasistema;

    hora := horasistema;

    gotoxy(12,13);write(fecha);

    gotoxy(35,13);write(hora);

    cont := 1;

   repeat

    gotoxy(27,18);readln(artic[cont].Cantidad_Articulo);

    gotoxy(27,19);readln(artic[cont].Codigo_Articulo);

    gotoxy(27,20);readln(artic[cont].Nombre_Articulo);

    gotoxy(27,21);readln(artic[cont].Precio_unitario);

    artic[cont].Precio_total := (artic[cont].Cantidad_Articulo *

                                   artic[cont].Precio_unitario);

    gotoxy(27,22);write(artic[cont].Precio_total:0:2);

    gotoxy(2,25);write(' **** Desea Entrar Mas Productos [S/N] ****');

    repeat

        tr := upcase(readkey);

    until tr in['S','N'];

    cont := cont + 1;

    gotoxy(2,25);clreol;

    if tr = 'S' then

    begin

       gotoxy(26,18);write('                       ');

       gotoxy(26,19);write('                       ');

       gotoxy(26,20);write('                       ');

       gotoxy(26,21);write('                       ');

       gotoxy(26,22);write('                       ');

    end;

   until (tr = 'N') or (cont > 5);

    total := 0.0;

    for i := 1 to cont - 1 do

    Total := Total + artic[i].Precio_total;

    gotoxy(2,25);write('**** Total Pedido = [',total:0:2,']');

   end;

    gotoxy(10,26);write('** Datos Correctos [S/N] **');

    repeat

        t := upcase(readkey);

    until t in['S','N'];

    if t = 'S' then

    begin

       asigna_pedido(pedod);

    end

  else

     begin

        entrada_pedido;

     end;

  end;

  procedure asigna_producto(p : regproducto);

  begin

     if pri = nil then

     begin

        new(act);

        act^ := p;

        pri := act;

        act^.sigp := nil;

     end

  else

     begin

        ant := act;

        new(act);

        act^ := p;

        ant^.sigp := act;

        act^.sigp := nil;

     end;

  end;

  procedure entrada_producto;

  var

    th : char;

  begin

      fillchar(produc,sizeof(produc),0);

      clrscr;

      gotoxy(24,4);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');

      gotoxy(24,5);write('³    ** Entrada Datos Producto **    ³Þ');

      gotoxy(24,6);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');

      gotoxy(24,7);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');

      gotoxy(2,8);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');

      gotoxy(2,9);write('³ Codigo :                 ³Þ');

     gotoxy(2,10);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');

     gotoxy(2,11);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßß');

     gotoxy(30,8);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');

     gotoxy(30,9);write('³ Nombre :                 ³Þ');

    gotoxy(30,10);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');

    gotoxy(30,11);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßß');

     gotoxy(2,12);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');

     gotoxy(2,13);write('³ Descripcion :                                 ³Þ');

     gotoxy(2,14);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');

     gotoxy(2,15);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');

    gotoxy(20,16);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');

    gotoxy(20,17);write('³ Precio :                 ³Þ');

    gotoxy(20,18);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');

    gotoxy(20,19);write('  ßßßßßßßßßßßßßßßßßßßßßßßßßßß');

    with produc do

    begin

    gotoxy(13,9);readln(Codigo_Articulo);

    gotoxy(41,9);readln(Nombre_Articulo);

    gotoxy(18,13);readln(Descripcion_Articulo);

    gotoxy(31,17);readln(Precio_Articulo);

    end;

    gotoxy(20,19);write('** Datos Correctos [S/N] **');

    repeat

        th := upcase(readkey);

    until th in['S','N'];

    if th = 'S' then

    begin

       asigna_producto(produc);

    end

  else

     begin

        entrada_producto;

     end;

  end;

  procedure asigna_datos(d : registrocliente);

  begin

     if prim = nil then

     begin

        new(actu);

        actu^ := d;

        prim := actu;

        actu^.sig := nil;

     end

  else

     begin

        ante := actu;

        new(actu);

        actu^ := d;

        ante^.sig := actu;

        actu^.sig := nil;

     end;

  end;

  procedure  entradas_datos;

  var

   te : char;

  begin

     fillchar(cliente,sizeof(cliente),0);

     clrscr;

     gotoxy(20,2);write('****[Entrada De Datos Cliente]****');

     gotoxy(20,3);write('==================================');

     gotoxy(3,5);write('[Cedula]      : ');

     gotoxy(30,5);write('[Nombre]          : ');

     gotoxy(3,7);write('[Telefono]    : ');

     gotoxy(30,7);write('[Movil]           : ');

     gotoxy(3,9);write('[Sexo]        : ');

     gotoxy(30,9);write('[Direccion]       : ');

     gotoxy(3,11);write('[Credito S/N] : ');

     gotoxy(30,11);write('[Importe Credito] : ');

     gotoxy(3,13);write('[Cod.Cliente] : ');

     gotoxy(30,13);write('[Nom. Cliente]    : ');

     with cliente do

     begin

     gotoxy(19,5);readln(cedula);

     gotoxy(50,5);readln(nombre);

     gotoxy(19,7);readln(telefono);

     gotoxy(50,7);readln(movil);

     gotoxy(19,9);readln(sexo);

     gotoxy(50,9);readln(direccion);

     gotoxy(19,11);readln(credito);

     gotoxy(50,11);readln(Monto_Credito);

     gotoxy(19,13);readln(Cod_T_Cliente);

     gotoxy(50,13);readln(Nombre_T_Cliente);

     end;

     gotoxy(20,15);write('>>>> Los Datos Son Correctos [S/N] <<<<');

     repeat

         te := upcase(readkey);

     until te in['S','N'];

     if te = 'S' then

     begin

     asigna_datos(cliente);

     end

   else

      begin

         entradas_datos;

      end;

  end;

  procedure menu_jeneral;

  var

    sal : boolean;

    tecla : char;

  begin

      sal := false;

    repeat

        clrscr;

        writeln('   ***** Menu Jeneral *****');

        writeln;

        writeln('   1. Ingresar Datos de Cliente');

        writeln('   2. Ingresar Articulos');

        writeln('   3. Ingresar Pedido de Cliente');

        writeln('   4. Ingresar Solicitud de Retorno de Mercaderia');

        writeln('   5. Salir');

        writeln;

        writeln('   <<<< Elija Opcion >>>>');

        repeat

            tecla := readkey;

        until tecla in['1','2','3','4','5'];

       clrscr;

    case tecla of

  '1' : entradas_datos;

  '2' : entrada_producto;

  '3' : entrada_pedido;

  '4' : entrada_retorno;

  '5' : sal := true;

    end;

    until sal = true;

  end;

 begin

    prim := nil;

    pri := nil;

    pr := nil;

    rpr := nil;

    menu_jeneral;

    if prim <> nil then

    dispose(actu);

    if pri <> nil then

    dispose(act);

    if pr <> nil then

    dispose(ac);

    if rpr <> nil then

    dispose(rac);

 end.