Programación General > Pascal
Leer Y Modificar Archivo .dat
jeraco:
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)
system_one:
JERACO lo mas probable es que el registro NO sea el ORIGINAL!. osea haya sido modificado por haberse agregado nuevas columnas y no te haya informado el cliente o no lo sepa. debes revisar en la opcion instala/archivos del sistema/ estructura de archivos/ clientes
A mi me dio el mismo error y era por ESO.
Yo estoy revisando de como hacer para esos casos justamente.!!!! pero me falta informacion tecnica de SAINT!!. de como maneja las alteraciones/modificaciones de los archivos.
Jeraco si me puedes pasar por favor copia de la estructura del archivo que le enviates a enko tipos.pas/doc te agradesco infinitamente la que yo tengo esta incompleta!.
ELX:
Yo hice las rutinas para leer el archvio de productos, facturas de compras y ventas, pero el de clientes no he encontrado la manera. Alguiensabe en donde esta el error. Saint Administrativo 7.51 archivo aclie.dat o aprov.dat
rubert:
--- Cita de: "jeraco" ---Buenas tardes, si alguien me puede ayudar a resolver este problema:
Tengo archivo llamado aclie.dat con la siguiente estructura:
--- Código: Text --- program cliente;usescrt, dos;Type RegSplCliente = Record Case Byte Of 0: ( Conf: RegConfArchivo); 1: ( Codigo: String[KL]; Descripcion, Representante, Direccion1, Direccion2: String[40]; Telefonos: String[30]; ZonaC, VendC: String[KM]; Clase: String[KO]; MesVenc: SmallInt; TipoPVP: Byte; CreditoStat: Byte; MaxCredito, {maximo credito permitido} PagosA, {pagos anticipados} SaldoP, {saldo pendiente} MontoMax, {Monto maximo venta} MontoMaxCre, {maximo credito} IVARetenido: Real; UltimaV, UltimoP: RegUltimaOperacion; ChequesD: Array[1..5] Of RegUltimaOperacion; PromDay: SmallInt; NDays: SmallInt; RIF: String[15]; TipoIva: Char; UVend: String[KM]; {Ultimovendedor} IntMora: Boolean; BitVarios: Byte;{$IFNDEF CHILE} {$IFNDEF COLOMBIA} NIT: String[15]; {$ELSE} Dummy0: Array[1..16] Of Byte; {$ENDIF}{$ELSE} Dummy0: Array[1..16] Of Byte;{$ENDIF} Estadistics: Array[1..NMes,1..EstC] Of Real; {Cambios del dia 12-9-98 OJO !!!} FlagContab: Boolean; CuentaContab: String[25]; Descuento: Real; Dummy2: Array[1..50] Of Byte; ); End; RegCliente = Record Status: LongInt; Special: RegSplCliente; DataArea: Array[1..1] Of Byte; End; Var F: File of Regcliente; P: Regcliente; Begin clrscr; Assign(F,'aclie.dat'); reset(F); while not Eof(F) do begin read(F,P); with P,special do begin maxcredito:=maxcredito/1000; saldop:=saldop/1000; montomax:=montomax/1000; montomaxcre:=montomaxcre/1000; end; seek(F,filepos(F)-1); write(F,P); end; close(F); end. 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
--- Fin de la cita ---
rubert:
Hola Jerako Buenos dias.
Amigo estube viendo en el foo que tu lograste leer el archivo aprod.dat del saint 7.51 este archivo es que que guarda la informacion de los datos de productos del inventario
hermano yo estoy interesado en esa rutina que te permite leerla el motivo es el siguiente:
tengo una base de datos hecha el visual foxpro y tengo que pasar los datos para el aprod.dat, ya converti los datos en en un archivo .txt pero la verdad es que no tengo
conocimiento de pascal ya que programo en foxpro,clipper y visual foxpro si puedes ayudarme te lo agradezco mi correo es rubertrequena@hotmail.com
saludos y gracias de antemano
Navegación
[#] Página Siguiente
[*] Página Anterior
Ir a la versión completa