schema smarmotech 

TOOLBAR 
  ITEM nuevo (TEXT="Documento", IMAGE="new", COMMENT="Nuevo Documento")
  ITEM buscar (TEXT="Buscar Documento", IMAGE="find", COMMENT="Criterio de busqueda")
 SEPARATOR
  ITEM salir (TEXT="Salir", IMAGE="quit")
END
LAYOUT (TEXT="TRANSACCIONES INVENTARIOS")
GRID
{

<G                                                                                >
  Documento Numero [f000  ]     Orden Compra [ord    ]                                             
  Codigo Movimiento[m ] [m1                                ]          
  Fecha            [f001      ] Bodega :[p1 ]Conduce                     
  DEPARTAMENTO     [f1  ][d1                     ]                                 
  Operador Grua    [op  ][nomop            ][ap                     ]            

<t                                                                                   >  
   [a ][b  ][c  ][d   ][f02        ] [p  ][k                             ] [ex1     ]
   [a ][b  ][c  ][d   ][f02        ] [p  ][k                             ] [ex1     ] 
   [a ][b  ][c  ][d   ][f02        ] [p  ][k                             ] [ex1     ] 
   [a ][b  ][c  ][d   ][f02        ] [p  ][k                             ] [ex1     ] 
   [a ][b  ][c  ][d   ][f02        ] [p  ][k                             ] [ex1     ]
   [a ][b  ][c  ][d   ][f02        ] [p  ][k                             ] [ex1     ]

}
end
tables
intb00006,
intb00001,
cotb00001
ATTRIBUTES
ex1   = formonly.existencia, TITLE="EXISTENCIA";
ord   = formonly.orden_compra;
f1    = formonly.depto_a;
d1   = formonly.nombre_d,noentry;
op   = formonly.pnum_emp;
nomop  = formonly.nombre,noentry;
ap     = formonly.apellido,noentry;
f000 = intb00006.num_doc,autonext,noentry;
f001 = intb00006.fecha, format = "dd/mm/yyyy",autonext,
    comments = "Digite Fecha Documento";

a    = intb00006.cod_n,TITLE="CODIGO",
    comments = "Digite el NIVEL";
b    = intb00006.cod_grupo,autonext,
    comments = "Digite el GRUPO"; 
c    = intb00006.cod_tipo,autonext,
    comments = "Digite el TIPO"; 
d    = intb00006.cod_sec,autonext,
    comments = "Digite la SECUENCIA   "; 
f02  = intb00006.cantidad_2,TITLE="CANTIDAD",
    comments = "Digite La Cantidad Ordenada";
k    = intb00001.descrip_esp,TITLE="DESCRIPCION";
p    = intb00001.unidad_med,noentry;
p1   = intb00006.bodega,autonext;
m    = intb00006.cod_mov,autonext,autonext,
       comments = "Digite codigo del movimiento";
m1   = formonly.descrip_mov, noentry;
  INSTRUCTIONS
    SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,
                              cantidad_2,unidad_med,descrip_esp,existencia)
end