• Viernes 8 de Noviembre de 2024, 17:45

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - jeraco

Páginas: [1]
1
Pascal / Leer Y Modificar Archivo .dat
« en: Miércoles 12 de Diciembre de 2007, 21:49 »
Buenas tardes, si alguien me puede ayudar a resolver este problema:
Tengo archivo llamado aclie.dat con la siguiente estructura:
Código: Text
  1.  
  2. program cliente;
  3. uses
  4. crt, dos;
  5. Type
  6.   RegSplCliente  = Record
  7.                         Case Byte Of
  8.                          0: ( Conf:         RegConfArchivo);
  9.                          1: ( Codigo:       String[KL];
  10.                               Descripcion,
  11.                               Representante,
  12.                               Direccion1,
  13.                               Direccion2:   String[40];
  14.                               Telefonos:    String[30];
  15.                               ZonaC,
  16.                               VendC:        String[KM];
  17.                               Clase:        String[KO];
  18.                               MesVenc:      SmallInt;
  19.                               TipoPVP:      Byte;
  20.                               CreditoStat:  Byte;
  21.                               MaxCredito,   {maximo credito permitido}
  22.                               PagosA,       {pagos anticipados}
  23.                               SaldoP,       {saldo pendiente}
  24.                               MontoMax,     {Monto maximo venta}
  25.                               MontoMaxCre,  {maximo credito}
  26.                               IVARetenido:  Real;
  27.                               UltimaV,
  28.                               UltimoP:      RegUltimaOperacion;
  29.                               ChequesD:     Array[1..5] Of RegUltimaOperacion;
  30.                               PromDay:      SmallInt;
  31.                               NDays:        SmallInt;
  32.                               RIF:          String[15];
  33.                               TipoIva:      Char;
  34.                               UVend:        String[KM]; {Ultimovendedor}
  35.                               IntMora:      Boolean;
  36.                               BitVarios:    Byte;
  37. {$IFNDEF CHILE}
  38.   {$IFNDEF COLOMBIA}
  39.                               NIT:          String[15];
  40.   {$ELSE}
  41.                               Dummy0:       Array[1..16] Of Byte;
  42.   {$ENDIF}
  43. {$ELSE}
  44.                               Dummy0:       Array[1..16] Of Byte;
  45. {$ENDIF}
  46.                               Estadistics:  Array[1..NMes,1..EstC] Of Real;
  47.                               {Cambios del dia  12-9-98 OJO !!!}
  48.                               FlagContab:   Boolean;
  49.                               CuentaContab: String[25];
  50.                               Descuento:    Real;
  51.                               Dummy2:       Array[1..50] Of Byte;
  52.                               );
  53.                       End;
  54.  
  55.      RegCliente     = Record
  56.                         Status:   LongInt;
  57.                         Special:  RegSplCliente;
  58.                         DataArea: Array[1..1] Of Byte;
  59.                       End;
  60.  
  61.  
  62. Var F: File of Regcliente;
  63.     P: Regcliente;
  64.    
  65. Begin
  66.   clrscr;
  67.   Assign(F,'aclie.dat');
  68.   reset(F);
  69.   while not Eof(F)  do
  70.    begin
  71.     read(F,P);
  72.     with P,special do
  73.     begin
  74.      maxcredito:=maxcredito/1000;
  75.      saldop:=saldop/1000;
  76.      montomax:=montomax/1000;
  77.      montomaxcre:=montomaxcre/1000;
  78.     end;
  79.     seek(F,filepos(F)-1);
  80.     write(F,P);
  81.    end;
  82.   close(F);
  83.  end.
  84.  
  85.  
El problema es que el compila Bien, pero cuando lo ejecuto da un error 100
si alguien tiene una solucion, para modificar y accesar este archivo seria de suma ayuda
gracias

Páginas: [1]