83 lines
2.2 KiB
Plaintext
83 lines
2.2 KiB
Plaintext
database rayovac end
|
|
|
|
define variable negras_on char(2)
|
|
variable negras_of char(2)
|
|
variable doce char(2)
|
|
variable numero_nom INTEGER
|
|
variable tipo CHAR(1)
|
|
variable nom_tipo char(15)
|
|
variable codigo SMALLINT
|
|
variable p_valor decimal(12,2)
|
|
end
|
|
input
|
|
prompt for tipo using "Entre Tipo Empleados: "
|
|
prompt for numero_nom using "Entre no. de la nomina: "
|
|
prompt for codigo using "Entre Codigo Movimiento: "
|
|
end
|
|
output report to pipe "lp -dlpt1" end
|
|
select
|
|
a.tipo_emp,
|
|
a.num_emp,
|
|
c.nom1_emp,
|
|
c.apell1_emp,
|
|
a.cod_mov,
|
|
b.descrip_mov,
|
|
b.cantidad_cia,
|
|
a.cantidad,
|
|
a.valor
|
|
from notb00007 a,notb00002 b, adtb00003 c
|
|
where a.num_nomi = $numero_nom and
|
|
a.tipo_emp = $tipo and
|
|
a.cod_mov = b.cod_mov and
|
|
a.status_t is null and
|
|
a.num_emp = c.num_emp and
|
|
a.cod_mov = $codigo
|
|
|
|
order by 5,2 end
|
|
format
|
|
page header
|
|
let negras_on = ascii 27, ascii 69
|
|
let negras_on = ascii 27, ascii 70
|
|
let doce = ascii 27, ascii 77
|
|
print negras_on
|
|
print column 1, "noprrp017",
|
|
column 16, "R A Y .O. V A C D O M I N I C A N A, S. A.",
|
|
column 69, today using "dd/mm/yy"
|
|
print column 32, "Sistema de nomina",
|
|
column 69, time
|
|
|
|
begin
|
|
IF tipo_emp = "Q" THEN
|
|
LET nom_tipo = "QUINCENAL"
|
|
ELSE
|
|
LET nom_tipo = "SEMANAL"
|
|
end
|
|
print column 32, nom_tipo
|
|
print negras_of,doce
|
|
|
|
print column 1,
|
|
"============================================================================",
|
|
"============="
|
|
print column 1, "Movimientos",
|
|
column 30, "Empleados",
|
|
column 70, "Cantidad",
|
|
column 84, "Valor"
|
|
print column 1,
|
|
"============================================================================",
|
|
"============="
|
|
|
|
before group of 5
|
|
skip 1 line
|
|
print column 1, cod_mov using "&&"," ",descrip_mov
|
|
on every row
|
|
begin
|
|
let p_valor = valor
|
|
if cantidad_cia > 0 then
|
|
let p_valor = cantidad_cia * cantidad
|
|
end
|
|
print column 30, num_emp using "&&&"," ",nom1_emp clipped," ",
|
|
apell1_emp,
|
|
column 70, cantidad using "###.##",
|
|
column 80, p_valor using "##,###.##"
|
|
end
|