database smarmotech 
LAYOUT
GRID

{
<G Generales                                                                    >
  Orden No.      [f000  ]Tipo Orden[a0              ]     Fecha     [f001      ]
  Codigo Suplidor[f2][f003][a1                                              ]
  Codigo de Pago [f4                                ]     Via       [a2        ]
  Enviada        [l]     Fecha [f008      ] Pago [m]      Fecha Pago[f009      ]
  Cierre         [n]     Puerto[p1        ] No.Prof   [f005      ]
  Codigo Moneda  [cm                      ]    
  
<g g2                                                                                                  >
  <t t1                                                                                               > 
    [re    ][a     ][g     ][t      ][se      ][f3         ]              [f6          ][f7          ]
    [re    ][a     ][g     ][t      ][se      ][f3         ]              [f6          ][f7          ]
    [re    ][a     ][g     ][t      ][se      ][f3         ]              [f6          ][f7          ]
    [re    ][a     ][g     ][t      ][se      ][f3         ]              [f6          ][f7          ]
 Descripcion[des                                                  ]Unidad [f8 ]
 N.A.B.  [F9         ]        Nomenclatura [k                             ]
}
end
END
tables
cotb00005, cotb00006,
intb00001, cotb00008,
cotb00014, cotb00024,
cotb00001, cotb00015
attributes
GROUP g2: TEXT="Detalle Orden";

re   = formonly.num_req,autonext,noentry,comments =
       "Digite Numero de Requisicion o Presione Ctrl-w Para Busqueda",
       TITLE="Requisicion";
a    = cotb00015.cod_n,TITLE="CLASE"; 
g    = cotb00015.cod_grupo,TITLE="GRUPO"; 
t    = cotb00015.cod_tipo,TITLE="TIPO"; 
se   = cotb00015.cod_sec,TITLE="SECUENCIA"; 
des  = formonly.descrip,noentry;
f8   = intb00001.unidad_med,noentry;
k    = formonly.descrip1,noentry;    
f3   = cotb00008.cantidad,TITLE="CANTIDAD";
f9   = cotb00005.cod_nab,noentry,TITLE="CODIGO ARANCELARIO";
f6   = cotb00008.precio,TITLE="PRECIO";
f7   = formonly.valor,noentry,TITLE="VALOR";
f000 = formonly.num_oc;
COMBOBOX a0 = cotb00014.tipo;
f001 = cotb00014.fech_oc,autonext,format = "dd/mm/yyyy",
       comments ="Digite la fecha de elaboracion de la orden";
f005 = cotb00014.num_pr,autonext,
       comments ="Digite el numero de la proforma o cotizacion";
f2 = cotb00014.cod_sp,autonext,
       comments = 
"Digite el codigo del suplidor o Presione Ctrl-W para busqueda";
f003 = cotb00014.cod_sp_sec,autonext,
     comments =
"Digite la secuencia del suplidor o Presione Ctrl-W para busqueda";
a1   = cotb00001.nom_sp,noentry;
COMBOBOX f4   = cotb00014.term_sp;
COMBOBOX a2   = cotb00014.via,
       comments ="Digite 01 = Maritima, 02 = Aerea, 03 = Terrestre";
COMBOBOX l    = cotb00014.enviada,include = ("S","N");
f008 = cotb00014.fech_enviada, format = "dd/mm/yyyy";
COMBOBOX m    = cotb00014.pago, include = ("S","N");
f009 = cotb00014.fech_pago, format = "dd/mm/yyyy";
n    = cotb00014.cierre,noentry,include = ("S","N"); 
COMBOBOX p1   = formonly.cod_pt, comments =
"Digite el puerto de embarque o Presione Ctrl-W para busqueda";
COMBOBOX cm   = formonly.cod_mon;

instructions
    screen record consart[3] (num_req,cod_n,cod_grupo,cod_tipo,cod_sec,
                              cantidad,precio,valor)
end