[Home] [Help]
128: /*
129: || Coding the ln_current > nvl(ln_end, ln_current+1) to make this check explicitly false in case the ln_end is NULL
130: || so it becomes infinitely applicable
131: */
132: p_process_flag := jai_constants.expected_error;
133: p_process_msg := 'Document Numbers are exhausted. Please set the End number to a larger value';
134: p_invoice_number := 0;
135: ELSIF ((ln_current +1 ) <= NVL(ln_end,ln_current+1) )
136: THEN
145: UPDATE jai_rgm_doc_seq_dtls
146: SET current_number = ln_current
147: WHERE rgm_document_seq_dtl_id = ln_seq_dtl_id ;
148:
149: p_process_flag := jai_constants.successful ;
150: p_process_msg := 'VAT Invoice Number generated';
151:
152: END IF;
153: ELSE /*
164: CLOSE c_get_prefix_current ;
165:
166: IF ( (ln_current +1 ) > NVL(ln_end,ln_current + 1) )
167: THEN
168: p_process_flag := jai_constants.expected_error;
169: p_process_msg := 'Document Numbers are exhausted. Please set the End number to a larger value';
170: p_invoice_number := 0;
171: ELSIF ( (ln_current +1 ) <= NVL(ln_end,ln_current + 1) )
172: THEN
181: UPDATE jai_rgm_doc_seq_dtls
182: SET current_number = ln_current
183: WHERE rgm_document_seq_dtl_id = ln_seq_dtl_id ;
184:
185: p_process_flag := jai_constants.successful ;
186: p_process_msg := 'VAT Invoice Number generated - default 1';
187:
188: END IF;
189: ELSE
187:
188: END IF;
189: ELSE
190: close c_default ; -- added by ssawant for bug#5603661
191: p_process_flag := jai_constants.expected_error;
192: p_process_msg := 'No Default document sequence setup exists for the regime / organization / location';
193: p_invoice_number := 0;
194: END IF;
195: END IF; /* END IF for detail found */
221: CLOSE c_get_prefix_current ;
222:
223: IF (ln_current +1 ) > NVL(ln_end,ln_current+1)
224: THEN
225: p_process_flag := jai_constants.expected_error;
226: p_process_msg := 'Document Numbers are exhausted. Please set the End number to a larger value';
227: p_invoice_number := 0;
228: ELSIF ((ln_current +1 ) <= NVL(ln_end,ln_current+1) )
229: THEN
238: UPDATE jai_rgm_doc_seq_dtls
239: SET current_number = ln_current
240: WHERE rgm_document_seq_dtl_id = ln_seq_dtl_id ;
241:
242: p_process_flag := jai_constants.successful ;
243: p_process_msg := 'VAT Invoice Number generated';
244:
245: END IF;
246: ELSE -- if given doc class doesnt exist for the registration number
255: CLOSE c_get_prefix_current ;
256:
257: IF ( (ln_current +1 ) > NVL(ln_end,ln_current + 1) )
258: THEN
259: p_process_flag := jai_constants.expected_error;
260: p_process_msg := 'Document Numbers are exhausted. Please set the End number to a larger value';
261: p_invoice_number := 0;
262: ELSIF ( (ln_current +1 ) <= NVL(ln_end,ln_current + 1) )
263: THEN
272: UPDATE jai_rgm_doc_seq_dtls
273: SET current_number = ln_current
274: WHERE rgm_document_seq_dtl_id = ln_seq_dtl_id ;
275:
276: p_process_flag := jai_constants.successful ;
277: p_process_msg := 'VAT Invoice Number generated - default 2';
278:
279: END IF;
280: ELSE /* No Default exists for the registration number level also */
278:
279: END IF;
280: ELSE /* No Default exists for the registration number level also */
281: close c_default; -- added by ssawant for bug#5603661
282: p_process_flag := jai_constants.expected_error;
283: p_process_msg := 'No Default document sequence setup exists for the regime / registration number level';
284: p_invoice_number := 0;
285: END IF;
286: END IF; /* END IF for No detail exists for the registration number */
289: /*
290: || No Setup found for the registration number , hence need to signal an error
291: */
292: close c_rgm_hdr_regnum ; -- added by ssawant for bug#5603661
293: p_process_flag := jai_constants.expected_error;
294: p_process_msg:= 'Document sequencing setup not done at Registration number level ' ;
295: --registration_num exist for such regime,organization, location combination
296: --Document sequencing not done though setup form
297: END IF;
296: --Document sequencing not done though setup form
297: END IF;
298: ELSE
299: close c_rgm_regnum ; -- added by ssawant for bug#5603661
300: p_process_flag := jai_constants.expected_error;
301: p_process_msg:= 'Unable to get the registration number for regime + organization + location ' ;
302: --registration_num doesnt exist for such regime,organization, location combination
303: END IF ;
304: /*
304: /*
305: Commented this code for testing purposes.
306: ELSE --header doesnt exists for such regime,location,organization combination (or) such registration_num
307:
308: p_process_flag := jai_constants.expected_error;
309: p_process_msg := 'Document Sequencing Setup not done for this Regime, Location and Organization';
310: p_invoice_number := 0;
311: */
312: END IF;
311: */
312: END IF;
313: EXCEPTION
314: WHEN OTHERS THEN
315: p_process_flag := jai_constants.unexpected_error ;
316: p_process_msg := 'Exception occurred: ' || SQLCODE || 'Exception Message: ' || substr(SQLERRM,1,1000) ;
317:
318: END Gen_Invoice_Number;
319: