48 lines
1.3 KiB
Plaintext
48 lines
1.3 KiB
Plaintext
database rayovac end
|
|
output report to "jh"
|
|
left margin 0 end
|
|
|
|
select
|
|
a.num_emp,
|
|
a.porc_accidente,
|
|
b.nom1_emp,b.apell1_emp,b.nomina
|
|
from notb00018 a, adtb00003 b
|
|
where a.num_emp = b.num_emp and
|
|
a.status_t is null order by 5,1 end
|
|
|
|
format
|
|
page header
|
|
print column 1, "noprrp020.ace",
|
|
column 19, "R A Y . O . V A C D O M I N I C A N A, S. A.",
|
|
column 73, today using "dd/mm/yy"
|
|
print column 19, " PORCENTAJE DE ACCIDENTE DE EMPLEADOS",
|
|
column 73, time
|
|
print column 73, "PAG.: ",pageno using "##"
|
|
skip 1 line
|
|
print column 1,
|
|
"===================================================================",
|
|
"=============="
|
|
print column 1, " EMPLEADOS ",
|
|
column 70, " PORCENTAJE"
|
|
print column 1,
|
|
"===================================================================",
|
|
"=============="
|
|
before group of 5
|
|
skip 1 line
|
|
begin
|
|
if nomina = "Q" then
|
|
print "Q U I N C E N A L E S"
|
|
else
|
|
print "S E M A N A L E S"
|
|
end
|
|
skip 1 line
|
|
on every row
|
|
print column 1, num_emp using "####"," ",nom1_emp," ",apell1_emp,
|
|
column 74, porc_accidente using "###.##","%"
|
|
after group of 5
|
|
skip to top of page
|
|
|
|
on last row
|
|
print column 1, "REGISTROS IMPRESOS====> ",count using "#####"
|
|
end
|