• Jueves 28 de Marzo de 2024, 14:05

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.


Mensajes - jeraco

Páginas: [1]
1
Pascal / Re: Leer Y Modificar Archivo .dat
« en: Sábado 15 de Diciembre de 2007, 22:19 »
Muchas gracias enko pro tu preocupacion pero creo que voy a dar por perdidad esta batalla contra los archivos de Saint. La rutina esta bien, al igual que la que te comente pero igualmente no hace ningun cambio sobre el archivo de clientes. es algo extremadamente raro pero asi es. NO funciona.
de todas maneras gracias por tu preocupacion y por tu esfuerzo. Saludos desde aqui en Valencia edo. Carabobo Venezuela. Gracias Totales (soda Stereo)

2
Pascal / Re: Leer Y Modificar Archivo .dat
« en: Sábado 15 de Diciembre de 2007, 14:44 »
Gracias, pero ese no es el problema, al igual que el archivo de clientes tambien hay que cambiar la data de inventario, proveedores, cxp, cxc pero a partir del º1ero de enero por el cambio a Bs. Fuerte, es decir en este momento funcionan bien pero el Saint no trae una opcion que te permita dividir por 100o todos los campos y es por eso que hay que tratar de hacer una aplicacion externa que modifique los archivos .dat del sistema. Comoveras en el email, la informacion de todos esos archivos en cuanto a su estructura se encuentra en un archivo llamado tipos.doc que a su vez es la liberia con que supuestamente ellos (los programadores de Saint) construyeron la data (record) de cada uno de los archivos aprod, aclie, aprov, acXcc, acxcp.
Saludos

3
Pascal / Re: Leer Y Modificar Archivo .dat
« en: Viernes 14 de Diciembre de 2007, 22:33 »
enko probe el programa agregando un contador de registro (i:=i+1;) y validando con los 300 registros es decir and (i<=300)) y no revienta pero no hace los cambios sobre las variables del archivo. te envie un msg a tu correo electronico encoreaver@xxxxx con toda la libreria de la estructura de los archivos de saint asi como el archivo aclie.dat a ver que puedes encontrar. Te agradeceria mucho si puedes ayudarme en esto
Gracias de antemano por tu pronta respuesta

4
Pascal / Re: Leer Y Modificar Archivo .dat
« en: Viernes 14 de Diciembre de 2007, 18:07 »
Muchas gracias enko pero me guastaria saber como harias tu una rutina para leer ese archivo con esa informacion y modicar los campos. Cambie incluso el with dando la direccion completa del campo ejemplo: p.special.maxcredito:=p.special.maxcredito/1000; y todas maneras el archivo revienta y no hace el cambio (no se por que) tal vez haya otra forma de leer ese archivo pregunto?

5
Pascal / Re: Leer Y Modificar Archivo .dat
« en: Jueves 13 de Diciembre de 2007, 14:56 »
amigo enko, ya todo eso de archivo en carpeta y compilacion ya fue descartado de hecho hice el mimo codigo para otro archivo que se llama aprod.dat (del sistema Saint) y funciono bien. Yo creo que el error esta en el Record anidado o en en la longitud del campo Dummi2 pero no encuentro la solucion. En cuanto a la parte del codigo p,special es por que lee con el with a p y tambien a special  la sintaxis esta bien necesito otro tipo de ayuda que no se limite a buscar una simple coma porque ese no es el problema

6
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. {&#036;IFNDEF CHILE}
  38.   {&#036;IFNDEF COLOMBIA}
  39.                               NIT:          String[15];
  40.   {&#036;ELSE}
  41.                               Dummy0:       Array[1..16] Of Byte;
  42.   {&#036;ENDIF}
  43. {&#036;ELSE}
  44.                               Dummy0:       Array[1..16] Of Byte;
  45. {&#036;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]