buat yoka RSU kebumen

ALTER PROCEDURE PENDAPATAN_KASIR (
kasir varchar(45),
far varchar(1),
tgl1 date,
tgl2 date)
returns (
nobukti varchar(20),
tanggal date,
tot_jual numeric(15,2),
dibayar numeric(15,2),
kembali numeric(15,2),
sisa numeric(15,2),
diskon numeric(15,2),
crea varchar(45),
namapasien varchar(45))
as
begin

for
select penjualan1.nobukti,
penjualan1.tgl_bayar,
penjualan1.tot_jual,
penjualan1.dibayar,
penjualan1.dibayar - (tot_jual-diskon) as kembali,
penjualan1.diskon,
coalesce(penjualan1.vmodiby,penjualan1.vcreaby),
penjualan1.atas_nama
from penjualan1
where coalesce(vmodiby,vcreaby) = :KASIR and
penjualan1.tgl_bayar between :TGL1 and :TGL2 and
penjualan1.nobukti in (select penjualan2.nobukti from penjualan2 where penjualan2.farmasi = :FAR)
order by nobukti
into :nobukti, :tanggal, :tot_jual, :dibayar, :kembali, :diskon, :crea, :namapasien
do
begin
IF (:diskon is null) THEN diskon = 0 ;
IF (:tot_jual > :dibayar) THEN sisa = (:tot_jual - :diskon) - :dibayar ;
else sisa = 0;
suspend;
end

for
select returjual1.nobukti,
returjual1.tgl,
returjual1.dibayar * -1,
coalesce(vmodiby,vcreaby) as kasirretur,
returjual1.nama_pasien
from returjual1
where coalesce(vmodiby,vcreaby) = :KASIR and
returjual1.tgl between :TGL1 and :TGL2 and
returjual1.dari_nojual in (select penjualan2.nobukti from penjualan2 where penjualan2.farmasi = :FAR)
into :nobukti, :tanggal, :dibayar, :crea, :namapasien
do
begin
TOT_JUAL = 0 ;
KEMBALI = 0 ;
SISA = 0 ;
suspend;
end

end