TOOLBAR 
  ITEM nuevo (TEXT="Produccion", IMAGE="new", COMMENT="Nuevo Documento")
  ITEM buscar (TEXT="Buscar Documento", IMAGE="find", COMMENT="Criterio de busqueda")
  ITEM anular (TEXT="Anular Registros", IMAGE="cancel",COMMENT="Anula Registro en Screen")
 SEPARATOR
  ITEM salir (TEXT="Salir", IMAGE="quit")
END

LAYOUT (TEXT="CREACION DOCUMENTO PRODUCCION", STYLE="basic")
GRID

{
<G "General"                                                 >
   Secuencia [f007 ] Fecha [f005     ]
   Factor    [f1   ]
   Departa.  [f2  ]        [ce                              ]

<G "Detalle"                                                                     >
  <t                                                                         > 
  [ti ][f11 ][f4    ][f5    ][f6    ][f7   ][f0  ][f002    ][blq        ][tr]
  [ti ][f11 ][f4    ][f5    ][f6    ][f7   ][f0  ][f002    ][blq        ][tr]
  [ti ][f11 ][f4    ][f5    ][f6    ][f7   ][f0  ][f002    ][blq        ][tr]
  [ti ][f11 ][f4    ][f5    ][f6    ][f7   ][f0  ][f002    ][blq        ][tr]
  [ti ][f11 ][f4    ][f5    ][f6    ][f7   ][f0  ][f002    ][blq        ][tr]

 <G "INFORMACION"                                       >
  Produce     : [des                            ][un ]
  Operacion   : [pr                             ]
  Empleado    : [a                              ]
  TURNO       : [trd                            ] 
}
end

attributes
tr  = formonly.turno,TITLE="TURNO";
trd = formonly.tdescripcion;
blq = FORMONLY.codigo_bloque,upshift,scroll,TITLE="BLOQUE";
f2 = FORMONLY.departamento,required;
f007 = formonly.num_doc,noentry;
ce  = formonly.descrip2,noentry;
f1  = formonly.factor,comments = "Digite factor que desa calcular las horas normales";
DATEEDIT f005 = FORMONLY.fecha TYPE DATE,required,FORMAT="DD/MM/YYYY";
f11  = FORMONLY.emp_no,autonext,TITLE="EMPLEADO";  
f0 = formonly.cod_prod,TITLE="CODIGO";
pr = formonly.nombre_mq,upshift,comments = "Digite Descripcion Operacion";
ti = formonly.tipo,comments = "Digite Codigo de la Maquina",TITLE="OPERACION";
f4 = FORMONLY.h_directa,autonext,TITLE="N.DIRECTA";
f5 = FORMONLY.h_indirecta,autonext,TITLE="N.IND.";
f6 = FORMONLY.e_directa,autonext,TITLE="E. DIRECTAS";
f7 = FORMONLY.e_indirecta,autonext,TITLE="E.INDIRECTAS";
un = formonly.medida,noentry;
f002 = FORMONLY.cantidad,comments = "Digite Cantidad Producida",TITLE="CANTIDAD";
des = formonly.descripcion,noentry;
a   = formonly.nombre,noentry;
instructions
 screen record scr_costos[5] (tipo,emp_no,h_directa,h_indirecta,e_directa,
                              e_indirecta,cod_prod,cantidad,codigo_bloque,turno)
delimiters " "
end