• Viernes 8 de Noviembre de 2024, 11:38

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 - rubert

Páginas: [1]
1
Pascal / Re: Convertir Datos De Pascal A Dbf
« en: Miércoles 15 de Julio de 2009, 13:35 »
hermano lo que puedes hacer es lo siguiente:

convierte el archivo de pascal en un archivo de texto
luego crea una bases de datos en foxpro con un solo campo del maximo numero de caracteres
crea una rutine mas omeno asi

set talk off
set echo off
clear
use paso ( paso nombre de la base de datos)
append from paso.txt (nombre del archivo de textio generado) type sdf


esto te agrega linea por linea del archivo de texto a la base de datos

tendras luego que crear una rutina para cortar y extraer los datos que te interesan de la base de datos por ejemplo

si la cadena de datos es la siguiente

VENEZUELA  CARACAS   125.00
 si quieres extraer solamente caracas hace lo siguiente

a=substr(campo,11,10)

Esto toma del campo(nombre que asignes) desde la posicion 11 diez caracteres

creas otra base de datos con los nombre del campo y vas agregando los nuevos registros con

use nueva
append blank
replace ciudad with a

algo asi espero te ayude si no puedes enviame el archivo de texto a mi correo y yo te lo hago
mi correo es  rubertrequena@hotmail.com  
saludos

2
Pascal / Re: Leer Y Modificar Archivo .dat
« en: Miércoles 15 de Julio de 2009, 13:24 »
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

3
Pascal / Re: Leer Y Modificar Archivo .dat
« en: Miércoles 15 de Julio de 2009, 13:18 »
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
  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]