database eurostone
screen title "Generales" 
{
Compania [f1] [d1                 ] Cotizacion No.[f2    ]T. Bruto [f26        ]
Cliente  [f3]-[f4  ][f5                                  ]S. Total [f27        ]
Nombre Proyecto  [f6                                     ]M. Desc. [f28        ]
Direccion Cliente[f7                                     ]Itbi          [f25   ]
Ciudad           [f8][d3                                 ]M. Itbi  [f29        ]
Direccion Proy.  [f9                                     ]Neto     [f30        ]
Telefono Res.    [f10         ]Prima US$[f14     ]        M. US$   [f31        ]
Telefono Ofic.   [f11         ]Beeper    [f12         ]Us. Creador[f33       ]
Celular          [f13         ]Fax Res.  [f17         ]F. Creacion[f34             ]
Fax Ofic.        [f15       ]Celular 2    [f16       ]Us. Mod.   [f35       ]
Fecha            [f18       ]Fecha Entrega[f19       ]F. Mod.    [f36             ]
Plazo Entrega    [f20                                       ]
Area Codigo                      Cant.    Precio  Desc.  Total
--------------------------------------------------------------------
[va][e|f  |g  |h  ]             [f37    |f38     |f39  ][f40       ]
[d6                                                           ][un ]
[va][e|f  |g  |h  ]             [f37    |f38     |f39  ][f40       ]
[d6                                                           ][un ]
[va][e|f  |g  |h  ]             [f37    |f38     |f39  ][f40       ]
[d6                                                           ][un ]
Area: [pk                                       ]  
}
screen title "Continuacion"
{

Comentarios      [f21                                       ]
Contacto         [f22                                       ]
Condiciones Pago [f23][d4                                   ]
Vendedor         [f24][d5                                   ]
Stado       [f32] 
}
end
tables
vetb00050,vetb00051
attributes
f1 = vetb00050.cod_cia ;
d1 = formonly.nombre_cia,noentry;
f2 = vetb00050.cotizacion_no,noentry;
f3 = vetb00050.tipo_cliente ;
f4 = vetb00050.sec_cliente ;
f5 = vetb00050.nombre_cliente,upshift ;
f6 = vetb00050.nombre_proyecto,upshift ;
f7 = vetb00050.direccion_cliente,upshift;
f8 = vetb00050.cod_provincia ;
d3 = formonly.nombre_ciudad,noentry;
f9 = vetb00050.direccion_proyecto,upshift;
f10 = vetb00050.telefono_r ;
f11 = vetb00050.telefono_o ;
f12 = vetb00050.beeper ;
f13 = vetb00050.celular ;
f14 = vetb00050.prima ;
f15 = vetb00050.fax1 ;
f16 = vetb00050.celular1 ;
f17 = vetb00050.fax ;
f18 = vetb00050.fecha ;
f19 = vetb00050.fecha_entrega ;
f20 = vetb00050.plazo_entrega;
f21 = vetb00050.comentario,upshift ;
f22 = vetb00050.contacto,upshift ;
f23 = vetb00050.cond_pago ;
d4  = formonly.nombre_condicion,upshift;
f24 = vetb00050.sec_vend ;
d5  = formonly.nombre_vend,noentry;
f25 = vetb00050.porc_itbi ;
f26 = vetb00050.total_bruto,noentry;
f27 = vetb00050.sub_total,noentry ;
f28 = vetb00050.monto_desc,noentry ;
f29 = vetb00050.monto_itbi,noentry ;
f30 = vetb00050.total_neto,noentry ;
f31 = vetb00050.monto_dolar,noentry ;
f32 = vetb00050.status_t,noentry ;
f33 = vetb00050.us_crea,noentry ;
f34 = vetb00050.fech_crea,noentry ;
f35 = vetb00050.us_mod,noentry ;
f36 = vetb00050.fech_mod,noentry ;

va  = vetb00051.area;
e   = vetb00051.cod_n;
f   = vetb00051.cod_grupo;
g   = vetb00051.cod_tipo;
h   = vetb00051.cod_sec;
f37 = vetb00051.cantidad;
f38 = vetb00051.precio;
f39 = vetb00051.porc_desc;
f40 = formonly.total_p,noentry;
d6  = formonly.nombre_p,noentry;
un  = formonly.unidad,noentry;
pk  = formonly.nombre_area;
instructions
  screen record s_pedido[3] 
  (area,cod_n, cod_grupo, cod_tipo, cod_sec,nombre_p,unidad,cantidad, precio, porc_desc, total_p)
end