database marmotech   
{
----------------------------------------------------------------------------
 AUTOR:       JUAN FCO SOTO
 FECHA:       Marzo 1, 1993.   
 DECRIPCION:  FORMATO DE PANTALLA PARA movimientos  (Repuestos)    
----------------------------------------------------------------------------
}
screen size 24 by 80     
{ 
\gp---------------------------------------------------------------------------q\g
\g|\g   Tipo Movimiento   [t ] [t1                                        ]     \g|\g
\g|\g   Documento Numero  [f000  ]          Orden  [ord     ]                   \g|\g
\g|\g   Fecha  [f001    ]                                                       \g|\g
\g|\g   Localidad         [s]  [a1                            ]                 \g|\g
\g|\g   Transferida a     [r]  [a2                            ]                 \g|\g
\gb---------------------------------------------------------------------------d\g
                CANTIDAD 
 Codigo         Entregada   Unidad     D e s c r i p c i o n        Maquina
\g-----------------------------------------------------------------------------\g
[a         ]  [f02        ] [p  ] [k                              ] [m1 ]
[a         ]  [f02        ] [p  ] [k                              ] [m1 ]
[a         ]  [f02        ] [p  ] [k                              ] [m1 ]
[a         ]  [f02        ] [p  ] [k                              ] [m1 ]
[a         ]  [f02        ] [p  ] [k                              ] [m1 ]
[a         ]  [f02        ] [p  ] [k                              ] [m1 ]
\g-----------------------------------------------------------------------------\g
   Descripcion Maquina: [n1                              ]
}
end

tables
irtb00002,
irtb00002,
irtb00006
attributes
ord  = irtb00006.orden_compra,autonext,comments = 
"Digite Orden Compras para devolver ";

f000 = irtb00006.num_doc,autonext,
       comments = "Digite Numero Documento";
f001 = irtb00006.fecha, format = "dd/mm/yy",autonext,
       comments = "Digite Fecha Documento";
r = formonly.secc_a      , autonext,
       comments = "Digite Codigo de la Localidad";
s = formonly.secc_de,autonext,
       comments = "Digite Codigo Localidad";    
a1   = formonly.nom_seccion type char, noentry; 
a2   = formonly.nom,noentry;   
a    = formonly.codigo;
f02  = irtb00006.cantidad_2,autonext, 
       comments = "Digite La Cantidad Entregada";
k    = irtb00002.descrip_esp,noentry,autonext; 
p    = irtb00002.unidad_med,noentry;
t    = formonly.cod_mov type smallint,autonext,include = (3 to 99),
 comments = "Digite Codigo Del Movimiento Correspondiente";
t1   = formonly.descrip_mov,noentry;
m1   = irtb00006.maquina,autonext, comments = 
     "Digite El Codigo de La Maquina Que Corresponde a este Repuesto";
n1   = formonly.nombre,noentry;
  INSTRUCTIONS
    SCREEN RECORD s_movi1[6] (codigo,cantidad_2,unidad_med,descrip_esp,maquina)
end