{
------------------------------------------------------------------------
 FORMULARIO        : NOFMMT007
 OBJETIVO          : Pantalla que captura las novedades de los empleados
 PROGRAMADOR       : Betania Guerrero  
 PROGRAMA Q. LO USA: NOPRMT007
 FECHA REALIZACION : Agosto 24, 1993 
------------------------------------------------------------------------
}
database smarmotech    
LAYOUT (TEXT="MAESTRA  NOVEDADES NOMINAS", STYLE="basic")
GRID

{
<G "Encabezado"                                                       >
  Numero de Nomina  [f000]
  Tipo de Empleado  [a][b        ]    Veces a Cobrar [ve ]
  Fecha Inicial     [fi          ]      Fecha Final  [ft        ]
  Codigo Movimientos[f001][d                                    ] 

<G "Detalle"                                                                      >
  Empleado(s)                                        Cantidad         Valor
[f004][f005][f2 ][f3 ][c                             ][f002        ][f003        ]
[f004][f005][f2 ][f3 ][c                             ][f002        ][f003        ]
[f004][f005][f2 ][f3 ][c                             ][f002        ][f003        ]
[f004][f005][f2 ][f3 ][c                             ][f002        ][f003        ]
[f004][f005][f2 ][f3 ][c                             ][f002        ][f003        ]
[f004][f005][f2 ][f3 ][c                             ][f002        ][f003        ]
                                                      -------------- -------------
                                             Totales [t5        ] [t6         ]
}
end
tables
notb00007,notb00010,
notb00002,adtb00003
attributes
f000 = notb00007.num_nomi,autonext,comments = "Digite el numero de la nomina";
COMBOBOX a = formonly.tipo_emp,INCLUDE=("Q","S","J","V"),default="Q",
 comments = "Digite Q- Quincenal, S- Semanal, V- Vendedor, J-Jornales";
b = formonly.descr,noentry;
fi = notb00010.fecha_del,format = "dd/mm/yyyy",noentry;
ft = notb00010.fecha_al,format = "dd/mm/yyyy",noentry;
f004 = adtb00003.num_emp,autonext,
 comments = "Digite la ficha del empleado";
f005 = adtb00003.departamento,noentry;
f2   = adtb00003.nivel_emp,noentry;
f3   = adtb00003.cod_puesto,noentry;
c = formonly.descrip1,noentry;
f001 = notb00007.cod_mov,
 comments = "Digite el movimiento";
d = notb00002.descrip_mov,noentry;
f002 = notb00007.cantidad,autonext,
 comments = "Digite la cantidad del movimiento";
f003 = notb00007.valor,autonext,
 comments = "Digite el valor del movimiento";
t5 = formonly.total1,noentry;
t6 = formonly.total2,noentry;
ve = formonly.veces,comments =
"Digite veces a cobrar una novedad, si es una sola vez deje en blanco";
instructions
 screen record consart[6] (num_emp,departamento,nivel_emp,cod_puesto,descrip1,
                           cantidad,valor)
 delimiters " "
end