Yevmiye Kaydına Eksi Bakiye Girilemez Kontrolü

IF :object_type = '30' AND :transaction_type IN ( 'U','A')

then

select count(*) into cnt

 FROM JDT1 T0

WHERE

(T0."Debit" <0  OR T0."Credit" <0)   and T0."TransId"=:list_of_cols_val_tab_del;

if :cnt > 0 then

error := -111;

error_message := N'[HATA 21-01] Borç Yada Alacak Bölümüne Negatif Değer Girilemez!';

END if;

END if;