TOOLBAR 
  ITEM nuevo (TEXT="Orden", IMAGE="new", COMMENT="Nueva Orden")
  ITEM buscar (TEXT="Buscar Orden", IMAGE="find", COMMENT="Criterio de busqueda")
 SEPARATOR
  ITEM salir (TEXT="Salir", IMAGE="quit")
END

LAYOUT(TEXT="Ordenes Pedidos",STYLE="basic")
GRID

{<G "Generales"                                                                   >
Cotizacion  [cot        ]Documento Referencia[x10            ]
Orden No.   [f000       ] Fecha Oc.:[f001      ]        Ventas[ar1                   ]
Cliente     [f0|f003    ] [b1                                                        ]
Vendedor    [v1  ]        [ve                          ]Rec. Pago:        [re        ]
Direccion   [a                                                                       ]
Telefono    [b           ]Fax   [c            ]         Fecha de Entrega  [fe        ]
Condiciones [d                                ]         Balance           [f09       ]
Ubicacion   [ubic                                                            ] 
<G "Detalle Orden"                                                                                                                              >
  <t t1                                                                                                                                     > 
   [va][ar ][e |f   |g    |h     ][a2                              ][un ][alt      ][k][b2 ][f40    ][f22     ][f10     ][f9   ][f11       ]
   [va][ar ][e |f   |g    |h     ][a2                              ][un ][alt      ][k][b2 ][f40    ][f22     ][f10     ][f9   ][f11       ]
   [va][ar ][e |f   |g    |h     ][a2                              ][un ][alt      ][k][b2 ][f40    ][f22     ][f10     ][f9   ][f11       ]
   [va][ar ][e |f   |g    |h     ][a2                              ][un ][alt      ][k][b2 ][f40    ][f22     ][f10     ][f9   ][f11       ]
   [va][ar ][e |f   |g    |h     ][a2                              ][un ][alt      ][k][b2 ][f40    ][f22     ][f10     ][f9   ][f11       ]
   
                                                 Total de Material [f12        ]  
                      Instalacion Tope Cantidad     [f13     ]  Precio [f14    ]
            Mano Obra       Cantidad                [f15     ]  Precio [f16    ]
            Transporte     [f17     ]                           Itbis  [f18    ]
                                                      Total Ventas [f19        ] 
}
end
end

attributes
x10  = formonly.documento_ref,comments="Documento Referencia Cliente";
re   = formonly.rec_pago;
ar1  = formonly.descrip_ventas;
f000 = formonly.num_oc,noentry;
f001 = formonly.fecha_oc,required;
cot  = formonly.cotizacion_no;
f0   = formonly.tipo_cliente;
f003 = formonly.sec_cliente;
b1   = formonly.nombre,reverse,noentry;
a    = formonly.direccion,upshift,noentry,
       comments = "Digite la DIRECCION correcta del cliente";
b    = formonly.telefono,picture = "###-###-####",noentry,
       comments = "Digite el numero de TELEFONO con su codigo de Area";
c    = formonly.fax,picture = "###-###-####",noentry,
       comments = "Digite el numero de FAX con su codigo de Area";
d    = formonly.cond_pago,noentry;
fe   = formonly.fecha_entrega,
       comments = "Digite la FECHA DE ENTREGA de la Orden";
f09  = formonly.balance,noentry;
ubic = formonly.ubicacion, upshift,SCROLL,
       comments = "Digite la ubicacion del proyecto ";
v1 =  formonly.sec_vend,required,noentry;
ve = formonly.nombre_vend,reverse,noentry;


EDIT va  = formonly.fila,noentry,TITLE="Secuencia";
 ar  = formonly.area, TITLE="AREA";
 e   = formonly.cod_n,TITLE="Clase",widget="FIELD_BMP",   config="combo.bmp F10";
 f   = formonly.cod_grupo,TITLE="Grupo",widget="FIELD_BMP",   config="combo.bmp F10";
 g   = formonly.cod_tipo,TITLE="Tipo",widget="FIELD_BMP",   config="combo.bmp F10";
 h   = formonly.cod_sec,TITLE="Secuencia",widget="FIELD_BMP",   config="combo.bmp F10";
 a2  = formonly.descrip_esp,noentry,TITLE="Descripcion";
 un   = formonly.unidad_med,noentry,TITLE="Unidad Med";
EDIT k   = formonly.terminacion,noentry,TITLE="Terminacion",
      comments = "Digite P=Pulido  R=Rustico B=Brushed A=Acido";
EDIT alt  = formonly.altura_zocalo,TITLE="Zocalo";
EDIT b2  = formonly.bisel,UPSHIFT,TITLE="Bisel",
      comments = "Digite  DBN - SDN - FBN - MBM - P.P. - C.R. DBPP BY5";
EDIT f40 = formonly.cantidad_1,TITLE="Unidades";
EDIT f22 = formonly.cantidad,noentry,TITLE="Medida";
EDIT f10 = formonly.precio,TITLE="Precio",noentry;
EDIT f9  = formonly.descuento,TITLE="Descuento",noentry;
EDIT f11 = formonly.total_p ,noentry,TITLE="Total";
 
f12  = formonly.sub_total,noentry;
f13  = formonly.cantidad_i,comments =
       "Digite la cantidad de Metros en Instalacion de Topes";
f14  = formonly.precio_i,comments =
       "Digite el precio de Instalacion de Tope";
f15  = formonly.cantidad_mo,comments =
       "Digite la cantidad de Metro a instalar"; 
f16  = formonly.precio_mo,comments =
       "Digite el precio por Metro de Instalacion";
f17  = formonly.transporte,noentry;
       
f18  = formonly.itbis,noentry;
f19  = formonly.total_v,noentry;
instructions
  screen record s_pedido[4] 
  (fila,area,cod_n, cod_grupo, cod_tipo, cod_sec, descrip_esp,unidad_med,altura_zocalo, terminacion,bisel, 
   cantidad_1,cantidad, precio, descuento, total_p)
end