{
----------------------------------------------------------------------------
 FORMULARIO          : IRFMMT036
 OBJETIVO            : Pantalla para la captura de otros movimientos
 MODULOS Q. UTILIZAN : irprmt036
 PROGRAMADOR         : Juan F. Soto               
 FECHA REALIZACION   : Marzo 1, 1993       
----------------------------------------------------------------------------
}
schema decomarmol    
TOOLBAR 
  ITEM nuevo (TEXT="Documento", IMAGE="new", COMMENT="Nuevo Documento Transaccional")
  ITEM buscar (TEXT="Buscar Documentos", IMAGE="find", COMMENT="Criterio de busqueda")
 SEPARATOR
  ITEM salir (TEXT="Salir", IMAGE="quit")
  
LAYOUT (TEXT="TRANSACCIONES INVENTARIOS", STYLE="basic")
    GRID 

    
{ 

 <G Encabezado                                                      >
   Tipo Movimiento  [t ] [t1                                        ]   
   Documento Numero [f000  ]Orden [ti][ord     ]                        
   Suplidor [sp][sp1 ] [n                               ]               
   Fecha  [f001      ]   Conduce No.      [cn           ]               
   Departamento      [s   ][a1                          ]               

 <G Detalle                                                                 >
                 CANTIDAD 
  Codigo         Entregada  Unidad    D e s c r i p c i o n         Maquina
  [a][b ][c ][d  ][f02        ][p  ][k                              ][m1 ]
  [a][b ][c ][d  ][f02        ][p  ][k                              ][m1 ]
  [a][b ][c ][d  ][f02        ][p  ][k                              ][m1 ]
  [a][b ][c ][d  ][f02        ][p  ][k                              ][m1 ]
  [a][b ][c ][d  ][f02        ][p  ][k                              ][m1 ]
  [a][b ][c ][d  ][f02        ][p  ][k                              ][m1 ]
  Descripcion Maquina[n1                                  ]

}
end

tables
irtb00002,
irtb00002,
irtb00006,
adtb00002

attributes
ord  = irtb00006.orden_compra,autonext,comments = 
"Digite Orden Compras para devolver ";
ti = formonly.tipo,autonext;
cn = formonly.conduce_no;
sp= formonly.cod_sp;
sp1= formonly.cod_sp_sec;
n  = formonly.nom_sp,noentry;
f000 = formonly.num_doc;
f001 = irtb00006.fecha, format = "dd/mm/yyyy",autonext,
       comments = "Digite Fecha Documento";
s = formonly.secc_a,autonext,
       comments = "Digite Codigo Localidad";    
a1   = formonly.nombre_d, noentry; 
a    = irtb00006.cod_n,autonext,
       comments = "Digite Codigo Articulo CONTROL-E Busqueda";
b    = irtb00006.cod_grupo,autonext,
       comments = "Digite Codigo Articulo CONTROL-E Busqueda"; 
c    = irtb00006.cod_tipo,autonext,
       comments = "Digite Codigo Articulo CONTROL-E Busqueda"; 
d    = irtb00006.cod_sec,autonext,
       comments = "Digite Codigo Articulo CONTROL-E Busqueda"; 
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,
 comments = "Digite Codigo Del Movimiento Correspondiente";
t1   = formonly.descrip_mov,noentry;
m1   = formonly.codigo,autonext, comments = 
     "Digite El Codigo de La Maquina Que Corresponde a este Repuesto";
n1   = formonly.nombre,noentry;
  INSTRUCTIONS
    SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,
                              cantidad_2,unidad_med,descrip_esp,codigo)
end