Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- BEGIN
- SELECT a.cnr_cdgo_cargo
- INTO v_cargo_bonificado
- FROM pesp_cpto_a_fact c,
- ldd_cargos_no_recu a,
- pesp_trn_tarif b
- WHERE a.cnr_cdgo_cargo = b.tvl_trans_code AND
- a.sol_nro_solic = c1.sol_nro_solic AND
- a.ren_nro_renglon = c1.ren_nro_renglon AND
- a.tra_nro_tram = c1.tra_nro_tram AND
- a.cnr_tipo_domi = c1.vex_tipo_domi AND
- b.tpe_codigo = c1.tpe_codigo AND
- b.tcr_gr_cargo = 'CARGO' AND
- b.tcr_recurrente = 'N' AND
- INSTR(x_cargos_no_dto, a.cnr_cdgo_cargo) = 0 AND
- c.tpe_codigo = b.tpe_codigo AND
- c.tcr_gr_cargo = b.tcr_gr_cargo AND
- c.tcr_recurrente = b.tcr_recurrente AND
- c.caf_concepto = b.caf_concepto AND
- rownum=1;
- exception
- WHEN NO_DATA_FOUND THEN
- b_existe_cdgo_conex := FALSE;
- WHEN others THEN
- ROLLBACK;
- v_error := 'ERROR AL RECUPERAR EL CARGO BONIFICADO EN PA_LDD_DESCUENTOS.CALCULAR_DTO_CONEX -
- sqlcode: '|| to_char(sqlcode)||' - sqlerrm: '||sqlerrm;
- pa_pesp_error_batch.pesp_error_batch ('LDD',
- 'CALCULAR_DTO_CONEX',
- v_fecha_proceso, c1.sol_nro_solic,
- c1.ren_nro_renglon, c1.tra_nro_tram,
- v_error);
- raise;
- END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement