define "x" text 10 .
define "y" text 10 .

x := data-entry field1 .
y := data-entry field2 .

for t_Fornecedores_Clientes  with ID = x ;
list records 
data-entry field2 ;
Nome_Fornecedor_Cliente    ;
Contacto_Fornecedor_Cliente   ;
Morada   ;
Lugar   ;
Localidade ;
Codigo_Postal  ;
pais ;
E_mail ;
current date .
for t_cotacao with ctc = y 
list records 
codigo ;
ref_fornecedor  ;
descricao_fornecedor ;
quantidade ;
unidades .
end