[OpenbravoERP-commits] devel/pi: Fixes issue 0019414: Generate receipt from invoice doe...

[hg]

details:   https://code.openbravo.com/erp/devel/pi/rev/7912f8d220f0
changeset: 15079:7912f8d220f0
user:      Jon Alegría <jon.alegria <at> openbravo.com>
date:      Wed Jan 04 15:02:23 2012 +0100
summary:   Fixes issue 0019414: Generate receipt from invoice does not show the 
number of
receipt created

diffstat:

 src-db/database/model/functions/C_INVOICE_CREATERECEIPT.xml |  3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

diffs (20 lines):

diff -r 47321969e8b5 -r 7912f8d220f0 
src-db/database/model/functions/C_INVOICE_CREATERECEIPT.xml
--- a/src-db/database/model/functions/C_INVOICE_CREATERECEIPT.xml       Wed Jan 
04 14:09:28 2012 +0100
+++ b/src-db/database/model/functions/C_INVOICE_CREATERECEIPT.xml       Wed Jan 
04 15:02:23 2012 +0100
@@ -41,6 +41,7 @@
     --
     v_DocStatus VARCHAR2(60) ;
     v_InOut_ID VARCHAR2(32);
+    v_DocumentNo M_INOUT.DocumentNo%TYPE;
     FINISH_PROCESS BOOLEAN:=false;
   BEGIN
     --  Update AD_PInstance
@@ -104,6 +105,8 @@
       -- Create (and post) the shipment
       v_ResultStr:='Create Shipment';
       M_InOut_Create(NULL, v_InOut_ID, NULL, v_Record_ID, 'Y', v_M_Locator_ID) 
;
+      SELECT DocumentNo INTO v_DocumentNo FROM M_InOut WHERE M_Inout_ID = 
v_InOut_ID;
+      v_Message := '@DocumentNo@ = ' || v_DocumentNo;
       DBMS_OUTPUT.PUT_LINE('  Shipment - ' || v_InOut_ID) ;
       IF(v_InOut_ID='0') THEN
         RAISE_APPLICATION_ERROR(-20000, '@InOutCreateFailed@');

------------------------------------------------------------------------------
Ridiculously easy VDI. With Citrix VDI-in-a-Box, you don't need a complex
infrastructure or vast IT resources to deliver seamless, secure access to
virtual desktops. With this all-in-one solution, easily deploy virtual 
desktops for less than the cost of PCs and save 60% on VDI infrastructure 
costs. Try it free! http://p.sf.net/sfu/Citrix-VDIinabox
_______________________________________________
Openbravo-commits mailing list
Openbravo-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/openbravo-commits