{
------------------------------------------------------------------------
 FORMULARIO        : NOFMCS006
 OBJETIVO          : Pantalla que consulta los ingresos que tienen los
	             empleados
                     Es utilizada por: NOFMCS006
 PROGRAMADOR       : Ing. Juan Soto
 FECHA REALIZACION : Enero 27, 1993
------------------------------------------------------------------------
}
database smarmotech
LAYOUT
 GRID
 
{
 <g                                                                             >
  Codigo Empleado  [f000][f001][f2][f3][a                             ]
  Tipo de Empleado [c] [te       ]Movimiento[f4 ][b                          ]

 <t                                                                             >
 [f002    ]     [f20       ]  [f005 ] [f006   ] [f21        ]
 [f002    ]     [f20       ]  [f005 ] [f006   ] [f21        ]
 [f002    ]     [f20       ]  [f005 ] [f006   ] [f21        ]
 [f002    ]     [f20       ]  [f005 ] [f006   ] [f21        ]
 
[j]
Usuario Creador  [f007     ]             Usuario Modificador  [f009     ]
Fecha Creacion   [f008            ]      Fecha Modificacion   [f010            ]
}
end
tables
notb00008,notb00002,
adtb00003
attributes
f002 = notb00008.num_nomi,autonext,TITLE="Nomina",
 comments = "Digite el numero de nomina";
c = notb00008.tipo_emp,autonext,upshift,
 comments = "Digite Q- Quincenal, S- Semanal, V- Vendedor";
te = formonly.descr,noentry;
f000 = adtb00003.num_emp,autonext;
f001 = adtb00003.departamento,autonext,
 comments = "Digite el departamento del empleado";
f2 = adtb00003.nivel_emp,noentry;
f3 = adtb00003.cod_puesto,noentry;
a = formonly.descrip1,noentry;
f4 = notb00008.cod_mov,autonext;
b = notb00002.descrip_mov,noentry;
f20 = notb00008.fecha,format = "dd/mm/yyyy",TITLE="Fecha";
f21 = formonly.balance,TITLE="Balance";
f005 = notb00008.cantidad,TITLE="Cantidad";
f006 = notb00008.valor,TITLE="Valor";
j = notb00008.status_t,noentry;
f007 = notb00008.us_crea,noentry;
f008 = notb00008.fech_crea,noentry;
f009 = notb00008.us_mod,noentry;
f010 = notb00008.fech_mod,noentry;
instructions
  screen record consart[4] (num_nomi,fecha,cantidad,valor,balance)
  delimiters " "
end