|
Disculpas .... aqui tienes el codigo donde se genera el problema
Function VerificarFecha:Boolean; {Verifica que la fecha no sea anterior a la fecha de la ultima factura cargada}
var
Fechave:string[10];
Begin
With FVenta do
Begin
AssignFile(ArV,Caminodatos + '\' + UltimoArchivo(TipoFactura(LTipo.Caption[1])));
{$I-}
Reset(ArV); --> Aqui reconoce que el archivo tiene datos
{$I+}
If IoResult <> 0
Then FechaVe:=DateTostr(Date)
Else If Filesize(ArV) > 0
Then Begin --> lee el registro
seek(ArV,Filesize(ArV)-1); {Se posiciona al final del archivo de ventas}
Read(ArV,RV); --> No carga ningún dato
fechaVe:=RV.Fecha;
end
Else FechaVe:=DateTostr(Date);
--> El error se produce cuando valida esta fecha, ya que la varieble no contiene ningún tipo de dato.
A continuación tienes la estructura del registro:
Unit TVenta;
interface
Const
N=20;
SerieFactura=10000;
Type
RArt=Record
Codigo:String[20];
Cantidad:Real;
Medida:string[4];
Descripcion:String[80];
Bonifica:real;
Precio:Real;
end;
ADatos = Array[1..N] of RArt;
Rven=REcord
Numero:Longint;
PuntoVenta:word;
CUIT:STRING[15];
Datos:ADatos;
Fecha:String[10];
Vendedor:Word;
{Datos del cliente}
NumCli:Word;
Cliente:String[40];
Domicilio:String[100];
ConIva:Byte; {1 Resp Insc ... ,6 Monotributo}
Bonificacion:Real;
ImpuestoInt:real; {Impuesto interno}
ConVenta:Byte; {1 Ctdo , 2 CtaCte}
DescIva:real;
Stock:Boolean; {Indica si modifico el stock}
TotalVen:real;
end;
ArVenta=File Of RVen;
implementation
end.
|