Pascal/Turbo Pascal - Ayuda Software de inventario para culminar "urgente"

   
Vista:

Ayuda Software de inventario para culminar "urgente"

Publicado por Cesar (5 intervenciones) el 23/01/2016 19:26:19
problema en la area de facturas necesito q grabe la informacion pero no lo hace tengo q entregarlo el lunes es urgenteeeeee
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda Software de inventario para culminar "urgente"

Publicado por ramon (2072 intervenciones) el 25/01/2016 13:04:25
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
{Mira esto}
 
  Factura = record
              cli: word;
              fecha   : string[15];
              RifCed  : string[15];
              Nombre  : string[35];
              ap      : string[35];
              tel     : string[15];
              Dir     : string;
              Codpro  : word;
              Descrip  : string[45];
              Canti : word;
              Precio: word;
              total: integer;
    end;
 
 
var
   archivo1     : file of persona;
   archivo2     : file of producto;
   archivo3     : file of factura;
   cliente      : persona;
   productos    : producto;
   facturas     : factura;
   opcion5      : char;
   a,b          : byte;
   dow          : word;
   car          : word;
   pro          : word;
   numfact      : word;
   control      : char;
   total,totalinea,cantiv,e,me,d,ds:word;
   x: integer;
   valoriva: integer;
 
 peocedure cargadatos(dd :Factura);
 var
   cont : longint;
  begin
     assign(archivo3,'factura.dat');
  {$I-} reset(archivo3); {$I+}
   if ioresult <> 0 then
   begin
     rewrite(archivo3);
     seek(archivo3,0);
     write(archivo3,dd);
     close(archivo3);
   end
 else
   begin
      seek(archivo3,filesize(archivo3));
      write(archivo3,dd);
      close(archivo3);
    end;
  end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar