tengo esta estructura predefinida:
Const
NPVP = 3;
NCOS = 3;
KC = 15; { Producto }
KN = 40;
KM = 10; { Multiple }
KR = 15;
NMes = 13;
EstI = 12;
MaxF = 40; { Maximo de campos }
Type
RegCampos = Record
Name: String[15];
TipoF: Char;
Len,
Max,
Dec,
Need,
MaskI: Byte;
InitB: Word;
Activo,
InfoOn: Boolean;
Nivel: Byte;
Dummy: Array[1..2] Of Byte;
End;
RegArchivo = Array[1..MaxF] Of RegCampos;
RegConfArchivo = Record
SizeRec,
NroField: Word;
MaxTl: Byte;
Field: RegArchivo;
End;
Real48 = Real;
SmallInt = Integer;
ArrayPrecio = Array[1..NPVP] Of Real48;
ArrayCosto = Array[1..NCOS] Of Real48;
{*-----------------------------------------------------------------*}
RegSplProducto = Record
***Case Byte Of
***0: ( Conf: RegConfArchivo);
***1: ( Codigo: String[KC];
Departa: String[KM];
Descripcion: Array[1..3] Of String[KN];
Refere: String[KR];
Marca: String[20];
Unidad: String[3];
TipoP: Char;
UsoI,
Serial,
ComiDept,
Compuesto: Boolean;
IVAP: Real48;
DiasE: SmallInt;
Exento: Boolean;
NeedBalanza: Boolean;
UsaEmp: Boolean;
EsPorcent: Boolean;
ImpuestoI,
CantPedida,
CantCompro: Real48;
CostoPrd: ArrayCosto;
PVP: ArrayPrecio;
FechaUC,
FechaUV: String[8];
ExistMi,
ExistMa,
Existencia: Real48;
Estadistics: Array[1..NMes,1..EstI] Of Real48;
Empaque,
ExUnidades,
CostoUnidad,
PrecioUnidad: Real48;
OUnidad: String[3];
FlagContab: Boolean;
CtasContab: Array[1..6] Of String[25];
TieneOferta,
TieneTalla,
TieneColor,
TieneLote: Boolean;
Dummy2: Array[1..72] Of Byte;
);
End;
RegProducto = Record
Status: LongInt;
Special: RegSplProducto;
DataArea: Array[1..1] Of Byte;
End;
alguien podria decirme como manejar esa estructura dentro de un fichero ya que dentro de la definicion existe un case y la verda q cuando intento leer el chiveno me da error lo sabriaagradecer a quien me pueda ayudar...
