s700.jno2 camila x.cam

UM-XMETOO version 1.16.COMM.USERTYPE (aap/pem/cjr/jj 93/11/24)
/home/docentes/jno/.metoorc
x.cam
?- v();
_tmp 
?- INIT();
+------------+--------+---------------------+----------+---------------+
|  Projecto  | Versao |        Obs.         | Arranque | Data Corrente |
+------------+--------+---------------------+----------+---------------+
| NBDC/SONAE |  1.0   | 'Valid time' apenas |    OK    |   96/03/01    |
+------------+--------+---------------------+----------+---------------+
 
?-  BDCSETDATE(Dat(96,3,2));
sonae 
?-   CLISTAT();
+---------+----------------+-------------+
| Cliente | Ultima Difusao | Data actual |
+---------+----------------+-------------+
|   C1    |    96/03/01    |             |
|   C2    |    96/03/01    |             |
|   C3    |    96/03/01    |             |
|         |                |  96/03/02   |
+---------+----------------+-------------+
 
?-  BDCHIST("LOJA");
+-------+------------+------------+----------+
| #LOJA | Data Vigor |    Nome    | Endereco |
+-------+------------+------------+----------+
|  L1   |  95/02/26  |   Modelo   |  Braga   |
|  L2   |  94/02/26  | Pingo Doce |  Porto   |
+-------+------------+------------+----------+
 
?-  BDCADDENT("LOJA","L1",Dat(96,3,2),["Nome"->"Pingo Doce"]);
sonae 
?-   BDCHIST("LOJA");
+-------+------------|  95/02/26  |   Modelo   |  Braga   |
|  L1   |  96/03/02  | Pingo Doce |          |
|  L2   |  94/02/26  | Pingo Doce |  Porto   |
+-------+------------+------------+----------+
 
?-  CLIBACKLOG("C1");
LOJA:
+-------+------------+
| #LOJA |    Nome    |
+-------+------------+
|  L1   | Pingo Doce |
+-------+------------+
 
?-