postbooks-schema-quickstart-4.1.0/ 0000755 0001750 0001750 00000000000 12223754370 016444 5 ustar daniel daniel postbooks-schema-quickstart-4.1.0/INSTALL.txt 0000644 0001750 0001750 00000007226 12223754370 020322 0 ustar daniel daniel Installing xTuple ERP
===========================================
Last Updated: February 9, 2012
Thank you for your interest in xTuple ERP: PostBooks Edition, an
OSI-certified open source application from xTuple. This file provides
a brief overview of the steps required to manually prepare your
PostgreSQL server to run xTuple ERP: PostBooks Edition.
For up-to-date instructions and full details, please visit xtuple.org
and click on Docs > Admin and Setup.
The easiest way to get started is to use the xTuple all-in-one
installer. The xTuple installer is available for Windows, Mac, and
Linux. You can download the installer from the PostBooks-installers
directory on the PostBooks SourceForge page.
For more advanced users who prefer not to use the PostBooks installer,
the following steps will get you started:
1. Install and configure PostgreSQL
2. Create the PostgreSQL database superuser 'admin' and
the group 'xtrole'
$ psql -U postgres -f init.sql template0 # see init.sql below
3. Create a new PostgreSQL database
$ createdb -U admin production
4. Restore one of the xTuple starter databases into it
(see Starter Databases below), for example:
$ pg_restore -U admin -d production quickstart.backup -v
PostgreSQL Considerations
-------------------------
Before you can start using the xTuple Applications, you must first
have PostgreSQL installed and properly configured. Check
http://www.xtuple.org/compatibility-matrix to make sure the version
of PostgreSQL you are running is compatible with the version of
xTuple ERP you are installing.
For additional information on installing PostgreSQL, please visit
http://www.postgresql.org where you will find in-depth documentation
and other resources related to PostgreSQL. Installation support is
also available from xTuple. To learn more about xTuple's PostgreSQL
services, please visit http://www.xtuple.com/postgres.
NOTE: The xTuple applications require the PostgreSQL pgcrypto module.
This is used for credit card processing and storing other
sensitive information. You should be sure to include the
pgcrypto module when installing PostgreSQL. If you do not,
you will encounter errors when running the xTuple ERP
application.
init.sql: Creating the admin user and xtrole group
--------------------------------------------------
Run the following SQL script using either psql, pgAdmin, or some
other program that allows connecting directly to a PostgreSQL
database server before creating your xTuple ERP database:
--
-- This script creates the group xtrole and the user admin
--
CREATE GROUP xtrole;
-- Create the user 'admin' with the password 'admin',
-- give it permission to create databases and users,
-- and place it in the xtrole group.
CREATE USER admin WITH PASSWORD 'admin'
CREATEDB CREATEUSER
IN GROUP xtrole;
-- End of init.sql
NOTE: Since the default password for the user admin is 'admin', you'll
want to change it immediately.
Starter databases
-----------------
xTuple supplies three different databases to help get you started:
* empty.backup
This is an empty database with no data, but with all the tables
and structures created.
* quickstart.backup
This database contains a basic Chart of Accounts and also the
Account Assignments required to run the full range of transactions.
* demo.backup
This database contains a suite of sample data built on top of the
'quickstart' database
-----------------
Again, thank you for your interest in xTuple ERP.
You can find more information, full documentation, discussion forums,
support options, training opportunities, and commercial offerings at
http://www.xtuple.org
postbooks-schema-quickstart-4.1.0/LICENSE.txt 0000644 0001750 0001750 00000067244 12223754370 020304 0 ustar daniel daniel Common Public Attribution License Version 1.0 (CPAL)
1. Definitions
1.0.1 "Commercial Use" means distribution or otherwise making the Covered Code available to a third party.
1.1 "Contributor" means each entity that creates or contributes to the creation of Modifications.
1.2 "Contributor Version" means the combination of the Original Code, prior Modifications used by a Contributor, and the Modifications made by that particular Contributor.
1.3 "Covered Code" means the Original Code or Modifications or the combination of the Original Code and Modifications, in each case including portions thereof.
1.4 "Electronic Distribution Mechanism" means a mechanism generally accepted in the software development community for the electronic transfer of data.
1.5 "Executable" means Covered Code in any form other than Source Code.
1.6 "Initial Developer" means the individual or entity identified as the Initial Developer in the Source Code notice required by Exhibit A.
1.7 "Larger Work" means a work which combines Covered Code or portions thereof with code not governed by the terms of this License.
1.8 "License" means this document.
1.8.1 "Licensable" means having the right to grant, to the maximum extent possible, whether at the time of the initial grant or subsequently acquired, any and all of the rights conveyed herein.
1.9 "Modifications" means any addition to or deletion from the substance or structure of either the Original Code or any previous Modifications. When Covered Code is released as a series of files, a Modification is:
A. Any addition to or deletion from the contents of a file containing Original Code or previous Modifications.
B. Any new file that contains any part of the Original Code or previous Modifications.
1.10 "Original Code" means Source Code of computer software code which is described in the Source Code notice required by Exhibit A as Original Code, and which, at the time of its release under this License is not already Covered Code governed by this License.
1.10.1 "Patent Claims" means any patent claim(s), now owned or hereafter acquired, including without limitation, method, process, and apparatus claims, in any patent Licensable by grantor.
1.11 "Source Code" means the preferred form of the Covered Code for making modifications to it, including all modules it contains, plus any associated interface definition files, scripts used to control compilation and installation of an Executable, or source code differential comparisons against either the Original Code or another well known, available Covered Code of the Contributor's choice. The Source Code can be in a compressed or archival form, provided the appropriate decompression or de-archiving software is widely available for no charge.
1.12 "You" (or "Your") means an individual or a legal entity exercising rights under, and complying with all of the terms of, this License or a future version of this License issued under Section 6.1. For legal entities, "You" includes any entity which controls, is controlled by, or is under common control with You. For purposes of this definition, "control" means (a) the power, direct or indirect, to cause the direction or management of such entity, whether by contract or otherwise, or (b) ownership of more than fifty percent (50%) of the outstanding shares or beneficial ownership of such entity.
2. Source Code License.
2.1 The Initial Developer Grant.
The Initial Developer hereby grants You a world-wide, royalty-free, non-exclusive license, subject to third party intellectual property claims:
(a) under intellectual property rights (other than patent or trademark) Licensable by Initial Developer to use, reproduce, modify, display, perform, sublicense and distribute the Original Code (or portions thereof) with or without Modifications, and/or as part of a Larger Work; and
(b) under Patents Claims infringed by the making, using or selling of Original Code, to make, have made, use, practice, sell, and offer for sale, and/or otherwise dispose of the Original Code (or portions thereof).
(c) the licenses granted in this Section 2.1(a) and (b) are effective on the date Initial Developer first distributes Original Code under the terms of this License.
(d) Notwithstanding Section 2.1(b) above, no patent license is granted: 1) for code that You delete from the Original Code; 2) separate from the Original Code; or 3) for infringements caused by: i) the modification of the Original Code or ii) the combination of the Original Code with other software or devices.
2.2 Contributor Grant.
Subject to third party intellectual property claims, each Contributor hereby grants You a world-wide, royalty-free, non-exclusive license
(a) under intellectual property rights (other than patent or trademark) Licensable by Contributor, to use, reproduce, modify, display, perform, sublicense and distribute the Modifications created by such Contributor (or portions thereof) either on an unmodified basis, with other Modifications, as Covered Code and/or as part of a Larger Work; and
(b) under Patent Claims infringed by the making, using, or selling of Modifications made by that Contributor either alone and/or in combination with its Contributor Version (or portions of such combination), to make, use, sell, offer for sale, have made, and/or otherwise dispose of: 1) Modifications made by that Contributor (or portions thereof); and 2) the combination of Modifications made by that Contributor with its Contributor Version (or portions of such combination).
(c) the licenses granted in Sections 2.2(a) and 2.2(b) are effective on the date Contributor first makes Commercial Use of the Covered Code.
(d) Notwithstanding Section 2.2(b) above, no patent license is granted: 1) for any code that Contributor has deleted from the Contributor Version; 2) separate from the Contributor Version; 3) for infringements caused by: i) third party modifications of Contributor Version or ii) the combination of Modifications made by that Contributor with other software (except as part of the Contributor Version) or other devices; or 4) under Patent Claims infringed by Covered Code in the absence of Modifications made by that Contributor.
3. Distribution Obligations.
3.1 Application of License.
The Modifications which You create or to which You contribute are governed by the terms of this License, including without limitation Section 2.2. The Source Code version of Covered Code may be distributed only under the terms of this License or a future version of this License released under Section 6.1, and You must include a copy of this License with every copy of the Source Code You distribute. You may not offer or impose any terms on any Source Code version that alters or restricts the applicable version of this License or the recipients' rights hereunder. However, You may include an additional document offering the additional rights described in Section 3.5.
3.2 Availability of Source Code.
Any Modification which You create or to which You contribute must be made available in Source Code form under the terms of this License either on the same media as an Executable version or via an accepted Electronic Distribution Mechanism to anyone to whom you made an Executable version available; and if made available via Electronic Distribution Mechanism, must remain available for at least twelve (12) months after the date it initially became available, or at least six (6) months after a subsequent version of that particular Modification has been made available to such recipients. You are responsible for ensuring that the Source Code version remains available even if the Electronic Distribution Mechanism is maintained by a third party.
3.3 Description of Modifications.
You must cause all Covered Code to which You contribute to contain a file documenting the changes You made to create that Covered Code and the date of any change. You must include a prominent statement that the Modification is derived, directly or indirectly, from Original Code provided by the Initial Developer and including the name of the Initial Developer in (a) the Source Code, and (b) in any notice in an Executable version or related documentation in which You describe the origin or ownership of the Covered Code.
3.4 Intellectual Property Matters
(a) Third Party Claims. If Contributor has knowledge that a license under a third party's intellectual property rights is required to exercise the rights granted by such Contributor under Sections 2.1 or 2.2, Contributor must include a text file with the Source Code distribution titled "LEGAL" which describes the claim and the party making the claim in sufficient detail that a recipient will know whom to contact. If Contributor obtains such knowledge after the Modification is made available as described in Section 3.2, Contributor shall promptly modify the LEGAL file in all copies Contributor makes available thereafter and shall take other steps (such as notifying appropriate mailing lists or newsgroups) reasonably calculated to inform those who received the Covered Code that new knowledge has been obtained.
(b) Contributor APIs. If Contributor's Modifications include an application programming interface and Contributor has knowledge of patent licenses which are reasonably necessary to implement that API, Contributor must also include this information in the LEGAL file.
(c) Representations. Contributor represents that, except as disclosed pursuant to Section 3.4(a) above, Contributor believes that Contributor's Modifications are Contributor's original creation(s) and/or Contributor has sufficient rights to grant the rights conveyed by this License.
3.5 Required Notices.
You must duplicate the notice in Exhibit A in each file of the Source Code. If it is not possible to put such notice in a particular Source Code file due to its structure, then You must include such notice in a location (such as a relevant directory) where a user would be likely to look for such a notice. If You created one or more Modification(s) You may add your name as a Contributor to the notice described in Exhibit A. You must also duplicate this License in any documentation for the Source Code where You describe recipients' rights or ownership rights relating to Covered Code. You may choose to offer, and to charge a fee for, warranty, support, indemnity or liability obligations to one or more recipients of Covered Code. However, You may do so only on Your own behalf, and not on behalf of the Initial Developer or any Contributor. You must make it absolutely clear than any such warranty, support, indemnity or liability obligation is offered by You alone, and You hereby agree to indemnify the Initial Developer and every Contributor for any liability incurred by the Initial Developer or such Contributor as a result of warranty, support, indemnity or liability terms You offer.
3.6 Distribution of Executable Versions.
You may distribute Covered Code in Executable form only if the requirements of Section 3.1-3.5 have been met for that Covered Code, and if You include a notice stating that the Source Code version of the Covered Code is available under the terms of this License, including a description of how and where You have fulfilled the obligations of Section 3.2. The notice must be conspicuously included in any notice in an Executable version, related documentation or collateral in which You describe recipients' rights relating to the Covered Code. You may distribute the Executable version of Covered Code or ownership rights under a license of Your choice, which may contain terms different from this License, provided that You are in compliance with the terms of this License and that the license for the Executable version does not attempt to limit or alter the recipient's rights in the Source Code version from the rights set forth in this License. If You distribute the Executable version under a different license You must make it absolutely clear that any terms which differ from this License are offered by You alone, not by the Initial Developer, Original Developer or any Contributor. You hereby agree to indemnify the Initial Developer, Original Developer and every Contributor for any liability incurred by the Initial Developer, Original Developer or such Contributor as a result of any such terms You offer.
3.7 Larger Works.
You may create a Larger Work by combining Covered Code with other code not governed by the terms of this License and distribute the Larger Work as a single product. In such a case, You must make sure the requirements of this License are fulfilled for the Covered Code.
4. Inability to Comply Due to Statute or Regulation.
If it is impossible for You to comply with any of the terms of this License with respect to some or all of the Covered Code due to statute, judicial order, or regulation then You must: (a) comply with the terms of this License to the maximum extent possible; and (b) describe the limitations and the code they affect. Such description must be included in the LEGAL file described in Section 3.4 and must be included with all distributions of the Source Code. Except to the extent prohibited by statute or regulation, such description must be sufficiently detailed for a recipient of ordinary skill to be able to understand it.
5. Application of this License.
This License applies to code to which the Initial Developer has attached the notice in Exhibit A and to related Covered Code.
6. Versions of the License.
6.1 New Versions.
Socialtext, Inc. ("Socialtext") may publish revised and/or new versions of the License from time to time. Each version will be given a distinguishing version number.
6.2 Effect of New Versions.
Once Covered Code has been published under a particular version of the License, You may always continue to use it under the terms of that version. You may also choose to use such Covered Code under the terms of any subsequent version of the License published by Socialtext. No one other than Socialtext has the right to modify the terms applicable to Covered Code created under this License.
6.3 Derivative Works.
If You create or use a modified version of this License (which you may only do in order to apply it to code which is not already Covered Code governed by this License), You must (a) rename Your license so that the phrases "Socialtext", "CPAL" or any confusingly similar phrase do not appear in your license (except to note that your license differs from this License) and (b) otherwise make it clear that Your version of the license contains terms which differ from the CPAL. (Filling in the name of the Initial Developer, Original Developer, Original Code or Contributor in the notice described in Exhibit A shall not of themselves be deemed to be modifications of this License.)
7. DISCLAIMER OF WARRANTY.
COVERED CODE IS PROVIDED UNDER THIS LICENSE ON AN "AS IS" BASIS, WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, WITHOUT LIMITATION, WARRANTIES THAT THE COVERED CODE IS FREE OF DEFECTS, MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE OR NON-INFRINGING. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE COVERED CODE IS WITH YOU. SHOULD ANY COVERED CODE PROVE DEFECTIVE IN ANY RESPECT, YOU (NOT THE INITIAL DEVELOPER, ORIGINAL DEVELOPER OR ANY OTHER CONTRIBUTOR) ASSUME THE COST OF ANY NECESSARY SERVICING, REPAIR OR CORRECTION. THIS DISCLAIMER OF WARRANTY CONSTITUTES AN ESSENTIAL PART OF THIS LICENSE. NO USE OF ANY COVERED CODE IS AUTHORIZED HEREUNDER EXCEPT UNDER THIS DISCLAIMER.
8. TERMINATION.
8.1 This License and the rights granted hereunder will terminate automatically if You fail to comply with terms herein and fail to cure such breach within 30 days of becoming aware of the breach. All sublicenses to the Covered Code which are properly granted shall survive any termination of this License. Provisions which, by their nature, must remain in effect beyond the termination of this License shall survive.
8.2 If You initiate litigation by asserting a patent infringement claim (excluding declatory judgment actions) against Initial Developer, Original Developer or a Contributor (the Initial Developer, Original Developer or Contributor against whom You file such action is referred to as "Participant") alleging that:
(a) such Participant's Contributor Version directly or indirectly infringes any patent, then any and all rights granted by such Participant to You under Sections 2.1 and/or 2.2 of this License shall, upon 60 days notice from Participant terminate prospectively, unless if within 60 days after receipt of notice You either: (i) agree in writing to pay Participant a mutually agreeable reasonable royalty for Your past and future use of Modifications made by such Participant, or (ii) withdraw Your litigation claim with respect to the Contributor Version against such Participant. If within 60 days of notice, a reasonable royalty and payment arrangement are not mutually agreed upon in writing by the parties or the litigation claim is not withdrawn, the rights granted by Participant to You under Sections 2.1 and/or 2.2 automatically terminate at the expiration of the 60 day notice period specified above.
(b) any software, hardware, or device, other than such Participant's Contributor Version, directly or indirectly infringes any patent, then any rights granted to You by such Participant under Sections 2.1(b) and 2.2(b) are revoked effective as of the date You first made, used, sold, distributed, or had made, Modifications made by that Participant.
8.3 If You assert a patent infringement claim against Participant alleging that such Participant's Contributor Version directly or indirectly infringes any patent where such claim is resolved (such as by license or settlement) prior to the initiation of patent infringement litigation, then the reasonable value of the licenses granted by such Participant under Sections 2.1 or 2.2 shall be taken into account in determining the amount or value of any payment or license.
8.4 In the event of termination under Sections 8.1 or 8.2 above, all end user license agreements (excluding distributors and resellers) which have been validly granted by You or any distributor hereunder prior to termination shall survive termination.
9. LIMITATION OF LIABILITY.
UNDER NO CIRCUMSTANCES AND UNDER NO LEGAL THEORY, WHETHER TORT (INCLUDING NEGLIGENCE), CONTRACT, OR OTHERWISE, SHALL YOU, THE INITIAL DEVELOPER, ORIGINAL DEVELOPER, ANY OTHER CONTRIBUTOR, OR ANY DISTRIBUTOR OF COVERED CODE, OR ANY SUPPLIER OF ANY OF SUCH PARTIES, BE LIABLE TO ANY PERSON FOR ANY INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES OF ANY CHARACTER INCLUDING, WITHOUT LIMITATION, DAMAGES FOR LOSS OF GOODWILL, WORK STOPPAGE, COMPUTER FAILURE OR MALFUNCTION, OR ANY AND ALL OTHER COMMERCIAL DAMAGES OR LOSSES, EVEN IF SUCH PARTY SHALL HAVE BEEN INFORMED OF THE POSSIBILITY OF SUCH DAMAGES. THIS LIMITATION OF LIABILITY SHALL NOT APPLY TO LIABILITY FOR DEATH OR PERSONAL INJURY RESULTING FROM SUCH PARTY'S NEGLIGENCE TO THE EXTENT APPLICABLE LAW PROHIBITS SUCH LIMITATION. SOME JURISDICTIONS DO NOT ALLOW THE EXCLUSION OR LIMITATION OF INCIDENTAL OR CONSEQUENTIAL DAMAGES, SO THIS EXCLUSION AND LIMITATION MAY NOT APPLY TO YOU.
10. U.S. GOVERNMENT END USERS.
The Covered Code is a "commercial item," as that term is defined in 48 C.F.R. 2.101 (Oct. 1995), consisting of "commercial computer software" and "commercial computer software documentation," as such terms are used in 48 C.F.R. 12.212 (Sept. 1995). Consistent with 48 C.F.R. 12.212 and 48 C.F.R. 227.7202-1 through 227.7202-4 (June 1995), all U.S. Government End Users acquire Covered Code with only those rights set forth herein.
11. MISCELLANEOUS.
This License represents the complete agreement concerning subject matter hereof. If any provision of this License is held to be unenforceable, such provision shall be reformed only to the extent necessary to make it enforceable. This License shall be governed by Virginia law provisions (except to the extent applicable law, if any, provides otherwise), excluding its conflict-of-law provisions. With respect to disputes in which at least one party is a citizen of, or an entity chartered or registered to do business in the United States of America, any litigation relating to this License shall be subject to the jurisdiction of the Federal Courts of Virginia, with venue lying in Norfolk, Virginia, with the losing party responsible for costs, including without limitation, court costs and reasonable attorneys' fees and expenses. The application of the United Nations Convention on Contracts for the International Sale of Goods is expressly excluded. Any law or regulation which provides that the language of a contract shall be construed against the drafter shall not apply to this License.
12. RESPONSIBILITY FOR CLAIMS.
As between Initial Developer, Original Developer and the Contributors, each party is responsible for claims and damages arising, directly or indirectly, out of its utilization of rights under this License and You agree to work with Initial Developer, Original Developer and Contributors to distribute such responsibility on an equitable basis. Nothing herein is intended or shall be deemed to constitute any admission of liability.
13. MULTIPLE-LICENSED CODE.
Initial Developer may designate portions of the Covered Code as Multiple-Licensed. Multiple-Licensed means that the Initial Developer permits you to utilize portions of the Covered Code under Your choice of the CPAL or the alternative licenses, if any, specified by the Initial Developer in the file described in Exhibit A.
14. ADDITIONAL TERM: ATTRIBUTION
(a) As a modest attribution to the organizer of the development of the Original Code ("Original Developer"), in the hope that its promotional value may help justify the time, money and effort invested in writing the Original Code, the Original Developer may include in Exhibit B ("Attribution Information") a requirement that each time an Executable and Source Code or a Larger Work is launched or initially run (which includes initiating a session), a prominent display of the Original Developer's Attribution Information (as defined below) must occur on the graphic user interface employed by the end user to access such Covered Code (which may include display on a splash screen), if any. The size of the graphic image should be consistent with the size of the other elements of the Attribution Information. If the access by the end user to the Executable and Source Code does not create a graphic user interface for access to the Covered Code, this obligation shall not apply. If the Original Code displays such Attribution Information in a particular form (such as in the form of a splash screen, notice at login, an "about" display, or dedicated attribution area on user interface screens), continued use of such form for that Attribution Information is one way of meeting this requirement for notice.
(b) Attribution information may only include a copyright notice, a brief phrase, graphic image and a URL ("Attribution Information") and is subject to the Attribution Limits as defined below. For these purposes, prominent shall mean display for sufficient duration to give reasonable notice to the user of the identity of the Original Developer and that if You include Attribution Information or similar information for other parties, You must ensure that the Attribution Information for the Original Developer shall be no less prominent than such Attribution Information or similar information for the other party. For greater certainty, the Original Developer may choose to specify in Exhibit B below that the above attribution requirement only applies to an Executable and Source Code resulting from the Original Code or any Modification, but not a Larger Work. The intent is to provide for reasonably modest attribution, therefore the Original Developer cannot require that You display, at any time, more than the following information as Attribution Information: (a) a copyright notice including the name of the Original Developer; (b) a word or one phrase (not exceeding 10 words); (c) one graphic image provided by the Original Developer; and (d) a URL (collectively, the "Attribution Limits").
(c) If Exhibit B does not include any Attribution Information, then there are no requirements for You to display any Attribution Information of the Original Developer.
(d) You acknowledge that all trademarks, service marks and/or trade names contained within the Attribution Information distributed with the Covered Code are the exclusive property of their owners and may only be used with the permission of their owners, or under circumstances otherwise permitted by law or as expressly set out in this License.
15. ADDITIONAL TERM: NETWORK USE.
The term "External Deployment" means the use, distribution, or communication of the Original Code or Modifications in any way such that the Original Code or Modifications may be used by anyone other than You, whether those works are distributed or communicated to those persons or made available as an application intended for use over a network. As an express condition for the grants of license hereunder, You must treat any External Deployment by You of the Original Code or Modifications as a distribution under section 3.1 and make Source Code available under Section 3.2.
EXHIBIT A. Common Public Attribution License Version 1.0.
The contents of this file are subject to the Common Public Attribution License Version 1.0 (the "License"); you may not use this file except in compliance with the License. You may obtain a copy of the License at http://www.xTuple.com/CPAL. The License is based on the Mozilla Public License Version 1.1 but Sections 14 and 15 have been added to cover use of software over a computer network and provide for limited attribution for the Original Developer. In addition, Exhibit A has been modified to be consistent with Exhibit B.
Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for the specific language governing rights and limitations under the License.
The Original Code is xTuple ERP: PostBooks Edition
The Original Developer is not the Initial Developer and is __________. If left blank, the Original Developer is the Initial Developer.
The Initial Developer of the Original Code is OpenMFG, LLC, d/b/a xTuple. All portions of the code written by xTuple are Copyright (c) 1999-2012 OpenMFG, LLC, d/b/a xTuple. All Rights Reserved.
Contributor(s): ______________________.
Alternatively, the contents of this file may be used under the terms of the xTuple End-User License Agreeement (the xTuple License), in which case the provisions of the xTuple License are applicable instead of those above. If you wish to allow use of your version of this file only under the terms of the xTuple License and not to allow others to use your version of this file under the CPAL, indicate your decision by deleting the provisions above and replace them with the notice and other provisions required by the xTuple License. If you do not delete the provisions above, a recipient may use your version of this file under either the CPAL or the xTuple License.
[NOTE: The text of this Exhibit A may differ slightly from the text of the notices in the Source Code files of the Original Code. You should use the text of this Exhibit A rather than the text found in the Original Code Source Code for Your Modifications.]
EXHIBIT B. Attribution Information
Attribution Copyright Notice: Copyright (c) 1999-2012 by OpenMFG, LLC, d/b/a xTuple
Attribution Phrase (not exceeding 10 words): Powered by xTuple ERP: PostBooks Edition
Attribution URL: www.xtuple.org (to be included in the "Community" menu of the application if possible)
Graphic Image as provided in the Covered Code, if any. (online at www.xtuple.com/poweredby)
Display of Attribution Information is required in Larger Works which are defined in the CPAL as a work which combines Covered Code or portions thereof with code not governed by the terms of the CPAL.
postbooks-schema-quickstart-4.1.0/init.sql 0000644 0001750 0001750 00000000626 12223754370 020134 0 ustar daniel daniel --
-- This script creates the group xtrole and the user admin
--
--
-- Create the xtrole group
--
CREATE GROUP xtrole;
--
-- Create the admin user with createdb and createuser
-- permissions. Place the user in the xtrole group and
-- set the password to the default of admin.
--
CREATE USER admin WITH PASSWORD 'admin'
CREATEDB CREATEUSER
IN GROUP xtrole;
postbooks-schema-quickstart-4.1.0/README_Databases.txt 0000644 0001750 0001750 00000003511 12223754370 022111 0 ustar daniel daniel PostBooks Databases Overview
xTuple ERP
====================================
Last Updated: August 9, 2010
Thank you for your interest in PostBooks, an OSI-certified open
source application from xTuple. This file provides a brief overview
of the steps required to manually prepare your PostgreSQL server
to run a PostBooks database.
Of course, the easiest way to get started is to use the xTuple all-
in-one installer. The xTuple installer is available for Windows,
Mac, and Linux. You can download the installer from the
PostBooks-installers directory on the PostBooks SourceForge page. The
all-in-one installer will install both the xTuple client and the
xTuple databases--as well as other tools you can use for database
administration. Using the installer is the easiest way to ensure
your xTuple installation will work for you "out of the box."
For more advanced users who prefer not to use the PostBooks installer,
the following steps will get you started:
1. Install and configure PostgreSQL. (For more information, see the
INSTALL.txt file.)
2. Run the 'init.sql' script to create the user 'admin' and the
group 'xtrole'. (For more information, see the INSTALL.txt file.)
3. Create a new PostgreSQL Database and then restore the xTuple
Database schema into it. There are several starter schema to choose
from, including the following:
* empty.backup - This is an empty database with no data
* quickstart.backup - This database contains a basic Chart of
Accounts and also the Account Assignments required to run the full
range of transactions
* demo.backup - This database (if available) contains a suite of
sample data built on top of the 'quickstart' database
To learn more about loading the xTuple Database schema, please see
the INSTALL.txt file.
4. Once a database has been loaded, simply connect to it using your
PostBooks client application. postbooks-schema-quickstart-4.1.0/ReleaseNotes_4-1-0.txt 0000644 0001750 0001750 00000017742 12223754370 022327 0 ustar daniel daniel Release Notes
xTuple ERP
Version 4.1.0
August 8, 2013
==================================
This is the final release of version 4.1.0. Thanks to all in the
community who made this release possible! You will find several
new features and bug fixes in this release. One note: The
automatic update feature for the Desktop client has been removed
from 4.1.0. It will be reintroduced in a future xTuple release.
Information about compatibility issues related to this software
version can be found on the xTuple Compatibility Matrix at the
following address: www.xtuple.org/compatibility-matrix.
==================================
The following features and bug fixes have been added to the
applications since 4.1.0RC. Additional detail for each item
listed below may be found on our community website under the Issue
Tracker.
Bug Fixes:
* Expired registration key crashes the application on login [20098]
* Selecting to open a "Time Clock Summary" screen displays "Could
Not Create Form" error dialog [20508]
* "Production Time Clock By Employee" screen does not filters the
production time clock entries according to the selected Employee
[20509]
* It is not possible to create a new Work Order time clock entry
from "Production Time Clock By Work Order" screen [20510]
* Fold username to lowercase [20702]
* Remove non-usable P/O reservations code [20772]
* Unable to change the bank account of a sales order set in the
"Cash" section under the "Payment" tab [20779]
* Disallow mismatched client versions option is not honored [20811]
* Time Clock Summary form is missing [20916]
* Shifts are being duplicated [20917
==================================
The following features and bug fixes have been added to the
applications since 4.1.0Beta2. Additional detail for each item
listed below may be found on our community website under the Issue
Tracker.
New Features:
* Substitute items on a sales order [19354]
* Add "Titles" to Customer List [20578]
* Checks and Cash payment from the CC payment tab in Sales Order
Entry [20621]
* Create SO Link PO (adjust qty for PO) [20628]
* Item analyzation [20663]
Bug Fixes:
* Item Master Sorting is not working properly [16914]
* Selecting to add a Bill of Material to a new item generates a
DB log error [17345]
* Set all get...id() stored procedures Volatitlity to STABLE
[17998]
* Contact screen proportionality has changed [18689]
* Inconsistent behavior of "Close" button on Sales order screen
[18875]
* Add owner to api.contact view [19344]
* Saving Filters with Class Code Matching Quantifiers Crashes
xTuple [19346]
* Costs not handled consistently on Quote and Sales Order [19751]
* Change Sales Order header to show profit margin based on the
"long 30" calculation [20001]
* Expose Sales Order Item Unit Cost for visibility and editability
[20003]
* Revert the Sales Order Item Markup/Discount behavior to Discount
only [20005]
* AR Statement cannot be emailed via EDI [20222]
* Duplicate Pricing Schedule Assignment does not display error
[20346]
* Blank "BOM Item Actual Cost" screen is displayed on selecting to
edit a costing element of a Bill Of Materials Item [20427]
* Check Register [20442]
* BOL 3.8.4 -> 4.0.3 Upgrade [20464]
* It is not possible to create a size zone with same details in
different sites [20482]
* It possible to Clock-In a blank operation from "Time Clock"
screen [20507]
* Text overlap in "Post Production" screen [20511]
* Employee Code is not displayed in Production Time clock By Work
Order screen [20512]
* External Catalog Cross warehouse item creation [20533]
* Documents are lost when converting an iQuote to an Open Sales
Order [20564]
* 4.0.5: "MaintainRegistrationKey" privilege is not available in
Postbooks Empty database [20580]
* Running Availability Screen (inconsistant) [20588]
* Inventory, Utlility, Update Reoder Levels [20594]
* Batch Pack List Screen ( add Pick List Batch screen) [20598]
* The "purchaseOrder" dialog is displayed irrelevantly on
selecting to create a Purchase Order [20602]
* Pricing Schedules using scheduled date [20606]
* Sort sequence on Pick tickets/Packlist [20607]
* Sales Reservations report in PostBooks db [20619]
* Irrelevant behavior is observed in "Adjust Inventory Value"
screen [20633]
* PO items do not worklike SO items during PO entry [20665]
* Vendor label is missing in "Attach a Document" screen [20670]
* Selecting to print "A/P Applications" screen does not displays
"Doc#" label [20700]
==================================
The following features and bug fixes have been added to the
applications since 4.1.0Beta. Additional detail for each item
listed below may be found on our community website under the Issue
Tracker.
New Features:
* Replace "List Cost" naming with "Wholesale Price" [20002]
Bug Fixes:
* Currency exchange rate window does not handle localized numerics
properly [10418]
* Delete posted invoice before saving [18630]
* Inventory update should be disabled if no item site [20043]
* Running Availability print does not print all information [20153]
* Picking List SO with Locations report not showing reserved qty
[20174]
* API Price Schedule Item Error [20223]
* Pricing Schedules [20263]
* Recurring creation utility bug [20277]
* Site to Site transfer of fractional amount of item not set as
fractional [20287]
* Cost for newly created item [20299]
* Error running MRP with exceptions: poitem_soitem_id does not
exist [20308]
* Irrelevant behavior is observed on selected to post the receipt
for a PO line item [20337]
* G/LSeries Report & filter [20376]
* deleteitemcost(integer,integer) function uses SELECT where it
should use PERFORM [20381]
* Selecting to copy a Drop Ship quote does not creates drop ship
enabled quote [20390]
* It is possible to create duplicate records for site zone [20403]
* Re-opening a quote doesn't shows the Override Price of a quote
item [20417]
* Make sure new installer does two-letter state abbreviations
[20432]
==================================
The following features and bug fixes have been added to the
applications since 4.0.3. Additional detail for each item listed
below may be found on our community website under the Issue
Tracker.
New Features:
* Make updates more automatic [5837]
* Substitute items on a sales order [19354]
* New API for entering Physical Inventory Counts [19388]
Bug Fixes:
* Freight amount is calculated incorrectly for a sales order with
multiple shipments [17525]
* Postbooks Demo: Selecting to purge invoices generates DB log
error [17779]
* Selecting to post a cash receipt displays a system message
[18623]
* DB log error is generated on selecting to query "Update
Reorder Level by Item" screen [18678]
* Irrelavent behaviour is observed in "User Information" screen
[18705]
* Observation: Incorrect Net unit price is populated in Purchase
Order item screen [18755]
* DB log error is generated on selecting to query the "Return
Authorization Workbench" screen [18934]
* Irrelevent dialog is displayed on selecting to print Sale
Types [18975]
* Unable to print "Contracts" screen [18995]
* API item view missing fields [19317]
* API requires custinfo_shipform in order to display data [19339]
* Only Show Shortages [19421]
* Trial Balance Out of Balance [19583]
* Item "Maximum Desired Cost" value not converted to local
currency when comparing to PO Unit Price [19600]
* "purgeSalesOrders" does not exist on login after 38xto400 std
update [19602]
* It is not possible to copy an already copied Locale [19618]
* DB log error is generated on selecting to print a Sales Order
created for a foreign customer [19639]
* api.itemsourceprice does not include newly added public.itemsrcp
columns [19651]
* Profit Margin doesn't recalculate [19694]
* Convert Quote to Order/Convert Quote to Invoice [19728]
* Substitute items salesOrderItem Screen [19729]
* List cost does not show in local currency [19756]
* Performance issue with Master Schedule display after migrating
to 3.8.4 and new cloud [19961]
* View public.usr, locales, roundqty() affect performance of
cloud db's with more users [19971]
* Return Authorization automatic numbering problem [20013] postbooks-schema-quickstart-4.1.0/postbooks_quickstart-4.1.0.sql 0000644 0001750 0001750 00050611536 12223754370 024141 0 ustar daniel daniel --
-- PostgreSQL database dump
--
SET statement_timeout = 0;
SET client_encoding = 'UTF8';
SET standard_conforming_strings = off;
SET check_function_bodies = false;
SET client_min_messages = warning;
SET escape_string_warning = off;
--
-- Name: api; Type: SCHEMA; Schema: -; Owner: admin
--
CREATE SCHEMA api;
ALTER SCHEMA api OWNER TO admin;
--
-- Name: fixcountry; Type: SCHEMA; Schema: -; Owner: admin
--
CREATE SCHEMA fixcountry;
ALTER SCHEMA fixcountry OWNER TO admin;
--
-- Name: SCHEMA fixcountry; Type: COMMENT; Schema: -; Owner: admin
--
COMMENT ON SCHEMA fixcountry IS 'Schema to hold contents of fixcountry';
--
-- Name: te; Type: SCHEMA; Schema: -; Owner: admin
--
CREATE SCHEMA te;
ALTER SCHEMA te OWNER TO admin;
--
-- Name: SCHEMA te; Type: COMMENT; Schema: -; Owner: admin
--
COMMENT ON SCHEMA te IS 'This file is part of the xTuple ERP: PostBooks Edition, a free and open source Enterprise Resource Planning software suite, Copyright (c) 1999-2010 by OpenMFG LLC, d/b/a xTuple. It is licensed to you under the Common Public Attribution License version 1.0, the full text of which (including xTuple-specific Exhibits) is available at www.xtuple.com/CPAL. By using this software, you agree to be bound by its terms.';
--
-- Name: xtdesktop; Type: SCHEMA; Schema: -; Owner: admin
--
CREATE SCHEMA xtdesktop;
ALTER SCHEMA xtdesktop OWNER TO admin;
--
-- Name: SCHEMA xtdesktop; Type: COMMENT; Schema: -; Owner: admin
--
COMMENT ON SCHEMA xtdesktop IS 'Schema to hold contents of xtdesktop';
--
-- Name: plpgsql; Type: PROCEDURAL LANGUAGE; Schema: -; Owner: admin
--
CREATE PROCEDURAL LANGUAGE plpgsql;
ALTER PROCEDURAL LANGUAGE plpgsql OWNER TO admin;
SET search_path = public, pg_catalog;
--
-- Name: achline; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE achline AS (
achline_checkhead_id integer,
achline_batch text,
achline_type text,
achline_value text
);
ALTER TYPE public.achline OWNER TO admin;
--
-- Name: apaging; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE apaging AS (
apaging_docdate text,
apaging_duedate date,
apaging_ponumber text,
apaging_reference text,
apaging_invcnumber text,
apaging_docnumber text,
apaging_doctype text,
apaging_vend_id integer,
apaging_vend_number text,
apaging_vend_name text,
apaging_vend_vendtype_id integer,
apaging_vendtype_code text,
apaging_terms_descrip text,
apaging_apopen_amount numeric,
apaging_cur_val numeric,
apaging_thirty_val numeric,
apaging_sixty_val numeric,
apaging_ninety_val numeric,
apaging_plus_val numeric,
apaging_total_val numeric,
apaging_discdate date,
apaging_disc_val numeric,
apaging_discdays numeric,
apaging_discprcnt numeric
);
ALTER TYPE public.apaging OWNER TO admin;
--
-- Name: araging; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE araging AS (
araging_docdate date,
araging_duedate date,
araging_ponumber text,
araging_docnumber text,
araging_doctype text,
araging_cust_id integer,
araging_cust_number text,
araging_cust_name text,
araging_cust_custtype_id integer,
araging_custtype_code text,
araging_terms_descrip text,
araging_aropen_amount numeric,
araging_cur_val numeric,
araging_thirty_val numeric,
araging_sixty_val numeric,
araging_ninety_val numeric,
araging_plus_val numeric,
araging_total_val numeric
);
ALTER TYPE public.araging OWNER TO admin;
--
-- Name: bomdata; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE bomdata AS (
bomdata_bomwork_id integer,
bomdata_bomwork_parent_id integer,
bomdata_bomwork_level integer,
bomdata_bomwork_seqnumber integer,
bomdata_bomitem_id integer,
bomdata_item_id integer,
bomdata_item_number text,
bomdata_uom_name text,
bomdata_item_descrip1 text,
bomdata_item_descrip2 text,
bomdata_itemdescription text,
bomdata_batchsize numeric,
bomdata_qtyfxd numeric,
bomdata_qtyper numeric,
bomdata_qtyreq numeric,
bomdata_scrap numeric,
bomdata_createchild boolean,
bomdata_issuemethod text,
bomdata_effective date,
bomdata_expires date,
bomdata_expired boolean,
bomdata_future boolean,
bomdata_actunitcost numeric,
bomdata_stdunitcost numeric,
bomdata_actextendedcost numeric,
bomdata_stdextendedcost numeric,
bomdata_ecn text,
bomdata_char_id integer,
bomdata_value text,
bomdata_notes text,
bomdata_ref text
);
ALTER TYPE public.bomdata OWNER TO admin;
--
-- Name: checkdata; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE checkdata AS (
checkdata_page integer,
checkdata_checknumber text,
checkdata_checkwords text,
checkdata_checkdate text,
checkdata_checkamount text,
checkdata_checkcurrsymbol text,
checkdata_checkcurrabbr text,
checkdata_checkcurrname text,
checkdata_checkpayto text,
checkdata_checkaddress text,
checkdata_checkmemo text,
checkdata_docnumber text,
checkdata_docreference text,
checkdata_docdate text,
checkdata_docamount text,
checkdata_docdiscount text,
checkdata_docnetamount text
);
ALTER TYPE public.checkdata OWNER TO admin;
--
-- Name: cntctdup; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE cntctdup AS (
cntct_id integer,
cntct_crmacct_id integer,
cntct_addr_id integer,
cntct_first_name text,
cntct_last_name text,
cntct_honorific text,
cntct_initials text,
cntct_active boolean,
cntct_phone text,
cntct_phone2 text,
cntct_fax text,
cntct_email text,
cntct_webaddr text,
cntct_notes text,
cntct_title text,
cntct_number text,
cntct_middle text,
cntct_suffix text,
cntct_owner_username text,
cntct_name text,
crmacct_number text,
crmacct_name text,
addr_id integer,
addr_active boolean,
addr_line1 text,
addr_line2 text,
addr_line3 text,
addr_city text,
addr_state text,
addr_postalcode text,
addr_country text,
addr_notes text,
addr_number text,
cntctdup_level integer
);
ALTER TYPE public.cntctdup OWNER TO admin;
--
-- Name: flcoldata; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE flcoldata AS (
flcoldata_column integer,
flcoldata_start date,
flcoldata_end date
);
ALTER TYPE public.flcoldata OWNER TO admin;
--
-- Name: flstmthead; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE flstmthead AS (
flstmthead_flhead_id integer,
flstmthead_flcol_id integer,
flstmthead_period_id integer,
flstmthead_username text,
flstmthead_typedescrip1 text,
flstmthead_typedescrip2 text,
flstmthead_flhead_name text,
flstmthead_flcol_name text,
flstmthead_month text,
flstmthead_qtr text,
flstmthead_year text,
flstmthead_prmonth text,
flstmthead_prqtr text,
flstmthead_pryear text
);
ALTER TYPE public.flstmthead OWNER TO admin;
--
-- Name: flstmtitem; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE flstmtitem AS (
flstmtitem_flhead_id integer,
flstmtitem_period_id integer,
flstmtitem_username text,
flstmtitem_order integer,
flstmtitem_level integer,
flstmtitem_subgrp integer,
flstmtitem_type text,
flstmtitem_type_id integer,
flstmtitem_parent_id integer,
flstmtitem_accnt_id integer,
flstmtitem_name text,
flstmtitem_month numeric,
flstmtitem_monthdb numeric,
flstmtitem_monthcr numeric,
flstmtitem_monthprcnt numeric,
flstmtitem_monthbudget numeric,
flstmtitem_monthbudgetprcnt numeric,
flstmtitem_monthbudgetdiff numeric,
flstmtitem_monthbudgetdiffprcnt numeric,
flstmtitem_qtr numeric,
flstmtitem_qtrdb numeric,
flstmtitem_qtrcr numeric,
flstmtitem_qtrprcnt numeric,
flstmtitem_qtrbudget numeric,
flstmtitem_qtrbudgetprcnt numeric,
flstmtitem_qtrbudgetdiff numeric,
flstmtitem_qtrbudgetdiffprcnt numeric,
flstmtitem_year numeric,
flstmtitem_yeardb numeric,
flstmtitem_yearcr numeric,
flstmtitem_yearprcnt numeric,
flstmtitem_yearbudget numeric,
flstmtitem_yearbudgetprcnt numeric,
flstmtitem_yearbudgetdiff numeric,
flstmtitem_yearbudgetdiffprcnt numeric,
flstmtitem_prmonth numeric,
flstmtitem_prmonthprcnt numeric,
flstmtitem_prmonthdiff numeric,
flstmtitem_prmonthdiffprcnt numeric,
flstmtitem_prqtr numeric,
flstmtitem_prqtrprcnt numeric,
flstmtitem_prqtrdiff numeric,
flstmtitem_prqtrdiffprcnt numeric,
flstmtitem_pryear numeric,
flstmtitem_pryearprcnt numeric,
flstmtitem_pryeardiff numeric,
flstmtitem_pryeardiffprcnt numeric
);
ALTER TYPE public.flstmtitem OWNER TO admin;
--
-- Name: fltrendhead; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE fltrendhead AS (
fltrendhead_flhead_id integer,
fltrendhead_username text,
fltrendhead_typedescrip text,
fltrendhead_flhead_name text,
fltrendhead_fld1 text,
fltrendhead_fld2 text,
fltrendhead_fld3 text,
fltrendhead_fld4 text,
fltrendhead_fld5 text,
fltrendhead_fld6 text,
fltrendhead_fld7 text,
fltrendhead_fld8 text,
fltrendhead_fld9 text,
fltrendhead_fld10 text,
fltrendhead_fld11 text,
fltrendhead_fld12 text,
fltrendhead_grndttl text
);
ALTER TYPE public.fltrendhead OWNER TO admin;
--
-- Name: fltrenditem; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE fltrenditem AS (
fltrenditem_flhead_id integer,
fltrenditem_username text,
fltrenditem_order integer,
fltrenditem_level integer,
fltrenditem_subgrp integer,
fltrenditem_type text,
fltrenditem_type_id integer,
fltrenditem_parent_id integer,
fltrenditem_accnt_id integer,
fltrenditem_name text,
fltrenditem_fld1 text,
fltrenditem_fld2 text,
fltrenditem_fld3 text,
fltrenditem_fld4 text,
fltrenditem_fld5 text,
fltrenditem_fld6 text,
fltrenditem_fld7 text,
fltrenditem_fld8 text,
fltrenditem_fld9 text,
fltrenditem_fld10 text,
fltrenditem_fld11 text,
fltrenditem_fld12 text,
fltrenditem_grndttl text
);
ALTER TYPE public.fltrenditem OWNER TO admin;
--
-- Name: freightdata; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE freightdata AS (
freightdata_schedule text,
freightdata_from text,
freightdata_to text,
freightdata_shipvia text,
freightdata_freightclass text,
freightdata_weight numeric,
freightdata_uom text,
freightdata_price numeric,
freightdata_type text,
freightdata_total numeric,
freightdata_currency text
);
ALTER TYPE public.freightdata OWNER TO admin;
--
-- Name: itemprice; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE itemprice AS (
itemprice_price numeric,
itemprice_type character(1)
);
ALTER TYPE public.itemprice OWNER TO admin;
--
-- Name: orderitemtype; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE orderitemtype AS (
orderitem_id integer,
orderitem_orderhead_type text,
orderitem_orderhead_id integer,
orderitem_linenumber integer,
orderitem_status text,
orderitem_itemsite_id integer,
orderitem_scheddate date,
orderitem_qty_ordered numeric,
orderitem_qty_shipped numeric,
orderitem_qty_received numeric,
orderitem_qty_uom_id integer,
orderitem_qty_invuomratio numeric,
orderitem_unitcost numeric,
orderitem_unitcost_curr_id integer,
orderitem_freight numeric,
orderitem_freight_received numeric,
orderitem_freight_curr_id integer
);
ALTER TYPE public.orderitemtype OWNER TO admin;
--
-- Name: ordhead; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE ordhead AS (
orderhead_id integer,
orderhead_type text,
orderhead_number text,
orderhead_status text,
orderhead_orderdate date,
orderhead_linecount integer,
orderhead_from_id integer,
orderhead_from text,
orderhead_to_id integer,
orderhead_to text,
orderhead_curr_id integer,
orderhead_agent_username text,
orderhead_shipvia text
);
ALTER TYPE public.ordhead OWNER TO admin;
--
-- Name: orditem; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE orditem AS (
orderitem_id integer,
orderitem_orderhead_type text,
orderitem_orderhead_id integer,
orderitem_linenumber integer,
orderitem_status text,
orderitem_itemsite_id integer,
orderitem_scheddate date,
orderitem_qty_ordered numeric,
orderitem_qty_shipped numeric,
orderitem_qty_received numeric,
orderitem_qty_uom_id integer,
orderitem_qty_invuomratio numeric,
orderitem_unitcost numeric,
orderitem_unitcost_curr_id integer,
orderitem_freight numeric,
orderitem_freight_received numeric,
orderitem_freight_curr_id integer
);
ALTER TYPE public.orditem OWNER TO admin;
--
-- Name: reordlvl; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE reordlvl AS (
reordlvl_itemsite_id integer,
reordlvl_item_id integer,
reordlvl_warehous_code text,
reordlvl_item_number text,
reordlvl_item_descrip text,
reordlvl_leadtime integer,
reordlvl_daysofstock integer,
reordlvl_curr_level numeric,
reordlvl_total_days numeric,
reordlvl_total_usage numeric,
reordlvl_calc_level integer
);
ALTER TYPE public.reordlvl OWNER TO admin;
--
-- Name: seqiss; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE seqiss AS (
seqiss_number integer,
seqiss_time timestamp with time zone
);
ALTER TYPE public.seqiss OWNER TO admin;
--
-- Name: subtax; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE subtax AS (
subtax_taxcode_id integer,
subtax_taxcode_code text,
subtax_taxcode_descrip text,
subtax_taxcode_level integer
);
ALTER TYPE public.subtax OWNER TO admin;
--
-- Name: taxassign; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE taxassign AS (
taxassign_taxzone_id integer,
taxassign_taxtype_id integer,
taxassign_level integer,
taxassign_zone_code text,
taxassign_type_descrip text,
taxassign_taxclass_code text,
taxassign_taxclass_sequence integer
);
ALTER TYPE public.taxassign OWNER TO admin;
--
-- Name: taxdetail; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE taxdetail AS (
taxdetail_tax_id integer,
taxdetail_tax_code text,
taxdetail_tax_descrip text,
taxdetail_tax_basis_tax_id integer,
taxdetail_taxrate_percent numeric(10,6),
taxdetail_taxrate_amount numeric(16,2),
taxdetail_level integer,
taxdetail_taxclass_id integer,
taxdetail_taxclass_code text,
taxdetail_taxclass_sequence integer,
taxdetail_tax numeric(16,6),
taxdetail_curr_id integer,
taxdetail_curr_abbr text
);
ALTER TYPE public.taxdetail OWNER TO admin;
--
-- Name: wodata; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE wodata AS (
wodata_id integer,
wodata_id_type integer,
wodata_number integer,
wodata_subnumber integer,
wodata_itemnumber text,
wodata_descrip text,
wodata_status character(1),
wodata_startdate date,
wodata_duedate date,
wodata_adhoc boolean,
wodata_itemsite_id integer,
wodata_qoh numeric,
wodata_short numeric,
wodata_qtyper numeric,
wodata_qtyiss numeric,
wodata_qtyrcv numeric,
wodata_qtyordreq numeric,
wodata_qtyuom text,
wodata_scrap numeric,
wodata_setup numeric,
wodata_run numeric,
wodata_notes text,
wodata_ref text,
wodata_level integer
);
ALTER TYPE public.wodata OWNER TO admin;
--
-- Name: woinvav; Type: TYPE; Schema: public; Owner: admin
--
CREATE TYPE woinvav AS (
woinvav_itemsite_id integer,
woinvav_womatl_id integer,
woinvav_type character(1),
woinvav_item_wo_number text,
woinvav_descrip text,
woinvav_uomname text,
woinvav_qoh numeric,
woinvav_balance numeric,
woinvav_allocated numeric,
woinvav_ordered numeric,
woinvav_woavail numeric,
woinvav_totalavail numeric,
woinvav_reorderlevel numeric,
woinvav_level integer
);
ALTER TYPE public.woinvav OWNER TO admin;
SET search_path = api, pg_catalog;
--
-- Name: getcustnumberfrominfo(text, text, text, text, text, boolean); Type: FUNCTION; Schema: api; Owner: admin
--
CREATE FUNCTION getcustnumberfrominfo(text, text, text, text, text, boolean) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_email TEXT := COALESCE(UPPER($1), '');
_company TEXT := COALESCE(UPPER($2), '');
_first TEXT := COALESCE(UPPER($3), '');
_last TEXT := COALESCE(UPPER($4), '');
_fullname TEXT := COALESCE(UPPER($5), TRIM(_first || ' ' || _last));
_generate BOOLEAN := COALESCE($6, FALSE);
_counter INTEGER;
_custcount INTEGER := 0;
_custnumber TEXT;
_candidate TEXT := '';
_loopmax INTEGER := 0;
_minlength INTEGER := 5;
_maxlength INTEGER := 8;
_numformat TEXT := '';
_testme TEXT;
BEGIN
IF (_email != '') THEN
SELECT count(*), cust_number INTO _custcount, _custnumber
FROM custinfo LEFT OUTER JOIN cntct ON (cust_cntct_id=cntct_id)
WHERE (UPPER(cntct_email)=_email)
GROUP BY cust_number;
IF (NOT FOUND) THEN
_custcount := 0;
ELSIF(_custcount = 1) THEN
RETURN _custnumber;
END IF;
END IF;
IF (_company != '') THEN
SELECT count(*), cust_number INTO _custcount, _custnumber
FROM custinfo
WHERE (UPPER(cust_name)=_company)
GROUP BY cust_number;
IF (NOT FOUND) THEN
_custcount := 0;
ELSIF(_custcount = 1) THEN
RETURN _custnumber;
END IF;
END IF;
IF (_fullname = '' AND (_first != '' OR _last != '')) THEN
_fullname := TRIM(_first || ' ' || _last);
END IF;
IF (_custcount <= 0 AND _fullname != '') THEN
SELECT count(*), cust_number INTO _custcount, _custnumber
FROM custinfo
WHERE (UPPER(cust_name)=_fullname)
GROUP BY cust_number;
IF (NOT FOUND) THEN
_custcount := 0;
ELSIF(_custcount = 1) THEN
RETURN _custnumber;
END IF;
END IF;
IF (_custcount > 1) THEN
RAISE EXCEPTION 'Found % possible Customers for % and % and %',
_custcount, _email, _company, _fullname;
END IF;
IF (_custcount <= 0 AND _generate) THEN
IF (_maxlength < _minlength) THEN
RAISE EXCEPTION 'Fix getCustNumberFromInfo: max length < min length';
END IF;
IF (_company != '') THEN
_candidate := _company;
ELSIF (_email != '') THEN
_candidate := SUBSTRING(_email FOR POSITION('@' IN _email) - 1);
ELSIF (_last != '') THEN
_candidate := _last;
IF (_first != '') THEN
_candidate := _candidate || _first;
END IF;
ELSIF (_fullname != '' AND (POSITION(' ' IN _fullname) > 0)) THEN
_candidate := SUBSTRING(_fullname FROM POSITION(' ' IN _fullname) + 1) ||
SUBSTRING(_fullname FOR POSITION(' ' IN _fullname) - 1);
END IF;
WHILE (POSITION(' ' IN _candidate) > 0) LOOP
_candidate := SUBSTRING(_candidate FOR POSITION(' ' IN _candidate) - 1) ||
SUBSTRING(_candidate FROM POSITION(' ' IN _candidate) + 1);
END LOOP;
FOR _counter IN _minlength.._maxlength LOOP
_testme := SUBSTRING(_candidate FOR _counter);
IF (NOT EXISTS(SELECT cust_number
FROM custinfo
WHERE (cust_number=_testme))) THEN
_custnumber := _testme;
EXIT;
END IF;
END LOOP;
IF (_custnumber IS NULL OR _custnumber = '') THEN
IF (LENGTH(_candidate) < _minlength) THEN
_minlength := LENGTH(_candidate);
END IF;
FOR _counter IN _minlength.._maxlength LOOP
_loopmax := _loopmax * 10 + 9;
_numformat := _numformat || '0';
END LOOP;
FOR _counter IN 1.._loopmax LOOP
_testme := SUBSTRING(_candidate FOR _minlength) ||
TRIM(TO_CHAR(_counter, _numformat));
IF (NOT EXISTS(SELECT cust_number
FROM custinfo
WHERE (cust_number=_testme))) THEN
_custnumber := _testme;
EXIT;
END IF;
END LOOP;
END IF;
IF (_custnumber IS NULL OR _custnumber = '') THEN
RAISE EXCEPTION 'Could not generate a new Customer Number';
END IF;
END IF;
IF (_custnumber IS NULL OR _custnumber = '') THEN
RAISE EXCEPTION 'Could not find Customer Number for % and % and %',
_email, _company, _fullname;
END IF;
RETURN _custnumber;
END;
$_$;
ALTER FUNCTION api.getcustnumberfrominfo(text, text, text, text, text, boolean) OWNER TO admin;
SET search_path = public, pg_catalog;
--
-- Name: formatlocationname(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatlocationname(integer) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pLocationid ALIAS FOR $1;
_name TEXT;
_r RECORD;
BEGIN
SELECT location_aisle, location_rack,
location_bin, location_name INTO _r
FROM location
WHERE (location_id=pLocationid);
IF (FOUND) THEN
IF (_r.location_aisle IS NOT NULL) THEN
_name := _r.location_aisle;
ELSE
_name := '';
END IF;
IF (_r.location_rack IS NOT NULL) THEN
_name := (_name || _r.location_rack);
END IF;
IF (_r.location_bin IS NOT NULL) THEN
_name := (_name || _r.location_bin);
END IF;
IF (_r.location_name IS NOT NULL) THEN
_name := (_name || _r.location_name);
END IF;
RETURN _name;
ELSE
RETURN 'N/A';
END IF;
END;
$_$;
ALTER FUNCTION public.formatlocationname(integer) OWNER TO admin;
SET default_tablespace = '';
SET default_with_oids = false;
--
-- Name: cntslip; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cntslip (
cntslip_id integer DEFAULT nextval(('"cntslip_cntslip_id_seq"'::text)::regclass) NOT NULL,
cntslip_cnttag_id integer,
cntslip_entered timestamp with time zone,
cntslip_posted boolean,
cntslip_number text,
cntslip_qty numeric(18,6),
cntslip_comments text,
cntslip_location_id integer,
cntslip_lotserial text,
cntslip_lotserial_expiration date,
cntslip_lotserial_warrpurc date,
cntslip_username text
);
ALTER TABLE public.cntslip OWNER TO admin;
--
-- Name: TABLE cntslip; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE cntslip IS 'Count Slip information';
--
-- Name: invcnt; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE invcnt (
invcnt_id integer DEFAULT nextval(('invcnt_invcnt_id_seq'::text)::regclass) NOT NULL,
invcnt_itemsite_id integer,
invcnt_tagdate timestamp with time zone,
invcnt_cntdate timestamp with time zone,
invcnt_qoh_before numeric(18,6),
invcnt_qoh_after numeric(18,6),
invcnt_matcost numeric(16,6),
invcnt_posted boolean,
invcnt_postdate timestamp with time zone,
invcnt_comments text,
invcnt_priority boolean,
invcnt_tagnumber text,
invcnt_invhist_id integer,
invcnt_location_id integer,
invcnt_cnt_username text,
invcnt_post_username text,
invcnt_tag_username text
);
ALTER TABLE public.invcnt OWNER TO admin;
--
-- Name: TABLE invcnt; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE invcnt IS 'Count Tag information';
--
-- Name: item; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE item (
item_id integer DEFAULT nextval(('item_item_id_seq'::text)::regclass) NOT NULL,
item_number text NOT NULL,
item_descrip1 text NOT NULL,
item_descrip2 text NOT NULL,
item_classcode_id integer NOT NULL,
item_picklist boolean DEFAULT true NOT NULL,
item_comments text,
item_sold boolean NOT NULL,
item_fractional boolean NOT NULL,
item_active boolean NOT NULL,
item_type character(1) DEFAULT 'R'::bpchar NOT NULL,
item_prodweight numeric(16,2) DEFAULT 0 NOT NULL,
item_packweight numeric(16,2) DEFAULT 0 NOT NULL,
item_prodcat_id integer NOT NULL,
item_exclusive boolean DEFAULT false NOT NULL,
item_listprice numeric(16,4) NOT NULL,
item_config boolean DEFAULT false,
item_extdescrip text,
item_upccode text,
item_maxcost numeric(16,6) DEFAULT 0 NOT NULL,
item_inv_uom_id integer NOT NULL,
item_price_uom_id integer NOT NULL,
item_warrdays integer DEFAULT 0,
item_freightclass_id integer,
item_tax_recoverable boolean DEFAULT false NOT NULL,
item_listcost numeric(16,6) DEFAULT 0.0 NOT NULL,
CONSTRAINT item_item_number_check CHECK ((item_number <> ''::text)),
CONSTRAINT item_item_type_check CHECK (((((((((((((item_type = 'P'::bpchar) OR (item_type = 'M'::bpchar)) OR (item_type = 'F'::bpchar)) OR (item_type = 'O'::bpchar)) OR (item_type = 'R'::bpchar)) OR (item_type = 'S'::bpchar)) OR (item_type = 'T'::bpchar)) OR (item_type = 'B'::bpchar)) OR (item_type = 'L'::bpchar)) OR (item_type = 'Y'::bpchar)) OR (item_type = 'C'::bpchar)) OR (item_type = 'K'::bpchar))),
CONSTRAINT item_sold_check CHECK ((NOT (item_sold AND (item_prodcat_id = (-1)))))
);
ALTER TABLE public.item OWNER TO admin;
--
-- Name: TABLE item; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE item IS 'Item information';
--
-- Name: COLUMN item.item_maxcost; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN item.item_maxcost IS 'Maximum cost for item. Used to constrain purchase order price.';
--
-- Name: COLUMN item.item_listcost; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN item.item_listcost IS 'List cost for item. Basis for markup pricing.';
--
-- Name: itemsite; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE itemsite (
itemsite_id integer DEFAULT nextval(('itemsite_itemsite_id_seq'::text)::regclass) NOT NULL,
itemsite_item_id integer NOT NULL,
itemsite_warehous_id integer,
itemsite_qtyonhand numeric(18,6) NOT NULL,
itemsite_reorderlevel numeric(18,6) NOT NULL,
itemsite_ordertoqty numeric(18,6) NOT NULL,
itemsite_cyclecountfreq integer NOT NULL,
itemsite_datelastcount date,
itemsite_datelastused date,
itemsite_loccntrl boolean NOT NULL,
itemsite_safetystock numeric(18,6) NOT NULL,
itemsite_minordqty numeric(18,6) NOT NULL,
itemsite_multordqty numeric(18,6) NOT NULL,
itemsite_leadtime integer NOT NULL,
itemsite_abcclass character(1),
itemsite_issuemethod character(1),
itemsite_controlmethod character(1),
itemsite_active boolean NOT NULL,
itemsite_plancode_id integer NOT NULL,
itemsite_costcat_id integer NOT NULL,
itemsite_eventfence integer NOT NULL,
itemsite_sold boolean NOT NULL,
itemsite_stocked boolean NOT NULL,
itemsite_freeze boolean DEFAULT false NOT NULL,
itemsite_location_id integer NOT NULL,
itemsite_useparams boolean NOT NULL,
itemsite_useparamsmanual boolean NOT NULL,
itemsite_soldranking integer DEFAULT 1,
itemsite_createpr boolean,
itemsite_location text,
itemsite_location_comments text,
itemsite_notes text,
itemsite_perishable boolean NOT NULL,
itemsite_nnqoh numeric(18,6) DEFAULT 0 NOT NULL,
itemsite_autoabcclass boolean NOT NULL,
itemsite_ordergroup integer DEFAULT 1 NOT NULL,
itemsite_disallowblankwip boolean DEFAULT false NOT NULL,
itemsite_maxordqty numeric(18,6) DEFAULT 0.0 NOT NULL,
itemsite_mps_timefence integer DEFAULT 0 NOT NULL,
itemsite_createwo boolean DEFAULT false NOT NULL,
itemsite_warrpurc boolean DEFAULT false NOT NULL,
itemsite_autoreg boolean DEFAULT false,
itemsite_costmethod character(1) NOT NULL,
itemsite_value numeric(12,2) NOT NULL,
itemsite_ordergroup_first boolean DEFAULT false NOT NULL,
itemsite_supply_itemsite_id integer,
itemsite_planning_type character(1) DEFAULT 'M'::bpchar NOT NULL,
itemsite_wosupply boolean DEFAULT false NOT NULL,
itemsite_posupply boolean DEFAULT false NOT NULL,
itemsite_lsseq_id integer,
itemsite_cosdefault character(1),
itemsite_createsopr boolean DEFAULT false,
itemsite_createsopo boolean DEFAULT false,
itemsite_dropship boolean DEFAULT false,
itemsite_recvlocation_id integer DEFAULT (-1) NOT NULL,
itemsite_issuelocation_id integer DEFAULT (-1) NOT NULL,
itemsite_location_dist boolean DEFAULT false NOT NULL,
itemsite_recvlocation_dist boolean DEFAULT false NOT NULL,
itemsite_issuelocation_dist boolean DEFAULT false NOT NULL,
CONSTRAINT itemsite_itemsite_abcclass_check CHECK (((((itemsite_abcclass = 'A'::bpchar) OR (itemsite_abcclass = 'B'::bpchar)) OR (itemsite_abcclass = 'C'::bpchar)) OR (itemsite_abcclass = 'T'::bpchar))),
CONSTRAINT itemsite_itemsite_controlmethod_check CHECK (((((itemsite_controlmethod = 'N'::bpchar) OR (itemsite_controlmethod = 'R'::bpchar)) OR (itemsite_controlmethod = 'S'::bpchar)) OR (itemsite_controlmethod = 'L'::bpchar))),
CONSTRAINT itemsite_itemsite_costmethod_check CHECK (((((itemsite_costmethod = 'N'::bpchar) OR (itemsite_costmethod = 'A'::bpchar)) OR (itemsite_costmethod = 'S'::bpchar)) OR (itemsite_costmethod = 'J'::bpchar))),
CONSTRAINT itemsite_itemsite_ordergroup_check CHECK ((itemsite_ordergroup > 0))
);
ALTER TABLE public.itemsite OWNER TO admin;
--
-- Name: TABLE itemsite; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE itemsite IS 'Item Site information';
--
-- Name: COLUMN itemsite.itemsite_lsseq_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN itemsite.itemsite_lsseq_id IS 'Foreign key reference for automatic lot/serial numbering';
--
-- Name: COLUMN itemsite.itemsite_createsopr; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN itemsite.itemsite_createsopr IS 'Used to flag Sales items that create P/Rs';
--
-- Name: COLUMN itemsite.itemsite_createsopo; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN itemsite.itemsite_createsopo IS 'Used to flag Sales items that create P/Os';
--
-- Name: COLUMN itemsite.itemsite_dropship; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN itemsite.itemsite_dropship IS 'Used to flag Sales items to drop ship';
--
-- Name: whsinfo; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE whsinfo (
warehous_id integer DEFAULT nextval(('warehous_warehous_id_seq'::text)::regclass) NOT NULL,
warehous_code text NOT NULL,
warehous_descrip text,
warehous_fob text,
warehous_active boolean,
warehous_counttag_prefix text,
warehous_counttag_number integer,
warehous_bol_prefix text,
warehous_bol_number integer,
warehous_shipping boolean,
warehous_useslips boolean,
warehous_usezones boolean,
warehous_aislesize integer,
warehous_aislealpha boolean,
warehous_racksize integer,
warehous_rackalpha boolean,
warehous_binsize integer,
warehous_binalpha boolean,
warehous_locationsize integer,
warehous_locationalpha boolean,
warehous_enforcearbl boolean,
warehous_default_accnt_id integer,
warehous_shipping_commission numeric(8,4) DEFAULT 0.00,
warehous_cntct_id integer,
warehous_addr_id integer,
warehous_transit boolean DEFAULT false NOT NULL,
warehous_shipform_id integer,
warehous_shipvia_id integer,
warehous_shipcomments text,
warehous_costcat_id integer,
warehous_sitetype_id integer,
warehous_taxzone_id integer,
warehous_sequence integer DEFAULT 0 NOT NULL,
CONSTRAINT whsinfo_check CHECK (((warehous_transit AND (warehous_costcat_id IS NOT NULL)) OR (NOT warehous_transit))),
CONSTRAINT whsinfo_warehous_code_check CHECK ((warehous_code <> ''::text))
);
ALTER TABLE public.whsinfo OWNER TO admin;
--
-- Name: TABLE whsinfo; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE whsinfo IS 'Warehouse information';
SET search_path = api, pg_catalog;
--
-- Name: physinvcount; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW physinvcount AS
SELECT whsinfo.warehous_code AS site, item.item_number, invcnt.invcnt_tagnumber AS tag_number, cntslip.cntslip_qty AS quantity, public.formatlocationname(cntslip.cntslip_location_id) AS location, cntslip.cntslip_lotserial AS lotserial, cntslip.cntslip_comments AS comment FROM ((((public.invcnt JOIN public.itemsite ON ((itemsite.itemsite_id = invcnt.invcnt_itemsite_id))) JOIN public.whsinfo ON ((whsinfo.warehous_id = itemsite.itemsite_warehous_id))) JOIN public.item ON ((item.item_id = itemsite.itemsite_item_id))) LEFT JOIN public.cntslip ON ((cntslip.cntslip_cnttag_id = invcnt.invcnt_id)));
ALTER TABLE api.physinvcount OWNER TO admin;
--
-- Name: VIEW physinvcount; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW physinvcount IS 'Physical Inventory Count Tag and Slip';
--
-- Name: insertphysinvcount(physinvcount); Type: FUNCTION; Schema: api; Owner: admin
--
CREATE FUNCTION insertphysinvcount(physinvcount) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNEW ALIAS FOR $1;
_itemid INTEGER;
_type TEXT;
_siteid INTEGER;
_itemsiteid INTEGER;
_controlmethod TEXT;
_loccntrl BOOLEAN;
_locationid INTEGER;
_lsid INTEGER;
_invcntid INTEGER;
_cntslipid INTEGER;
_result INTEGER;
BEGIN
-- Check Item
SELECT item_id, item_type INTO _itemid, _type
FROM item
WHERE (item_number=UPPER(pNEW.item_number));
IF (NOT FOUND OR _type IN ('F', 'R', 'L','J')) THEN
SELECT item_id, item_type INTO _itemid, _type
FROM item
WHERE (item_upccode=pNEW.item_number);
IF (NOT FOUND OR _type IN ('F', 'R', 'L','J')) THEN
RAISE EXCEPTION 'Function insertPhysInvCount failed because Item % not found or invalid type', pNEW.item_number;
END IF;
END IF;
-- Check Site
SELECT warehous_id INTO _siteid
FROM whsinfo
WHERE (warehous_code=COALESCE(pNEW.site, (SELECT warehous_code
FROM usrpref,whsinfo
WHERE (usrpref_username=getEffectiveXtUser())
AND (usrpref_name='PreferredWarehouse')
AND (warehous_id=CAST(usrpref_value AS INTEGER)))));
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Function insertPhysInvCount failed because Site % not found', pNEW.site;
END IF;
-- Check Itemsite
SELECT itemsite_id, itemsite_controlmethod, itemsite_loccntrl INTO _itemsiteid, _controlmethod, _loccntrl
FROM itemsite
WHERE (itemsite_item_id=_itemid)
AND (itemsite_warehous_id=_siteid);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Function insertPhysInvCount failed because Itemsite %, % not found', pNEW.site, pNEW.item_number;
END IF;
IF (_controlmethod = 'N') THEN
RAISE EXCEPTION 'Function insertPhysInvCount failed because Itemsite %, % not inventory control method', pNEW.site, pNEW.item_number;
END IF;
IF (_controlmethod IN ('L', 'S') AND COALESCE(pNEW.lotserial, '') = '') THEN
RAISE EXCEPTION 'Function insertPhysInvCount failed because Itemsite %, % lot/serial controlled and lotserial not provided', pNEW.site, pNEW.item_number;
END IF;
IF (_controlmethod = 'S') THEN
-- Check for unique serial id
SELECT ls_id INTO _lsid
FROM ls
WHERE (ls_number=pNEW.lotserial);
IF (FOUND) THEN
RAISE EXCEPTION 'Function insertPhysInvCount failed because Serial %, %, % not unique', pNEW.site, pNEW.item_number, pNEW.lotserial;
END IF;
END IF;
IF (_loccntrl) THEN
IF (pNEW.location IS NULL) THEN
RAISE EXCEPTION 'Function insertPhysInvCount failed because Itemsite %, % multi location and location not provided', pNEW.site, pNEW.item_number;
ELSE
-- Check Location
SELECT location_id INTO _locationid
FROM location
WHERE (location_id=getLocationId(pNEW.site, pNEW.location));
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Function insertPhysInvCount failed because Location %, % not found', pNEW.site, pNEW.location;
END IF;
END IF;
END IF;
-- Create Count Tag
SELECT CreateCountTag(_itemsiteid, pNEW.comment, FALSE, FALSE) INTO _invcntid;
IF (_invcntid <= 0) THEN
RAISE EXCEPTION 'Function insertPhysInvCount failed because CreateCountTag failed for Itemsite %, %', pNEW.site, pNEW.item_number;
END IF;
-- Create Count Slip
INSERT INTO cntslip
( cntslip_cnttag_id,
cntslip_username, cntslip_entered, cntslip_posted,
cntslip_number, cntslip_qty,
cntslip_location_id, cntslip_lotserial,
cntslip_lotserial_expiration,
cntslip_lotserial_warrpurc,
cntslip_comments )
VALUES
( _invcntid,
getEffectiveXtUser(), CURRENT_TIMESTAMP, FALSE,
'N/A', pNEW.quantity,
COALESCE(_locationid, -1), pNEW.lotserial,
NULL,
NULL,
pNEW.comment )
RETURNING cntslip_id INTO _cntslipid;
-- Post Count Slip
SELECT postCountSlip(_cntslipid) INTO _result;
IF (_result < 0) THEN
RAISE EXCEPTION 'Function insertPhysInvCount failed because postCountSlip failed for Itemsite %, %, %', pNEW.site, pNEW.item_number, _result;
END IF;
RETURN TRUE;
END;
$_$;
ALTER FUNCTION api.insertphysinvcount(physinvcount) OWNER TO admin;
SET search_path = public, pg_catalog;
--
-- Name: basecurrid(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION basecurrid() RETURNS integer
LANGUAGE plpgsql IMMUTABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
returnVal INTEGER;
BEGIN
SELECT curr_id INTO returnVal
FROM curr_symbol
WHERE curr_base = TRUE;
IF NOT FOUND THEN
RAISE EXCEPTION 'No base currency found';
END IF;
RETURN returnVal;
END;
$$;
ALTER FUNCTION public.basecurrid() OWNER TO admin;
--
-- Name: formatglaccount(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatglaccount(integer) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAccntid ALIAS FOR $1;
_accnt RECORD;
BEGIN
SELECT COALESCE(accnt_company, '') AS accnt_company,
COALESCE(accnt_profit, '') AS accnt_profit,
accnt_number,
COALESCE(accnt_sub, '') AS accnt_sub INTO _accnt
FROM accnt
WHERE (accnt_id=pAccntid);
IF (NOT FOUND) THEN
RETURN 'Error';
END IF;
RETURN formatGlAccount(_accnt.accnt_company, _accnt.accnt_profit, _accnt.accnt_number, _accnt.accnt_sub);
END;
$_$;
ALTER FUNCTION public.formatglaccount(integer) OWNER TO admin;
--
-- Name: formatsolinenumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatsolinenumber(integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoitemid ALIAS FOR $1;
_r RECORD;
BEGIN
SELECT coitem_linenumber, coitem_subnumber
INTO _r
FROM coitem
WHERE(coitem_id=pSoitemid);
IF(NOT FOUND) THEN
RETURN NULL;
END IF;
IF(COALESCE(_r.coitem_subnumber, 0) > 0) THEN
RETURN _r.coitem_linenumber || '.' || _r.coitem_subnumber;
END IF;
RETURN _r.coitem_linenumber;
END;
$_$;
ALTER FUNCTION public.formatsolinenumber(integer) OWNER TO admin;
--
-- Name: geteffectivextuser(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION geteffectivextuser() RETURNS text
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
/*
The default return value of this function is simply
the user currently connected.
Overload this function from another schema
to implement specific user handling from an external
application that uses connection pooling.
Use setEffectiveXtUser(text) to create a temporary table that
inserts user data that can in turn be used as a lookup
reference for an over loaded version of this function like so:
SELECT effective_value
FROM effective_user
WHERE effective_key = 'username'
*/
RETURN CURRENT_USER;
END;
$$;
ALTER FUNCTION public.geteffectivextuser() OWNER TO admin;
--
-- Name: getitemtaxtype(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getitemtaxtype(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pTaxzoneid ALIAS FOR $2;
_taxtypeid INTEGER;
BEGIN
SELECT itemtax_taxtype_id
INTO _taxtypeid
FROM itemtax
WHERE ((itemtax_item_id=pItemid)
AND (itemtax_taxzone_id=pTaxzoneid));
IF (NOT FOUND) THEN
SELECT itemtax_taxtype_id
INTO _taxtypeid
FROM itemtax
WHERE ((itemtax_item_id=pItemid)
AND (itemtax_taxzone_id IS NULL));
IF (NOT FOUND) THEN
RETURN NULL;
END IF;
END IF;
RETURN _taxtypeid;
END;
$_$;
ALTER FUNCTION public.getitemtaxtype(integer, integer) OWNER TO admin;
--
-- Name: cohead; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cohead (
cohead_id integer DEFAULT nextval(('cohead_cohead_id_seq'::text)::regclass) NOT NULL,
cohead_number text NOT NULL,
cohead_cust_id integer NOT NULL,
cohead_custponumber text,
cohead_type character(1),
cohead_orderdate date,
cohead_warehous_id integer,
cohead_shipto_id integer,
cohead_shiptoname text,
cohead_shiptoaddress1 text,
cohead_shiptoaddress2 text,
cohead_shiptoaddress3 text,
cohead_shiptoaddress4 text,
cohead_shiptoaddress5 text,
cohead_salesrep_id integer NOT NULL,
cohead_terms_id integer NOT NULL,
cohead_fob text,
cohead_shipvia text,
cohead_shiptocity text,
cohead_shiptostate text,
cohead_shiptozipcode text,
cohead_freight numeric(16,4) NOT NULL,
cohead_misc numeric(16,4) DEFAULT 0 NOT NULL,
cohead_imported boolean DEFAULT false,
cohead_ordercomments text,
cohead_shipcomments text,
cohead_shiptophone text,
cohead_shipchrg_id integer,
cohead_shipform_id integer,
cohead_billtoname text,
cohead_billtoaddress1 text,
cohead_billtoaddress2 text,
cohead_billtoaddress3 text,
cohead_billtocity text,
cohead_billtostate text,
cohead_billtozipcode text,
cohead_misc_accnt_id integer,
cohead_misc_descrip text,
cohead_commission numeric(16,4),
cohead_miscdate date,
cohead_holdtype character(1),
cohead_packdate date,
cohead_prj_id integer,
cohead_wasquote boolean DEFAULT false NOT NULL,
cohead_lastupdated timestamp without time zone DEFAULT ('now'::text)::timestamp(6) with time zone NOT NULL,
cohead_shipcomplete boolean DEFAULT false NOT NULL,
cohead_created timestamp without time zone DEFAULT ('now'::text)::timestamp(6) with time zone,
cohead_creator text DEFAULT geteffectivextuser(),
cohead_quote_number text,
cohead_billtocountry text,
cohead_shiptocountry text,
cohead_curr_id integer DEFAULT basecurrid(),
cohead_calcfreight boolean DEFAULT false NOT NULL,
cohead_shipto_cntct_id integer,
cohead_shipto_cntct_honorific text,
cohead_shipto_cntct_first_name text,
cohead_shipto_cntct_middle text,
cohead_shipto_cntct_last_name text,
cohead_shipto_cntct_suffix text,
cohead_shipto_cntct_phone text,
cohead_shipto_cntct_title text,
cohead_shipto_cntct_fax text,
cohead_shipto_cntct_email text,
cohead_billto_cntct_id integer,
cohead_billto_cntct_honorific text,
cohead_billto_cntct_first_name text,
cohead_billto_cntct_middle text,
cohead_billto_cntct_last_name text,
cohead_billto_cntct_suffix text,
cohead_billto_cntct_phone text,
cohead_billto_cntct_title text,
cohead_billto_cntct_fax text,
cohead_billto_cntct_email text,
cohead_taxzone_id integer,
cohead_taxtype_id integer,
cohead_ophead_id integer,
cohead_status character(1) DEFAULT 'O'::bpchar NOT NULL,
cohead_saletype_id integer,
cohead_shipzone_id integer,
CONSTRAINT cohead_check CHECK (((cohead_misc = (0)::numeric) OR ((cohead_misc <> (0)::numeric) AND (cohead_misc_accnt_id IS NOT NULL)))),
CONSTRAINT cohead_cohead_number_check CHECK ((cohead_number <> ''::text))
);
ALTER TABLE public.cohead OWNER TO admin;
--
-- Name: TABLE cohead; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE cohead IS 'Sales Order header information';
--
-- Name: COLUMN cohead.cohead_saletype_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN cohead.cohead_saletype_id IS 'Associated sale type for sales order.';
--
-- Name: COLUMN cohead.cohead_shipzone_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN cohead.cohead_shipzone_id IS 'Associated shipping zone for sales order.';
--
-- Name: coitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE coitem (
coitem_id integer DEFAULT nextval(('coitem_coitem_id_seq'::text)::regclass) NOT NULL,
coitem_cohead_id integer,
coitem_linenumber integer NOT NULL,
coitem_itemsite_id integer,
coitem_status character(1),
coitem_scheddate date,
coitem_promdate date,
coitem_qtyord numeric(18,6) NOT NULL,
coitem_unitcost numeric(16,6) NOT NULL,
coitem_price numeric(16,4) NOT NULL,
coitem_custprice numeric(16,4) NOT NULL,
coitem_qtyshipped numeric(18,6) NOT NULL,
coitem_order_id integer,
coitem_memo text,
coitem_imported boolean DEFAULT false,
coitem_qtyreturned numeric(18,6),
coitem_closedate timestamp with time zone,
coitem_custpn text,
coitem_order_type character(1),
coitem_close_username text,
coitem_lastupdated timestamp without time zone DEFAULT ('now'::text)::timestamp(6) with time zone NOT NULL,
coitem_substitute_item_id integer,
coitem_created timestamp without time zone DEFAULT ('now'::text)::timestamp(6) with time zone,
coitem_creator text DEFAULT geteffectivextuser(),
coitem_prcost numeric(16,6),
coitem_qty_uom_id integer NOT NULL,
coitem_qty_invuomratio numeric(20,10) NOT NULL,
coitem_price_uom_id integer NOT NULL,
coitem_price_invuomratio numeric(20,10) NOT NULL,
coitem_warranty boolean DEFAULT false NOT NULL,
coitem_cos_accnt_id integer,
coitem_qtyreserved numeric(18,6) DEFAULT 0.0 NOT NULL,
coitem_subnumber integer DEFAULT 0 NOT NULL,
coitem_firm boolean DEFAULT false NOT NULL,
coitem_taxtype_id integer,
coitem_rev_accnt_id integer,
coitem_pricemode character(1) DEFAULT 'D'::bpchar NOT NULL,
CONSTRAINT coitem_coitem_status_check CHECK ((((coitem_status = 'O'::bpchar) OR (coitem_status = 'C'::bpchar)) OR (coitem_status = 'X'::bpchar))),
CONSTRAINT valid_coitem_pricemode CHECK ((coitem_pricemode = ANY (ARRAY['D'::bpchar, 'M'::bpchar])))
);
ALTER TABLE public.coitem OWNER TO admin;
--
-- Name: TABLE coitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE coitem IS 'Sales Order Line Item information';
--
-- Name: COLUMN coitem.coitem_pricemode; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN coitem.coitem_pricemode IS 'Pricing mode for sales order item. Valid values are D-discount, and M-markup';
--
-- Name: pohead; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE pohead (
pohead_id integer DEFAULT nextval(('pohead_pohead_id_seq'::text)::regclass) NOT NULL,
pohead_status character(1),
pohead_number text NOT NULL,
pohead_orderdate date,
pohead_vend_id integer,
pohead_fob text,
pohead_shipvia text,
pohead_comments text,
pohead_freight numeric(16,2) DEFAULT 0,
pohead_printed boolean DEFAULT false,
pohead_terms_id integer,
pohead_warehous_id integer,
pohead_vendaddr_id integer,
pohead_agent_username text,
pohead_curr_id integer DEFAULT basecurrid(),
pohead_saved boolean DEFAULT true NOT NULL,
pohead_taxzone_id integer,
pohead_taxtype_id integer,
pohead_dropship boolean DEFAULT false,
pohead_vend_cntct_id integer,
pohead_vend_cntct_honorific text,
pohead_vend_cntct_first_name text,
pohead_vend_cntct_middle text,
pohead_vend_cntct_last_name text,
pohead_vend_cntct_suffix text,
pohead_vend_cntct_phone text,
pohead_vend_cntct_title text,
pohead_vend_cntct_fax text,
pohead_vend_cntct_email text,
pohead_vendaddress1 text,
pohead_vendaddress2 text,
pohead_vendaddress3 text,
pohead_vendcity text,
pohead_vendstate text,
pohead_vendzipcode text,
pohead_vendcountry text,
pohead_shipto_cntct_id integer,
pohead_shipto_cntct_honorific text,
pohead_shipto_cntct_first_name text,
pohead_shipto_cntct_middle text,
pohead_shipto_cntct_last_name text,
pohead_shipto_cntct_suffix text,
pohead_shipto_cntct_phone text,
pohead_shipto_cntct_title text,
pohead_shipto_cntct_fax text,
pohead_shipto_cntct_email text,
pohead_shiptoaddress_id integer,
pohead_shiptoaddress1 text,
pohead_shiptoaddress2 text,
pohead_shiptoaddress3 text,
pohead_shiptocity text,
pohead_shiptostate text,
pohead_shiptozipcode text,
pohead_shiptocountry text,
pohead_cohead_id integer,
pohead_released date,
CONSTRAINT pohead_pohead_number_check CHECK ((pohead_number <> ''::text)),
CONSTRAINT pohead_pohead_status_check CHECK ((((pohead_status = 'U'::bpchar) OR (pohead_status = 'O'::bpchar)) OR (pohead_status = 'C'::bpchar)))
);
ALTER TABLE public.pohead OWNER TO admin;
--
-- Name: TABLE pohead; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE pohead IS 'Purchase Order header information';
--
-- Name: poitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE poitem (
poitem_id integer DEFAULT nextval(('poitem_poitem_id_seq'::text)::regclass) NOT NULL,
poitem_status character(1),
poitem_pohead_id integer,
poitem_linenumber integer,
poitem_duedate date,
poitem_itemsite_id integer,
poitem_vend_item_descrip text,
poitem_vend_uom text,
poitem_invvenduomratio numeric(20,10),
poitem_qty_ordered numeric(18,6) NOT NULL,
poitem_qty_received numeric(18,6) DEFAULT 0.0 NOT NULL,
poitem_qty_returned numeric(18,6) DEFAULT 0.0 NOT NULL,
poitem_qty_vouchered numeric(18,6) DEFAULT 0.0 NOT NULL,
poitem_unitprice numeric(16,6),
poitem_vend_item_number text,
poitem_comments text,
poitem_qty_toreceive numeric(18,6),
poitem_expcat_id integer,
poitem_itemsrc_id integer,
poitem_freight numeric(16,4) DEFAULT 0.0 NOT NULL,
poitem_freight_received numeric(16,4) DEFAULT 0.0 NOT NULL,
poitem_freight_vouchered numeric(16,4) DEFAULT 0.0 NOT NULL,
poitem_prj_id integer,
poitem_stdcost numeric(16,6),
poitem_bom_rev_id integer,
poitem_boo_rev_id integer,
poitem_manuf_name text,
poitem_manuf_item_number text,
poitem_manuf_item_descrip text,
poitem_taxtype_id integer,
poitem_tax_recoverable boolean DEFAULT true NOT NULL,
poitem_rlsd_duedate date,
poitem_order_id integer,
poitem_order_type character(1),
CONSTRAINT poitem_poitem_status_check CHECK ((((poitem_status = 'U'::bpchar) OR (poitem_status = 'O'::bpchar)) OR (poitem_status = 'C'::bpchar)))
);
ALTER TABLE public.poitem OWNER TO admin;
--
-- Name: TABLE poitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE poitem IS 'Purchase Order Line Item information';
--
-- Name: taxtype; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE taxtype (
taxtype_id integer NOT NULL,
taxtype_name text NOT NULL,
taxtype_descrip text,
taxtype_sys boolean DEFAULT false NOT NULL,
CONSTRAINT taxtype_taxtype_name_check CHECK ((taxtype_name <> ''::text))
);
ALTER TABLE public.taxtype OWNER TO admin;
--
-- Name: TABLE taxtype; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE taxtype IS 'The list of Tax Types';
--
-- Name: uom; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE uom (
uom_id integer NOT NULL,
uom_name text NOT NULL,
uom_descrip text,
uom_item_weight boolean DEFAULT false NOT NULL,
CONSTRAINT uom_uom_name_check CHECK ((uom_name <> ''::text))
);
ALTER TABLE public.uom OWNER TO admin;
--
-- Name: TABLE uom; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE uom IS 'Unit of Measure information';
SET search_path = api, pg_catalog;
--
-- Name: salesline; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW salesline AS
SELECT (cohead.cohead_number)::character varying AS order_number, (public.formatsolinenumber(coitem.coitem_id))::character varying AS line_number, l.item_number, coitem.coitem_custpn AS customer_pn, s.item_number AS substitute_for, whsinfo.warehous_code AS sold_from_site, coitem.coitem_status AS status, coitem.coitem_qtyord AS qty_ordered, q.uom_name AS qty_uom, coitem.coitem_price AS net_unit_price, p.uom_name AS price_uom, coitem.coitem_scheddate AS scheduled_date, coitem.coitem_promdate AS promise_date, coitem.coitem_warranty AS warranty, COALESCE((SELECT taxtype.taxtype_name FROM public.taxtype WHERE (taxtype.taxtype_id = public.getitemtaxtype(l.item_id, cohead.cohead_taxzone_id))), 'None'::text) AS tax_type, CASE WHEN (coitem.coitem_price = (0)::numeric) THEN '100'::text WHEN (coitem.coitem_custprice = (0)::numeric) THEN 'N/A'::text ELSE (round((((1)::numeric - (coitem.coitem_price / coitem.coitem_custprice)) * (100)::numeric), 4))::text END AS discount_pct_from_list, CASE WHEN (coitem.coitem_order_id = (-1)) THEN false ELSE true END AS create_order, CASE WHEN (coitem.coitem_order_id = (-1)) THEN ''::text ELSE ((pohead.pohead_number || '-'::text) || poitem.poitem_linenumber) END AS create_po, coitem.coitem_prcost AS overwrite_po_price, coitem.coitem_memo AS notes, CASE WHEN (coitem.coitem_cos_accnt_id IS NOT NULL) THEN public.formatglaccount(coitem.coitem_cos_accnt_id) ELSE NULL::text END AS alternate_cos_account, CASE WHEN (coitem.coitem_rev_accnt_id IS NOT NULL) THEN public.formatglaccount(coitem.coitem_rev_accnt_id) ELSE NULL::text END AS alternate_rev_account FROM public.cohead, (((public.coitem LEFT JOIN public.itemsite isb ON ((coitem.coitem_substitute_item_id = isb.itemsite_id))) LEFT JOIN public.item s ON ((isb.itemsite_item_id = s.item_id))) LEFT JOIN (public.poitem JOIN public.pohead ON ((poitem.poitem_pohead_id = pohead.pohead_id))) ON ((poitem.poitem_id = coitem.coitem_order_id))), public.itemsite il, public.item l, public.whsinfo, public.uom q, public.uom p WHERE ((((((cohead.cohead_id = coitem.coitem_cohead_id) AND (coitem.coitem_itemsite_id = il.itemsite_id)) AND (il.itemsite_item_id = l.item_id)) AND (il.itemsite_warehous_id = whsinfo.warehous_id)) AND (coitem.coitem_qty_uom_id = q.uom_id)) AND (coitem.coitem_price_uom_id = p.uom_id)) ORDER BY cohead.cohead_number, coitem.coitem_linenumber, coitem.coitem_subnumber;
ALTER TABLE api.salesline OWNER TO admin;
--
-- Name: VIEW salesline; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW salesline IS 'Sales Order Line Item';
--
-- Name: insertsalesline(salesline); Type: FUNCTION; Schema: api; Owner: admin
--
CREATE FUNCTION insertsalesline(salesline) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNEW ALIAS FOR $1;
_r RECORD;
BEGIN
IF (NOT EXISTS (SELECT cohead_id FROM cohead WHERE cohead_number=pNEW.order_number)) THEN
RAISE EXCEPTION 'Function insertSalesLine failed because Sales Order % not found', pNEW.order_number;
END IF;
IF (NOT EXISTS (SELECT item_id FROM item WHERE item_number=pNEW.item_number)) THEN
RAISE EXCEPTION 'Function insertSalesLine failed because Item Number % not found', pNEW.item_number;
END IF;
SELECT * INTO _r
FROM cohead, itemsite, item, whsinfo
WHERE ((cohead_number=pNEW.order_number)
AND (itemsite_warehous_id=warehous_id
AND (itemsite_item_id=item_id)
AND (itemsite_active)
AND (item_number=pNEW.item_number)
AND (warehous_active)
AND (warehous_id=COALESCE(getWarehousId(pNEW.sold_from_site,'ALL'),cohead_warehous_id,fetchprefwarehousid()))));
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Function insertSalesLine failed with unknown failure to retrieve Sales Order';
END IF;
INSERT INTO coitem (
coitem_cohead_id,
coitem_linenumber,
coitem_itemsite_id,
coitem_status,
coitem_scheddate,
coitem_promdate,
coitem_qtyord,
coitem_qty_uom_id,
coitem_qty_invuomratio,
coitem_qtyshipped,
coitem_unitcost,
coitem_price,
coitem_price_uom_id,
coitem_price_invuomratio,
coitem_custprice,
coitem_order_id,
coitem_memo,
coitem_imported,
coitem_qtyreturned,
coitem_custpn,
coitem_order_type,
coitem_substitute_item_id,
coitem_prcost,
coitem_taxtype_id,
coitem_warranty,
coitem_cos_accnt_id,
coitem_rev_accnt_id)
VALUES (
_r.cohead_id,
pNEW.line_number::INTEGER,
_r.itemsite_id,
pNEW.status,
pNEW.scheduled_date,
pNEW.promise_date,
pNEW.qty_ordered,
COALESCE(getUomId(pNEW.qty_uom),_r.item_inv_uom_id),
itemuomtouomratio(_r.item_id,COALESCE(getUomId(pNEW.qty_uom),_r.item_inv_uom_id),_r.item_inv_uom_id),
0,
stdCost(_r.item_id),
COALESCE(pNEW.net_unit_price,itemPrice(_r.item_id,_r.cohead_cust_id,
_r.cohead_shipto_id,pNEW.qty_ordered,_r.cohead_curr_id,_r.cohead_orderdate)),
COALESCE(getUomId(pNEW.price_uom),_r.item_price_uom_id),
itemuomtouomratio(_r.item_id,COALESCE(getUomId(pNEW.price_uom),_r.item_price_uom_id),_r.item_price_uom_id),
itemPrice(_r.item_id, _r.cohead_cust_id, _r.cohead_shipto_id,
pNEW.qty_ordered, _r.item_inv_uom_id, _r.item_price_uom_id,
_r.cohead_curr_id,_r.cohead_orderdate,
CASE WHEN (fetchMetricText('soPriceEffective') = 'ScheduleDate') THEN pNEW.scheduled_date
WHEN (fetchMetricText('soPriceEffective') = 'OrderDate') THEN _r.cohead_orderdate
ELSE CURRENT_DATE END,
NULL)
-1,
pNEW.notes,
true,
0,
pNEW.customer_pn,
CASE
WHEN ((pNEW.create_order AND (_r.item_type = 'M')) OR
((pNEW.create_order IS NULL) AND _r.itemsite_createwo)) THEN
'W'
WHEN ((pNEW.create_order AND (_r.item_type = 'P')) OR
((pNEW.create_order IS NULL) AND _r.itemsite_createsopr)) THEN
'R'
WHEN ((pNEW.create_order AND (_r.item_type = 'P') AND (_r.itemsite_createsopo)) OR
((pNEW.create_order IS NULL) AND _r.itemsite_createsopo)) THEN
'P'
END,
getitemid(pNEW.substitute_for),
pNEW.overwrite_po_price,
COALESCE(getTaxTypeId(pNEW.tax_type), getItemTaxType(_r.itemsite_item_id, _r.cohead_taxzone_id)),
pNEW.warranty,
getGlAccntId(pNEW.alternate_cos_account),
getGlAccntId(pNEW.alternate_rev_account)
);
RETURN TRUE;
END;
$_$;
ALTER FUNCTION api.insertsalesline(salesline) OWNER TO admin;
SET search_path = public, pg_catalog;
--
-- Name: _accntdeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _accntdeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_accntnum TEXT := formatGLAccount(OLD.accnt_id);
_check INTEGER;
BEGIN
-- This trigger is to protect against accounts that are in use
-- Check to see if the passed accnt is used in a Cost Category
SELECT costcat_id INTO _check
FROM costcat
WHERE ( (costcat_asset_accnt_id=OLD.accnt_id)
OR (costcat_liability_accnt_id=OLD.accnt_id)
OR (costcat_adjustment_accnt_id=OLD.accnt_id)
OR (costcat_purchprice_accnt_id=OLD.accnt_id)
OR (costcat_laboroverhead_accnt_id=OLD.accnt_id)
OR (costcat_scrap_accnt_id=OLD.accnt_id)
OR (costcat_invcost_accnt_id=OLD.accnt_id)
OR (costcat_wip_accnt_id=OLD.accnt_id)
OR (costcat_shipasset_accnt_id=OLD.accnt_id)
OR (costcat_mfgscrap_accnt_id=OLD.accnt_id)
OR (costcat_transform_accnt_id=OLD.accnt_id)
OR (costcat_freight_accnt_id=OLD.accnt_id) )
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Can not delete, used in Cost Category';
END IF;
-- Check to see if the passed accnt is used in a Sales Account Assignment
SELECT salesaccnt_id INTO _check
FROM salesaccnt
WHERE ( (salesaccnt_sales_accnt_id=OLD.accnt_id)
OR (salesaccnt_credit_accnt_id=OLD.accnt_id)
OR (salesaccnt_cos_accnt_id=OLD.accnt_id) )
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Can not delete, used in Sales Account Assignment';
END IF;
-- Check to see if the passed accnt is used in a A/R Account Assignment
SELECT araccnt_id INTO _check
FROM araccnt
WHERE ( (araccnt_freight_accnt_id=OLD.accnt_id)
OR (araccnt_ar_accnt_id=OLD.accnt_id)
OR (araccnt_prepaid_accnt_id=OLD.accnt_id) )
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Can not delete, used in A/R Account Assignment';
END IF;
-- Check to see if the passed accnt is used in a Warehouse
SELECT warehous_id INTO _check
FROM whsinfo
WHERE (warehous_default_accnt_id=OLD.accnt_id)
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Can not delete, used in Site';
END IF;
-- Check to see if the passed accnt is used in a Bank Account
SELECT bankaccnt_id INTO _check
FROM bankaccnt
WHERE (bankaccnt_accnt_id=OLD.accnt_id)
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Can not delete, used in Bank Account';
END IF;
-- Check to see if the passed accnt is used in an Expense Category
SELECT expcat_id INTO _check
FROM expcat
WHERE ( (expcat_exp_accnt_id=OLD.accnt_id)
OR (expcat_liability_accnt_id=OLD.accnt_id)
OR (expcat_purchprice_accnt_id=OLD.accnt_id)
OR (expcat_freight_accnt_id=OLD.accnt_id) )
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Can not delete, used in Expense Category';
END IF;
-- Check to see if the passed accnt is used in a Tax Code
SELECT tax_id INTO _check
FROM tax
WHERE (tax_sales_accnt_id=OLD.accnt_id)
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Can not delete, used in Tax Code';
END IF;
-- Check to see if the passed accnt is used in a Standard Journal Item
SELECT stdjrnlitem_id INTO _check
FROM stdjrnlitem
WHERE (stdjrnlitem_accnt_id=OLD.accnt_id)
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Can not delete, used in Standard Journal Item';
END IF;
-- Check to see if the passed accnt is used in a A/P Account Assignment
SELECT apaccnt_ap_accnt_id INTO _check
FROM apaccnt
WHERE ( (apaccnt_ap_accnt_id=OLD.accnt_id)
OR (apaccnt_prepaid_accnt_id=OLD.accnt_id)
OR (apaccnt_discount_accnt_id=OLD.accnt_id) )
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Can not delete, used in A/P Account Assignment';
END IF;
-- Check to see if the passed accnt is used in an A/R Open Item record
SELECT aropen_accnt_id INTO _check
FROM aropen
WHERE (aropen_accnt_id=OLD.accnt_id)
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Can not delete, used in A/R Open Item';
END IF;
-- Check to see if the passed accnt has been used in the G/L
SELECT gltrans_accnt_id INTO _check
FROM gltrans
WHERE (gltrans_accnt_id=OLD.accnt_id)
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Can not delete, used in G/L Transaction';
END IF;
SELECT sltrans_accnt_id INTO _check
FROM sltrans
WHERE (sltrans_accnt_id=OLD.accnt_id)
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Can not delete, used in G/L Journal Transaction';
END IF;
SELECT glseries_accnt_id INTO _check
FROM glseries
WHERE (glseries_accnt_id=OLD.accnt_id)
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Can not delete, used in G/L Series';
END IF;
SELECT trialbal_accnt_id INTO _check
FROM trialbal
WHERE (trialbal_accnt_id=OLD.accnt_id)
AND (trialbal_beginning != 0 OR trialbal_ending != 0)
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Can not delete, used in Trial Balance';
END IF;
SELECT cashrcptmisc_accnt_id INTO _check
FROM cashrcptmisc
WHERE (cashrcptmisc_accnt_id=OLD.accnt_id)
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Can not delete, used in Cash Receipt Misc. Application';
END IF;
-- TODO: everything above here should be replaced by fkeys
IF (OLD.accnt_id = fetchMetricValue('DefaultAPAccount')) THEN
RAISE EXCEPTION 'Cannot delete the default A/P Account [xtuple: accnt, -1, %]',
_accntnum;
ELSIF (OLD.accnt_id = fetchMetricValue('DefaultARAccount')) THEN
RAISE EXCEPTION 'Cannot delete the default A/R Account [xtuple: accnt, -2, %]',
_accntnum;
END IF;
RETURN OLD;
END;
$$;
ALTER FUNCTION public._accntdeletetrigger() OWNER TO admin;
--
-- Name: _accnttrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _accnttrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
ffSub BOOLEAN;
ffProfit BOOLEAN;
result INTEGER;
BEGIN
SELECT (metric_value='t')
INTO ffSub
FROM metric
WHERE(metric_name='GLFFSubaccounts')
LIMIT 1;
ffSub := COALESCE(ffSub, false);
SELECT (metric_value='t')
INTO ffProfit
FROM metric
WHERE(metric_name='GLFFProfitCenters')
LIMIT 1;
ffProfit := COALESCE(ffSub, false);
IF (NEW.accnt_sub IS NOT NULL AND ffSub = false) THEN
SELECT subaccnt_id
INTO result
FROM subaccnt
WHERE(subaccnt_number=NEW.accnt_sub)
LIMIT 1;
IF (NOT FOUND) THEN
RAISE EXCEPTION 'You must supply a valid Sub Account Number.';
END IF;
END IF;
IF (NEW.accnt_profit IS NOT NULL AND ffProfit = false) THEN
SELECT prftcntr_id
INTO result
FROM prftcntr
WHERE(prftcntr_number=NEW.accnt_profit)
LIMIT 1;
IF (NOT FOUND) THEN
RAISE EXCEPTION 'You must supply a valid Profit Center Number.';
END IF;
END IF;
IF (TG_OP = 'UPDATE') THEN
IF ((NEW.accnt_type != OLD.accnt_type) AND
(SELECT (count(*) > 0) FROM gltrans WHERE (gltrans_accnt_id=NEW.accnt_id))) THEN
RAISE EXCEPTION 'You may not change the account type of an account that has transaction history';
END IF;
END IF;
NEW.accnt_name := formatGlAccount(NEW.accnt_company, NEW.accnt_profit, NEW.accnt_number, NEW.accnt_sub);
RETURN NEW;
END;
$$;
ALTER FUNCTION public._accnttrigger() OWNER TO admin;
--
-- Name: _accntuniquetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _accntuniquetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
BEGIN
-- This trigger is to protect against id collision on inherited tables since there is no way
-- to enforce that with regular constraints. It should be applied to accnt and any table that
-- inherits accnt.
IF (SELECT (count(accnt_id) > 0) FROM accnt WHERE (accnt_id = NEW.accnt_id)) THEN
RAISE EXCEPTION 'Can not create record on account with duplicate key %.', NEW.accnt_id;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._accntuniquetrigger() OWNER TO admin;
--
-- Name: _addrtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _addrtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_uses INTEGER := 0;
BEGIN
IF (TG_OP = 'INSERT') THEN
--- clear the number from the issue cache
PERFORM clearNumberIssue('AddressNumber', NEW.addr_number);
ELSE
SELECT count(*) INTO _uses
FROM cntct
WHERE ((cntct_addr_id=OLD.addr_id)
AND cntct_active);
END IF;
IF (TG_OP = 'UPDATE') THEN
IF (OLD.addr_active AND NOT NEW.addr_active AND _uses > 0) THEN
RAISE EXCEPTION 'Cannot inactivate Address with Active Contacts (%)',
_uses;
END IF;
ELSIF (TG_OP = 'DELETE') THEN
IF (_uses > 0) THEN
RAISE EXCEPTION 'Cannot Delete Address with Active Contacts (%)',
_uses;
END IF;
UPDATE cntct SET cntct_addr_id = NULL
WHERE ((cntct_addr_id=OLD.addr_id)
AND (NOT cntct_active));
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._addrtrigger() OWNER TO admin;
--
-- Name: _alarmbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _alarmbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
PERFORM clearNumberIssue('AlarmNumber', NEW.alarm_number);
RETURN NEW;
END;
$$;
ALTER FUNCTION public._alarmbeforetrigger() OWNER TO admin;
--
-- Name: _apapplytrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _apapplytrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_tpaid NUMERIC;
BEGIN
-- get the exchange rate for the doc date
IF (TG_OP = 'INSERT') THEN
SELECT currtocurr(NEW.apapply_curr_id,apopen_curr_id,NEW.apapply_amount,NEW.apapply_postdate)
INTO _tpaid
FROM apopen
WHERE ( apopen_id=NEW.apapply_target_apopen_id );
IF (FOUND) THEN
NEW.apapply_target_paid := _tpaid;
ELSE
RAISE EXCEPTION 'Error calculating paid amount on application';
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._apapplytrigger() OWNER TO admin;
--
-- Name: _apopentrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _apopentrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_currrate NUMERIC;
BEGIN
-- get the base exchange rate for the doc date
IF (TG_OP = 'INSERT' AND NEW.apopen_curr_rate IS NULL) THEN
SELECT curr_rate INTO _currrate
FROM curr_rate
WHERE ( (NEW.apopen_curr_id=curr_id)
AND ( NEW.apopen_docdate BETWEEN curr_effective
AND curr_expires) );
IF (FOUND) THEN
NEW.apopen_curr_rate := _currrate;
ELSE
RAISE EXCEPTION 'Currency exchange rate not found';
END IF;
END IF;
NEW.apopen_open := NEW.apopen_amount > NEW.apopen_paid;
IF (TG_OP = 'INSERT') THEN
IF (NEW.apopen_open=FALSE) THEN
NEW.apopen_status='C';
ELSE
NEW.apopen_status='O';
END IF;
--- clear the number from the issue cache
PERFORM clearNumberIssue('APMemoNumber', NEW.apopen_docnumber);
END IF;
IF (TG_OP = 'UPDATE') THEN
IF ((OLD.apopen_open=TRUE) AND (NEW.apopen_open=FALSE)) THEN
NEW.apopen_status='C';
IF (NEW.apopen_closedate IS NULL) THEN
NEW.apopen_closedate=CURRENT_DATE;
END IF;
END IF;
IF ((OLD.apopen_open=FALSE) AND (NEW.apopen_open=TRUE)) THEN
NEW.apopen_status='O';
NEW.apopen_closedate=NULL;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._apopentrigger() OWNER TO admin;
--
-- Name: _arapplytrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _arapplytrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_tpaid NUMERIC;
BEGIN
-- get the exchange rate for the doc date
IF (TG_OP = 'INSERT') THEN
IF (NEW.arapply_target_doctype != 'K') THEN
SELECT round(currtocurr(NEW.arapply_curr_id,aropen_curr_id,NEW.arapply_applied,NEW.arapply_postdate),2)
INTO NEW.arapply_target_paid
FROM aropen
WHERE ( aropen_id=NEW.arapply_target_aropen_id );
ELSE
SELECT round(currtocurr(NEW.arapply_curr_id,aropen_curr_id,NEW.arapply_applied,NEW.arapply_postdate),2)
INTO NEW.arapply_target_paid
FROM aropen
WHERE ( aropen_id=NEW.arapply_source_aropen_id );
END IF;
IF NOT FOUND THEN
NEW.arapply_target_paid := NEW.arapply_applied;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._arapplytrigger() OWNER TO admin;
--
-- Name: _aropenaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _aropenaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_openAmount NUMERIC;
_lateCount INTEGER := 0;
_graceDays INTEGER;
_checkLate BOOLEAN := false;
_checkLimit BOOLEAN := false;
_id INTEGER;
BEGIN
IF (TG_OP = 'INSERT') THEN
_id := NEW.aropen_id;
ELSE
_id := OLD.aropen_id;
END IF;
-- If metric is set then auto close any associated incidents when AR is closed
IF (fetchMetricBool('AutoCloseARIncident')) THEN
IF (NEW.aropen_open = FALSE) THEN
UPDATE incdt SET incdt_status='L' WHERE (incdt_aropen_id=_id);
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._aropenaftertrigger() OWNER TO admin;
--
-- Name: _aropentrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _aropentrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_openAmount NUMERIC;
_p RECORD;
_lateCount INTEGER := 0;
_graceDays INTEGER;
_checkLate BOOLEAN := false;
_checkLimit BOOLEAN := false;
_id INTEGER;
_currRate NUMERIC;
BEGIN
-- Checks
-- Start with privileges
IF ( (NOT checkPrivilege('MaintainARMemos')) AND
(NOT checkPrivilege('PostMiscInvoices')) AND
(NOT checkPrivilege('PostARDocuments')) ) THEN
RAISE EXCEPTION 'You do not have privileges to maintain A/R Memos.';
END IF;
IF ( (NEW.aropen_docnumber IS NULL) OR (LENGTH(NEW.aropen_docnumber) = 0) ) THEN
RAISE EXCEPTION 'You must enter a valid Document # for this A/R Memo.';
END IF;
IF ( (NEW.aropen_amount IS NOT NULL) AND (NEW.aropen_amount < 0) ) THEN
RAISE EXCEPTION 'You must enter a positive Amount for this A/R Memo.';
END IF;
IF (TG_OP IN ('INSERT', 'UPDATE') AND NEW.aropen_cust_id < 0) THEN
RAISE NOTICE 'Fixing deprecated use of negative aropen_cust_id';
NEW.aropen_cust_id := NULL;
END IF;
IF (TG_OP IN ('INSERT', 'UPDATE') AND NEW.aropen_salesrep_id < 0) THEN
RAISE NOTICE 'Fixing deprecated use of negative aropen_salesrep_id';
NEW.aropen_salesrep_id := NULL;
END IF;
IF (TG_OP = 'INSERT') THEN
SELECT aropen_id INTO _id
FROM aropen
WHERE ( (aropen_doctype=NEW.aropen_doctype)
AND (aropen_docnumber=NEW.aropen_docnumber) )
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'This Document Type/Number already exists. You may not enter a duplicate A/R Memo.';
END IF;
--- clear the number from the issue cache if applicable
PERFORM clearNumberIssue('ARMemoNumber', NEW.aropen_docnumber);
END IF;
-- Determine the number of late invoices
IF ( SELECT (metric_value='t')
FROM metric
WHERE(metric_name='AutoCreditWarnLateCustomers')) THEN
_checkLate := true;
SELECT COALESCE(metric_value::integer, _graceDays)
INTO _graceDays
FROM metric
WHERE(metric_name='DefaultAutoCreditWarnGraceDays');
IF (NOT FOUND) THEN
_graceDays := 30;
END IF;
SELECT COALESCE(cust_gracedays, _graceDays)
INTO _graceDays
FROM custinfo
WHERE(cust_id=NEW.aropen_cust_id);
IF (NOT FOUND) THEN
_graceDays := 30;
END IF;
SELECT count(aropen_id)
INTO _lateCount
FROM aropen
WHERE((NEW.aropen_cust_id = aropen_cust_id)
AND (aropen_open)
AND (aropen_amount > aropen_paid)
AND (aropen_doctype IN ('I', 'D'))
AND (aropen_duedate < (CURRENT_DATE - _graceDays)));
-- Adjust _lateCount if late invoice being paid
IF ( (NEW.aropen_paid = NEW.aropen_amount)
AND (NEW.aropen_doctype IN ('I', 'D'))
AND (NEW.aropen_duedate < (CURRENT_DATE - _graceDays))) THEN
_lateCount := _lateCount - 1;
END IF;
END IF;
-- get the base exchange rate for the doc date
IF (TG_OP = 'INSERT' AND NEW.aropen_curr_rate IS NULL) THEN
SELECT curr_rate INTO _currrate
FROM curr_rate
WHERE ( (NEW.aropen_curr_id=curr_id)
AND ( NEW.aropen_docdate BETWEEN curr_effective
AND curr_expires) );
IF (FOUND) THEN
NEW.aropen_curr_rate := _currrate;
ELSE
RAISE EXCEPTION 'Currency exchange rate not found';
END IF;
END IF;
-- Close this aropen if it is paid
IF (NEW.aropen_paid = NEW.aropen_amount) THEN
NEW.aropen_open=FALSE;
-- Remove any aropenalloc regards that reference this aropen item
DELETE FROM aropenalloc WHERE (aropenalloc_aropen_id=NEW.aropen_id);
END IF;
IF (TG_OP = 'INSERT') THEN
IF (NEW.aropen_open=FALSE)
AND (NEW.aropen_closedate IS NULL) THEN
NEW.aropen_closedate=current_date;
END IF;
END IF;
IF (TG_OP = 'UPDATE') THEN
IF ((OLD.aropen_open=TRUE)
AND (NEW.aropen_open=FALSE)
AND (NEW.aropen_closedate IS NULL)) THEN
NEW.aropen_closedate=current_date;
END IF;
END IF;
-- Only check if the customer in question has a non-zero Credit Limit
SELECT cust_id, cust_creditlmt, cust_creditstatus,
cust_autoupdatestatus, cust_autoholdorders INTO _p
FROM custinfo
WHERE (cust_id=NEW.aropen_cust_id);
IF (_p.cust_creditlmt > 0) THEN
_checkLimit := true;
SELECT COALESCE(SUM( CASE WHEN (aropen_doctype IN ('I', 'D')) THEN (aropen_amount - aropen_paid)
ELSE ((aropen_amount - aropen_paid) * -1)
END ), 0.0) INTO _openAmount
FROM aropen AS current
WHERE ( (current.aropen_cust_id=NEW.aropen_cust_id)
AND (current.aropen_open)
AND (current.aropen_id <> NEW.aropen_id) );
-- Add in the value of the current aropen item
IF (NEW.aropen_doctype IN ('I', 'D')) THEN
_openAmount := (_openAmount + (NEW.aropen_amount - NEW.aropen_paid));
ELSE
_openAmount := (_openAmount - (NEW.aropen_amount - NEW.aropen_paid));
END IF;
ELSE
_openAmount := 0;
END IF;
IF (_checkLimit OR _checkLate) THEN
-- Handle a Customer that is going under its credit limit
IF ((_p.cust_creditlmt >= _openAmount) AND (_lateCount <= 0)) THEN
-- Handle the Customer Status
IF ( (_p.cust_autoupdatestatus) AND (_p.cust_creditstatus='W') ) THEN
UPDATE custinfo
SET cust_creditstatus='G'
WHERE (cust_id=NEW.aropen_cust_id);
END IF;
-- Handle the open Sales Orders
IF (_p.cust_autoholdorders) THEN
UPDATE cohead
SET cohead_holdtype='N'
FROM coitem
WHERE ( (coitem_cohead_id=cohead_id)
AND (cohead_holdtype='C')
AND (coitem_status='O')
AND (cohead_cust_id=_p.cust_id) );
END IF;
-- Handle a Customer that is going over its credit limit
ELSIF ((_p.cust_creditlmt < _openAmount) OR (_lateCount > 0)) THEN
-- Handle the Customer Status
IF ( (_p.cust_autoupdatestatus) AND (_p.cust_creditstatus = 'G') ) THEN
UPDATE custinfo
SET cust_creditstatus='W'
WHERE (cust_id=NEW.aropen_cust_id);
END IF;
-- Handle the open Sales Orders
IF (_p.cust_autoholdorders) THEN
UPDATE cohead
SET cohead_holdtype='C'
FROM coitem
WHERE ( (coitem_cohead_id=cohead_id)
AND (cohead_holdtype='N')
AND (coitem_status='O')
AND (cohead_cust_id=_p.cust_id) );
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._aropentrigger() OWNER TO admin;
--
-- Name: _bomheadtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _bomheadtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_revid INTEGER;
_check TEXT;
BEGIN
-- Privilege Checks
IF (NOT checkPrivilege('MaintainBOMs')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Bills of Material.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._bomheadtrigger() OWNER TO admin;
--
-- Name: _bomitemaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _bomitemaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
BEGIN
IF ( SELECT fetchMetricBool('ItemChangeLog') ) THEN
IF (TG_OP = 'INSERT') THEN
PERFORM postComment('ChangeLog', 'BMI', NEW.bomitem_id, ('Created BOM Item Sequence ' || NEW.bomitem_seqnumber::TEXT));
ELSIF (TG_OP = 'UPDATE') THEN
IF (NEW.bomitem_effective <> OLD.bomitem_effective) THEN
PERFORM postComment( 'ChangeLog', 'BMI', NEW.bomitem_id,
( 'Effective Date Changed from ' || formatDate(OLD.bomitem_effective, 'Always') ||
' to ' || formatDate(NEW.bomitem_effective, 'Always' ) ) );
END IF;
IF (NEW.bomitem_expires <> OLD.bomitem_expires) THEN
PERFORM postComment( 'ChangeLog', 'BMI', NEW.bomitem_id,
( 'Expiration Date Changed from ' || formatDate(OLD.bomitem_expires, 'Never') ||
' to ' || formatDate(NEW.bomitem_expires, 'Never' ) ) );
END IF;
IF (NEW.bomitem_qtyfxd <> OLD.bomitem_qtyfxd) THEN
PERFORM postComment( 'ChangeLog', 'BMI', NEW.bomitem_id,
( 'Fixed Qty. Changed from ' || formatQtyPer(OLD.bomitem_qtyfxd) ||
' to ' || formatQtyPer(NEW.bomitem_qtyfxd ) ) );
END IF;
IF (NEW.bomitem_qtyper <> OLD.bomitem_qtyper) THEN
PERFORM postComment( 'ChangeLog', 'BMI', NEW.bomitem_id,
( 'Qty. Per Changed from ' || formatQtyPer(OLD.bomitem_qtyper) ||
' to ' || formatQtyPer(NEW.bomitem_qtyper ) ) );
END IF;
IF (NEW.bomitem_scrap <> OLD.bomitem_scrap) THEN
PERFORM postComment( 'ChangeLog', 'BMI', NEW.bomitem_id,
( 'Scrap % Changed from ' || formatPrcnt(OLD.bomitem_scrap) ||
' to ' || formatPrcnt(NEW.bomitem_scrap ) ) );
END IF;
IF (NEW.bomitem_issuemethod <> OLD.bomitem_issuemethod) THEN
PERFORM postComment( 'ChangeLog', 'BMI', NEW.bomitem_id,
( 'Issue Method Changed from ' || (CASE WHEN(OLD.bomitem_issuemethod='S') THEN 'Push'
WHEN(OLD.bomitem_issuemethod='L') THEN 'Pull'
WHEN(OLD.bomitem_issuemethod='M') THEN 'Mixed'
ELSE OLD.bomitem_issuemethod END) ||
' to ' || (CASE WHEN(NEW.bomitem_issuemethod='S') THEN 'Push'
WHEN(NEW.bomitem_issuemethod='L') THEN 'Pull'
WHEN(NEW.bomitem_issuemethod='M') THEN 'Mixed'
ELSE NEW.bomitem_issuemethod END) ) );
END IF;
IF (NEW.bomitem_ecn <> OLD.bomitem_ecn) THEN
PERFORM postComment( 'ChangeLog', 'BMI', NEW.bomitem_id,
( 'ECN Changed from ' || OLD.bomitem_ecn ||
' to ' || NEW.bomitem_ecn ) );
END IF;
IF (OLD.bomitem_createwo <> NEW.bomitem_createwo) THEN
IF (NEW.bomitem_createwo) THEN
PERFORM postComment('ChangeLog', 'BMI', NEW.bomitem_id, 'Create Child W/O activated');
ELSE
PERFORM postComment('ChangeLog', 'BMI', NEW.bomitem_id, 'Create Child W/O deactivated');
END IF;
END IF;
IF (OLD.bomitem_issuewo <> NEW.bomitem_issuewo) THEN
IF (NEW.bomitem_issuewo) THEN
PERFORM postComment('ChangeLog', 'BMI', NEW.bomitem_id, 'Issue Child W/O activated');
ELSE
PERFORM postComment('ChangeLog', 'BMI', NEW.bomitem_id, 'Issue Child W/O deactivated');
END IF;
END IF;
END IF;
END IF;
IF (TG_OP = 'DELETE') THEN
DELETE FROM comment
WHERE ( (comment_source='BMI')
AND (comment_source_id=OLD.bomitem_id) );
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._bomitemaftertrigger() OWNER TO admin;
--
-- Name: _bomitembeforedeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _bomitembeforedeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
BEGIN
DELETE FROM comment
WHERE ( (comment_source='BMI')
AND (comment_source_id=OLD.bomitem_id) );
RETURN OLD;
END;
$$;
ALTER FUNCTION public._bomitembeforedeletetrigger() OWNER TO admin;
--
-- Name: _bomitembeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _bomitembeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_bomworksetid INTEGER;
_bomworkid INTEGER;
_seqNumber INTEGER;
_parentItem RECORD;
BEGIN
-- Privilege Checks
IF (NOT checkPrivilege('MaintainBOMs')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Bills of Material.';
END IF;
-- Cache Parent Item
SELECT * INTO _parentItem
FROM item
WHERE (item_id=NEW.bomitem_parent_item_id);
IF (TG_OP = 'INSERT') THEN
-- Make sure that the parent and component are not the same
IF (NEW.bomitem_parent_item_id = NEW.bomitem_item_id) THEN
RAISE EXCEPTION 'BOM Item Parent and Component Item cannot be the same. [xtuple: createBOMItem, -1]';
END IF;
-- Make sure that the parent is not used in the component at some level
IF ( SELECT (item_type IN ('M', 'F'))
FROM item
WHERE (item_id=NEW.bomitem_item_id) ) THEN
SELECT indentedWhereUsed(NEW.bomitem_parent_item_id) INTO _bomworksetid;
SELECT bomwork_id INTO _bomworkid
FROM bomwork
WHERE ((bomwork_set_id=_bomworksetid)
AND (bomwork_item_id=NEW.bomitem_item_id))
LIMIT 1;
IF (FOUND) THEN
PERFORM deleteBOMWorkset(_bomworksetid);
RAISE EXCEPTION 'BOM Item Parent is used by Component, BOM is recursive. [xtuple: createBOMItem, -2]';
END IF;
END IF;
PERFORM deleteBOMWorkset(_bomworksetid);
-- Set defaults
NEW.bomitem_rev_id := COALESCE(NEW.bomitem_rev_id, -1);
NEW.bomitem_booitem_seq_id := COALESCE(NEW.bomitem_booitem_seq_id, -1);
NEW.bomitem_schedatwooper := COALESCE(NEW.bomitem_schedatwooper, FALSE);
IF (NEW.bomitem_seqnumber IS NULL) THEN
-- Grab the next Sequence Number, if any
SELECT MAX(bomitem_seqnumber) INTO _seqNumber
FROM bomitem(NEW.bomitem_parent_item_id,NEW.bomitem_rev_id);
IF (_seqNumber IS NOT NULL) THEN
NEW.bomitem_seqnumber := (_seqNumber + 10);
ELSE
NEW.bomitem_seqnumber := 10;
END IF;
END IF;
END IF; -- end Insert specific
IF (TG_OP = 'UPDATE') THEN
-- Disallow changes that would compromise revision control integrity
IF (NEW.bomitem_parent_item_id != OLD.bomitem_parent_item_id) THEN
RAISE EXCEPTION 'Parent Item ID may not be changed.';
END IF;
IF (NEW.bomitem_item_id != OLD.bomitem_item_id) THEN
RAISE EXCEPTION 'Item ID may not be changed.';
END IF;
IF ((fetchMetricBool('RevControl')) AND (OLD.bomitem_rev_id > -1)) THEN
IF (SELECT (rev_status = 'I') FROM rev WHERE (rev_id=OLD.bomitem_rev_id)) THEN
RAISE EXCEPTION 'Bill of material is Inactive and may not be modified';
END IF;
END IF;
END IF; -- end Update specific
-- Check for valid UOM
IF (SELECT (count(*) != 1)
FROM
(SELECT uom_id
FROM item JOIN uom ON (item_inv_uom_id=uom_id)
WHERE(item_id=NEW.bomitem_item_id)
UNION
SELECT uom_id
FROM item JOIN itemuomconv ON (itemuomconv_item_id=item_id)
JOIN uom ON (itemuomconv_to_uom_id=uom_id),
itemuom, uomtype
WHERE((itemuomconv_from_uom_id=item_inv_uom_id)
AND (item_id=NEW.bomitem_item_id)
AND (itemuom_itemuomconv_id=itemuomconv_id)
AND (uomtype_id=itemuom_uomtype_id)
AND (uomtype_name='MaterialIssue'))
UNION
SELECT uom_id
FROM item JOIN itemuomconv ON (itemuomconv_item_id=item_id)
JOIN uom ON (itemuomconv_from_uom_id=uom_id),
itemuom, uomtype
WHERE((itemuomconv_to_uom_id=item_inv_uom_id)
AND (item_id=NEW.bomitem_item_id)
AND (itemuom_itemuomconv_id=itemuomconv_id)
AND (uomtype_id=itemuom_uomtype_id)
AND (uomtype_name='MaterialIssue'))) AS data
WHERE (uom_id=NEW.bomitem_uom_id)) THEN
RAISE EXCEPTION 'Unit of Measure Invalid for Material Issue.';
END IF;
-- Disallow configuration parameters if parent is not a job item
IF (NEW.bomitem_char_id IS NOT NULL) THEN
IF (NOT _parentItem.item_config) THEN
RAISE EXCEPTION 'Configuration characteristics may only be defined for Configured Items';
END IF;
END IF;
-- Kit items must be sold and not kits themselves
IF (_parentItem.item_type = 'K') THEN
IF (SELECT (COUNT(item_id) = 0)
FROM item
WHERE ((item_id=NEW.bomitem_item_id)
AND (item_sold)
AND (item_type != 'K'))) THEN
RAISE EXCEPTION 'Bill of Material Items for kits must be sold and not kits themselves';
END IF;
END IF;
-- Over ride logic to disallow invalid data
IF (NEW.bomitem_createwo) THEN
IF (SELECT (item_type != 'M')
FROM item
WHERE (item_id=NEW.bomitem_item_id)) THEN
NEW.bomitem_createwo := FALSE;
END IF;
IF (NEW.bomitem_booitem_seq_id = -1) THEN
NEW.bomitem_schedatwooper := FALSE;
END IF;
END IF;
NEW.bomitem_moddate := COALESCE(NEW.bomitem_moddate, CURRENT_DATE);
RETURN NEW;
END;
$$;
ALTER FUNCTION public._bomitembeforetrigger() OWNER TO admin;
--
-- Name: _bomitemsubtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _bomitemsubtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
-- Privilege Checks
IF (NOT checkPrivilege('MaintainBOMs')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Bills of Material.';
END IF;
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
ELSE
RETURN NEW;
END IF;
END;
$$;
ALTER FUNCTION public._bomitemsubtrigger() OWNER TO admin;
--
-- Name: _cashrcptitemaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _cashrcptitemaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_total NUMERIC;
BEGIN
-- Checks
-- Total Over Application Warning
SELECT (cashrcpt_amount - SUM(COALESCE(cashrcptitem_amount, 0))) INTO _total
FROM cashrcptitem JOIN cashrcpt ON (cashrcpt_id=cashrcptitem_cashrcpt_id)
WHERE (cashrcptitem_cashrcpt_id=NEW.cashrcptitem_cashrcpt_id)
GROUP BY cashrcpt_amount;
IF (_total < 0.0) THEN
RAISE WARNING 'Warning -- the Cash Receipt has been over applied.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._cashrcptitemaftertrigger() OWNER TO admin;
--
-- Name: _cashrcptitemtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _cashrcptitemtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_check BOOLEAN;
_openAmount NUMERIC;
BEGIN
-- Checks
-- Start with Privileges
IF (TG_OP = 'INSERT') THEN
SELECT checkPrivilege('MaintainCashReceipts') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'You do not have privileges to add a new Cash Receipt Application.';
END IF;
ELSE
SELECT checkPrivilege('MaintainCashReceipts') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'You do not have privileges to alter a Cash Receipt Application.';
END IF;
END IF;
-- Over Application
SELECT round(currToCurr(aropen_curr_id, cashrcpt_curr_id,
aropen_amount - aropen_paid, cashrcpt_distdate) -
COALESCE((SELECT SUM(cashrcptitem_amount)
FROM cashrcptitem, cashrcpt
WHERE ((cashrcpt_id=cashrcptitem_cashrcpt_id)
AND (NOT cashrcpt_void)
AND (NOT cashrcpt_posted)
AND (cashrcpt_id != NEW.cashrcptitem_cashrcpt_id)
AND (cashrcptitem_aropen_id=NEW.cashrcptitem_aropen_id))), 0),2) INTO _openAmount
FROM aropen, cashrcpt
WHERE ( (aropen_id=NEW.cashrcptitem_aropen_id)
AND (cashrcpt_id=NEW.cashrcptitem_cashrcpt_id) );
IF (NEW.cashrcptitem_amount > _openAmount) THEN
RAISE EXCEPTION 'You may not apply more than the balance of this item.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._cashrcptitemtrigger() OWNER TO admin;
--
-- Name: _cashrcptmisctrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _cashrcptmisctrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_check BOOLEAN;
BEGIN
-- Checks
-- Start with Privileges
IF (TG_OP = 'INSERT') THEN
SELECT checkPrivilege('MaintainCashReceipts') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'You do not have privileges to add a new Cash Receipt Misc. Application.';
END IF;
ELSE
SELECT checkPrivilege('MaintainCashReceipts') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'You do not have privileges to alter a Cash Receipt Misc. Application.';
END IF;
END IF;
-- Account is required
IF (NEW.cashrcptmisc_accnt_id IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid GL Account.';
END IF;
-- Amount is required
IF (COALESCE(NEW.cashrcptmisc_amount, 0) = 0) THEN
RAISE EXCEPTION 'You must supply a valid Amount.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._cashrcptmisctrigger() OWNER TO admin;
--
-- Name: _cashrcpttrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _cashrcpttrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_check BOOLEAN;
_checkId INTEGER;
_currId INTEGER;
_bankCurrId INTEGER;
_evntType TEXT;
_whsId INTEGER;
_custNumber TEXT;
_currrate NUMERIC;
BEGIN
-- Checks
-- Start with privileges
IF (TG_OP = 'INSERT') THEN
SELECT checkPrivilege('MaintainCashReceipts') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'You do not have privileges to add new Cash Receipts.';
END IF;
ELSE
SELECT checkPrivilege('MaintainCashReceipts') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'You do not have privileges to alter a Cash Receipt.';
END IF;
END IF;
-- Currency must be same as Bank Currency
IF (TG_OP = 'INSERT') THEN
_currId = COALESCE(NEW.cashrcpt_curr_id, basecurrid());
--- clear the number from the issue cache
PERFORM clearNumberIssue('CashRcptNumber', NEW.cashrcpt_number);
ELSE
_currId = NEW.cashrcpt_curr_id;
END IF;
-- get the base exchange rate for the dist date
IF (NEW.cashrcpt_curr_rate IS NULL) THEN
SELECT curr_rate INTO _currrate
FROM curr_rate
WHERE ( (NEW.cashrcpt_curr_id=curr_id)
AND ( NEW.cashrcpt_distdate BETWEEN curr_effective
AND curr_expires) );
IF (FOUND) THEN
NEW.cashrcpt_curr_rate := _currrate;
ELSE
RAISE EXCEPTION 'Currency exchange rate not found';
END IF;
END IF;
-- Create CashReceiptPosted Event
IF (TG_OP = 'UPDATE') THEN
IF (OLD.cashrcpt_posted=FALSE AND NEW.cashrcpt_posted=TRUE) THEN
_evntType = 'CashReceiptPosted';
-- Find the warehouse for which to create evntlog entries
SELECT usrpref_value INTO _whsId
FROM usrpref
WHERE usrpref_username = getEffectiveXtUser()
AND usrpref_name = 'PreferredWarehouse';
-- Find the Customer Number
SELECT cust_number INTO _custNumber
FROM custinfo
WHERE (cust_id=NEW.cashrcpt_cust_id);
INSERT INTO evntlog (evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ord_id, evntlog_warehous_id, evntlog_number)
SELECT DISTINCT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
NEW.cashrcpt_id, _whsId,
(_custNumber || '-' || NEW.cashrcpt_docnumber || ' ' || currConcat(NEW.cashrcpt_curr_id) || formatMoney(NEW.cashrcpt_amount))
FROM evntnot, evnttype
WHERE ((evntnot_evnttype_id=evnttype_id)
AND (evnttype_name=_evntType));
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._cashrcpttrigger() OWNER TO admin;
--
-- Name: _ccardtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _ccardtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
BEGIN
New.ccard_lastupdated := current_timestamp;
New.ccard_last_updated_by_username := getEffectiveXtUser();
IF (TG_OP = 'UPDATE') THEN
INSERT INTO ccardaud
VALUES (nextval('ccardaud_ccardaud_id_seq'), NEW.ccard_id,
OLD.ccard_seq, NEW.ccard_seq, OLD.ccard_cust_id, NEW.ccard_cust_id,
OLD.ccard_active, NEW.ccard_active, OLD.ccard_name, NEW.ccard_name,
OLD.ccard_address1, NEW.ccard_address1, OLD.ccard_address2,
NEW.ccard_address2, OLD.ccard_city, NEW.ccard_city, OLD.ccard_state,
NEW.ccard_state, OLD.ccard_zip, NEW.ccard_zip, OLD.ccard_country,
NEW.ccard_country, OLD.ccard_number, NEW.ccard_number, OLD.ccard_debit,
NEW.ccard_debit, OLD.ccard_month_expired, NEW.ccard_month_expired,
OLD.ccard_year_expired, NEW.ccard_year_expired, OLD.ccard_type, NEW.ccard_type);
ELSE
-- We are inserting a record, therefore no old values
INSERT INTO ccardaud
VALUES (nextval('ccardaud_ccardaud_id_seq'), NEW.ccard_id,
NULL, NEW.ccard_seq, NULL, NEW.ccard_cust_id, NULL,
NEW.ccard_active, NULL, NEW.ccard_name, NULL,
NEW.ccard_address1, NULL, NEW.ccard_address2, NULL,
NEW.ccard_city, NULL, NEW.ccard_state, NULL,
NEW.ccard_zip, NULL, NEW.ccard_country, NULL,
NEW.ccard_number, NULL, NEW.ccard_debit, NULL,
NEW.ccard_month_expired, NULL, NEW.ccard_year_expired, NULL,
NEW.ccard_type);
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._ccardtrigger() OWNER TO admin;
--
-- Name: _charasshistorytrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _charasshistorytrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF(TG_OP = 'DELETE') THEN
IF (OLD.charass_target_type = 'INCDT') THEN
INSERT INTO incdthist
(incdthist_incdt_id, incdthist_descrip)
VALUES(OLD.charass_target_id,
('Characteristic ' ||
COALESCE((SELECT char_name
FROM char
WHERE (char_id=OLD.charass_char_id)), '')
|| ' Deleted: "' ||
COALESCE(OLD.charass_value,'')
|| '"') );
END IF;
RETURN OLD;
ELSIF (NEW.charass_target_type = 'INCDT') THEN
IF (TG_OP = 'INSERT') THEN
INSERT INTO incdthist
(incdthist_incdt_id, incdthist_descrip)
VALUES(NEW.charass_target_id,
('Characteristic ' ||
COALESCE((SELECT char_name
FROM char
WHERE (char_id=NEW.charass_char_id)), '')
|| ' Added: "' ||
COALESCE(NEW.charass_value,'')
|| '"') );
ELSIF (TG_OP = 'UPDATE') THEN
IF (COALESCE(NEW.charass_value,'') <> COALESCE(OLD.charass_value,'')) THEN
INSERT INTO incdthist
(incdthist_incdt_id, incdthist_descrip)
VALUES(NEW.charass_target_id,
('Characteristic ' ||
COALESCE((SELECT char_name
FROM char
WHERE (char_id=NEW.charass_char_id)), '')
|| ' Changed: "' ||
COALESCE(OLD.charass_value,'')
|| '" -> "' ||
COALESCE(NEW.charass_value,'')
|| '"') );
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._charasshistorytrigger() OWNER TO admin;
--
-- Name: _charasstrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _charasstrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
-- Privilege Checks
IF (NEW.charass_target_type = 'I' AND NOT checkPrivilege('MaintainItemMasters')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Items.';
END IF;
IF (NEW.charass_target_type = 'C' AND NOT checkPrivilege('MaintainCustomerMasters')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Customers.';
END IF;
-- Data check
IF (NEW.charass_char_id IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid Characteristic ID.';
END IF;
-- Default Logic
IF (NEW.charass_default) THEN
UPDATE charass
SET charass_default = false
WHERE ((charass_target_id=NEW.charass_target_id)
AND (charass_target_type=NEW.charass_target_type)
AND (charass_char_id=NEW.charass_char_id)
AND (charass_id <> NEW.charass_ID));
END IF;
-- Incident update
IF (NEW.charass_target_type = 'INCDT') THEN
UPDATE incdt SET incdt_updated = now() WHERE incdt_id = NEW.charass_target_id;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._charasstrigger() OWNER TO admin;
--
-- Name: _charbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _charbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (NOT checkPrivilege('MaintainCharacteristics')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Characteristics.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._charbeforetrigger() OWNER TO admin;
--
-- Name: _charopttrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _charopttrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (NOT checkPrivilege('MaintainCharacteristics')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Characteristic options.';
END IF;
IF (TG_OP = 'UPDATE') THEN
UPDATE charass SET
charass_value = NEW.charopt_value
WHERE ((charass_char_id=NEW.charopt_char_id)
AND (charass_value=OLD.charopt_value));
END IF;
IF (TG_OP = 'DELETE') THEN
IF (SELECT (count(charass_id) > 0)
FROM charass
WHERE ((charass_char_id=OLD.charopt_char_id)
AND (charass_value=OLD.charopt_value))) THEN
RAISE EXCEPTION 'This characteristic option value is in use and can not be deleted.';
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._charopttrigger() OWNER TO admin;
--
-- Name: _checkheadbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _checkheadbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_amount NUMERIC;
_currrate NUMERIC;
BEGIN
-- get the base exchange rate for the check date
IF (TG_OP = 'INSERT' AND NEW.checkhead_curr_rate IS NULL) THEN
SELECT curr_rate INTO _currrate
FROM curr_rate
WHERE ( (NEW.checkhead_curr_id=curr_id)
AND ( NEW.checkhead_checkdate BETWEEN curr_effective
AND curr_expires) );
IF (FOUND) THEN
NEW.checkhead_curr_rate := _currrate;
ELSE
RAISE EXCEPTION 'Currency exchange rate not found';
END IF;
END IF;
IF (TG_OP = 'INSERT' OR TG_OP = 'UPDATE') THEN
IF (NOT EXISTS (SELECT checkrecip_id
FROM checkrecip
WHERE ((checkrecip_type=NEW.checkhead_recip_type)
AND (checkrecip_id=NEW.checkhead_recip_id)) )) THEN
RAISE EXCEPTION 'Cannot verify recipient for check % (type % id %)',
NEW.checkhead_number, NEW.checkhead_recip_type,
NEW.checkhead_recip_id;
END IF;
IF (NEW.checkhead_journalnumber IS NOT NULL
AND NOT EXISTS (SELECT jrnluse_number
FROM jrnluse
WHERE (jrnluse_number=NEW.checkhead_journalnumber))
) THEN
RAISE EXCEPTION 'Journal Number % does not exist and cannot be used for check %.',
NEW.checkhead_journalnumber, NEW.checkhead_number;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._checkheadbeforetrigger() OWNER TO admin;
--
-- Name: _cmheadbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _cmheadbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_check BOOLEAN;
_id INTEGER;
BEGIN
-- Checks
-- Start with privileges
SELECT checkPrivilege('MaintainCreditMemos') INTO _check;
IF ( (TG_OP = 'INSERT') OR (TG_OP = 'DELETE') ) THEN
IF NOT (_check) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Credit Memos.';
END IF;
END IF;
IF (TG_OP = 'UPDATE') THEN
IF ((OLD.cmhead_printed = NEW.cmhead_printed) AND NOT (_check) ) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Credit Memos.';
END IF;
END IF;
IF (TG_OP = 'DELETE') THEN
DELETE FROM cmheadtax
WHERE (taxhist_parent_id=OLD.cmhead_id);
RETURN OLD;
END IF;
IF ( (NEW.cmhead_number IS NULL) OR (LENGTH(NEW.cmhead_number) = 0) ) THEN
RAISE EXCEPTION 'You must enter a valid Memo # for this Credit Memo.';
END IF;
IF (TG_OP = 'INSERT') THEN
SELECT cmhead_id INTO _id
FROM cmhead
WHERE (cmhead_number=NEW.cmhead_number);
IF (FOUND) THEN
RAISE EXCEPTION 'The Memo # is already in use.';
END IF;
IF (fetchMetricText('CMNumberGeneration') IN ('A','O')) THEN
--- clear the number from the issue cache
PERFORM clearNumberIssue('CmNumber', NEW.cmhead_number);
ELSIF (fetchMetricText('CMNumberGeneration') = 'S') THEN
--- clear the number from the issue cache
PERFORM clearNumberIssue('SoNumber', NEW.cmhead_number);
END IF;
END IF;
IF (NEW.cmhead_cust_id IS NOT NULL) THEN
SELECT cust_id INTO _id
FROM custinfo
WHERE (cust_id=NEW.cmhead_cust_id);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'You must enter a valid Customer # for this Credit Memo.';
END IF;
END IF;
IF ( (NEW.cmhead_misc > 0) AND (NEW.cmhead_misc_accnt_id = -1) ) THEN
RAISE EXCEPTION 'You may not enter a Misc. Charge without indicating the G/L Sales Account.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._cmheadbeforetrigger() OWNER TO admin;
--
-- Name: _cmheadtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _cmheadtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (TG_OP = 'DELETE') THEN
-- If this was created by a return, then reset the return
IF (OLD.cmhead_rahead_id IS NOT NULL) THEN
UPDATE rahead SET
rahead_headcredited=false
WHERE (rahead_id=OLD.cmhead_rahead_id);
DELETE FROM rahist
WHERE ((rahist_rahead_id=OLD.cmhead_rahead_id)
AND (rahist_source='CM')
AND (rahist_source_id=OLD.cmhead_id));
END IF;
RETURN OLD;
END IF;
-- Insert new row
IF (TG_OP = 'INSERT') THEN
-- Calculate Freight Tax
IF (NEW.cmhead_freight <> 0) THEN
PERFORM calculateTaxHist( 'cmheadtax',
NEW.cmhead_id,
NEW.cmhead_taxzone_id,
getFreightTaxtypeId(),
NEW.cmhead_docdate,
NEW.cmhead_curr_id,
NEW.cmhead_freight * -1 );
END IF;
END IF;
-- Update row
IF (TG_OP = 'UPDATE') THEN
IF ( (NEW.cmhead_freight <> OLD.cmhead_freight) OR
(COALESCE(NEW.cmhead_taxzone_id,-1) <> COALESCE(OLD.cmhead_taxzone_id,-1)) OR
(NEW.cmhead_docdate <> OLD.cmhead_docdate) OR
(NEW.cmhead_curr_id <> OLD.cmhead_curr_id) ) THEN
-- Calculate cmhead Tax
PERFORM calculateTaxHist( 'cmheadtax',
NEW.cmhead_id,
NEW.cmhead_taxzone_id,
getFreightTaxtypeId(),
NEW.cmhead_docdate,
NEW.cmhead_curr_id,
NEW.cmhead_freight * -1 );
END IF;
IF ( (COALESCE(NEW.cmhead_taxzone_id,-1) <> COALESCE(OLD.cmhead_taxzone_id,-1)) OR
(NEW.cmhead_docdate <> OLD.cmhead_docdate) OR
(NEW.cmhead_curr_id <> OLD.cmhead_curr_id) ) THEN
-- Calculate cmitem Tax
IF (COALESCE(NEW.cmhead_taxzone_id,-1) <> COALESCE(OLD.cmhead_taxzone_id,-1)) THEN
-- Cmitem trigger will calculate tax
UPDATE cmitem SET cmitem_taxtype_id=getItemTaxType(itemsite_item_id,NEW.cmhead_taxzone_id)
FROM itemsite
WHERE ((itemsite_id=cmitem_itemsite_id)
AND (cmitem_cmhead_id=NEW.cmhead_id));
ELSE
PERFORM calculateTaxHist( 'cmitemtax',
cmitem_id,
NEW.cmhead_taxzone_id,
cmitem_taxtype_id,
NEW.cmhead_docdate,
NEW.cmhead_curr_id,
(cmitem_qtycredit * cmitem_qty_invuomratio) *
(cmitem_unitprice / cmitem_price_invuomratio) * -1)
FROM cmitem
WHERE (cmitem_cmhead_id = NEW.cmhead_id);
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._cmheadtrigger() OWNER TO admin;
--
-- Name: _cmitembeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _cmitembeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_check BOOLEAN;
_id INTEGER;
BEGIN
-- Checks
-- Start with privileges
SELECT checkPrivilege('MaintainCreditMemos') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Credit Memos.';
END IF;
IF (TG_OP = 'DELETE') THEN
DELETE FROM cmitemtax
WHERE (taxhist_parent_id=OLD.cmitem_id);
RETURN OLD;
END IF;
IF (TG_OP = 'INSERT') THEN
IF ( (NEW.cmitem_qtycredit IS NULL) OR (NEW.cmitem_qtycredit = 0) ) THEN
RAISE EXCEPTION 'Quantity to Credit must be greater than zero.';
END IF;
SELECT cmitem_id INTO _id
FROM cmitem
WHERE ( (cmitem_cmhead_id=NEW.cmitem_cmhead_id) AND (cmitem_linenumber=NEW.cmitem_linenumber) );
IF (FOUND) THEN
RAISE EXCEPTION 'The Memo Line Number is already in use.';
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._cmitembeforetrigger() OWNER TO admin;
--
-- Name: _cmitemtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _cmitemtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_ext NUMERIC;
_r RECORD;
BEGIN
IF (TG_OP = 'DELETE') THEN
-- If this was created by a return, reset return values
IF (OLD.cmitem_raitem_id) IS NOT NULL THEN
_ext := ROUND((OLD.cmitem_qtycredit * OLD.cmitem_qty_invuomratio) * (OLD.cmitem_unitprice / OLD.cmitem_price_invuomratio),2);
UPDATE raitem SET
raitem_status = 'O',
raitem_qtycredited = raitem_qtycredited-OLD.cmitem_qtycredit,
raitem_amtcredited = raitem_amtcredited-_ext
WHERE (raitem_id=OLD.cmitem_raitem_id);
END IF;
RETURN OLD;
END IF;
-- Cache Credit Memo Head
SELECT * INTO _r
FROM cmhead
WHERE (cmhead_id=NEW.cmitem_cmhead_id);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Credit Memo head not found';
END IF;
-- Insert new row
IF (TG_OP = 'INSERT') THEN
-- Calculate Tax
PERFORM calculateTaxHist( 'cmitemtax',
NEW.cmitem_id,
COALESCE(_r.cmhead_taxzone_id, -1),
NEW.cmitem_taxtype_id,
COALESCE(_r.cmhead_docdate, CURRENT_DATE),
COALESCE(_r.cmhead_curr_id, -1),
(NEW.cmitem_qtycredit * NEW.cmitem_qty_invuomratio) *
(NEW.cmitem_unitprice / NEW.cmitem_price_invuomratio) * -1);
END IF;
-- Update row
IF (TG_OP = 'UPDATE') THEN
-- Calculate Tax
IF ( (NEW.cmitem_qtycredit <> OLD.cmitem_qtycredit) OR
(NEW.cmitem_qty_invuomratio <> OLD.cmitem_qty_invuomratio) OR
(NEW.cmitem_unitprice <> OLD.cmitem_unitprice) OR
(NEW.cmitem_price_invuomratio <> OLD.cmitem_price_invuomratio) OR
(COALESCE(NEW.cmitem_taxtype_id, -1) <> COALESCE(OLD.cmitem_taxtype_id, -1)) ) THEN
PERFORM calculateTaxHist( 'cmitemtax',
NEW.cmitem_id,
COALESCE(_r.cmhead_taxzone_id, -1),
NEW.cmitem_taxtype_id,
COALESCE(_r.cmhead_docdate, CURRENT_DATE),
COALESCE(_r.cmhead_curr_id, -1),
(NEW.cmitem_qtycredit * NEW.cmitem_qty_invuomratio) *
(NEW.cmitem_unitprice / NEW.cmitem_price_invuomratio) * -1);
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._cmitemtrigger() OWNER TO admin;
--
-- Name: _cntcttrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _cntcttrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
NEW.cntct_name := formatCntctName(NULL, NEW.cntct_first_name, NEW.cntct_middle, NEW.cntct_last_name, NEW.cntct_suffix);
NEW.cntct_email := lower(NEW.cntct_email);
IF (TG_OP = 'INSERT') THEN
--- clear the number from the issue cache
PERFORM clearNumberIssue('ContactNumber', NEW.cntct_number);
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._cntcttrigger() OWNER TO admin;
--
-- Name: _cntcttriggerafter(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _cntcttriggerafter() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cntctemlid INTEGER;
_rows INTEGER;
BEGIN
IF (TG_OP = 'INSERT') THEN
IF(length(coalesce(NEW.cntct_email,'')) > 0) THEN
INSERT INTO cntcteml (
cntcteml_cntct_id, cntcteml_primary, cntcteml_email )
VALUES (
NEW.cntct_id, true, NEW.cntct_email );
END IF;
PERFORM postComment('ChangeLog', 'T', NEW.cntct_id,
('Created by ' || getEffectiveXtUser()));
ELSIF (TG_OP = 'UPDATE') THEN
IF (OLD.cntct_email != NEW.cntct_email) THEN
SELECT cntcteml_id INTO _cntctemlid
FROM cntcteml
WHERE ((cntcteml_cntct_id=NEW.cntct_id)
AND (cntcteml_email=NEW.cntct_email));
GET DIAGNOSTICS _rows = ROW_COUNT;
IF (_rows = 0) THEN
UPDATE cntcteml SET
cntcteml_primary=false
WHERE ((cntcteml_cntct_id=NEW.cntct_id)
AND (cntcteml_primary=true));
INSERT INTO cntcteml (
cntcteml_cntct_id, cntcteml_primary, cntcteml_email )
VALUES (
NEW.cntct_id, true, NEW.cntct_email );
ELSE
UPDATE cntcteml SET
cntcteml_primary=false
WHERE ((cntcteml_cntct_id=NEW.cntct_id)
AND (cntcteml_primary=true));
UPDATE cntcteml SET
cntcteml_primary=true
WHERE (cntcteml_id=_cntctemlid);
END IF;
END IF;
ELSIF (TG_OP = 'DELETE') THEN
DELETE FROM comment
WHERE (comment_source_id=OLD.cntct_id AND comment_source = 'T');
DELETE FROM docass
WHERE (docass_source_id=OLD.cntct_id AND docass_source_type = 'T')
OR (docass_target_id=OLD.cntct_id AND docass_target_type = 'T');
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._cntcttriggerafter() OWNER TO admin;
--
-- Name: _cntcttriggerbeforedelete(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _cntcttriggerbeforedelete() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (TG_OP = 'DELETE') THEN
DELETE FROM cntctaddr WHERE cntctaddr_cntct_id=OLD.cntct_id;
DELETE FROM cntctdata WHERE cntctdata_cntct_id=OLD.cntct_id;
DELETE FROM cntcteml WHERE cntcteml_cntct_id=OLD.cntct_id;
DELETE FROM docass WHERE docass_source_id = OLD.cntct_id AND docass_source_type = 'T';
DELETE FROM docass WHERE docass_target_id = OLD.cntct_id AND docass_target_type = 'T';
-- these have denormalized cntct info so it should be ok to update them
UPDATE cohead SET cohead_billto_cntct_id=NULL
WHERE cohead_billto_cntct_id=OLD.cntct_id;
UPDATE cohead SET cohead_shipto_cntct_id=NULL
WHERE cohead_shipto_cntct_id=OLD.cntct_id;
UPDATE pohead SET pohead_vend_cntct_id=NULL
WHERE pohead_vend_cntct_id=OLD.cntct_id;
UPDATE pohead SET pohead_shipto_cntct_id=NULL
WHERE pohead_shipto_cntct_id=OLD.cntct_id;
UPDATE quhead SET quhead_billto_cntct_id=NULL
WHERE quhead_billto_cntct_id=OLD.cntct_id;
UPDATE quhead SET quhead_shipto_cntct_id=NULL
WHERE quhead_shipto_cntct_id=OLD.cntct_id;
IF (fetchMetricBool('MultiWhs')) THEN
UPDATE tohead SET tohead_destcntct_id=NULL
WHERE tohead_destcntct_id=OLD.cntct_id;
UPDATE tohead SET tohead_srccntct_id=NULL
WHERE tohead_srccntct_id=OLD.cntct_id;
END IF;
END IF;
RETURN OLD;
END;
$$;
ALTER FUNCTION public._cntcttriggerbeforedelete() OWNER TO admin;
--
-- Name: _cntsliptrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _cntsliptrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_p RECORD;
_comments TEXT;
_temp TEXT;
BEGIN
IF (TG_OP = 'DELETE') THEN
SELECT itemsite_loccntrl, itemsite_controlmethod,
cntslip_posted, cntslip_lotserial, cntslip_comments,
cntslip_number, cntslip_qty INTO _p
FROM cntslip, invcnt, itemsite
WHERE ( (cntslip_cnttag_id=invcnt_id)
AND (invcnt_itemsite_id=itemsite_id)
AND (cntslip_id=OLD.cntslip_id) );
IF(_p.cntslip_posted) THEN
SELECT ( '
Count Slip #' || _p.cntslip_number ||
' deleted ' || formatQty(_p.cntslip_qty) ) INTO _comments;
-- Add the Location name if the itemsite is MLC
IF (_p.itemsite_loccntrl) THEN
SELECT ( ', Location:' || location_name ) INTO _temp
FROM location, cntslip
WHERE ( (cntslip_location_id=location_id)
AND (cntslip_id=OLD.cntslip_id) );
_comments := (_comments || _temp);
END IF;
-- Add the Lot/Serial if the itemsite is Lot or Serial controlled
IF (_p.itemsite_controlmethod = 'L') THEN
_comments := (_comments || ( ', Lot #:' || _p.cntslip_lotserial));
ELSIF (_p.itemsite_controlmethod = 'S') THEN
_comments := (_comments || ( ', Serial #:' || _p.cntslip_lotserial));
END IF;
_comments := (_comments || ' ' || _p.cntslip_comments);
UPDATE invcnt
SET invcnt_qoh_after = ( COALESCE(invcnt_qoh_after, 0) - cntslip_qty),
invcnt_comments = (invcnt_comments || _comments)
FROM cntslip
WHERE ( (cntslip_cnttag_id=invcnt_id)
AND (NOT invcnt_posted)
AND (cntslip_id=OLD.cntslip_id) );
END IF;
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._cntsliptrigger() OWNER TO admin;
--
-- Name: _cobillbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _cobillbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
BEGIN
IF (TG_OP = 'DELETE') THEN
DELETE FROM cobilltax
WHERE (taxhist_parent_id=OLD.cobill_id);
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._cobillbeforetrigger() OWNER TO admin;
--
-- Name: _cobilltrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _cobilltrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_r RECORD;
BEGIN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
-- Cache Billing Head
SELECT * INTO _r
FROM cobmisc
WHERE (cobmisc_id=NEW.cobill_cobmisc_id);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Billing head not found';
END IF;
-- Insert new row
IF (TG_OP = 'INSERT') THEN
-- Calculate Tax
PERFORM calculateTaxHist( 'cobilltax',
NEW.cobill_id,
COALESCE(_r.cobmisc_taxzone_id, -1),
NEW.cobill_taxtype_id,
COALESCE(_r.cobmisc_shipdate, CURRENT_DATE),
COALESCE(_r.cobmisc_curr_id, -1),
(NEW.cobill_qty * coitem_qty_invuomratio) *
(coitem_price / coitem_price_invuomratio) )
FROM coitem
WHERE (coitem_id=NEW.cobill_coitem_id);
END IF;
-- Update row
IF (TG_OP = 'UPDATE') THEN
-- Calculate Tax
IF ( (NEW.cobill_qty <> OLD.cobill_qty) OR
(NEW.cobill_taxtype_id <> OLD.cobill_taxtype_id) ) THEN
PERFORM calculateTaxHist( 'cobilltax',
NEW.cobill_id,
COALESCE(_r.cobmisc_taxzone_id, -1),
NEW.cobill_taxtype_id,
COALESCE(_r.cobmisc_shipdate, CURRENT_DATE),
COALESCE(_r.cobmisc_curr_id, -1),
(NEW.cobill_qty * coitem_qty_invuomratio) *
(coitem_price / coitem_price_invuomratio) )
FROM coitem
WHERE (coitem_id=NEW.cobill_coitem_id);
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._cobilltrigger() OWNER TO admin;
--
-- Name: _cobmiscbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _cobmiscbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
BEGIN
IF (TG_OP = 'DELETE') THEN
DELETE FROM cobmisctax
WHERE (taxhist_parent_id=OLD.cobmisc_id);
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._cobmiscbeforetrigger() OWNER TO admin;
--
-- Name: _cobmisctrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _cobmisctrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (TG_OP = 'DELETE') THEN
-- Something can go here
RETURN OLD;
END IF;
-- Insert new row
IF (TG_OP = 'INSERT') THEN
-- Calculate Freight Tax
IF (NEW.cobmisc_freight <> 0) THEN
PERFORM calculateTaxHist( 'cobmisctax',
NEW.cobmisc_id,
NEW.cobmisc_taxzone_id,
getFreightTaxtypeId(),
NEW.cobmisc_invcdate,
NEW.cobmisc_curr_id,
NEW.cobmisc_freight );
END IF;
END IF;
-- Update row
IF (TG_OP = 'UPDATE') THEN
-- Calculate Tax
IF (COALESCE(NEW.cobmisc_taxzone_id,-1) <> COALESCE(OLD.cobmisc_taxzone_id,-1)) THEN
UPDATE cobill SET cobill_taxtype_id=getItemTaxType(itemsite_item_id,NEW.cobmisc_taxzone_id)
FROM coitem
JOIN itemsite ON (coitem_itemsite_id=itemsite_id)
WHERE ((coitem_id=cobill_coitem_id)
AND (cobill_cobmisc_id=NEW.cobmisc_id));
END IF;
IF ( (NEW.cobmisc_freight <> OLD.cobmisc_freight) OR
(COALESCE(NEW.cobmisc_taxzone_id,-1) <> COALESCE(OLD.cobmisc_taxzone_id,-1)) OR
(NEW.cobmisc_invcdate <> OLD.cobmisc_invcdate) OR
(NEW.cobmisc_curr_id <> OLD.cobmisc_curr_id) ) THEN
PERFORM calculateTaxHist( 'cobmisctax',
NEW.cobmisc_id,
NEW.cobmisc_taxzone_id,
getFreightTaxtypeId(),
NEW.cobmisc_invcdate,
NEW.cobmisc_curr_id,
NEW.cobmisc_freight );
PERFORM calculateTaxHist( 'cobilltax',
cobill_id,
NEW.cobmisc_taxzone_id,
cobill_taxtype_id,
NEW.cobmisc_invcdate,
NEW.cobmisc_curr_id,
(cobill_qty * coitem_qty_invuomratio) *
(coitem_price / coitem_price_invuomratio) )
FROM cobill JOIN coitem ON (coitem_id = cobill_coitem_id)
WHERE (cobill_cobmisc_id = NEW.cobmisc_id);
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._cobmisctrigger() OWNER TO admin;
--
-- Name: _commenttrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _commenttrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (NEW.comment_cmnttype_id IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid Comment Type ID.';
ELSIF (NEW.comment_source = 'INCDT') THEN
UPDATE incdt SET incdt_updated = now() WHERE incdt_id = NEW.comment_source_id;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._commenttrigger() OWNER TO admin;
--
-- Name: _companytrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _companytrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_used BOOLEAN := false;
BEGIN
IF (NEW.company_external AND NOT OLD.company_external) THEN
IF EXISTS(SELECT accnt_id
FROM accnt, company, (
SELECT DISTINCT apaccnt_ap_accnt_id AS test_accnt_id FROM apaccnt
UNION SELECT DISTINCT apaccnt_discount_accnt_id FROM apaccnt
UNION SELECT DISTINCT apaccnt_prepaid_accnt_id FROM apaccnt
UNION SELECT DISTINCT apopen_accnt_id FROM apopen
UNION SELECT DISTINCT araccnt_ar_accnt_id FROM araccnt
UNION SELECT DISTINCT araccnt_deferred_accnt_id FROM araccnt
UNION SELECT DISTINCT araccnt_freight_accnt_id FROM araccnt
UNION SELECT DISTINCT araccnt_prepaid_accnt_id FROM araccnt
UNION SELECT DISTINCT aropen_accnt_id FROM aropen
UNION SELECT DISTINCT bankaccnt_accnt_id FROM bankaccnt
UNION SELECT DISTINCT bankaccnt_rec_accnt_id FROM bankaccnt
UNION SELECT DISTINCT budgitem_accnt_id FROM budgitem
UNION SELECT DISTINCT cashrcptmisc_accnt_id FROM cashrcptmisc
UNION SELECT DISTINCT cmhead_misc_accnt_id FROM cmhead
UNION SELECT DISTINCT cobmisc_misc_accnt_id FROM cobmisc
UNION SELECT DISTINCT cohead_misc_accnt_id FROM cohead
UNION SELECT DISTINCT coitem_cos_accnt_id FROM coitem
UNION SELECT DISTINCT costcat_adjustment_accnt_id FROM costcat
UNION SELECT DISTINCT costcat_asset_accnt_id FROM costcat
UNION SELECT DISTINCT costcat_freight_accnt_id FROM costcat
UNION SELECT DISTINCT costcat_invcost_accnt_id FROM costcat
UNION SELECT DISTINCT costcat_laboroverhead_accnt_id FROM costcat
UNION SELECT DISTINCT costcat_liability_accnt_id FROM costcat
UNION SELECT DISTINCT costcat_matusage_accnt_id FROM costcat
UNION SELECT DISTINCT costcat_mfgscrap_accnt_id FROM costcat
UNION SELECT DISTINCT costcat_purchprice_accnt_id FROM costcat
UNION SELECT DISTINCT costcat_scrap_accnt_id FROM costcat
UNION SELECT DISTINCT costcat_shipasset_accnt_id FROM costcat
UNION SELECT DISTINCT costcat_toliability_accnt_id FROM costcat
UNION SELECT DISTINCT costcat_transform_accnt_id FROM costcat
UNION SELECT DISTINCT costcat_wip_accnt_id FROM costcat
UNION SELECT DISTINCT costelem_exp_accnt_id FROM costelem
UNION SELECT DISTINCT expcat_exp_accnt_id FROM expcat
UNION SELECT DISTINCT expcat_freight_accnt_id FROM expcat
UNION SELECT DISTINCT expcat_liability_accnt_id FROM expcat
UNION SELECT DISTINCT expcat_purchprice_accnt_id FROM expcat
UNION SELECT DISTINCT glseries_accnt_id FROM glseries
UNION SELECT DISTINCT gltrans_accnt_id FROM gltrans
UNION SELECT DISTINCT invchead_misc_accnt_id FROM invchead
UNION SELECT DISTINCT quhead_misc_accnt_id FROM quhead
UNION SELECT DISTINCT salesaccnt_cor_accnt_id FROM salesaccnt
UNION SELECT DISTINCT salesaccnt_cos_accnt_id FROM salesaccnt
UNION SELECT DISTINCT salesaccnt_cow_accnt_id FROM salesaccnt
UNION SELECT DISTINCT salesaccnt_credit_accnt_id FROM salesaccnt
UNION SELECT DISTINCT salesaccnt_returns_accnt_id FROM salesaccnt
UNION SELECT DISTINCT salesaccnt_sales_accnt_id FROM salesaccnt
UNION SELECT DISTINCT salescat_ar_accnt_id FROM salescat
UNION SELECT DISTINCT salescat_prepaid_accnt_id FROM salescat
UNION SELECT DISTINCT salescat_sales_accnt_id FROM salescat
UNION SELECT DISTINCT stdjrnlitem_accnt_id FROM stdjrnlitem
UNION SELECT DISTINCT tax_sales_accnt_id FROM tax
UNION SELECT DISTINCT taxauth_accnt_id FROM taxauth
UNION SELECT DISTINCT vodist_accnt_id FROM vodist
UNION SELECT DISTINCT warehous_default_accnt_id FROM whsinfo
) AS dummy
WHERE ((accnt_id=test_accnt_id)
AND (accnt_company=company_number)
AND (accnt_company=NEW.company_number))
) THEN
RAISE EXCEPTION 'Cannot make Company % External because it is used in the local database.',
NEW.company_number;
ELSIF (fetchMetricBool('EnableReturnAuth')) THEN
IF EXISTS(SELECT accnt_id
FROM accnt, company, (
SELECT DISTINCT rahead_misc_accnt_id AS test_accnt_id FROM rahead
UNION SELECT DISTINCT raitem_cos_accnt_id FROM raitem
) AS dummy
WHERE ((accnt_id=test_accnt_id)
AND (accnt_company=company_number)
AND (accnt_company=NEW.company_number))
) THEN
RAISE EXCEPTION 'Cannot make Company % External because it is used in the local database.',
NEW.company_number;
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._companytrigger() OWNER TO admin;
--
-- Name: _contrctaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _contrctaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
BEGIN
-- synchronize contract effectivity with item source effectivity
IF (NEW.contrct_effective <> OLD.contrct_effective) THEN
UPDATE itemsrc SET itemsrc_effective=NEW.contrct_effective
WHERE itemsrc_contrct_id=NEW.contrct_id;
END IF;
IF (NEW.contrct_expires <> OLD.contrct_expires) THEN
UPDATE itemsrc SET itemsrc_expires=NEW.contrct_expires
WHERE itemsrc_contrct_id=NEW.contrct_id;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._contrctaftertrigger() OWNER TO admin;
--
-- Name: _crmacctaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _crmacctaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
_gotpriv BOOLEAN;
BEGIN
/* update _number and _name separately to propagate just what changed.
the priv manipulation allows targeted updates of crmaccount-maintained data
(note: grantPriv() == false if the user already had the priv, true if this
call granted the priv).
*/
IF (TG_OP = 'INSERT' OR TG_OP = 'UPDATE') THEN
IF (NEW.crmacct_cust_id IS NOT NULL) THEN
_gotpriv := grantPriv(getEffectiveXtUser(), 'MaintainCustomerMasters');
UPDATE custinfo SET cust_number = NEW.crmacct_number
WHERE ((cust_id=NEW.crmacct_cust_id)
AND (cust_number!=NEW.crmacct_number));
UPDATE custinfo SET cust_name = NEW.crmacct_name
WHERE ((cust_id=NEW.crmacct_cust_id)
AND (cust_name!=NEW.crmacct_name));
IF (_gotpriv) THEN
PERFORM revokePriv(getEffectiveXtUser(), 'MaintainCustomerMasters');
END IF;
END IF;
IF (NEW.crmacct_emp_id IS NOT NULL) THEN
_gotpriv := grantPriv(getEffectiveXtUser(), 'MaintainEmployees');
UPDATE emp SET emp_code = NEW.crmacct_number
WHERE ((emp_id=NEW.crmacct_emp_id)
AND (emp_code!=NEW.crmacct_number));
UPDATE emp SET emp_name = NEW.crmacct_name
WHERE ((emp_id=NEW.crmacct_emp_id)
AND (emp_name!=NEW.crmacct_name));
IF (_gotpriv) THEN
PERFORM revokePriv(getEffectiveXtUser(), 'MaintainEmployees');
END IF;
END IF;
IF (NEW.crmacct_prospect_id IS NOT NULL) THEN
_gotpriv := grantPriv(getEffectiveXtUser(), 'MaintainProspectMasters');
UPDATE prospect SET prospect_number = NEW.crmacct_number
WHERE ((prospect_id=NEW.crmacct_prospect_id)
AND (prospect_number!=NEW.crmacct_number));
UPDATE prospect SET prospect_name = NEW.crmacct_name
WHERE ((prospect_id=NEW.crmacct_prospect_id)
AND (prospect_name!=NEW.crmacct_name));
IF (_gotpriv) THEN
PERFORM revokePriv(getEffectiveXtUser(), 'MaintainProspectMasters');
END IF;
END IF;
IF (NEW.crmacct_salesrep_id IS NOT NULL) THEN
_gotpriv := grantPriv(getEffectiveXtUser(), 'MaintainSalesReps');
UPDATE salesrep SET salesrep_number = NEW.crmacct_number
WHERE ((salesrep_id=NEW.crmacct_salesrep_id)
AND (salesrep_number!=NEW.crmacct_number));
UPDATE salesrep SET salesrep_name = NEW.crmacct_name
WHERE ((salesrep_id=NEW.crmacct_salesrep_id)
AND (salesrep_name!=NEW.crmacct_name));
IF (_gotpriv) THEN
PERFORM revokePriv(getEffectiveXtUser(), 'MaintainSalesReps');
END IF;
END IF;
IF (NEW.crmacct_taxauth_id IS NOT NULL) THEN
_gotpriv := grantPriv(getEffectiveXtUser(), 'MaintainTaxAuthorities');
UPDATE taxauth SET taxauth_code = NEW.crmacct_number
WHERE ((taxauth_id=NEW.crmacct_taxauth_id)
AND (taxauth_code!=NEW.crmacct_number));
UPDATE taxauth SET taxauth_name = NEW.crmacct_name
WHERE ((taxauth_id=NEW.crmacct_taxauth_id)
AND (taxauth_name!=NEW.crmacct_name));
IF (_gotpriv) THEN
PERFORM revokePriv(getEffectiveXtUser(), 'MaintainTaxAuthorities');
END IF;
END IF;
IF (NEW.crmacct_vend_id IS NOT NULL) THEN
_gotpriv := grantPriv(getEffectiveXtUser(), 'MaintainVendors');
UPDATE vendinfo SET vend_number = NEW.crmacct_number
WHERE ((vend_id=NEW.crmacct_vend_id)
AND (vend_number!=NEW.crmacct_number));
UPDATE vendinfo SET vend_name = NEW.crmacct_name
WHERE ((vend_id=NEW.crmacct_vend_id)
AND (vend_name!=NEW.crmacct_name));
IF (_gotpriv) THEN
PERFORM revokePriv(getEffectiveXtUser(), 'MaintainVendors');
END IF;
END IF;
-- Link Primary and Secondary Contacts to this Account if they are not already
IF (NEW.crmacct_cntct_id_1 IS NOT NULL) THEN
_gotpriv := grantPriv(getEffectiveXtUser(), 'MaintainAllContacts');
UPDATE cntct SET cntct_crmacct_id = NEW.crmacct_id
WHERE cntct_id=NEW.crmacct_cntct_id_1;
IF (_gotpriv) THEN
PERFORM revokePriv(getEffectiveXtUser(), 'MaintainAllContacts');
END IF;
END IF;
IF (NEW.crmacct_cntct_id_2 IS NOT NULL) THEN
_gotpriv := grantPriv(getEffectiveXtUser(), 'MaintainAllContacts');
UPDATE cntct SET cntct_crmacct_id = NEW.crmacct_id
WHERE cntct_id=NEW.crmacct_cntct_id_2;
IF (_gotpriv) THEN
PERFORM revokePriv(getEffectiveXtUser(), 'MaintainAllContacts');
END IF;
END IF;
-- cannot have fkey references to system catalogs so enforce them here
IF (NEW.crmacct_usr_username IS NOT NULL) THEN
IF (NOT EXISTS(SELECT usr_username
FROM usr
WHERE usr_username=NEW.crmacct_usr_username)) THEN
RAISE EXCEPTION 'User % does not exist so this CRM Account Number is invalid.',
NEW.crmacct_usr_username;
END IF;
IF (TG_OP = 'UPDATE') THEN
-- reminder: this evaluates to false if either is NULL
IF (NEW.crmacct_usr_username != OLD.crmacct_usr_username) THEN
RAISE EXCEPTION 'Cannot change the user name for %',
OLD.crmacct_usr_username;
END IF;
END IF;
UPDATE usrpref SET usrpref_value = NEW.crmacct_name
WHERE ((usrpref_username=NEW.crmacct_usr_username)
AND (usrpref_name='propername')
AND (usrpref_value!=NEW.crmacct_name));
END IF;
ELSIF (TG_OP = 'DELETE') THEN
IF (OLD.crmacct_cust_id IS NOT NULL) THEN
RAISE EXCEPTION 'Cannot delete CRM Account because it is a Customer [xtuple: deleteCrmAccount, -1]';
END IF;
IF (OLD.crmacct_emp_id IS NOT NULL) THEN
RAISE EXCEPTION 'Cannot delete CRM Account because it is an Employee [xtuple: deleteCrmAccount, -7]';
END IF;
IF (OLD.crmacct_prospect_id IS NOT NULL) THEN
RAISE EXCEPTION 'Cannot delete CRM Account because it is a Prospect [xtuple: deleteCrmAccount, -3]';
END IF;
DELETE FROM salesrep WHERE salesrep_id = OLD.crmacct_salesrep_id;
IF (OLD.crmacct_salesrep_id IS NOT NULL) THEN
RAISE EXCEPTION 'Cannot delete CRM Account because it is a Sales Rep [xtuple: deleteCrmAccount, -6]';
END IF;
IF (OLD.crmacct_taxauth_id IS NOT NULL) THEN
RAISE EXCEPTION 'Cannot delete CRM Account because it is a Tax Authority [xtuple: deleteCrmAccount, -5]';
END IF;
IF (EXISTS(SELECT usename
FROM pg_user
WHERE usename=OLD.crmacct_usr_username)) THEN
RAISE EXCEPTION 'Cannot delete CRM Account because it is a User [xtuple: deleteCrmAccount, -8]';
END IF;
IF (OLD.crmacct_vend_id IS NOT NULL) THEN
RAISE EXCEPTION 'Cannot delete CRM Account because it is a Vendor [xtuple: deleteCrmAccount, -2]';
END IF;
DELETE FROM imageass
WHERE (imageass_source_id=OLD.crmacct_id) AND (imageass_source='CRMA');
DELETE FROM url
WHERE (url_source_id=OLD.crmacct_id) AND (url_source='CRMA');
END IF;
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
IF (_cmnttypeid IS NOT NULL) THEN
IF (TG_OP = 'INSERT') THEN
PERFORM postComment(_cmnttypeid, 'CRMA', NEW.crmacct_id,
('Created by ' || getEffectiveXtUser()));
ELSIF (TG_OP = 'DELETE') THEN
PERFORM postComment(_cmnttypeid, 'CRMA', OLD.crmacct_id,
'Deleted "' || OLD.crmacct_number || '"');
END IF;
END IF;
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._crmacctaftertrigger() OWNER TO admin;
--
-- Name: _crmacctbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _crmacctbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_count INTEGER;
BEGIN
-- disallow reusing crmacct_numbers
IF (TG_OP IN ('INSERT', 'UPDATE')) THEN
IF (TG_OP = 'INSERT' AND fetchMetricText('CRMAccountNumberGeneration') IN ('A','O')) THEN
PERFORM clearNumberIssue('CRMAccountNumber', NEW.crmacct_number);
END IF;
NEW.crmacct_usr_username := LOWER(TRIM(NEW.crmacct_usr_username));
IF (NEW.crmacct_usr_username = '') THEN
NEW.crmacct_usr_username = NULL;
END IF;
NEW.crmacct_owner_username := LOWER(TRIM(NEW.crmacct_owner_username));
IF (COALESCE(NEW.crmacct_owner_username, '') = '') THEN
NEW.crmacct_owner_username = getEffectiveXtUser();
END IF;
IF (NEW.crmacct_competitor_id < 0) THEN
NEW.crmacct_competitor_id := NULL;
END IF;
IF (NEW.crmacct_partner_id < 0) THEN
NEW.crmacct_partner_id := NULL;
END IF;
NEW.crmacct_number = UPPER(NEW.crmacct_number);
IF (TG_OP = 'UPDATE') THEN
-- TODO: why not ALTER USER OLD.crmacct_number RENAME TO LOWER(NEW.crmacct_number)?
IF (NEW.crmacct_number != UPPER(OLD.crmacct_number) AND
NEW.crmacct_usr_username IS NOT NULL AND
UPPER(NEW.crmacct_usr_username) != NEW.crmacct_number) THEN
RAISE EXCEPTION 'The CRM Account % is associated with a system User so the number cannot be changed.',
NEW.crmacct_number;
END IF;
END IF;
ELSIF (TG_OP = 'DELETE') THEN
UPDATE cntct SET cntct_crmacct_id = NULL
WHERE cntct_crmacct_id = OLD.crmacct_id;
DELETE FROM docass WHERE docass_source_id = OLD.crmacct_id AND docass_source_type = 'CRMA';
DELETE FROM docass WHERE docass_target_id = OLD.crmacct_id AND docass_target_type = 'CRMA';
GET DIAGNOSTICS _count = ROW_COUNT;
RAISE DEBUG 'updated % contacts', _count;
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._crmacctbeforetrigger() OWNER TO admin;
--
-- Name: _custaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _custaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
_whsId INTEGER := -1;
BEGIN
IF (TG_OP = 'INSERT') THEN
-- http://www.postgresql.org/docs/current/static/plpgsql-control-structures.html#PLPGSQL-UPSERT-EXAMPLE
LOOP
UPDATE crmacct SET crmacct_cust_id=NEW.cust_id,
crmacct_name=NEW.cust_name,
crmacct_prospect_id=NULL
WHERE crmacct_number=NEW.cust_number;
IF (FOUND) THEN
DELETE FROM prospect WHERE prospect_id=NEW.cust_id;
EXIT;
END IF;
BEGIN
INSERT INTO crmacct(crmacct_number, crmacct_name, crmacct_active,
crmacct_type, crmacct_cust_id, crmacct_cntct_id_1,
crmacct_cntct_id_2
) VALUES (NEW.cust_number, NEW.cust_name, NEW.cust_active,
'O', NEW.cust_id, NEW.cust_cntct_id,
NEW.cust_corrcntct_id);
EXIT;
EXCEPTION WHEN unique_violation THEN
-- do nothing, and loop to try the UPDATE again
END;
END LOOP;
PERFORM updateCharAssignment('C', NEW.cust_id, char_id, charass_value)
FROM custtype
JOIN charass ON (custtype_id=charass_target_id AND charass_target_type='CT')
JOIN char ON (charass_char_id=char_id)
WHERE ((custtype_id=NEW.cust_custtype_id)
AND (custtype_char)
AND (charass_default));
ELSIF (TG_OP = 'UPDATE') THEN
UPDATE crmacct SET crmacct_number = NEW.cust_number
WHERE ((crmacct_cust_id=NEW.cust_id)
AND (crmacct_number!=NEW.cust_number));
UPDATE crmacct SET crmacct_name = NEW.cust_name
WHERE ((crmacct_cust_id=NEW.cust_id)
AND (crmacct_name!=NEW.cust_name));
END IF;
IF (TG_OP = 'INSERT') THEN
-- find the warehouse for which to create evntlog entries
SELECT usrpref_value INTO _whsId
FROM usrpref
WHERE usrpref_username = getEffectiveXtUser()
AND usrpref_name = 'PreferredWarehouse';
INSERT INTO evntlog (evntlog_evnttime, evntlog_username,
evntlog_evnttype_id, evntlog_ordtype,
evntlog_ord_id, evntlog_warehous_id, evntlog_number)
SELECT DISTINCT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'C', NEW.cust_id, _whsId, NEW.cust_number
FROM evntnot, evnttype
WHERE ((evntnot_evnttype_id=evnttype_id)
AND (evnttype_name='NewCustomer'));
END IF;
IF (fetchMetricBool('CustomerChangeLog')) THEN
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
IF (_cmnttypeid IS NOT NULL) THEN
IF (TG_OP = 'INSERT') THEN
PERFORM postComment(_cmnttypeid, 'C', NEW.cust_id, 'Created');
ELSIF (TG_OP = 'UPDATE') THEN
IF (OLD.cust_number <> NEW.cust_number) THEN
PERFORM postComment( _cmnttypeid, 'C', NEW.cust_id,
('Number changed from "' || OLD.cust_number ||
'" to "' || NEW.cust_number || '"') );
END IF;
IF (OLD.cust_name <> NEW.cust_name) THEN
PERFORM postComment( _cmnttypeid, 'C', NEW.cust_id,
('Name changed from "' || OLD.cust_name ||
'" to "' || NEW.cust_name || '"') );
END IF;
IF (OLD.cust_active <> NEW.cust_active) THEN
PERFORM postComment(_cmnttypeid, 'C', NEW.cust_id,
CASE WHEN NEW.cust_active THEN 'Activated'
ELSE 'Deactivated' END);
END IF;
IF (OLD.cust_discntprcnt <> NEW.cust_discntprcnt) THEN
PERFORM postComment(_cmnttypeid, 'C', NEW.cust_id,
('Discount changed from "' ||
formatprcnt(OLD.cust_discntprcnt) || '%" to "' ||
formatprcnt(NEW.cust_discntprcnt) || '%"') );
END IF;
IF (OLD.cust_creditlmt <> NEW.cust_creditlmt) THEN
PERFORM postComment(_cmnttypeid, 'C', NEW.cust_id,
('Credit Limit changed from ' || formatMoney(OLD.cust_creditlmt) ||
' to ' || formatMoney(NEW.cust_creditlmt)));
END IF;
IF (OLD.cust_creditstatus <> NEW.cust_creditstatus) THEN
PERFORM postComment(_cmnttypeid, 'C', NEW.cust_id,
('Credit Status Changed from "' ||
CASE OLD.cust_creditstatus
WHEN 'G' THEN 'In Good Standing'
WHEN 'W' THEN 'Credit Warning'
WHEN 'H' THEN 'Credit Hold'
ELSE 'Unknown/Error'
END || '" to "' ||
CASE NEW.cust_creditstatus
WHEN 'G' THEN 'In Good Standing'
WHEN 'W' THEN 'Credit Warning'
WHEN 'H' THEN 'Credit Hold'
ELSE 'Unknown/Error'
END || '"') );
END IF;
IF (OLD.cust_custtype_id <> NEW.cust_custtype_id) THEN
PERFORM postComment(_cmnttypeid, 'C', NEW.cust_id,
('Customer type changed from "' ||
(SELECT custtype_code FROM custtype
WHERE custtype_id = OLD.cust_custtype_id) || '" to "' ||
(SELECT custtype_code FROM custtype
WHERE custtype_id = NEW.cust_custtype_id) || '"') );
END IF;
IF (COALESCE(OLD.cust_gracedays,-1) <> COALESCE(NEW.cust_gracedays,-1)) THEN
PERFORM postComment(_cmnttypeid, 'C', NEW.cust_id,
('Grace Days changed from "' ||
COALESCE(TEXT(OLD.cust_gracedays), 'Default') ||
'" to "' ||
COALESCE(TEXT(NEW.cust_gracedays), 'Default') || '"'));
END IF;
IF (OLD.cust_terms_id <> NEW.cust_terms_id) THEN
PERFORM postComment(_cmnttypeid, 'C', NEW.cust_id,
('Terms changed from "' ||
(SELECT terms_code FROM terms
WHERE terms_id = OLD.cust_terms_id) || '" to "' ||
(SELECT terms_code FROM terms
WHERE terms_id = NEW.cust_terms_id) || '"'));
END IF;
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._custaftertrigger() OWNER TO admin;
--
-- Name: _custinfoafterdeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _custinfoafterdeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
-- handle transitory state when converting customer to prospect
IF EXISTS(SELECT quhead_id
FROM quhead
WHERE (quhead_cust_id=OLD.cust_id) AND
NOT EXISTS(SELECT prospect_id
FROM prospect
WHERE prospect_id=OLD.cust_id)) THEN
RAISE EXCEPTION '[xtuple: deleteCustomer, -8]';
END IF;
IF EXISTS(SELECT invchead_id
FROM invchead
WHERE (invchead_cust_id=OLD.cust_id)) THEN
RAISE EXCEPTION '[xtuple: deleteCustomer, -7]';
END IF;
-- end TODO
IF EXISTS(SELECT checkhead_recip_id
FROM checkhead
WHERE ((checkhead_recip_id=OLD.cust_id)
AND (checkhead_recip_type='C'))) THEN
RAISE EXCEPTION '[xtuple: deleteCustomer, -6]';
END IF;
DELETE FROM taxreg
WHERE ((taxreg_rel_type='C')
AND (taxreg_rel_id=OLD.cust_id));
DELETE FROM ipsass
WHERE (ipsass_cust_id=OLD.cust_id);
DELETE FROM docass WHERE docass_source_id = OLD.cust_id AND docass_source_type = 'C';
DELETE FROM docass WHERE docass_target_id = OLD.cust_id AND docass_target_type = 'C';
IF (fetchMetricBool('CustomerChangeLog')) THEN
PERFORM postComment(cmnttype_id, 'C', OLD.cust_id,
('Deleted "' || OLD.cust_number || '"'))
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
END IF;
RETURN OLD;
END;
$$;
ALTER FUNCTION public._custinfoafterdeletetrigger() OWNER TO admin;
--
-- Name: _custinfobeforedeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _custinfobeforedeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF NOT (checkPrivilege('MaintainCustomerMasters')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Customers.';
END IF;
UPDATE crmacct SET crmacct_cust_id = NULL
WHERE crmacct_cust_id = OLD.cust_id;
RETURN OLD;
END;
$$;
ALTER FUNCTION public._custinfobeforedeletetrigger() OWNER TO admin;
--
-- Name: _custtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _custtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF NOT (checkPrivilege('MaintainCustomerMasters') OR
checkPrivilege('PostMiscInvoices')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Customers.';
END IF;
IF (NEW.cust_number IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid Customer Number.';
END IF;
IF (LENGTH(COALESCE(NEW.cust_name,''))=0) THEN
RAISE EXCEPTION 'You must supply a valid Customer Name.';
END IF;
IF (NEW.cust_custtype_id IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid Customer Type ID.';
END IF;
IF (NEW.cust_salesrep_id IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid Sales Rep ID.';
END IF;
IF (NEW.cust_terms_id IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid Terms Code ID.';
END IF;
IF (TG_OP = 'INSERT' AND fetchMetricText('CRMAccountNumberGeneration') IN ('A','O')) THEN
PERFORM clearNumberIssue('CRMAccountNumber', NEW.cust_number);
END IF;
NEW.cust_number := UPPER(NEW.cust_number);
RETURN NEW;
END;
$$;
ALTER FUNCTION public._custtrigger() OWNER TO admin;
--
-- Name: _custtypeafterdeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _custtypeafterdeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (SELECT fetchMetricValue('DefaultCustType') = OLD.custtype_id) THEN
RAISE EXCEPTION 'Cannot delete the default Customer Type [xtuple: custtype, -1, %]',
OLD.custtype_code;
END IF;
RETURN OLD;
END;
$$;
ALTER FUNCTION public._custtypeafterdeletetrigger() OWNER TO admin;
--
-- Name: _custtypetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _custtypetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_check BOOLEAN;
_code TEXT;
BEGIN
-- Checks
IF (TG_OP IN ('INSERT','UPDATE')) THEN
IF (LENGTH(COALESCE(NEW.custtype_code, ''))=0) THEN
RAISE EXCEPTION 'You must supply a valid Customer Type Code.';
END IF;
SELECT custtype_code INTO _code
FROM custtype
WHERE ( (UPPER(custtype_code)=UPPER(NEW.custtype_code))
AND (custtype_id<>NEW.custtype_id) );
IF (FOUND) THEN
RAISE EXCEPTION 'The Customer Type Code entered cannot be used as it is in use.';
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._custtypetrigger() OWNER TO admin;
--
-- Name: _docasstrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _docasstrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (NEW.docass_source_type = 'INCDT') THEN
UPDATE incdt SET incdt_updated = now() WHERE incdt_id = NEW.docass_source_id;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._docasstrigger() OWNER TO admin;
--
-- Name: _empafterdeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _empafterdeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (fetchMetricBool('EmployeeChangeLog')) THEN
PERFORM postComment(cmnttype_id, 'EMP', OLD.emp_id,
('Deleted "' || OLD.emp_code || '"'))
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
END IF;
RETURN OLD;
END;
$$;
ALTER FUNCTION public._empafterdeletetrigger() OWNER TO admin;
--
-- Name: _empaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _empaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
_newcrmacctname TEXT;
BEGIN
IF (TG_OP = 'INSERT') THEN
-- http://www.postgresql.org/docs/current/static/plpgsql-control-structures.html#PLPGSQL-UPSERT-EXAMPLE
LOOP
UPDATE crmacct SET crmacct_emp_id=NEW.emp_id,
crmacct_name=NEW.emp_name
WHERE crmacct_number=NEW.emp_code;
IF (FOUND) THEN
EXIT;
END IF;
BEGIN
INSERT INTO crmacct(crmacct_number, crmacct_name, crmacct_active,
crmacct_type, crmacct_emp_id, crmacct_cntct_id_1
) VALUES (NEW.emp_code, NEW.emp_name, NEW.emp_active,
'I', NEW.emp_id, NEW.emp_cntct_id);
EXIT;
EXCEPTION WHEN unique_violation THEN
-- do nothing, and loop to try the UPDATE again
END;
END LOOP;
/* TODO: default characteristic assignments based on empgrp? */
ELSIF (TG_OP = 'UPDATE') THEN
UPDATE crmacct SET crmacct_number = NEW.emp_code
WHERE ((crmacct_emp_id=NEW.emp_id)
AND (crmacct_number!=NEW.emp_code));
UPDATE crmacct SET crmacct_name = NEW.emp_name
WHERE ((crmacct_emp_id=NEW.emp_id)
AND (crmacct_name!=NEW.emp_name));
END IF;
IF (fetchMetricBool('EmployeeChangeLog')) THEN
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
IF (_cmnttypeid IS NOT NULL) THEN
IF (TG_OP = 'INSERT') THEN
PERFORM postComment(_cmnttypeid, 'EMP', NEW.emp_id, 'Created');
ELSIF (TG_OP = 'UPDATE') THEN
IF (OLD.emp_number <> NEW.emp_number) THEN
PERFORM postComment(_cmnttypeid, 'EMP', NEW.emp_id,
('Number Changed from "' || OLD.emp_number ||
'" to "' || NEW.emp_number || '"'));
END IF;
IF (OLD.emp_code <> NEW.emp_code) THEN
PERFORM postComment(_cmnttypeid, 'EMP', NEW.emp_id,
('Code Changed from "' || OLD.emp_code ||
'" to "' || NEW.emp_code || '"'));
END IF;
IF (OLD.emp_active <> NEW.emp_active) THEN
PERFORM postComment(_cmnttypeid, 'EMP', NEW.emp_id,
CASE WHEN NEW.emp_active THEN 'Activated'
ELSE 'Deactivated' END);
END IF;
IF (COALESCE(OLD.emp_dept_id, -1) <> COALESCE(NEW.emp_dept_id, -1)) THEN
PERFORM postComment(_cmnttypeid, 'EMP', NEW.emp_id,
('Department Changed from "' ||
COALESCE((SELECT dept_number FROM dept
WHERE dept_id=OLD.emp_dept_id), '')
|| '" to "' ||
COALESCE((SELECT dept_number FROM dept
WHERE dept_id=NEW.emp_dept_id), '') || '"'));
END IF;
IF (COALESCE(OLD.emp_shift_id, -1) <> COALESCE(NEW.emp_shift_id, -1)) THEN
PERFORM postComment(_cmnttypeid, 'EMP', NEW.emp_id,
('Shift Changed from "' ||
COALESCE((SELECT shift_number FROM shift
WHERE shift_id=OLD.emp_shift_id), '')
|| '" to "' ||
COALESCE((SELECT shift_number FROM shift
WHERE shift_id=NEW.emp_shift_id), '') || '"'));
END IF;
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._empaftertrigger() OWNER TO admin;
--
-- Name: _empbeforedeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _empbeforedeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF NOT (checkPrivilege('MaintainEmployees')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Employees.';
END IF;
UPDATE crmacct SET crmacct_emp_id = NULL
WHERE crmacct_emp_id = OLD.emp_id;
UPDATE salesrep SET salesrep_emp_id = NULL
WHERE salesrep_emp_id = OLD.emp_id;
DELETE FROM docass WHERE docass_source_id = OLD.emp_id AND docass_source_type = 'EMP';
DELETE FROM docass WHERE docass_target_id = OLD.emp_id AND docass_target_type = 'EMP';
RETURN OLD;
END;
$$;
ALTER FUNCTION public._empbeforedeletetrigger() OWNER TO admin;
--
-- Name: _empbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _empbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF NOT (checkPrivilege('MaintainEmployees')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Employees.';
END IF;
IF (NEW.emp_code IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid Employee Code.';
END IF;
IF (NEW.emp_number IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid Employee Number.';
END IF;
IF (NEW.emp_id = NEW.emp_mgr_emp_id) THEN
RAISE EXCEPTION 'An Employee may not be his or her own Manager.';
END IF;
-- ERROR: cannot use column references in default expression
IF (NEW.emp_name IS NULL) THEN
NEW.emp_name = COALESCE(formatCntctName(NEW.emp_cntct_id), NEW.emp_number);
END IF;
IF (TG_OP = 'INSERT' AND fetchMetricText('CRMAccountNumberGeneration') IN ('A','O')) THEN
PERFORM clearNumberIssue('CRMAccountNumber', NEW.emp_number);
END IF;
NEW.emp_code := UPPER(NEW.emp_code);
-- deprecated column emp_username
IF (TG_OP = 'UPDATE' AND
LOWER(NEW.emp_username) != LOWER(NEW.emp_code) AND
EXISTS(SELECT 1
FROM crmacct
WHERE crmacct_emp_id = NEW.emp_id
AND crmacct_usr_username IS NOT NULL)) THEN
NEW.emp_username = LOWER(NEW.emp_code);
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._empbeforetrigger() OWNER TO admin;
--
-- Name: _gltransaltertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _gltransaltertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_externalCompany BOOLEAN := false;
_updated BOOLEAN := false;
BEGIN
IF(TG_OP='DELETE') THEN
RAISE EXCEPTION 'You may not delete G/L Transactions once they have been created.';
ELSIF (TG_OP = 'UPDATE') THEN
SELECT company_external INTO _externalCompany
FROM company JOIN accnt ON (company_number=accnt_company)
WHERE (accnt_id=NEW.gltrans_accnt_id);
IF (_externalCompany) THEN
RAISE EXCEPTION 'Transactions are not allowed for G/L Accounts with External Company segments.';
END IF;
IF(OLD.gltrans_id != NEW.gltrans_id) THEN
_updated := true;
ELSIF(OLD.gltrans_date != NEW.gltrans_date) THEN
_updated := true;
ELSIF(OLD.gltrans_accnt_id != NEW.gltrans_accnt_id) THEN
_updated := true;
ELSIF(OLD.gltrans_amount != NEW.gltrans_amount) THEN
_updated := true;
ELSIF(OLD.gltrans_username != NEW.gltrans_username) THEN
_updated := true;
ELSIF( (OLD.gltrans_sequence IS NULL AND NEW.gltrans_sequence IS NOT NULL)
OR (OLD.gltrans_sequence IS NOT NULL AND NEW.gltrans_sequence IS NULL)
OR (COALESCE(OLD.gltrans_sequence,0) != COALESCE(NEW.gltrans_sequence,0)) ) THEN
_updated := true;
ELSIF( (OLD.gltrans_created IS NULL AND NEW.gltrans_created IS NOT NULL)
OR (OLD.gltrans_created IS NOT NULL AND NEW.gltrans_created IS NULL)
OR (COALESCE(OLD.gltrans_created,now()) != COALESCE(NEW.gltrans_created,now())) ) THEN
_updated := true;
ELSIF( (OLD.gltrans_source IS NULL AND NEW.gltrans_source IS NOT NULL)
OR (OLD.gltrans_source IS NOT NULL AND NEW.gltrans_source IS NULL)
OR (COALESCE(OLD.gltrans_source,'') != COALESCE(NEW.gltrans_source,'')) ) THEN
_updated := true;
ELSIF( (OLD.gltrans_docnumber IS NULL AND NEW.gltrans_docnumber IS NOT NULL)
OR (OLD.gltrans_docnumber IS NOT NULL AND NEW.gltrans_docnumber IS NULL)
OR (COALESCE(OLD.gltrans_docnumber,'') != COALESCE(NEW.gltrans_docnumber,'')) ) THEN
_updated := true;
ELSIF( (OLD.gltrans_doctype IS NULL AND NEW.gltrans_doctype IS NOT NULL)
OR (OLD.gltrans_doctype IS NOT NULL AND NEW.gltrans_doctype IS NULL)
OR (COALESCE(OLD.gltrans_doctype,'') != COALESCE(NEW.gltrans_doctype,'')) ) THEN
_updated := true;
END IF;
IF(_updated) THEN
RAISE EXCEPTION 'You may not alter some G/L Transaction fields once they have been created.';
END IF;
ELSE
RAISE EXCEPTION 'trigger for gltrans table called in unexpected state.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._gltransaltertrigger() OWNER TO admin;
--
-- Name: _gltransinserttrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _gltransinserttrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_reqNotes BOOLEAN;
_externalCompany BOOLEAN := false;
BEGIN
-- Checks
-- Start with privileges
IF ((NEW.gltrans_doctype='JE') AND (NOT checkPrivilege('PostJournalEntries'))) THEN
RAISE EXCEPTION 'You do not have privileges to create a Journal Entry.';
END IF;
SELECT company_external INTO _externalCompany
FROM company JOIN accnt ON (company_number=accnt_company)
WHERE (accnt_id=NEW.gltrans_accnt_id);
IF (_externalCompany) THEN
RAISE EXCEPTION 'Transactions are not allowed for G/L Accounts with External Company segments.';
END IF;
-- RAISE NOTICE '_gltransInsertTrigger(): company_external = %', _externalCompany;
SELECT metric_value='t'
INTO _reqNotes
FROM metric
WHERE(metric_name='MandatoryGLEntryNotes');
IF (_reqNotes IS NULL) THEN
_reqNotes := false;
END IF;
IF ((NEW.gltrans_doctype='JE') AND _reqNotes AND (TRIM(BOTH FROM COALESCE(NEW.gltrans_notes,''))='')) THEN
RAISE EXCEPTION 'Notes are required for Journal Entries.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._gltransinserttrigger() OWNER TO admin;
--
-- Name: _grpprivtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _grpprivtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_check BOOLEAN;
_returnVal INTEGER;
BEGIN
-- This looks like a candidate for a foreign key but isn't.
-- fkeys don't work if the foreign key value resides in a child of the
-- table and not the table itself.
IF ((TG_OP = 'UPDATE' OR TG_OP = 'INSERT') AND
(NOT EXISTS(SELECT priv_id
FROM priv
WHERE (priv_id=NEW.grppriv_priv_id)))) THEN
RAISE EXCEPTION 'Privilege id % does not exist or is part of a disabled package.',
NEW.grppriv_priv_id;
RETURN OLD;
ELSIF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._grpprivtrigger() OWNER TO admin;
--
-- Name: _imageasstrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _imageasstrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (NEW.imageass_source = 'INCDT') THEN
UPDATE incdt SET incdt_updated = now() WHERE incdt_id = NEW.imageass_source_id;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._imageasstrigger() OWNER TO admin;
--
-- Name: _incdtbeforedeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _incdtbeforedeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_recurid INTEGER;
_newparentid INTEGER;
BEGIN
IF (TG_OP = 'DELETE') THEN
SELECT recur_id INTO _recurid
FROM recur
WHERE ((recur_parent_id=OLD.incdt_id)
AND (recur_parent_type='INCDT'));
IF (_recurid IS NOT NULL) THEN
SELECT MIN(incdt_id) INTO _newparentid
FROM incdt
WHERE ((incdt_recurring_incdt_id=OLD.inctd_id)
AND (incdt_id!=OLD.incdt_id));
-- client is responsible for warning about deleting a recurring incdt
IF (_newparentid IS NULL) THEN
DELETE FROM recur WHERE recur_id=_recurid;
ELSE
UPDATE recur SET recur_parent_id=_newparentid
WHERE recur_id=_recurid;
END IF;
END IF;
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._incdtbeforedeletetrigger() OWNER TO admin;
--
-- Name: _incdtbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _incdtbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_rec RECORD;
_check BOOLEAN;
_crmacct INTEGER;
BEGIN
IF(TG_OP = 'DELETE') THEN
_rec := OLD;
ELSE
_rec := NEW;
END IF;
-- Set the incident number if blank
IF (TG_OP = 'INSERT') THEN
IF (NEW.incdt_number IS NULL) THEN
SELECT fetchIncidentNumber() INTO NEW.incdt_number;
END IF;
--- clear the number from the issue cache
PERFORM clearNumberIssue('IncidentNumber', NEW.incdt_number);
END IF;
-- Description is required
IF (LENGTH(COALESCE(NEW.incdt_summary,''))=0) THEN
RAISE EXCEPTION 'You must supply a valid Incident Description.';
END IF;
-- CRM Account is required
IF (NEW.incdt_crmacct_id IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid CRM Account.';
END IF;
-- Contact is required
IF (NEW.incdt_cntct_id IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid Contact.';
END IF;
NEW.incdt_updated := now();
RETURN NEW;
END;
$$;
ALTER FUNCTION public._incdtbeforetrigger() OWNER TO admin;
--
-- Name: _incdttrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _incdttrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_r RECORD;
_counter INTEGER := 0;
_whsId INTEGER := -1;
_evntType TEXT;
_cmnttypeid INTEGER := -1;
_cmntid INTEGER := -1;
BEGIN
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='Notes to Comment');
IF NOT FOUND OR _cmnttypeid IS NULL THEN
_cmnttypeid := -1;
END IF;
IF (TG_OP = 'DELETE') THEN
-- This should never happen
RETURN OLD;
ELSIF (TG_OP = 'INSERT') THEN
INSERT INTO incdthist
(incdthist_incdt_id,
incdthist_change, incdthist_target_id,
incdthist_descrip)
VALUES(NEW.incdt_id,
'N', NULL,
'Incident Added');
_evntType = 'NewIncident';
IF (_cmnttypeid <> -1 AND COALESCE(NEW.incdt_descrip, '') <> '') THEN
PERFORM postComment(_cmnttypeid, 'INCDT', NEW.incdt_id, NEW.incdt_descrip);
END IF;
ELSIF (TG_OP = 'UPDATE') THEN
_evntType = 'UpdatedIncident';
IF (COALESCE(NEW.incdt_cntct_id,-1) <> COALESCE(OLD.incdt_cntct_id,-1)) THEN
INSERT INTO incdthist
(incdthist_incdt_id,
incdthist_change, incdthist_target_id,
incdthist_descrip)
VALUES(NEW.incdt_id,
'C', NEW.incdt_cntct_id,
('Contact Changed: "' ||
COALESCE((SELECT cntct_first_name || ' ' || cntct_last_name
FROM cntct
WHERE (cntct_id=OLD.incdt_cntct_id)), '')
|| '" -> "' ||
COALESCE((SELECT cntct_first_name || ' ' || cntct_last_name
FROM cntct
WHERE (cntct_id=NEW.incdt_cntct_id)), '')
|| '"') );
END IF;
IF (COALESCE(NEW.incdt_summary,'') <> COALESCE(OLD.incdt_summary,'')) THEN
INSERT INTO incdthist
(incdthist_incdt_id,
incdthist_descrip)
VALUES(NEW.incdt_id,
('Summary Updated: "' ||
COALESCE(OLD.incdt_summary, '') ||
'" -> "' ||
COALESCE(NEW.incdt_summary, '') ||
'"') );
END IF;
IF (COALESCE(NEW.incdt_descrip,'') <> COALESCE(OLD.incdt_descrip,'')) THEN
INSERT INTO incdthist
(incdthist_incdt_id,
incdthist_descrip)
VALUES(NEW.incdt_id,
('Description Updated: "' ||
substr(COALESCE(OLD.incdt_descrip, ''), 1, 20) ||
'..." -> "' ||
substr(COALESCE(NEW.incdt_descrip, ''), 1, 20) ||
'..."') );
IF (_cmnttypeid <> -1) THEN
-- find an existing comment
SELECT comment_id
INTO _cmntid
FROM comment
WHERE comment_source = 'INCDT'
AND comment_source_id = NEW.incdt_id
AND comment_cmnttype_id = _cmnttypeid;
IF FOUND THEN
UPDATE comment SET comment_text = NEW.incdt_descrip WHERE comment_id = _cmntid;
ELSE
PERFORM postComment(_cmnttypeid, 'INCDT', NEW.incdt_id, NEW.incdt_descrip);
END IF;
END IF;
END IF;
IF (NEW.incdt_status <> OLD.incdt_status) THEN
INSERT INTO incdthist
(incdthist_incdt_id,
incdthist_change, incdthist_target_id,
incdthist_descrip)
VALUES(NEW.incdt_id,
'S', NULL,
('Status Changed: ' ||
CASE WHEN(OLD.incdt_status='N') THEN 'New'
WHEN(OLD.incdt_status='F') THEN 'Feedback'
WHEN(OLD.incdt_status='C') THEN 'Confirmed'
WHEN(OLD.incdt_status='A') THEN 'Assigned'
WHEN(OLD.incdt_status='R') THEN 'Resolved'
WHEN(OLD.incdt_status='L') THEN 'Closed'
ELSE OLD.incdt_status
END
|| ' -> ' ||
CASE WHEN(NEW.incdt_status='N') THEN 'New'
WHEN(NEW.incdt_status='F') THEN 'Feedback'
WHEN(NEW.incdt_status='C') THEN 'Confirmed'
WHEN(NEW.incdt_status='A') THEN 'Assigned'
WHEN(NEW.incdt_status='R') THEN 'Resolved'
WHEN(NEW.incdt_status='L') THEN 'Closed'
ELSE NEW.incdt_status
END
) );
IF (NEW.incdt_status = 'L') THEN
_evntType = 'ClosedIncident';
ELSIF (OLD.incdt_status = 'L') THEN
_evntType = 'ReopenedIncident';
END IF;
END IF;
IF (COALESCE(NEW.incdt_assigned_username,'') <> COALESCE(OLD.incdt_assigned_username,'')) THEN
INSERT INTO incdthist
(incdthist_incdt_id,
incdthist_change, incdthist_target_id,
incdthist_descrip)
VALUES(NEW.incdt_id,
'A', NULL,
('Assigned to: "' ||
COALESCE(OLD.incdt_assigned_username, '') ||
'" -> "' ||
COALESCE(NEW.incdt_assigned_username, '') ||
'"') );
END IF;
IF (COALESCE(NEW.incdt_incdtcat_id,-1) <> COALESCE(OLD.incdt_incdtcat_id,-1)) THEN
INSERT INTO incdthist
(incdthist_incdt_id,
incdthist_change, incdthist_target_id,
incdthist_descrip)
VALUES(NEW.incdt_id,
'T', NEW.incdt_incdtcat_id,
('Category Changed: ' ||
COALESCE((SELECT incdtcat_name
FROM incdtcat
WHERE (incdtcat_id=OLD.incdt_incdtcat_id)), '')
|| ' -> ' ||
COALESCE((SELECT incdtcat_name
FROM incdtcat
WHERE (incdtcat_id=NEW.incdt_incdtcat_id)), '')
|| '') );
END IF;
IF (COALESCE(NEW.incdt_incdtseverity_id,-1) <> COALESCE(OLD.incdt_incdtseverity_id,-1)) THEN
INSERT INTO incdthist
(incdthist_incdt_id,
incdthist_change, incdthist_target_id,
incdthist_descrip)
VALUES(NEW.incdt_id,
'V', NEW.incdt_incdtseverity_id,
('Severity Changed: ' ||
COALESCE((SELECT incdtseverity_name
FROM incdtseverity
WHERE (incdtseverity_id=OLD.incdt_incdtseverity_id)), '')
|| ' -> ' ||
COALESCE((SELECT incdtseverity_name
FROM incdtseverity
WHERE (incdtseverity_id=NEW.incdt_incdtseverity_id)), '')
|| '') );
END IF;
IF (COALESCE(NEW.incdt_incdtpriority_id,-1) <> COALESCE(OLD.incdt_incdtpriority_id,-1)) THEN
INSERT INTO incdthist
(incdthist_incdt_id,
incdthist_change, incdthist_target_id,
incdthist_descrip)
VALUES(NEW.incdt_id,
'P', NEW.incdt_incdtpriority_id,
('Priority Changed: ' ||
COALESCE((SELECT incdtpriority_name
FROM incdtpriority
WHERE (incdtpriority_id=OLD.incdt_incdtpriority_id)), '')
|| ' -> ' ||
COALESCE((SELECT incdtpriority_name
FROM incdtpriority
WHERE (incdtpriority_id=NEW.incdt_incdtpriority_id)), '')
|| '') );
END IF;
IF (COALESCE(NEW.incdt_incdtresolution_id,-1) <> COALESCE(OLD.incdt_incdtresolution_id,-1)) THEN
INSERT INTO incdthist
(incdthist_incdt_id,
incdthist_change, incdthist_target_id,
incdthist_descrip)
VALUES(NEW.incdt_id,
'E', NEW.incdt_incdtresolution_id,
('Resolution Changed: ' ||
COALESCE((SELECT incdtresolution_name
FROM incdtresolution
WHERE (incdtresolution_id=OLD.incdt_incdtresolution_id)), '')
|| ' -> ' ||
COALESCE((SELECT incdtresolution_name
FROM incdtresolution
WHERE (incdtresolution_id=NEW.incdt_incdtresolution_id)), '')
|| '') );
END IF;
END IF;
-- find the warehouse for which to create evntlog entries
SELECT usrpref_value INTO _whsId
FROM usrpref
WHERE usrpref_username = getEffectiveXtUser()
AND usrpref_name = 'PreferredWarehouse';
INSERT INTO evntlog (evntlog_evnttime, evntlog_username,
evntlog_evnttype_id, evntlog_ordtype,
evntlog_ord_id, evntlog_warehous_id, evntlog_number)
SELECT DISTINCT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'IC', NEW.incdt_id, _whsId, NEW.incdt_number
FROM evntnot, evnttype
WHERE ((evntnot_evnttype_id=evnttype_id)
AND (evnttype_name=_evntType));
RETURN NEW;
END;
$$;
ALTER FUNCTION public._incdttrigger() OWNER TO admin;
--
-- Name: _invcheadaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _invcheadaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
_cohead_id INTEGER;
BEGIN
-- Create a comment entry when on a Sales Order when an Invoice is Posted for that order
-- Cache the cmnttype_id for ChangeLog
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
IF (FOUND) THEN
IF (TG_OP = 'UPDATE') THEN
IF ((OLD.invchead_posted != NEW.invchead_posted) AND NEW.invchead_posted) THEN
SELECT cohead_id INTO _cohead_id
FROM cohead
WHERE (cohead_number = OLD.invchead_ordernumber);
IF (FOUND) THEN
PERFORM postComment( _cmnttypeid, 'S', _cohead_id,
('Invoice, ' || NEW.invchead_invcnumber || ', posted for this order') );
END IF;
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._invcheadaftertrigger() OWNER TO admin;
--
-- Name: _invcheadbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _invcheadbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_recurid INTEGER;
_newparentid INTEGER;
BEGIN
IF (TG_OP = 'UPDATE') THEN
IF (OLD.invchead_posted
AND ((OLD.invchead_invcnumber != NEW.invchead_invcnumber)
OR (OLD.invchead_invcdate != NEW.invchead_invcdate)
OR (OLD.invchead_terms_id != NEW.invchead_terms_id)
OR (OLD.invchead_salesrep_id != NEW.invchead_salesrep_id)
OR (OLD.invchead_commission != NEW.invchead_commission)
OR (OLD.invchead_taxzone_id != NEW.invchead_taxzone_id)
OR (OLD.invchead_shipchrg_id != NEW.invchead_shipchrg_id)
OR (OLD.invchead_prj_id != NEW.invchead_prj_id)
OR (OLD.invchead_misc_accnt_id != NEW.invchead_misc_accnt_id)
OR (OLD.invchead_misc_amount != NEW.invchead_misc_amount)
OR (OLD.invchead_freight != NEW.invchead_freight))) THEN
RAISE EXCEPTION 'Edit not allow on Posted Invoice.';
END IF;
END IF;
IF (TG_OP = 'DELETE') THEN
DELETE FROM invcheadtax
WHERE (taxhist_parent_id=OLD.invchead_id);
SELECT recur_id INTO _recurid
FROM recur
WHERE ((recur_parent_id=OLD.invchead_id)
AND (recur_parent_type='I'));
IF (_recurid IS NOT NULL) THEN
SELECT invchead_id INTO _newparentid
FROM invchead
WHERE ((invchead_recurring_invchead_id=OLD.invchead_id)
AND (invchead_id!=OLD.invchead_id))
ORDER BY invchead_invcdate
LIMIT 1;
IF (_newparentid IS NULL) THEN
DELETE FROM recur WHERE recur_id=_recurid;
ELSE
UPDATE recur SET recur_parent_id=_newparentid
WHERE recur_id=_recurid;
UPDATE invchead SET invchead_recurring_invchead_id=_newparentid
WHERE invchead_recurring_invchead_id=OLD.invchead_id
AND invchead_id!=OLD.invchead_id;
END IF;
END IF;
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._invcheadbeforetrigger() OWNER TO admin;
--
-- Name: _invcheadtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _invcheadtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (TG_OP = 'DELETE') THEN
-- Something can go here
RETURN OLD;
END IF;
-- Insert new row
IF (TG_OP = 'INSERT') THEN
-- Calculate Freight Tax
IF (NEW.invchead_freight <> 0) THEN
PERFORM calculateTaxHist( 'invcheadtax',
NEW.invchead_id,
NEW.invchead_taxzone_id,
getFreightTaxtypeId(),
NEW.invchead_invcdate,
NEW.invchead_curr_id,
NEW.invchead_freight );
END IF;
--- clear the number from the issue cache
PERFORM clearNumberIssue('InvcNumber', NEW.invchead_invcnumber);
END IF;
-- Update row
IF (TG_OP = 'UPDATE') THEN
IF ( (NEW.invchead_freight <> OLD.invchead_freight) OR
(COALESCE(NEW.invchead_taxzone_id,-1) <> COALESCE(OLD.invchead_taxzone_id,-1)) OR
(NEW.invchead_invcdate <> OLD.invchead_invcdate) OR
(NEW.invchead_curr_id <> OLD.invchead_curr_id) ) THEN
-- Calculate invchead Tax
PERFORM calculateTaxHist( 'invcheadtax',
NEW.invchead_id,
NEW.invchead_taxzone_id,
getFreightTaxtypeId(),
NEW.invchead_invcdate,
NEW.invchead_curr_id,
NEW.invchead_freight );
END IF;
IF ( (COALESCE(NEW.invchead_taxzone_id,-1) <> COALESCE(OLD.invchead_taxzone_id,-1)) OR
(NEW.invchead_invcdate <> OLD.invchead_invcdate) OR
(NEW.invchead_curr_id <> OLD.invchead_curr_id) ) THEN
-- Calculate invcitem Tax
IF (COALESCE(NEW.invchead_taxzone_id,-1) <> COALESCE(OLD.invchead_taxzone_id,-1)) THEN
UPDATE invcitem SET invcitem_taxtype_id=getItemTaxType(invcitem_item_id,NEW.invchead_taxzone_id)
WHERE (invcitem_invchead_id=NEW.invchead_id);
PERFORM calculateTaxHist( 'invcitemtax',
invcitem_id,
NEW.invchead_taxzone_id,
invcitem_taxtype_id,
NEW.invchead_invcdate,
NEW.invchead_curr_id,
(invcitem_billed * invcitem_qty_invuomratio) *
(invcitem_price / invcitem_price_invuomratio) )
FROM invcitem
WHERE (invcitem_invchead_id = NEW.invchead_id);
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._invcheadtrigger() OWNER TO admin;
--
-- Name: _invcitembeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _invcitembeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_itemfractional BOOLEAN;
BEGIN
IF (TG_OP = 'DELETE') THEN
DELETE FROM invcitemtax
WHERE (taxhist_parent_id=OLD.invcitem_id);
RETURN OLD;
END IF;
IF (TG_OP IN ('UPDATE','DELETE')) THEN
IF (SELECT COUNT(invchead_id) > 0
FROM invchead
WHERE ((invchead_id=OLD.invcitem_invchead_id)
AND (invchead_posted))) THEN
RAISE EXCEPTION 'Edit not allowed on Posted Invoices.';
END IF;
END IF;
-- If regular Item then enforce item_fractional
IF (COALESCE(NEW.invcitem_item_id, -1) <> -1) THEN
SELECT itemuomfractionalbyuom(NEW.invcitem_item_id, NEW.invcitem_qty_uom_id) INTO _itemfractional;
IF (NOT _itemfractional) THEN
IF (TRUNC(NEW.invcitem_ordered) <> NEW.invcitem_ordered) THEN
RAISE EXCEPTION 'Item does not support fractional quantities';
END IF;
IF (TRUNC(NEW.invcitem_billed) <> NEW.invcitem_billed) THEN
RAISE EXCEPTION 'Item does not support fractional quantities';
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._invcitembeforetrigger() OWNER TO admin;
--
-- Name: _invcitemtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _invcitemtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_r RECORD;
BEGIN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
-- Cache Invoice Head
SELECT * INTO _r
FROM invchead
WHERE (invchead_id=NEW.invcitem_invchead_id);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Invoice head not found';
END IF;
-- Insert new row
IF (TG_OP = 'INSERT') THEN
-- Calculate Tax
PERFORM calculateTaxHist( 'invcitemtax',
NEW.invcitem_id,
COALESCE(_r.invchead_taxzone_id, -1),
NEW.invcitem_taxtype_id,
COALESCE(_r.invchead_invcdate, CURRENT_DATE),
COALESCE(_r.invchead_curr_id, -1),
(NEW.invcitem_billed * NEW.invcitem_qty_invuomratio) *
(NEW.invcitem_price / NEW.invcitem_price_invuomratio) );
END IF;
-- Update row
IF (TG_OP = 'UPDATE') THEN
-- Calculate Tax
IF ( (NEW.invcitem_billed <> OLD.invcitem_billed) OR
(NEW.invcitem_qty_invuomratio <> OLD.invcitem_qty_invuomratio) OR
(NEW.invcitem_price <> OLD.invcitem_price) OR
(NEW.invcitem_price_invuomratio <> OLD.invcitem_price_invuomratio) OR
(COALESCE(NEW.invcitem_taxtype_id, -1) <> COALESCE(OLD.invcitem_taxtype_id, -1)) ) THEN
PERFORM calculateTaxHist( 'invcitemtax',
NEW.invcitem_id,
COALESCE(_r.invchead_taxzone_id, -1),
NEW.invcitem_taxtype_id,
COALESCE(_r.invchead_invcdate, CURRENT_DATE),
COALESCE(_r.invchead_curr_id, -1),
(NEW.invcitem_billed * NEW.invcitem_qty_invuomratio) *
(NEW.invcitem_price / NEW.invcitem_price_invuomratio) );
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._invcitemtrigger() OWNER TO admin;
--
-- Name: _ipsassbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _ipsassbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
-- Checks
IF NOT (checkPrivilege('MaintainPricingSchedules')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Price Schedules.';
END IF;
-- Business logic, disallow invalid combinations
IF (TG_OP IN ('INSERT','UPDATE')) THEN
IF (LENGTH(COALESCE(NEW.ipsass_custtype_pattern,'')) != 0) THEN
new.ipsass_cust_id = -1;
new.ipsass_custtype_id = -1;
new.ipsass_shipto_id = -1;
new.ipsass_shipto_pattern = '';
ELSIF (COALESCE(NEW.ipsass_custtype_id,-1) > -1) THEN
new.ipsass_cust_id = -1;
new.ipsass_shipto_id = -1;
new.ipsass_shipto_pattern = '';
new.ipsass_custtype_pattern = '';
ELSIF (LENGTH(COALESCE(NEW.ipsass_shipto_pattern,'')) != 0) THEN
new.ipsass_custtype_id = -1;
new.ipsass_shipto_id = -1;
new.ipsass_custtype_pattern = '';
ELSE
new.ipsass_shipto_id = COALESCE(NEW.ipsass_shipto_id,-1);
new.ipsass_custtype_id = -1;
new.ipsass_shipto_pattern = '';
new.ipsass_custtype_pattern = '';
END IF;
RETURN NEW;
ELSE
RETURN OLD;
END IF;
END;
$$;
ALTER FUNCTION public._ipsassbeforetrigger() OWNER TO admin;
--
-- Name: _ipsheadbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _ipsheadbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
-- Checks
IF NOT (checkPrivilege('MaintainPricingSchedules')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Price Schedules.';
END IF;
IF (TG_OP IN ('INSERT','UPDATE')) THEN
RETURN NEW;
ELSE
RETURN OLD;
END IF;
END;
$$;
ALTER FUNCTION public._ipsheadbeforetrigger() OWNER TO admin;
--
-- Name: _ipsitemcharbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _ipsitemcharbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
-- Checks
IF NOT (checkPrivilege('MaintainPricingSchedules')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Price Schedules.';
END IF;
IF (TG_OP IN ('INSERT','UPDATE')) THEN
IF (SELECT (COUNT(item_id)=0)
FROM ipsiteminfo JOIN item ON (item_id=ipsitem_item_id)
WHERE ((ipsitem_id=NEW.ipsitemchar_ipsitem_id)
AND (item_config))) THEN
RAISE EXCEPTION 'Characteristic prices may only be set on configured items.';
ELSIF (SELECT (COUNT(item_id)=0)
FROM ipsiteminfo JOIN item ON (item_id=ipsitem_item_id)
JOIN charass ON (charass_target_id=item_id AND charass_target_type='I')
WHERE ((ipsitem_id=NEW.ipsitemchar_ipsitem_id)
AND (charass_char_id=NEW.ipsitemchar_char_id)
AND (charass_value=NEW.ipsitemchar_value))) THEN
RAISE EXCEPTION 'No characteristic with matching value exists for this item.';
END IF;
RETURN NEW;
ELSE
RETURN OLD;
END IF;
END;
$$;
ALTER FUNCTION public._ipsitemcharbeforetrigger() OWNER TO admin;
--
-- Name: _ipsiteminfobeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _ipsiteminfobeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
BEGIN
-- Checks
IF NOT (checkPrivilege('MaintainPricingSchedules')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Price Schedules.';
END IF;
IF (TG_OP IN ('INSERT','UPDATE')) THEN
RETURN NEW;
ELSE
RETURN OLD;
END IF;
END;
$$;
ALTER FUNCTION public._ipsiteminfobeforetrigger() OWNER TO admin;
--
-- Name: _itemaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _itemaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
BEGIN
-- Privilege Checks
IF (NOT checkPrivilege('MaintainItemMasters')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Items.';
END IF;
-- Integrity checks
IF (TG_OP = 'UPDATE') THEN
IF ((OLD.item_type <> NEW.item_type) AND (NEW.item_type = 'L')) THEN
IF (SELECT COUNT(*) != 0 FROM bomitem WHERE (bomitem_item_id = OLD.item_id)) THEN
RAISE EXCEPTION 'This item is part of one or more Bills of Materials and cannot be a Planning Item.';
END IF;
END IF;
IF ((OLD.item_type <> NEW.item_type) AND
(NEW.item_type IN ('R','S','T'))) THEN
IF (SELECT COUNT(*) != 0
FROM itemsite
WHERE ((itemsite_item_id=OLD.item_id)
AND (itemsite_qtyonhand + qtyallocated(itemsite_id,startoftime(),endoftime()) +
qtyordered(itemsite_id,startoftime(),endoftime()) > 0 ))) THEN
RAISE EXCEPTION 'Item type not allowed when there are itemsites with quantities with on hand quantities or pending inventory activity for this item.';
END IF;
END IF;
-- If type changed remove costs and deactivate item sites
IF (NEW.item_type <> OLD.item_type) THEN
PERFORM updateCost(itemcost_id, 0) FROM itemcost WHERE (itemcost_item_id=OLD.item_id);
UPDATE itemsite SET itemsite_active=false WHERE (itemsite_item_id=OLD.item_id);
IF (NEW.item_type = 'R') THEN
UPDATE itemsite SET itemsite_controlmethod='N' WHERE (itemsite_item_id=OLD.item_id);
END IF;
END IF;
END IF;
IF ( SELECT (metric_value='t')
FROM metric
WHERE (metric_name='ItemChangeLog') ) THEN
-- Cache the cmnttype_id for ChangeLog
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
IF (FOUND) THEN
IF (TG_OP = 'INSERT') THEN
PERFORM postComment(_cmnttypeid, 'I', NEW.item_id, 'Created');
ELSIF (TG_OP = 'UPDATE') THEN
IF (OLD.item_active <> NEW.item_active) THEN
IF (NEW.item_active) THEN
PERFORM postComment(_cmnttypeid, 'I', NEW.item_id, 'Activated');
ELSE
PERFORM postComment(_cmnttypeid, 'I', NEW.item_id, 'Deactivated');
END IF;
END IF;
IF (OLD.item_descrip1 <> NEW.item_descrip1) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
( 'Description 1 Changed from "' || OLD.item_descrip1 ||
'" to "' || NEW.item_descrip1 || '"' ) );
END IF;
IF (OLD.item_descrip2 <> NEW.item_descrip2) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
( 'Description 2 Changed from "' || OLD.item_descrip2 ||
'" to "' || NEW.item_descrip2 || '"' ) );
END IF;
IF (OLD.item_inv_uom_id <> NEW.item_inv_uom_id) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
( 'Inventory UOM Changed from "' ||
(SELECT uom_name FROM uom WHERE uom_id=OLD.item_inv_uom_id) ||
'" (' || CAST(OLD.item_inv_uom_id AS TEXT) ||
') to "' ||
(SELECT uom_name FROM uom WHERE uom_id=NEW.item_inv_uom_id) ||
'" (' || CAST(NEW.item_inv_uom_id AS TEXT) || ')' ) );
END IF;
IF (OLD.item_sold <> NEW.item_sold) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
CASE WHEN (NEW.item_sold) THEN 'Sold Changed from FALSE to TRUE'
ELSE 'Sold Changed from TRUE to FALSE'
END );
END IF;
IF (OLD.item_picklist <> NEW.item_picklist) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
CASE WHEN (NEW.item_picklist) THEN 'Pick List Changed from FALSE to TRUE'
ELSE 'Pick List Changed from TRUE to FALSE'
END );
END IF;
IF (OLD.item_fractional <> NEW.item_fractional) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
CASE WHEN (NEW.item_fractional) THEN 'Fractional Changed from FALSE to TRUE'
ELSE 'Fractional Changed from TRUE to FALSE'
END );
END IF;
IF (OLD.item_exclusive <> NEW.item_exclusive) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
CASE WHEN (NEW.item_exclusive) THEN 'Exclusive Changed from FALSE to TRUE'
ELSE 'Exclusive Changed from TRUE to FALSE'
END );
END IF;
IF (OLD.item_config <> NEW.item_config) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
CASE WHEN (NEW.item_config) THEN 'Configured Changed from FALSE to TRUE'
ELSE 'Configured Changed from TRUE to FALSE'
END );
END IF;
IF (OLD.item_listprice <> NEW.item_listprice) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
( 'List Price Changed from "' || formatSalesPrice(OLD.item_listprice) ||
'" to "' || formatSalesPrice(NEW.item_listprice) || '"' ) );
END IF;
-- Add New stuff
IF (OLD.item_type <> NEW.item_type) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
( 'Type Changed from "' || OLD.item_type ||
'" to "' || NEW.item_type || '"' ) );
END IF;
IF (OLD.item_price_uom_id <> NEW.item_price_uom_id) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
( 'Price UOM Changed from "' ||
(SELECT uom_name FROM uom WHERE uom_id=OLD.item_price_uom_id) ||
'" (' || CAST(OLD.item_price_uom_id AS TEXT) ||
') to "' ||
(SELECT uom_name FROM uom WHERE uom_id=NEW.item_price_uom_id) ||
'" (' || CAST(NEW.item_price_uom_id AS TEXT) || ')' ) );
END IF;
IF (OLD.item_classcode_id <> NEW.item_classcode_id) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
( 'Class Code Changed from "' ||
(SELECT classcode_code || '-' || classcode_descrip FROM classcode WHERE classcode_id=OLD.item_classcode_id) ||
'" (' || CAST(OLD.item_classcode_id AS TEXT) ||
') to "' ||
(SELECT classcode_code || '-' || classcode_descrip FROM classcode WHERE classcode_id=NEW.item_classcode_id) ||
'" (' || CAST(NEW.item_classcode_id AS TEXT) || ')' ) );
END IF;
IF (OLD.item_freightclass_id <> NEW.item_freightclass_id) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
( 'Freight Class Changed from "' ||
(SELECT freightclass_code || '-' || freightclass_descrip FROM freightclass WHERE freightclass_id=OLD.item_freightclass_id) ||
'" (' || CAST(OLD.item_freightclass_id AS TEXT) ||
') to "' ||
(SELECT freightclass_code || '-' || freightclass_descrip FROM freightclass WHERE freightclass_id=NEW.item_freightclass_id) ||
'" (' || CAST(NEW.item_freightclass_id AS TEXT) || ')' ) );
END IF;
IF (OLD.item_prodcat_id <> NEW.item_prodcat_id) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
( 'Product Category Changed from "' ||
(SELECT prodcat_code || '-' || prodcat_descrip FROM prodcat WHERE prodcat_id=OLD.item_prodcat_id) ||
'" (' || CAST(OLD.item_prodcat_id AS TEXT) ||
') to "' ||
(SELECT prodcat_code || '-' || prodcat_descrip FROM prodcat WHERE prodcat_id=NEW.item_prodcat_id) ||
'" (' || CAST(NEW.item_prodcat_id AS TEXT) || ')' ) );
END IF;
IF (OLD.item_upccode <> NEW.item_upccode) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
( 'UPC Code Changed from "' || OLD.item_upccode ||
'" to "' || NEW.item_upccode || '"' ) );
END IF;
IF (OLD.item_prodweight <> NEW.item_prodweight) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
( 'Product Weight Changed from "' || formatWeight(OLD.item_prodweight) ||
'" to "' || formatWeight(NEW.item_prodweight) || '"' ) );
END IF;
IF (OLD.item_packweight <> NEW.item_packweight) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
( 'Packaging Weight Changed from "' || formatWeight(OLD.item_packweight) ||
'" to "' || formatWeight(NEW.item_packweight) || '"' ) );
END IF;
IF (OLD.item_maxcost <> NEW.item_maxcost) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
( 'Maximum Desired Cost Changed from "' || formatCost(OLD.item_maxcost) ||
'" to "' || formatCost(NEW.item_maxcost) || '"' ) );
END IF;
IF (OLD.item_listcost <> NEW.item_listcost) THEN
PERFORM postComment( _cmnttypeid, 'I', NEW.item_id,
( 'List Cost Changed from "' || formatCost(OLD.item_listcost) ||
'" to "' || formatCost(NEW.item_listcost) || '"' ) );
END IF;
-- End changes
END IF;
END IF;
END IF;
IF (TG_OP = 'DELETE') THEN
DELETE FROM imageass WHERE ((imageass_source_id=OLD.item_id) AND (imageass_source='I'));
DELETE FROM url WHERE ((url_source_id=OLD.item_id) AND (url_source='I'));
DELETE FROM docass WHERE docass_source_id = OLD.item_id AND docass_source_type = 'I';
DELETE FROM docass WHERE docass_target_id = OLD.item_id AND docass_target_type = 'I';
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._itemaftertrigger() OWNER TO admin;
--
-- Name: _itemaliastrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _itemaliastrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
-- Privilege Checks
IF (NOT checkPrivilege('MaintainItemMasters')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Item Aliases.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._itemaliastrigger() OWNER TO admin;
--
-- Name: _itemcostaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _itemcostaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_itemNumber TEXT;
_maxCost NUMERIC;
_oldStdCost NUMERIC;
_oldActCost NUMERIC;
_actualCost NUMERIC;
_standardCost NUMERIC;
BEGIN
-- Create Event if Standard or Actual Cost is greater than Max Cost
IF NOT EXISTS(SELECT 1
FROM evntnot
JOIN evnttype ON (evnttype_id = evntnot_evnttype_id)
JOIN usrpref ON (evntnot_username = usrpref_username)
WHERE
evnttype_name = 'CostExceedsMaxDesired'
AND usrpref_name = 'active'
AND usrpref_value = 't')
THEN
RETURN NEW;
END IF;
SELECT item_number, item_maxcost, actcost(item_id), stdcost(item_id) INTO _itemNumber, _maxCost, _actualCost, _standardCost
FROM item
WHERE (item_id=NEW.itemcost_item_id);
IF (_maxCost > 0.0) THEN
-- IF (_standardCost > _maxCost)
IF NOT EXISTS(SELECT 1 --COUNT(evntlog_id)
FROM
evntlog, evnttype
WHERE evntlog_evnttype_id = evnttype_id
AND evntlog_number LIKE
(_itemNumber || ' -Standard- New:' || '%')
AND (evntlog_dispatched IS NULL)
AND CAST(evntlog_evnttime AS DATE) = current_date
)
AND (_standardCost > _maxCost) THEN
IF (TG_OP = 'INSERT') THEN
_oldStdCost := 0;
_oldActCost := 0;
ELSE
_oldStdCost := OLD.itemcost_stdcost;
_oldActCost := OLD.itemcost_stdcost;
END IF;
INSERT INTO evntlog ( evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id, evntlog_number,
evntlog_newvalue, evntlog_oldvalue )
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'', NEW.itemcost_item_id, itemsite_warehous_id,
(_itemNumber || ' -Standard- ' ||
'New: ' || formatCost(_standardCost) ||
' Max: '|| formatCost(_MaxCost)),
NEW.itemcost_stdcost, _oldStdCost
FROM evntnot, evnttype, itemsite, usrpref
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (itemsite_item_id=NEW.itemcost_item_id)
AND (evntnot_warehous_id=itemsite_warehous_id)
AND (evnttype_name='CostExceedsMaxDesired')
AND (itemsite_active)
AND (usrpref_username = evntnot_username)
AND (usrpref_name = 'active')
AND (usrpref_value = 't'));
-- LIMIT 1;
END IF;
IF NOT EXISTS(
SELECT 1 FROM
evntlog, evnttype
WHERE evntlog_evnttype_id = evnttype_id
AND evntlog_number LIKE
(_itemNumber || ' -Actual- New:' || '%')
AND (evntlog_dispatched IS NULL)
AND CAST(evntlog_evnttime AS DATE) = current_date
)
AND (_actualCost > _maxCost)
THEN
INSERT INTO evntlog ( evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id, evntlog_number,
evntlog_newvalue, evntlog_oldvalue )
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'', NEW.itemcost_item_id, itemsite_warehous_id,
(_itemNumber || ' -Actual- ' ||
'New: ' || formatCost(_actualCost) ||
' Max: '|| formatCost(_MaxCost)),
NEW.itemcost_actcost, _oldActCost
FROM evntnot, evnttype, itemsite, usrpref
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (itemsite_item_id=NEW.itemcost_item_id)
AND (evntnot_warehous_id=itemsite_warehous_id)
AND (evnttype_name='CostExceedsMaxDesired')
AND (itemsite_active)
AND (usrpref_username = evntnot_username)
AND (usrpref_name = 'active')
AND (usrpref_value = 't')
); --LIMIT 1;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._itemcostaftertrigger() OWNER TO admin;
--
-- Name: _itemcosttrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _itemcosttrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
--Privilege Checks
IF ( (TG_OP = 'INSERT') AND (NOT checkPrivilege('CreateCosts')) AND (NOT checkPrivilege('PostVouchers')) ) THEN
RAISE EXCEPTION 'You do not have privileges to enter Item Costs.';
END IF;
IF ( (TG_OP = 'UPDATE') AND (NOT checkPrivilege('EnterActualCosts')) AND (NOT checkPrivilege('PostVouchers')) AND (NOT checkPrivilege('UpdateActualCosts')) AND (NOT checkPrivilege('PostActualCosts')) AND (NOT checkPrivilege('PostStandardCosts')) ) THEN
RAISE EXCEPTION 'You do not have privileges to update Item Costs.';
END IF;
IF ( (TG_OP = 'DELETE') AND (NOT checkPrivilege('DeleteCosts')) ) THEN
RAISE EXCEPTION 'You do not have privileges to delete Item Costs.';
END IF;
IF (TG_OP = 'UPDATE') THEN
IF (NEW.itemcost_actcost <> OLD.itemcost_actcost OR
NEW.itemcost_curr_id <> OLD.itemcost_curr_id) THEN
INSERT INTO costhist
( costhist_item_id, costhist_costelem_id, costhist_type,
costhist_lowlevel, costhist_username, costhist_date,
costhist_oldcost, costhist_newcost,
costhist_oldcurr_id, costhist_newcurr_id )
VALUES
( NEW.itemcost_item_id, NEW.itemcost_costelem_id, 'A',
NEW.itemcost_lowlevel, getEffectiveXtUser(), CURRENT_TIMESTAMP,
OLD.itemcost_actcost, NEW.itemcost_actcost,
OLD.itemcost_curr_id, NEW.itemcost_curr_id );
END IF;
IF (NEW.itemcost_stdcost <> OLD.itemcost_stdcost) THEN
INSERT INTO costhist
( costhist_item_id, costhist_costelem_id, costhist_type,
costhist_lowlevel, costhist_username, costhist_date,
costhist_oldcost, costhist_newcost,
costhist_oldcurr_id, costhist_newcurr_id )
VALUES
( NEW.itemcost_item_id, NEW.itemcost_costelem_id, 'S',
NEW.itemcost_lowlevel, getEffectiveXtUser(), CURRENT_TIMESTAMP,
OLD.itemcost_stdcost, NEW.itemcost_stdcost,
baseCurrId(), baseCurrId() );
END IF;
RETURN NEW;
ELSIF (TG_OP = 'INSERT') THEN
INSERT INTO costhist
( costhist_item_id, costhist_costelem_id, costhist_type,
costhist_lowlevel, costhist_username, costhist_date,
costhist_oldcost, costhist_newcost,
costhist_oldcurr_id, costhist_newcurr_id )
VALUES
( NEW.itemcost_item_id, NEW.itemcost_costelem_id, 'N',
NEW.itemcost_lowlevel, getEffectiveXtUser(), CURRENT_TIMESTAMP,
0, NEW.itemcost_actcost,
baseCurrId(), NEW.itemcost_curr_id );
RETURN NEW;
ELSIF (TG_OP = 'DELETE') THEN
INSERT INTO costhist
( costhist_item_id, costhist_costelem_id, costhist_type,
costhist_lowlevel, costhist_username, costhist_date,
costhist_oldcost, costhist_newcost,
costhist_oldcurr_id, costhist_newcurr_id )
VALUES
( OLD.itemcost_item_id, OLD.itemcost_costelem_id, 'D',
OLD.itemcost_lowlevel, getEffectiveXtUser(), CURRENT_TIMESTAMP,
OLD.itemcost_stdcost, 0,
OLD.itemcost_curr_id, baseCurrId() );
RETURN OLD;
END IF;
END;
$$;
ALTER FUNCTION public._itemcosttrigger() OWNER TO admin;
--
-- Name: _itemsiteaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _itemsiteaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_state INTEGER;
_wasLocationControl BOOLEAN;
_isLocationControl BOOLEAN;
_wasLotSerial BOOLEAN;
_isLotSerial BOOLEAN;
_wasPerishable BOOLEAN;
_isPerishable BOOLEAN;
_qty NUMERIC;
_maint BOOLEAN;
_cost NUMERIC;
_variance NUMERIC;
_application TEXT;
BEGIN
-- Cache Application
SELECT fetchMetricText('Application') INTO _application;
-- Check if we are doing maintenance
IF (TG_OP = 'INSERT') THEN
_maint := TRUE;
ELSIF (TG_OP = 'UPDATE') THEN
IF ((OLD.itemsite_item_id != NEW.itemsite_item_id)
OR (OLD.itemsite_warehous_id != NEW.itemsite_warehous_id)
OR (OLD.itemsite_reorderlevel != NEW.itemsite_reorderlevel)
OR (OLD.itemsite_ordertoqty != NEW.itemsite_ordertoqty)
OR (OLD.itemsite_cyclecountfreq != NEW.itemsite_cyclecountfreq)
OR (OLD.itemsite_planning_type != NEW.itemsite_planning_type)
OR (OLD.itemsite_posupply != NEW.itemsite_posupply)
OR (OLD.itemsite_wosupply != NEW.itemsite_wosupply)
OR (OLD.itemsite_loccntrl != NEW.itemsite_loccntrl)
OR (OLD.itemsite_safetystock != NEW.itemsite_safetystock)
OR (OLD.itemsite_minordqty != NEW.itemsite_minordqty)
OR (OLD.itemsite_multordqty != NEW.itemsite_multordqty)
OR (OLD.itemsite_leadtime != NEW.itemsite_leadtime)
OR (OLD.itemsite_abcclass != NEW.itemsite_abcclass)
OR (OLD.itemsite_controlmethod != NEW.itemsite_controlmethod)
OR (OLD.itemsite_active != NEW.itemsite_active)
OR (OLD.itemsite_plancode_id != NEW.itemsite_plancode_id)
OR (OLD.itemsite_costcat_id != NEW.itemsite_costcat_id)
OR (OLD.itemsite_eventfence != NEW.itemsite_eventfence)
OR (OLD.itemsite_sold != NEW.itemsite_sold)
OR (OLD.itemsite_stocked != NEW.itemsite_stocked)
OR (OLD.itemsite_location_id != NEW.itemsite_location_id)
OR (OLD.itemsite_useparams != NEW.itemsite_useparams)
OR (OLD.itemsite_useparamsmanual != NEW.itemsite_useparamsmanual)
OR (OLD.itemsite_soldranking != NEW.itemsite_soldranking)
OR (OLD.itemsite_createpr != NEW.itemsite_createpr)
OR (OLD.itemsite_location != NEW.itemsite_location)
OR (OLD.itemsite_location_comments != NEW.itemsite_location_comments)
OR (OLD.itemsite_notes != NEW.itemsite_notes)
OR (OLD.itemsite_perishable != NEW.itemsite_perishable)
OR (OLD.itemsite_autoabcclass != NEW.itemsite_autoabcclass)
OR (OLD.itemsite_ordergroup != NEW.itemsite_ordergroup)
OR (OLD.itemsite_disallowblankwip != NEW.itemsite_disallowblankwip)
OR (OLD.itemsite_maxordqty != NEW.itemsite_maxordqty)
OR (OLD.itemsite_mps_timefence != NEW.itemsite_mps_timefence)
OR (OLD.itemsite_createwo != NEW.itemsite_createwo)
OR (OLD.itemsite_warrpurc != NEW.itemsite_warrpurc)
OR (OLD.itemsite_costmethod != NEW.itemsite_costmethod)
OR (OLD.itemsite_autoreg != NEW.itemsite_autoreg)
OR (OLD.itemsite_lsseq_id != NEW.itemsite_lsseq_id) ) THEN
IF (OLD.itemsite_item_id != NEW.itemsite_item_id) THEN
RAISE EXCEPTION 'The item number on an itemsite may not be changed.';
ELSIF (OLD.itemsite_warehous_id != NEW.itemsite_warehous_id) THEN
RAISE EXCEPTION 'The warehouse code on an itemsite may not be changed.';
END IF;
_maint := TRUE;
END IF;
ELSE
_maint := FALSE;
END IF;
IF (_maint) THEN -- Begin Maintenance
-- Privilege Checks
IF ( NOT checkPrivilege('MaintainItemSites') ) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Item Sites.';
END IF;
-- Override values to avoid invalid data combinations
IF (NOT NEW.itemsite_posupply) THEN
UPDATE itemsite SET
itemsite_createpr = FALSE
WHERE (itemsite_id=NEW.itemsite_id);
END IF;
IF (NOT NEW.itemsite_wosupply) THEN
UPDATE itemsite SET
itemsite_createwo = FALSE
WHERE (itemsite_id=NEW.itemsite_id);
END IF;
IF (NEW.itemsite_controlmethod NOT IN ('S','L')) THEN
UPDATE itemsite SET
itemsite_perishable = FALSE,
itemsite_warrpurc = FALSE,
itemsite_autoreg = FALSE,
itemsite_lsseq_id = NULL
WHERE (itemsite_id=NEW.itemsite_id);
END IF;
IF (NOT NEW.itemsite_loccntrl) THEN
UPDATE itemsite SET
itemsite_disallowblankwip = FALSE
WHERE (itemsite_id=NEW.itemsite_id);
END IF;
IF (NOT NEW.itemsite_useparams) THEN
UPDATE itemsite SET
itemsite_reorderlevel = 0,
itemsite_ordertoqty = 0,
itemsite_minordqty = 0,
itemsite_maxordqty = 0,
itemsite_multordqty = 0,
itemsite_useparamsmanual = FALSE
WHERE (itemsite_id = NEW.itemsite_id);
END IF;
-- Integrity check
IF (TG_OP = 'INSERT') THEN
-- Handle MLC logic
IF ( (NEW.itemsite_loccntrl) AND (NEW.itemsite_warehous_id IS NOT NULL) ) THEN
IF (SELECT count(*)=0
FROM location
WHERE ((location_warehous_id=NEW.itemsite_warehous_id)
AND ( (NOT location_restrict) OR
( (location_restrict) AND
(location_id IN ( SELECT locitem_location_id
FROM locitem
WHERE (locitem_item_id=NEW.itemsite_item_id) ) ) ) ))) THEN
RAISE EXCEPTION 'You must first create at least one valid
Location for this Item Site before it may be
multiply located.';
END IF;
END IF;
--This could be made a table constraint later, but do not want to create a big problem
--for users with problematic legacy data over a relatively trivial problem for now,
--so we will just check moving forword.
IF (NEW.itemsite_stocked AND NEW.itemsite_reorderlevel<=0) THEN
RAISE EXCEPTION 'Stocked items must have postive reorder level specified.';
END IF;
END IF;
IF (TG_OP = 'UPDATE') THEN
--This could be made a table constraint later, but do not want to create a big problem
--for users with problematic legacy data over a relatively trivial problem for now,
--so we will just check moving forword.
IF ((NEW.itemsite_stocked)
AND (NEW.itemsite_stocked != OLD.itemsite_stocked) --Avoid checking unless explicitly changed
AND (NEW.itemsite_reorderlevel<=0)) THEN
RAISE EXCEPTION 'Stocked items must have postive reorder level specified.';
END IF;
END IF;
IF (TG_OP = 'UPDATE') THEN
-- Integrity check
IF (NOT OLD.itemsite_loccntrl AND NEW.itemsite_loccntrl) THEN
IF (SELECT count(*)=0
FROM location
WHERE ((location_warehous_id=NEW.itemsite_warehous_id)
AND ( (NOT location_restrict) OR
( (location_restrict) AND
(location_id IN ( SELECT locitem_location_id
FROM locitem
WHERE (locitem_item_id=NEW.itemsite_item_id) ) ) ) ))) THEN
RAISE EXCEPTION 'You must first create at least one valid
Location for this Item Site before it may be
multiply located.';
END IF;
END IF;
-- Update detail records based on control method changes
_wasLocationControl := OLD.itemsite_loccntrl;
_isLocationControl := NEW.itemsite_loccntrl;
_wasLotSerial := OLD.itemsite_controlmethod IN ('S','L');
_isLotSerial := NEW.itemsite_controlmethod IN ('S','L');
_wasPerishable := OLD.itemsite_perishable;
_isPerishable := NEW.itemsite_perishable;
_state := 0;
IF ( (_wasLocationControl) AND (_isLocationControl) ) THEN
_state := 10;
ELSIF ( (NOT _wasLocationControl) AND (NOT _isLocationControl) ) THEN
_state := 20;
ELSIF ( (NOT _wasLocationControl) AND (_isLocationControl) ) THEN
_state := 30;
ELSIF ( (_wasLocationControl) AND (NOT _isLocationControl) ) THEN
_state := 40;
END IF;
IF ( (_wasLotSerial) AND (_isLotSerial) ) THEN
_state := _state + 1;
ELSIF ( (NOT _wasLotSerial) AND (NOT _isLotSerial) ) THEN
_state := _state + 2;
ELSIF ( (NOT _wasLotSerial) AND (_isLotSerial) ) THEN
_state := _state + 3;
ELSIF ( (_wasLotSerial) AND (NOT _isLotSerial) ) THEN
_state := _state + 4;
END IF;
IF ( (_application = 'Standard') AND (_state IN (41, 43, 14, 34, 24, 42, 44)) ) THEN
-- Check for Reservations
IF (SELECT COUNT(*) > 0
FROM itemloc JOIN itemlocrsrv ON (itemlocrsrv_itemloc_id=itemloc_id)
WHERE (itemloc_itemsite_id=OLD.itemsite_id)) THEN
RAISE EXCEPTION 'Sales Order Reservations by Location exist for this Item Site';
END IF;
END IF;
IF (_state IN (41, 43)) THEN
PERFORM consolidateLotSerial(OLD.itemsite_id);
ELSIF (_state IN (14, 34)) THEN
PERFORM consolidateLocations(OLD.itemsite_id);
ELSIF (_state IN (24, 42, 44)) THEN
RAISE NOTICE 'Deleting item site detail records,';
SELECT SUM(itemloc_qty) INTO _qty
FROM itemloc, location
WHERE ((itemloc_location_id=location_id)
AND (NOT location_netable)
AND (itemloc_itemsite_id=OLD.itemsite_id));
IF (_qty != 0) THEN
UPDATE itemsite
SET itemsite_qtyonhand = itemsite_qtyonhand + _qty,
itemsite_nnqoh = itemsite_nnqoh - _qty
WHERE (itemsite_id=OLD.itemsite_id);
END IF;
DELETE FROM itemloc
WHERE (itemloc_itemsite_id=OLD.itemsite_id);
END IF;
IF (NEW.itemsite_qtyonhand != 0) THEN
-- Handle detail creation
-- Create itemloc records if they do not exist
IF (_state IN (23, 32, 33)) THEN
INSERT INTO itemloc
( itemloc_itemsite_id, itemloc_location_id,
itemloc_expiration, itemloc_qty )
VALUES
( NEW.itemsite_id, -1,
endOfTime(), NEW.itemsite_qtyonhand );
END IF;
-- Handle Location distribution
IF (_state IN (31, 32, 33, 34)) THEN
IF (SELECT (COUNT(*)=1)
FROM location
WHERE ((location_id=NEW.itemsite_location_id)
AND (location_warehous_id=NEW.itemsite_warehous_id)
AND ( (NOT location_restrict) OR
( (location_restrict) AND
(location_id IN ( SELECT locitem_location_id
FROM locitem
WHERE (locitem_item_id=NEW.itemsite_item_id) ) ) ) ))) THEN
PERFORM initialDistribution(NEW.itemsite_id, NEW.itemsite_location_id);
ELSE
RAISE EXCEPTION 'A valid default location must be selected to distribute existing inventory to.';
END IF;
END IF;
-- Handle Lot/Serial distribution
IF ( (_state = 13) OR (_state = 23) OR (_state = 33) OR (_state = 43) ) THEN
RAISE NOTICE 'You should now use the Reassign Lot/Serial # window to assign Lot/Serial #s.';
END IF;
END IF;
IF (OLD.itemsite_costmethod='A' AND NEW.itemsite_costmethod='S') THEN
-- TODO: Average costing cost method change
SELECT stdcost(NEW.itemsite_item_id) * NEW.itemsite_qtyonhand
INTO _cost;
_variance := _cost - NEW.itemsite_value;
NEW.itemsite_value := _cost;
IF(_variance <> 0.0) THEN
PERFORM insertGLTransaction( 'P/D', '', '', 'Itemsite converted from Average to Standard cost.',
costcat_invcost_accnt_id, costcat_asset_accnt_id, NEW.itemsite_id,
_variance, CURRENT_DATE )
FROM costcat
WHERE(costcat_id=NEW.itemsite_costcat_id);
UPDATE itemsite SET itemsite_value = _cost WHERE (itemsite_id = NEW.itemsite_id);
END IF;
END IF;
END IF;
-- Handle Perishable
IF ( (_application = 'Standard') AND (_wasPerishable) AND (NOT _isPerishable) ) THEN
UPDATE itemloc SET itemloc_expiration = endOfTime()
WHERE (itemloc_itemsite_id = OLD.itemsite_id);
PERFORM consolidateLotSerial(OLD.itemsite_id);
END IF;
-- If Planning Type changed to None then delete all Planned Orders
IF ( (_application = 'Standard') AND (TG_OP = 'UPDATE') ) THEN
IF (NEW.itemsite_planning_type = 'N' AND OLD.itemsite_planning_type <> 'N') THEN
PERFORM deletePlannedOrder(planord_id, TRUE)
FROM planord
WHERE (planord_itemsite_id=NEW.itemsite_id);
END IF;
END IF;
END IF; -- End Maintenance
RETURN NEW;
END;
$$;
ALTER FUNCTION public._itemsiteaftertrigger() OWNER TO admin;
--
-- Name: _itemsitetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _itemsitetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
_r RECORD;
BEGIN
-- Cache some information
SELECT item_type INTO _r
FROM item
WHERE (item_id=NEW.itemsite_item_id);
-- Override values to avoid invalid data combinations
IF (_r.item_type IN ('J','R','S')) THEN
NEW.itemsite_planning_type := 'N';
END IF;
IF (_r.item_type = 'L') THEN
NEW.itemsite_planning_type := 'S';
END IF;
IF (TG_OP = 'UPDATE') THEN
IF ( (NEW.itemsite_qtyonhand <> OLD.itemsite_qtyonhand) ) THEN
IF (OLD.itemsite_freeze) THEN
NEW.itemsite_qtyonhand := OLD.itemsite_qtyonhand;
ELSE
NEW.itemsite_datelastused := CURRENT_DATE;
END IF;
IF ( (NEW.itemsite_qtyonhand < 0) AND (OLD.itemsite_qtyonhand >= 0) AND (NEW.itemsite_eventfence > 0) ) THEN
INSERT INTO evntlog
( evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id,
evntlog_number )
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'I', NEW.itemsite_id, warehous_id,
(item_number || '/' || warehous_code)
FROM evntnot, evnttype, item, whsinfo
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (evntnot_warehous_id=NEW.itemsite_warehous_id)
AND (NEW.itemsite_item_id=item_id)
AND (NEW.itemsite_warehous_id=warehous_id)
AND (evnttype_name='QOHBelowZero') );
END IF;
END IF;
IF ( (NEW.itemsite_value <> OLD.itemsite_value) AND (OLD.itemsite_freeze) ) THEN
NEW.itemsite_value := OLD.itemsite_value;
END IF;
END IF;
IF (NEW.itemsite_qtyonhand < 0 AND NEW.itemsite_costmethod = 'A') THEN
RAISE EXCEPTION 'Itemsite (%) is set to use average costing and is not allowed to have a negative quantity on hand.', NEW.itemsite_id;
ELSIF (NEW.itemsite_value < 0 AND NEW.itemsite_costmethod = 'A') THEN
RAISE EXCEPTION 'This transaction results in a negative itemsite value. Itemsite (%) is set to use average costing and is not allowed to have a negative value.', NEW.itemsite_id;
END IF;
-- Handle the ChangeLog
IF ( SELECT (metric_value='t')
FROM metric
WHERE (metric_name='ItemSiteChangeLog') ) THEN
-- Cache the cmnttype_id for ChangeLog
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
IF (FOUND) THEN
IF (TG_OP = 'INSERT') THEN
PERFORM postComment(_cmnttypeid, 'IS', NEW.itemsite_id, 'Created');
ELSIF (TG_OP = 'UPDATE') THEN
IF (OLD.itemsite_plancode_id <> NEW.itemsite_plancode_id) THEN
PERFORM postComment( _cmnttypeid, 'IS', NEW.itemsite_id,
( 'Planner Code Changed from "' || oldplancode.plancode_code ||
'" to "' || newplancode.plancode_code || '"' ) )
FROM plancode AS oldplancode, plancode AS newplancode
WHERE ( (oldplancode.plancode_id=OLD.itemsite_plancode_id)
AND (newplancode.plancode_id=NEW.itemsite_plancode_id) );
END IF;
IF (NEW.itemsite_reorderlevel <> OLD.itemsite_reorderlevel) THEN
PERFORM postComment( _cmnttypeid, 'IS', NEW.itemsite_id,
( 'Reorder Level Changed from ' || formatQty(OLD.itemsite_reorderlevel) ||
' to ' || formatQty(NEW.itemsite_reorderlevel ) ) );
END IF;
IF (NEW.itemsite_ordertoqty <> OLD.itemsite_ordertoqty) THEN
PERFORM postComment( _cmnttypeid, 'IS', NEW.itemsite_id,
( 'Order Up To Changed from ' || formatQty(OLD.itemsite_ordertoqty) ||
' to ' || formatQty(NEW.itemsite_ordertoqty ) ) );
END IF;
IF (NEW.itemsite_leadtime <> OLD.itemsite_leadtime) THEN
PERFORM postComment( _cmnttypeid, 'IS', NEW.itemsite_id,
( 'Itemsite Leadtime Changed from ' || formatQty(OLD.itemsite_leadtime) ||
' to ' || formatQty(NEW.itemsite_leadtime ) ) );
END IF;
IF (NEW.itemsite_abcclass <> OLD.itemsite_abcclass) THEN
PERFORM postComment( _cmnttypeid, 'IS', NEW.itemsite_id,
( 'Itemsite ABC Class Changed from ' || COALESCE(OLD.itemsite_abcclass, 'None') ||
' to ' || COALESCE(NEW.itemsite_abcclass,'None') ) );
END IF;
IF (NEW.itemsite_controlmethod <> OLD.itemsite_controlmethod) THEN
PERFORM postComment( _cmnttypeid, 'IS', NEW.itemsite_id,
( 'Itemsite Control Method Changed from ' || COALESCE(OLD.itemsite_controlmethod,'None') ||
' to ' || COALESCE(NEW.itemsite_controlmethod,'None') ) );
END IF;
IF (OLD.itemsite_sold <> NEW.itemsite_sold) THEN
PERFORM postComment( _cmnttypeid, 'IS', NEW.itemsite_id,
CASE WHEN (NEW.itemsite_sold) THEN 'Sold Changed from FALSE to TRUE'
ELSE 'Sold Changed from TRUE to FALSE'
END );
END IF;
IF (OLD.itemsite_active <> NEW.itemsite_active) THEN
IF (NEW.itemsite_active) THEN
PERFORM postComment(_cmnttypeid, 'IS', NEW.itemsite_id, 'Activated');
ELSE
PERFORM postComment(_cmnttypeid, 'IS', NEW.itemsite_id, 'Deactivated');
END IF;
END IF;
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._itemsitetrigger() OWNER TO admin;
--
-- Name: _itemsrcaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _itemsrcaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
-- Privilege Checks
IF (NOT checkPrivilege('MaintainItemSources')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Item Sources.';
END IF;
-- Set default to false for other item sources of this item
IF (COALESCE(NEW.itemsrc_default, FALSE) = TRUE) THEN
UPDATE itemsrc SET itemsrc_default = FALSE
WHERE ( (itemsrc_item_id = NEW.itemsrc_item_id)
AND (itemsrc_id <> NEW.itemsrc_id) );
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._itemsrcaftertrigger() OWNER TO admin;
--
-- Name: _itemsrcptrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _itemsrcptrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
-- Privilege Checks
IF (NOT checkPrivilege('MaintainItemSources')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Item Sources.';
END IF;
-- Set defaults
NEW.itemsrcp_curr_id := COALESCE(NEW.itemsrcp_curr_id,basecurrid());
RETURN NEW;
END;
$$;
ALTER FUNCTION public._itemsrcptrigger() OWNER TO admin;
--
-- Name: _itemsrctrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _itemsrctrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
-- Privilege Checks
IF (NOT checkPrivilege('MaintainItemSources')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Item Sources.';
END IF;
-- Set defaults
NEW.itemsrc_invvendoruomratio := COALESCE(NEW.itemsrc_invvendoruomratio,1);
NEW.itemsrc_minordqty := COALESCE(NEW.itemsrc_minordqty,0);
NEW.itemsrc_multordqty := COALESCE(NEW.itemsrc_multordqty,0);
NEW.itemsrc_active := COALESCE(NEW.itemsrc_active,true);
NEW.itemsrc_leadtime := COALESCE(NEW.itemsrc_leadtime,0);
NEW.itemsrc_ranking := COALESCE(NEW.itemsrc_ranking,1);
RETURN NEW;
END;
$$;
ALTER FUNCTION public._itemsrctrigger() OWNER TO admin;
--
-- Name: _itemsubtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _itemsubtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
-- Privilege Checks
IF (NOT checkPrivilege('MaintainItemMasters')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Item Substitutes.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._itemsubtrigger() OWNER TO admin;
--
-- Name: _itemtaxtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _itemtaxtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
-- Privilege Checks
IF (NOT checkPrivilege('MaintainItemMasters')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Items.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._itemtaxtrigger() OWNER TO admin;
--
-- Name: _itemtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _itemtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
-- Override values to avoid invalid data combinations
IF (NEW.item_type IN ('R','S','O','L','B')) THEN
NEW.item_picklist := FALSE;
END IF;
IF (NEW.item_type IN ('F','S','O','L','B')) THEN
NEW.item_picklist := FALSE;
NEW.item_sold := FALSE;
NEW.item_prodcat_id := -1;
NEW.item_exclusive := false;
NEW.item_listprice := 0;
NEW.item_upccode := '';
NEW.item_prodweight := 0;
NEW.item_packweight := 0;
END IF;
IF (NEW.item_type NOT IN ('M','R')) THEN
NEW.item_config := false;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._itemtrigger() OWNER TO admin;
--
-- Name: _itemuomconvtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _itemuomconvtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
-- Privilege Checks
IF (NOT checkPrivilege('MaintainItemMasters')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Items.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._itemuomconvtrigger() OWNER TO admin;
--
-- Name: _locationaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _locationaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_itemloc RECORD;
BEGIN
-- Maintain itemsite_qtyonhand and itemsite_nnqoh when location_netable changes
IF (TG_OP = 'UPDATE') THEN
IF (OLD.location_netable <> NEW.location_netable) THEN
FOR _itemloc IN SELECT * FROM itemloc WHERE (itemloc_location_id=NEW.location_id) LOOP
IF (NEW.location_netable) THEN
UPDATE itemsite SET itemsite_qtyonhand = itemsite_qtyonhand + _itemloc.itemloc_qty,
itemsite_nnqoh = itemsite_nnqoh - _itemloc.itemloc_qty
WHERE (itemsite_id=_itemloc.itemloc_itemsite_id);
ELSE
UPDATE itemsite SET itemsite_qtyonhand = itemsite_qtyonhand - _itemloc.itemloc_qty,
itemsite_nnqoh = itemsite_nnqoh + _itemloc.itemloc_qty
WHERE (itemsite_id=_itemloc.itemloc_itemsite_id);
END IF;
END LOOP;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._locationaftertrigger() OWNER TO admin;
--
-- Name: _locationtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _locationtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_check BOOLEAN;
_checkId INTEGER;
BEGIN
-- Checks
-- Start with privileges
IF (TG_OP = 'INSERT') THEN
SELECT checkPrivilege('MaintainLocations') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'You do not have privileges to add new Locations.';
END IF;
ELSE
SELECT checkPrivilege('MaintainLocations') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'You do not have privileges to alter a Location.';
END IF;
END IF;
-- Code is required
IF ( (LENGTH(COALESCE(NEW.location_name,''))=0) AND
(LENGTH(COALESCE(NEW.location_aisle,''))=0) AND
(LENGTH(COALESCE(NEW.location_rack,''))=0) AND
(LENGTH(COALESCE(NEW.location_bin,''))=0) ) THEN
RAISE EXCEPTION 'You must supply a valid Location Identifier.';
END IF;
-- Site is required
IF (NEW.location_warehous_id IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid Site.';
END IF;
-- Location Identifier must be unique
SELECT location_id INTO _checkId
FROM location
WHERE ( (UPPER(location_name)=UPPER(NEW.location_name))
AND (UPPER(location_aisle)=UPPER(NEW.location_aisle))
AND (UPPER(location_rack)=UPPER(NEW.location_rack))
AND (UPPER(location_bin)=UPPER(NEW.location_bin))
AND (location_warehous_id=NEW.location_warehous_id)
AND (location_id<>NEW.location_id) );
IF (FOUND) THEN
RAISE EXCEPTION 'You must supply a unique Location Identifier for this Site.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._locationtrigger() OWNER TO admin;
--
-- Name: _metasqlaltertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _metasqlaltertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (NOT (isDBA() OR checkPrivilege('MaintainMetaSQL'))) THEN
RAISE EXCEPTION '% does not have privileges to maintain MetaSQL statements in %.%',
getEffectiveXtUser(), TG_TABLE_SCHEMA, TG_TABLE_NAME;
END IF;
IF ((TG_OP = 'UPDATE' OR TG_OP = 'DELETE')
AND NEW.metasql_grade <= 0
AND NOT isDBA()) THEN
RAISE EXCEPTION 'You may not alter grade 0 metasql queries except using the xTuple Updater utility';
END IF;
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._metasqlaltertrigger() OWNER TO admin;
--
-- Name: _metasqltrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _metasqltrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
NEW.metasql_lastuser := getEffectiveXtUser();
NEW.metasql_lastupdate := current_date;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._metasqltrigger() OWNER TO admin;
--
-- Name: _opheadaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _opheadaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
BEGIN
IF (TG_OP = 'DELETE') THEN
DELETE FROM docass WHERE docass_source_id = OLD.ophead_id AND docass_source_type = 'OPP';
DELETE FROM docass WHERE docass_target_id = OLD.ophead_id AND docass_target_type = 'OPP';
END IF;
-- Comments
IF ( SELECT (metric_value='t') FROM metric WHERE (metric_name='OpportunityChangeLog') ) THEN
-- Cache the cmnttype_id for ChangeLog
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
IF (FOUND) THEN
IF (TG_OP = 'INSERT') THEN
PERFORM postComment(_cmnttypeid, 'OPP', NEW.ophead_id, 'Created');
--- clear the number from the issue cache
PERFORM clearNumberIssue('OpportunityNumber', NEW.ophead_number);
ELSIF (TG_OP = 'UPDATE') THEN
IF (OLD.ophead_active <> NEW.ophead_active) THEN
IF (NEW.ophead_active) THEN
PERFORM postComment(_cmnttypeid, 'OPP', NEW.ophead_id, 'Activated');
ELSE
PERFORM postComment(_cmnttypeid, 'OPP', NEW.ophead_id, 'Deactivated');
END IF;
END IF;
IF (OLD.ophead_name <> NEW.ophead_name) THEN
PERFORM postComment( _cmnttypeid, 'OPP', NEW.ophead_id,
( 'Name Changed from "' || OLD.ophead_name ||
'" to "' || NEW.ophead_name || '"' ) );
END IF;
IF (OLD.ophead_owner_username <> NEW.ophead_owner_username) THEN
PERFORM postComment( _cmnttypeid, 'OPP', NEW.ophead_id,
( 'Owner Name Changed from "' || OLD.ophead_owner_username ||
'" to "' || NEW.ophead_owner_username || '"' ) );
END IF;
IF (OLD.ophead_probability_prcnt <> NEW.ophead_probability_prcnt) THEN
PERFORM postComment( _cmnttypeid, 'OPP', NEW.ophead_id,
( 'Probability % Changed from "' || OLD.ophead_probability_prcnt ||
'" to "' || NEW.ophead_probability_prcnt || '"' ) );
END IF;
IF (OLD.ophead_amount <> NEW.ophead_amount) THEN
PERFORM postComment( _cmnttypeid, 'OPP', NEW.ophead_id,
( 'Amount Changed from "' || OLD.ophead_amount ||
'" to "' || NEW.ophead_amount || '"' ) );
END IF;
IF (OLD.ophead_target_date <> NEW.ophead_target_date) THEN
PERFORM postComment( _cmnttypeid, 'OPP', NEW.ophead_id,
( 'Target Date Changed from "' || OLD.ophead_target_date ||
'" to "' || NEW.ophead_target_date || '"' ) );
END IF;
IF (OLD.ophead_actual_date <> NEW.ophead_actual_date) THEN
PERFORM postComment( _cmnttypeid, 'OPP', NEW.ophead_id,
( 'Actual Date Changed from "' || OLD.ophead_actual_date ||
'" to "' || NEW.ophead_actual_date || '"' ) );
END IF;
IF (OLD.ophead_crmacct_id <> NEW.ophead_crmacct_id) THEN
PERFORM postComment( _cmnttypeid, 'OPP', NEW.ophead_id,
( 'CRM Account Changed from "' ||
(SELECT crmacct_name FROM crmacct WHERE crmacct_id=OLD.ophead_crmacct_id) ||
'" (' || OLD.ophead_crmacct_id ||
') to "' ||
(SELECT crmacct_name FROM crmacct WHERE crmacct_id=NEW.ophead_crmacct_id) ||
'" (' || NEW.ophead_crmacct_id || ')' ) );
END IF;
IF (OLD.ophead_curr_id <> NEW.ophead_curr_id) THEN
PERFORM postComment( _cmnttypeid, 'OPP', NEW.ophead_id,
( 'Currency Changed from "' ||
(SELECT curr_name FROM curr_symbol WHERE curr_id=OLD.ophead_curr_id) ||
'" (' || OLD.ophead_curr_id ||
') to "' ||
(SELECT curr_name FROM curr_symbol WHERE curr_id=NEW.ophead_curr_id) ||
'" (' || NEW.ophead_curr_id || ')' ) );
END IF;
IF (OLD.ophead_opstage_id <> NEW.ophead_opstage_id) THEN
PERFORM postComment( _cmnttypeid, 'OPP', NEW.ophead_id,
( 'Stage Changed from "' ||
(SELECT opstage_name FROM opstage WHERE opstage_id=OLD.ophead_opstage_id) ||
'" (' || OLD.ophead_opstage_id ||
') to "' ||
(SELECT opstage_name FROM opstage WHERE opstage_id=NEW.ophead_opstage_id) ||
'" (' || NEW.ophead_opstage_id || ')' ) );
END IF;
IF (OLD.ophead_opsource_id <> NEW.ophead_opsource_id) THEN
PERFORM postComment( _cmnttypeid, 'OPP', NEW.ophead_id,
( 'Source Changed from "' ||
(SELECT opsource_name FROM opsource WHERE opsource_id=OLD.ophead_opsource_id) ||
'" (' || OLD.ophead_opsource_id ||
') to "' ||
(SELECT opsource_name FROM opsource WHERE opsource_id=NEW.ophead_opsource_id) ||
'" (' || NEW.ophead_opsource_id || ')' ) );
END IF;
IF (OLD.ophead_optype_id <> NEW.ophead_optype_id) THEN
PERFORM postComment( _cmnttypeid, 'OPP', NEW.ophead_id,
( 'Type Changed from "' ||
(SELECT optype_name FROM optype WHERE optype_id=OLD.ophead_optype_id) ||
'" (' || OLD.ophead_optype_id ||
') to "' ||
(SELECT optype_name FROM optype WHERE optype_id=NEW.ophead_optype_id) ||
'" (' || NEW.ophead_optype_id || ')' ) );
END IF;
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._opheadaftertrigger() OWNER TO admin;
--
-- Name: _opheadbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _opheadbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_rec record;
_check boolean;
_test text;
BEGIN
IF(TG_OP = 'DELETE') THEN
_rec := OLD;
ELSE
_rec := NEW;
END IF;
-- Auto inactivate
IF (TG_OP = 'UPDATE') THEN
IF ( (NEW.ophead_opstage_id != OLD.ophead_opstage_id) AND
(SELECT opstage_opinactive FROM opstage WHERE opstage_id=NEW.ophead_opstage_id) ) THEN
NEW.ophead_active := FALSE;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._opheadbeforetrigger() OWNER TO admin;
--
-- Name: _packbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _packbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
BEGIN
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
IF (FOUND) THEN
IF ((TG_OP = 'INSERT') AND (NEW.pack_head_id) IS NOT NULL)THEN
PERFORM postComment(_cmnttypeid, 'S', NEW.pack_head_id, 'Added to Packing List Batch');
END IF;
END IF;
IF ((TG_OP = 'INSERT') OR (TG_OP = 'UPDATE')) THEN
IF (NEW.pack_shiphead_id IS NOT NULL
AND NEW.pack_shiphead_id NOT IN (SELECT shiphead_id
FROM shiphead
WHERE (shiphead_order_id=NEW.pack_head_id)
AND (shiphead_order_type=NEW.pack_head_type))) THEN
RAISE EXCEPTION 'Shipment does not exist for % id %',
NEW.pack_head_type, NEW.pack_head_id;
RETURN OLD;
END IF;
IF (NEW.pack_head_type = 'SO'
AND NEW.pack_head_id IN (SELECT cohead_id FROM cohead)) THEN
RETURN NEW;
ELSEIF (NEW.pack_head_type = 'TO') THEN
IF (NOT fetchMetricBool('MultiWhs')) THEN
RAISE EXCEPTION 'Transfer Orders are not supported by this version of the application';
ELSEIF (NEW.pack_head_id IN (SELECT tohead_id FROM tohead)) THEN
RETURN NEW;
END IF;
END IF;
RAISE EXCEPTION '% with id % does not exist',
NEW.pack_head_type, NEW.pack_head_id;
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._packbeforetrigger() OWNER TO admin;
--
-- Name: _periodaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _periodaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_idoffirst INTEGER;
_test INTEGER;
BEGIN
-- This trigger can easily cause an infinite loop
-- because of this we have to be very careful to not
-- do an update on the period table if no updates
-- are absolutely needed so we don't just keep
-- trigger ourselves again and again
-- Figure out which period is the first one
SELECT period_id
INTO _idoffirst
FROM period
ORDER BY period_start
LIMIT 1;
-- If we didn't find anything there is nothing to do
IF( NOT FOUND ) THEN
RETURN NEW;
END IF;
-- do a select to see if there is at least one record that needs to be
-- updated. If we do not find any then we can just leave without
-- causing a retrigger of ourselves
SELECT period_id
INTO _test
FROM period
WHERE((COALESCE(period_initial, true) AND (NOT period_id=_idoffirst))
OR ((NOT COALESCE(period_initial, false)) AND (period_id=_idoffirst)))
LIMIT 1;
-- Nothing to update - get out of here
IF( NOT FOUND ) THEN
RETURN NEW;
END IF;
-- Update all the period records that already have the initial flag
-- set and the one that we know should be the first.
-- We don't have to be as careful here since we have already ruled
-- out if don't need to update already.
UPDATE period
SET period_initial = (_idoffirst=period_id)
WHERE((COALESCE(period_initial, true))
OR (period_id=_idoffirst));
RETURN NEW;
END;
$$;
ALTER FUNCTION public._periodaftertrigger() OWNER TO admin;
--
-- Name: _pkgcmdaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgcmdaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgcmdaftertrigger() OWNER TO admin;
--
-- Name: _pkgcmdaltertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgcmdaltertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (pkgMayBeModified(TG_TABLE_SCHEMA)) THEN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
ELSE
RETURN NEW;
END IF;
END IF;
IF (TG_OP = 'INSERT') THEN
RAISE EXCEPTION 'You may not create custom commands in packages except using the xTuple Updater utility';
ELSIF (TG_OP = 'UPDATE') THEN
RAISE EXCEPTION 'You may not alter custom commands in packages except using the xTuple Updater utility';
ELSIF (TG_OP = 'DELETE') THEN
RAISE EXCEPTION 'You may not delete custom commands from packages. Try deleting or disabling the package.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgcmdaltertrigger() OWNER TO admin;
--
-- Name: _pkgcmdargaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgcmdargaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgcmdargaftertrigger() OWNER TO admin;
--
-- Name: _pkgcmdargaltertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgcmdargaltertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (pkgMayBeModified(TG_TABLE_SCHEMA)) THEN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
ELSE
RETURN NEW;
END IF;
END IF;
IF (TG_OP = 'INSERT') THEN
RAISE EXCEPTION 'You may not create command arguments in packages except using the xTuple Updater utility';
ELSIF (TG_OP = 'UPDATE') THEN
RAISE EXCEPTION 'You may not alter command arguments in packages except using the xTuple Updater utility';
ELSIF (TG_OP = 'DELETE') THEN
RAISE EXCEPTION 'You may not delete command arguments from packages. Try deleting or disabling the package.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgcmdargaltertrigger() OWNER TO admin;
--
-- Name: _pkgcmdargbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgcmdargbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmdargid INTEGER;
_debug BOOL := false;
BEGIN
IF (TG_OP = 'UPDATE') THEN
RETURN NEW;
ELSIF (TG_OP = 'INSERT') THEN
RETURN NEW;
ELSIF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgcmdargbeforetrigger() OWNER TO admin;
--
-- Name: _pkgcmdbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgcmdbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmdid INTEGER;
_debug BOOL := false;
BEGIN
IF (TG_OP = 'UPDATE') THEN
IF (_debug) THEN
RAISE NOTICE 'OLD.cmd_name %, NEW.cmd_name %',
OLD.cmd_name, NEW.cmd_name;
END IF;
IF (NEW.cmd_name != OLD.cmd_name) THEN
SELECT cmd_id INTO _cmdid FROM cmd WHERE cmd_name=NEW.cmd_name;
IF (FOUND) THEN
RAISE EXCEPTION 'Cannot change command name % because another command with that name already exists.', NEW.cmd_name;
END IF;
END IF;
ELSIF (TG_OP = 'INSERT') THEN
IF (_debug) THEN
RAISE NOTICE 'inserting NEW.cmd_name %', NEW.cmd_name;
END IF;
SELECT cmd_id INTO _cmdid FROM cmd WHERE cmd_name=NEW.cmd_name;
IF (FOUND) THEN
RAISE EXCEPTION 'Cannot create new command % because another command with that name already exists.', NEW.cmd_name;
END IF;
ELSIF (TG_OP = 'DELETE') THEN
DELETE FROM cmdarg WHERE cmdarg_cmd_id=OLD.cmd_id;
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgcmdbeforetrigger() OWNER TO admin;
--
-- Name: _pkgheadbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgheadbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_r RECORD;
BEGIN
IF (TG_OP = 'UPDATE') THEN
NEW.pkghead_created := OLD.pkghead_created;
NEW.pkghead_updated := CURRENT_TIMESTAMP;
IF (NEW.pkghead_indev AND NOT userCanCreateUsers(getEffectiveXtUser())) THEN
NEW.pkghead_indev = FALSE;
END IF;
ELSIF (TG_OP = 'INSERT') THEN
NEW.pkghead_created := CURRENT_TIMESTAMP;
NEW.pkghead_updated := NEW.pkghead_created;
IF (NEW.pkghead_indev AND NOT userCanCreateUsers(getEffectiveXtUser())) THEN
NEW.pkghead_indev = FALSE;
END IF;
ELSIF (TG_OP = 'DELETE') THEN
DELETE FROM pkgdep WHERE pkgdep_pkghead_id=OLD.pkghead_id;
EXECUTE 'DROP SCHEMA ' || OLD.pkghead_name || ' CASCADE';
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgheadbeforetrigger() OWNER TO admin;
--
-- Name: _pkgimageaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgimageaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgimageaftertrigger() OWNER TO admin;
--
-- Name: _pkgimagealtertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgimagealtertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (pkgMayBeModified(TG_TABLE_SCHEMA)) THEN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
ELSE
RETURN NEW;
END IF;
END IF;
IF (TG_OP = 'INSERT') THEN
RAISE EXCEPTION 'You may not create images in packages except using the xTuple Updater utility';
ELSIF (TG_OP = 'UPDATE') THEN
RAISE EXCEPTION 'You may not alter images in packages except using the xTuple Updater utility';
ELSIF (TG_OP = 'DELETE') THEN
RAISE EXCEPTION 'You may not delete images from packages. Try deleting or disabling the package.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgimagealtertrigger() OWNER TO admin;
--
-- Name: _pkgimagebeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgimagebeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_imageid INTEGER;
_debug BOOL := false;
BEGIN
IF (TG_OP = 'UPDATE') THEN
IF (_debug) THEN
RAISE NOTICE 'OLD.image_name %, NEW.image_name %',
OLD.image_name, NEW.image_name;
END IF;
IF (NEW.image_name != OLD.image_name) THEN
SELECT image_id INTO _imageid FROM image WHERE image_name=NEW.image_name;
IF (FOUND) THEN
RAISE EXCEPTION 'Cannot change image named % because another image with that name already exists.', NEW.image_name;
END IF;
END IF;
ELSIF (TG_OP = 'INSERT') THEN
IF (_debug) THEN
RAISE NOTICE 'inserting NEW.image_name %', NEW.image_name;
END IF;
SELECT image_id INTO _imageid FROM image WHERE image_name=NEW.image_name;
IF (FOUND) THEN
RAISE EXCEPTION 'Cannot create new image % because another image with that name already exists.', NEW.image_name;
END IF;
ELSIF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgimagebeforetrigger() OWNER TO admin;
--
-- Name: _pkgitembeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgitembeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_functionargs TEXT;
_group TEXT;
_object TEXT;
_schema TEXT;
_debug BOOL := false;
BEGIN
IF (TG_OP = 'INSERT' OR TG_OP = 'UPDATE') THEN
_object = NEW.pkgitem_name;
SELECT LOWER(pkghead_name) INTO _schema
FROM pkghead
WHERE (pkghead_id=NEW.pkgitem_pkghead_id);
IF (NOT FOUND) THEN
_schema := 'public';
END IF;
IF (NEW.pkgitem_type = 'F') THEN
_object := SPLIT_PART(_object, '(', 1);
ELSIF (NEW.pkgitem_type = 'M') THEN
_group := SPLIT_PART(_object, '-', 1);
_object := SPLIT_PART(_object, '-', 2);
END IF;
IF _debug THEN
RAISE NOTICE '_schema % and _object %', _schema, _object;
END IF;
IF (NEW.pkgitem_type = 'C') THEN
IF (NOT EXISTS(SELECT script_id
FROM script
WHERE ((script_id=NEW.pkgitem_item_id)
AND (script_name=NEW.pkgitem_name)))) THEN
RAISE EXCEPTION 'Cannot create Script % as a Package Item without a corresponding script record.',
NEW.pkgitem_name;
END IF;
ELSIF (NEW.pkgitem_type = 'D') THEN
IF (NOT EXISTS(SELECT cmd_id
FROM cmd
WHERE ((cmd_id=NEW.pkgitem_item_id)
AND (cmd_name=NEW.pkgitem_name)))) THEN
RAISE EXCEPTION 'Cannot create Custom Command % as a Package Item without a corresponding cmd record.',
NEW.pkgitem_name;
END IF;
ELSIF (NEW.pkgitem_type = 'F') THEN
IF (NOT EXISTS(SELECT pg_proc.oid
FROM pg_proc, pg_namespace
WHERE ((pg_proc.oid=NEW.pkgitem_item_id)
AND (proname = (_object))
AND (pronamespace=pg_namespace.oid)
AND (nspname=_schema)) )) THEN
RAISE EXCEPTION 'Cannot create Function % (oid %) as a Package Item without a corresponding function in the database.',
NEW.pkgitem_name, NEW.pkgitem_item_id;
END IF;
ELSIF (NEW.pkgitem_type = 'G') THEN
IF (NOT EXISTS(SELECT pg_class.oid
FROM pg_trigger, pg_class, pg_namespace
WHERE ((tgname=_object)
AND (tgrelid=pg_class.oid)
AND (relnamespace=pg_namespace.oid)
AND (nspname=_schema)))) THEN
RAISE EXCEPTION 'Cannot create Trigger % as a Package Item without a corresponding trigger in the database.',
NEW.pkgitem_name;
END IF;
ELSIF (NEW.pkgitem_type = 'I') THEN
IF (NOT EXISTS(SELECT image_id
FROM image
WHERE ((image_id=NEW.pkgitem_item_id)
AND (image_name=NEW.pkgitem_name)))) THEN
RAISE EXCEPTION 'Cannot create Image % as a Package Item without a corresponding image record.',
NEW.pkgitem_name;
END IF;
ELSIF (NEW.pkgitem_type = 'M') THEN
IF (NOT EXISTS(SELECT metasql_id
FROM metasql
WHERE ((metasql_id=NEW.pkgitem_item_id)
AND (metasql_group=_group)
AND (metasql_name=_object)))) THEN
RAISE EXCEPTION 'Cannot create MetaSQL statement % as a Package Item without a corresponding metasql record.',
NEW.pkgitem_name;
END IF;
ELSIF (NEW.pkgitem_type = 'P') THEN
IF (NOT EXISTS(SELECT priv_id
FROM priv
WHERE ((priv_id=NEW.pkgitem_item_id)
AND (priv_name=NEW.pkgitem_name)))) THEN
RAISE EXCEPTION 'Cannot create Privilege % as a Package Item without a corresponding priv record.',
NEW.pkgitem_name;
END IF;
ELSIF (NEW.pkgitem_type = 'R') THEN
IF (NOT EXISTS(SELECT report_id
FROM report
WHERE ((report_id=NEW.pkgitem_item_id)
AND (report_name=NEW.pkgitem_name)))) THEN
RAISE EXCEPTION 'Cannot create Report % as a Package Item without a corresponding report record.',
NEW.pkgitem_name;
END IF;
ELSIF (NEW.pkgitem_type = 'S') THEN
IF (NOT EXISTS(SELECT oid
FROM pg_namespace
WHERE (LOWER(nspname)=LOWER(NEW.pkgitem_name)))) THEN
RAISE EXCEPTION 'Cannot create Schema % as a Package Item without a corresponding schema in the database.',
NEW.pkgitem_name;
END IF;
ELSIF (NEW.pkgitem_type = 'T') THEN
IF (NOT EXISTS(SELECT pg_class.oid
FROM pg_class, pg_namespace
WHERE ((relname=_object)
AND (relnamespace=pg_namespace.oid)
AND (relkind='r')
AND (nspname=_schema)))) THEN
RAISE EXCEPTION 'Cannot create Table % as a Package Item without a corresponding table in the database.',
NEW.pkgitem_name;
END IF;
ELSIF (NEW.pkgitem_type = 'U') THEN
IF (NOT EXISTS(SELECT uiform_id
FROM uiform
WHERE ((uiform_id=NEW.pkgitem_item_id)
AND (uiform_name=NEW.pkgitem_name)))) THEN
RAISE EXCEPTION 'Cannot create User Interface Form % as a Package Item without a corresponding uiform record.',
NEW.pkgitem_name;
END IF;
ELSIF (NEW.pkgitem_type = 'V') THEN
IF (NOT EXISTS(SELECT pg_class.oid
FROM pg_class, pg_namespace
WHERE ((relname=_object)
AND (relnamespace=pg_namespace.oid)
AND (relkind='v')
AND (nspname=_schema)))) THEN
RAISE EXCEPTION 'Cannot create View % as a Package Item without a corresponding view in the database.',
NEW.pkgitem_name;
END IF;
ELSE
RAISE EXCEPTION '"%" is not a valid type of package item.',
NEW.pkgitem_type;
END IF;
ELSIF (TG_OP = 'DELETE') THEN
IF _debug THEN RAISE NOTICE 'Deleting % % %', OLD.pkgitem_item_id, OLD.pkgitem_name, OLD.pkgitem_type; END IF;
_object = OLD.pkgitem_name;
SELECT pkghead_name INTO _schema
FROM pkghead
WHERE (pkghead_id=OLD.pkgitem_pkghead_id);
IF (NOT FOUND) THEN
_schema := 'public';
END IF;
IF (OLD.pkgitem_type = 'F') THEN
_object := SPLIT_PART(_object, '(', 1);
ELSIF (OLD.pkgitem_type = 'M') THEN
_group := SPLIT_PART(_object, '-', 1);
_object := SPLIT_PART(_object, '-', 2);
END IF;
IF _debug THEN
RAISE NOTICE '_schema % and _object %', _schema, _object;
END IF;
IF (OLD.pkgitem_type = 'C') THEN
DELETE FROM script WHERE ((script_id=OLD.pkgitem_item_id)
AND (script_name=OLD.pkgitem_name));
ELSIF (OLD.pkgitem_type = 'D') THEN
DELETE FROM cmd
WHERE ((cmd_id=OLD.pkgitem_item_id)
AND (cmd_name=OLD.pkgitem_name));
ELSIF (OLD.pkgitem_type = 'F') THEN
-- SELECT dropIfExists('FUNCTION', CAST (oid::regprocedure AS TEXT), _schema)
PERFORM dropIfExists('FUNCTION',
proname || '(' ||
oidvectortypes(proargtypes) || ')',
_schema)
FROM pg_proc
WHERE (oid=OLD.pkgitem_item_id);
ELSIF (OLD.pkgitem_type = 'G') THEN
PERFORM dropIfExists('TRIGGER', _object, _schema);
ELSIF (OLD.pkgitem_type = 'I') THEN
DELETE FROM image WHERE ((image_id=OLD.pkgitem_item_id)
AND (image_name=OLD.pkgitem_name));
ELSIF (OLD.pkgitem_type = 'M') THEN
DELETE FROM metasql WHERE ((metasql_id=OLD.pkgitem_item_id)
AND (metasql_group=_group)
AND (metasql_name=_object));
ELSIF (OLD.pkgitem_type = 'P') THEN
DELETE FROM priv
WHERE ((priv_id=OLD.pkgitem_item_id)
AND (priv_name=OLD.pkgitem_name));
ELSIF (OLD.pkgitem_type = 'R') THEN
DELETE FROM report
WHERE ((report_id=OLD.pkgitem_item_id)
AND (report_name=OLD.pkgitem_name));
ELSIF (OLD.pkgitem_type = 'S') THEN
PERFORM dropIfExists('SCHEMA', OLD.pkgitem_name, OLD.pkgitem_name);
ELSIF (OLD.pkgitem_type = 'T') THEN
PERFORM dropIfExists('TABLE', _object, _schema, true);
ELSIF (OLD.pkgitem_type = 'U') THEN
DELETE FROM uiform
WHERE ((uiform_id=OLD.pkgitem_item_id)
AND (uiform_name=OLD.pkgitem_name));
ELSIF (OLD.pkgitem_type = 'V') THEN
PERFORM dropIfExists('VIEW', _object, _schema, true);
ELSE
RAISE EXCEPTION '"%" is not a valid type of package item.',
OLD.pkgitem_type;
END IF;
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgitembeforetrigger() OWNER TO admin;
--
-- Name: _pkgmetasqlaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgmetasqlaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgmetasqlaftertrigger() OWNER TO admin;
--
-- Name: _pkgmetasqlaltertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgmetasqlaltertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_isdba BOOLEAN := false;
BEGIN
SELECT rolsuper INTO _isdba FROM pg_roles WHERE (rolname=getEffectiveXtUser());
IF (pkgMayBeModified(TG_TABLE_SCHEMA)) THEN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
ELSE
RETURN NEW;
END IF;
END IF;
-- cannot combine IF's because plpgsql does not always evaluate left-to-right
IF (TG_OP = 'INSERT') THEN
IF (NEW.metasql_grade <= 0 AND NOT _isdba) THEN
RAISE EXCEPTION 'You may not create grade 0 MetaSQL statements in packages except using the xTuple Updater utility';
END IF;
ELSIF (TG_OP = 'UPDATE') THEN
IF (NEW.metasql_grade <= 0 AND NOT _isdba) THEN
RAISE EXCEPTION 'You may not alter grade 0 MetaSQL statements in packages except using the xTuple Updater utility';
END IF;
ELSIF (TG_OP = 'DELETE') THEN
IF (OLD.metasql_grade <= 0 AND NOT _isdba) THEN
RAISE EXCEPTION 'You may not delete grade 0 MetaSQL statements from packages. Try deleting or disabling the package.';
ELSE
RETURN OLD;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgmetasqlaltertrigger() OWNER TO admin;
--
-- Name: _pkgmetasqlbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgmetasqlbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_metasqlid INTEGER;
_isdba BOOLEAN := false;
BEGIN
SELECT rolsuper INTO _isdba FROM pg_roles WHERE (rolname=getEffectiveXtUser());
IF (NOT (_isdba OR checkPrivilege('MaintainMetaSQL'))) THEN
RAISE EXCEPTION '% does not have privileges to maintain MetaSQL statements in %.% (DBA=%)',
getEffectiveXtUser(), TG_TABLE_SCHEMA, TG_TABLE_NAME, _isdba;
END IF;
IF (TG_OP = 'UPDATE') THEN
RAISE DEBUG 'update OLD %-%-%, NEW %-%-%',
OLD.metasql_group, OLD.metasql_name, OLD.metasql_grade,
NEW.metasql_group, NEW.metasql_name, NEW.metasql_grade;
IF (NEW.metasql_name != OLD.metasql_name OR NEW.metasql_group != OLD.metasql_group OR NEW.metasql_grade != OLD.metasql_grade) THEN
SELECT metasql_id INTO _metasqlid
FROM metasql
WHERE metasql_name=NEW.metasql_name AND metasql_group=NEW.metasql_group AND metasql_grade=NEW.metasql_grade;
IF (FOUND) THEN
RAISE EXCEPTION 'Cannot change the MetaSQL statement named %-%-% because another MetaSQL statement with that group, name and grade already exists.', NEW.metasql_group, NEW.metasql_name, NEW.metasql_grade;
END IF;
END IF;
ELSIF (TG_OP = 'INSERT') THEN
RAISE DEBUG 'insert NEW %-% %',
NEW.metasql_group, NEW.metasql_name, NEW.metasql_grade;
SELECT metasql_id INTO _metasqlid
FROM metasql
WHERE metasql_name=NEW.metasql_name AND metasql_group=NEW.metasql_group AND metasql_grade=NEW.metasql_grade;
IF (FOUND) THEN
RAISE EXCEPTION 'The new MetaSQL statement %-% % conflicts with an existing statement.',
NEW.metasql_group, NEW.metasql_name, NEW.metasql_grade;
END IF;
ELSIF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgmetasqlbeforetrigger() OWNER TO admin;
--
-- Name: _pkgprivaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgprivaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgprivaftertrigger() OWNER TO admin;
--
-- Name: _pkgprivaltertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgprivaltertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (pkgMayBeModified(TG_TABLE_SCHEMA)) THEN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
ELSE
RETURN NEW;
END IF;
END IF;
IF (TG_OP = 'INSERT') THEN
RAISE EXCEPTION 'You may not create privileges in packages except using the xTuple Updater utility';
ELSIF (TG_OP = 'UPDATE') THEN
RAISE EXCEPTION 'You may not alter privileges in packages except using the xTuple Updater utility';
ELSIF (TG_OP = 'DELETE') THEN
RAISE EXCEPTION 'You may not delete privileges from packages. Try deleting or disabling the package.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgprivaltertrigger() OWNER TO admin;
--
-- Name: _pkgprivbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgprivbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_privid INTEGER;
_debug BOOL := false;
BEGIN
IF (TG_OP = 'UPDATE') THEN
IF (_debug) THEN
RAISE NOTICE 'OLD.priv_name %, NEW.priv_name %',
OLD.priv_name, NEW.priv_name;
END IF;
IF (NEW.priv_name != OLD.priv_name) THEN
SELECT priv_id INTO _privid FROM priv WHERE priv_name=NEW.priv_name;
IF (FOUND) THEN
RAISE EXCEPTION 'Cannot change privilege name % because another privilege with that name already exists.', NEW.priv_name;
END IF;
END IF;
ELSIF (TG_OP = 'INSERT') THEN
IF (_debug) THEN
RAISE NOTICE 'inserting NEW.priv_name %', NEW.priv_name;
END IF;
SELECT priv_id INTO _privid FROM priv WHERE priv_name=NEW.priv_name;
IF (FOUND) THEN
RAISE EXCEPTION 'Cannot create new privilege % because another privilege with that name already exists.', NEW.priv_name;
END IF;
ELSIF (TG_OP = 'DELETE') THEN
IF (_debug) THEN RAISE NOTICE 'deleting pkgpriv_id %', OLD.priv_id; END IF;
DELETE FROM usrpriv WHERE usrpriv_priv_id=OLD.priv_id;
DELETE FROM grppriv WHERE grppriv_priv_id=OLD.priv_id;
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgprivbeforetrigger() OWNER TO admin;
--
-- Name: _pkgreportaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgreportaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgreportaftertrigger() OWNER TO admin;
--
-- Name: _pkgreportaltertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgreportaltertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (pkgMayBeModified(TG_TABLE_SCHEMA)) THEN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
ELSE
RETURN NEW;
END IF;
END IF;
IF (TG_OP = 'INSERT') THEN
RAISE EXCEPTION 'You may not create report definitions in packages except using the xTuple Updater utility';
ELSIF (TG_OP = 'UPDATE') THEN
RAISE EXCEPTION 'You may not alter report definitions in packages except using the xTuple Updater utility';
ELSIF (TG_OP = 'DELETE') THEN
RAISE EXCEPTION 'You may not delete report definitions from packages. Try deleting or disabling the package.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgreportaltertrigger() OWNER TO admin;
--
-- Name: _pkgreportbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgreportbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_reportid INTEGER;
_debug BOOL := false;
BEGIN
IF (TG_OP = 'UPDATE') THEN
IF (_debug) THEN
RAISE NOTICE 'update OLD % %, NEW % %',
OLD.report_name, OLD.report_grade, NEW.report_name, NEW.report_grade;
END IF;
IF (NEW.report_name != OLD.report_name) THEN
SELECT report_id INTO _reportid
FROM report
WHERE ((report_name=NEW.report_name)
AND (report_grade=NEW.report_grade));
IF (FOUND) THEN
RAISE EXCEPTION 'Cannot change report % % because another report with that name and grade already exists.', NEW.report_name, NEW.report_grade;
END IF;
END IF;
ELSIF (TG_OP = 'INSERT') THEN
IF (_debug) THEN
RAISE NOTICE 'insert NEW % %', NEW.report_name, NEW.report_grade;
END IF;
SELECT report_id INTO _reportid
FROM report
WHERE ((report_name=NEW.report_name)
AND (report_grade=NEW.report_grade));
IF (FOUND) THEN
RAISE EXCEPTION 'Cannot create new report % % because another report with that name and grade already exists.', NEW.report_name, NEW.report_grade;
END IF;
ELSIF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgreportbeforetrigger() OWNER TO admin;
--
-- Name: _pkgscriptaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgscriptaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgscriptaftertrigger() OWNER TO admin;
--
-- Name: _pkgscriptaltertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgscriptaltertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (pkgMayBeModified(TG_TABLE_SCHEMA)) THEN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
ELSE
RETURN NEW;
END IF;
END IF;
IF (TG_OP = 'INSERT') THEN
RAISE EXCEPTION 'You may not create scripts in packages except using the xTuple Updater utility';
ELSIF (TG_OP = 'UPDATE') THEN
RAISE EXCEPTION 'You may not alter scripts in packages except using the xTuple Updater utility';
ELSIF (TG_OP = 'DELETE') THEN
RAISE EXCEPTION 'You may not delete scripts from packages. Try deleting or disabling the package.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgscriptaltertrigger() OWNER TO admin;
--
-- Name: _pkgscriptbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkgscriptbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_scriptid INTEGER;
_debug BOOL := false;
BEGIN
IF (TG_OP = 'UPDATE') THEN
RETURN NEW;
ELSIF (TG_OP = 'INSERT') THEN
RETURN NEW;
ELSIF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkgscriptbeforetrigger() OWNER TO admin;
--
-- Name: _pkguiformaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkguiformaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkguiformaftertrigger() OWNER TO admin;
--
-- Name: _pkguiformaltertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkguiformaltertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (pkgMayBeModified(TG_TABLE_SCHEMA)) THEN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
ELSE
RETURN NEW;
END IF;
END IF;
IF (TG_OP = 'INSERT') THEN
RAISE EXCEPTION 'You may not create forms in packages except using the xTuple Updater utility';
ELSIF (TG_OP = 'UPDATE') THEN
RAISE EXCEPTION 'You may not alter forms in packages except using the xTuple Updater utility';
ELSIF (TG_OP = 'DELETE') THEN
RAISE EXCEPTION 'You may not delete forms from packages. Try deleting or disabling the package.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkguiformaltertrigger() OWNER TO admin;
--
-- Name: _pkguiformbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _pkguiformbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_uiformid INTEGER;
_debug BOOL := false;
BEGIN
IF (TG_OP = 'UPDATE') THEN
RETURN NEW;
ELSIF (TG_OP = 'INSERT') THEN
RETURN NEW;
ELSIF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._pkguiformbeforetrigger() OWNER TO admin;
--
-- Name: _poheadtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _poheadtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
_check BOOLEAN;
_maint BOOLEAN := TRUE;
BEGIN
-- Check if we are doing maintenance
IF (TG_OP = 'UPDATE') THEN
IF ( (OLD.pohead_status != NEW.pohead_status) OR
(OLD.pohead_printed != NEW.pohead_printed) ) THEN
_maint := FALSE;
END IF;
END IF;
-- Check
IF ( (NOT _maint) AND (NOT checkPrivilege('MaintainPurchaseOrders'))
AND (NOT checkPrivilege('PostPurchaseOrders'))
AND (NOT checkPrivilege('PrintPurchaseOrders'))
AND (NOT checkPrivilege('PostVouchers')) ) THEN
RAISE EXCEPTION 'You do not have privileges to alter a Purchase Order.';
END IF;
IF ( _maint AND (NOT checkPrivilege('MaintainPurchaseOrders')) ) THEN
RAISE EXCEPTION 'You do not have privileges to alter a Purchase Order.';
END IF;
IF (TG_OP = 'INSERT') THEN
--- clear the number from the issue cache
PERFORM clearNumberIssue('PoNumber', NEW.pohead_number);
END IF;
IF ( (TG_OP = 'INSERT') OR (TG_op = 'UPDATE') ) THEN
IF (NOT ISNUMERIC(NEW.pohead_number) AND NEW.pohead_saved) THEN
RAISE EXCEPTION 'Purchase Order Number must be numeric.';
END IF;
END IF;
IF ( SELECT (metric_value='t')
FROM metric
WHERE (metric_name='POChangeLog') ) THEN
-- Cache the cmnttype_id for ChangeLog
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
IF (FOUND) THEN
IF (TG_OP = 'INSERT') THEN
PERFORM postComment(_cmnttypeid, 'P', NEW.pohead_id, 'Created');
ELSIF (TG_OP = 'UPDATE') THEN
IF (OLD.pohead_terms_id <> NEW.pohead_terms_id) THEN
PERFORM postComment( _cmnttypeid, 'P', NEW.pohead_id,
('Terms Changed from "' || oldterms.terms_code || '" to "' || newterms.terms_code || '"') )
FROM terms AS oldterms, terms AS newterms
WHERE ( (oldterms.terms_id=OLD.pohead_terms_id)
AND (newterms.terms_id=NEW.pohead_terms_id) );
END IF;
ELSIF (TG_OP = 'DELETE') THEN
DELETE FROM docass WHERE docass_source_id = OLD.pohead_id AND docass_source_type = 'P';
DELETE FROM docass WHERE docass_target_id = OLD.pohead_id AND docass_target_type = 'P';
DELETE FROM comment
WHERE ( (comment_source='P')
AND (comment_source_id=OLD.pohead_id) );
END IF;
END IF;
END IF;
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
ELSE
RETURN NEW;
END IF;
END;
$$;
ALTER FUNCTION public._poheadtrigger() OWNER TO admin;
--
-- Name: _poheadtriggerafter(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _poheadtriggerafter() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (COALESCE(NEW.pohead_taxzone_id,-1) <> COALESCE(OLD.pohead_taxzone_id,-1)) THEN
UPDATE poitem SET poitem_taxtype_id=getItemTaxType(itemsite_item_id,NEW.pohead_taxzone_id)
FROM itemsite
WHERE ((itemsite_id=poitem_itemsite_id)
AND (poitem_pohead_id=NEW.pohead_id));
END IF;
-- Do not update closed poitems
IF (TG_OP = 'UPDATE') THEN
IF (OLD.pohead_status != NEW.pohead_status) THEN
UPDATE poitem
SET poitem_status=NEW.pohead_status
WHERE ( (poitem_pohead_id=NEW.pohead_id)
AND (poitem_status <> 'C') );
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._poheadtriggerafter() OWNER TO admin;
--
-- Name: _poitemtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _poitemtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
_status CHAR(1);
_check BOOLEAN;
_cnt INTEGER;
_s RECORD;
BEGIN
-- Check
IF ( (TG_OP = 'UPDATE') AND
(NOT checkPrivilege('MaintainPurchaseOrders')) AND
(NOT checkPrivilege('ChangePurchaseOrderQty')) AND
(NOT checkPrivilege('EnterReceipts')) AND
(NOT checkPrivilege('PostVouchers')) ) THEN
RAISE EXCEPTION 'You do not have privileges to alter a Purchase Order.';
END IF;
IF ( ( (TG_OP = 'INSERT') OR (TG_OP = 'DELETE') ) AND (NOT checkPrivilege('MaintainPurchaseOrders')) ) THEN
RAISE EXCEPTION 'You do not have privileges to alter a Purchase Order.';
END IF;
IF (TG_OP = 'INSERT' OR TG_OP = 'UPDATE') THEN
SELECT pohead_status INTO _status
FROM pohead
WHERE (pohead_id=NEW.poitem_pohead_id);
IF (NEW.poitem_itemsite_id=-1) THEN
NEW.poitem_itemsite_id := NULL;
END IF;
IF (NEW.poitem_expcat_id=-1) THEN
NEW.poitem_expcat_id := NULL;
END IF;
IF (NEW.poitem_itemsite_id IS NOT NULL AND NEW.poitem_expcat_id IS NOT NULL) THEN
RAISE EXCEPTION 'A purchase order line may not include both an inventory and non-inventory item';
ELSIF (NEW.poitem_itemsite_id IS NULL AND NEW.poitem_expcat_id IS NULL) THEN
RAISE EXCEPTION 'A purchase order line must specify either an inventory item or a non-inventory expense category';
ELSIF (NEW.poitem_qty_ordered IS NULL) THEN
RAISE EXCEPTION 'A purchase order line must specify a quantity';
ELSIF (COALESCE(NEW.poitem_itemsite_id,-1) != -1) THEN
SELECT (COUNT(item_id)=1) INTO _check
FROM itemsite, item
WHERE ((itemsite_id=NEW.poitem_itemsite_id)
AND (itemsite_item_id=item_id)
AND (item_type IN ('P','O','M','T')));
IF NOT (_check) THEN
RAISE EXCEPTION 'The item is not a purchasable item type';
END IF;
END IF;
END IF;
IF (TG_OP = 'INSERT') THEN
IF (_status='C') THEN
RAISE EXCEPTION 'New lines may not be inserted into a closed purchase order';
END IF;
--Fetch and apply default item source data if applicable
IF ((NEW.poitem_itemsrc_id IS NULL) AND (NEW.poitem_itemsite_id IS NOT NULL)) THEN
IF (NEW.poitem_itemsrc_id IS NULL) THEN
SELECT COUNT(itemsrc_id) INTO _cnt
FROM pohead,itemsrc,itemsite
WHERE ((pohead_id=NEW.poitem_pohead_id)
AND (pohead_vend_id=itemsrc_vend_id)
AND (itemsite_id=NEW.poitem_itemsite_id)
AND (itemsite_item_id=itemsrc_item_id));
IF (_cnt = 1) THEN
-- We found the one and only item source, so populate data for it
SELECT itemsrc.* INTO _s
FROM pohead,itemsrc,itemsite
WHERE ((pohead_id=NEW.poitem_pohead_id)
AND (pohead_vend_id=itemsrc_vend_id)
AND (itemsite_id=NEW.poitem_itemsite_id)
AND (itemsite_item_id=itemsrc_item_id));
IF (FOUND) THEN
NEW.poitem_itemsrc_id := _s.itemsrc_id;
NEW.poitem_vend_uom := _s.itemsrc_vend_uom;
NEW.poitem_invvenduomratio := _s.itemsrc_invvendoruomratio;
NEW.poitem_duedate := COALESCE(NEW.poitem_duedate, CURRENT_DATE + _s.itemsrc_leadtime);
NEW.poitem_vend_item_number := COALESCE(NEW.poitem_vend_item_number,_s.itemsrc_vend_item_number);
NEW.poitem_vend_item_descrip := COALESCE(NEW.poitem_vend_item_descrip,_s.itemsrc_vend_item_descrip);
NEW.poitem_manuf_name := COALESCE(NEW.poitem_manuf_name,_s.itemsrc_manuf_name);
NEW.poitem_manuf_item_number := COALESCE(NEW.poitem_manuf_item_number, _s.itemsrc_manuf_item_number);
NEW.poitem_manuf_item_descrip := COALESCE(NEW.poitem_manuf_item_descrip, _s.itemsrc_manuf_item_descrip);
END IF;
ELSIF (_cnt > 1) THEN
-- There are multiple sources, see if there is an exact match with provided vendor info.
SELECT itemsrc.* INTO _s
FROM pohead,itemsrc,itemsite
WHERE ((pohead_id=NEW.poitem_pohead_id)
AND (pohead_vend_id=itemsrc_vend_id)
AND (itemsite_id=NEW.poitem_itemsite_id)
AND (itemsite_item_id=itemsrc_item_id)
AND (NEW.poitem_vend_item_number=itemsrc_vend_item_number)
AND (COALESCE(NEW.poitem_manuf_name,'')=COALESCE(itemsrc_manuf_name,''))
AND (COALESCE(NEW.poitem_manuf_item_number,'')=COALESCE(itemsrc_manuf_item_number,'')));
IF (FOUND) THEN
NEW.poitem_itemsrc_id := _s.itemsrc_id;
NEW.poitem_vend_uom := _s.itemsrc_vend_uom;
NEW.poitem_invvenduomratio := _s.itemsrc_invvendoruomratio;
NEW.poitem_duedate := COALESCE(NEW.poitem_duedate, CURRENT_DATE + _s.itemsrc_leadtime);
NEW.poitem_vend_item_descrip := COALESCE(NEW.poitem_vend_item_descrip,_s.itemsrc_vend_item_descrip);
NEW.poitem_manuf_item_descrip := COALESCE(NEW.poitem_manuf_item_descrip, _s.itemsrc_manuf_item_descrip);
END IF;
END IF;
END IF;
END IF;
IF (NEW.poitem_duedate IS NULL) THEN
RAISE EXCEPTION 'A due date is required';
END IF;
--Set defaults
NEW.poitem_linenumber := COALESCE(NEW.poitem_linenumber,(
SELECT COALESCE(MAX(poitem_linenumber),0) + 1
FROM poitem
WHERE (poitem_pohead_id=NEW.poitem_pohead_id)));
NEW.poitem_status := _status;
NEW.poitem_invvenduomratio := COALESCE(NEW.poitem_invvenduomratio,1);
IF (NEW.poitem_invvenduomratio = 0.0) THEN
NEW.poitem_invvenduomratio = 1.0;
END IF;
NEW.poitem_vend_item_number := COALESCE(NEW.poitem_vend_item_number,'');
NEW.poitem_vend_item_descrip := COALESCE(NEW.poitem_vend_item_descrip,'');
NEW.poitem_unitprice := COALESCE(NEW.poitem_unitprice,(
SELECT itemsrcPrice(NEW.poitem_itemsrc_id, COALESCE(itemsite_warehous_id, -1), pohead_dropship,
NEW.poitem_qty_ordered, pohead_curr_id, CURRENT_DATE)
FROM itemsite, pohead
WHERE ( (itemsite_id=NEW.poitem_itemsite_id)
AND (pohead_id=NEW.poitem_pohead_id) )), 0.0);
NEW.poitem_stdcost := COALESCE(NEW.poitem_stdcost,(
SELECT stdcost(itemsite_item_id)
FROM itemsite
WHERE (itemsite_id=NEW.poitem_itemsite_id)));
NEW.poitem_bom_rev_id := COALESCE(NEW.poitem_bom_rev_id,(
SELECT getActiveRevId('BOM',itemsite_item_id)
FROM itemsite
WHERE (itemsite_id=NEW.poitem_itemsite_id)));
NEW.poitem_boo_rev_id := COALESCE(NEW.poitem_boo_rev_id,(
SELECT getActiveRevId('BOO',itemsite_item_id)
FROM itemsite
WHERE (itemsite_id=NEW.poitem_itemsite_id)));
NEW.poitem_comments := COALESCE(NEW.poitem_comments,'');
NEW.poitem_freight := COALESCE(NEW.poitem_freight,0);
NEW.poitem_qty_received := 0;
NEW.poitem_qty_returned := 0;
NEW.poitem_qty_vouchered := 0;
-- Insert Event Start
INSERT INTO evntlog ( evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id, evntlog_number )
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'P', NEW.poitem_id, itemsite_warehous_id, (pohead_number || '-' || NEW.poitem_linenumber || ': ' || item_number)
FROM evntnot, evnttype, itemsite, item, pohead
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (evntnot_warehous_id=itemsite_warehous_id)
AND (itemsite_id=NEW.poitem_itemsite_id)
AND (itemsite_item_id=item_id)
AND (NEW.poitem_pohead_id=pohead_id)
AND (NEW.poitem_duedate <= (CURRENT_DATE + itemsite_eventfence))
AND (evnttype_name='POitemCreate') );
-- Insert Event End
END IF;
IF ( SELECT (metric_value='t')
FROM metric
WHERE (metric_name='POChangeLog') ) THEN
-- Cache the cmnttype_id for ChangeLog
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
IF (FOUND) THEN
IF (TG_OP = 'INSERT') THEN
PERFORM postComment(_cmnttypeid, 'P', NEW.poitem_pohead_id, ('Created Line #' || NEW.poitem_linenumber::TEXT));
PERFORM postComment(_cmnttypeid, 'PI', NEW.poitem_id, 'Created');
ELSIF (TG_OP = 'UPDATE') THEN
IF (NEW.poitem_qty_ordered <> OLD.poitem_qty_ordered) THEN
PERFORM postComment( _cmnttypeid, 'PI', NEW.poitem_id,
( 'Qty. Ordered Changed from ' || formatQty(OLD.poitem_qty_ordered) ||
' to ' || formatQty(NEW.poitem_qty_ordered ) ) );
END IF;
IF (NEW.poitem_unitprice <> OLD.poitem_unitprice) THEN
PERFORM postComment( _cmnttypeid, 'PI', NEW.poitem_id,
( 'Unit Price Changed from ' || formatPurchPrice(OLD.poitem_unitprice) ||
' to ' || formatPurchPrice(NEW.poitem_unitprice ) ) );
END IF;
IF (NEW.poitem_duedate <> OLD.poitem_duedate) THEN
PERFORM postComment( _cmnttypeid, 'PI', NEW.poitem_id,
( 'Due Date Changed from ' || formatDate(OLD.poitem_duedate) ||
' to ' || formatDate(NEW.poitem_duedate ) ) );
END IF;
IF (COALESCE(OLD.poitem_taxtype_id, -1) <> COALESCE(NEW.poitem_taxtype_id, -1)) THEN
PERFORM postComment( _cmnttypeid, 'PI', NEW.poitem_id,
( 'Tax Type Changed from "' ||
COALESCE((SELECT taxtype_name FROM taxtype WHERE taxtype_id=OLD.poitem_taxtype_id), 'None') ||
'" (' || COALESCE(OLD.poitem_taxtype_id, 0) ||
') to "' ||
COALESCE((SELECT taxtype_name FROM taxtype WHERE taxtype_id=NEW.poitem_taxtype_id), 'None') ||
'" (' || COALESCE(NEW.poitem_taxtype_id, 0) || ')' ) );
END IF;
IF (NEW.poitem_status <> OLD.poitem_status) THEN
IF (NEW.poitem_status = 'C') THEN
PERFORM postComment(_cmnttypeid, 'PI', NEW.poitem_id, 'Closed');
ELSIF (NEW.poitem_status = 'O') THEN
PERFORM postComment(_cmnttypeid, 'PI', NEW.poitem_id, 'Opened');
END IF;
END IF;
ELSIF (TG_OP = 'DELETE') THEN
PERFORM postComment(_cmnttypeid, 'P', OLD.poitem_pohead_id, ('Deleted Line #' || OLD.poitem_linenumber::TEXT));
END IF;
END IF;
END IF;
IF (TG_OP = 'DELETE') THEN
IF (EXISTS(SELECT recv_id
FROM recv
WHERE ((recv_order_type='PO')
AND (recv_orderitem_id=OLD.poitem_id)
AND (recv_qty>0)))) THEN
RAISE EXCEPTION 'Cannot delete an P/O Item which has been received';
END IF;
DELETE FROM comment
WHERE ( (comment_source='PI')
AND (comment_source_id=OLD.poitem_id) );
DELETE FROM charass
WHERE ((charass_target_type='PI')
AND (charass_target_id=OLD.poitem_id));
IF (OLD.poitem_status = 'O') THEN
IF ( (SELECT (count(*) < 1)
FROM poitem
WHERE ((poitem_pohead_id=OLD.poitem_pohead_id)
AND (poitem_id != OLD.poitem_id)
AND (poitem_status <> 'C')) ) ) THEN
UPDATE pohead SET pohead_status = 'C'
WHERE ((pohead_id=OLD.poitem_pohead_id)
AND (pohead_status='O'));
END IF;
END IF;
RETURN OLD;
ELSE
IF (TG_OP = 'UPDATE') THEN
IF (NEW.poitem_itemsite_id != OLD.poitem_itemsite_id) THEN
RAISE EXCEPTION 'You may not change the item site for a line item.';
ELSIF (NEW.poitem_expcat_id != OLD.poitem_expcat_id) THEN
RAISE EXCEPTION 'You may not change the expense category for a line item.';
END IF;
IF (OLD.poitem_status <> NEW.poitem_status) THEN
IF ( (SELECT (count(*) < 1)
FROM poitem
WHERE ((poitem_pohead_id=NEW.poitem_pohead_id)
AND (poitem_id != NEW.poitem_id)
AND (poitem_status<>'C')) ) AND (NEW.poitem_status='C') ) THEN
UPDATE pohead SET pohead_status = 'C'
WHERE ((pohead_id=NEW.poitem_pohead_id)
AND (pohead_status='O'));
ELSE
UPDATE pohead SET pohead_status = 'O'
WHERE ((pohead_id=NEW.poitem_pohead_id)
AND (pohead_status='C'));
END IF;
END IF;
END IF;
RETURN NEW;
END IF;
END;
$$;
ALTER FUNCTION public._poitemtrigger() OWNER TO admin;
--
-- Name: _prjaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _prjaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
BEGIN
-- Cache the cmnttype_id for ChangeLog
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Comment type ChangeLog not found';
END IF;
IF (TG_OP = 'INSERT') THEN
PERFORM postComment(_cmnttypeid, 'J', NEW.prj_id, 'Created');
ELSIF (TG_OP = 'UPDATE') THEN
IF (OLD.prj_start_date <> NEW.prj_start_date) THEN
PERFORM postComment( _cmnttypeid, 'J', NEW.prj_id,
('Start Date Changed from ' || formatDate(OLD.prj_start_date) || ' to ' || formatDate(NEW.prj_start_date)) );
END IF;
IF (OLD.prj_due_date <> NEW.prj_due_date) THEN
PERFORM postComment( _cmnttypeid, 'J', NEW.prj_id,
('Due Date Changed from ' || formatDate(OLD.prj_due_date) || ' to ' || formatDate(NEW.prj_due_date)) );
END IF;
IF (OLD.prj_assigned_date <> NEW.prj_assigned_date) THEN
PERFORM postComment( _cmnttypeid, 'J', NEW.prj_id,
('Assigned Date Changed from ' || formatDate(OLD.prj_assigned_date) || ' to ' || formatDate(NEW.prj_assigned_date)) );
END IF;
IF (OLD.prj_completed_date <> NEW.prj_completed_date) THEN
PERFORM postComment( _cmnttypeid, 'J', NEW.prj_id,
('Completed Date Changed from ' || formatDate(OLD.prj_completed_date) || ' to ' || formatDate(NEW.prj_completed_date)) );
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._prjaftertrigger() OWNER TO admin;
--
-- Name: _prjbeforedeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _prjbeforedeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_recurid INTEGER;
_newparentid INTEGER;
BEGIN
IF (TG_OP = 'DELETE') THEN
DELETE FROM docass WHERE docass_source_id = OLD.prj_id AND docass_source_type = 'J';
DELETE FROM docass WHERE docass_target_id = OLD.prj_id AND docass_target_type = 'J';
SELECT recur_id INTO _recurid
FROM recur
WHERE ((recur_parent_id=OLD.prj_id)
AND (recur_parent_type='J'));
IF (_recurid IS NOT NULL) THEN
SELECT MIN(prj_id) INTO _newparentid
FROM prj
WHERE ((prj_recurring_prj_id=OLD.prj_id)
AND (prj_id!=OLD.prj_id));
-- client is responsible for warning about deleting a recurring prj
IF (_newparentid IS NULL) THEN
DELETE FROM recur WHERE recur_id=_recurid;
ELSE
UPDATE recur SET recur_parent_id=_newparentid
WHERE recur_id=_recurid;
END IF;
END IF;
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._prjbeforedeletetrigger() OWNER TO admin;
--
-- Name: _prjtaskaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _prjtaskaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
BEGIN
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Comment type ChangeLog not found';
END IF;
IF (TG_OP = 'INSERT') THEN
PERFORM postComment(_cmnttypeid, 'TA', NEW.prjtask_id, 'Created');
ELSIF (TG_OP = 'UPDATE') THEN
IF (OLD.prjtask_start_date <> NEW.prjtask_start_date) THEN
PERFORM postComment( _cmnttypeid, 'TA', NEW.prjtask_id,
('Start Date Changed from ' || formatDate(OLD.prjtask_start_date) || ' to ' || formatDate(NEW.prjtask_start_date)) );
END IF;
IF (OLD.prjtask_due_date <> NEW.prjtask_due_date) THEN
PERFORM postComment( _cmnttypeid, 'TA', NEW.prjtask_id,
('Due Date Changed from ' || formatDate(OLD.prjtask_due_date) || ' to ' || formatDate(NEW.prjtask_due_date)) );
END IF;
IF (OLD.prjtask_assigned_date <> NEW.prjtask_assigned_date) THEN
PERFORM postComment( _cmnttypeid, 'TA', NEW.prjtask_id,
('Assigned Date Changed from ' || formatDate(OLD.prjtask_assigned_date) || ' to ' || formatDate(NEW.prjtask_assigned_date)) );
END IF;
IF (OLD.prjtask_completed_date <> NEW.prjtask_completed_date) THEN
PERFORM postComment( _cmnttypeid, 'TA', NEW.prjtask_id,
('Completed Date Changed from ' || formatDate(OLD.prjtask_completed_date) || ' to ' || formatDate(NEW.prjtask_completed_date)) );
END IF;
IF (OLD.prjtask_hours_actual != NEW.prjtask_hours_actual) THEN
PERFORM postComment(_cmnttypeid, 'TA', NEW.prjtask_id,
'Actual Hours changed from ' || formatQty(OLD.prjtask_hours_actual) || ' to ' || formatQty(NEW.prjtask_hours_actual));
END IF;
IF (OLD.prjtask_exp_actual != NEW.prjtask_exp_actual) THEN
PERFORM postComment(_cmnttypeid, 'TA', NEW.prjtask_id,
'Actual Expense changed from ' || formatQty(OLD.prjtask_exp_actual) || ' to ' || formatQty(NEW.prjtask_exp_actual));
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._prjtaskaftertrigger() OWNER TO admin;
--
-- Name: _prjtasktrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _prjtasktrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
-- Checks
IF (NEW.prjtask_owner_username=getEffectiveXtUser()) THEN
IF (NOT checkPrivilege('MaintainAllProjects') AND NOT checkPrivilege('MaintainPersonalProjects')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Projects.';
END IF;
ELSIF (NOT checkPrivilege('MaintainAllProjects')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Projects.';
ELSIF (LENGTH(COALESCE(NEW.prjtask_number,'')) = 0) THEN
RAISE EXCEPTION 'You must ender a valid number.';
ELSIF (LENGTH(COALESCE(NEW.prjtask_name,'')) = 0) THEN
RAISE EXCEPTION 'You must ender a valid name.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._prjtasktrigger() OWNER TO admin;
--
-- Name: _prospectafterdeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _prospectafterdeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF EXISTS(SELECT 1 FROM quhead WHERE quhead_cust_id = OLD.prospect_id) AND
NOT EXISTS (SELECT 1 FROM custinfo WHERE cust_id = OLD.prospect_id) THEN
RAISE EXCEPTION '[xtuple: deleteProspect, -1]';
END IF;
IF (fetchMetricBool('ProspectChangeLog')) THEN
PERFORM postComment(cmnttype_id, 'PSPCT', OLD.prospect_id,
'Deleted "' || OLD.prospect_number || '"')
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
END IF;
RETURN OLD;
END;
$$;
ALTER FUNCTION public._prospectafterdeletetrigger() OWNER TO admin;
--
-- Name: _prospectaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _prospectaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
_custid INTEGER;
_prospectid INTEGER;
BEGIN
IF (TG_OP = 'INSERT') THEN
SELECT crmacct_cust_id, crmacct_prospect_id INTO _custid, _prospectid
FROM crmacct
WHERE crmacct_number=NEW.prospect_number;
IF (_custid > 0 AND _custid != _prospectid) THEN
RAISE EXCEPTION '[xtuple: createProspect, -2]';
END IF;
IF (_prospectid > 0) THEN
RAISE EXCEPTION '[xtuple: createProspect, -3]';
END IF;
-- http://www.postgresql.org/docs/current/static/plpgsql-control-structures.html#PLPGSQL-UPSERT-EXAMPLE
LOOP
UPDATE crmacct SET crmacct_prospect_id=NEW.prospect_id,
crmacct_cust_id=NULL,
crmacct_name=NEW.prospect_name
WHERE crmacct_number=NEW.prospect_number;
IF (FOUND) THEN
EXIT;
END IF;
BEGIN
INSERT INTO crmacct(crmacct_number, crmacct_name,
crmacct_active, crmacct_type,
crmacct_prospect_id, crmacct_cntct_id_1
) VALUES (NEW.prospect_number, NEW.prospect_name,
NEW.prospect_active, 'O',
NEW.prospect_id, NEW.prospect_cntct_id);
EXIT;
EXCEPTION WHEN unique_violation THEN
-- do nothing, and loop to try the UPDATE again
END;
END LOOP;
/* TODO: default characteristic assignments based on what? */
ELSIF (TG_OP = 'UPDATE') THEN
UPDATE crmacct SET crmacct_number = NEW.prospect_number
WHERE ((crmacct_prospect_id=NEW.prospect_id)
AND (crmacct_number!=NEW.prospect_number));
UPDATE crmacct SET crmacct_name = NEW.prospect_name
WHERE ((crmacct_prospect_id=NEW.prospect_id)
AND (crmacct_name!=NEW.prospect_name));
END IF;
IF (fetchMetricBool('ProspectChangeLog')) THEN
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
IF (_cmnttypeid IS NOT NULL) THEN
IF (TG_OP = 'INSERT') THEN
PERFORM postComment(_cmnttypeid, 'PSPCT', NEW.prospect_id, 'Created');
ELSIF (TG_OP = 'UPDATE') THEN
IF (OLD.prospect_active <> NEW.prospect_active) THEN
PERFORM postComment(_cmnttypeid, 'PSPCT', NEW.prospect_id,
CASE WHEN NEW.prospect_active THEN 'Activated'
ELSE 'Deactivated' END);
END IF;
IF (OLD.prospect_number <> NEW.prospect_number) THEN
PERFORM postComment(_cmnttypeid, 'PSPCT', NEW.prospect_id,
'Number changed from "' || OLD.prospect_number ||
'" to "' || NEW.prospect_number || '"');
END IF;
IF (OLD.prospect_name <> NEW.prospect_name) THEN
PERFORM postComment(_cmnttypeid, 'PSPCT', NEW.prospect_id,
'Name changed from "' || OLD.prospect_name ||
'" to "' || NEW.prospect_name || '"');
END IF;
IF (OLD.prospect_cntct_id <> NEW.prospect_cntct_id) THEN
PERFORM postComment(_cmnttypeid, 'PSPCT', NEW.prospect_id,
'Contact changed from "' ||
formatCntctName(OLD.prospect_cntct_id) || '" to "' ||
formatCntctName(NEW.prospect_cntct_id) || '"');
END IF;
IF (OLD.prospect_taxauth_id <> NEW.prospect_taxauth_id) THEN
PERFORM postComment(_cmnttypeid, 'PSPCT', NEW.prospect_id,
'Tax Authority changed from "' ||
(SELECT taxauth_code FROM taxauth
WHERE taxauth_id=OLD.prospect_taxauth_id) ||
'" to "' ||
(SELECT taxauth_code FROM taxauth
WHERE taxauth_id=NEW.prospect_taxauth_id) || '"');
END IF;
IF (OLD.prospect_salesrep_id <> NEW.prospect_salesrep_id) THEN
PERFORM postComment(_cmnttypeid, 'PSPCT', NEW.prospect_id,
'Sales Rep changed from "' ||
(SELECT salesrep_number FROM salesrep
WHERE salesrep_id=OLD.prospect_salesrep_id) ||
'" to "' ||
(SELECT salesrep_number FROM salesrep
WHERE salesrep_id=NEW.prospect_salesrep_id) || '"');
END IF;
IF (OLD.prospect_warehous_id <> NEW.prospect_warehous_id) THEN
PERFORM postComment(_cmnttypeid, 'PSPCT', NEW.prospect_id,
'Warehouse changed from "' ||
(SELECT warehous_code FROM whsinfo
WHERE warehous_id=OLD.prospect_warehous_id) ||
'" to "' ||
(SELECT warehous_code FROM whsinfo
WHERE warehous_id=NEW.prospect_warehous_id) || '"');
END IF;
IF (OLD.prospect_taxzone_id <> NEW.prospect_taxzone_id) THEN
PERFORM postComment(_cmnttypeid, 'PSPCT', NEW.prospect_id,
'Tax Zone changed from "' ||
(SELECT taxzone_code FROM taxzone
WHERE taxzone_id=OLD.prospect_taxzone_id) || '" to "' ||
(SELECT taxzone_code FROM taxzone
WHERE taxzone_id=NEW.prospect_taxzone_id) || '"');
END IF;
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._prospectaftertrigger() OWNER TO admin;
--
-- Name: _prospectbeforedeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _prospectbeforedeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (NOT checkPrivilege('MaintainProspectMasters')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Prospects.';
END IF;
UPDATE crmacct SET crmacct_prospect_id = NULL
WHERE crmacct_prospect_id = OLD.prospect_id;
RETURN OLD;
END;
$$;
ALTER FUNCTION public._prospectbeforedeletetrigger() OWNER TO admin;
--
-- Name: _prospecttrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _prospecttrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (NOT checkPrivilege('MaintainProspectMasters')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Prospects.';
END IF;
IF (NEW.prospect_number IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid Prospect Number.';
END IF;
NEW.prospect_number := UPPER(NEW.prospect_number);
RETURN NEW;
END;
$$;
ALTER FUNCTION public._prospecttrigger() OWNER TO admin;
--
-- Name: _prtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _prtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/EULA for the full text of the software license.
BEGIN
--- clear the number from the issue cache
PERFORM clearNumberIssue('PrNumber', NEW.pr_number);
RETURN NEW;
END;
$$;
ALTER FUNCTION public._prtrigger() OWNER TO admin;
--
-- Name: _quheadtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _quheadtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
_oldHoldType TEXT;
_newHoldType TEXT;
_p RECORD;
_a RECORD;
_w RECORD;
_shiptoId INTEGER;
_addrId INTEGER;
_prjId INTEGER;
_check BOOLEAN;
_numGen CHAR(1);
BEGIN
-- Checks
SELECT checkPrivilege('MaintainQuotes') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Quotes.';
END IF;
-- If this is imported, check the quote number
IF (TG_OP = 'INSERT') THEN
IF (NEW.quhead_imported) THEN
SELECT fetchMetricText('QUNumberGeneration') INTO _numGen;
IF ((NEW.quhead_number IS NULL) AND (_numGen='M')) THEN
RAISE EXCEPTION 'You must supply a Quote Number.';
ELSE
IF ((NEW.quhead_number IS NOT NULL) AND (_numGen='A')) THEN
RAISE EXCEPTION 'You may not supply a new Quote Number xTuple will generate the number.';
ELSE
IF ((NEW.quhead_number IS NULL) AND (_numGen='O')) THEN
SELECT fetchqunumber() INTO NEW.quhead_number;
ELSE
IF (NEW.quhead_number IS NULL) THEN
SELECT fetchsonumber() INTO NEW.quhead_number;
END IF;
END IF;
END IF;
END IF;
END IF;
IF (fetchMetricText('QUNumberGeneration') IN ('A','O')) THEN
--- clear the number from the issue cache
PERFORM clearNumberIssue('QuNumber', NEW.quhead_number);
ELSIF (fetchMetricText('QUNumberGeneration') = 'S') THEN
--- clear the number from the issue cache
PERFORM clearNumberIssue('SoNumber', NEW.quhead_number);
END IF;
ELSE
IF (TG_OP = 'UPDATE') THEN
IF (NEW.quhead_number <> OLD.quhead_number) THEN
RAISE EXCEPTION 'The order number may not be changed.';
END IF;
END IF;
END IF;
IF (TG_OP IN ('INSERT','UPDATE')) THEN
-- Get Customer data
IF (NEW.quhead_shipto_id IS NULL) THEN
SELECT * INTO _p FROM (
SELECT cust_number,cust_usespos,cust_blanketpos,cust_ffbillto,
cust_ffshipto,cust_name,cust_salesrep_id,cust_terms_id,cust_shipvia,
cust_commprcnt,cust_curr_id,cust_taxzone_id,
addr_line1,addr_line2,addr_line3,addr_city,addr_state,addr_postalcode,addr_country,
shipto_id,shipto_addr_id,shipto_name,shipto_salesrep_id,shipto_shipvia,
shipto_shipchrg_id,shipto_shipform_id,shipto_commission,shipto_taxzone_id
FROM custinfo
LEFT OUTER JOIN cntct ON (cust_cntct_id=cntct_id)
LEFT OUTER JOIN addr ON (cntct_addr_id=addr_id)
LEFT OUTER JOIN shiptoinfo ON ((cust_id=shipto_cust_id) AND shipto_default)
WHERE (cust_id=NEW.quhead_cust_id)
UNION
SELECT prospect_number,false,false,true,
true,prospect_name,prospect_salesrep_id,null,null,
null,null,prospect_taxzone_id,
addr_line1,addr_line2,addr_line3,addr_city,addr_state,addr_postalcode,addr_country,
null,null,null,null,null,
null,null,null,null
FROM prospect
LEFT OUTER JOIN cntct ON (prospect_cntct_id=cntct_id)
LEFT OUTER JOIN addr ON (cntct_addr_id=addr_id)
WHERE (prospect_id=NEW.quhead_cust_id)) AS data;
ELSE
SELECT cust_creditstatus,cust_number,cust_usespos,cust_blanketpos,cust_ffbillto,
cust_ffshipto,cust_name,cust_salesrep_id,cust_terms_id,cust_shipvia,
cust_shipchrg_id,cust_shipform_id,cust_commprcnt,cust_curr_id,cust_taxzone_id,
addr_line1,addr_line2,addr_line3,addr_city,addr_state,addr_postalcode,addr_country,
shipto_id,shipto_addr_id,shipto_name,shipto_salesrep_id,shipto_shipvia,
shipto_shipchrg_id,shipto_shipform_id,shipto_commission,shipto_taxzone_id INTO _p
FROM shiptoinfo,custinfo
LEFT OUTER JOIN cntct ON (cust_cntct_id=cntct_id)
LEFT OUTER JOIN addr ON (cntct_addr_id=addr_id)
WHERE ((cust_id=NEW.quhead_cust_id)
AND (shipto_id=shipto_id));
END IF;
-- If there is customer data, then we can get to work
IF (FOUND) THEN
-- Only check PO number for imports because UI checks when whole quote is saved
IF (TG_OP = 'INSERT') THEN
-- Set to defaults if values not provided
NEW.quhead_shipto_id := COALESCE(NEW.quhead_shipto_id,_p.shipto_id);
NEW.quhead_salesrep_id := COALESCE(NEW.quhead_salesrep_id,_p.shipto_salesrep_id,_p.cust_salesrep_id);
NEW.quhead_terms_id := COALESCE(NEW.quhead_terms_id,_p.cust_terms_id);
NEW.quhead_shipvia := COALESCE(NEW.quhead_shipvia,_p.shipto_shipvia,_p.cust_shipvia);
NEW.quhead_commission := COALESCE(NEW.quhead_commission,_p.shipto_commission,_p.cust_commprcnt);
NEW.quhead_quotedate := COALESCE(NEW.quhead_quotedate,current_date);
NEW.quhead_packdate := COALESCE(NEW.quhead_packdate,NEW.quhead_quotedate);
NEW.quhead_curr_id := COALESCE(NEW.quhead_curr_id,_p.cust_curr_id,basecurrid());
NEW.quhead_taxzone_id := COALESCE(NEW.quhead_taxzone_id,_p.shipto_taxzone_id,_p.cust_taxzone_id);
NEW.quhead_freight := COALESCE(NEW.quhead_freight,0);
NEW.quhead_custponumber := COALESCE(NEW.quhead_custponumber,'');
NEW.quhead_ordercomments := COALESCE(NEW.quhead_ordercomments,'');
NEW.quhead_shipcomments := COALESCE(NEW.quhead_shipcomments,'');
NEW.quhead_shiptophone := COALESCE(NEW.quhead_shiptophone,'');
NEW.quhead_misc := COALESCE(NEW.quhead_misc,0);
NEW.quhead_misc_descrip := COALESCE(NEW.quhead_misc_descrip,'');
IF ((NEW.quhead_warehous_id IS NULL) OR (NEW.quhead_fob IS NULL)) THEN
IF (NEW.quhead_warehous_id IS NULL) THEN
SELECT warehous_id,warehous_fob INTO _w
FROM usrpref, whsinfo
WHERE ((warehous_id=CAST(usrpref_value AS INTEGER))
AND (warehous_shipping)
AND (warehous_active)
AND (usrpref_username=getEffectiveXtUser())
AND (usrpref_name='PreferredWarehouse'));
ELSE
SELECT warehous_id,warehous_fob INTO _w
FROM whsinfo
WHERE (warehous_id=NEW.quhead_warehous_id);
END IF;
IF (FOUND) THEN
NEW.quhead_warehous_id := COALESCE(NEW.quhead_warehous_id,_w.warehous_id);
NEW.quhead_fob := COALESCE(NEW.quhead_fob,_w.warehous_fob);
END IF;
END IF;
END IF;
--Auto create project if applicable
IF ((TG_OP = 'INSERT') AND (NEW.quhead_prj_id=-1)) THEN
SELECT fetchMetricBool('AutoCreateProjectsForOrders') INTO _check;
IF (_check) THEN
SELECT NEXTVAL('prj_prj_id_seq') INTO _prjId;
NEW.quhead_prj_id := _prjId;
INSERT INTO prj (prj_id, prj_number, prj_name, prj_descrip, prj_so, prj_wo, prj_po)
VALUES(_prjId, NEW.quhead_number, NEW.quhead_number, 'Auto Generated Project from Quote.', TRUE, TRUE, TRUE);
END IF;
END IF;
-- Deal with Billing Address
IF (TG_OP = 'INSERT') THEN
IF (_p.cust_ffbillto) THEN
-- If they didn't supply data, we'll put in the bill to address
NEW.quhead_billtoname=COALESCE(NEW.quhead_billtoname,_p.cust_name,'');
NEW.quhead_billtoaddress1=COALESCE(NEW.quhead_billtoaddress1,_p.addr_line1,'');
NEW.quhead_billtoaddress2=COALESCE(NEW.quhead_billtoaddress2,_p.addr_line2,'');
NEW.quhead_billtoaddress3=COALESCE(NEW.quhead_billtoaddress3,_p.addr_line3,'');
NEW.quhead_billtocity=COALESCE(NEW.quhead_billtocity,_p.addr_city,'');
NEW.quhead_billtostate=COALESCE(NEW.quhead_billtostate,_p.addr_state,'');
NEW.quhead_billtozip=COALESCE(NEW.quhead_billtozip,_p.addr_postalcode,'');
NEW.quhead_billtocountry=COALESCE(NEW.quhead_billtocountry,_p.addr_country,'');
ELSE
-- Free form not allowed, we're going to put in the address regardless
NEW.quhead_billtoname=COALESCE(_p.cust_name,'');
NEW.quhead_billtoaddress1=COALESCE(_p.addr_line1,'');
NEW.quhead_billtoaddress2=COALESCE(_p.addr_line2,'');
NEW.quhead_billtoaddress3=COALESCE(_p.addr_line3,'');
NEW.quhead_billtocity=COALESCE(_p.addr_city,'');
NEW.quhead_billtostate=COALESCE(_p.addr_state,'');
NEW.quhead_billtozip=COALESCE(_p.addr_postalcode,'');
NEW.quhead_billtocountry=COALESCE(_p.addr_country,'');
END IF;
END IF;
-- Now let's look at Shipto Address
-- If there's nothing in the address fields and there is a shipto id
-- or there is a default address available, let's put in some shipto address data
IF ((TG_OP = 'INSERT')
AND NOT ((NEW.quhead_shipto_id IS NULL) AND NOT _p.cust_ffshipto)
AND (NEW.quhead_shiptoname IS NULL)
AND (NEW.quhead_shiptoaddress1 IS NULL)
AND (NEW.quhead_shiptoaddress2 IS NULL)
AND (NEW.quhead_shiptoaddress3 IS NULL)
AND (NEW.quhead_shiptocity IS NULL)
AND (NEW.quhead_shiptostate IS NULL)
AND (NEW.quhead_shiptocountry IS NULL)) THEN
IF ((NEW.quhead_shipto_id IS NULL) AND (_p.shipto_id IS NOT NULL)) THEN
_shiptoId := _p.shipto_addr_id;
ELSE
_shiptoId := NEW.quhead_shipto_id;
END IF;
SELECT * INTO _a
FROM shiptoinfo, addr
WHERE ((shipto_id=_shiptoId)
AND (addr_id=shipto_addr_id));
NEW.quhead_shiptoname := COALESCE(_p.shipto_name,'');
NEW.quhead_shiptoaddress1 := COALESCE(_a.addr_line1,'');
NEW.quhead_shiptoaddress2 := COALESCE(_a.addr_line2,'');
NEW.quhead_shiptoaddress3 := COALESCE(_a.addr_line3,'');
NEW.quhead_shiptocity := COALESCE(_a.addr_city,'');
NEW.quhead_shiptostate := COALESCE(_a.addr_state,'');
NEW.quhead_shiptozipcode := COALESCE(_a.addr_postalcode,'');
NEW.quhead_shiptocountry := COALESCE(_a.addr_country,'');
ELSE
IF (_p.cust_ffshipto) THEN
-- Use Address Save function to see if the new address entered matches
-- data for the shipto number. If not that will insert new address for CRM
SELECT SaveAddr(
NULL,
NULL,
NEW.quhead_shiptoaddress1,
NEW.quhead_shiptoaddress2,
NEW.quhead_shiptoaddress3,
NEW.quhead_shiptocity,
NEW.quhead_shiptostate,
NEW.quhead_shiptozipcode,
NEW.quhead_shiptocountry,
'CHANGEONE') INTO _addrId;
SELECT shipto_addr_id INTO _shiptoid FROM shiptoinfo WHERE (shipto_id=NEW.quhead_shipto_id);
-- If the address passed doesn't match shipto address, then it's something else
IF (_shiptoid <> _addrId) THEN
NEW.quhead_shipto_id := NULL;
END IF;
ELSE
SELECT quhead_shipto_id INTO _shiptoid FROM quhead WHERE (quhead_id=NEW.quhead_id);
-- Get the shipto address
IF (COALESCE(NEW.quhead_shipto_id,-1) <> COALESCE(_shiptoid,-1)) THEN
SELECT * INTO _a
FROM shiptoinfo
LEFT OUTER JOIN cntct ON (shipto_cntct_id=cntct_id)
LEFT OUTER JOIN addr ON (shipto_addr_id=addr_id)
WHERE (shipto_id=NEW.quhead_shipto_id);
IF (FOUND) THEN
-- Free form not allowed so we're going to make sure address matches Shipto data
NEW.quhead_shiptoname := COALESCE(_a.shipto_name,'');
NEW.quhead_shiptophone := COALESCE(_a.cntct_phone,'');
NEW.quhead_shiptoaddress1 := COALESCE(_a.addr_line1,'');
NEW.quhead_shiptoaddress2 := COALESCE(_a.addr_line2,'');
NEW.quhead_shiptoaddress3 := COALESCE(_a.addr_line3,'');
NEW.quhead_shiptocity := COALESCE(_a.addr_city,'');
NEW.quhead_shiptostate := COALESCE(_a.addr_state,'');
NEW.quhead_shiptozipcode := COALESCE(_a.addr_postalcode,'');
NEW.quhead_shiptocountry := COALESCE(_a.addr_country,'');
ELSE
-- If no shipto data and free form not allowed, this won't work
RAISE EXCEPTION 'Free form Shipto is not allowed on this Customer. You must supply a valid Shipto ID.';
END IF;
END IF;
END IF;
END IF;
END IF;
END IF;
IF ( SELECT (metric_value='t')
FROM metric
WHERE (metric_name='SalesOrderChangeLog') ) THEN
-- Cache the cmnttype_id for ChangeLog
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
IF (FOUND) THEN
IF (TG_OP = 'INSERT') THEN
PERFORM postComment(_cmnttypeid, 'Q', NEW.quhead_id, 'Created');
ELSIF (TG_OP = 'UPDATE') THEN
IF (OLD.quhead_terms_id <> NEW.quhead_terms_id) THEN
PERFORM postComment( _cmnttypeid, 'Q', NEW.quhead_id,
('Terms Changed from "' || oldterms.terms_code || '" to "' || newterms.terms_code || '"') )
FROM terms AS oldterms, terms AS newterms
WHERE ( (oldterms.terms_id=OLD.quhead_terms_id)
AND (newterms.terms_id=NEW.quhead_terms_id) );
END IF;
ELSIF (TG_OP = 'DELETE') THEN
DELETE FROM comment
WHERE ( (comment_source='Q')
AND (comment_source_id=OLD.quhead_id) );
END IF;
END IF;
END IF;
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
ELSE
RETURN NEW;
END IF;
END;
$$;
ALTER FUNCTION public._quheadtrigger() OWNER TO admin;
--
-- Name: _quitemaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _quitemaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_check NUMERIC;
BEGIN
--If auto calculate freight, recalculate quhead_freight
IF (SELECT quhead_calcfreight FROM quhead WHERE (quhead_id=NEW.quitem_quhead_id)) THEN
UPDATE quhead SET quhead_freight =
(SELECT SUM(freightdata_total) FROM freightDetail('QU',
quhead_id,
quhead_cust_id,
quhead_shipto_id,
quhead_quotedate,
quhead_shipvia,
quhead_curr_id))
WHERE quhead_id=NEW.quitem_quhead_id;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._quitemaftertrigger() OWNER TO admin;
--
-- Name: _quitembeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _quitembeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_check NUMERIC;
_itemNumber TEXT;
BEGIN
-- Check
IF (NEW.quitem_scheddate IS NULL) THEN
RAISE EXCEPTION 'A schedule date is required.';
END IF;
-- If this is imported, go ahead and insert default characteristics
IF ((TG_OP = 'INSERT') AND NEW.quitem_imported) THEN
PERFORM updateCharAssignment('SI', NEW.quitem_id, char_id, charass_value)
FROM (
SELECT DISTINCT char_id, char_name, charass_value
FROM charass, char, itemsite, item
WHERE ((itemsite_id=NEW.quitem_itemsite_id)
AND (itemsite_item_id=item_id)
AND (charass_target_type='I')
AND (charass_target_id=item_id)
AND (charass_default)
AND (char_id=charass_char_id))
ORDER BY char_name) AS data;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._quitembeforetrigger() OWNER TO admin;
--
-- Name: _quitemtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _quitemtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
_check BOOLEAN;
BEGIN
-- Checks
SELECT checkPrivilege('MaintainQuotes') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Quotes.';
END IF;
IF ( SELECT (metric_value='t')
FROM metric
WHERE (metric_name='SalesOrderChangeLog') ) THEN
-- Cache the cmnttype_id for ChangeLog
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
ELSE
_cmnttypeid := -1;
END IF;
IF (TG_OP = 'INSERT') THEN
IF (_cmnttypeid <> -1) THEN
PERFORM postComment(_cmnttypeid, 'QI', NEW.quitem_id, 'Created');
END IF;
RETURN NEW;
ELSE
IF (TG_OP = 'DELETE') THEN
DELETE FROM comment
WHERE ( (comment_source='QI')
AND (comment_source_id=OLD.quitem_id) );
DELETE FROM charass
WHERE ((charass_target_type='QI')
AND (charass_target_id=OLD.quitem_id));
RETURN OLD;
ELSE
IF (TG_OP = 'UPDATE') THEN
IF (NEW.quitem_qtyord <> OLD.quitem_qtyord) THEN
IF (_cmnttypeid <> -1) THEN
PERFORM postComment( _cmnttypeid, 'QI', NEW.quitem_id,
( 'Changed Qty. Ordered from ' || formatQty(OLD.quitem_qtyord) ||
' to ' || formatQty(NEW.quitem_qtyord) ) );
END IF;
END IF;
IF (NEW.quitem_scheddate <> OLD.quitem_scheddate) THEN
IF (_cmnttypeid <> -1) THEN
PERFORM postComment( _cmnttypeid, 'QI', NEW.quitem_id,
( 'Changed Sched. Date from ' || formatDate(OLD.quitem_scheddate) ||
' to ' || formatDate(NEW.quitem_scheddate)) );
END IF;
END IF;
END IF;
END IF;
END IF;
-- NEW.quitem_lastupdated = CURRENT_TIMESTAMP;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._quitemtrigger() OWNER TO admin;
--
-- Name: _recuraftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _recuraftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_parentid INTEGER;
_parenttype TEXT;
BEGIN
IF (TG_OP = 'DELETE') THEN
IF (UPPER(OLD.recur_parent_type) = 'TODO') THEN
UPDATE todoitem SET todoitem_recurring_todoitem_id=NULL
WHERE (todoitem_recurring_todoitem_id=OLD.recur_parent_id);
END IF;
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._recuraftertrigger() OWNER TO admin;
--
-- Name: _reporttrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _reporttrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
NEW.report_loaddate = CURRENT_TIMESTAMP;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._reporttrigger() OWNER TO admin;
--
-- Name: _salesrepafterdeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _salesrepafterdeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
BEGIN
IF (SELECT fetchMetricValue('DefaultSalesRep') = OLD.salesrep_id) THEN
RAISE EXCEPTION 'Cannot delete the default Sales Rep [xtuple: salesrep, -1, %]',
OLD.salesrep_number;
END IF;
PERFORM postComment('ChangeLog', 'SR', OLD.salesrep_id,
'Deleted "' || OLD.salesrep_number || '"');
RETURN OLD;
END;
$$;
ALTER FUNCTION public._salesrepafterdeletetrigger() OWNER TO admin;
--
-- Name: _salesrepaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _salesrepaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
BEGIN
IF (TG_OP = 'INSERT') THEN
-- http://www.postgresql.org/docs/current/static/plpgsql-control-structures.html#PLPGSQL-UPSERT-EXAMPLE
LOOP
UPDATE crmacct SET crmacct_salesrep_id=NEW.salesrep_id,
crmacct_name=NEW.salesrep_name
WHERE crmacct_number=NEW.salesrep_number;
IF (FOUND) THEN
EXIT;
END IF;
BEGIN
INSERT INTO crmacct(crmacct_number, crmacct_name, crmacct_active,
crmacct_type, crmacct_salesrep_id
) VALUES (NEW.salesrep_number, NEW.salesrep_name, NEW.salesrep_active,
'I', NEW.salesrep_id);
EXIT;
EXCEPTION WHEN unique_violation THEN
-- do nothing, and loop to try the UPDATE again
END;
END LOOP;
-- TODO: default characteristic assignments?
ELSIF (TG_OP = 'UPDATE') THEN
UPDATE crmacct SET crmacct_number = NEW.salesrep_number
WHERE ((crmacct_salesrep_id=NEW.salesrep_id)
AND (crmacct_number!=NEW.salesrep_number));
UPDATE crmacct SET crmacct_name = NEW.salesrep_name
WHERE ((crmacct_salesrep_id=NEW.salesrep_id)
AND (crmacct_name!=NEW.salesrep_name));
END IF;
IF (fetchMetricBool('SalesRepChangeLog')) THEN
IF (TG_OP = 'INSERT') THEN
PERFORM postComment('ChangeLog', 'SR', NEW.salesrep_id, 'Created');
ELSIF (TG_OP = 'UPDATE') THEN
IF (OLD.salesrep_active <> NEW.salesrep_active) THEN
PERFORM postComment('ChangeLog', 'SR', NEW.salesrep_id,
CASE WHEN NEW.salesrep_active THEN 'Activated'
ELSE 'Deactivated' END);
END IF;
IF (OLD.salesrep_number <> NEW.salesrep_number) THEN
PERFORM postComment('ChangeLog', 'SR', NEW.salesrep_id,
'Number changed from "' || OLD.salesrep_number ||
'" to "' || NEW.salesrep_number || '"');
END IF;
IF (OLD.salesrep_name <> NEW.salesrep_name) THEN
PERFORM postComment('ChangeLog', 'SR', NEW.salesrep_id,
'Name changed from "' || OLD.salesrep_name ||
'" to "' || NEW.salesrep_name || '"');
END IF;
IF (OLD.salesrep_commission <> NEW.salesrep_commission) THEN
PERFORM postComment('ChangeLog', 'SR', NEW.salesrep_id,
'Commission changed from "' || OLD.salesrep_commission ||
'" to "' || NEW.salesrep_commission || '"');
END IF;
IF (OLD.salesrep_method <> NEW.salesrep_method) THEN
PERFORM postComment('ChangeLog', 'SR', NEW.salesrep_id,
'Method changed from "' || OLD.salesrep_method ||
'" to "' || NEW.salesrep_method || '"');
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._salesrepaftertrigger() OWNER TO admin;
--
-- Name: _salesrepbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _salesrepbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF NOT (checkPrivilege('MaintainSalesReps')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Sales Reps.';
END IF;
IF (TG_OP IN ('INSERT', 'UPDATE')) THEN
IF (NEW.salesrep_number IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid Sales Rep Number.';
END IF;
IF (NEW.salesrep_commission IS NULL) THEN
RAISE EXCEPTION 'You must supply a Commission Rate for this Sales Rep.';
END IF;
IF (TG_OP = 'INSERT' AND fetchMetricText('CRMAccountNumberGeneration') IN ('A','O') AND isNumeric(NEW.salesrep_number)) THEN
--- clear the number from the issue cache
PERFORM clearNumberIssue('CRMAccountNumber', NEW.salesrep_number);
END IF;
NEW.salesrep_number = UPPER(NEW.salesrep_number);
-- deprecated column salesrep_emp_id
-- TODO: will this prevent breaking the crmacct-emp relationship?
IF (TG_OP = 'UPDATE') THEN
SELECT crmacct_emp_id INTO NEW.salesrep_emp_id
FROM crmacct
WHERE crmacct_salesrep_id = NEW.salesrep_id;
END IF;
ELSIF (TG_OP = 'DELETE') THEN
UPDATE crmacct SET crmacct_salesrep_id = NULL
WHERE crmacct_salesrep_id = OLD.salesrep_id;
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._salesrepbeforetrigger() OWNER TO admin;
--
-- Name: _saletypebeforedeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _saletypebeforedeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_check TEXT;
BEGIN
-- Check to see if any sales orders are assigned to the passed saletype
SELECT cohead_number INTO _check
FROM cohead
WHERE (cohead_saletype_id=OLD.saletype_id)
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Assigned to Sales Order % and possibly more. [xtuple: deletesaletype, -1]', _check;
END IF;
-- Check to see if any quotes are assigned to the passed saletype
SELECT quhead_number INTO _check
FROM quhead
WHERE (quhead_saletype_id=OLD.saletype_id)
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Assigned to Quote % and possibly more. [xtuple: deletesaletype, -2]', _check;
END IF;
-- Check to see if any invoice are assigned to the passed saletype
SELECT invchead_invcnumber INTO _check
FROM invchead
WHERE (invchead_saletype_id=OLD.saletype_id)
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Assigned to Invoice % and possibly more. [xtuple: deletesaletype, -3]', _check;
END IF;
-- Check to see if any credit memos are assigned to the passed saletype
SELECT cmhead_number INTO _check
FROM cmhead
WHERE (cmhead_saletype_id=OLD.saletype_id)
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Assigned to Credit Memo % and possibly more. [xtuple: deletesaletype, -4]', _check;
END IF;
-- Check to see if any return ruthorizations are assigned to the passed saletype
IF (fetchMetricBool('EnableReturnAuth')) THEN
SELECT rahead_number INTO _check
FROM rahead
WHERE (rahead_saletype_id=OLD.saletype_id)
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Assigned to Return Authorization % and possibly more returns. [xtuple: deleteSaleType, -5]', _check;
END IF;
END IF;
RETURN OLD;
END;
$$;
ALTER FUNCTION public._saletypebeforedeletetrigger() OWNER TO admin;
--
-- Name: _shipdatasumtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _shipdatasumtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (LENGTH(TRIM(NEW.shipdatasum_shiphead_number)) = 0) THEN
NEW.shipdatasum_shiphead_number = NULL;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._shipdatasumtrigger() OWNER TO admin;
--
-- Name: _shipdatatrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _shipdatatrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_newShipdata_cohead_number INTEGER;
_shipdatasum_shipper TEXT;
_rows INTEGER;
_cohead_id INTEGER;
_shiphead_number TEXT;
_headcount INTEGER;
BEGIN
-- This is where the shipper is identified and may need to be changed
NEW.shipdata_cohead_number := TRIM(NEW.shipdata_cohead_number);
IF (substring(NEW.shipdata_cosmisc_tracknum from 1 for 2) = '1Z') THEN
_shipdatasum_shipper := 'UPS';
ELSE
_shipdatasum_shipper := 'UNKNOWN';
END IF;
IF (LENGTH(TRIM(NEW.shipdata_shiphead_number)) = 0) THEN
NEW.shipdata_shiphead_number := NULL;
END IF;
IF (NEW.shipdata_cosmisc_tracknum = NEW.shipdata_cosmisc_packnum_tracknum) THEN
IF (NEW.shipdata_void_ind = 'Y') THEN
-- Delete the current shipdatasum
DELETE FROM shipdatasum
WHERE ((shipdatasum_cohead_number = NEW.shipdata_cohead_number)
AND (shipdatasum_cosmisc_tracknum = NEW.shipdata_cosmisc_tracknum));
ELSIF (TG_OP = 'INSERT') THEN
-- RAISE NOTICE 'Getting cohead_id (%)', NEW.shipdata_cohead_number;
IF (NEW.shipdata_shiphead_number IS NULL) THEN
SELECT cohead_id INTO _cohead_id FROM cohead WHERE cohead_number = NEW.shipdata_cohead_number;
IF (FOUND) THEN
-- RAISE NOTICE 'Getting shiphead number (%)', _cohead_id;
SELECT count(shiphead_order_id), MAX(shiphead_number) INTO _headcount, _shiphead_number
FROM shiphead
WHERE ((shiphead_tracknum IS NULL OR shiphead_tracknum = '')
AND ( shiphead_order_type = 'SO' and shiphead_order_id = _cohead_id) );
IF (_headcount = 1) THEN
-- RAISE NOTICE 'Updating Shiphead Number (%)', _shiphead_number;
NEW.shipdata_shiphead_number = _shiphead_number;
ELSIF (_headcount > 1) THEN
-- Trap for potential workflow problem. Can only infer shiphead from sales order number
-- if shipping one at a time
RAISE EXCEPTION 'Multiple shipments exist for this order. Please provide a specific a shipment number.';
END IF;
END IF;
END IF;
INSERT INTO shipdatasum
(shipdatasum_cohead_number, shipdatasum_cosmisc_tracknum,
shipdatasum_cosmisc_packnum_tracknum, shipdatasum_weight,
shipdatasum_base_freight, shipdatasum_total_freight,
shipdatasum_base_freight_curr_id, shipdatasum_total_freight_curr_id,
shipdatasum_shipper, shipdatasum_billing_option,
shipdatasum_package_type, shipdatasum_shiphead_number)
VALUES (NEW.shipdata_cohead_number, NEW.shipdata_cosmisc_tracknum,
NEW.shipdata_cosmisc_packnum_tracknum, NEW.shipdata_weight,
NEW.shipdata_base_freight, NEW.shipdata_total_freight,
NEW.shipdata_base_freight_curr_id, NEW.shipdata_total_freight_curr_id,
_shipdatasum_shipper, NEW.shipdata_billing_option,
NEW.shipdata_package_type, NEW.shipdata_shiphead_number);
ELSIF (TG_OP = 'UPDATE') THEN
UPDATE shipdatasum SET
shipdatasum_cohead_number=NEW.shipdata_cohead_number,
shipdatasum_cosmisc_tracknum=NEW.shipdata_cosmisc_tracknum,
shipdatasum_cosmisc_packnum_tracknum=NEW.shipdata_cosmisc_packnum_tracknum,
shipdatasum_weight=NEW.shipdata_weight,
shipdatasum_base_freight=NEW.shipdata_base_freight,
shipdatasum_total_freight=NEW.shipdata_total_freight,
shipdatasum_base_freight_curr_id=NEW.shipdata_base_freight_curr_id,
shipdatasum_total_freight_curr_id=NEW.shipdata_total_freight_curr_id,
shipdatasum_shipper=_shipdatasum_shipper,
shipdatasum_billing_option=NEW.shipdata_billing_option,
shipdatasum_package_type=NEW.shipdata_package_type,
shipdatasum_shiphead_number=NEW.shipdata_shiphead_number
WHERE ((TRIM(shipdatasum_cohead_number)=TRIM(OLD.shipdata_cohead_number))
AND (TRIM(shipdatasum_cosmisc_tracknum)=TRIM(OLD.shipdata_cosmisc_tracknum))
AND (TRIM(shipdatasum_cosmisc_packnum_tracknum)=TRIM(OLD.shipdata_cosmisc_packnum_tracknum)));
GET DIAGNOSTICS _rows = ROW_COUNT;
IF (_rows <= 0) THEN
INSERT INTO shipdatasum
(shipdatasum_cohead_number, shipdatasum_cosmisc_tracknum,
shipdatasum_cosmisc_packnum_tracknum, shipdatasum_weight,
shipdatasum_base_freight, shipdatasum_total_freight,
shipdatasum_base_freight_curr_id, shipdatasum_total_freight_curr_id,
shipdatasum_shipper, shipdatasum_billing_option,
shipdatasum_package_type, shipdatasum_shiphead_number)
VALUES (NEW.shipdata_cohead_number, NEW.shipdata_cosmisc_tracknum,
NEW.shipdata_cosmisc_packnum_tracknum, NEW.shipdata_weight,
NEW.shipdata_base_freight, NEW.shipdata_total_freight,
NEW.shipdata_base_freight_curr_id, NEW.shipdata_total_freight_curr_id,
_shipdatasum_shipper, NEW.shipdata_billing_option,
NEW.shipdata_package_type, NEW.shipdata_shiphead_number);
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._shipdatatrigger() OWNER TO admin;
--
-- Name: _shipformafterdeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _shipformafterdeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (fetchMetricValue('DefaultShipFormId') = OLD.shipform_id) THEN
RAISE EXCEPTION 'Cannot delete the default Shipping Form [xtuple: shipform, -1, %, %]',
OLD.shipform_name, OLD.shipform_report_name;
END IF;
RETURN OLD;
END;
$$;
ALTER FUNCTION public._shipformafterdeletetrigger() OWNER TO admin;
--
-- Name: _shipheadbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _shipheadbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF ((TG_OP = 'INSERT') OR (TG_OP = 'UPDATE')) THEN
IF (NEW.shiphead_order_type = 'SO'
AND NEW.shiphead_order_id IN (SELECT cohead_id FROM cohead)) THEN
RETURN NEW;
ELSEIF (NEW.shiphead_order_type = 'TO'
AND NEW.shiphead_order_id IN (SELECT tohead_id FROM tohead)) THEN
RETURN NEW;
END IF;
RAISE EXCEPTION '% with id % does not exist',
NEW.shiphead_order_type, NEW.shiphead_order_id;
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._shipheadbeforetrigger() OWNER TO admin;
--
-- Name: _shiptoinfoaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _shiptoinfoaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
BEGIN
IF (NEW.shipto_default) THEN
UPDATE shiptoinfo
SET shipto_default = false
WHERE ((shipto_cust_id=NEW.shipto_cust_id)
AND (shipto_id <> NEW.shipto_id));
END IF;
IF (SELECT fetchMetricBool('CustomerChangeLog')) THEN
-- Cache the cmnttype_id for ChangeLog
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
IF (FOUND) THEN
IF (TG_OP = 'INSERT') THEN
PERFORM postComment(_cmnttypeid, 'C', NEW.shipto_cust_id, 'Created');
ELSIF (TG_OP = 'UPDATE') THEN
IF (OLD.shipto_name <> NEW.shipto_name) THEN
PERFORM postComment( _cmnttypeid, 'C', NEW.shipto_cust_id,
( NEW.shipto_name || ': Ship To Name Changed from "' || COALESCE(OLD.shipto_name, '') ||
'" to "' || COALESCE(NEW.shipto_name, '') || '"' ) );
END IF;
IF (OLD.shipto_shipvia <> NEW.shipto_shipvia) THEN
PERFORM postComment( _cmnttypeid, 'C', NEW.shipto_cust_id,
( NEW.shipto_name || ': Ship To ShipVia Changed from "' || COALESCE(OLD.shipto_shipvia, '') ||
'" to "' || COALESCE(NEW.shipto_shipvia, '') || '"' ) );
END IF;
IF (COALESCE(OLD.shipto_taxzone_id, -1) <> COALESCE(NEW.shipto_taxzone_id, -1)) THEN
PERFORM postComment( _cmnttypeid, 'C', NEW.shipto_cust_id,
( NEW.shipto_name || ': Ship To Tax Zone Changed from "' || COALESCE((SELECT taxzone_code
FROM taxzone
WHERE taxzone_id=OLD.shipto_taxzone_id), 'None') ||
'" to "' || COALESCE((SELECT taxzone_code
FROM taxzone
WHERE taxzone_id=NEW.shipto_taxzone_id), 'None') || '"' ) );
END IF;
IF (OLD.shipto_shipzone_id <> NEW.shipto_shipzone_id) THEN
PERFORM postComment( _cmnttypeid, 'C', NEW.shipto_cust_id,
( NEW.shipto_name || ': Ship To Shipping Zone Changed from "' || (SELECT shipzone_name
FROM shipzone
WHERE shipzone_id=OLD.shipto_shipzone_id) ||
'" to "' || (SELECT shipzone_name
FROM shipzone
WHERE shipzone_id=NEW.shipto_shipzone_id) || '"' ) );
END IF;
IF (OLD.shipto_salesrep_id <> NEW.shipto_salesrep_id) THEN
PERFORM postComment( _cmnttypeid, 'C', NEW.shipto_cust_id,
( NEW.shipto_name || ': Ship To Sales Rep Changed from "' || (SELECT salesrep_name
FROM salesrep
WHERE salesrep_id=OLD.shipto_salesrep_id) ||
'" to "' || (SELECT salesrep_name
FROM salesrep
WHERE salesrep_id=NEW.shipto_salesrep_id) || '"' ) );
END IF;
IF (OLD.shipto_active <> NEW.shipto_active) THEN
IF (NEW.shipto_active) THEN
PERFORM postComment(_cmnttypeid, 'C', NEW.shipto_cust_id, (NEW.shipto_name || ': Ship To Activated'));
ELSE
PERFORM postComment(_cmnttypeid, 'C', NEW.shipto_cust_id, (NEW.shipto_name || ': Ship To Deactivated'));
END IF;
END IF;
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._shiptoinfoaftertrigger() OWNER TO admin;
--
-- Name: _shipviaafterdeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _shipviaafterdeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (SELECT fetchMetricValue('DefaultShipViaId') = OLD.shipvia_id) THEN
RAISE EXCEPTION 'Cannot delete the default Ship-Via [xtuple: shipvia, -1, %]',
OLD.shipvia_code;
END IF;
RETURN OLD;
END;
$$;
ALTER FUNCTION public._shipviaafterdeletetrigger() OWNER TO admin;
--
-- Name: _sltransaltertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _sltransaltertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_externalCompany BOOLEAN := false;
_updated BOOLEAN := false;
BEGIN
IF(TG_OP='DELETE') THEN
RAISE EXCEPTION 'You may not delete Journal Transactions once they have been created.';
ELSIF (TG_OP = 'UPDATE') THEN
IF(OLD.sltrans_id != NEW.sltrans_id) THEN
_updated := true;
ELSIF(OLD.sltrans_date != NEW.sltrans_date) THEN
_updated := true;
ELSIF(OLD.sltrans_accnt_id != NEW.sltrans_accnt_id) THEN
_updated := true;
ELSIF(OLD.sltrans_amount != NEW.sltrans_amount) THEN
_updated := true;
ELSIF(OLD.sltrans_username != NEW.sltrans_username) THEN
_updated := true;
ELSIF( (OLD.sltrans_sequence IS NULL AND NEW.sltrans_sequence IS NOT NULL)
OR (OLD.sltrans_sequence IS NOT NULL AND NEW.sltrans_sequence IS NULL)
OR (COALESCE(OLD.sltrans_sequence,0) != COALESCE(NEW.sltrans_sequence,0)) ) THEN
_updated := true;
ELSIF( (OLD.sltrans_created IS NULL AND NEW.sltrans_created IS NOT NULL)
OR (OLD.sltrans_created IS NOT NULL AND NEW.sltrans_created IS NULL)
OR (COALESCE(OLD.sltrans_created,now()) != COALESCE(NEW.sltrans_created,now())) ) THEN
_updated := true;
ELSIF( (OLD.sltrans_source IS NULL AND NEW.sltrans_source IS NOT NULL)
OR (OLD.sltrans_source IS NOT NULL AND NEW.sltrans_source IS NULL)
OR (COALESCE(OLD.sltrans_source,'') != COALESCE(NEW.sltrans_source,'')) ) THEN
_updated := true;
ELSIF( (OLD.sltrans_docnumber IS NULL AND NEW.sltrans_docnumber IS NOT NULL)
OR (OLD.sltrans_docnumber IS NOT NULL AND NEW.sltrans_docnumber IS NULL)
OR (COALESCE(OLD.sltrans_docnumber,'') != COALESCE(NEW.sltrans_docnumber,'')) ) THEN
_updated := true;
ELSIF( (OLD.sltrans_doctype IS NULL AND NEW.sltrans_doctype IS NOT NULL)
OR (OLD.sltrans_doctype IS NOT NULL AND NEW.sltrans_doctype IS NULL)
OR (COALESCE(OLD.sltrans_doctype,'') != COALESCE(NEW.sltrans_doctype,'')) ) THEN
_updated := true;
END IF;
IF(_updated) THEN
RAISE EXCEPTION 'You may not alter some Journal Transaction fields once they have been created.';
END IF;
ELSE
RAISE EXCEPTION 'trigger for sltrans table called in unexpected state.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._sltransaltertrigger() OWNER TO admin;
--
-- Name: _sltransinserttrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _sltransinserttrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_reqNotes BOOLEAN;
_externalCompany BOOLEAN := false;
BEGIN
-- Checks
SELECT company_external INTO _externalCompany
FROM company JOIN accnt ON (company_number=accnt_company)
WHERE (accnt_id=NEW.sltrans_accnt_id);
IF (_externalCompany) THEN
RAISE EXCEPTION 'Transactions are not allowed for G/L Accounts with External Company segments.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._sltransinserttrigger() OWNER TO admin;
--
-- Name: _soheadtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _soheadtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_p RECORD;
_a RECORD;
_w RECORD;
_shiptoId INTEGER;
_addrId INTEGER;
_prjId INTEGER;
_check BOOLEAN;
_numGen CHAR(1);
BEGIN
-- Checks
-- Start with privileges
IF (TG_OP = 'INSERT') THEN
IF ( (NOT checkPrivilege('MaintainSalesOrders')) AND
(NOT checkPrivilege('EnterReceipts')) ) THEN
RAISE EXCEPTION 'You do not have privileges to create a Sales Order.';
END IF;
ELSIF (TG_OP = 'UPDATE') THEN
IF ( (NOT checkPrivilege('MaintainSalesOrders')) AND
(NOT checkPrivilege('IssueStockToShipping')) AND
(NEW.cohead_holdtype = OLD.cohead_holdtype) ) THEN
RAISE EXCEPTION 'You do not have privileges to alter a Sales Order.';
END IF;
ELSE
IF ( (NOT checkPrivilege('MaintainSalesOrders')) AND
(NOT checkPrivilege('IssueStockToShipping')) ) THEN
RAISE EXCEPTION 'You do not have privileges to alter a Sales Order.';
END IF;
END IF;
-- If this is imported, check the order number
IF (TG_OP = 'INSERT') THEN
IF (NEW.cohead_imported) THEN
SELECT fetchMetricText('CONumberGeneration') INTO _numGen;
IF ((NEW.cohead_number IS NULL) AND (_numGen='M')) THEN
RAISE EXCEPTION 'You must supply an Order Number.';
ELSE
IF (NEW.cohead_number IS NULL) THEN
SELECT fetchsonumber() INTO NEW.cohead_number;
END IF;
END IF;
END IF;
IF (fetchMetricText('CONumberGeneration') IN ('A','O')) THEN
--- clear the number from the issue cache
PERFORM clearNumberIssue('SoNumber', NEW.cohead_number);
END IF;
ELSE
IF (TG_OP = 'UPDATE') THEN
IF (NEW.cohead_number <> OLD.cohead_number) THEN
RAISE EXCEPTION 'The order number may not be changed.';
END IF;
END IF;
END IF;
IF (TG_OP IN ('INSERT','UPDATE')) THEN
-- Get Customer data
IF (NEW.cohead_shipto_id IS NULL) THEN
SELECT cust_creditstatus,cust_number,cust_usespos,cust_blanketpos,cust_ffbillto,
cust_ffshipto,cust_name,cust_salesrep_id,cust_terms_id,cust_shipvia,
cust_shipchrg_id,cust_shipform_id,cust_commprcnt,cust_curr_id,cust_taxzone_id,
cntct.*,addr.*,
shipto_id,shipto_addr_id,shipto_name,shipto_salesrep_id,shipto_shipvia,
shipto_shipchrg_id,shipto_shipform_id,shipto_commission,shipto_taxzone_id INTO _p
FROM custinfo
LEFT OUTER JOIN cntct ON (cust_cntct_id=cntct_id)
LEFT OUTER JOIN addr ON (cntct_addr_id=addr_id)
LEFT OUTER JOIN shiptoinfo ON ((cust_id=shipto_cust_id) AND shipto_default)
WHERE (cust_id=NEW.cohead_cust_id);
ELSE
SELECT cust_creditstatus,cust_number,cust_usespos,cust_blanketpos,cust_ffbillto,
cust_ffshipto,cust_name,cust_salesrep_id,cust_terms_id,cust_shipvia,
cust_shipchrg_id,cust_shipform_id,cust_commprcnt,cust_curr_id,cust_taxzone_id,
cntct.*,addr.*,
shipto_id,shipto_addr_id,shipto_name,shipto_salesrep_id,shipto_shipvia,
shipto_shipchrg_id,shipto_shipform_id,shipto_commission,shipto_taxzone_id INTO _p
FROM shiptoinfo,custinfo
LEFT OUTER JOIN cntct ON (cust_cntct_id=cntct_id)
LEFT OUTER JOIN addr ON (cntct_addr_id=addr_id)
WHERE ((cust_id=NEW.cohead_cust_id)
AND (shipto_id=NEW.cohead_shipto_id));
END IF;
-- If there is customer data, then we can get to work
IF (FOUND) THEN
-- Check Credit
IF (TG_OP = 'INSERT') THEN
IF (_p.cust_creditstatus = 'H') THEN
SELECT checkPrivilege('CreateSOForHoldCustomer') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'Customer % has been placed
on a Credit Hold and you do not have
privilege to create Sales Orders for
Customers on Credit Hold. The selected
Customer must be taken off of Credit Hold
before you may create a new Sales Order
for the Customer.',_p.cust_number;
ELSE
NEW.cohead_holdtype='C';
END IF;
END IF;
IF (_p.cust_creditstatus = 'W') THEN
SELECT checkPrivilege('CreateSOForWarnCustomer') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'Customer % has been placed on
a Credit Warning and you do not have
privilege to create Sales Orders for
Customers on Credit Warning. The
selected Customer must be taken off of
Credit Warning before you may create a
new Sales Order for the Customer.',_p.cust_number;
ELSE
NEW.cohead_holdtype='C';
END IF;
END IF;
-- Set to defaults if values not provided
NEW.cohead_shipto_id := COALESCE(NEW.cohead_shipto_id,_p.shipto_id);
NEW.cohead_terms_id := COALESCE(NEW.cohead_terms_id,_p.cust_terms_id);
NEW.cohead_orderdate := COALESCE(NEW.cohead_orderdate,current_date);
NEW.cohead_packdate := COALESCE(NEW.cohead_packdate,NEW.cohead_orderdate);
NEW.cohead_curr_id := COALESCE(NEW.cohead_curr_id,_p.cust_curr_id,basecurrid());
NEW.cohead_freight := COALESCE(NEW.cohead_freight,0);
NEW.cohead_custponumber := COALESCE(NEW.cohead_custponumber,'');
NEW.cohead_ordercomments := COALESCE(NEW.cohead_ordercomments,'');
NEW.cohead_shipcomments := COALESCE(NEW.cohead_shipcomments,'');
NEW.cohead_shiptophone := COALESCE(NEW.cohead_shiptophone,'');
NEW.cohead_misc := COALESCE(NEW.cohead_misc,0);
NEW.cohead_misc_descrip := COALESCE(NEW.cohead_misc_descrip,'');
NEW.cohead_shipcomplete := COALESCE(NEW.cohead_shipcomplete,false);
IF (_p.shipto_id IS NOT NULL) THEN -- Pull in over ride values
NEW.cohead_salesrep_id := COALESCE(NEW.cohead_salesrep_id,_p.shipto_salesrep_id);
NEW.cohead_shipvia := COALESCE(NEW.cohead_shipvia,_p.shipto_shipvia);
NEW.cohead_shipchrg_id := COALESCE(NEW.cohead_shipchrg_id,_p.shipto_shipchrg_id);
NEW.cohead_shipform_id := COALESCE(NEW.cohead_shipform_id,_p.shipto_shipform_id);
NEW.cohead_commission := COALESCE(NEW.cohead_commission,_p.shipto_commission);
IF (NEW.cohead_taxzone_id=-1) THEN
NEW.cohead_taxzone_id := NULL;
ELSE
NEW.cohead_taxzone_id := COALESCE(NEW.cohead_taxzone_id,_p.shipto_taxzone_id);
END IF;
ELSE
NEW.cohead_salesrep_id := COALESCE(NEW.cohead_salesrep_id,_p.cust_salesrep_id);
NEW.cohead_shipvia := COALESCE(NEW.cohead_shipvia,_p.cust_shipvia);
NEW.cohead_shipchrg_id := COALESCE(NEW.cohead_shipchrg_id,_p.cust_shipchrg_id);
NEW.cohead_shipform_id := COALESCE(NEW.cohead_shipform_id,_p.cust_shipform_id);
NEW.cohead_commission := COALESCE(NEW.cohead_commission,_p.cust_commprcnt);
IF (NEW.cohead_taxzone_id=-1) THEN
NEW.cohead_taxzone_id := NULL;
ELSE
NEW.cohead_taxzone_id := COALESCE(NEW.cohead_taxzone_id,_p.cust_taxzone_id);
END IF;
END IF;
IF ((NEW.cohead_warehous_id IS NULL) OR (NEW.cohead_fob IS NULL)) THEN
IF (NEW.cohead_warehous_id IS NULL) THEN
SELECT warehous_id,warehous_fob INTO _w
FROM usrpref, whsinfo
WHERE ((warehous_id=CAST(usrpref_value AS INTEGER))
AND (warehous_shipping)
AND (warehous_active)
AND (usrpref_username=getEffectiveXtUser())
AND (usrpref_name='PreferredWarehouse'));
ELSE
SELECT warehous_id,warehous_fob INTO _w
FROM whsinfo
WHERE (warehous_id=NEW.cohead_warehous_id);
END IF;
IF (FOUND) THEN
NEW.cohead_warehous_id := COALESCE(NEW.cohead_warehous_id,_w.warehous_id);
NEW.cohead_fob := COALESCE(NEW.cohead_fob,_w.warehous_fob);
END IF;
END IF;
END IF;
-- Only Check P/O logic for imports, because UI checks when entire order is saved
IF (NEW.cohead_imported) THEN
-- Check for required Purchase Order
IF (_p.cust_usespos AND ((NEW.cohead_custponumber IS NULL) OR (TRIM(BOTH FROM NEW.cohead_custponumber)=''))) THEN
RAISE EXCEPTION 'You must enter a Customer P/O for this Sales Order.';
END IF;
-- Check for duplicate Purchase Orders if not allowed
IF (_p.cust_usespos AND NOT (_p.cust_blanketpos)) THEN
SELECT cohead_id INTO _a
FROM cohead
WHERE ((cohead_cust_id=NEW.cohead_cust_id)
AND (cohead_id<>NEW.cohead_id)
AND (UPPER(cohead_custponumber) = UPPER(NEW.cohead_custponumber)) )
UNION
SELECT quhead_id
FROM quhead
WHERE ((quhead_cust_id=NEW.cohead_cust_id)
AND (quhead_id<>NEW.cohead_id)
AND (UPPER(quhead_custponumber) = UPPER(NEW.cohead_custponumber)) );
IF (FOUND) THEN
RAISE EXCEPTION 'This Customer does not use Blanket P/O
Numbers and the P/O Number you entered has
already been used for another Sales Order.
Please verify the P/O Number and either
enter a new P/O Number or add to the
existing Sales Order.';
END IF;
END IF;
END IF;
--Auto create project if applicable
IF ((TG_OP = 'INSERT') AND (NEW.cohead_prj_id IS NULL)) THEN
SELECT fetchMetricBool('AutoCreateProjectsForOrders') INTO _check;
IF (_check) THEN
SELECT NEXTVAL('prj_prj_id_seq') INTO _prjId;
NEW.cohead_prj_id := _prjId;
INSERT INTO prj (prj_id, prj_number, prj_name, prj_descrip, prj_status, prj_so, prj_wo, prj_po)
VALUES(_prjId, NEW.cohead_number, NEW.cohead_number, 'Auto Generated Project from Sales Order.', 'O', TRUE, TRUE, TRUE);
END IF;
END IF;
IF (TG_OP = 'UPDATE') THEN
SELECT true INTO _check
FROM coitem
WHERE ( (coitem_status='C')
AND (coitem_cohead_id=NEW.cohead_id) )
LIMIT 1;
IF (NOT FOUND) THEN
--Update project references on supply
UPDATE pr SET pr_prj_id=NEW.cohead_prj_id
FROM coitem
WHERE ((coitem_cohead_id=NEW.cohead_id)
AND (coitem_order_type='R')
AND (coitem_order_id=pr_id));
PERFORM changeWoProject(coitem_order_id, NEW.cohead_prj_id, TRUE)
FROM coitem
WHERE ((coitem_cohead_id=NEW.cohead_id)
AND (coitem_order_type='W'));
ELSE
IF NEW.cohead_prj_id <> COALESCE(OLD.cohead_prj_id,-1) THEN
RAISE EXCEPTION 'You can not change the project ID on orders with closed lines.';
END IF;
END IF;
END IF;
-- Deal with Billing Address
IF (TG_OP = 'INSERT') THEN
IF (_p.cust_ffbillto) THEN
-- If they didn't supply data, we'll put in the bill to contact and address
NEW.cohead_billto_cntct_id=COALESCE(NEW.cohead_billto_cntct_id,_p.cntct_id);
NEW.cohead_billto_cntct_honorific=COALESCE(NEW.cohead_billto_cntct_honorific,_p.cntct_honorific,'');
NEW.cohead_billto_cntct_first_name=COALESCE(NEW.cohead_billto_cntct_first_name,_p.cntct_first_name,'');
NEW.cohead_billto_cntct_middle=COALESCE(NEW.cohead_billto_cntct_middle,_p.cntct_middle,'');
NEW.cohead_billto_cntct_last_name=COALESCE(NEW.cohead_billto_cntct_last_name,_p.cntct_last_name,'');
NEW.cohead_billto_cntct_phone=COALESCE(NEW.cohead_billto_cntct_phone,_p.cntct_phone,'');
NEW.cohead_billto_cntct_title=COALESCE(NEW.cohead_billto_cntct_title,_p.cntct_title,'');
NEW.cohead_billto_cntct_fax=COALESCE(NEW.cohead_billto_cntct_fax,_p.cntct_fax,'');
NEW.cohead_billto_cntct_email=COALESCE(NEW.cohead_billto_cntct_email,_p.cntct_email,'');
NEW.cohead_billtoname=COALESCE(NEW.cohead_billtoname,_p.cust_name,'');
NEW.cohead_billtoaddress1=COALESCE(NEW.cohead_billtoaddress1,_p.addr_line1,'');
NEW.cohead_billtoaddress2=COALESCE(NEW.cohead_billtoaddress2,_p.addr_line2,'');
NEW.cohead_billtoaddress3=COALESCE(NEW.cohead_billtoaddress3,_p.addr_line3,'');
NEW.cohead_billtocity=COALESCE(NEW.cohead_billtocity,_p.addr_city,'');
NEW.cohead_billtostate=COALESCE(NEW.cohead_billtostate,_p.addr_state,'');
NEW.cohead_billtozipcode=COALESCE(NEW.cohead_billtozipcode,_p.addr_postalcode,'');
NEW.cohead_billtocountry=COALESCE(NEW.cohead_billtocountry,_p.addr_country,'');
ELSE
-- Free form not allowed, we're going to put in the address regardless
NEW.cohead_billto_cntct_id=_p.cntct_id;
NEW.cohead_billto_cntct_honorific=COALESCE(_p.cntct_honorific,'');
NEW.cohead_billto_cntct_first_name=COALESCE(_p.cntct_first_name,'');
NEW.cohead_billto_cntct_middle=COALESCE(_p.cntct_middle,'');
NEW.cohead_billto_cntct_last_name=COALESCE(_p.cntct_last_name,'');
NEW.cohead_billto_cntct_phone=COALESCE(_p.cntct_phone,'');
NEW.cohead_billto_cntct_title=COALESCE(_p.cntct_title,'');
NEW.cohead_billto_cntct_fax=COALESCE(_p.cntct_fax,'');
NEW.cohead_billto_cntct_email=COALESCE(_p.cntct_email,'');
NEW.cohead_billtoname=COALESCE(_p.cust_name,'');
NEW.cohead_billtoaddress1=COALESCE(_p.addr_line1,'');
NEW.cohead_billtoaddress2=COALESCE(_p.addr_line2,'');
NEW.cohead_billtoaddress3=COALESCE(_p.addr_line3,'');
NEW.cohead_billtocity=COALESCE(_p.addr_city,'');
NEW.cohead_billtostate=COALESCE(_p.addr_state,'');
NEW.cohead_billtozipcode=COALESCE(_p.addr_postalcode,'');
NEW.cohead_billtocountry=COALESCE(_p.addr_country,'');
END IF;
END IF;
-- Now let's look at Shipto Address
-- If there's nothing in the address fields and there is a shipto id
-- or there is a default address available, let's put in some shipto address data
IF ((TG_OP = 'INSERT')
AND NOT ((NEW.cohead_shipto_id IS NULL) AND NOT _p.cust_ffshipto)
AND (NEW.cohead_shipto_cntct_id IS NULL)
AND (NEW.cohead_shipto_cntct_honorific IS NULL)
AND (NEW.cohead_shipto_cntct_first_name IS NULL)
AND (NEW.cohead_shipto_cntct_middle IS NULL)
AND (NEW.cohead_shipto_cntct_last_name IS NULL)
AND (NEW.cohead_shipto_cntct_suffix IS NULL)
AND (NEW.cohead_shipto_cntct_phone IS NULL)
AND (NEW.cohead_shipto_cntct_title IS NULL)
AND (NEW.cohead_shipto_cntct_fax IS NULL)
AND (NEW.cohead_shipto_cntct_email IS NULL)
AND (NEW.cohead_shiptoname IS NULL)
AND (NEW.cohead_shiptoaddress1 IS NULL)
AND (NEW.cohead_shiptoaddress2 IS NULL)
AND (NEW.cohead_shiptoaddress3 IS NULL)
AND (NEW.cohead_shiptocity IS NULL)
AND (NEW.cohead_shiptostate IS NULL)
AND (NEW.cohead_shiptocountry IS NULL)) THEN
IF ((NEW.cohead_shipto_id IS NULL) AND (_p.shipto_id IS NOT NULL)) THEN
_shiptoId := _p.shipto_addr_id;
ELSE
_shiptoId := NEW.cohead_shipto_id;
END IF;
SELECT * INTO _a
FROM shiptoinfo
LEFT OUTER JOIN addr ON (addr_id=shipto_addr_id)
LEFT OUTER JOIN cntct ON (cntct_id=shipto_cntct_id)
WHERE (shipto_id=_shiptoId);
NEW.cohead_shipto_cntct_id := _a.cntct_id;
NEW.cohead_shipto_cntct_honorific := COALESCE(_a.cntct_honorific,'');
NEW.cohead_shipto_cntct_first_name := COALESCE(_a.cntct_first_name,'');
NEW.cohead_shipto_cntct_middle := COALESCE(_a.cntct_middle,'');
NEW.cohead_shipto_cntct_last_name := COALESCE(_a.cntct_last_name,'');
NEW.cohead_shipto_cntct_suffix := COALESCE(_a.cntct_suffix,'');
NEW.cohead_shipto_cntct_phone := COALESCE(_a.cntct_phone,'');
NEW.cohead_shipto_cntct_title := COALESCE(_a.cntct_title,'');
NEW.cohead_shipto_cntct_fax := COALESCE(_a.cntct_fax,'');
NEW.cohead_shipto_cntct_email := COALESCE(_a.cntct_email,'');
NEW.cohead_shiptoname := COALESCE(_p.shipto_name,'');
NEW.cohead_shiptoaddress1 := COALESCE(_a.addr_line1,'');
NEW.cohead_shiptoaddress2 := COALESCE(_a.addr_line2,'');
NEW.cohead_shiptoaddress3 := COALESCE(_a.addr_line3,'');
NEW.cohead_shiptocity := COALESCE(_a.addr_city,'');
NEW.cohead_shiptostate := COALESCE(_a.addr_state,'');
NEW.cohead_shiptozipcode := COALESCE(_a.addr_postalcode,'');
NEW.cohead_shiptocountry := COALESCE(_a.addr_country,'');
ELSE
IF (_p.cust_ffshipto) THEN
-- Use Address Save function to see if the new address entered matches
-- data for the shipto number. If not that will insert new address for CRM
SELECT SaveAddr(
NULL,
NULL,
NEW.cohead_shiptoaddress1,
NEW.cohead_shiptoaddress2,
NEW.cohead_shiptoaddress3,
NEW.cohead_shiptocity,
NEW.cohead_shiptostate,
NEW.cohead_shiptozipcode,
NEW.cohead_shiptocountry,
'CHANGEONE') INTO _addrId;
SELECT shipto_addr_id INTO _shiptoid FROM shiptoinfo WHERE (shipto_id=NEW.cohead_shipto_id);
-- If the address passed doesn't match shipto address, then it's something else
IF (_shiptoid <> _addrId) THEN
NEW.cohead_shipto_id := NULL;
END IF;
ELSE
SELECT cohead_shipto_id INTO _shiptoid FROM cohead WHERE (cohead_id=NEW.cohead_id);
-- Get the shipto address
IF (COALESCE(NEW.cohead_shipto_id,-1) <> COALESCE(_shiptoid,-1)) THEN
SELECT * INTO _a
FROM shiptoinfo
LEFT OUTER JOIN cntct ON (shipto_cntct_id=cntct_id)
LEFT OUTER JOIN addr ON (shipto_addr_id=addr_id)
WHERE (shipto_id=NEW.cohead_shipto_id);
IF (FOUND) THEN
-- Free form not allowed so we're going to make sure address matches Shipto data
NEW.cohead_shipto_cntct_id=_a.cntct_id;
NEW.cohead_shipto_cntct_honorific=COALESCE(_a.cntct_honorific,'');
NEW.cohead_shipto_cntct_first_name=COALESCE(_a.cntct_first_name,'');
NEW.cohead_shipto_cntct_middle=COALESCE(_a.cntct_middle,'');
NEW.cohead_shipto_cntct_last_name=COALESCE(_a.cntct_last_name,'');
NEW.cohead_shipto_cntct_phone=COALESCE(_a.cntct_phone,'');
NEW.cohead_shipto_cntct_title=COALESCE(_a.cntct_title,'');
NEW.cohead_shipto_cntct_fax=COALESCE(_a.cntct_fax,'');
NEW.cohead_shipto_cntct_email=COALESCE(_a.cntct_email,'');
NEW.cohead_shiptoname := COALESCE(_a.shipto_name,'');
NEW.cohead_shiptophone := COALESCE(_a.cntct_phone,'');
NEW.cohead_shiptoaddress1 := COALESCE(_a.addr_line1,'');
NEW.cohead_shiptoaddress2 := COALESCE(_a.addr_line2,'');
NEW.cohead_shiptoaddress3 := COALESCE(_a.addr_line3,'');
NEW.cohead_shiptocity := COALESCE(_a.addr_city,'');
NEW.cohead_shiptostate := COALESCE(_a.addr_state,'');
NEW.cohead_shiptozipcode := COALESCE(_a.addr_postalcode,'');
NEW.cohead_shiptocountry := COALESCE(_a.addr_country,'');
ELSE
-- If no shipto data and free form not allowed, this won't work
RAISE EXCEPTION 'Free form Shipto is not allowed on this Customer. You must supply a valid Shipto ID.';
END IF;
END IF;
END IF;
END IF;
END IF;
END IF;
IF ( SELECT (metric_value='t')
FROM metric
WHERE (metric_name='SalesOrderChangeLog') ) THEN
IF (TG_OP = 'INSERT') THEN
PERFORM postComment('ChangeLog', 'S', NEW.cohead_id, 'Created');
ELSIF (TG_OP = 'UPDATE') THEN
IF (OLD.cohead_terms_id <> NEW.cohead_terms_id) THEN
PERFORM postComment( 'ChangeLog', 'S', NEW.cohead_id,
('Terms Changed from "' || oldterms.terms_code || '" to "' || newterms.terms_code || '"') )
FROM terms AS oldterms, terms AS newterms
WHERE ( (oldterms.terms_id=OLD.cohead_terms_id)
AND (newterms.terms_id=NEW.cohead_terms_id) );
END IF;
IF (OLD.cohead_shipvia <> NEW.cohead_shipvia) THEN
PERFORM postComment ('ChangeLog', 'S', New.cohead_id, ('Shipvia Changed from "' || OLD.cohead_shipvia || '" to "' || NEW.cohead_shipvia || '"'));
END IF;
IF (OLD.cohead_holdtype <> NEW.cohead_holdtype) THEN
PERFORM postComment( 'ChangeLog', 'S', NEW.cohead_id,
( 'Hold Type Changed from ' || (CASE OLD.cohead_holdtype WHEN('N') THEN 'No Hold'
WHEN('C') THEN 'Credit Hold'
WHEN('P') THEN 'Packing Hold'
WHEN('S') THEN 'Shipping Hold'
ELSE 'Unknown/Error' END) ||
' to ' || (CASE NEW.cohead_holdtype WHEN('N') THEN 'No Hold'
WHEN('C') THEN 'Credit Hold'
WHEN('P') THEN 'Packing Hold'
WHEN('S') THEN 'Shipping Hold'
ELSE 'Unknown/Error' END) ) );
END IF;
ELSIF (TG_OP = 'DELETE') THEN
DELETE FROM docass WHERE docass_source_id = OLD.cohead_id AND docass_source_type = 'S';
DELETE FROM docass WHERE docass_target_id = OLD.cohead_id AND docass_target_type = 'S';
DELETE FROM comment
WHERE ( (comment_source='S')
AND (comment_source_id=OLD.cohead_id) );
END IF;
END IF;
IF (TG_OP = 'UPDATE') THEN
IF ( (NOT (OLD.cohead_holdtype = 'N')) AND
(NEW.cohead_holdtype='N') ) THEN
INSERT INTO evntlog ( evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id, evntlog_number )
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'S', NEW.cohead_id, NEW.cohead_warehous_id, NEW.cohead_number::TEXT
FROM evntnot, evnttype
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (evntnot_warehous_id=NEW.cohead_warehous_id)
AND (evnttype_name='SoReleased') );
END IF;
IF (OLD.cohead_ordercomments <> NEW.cohead_ordercomments) THEN
INSERT INTO evntlog ( evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id, evntlog_number )
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'S', NEW.cohead_id, NEW.cohead_warehous_id, NEW.cohead_number::TEXT
FROM evntnot, evnttype
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (evntnot_warehous_id=NEW.cohead_warehous_id)
AND (evnttype_name='SoNotesChanged') );
END IF;
IF ((OLD.cohead_shipchrg_id != NEW.cohead_shipchrg_id)
OR (OLD.cohead_freight != NEW.cohead_freight)
OR (OLD.cohead_shipvia != NEW.cohead_shipvia)) THEN
UPDATE shiphead SET
shiphead_shipchrg_id=NEW.cohead_shipchrg_id,
shiphead_freight=NEW.cohead_freight,
shiphead_shipvia=NEW.cohead_shipvia
WHERE ((shiphead_order_type='SO')
AND (shiphead_order_id=NEW.cohead_id)
AND (NOT shiphead_shipped));
END IF;
END IF;
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
ELSE
NEW.cohead_lastupdated = CURRENT_TIMESTAMP;
RETURN NEW;
END IF;
END;
$$;
ALTER FUNCTION public._soheadtrigger() OWNER TO admin;
--
-- Name: _soheadtriggerafter(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _soheadtriggerafter() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (COALESCE(NEW.cohead_taxzone_id,-1) <> COALESCE(OLD.cohead_taxzone_id,-1)) THEN
UPDATE coitem SET coitem_taxtype_id=getItemTaxType(itemsite_item_id,NEW.cohead_taxzone_id)
FROM itemsite
WHERE ((itemsite_id=coitem_itemsite_id)
AND (coitem_cohead_id=NEW.cohead_id));
END IF;
-- update comments on any associated drop ship POs
IF (COALESCE(NEW.cohead_shipcomments, TEXT('')) <> COALESCE(OLD.cohead_shipcomments, TEXT(''))) THEN
UPDATE pohead SET pohead_comments=NEW.cohead_shipcomments
FROM poitem JOIN coitem ON (coitem_cohead_id=NEW.cohead_id AND coitem_order_type='P' AND coitem_order_id=poitem_id)
WHERE (pohead_id=poitem_pohead_id);
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._soheadtriggerafter() OWNER TO admin;
--
-- Name: _soitemafterdeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _soitemafterdeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
BEGIN
IF (OLD.coitem_status = 'O') THEN
IF ( (SELECT (count(*) < 1)
FROM coitem
WHERE ((coitem_cohead_id=OLD.coitem_cohead_id)
AND (coitem_id != OLD.coitem_id)
AND (coitem_status = 'O')) ) ) THEN
UPDATE cohead SET cohead_status = 'C'
WHERE ((cohead_id=OLD.coitem_cohead_id)
AND (cohead_status='O'));
END IF;
END IF;
RETURN OLD;
END;
$$;
ALTER FUNCTION public._soitemafterdeletetrigger() OWNER TO admin;
--
-- Name: _soitemaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _soitemaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_check NUMERIC;
_r RECORD;
_kit BOOLEAN;
_fractional BOOLEAN;
_rec RECORD;
_kstat TEXT;
_pstat TEXT;
_result INTEGER;
_coitemid INTEGER;
_itemsrcid INTEGER;
_orderid INTEGER;
BEGIN
_rec := NEW;
--Cache some information
SELECT * INTO _r
FROM cohead
WHERE (cohead_id=_rec.coitem_cohead_id);
--Determine if this is a kit for later processing
SELECT COALESCE(item_type,'')='K', item_fractional
INTO _kit, _fractional
FROM itemsite, item
WHERE((itemsite_item_id=item_id)
AND (itemsite_id=_rec.coitem_itemsite_id));
_kit := COALESCE(_kit, false);
_fractional := COALESCE(_fractional, false);
IF (_kit) THEN
-- Kit Processing
IF (TG_OP = 'INSERT') THEN
-- Create Sub Lines for Kit Components
PERFORM explodeKit(NEW.coitem_cohead_id, NEW.coitem_linenumber, 0, NEW.coitem_itemsite_id,
NEW.coitem_qtyord, NEW.coitem_scheddate, NEW.coitem_promdate, NEW.coitem_memo);
IF (fetchMetricBool('KitComponentInheritCOS')) THEN
-- Update kit line item COS
UPDATE coitem
SET coitem_cos_accnt_id = CASE WHEN (COALESCE(NEW.coitem_cos_accnt_id, -1) != -1)
THEN NEW.coitem_cos_accnt_id
WHEN (NEW.coitem_warranty)
THEN resolveCOWAccount(NEW.coitem_itemsite_id, _r.cohead_cust_id, _r.cohead_saletype_id, _r.cohead_shipzone_id)
ELSE resolveCOSAccount(NEW.coitem_itemsite_id, _r.cohead_cust_id, _r.cohead_saletype_id, _r.cohead_shipzone_id)
END
WHERE((coitem_cohead_id=NEW.coitem_cohead_id)
AND (coitem_linenumber = NEW.coitem_linenumber)
AND (coitem_subnumber > 0));
END IF;
END IF;
IF (TG_OP = 'UPDATE') THEN
IF (NEW.coitem_qtyord <> OLD.coitem_qtyord) THEN
-- Recreate Sub Lines for Kit Components
FOR _coitemid IN
SELECT coitem_id
FROM coitem
WHERE ( (coitem_cohead_id=OLD.coitem_cohead_id)
AND (coitem_linenumber=OLD.coitem_linenumber)
AND (coitem_subnumber > 0) )
LOOP
SELECT deleteSoItem(_coitemid) INTO _result;
IF (_result < 0) THEN
RAISE EXCEPTION 'Error deleting kit components: deleteSoItem(integer) Error:%', _result;
END IF;
END LOOP;
PERFORM explodeKit(NEW.coitem_cohead_id, NEW.coitem_linenumber, 0, NEW.coitem_itemsite_id,
NEW.coitem_qtyord, NEW.coitem_scheddate, NEW.coitem_promdate);
END IF;
IF ( (NEW.coitem_qtyord <> OLD.coitem_qtyord) OR
(NEW.coitem_cos_accnt_id <> OLD.coitem_cos_accnt_id) ) THEN
IF (fetchMetricBool('KitComponentInheritCOS')) THEN
-- Update kit line item COS
UPDATE coitem
SET coitem_cos_accnt_id = CASE WHEN (COALESCE(NEW.coitem_cos_accnt_id, -1) != -1)
THEN NEW.coitem_cos_accnt_id
WHEN (NEW.coitem_warranty)
THEN resolveCOWAccount(NEW.coitem_itemsite_id, _r.cohead_cust_id, _r.cohead_saletype_id, _r.cohead_shipzone_id)
ELSE resolveCOSAccount(NEW.coitem_itemsite_id, _r.cohead_cust_id, _r.cohead_saletype_id, _r.cohead_shipzone_id)
END
WHERE((coitem_cohead_id=NEW.coitem_cohead_id)
AND (coitem_linenumber = NEW.coitem_linenumber)
AND (coitem_subnumber > 0));
END IF;
END IF;
IF (NEW.coitem_scheddate <> OLD.coitem_scheddate) THEN
-- Update kit line item Schedule Date
UPDATE coitem
SET coitem_scheddate = NEW.coitem_scheddate
WHERE((coitem_cohead_id=NEW.coitem_cohead_id)
AND (coitem_linenumber = NEW.coitem_linenumber)
AND (coitem_subnumber > 0));
END IF;
END IF;
END IF;
IF (TG_OP = 'INSERT') THEN
-- Create Purchase Request if flagged to do so
IF ((NEW.coitem_order_type='R') AND (NEW.coitem_order_id=-1)) THEN
SELECT createpr(CAST(cohead_number AS INTEGER), 'S', NEW.coitem_id) INTO _orderid
FROM cohead
WHERE (cohead_id=NEW.coitem_cohead_id);
IF (_orderid > 0) THEN
UPDATE coitem SET coitem_order_id=_orderid
WHERE (coitem_id=NEW.coitem_id);
END IF;
END IF;
-- Create Purchase Order if flagged to do so
IF ((NEW.coitem_order_type='P') AND (NEW.coitem_order_id=-1)) THEN
SELECT itemsrc_id INTO _itemsrcid
FROM itemsite JOIN itemsrc ON (itemsrc_item_id=itemsite_item_id AND itemsrc_default)
WHERE (itemsite_id=NEW.coitem_itemsite_id);
IF (FOUND) THEN
SELECT createPurchaseToSale(NEW.coitem_id,
_itemsrcid,
itemsite_dropship,
CASE WHEN (NEW.coitem_prcost=0.0) THEN NULL
ELSE NEW.coitem_prcost
END) INTO _orderid
FROM itemsite
WHERE (itemsite_id=NEW.coitem_itemsite_id);
IF (_orderid > 0) THEN
UPDATE coitem SET coitem_order_id=_orderid
WHERE (coitem_id=NEW.coitem_id);
END IF;
END IF;
END IF;
END IF;
IF (TG_OP = 'UPDATE') THEN
IF (NEW.coitem_order_type = 'P') THEN
--If soitem is cancelled
IF ((NEW.coitem_status = 'X') AND (OLD.coitem_status <> 'X')) THEN
--Generate the PoItemSoCancelled event
INSERT INTO evntlog
( evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id,
evntlog_number )
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'P', poitem_id, itemsite_warehous_id,
(pohead_number || '-' || poitem_linenumber || ': ' || item_number)
FROM evntnot JOIN evnttype ON (evntnot_evnttype_id=evnttype_id)
JOIN itemsite ON (evntnot_warehous_id=itemsite_warehous_id)
JOIN item ON (itemsite_item_id=item_id)
JOIN poitem ON (poitem_itemsite_id=itemsite_id)
JOIN pohead ON( poitem_pohead_id=pohead_id)
WHERE( (poitem_id=OLD.coitem_order_id)
AND (poitem_duedate <= (CURRENT_DATE + itemsite_eventfence))
AND (evnttype_name='PoItemSoCancelled') );
END IF;
END IF;
END IF;
IF (_rec.coitem_subnumber > 0) THEN
SELECT coitem_status
INTO _kstat
FROM coitem
WHERE((coitem_cohead_id=_rec.coitem_cohead_id)
AND (coitem_linenumber=_rec.coitem_linenumber)
AND (coitem_subnumber = 0));
IF ((SELECT count(*)
FROM coitem
WHERE((coitem_cohead_id=_rec.coitem_cohead_id)
AND (coitem_linenumber=_rec.coitem_linenumber)
AND (coitem_subnumber <> _rec.coitem_subnumber)
AND (coitem_subnumber > 0)
AND (coitem_status = 'O'))) > 0) THEN
_pstat := 'O';
ELSE
_pstat := _rec.coitem_status;
END IF;
END IF;
IF(TG_OP = 'INSERT') THEN
IF (_rec.coitem_subnumber > 0 AND _rec.coitem_status = 'O') THEN
_pstat := 'O';
END IF;
ELSIF (TG_OP = 'UPDATE') THEN
IF (_rec.coitem_subnumber > 0 AND _rec.coitem_status = 'O') THEN
_pstat := 'O';
END IF;
IF ((NEW.coitem_status = 'C') AND (OLD.coitem_status <> 'C')) THEN
IF(_kit) THEN
UPDATE coitem
SET coitem_status='C'
WHERE((coitem_cohead_id=OLD.coitem_cohead_id)
AND (coitem_linenumber=OLD.coitem_linenumber)
AND (coitem_status='O')
AND (coitem_subnumber > 0));
END IF;
END IF;
IF ((NEW.coitem_status = 'X') AND (OLD.coitem_status <> 'X')) THEN
IF(_kit) THEN
UPDATE coitem
SET coitem_status='X'
WHERE((coitem_cohead_id=OLD.coitem_cohead_id)
AND (coitem_linenumber=OLD.coitem_linenumber)
AND (coitem_status='O')
AND (coitem_subnumber > 0));
END IF;
END IF;
IF(NEW.coitem_status = 'O' AND OLD.coitem_status <> 'O') THEN
IF(_kit) THEN
UPDATE coitem
SET coitem_status='O'
WHERE((coitem_cohead_id=OLD.coitem_cohead_id)
AND (coitem_linenumber=OLD.coitem_linenumber)
AND ((coitem_qtyord - coitem_qtyshipped + coitem_qtyreturned) > 0)
AND (coitem_subnumber > 0));
END IF;
END IF;
END IF;
IF ((_kstat IS NOT NULL) AND (_pstat IS NOT NULL) AND (_rec.coitem_subnumber > 0) AND (_kstat <> _pstat)) THEN
UPDATE coitem
SET coitem_status = _pstat
WHERE((coitem_cohead_id=_rec.coitem_cohead_id)
AND (coitem_linenumber=_rec.coitem_linenumber)
AND (coitem_subnumber = 0));
END IF;
--If auto calculate freight, recalculate cohead_freight
IF (SELECT cohead_calcfreight FROM cohead WHERE (cohead_id=NEW.coitem_cohead_id)) THEN
UPDATE cohead SET cohead_freight = COALESCE(
(SELECT SUM(freightdata_total) FROM freightDetail('SO',
cohead_id,
cohead_cust_id,
cohead_shipto_id,
cohead_orderdate,
cohead_shipvia,
cohead_curr_id)), 0)
WHERE cohead_id=NEW.coitem_cohead_id;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._soitemaftertrigger() OWNER TO admin;
--
-- Name: _soitembeforedeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _soitembeforedeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_r RECORD;
_kit BOOLEAN := FALSE;
_shipped BOOLEAN := FALSE;
_coitemid INTEGER := 0;
_result INTEGER := 0;
BEGIN
-- Check Priv
IF NOT (checkPrivilege('MaintainSalesOrders')) THEN
RAISE EXCEPTION 'You do not have privileges to alter a Sales Order.';
END IF;
-- Cache some information
SELECT * INTO _r
FROM cohead, itemsite, item
WHERE ( (cohead_id=OLD.coitem_cohead_id)
AND (itemsite_id=OLD.coitem_itemsite_id)
AND (item_id=itemsite_item_id) );
_kit := (COALESCE(_r.item_type,'')='K');
-- Check for shipped kit components
IF(_kit AND OLD.coitem_status <> 'C' AND OLD.coitem_status <> 'X') THEN
IF (EXISTS (SELECT coitem_id
FROM coitem JOIN shipitem ON (shipitem_orderitem_id=coitem_id)
JOIN shiphead ON (shiphead_id=shipitem_shiphead_id AND shiphead_order_type='SO')
WHERE ((coitem_cohead_id=OLD.coitem_cohead_id)
AND (coitem_linenumber=OLD.coitem_linenumber)
AND (coitem_subnumber > 0))
GROUP BY coitem_id
HAVING (SUM(shipitem_qty) > 0)
LIMIT 1) ) THEN
_shipped := TRUE;
END IF;
END IF;
IF(_kit AND _shipped) THEN
RAISE EXCEPTION 'You can not delete this Sales Order Line as it has several sub components that have already been shipped.';
END IF;
DELETE FROM comment
WHERE ( (comment_source='SI')
AND (comment_source_id=OLD.coitem_id) );
DELETE FROM charass
WHERE ((charass_target_type='SI')
AND (charass_target_id=OLD.coitem_id));
-- Delete Sub Lines for Kit Components
IF (OLD.coitem_subnumber = 0) THEN
FOR _coitemid IN
SELECT coitem_id
FROM coitem
WHERE ( (coitem_cohead_id=OLD.coitem_cohead_id)
AND (coitem_linenumber=OLD.coitem_linenumber)
AND (coitem_subnumber > 0) )
LOOP
SELECT deleteSoItem(_coitemid) INTO _result;
IF (_result < 0) THEN
IF NOT (_r.itemsite_createsopo AND (_result = -10 OR _result = -20)) THEN
RAISE EXCEPTION 'Error deleting kit components: deleteSoItem(integer) Error:%', _result;
END IF;
END IF;
END LOOP;
END IF;
INSERT INTO evntlog ( evntlog_evnttime, evntlog_username,
evntlog_evnttype_id, evntlog_ordtype,
evntlog_ord_id, evntlog_warehous_id, evntlog_number )
SELECT CURRENT_TIMESTAMP, evntnot_username,
evnttype_id, 'S',
OLD.coitem_id, _r.itemsite_warehous_id,
(_r.cohead_number || '-' || OLD.coitem_linenumber)
FROM evntnot, evnttype
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (evntnot_warehous_id=_r.itemsite_warehous_id)
AND (OLD.coitem_scheddate <= (CURRENT_DATE + _r.itemsite_eventfence))
AND (evnttype_name='SoitemCancelled') );
RETURN OLD;
END;
$$;
ALTER FUNCTION public._soitembeforedeletetrigger() OWNER TO admin;
--
-- Name: _soitembeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _soitembeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_check NUMERIC;
_itemNumber TEXT;
_r RECORD;
_kit BOOLEAN;
BEGIN
--Determine if this is a kit for later processing
SELECT COALESCE(item_type,'')='K'
INTO _kit
FROM itemsite, item
WHERE((itemsite_item_id=item_id)
AND (itemsite_id=NEW.coitem_itemsite_id));
_kit := COALESCE(_kit, false);
IF (TG_OP = 'INSERT') THEN
-- If this is imported, go ahead and insert default characteristics
IF (NEW.coitem_imported) THEN
INSERT INTO charass (charass_target_type, charass_target_id, charass_char_id, charass_value, charass_price)
SELECT 'SI', NEW.coitem_id, char_id, charass_value,
itemcharprice(item_id,char_id,charass_value,cohead_cust_id,cohead_shipto_id,NEW.coitem_qtyord,cohead_curr_id,cohead_orderdate)
FROM (
SELECT DISTINCT char_id, char_name, charass_value, item_id, cohead_cust_id, cohead_shipto_id, cohead_curr_id, cohead_orderdate
FROM cohead, charass, char, itemsite, item
WHERE((itemsite_id=NEW.coitem_itemsite_id)
AND (itemsite_item_id=item_id)
AND (charass_target_type='I')
AND (charass_target_id=item_id)
AND (charass_default)
AND (char_id=charass_char_id)
AND (cohead_id=NEW.coitem_cohead_id))
ORDER BY char_name) AS data;
END IF;
END IF;
-- Create work order and process if flagged to do so
IF ((NEW.coitem_order_type='W') AND (NEW.coitem_order_id=-1)) THEN
SELECT createwo(CAST(cohead_number AS INTEGER),
NEW.coitem_itemsite_id,
1, -- priority
validateOrderQty(NEW.coitem_itemsite_id, NEW.coitem_qtyord, TRUE),
itemsite_leadtime,
NEW.coitem_scheddate,
NEW.coitem_memo,
'S',
NEW.coitem_id,
cohead_prj_id) INTO NEW.coitem_order_id
FROM cohead, itemsite
WHERE ((cohead_id=NEW.coitem_cohead_id)
AND (itemsite_id=NEW.coitem_itemsite_id));
INSERT INTO charass
(charass_target_type, charass_target_id,
charass_char_id, charass_value)
SELECT 'W', NEW.coitem_order_id, charass_char_id, charass_value
FROM charass
WHERE ((charass_target_type='SI')
AND (charass_target_id=NEW.coitem_id));
END IF;
IF (TG_OP = 'UPDATE') THEN
-- Update P/R date if applicable
IF (NEW.coitem_scheddate <> OLD.coitem_scheddate AND NEW.coitem_order_type='R' AND NEW.coitem_order_id > 1) THEN
UPDATE pr SET pr_duedate = NEW.coitem_scheddate WHERE (pr_order_id=NEW.coitem_id AND pr_order_type='S');
END IF;
-- If closing or cancelling and there is a job item work order, then close job and distribute remaining costs
IF ((NEW.coitem_status = 'C' AND OLD.coitem_status <> 'C')
OR (NEW.coitem_status = 'X' AND OLD.coitem_status <> 'X'))
AND (OLD.coitem_order_id > -1) THEN
SELECT wo_id, wo_wipvalue INTO _r
FROM wo,itemsite,item
WHERE ((wo_ordtype='S')
AND (wo_ordid=OLD.coitem_id)
AND (itemsite_id=wo_itemsite_id)
AND (item_id=itemsite_item_id)
AND (itemsite_costmethod = 'J'));
IF (FOUND) THEN
IF (_r.wo_wipvalue > 0) THEN
-- Distribute to G/L, debit Cost of Sales, credit WIP
PERFORM MIN(insertGLTransaction( 'W/O', 'WO', formatWoNumber(NEW.coitem_order_id), 'Job Closed Incomplete',
costcat_wip_accnt_id,
CASE WHEN (COALESCE(NEW.coitem_cos_accnt_id, -1) != -1)
THEN NEW.coitem_cos_accnt_id
WHEN (NEW.coitem_warranty=TRUE)
THEN resolveCOWAccount(itemsite_id, cohead_cust_id, cohead_saletype_id, cohead_shipzone_id)
ELSE resolveCOSAccount(itemsite_id, cohead_cust_id, cohead_saletype_id, cohead_shipzone_id)
END,
-1, _r.wo_wipvalue, current_date ))
FROM itemsite, costcat, cohead
WHERE ((itemsite_id=NEW.coitem_itemsite_id)
AND (itemsite_costcat_id=costcat_id)
AND (cohead_id=NEW.coitem_cohead_id));
END IF;
UPDATE wo SET
wo_status = 'C',
wo_wipvalue = 0
WHERE (wo_id = _r.wo_id);
END IF;
END IF;
-- Likewise, reopen the job if line reopened
IF ((NEW.coitem_status != 'C' AND OLD.coitem_status = 'C')
OR (NEW.coitem_status != 'X' AND OLD.coitem_status = 'X'))
AND (OLD.coitem_order_id > -1) THEN
UPDATE wo SET
wo_status = 'I'
FROM itemsite, item
WHERE ((wo_ordtype = 'S')
AND (wo_ordid=NEW.coitem_id)
AND (wo_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (itemsite_costmethod='J'));
END IF;
-- Handle links to Return Authorization
IF (fetchMetricBool('EnableReturnAuth')) THEN
SELECT * INTO _r
FROM raitem,rahead
WHERE ((raitem_new_coitem_id=NEW.coitem_id)
AND (rahead_id=raitem_rahead_id));
IF (FOUND) THEN
IF ((_r.raitem_qtyauthorized <> NEW.coitem_qtyord OR
_r.raitem_qty_uom_id <> NEW.coitem_qty_uom_id OR
_r.raitem_qty_invuomratio <> NEW.coitem_qty_invuomratio OR
_r.raitem_price_uom_id <> NEW.coitem_price_uom_id OR
_r.raitem_price_invuomratio <> NEW.coitem_price_invuomratio)
AND NOT (NEW.coitem_status = 'X' AND _r.raitem_qtyauthorized = 0)) THEN
RAISE EXCEPTION 'Quantities for line item % may only be changed on the Return Authorization that created it.',NEW.coitem_linenumber;
END IF;
IF (OLD.coitem_warranty <> NEW.coitem_warranty) THEN
UPDATE raitem SET raitem_warranty = NEW.coitem_warranty
WHERE((raitem_new_coitem_id=NEW.coitem_id)
AND (raitem_warranty != NEW.coitem_warranty));
END IF;
IF (OLD.coitem_cos_accnt_id <> NEW.coitem_cos_accnt_id) THEN
UPDATE raitem SET raitem_cos_accnt_id = NEW.coitem_cos_accnt_id
WHERE((raitem_new_coitem_id=NEW.coitem_id)
AND (COALESCE(raitem_cos_accnt_id,-1) != COALESCE(NEW.coitem_cos_accnt_id,-1)));
END IF;
IF (OLD.coitem_taxtype_id <> NEW.coitem_taxtype_id) THEN
UPDATE raitem SET raitem_taxtype_id = NEW.coitem_taxtype_id
WHERE((raitem_new_coitem_id=NEW.coitem_id)
AND (COALESCE(raitem_taxtype_id,-1) != COALESCE(NEW.coitem_taxtype_id,-1)));
END IF;
IF (OLD.coitem_scheddate <> NEW.coitem_scheddate) THEN
UPDATE raitem SET raitem_scheddate = NEW.coitem_scheddate
WHERE((raitem_new_coitem_id=NEW.coitem_id)
AND (raitem_scheddate != NEW.coitem_scheddate));
END IF;
IF (OLD.coitem_memo <> NEW.coitem_memo) THEN
UPDATE raitem SET raitem_notes = NEW.coitem_memo
WHERE((raitem_new_coitem_id=NEW.coitem_id)
AND (raitem_notes != NEW.coitem_memo));
END IF;
IF ((OLD.coitem_qtyshipped <> NEW.coitem_qtyshipped) AND
(NEW.coitem_qtyshipped >= _r.raitem_qtyauthorized) AND
((_r.raitem_disposition = 'S') OR
(_r.raitem_status = 'O') AND
(_r.raitem_disposition IN ('P','V')) AND
(_r.raitem_qtyreceived >= _r.raitem_qtyauthorized))) THEN
UPDATE raitem SET raitem_status = 'C'
WHERE (raitem_new_coitem_id=NEW.coitem_id);
END IF;
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._soitembeforetrigger() OWNER TO admin;
--
-- Name: _soitemtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _soitemtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_changelog BOOLEAN := FALSE;
_check BOOLEAN;
_kit BOOLEAN;
_shipped BOOLEAN;
_atShipping NUMERIC;
_tmp INTEGER;
_rec RECORD;
BEGIN
-- Check
SELECT checkPrivilege('MaintainSalesOrders') OR checkPrivilege('ShipOrders') OR checkPrivilege('IssueStockToShipping') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'You do not have privileges to alter a Sales Order.';
END IF;
IF ( SELECT fetchMetricBool('SalesOrderChangeLog') ) THEN
_changelog := TRUE;
END IF;
IF (TG_OP IN ('INSERT','UPDATE')) THEN
IF (NEW.coitem_scheddate IS NULL) THEN
IF (fetchmetricbool('AllowASAPShipSchedules')) THEN
NEW.coitem_scheddate := current_date;
ELSE
RAISE EXCEPTION 'A schedule date is required.';
END IF;
END IF;
END IF;
_rec := NEW;
SELECT COALESCE(item_type,'')='K'
INTO _kit
FROM itemsite, item
WHERE((itemsite_item_id=item_id)
AND (itemsite_id=_rec.coitem_itemsite_id));
_kit := COALESCE(_kit, false);
_shipped := false;
IF(_kit AND _rec.coitem_status <> 'C' AND _rec.coitem_status <> 'X') THEN
SELECT coitem_id
INTO _tmp
FROM coitem JOIN shipitem ON (shipitem_orderitem_id=coitem_id)
JOIN shiphead ON (shiphead_id=shipitem_shiphead_id AND shiphead_order_type='SO')
WHERE((coitem_cohead_id=_rec.coitem_cohead_id)
AND (coitem_linenumber=_rec.coitem_linenumber)
AND (coitem_subnumber > 0))
GROUP BY coitem_id
HAVING (SUM(shipitem_qty) > 0)
LIMIT 1;
IF (FOUND) THEN
_shipped := true;
END IF;
END IF;
IF (TG_OP ='UPDATE') THEN
IF ((OLD.coitem_status <> 'C') AND (NEW.coitem_status = 'C')) THEN
SELECT qtyAtShipping(NEW.coitem_id) INTO _atShipping;
IF (_atShipping > 0) THEN
RAISE EXCEPTION 'Line % cannot be Closed at this time as there is inventory at shipping.',NEW.coitem_linenumber;
END IF;
END IF;
END IF;
IF (TG_OP = 'INSERT') THEN
INSERT INTO evntlog ( evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id, evntlog_number )
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'S', NEW.coitem_id, itemsite_warehous_id, (cohead_number || '-' || NEW.coitem_linenumber)
FROM evntnot, evnttype, itemsite, item, cohead
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (evntnot_warehous_id=itemsite_warehous_id)
AND (itemsite_id=NEW.coitem_itemsite_id)
AND (itemsite_item_id=item_id)
AND (NEW.coitem_cohead_id=cohead_id)
AND (NEW.coitem_scheddate <= (CURRENT_DATE + itemsite_eventfence))
AND (evnttype_name='SoitemCreated') );
IF (_changelog) THEN
PERFORM postComment('ChangeLog', 'SI', NEW.coitem_id, 'Created');
END IF;
--Set defaults if no values passed
NEW.coitem_linenumber := COALESCE(NEW.coitem_linenumber,
(SELECT (COALESCE(MAX(coitem_linenumber), 0) + 1)
FROM coitem
WHERE (coitem_cohead_id=NEW.coitem_cohead_id)));
NEW.coitem_status := COALESCE(NEW.coitem_status,'O');
NEW.coitem_scheddate := COALESCE(NEW.coitem_scheddate,
(SELECT MIN(coitem_scheddate)
FROM coitem
WHERE (coitem_cohead_id=NEW.coitem_cohead_id)));
NEW.coitem_memo := COALESCE(NEW.coitem_memo,'');
NEW.coitem_prcost := COALESCE(NEW.coitem_prcost,0);
NEW.coitem_warranty := COALESCE(NEW.coitem_warranty,false);
IF (NEW.coitem_status='O') THEN
UPDATE cohead SET cohead_status = 'O'
WHERE ((cohead_id=NEW.coitem_cohead_id)
AND (cohead_status='C'));
END IF;
RETURN NEW;
ELSIF (TG_OP = 'UPDATE') THEN
IF (NEW.coitem_qtyord <> OLD.coitem_qtyord) THEN
IF(_kit) THEN
IF(_shipped) THEN
RAISE EXCEPTION 'You can not change the qty ordered for a Kit item when one or more of its components have shipped inventory.';
END IF;
END IF;
INSERT INTO evntlog ( evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id, evntlog_number,
evntlog_oldvalue, evntlog_newvalue )
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'S', NEW.coitem_id, itemsite_warehous_id, (cohead_number || '-' || NEW.coitem_linenumber),
OLD.coitem_qtyord, NEW.coitem_qtyord
FROM evntnot, evnttype, itemsite, item, cohead
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (evntnot_warehous_id=itemsite_warehous_id)
AND (itemsite_id=NEW.coitem_itemsite_id)
AND (itemsite_item_id=item_id)
AND (NEW.coitem_cohead_id=cohead_id)
AND ( (NEW.coitem_scheddate <= (CURRENT_DATE + itemsite_eventfence))
OR (OLD.coitem_scheddate <= (CURRENT_DATE + itemsite_eventfence)) )
AND (evnttype_name='SoitemQtyChanged') );
IF (_changelog) THEN
PERFORM postComment( 'ChangeLog', 'SI', NEW.coitem_id,
( 'Changed Qty. Ordered from ' || formatQty(OLD.coitem_qtyord) ||
' to ' || formatQty(NEW.coitem_qtyord) ) );
END IF;
END IF;
IF (NEW.coitem_scheddate <> OLD.coitem_scheddate) THEN
INSERT INTO evntlog ( evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id, evntlog_number,
evntlog_olddate, evntlog_newdate )
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'S', NEW.coitem_id, itemsite_warehous_id, (cohead_number || '-' || NEW.coitem_linenumber),
OLD.coitem_scheddate, NEW.coitem_scheddate
FROM evntnot, evnttype, itemsite, item, cohead
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (evntnot_warehous_id=itemsite_warehous_id)
AND (itemsite_id=NEW.coitem_itemsite_id)
AND (itemsite_item_id=item_id)
AND (NEW.coitem_cohead_id=cohead_id)
AND ( (NEW.coitem_scheddate <= (CURRENT_DATE + itemsite_eventfence))
OR (OLD.coitem_scheddate <= (CURRENT_DATE + itemsite_eventfence)) )
AND (evnttype_name='SoitemSchedDateChanged') );
IF (_changelog) THEN
PERFORM postComment( 'ChangeLog', 'SI', NEW.coitem_id,
( 'Changed Sched. Date from ' || formatDate(OLD.coitem_scheddate) ||
' to ' || formatDate(NEW.coitem_scheddate)) );
END IF;
END IF;
IF ((NEW.coitem_status = 'C') AND (OLD.coitem_status <> 'C')) THEN
NEW.coitem_closedate = CURRENT_TIMESTAMP;
NEW.coitem_close_username = getEffectiveXtUser();
NEW.coitem_qtyreserved := 0;
IF (_changelog) THEN
PERFORM postComment('ChangeLog', 'SI', NEW.coitem_id, 'Closed');
END IF;
END IF;
IF ((NEW.coitem_status <> 'C') AND (OLD.coitem_status = 'C')) THEN
NEW.coitem_closedate = NULL;
NEW.coitem_close_username = NULL;
IF (_changelog) THEN
PERFORM postComment('ChangeLog', 'SI', NEW.coitem_id, 'Reopened');
END IF;
END IF;
IF ((NEW.coitem_status = 'X') AND (OLD.coitem_status <> 'X')) THEN
IF ((OLD.coitem_order_type = 'W') AND
(SELECT wo_status IN ('O', 'E', 'R')
FROM wo
WHERE (wo_id=OLD.coitem_order_id))) THEN
-- Close any associated W/O
PERFORM closeWo(OLD.coitem_order_id, FALSE, CURRENT_DATE);
ELSIF (OLD.coitem_order_type = 'R') THEN
-- Delete any associated P/R
PERFORM deletePr(OLD.coitem_order_id);
END IF;
NEW.coitem_qtyreserved := 0;
IF (_changelog) THEN
PERFORM postComment('ChangeLog', 'SI', NEW.coitem_id, 'Canceled');
PERFORM postComment('ChangeLog', 'S', NEW.coitem_cohead_id, 'Line # '|| NEW.coitem_linenumber ||' Canceled');
END IF;
INSERT INTO evntlog ( evntlog_evnttime, evntlog_username,
evntlog_evnttype_id, evntlog_ordtype,
evntlog_ord_id, evntlog_warehous_id, evntlog_number )
SELECT CURRENT_TIMESTAMP, evntnot_username,
evnttype_id, 'S',
OLD.coitem_id, itemsite_warehous_id,
(cohead_number || '-' || OLD.coitem_linenumber)
FROM evntnot, evnttype, itemsite, item, cohead
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (evntnot_warehous_id=itemsite_warehous_id)
AND (itemsite_id=OLD.coitem_itemsite_id)
AND (itemsite_item_id=item_id)
AND (OLD.coitem_cohead_id=cohead_id)
AND (OLD.coitem_scheddate <= (CURRENT_DATE + itemsite_eventfence))
AND (evnttype_name='SoitemCancelled') );
END IF;
IF ((NEW.coitem_qtyreserved <> OLD.coitem_qtyreserved) AND (_changelog)) THEN
PERFORM postComment('ChangeLog', 'SI', NEW.coitem_id, 'Changed Qty Reserved to '|| NEW.coitem_qtyreserved);
END IF;
END IF;
NEW.coitem_lastupdated = CURRENT_TIMESTAMP;
-- Handle status for header
IF (TG_OP = 'UPDATE') THEN
IF (OLD.coitem_status <> NEW.coitem_status) THEN
IF ( (SELECT (count(*) < 1)
FROM coitem
WHERE ((coitem_cohead_id=NEW.coitem_cohead_id)
AND (coitem_id != NEW.coitem_id)
AND (coitem_status='O')) ) AND (NEW.coitem_status<>'O') ) THEN
UPDATE cohead SET cohead_status = 'C'
WHERE ((cohead_id=NEW.coitem_cohead_id)
AND (cohead_status='O'));
ELSE
UPDATE cohead SET cohead_status = 'O'
WHERE ((cohead_id=NEW.coitem_cohead_id)
AND (cohead_status='C'));
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._soitemtrigger() OWNER TO admin;
--
-- Name: _taxauthafterdeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _taxauthafterdeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (EXISTS(SELECT 1
FROM checkhead
WHERE checkhead_recip_id = OLD.taxauth_id
AND checkhead_recip_type='T')) THEN
RAISE EXCEPTION 'Cannot delete the tax authority % because checks have been written to it [xtuple: deleteTaxAuthority, -7, %]',
OLD.taxauth_number, OLD.taxauth_number;
END IF;
IF (fetchMetricValue('DefaultTaxAuthority') = OLD.taxauth_id) THEN
RAISE EXCEPTION 'Cannot delete the default Tax Authority [xtuple: deleteTaxAuthority, -8, %]',
OLD.taxauth_code;
END IF;
IF (fetchMetricBool('TaxAuthChangeLog')) THEN
PERFORM postComment(cmnttype_id, 'TAXAUTH', OLD.taxauth_id,
'Deleted "' || OLD.taxauth_number || '"')
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
END IF;
RETURN OLD;
END;
$$;
ALTER FUNCTION public._taxauthafterdeletetrigger() OWNER TO admin;
--
-- Name: _taxauthaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _taxauthaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
BEGIN
IF (TG_OP = 'INSERT') THEN
-- http://www.postgresql.org/docs/current/static/plpgsql-control-structures.html#PLPGSQL-UPSERT-EXAMPLE
LOOP
UPDATE crmacct SET crmacct_taxauth_id=NEW.taxauth_id,
crmacct_name=NEW.taxauth_name
WHERE crmacct_number=NEW.taxauth_code;
IF (FOUND) THEN
EXIT;
END IF;
BEGIN
INSERT INTO crmacct(crmacct_number, crmacct_name, crmacct_active,
crmacct_type, crmacct_taxauth_id
) VALUES (NEW.taxauth_code, NEW.taxauth_name, TRUE,
'O', NEW.taxauth_id);
EXIT;
EXCEPTION WHEN unique_violation THEN
-- do nothing, and loop to try the UPDATE again
END;
END LOOP;
/* TODO: default characteristic assignments based on what? */
ELSIF (TG_OP = 'UPDATE') THEN
UPDATE crmacct SET crmacct_number = NEW.taxauth_code
WHERE ((crmacct_taxauth_id=NEW.taxauth_id)
AND (crmacct_number!=NEW.taxauth_code));
UPDATE crmacct SET crmacct_name = NEW.taxauth_name
WHERE ((crmacct_taxauth_id=NEW.taxauth_id)
AND (crmacct_name!=NEW.taxauth_name));
END IF;
IF (fetchMetricBool('TaxAuthChangeLog')) THEN
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
IF (_cmnttypeid IS NOT NULL) THEN
IF (TG_OP = 'INSERT') THEN
PERFORM postComment(_cmnttypeid, 'TAXAUTH', NEW.taxauth_id, 'Created');
ELSIF (TG_OP = 'UPDATE') THEN
IF (OLD.taxauth_code <> NEW.taxauth_code) THEN
PERFORM postComment(_cmnttypeid, 'TAXAUTH', NEW.taxauth_id,
'Code changed from "' || OLD.taxauth_code ||
'" to "' || NEW.taxauth_code || '"');
END IF;
IF (OLD.taxauth_name <> NEW.taxauth_name) THEN
PERFORM postComment(_cmnttypeid, 'TAXAUTH', NEW.taxauth_id,
'Name changed from "' || OLD.taxauth_name ||
'" to "' || NEW.taxauth_name || '"');
END IF;
IF (OLD.taxauth_extref <> NEW.taxauth_extref) THEN
PERFORM postComment(_cmnttypeid, 'TAXAUTH', NEW.taxauth_id,
'External Ref. changed from "' || OLD.taxauth_extref ||
'" to "' || NEW.taxauth_extref || '"');
END IF;
IF (OLD.taxauth_addr_id <> NEW.taxauth_addr_id) THEN
PERFORM postComment(_cmnttypeid, 'TAXAUTH', NEW.taxauth_id,
'Address changed from ' || formatAddr(OLD.taxauth_addr_id)
|| ' to ' || formatAddr(NEW.taxauth_addr_id));
END IF;
IF (OLD.taxauth_curr_id <> NEW.taxauth_curr_id) THEN
PERFORM postComment(_cmnttypeid, 'TAXAUTH', NEW.taxauth_id,
'Currency changed from "' ||
currConcat(OLD.taxauth_curr_id) || '" to "' ||
currConcat(NEW.taxauth_curr_id) || '"');
END IF;
IF (OLD.taxauth_county <> NEW.taxauth_county) THEN
PERFORM postComment(_cmnttypeid, 'TAXAUTH', NEW.taxauth_id,
'County changed from "' || OLD.taxauth_county ||
'" to "' || NEW.taxauth_county || '"');
END IF;
IF (OLD.taxauth_accnt_id <> NEW.taxauth_accnt_id) THEN
PERFORM postComment(_cmnttypeid, 'TAXAUTH', NEW.taxauth_id,
'Account changed from "' ||
formatGLAccount(OLD.taxauth_accnt_id) || '" to "' ||
formatGLAccount(NEW.taxauth_accnt_id) || '"');
END IF;
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._taxauthaftertrigger() OWNER TO admin;
--
-- Name: _taxauthbeforedeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _taxauthbeforedeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (NOT checkPrivilege('MaintainTaxAuthorities')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Tax Authorities.';
END IF;
UPDATE crmacct SET crmacct_taxauth_id = NULL
WHERE crmacct_taxauth_id = OLD.taxauth_id;
RETURN OLD;
END;
$$;
ALTER FUNCTION public._taxauthbeforedeletetrigger() OWNER TO admin;
--
-- Name: _taxauthbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _taxauthbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (NOT checkPrivilege('MaintainTaxAuthorities')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Tax Authorities.';
END IF;
IF (NEW.taxauth_code IS NULL) THEN
RAISE EXCEPTION 'You must supply a Tax Authority Code.';
END IF;
IF (TG_OP = 'INSERT' AND
fetchMetricText('CRMAccountNumberGeneration') IN ('A','O')) THEN
PERFORM clearNumberIssue('CRMAccountNumber', NEW.taxauth_code);
END IF;
NEW.taxauth_code := UPPER(NEW.taxauth_code);
RETURN NEW;
END;
$$;
ALTER FUNCTION public._taxauthbeforetrigger() OWNER TO admin;
--
-- Name: _termsafterdeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _termsafterdeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (fetchMetricValue('DefaultTerms') = OLD.terms_id) THEN
RAISE EXCEPTION 'Cannot delete the default Terms [xtuple: terms, -1, %]',
OLD.terms_code;
END IF;
RETURN OLD;
END;
$$;
ALTER FUNCTION public._termsafterdeletetrigger() OWNER TO admin;
--
-- Name: _todoitemtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _todoitemtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_recurid INTEGER;
_newparentid INTEGER;
BEGIN
IF (TG_OP = 'DELETE') THEN
SELECT recur_id INTO _recurid
FROM recur
WHERE ((recur_parent_id=OLD.todoitem_id)
AND (recur_parent_type='TODO'));
IF (_recurid IS NOT NULL) THEN
RAISE DEBUG 'recur_id for deleted todoitem = %', _recurid;
SELECT todoitem_id INTO _newparentid
FROM todoitem
WHERE ((todoitem_recurring_todoitem_id=OLD.todoitem_id)
AND (todoitem_id!=OLD.todoitem_id))
ORDER BY todoitem_due_date
LIMIT 1;
RAISE DEBUG '_newparentid for deleted todoitem = %', COALESCE(_newparentid, NULL);
-- client is responsible for warning about deleting a recurring todoitem
IF (_newparentid IS NULL) THEN
DELETE FROM recur WHERE recur_id=_recurid;
ELSE
UPDATE recur SET recur_parent_id=_newparentid
WHERE recur_id=_recurid;
UPDATE todoitem SET todoitem_recurring_todoitem_id=_newparentid
WHERE todoitem_recurring_todoitem_id=OLD.todoitem_id
AND todoitem_id != OLD.todoitem_id;
RAISE DEBUG 'reparented recurrence';
END IF;
END IF;
DELETE FROM alarm
WHERE ((alarm_source='TODO')
AND (alarm_source_id=OLD.todoitem_id));
DELETE FROM docass WHERE docass_source_id = OLD.todoitem_id AND docass_source_type = 'TODO';
DELETE FROM docass WHERE docass_target_id = OLD.todoitem_id AND docass_target_type = 'TODO';
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._todoitemtrigger() OWNER TO admin;
--
-- Name: _uomconvupdate(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _uomconvupdate() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
UPDATE itemuomconv
SET itemuomconv_to_value = NEW.uomconv_to_value,
itemuomconv_from_value = NEW.uomconv_from_value,
itemuomconv_fractional = NEW.uomconv_fractional
WHERE((itemuomconv_from_uom_id = NEW.uomconv_from_uom_id)
AND (itemuomconv_to_uom_id = NEW.uomconv_to_uom_id));
RETURN NEW;
END;
$$;
ALTER FUNCTION public._uomconvupdate() OWNER TO admin;
--
-- Name: _usrprefaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _usrprefaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (TG_OP = 'INSERT' OR TG_OP = 'UPDATE') THEN
-- http://www.postgresql.org/docs/current/static/plpgsql-control-structures.html#PLPGSQL-UPSERT-EXAMPLE
IF (NEW.usrpref_name='active') THEN
LOOP
UPDATE crmacct SET crmacct_usr_username=NEW.usrpref_username
WHERE crmacct_number=UPPER(NEW.usrpref_username);
IF (FOUND) THEN
EXIT;
END IF;
BEGIN
INSERT INTO crmacct(crmacct_number, crmacct_active,
crmacct_type, crmacct_usr_username
) VALUES (NEW.usrpref_username, NEW.usrpref_value::BOOL,
'I', NEW.usrpref_username);
EXIT;
EXCEPTION WHEN unique_violation THEN
-- do nothing, and loop to try the UPDATE again
END;
END LOOP;
ELSIF (NEW.usrpref_name='propername') THEN
LOOP
UPDATE crmacct SET crmacct_name=NEW.usrpref_value
WHERE crmacct_number=UPPER(NEW.usrpref_username);
IF (FOUND) THEN
EXIT;
END IF;
BEGIN
INSERT INTO crmacct(crmacct_number, crmacct_active,
crmacct_name,
crmacct_type, crmacct_usr_username
) VALUES (UPPER(NEW.usrpref_username), TRUE,
NEW.usrpref_value,
'I', NEW.usrpref_username);
EXIT;
EXCEPTION WHEN unique_violation THEN
-- do nothing, and loop to try the UPDATE again
END;
END LOOP;
END IF;
ELSIF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._usrprefaftertrigger() OWNER TO admin;
--
-- Name: _usrprefbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _usrprefbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF NOT (checkPrivilege('MaintainUsers') OR
checkPrivilege('MaintainPreferencesOthers') OR
(checkPrivilege('MaintainPreferencesSelf'))) THEN
-- 2 IFs because plpgsql doesn't always evaluate boolean exprs left-to-right
IF (TG_OP = 'DELETE') THEN
IF NOT (OLD.usrpref_name LIKE '%/checked' OR OLD.usrpref_name LIKE '%/columnsShown') THEN
RAISE EXCEPTION 'You do not have privileges to change this User Preference.';
END IF;
ELSIF (NEW.usrpref_username = getEffectiveXtUser()) THEN
IF NOT (NEW.usrpref_name LIKE '%/checked' OR NEW.usrpref_name LIKE '%/columnsShown') THEN
RAISE EXCEPTION 'You do not have privileges to change this User Preference.';
END IF;
END IF;
END IF;
IF (TG_OP IN ('INSERT', 'UPDATE')) THEN
IF (NEW.usrpref_name = 'locale') THEN
IF NOT EXISTS(SELECT locale_id
FROM locale
WHERE locale_id = NEW.usrpref_value::INTEGER) THEN
RAISE EXCEPTION 'You must supply a valid Locale.';
END IF;
ELSIF (NEW.usrpref_name IN ('agent', 'active')) THEN
IF (NEW.usrpref_value NOT IN ('t', 'f')) THEN
RAISE EXCEPTION '% must be either "t" or "f"', NEW.usrpref_name;
END IF;
END IF;
ELSIF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._usrprefbeforetrigger() OWNER TO admin;
--
-- Name: _usrprivtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _usrprivtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_check BOOLEAN;
_returnVal INTEGER;
BEGIN
-- This looks like a candidate for a foreign key but isn't.
-- fkeys don't work if the foreign key value resides in a child of the
-- table and not the table itself.
IF ((TG_OP = 'UPDATE' OR TG_OP = 'INSERT') AND
(NOT EXISTS(SELECT priv_id
FROM priv
WHERE (priv_id=NEW.usrpriv_priv_id)))) THEN
RAISE EXCEPTION 'Privilege id % does not exist or is part of a disabled package.',
NEW.usrpriv_priv_id;
RETURN OLD;
ELSIF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._usrprivtrigger() OWNER TO admin;
--
-- Name: _vendaddrtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _vendaddrtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_check BOOLEAN;
_vendname TEXT;
BEGIN
-- Checks
SELECT checkPrivilege('MaintainVendors') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Vendors.';
END IF;
IF (TG_OP IN ('INSERT','UPDATE')) THEN
IF (LENGTH(COALESCE(NEW.vendaddr_code, ''))=0) THEN
RAISE EXCEPTION 'You must supply a valid Vendor Address Number.';
END IF;
IF (LENGTH(COALESCE(NEW.vendaddr_name, ''))=0) THEN
RAISE EXCEPTION 'You must supply a valid Vendor Address Name.';
END IF;
IF (NEW.vendaddr_vend_id IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid Vendor ID.';
END IF;
SELECT vendaddr_code INTO _vendname
FROM vendaddrinfo
WHERE ( (vendaddr_vend_id=NEW.vendaddr_vend_id)
AND (UPPER(vendaddr_code)=UPPER(NEW.vendaddr_code))
AND (vendaddr_id<>NEW.vendaddr_id) );
IF (FOUND) THEN
RAISE EXCEPTION 'The Vendor Address Number entered cannot be used as it is in use.';
END IF;
END IF;
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._vendaddrtrigger() OWNER TO admin;
--
-- Name: _vendaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _vendaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
BEGIN
IF (TG_OP = 'INSERT') THEN
-- http://www.postgresql.org/docs/current/static/plpgsql-control-structures.html#PLPGSQL-UPSERT-EXAMPLE
LOOP
UPDATE crmacct SET crmacct_vend_id=NEW.vend_id,
crmacct_name=NEW.vend_name
WHERE crmacct_number=NEW.vend_number;
IF (FOUND) THEN
EXIT;
END IF;
BEGIN
INSERT INTO crmacct(crmacct_number, crmacct_name, crmacct_active,
crmacct_type, crmacct_vend_id,
crmacct_cntct_id_1, crmacct_cntct_id_2
) VALUES (NEW.vend_number, NEW.vend_name, NEW.vend_active,
'O', NEW.vend_id,
NEW.vend_cntct1_id, NEW.vend_cntct2_id);
EXIT;
EXCEPTION WHEN unique_violation THEN
-- do nothing, and loop to try the UPDATE again
END;
END LOOP;
/* TODO: default characteristic assignments based on vendgrp? */
ELSIF (TG_OP = 'UPDATE') THEN
UPDATE crmacct SET crmacct_number = NEW.vend_number
WHERE ((crmacct_vend_id=NEW.vend_id)
AND (crmacct_number!=NEW.vend_number));
UPDATE crmacct SET crmacct_name = NEW.vend_name
WHERE ((crmacct_vend_id=NEW.vend_id)
AND (crmacct_name!=NEW.vend_name));
END IF;
IF (fetchMetricBool('VendorChangeLog')) THEN
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
IF (_cmnttypeid IS NOT NULL) THEN
IF (TG_OP = 'INSERT') THEN
PERFORM postComment(_cmnttypeid, 'V', NEW.vend_id, 'Created');
ELSIF (TG_OP = 'UPDATE') THEN
IF (OLD.vend_number <> NEW.vend_number) THEN
PERFORM postComment(_cmnttypeid, 'V', NEW.vend_id,
('Number Changed from "' || OLD.vend_number ||
'" to "' || NEW.vend_number || '"') );
END IF;
IF (OLD.vend_name <> NEW.vend_name) THEN
PERFORM postComment( _cmnttypeid, 'V', NEW.vend_id,
('Name Changed from "' || OLD.vend_name ||
'" to "' || NEW.vend_name || '"') );
END IF;
IF (OLD.vend_active <> NEW.vend_active) THEN
PERFORM postComment(_cmnttypeid, 'V', NEW.vend_id,
CASE WHEN NEW.vend_active THEN 'Activated'
ELSE 'Deactivated' END);
END IF;
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._vendaftertrigger() OWNER TO admin;
--
-- Name: _vendinfoafterdeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _vendinfoafterdeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF EXISTS(SELECT 1
FROM checkhead
WHERE ((checkhead_recip_id=OLD.vend_id)
AND (checkhead_recip_type='V'))) THEN
RAISE EXCEPTION '[xtuple: deleteVendor, -7]';
END IF;
DELETE FROM taxreg
WHERE ((taxreg_rel_type='V')
AND (taxreg_rel_id=OLD.vend_id));
IF (fetchMetricBool('VendorChangeLog')) THEN
PERFORM postComment(cmnttype_id, 'V', OLD.vend_id,
('Deleted "' || OLD.vend_number || '"'))
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
END IF;
RETURN OLD;
END;
$$;
ALTER FUNCTION public._vendinfoafterdeletetrigger() OWNER TO admin;
--
-- Name: _vendinfobeforedeletetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _vendinfobeforedeletetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF NOT (checkPrivilege('MaintainVendors')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Vendors.';
END IF;
DELETE FROM itemsrcp
WHERE itemsrcp_itemsrc_id IN (SELECT itemsrc_id
FROM itemsrc
WHERE itemsrc_vend_id=OLD.vend_id);
DELETE FROM itemsrc WHERE (itemsrc_vend_id=OLD.vend_id);
DELETE FROM vendaddrinfo WHERE (vendaddr_vend_id=OLD.vend_id);
DELETE FROM docass WHERE docass_source_id = OLD.vend_id AND docass_source_type = 'V';
DELETE FROM docass WHERE docass_target_id = OLD.vend_id AND docass_target_type = 'V';
UPDATE crmacct SET crmacct_vend_id = NULL
WHERE crmacct_vend_id = OLD.vend_id;
RETURN OLD;
END;
$$;
ALTER FUNCTION public._vendinfobeforedeletetrigger() OWNER TO admin;
--
-- Name: _vendtrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _vendtrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF NOT (checkPrivilege('MaintainVendors')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Vendors.';
END IF;
IF (LENGTH(COALESCE(NEW.vend_number, ''))=0) THEN
RAISE EXCEPTION 'You must supply a valid Vendor Number.';
END IF;
IF (LENGTH(COALESCE(NEW.vend_name, ''))=0) THEN
RAISE EXCEPTION 'You must supply a valid Vendor Name.';
END IF;
IF (NEW.vend_vendtype_id IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid Vendor Type ID.';
END IF;
IF (NEW.vend_terms_id IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid Terms Code ID.';
END IF;
IF (TG_OP = 'INSERT' AND fetchMetricText('CRMAccountNumberGeneration') IN ('A','O')) THEN
PERFORM clearNumberIssue('CRMAccountNumber', NEW.vend_number);
END IF;
NEW.vend_number := UPPER(NEW.vend_number);
RETURN NEW;
END;
$$;
ALTER FUNCTION public._vendtrigger() OWNER TO admin;
--
-- Name: _vodistaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _vodistaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_r RECORD;
BEGIN
IF ( (TG_OP = 'UPDATE') OR (TG_OP = 'DELETE') ) THEN
IF (OLD.vodist_tax_id <> -1) THEN
-- Delete any existing voheadtax adjustment records
DELETE FROM voheadtax
WHERE ( (taxhist_parent_id=OLD.vodist_vohead_id)
AND (taxhist_tax_id=OLD.vodist_tax_id)
AND (taxhist_taxtype_id=getAdjustmentTaxTypeId()) );
END IF;
END IF;
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
-- Cache Voucher Head
SELECT * INTO _r
FROM vohead
WHERE (vohead_id=NEW.vodist_vohead_id);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Voucher head not found';
END IF;
IF (NEW.vodist_tax_id <> -1) THEN
-- Insert adjustment voheadtax
INSERT INTO voheadtax
( taxhist_parent_id,
taxhist_taxtype_id,
taxhist_tax_id,
taxhist_basis,
taxhist_basis_tax_id,
taxhist_sequence,
taxhist_percent,
taxhist_amount,
taxhist_tax,
taxhist_docdate )
VALUES
( NEW.vodist_vohead_id,
getAdjustmentTaxTypeId(),
NEW.vodist_tax_id,
0,
NULL,
1,
0,
0,
(NEW.vodist_amount * -1),
_r.vohead_docdate );
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._vodistaftertrigger() OWNER TO admin;
--
-- Name: _vodistbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _vodistbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
BEGIN
IF (TG_OP = 'DELETE') THEN
IF (OLD.vodist_tax_id <> -1) THEN
-- Delete any existing voheadtax adjustment records
DELETE FROM voheadtax
WHERE ( (taxhist_parent_id=OLD.vodist_vohead_id)
AND (taxhist_tax_id=OLD.vodist_tax_id)
AND (taxhist_taxtype_id=getAdjustmentTaxTypeId()) );
END IF;
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._vodistbeforetrigger() OWNER TO admin;
--
-- Name: _voheadaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _voheadaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (TG_OP = 'DELETE') THEN
PERFORM releaseVoNumber(CAST(OLD.vohead_number AS INTEGER));
RETURN OLD;
END IF;
IF (TG_OP = 'INSERT') THEN
PERFORM clearNumberIssue('VcNumber', NEW.vohead_number);
RETURN NEW;
END IF;
IF (TG_OP = 'UPDATE') THEN
IF ( (COALESCE(NEW.vohead_taxzone_id,-1) <> COALESCE(OLD.vohead_taxzone_id,-1)) OR
(NEW.vohead_docdate <> OLD.vohead_docdate) OR
(NEW.vohead_curr_id <> OLD.vohead_curr_id) ) THEN
PERFORM calculateTaxHist( 'voitemtax',
voitem_id,
NEW.vohead_taxzone_id,
voitem_taxtype_id,
NEW.vohead_docdate,
NEW.vohead_curr_id,
(vodist_amount * -1) )
FROM voitem JOIN vodist ON ( (vodist_vohead_id=voitem_vohead_id) AND
(vodist_poitem_id=voitem_poitem_id) )
WHERE (voitem_vohead_id = NEW.vohead_id);
END IF;
-- Touch any Misc Tax Distributions so voheadtax is recalculated
IF (NEW.vohead_docdate <> OLD.vohead_docdate) THEN
UPDATE vodist SET vodist_vohead_id=NEW.vohead_id
WHERE ( (vodist_vohead_id=OLD.vohead_id)
AND (vodist_tax_id <> -1) );
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._voheadaftertrigger() OWNER TO admin;
--
-- Name: _voheadbeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _voheadbeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_recurid INTEGER;
_newparentid INTEGER;
BEGIN
IF (TG_OP = 'DELETE') THEN
IF (OLD.vohead_posted) THEN
-- Cannot delete a posted voucher
RAISE EXCEPTION 'Cannot delete a posted voucher';
END IF;
/* TODO: is setting recv_invoiced and poreject_invoiced to FALSE correct?
this behavior is inherited from the now-defunct deleteVoucher.
*/
UPDATE recv SET recv_vohead_id = NULL,
recv_voitem_id = NULL,
recv_invoiced = FALSE
WHERE recv_vohead_id = OLD.vohead_id;
UPDATE poreject SET poreject_vohead_id = NULL,
poreject_voitem_id = NULL,
poreject_invoiced = FALSE
WHERE poreject_vohead_id = OLD.vohead_id;
DELETE FROM vodist WHERE vodist_vohead_id = OLD.vohead_id;
DELETE FROM voheadtax WHERE taxhist_parent_id = OLD.vohead_id;
DELETE FROM voitem WHERE voitem_vohead_id = OLD.vohead_id;
SELECT recur_id INTO _recurid
FROM recur
WHERE ((recur_parent_id=OLD.vohead_id)
AND (recur_parent_type='V'));
IF (_recurid IS NOT NULL) THEN
SELECT vohead_id INTO _newparentid
FROM vohead
WHERE ((vohead_recurring_vohead_id=OLD.vohead_id)
AND (vohead_id!=OLD.vohead_id))
ORDER BY vohead_docdate
LIMIT 1;
IF (_newparentid IS NULL) THEN
DELETE FROM recur WHERE recur_id=_recurid;
ELSE
UPDATE recur SET recur_parent_id=_newparentid
WHERE recur_id=_recurid;
UPDATE vohead SET vohead_recurring_vohead_id=_newparentid
WHERE vohead_recurring_vohead_id=OLD.vohead_id
AND vohead_id!=OLD.vohead_id;
END IF;
END IF;
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._voheadbeforetrigger() OWNER TO admin;
--
-- Name: _voitemaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _voitemaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_r RECORD;
BEGIN
IF (TG_OP = 'DELETE') THEN
RETURN OLD;
END IF;
-- Cache Voucher Head
SELECT * INTO _r
FROM vohead
WHERE (vohead_id=NEW.voitem_vohead_id);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Voucher head not found';
END IF;
-- Calculate Tax
PERFORM calculateTaxHist( 'voitemtax',
NEW.voitem_id,
COALESCE(_r.vohead_taxzone_id, -1),
NEW.voitem_taxtype_id,
COALESCE(_r.vohead_docdate, CURRENT_DATE),
COALESCE(_r.vohead_curr_id, -1),
COALESCE(SUM(vodist_amount * -1), 0) )
FROM vodist
WHERE ( (vodist_vohead_id=_r.vohead_id)
AND (vodist_poitem_id=NEW.voitem_poitem_id) );
RETURN NEW;
END;
$$;
ALTER FUNCTION public._voitemaftertrigger() OWNER TO admin;
--
-- Name: _voitembeforetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _voitembeforetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
BEGIN
IF (TG_OP = 'DELETE') THEN
DELETE FROM voitemtax
WHERE (taxhist_parent_id=OLD.voitem_id);
RETURN OLD;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._voitembeforetrigger() OWNER TO admin;
--
-- Name: _warehoustrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _warehoustrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
_check BOOLEAN;
_checkId INTEGER;
BEGIN
-- Checks
-- Start with privileges
IF (TG_OP = 'INSERT') THEN
SELECT checkPrivilege('MaintainWarehouses') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'You do not have privileges to add new Sites.';
END IF;
ELSE
SELECT checkPrivilege('MaintainWarehouses') OR checkPrivilege('IssueCountTags') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'You do not have privileges to alter a Site.';
END IF;
END IF;
-- Code is required
IF (LENGTH(COALESCE(NEW.warehous_code,''))=0) THEN
RAISE EXCEPTION 'You must supply a valid Site Code.';
END IF;
-- Sitetype is required
IF (NEW.warehous_sitetype_id IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid Site Type.';
END IF;
-- Cost Category is required for Transit types
IF ((NEW.warehous_transit) AND (NEW.warehous_costcat_id IS NULL)) THEN
RAISE EXCEPTION 'You must supply a valid Cost Category for Transit Sites.';
END IF;
-- Code must be unique
SELECT warehous_id INTO _checkId
FROM whsinfo
WHERE ( (UPPER(warehous_code)=UPPER(NEW.warehous_code))
AND (warehous_id<>NEW.warehous_id) );
IF (FOUND) THEN
RAISE EXCEPTION 'You must supply a unique Site Code.';
END IF;
-- Count Tag Prefix must be unique
IF (TG_OP = 'INSERT') THEN
SELECT warehous_id INTO _checkId
FROM whsinfo
WHERE (warehous_counttag_prefix=NEW.warehous_counttag_prefix);
ELSE
SELECT warehous_id INTO _checkId
FROM whsinfo
WHERE ( (warehous_counttag_prefix=NEW.warehous_counttag_prefix)
AND (warehous_id<>NEW.warehous_id) );
END IF;
IF (FOUND) THEN
RAISE EXCEPTION 'You must supply a unique Count Tag Prefix.';
END IF;
-- Check Complete
-- Change Log
IF ( SELECT (metric_value='t')
FROM metric
WHERE (metric_name='WarehouseChangeLog') ) THEN
-- Cache the cmnttype_id for ChangeLog
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
IF (FOUND) THEN
IF (TG_OP = 'INSERT') THEN
PERFORM postComment(_cmnttypeid, 'WH', NEW.warehous_id, 'Created');
ELSIF (TG_OP = 'UPDATE') THEN
IF (OLD.warehous_code <> NEW.warehous_code) THEN
PERFORM postComment( _cmnttypeid, 'WH', NEW.warehous_id,
('Code Changed from "' || OLD.warehous_code || '" to "' || NEW.warehous_code || '"') );
END IF;
IF (OLD.warehous_descrip <> NEW.warehous_descrip) THEN
PERFORM postComment( _cmnttypeid, 'WH', NEW.warehous_id,
( 'Description Changed from "' || OLD.warehous_descrip ||
'" to "' || NEW.warehous_descrip || '"' ) );
END IF;
IF (OLD.warehous_active <> NEW.warehous_active) THEN
IF (NEW.warehous_active) THEN
PERFORM postComment(_cmnttypeid, 'WH', NEW.warehous_id, 'Activated');
ELSE
PERFORM postComment(_cmnttypeid, 'WH', NEW.warehous_id, 'Deactivated');
END IF;
END IF;
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._warehoustrigger() OWNER TO admin;
--
-- Name: _whsezonetrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _whsezonetrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_check BOOLEAN;
_checkId INTEGER;
BEGIN
-- Checks
-- Start with privileges
IF (TG_OP = 'INSERT') THEN
SELECT checkPrivilege('MaintainWarehouses') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'You do not have privileges to add new Site Zones.';
END IF;
ELSE
SELECT checkPrivilege('MaintainWarehouses') INTO _check;
IF NOT (_check) THEN
RAISE EXCEPTION 'You do not have privileges to alter a Site Zone.';
END IF;
END IF;
-- Name is required
IF (LENGTH(COALESCE(NEW.whsezone_name,''))=0) THEN
RAISE EXCEPTION 'You must supply a valid Site Zone Name.';
END IF;
-- Site is required
IF (NEW.whsezone_warehous_id IS NULL) THEN
RAISE EXCEPTION 'You must supply a valid Site.';
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._whsezonetrigger() OWNER TO admin;
--
-- Name: _womatlaftertrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _womatlaftertrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
BEGIN
IF (TG_OP = 'INSERT') THEN
-- Create any required P/R's
PERFORM createPr('W', NEW.womatl_id)
FROM itemsite
WHERE ((itemsite_id=NEW.womatl_itemsite_id)
AND (itemsite_createpr));
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._womatlaftertrigger() OWNER TO admin;
--
-- Name: _wotrigger(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION _wotrigger() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
BEGIN
IF ( SELECT (metric_value='t')
FROM metric
WHERE (metric_name='WorkOrderChangeLog') ) THEN
-- Cache the cmnttype_id for ChangeLog
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name='ChangeLog');
ELSE
_cmnttypeid := -1;
END IF;
IF (TG_OP = 'INSERT') THEN
INSERT INTO evntlog ( evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id, evntlog_number )
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'W', NEW.wo_id, itemsite_warehous_id, (NEW.wo_number || '-' || NEW.wo_subnumber)
FROM evntnot, evnttype, itemsite, item
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (evntnot_warehous_id=itemsite_warehous_id)
AND (itemsite_id=NEW.wo_itemsite_id)
AND (itemsite_item_id=item_id)
AND (NEW.wo_duedate <= (CURRENT_DATE + itemsite_eventfence))
AND (evnttype_name='WoCreated') );
IF (_cmnttypeid <> -1) THEN
PERFORM postComment(_cmnttypeid, 'W', NEW.wo_id, 'Created');
END IF;
IF (fetchMetricText('WONumberGeneration') IN ('A','O')) THEN
--- clear the number from the issue cache
PERFORM clearNumberIssue('WoNumber', NEW.wo_number);
END IF;
RETURN NEW;
ELSE
IF (TG_OP = 'DELETE') THEN
INSERT INTO evntlog ( evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id, evntlog_number )
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'W', OLD.wo_id, itemsite_warehous_id, (OLD.wo_number || '-' || OLD.wo_subnumber)
FROM evntnot, evnttype, itemsite, item
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (evntnot_warehous_id=itemsite_warehous_id)
AND (itemsite_id=OLD.wo_itemsite_id)
AND (itemsite_item_id=item_id)
AND (OLD.wo_duedate <= (CURRENT_DATE + itemsite_eventfence))
AND (evnttype_name='WoCancelled') );
DELETE FROM docass WHERE docass_source_id = OLD.wo_id AND docass_source_type = 'W';
DELETE FROM docass WHERE docass_target_id = OLD.wo_id AND docass_target_type = 'W';
DELETE FROM comment
WHERE ( (comment_source='W')
AND (comment_source_id=OLD.wo_id) );
DELETE FROM charass
WHERE ((charass_target_type='W')
AND (charass_target_id=OLD.wo_id));
RETURN OLD;
ELSE
IF (TG_OP = 'UPDATE') THEN
IF (NEW.wo_qtyord <> OLD.wo_qtyord) THEN
INSERT INTO evntlog ( evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id, evntlog_number,
evntlog_oldvalue, evntlog_newvalue )
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'W', NEW.wo_id, itemsite_warehous_id, (NEW.wo_number || '-' || NEW.wo_subnumber),
OLD.wo_qtyord, NEW.wo_qtyord
FROM evntnot, evnttype, itemsite, item
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (evntnot_warehous_id=itemsite_warehous_id)
AND (itemsite_id=NEW.wo_itemsite_id)
AND (itemsite_item_id=item_id)
AND ( (NEW.wo_duedate <= (CURRENT_DATE + itemsite_eventfence))
OR (OLD.wo_duedate <= (CURRENT_DATE + itemsite_eventfence)) )
AND (evnttype_name='WoQtyChanged') );
IF (_cmnttypeid <> -1) THEN
PERFORM postComment( _cmnttypeid, 'W', NEW.wo_id,
( 'Qty. Ordered Changed from ' || formatQty(OLD.wo_qtyord) ||
' to ' || formatQty(NEW.wo_qtyord ) ) );
END IF;
END IF;
IF (NEW.wo_duedate <> OLD.wo_duedate) THEN
INSERT INTO evntlog ( evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id, evntlog_number,
evntlog_olddate, evntlog_newdate )
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'W', NEW.wo_id, itemsite_warehous_id, (NEW.wo_number || '-' || NEW.wo_subnumber),
OLD.wo_duedate, NEW.wo_duedate
FROM evntnot, evnttype, itemsite, item
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (evntnot_warehous_id=itemsite_warehous_id)
AND (itemsite_id=NEW.wo_itemsite_id)
AND (itemsite_item_id=item_id)
AND ( (NEW.wo_duedate <= (CURRENT_DATE + itemsite_eventfence))
OR (OLD.wo_duedate <= (CURRENT_DATE + itemsite_eventfence)) )
AND (evnttype_name='WoDueDateChanged') );
IF (_cmnttypeid <> -1) THEN
PERFORM postComment( _cmnttypeid, 'W', NEW.wo_id,
( 'Due Date Changed from ' || formatDate(OLD.wo_duedate) ||
' to ' || formatDate(NEW.wo_duedate ) ) );
END IF;
END IF;
IF (NEW.wo_status <> OLD.wo_status) THEN
IF (_cmnttypeid <> -1) THEN
PERFORM postComment( _cmnttypeid, 'W', NEW.wo_id,
('Status Changed from ' || OLD.wo_status || ' to ' || NEW.wo_status) );
END IF;
END IF;
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public._wotrigger() OWNER TO admin;
--
-- Name: acknowledgemessage(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION acknowledgemessage(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pMsgid ALIAS FOR $1;
BEGIN
UPDATE msguser
SET msguser_viewed=CURRENT_TIMESTAMP
WHERE ( (msguser_msg_id=pMsgid)
AND (msguser_username=getEffectiveXtUser()) );
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.acknowledgemessage(integer) OWNER TO admin;
--
-- Name: actcost(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION actcost(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN actCost($1, NULL, baseCurrId());
END;
$_$;
ALTER FUNCTION public.actcost(integer) OWNER TO admin;
--
-- Name: actcost(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION actcost(integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN actCost($1, $2, baseCurrId());
END;
$_$;
ALTER FUNCTION public.actcost(integer, integer) OWNER TO admin;
--
-- Name: actcost(integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION actcost(integer, integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pBomitemid ALIAS FOR $2;
pCurrid ALIAS FOR $3;
_cost NUMERIC;
BEGIN
-- Return actual cost in the given currency at the current conversion rate
SELECT SUM(CASE WHEN (bomitemcost_id IS NOT NULL) THEN
ROUND(currToCurr(bomitemcost_curr_id, pCurrid, bomitemcost_actcost, CURRENT_DATE), 6)
ELSE
ROUND(currToCurr(itemcost_curr_id, pCurrid, itemcost_actcost, CURRENT_DATE), 6)
END) INTO _cost
FROM itemcost
LEFT OUTER JOIN bomitemcost ON (bomitemcost_bomitem_id=pBomitemid AND bomitemcost_costelem_id=itemcost_costelem_id)
WHERE (itemcost_item_id=pItemid);
IF (_cost IS NULL) THEN
RETURN 0;
ELSE
RETURN _cost;
END IF;
END;
$_$;
ALTER FUNCTION public.actcost(integer, integer, integer) OWNER TO admin;
--
-- Name: addrusecount(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION addrusecount(integer) RETURNS integer
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAddrId ALIAS FOR $1;
_fk RECORD;
_r RECORD;
_seq INTEGER;
_col TEXT;
_qry TEXT;
_count INTEGER = 0;
BEGIN
-- Determine where this address is used by analyzing foreign key linkages
-- TO DO: Can this be rationalized with cntctused(int)?
FOR _fk IN
SELECT pg_namespace.nspname AS schemaname, con.relname AS tablename, conkey AS seq, conrelid AS class_id
FROM pg_constraint, pg_class f, pg_class con, pg_namespace
WHERE confrelid=f.oid
AND conrelid=con.oid
AND f.relname = 'addr'
AND con.relnamespace=pg_namespace.oid
AND con.relname NOT IN ('pohead') -- exception(s) where address key doesn't actually drive document information
LOOP
-- Validate
IF (ARRAY_UPPER(_fk.seq,1) > 1) THEN
RAISE EXCEPTION 'Checks to tables where the address is one of multiple foreign key columns is not supported. Error on Table: %',
pg_namespace.nspname || '.' || con.relname;
END IF;
_seq := _fk.seq[1];
-- Get the specific column name
SELECT attname INTO _col
FROM pg_attribute, pg_class
WHERE ((attrelid=pg_class.oid)
AND (pg_class.oid=_fk.class_id)
AND (attnum=_seq));
-- See if there are dependencies
_qry := 'SELECT *
FROM ' || _fk.schemaname || '.' || _fk.tablename || '
WHERE ('|| _col || '=' || pAddrId || ');';
FOR _r IN
EXECUTE _qry
LOOP
_count := _count + 1;
END LOOP;
END LOOP;
RETURN _count;
END;
$_$;
ALTER FUNCTION public.addrusecount(integer) OWNER TO admin;
--
-- Name: addtaxtoglseries(integer, text, text, text, integer, date, date, text, integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION addtaxtoglseries(integer, text, text, text, integer, date, date, text, integer, text) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSequence ALIAS FOR $1;
pSource ALIAS FOR $2;
pDocType ALIAS FOR $3;
pDocNumber ALIAS FOR $4;
pCurrId ALIAS FOR $5;
pExchDate ALIAS FOR $6;
pDistDate ALIAS FOR $7;
pTableName ALIAS FOR $8;
pParentId ALIAS FOR $9;
pNotes ALIAS FOR $10;
_count INTEGER := 0;
_baseTax NUMERIC := 0;
_returnVal NUMERIC := 0;
_t RECORD;
_test INTEGER := 0;
BEGIN
-- This is just a fancy select statement on taxhist.
-- Because all tax records tables inherit from taxhist,
-- we can use the same select statement for all.
-- https://www.postgresql.org/docs/8.1/static/ddl-inherit.html
-- pTableName in the where clause narrows down the selection
-- to the correct sub table.
FOR _t IN SELECT *
FROM taxhist JOIN tax ON (tax_id = taxhist_tax_id)
JOIN pg_class ON (pg_class.oid = taxhist.tableoid)
WHERE ( (taxhist_parent_id = pParentId)
AND (relname = pTableName) ) LOOP
_count := _count + 1;
_baseTax := currToBase(pCurrId, _t.taxhist_tax, pExchDate);
_returnVal := _returnVal + _baseTax;
PERFORM insertIntoGLSeries( pSequence, pSource, pDocType, pDocNumber,
_t.tax_sales_accnt_id, _baseTax,
pDistDate, pNotes );
UPDATE taxhist SET
taxhist_docdate=pExchDate,
taxhist_distdate=pDistDate,
taxhist_curr_id=pCurrId,
taxhist_curr_rate=curr_rate
FROM curr_rate
WHERE ((taxhist_id=_t.taxhist_id)
AND (pCurrId=curr_id)
AND ( pExchDate BETWEEN curr_effective
AND curr_expires) );
END LOOP;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.addtaxtoglseries(integer, text, text, text, integer, date, date, text, integer, text) OWNER TO admin;
--
-- Name: addtopackinglistbatch(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION addtopackinglistbatch(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoheadid ALIAS FOR $1;
returnVal INTEGER;
BEGIN
-- MIN because error codes are negative
SELECT MIN(addToPackingListBatch('SO', pSoheadid, shiphead_id)) INTO returnVal
FROM shiphead
WHERE ((shiphead_order_id=pSoheadid)
AND (NOT shiphead_shipped)
AND (shiphead_order_type='SO'));
IF (NOT FOUND OR returnVal IS NULL) THEN
returnVal := addToPackingListBatch('SO', pSoheadid, NULL);
END IF;
RETURN returnVal;
END;
$_$;
ALTER FUNCTION public.addtopackinglistbatch(integer) OWNER TO admin;
--
-- Name: addtopackinglistbatch(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION addtopackinglistbatch(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN addToPackingListBatch('SO', $1, $2);
END;
$_$;
ALTER FUNCTION public.addtopackinglistbatch(integer, integer) OWNER TO admin;
--
-- Name: addtopackinglistbatch(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION addtopackinglistbatch(text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pheadtype ALIAS FOR $1;
pheadid ALIAS FOR $2;
returnVal INTEGER;
BEGIN
-- MIN because error codes are negative
SELECT MIN(addToPackingListBatch(pheadtype, pheadid, shiphead_id)) INTO returnVal
FROM shiphead
WHERE ((shiphead_order_id=pheadid)
AND (NOT shiphead_shipped)
AND (shiphead_order_type=pheadtype));
IF (NOT FOUND OR returnVal IS NULL) THEN
returnVal := addToPackingListBatch(pheadtype, pheadid, NULL);
END IF;
RETURN returnVal;
END;
$_$;
ALTER FUNCTION public.addtopackinglistbatch(text, integer) OWNER TO admin;
--
-- Name: addtopackinglistbatch(text, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION addtopackinglistbatch(text, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pheadtype ALIAS FOR $1;
pheadid ALIAS FOR $2;
pshipheadid ALIAS FOR $3;
_check INTEGER;
BEGIN
SELECT pack_id INTO _check
FROM pack
WHERE ((pack_head_id=pheadid)
AND ((pack_shiphead_id=pshipheadid) OR
(pshipheadid IS NULL AND pack_shiphead_id IS NULL))
AND (pack_head_type=pheadtype)
);
IF (NOT FOUND) THEN
INSERT INTO pack
( pack_head_type, pack_head_id, pack_shiphead_id, pack_printed )
VALUES
( pheadtype, pheadid, pshipheadid, FALSE );
-- Auto Firm Sales Orders conditionally based on metric
IF ( (pheadtype = 'SO') AND (fetchMetricBool('FirmSalesOrderPackingList')) ) THEN
UPDATE coitem SET coitem_firm=TRUE
WHERE (coitem_cohead_id=pheadid);
END IF;
END IF;
RETURN pheadid;
END;
$_$;
ALTER FUNCTION public.addtopackinglistbatch(text, integer, integer) OWNER TO admin;
--
-- Name: adjustinvvalue(integer, numeric, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION adjustinvvalue(integer, numeric, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pNewValue ALIAS FOR $2;
pAccountid ALIAS FOR $3;
_delta NUMERIC;
_glreturn INTEGER;
_invhistid INTEGER;
_itemlocSeries INTEGER;
BEGIN
SELECT pNewValue - itemsite_value INTO _delta
FROM itemsite
WHERE (itemsite_id=pItemsiteid)
FOR UPDATE;
IF (NOT FOUND) THEN
RETURN -1;
END IF;
SELECT insertGLTransaction('I/M', '', 'Post Value',
'Inventory Value Adjustment for ' || item_number,
COALESCE (pAccountid, costcat_adjustment_accnt_id),
costcat_asset_accnt_id, -1,
_delta, CURRENT_DATE) INTO _glreturn
FROM itemsite
JOIN costcat ON (itemsite_costcat_id=costcat_id)
JOIN item ON (itemsite_item_id=item_id)
WHERE (itemsite_id=pItemsiteid);
-- Create the AD transaction
INSERT INTO invhist
( invhist_itemsite_id,
invhist_transdate, invhist_transtype, invhist_invqty,
invhist_qoh_before, invhist_qoh_after,
invhist_docnumber, invhist_comments,
invhist_invuom, invhist_unitcost, invhist_hasdetail,
invhist_costmethod, invhist_value_before, invhist_value_after,
invhist_series )
SELECT itemsite_id,
CURRENT_TIMESTAMP, 'AD', 0.0,
itemsite_qtyonhand, itemsite_qtyonhand,
'', 'Inventory Value Adjustment',
uom_name, _delta, FALSE,
itemsite_costmethod, itemsite_value, pNewValue,
0
FROM itemsite, item, uom
WHERE ( (itemsite_item_id=item_id)
AND (item_inv_uom_id=uom_id)
AND (itemsite_id=pItemsiteid) );
UPDATE itemsite SET itemsite_value=pNewValue
WHERE (itemsite_id=pItemsiteid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.adjustinvvalue(integer, numeric, integer) OWNER TO admin;
--
-- Name: adjustments(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION adjustments(text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTransType ALIAS FOR $1;
BEGIN
IF (pTransType IN ('CC', 'AD')) THEN
RETURN TRUE;
ELSE
RETURN FALSE;
END IF;
END;
$_$;
ALTER FUNCTION public.adjustments(text) OWNER TO admin;
--
-- Name: allocatedforso(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION allocatedforso(integer, date) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pDate ALIAS FOR $2;
BEGIN
RETURN allocatedForSo(pItemsiteid, startOfTime(), pDate);
END;
$_$;
ALTER FUNCTION public.allocatedforso(integer, date) OWNER TO admin;
--
-- Name: allocatedforso(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION allocatedforso(integer, integer) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pDate ALIAS FOR $2;
BEGIN
RETURN allocatedForSo(pItemsiteid, startOfTime(), (CURRENT_DATE + pDate));
END;
$_$;
ALTER FUNCTION public.allocatedforso(integer, integer) OWNER TO admin;
--
-- Name: allocatedforso(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION allocatedforso(integer, date, date) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
_qty NUMERIC;
BEGIN
SELECT COALESCE(SUM(noNeg(itemuomtouom(itemsite_item_id, coitem_qty_uom_id, NULL, coitem_qtyord - (coitem_qtyshipped + qtyAtShipping(coitem_id)) + coitem_qtyreturned))), 0.0) INTO _qty
FROM coitem, itemsite, item
WHERE ( (coitem_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (coitem_status='O')
AND (coitem_itemsite_id=pItemsiteid)
AND (coitem_scheddate BETWEEN pStartDate AND pEndDate) );
RETURN _qty;
END;
$_$;
ALTER FUNCTION public.allocatedforso(integer, date, date) OWNER TO admin;
--
-- Name: allocatedforwo(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION allocatedforwo(integer, date) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pDate ALIAS FOR $2;
BEGIN
RETURN allocatedForWo(pItemsiteid, startOfTime(), pDate);
END;
$_$;
ALTER FUNCTION public.allocatedforwo(integer, date) OWNER TO admin;
--
-- Name: allocatedforwo(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION allocatedforwo(integer, integer) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pLookAheadDays ALIAS FOR $2;
BEGIN
RETURN allocatedForWo(pItemsiteid, startOfTime(), (CURRENT_DATE + pLookaheadDays));
END;
$_$;
ALTER FUNCTION public.allocatedforwo(integer, integer) OWNER TO admin;
--
-- Name: allocatedforwo(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION allocatedforwo(integer, date, date) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
_itemtype TEXT;
_qty NUMERIC;
BEGIN
SELECT item_type INTO _itemtype
FROM itemsite JOIN item ON (item_id=itemsite_item_id)
WHERE (itemsite_id=pItemsiteid);
IF (_itemtype != 'T') THEN
SELECT
COALESCE(SUM(noNeg(itemuomtouom(itemsite_item_id, womatl_uom_id, NULL, womatl_qtyreq - womatl_qtyiss))), 0.0) INTO _qty
FROM womatl JOIN wo ON (wo_id=womatl_wo_id AND wo_status IN ('E','I','R'))
JOIN itemsite ON (itemsite_id=womatl_itemsite_id)
WHERE (womatl_itemsite_id=pItemsiteid)
AND (womatl_duedate BETWEEN pStartDate AND pEndDate);
ELSE
SELECT
COALESCE(SUM(noNeg(itemuomtouom(itemsite_item_id, womatl_uom_id, NULL, womatl_qtyreq))), 0.0) -
(
SELECT COALESCE(SUM(invhist_invqty),0)
FROM itemsite, item, wo, womatl
LEFT OUTER JOIN womatlpost ON (womatl_id=womatlpost_womatl_id)
LEFT OUTER JOIN invhist ON ((womatlpost_invhist_id=invhist_id)
AND (invhist_invqty > 0))
WHERE ( (womatl_itemsite_id=pItemsiteid)
AND (womatl_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (womatl_duedate BETWEEN pStartDate AND pEndDate)
AND (wo_id=womatl_wo_id)
AND (wo_status IN ('E','I','R')) )
) INTO _qty
FROM womatl JOIN wo ON (wo_id=womatl_wo_id AND wo_status IN ('E','I','R'))
JOIN itemsite ON (itemsite_id=womatl_itemsite_id)
WHERE (womatl_itemsite_id=pItemsiteid)
AND (womatl_duedate BETWEEN pStartDate AND pEndDate);
END IF;
RETURN COALESCE(_qty,0);
END;
$_$;
ALTER FUNCTION public.allocatedforwo(integer, date, date) OWNER TO admin;
--
-- Name: alterencrypt(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION alterencrypt(text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pOldKey ALIAS FOR $1;
pNewKey ALIAS FOR $2;
_cc RECORD;
_ccaud RECORD;
_metricenc RECORD;
num_updated INTEGER;
BEGIN
num_updated := 0;
-- Update ccard
FOR _cc IN SELECT ccard_id,
decrypt(setbytea(ccard_name), setbytea(pOldKey), 'bf') AS ccard_name,
decrypt(setbytea(ccard_address1), setbytea(pOldKey), 'bf') AS ccard_address1,
decrypt(setbytea(ccard_address2), setbytea(pOldKey), 'bf') AS ccard_address2,
decrypt(setbytea(ccard_city), setbytea(pOldKey), 'bf') AS ccard_city,
decrypt(setbytea(ccard_state), setbytea(pOldKey), 'bf') AS ccard_state,
decrypt(setbytea(ccard_zip), setbytea(pOldKey), 'bf') AS ccard_zip,
decrypt(setbytea(ccard_country), setbytea(pOldKey), 'bf') AS ccard_country,
decrypt(setbytea(ccard_number), setbytea(pOldKey), 'bf') AS ccard_number,
decrypt(setbytea(ccard_month_expired), setbytea(pOldKey), 'bf') AS ccard_month_expired,
decrypt(setbytea(ccard_year_expired), setbytea(pOldKey), 'bf') AS ccard_year_expired
FROM ccard LOOP
UPDATE ccard
set ccard_name = encrypt(setbytea(_cc.ccard_name), setbytea(pNewKey), 'bf'),
ccard_address1 = encrypt(setbytea(_cc.ccard_address1), setbytea(pNewKey), 'bf'),
ccard_address2 = encrypt(setbytea(_cc.ccard_address2), setbytea(pNewKey), 'bf'),
ccard_city = encrypt(setbytea(_cc.ccard_city), setbytea(pNewKey), 'bf'),
ccard_state = encrypt(setbytea(_cc.ccard_state), setbytea(pNewKey), 'bf'),
ccard_zip = encrypt(setbytea(_cc.ccard_zip), setbytea(pNewKey), 'bf'),
ccard_country = encrypt(setbytea(_cc.ccard_country), setbytea(pNewKey), 'bf'),
ccard_number = encrypt(setbytea(_cc.ccard_number), setbytea(pNewKey), 'bf'),
ccard_month_expired = encrypt(setbytea(_cc.ccard_month_expired), setbytea(pNewKey), 'bf'),
ccard_year_expired = encrypt(setbytea(_cc.ccard_year_expired), setbytea(pNewKey), 'bf')
WHERE ccard_id = _cc.ccard_id;
num_updated := num_updated + 1;
END LOOP;
-- Update ccardaud
FOR _ccaud IN SELECT ccardaud_id,
decrypt(setbytea(ccardaud_ccard_name_old), setbytea(pOldKey), 'bf') AS ccardaud_ccard_name_old,
decrypt(setbytea(ccardaud_ccard_name_new), setbytea(pOldKey), 'bf') AS ccardaud_ccard_name_new,
decrypt(setbytea(ccardaud_ccard_address1_old), setbytea(pOldKey), 'bf') AS ccardaud_ccard_address1_old,
decrypt(setbytea(ccardaud_ccard_address1_new), setbytea(pOldKey), 'bf') AS ccardaud_ccard_address1_new,
decrypt(setbytea(ccardaud_ccard_address2_old), setbytea(pOldKey), 'bf') AS ccardaud_ccard_address2_old,
decrypt(setbytea(ccardaud_ccard_address2_new), setbytea(pOldKey), 'bf') AS ccardaud_ccard_address2_new,
decrypt(setbytea(ccardaud_ccard_city_old), setbytea(pOldKey), 'bf') AS ccardaud_ccard_city_old,
decrypt(setbytea(ccardaud_ccard_city_new), setbytea(pOldKey), 'bf') AS ccardaud_ccard_city_new,
decrypt(setbytea(ccardaud_ccard_state_old), setbytea(pOldKey), 'bf') AS ccardaud_ccard_state_old,
decrypt(setbytea(ccardaud_ccard_state_new), setbytea(pOldKey), 'bf') AS ccardaud_ccard_state_new,
decrypt(setbytea(ccardaud_ccard_zip_old), setbytea(pOldKey), 'bf') AS ccardaud_ccard_zip_old,
decrypt(setbytea(ccardaud_ccard_zip_new), setbytea(pOldKey), 'bf') AS ccardaud_ccard_zip_new,
decrypt(setbytea(ccardaud_ccard_country_old), setbytea(pOldKey), 'bf') AS ccardaud_ccard_country_old,
decrypt(setbytea(ccardaud_ccard_country_new), setbytea(pOldKey), 'bf') AS ccardaud_ccard_country_new,
decrypt(setbytea(ccardaud_ccard_number_old), setbytea(pOldKey), 'bf') AS ccardaud_ccard_number_old,
decrypt(setbytea(ccardaud_ccard_number_new), setbytea(pOldKey), 'bf') AS ccardaud_ccard_number_new,
decrypt(setbytea(ccardaud_ccard_month_expired_old), setbytea(pOldKey), 'bf') AS ccardaud_ccard_month_expired_old,
decrypt(setbytea(ccardaud_ccard_month_expired_new), setbytea(pOldKey), 'bf') AS ccardaud_ccard_month_expired_new,
decrypt(setbytea(ccardaud_ccard_year_expired_old), setbytea(pOldKey), 'bf') AS ccardaud_ccard_year_expired_old,
decrypt(setbytea(ccardaud_ccard_year_expired_new), setbytea(pOldKey), 'bf') AS ccardaud_ccard_year_expired_new
FROM ccardaud LOOP
UPDATE ccardaud
set ccardaud_ccard_name_old = encrypt(setbytea(_ccaud.ccardaud_ccard_name_old), setbytea(pNewKey), 'bf'),
ccardaud_ccard_name_new = encrypt(setbytea(_ccaud.ccardaud_ccard_name_new), setbytea(pNewKey), 'bf'),
ccardaud_ccard_address1_old = encrypt(setbytea(_ccaud.ccardaud_ccard_address1_old), setbytea(pNewKey), 'bf'),
ccardaud_ccard_address1_new = encrypt(setbytea(_ccaud.ccardaud_ccard_address1_new), setbytea(pNewKey), 'bf'),
ccardaud_ccard_address2_old = encrypt(setbytea(_ccaud.ccardaud_ccard_address2_old), setbytea(pNewKey), 'bf'),
ccardaud_ccard_address2_new = encrypt(setbytea(_ccaud.ccardaud_ccard_address2_new), setbytea(pNewKey), 'bf'),
ccardaud_ccard_city_old = encrypt(setbytea(_ccaud.ccardaud_ccard_city_old), setbytea(pNewKey), 'bf'),
ccardaud_ccard_city_new = encrypt(setbytea(_ccaud.ccardaud_ccard_city_new), setbytea(pNewKey), 'bf'),
ccardaud_ccard_state_old = encrypt(setbytea(_ccaud.ccardaud_ccard_state_old), setbytea(pNewKey), 'bf'),
ccardaud_ccard_state_new = encrypt(setbytea(_ccaud.ccardaud_ccard_state_new), setbytea(pNewKey), 'bf'),
ccardaud_ccard_zip_old = encrypt(setbytea(_ccaud.ccardaud_ccard_zip_old), setbytea(pNewKey), 'bf'),
ccardaud_ccard_zip_new = encrypt(setbytea(_ccaud.ccardaud_ccard_zip_new), setbytea(pNewKey), 'bf'),
ccardaud_ccard_country_old = encrypt(setbytea(_ccaud.ccardaud_ccard_country_old), setbytea(pNewKey), 'bf'),
ccardaud_ccard_country_new = encrypt(setbytea(_ccaud.ccardaud_ccard_country_new), setbytea(pNewKey), 'bf'),
ccardaud_ccard_number_old = encrypt(setbytea(_ccaud.ccardaud_ccard_number_old), setbytea(pNewKey), 'bf'),
ccardaud_ccard_number_new = encrypt(setbytea(_ccaud.ccardaud_ccard_number_new), setbytea(pNewKey), 'bf'),
ccardaud_ccard_month_expired_old = encrypt(setbytea(_ccaud.ccardaud_ccard_month_expired_old), setbytea(pNewKey), 'bf'),
ccardaud_ccard_month_expired_new = encrypt(setbytea(_ccaud.ccardaud_ccard_month_expired_new), setbytea(pNewKey), 'bf'),
ccardaud_ccard_year_expired_old = encrypt(setbytea(_ccaud.ccardaud_ccard_year_expired_old), setbytea(pNewKey), 'bf'),
ccardaud_ccard_year_expired_new = encrypt(setbytea(_ccaud.ccardaud_ccard_year_expired_new), setbytea(pNewKey), 'bf')
WHERE ccardaud_id = _ccaud.ccardaud_id;
num_updated := num_updated + 1;
END LOOP;
-- Update metricenc
FOR _metricenc IN SELECT metricenc_id,
decrypt(setbytea(metricenc_value), setbytea(pOldKey), 'bf') AS metricenc_value
FROM metricenc LOOP
UPDATE metricenc
set metricenc_value = encrypt(setbytea(_metricenc.metricenc_value), setbytea(pNewKey), 'bf')
WHERE metricenc_id = _metricenc.metricenc_id;
num_updated := num_updated + 1;
END LOOP;
RETURN num_updated;
END;
$_$;
ALTER FUNCTION public.alterencrypt(text, text) OWNER TO admin;
--
-- Name: apaging(date, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION apaging(date, boolean) RETURNS SETOF apaging
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAsOfDate ALIAS FOR $1;
pUseDocDate ALIAS FOR $2;
_row apaging%ROWTYPE;
_x RECORD;
_returnVal INTEGER;
_asOfDate DATE;
BEGIN
_asOfDate := COALESCE(pAsOfDate,current_date);
FOR _x IN
SELECT
--report uses currency rate snapshot to convert all amounts to base based on apopen_docdate to ensure the same exchange rate
--today and greater base:
CASE WHEN((apopen_duedate >= DATE(_asOfDate)))
THEN (((apopen_amount-apopen_paid+COALESCE(SUM(apapply_target_paid),0)))/apopen_curr_rate *
CASE WHEN (apopen_doctype IN ('D', 'V')) THEN 1 ELSE -1 END) ELSE 0 END AS cur_val,
--0 to 30 base
CASE WHEN((apopen_duedate >= DATE(_asOfDate)-30) AND (apopen_duedate < DATE(_asOfDate)))
THEN (((apopen_amount-apopen_paid+COALESCE(SUM(apapply_target_paid),0)))/apopen_curr_rate *
CASE WHEN (apopen_doctype IN ('D', 'V')) THEN 1 ELSE -1 END) ELSE 0 END AS thirty_val,
--30-60 base
CASE WHEN((apopen_duedate >= DATE(_asOfDate)-60) AND (apopen_duedate < DATE(_asOfDate) - 30 ))
THEN (((apopen_amount-apopen_paid+COALESCE(SUM(apapply_target_paid),0)))/apopen_curr_rate *
CASE WHEN (apopen_doctype IN ('D', 'V')) THEN 1 ELSE -1 END) ELSE 0 END AS sixty_val,
--60-90 base
CASE WHEN((apopen_duedate >= DATE(_asOfDate)-90) AND (apopen_duedate < DATE(_asOfDate) - 60))
THEN (((apopen_amount-apopen_paid+COALESCE(SUM(apapply_target_paid),0)))/apopen_curr_rate *
CASE WHEN (apopen_doctype IN ('D', 'V')) THEN 1 ELSE -1 END) ELSE 0 END AS ninety_val,
--greater than 90 base:
CASE WHEN((apopen_duedate > DATE(_asOfDate)-10000) AND (apopen_duedate < DATE(_asOfDate) - 90))
THEN (((apopen_amount-apopen_paid + COALESCE(SUM(apapply_target_paid),0)))/apopen_curr_rate *
CASE WHEN (apopen_doctype IN ('D', 'V')) THEN 1 ELSE -1 END) ELSE 0 END AS plus_val,
--total amount base:
CASE WHEN((apopen_duedate > DATE(_asOfDate)-10000))
THEN (((apopen_amount-apopen_paid+COALESCE(SUM(apapply_target_paid),0)))/apopen_curr_rate *
CASE WHEN (apopen_doctype IN ('D', 'V')) THEN 1 ELSE -1 END) ELSE 0 END AS total_val,
--AP Open Amount base
CASE WHEN apopen_doctype IN ('C', 'R')
THEN (apopen_amount * -1) / apopen_curr_rate
ELSE apopen_amount / apopen_curr_rate END AS apopen_amount,
apopen_docdate,
apopen_duedate,
apopen_ponumber,
apopen_invcnumber,
apopen_docnumber,
apopen_doctype,
vend_id,
vend_name,
vend_number,
vend_vendtype_id,
vendtype_code,
terms_descrip,
determineDiscountDate(terms_id, apopen_docdate) AS discdate,
noNeg(apopen_discountable_amount *
CASE WHEN (CURRENT_DATE <= determineDiscountDate(terms_id, apopen_docdate)) THEN terms_discprcnt
ELSE 0.0 END) AS disc_val,
terms_discdays AS discdays,
(terms_discprcnt * 100.0) AS discprcnt
FROM vendinfo, vendtype, apopen
LEFT OUTER JOIN terms ON (apopen_terms_id=terms_id)
LEFT OUTER JOIN apapply ON (((apopen_id=apapply_target_apopen_id)
OR (apopen_id=apapply_source_apopen_id))
AND (apapply_postdate >_asOfDate))
WHERE ( (apopen_vend_id = vend_id)
AND (vend_vendtype_id=vendtype_id)
AND (CASE WHEN (pUseDocDate) THEN apopen_docdate ELSE apopen_distdate END <= _asOfDate)
AND (COALESCE(apopen_closedate,_asOfDate+1)>_asOfDate) )
GROUP BY apopen_id,apopen_docdate,apopen_duedate,apopen_ponumber, apopen_invcnumber, apopen_docnumber,apopen_doctype,apopen_paid,
apopen_curr_id,apopen_amount,vend_id,vend_name,vend_number,vend_vendtype_id,vendtype_code,terms_descrip,
apopen_curr_rate, terms_id, terms_discdays, terms_discprcnt, apopen_discountable_amount
ORDER BY vend_number, apopen_duedate
LOOP
_row.apaging_docdate := _x.apopen_docdate;
_row.apaging_duedate := _x.apopen_duedate;
_row.apaging_ponumber := _x.apopen_ponumber;
_row.apaging_invcnumber := _x.apopen_invcnumber;
_row.apaging_docnumber := _x.apopen_docnumber;
_row.apaging_doctype := _x.apopen_doctype;
_row.apaging_vend_id := _x.vend_id;
_row.apaging_vend_number := _x.vend_number;
_row.apaging_vend_name := _x.vend_name;
_row.apaging_vend_vendtype_id := _x.vend_vendtype_id;
_row.apaging_vendtype_code := _x.vendtype_code;
_row.apaging_terms_descrip := _x.terms_descrip;
_row.apaging_apopen_amount := _x.apopen_amount;
_row.apaging_cur_val := _x.cur_val;
_row.apaging_thirty_val := _x.thirty_val;
_row.apaging_sixty_val := _x.sixty_val;
_row.apaging_ninety_val := _x.ninety_val;
_row.apaging_plus_val := _x.plus_val;
_row.apaging_total_val := _x.total_val;
_row.apaging_discdate := _x.discdate;
_row.apaging_disc_val := _x.disc_val;
_row.apaging_discdays := _x.discdays;
_row.apaging_discprcnt := _x.discprcnt;
RETURN NEXT _row;
END LOOP;
RETURN;
END;
$_$;
ALTER FUNCTION public.apaging(date, boolean) OWNER TO admin;
--
-- Name: apapplied(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION apapplied(integer, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pApopenid ALIAS FOR $1;
pDate ALIAS FOR $2;
_amount NUMERIC;
BEGIN
-- Return amount applied to an apopen in base currency as of apapply_postdate
SELECT SUM(currtobase(apapply_curr_id,apapply_amount,apapply_postdate)) INTO _amount
FROM apapply
WHERE (((apapply_target_apopen_id = pApopenid) OR (apapply_source_apopen_id = pApopenid))
AND (((apapply_journalnumber=0) AND (apapply_postdate <= pDate))
OR EXISTS(SELECT *
FROM gltrans
WHERE ((gltrans_journalnumber=apapply_journalnumber)
AND (gltrans_date <= pDate)))));
IF (_amount IS NULL) THEN
RETURN 0;
ELSE
RETURN _amount;
END IF;
END;
$_$;
ALTER FUNCTION public.apapplied(integer, date) OWNER TO admin;
--
-- Name: apcheckpending(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION apcheckpending(integer) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pApopenid ALIAS FOR $1;
_qty NUMERIC := 0.0;
BEGIN
SELECT SUM(checkitem_amount + checkitem_discount) INTO _qty
FROM checkitem JOIN checkhead ON (checkitem_checkhead_id=checkhead_id)
WHERE ((checkitem_apopen_id=pApopenid)
AND (NOT checkhead_deleted)
AND (NOT checkhead_replaced)
AND (NOT checkhead_posted));
RETURN COALESCE(_qty, 0.0);
END;
$_$;
ALTER FUNCTION public.apcheckpending(integer) OWNER TO admin;
--
-- Name: apcurrgain(integer, integer, numeric, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION apcurrgain(integer, integer, numeric, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pApopenId ALIAS FOR $1;
pCurrId ALIAS FOR $2;
pValue ALIAS FOR $3;
pDate ALIAS FOR $4;
_start DATE;
_end DATE;
_gain NUMERIC;
_r RECORD;
BEGIN
IF (pApopenId IS NULL OR pValue = 0) THEN
RETURN 0;
END IF;
SELECT apopen_docdate, apopen_curr_rate
INTO _r
FROM apopen
WHERE (apopen_id=pApopenId);
IF (_r.apopen_docdate > pDate) THEN
_gain := (currToBase(pCurrId, pValue, pDate) - (pValue / _r.apopen_curr_rate)) * -1;
ELSE
_gain := (pValue / _r.apopen_curr_rate) - currToBase(pCurrId, pValue, pDate);
END IF;
IF (_gain IS NULL) THEN
RAISE EXCEPTION 'Error processing currency gain/loss.';
END IF;
RETURN _gain;
END;
$_$;
ALTER FUNCTION public.apcurrgain(integer, integer, numeric, date) OWNER TO admin;
--
-- Name: applyapcreditmemotobalance(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION applyapcreditmemotobalance(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pApopenid ALIAS FOR $1;
_amount NUMERIC;
_curr_id INTEGER;
_curr_rate NUMERIC;
_docdate DATE;
_applyAmount NUMERIC;
_r RECORD;
_p RECORD;
BEGIN
-- Find the balance to apply
SELECT (apopen_amount - apopen_paid - COALESCE(prepared,0.0) - COALESCE(selected,0.0) - COALESCE(SUM(currToCurr(apcreditapply_curr_id,
apopen_curr_id,
apcreditapply_amount,
apopen_docdate)), 0)),
apopen_curr_id, apopen_curr_rate, apopen_docdate INTO _amount, _curr_id, _curr_rate, _docdate
FROM apopen
LEFT OUTER JOIN apcreditapply ON (apcreditapply_source_apopen_id=apopen_id)
LEFT OUTER JOIN (SELECT apopen_id AS selected_apopen_id,
SUM(currToCurr(apselect_curr_id, apopen_curr_id, apselect_amount + apselect_discount, apselect_date)) AS selected
FROM apselect JOIN apopen ON (apselect_apopen_id=apopen_id)
GROUP BY apopen_id) AS sub1 ON (apopen_id=selected_apopen_id)
LEFT OUTER JOIN (SELECT apopen_id AS prepared_apopen_id,
SUM(checkitem_amount + checkitem_discount) AS prepared
FROM checkhead
JOIN checkitem ON (checkitem_checkhead_id=checkhead_id)
JOIN apopen ON (checkitem_apopen_id=apopen_id)
WHERE ((NOT checkhead_posted)
AND (NOT checkhead_void))
GROUP BY apopen_id) AS sub2 ON (prepared_apopen_id=apopen_id)
WHERE (apopen_id=pApopenid)
GROUP BY apopen_amount, apopen_paid, apopen_curr_id, apopen_curr_rate, apopen_docdate, prepared, selected;
IF (_amount < 0) THEN
RETURN -1;
END IF;
-- Loop through the apopen items in order of due date
FOR _r IN SELECT target.apopen_id AS apopenid,
currToCurr(target.apopen_curr_id,source.apopen_curr_id,
target.apopen_amount - target.apopen_paid - COALESCE(prepared,0.0) - COALESCE(selected,0.0) - COALESCE(applied,0.0),
current_date) AS balance
FROM apopen AS source, apopen AS target
LEFT OUTER JOIN (SELECT apcreditapply_target_apopen_id AS applied_apopen_id,
SUM(currToCurr(apcreditapply_curr_id, apopen_curr_id, apcreditapply_amount, apopen_docdate)) AS applied
FROM apcreditapply JOIN apopen ON (apopen_id=apcreditapply_source_apopen_id)
GROUP BY apcreditapply_target_apopen_id) AS sub3
ON (target.apopen_id=applied_apopen_id)
LEFT OUTER JOIN (SELECT apopen_id AS selected_apopen_id,
SUM(currToCurr(apselect_curr_id, apopen_curr_id, apselect_amount + apselect_discount, apselect_date)) AS selected
FROM apselect JOIN apopen ON (apselect_apopen_id=apopen_id)
GROUP BY apopen_id) AS sub1
ON (target.apopen_id=selected_apopen_id)
LEFT OUTER JOIN (SELECT apopen_id AS prepared_apopen_id,
SUM(checkitem_amount + checkitem_discount) AS prepared
FROM checkhead
JOIN checkitem ON (checkitem_checkhead_id=checkhead_id)
JOIN apopen ON (checkitem_apopen_id=apopen_id)
WHERE ((NOT checkhead_posted)
AND (NOT checkhead_void))
GROUP BY apopen_id) AS sub2 ON (prepared_apopen_id=target.apopen_id)
WHERE ( (source.apopen_vend_id=target.apopen_vend_id)
AND (target.apopen_doctype IN ('V', 'D'))
AND (target.apopen_open)
AND (source.apopen_id=pApopenid) )
ORDER BY target.apopen_duedate, (target.apopen_amount - target.apopen_paid) LOOP
-- Determine the amount to apply
IF (_r.balance <= 0.0) THEN
CONTINUE;
ELSEIF (_r.balance > _amount) THEN
_applyAmount := _amount;
ELSE
_applyAmount := _r.balance;
END IF;
-- Does an apcreditapply record already exist?
SELECT apcreditapply_id,
apcreditapply_amount * _curr_rate /
currRate(apcreditapply_curr_id,_docdate) AS apcreditapply_amount
INTO _p
FROM apcreditapply
WHERE ( (apcreditapply_target_apopen_id=_r.apopenid)
AND (apcreditapply_source_apopen_id=pApopenid) );
IF (FOUND) THEN
-- The following is depreciated, just skip the record
-- Recalculate the amount to apply
-- IF ((_r.balance - _p.apcreditapply_amount) > _amount) THEN
-- _applyAmount := _amount;
-- ELSE
-- _applyAmount := (_r.balance - _p.apcreditapply_amount);
-- END IF;
-- Update the apcreditapply with the new amount to apply
-- UPDATE apcreditapply
-- SET apcreditapply_amount = (apcreditapply_amount +
-- _applyAmount * currRate(apcreditapply_curr_id,_docdate) / _curr_rate)
-- WHERE (apcreditapply_id=_p.apcreditapply_id);
CONTINUE;
ELSE
-- Create a new apcreditapply record
INSERT INTO apcreditapply
( apcreditapply_source_apopen_id, apcreditapply_target_apopen_id,
apcreditapply_amount, apcreditapply_curr_id )
VALUES
( pApopenid, _r.apopenid, _applyAmount, _curr_id );
END IF;
_amount := (_amount - _applyAmount);
IF (_amount = 0) THEN
EXIT;
END IF;
END LOOP;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.applyapcreditmemotobalance(integer) OWNER TO admin;
--
-- Name: applyapcredits(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION applyapcredits(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendId ALIAS FOR $1;
_result INTEGER;
_apopenid INTEGER;
_r RECORD;
BEGIN
-- Fetch credit memo(s) for the vendor
FOR _r IN SELECT apopen_id, apopen_duedate
FROM apopen JOIN vendinfo ON (apopen_vend_id = vend_id)
WHERE ((apopen_doctype = 'C')
AND (apopen_status = 'O')
AND (vend_id = pVendId))
ORDER BY apopen_duedate
LOOP
-- Apply credit memo(s) according to due date
SELECT applyapcreditmemotobalance(_r.apopen_id) INTO _result;
-- Post the credit memo if applied
IF (_result = 1) THEN
SELECT postapcreditmemoapplication(_r.apopen_id) INTO _apopenid;
IF (_apopenid < 0) THEN
RETURN -1;
END IF;
ELSE
RETURN -1;
END IF;
END LOOP;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.applyapcredits(integer) OWNER TO admin;
--
-- Name: applyarcreditmemotobalance(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION applyarcreditmemotobalance(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAropenid ALIAS FOR $1;
BEGIN
RETURN applyARCreditMemoToBalance(pAropenid, NULL);
END;
$_$;
ALTER FUNCTION public.applyarcreditmemotobalance(integer) OWNER TO admin;
--
-- Name: applyarcreditmemotobalance(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION applyarcreditmemotobalance(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSourceAropenid ALIAS FOR $1;
pTargetAropenid ALIAS FOR $2;
_amount NUMERIC;
_amountcurrid INTEGER;
_applyAmount NUMERIC;
_applycurrid INTEGER;
_curr_rate NUMERIC;
_r RECORD;
_p RECORD;
BEGIN
-- Find the balance to apply
SELECT (aropen_amount - COALESCE(SUM(currToCurr(arcreditapply_curr_id,
aropen_curr_id,
arcreditapply_amount,
aropen_docdate)), 0) - aropen_paid - COALESCE(prepared,0.0) - COALESCE(cashapplied,0.0)),
aropen_curr_id, aropen_curr_rate INTO _amount, _amountcurrid, _curr_rate
FROM aropen LEFT OUTER JOIN arcreditapply ON (arcreditapply_source_aropen_id=aropen_id)
LEFT OUTER JOIN (SELECT aropen_id AS prepared_aropen_id,
SUM(checkitem_amount + checkitem_discount) AS prepared
FROM checkhead JOIN checkitem ON (checkitem_checkhead_id=checkhead_id)
JOIN aropen ON (checkitem_aropen_id=aropen_id)
WHERE ((NOT checkhead_posted)
AND (NOT checkhead_void))
GROUP BY aropen_id) AS sub1
ON (prepared_aropen_id=aropen_id)
LEFT OUTER JOIN (SELECT aropen_id AS cash_aropen_id,
SUM(cashrcptitem_amount + cashrcptitem_discount) * -1.0 AS cashapplied
FROM cashrcpt JOIN cashrcptitem ON (cashrcptitem_cashrcpt_id=cashrcpt_id)
JOIN aropen ON (cashrcptitem_aropen_id=aropen_id)
WHERE (NOT cashrcpt_posted) AND (NOT cashrcpt_void)
GROUP BY aropen_id ) AS sub2
ON (cash_aropen_id=aropen_id)
WHERE (aropen_id=pSourceAropenid)
GROUP BY aropen_amount, aropen_paid, aropen_curr_id, aropen_curr_rate, prepared, cashapplied;
IF (_amount < 0) THEN
RETURN -1;
END IF;
-- Loop through the aropen items in order of due date
FOR _r IN SELECT target.aropen_id AS aropenid,
currToCurr(target.aropen_curr_id,source.aropen_curr_id,
(target.aropen_amount - target.aropen_paid - calcpendingarapplications(target.aropen_id)),
current_date) AS balance,
target.aropen_curr_id AS curr_id,
target.aropen_docdate AS docdate
FROM aropen AS target, aropen AS source
WHERE ( (source.aropen_cust_id=target.aropen_cust_id)
AND (target.aropen_doctype IN ('D', 'I'))
AND (target.aropen_open)
AND (source.aropen_id=pSourceAropenid)
AND ((pTargetAropenid IS NULL) OR (target.aropen_id=pTargetAropenid)) )
ORDER BY target.aropen_duedate, target.aropen_docnumber LOOP
-- Determine the amount to apply
IF (_r.balance > _amount) THEN
_applyAmount := _amount;
ELSE
_applyAmount := _r.balance;
END IF;
_applycurrid := _amountcurrid;
-- Does an arcreditapply record already exist?
SELECT arcreditapply_id,
arcreditapply_amount,
arcreditapply_amount * _curr_rate /
currRate(arcreditapply_curr_id,_r.docdate) AS
arcreditapply_amount_applycurr INTO _p
FROM arcreditapply
WHERE ( (arcreditapply_target_aropen_id=_r.aropenid)
AND (arcreditapply_source_aropen_id=pSourceAropenid) );
IF (FOUND) THEN
-- Offset the amount to apply by the amount already applied
_applyAmount := (_applyAmount - _p.arcreditapply_amount_applycurr);
IF (_applyAmount < 0) THEN
_applyAmount := 0;
END IF;
-- Update the arcreditapply with the new amount to apply
UPDATE arcreditapply
SET arcreditapply_amount = (arcreditapply_amount +
_applyAmount * currRate(arcreditapply_curr_id,_r.docdate) / _curr_rate)
WHERE (arcreditapply_id=_p.arcreditapply_id);
ELSE
-- Create a new arcreditapply record
INSERT INTO arcreditapply
( arcreditapply_source_aropen_id, arcreditapply_target_aropen_id,
arcreditapply_amount, arcreditapply_curr_id )
VALUES
( pSourceAropenid, _r.aropenid, _applyAmount, _applycurrid );
END IF;
_amount := _amount - currToCurr(_applycurrid, _amountcurrid, _applyAmount, _r.docdate);
IF (_amount = 0) THEN
EXIT;
END IF;
END LOOP;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.applyarcreditmemotobalance(integer, integer) OWNER TO admin;
--
-- Name: applycashreceiptlinebalance(integer, integer, numeric, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION applycashreceiptlinebalance(integer, integer, numeric, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCashrcptId ALIAS FOR $1;
pAropenid ALIAS FOR $2;
pAmount ALIAS FOR $3;
pCurrId ALIAS FOR $4;
_balance NUMERIC;
_amount NUMERIC;
_applyAmount NUMERIC := 0;
_discount NUMERIC := 0;
_discprct NUMERIC;
_docDate DATE;
_r RECORD;
_doctype CHAR(1);
BEGIN
-- All calculations performed in currency of Cash Receipt
-- Clear previously applied
DELETE FROM cashrcptitem WHERE ((cashrcptitem_cashrcpt_id=pCashrcptId) AND (cashrcptitem_aropen_id=pAropenId));
-- Find the balance to apply
SELECT (pAmount - (COALESCE(SUM(cashrcptitem_amount), 0) ) ),
COALESCE(cashrcpt_docdate, current_date)
INTO _amount, _docDate
FROM cashrcpt LEFT OUTER JOIN cashrcptitem ON (cashrcptitem_cashrcpt_id = cashrcpt_id)
WHERE (cashrcpt_id=pCashrcptid)
GROUP BY cashrcpt_curr_id, cashrcpt_distdate, cashrcpt_docdate;
SELECT (_amount - COALESCE(SUM(cashrcptmisc_amount), 0)) INTO _amount
FROM cashrcptmisc
WHERE (cashrcptmisc_cashrcpt_id=pCashrcptid);
SELECT aropen_doctype INTO _doctype
FROM aropen
WHERE (aropen_id=pAropenId);
RAISE DEBUG 'Amount (%) DocType (%)', _amount, _doctype;
IF (_amount <= 0 AND _doctype IN ('I','D')) THEN
RETURN 0;
END IF;
-- Determine Line balance
SELECT currToCurr(aropen_curr_id, cashrcpt_curr_id,
aropen_amount - aropen_paid, cashrcpt_distdate) -
COALESCE((SELECT (SUM(cashrcptitem_amount) + SUM(cashrcptitem_discount))
FROM cashrcptitem, cashrcpt
WHERE ((cashrcpt_id=cashrcptitem_cashrcpt_id)
AND (NOT cashrcpt_void)
AND (NOT cashrcpt_posted)
AND (cashrcpt_id != pCashrcptId)
AND (cashrcptitem_aropen_id=pAropenId))), 0)
INTO _balance
FROM aropen, cashrcpt
WHERE ((aropen_id=pAropenId)
AND (cashrcpt_id=pCashrcptId));
RAISE DEBUG 'Balance (%)', _balance;
-- If Invoice or Debit Memo, determine Max Discount as per Terms
IF (_doctype IN ('I','D')) THEN
SELECT round(noNeg(_balance *
CASE WHEN (_docDate <= determineDiscountDate(terms_id, aropen_docdate)) THEN COALESCE(terms_discprcnt, 0.0)
ELSE 0.00 END - applied),2),
CASE WHEN (_docDate <= determineDiscountDate(terms_id, aropen_docdate)) THEN COALESCE(terms_discprcnt, 0.0)
ELSE 0.00 END INTO _discount, _discprct
FROM aropen LEFT OUTER JOIN terms ON (terms_id=aropen_terms_id),
(SELECT COALESCE(SUM(arapply_applied), 0.00) AS applied
FROM arapply, aropen
WHERE ((arapply_target_aropen_id=pAropenId)
AND (arapply_source_aropen_id=pAropenId)
AND (aropen_discount) )
) AS data
WHERE (aropen_id=pAropenId);
-- Determine the amount to apply
IF (_balance <= _amount + _discount) THEN
_applyAmount := _balance - _discount;
ELSE
_discount := round((_amount / (1 - _discprct)) - _amount, 2);
_applyAmount := _amount;
END IF;
ELSIF (_doctype IN ('C', 'R')) THEN
-- Handle Credits, discounts don't apply here
_applyAmount := _balance * -1;
ELSE
_applyAmount := _amount;
END IF;
IF (_applyAmount != 0) THEN
-- Create a new cashrcptitem
INSERT INTO cashrcptitem
( cashrcptitem_aropen_id, cashrcptitem_cashrcpt_id,
cashrcptitem_amount,cashrcptitem_discount )
VALUES
( pAropenid, pCashrcptid, round(_applyAmount, 2), round(_discount, 2) );
END IF;
RETURN abs(_applyAmount);
END;
$_$;
ALTER FUNCTION public.applycashreceiptlinebalance(integer, integer, numeric, integer) OWNER TO admin;
--
-- Name: applycashreceipttobalance(integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION applycashreceipttobalance(integer, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCashrcptid ALIAS FOR $1;
pAmount ALIAS FOR $2;
BEGIN
RETURN applyCashReceiptToBalance(pCashrcptid, pAmount, baseCurrId() );
END;
$_$;
ALTER FUNCTION public.applycashreceipttobalance(integer, numeric) OWNER TO admin;
--
-- Name: applycashreceipttobalance(integer, numeric, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION applycashreceipttobalance(integer, numeric, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCashrcptid ALIAS FOR $1;
pAmount ALIAS FOR $2;
pCurrId ALIAS FOR $3;
BEGIN
RETURN applyCashReceiptToBalance(pCashrcptid, pAmount, pCurrId, false);
END;
$_$;
ALTER FUNCTION public.applycashreceipttobalance(integer, numeric, integer) OWNER TO admin;
--
-- Name: applycashreceipttobalance(integer, numeric, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION applycashreceipttobalance(integer, numeric, integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCashrcptid ALIAS FOR $1;
pAmount ALIAS FOR $2;
pCurrId ALIAS FOR $3;
pInclCredits ALIAS FOR $4;
_amount NUMERIC;
_applied NUMERIC := 0;
_applyAmount NUMERIC;
_discount NUMERIC;
_discprct NUMERIC;
_docDate DATE;
_r RECORD;
_toApply NUMERIC;
BEGIN
-- Apply open credits first if applicable
IF (pInclCredits) THEN
-- First find total debits unaccounted for by this receipt so we can apply as much credit
-- as possible to clear, but no more
SELECT coalesce(noNeg(sum(currToCurr(aropen_curr_id, cashrcpt_curr_id,
aropen_amount - aropen_paid, cashrcpt_distdate) -
COALESCE((SELECT (SUM(cashrcptitem_amount) + SUM(cashrcptitem_discount))
FROM cashrcptitem, cashrcpt
WHERE ((cashrcpt_id=cashrcptitem_cashrcpt_id)
AND (NOT cashrcpt_void)
AND (NOT cashrcpt_posted)
AND (cashrcpt_id != pCashrcptid)
AND (cashrcptitem_aropen_id=aropen_id))), 0)) - pAmount),0)
INTO _toApply
FROM cashrcpt
JOIN custinfo ON (cashrcpt_cust_id=cust_id)
JOIN aropen ON (cust_id=aropen_cust_id)
WHERE ((cashrcpt_id=pCashrcptid)
AND (aropen_open)
AND (aropen_doctype IN ('I','D')));
-- Loop through and apply credits until we account for all remaining debits we can
FOR _r IN
SELECT aropen_id
FROM cashrcpt
JOIN custinfo ON (cashrcpt_cust_id=cust_id)
JOIN aropen ON (cust_id=aropen_cust_id)
WHERE ((cashrcpt_id=pCashrcptid)
AND (aropen_open)
AND (aropen_doctype IN ('C','R')))
ORDER BY aropen_duedate, aropen_docnumber
LOOP
EXIT WHEN _toApply <= 0;
_toApply := _toApply - applyCashReceiptLineBalance(pCashrcptid, _r.aropen_id, _toApply, pCurrId);
END LOOP;
END IF;
-- Find the balance to apply
SELECT (currToCurr(pCurrId, cashrcpt_curr_id, pAmount, cashrcpt_distdate) -
(COALESCE(SUM(cashrcptitem_amount), 0) ) ),
COALESCE(cashrcpt_docdate, current_date)
INTO _amount, _docDate
FROM cashrcpt LEFT OUTER JOIN cashrcptitem ON (cashrcptitem_cashrcpt_id = cashrcpt_id)
WHERE (cashrcpt_id=pCashrcptid)
GROUP BY cashrcpt_curr_id, cashrcpt_distdate, cashrcpt_docdate;
SELECT (_amount - COALESCE(SUM(cashrcptmisc_amount), 0)) INTO _amount
FROM cashrcptmisc
WHERE (cashrcptmisc_cashrcpt_id=pCashrcptid);
IF (_amount = 0) THEN
RETURN 1;
END IF;
-- Loop through the aropen item in order of due date, searching only for
-- aropen items that are open, for the current customer and have an outstanding balance
FOR _r IN SELECT aropen_id,
currToCurr(aropen_curr_id, cashrcpt_curr_id,
aropen_amount - aropen_paid, cashrcpt_distdate) -
COALESCE((SELECT SUM(cashrcptitem_amount) + SUM(cashrcptitem_discount)
FROM cashrcptitem, cashrcpt
WHERE ((cashrcpt_id=cashrcptitem_cashrcpt_id)
AND (NOT cashrcpt_void)
AND (NOT cashrcpt_posted)
AND (cashrcpt_id != pCashrcptId)
AND (cashrcptitem_aropen_id=aropen_id))), 0) AS balance,
s.cashrcptitem_id AS cashrcptitem_id
FROM cashrcpt, aropen LEFT OUTER JOIN
cashrcptitem s ON (s.cashrcptitem_aropen_id=aropen_id AND s.cashrcptitem_cashrcpt_id=pCashrcptId)
LEFT OUTER JOIN terms ON (aropen_terms_id=terms_id),
(SELECT COALESCE(SUM(arapply_applied), 0.00) AS applied
FROM arapply, aropen
WHERE ((arapply_target_aropen_id=aropen_id)
AND (arapply_source_aropen_id=aropen_id)
AND (aropen_discount) )
) AS data
WHERE ( (aropen_cust_id=cashrcpt_cust_id)
AND (aropen_doctype IN ('I', 'D'))
AND (aropen_open)
AND (cashrcpt_id=pCashrcptid) )
ORDER BY aropen_duedate, aropen_amount, balance LOOP
-- Determine Max Discount as per Terms
SELECT round(noNeg(_r.balance *
CASE WHEN (_docDate <= determineDiscountDate(terms_id, aropen_docdate)) THEN terms_discprcnt
ELSE 0.00 END - applied),2),
CASE WHEN (_docDate <= determineDiscountDate(terms_id, aropen_docdate)) THEN terms_discprcnt
ELSE 0.00 END INTO _discount, _discprct
FROM aropen LEFT OUTER JOIN terms ON (terms_id=aropen_terms_id),
(SELECT COALESCE(SUM(arapply_applied), 0.00) AS applied
FROM arapply, aropen
WHERE ((arapply_target_aropen_id=_r.aropen_id)
AND (arapply_source_aropen_id=_r.aropen_id)
AND (aropen_discount) )
) AS data
WHERE (aropen_id=_r.aropen_id);
-- Determine the amount to apply
IF (_r.balance <= _amount + _discount) THEN
_applyAmount := _r.balance - _discount;
ELSE
_discount := round((_amount / (1 - _discprct)) - _amount, 2);
_applyAmount := _amount;
END IF;
IF (_applyAmount > 0) THEN
-- Does an cashrcptitem already exist?
IF (_r.cashrcptitem_id IS NOT NULL) THEN
-- Update the cashrcptitem with the new amount to apply
UPDATE cashrcptitem
SET cashrcptitem_amount = round(cashrcptitem_amount + _applyAmount, 2),
cashrcptitem_discount = round(_discount, 2)
WHERE (cashrcptitem_id=_r.cashrcptitem_id);
ELSE
-- Create a new cashrcptitem
INSERT INTO cashrcptitem
( cashrcptitem_aropen_id, cashrcptitem_cashrcpt_id,
cashrcptitem_amount, cashrcptitem_discount )
VALUES
( _r.aropen_id, pCashrcptid, round(_applyAmount, 2), round(_discount, 2) );
END IF;
_amount := (_amount - _applyAmount);
IF (round(_amount, 2) = 0) THEN
EXIT;
END IF;
END IF;
END LOOP;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.applycashreceipttobalance(integer, numeric, integer, boolean) OWNER TO admin;
--
-- Name: araging(date, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION araging(date, boolean) RETURNS SETOF araging
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAsOfDate ALIAS FOR $1;
pUseDocDate ALIAS FOR $2;
_row araging%ROWTYPE;
BEGIN
FOR _row IN SELECT *
FROM araging(pAsOfDate, pUseDocDate, true)
LOOP
RETURN NEXT _row;
END LOOP;
RETURN;
END;
$_$;
ALTER FUNCTION public.araging(date, boolean) OWNER TO admin;
--
-- Name: araging(date, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION araging(date, boolean, boolean) RETURNS SETOF araging
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAsOfDate ALIAS FOR $1;
pUseDocDate ALIAS FOR $2;
pConvBaseCurr ALIAS FOR $3;
_row araging%ROWTYPE;
_x RECORD;
_returnVal INTEGER;
_asOfDate DATE;
BEGIN
_asOfDate := COALESCE(pAsOfDate,current_date);
FOR _x IN
SELECT
aropen_docdate,
aropen_duedate,
aropen_ponumber,
aropen_docnumber,
aropen_doctype,
cust_id,
cust_name,
cust_number,
cust_custtype_id,
custtype_code,
terms_descrip,
--if pConvBaseCurr is true then use currtobase to convert all amounts to base based on aropen_docdate to ensure the same exchange rate
--otherwise use currtocurr to convert all amounts to customer's currency based on aropen_docdate to ensure the same exchange rate
--today and greater:
CASE WHEN((aropen_duedate >= DATE(_asOfDate))) THEN balance
ELSE 0.0 END AS cur_val,
--0 to 30
CASE WHEN((aropen_duedate >= DATE(_asOfDate)-30) AND (aropen_duedate < DATE(_asOfDate))) THEN balance
ELSE 0.0 END AS thirty_val,
--30-60
CASE WHEN((aropen_duedate >= DATE(_asOfDate)-60) AND (aropen_duedate < DATE(_asOfDate) - 30 )) THEN balance
ELSE 0.0 END AS sixty_val,
--60-90
CASE WHEN((aropen_duedate >= DATE(_asOfDate)-90) AND (aropen_duedate < DATE(_asOfDate) - 60)) THEN balance
ELSE 0.0 END AS ninety_val,
--greater than 90:
CASE WHEN((aropen_duedate > DATE(_asOfDate)-10000) AND (aropen_duedate < DATE(_asOfDate) - 90)) THEN balance
ELSE 0.0 END AS plus_val,
--total amount:
CASE WHEN((aropen_duedate > DATE(_asOfDate)-10000)) THEN balance
ELSE 0.0 END AS total_val,
--AR Open Amount base
aropen_amount
FROM (
SELECT
(((aropen_amount - aropen_paid + COALESCE(SUM(arapply_target_paid),0))) /
CASE WHEN (pConvBaseCurr) THEN aropen_curr_rate
ELSE currRate(aropen_curr_id, cust_curr_id, aropen_docdate)
END *
CASE WHEN (aropen_doctype IN ('C', 'R')) THEN -1.0
ELSE 1.0
END) AS balance,
((aropen_amount) /
CASE WHEN (pConvBaseCurr) THEN aropen_curr_rate
ELSE currRate(aropen_curr_id, cust_curr_id, aropen_docdate)
END *
CASE WHEN (aropen_doctype IN ('C', 'R')) THEN -1.0
ELSE 1.0
END) AS aropen_amount,
aropen_docdate,
aropen_duedate,
aropen_ponumber,
aropen_docnumber,
aropen_doctype,
cust_id,
cust_name,
cust_number,
cust_custtype_id,
custtype_code,
COALESCE(arterms.terms_descrip, custterms.terms_descrip, '') AS terms_descrip
FROM aropen
JOIN custinfo ON (cust_id=aropen_cust_id)
JOIN custtype ON (custtype_id=cust_custtype_id)
LEFT OUTER JOIN terms arterms ON (arterms.terms_id=aropen_terms_id)
LEFT OUTER JOIN terms custterms ON (custterms.terms_id=cust_terms_id)
LEFT OUTER JOIN arapply ON (((aropen_id=arapply_target_aropen_id)
OR (aropen_id=arapply_source_aropen_id))
AND (arapply_distdate>_asOfDate))
WHERE ( (CASE WHEN (pUseDocDate) THEN aropen_docdate ELSE aropen_distdate END <= _asOfDate)
AND (COALESCE(aropen_closedate,_asOfDate+1)>_asOfDate) )
GROUP BY aropen_id,aropen_docdate,aropen_duedate,aropen_ponumber,aropen_docnumber,aropen_doctype,aropen_paid,
aropen_curr_id,aropen_amount,cust_id,cust_name,cust_number,cust_custtype_id,custtype_code,
arterms.terms_descrip,custterms.terms_descrip, aropen_curr_rate, aropen_curr_id, cust_curr_id
ORDER BY cust_number, aropen_duedate ) AS data
LOOP
_row.araging_docdate := _x.aropen_docdate;
_row.araging_duedate := _x.aropen_duedate;
_row.araging_ponumber := _x.aropen_ponumber;
_row.araging_docnumber := _x.aropen_docnumber;
_row.araging_doctype := _x.aropen_doctype;
_row.araging_cust_id := _x.cust_id;
_row.araging_cust_number := _x.cust_number;
_row.araging_cust_name := _x.cust_name;
_row.araging_cust_custtype_id := _x.cust_custtype_id;
_row.araging_custtype_code := _x.custtype_code;
_row.araging_terms_descrip := _x.terms_descrip;
_row.araging_aropen_amount := _x.aropen_amount;
_row.araging_cur_val := _x.cur_val;
_row.araging_thirty_val := _x.thirty_val;
_row.araging_sixty_val := _x.sixty_val;
_row.araging_ninety_val := _x.ninety_val;
_row.araging_plus_val := _x.plus_val;
_row.araging_total_val := _x.total_val;
RETURN NEXT _row;
END LOOP;
RETURN;
END;
$_$;
ALTER FUNCTION public.araging(date, boolean, boolean) OWNER TO admin;
--
-- Name: arapplied(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION arapplied(integer, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAropenid ALIAS FOR $1;
pDate ALIAS FOR $2;
_amount NUMERIC;
BEGIN
-- Return amount applied to an aropen in base currency item as of the parameter date
SELECT SUM(currtobase(arapply_curr_id,arapply_applied,pDate)) INTO _amount
FROM arapply
WHERE (((arapply_target_aropen_id = pAropenid) OR (arapply_source_aropen_id = pAropenid))
AND (((arapply_journalnumber=0) AND (arapply_postdate <= pDate))
OR EXISTS(SELECT *
FROM gltrans
WHERE ((gltrans_journalnumber=arapply_journalnumber)
AND (gltrans_date <= pDate)))));
IF (_amount IS NULL) THEN
RETURN 0;
ELSE
RETURN _amount;
END IF;
END;
$_$;
ALTER FUNCTION public.arapplied(integer, date) OWNER TO admin;
--
-- Name: archivesaleshistory(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION archivesaleshistory(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSohistid ALIAS FOR $1;
BEGIN
INSERT INTO asohist ( asohist_id,
asohist_cust_id,
asohist_itemsite_id,
asohist_shipdate,
asohist_invcdate,
asohist_duedate,
asohist_promisedate,
asohist_ordernumber,
asohist_invcnumber,
asohist_qtyshipped,
asohist_unitprice,
asohist_unitcost,
asohist_billtoname,
asohist_billtoaddress1,
asohist_billtoaddress2,
asohist_billtoaddress3,
asohist_billtocity,
asohist_billtostate,
asohist_billtozip,
asohist_shiptoname,
asohist_shiptoaddress1,
asohist_shiptoaddress2,
asohist_shiptoaddress3,
asohist_shiptocity,
asohist_shiptostate,
asohist_shiptozip,
asohist_shipto_id,
asohist_shipvia,
asohist_salesrep_id,
asohist_misc_type,
asohist_misc_descrip,
asohist_misc_id,
asohist_commission,
asohist_commissionpaid,
asohist_doctype,
asohist_orderdate,
asohist_imported,
asohist_ponumber,
asohist_curr_id,
asohist_taxtype_id,
asohist_taxzone_id )
SELECT cohist_id,
cohist_cust_id,
cohist_itemsite_id,
cohist_shipdate,
cohist_invcdate,
cohist_duedate,
cohist_promisedate,
cohist_ordernumber,
cohist_invcnumber,
cohist_qtyshipped,
cohist_unitprice,
cohist_unitcost,
cohist_billtoname,
cohist_billtoaddress1,
cohist_billtoaddress2,
cohist_billtoaddress3,
cohist_billtocity,
cohist_billtostate,
cohist_billtozip,
cohist_shiptoname,
cohist_shiptoaddress1,
cohist_shiptoaddress2,
cohist_shiptoaddress3,
cohist_shiptocity,
cohist_shiptostate,
cohist_shiptozip,
cohist_shipto_id,
cohist_shipvia,
cohist_salesrep_id,
cohist_misc_type,
cohist_misc_descrip,
cohist_misc_id,
cohist_commission,
cohist_commissionpaid,
cohist_doctype,
cohist_orderdate,
cohist_imported,
cohist_ponumber,
cohist_curr_id,
cohist_taxtype_id,
cohist_taxzone_id
FROM cohist
WHERE (cohist_id=pSohistid);
INSERT INTO asohisttax ( taxhist_id,
taxhist_parent_id,
taxhist_taxtype_id,
taxhist_tax_id,
taxhist_basis,
taxhist_basis_tax_id,
taxhist_sequence,
taxhist_percent,
taxhist_amount,
taxhist_tax,
taxhist_docdate,
taxhist_distdate,
taxhist_curr_id,
taxhist_curr_rate,
taxhist_journalnumber )
SELECT taxhist_id,
taxhist_parent_id,
taxhist_taxtype_id,
taxhist_tax_id,
taxhist_basis,
taxhist_basis_tax_id,
taxhist_sequence,
taxhist_percent,
taxhist_amount,
taxhist_tax,
taxhist_docdate,
taxhist_distdate,
taxhist_curr_id,
taxhist_curr_rate,
taxhist_journalnumber
FROM cohisttax
WHERE (taxhist_parent_id=pSohistid);
DELETE FROM cohisttax
WHERE (taxhist_parent_id=pSohistid);
DELETE FROM cohist
WHERE (cohist_id=pSohistid);
RETURN pSohistid;
END;
$_$;
ALTER FUNCTION public.archivesaleshistory(integer) OWNER TO admin;
--
-- Name: arcurrgain(integer, integer, numeric, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION arcurrgain(integer, integer, numeric, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAropenId ALIAS FOR $1;
pCurrId ALIAS FOR $2;
pValue ALIAS FOR $3;
pDate ALIAS FOR $4;
_start DATE;
_end DATE;
_gain NUMERIC;
_r RECORD;
BEGIN
IF (pAropenId IS NULL OR pValue = 0) THEN
RETURN 0;
END IF;
SELECT aropen_docdate, aropen_curr_id, aropen_curr_rate
INTO _r
FROM aropen
WHERE (aropen_id=pAropenId);
IF (_r.aropen_docdate > pDate) THEN
_gain := (currToBase(pCurrId, pValue, pDate) - currToCurr(pCurrId,_r.aropen_curr_id, pValue, pDate) / _r.aropen_curr_rate) * -1;
ELSE
_gain := currToCurr(pCurrId,_r.aropen_curr_id, pValue, pDate) / _r.aropen_curr_rate - currToBase(pCurrId, pValue, pDate);
END IF;
IF (_gain IS NULL) THEN
RAISE EXCEPTION 'Error processing currency gain/loss.';
END IF;
RETURN _gain;
END;
$_$;
ALTER FUNCTION public.arcurrgain(integer, integer, numeric, date) OWNER TO admin;
--
-- Name: armor(bytea); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION armor(bytea) RETURNS text
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pg_armor';
ALTER FUNCTION public.armor(bytea) OWNER TO admin;
--
-- Name: invbal; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE invbal (
invbal_id integer NOT NULL,
invbal_period_id integer,
invbal_itemsite_id integer,
invbal_qoh_beginning numeric(18,6) NOT NULL,
invbal_qoh_ending numeric(18,6) NOT NULL,
invbal_qty_in numeric(18,6) NOT NULL,
invbal_qty_out numeric(18,6) NOT NULL,
invbal_value_beginning numeric(12,2) NOT NULL,
invbal_value_ending numeric(12,2) NOT NULL,
invbal_value_in numeric(12,2) NOT NULL,
invbal_value_out numeric(12,2) NOT NULL,
invbal_nn_beginning numeric(18,6) NOT NULL,
invbal_nn_ending numeric(18,6) NOT NULL,
invbal_nn_in numeric(18,6) NOT NULL,
invbal_nn_out numeric(18,6) NOT NULL,
invbal_nnval_beginning numeric(12,2) NOT NULL,
invbal_nnval_ending numeric(12,2) NOT NULL,
invbal_nnval_in numeric(12,2) NOT NULL,
invbal_nnval_out numeric(12,2) NOT NULL,
invbal_dirty boolean DEFAULT true NOT NULL
);
ALTER TABLE public.invbal OWNER TO admin;
--
-- Name: asofinvbal(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION asofinvbal(integer, date) RETURNS SETOF invbal
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteId ALIAS FOR $1;
pAsofDate ALIAS FOR $2;
_result invbal%ROWTYPE;
_i RECORD;
_h RECORD;
_r RECORD;
_prevCostmethod TEXT := 'A';
_prevDate TIMESTAMP WITH TIME ZONE;
_runningQty NUMERIC := 0;
_runningNn NUMERIC := 0;
_runningValue NUMERIC := 0;
_runningNnval NUMERIC := 0;
BEGIN
/* This is a base function to gather data. Because it is STABLE it should only need
to be calculated once, even though it is likely to be called several times by other
functions in parent query to present the various data.
*/
-- First make sure inventory balance is forward updated
PERFORM forwardUpdateItemsite(pItemsiteId);
-- Next find the previous period balace to use as a starting point
SELECT invbal.*, period_start, itemsite_costmethod INTO _i
FROM invbal
JOIN itemsite ON (invbal_itemsite_id=itemsite_id)
JOIN period ON (invbal_period_id=period_id)
WHERE ((invbal_itemsite_id=pItemsiteId)
AND (pAsofDate >= period_start))
ORDER BY period_start DESC
LIMIT 1;
_runningQty := _i.invbal_qoh_beginning;
_runningNn := _i.invbal_nn_beginning;
_runningValue := _i.invbal_value_beginning;
_runningNnval := _i.invbal_nnval_beginning;
_prevDate := _i.period_start;
_prevCostmethod := _i.itemsite_costmethod;
FOR _r IN
SELECT invhist_id, invhist_created, invhist_invqty, invhist_transtype, invhist_unitcost,
invhist_costmethod, itemsite_item_id, invhistSense(invhist_id) AS sense
FROM invhist
JOIN itemsite ON (itemsite_id=invhist_itemsite_id)
WHERE ((invhist_itemsite_id=pItemsiteId)
AND (invhist_transdate::date BETWEEN _i.period_start AND pAsofdate))
ORDER BY invhist_created, invhist_id
LOOP
-- Update balances changed by any standard cost update between transactions
IF (_prevCostmethod = 'S' AND _runningQty != 0) THEN
FOR _h IN
SELECT costhist_oldcost, costhist_newcost
FROM costhist
JOIN item ON (costhist_item_id=item_id)
JOIN itemsite ON (itemsite_item_id=item_id)
WHERE ((itemsite_id=pItemsiteId)
AND (costhist_date BETWEEN _prevDate AND _r.invhist_created)
AND (costhist_type IN ('S','D')))
LOOP
_runningValue := _runningValue + round((_h.costhist_newcost-_h.costhist_oldcost) * _runningQty,2);
_runningNnval := _runningNnval + round((_h.costhist_newcost-_h.costhist_oldcost) * _runningNn,2);
END LOOP;
END IF;
_prevDate := _r.invhist_created;
_prevCostmethod := _r.invhist_costmethod;
_runningQty := _runningQty + _r.invhist_invqty * _r.sense;
_runningValue := _runningValue + round( _r.invhist_invqty * _r.sense * _r.invhist_unitcost,2);
IF (_r.invhist_transtype = 'NN') THEN
_runningNn := _runningNn + _r.invhist_invqty * -1;
_runningNnval := _runningNnval + round( _r.invhist_invqty * -1 * _r.invhist_unitcost,2);
END IF;
END LOOP;
_prevDate := COALESCE(_prevDate, _i.period_start);
_prevCostmethod := COALESCE(_r.invhist_costmethod, _i.itemsite_costmethod);
IF (_prevCostmethod = 'S' AND _runningQty != 0) THEN
FOR _h IN
SELECT costhist_oldcost, costhist_newcost
FROM costhist
JOIN item ON (costhist_item_id=item_id)
JOIN itemsite ON (itemsite_item_id=item_id)
WHERE ((itemsite_id=pItemsiteId)
AND (costhist_date BETWEEN _prevDate AND CAST(pAsofDate + 1 AS TIMESTAMP WITH TIME ZONE))
AND (costhist_type IN ('S','D')))
LOOP
_runningValue := _runningValue + round((_h.costhist_newcost-_h.costhist_oldcost) * _runningQty,2);
_runningNnval := _runningNnval + round((_h.costhist_newcost-_h.costhist_oldcost) * _runningNn,2);
END LOOP;
END IF;
_result := _i;
_result.invbal_qoh_ending := _runningQty;
_result.invbal_value_ending := _runningValue;
_result.invbal_nn_ending := _runningNn;
_result.invbal_nnval_ending := _runningNnval;
RETURN NEXT _result;
RETURN;
END;
$_$;
ALTER FUNCTION public.asofinvbal(integer, date) OWNER TO admin;
--
-- Name: asofinvnn(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION asofinvnn(integer, date) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteId ALIAS FOR $1;
pAsofDate ALIAS FOR $2;
_result NUMERIC;
BEGIN
SELECT invbal_nn_ending INTO _result
FROM asofinvbal(pItemsiteId, pAsofDate);
RETURN COALESCE(_result, 0);
END;
$_$;
ALTER FUNCTION public.asofinvnn(integer, date) OWNER TO admin;
--
-- Name: asofinvqty(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION asofinvqty(integer, date) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteId ALIAS FOR $1;
pAsofDate ALIAS FOR $2;
_result NUMERIC;
BEGIN
SELECT invbal_qoh_ending INTO _result
FROM asofinvbal(pItemsiteId, pAsofDate);
RETURN COALESCE(_result, 0);
END;
$_$;
ALTER FUNCTION public.asofinvqty(integer, date) OWNER TO admin;
--
-- Name: attachcontact(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION attachcontact(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pcntctId ALIAS FOR $1;
pcrmacctId ALIAS FOR $2;
BEGIN
UPDATE cntct SET cntct_crmacct_id = pcrmacctId
WHERE cntct_id = pcntctId;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.attachcontact(integer, integer) OWNER TO admin;
--
-- Name: attachquotetoopportunity(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION attachquotetoopportunity(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pQuheadid ALIAS FOR $1;
pOpheadid ALIAS FOR $2;
BEGIN
-- Check Quote
IF (NOT EXISTS(SELECT quhead_id
FROM quhead
WHERE (quhead_id=pQuheadid))) THEN
RETURN -1;
END IF;
-- Check Opportunity
IF (NOT EXISTS(SELECT ophead_id
FROM ophead
WHERE (ophead_id=pOpheadid))) THEN
RETURN -2;
END IF;
-- Cannot attach if already attached
IF (EXISTS(SELECT quhead_id
FROM quhead
WHERE ((quhead_id=pQuheadid)
AND (quhead_ophead_id IS NOT NULL)))) THEN
RETURN -3;
END IF;
UPDATE quhead SET quhead_ophead_id=pOpheadid
WHERE (quhead_id=pQuheadid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.attachquotetoopportunity(integer, integer) OWNER TO admin;
--
-- Name: attachsalesordertoopportunity(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION attachsalesordertoopportunity(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoheadid ALIAS FOR $1;
pOpheadid ALIAS FOR $2;
BEGIN
-- Check Sales Order
IF (NOT EXISTS(SELECT cohead_id
FROM cohead
WHERE (cohead_id=pSoheadid))) THEN
RETURN -1;
END IF;
-- Check Opportunity
IF (NOT EXISTS(SELECT ophead_id
FROM ophead
WHERE (ophead_id=pOpheadid))) THEN
RETURN -2;
END IF;
-- Cannot attach if already attached
IF (EXISTS(SELECT cohead_id
FROM cohead
WHERE ((cohead_id=pSoheadid)
AND (cohead_ophead_id IS NOT NULL)))) THEN
RETURN -3;
END IF;
UPDATE cohead SET cohead_ophead_id=pOpheadid
WHERE (cohead_id=pSoheadid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.attachsalesordertoopportunity(integer, integer) OWNER TO admin;
--
-- Name: averagesalesprice(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION averagesalesprice(integer, date, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
_p RECORD;
BEGIN
-- Returns value in base currency
-- ToDo: is cohist_shipdate the right DATE to use?
SELECT SUM(cohist_qtyshipped * currToBase(cohist_curr_id, cohist_unitprice,
cohist_shipdate)) AS totalsales,
SUM(cohist_qtyshipped) AS totalship INTO _p
FROM cohist
WHERE ( (cohist_itemsite_id=pItemsiteid)
AND (cohist_invcdate BETWEEN pStartDate AND pEndDate) );
IF ( (_p.totalship IS NULL) OR
(_p.totalship = 0) ) THEN
RETURN 0;
ELSE
RETURN (_p.totalsales / _p.totalship);
END IF;
END;
$_$;
ALTER FUNCTION public.averagesalesprice(integer, date, date) OWNER TO admin;
--
-- Name: avgcost(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION avgcost(pitemsiteid integer) RETURNS numeric
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_value NUMERIC;
_qoh NUMERIC;
_qohnn NUMERIC;
BEGIN
SELECT itemsite_value, itemsite_qtyonhand, itemsite_nnqoh
INTO _value, _qoh, _qohnn
FROM itemsite
WHERE(itemsite_id=pItemsiteid);
IF (_qoh = 0.0 AND _qohnn = 0.0) THEN
RETURN 0.0;
END IF;
RETURN _value / (_qoh + _qohnn);
END;
$$;
ALTER FUNCTION public.avgcost(pitemsiteid integer) OWNER TO admin;
--
-- Name: balanceitemsite(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION balanceitemsite(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
_itemlocseries INTEGER;
_balanced NUMERIC;
_qoh NUMERIC;
_nnQoh NUMERIC;
BEGIN
-- Make sure that that passed Itemsite is MLC or Lot/Serial controlled
IF ( ( SELECT (NOT ( (itemsite_loccntrl) OR (itemsite_controlmethod IN ('L', 'S')) ))
FROM itemsite
WHERE (itemsite_id=pItemsiteid) ) ) THEN
RETURN 0;
END IF;
IF ( ( SELECT itemsite_freeze
FROM itemsite
WHERE(itemsite_id=pItemsiteid) ) ) THEN
RETURN -1;
END IF;
-- Calculate the Netable portion
SELECT COALESCE(SUM(itemloc_qty), 0) INTO _balanced
FROM itemloc LEFT OUTER JOIN location ON (itemloc_location_id=location_id)
WHERE ( ( (location_id IS NULL) OR (location_netable) )
AND (itemloc_itemsite_id=pItemsiteid) );
-- Post an AD Transaction for the Netable portion
SELECT invAdjustment( itemsite_id, (_balanced - itemsite_qtyonhand),
'Balance', 'Inventory Balance' ) INTO _itemlocseries
FROM itemsite
WHERE (itemsite_id=pItemsiteid);
-- Post the invtrans records associated with the itemlocdist records
PERFORM postInvhist(itemlocdist_invhist_id)
FROM itemlocdist
WHERE(itemlocdist_series=_itemlocseries);
-- Kill the resultant distribution records
DELETE FROM itemlocdist
WHERE (itemlocdist_series=_itemlocseries);
-- Calculate and write the Non-Netable portion directly
SELECT COALESCE(SUM(itemloc_qty), 0) INTO _nnQoh
FROM itemloc, location
WHERE ( (itemloc_location_id=location_id)
AND (NOT location_netable)
AND (itemloc_itemsite_id=pItemsiteid) );
UPDATE itemsite
SET itemsite_nnqoh = _nnQoh
WHERE (itemsite_id=pItemsiteid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.balanceitemsite(integer) OWNER TO admin;
--
-- Name: bomcontains(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION bomcontains(integer, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pparentitemid ALIAS FOR $1;
pchilditemid ALIAS FOR $2;
_bomworksetid INTEGER;
_result BOOLEAN;
BEGIN
_bomworksetid := indentedWhereUsed(pchilditemid);
_result := EXISTS(SELECT bomwork_id
FROM bomwork
WHERE ((bomwork_set_id=_bomworksetid)
AND (bomwork_item_id=pparentitemid) ));
PERFORM deleteBOMWorkset(_bomworksetid);
RETURN _result;
END;
$_$;
ALTER FUNCTION public.bomcontains(integer, integer) OWNER TO admin;
--
-- Name: bomhistsequence(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION bomhistsequence(integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pHistid ALIAS FOR $1;
_wid INTEGER;
_seqnum TEXT;
_bomhist RECORD;
BEGIN
_wid := pHistid;
SELECT bomhist_parent_id AS parent,
to_char(bomhist_seqnumber, '00009') AS seq INTO _bomhist
FROM bomhist
WHERE bomhist_seq_id=_wid;
IF (FOUND) THEN
_seqnum := _bomhist.seq;
_wid := _bomhist.parent;
WHILE (_wid != -1) LOOP
SELECT bomhist_parent_id AS parent,
to_char(bomhist_seqnumber, '00009') AS seq INTO _bomhist
FROM bomhist
WHERE bomhist_seq_id=_wid;
IF (FOUND) THEN
_seqnum := _bomhist.seq || '-' || _seqnum;
_wid := _bomhist.parent;
ELSE
_wid := -1;
END IF;
END LOOP;
ELSE
_seqnum := ''::TEXT;
END IF;
RETURN _seqnum;
END;
$_$;
ALTER FUNCTION public.bomhistsequence(integer) OWNER TO admin;
--
-- Name: bomitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE bomitem (
bomitem_id integer DEFAULT nextval(('bomitem_bomitem_id_seq'::text)::regclass) NOT NULL,
bomitem_parent_item_id integer NOT NULL,
bomitem_seqnumber integer,
bomitem_item_id integer NOT NULL,
bomitem_qtyper numeric(20,8) NOT NULL,
bomitem_scrap numeric(8,4) NOT NULL,
bomitem_status character(1),
bomitem_effective date NOT NULL,
bomitem_expires date NOT NULL,
bomitem_createwo boolean NOT NULL,
bomitem_issuemethod character(1) NOT NULL,
bomitem_schedatwooper boolean NOT NULL,
bomitem_ecn text,
bomitem_moddate date,
bomitem_subtype character(1) NOT NULL,
bomitem_uom_id integer NOT NULL,
bomitem_rev_id integer DEFAULT (-1),
bomitem_booitem_seq_id integer DEFAULT (-1),
bomitem_char_id integer,
bomitem_value text,
bomitem_notes text,
bomitem_ref text,
bomitem_qtyfxd numeric(20,8) DEFAULT 0 NOT NULL,
bomitem_issuewo boolean DEFAULT false NOT NULL,
CONSTRAINT bomitem_bomitem_issuemethod_check CHECK ((((bomitem_issuemethod = 'M'::bpchar) OR (bomitem_issuemethod = 'S'::bpchar)) OR (bomitem_issuemethod = 'L'::bpchar))),
CONSTRAINT bomitem_bomitem_subtype_check CHECK ((((bomitem_subtype = 'N'::bpchar) OR (bomitem_subtype = 'I'::bpchar)) OR (bomitem_subtype = 'B'::bpchar)))
);
ALTER TABLE public.bomitem OWNER TO admin;
--
-- Name: TABLE bomitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE bomitem IS 'Bill of Materials (BOM) component Items information';
--
-- Name: COLUMN bomitem.bomitem_qtyfxd; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN bomitem.bomitem_qtyfxd IS 'The fixed quantity required';
--
-- Name: bomitem(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION bomitem(integer) RETURNS SETOF bomitem
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT * FROM bomitem WHERE ((bomitem_parent_item_id=$1) AND (bomitem_rev_id=getActiveRevId('BOM',$1)));
$_$;
ALTER FUNCTION public.bomitem(integer) OWNER TO admin;
--
-- Name: bomitem(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION bomitem(integer, integer) RETURNS SETOF bomitem
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT * FROM bomitem WHERE ((bomitem_parent_item_id=$1) AND (bomitem_rev_id=$2));
$_$;
ALTER FUNCTION public.bomitem(integer, integer) OWNER TO admin;
--
-- Name: bomlevelbyitem(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION bomlevelbyitem(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
_cnt INTEGER;
_result INTEGER;
_bomitem RECORD;
BEGIN
_cnt := 0;
BEGIN
FOR _bomitem IN SELECT bomitem_parent_item_id
FROM bomitem
WHERE ((bomitem_item_id=pItemid)
AND (bomitem_rev_id=getActiveRevId('BOM',bomitem_parent_item_id))
AND (CURRENT_DATE BETWEEN bomitem_effective AND (bomitem_expires - 1)))
LOOP
SELECT bomLevelByItem(_bomitem.bomitem_parent_item_id) + 1 INTO _result;
IF (_result > _cnt) THEN
_cnt := _result;
END IF;
END LOOP;
EXCEPTION WHEN statement_too_complex THEN
RAISE EXCEPTION 'potential recursive BOM found for item_id %', pItemid;
END;
return _cnt;
END;
$_$;
ALTER FUNCTION public.bomlevelbyitem(integer) OWNER TO admin;
--
-- Name: bomlevelbyitem(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION bomlevelbyitem(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pBomrevid ALIAS FOR $2;
_cnt INTEGER;
_result INTEGER;
_bomitem RECORD;
BEGIN
_cnt := 0;
BEGIN
FOR _bomitem IN SELECT bomitem_parent_item_id
FROM bomitem
WHERE ((bomitem_item_id=pItemid)
AND (bomitem_rev_id=pBomrevid)
AND (CURRENT_DATE BETWEEN bomitem_effective AND (bomitem_expires - 1)))
LOOP
SELECT bomLevelByItem(_bomitem.bomitem_parent_item_id, pBomrevid) + 1 INTO _result;
IF (_result > _cnt) THEN
_cnt := _result;
END IF;
END LOOP;
EXCEPTION WHEN statement_too_complex THEN
RAISE EXCEPTION 'potential recursive BOM found for item_id %', pItemid;
END;
return _cnt;
END;
$_$;
ALTER FUNCTION public.bomlevelbyitem(integer, integer) OWNER TO admin;
--
-- Name: bomworkeffective(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION bomworkeffective(integer, date) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
workid ALIAS FOR $1;
effdate ALIAS FOR $2;
_wid INTEGER;
_bomwork RECORD;
BEGIN
_wid := workid;
WHILE (_wid != -1) LOOP
SELECT bomwork_parent_id AS parent,
bomwork_effective AS effective
INTO _bomwork
FROM bomwork
WHERE bomwork_id=_wid;
IF (FOUND) THEN
_wid := _bomwork.parent;
IF (_bomwork.effective > effdate) THEN
RETURN FALSE;
END IF;
ELSE
_wid := -1;
END IF;
END LOOP;
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.bomworkeffective(integer, date) OWNER TO admin;
--
-- Name: bomworkexpired(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION bomworkexpired(integer, date) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
workid ALIAS FOR $1;
expdate ALIAS FOR $2;
_wid INTEGER;
_bomwork RECORD;
BEGIN
_wid := workid;
WHILE (_wid != -1) LOOP
SELECT bomwork_parent_id AS parent,
bomwork_expires AS expires
INTO _bomwork
FROM bomwork
WHERE bomwork_id=_wid;
IF (FOUND) THEN
_wid := _bomwork.parent;
IF (_bomwork.expires <= expdate) THEN
RETURN TRUE;
END IF;
ELSE
_wid := -1;
END IF;
END LOOP;
RETURN FALSE;
END;
$_$;
ALTER FUNCTION public.bomworkexpired(integer, date) OWNER TO admin;
--
-- Name: bomworkitemsequence(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION bomworkitemsequence(integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWorkid ALIAS FOR $1;
_wid INTEGER;
_seqnum TEXT;
_bomwork RECORD;
BEGIN
_wid := pWorkid;
SELECT bomwork_parent_id AS parent,
item_number AS seq INTO _bomwork
FROM bomwork, item
WHERE ((bomwork_id=_wid)
AND (bomwork_item_id=item_id));
IF (FOUND) THEN
_seqnum := _bomwork.seq;
_wid := _bomwork.parent;
WHILE (_wid != -1) LOOP
SELECT bomwork_parent_id AS parent,
item_number AS seq INTO _bomwork
FROM bomwork, item
WHERE ((bomwork_id=_wid)
AND (bomwork_item_id=item_id));
IF (FOUND) THEN
_seqnum := _bomwork.seq || '-' || _seqnum;
_wid := _bomwork.parent;
ELSE
_wid := -1;
END IF;
END LOOP;
ELSE
_seqnum := ''::TEXT;
END IF;
RETURN _seqnum;
END;
$_$;
ALTER FUNCTION public.bomworkitemsequence(integer) OWNER TO admin;
--
-- Name: bomworksequence(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION bomworksequence(integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWorkid ALIAS FOR $1;
_wid INTEGER;
_seqnum TEXT;
_bomwork RECORD;
BEGIN
_wid := pWorkid;
SELECT bomwork_parent_id AS parent,
to_char(bomwork_seqnumber, '00009') AS seq INTO _bomwork
FROM bomwork
WHERE bomwork_id=_wid;
IF (FOUND) THEN
_seqnum := _bomwork.seq;
_wid := _bomwork.parent;
WHILE (_wid != -1) LOOP
SELECT bomwork_parent_id AS parent,
to_char(bomwork_seqnumber, '00009') AS seq INTO _bomwork
FROM bomwork
WHERE bomwork_id=_wid;
IF (FOUND) THEN
_seqnum := _bomwork.seq || '-' || _seqnum;
_wid := _bomwork.parent;
ELSE
_wid := -1;
END IF;
END LOOP;
ELSE
_seqnum := ''::TEXT;
END IF;
RETURN _seqnum;
END;
$_$;
ALTER FUNCTION public.bomworksequence(integer) OWNER TO admin;
--
-- Name: buildinvbal(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION buildinvbal(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteId ALIAS FOR $1;
_r RECORD;
_prevCostmethod TEXT := 'A';
_prevDate TIMESTAMP WITH TIME ZONE;
_runningQty NUMERIC := 0;
_runningNn NUMERIC := 0;
BEGIN
-- Validate
IF (SELECT (count(invhist_id) > 0)
FROM invhist
WHERE ((invhist_itemsite_id=pItemsiteId)
AND (NOT invhist_posted))) THEN
SELECT item_number, warehous_code INTO _r
FROM itemsite
JOIN item ON (item_id=itemsite_item_id)
JOIN whsinfo ON (itemsite_warehous_id=warehous_id)
WHERE (itemsite_id=pItemsiteId);
RAISE EXCEPTION 'Unposted inventory transactions exist for % at % [xtuple: buildInvBal, -1, %, %]',
_r.item_number, _r.warehous_code,
_r.item_number, _r.warehous_code;
END IF;
-- Remove any old records
DELETE FROM invbal WHERE invbal_itemsite_id=pItemsiteId;
FOR _r IN
SELECT invhist.*,
itemsite_item_id, invhistSense(invhist_id) AS sense,
item_number, warehous_code
FROM invhist
JOIN itemsite ON (itemsite_id=invhist_itemsite_id)
JOIN item ON (itemsite_item_id=item_id)
JOIN whsinfo ON (itemsite_warehous_id=warehous_id)
WHERE (invhist_itemsite_id=pItemsiteId)
ORDER BY invhist_created, invhist_id
LOOP
RAISE NOTICE 'Calculating balances for Item % at Site % against transaction %, transtype %, sense %, qty %, %', _r.item_number, _r.warehous_code, _r.invhist_id, _r.invhist_transtype, _r.sense, _r.invhist_invqty, _r.invhist_comments;
-- Update balances changed by any standard cost update between transactions
IF (_prevCostmethod = 'S' AND _runningQty != 0) THEN
PERFORM postValueintoInvBalance(pItemsiteid, costhist_date::date, _runningQty, _runningNn, costhist_oldcost, costhist_newcost )
FROM costhist
WHERE ((costhist_item_id=_r.itemsite_item_id)
AND (costhist_date BETWEEN _prevDate AND _r.invhist_created)
AND (costhist_type IN ('S','D')));
END IF;
-- Post transaction into inventory balance table
PERFORM postIntoInvBalance(_r.invhist_id);
_prevDate := _r.invhist_created;
_prevCostmethod := _r.invhist_costmethod;
_runningQty := _runningQty + _r.invhist_invqty * _r.sense;
IF (_r.invhist_transtype = 'NN') THEN
_runningNn := _runningNn + _r.invhist_invqty * -1;
END IF;
END LOOP;
-- Update balances changed by any standard cost since last transaction
IF (_prevCostmethod = 'S' AND _runningQty != 0) THEN
PERFORM postValueintoInvBalance(pItemsiteid, costhist_date::date, _runningQty, _runningNn, costhist_oldcost, costhist_newcost )
FROM costhist
WHERE ((costhist_item_id=_r.itemsite_item_id)
AND (costhist_date > _prevDate)
AND (costhist_type IN ('S','D')));
END IF;
-- Forward update changes through all the balances
PERFORM forwardupdateitemsite(pItemsiteId);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.buildinvbal(integer) OWNER TO admin;
--
-- Name: buildsearchpath(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION buildsearchpath() RETURNS text
LANGUAGE plpgsql
AS $_$
DECLARE
_path TEXT := '';
_schema TEXT;
_seq INTEGER;
BEGIN
-- get the schemas as ordered by the administrator
SELECT concatagg(quote_ident(schemaord_name) || ',') INTO _path
FROM (SELECT schemaord_name
FROM schemaord
LEFT OUTER JOIN pkghead ON (schemaord_name=pkghead_name)
WHERE (pkghead_id IS NULL
OR (pkghead_id IS NOT NULL AND packageisenabled(pkghead_id)))
ORDER BY schemaord_order
) AS xtspq;
-- add others that we think/know we need
-- TODO: is there a reason not to include public, api, or packages?
FOR _schema, _seq IN
SELECT pkghead_name AS schema, 0 AS seq
FROM pkghead
WHERE packageisenabled(pkghead_id)
UNION ALL
SELECT 'public', 1
UNION ALL
SELECT 'api', 2
ORDER BY seq, schema
LOOP
IF (_path !~* (E'(^|\\W)' || _schema || E'(\\W|$)')) THEN
_path := _path || ',' || quote_ident(_schema);
END IF;
END LOOP;
-- remove extraneous spaces and commas
_path = BTRIM(REGEXP_REPLACE(_path, '( ?, ?)+', ',', 'g'),
', ');
RAISE DEBUG 'buildSearchPath() returning %', _path;
RETURN _path;
END;
$_$;
ALTER FUNCTION public.buildsearchpath() OWNER TO admin;
--
-- Name: FUNCTION buildsearchpath(); Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON FUNCTION buildsearchpath() IS 'buildSearchPath() examines the schemaord and pkghead tables to build a search
path string. It ensures that public, api, and all enabled packages are included
even if they are not listed in the schemaord table.
It returns the constructed search_path but does not set it.';
--
-- Name: calccashbudget(integer, integer, character); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calccashbudget(integer, integer, character) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAccntId ALIAS FOR $1;
pPeriodId ALIAS FOR $2;
pInterval ALIAS FOR $3;
_accntType CHAR;
_currentBudget NUMERIC;
_priorBudget NUMERIC;
_result NUMERIC;
BEGIN
SELECT accnt_type INTO _accntType
FROM accnt
WHERE (accnt_id=pAccntId);
SELECT COALESCE(SUM(budget_amount),0) INTO _currentBudget
FROM budget
WHERE ((budget_accnt_id=pAccntId)
AND (budget_period_id=pPeriodId));
IF (pInterval='M') THEN
SELECT (COALESCE(SUM(budget_amount),0)) INTO _priorBudget
FROM budget,
(SELECT COALESCE(pp.period_id,-1) AS prior_period_id
FROM period cp, period pp
WHERE ((cp.period_id=pPeriodId)
AND (cp.period_start > pp.period_start))
ORDER BY pp.period_start DESC LIMIT 1) AS data
WHERE ((budget_accnt_id=pAccntId)
AND (budget_period_id=prior_period_id));
ELSE IF (pInterval='Q') THEN
SELECT (COALESCE(SUM(budget_amount),0)) INTO _priorBudget
FROM budget,
(SELECT COALESCE(pp.period_id,-1) AS prior_period_id
FROM period cp, period pp
WHERE ((cp.period_id=pPeriodId)
AND (cp.period_start > pp.period_start)
AND (pp.period_quarter=
CASE WHEN cp.period_quarter > 1 THEN
cp.period_quarter - 1
ELSE 4 END)
AND (pp.period_start >= cp.period_start - interval '1 year'))
ORDER BY pp.period_start DESC LIMIT 1) AS data
WHERE ((budget_accnt_id=pAccntId)
AND (budget_period_id=prior_period_id));
ELSE
SELECT (COALESCE(SUM(budget_amount),0)) INTO _priorBudget
FROM budget,
(SELECT pp.period_id AS prior_period_id
FROM period cp, period pp, yearperiod cy, yearperiod py
WHERE ((cp.period_id=pPeriodId)
AND (cp.period_yearperiod_id=cy.yearperiod_id)
AND (pp.period_yearperiod_id=py.yearperiod_id)
AND (cy.yearperiod_start > py.yearperiod_start))
ORDER BY pp.period_start DESC LIMIT 1) AS data
WHERE ((budget_accnt_id=pAccntId)
AND (budget_period_id=prior_period_id));
END IF;
END IF;
IF _accntType='A' THEN
_result := ((_priorBudget-_currentBudget) * -1 );
ELSE IF (_accntType IN ('L','Q')) THEN
_result := ((_priorBudget-_currentBudget) *-1);
ELSE RETURN -1;
END IF;
END IF;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.calccashbudget(integer, integer, character) OWNER TO admin;
--
-- Name: calccmheadamt(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calccmheadamt(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCmheadid ALIAS FOR $1;
_amount NUMERIC := 0;
BEGIN
SELECT SUM(COALESCE(extprice, 0)) INTO _amount
FROM cmhead JOIN creditmemoitem ON (cmhead_id=cmitem_cmhead_id)
WHERE (cmhead_id=pCmheadid);
RETURN _amount;
END;
$_$;
ALTER FUNCTION public.calccmheadamt(integer) OWNER TO admin;
--
-- Name: calccmheadtax(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calccmheadtax(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCmheadid ALIAS FOR $1;
_headamount NUMERIC := 0;
_itemamount NUMERIC := 0;
_amount NUMERIC := 0;
BEGIN
SELECT COALESCE(SUM(taxhist_tax), 0) INTO _headamount
FROM cmhead JOIN cmheadtax ON (taxhist_parent_id=cmhead_id)
WHERE (cmhead_id=pCmheadid);
SELECT SUM(COALESCE(tax, 0)) INTO _itemamount
FROM cmhead JOIN creditmemoitem ON (cmhead_id=cmitem_cmhead_id)
WHERE (cmhead_id=pCmheadid);
_amount := _headamount + _itemamount;
RETURN (_amount * -1.0);
END;
$_$;
ALTER FUNCTION public.calccmheadtax(integer) OWNER TO admin;
--
-- Name: calccobillamt(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calccobillamt(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCobillid ALIAS FOR $1;
_amount NUMERIC := 0;
BEGIN
SELECT COALESCE(round((cobill_qty * coitem_qty_invuomratio) *
(coitem_price / coitem_price_invuomratio), 2), 0) INTO _amount
FROM cobill JOIN coitem ON (coitem_id=cobill_coitem_id)
WHERE (cobill_id=pCobillid);
RETURN _amount;
END;
$_$;
ALTER FUNCTION public.calccobillamt(integer) OWNER TO admin;
--
-- Name: calccobilltax(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calccobilltax(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCobillid ALIAS FOR $1;
_amount NUMERIC := 0;
BEGIN
SELECT COALESCE(calculateTax(cobmisc_taxzone_id,
cobill_taxtype_id,
cobmisc_shipdate,
cobmisc_curr_id,
calcCobillAmt(cobill_id)), 0) INTO _amount
FROM cobill JOIN coitem ON (coitem_id=cobill_coitem_id)
JOIN cobmisc ON (cobmisc_id=cobill_cobmisc_id)
WHERE (cobill_id=pCobillid);
RETURN _amount;
END;
$_$;
ALTER FUNCTION public.calccobilltax(integer) OWNER TO admin;
--
-- Name: calccobmiscamt(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calccobmiscamt(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCobmiscid ALIAS FOR $1;
_amount NUMERIC := 0;
BEGIN
SELECT SUM(COALESCE(calcCobillAmt(cobill_id), 0)) INTO _amount
FROM cobmisc JOIN cobill ON (cobmisc_id=cobill_cobmisc_id)
WHERE (cobmisc_id=pCobmiscid);
RETURN _amount;
END;
$_$;
ALTER FUNCTION public.calccobmiscamt(integer) OWNER TO admin;
--
-- Name: calccobmisctax(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calccobmisctax(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCobmiscid ALIAS FOR $1;
_amount NUMERIC := 0;
BEGIN
SELECT SUM(
COALESCE(calculateTax(cobmisc_taxzone_id,
cobill_taxtype_id,
cobmisc_shipdate,
cobmisc_curr_id,
COALESCE(round((cobill_qty * coitem_qty_invuomratio) * (coitem_price / coitem_price_invuomratio), 2), 0))
, 0)
) INTO _amount
FROM cobmisc JOIN cobill ON (cobmisc_id=cobill_cobmisc_id)
JOIN coitem ON (coitem_id=cobill_coitem_id)
WHERE (cobmisc_id=pCobmiscid);
RETURN _amount;
END;
$_$;
ALTER FUNCTION public.calccobmisctax(integer) OWNER TO admin;
--
-- Name: calcpendingarapplications(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calcpendingarapplications(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
paropenid ALIAS FOR $1;
_arcreditsum NUMERIC;
_aropencurrid INTEGER;
_cashrcptsum NUMERIC;
_sense INTEGER;
BEGIN
SELECT aropen_curr_id,
(CASE WHEN aropen_doctype IN ('I','D') THEN 1 ELSE -1 END)
INTO _aropencurrid, _sense
FROM aropen
WHERE (aropen_id=paropenid);
SELECT SUM(currToCurr(cashrcpt_curr_id, _aropencurrid,
cashrcptitem_amount + cashrcptitem_discount, coalesce(cashrcpt_applydate, cashrcpt_distdate))) * _sense INTO _cashrcptsum
FROM cashrcptitem, cashrcpt
WHERE ((cashrcptitem_cashrcpt_id=cashrcpt_id)
AND (NOT cashrcpt_posted)
AND (NOT cashrcpt_void)
AND (cashrcptitem_aropen_id=paropenid)
);
SELECT SUM(currToCurr(arcreditapply_curr_id, _aropencurrid,
arcreditapply_amount, CURRENT_DATE)) INTO _arcreditsum
FROM arcreditapply
WHERE ((arcreditapply_target_aropen_id=paropenid)
);
RETURN round(COALESCE(_cashrcptsum, 0) + COALESCE(_arcreditsum, 0),2);
END;
$_$;
ALTER FUNCTION public.calcpendingarapplications(integer) OWNER TO admin;
--
-- Name: calcquoteamt(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calcquoteamt(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pQuheadid ALIAS FOR $1;
_subtotal NUMERIC := 0;
_tax NUMERIC := 0;
_freight NUMERIC := 0;
_misc NUMERIC := 0;
_amount NUMERIC := 0;
BEGIN
SELECT COALESCE(SUM(ROUND((quitem_qtyord * quitem_qty_invuomratio) *
(quitem_price / quitem_price_invuomratio), 2)), 0) INTO _subtotal
FROM quitem
WHERE (quitem_quhead_id=pQuheadid);
SELECT COALESCE(SUM(tax), 0) INTO _tax
FROM ( SELECT ROUND(SUM(taxdetail_tax), 2) AS tax
FROM tax JOIN calculateTaxDetailSummary('Q', pQuheadid, 'T') ON (taxdetail_tax_id=tax_id)
GROUP BY tax_id ) AS data;
SELECT COALESCE(quhead_freight, 0), COALESCE(quhead_misc, 0) INTO _freight, _misc
FROM quhead
WHERE (quhead_id=pQuheadid);
_amount := _subtotal + _tax + _freight + _misc;
RETURN _amount;
END;
$_$;
ALTER FUNCTION public.calcquoteamt(integer) OWNER TO admin;
--
-- Name: calcsalesorderamt(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calcsalesorderamt(pcoheadid integer) RETURNS numeric
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN calcSalesOrderAmt(pCoheadid, 'T');
END;
$$;
ALTER FUNCTION public.calcsalesorderamt(pcoheadid integer) OWNER TO admin;
--
-- Name: calcsalesorderamt(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calcsalesorderamt(pcoheadid integer, ptype text) RETURNS numeric
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_subtotal NUMERIC := 0;
_tax NUMERIC := 0;
_freight NUMERIC := 0;
_misc NUMERIC := 0;
_credit NUMERIC := 0;
_amount NUMERIC := 0;
BEGIN
-- pType: S = line item subtotal
-- T = total
-- B = balance due
-- C = allocated credits
-- X = tax
SELECT COALESCE(SUM(ROUND((coitem_qtyord * coitem_qty_invuomratio) *
(coitem_price / coitem_price_invuomratio), 2)), 0) INTO _subtotal
FROM coitem
WHERE (coitem_cohead_id=pCoheadid)
AND (coitem_status != 'X');
SELECT COALESCE(SUM(tax), 0) INTO _tax
FROM ( SELECT ROUND(SUM(taxdetail_tax), 2) AS tax
FROM tax JOIN calculateTaxDetailSummary('S', pCoheadid, 'T') ON (taxdetail_tax_id=tax_id)
GROUP BY tax_id ) AS data;
SELECT COALESCE(cohead_freight, 0), COALESCE(cohead_misc, 0),
COALESCE(SUM(currToCurr(aropenalloc_curr_id, cohead_curr_id,
aropenalloc_amount, CURRENT_DATE)),0)
INTO _freight, _misc, _credit
FROM cohead
LEFT OUTER JOIN aropenalloc ON (aropenalloc_doctype='S' AND aropenalloc_doc_id=cohead_id)
WHERE (cohead_id=pCoheadid)
GROUP BY cohead_freight, cohead_misc, cohead_curr_id;
_amount := CASE pType WHEN 'S' THEN (_subtotal)
WHEN 'T' THEN (_subtotal + _tax + _freight + _misc)
WHEN 'B' THEN (_subtotal + _tax + _freight + _misc - _credit)
WHEN 'C' THEN (_credit)
WHEN 'X' THEN (_tax)
ELSE 0.0
END;
RETURN _amount;
END;
$$;
ALTER FUNCTION public.calcsalesorderamt(pcoheadid integer, ptype text) OWNER TO admin;
--
-- Name: calcshipfreight(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calcshipfreight(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pShipheadId ALIAS FOR $1;
_result NUMERIC := 0;
_order RECORD;
_shipment RECORD;
_weights RECORD;
_price RECORD;
_sales RECORD;
_freightid INTEGER;
_totalprice NUMERIC;
_includepkgweight BOOLEAN := FALSE;
_freight RECORD;
_debug BOOLEAN := false;
BEGIN
--Get shipment
SELECT shiphead_order_id, shiphead_order_type, shiphead_freight
INTO _shipment
FROM shiphead
WHERE (shiphead_id=pShipheadId);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Shipment not found';
END IF;
IF (_shipment.shiphead_order_type = 'SO') THEN
--Sales Orders
--Get the order header information
SELECT cust_id AS cust_id,
custtype_id,
custtype_code,
shipto_id,
shipto_num,
cohead_orderdate AS orderdate,
cohead_shipvia AS shipvia,
shipto_shipzone_id AS shipzone_id,
cohead_curr_id AS curr_id,
currConcat(cohead_curr_id) AS currAbbr,
cohead_calcfreight,
cohead_freight
INTO _order
FROM cohead
JOIN custinfo ON (cust_id=cohead_cust_id)
JOIN custtype ON (custtype_id=cust_custtype_id)
LEFT OUTER JOIN shiptoinfo ON (shipto_id=cohead_shipto_id)
WHERE (cohead_id=_shipment.shiphead_order_id);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Order not found';
END IF;
IF (_debug) THEN
RAISE NOTICE 'cust_id = %', _order.cust_id;
RAISE NOTICE 'custtype_id = %', _order.custtype_id;
RAISE NOTICE 'shipto_id = %', _order.shipto_id;
RAISE NOTICE 'shipto_num = %', _order.shipto_num;
RAISE NOTICE 'orderdate = %', _order.orderdate;
RAISE NOTICE 'shipvia = %', _order.shipvia;
RAISE NOTICE 'shipzone_id = %', _order.shipzone_id;
RAISE NOTICE 'curr_id = %', _order.curr_id;
RAISE NOTICE 'currAbbr = %', _order.currAbbr;
RAISE NOTICE 'calcfreight = %', _order.cohead_calcfreight;
RAISE NOTICE 'freight = %', _order.cohead_freight;
END IF;
IF (NOT _order.cohead_calcfreight) THEN
SELECT noNeg( _order.cohead_freight -
COALESCE((SELECT SUM(shiphead_freight)
FROM shiphead
WHERE (shiphead_order_id = _shipment.shiphead_order_id)
AND (shiphead_shipped='true')), 0) ) INTO _result;
RETURN _result;
END IF;
SELECT fetchMetricBool('IncludePackageWeight') INTO _includepkgweight;
--Calculate Sales Order freight
--Get a list of aggregated weights from sites and
--freight classes used on order lines
FOR _weights IN
SELECT CASE WHEN (_includePkgWeight) THEN
SUM(shipitem_qty * (item_prodweight + item_packweight))
ELSE SUM(shipitem_qty * item_prodweight)
END AS weight,
itemsite_warehous_id, item_freightclass_id
FROM shiphead
JOIN shipitem ON (shipitem_shiphead_id=shiphead_id)
JOIN coitem ON (shipitem_orderitem_id=coitem_id)
JOIN itemsite ON (itemsite_id=coitem_itemsite_id)
JOIN item ON (item_id=itemsite_item_id)
WHERE ( (shiphead_id=pShipheadId)
AND (item_freightclass_id IS NOT NULL) )
GROUP BY itemsite_warehous_id, item_freightclass_id LOOP
IF (_debug) THEN
RAISE NOTICE '_weights.weight - %', _weights.weight;
RAISE NOTICE '_weights.itemsite_warehous_id = %', _weights.itemsite_warehous_id;
RAISE NOTICE '_weights.item_freightclass_id = %', _weights.item_freightclass_id;
END IF;
-- First get a sales price if any so we when we find other prices
-- we can determine if we want that price or this price.
-- Check for a Sale Price
SELECT ipsfreight_id,
CASE WHEN (ipsfreight_type='F') THEN currToCurr(ipshead_curr_id, _order.curr_id,
ipsfreight_price, _order.orderdate)
ELSE currToCurr(ipshead_curr_id, _order.curr_id,
(_weights.weight * ipsfreight_price), _order.orderdate)
END AS price
INTO _sales
FROM ipsfreight JOIN ipshead ON (ipshead_id=ipsfreight_ipshead_id)
JOIN sale ON (sale_ipshead_id=ipshead_id)
WHERE ( (ipsfreight_qtybreak <= _weights.weight)
AND ((ipsfreight_warehous_id IS NULL) OR (ipsfreight_warehous_id=_weights.itemsite_warehous_id))
AND ((ipsfreight_freightclass_id IS NULL) OR (ipsfreight_freightclass_id=_weights.item_freightclass_id))
AND ((ipsfreight_shipzone_id IS NULL) OR (ipsfreight_shipzone_id=_order.shipzone_id))
AND ((ipsfreight_shipvia IS NULL) OR (ipsfreight_shipvia=_order.shipvia))
AND (CURRENT_DATE BETWEEN sale_startdate AND sale_enddate) )
ORDER BY ipsfreight_qtybreak DESC, price ASC
LIMIT 1;
IF (_debug) THEN
IF (_sales.price IS NOT NULL) THEN
RAISE NOTICE 'Sales Price found, %', _sales.price;
END IF;
END IF;
-- Check for a Customer Shipto Price
SELECT ipsfreight_id,
CASE WHEN (ipsfreight_type='F') THEN currToCurr(ipshead_curr_id, _order.curr_id,
ipsfreight_price, _order.orderdate)
ELSE currToCurr(ipshead_curr_id, _order.curr_id,
(_weights.weight * ipsfreight_price), _order.orderdate)
END AS price
INTO _price
FROM ipsfreight JOIN ipshead ON (ipshead_id=ipsfreight_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
WHERE ( (ipsfreight_qtybreak <= _weights.weight)
AND ((ipsfreight_warehous_id IS NULL) OR (ipsfreight_warehous_id=_weights.itemsite_warehous_id))
AND ((ipsfreight_freightclass_id IS NULL) OR (ipsfreight_freightclass_id=_weights.item_freightclass_id))
AND ((ipsfreight_shipzone_id IS NULL) OR (ipsfreight_shipzone_id=_order.shipzone_id))
AND ((ipsfreight_shipvia IS NULL) OR (ipsfreight_shipvia=_order.shipvia))
AND (CURRENT_DATE BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (ipsass_cust_id=_order.cust_id)
AND (ipsass_shipto_id != -1)
AND (ipsass_shipto_id=_order.shipto_id) )
ORDER BY ipsfreight_qtybreak DESC, price ASC
LIMIT 1;
IF (_debug) THEN
IF (_price.price IS NOT NULL) THEN
RAISE NOTICE 'Customer Shipto Price found, %', _price.price;
END IF;
END IF;
IF (_price.price IS NULL) THEN
-- Check for a Customer Shipto Pattern Price
SELECT ipsfreight_id,
CASE WHEN (ipsfreight_type='F') THEN currToCurr(ipshead_curr_id, _order.curr_id,
ipsfreight_price, _order.orderdate)
ELSE currToCurr(ipshead_curr_id, _order.curr_id,
(_weights.weight * ipsfreight_price), _order.orderdate)
END AS price
INTO _price
FROM ipsfreight JOIN ipshead ON (ipshead_id=ipsfreight_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
WHERE ( (ipsfreight_qtybreak <= _weights.weight)
AND (CURRENT_DATE BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (ipsass_cust_id=_order.cust_id)
AND (COALESCE(LENGTH(ipsass_shipto_pattern), 0) > 0)
AND (_order.shipto_num ~ ipsass_shipto_pattern)
AND ((ipsfreight_warehous_id IS NULL) OR (ipsfreight_warehous_id=_weights.itemsite_warehous_id))
AND ((ipsfreight_freightclass_id IS NULL) OR (ipsfreight_freightclass_id=_weights.item_freightclass_id))
AND ((ipsfreight_shipzone_id IS NULL) OR (ipsfreight_shipzone_id=_order.shipzone_id))
AND ((ipsfreight_shipvia IS NULL) OR (ipsfreight_shipvia=_order.shipvia)) )
ORDER BY ipsfreight_qtybreak DESC, price ASC
LIMIT 1;
IF (_debug) THEN
IF (_price.price IS NOT NULL) THEN
RAISE NOTICE 'Customer Shipto Pattern Price found, %', _price.price;
END IF;
END IF;
END IF;
IF (_price.price IS NULL) THEN
-- Check for a Customer Price
SELECT ipsfreight_id,
CASE WHEN (ipsfreight_type='F') THEN currToCurr(ipshead_curr_id, _order.curr_id,
ipsfreight_price, _order.orderdate)
ELSE currToCurr(ipshead_curr_id, _order.curr_id,
(_weights.weight * ipsfreight_price), _order.orderdate)
END AS price
INTO _price
FROM ipsfreight JOIN ipshead ON (ipshead_id=ipsfreight_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
WHERE ( (ipsfreight_qtybreak <= _weights.weight)
AND ((ipsfreight_warehous_id IS NULL) OR (ipsfreight_warehous_id=_weights.itemsite_warehous_id))
AND ((ipsfreight_freightclass_id IS NULL) OR (ipsfreight_freightclass_id=_weights.item_freightclass_id))
AND ((ipsfreight_shipzone_id IS NULL) OR (ipsfreight_shipzone_id=_order.shipzone_id))
AND ((ipsfreight_shipvia IS NULL) OR (ipsfreight_shipvia=_order.shipvia))
AND (CURRENT_DATE BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (ipsass_cust_id=_order.cust_id)
AND (COALESCE(LENGTH(ipsass_shipto_pattern), 0) = 0) )
ORDER BY ipsfreight_qtybreak DESC, price ASC
LIMIT 1;
IF (_debug) THEN
IF (_price.price IS NOT NULL) THEN
RAISE NOTICE 'Customer Price found, %', _price.price;
END IF;
END IF;
END IF;
IF (_price.price IS NULL) THEN
-- Check for a Customer Type Price
SELECT ipsfreight_id,
CASE WHEN (ipsfreight_type='F') THEN currToCurr(ipshead_curr_id, _order.curr_id,
ipsfreight_price, _order.orderdate)
ELSE currToCurr(ipshead_curr_id, _order.curr_id,
(_weights.weight * ipsfreight_price), _order.orderdate)
END AS price
INTO _price
FROM ipsfreight JOIN ipshead ON (ipshead_id=ipsfreight_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
WHERE ( (ipsfreight_qtybreak <= _weights.weight)
AND ((ipsfreight_warehous_id IS NULL) OR (ipsfreight_warehous_id=_weights.itemsite_warehous_id))
AND ((ipsfreight_freightclass_id IS NULL) OR (ipsfreight_freightclass_id=_weights.item_freightclass_id))
AND ((ipsfreight_shipzone_id IS NULL) OR (ipsfreight_shipzone_id=_order.shipzone_id))
AND ((ipsfreight_shipvia IS NULL) OR (ipsfreight_shipvia=_order.shipvia))
AND (CURRENT_DATE BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (ipsass_custtype_id=_order.custtype_id) )
ORDER BY ipsfreight_qtybreak DESC, price ASC
LIMIT 1;
IF (_debug) THEN
IF (_price.price IS NOT NULL) THEN
RAISE NOTICE 'Customer Type Price found, %', _price.price;
END IF;
END IF;
END IF;
IF (_price.price IS NULL) THEN
-- Check for a Customer Type Pattern Price
SELECT ipsfreight_id,
CASE WHEN (ipsfreight_type='F') THEN currToCurr(ipshead_curr_id, _order.curr_id,
ipsfreight_price, _order.orderdate)
ELSE currToCurr(ipshead_curr_id, _order.curr_id,
(_weights.weight * ipsfreight_price), _order.orderdate)
END AS price
INTO _price
FROM ipsfreight JOIN ipshead ON (ipshead_id=ipsfreight_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
WHERE ( (ipsfreight_qtybreak <= _weights.weight)
AND ((ipsfreight_warehous_id IS NULL) OR (ipsfreight_warehous_id=_weights.itemsite_warehous_id))
AND ((ipsfreight_freightclass_id IS NULL) OR (ipsfreight_freightclass_id=_weights.item_freightclass_id))
AND ((ipsfreight_shipzone_id IS NULL) OR (ipsfreight_shipzone_id=_order.shipzone_id))
AND ((ipsfreight_shipvia IS NULL) OR (ipsfreight_shipvia=_order.shipvia))
AND (CURRENT_DATE BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (COALESCE(LENGTH(ipsass_custtype_pattern), 0) > 0)
AND (_order.custtype_code ~ ipsass_custtype_pattern) )
ORDER BY ipsfreight_qtybreak DESC, price ASC
LIMIT 1;
IF (_debug) THEN
IF (_price.price IS NOT NULL) THEN
RAISE NOTICE 'Customer Type Pattern Price found, %', _price.price;
END IF;
END IF;
END IF;
-- Select the lowest price
IF ( (_price.price IS NOT NULL) AND ((_sales.price IS NULL) OR (_price.price < _sales.price)) ) THEN
_freightid := _price.ipsfreight_id;
_totalprice := _price.price;
ELSE
IF ( (_sales.price IS NOT NULL) AND ((_price.price IS NULL) OR (_sales.price <= _price.price)) ) THEN
_freightid := _sales.ipsfreight_id;
_totalprice := _sales.price;
END IF;
END IF;
-- Total
IF (_freightid IS NOT NULL) THEN
_result := _result + _totalprice;
END IF;
END LOOP;
RETURN ROUND(_result,2);
END IF;
IF (_shipment.shiphead_order_type = 'TO') THEN
--Transfer Orders
SELECT noNeg( (SELECT SUM(toitem_freight) + tohead_freight
FROM tohead, toitem
WHERE (toitem_tohead_id=tohead_id)
AND (tohead_id = _shipment.shiphead_order_id)
GROUP BY tohead_freight) -
COALESCE((SELECT SUM(shiphead_freight)
FROM shiphead
WHERE (shiphead_order_id = _shipment.shiphead_order_id)
AND (shiphead_shipped='true')), 0) ) INTO _result;
RETURN _result;
END IF;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.calcshipfreight(integer) OWNER TO admin;
--
-- Name: calctotalslipqty(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calctotalslipqty(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTagid ALIAS FOR $1;
_qty NUMERIC := 0;
BEGIN
SELECT SUM(COALESCE(cntslip_qty, 0.0)) INTO _qty
FROM cntslip
WHERE (cntslip_cnttag_id=pTagid);
RETURN _qty;
END;
$_$;
ALTER FUNCTION public.calctotalslipqty(integer) OWNER TO admin;
--
-- Name: calculatefreightdetail(integer, integer, text, integer, integer, text, date, text, integer, character varying, integer, integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calculatefreightdetail(integer, integer, text, integer, integer, text, date, text, integer, character varying, integer, integer, numeric) RETURNS SETOF freightdata
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustId ALIAS FOR $1;
pCustTypeId ALIAS FOR $2;
pCustTypeCode ALIAS FOR $3;
pShiptoId ALIAS FOR $4;
pShipZoneId ALIAS FOR $5;
pShiptoNum ALIAS FOR $6;
pOrderDate ALIAS FOR $7;
pShipVia ALIAS FOR $8;
pCurrId ALIAS FOR $9;
pCurrAbbr ALIAS FOR $10;
pItemSiteWhsId ALIAS FOR $11;
pItemFreightclassId ALIAS FOR $12;
pWeight ALIAS FOR $13;
_row freightData%ROWTYPE;
_price RECORD;
_sales RECORD;
_freightid INTEGER;
_totalprice NUMERIC;
_asof DATE;
_debug BOOLEAN := FALSE;
BEGIN
--Get pricing effectivity metric
IF (SELECT fetchMetricText('soPriceEffective') = 'OrderDate') THEN
_asof := pOrderDate;
ELSE
_asof := CURRENT_DATE;
END IF;
_freightid := NULL;
_totalprice := 0.0;
IF (_debug) THEN
RAISE NOTICE 'pWeight - %', pWeight;
RAISE NOTICE 'pItemSiteWhsId = %', pItemSiteWhsId;
RAISE NOTICE 'pItemFreightclassId = %', pItemFreightclassId;
END IF;
-- First get a sales price if any so when we find other prices
-- we can determine if we want that price or this sales price.
-- Check for a Sale Price
SELECT ipsfreight_id,
CASE WHEN (ipsfreight_type='F') THEN currToCurr(ipshead_curr_id, pCurrId,
ipsfreight_price, pOrderDate)
ELSE currToCurr(ipshead_curr_id, pCurrId,
(pWeight * ipsfreight_price), pOrderDate)
END AS price
INTO _sales
FROM ipsfreight
JOIN ipshead ON (ipshead_id=ipsfreight_ipshead_id)
JOIN sale ON (sale_ipshead_id=ipshead_id)
WHERE ( (ipsfreight_qtybreak <= pWeight)
AND ((ipsfreight_warehous_id IS NULL) OR (ipsfreight_warehous_id=pItemSiteWhsId))
AND ((ipsfreight_freightclass_id IS NULL) OR (ipsfreight_freightclass_id=pItemFreightclassId))
AND ((ipsfreight_shipzone_id IS NULL) OR (ipsfreight_shipzone_id=pShipZoneId))
AND ((ipsfreight_shipvia IS NULL) OR (ipsfreight_shipvia=pShipVia))
AND (_asof BETWEEN sale_startdate AND sale_enddate)
AND (pCustId IS NOT NULL) )
ORDER BY ipsfreight_qtybreak DESC, price ASC
LIMIT 1;
IF (_debug) THEN
IF (_sales.price IS NOT NULL) THEN
RAISE NOTICE 'Sales Price found, %', _sales.price;
END IF;
END IF;
-- Check for a Customer Shipto Price
SELECT ipsfreight_id,
CASE WHEN (ipsfreight_type='F') THEN currToCurr(ipshead_curr_id, pCurrId,
ipsfreight_price, pOrderDate)
ELSE currToCurr(ipshead_curr_id, pCurrId,
(pWeight * ipsfreight_price), pOrderDate)
END AS price
INTO _price
FROM ipsfreight
JOIN ipshead ON (ipshead_id=ipsfreight_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
WHERE ( (ipsfreight_qtybreak <= pWeight)
AND ((ipsfreight_warehous_id IS NULL) OR (ipsfreight_warehous_id=pItemSiteWhsId))
AND ((ipsfreight_freightclass_id IS NULL) OR (ipsfreight_freightclass_id=pItemFreightclassId))
AND ((ipsfreight_shipzone_id IS NULL) OR (ipsfreight_shipzone_id=pShipZoneId))
AND ((ipsfreight_shipvia IS NULL) OR (ipsfreight_shipvia=pShipVia))
AND (_asof BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (ipsass_shipto_id != -1)
AND (ipsass_shipto_id=pShiptoId) )
ORDER BY ipsfreight_qtybreak DESC, price ASC
LIMIT 1;
IF (_debug) THEN
IF (_price.price IS NOT NULL) THEN
RAISE NOTICE 'Customer Shipto Price found, %', _price.price;
END IF;
END IF;
IF (_price.price IS NULL) THEN
-- Check for a Customer Shipto Pattern Price
SELECT ipsfreight_id,
CASE WHEN (ipsfreight_type='F') THEN currToCurr(ipshead_curr_id, pCurrId,
ipsfreight_price, pOrderDate)
ELSE currToCurr(ipshead_curr_id, pCurrId,
(pWeight * ipsfreight_price), pOrderDate)
END AS price
INTO _price
FROM ipsfreight
JOIN ipshead ON (ipshead_id=ipsfreight_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
WHERE ( (ipsfreight_qtybreak <= pWeight)
AND (_asof BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (ipsass_cust_id=pCustId)
AND (COALESCE(LENGTH(ipsass_shipto_pattern), 0) > 0)
AND (pShiptoNum ~ ipsass_shipto_pattern)
AND ((ipsfreight_warehous_id IS NULL) OR (ipsfreight_warehous_id=pItemSiteWhsId))
AND ((ipsfreight_freightclass_id IS NULL) OR (ipsfreight_freightclass_id=pItemFreightclassId))
AND ((ipsfreight_shipzone_id IS NULL) OR (ipsfreight_shipzone_id=pShipZoneId))
AND ((ipsfreight_shipvia IS NULL) OR (ipsfreight_shipvia=pShipVia)) )
ORDER BY ipsfreight_qtybreak DESC, price ASC
LIMIT 1;
IF (_debug) THEN
IF (_price.price IS NOT NULL) THEN
RAISE NOTICE 'Customer Shipto Pattern Price found, %', _price.price;
END IF;
END IF;
END IF;
IF (_price.price IS NULL) THEN
-- Check for a Customer Price
SELECT ipsfreight_id,
CASE WHEN (ipsfreight_type='F') THEN currToCurr(ipshead_curr_id, pCurrId,
ipsfreight_price, pOrderDate)
ELSE currToCurr(ipshead_curr_id, pCurrId,
(pWeight * ipsfreight_price), pOrderDate)
END AS price
INTO _price
FROM ipsfreight
JOIN ipshead ON (ipshead_id=ipsfreight_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
WHERE ( (ipsfreight_qtybreak <= pWeight)
AND((ipsfreight_warehous_id IS NULL) OR (ipsfreight_warehous_id=pItemSiteWhsId))
AND ((ipsfreight_freightclass_id IS NULL) OR (ipsfreight_freightclass_id=pItemFreightclassId))
AND ((ipsfreight_shipzone_id IS NULL) OR (ipsfreight_shipzone_id=pShipZoneId))
AND ((ipsfreight_shipvia IS NULL) OR (ipsfreight_shipvia=pShipVia))
AND (_asof BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (ipsass_cust_id=pCustId)
AND (COALESCE(LENGTH(ipsass_shipto_pattern), 0) = 0) )
ORDER BY ipsfreight_qtybreak DESC, price ASC
LIMIT 1;
IF (_debug) THEN
IF (_price.price IS NOT NULL) THEN
RAISE NOTICE 'Customer Price found, %', _price.price;
END IF;
END IF;
END IF;
IF (_price.price IS NULL) THEN
-- Check for a Customer Type Price
SELECT ipsfreight_id,
CASE WHEN (ipsfreight_type='F') THEN currToCurr(ipshead_curr_id, pCurrId,
ipsfreight_price, pOrderDate)
ELSE currToCurr(ipshead_curr_id, pCurrId,
(pWeight * ipsfreight_price), pOrderDate)
END AS price
INTO _price
FROM ipsfreight JOIN ipshead ON (ipshead_id=ipsfreight_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
WHERE ( (ipsfreight_qtybreak <= pWeight)
AND ((ipsfreight_warehous_id IS NULL) OR (ipsfreight_warehous_id=pItemSiteWhsId))
AND ((ipsfreight_freightclass_id IS NULL) OR (ipsfreight_freightclass_id=pItemFreightclassId))
AND ((ipsfreight_shipzone_id IS NULL) OR (ipsfreight_shipzone_id=pShipZoneId))
AND ((ipsfreight_shipvia IS NULL) OR (ipsfreight_shipvia=pShipVia))
AND (_asof BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (ipsass_custtype_id=pCustTypeId) )
ORDER BY ipsfreight_qtybreak DESC, price ASC
LIMIT 1;
IF (_debug) THEN
IF (_price.price IS NOT NULL) THEN
RAISE NOTICE 'Customer Type Price found, %', _price.price;
END IF;
END IF;
END IF;
IF (_price.price IS NULL) THEN
-- Check for a Customer Type Pattern Price
SELECT ipsfreight_id,
CASE WHEN (ipsfreight_type='F') THEN currToCurr(ipshead_curr_id, pCurrId,
ipsfreight_price, pOrderDate)
ELSE currToCurr(ipshead_curr_id, pCurrId,
(pWeight * ipsfreight_price), pOrderDate)
END AS price
INTO _price
FROM ipsfreight JOIN ipshead ON (ipshead_id=ipsfreight_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
WHERE ( (ipsfreight_qtybreak <= pWeight)
AND ((ipsfreight_warehous_id IS NULL) OR (ipsfreight_warehous_id=pItemSiteWhsId))
AND ((ipsfreight_freightclass_id IS NULL) OR (ipsfreight_freightclass_id=pItemFreightclassId))
AND ((ipsfreight_shipzone_id IS NULL) OR (ipsfreight_shipzone_id=pShipZoneId))
AND ((ipsfreight_shipvia IS NULL) OR (ipsfreight_shipvia=pShipVia))
AND (_asof BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (COALESCE(LENGTH(ipsass_custtype_pattern), 0) > 0)
AND (pCustTypeCode ~ ipsass_custtype_pattern) )
ORDER BY ipsfreight_qtybreak DESC, price ASC
LIMIT 1;
IF (_debug) THEN
IF (_price.price IS NOT NULL) THEN
RAISE NOTICE 'Customer Type Pattern Price found, %', _price.price;
END IF;
END IF;
END IF;
-- Select the lowest price
IF ( (_price.price IS NOT NULL) AND ((_sales.price IS NULL) OR (_price.price < _sales.price)) ) THEN
_freightid := _price.ipsfreight_id;
_totalprice := _price.price;
ELSE
IF ( (_sales.price IS NOT NULL) AND ((_price.price IS NULL) OR (_sales.price <= _price.price)) ) THEN
_freightid := _sales.ipsfreight_id;
_totalprice := _sales.price;
END IF;
END IF;
IF (_debug) THEN
RAISE NOTICE '_freightid = %', _freightid;
RAISE NOTICE '_totalprice = %', _totalprice;
END IF;
-- Get information for the selected ipsfreight
-- and return
IF (_freightid IS NULL) THEN
_row.freightdata_schedule := 'N/A';
_row.freightdata_from := '';
_row.freightdata_to := '';
_row.freightdata_shipvia := '';
_row.freightdata_freightclass := '';
_row.freightdata_weight := 0;
_row.freightdata_uom := '';
_row.freightdata_price := 0;
_row.freightdata_type := '';
_row.freightdata_total := 0;
_row.freightdata_currency := '';
RETURN NEXT _row;
ELSE
SELECT ipshead_name AS freightdata_schedule,
COALESCE(warehous_code, 'Any') AS freightdata_from,
COALESCE(shipzone_name, 'Any') AS freightdata_to,
COALESCE(ipsfreight_shipvia, 'Any') AS freightdata_shipvia,
COALESCE(freightclass_code, 'Any') AS freightdata_freightclass,
pWeight AS freightdata_weight,
uom_name AS freightdata_uom,
currToCurr(ipshead_curr_id, pCurrId, ipsfreight_price, pOrderDate) AS freightdata_price,
CASE WHEN (ipsfreight_type='F') THEN 'Flat Rate'
ELSE 'Per UOM'
END AS freightdata_type,
_totalprice AS freightdata_total,
pCurrAbbr AS freightdata_currency
INTO _row
FROM ipsfreight
JOIN ipshead ON (ipshead_id=ipsfreight_ipshead_id)
LEFT OUTER JOIN uom ON (uom_item_weight)
LEFT OUTER JOIN whsinfo ON (warehous_id=ipsfreight_warehous_id)
LEFT OUTER JOIN shipzone ON (shipzone_id=ipsfreight_shipzone_id)
LEFT OUTER JOIN freightclass ON (freightclass_id=ipsfreight_freightclass_id)
WHERE (ipsfreight_id=_freightid);
RETURN NEXT _row;
END IF;
RETURN;
END;
$_$;
ALTER FUNCTION public.calculatefreightdetail(integer, integer, text, integer, integer, text, date, text, integer, character varying, integer, integer, numeric) OWNER TO admin;
--
-- Name: calculatesubtax(integer, date, integer, numeric, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calculatesubtax(integer, date, integer, numeric, integer) RETURNS SETOF taxdetail
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTaxCodeId ALIAS FOR $1;
pDate ALIAS FOR $2;
pCurrId ALIAS FOR $3;
pAmount ALIAS FOR $4;
pLevel ALIAS FOR $5;
_row taxdetail%ROWTYPE;
_rownumber INTEGER := 1;
_calc_tax Numeric :=0;
_x RECORD;
_y RECORD;
BEGIN
FOR _x IN
SELECT tax_id, tax_code, tax_descrip, tax_basis_tax_id,
taxrate_id, taxrate_percent, taxrate_curr_id, taxrate_amount,
taxclass_id, taxclass_code, COALESCE(taxclass_sequence,0) AS taxclass_sequence,
curr_id, curr_abbr
FROM tax, taxrate, taxclass, curr_symbol
WHERE ((tax_id = taxrate_tax_id)
AND (tax_taxclass_id = taxclass_id)
AND (taxrate_curr_id = curr_id)
AND (tax_basis_tax_id = pTaxCodeId)
AND (pDate BETWEEN taxrate_effective AND taxrate_expires)
AND (taxrate_curr_id = pCurrId))
LOOP
SELECT
ROUND((_x.taxrate_percent * pAmount + currToCurr(_x.curr_id, pCurrId, _x.taxrate_amount, pDate)), 6)
INTO _calc_tax;
_row.taxdetail_tax_id = _x.tax_id;
_row.taxdetail_tax_code = _x.tax_code;
_row.taxdetail_tax_descrip = _x.tax_descrip;
_row.taxdetail_tax_basis_tax_id = _x.tax_basis_tax_id ;
_row.taxdetail_taxrate_percent = _x.taxrate_percent;
_row.taxdetail_taxrate_amount = _x.taxrate_amount;
_row.taxdetail_level = pLevel + 1;
_row.taxdetail_taxclass_id = _x.taxclass_id ;
_row.taxdetail_taxclass_code = _x.taxclass_code;
_row.taxdetail_taxclass_sequence = _x.taxclass_sequence;
_row.taxdetail_tax = _calc_tax;
_row.taxdetail_curr_id = _x.curr_id;
_row.taxdetail_curr_abbr = _x.curr_abbr;
RETURN NEXT _row;
_rownumber := _rownumber + 1;
FOR _y IN
SELECT *
FROM calculateSubTax( _x.tax_id, pDate, pCurrId, _calc_tax, pLevel + 1)
LOOP
_row.taxdetail_tax_id = _y.taxdetail_tax_id;
_row.taxdetail_tax_code = _y.taxdetail_tax_code;
_row.taxdetail_tax_descrip = _y.taxdetail_tax_descrip;
_row.taxdetail_tax_basis_tax_id = _y.taxdetail_tax_basis_tax_id ;
_row.taxdetail_taxrate_percent = _y.taxdetail_taxrate_percent;
_row.taxdetail_taxrate_amount = _y.taxdetail_taxrate_amount;
_row.taxdetail_level = _y.taxdetail_level + 1;
_row.taxdetail_taxclass_id = _y.taxdetail_taxclass_id ;
_row.taxdetail_taxclass_code = _y.taxdetail_taxclass_code;
_row.taxdetail_taxclass_sequence = _y.taxdetail_taxclass_sequence;
_row.taxdetail_tax = _y.taxdetail_tax;
_row.taxdetail_curr_id = _y.taxdetail_curr_id;
_row.taxdetail_curr_abbr = _y.taxdetail_curr_abbr;
RETURN NEXT _row;
_rownumber := _rownumber + 1;
END LOOP;
END LOOP;
END;
$_$;
ALTER FUNCTION public.calculatesubtax(integer, date, integer, numeric, integer) OWNER TO admin;
--
-- Name: calculatetax(integer, integer, date, integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calculatetax(integer, integer, date, integer, numeric) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTaxZoneId ALIAS FOR $1;
pTaxTypeId ALIAS FOR $2;
pDate ALIAS FOR $3;
pCurrId ALIAS FOR $4;
pAmount ALIAS FOR $5;
_tottax numeric := 0; -- total tax
BEGIN
SELECT COALESCE(ROUND(SUM(taxdetail_tax),6),0)
INTO _tottax
FROM calculateTaxDetail(pTaxZoneId, pTaxTypeId, pDate, pCurrId, pAmount);
RETURN _tottax;
END;
$_$;
ALTER FUNCTION public.calculatetax(integer, integer, date, integer, numeric) OWNER TO admin;
--
-- Name: calculatetaxdetail(integer, integer, date, integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calculatetaxdetail(integer, integer, date, integer, numeric) RETURNS SETOF taxdetail
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTaxZoneId ALIAS FOR $1;
pTaxTypeId ALIAS FOR $2;
pDate ALIAS FOR $3;
pCurrId ALIAS FOR $4;
pAmount ALIAS FOR $5;
_row taxdetail%ROWTYPE;
_x RECORD;
_y RECORD;
_z RECORD;
_currcum numeric := 0; -- Current cumulative tax
_currseq numeric := 0; -- Current group sequence
_prevcum numeric := 0; -- Previous cumulative tax
_tax numeric := 0; -- Calculated tax amount
_taxbasis numeric := 0; -- Used for calculating sub taxes
BEGIN
IF ((COALESCE(pTaxTypeId,-1) = -1) OR (COALESCE(pTaxZoneId,-1) = -1)) THEN
RETURN;
END IF;
SELECT DISTINCT
COALESCE(taxass_taxzone_id, -1) AS taxzone_id,
COALESCE(taxass_taxtype_id, -1) AS taxtype_id,
taxass_tax_id,
CASE
WHEN ((taxass_taxzone_id IS NOT NULL) AND (taxass_taxtype_id IS NOT NULL)) THEN
0
WHEN ((taxass_taxzone_id IS NOT NULL) AND (taxass_taxtype_id IS NULL)) THEN
1
WHEN ((taxass_taxzone_id IS NULL) AND (taxass_taxtype_id IS NOT NULL)) THEN
2
ELSE
3
END AS sequence
INTO _x
FROM taxass
WHERE ((COALESCE(taxass_taxzone_id, pTaxZoneId, -1) = COALESCE(pTaxZoneId,-1))
AND (COALESCE(taxass_taxtype_id, pTaxTypeId, -1) = COALESCE(pTaxTypeId,-1)))
ORDER BY sequence LIMIT 1;
--Now loop through each tax detail record and return calculated result
FOR _y IN
SELECT --the data required by taxdetail type. Coalesce group sequence to 0 if no class.
tax_id
,tax_code
,tax_descrip
,tax_basis_tax_id
,taxrate_percent
,taxrate_amount
,0 as taxdetail_level
,taxclass_id
,taxclass_code
,COALESCE(taxclass_sequence, 0) AS taxclass_sequence
,0 as taxdetail_tax
,curr_id
,curr_abbr
FROM taxass, taxclass RIGHT OUTER JOIN tax
LEFT OUTER JOIN taxrate ON (taxrate_tax_id=tax_id)
ON (tax_taxclass_id=taxclass_id),
curr_symbol
WHERE
taxass_tax_id=tax_id
AND taxrate_curr_id=curr_id
AND COALESCE(taxass_taxzone_id, -1) = _x.taxzone_id
AND COALESCE(taxass_taxtype_id, -1) = _x.taxtype_id
AND pDate BETWEEN COALESCE(taxrate_effective, startoftime()) AND COALESCE(taxrate_expires, endoftime())
ORDER BY COALESCE(taxclass_sequence, 0)
LOOP
-- If sequence has changed, cache the previous cumulative tax
IF (_currseq != _x.sequence) THEN
_prevcum := _currcum;
END IF;
-- Calculate the tax amount. Convert currency for flat rate amounts
SELECT
ROUND((_y.taxrate_percent * (pAmount + _prevcum) + currToCurr(_y.curr_id, pCurrId, _y.taxrate_amount, pDate)), 6)
INTO _tax
FROM tax JOIN taxrate ON (tax_id = taxrate_tax_id)
WHERE (tax_id=_x.taxass_tax_id)
AND (pDate BETWEEN COALESCE(taxrate_effective, startoftime()) AND COALESCE(taxrate_expires, endoftime()));
--Map fields to _row
_row.taxdetail_tax_id := _y.tax_id;
_row.taxdetail_tax_code := _y.tax_code;
_row.taxdetail_tax_descrip := _y.tax_descrip;
_row.taxdetail_tax_basis_tax_id := _y.tax_basis_tax_id;
_row.taxdetail_taxrate_percent := _y.taxrate_percent;
_row.taxdetail_taxrate_amount := _y.taxrate_amount;
_row.taxdetail_level := _y.taxdetail_level;
_row.taxdetail_taxclass_id := _y.taxclass_id;
_row.taxdetail_taxclass_code := _y.taxclass_code;
_row.taxdetail_taxclass_sequence := _y.taxclass_sequence;
_row.taxdetail_tax := _tax;
_row.taxdetail_curr_id := _y.curr_id;
_row.taxdetail_curr_abbr := _y.curr_abbr;
RETURN NEXT _row;
-- Increment cumulative balance and sequence number
IF(_y.taxclass_sequence <> 0) THEN
_currcum := _currcum + _tax;
END IF;
_currseq := _y.taxclass_sequence;
-- Loop to Calculate sub taxes
FOR _z IN
SELECT *
FROM calculateSubTax(_y.tax_id,pDate, pCurrId, _tax, 0)
LOOP
--Mapping of data
_row.taxdetail_tax_id := _z.taxdetail_tax_id;
_row.taxdetail_tax_code := _z.taxdetail_tax_code;
_row.taxdetail_tax_descrip := _z.taxdetail_tax_descrip;
_row.taxdetail_tax_basis_tax_id := _z.taxdetail_tax_basis_tax_id;
_row.taxdetail_taxrate_percent := _z.taxdetail_taxrate_percent;
_row.taxdetail_taxrate_amount := _z.taxdetail_taxrate_amount;
_row.taxdetail_level := _z.taxdetail_level;
_row.taxdetail_taxclass_id := _z.taxdetail_taxclass_id;
_row.taxdetail_taxclass_code := _z.taxdetail_taxclass_code;
_row.taxdetail_taxclass_sequence := _z.taxdetail_taxclass_sequence;
_row.taxdetail_tax := _z.taxdetail_tax;
_row.taxdetail_curr_id := _z.taxdetail_curr_id;
_row.taxdetail_curr_abbr := _z.taxdetail_curr_abbr;
RETURN NEXT _row;
--Add to cumulative counter (_curcum)
_currcum := _currcum + _z.taxdetail_tax ;
END LOOP;
END LOOP;
END;
$_$;
ALTER FUNCTION public.calculatetaxdetail(integer, integer, date, integer, numeric) OWNER TO admin;
--
-- Name: calculatetaxdetailline(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calculatetaxdetailline(text, integer) RETURNS SETOF taxdetail
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pOrderType ALIAS FOR $1;
pOrderId ALIAS FOR $2;
_row taxdetail%ROWTYPE;
_qry text;
_totaltax numeric;
_y RECORD;
_table text;
BEGIN
_totaltax=0.0;
IF pOrderType = 'II' THEN
_table := 'invcitemtax';
ELSIF pOrderType = 'BI' THEN
_table := 'cobilltax';
ELSIF pOrderType = 'CI' THEN
_table := 'cmitemtax';
ELSIF pOrderType = 'VI' THEN
_table := 'voitemtax';
ELSIF pOrderType = 'TI' THEN
_table := 'toitemtax';
ELSIF pOrderType = 'AR' THEN
_table := 'aropentax';
ELSIF pOrderType = 'AP' THEN
_table := 'apopentax';
END IF;
_qry := 'SELECT taxhist_tax_id as tax_id, tax_code, tax_descrip, taxhist_tax, COALESCE(taxhist_sequence,0) AS taxhist_sequence
FROM taxhist
JOIN tax ON (taxhist_tax_id=tax_id)
JOIN pg_class ON (pg_class.oid=taxhist.tableoid)
WHERE ( (taxhist_parent_id = ' || pOrderId || ')
AND (relname=''' || _table || ''') );';
FOR _y IN EXECUTE _qry
LOOP
_row.taxdetail_tax_id=_y.tax_id;
_row.taxdetail_tax_code = _y.tax_code;
_row.taxdetail_tax_descrip = _y.tax_descrip;
_row.taxdetail_tax = _y.taxhist_tax;
_row.taxdetail_level= 0 ;
_row.taxdetail_taxclass_sequence= _y.taxhist_sequence;
_totaltax = _totaltax + _y.taxhist_tax;
RETURN NEXT _row;
END LOOP;
END;
$_$;
ALTER FUNCTION public.calculatetaxdetailline(text, integer) OWNER TO admin;
--
-- Name: calculatetaxdetailsummary(text, integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calculatetaxdetailsummary(text, integer, text) RETURNS SETOF taxdetail
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pOrderType ALIAS FOR $1;
pOrderId ALIAS FOR $2;
pDisplayType ALIAS FOR $3;
_row taxdetail%ROWTYPE;
_qry text := '';
_qry1 text;
_totaltax numeric;
_x RECORD;
_y RECORD;
_table text;
BEGIN
_totaltax=0.0;
IF pOrderType IN ('S','Q','RA','PO') THEN
IF pOrderType = 'S' THEN
_qry := 'SELECT ' || 'COALESCE(cohead_taxzone_id, -1) AS taxzone_id, cohead_orderdate AS order_date,
cohead_curr_id AS curr_id, COALESCE(coitem_taxtype_id, -1) AS taxtype_id,
ROUND((coitem_qtyord * coitem_qty_invuomratio) * (coitem_price / coitem_price_invuomratio),2) AS amount
FROM cohead, coitem
WHERE ( (coitem_cohead_id = ' || pOrderId || ')
AND (' || 'cohead_id = coitem_cohead_id)
AND ( coitem_status != ''X'') )';
ELSEIF pOrderType = 'Q' THEN
_qry := 'SELECT ' || 'COALESCE(quhead_taxzone_id, -1) AS taxzone_id, quhead_quotedate AS order_date,
quhead_curr_id AS curr_id, COALESCE(quitem_taxtype_id, -1) AS taxtype_id,
ROUND((quitem_qtyord * quitem_qty_invuomratio) * (quitem_price / quitem_price_invuomratio),2) AS amount
FROM quhead, quitem
WHERE ( (quitem_quhead_id = ' || pOrderId || ')
AND (quhead_id = quitem_quhead_id) )';
ELSEIF pOrderType = 'RA' THEN
_qry := 'SELECT ' || 'COALESCE(rahead_taxzone_id, -1) AS taxzone_id, rahead_authdate AS order_date,
rahead_curr_id AS curr_id, COALESCE(raitem_taxtype_id, -1) AS taxtype_id,
ROUND((raitem_qtyauthorized * raitem_qty_invuomratio) * (raitem_unitprice / raitem_price_invuomratio),2) AS amount
FROM rahead, raitem
WHERE ( (raitem_rahead_id = ' || pOrderId || ')
AND (rahead_id = raitem_rahead_id) )';
ELSEIF pOrderType = 'PO' THEN
_qry := 'SELECT ' || 'COALESCE(pohead_taxzone_id, -1) AS taxzone_id, pohead_orderdate AS order_date,
pohead_curr_id AS curr_id, COALESCE(poitem_taxtype_id, -1) AS taxtype_id,
ROUND(poitem_qty_ordered * poitem_unitprice, 2) AS amount
FROM pohead, poitem
WHERE ( (poitem_pohead_id = ' || pOrderId || ')
AND (pohead_id = poitem_pohead_id) )';
END IF;
FOR _x IN EXECUTE _qry
LOOP
_qry1 := 'SELECT * from calculatetaxdetail(' || _x.taxzone_id || ',' || _x.taxtype_id || ',''' || _x.order_date || ''',' || _x.curr_id || ',' || _x.amount || ')';
FOR _y IN EXECUTE _qry1
LOOP
_row.taxdetail_tax_id=_y.taxdetail_tax_id;
_row.taxdetail_tax_code = _y.taxdetail_tax_code;
_row.taxdetail_tax_descrip = _y.taxdetail_tax_descrip;
_row.taxdetail_tax = _y.taxdetail_tax;
_row.taxdetail_level=_y.taxdetail_level;
_row.taxdetail_taxclass_sequence= _y.taxdetail_taxclass_sequence;
_totaltax = _totaltax + _y.taxdetail_tax;
RETURN NEXT _row;
END LOOP;
END LOOP;
IF pDisplayType = 'T' AND pOrderType <> 'PO' THEN
IF pOrderType = 'S' THEN
_qry := 'SELECT COALESCE(cohead_taxzone_id, -1) AS taxzone_id, cohead_orderdate AS order_date,
cohead_curr_id AS curr_id, cohead_freight AS freight
FROM cohead WHERE cohead_id = ' || pOrderId ;
ELSEIF pOrderType = 'Q' THEN
_qry := 'SELECT COALESCE(quhead_taxzone_id, -1) AS taxzone_id, quhead_quotedate AS order_date,
quhead_curr_id AS curr_id, COALESCE(quhead_freight,0) AS freight
FROM quhead WHERE quhead_id = ' || pOrderId;
ELSEIF pOrderType = 'RA' THEN
_qry := 'SELECT COALESCE(rahead_taxzone_id, -1) AS taxzone_id, COALESCE(rahead_authdate,CURRENT_DATE) AS order_date,
rahead_curr_id AS curr_id, COALESCE(rahead_freight,0) AS freight
FROM rahead WHERE rahead_id = ' || pOrderId;
END IF;
FOR _x IN EXECUTE _qry
LOOP
_qry1 := 'SELECT * from calculatetaxdetail(' || _x.taxzone_id || ', getfreighttaxtypeid(),''' || _x.order_date || ''',' || _x.curr_id || ',' || _x.freight || ')';
FOR _y IN EXECUTE _qry1
LOOP
_row.taxdetail_tax_id=_y.taxdetail_tax_id;
_row.taxdetail_tax_code = _y.taxdetail_tax_code;
_row.taxdetail_tax_descrip = _y.taxdetail_tax_descrip;
_row.taxdetail_tax = _y.taxdetail_tax;
_row.taxdetail_level=_y.taxdetail_level;
_row.taxdetail_taxclass_sequence= _y.taxdetail_taxclass_sequence;
_totaltax = _totaltax + _y.taxdetail_tax;
RETURN NEXT _row;
END LOOP;
END LOOP;
END IF;
ELSEIF pOrderType IN ('I','B','CM', 'VO','TO') THEN
IF (pOrderType='I') THEN
_table := 'invcheadtax';
ELSIF (pOrderType='B') THEN
_table := 'cobmisctax';
ELSIF (pOrderType='CM') THEN
_table := 'cmheadtax';
ELSIF (pOrderType='VO') THEN
_table := 'voheadtax';
ELSIF (pOrderType='TO') THEN
_table := 'tohead';
END IF;
IF pOrderType = 'I' AND (pDisplayType IN ('L','T')) THEN
_qry := 'SELECT taxhist_tax_id as tax_id, tax_code, tax_descrip, taxhist_tax, taxhist_sequence
FROM invchead, invcitemtax LEFT OUTER JOIN tax ON (taxhist_tax_id=tax_id)
LEFT OUTER JOIN invcitem ON (invcitem_id=taxhist_parent_id)
WHERE invcitem_invchead_id = ' || pOrderId || '
AND invchead_id = invcitem_invchead_id ';
ELSIF pOrderType = 'B' AND (pDisplayType IN ('L','T')) THEN
_qry := 'SELECT taxhist_tax_id as tax_id, tax_code, tax_descrip, taxhist_tax, taxhist_sequence
FROM cobmisc, cobilltax LEFT OUTER JOIN tax ON (taxhist_tax_id=tax_id)
LEFT OUTER JOIN cobill ON (cobill_id=taxhist_parent_id)
WHERE cobill_cobmisc_id = ' || pOrderId || '
AND cobmisc_id = cobill_cobmisc_id ';
ELSIF pOrderType = 'CM' AND (pDisplayType IN ('L','T')) THEN
_qry := 'SELECT taxhist_tax_id as tax_id, tax_code, tax_descrip, taxhist_tax, taxhist_sequence
FROM cmhead, cmitemtax LEFT OUTER JOIN tax ON (taxhist_tax_id=tax_id)
LEFT OUTER JOIN cmitem ON (cmitem_id=taxhist_parent_id)
WHERE cmitem_cmhead_id = ' || pOrderId || '
AND cmhead_id = cmitem_cmhead_id ';
ELSIF pOrderType = 'VO' AND (pDisplayType IN ('L','T')) THEN
_qry := 'SELECT taxhist_tax_id as tax_id, tax_code, tax_descrip, taxhist_tax, taxhist_sequence
FROM vohead, voitemtax LEFT OUTER JOIN tax ON (taxhist_tax_id=tax_id)
LEFT OUTER JOIN voitem ON (voitem_id=taxhist_parent_id)
WHERE voitem_vohead_id = ' || pOrderId || '
AND vohead_id = voitem_vohead_id ';
ELSIF pOrderType = 'TO' AND (pDisplayType IN ('L','T')) THEN
_qry := 'SELECT taxhist_tax_id as tax_id, tax_code, tax_descrip, taxhist_tax, taxhist_sequence
FROM tohead, toitemtax LEFT OUTER JOIN tax ON (taxhist_tax_id=tax_id)
LEFT OUTER JOIN toitem ON (toitem_id=taxhist_parent_id)
WHERE toitem_tohead_id = ' || pOrderId || '
AND tohead_id = toitem_tohead_id ';
END IF;
IF pDisplayType IN ('F','T') AND pOrderType <> 'VO' THEN
IF (length(_qry) > 0) THEN
_qry := _qry || ' UNION ALL ';
END IF;
_qry := _qry || 'SELECT taxhist_tax_id as tax_id, tax_code, tax_descrip, taxhist_tax, taxhist_sequence
FROM taxhist
JOIN tax ON (taxhist_tax_id=tax_id)
JOIN pg_class ON (pg_class.oid=taxhist.tableoid)
WHERE ( (taxhist_parent_id = ' || pOrderId || ')
AND (taxhist_taxtype_id=getfreighttaxtypeid())
AND (relname=''' || _table || ''') )';
END IF;
IF pDisplayType IN ('A','T') THEN
IF (length(_qry) > 0) THEN
_qry := _qry || ' UNION ALL ';
END IF;
_qry := _qry || 'SELECT taxhist_tax_id as tax_id, tax_code, tax_descrip, taxhist_tax, taxhist_sequence
FROM taxhist
JOIN tax ON (taxhist_tax_id=tax_id)
JOIN pg_class ON (pg_class.oid=taxhist.tableoid)
WHERE ( (taxhist_parent_id = ' || pOrderId || ')
AND (taxhist_taxtype_id=getadjustmenttaxtypeid())
AND (relname=''' || _table || ''') )';
END IF;
FOR _y IN EXECUTE _qry
LOOP
_row.taxdetail_tax_id=_y.tax_id;
_row.taxdetail_tax_code = _y.tax_code;
_row.taxdetail_tax_descrip = _y.tax_descrip;
_row.taxdetail_tax = _y.taxhist_tax;
_row.taxdetail_level= 0 ;
_row.taxdetail_taxclass_sequence= COALESCE(_y.taxhist_sequence,0);
_totaltax = _totaltax + _y.taxhist_tax;
RETURN NEXT _row;
END LOOP;
END IF;
END;
$_$;
ALTER FUNCTION public.calculatetaxdetailsummary(text, integer, text) OWNER TO admin;
--
-- Name: calculatetaxhist(text, integer, integer, integer, date, integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calculatetaxhist(text, integer, integer, integer, date, integer, numeric) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTableName ALIAS FOR $1;
pParentId ALIAS FOR $2;
pTaxZoneId ALIAS FOR $3;
pTaxTypeId ALIAS FOR $4;
pDate ALIAS FOR $5;
pCurrId ALIAS FOR $6;
pAmount ALIAS FOR $7;
_qry TEXT;
BEGIN
IF (pTableName IS NULL) THEN
RAISE EXCEPTION 'A table name is required to calculate tax history';
ELSEIF (pParentId IS NULL) THEN
RAISE EXCEPTION 'A parent ID is required to calculate tax history';
ELSEIF (pDate IS NULL) THEN
RAISE EXCEPTION 'A date is required to calculate tax history';
ELSEIF (pAmount IS NULL) THEN
RAISE EXCEPTION 'An amount is required to calculate tax history';
END IF;
-- Build a query that deletes any previous tax history for this document record
_qry := 'DELETE FROM ' || pTableName || ' WHERE taxhist_parent_id = ' || pParentId || ' AND taxhist_taxtype_id <> getadjustmenttaxtypeid();';
EXECUTE _qry;
-- Next, build and execute query that inserts new rows.
_qry := 'INSERT INTO ' || pTableName || ' (
taxhist_parent_id, taxhist_taxtype_id, taxhist_tax_id, taxhist_basis,
taxhist_basis_tax_id, taxhist_sequence, taxhist_percent,
taxhist_amount, taxhist_tax, taxhist_docdate)
SELECT ' || pParentId || ',';
IF (pTaxTypeId IS NULL) THEN
_qry := _qry || 'NULL';
ELSE
_qry := _qry || pTaxTypeId;
END If;
_qry := _qry || ', taxdetail_tax_id,' || pAmount || ',
taxdetail_tax_basis_tax_id, taxdetail_taxclass_sequence, taxdetail_taxrate_percent,
taxdetail_taxrate_amount, taxdetail_tax, ''' || pDate || '''
FROM calculatetaxdetail(' || COALESCE(pTaxZoneId,-1) || ',' || COALESCE(pTaxTypeId,-1) ||',''' || pDate || ''',' || pCurrId || ',' || pAmount || ');';
EXECUTE _qry;
RETURN true;
END;
$_$;
ALTER FUNCTION public.calculatetaxhist(text, integer, integer, integer, date, integer, numeric) OWNER TO admin;
--
-- Name: calcvoucheramt(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calcvoucheramt(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVoucherid ALIAS FOR $1;
_amount NUMERIC := 0;
BEGIN
SELECT SUM(COALESCE(vodist_amount, 0)) INTO _amount
FROM vodist
WHERE (vodist_vohead_id=pVoucherid);
RETURN _amount;
END;
$_$;
ALTER FUNCTION public.calcvoucheramt(integer) OWNER TO admin;
--
-- Name: calcvoucherfreight(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calcvoucherfreight(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVoucherid ALIAS FOR $1;
_amount NUMERIC := 0;
BEGIN
SELECT SUM(COALESCE(voitem_freight, 0)) INTO _amount
FROM voitem
WHERE (voitem_vohead_id=pVoucherid);
RETURN _amount;
END;
$_$;
ALTER FUNCTION public.calcvoucherfreight(integer) OWNER TO admin;
--
-- Name: calcvouchertax(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calcvouchertax(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVoucherid ALIAS FOR $1;
_amount NUMERIC := 0;
BEGIN
SELECT COALESCE(calculateTax(vohead_taxzone_id,
vohead_taxtype_id,
vohead_docdate,
vohead_curr_id,
calcVoucherAmt(vohead_id)), 0) INTO _amount
FROM vohead
WHERE (vohead_id=pVoucherid);
RETURN _amount;
END;
$_$;
ALTER FUNCTION public.calcvouchertax(integer) OWNER TO admin;
--
-- Name: calcwooperstartstub(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION calcwooperstartstub(integer, integer) RETURNS date
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoId ALIAS FOR $1;
pBooitemSeqId ALIAS FOR $2;
_result DATE;
BEGIN
IF ( SELECT ((metric_value='t') AND packageIsEnabled('xtmfg'))
FROM metric
WHERE(metric_name='Routings') ) THEN
RETURN xtmfg.calcWooperStart(pWoId, pBooitemSeqId);
END IF;
RETURN null;
END;
$_$;
ALTER FUNCTION public.calcwooperstartstub(integer, integer) OWNER TO admin;
--
-- Name: cancelbillingselection(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION cancelbillingselection(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCobmiscid ALIAS FOR $1;
BEGIN
IF ( ( SELECT cobmisc_posted
FROM cobmisc
WHERE (cobmisc_id=pCobmiscid) ) ) THEN
RETURN -1;
END IF;
DELETE FROM cobill
WHERE (cobill_cobmisc_id=pCobmiscid);
DELETE FROM cobmisc
WHERE (cobmisc_id=pCobmiscid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.cancelbillingselection(integer) OWNER TO admin;
--
-- Name: changeaccountingperioddates(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION changeaccountingperioddates(integer, date, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPeriodid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
_check INTEGER;
_r RECORD;
BEGIN
-- Check to make sure that the passed period is not closed
IF ( ( SELECT period_closed
FROM period
WHERE (period_id=pPeriodid) ) ) THEN
RETURN -1;
END IF;
-- Check to make sure that the passed start date does not fall
-- into another period
SELECT period_id INTO _check
FROM period
WHERE ( (pStartDate BETWEEN period_start AND period_end)
AND (period_id <> pPeriodid) )
LIMIT 1;
IF (FOUND) THEN
RETURN -2;
END IF;
-- Check to make sure that the passed end date does not fall
-- into another period
SELECT period_id INTO _check
FROM period
WHERE ( (pEndDate BETWEEN period_start AND period_end)
AND (period_id <> pPeriodid) )
LIMIT 1;
IF (FOUND) THEN
RETURN -3;
END IF;
-- Check to make sure that the new passed start and end dates do not
-- orphan a posted G/L Transaction
SELECT gltrans_id INTO _check
FROM gltrans, period
WHERE ( (gltrans_date BETWEEN period_start AND period_end)
AND (gltrans_posted)
AND (NOT (gltrans_date BETWEEN pStartDate AND pEndDate))
AND (period_id=pPeriodid) )
LIMIT 1;
IF (FOUND) THEN
RETURN -4;
END IF;
-- Alter the start and end dates of the pass period
UPDATE period
SET period_start=pStartDate, period_end=pEndDate
WHERE (period_id=pPeriodid);
-- Post any unposted G/L Transactions into the period
FOR _r IN SELECT DISTINCT gltrans_sequence
FROM gltrans
WHERE ( (NOT gltrans_posted)
AND (gltrans_date BETWEEN pStartDate AND pEndDate) ) LOOP
PERFORM postIntoTrialBalance(_r.gltrans_sequence);
END LOOP;
-- All done
RETURN 1;
END;
$_$;
ALTER FUNCTION public.changeaccountingperioddates(integer, date, date) OWNER TO admin;
--
-- Name: changeaccountingyearperioddates(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION changeaccountingyearperioddates(integer, date, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPeriodid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
_check INTEGER;
_checkBool BOOLEAN;
_r RECORD;
BEGIN
-- Check to make sure that the passed yearperiod is not closed
IF ( ( SELECT yearperiod_closed
FROM yearperiod
WHERE (yearperiod_id=pPeriodid) ) ) THEN
RETURN -1;
END IF;
-- Check to make sure that the passed start date does not fall
-- into another yearperiod
SELECT yearperiod_id INTO _check
FROM yearperiod
WHERE ( (pStartDate BETWEEN yearperiod_start AND yearperiod_end)
AND (yearperiod_id <> pPeriodid) )
LIMIT 1;
IF (FOUND) THEN
RETURN -2;
END IF;
-- Check to make sure that the passed end date does not fall
-- into another yearperiod
SELECT yearperiod_id INTO _check
FROM yearperiod
WHERE ( (pEndDate BETWEEN yearperiod_start AND yearperiod_end)
AND (yearperiod_id <> pPeriodid) )
LIMIT 1;
IF (FOUND) THEN
RETURN -3;
END IF;
-- Check to make sure that the passed yearperiod is not closed
IF ( ( SELECT (count(period_id) > 0)
FROM period
WHERE ((period_yearperiod_id=pPeriodid)
AND (period_start < pStartDate OR period_end > pEndDate)) ) ) THEN
RETURN -4;
END IF;
-- Make sure that the passed start is prior to the end date
SELECT (pStartDate > pEndDate) INTO _checkBool;
IF (_checkBool) THEN
RETURN -5;
END IF;
-- Alter the start and end dates of the pass period
UPDATE yearperiod
SET yearperiod_start=pStartDate, yearperiod_end=pEndDate
WHERE (yearperiod_id=pPeriodid);
-- All done
RETURN 1;
END;
$_$;
ALTER FUNCTION public.changeaccountingyearperioddates(integer, date, date) OWNER TO admin;
--
-- Name: changefkeypointers(text, text, integer, integer, text[], boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION changefkeypointers(text, text, integer, integer, text[], boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSchema ALIAS FOR $1;
pTable ALIAS FOR $2;
pSourceId ALIAS FOR $3;
pTargetId ALIAS FOR $4;
pIgnore ALIAS FOR $5;
_purge BOOLEAN := COALESCE($6, FALSE);
_counter INTEGER := 0;
_count1 INTEGER := 0;
_fk RECORD;
_pk TEXT[];
BEGIN
-- for all foreign keys that point to pSchema.pTable
FOR _fk IN
EXECUTE 'SELECT fkeyns.nspname AS schemaname, fkeytab.relname AS tablename,
conkey, attname, typname
FROM pg_constraint
JOIN pg_class basetab ON (confrelid=basetab.oid)
JOIN pg_namespace basens ON (basetab.relnamespace=basens.oid)
JOIN pg_class fkeytab ON (conrelid=fkeytab.oid)
JOIN pg_namespace fkeyns ON (fkeytab.relnamespace=fkeyns.oid)
JOIN pg_attribute ON (attrelid=conrelid AND attnum=conkey[1])
JOIN pg_type ON (atttypid=pg_type.oid)
WHERE basetab.relname = ' || quote_literal(pTable) || '
AND basens.nspname = ' || quote_literal(pSchema) || '
AND fkeytab.relname NOT IN (''' || ARRAY_TO_STRING(pIgnore, ''', ''') || ''')'
LOOP
IF (ARRAY_UPPER(_fk.conkey, 1) > 1) THEN
RAISE EXCEPTION 'Cannot change the foreign key in %.% that refers to %.% because the foreign key constraint has multiple columns. [xtuple: changefkeypointers, -1, %.%, %.%]',
_fk.schemaname, _fk.tablename, pSchema, pTable,
_fk.schemaname, _fk.tablename, pSchema, pTable;
END IF;
-- optionally make a backup copy of the data
IF (NOT _purge) THEN
-- determine the primary key column of the fkey table
_pk := primaryKeyFields(_fk.schemaname, _fk.tablename);
IF (ARRAY_UPPER(_pk, 1) > 1) THEN
RAISE EXCEPTION 'Cannot change foreign key references in %.% because it has a composite primary key. Try setting the purge option. [xtuple: changefkeypointers, -4, %.%]',
_fk.schemaname, _fk.tablename, _fk.schemaname, _fk.tablename;
END IF;
-- make the backup copy
EXECUTE 'INSERT INTO mrgundo (
mrgundo_schema, mrgundo_table,
mrgundo_pkey_col, mrgundo_pkey_id,
mrgundo_col, mrgundo_value, mrgundo_type,
mrgundo_base_schema, mrgundo_base_table, mrgundo_base_id
) SELECT ' || quote_literal(_fk.schemaname) || ', '
|| quote_literal(_fk.tablename) || ', '
|| quote_literal(_pk[1]) || ', '
|| _pk[1] || ', '
|| quote_literal(_fk.attname) || ', '
|| _fk.attname || ', '
|| quote_literal(_fk.typname) || ', '
|| quote_literal(pSchema) || ', '
|| quote_literal(pTable) || ', '
|| pTargetId || '
FROM ' || _fk.schemaname || '.' || _fk.tablename ||
' WHERE ('|| _fk.attname || '=' || pSourceId || ');';
END IF;
-- actually change the foreign keys to point to the desired base table record
EXECUTE 'UPDATE ' || _fk.schemaname || '.' || _fk.tablename ||
' SET ' || _fk.attname || '=' || pTargetId ||
' WHERE (' || _fk.attname || '=' || pSourceId || ');';
GET DIAGNOSTICS _count1 = ROW_COUNT;
_counter := _counter + _count1;
END LOOP;
RETURN _counter;
END;
$_$;
ALTER FUNCTION public.changefkeypointers(text, text, integer, integer, text[], boolean) OWNER TO admin;
--
-- Name: FUNCTION changefkeypointers(text, text, integer, integer, text[], boolean); Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON FUNCTION changefkeypointers(text, text, integer, integer, text[], boolean) IS 'Change the data in all tables with foreign key relationships so they point to the pSchema.pTable record with primary key pTargetId instead of the record with primary key pSourceId. Ignore any tables listed in pIgnore. If the final arg is TRUE, make a backup copy of the original data in the mrgundo table.';
--
-- Name: changepoitemduedate(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION changepoitemduedate(ppoitemid integer, pdate date) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN changePoitemDueDate(pPoitemid, pDate, false);
END;
$$;
ALTER FUNCTION public.changepoitemduedate(ppoitemid integer, pdate date) OWNER TO admin;
--
-- Name: changepoitemduedate(integer, date, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION changepoitemduedate(ppoitemid integer, pdate date, pbyso boolean) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF ( ( SELECT (poitem_status IN ('C'))
FROM poitem
WHERE (poitem_id=pPoitemid) ) ) THEN
RETURN -1;
END IF;
UPDATE poitem
SET poitem_duedate=pDate
WHERE (poitem_id=pPoitemid);
IF (pBySO) THEN
--Generate the PoItemUpdatedBySo event
INSERT INTO evntlog
( evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id,
evntlog_number )
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'P', poitem_id, itemsite_warehous_id,
(pohead_number || '-'|| poitem_linenumber || ': ' || item_number)
FROM evntnot JOIN evnttype ON (evntnot_evnttype_id=evnttype_id)
JOIN itemsite ON (evntnot_warehous_id=itemsite_warehous_id)
JOIN item ON (itemsite_item_id=item_id)
JOIN poitem ON (poitem_itemsite_id=itemsite_id)
JOIN pohead ON (poitem_pohead_id=pohead_id)
WHERE( (poitem_id=pPoitemid)
AND (poitem_duedate <= (CURRENT_DATE + itemsite_eventfence))
AND (evnttype_name='PoItemUpdatedBySo') );
END IF;
RETURN pPoitemid;
END;
$$;
ALTER FUNCTION public.changepoitemduedate(ppoitemid integer, pdate date, pbyso boolean) OWNER TO admin;
--
-- Name: changepoitemqty(integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION changepoitemqty(ppoitemid integer, pqty numeric) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN changePoitemQty(pPoitemid, pQty, false);
END;
$$;
ALTER FUNCTION public.changepoitemqty(ppoitemid integer, pqty numeric) OWNER TO admin;
--
-- Name: changepoitemqty(integer, numeric, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION changepoitemqty(ppoitemid integer, pqty numeric, pbyso boolean) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
BEGIN
IF ( ( SELECT (poitem_status IN ('C'))
FROM poitem
WHERE (poitem_id=pPoitemid) ) ) THEN
RETURN -1;
END IF;
UPDATE poitem
SET poitem_qty_ordered=pQty
WHERE (poitem_id=pPoitemid);
IF (pBySO) THEN
--Generate the PoItemUpdatedBySo event
INSERT INTO evntlog
( evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id,
evntlog_number )
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'P', poitem_id, itemsite_warehous_id,
(pohead_number || '-'|| poitem_linenumber || ': ' || item_number)
FROM evntnot JOIN evnttype ON (evntnot_evnttype_id=evnttype_id)
JOIN itemsite ON (evntnot_warehous_id=itemsite_warehous_id)
JOIN item ON (itemsite_item_id=item_id)
JOIN poitem ON (poitem_itemsite_id=itemsite_id)
JOIN pohead ON (poitem_pohead_id=pohead_id)
WHERE( (poitem_id=pPoitemid)
AND (poitem_duedate <= (CURRENT_DATE + itemsite_eventfence))
AND (evnttype_name='PoItemUpdatedBySo') );
END IF;
RETURN pPoitemid;
END;
$$;
ALTER FUNCTION public.changepoitemqty(ppoitemid integer, pqty numeric, pbyso boolean) OWNER TO admin;
--
-- Name: changeprdate(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION changeprdate(integer, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPrid ALIAS FOR $1;
pDueDate ALIAS FOR $2;
BEGIN
UPDATE pr
SET pr_duedate=pDueDate
WHERE (pr_id=pPrid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.changeprdate(integer, date) OWNER TO admin;
--
-- Name: changeprqty(integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION changeprqty(integer, numeric) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPrid ALIAS FOR $1;
pQty ALIAS FOR $2;
BEGIN
UPDATE pr
SET pr_qtyreq=pQty
WHERE (pr_id=pPrid);
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.changeprqty(integer, numeric) OWNER TO admin;
--
-- Name: changeprqty(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION changeprqty(integer, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
DECLARE
pPrid ALIAS FOR $1;
pDueDate ALIAS FOR $2;
BEGIN
UPDATE pr
SET pr_duedate=pDueDate
WHERE (pr_id=pPrid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.changeprqty(integer, date) OWNER TO admin;
--
-- Name: changepseudofkeypointers(text, text, text, integer, text, text, integer, text, text, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION changepseudofkeypointers(text, text, text, integer, text, text, integer, text, text, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSchema ALIAS FOR $1;
pTable ALIAS FOR $2;
pFkeyCol ALIAS FOR $3;
pSourceId ALIAS FOR $4;
pBaseSchema ALIAS FOR $5;
pBaseTable ALIAS FOR $6;
pTargetId ALIAS FOR $7;
pTypeCol ALIAS FOR $8;
pType ALIAS FOR $9;
_purge BOOLEAN := COALESCE($10, FALSE);
_counter INTEGER := 0;
_coltype TEXT;
_pk TEXT[];
BEGIN
IF (NOT _purge) THEN
EXECUTE 'SELECT typname
FROM pg_type
JOIN pg_attribute ON (pg_type.oid=atttypid)
JOIN pg_class ON (attrelid=pg_class.oid)
JOIN pg_namespace ON (relnamespace=pg_namespace.oid)
WHERE (relname=' || quote_literal(pTable) || ')
AND (nspname=' || quote_literal(pSchema) || ')
AND (attname=' || quote_literal(pFkeyCol) || ')' INTO _coltype;
_pk := primaryKeyFields(pSchema, pTable);
IF (ARRAY_UPPER(_pk, 1) > 1) THEN
RAISE EXCEPTION 'Cannot change pseudo-foreign key references in %.% because it has a composite primary key. Try setting the purge option. [xtuple: changepseudofkeypointers, -1, %.%',
pSchema, pTable, pSchema, pTable;
END IF;
EXECUTE 'INSERT INTO mrgundo (
mrgundo_schema, mrgundo_table,
mrgundo_pkey_col, mrgundo_pkey_id,
mrgundo_col, mrgundo_value, mrgundo_type,
mrgundo_base_schema, mrgundo_base_table, mrgundo_base_id
) SELECT ' || quote_literal(pSchema) || ', '
|| quote_literal(pTable) || ', '
|| quote_literal(_pk[1]) || ', '
|| quote_ident(_pk[1]) || ', '
|| quote_literal(pFkeyCol) || ', '
|| quote_ident(pFkeyCol) || ', '
|| quote_literal(_coltype) || ', '
|| quote_literal(pBaseSchema) || ', '
|| quote_literal(pBaseTable) || ', '
|| pTargetId || '
FROM ' || quote_ident(pSchema) || '.' || quote_ident(pTable) || '
WHERE (('|| quote_ident(pFkeyCol) || '=' || pSourceId || ')
AND ('|| quote_ident(pTypeCol) || '=' || quote_literal(pType) || '));';
END IF;
-- actually change the foreign keys to point to the desired base table record
EXECUTE 'UPDATE ' || quote_ident(pSchema) || '.' || quote_ident(pTable) ||
' SET ' || quote_ident(pFkeyCol) || '=' || pTargetId ||
' WHERE ((' || quote_ident(pFkeyCol) || '=' || pSourceId || ')
AND (' || quote_ident(pTypeCol) || '=' || quote_literal(pType) || '));';
GET DIAGNOSTICS _counter = ROW_COUNT;
RETURN _counter;
END;
$_$;
ALTER FUNCTION public.changepseudofkeypointers(text, text, text, integer, text, text, integer, text, text, boolean) OWNER TO admin;
--
-- Name: FUNCTION changepseudofkeypointers(text, text, text, integer, text, text, integer, text, text, boolean); Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON FUNCTION changepseudofkeypointers(text, text, text, integer, text, text, integer, text, text, boolean) IS 'Change the data in pSchema.pTable with a pseudo-foreign key relationship to another (unnamed) table. Make pSchema.pTable point to the record with primary key pTargetId instead of the record with primary key pSourceId. pSchema.pTable cannot have a true foreign key relationship because it holds data that can point to any of several tables. The pType value in the pTypeCol column describes which table the data refer to (e.g. "T" may indicate that the current record refers to a "cntct"). If the final arg is TRUE, make a backup copy of the data in the mrgundo table.';
--
-- Name: changewodates(integer, date, date, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION changewodates(integer, date, date, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pDueDate ALIAS FOR $3;
changeChildren ALIAS FOR $4;
_p RECORD;
returnCode INTEGER;
_vtemp NUMERIC;
BEGIN
SELECT wo_status, wo_startdate, itemsite_warehous_id INTO _p
FROM wo
Inner Join itemsite on
wo_itemsite_id=itemsite_id
WHERE (wo_id=pWoid);
IF (_p.wo_status = 'C') THEN
returnCode := 0;
ELSIF (_p.wo_status IN ('R','I')) THEN
INSERT INTO evntlog (evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id, evntlog_number,
evntlog_olddate, evntlog_newdate)
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'W', wo_id, itemsite_warehous_id, formatWoNumber(wo_id),
wo_duedate, pDueDate
FROM evntnot, evnttype, itemsite, item, wo
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (evntnot_warehous_id=itemsite_warehous_id)
AND (wo_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (evnttype_name='RWoDueDateRequestChange')
AND (wo_id=pWoid) );
returnCode := 0;
END IF;
-- Reschedule operations if routings enabled
IF (fetchMetricBool('Routings')) THEN
-- Reschedule wooper
IF (fetchMetricBool('UseSiteCalendar')) THEN
UPDATE xtmfg.wooper
SET wooper_scheduled = calculatenextworkingdate(itemsite_warehous_id,DATE(pStartDate),
CAST(calculateworkdays(itemsite_warehous_id, DATE(wo_startdate), DATE(wooper_scheduled)) as INTEGER))
FROM wo JOIN itemsite ON (wo_itemsite_id=itemsite_id)
WHERE ( (wooper_wo_id=wo_id)
AND (wo_id=pWoid) );
ELSE
UPDATE xtmfg.wooper
SET wooper_scheduled = (wooper_scheduled::DATE + (pStartDate - wo_startdate))
FROM wo
WHERE ( (wooper_wo_id=wo_id)
AND (wo_id=pWoid) );
END IF;
-- Reschedule any womatl that is linked to wooper items
-- and is set to be scheduled with the wooper in question
UPDATE womatl
SET womatl_duedate=wooper_scheduled
FROM xtmfg.wooper
WHERE ( (womatl_schedatwooper)
AND (womatl_wooper_id=wooper_id)
AND (womatl_wo_id=pWoid) );
END IF;
-- Reschedule any womatl that is not linked to wooper items
UPDATE womatl
SET womatl_duedate=pStartDate
WHERE ( (NOT womatl_schedatwooper)
AND (womatl_wo_id=pWoid) );
-- Reschedule the W/O
UPDATE wo
SET wo_startdate=pStartDate,
wo_duedate=pDueDate
WHERE (wo_id=pWoid);
-- Do the same for the children
IF (changeChildren) THEN
SELECT MAX(changeWoDates(wo_id, (pStartDate - itemsite_leadtime), pStartDate, TRUE)) INTO returnCode
FROM wo, itemsite
WHERE ( (wo_itemsite_id=itemsite_id)
AND (wo_ordtype='W')
AND (wo_ordid=pWoid) );
END IF;
IF (returnCode IS NULL) THEN
returnCode := 0;
END IF;
RETURN returnCode;
END;
$_$;
ALTER FUNCTION public.changewodates(integer, date, date, boolean) OWNER TO admin;
--
-- Name: changewoproject(integer, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION changewoproject(integer, integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
pPrjid ALIAS FOR $2;
changeChildren ALIAS FOR $3;
woStatus CHAR(1);
_result INTEGER;
BEGIN
SELECT wo_status INTO woStatus
FROM wo
WHERE (wo_id=pWoid);
UPDATE wo
SET wo_prj_id=pPrjid
WHERE (wo_id=pWoid);
IF (woStatus = 'E' AND changeChildren) THEN
_result := ( SELECT MIN(changeWoProject(wo_id, pPrjid, TRUE))
FROM womatl, wo
WHERE ((womatl_itemsite_id=wo_itemsite_id)
AND (wo_ordtype='W')
AND (womatl_wo_id=pWoid)
AND (wo_ordid=pWoid)) );
UPDATE pr SET pr_prj_id=pPrjid
FROM womatl
WHERE ((womatl_wo_id=pWoid)
AND (pr_order_type='W')
AND (pr_order_id=womatl_id));
ELSE
_result = 1;
END IF;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.changewoproject(integer, integer, boolean) OWNER TO admin;
--
-- Name: changewoqty(integer, numeric, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION changewoqty(integer, numeric, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
pQty ALIAS FOR $2;
changeChildren ALIAS FOR $3;
_r RECORD;
_result INTEGER := 1;
BEGIN
SELECT wo_qtyord, wo_status, item_fractional INTO _r
FROM wo JOIN itemsite ON (itemsite_id=wo_itemsite_id)
JOIN item ON (item_id=itemsite_item_id)
WHERE (wo_id=pWoid);
IF (_r.wo_qtyord = pQty) THEN
RETURN 0;
END IF;
IF (NOT _r.wo_status IN ('O','E','R','I')) THEN
RETURN 1;
END IF;
IF (_r.wo_status IN ('R','I')) THEN
INSERT INTO evntlog (evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id, evntlog_number,
evntlog_oldvalue, evntlog_newvalue)
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'W', wo_id, itemsite_warehous_id, formatWoNumber(wo_id),
wo_qtyord, pQty
FROM evntnot, evnttype, itemsite, item, wo
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (evntnot_warehous_id=itemsite_warehous_id)
AND (wo_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (evnttype_name='RWoQtyRequestChange')
AND (wo_id=pWoid) );
_result = 0;
END IF;
UPDATE wo
SET wo_qtyord=roundQty(_r.item_fractional, pQty)
WHERE (wo_id=pWoid);
UPDATE womatl
SET womatl_qtyreq=(womatl_qtyfxd + wo_qtyord * womatl_qtyper) * (1 + womatl_scrap)
FROM wo, itemsite
WHERE ((womatl_wo_id=wo_id)
AND (womatl_itemsite_id=itemsite_id)
AND (wo_id=pWoid));
IF (fetchMetricBool('Routings')) THEN
UPDATE xtmfg.wooper
SET wooper_rntime = CASE WHEN ((booitem_rnqtyper = 0) OR (booitem_invproduomratio = 0)) THEN 0
WHEN (NOT booitem_rnrpt) THEN 0
ELSE ( ( booitem_rntime /
booitem_rnqtyper /
booitem_invproduomratio ) * wo_qtyord )
END
FROM xtmfg.booitem, wo
WHERE ((wooper_wo_id=wo_id)
AND (wooper_booitem_id=booitem_id)
AND (wo_id=pWoid));
END IF;
IF (changeChildren) THEN
_result := ( SELECT MIN(changeWoQty(wo_id, womatl_qtyreq, TRUE))
FROM womatl, wo
WHERE ((womatl_itemsite_id=wo_itemsite_id)
AND (wo_ordtype='W')
AND (womatl_wo_id=pWoid)
AND (wo_ordid=pWoid)) );
END IF;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.changewoqty(integer, numeric, boolean) OWNER TO admin;
--
-- Name: characteristicstostring(text, integer, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION characteristicstostring(text, integer, text, text) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTargetType ALIAS FOR $1;
pTargetId ALIAS FOR $2;
pValKeySep ALIAS FOR $3;
pPairSep ALIAS FOR $4;
_string TEXT := '';
_extra BOOLEAN := false;
_r RECORD;
BEGIN
FOR _r IN SELECT char_name, charass_value
FROM charass, char
WHERE ((charass_char_id=char_id)
AND (charass_target_type=pTargetType)
AND (charass_target_id=pTargetId)) LOOP
IF(_extra) THEN
_string := _string || pPairSep;
END IF;
_extra := true;
_string := _string || _r.char_name || pValKeySep || _r.charass_value;
END LOOP;
RETURN _string;
END;
$_$;
ALTER FUNCTION public.characteristicstostring(text, integer, text, text) OWNER TO admin;
--
-- Name: checkcreditmemositeprivs(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION checkcreditmemositeprivs(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCmheadid ALIAS FOR $1;
_check BOOLEAN;
_result INTEGER;
BEGIN
IF (NOT fetchMetricBool('MultiWhs')) THEN
RETURN true;
END IF;
IF (NOT fetchUsrPrefBool('selectedSites')) THEN
RETURN true;
END IF;
SELECT COALESCE(COUNT(*), 0) INTO _result
FROM ( SELECT cmitem_id
FROM cmitem JOIN itemsite ON (itemsite_id=cmitem_itemsite_id)
WHERE ( (cmitem_cmhead_id=pCmheadid)
AND (itemsite_warehous_id NOT IN (SELECT usrsite_warehous_id
FROM usrsite
WHERE (usrsite_username=getEffectiveXtUser()))) )
) AS data;
IF (_result > 0) THEN
RETURN false;
END IF;
RETURN true;
END;
$_$;
ALTER FUNCTION public.checkcreditmemositeprivs(integer) OWNER TO admin;
--
-- Name: checkdetailformatted(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION checkdetailformatted(integer, integer) RETURNS SETOF checkdata
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCheckheadid ALIAS FOR $1;
pMaxLines ALIAS FOR $2;
_row checkdata%ROWTYPE;
_checkhead RECORD;
_checkdetail RECORD;
_rowcount INTEGER := 0;
_page INTEGER := 1;
_docnumber TEXT := '';
_docreference TEXT := '';
_docdate TEXT := '';
_docamount TEXT := '';
_docdiscount TEXT := '';
_docnetamount TEXT := '';
BEGIN
-- Check header information
SELECT checkhead_number AS checknumber,
INITCAP(spellAmount(checkhead_amount, curr_id)) AS checkwords,
formatDate(checkhead_checkdate) AS checkdate,
formatMoney(checkhead_amount) AS checkamount,
curr_symbol AS checkcurrsymbol,
curr_abbr AS checkcurrabbr,
curr_name AS checkcurrname,
CASE WHEN checkhead_recip_type = 'C' THEN (SELECT cust_name
FROM custinfo
WHERE cust_id=checkhead_recip_id)
WHEN checkhead_recip_type = 'T' THEN (SELECT taxauth_name
FROM taxauth
WHERE taxauth_id=checkhead_recip_id)
WHEN checkhead_recip_type = 'V' THEN
COALESCE((SELECT vendaddr_name
FROM vendaddrinfo
WHERE((UPPER(vendaddr_code)='REMIT')
AND (vendaddr_vend_id=checkhead_recip_id))),
(SELECT vend_name
FROM vendinfo
WHERE(vend_id=checkhead_recip_id)))
END AS checkpayto,
formatAddr(CASE WHEN checkhead_recip_type = 'C' THEN
(SELECT cntct_addr_id
FROM cntct, custinfo
WHERE((cust_cntct_id=cntct_id)
AND (cust_id=checkhead_recip_id)))
WHEN checkhead_recip_type = 'T' THEN
(SELECT taxauth_addr_id
FROM taxauth
WHERE(taxauth_id=checkhead_recip_id))
WHEN checkhead_recip_type = 'V' THEN
COALESCE((SELECT vendaddr_addr_id
FROM vendaddrinfo
WHERE((UPPER(vendaddr_code)='REMIT')
AND (vendaddr_vend_id=checkhead_recip_id))),
(SELECT vend_addr_id
FROM vendinfo
WHERE(vend_id=checkhead_recip_id)))
END) AS checkaddress,
checkhead_for AS checkmemo
INTO _checkhead
FROM checkhead, curr_symbol
WHERE((checkhead_curr_id = curr_id)
AND (checkhead_id=pCheckheadid) );
IF (NOT FOUND) THEN
RETURN;
END IF;
_row.checkdata_page := _page;
_row.checkdata_checknumber := _checkhead.checknumber;
_row.checkdata_checkwords := _checkhead.checkwords;
_row.checkdata_checkdate := _checkhead.checkdate;
_row.checkdata_checkamount := _checkhead.checkamount;
_row.checkdata_checkcurrsymbol := _checkhead.checkcurrsymbol;
_row.checkdata_checkcurrabbr := _checkhead.checkcurrabbr;
_row.checkdata_checkcurrname := _checkhead.checkcurrname;
_row.checkdata_checkpayto := _checkhead.checkpayto;
_row.checkdata_checkaddress := _checkhead.checkaddress;
_row.checkdata_checkmemo := _checkhead.checkmemo;
-- Check item details
FOR _checkdetail IN
SELECT --VOUCHER-------------
1 AS ord,
1 AS sequence_value,
checkitem_invcnumber,
checkitem_ponumber,
formatMoney(checkitem_amount) AS docnetamount,
'Invoice#: ' || vohead_invcnumber AS docnumber,
formatDate(vohead_docdate) AS docdate,
vohead_reference AS docreference,
'Voucher: ' || checkitem_vouchernumber AS vouchernumber,
formatMoney(apopen_amount) AS docamount,
formatMoney(checkitem_discount) AS docdiscount
FROM checkitem, vohead, apopen
WHERE ((checkitem_checkhead_id=pCheckheadid)
AND (checkitem_vouchernumber = vohead_number)
AND (apopen_docnumber = checkitem_vouchernumber)
AND (apopen_doctype = 'V'))
UNION
SELECT --DEBIT MEMO -------------------------
2 AS ord,
1 AS sequence_value,
checkitem_invcnumber,
checkitem_ponumber,
formatMoney(checkitem_amount) AS f_amount,
'Debit Memo PO#: ' || checkitem_ponumber AS doc_number,
'' AS f_docdate,
'Debit Memo: ' || checkitem_vouchernumber AS doc_reference,
checkitem_vouchernumber AS vouchernumber,
formatMoney(apopen_amount) AS amount,
formatMoney(checkitem_discount) AS disc_cred
FROM checkitem, apopen
WHERE ((checkitem_checkhead_id=pCheckheadid)
AND (checkitem_vouchernumber = apopen_docnumber)
AND (apopen_doctype = 'D'))
UNION
SELECT --CREDITs--------------------------
3 AS ord,
1 AS sequence_value,
checkitem_invcnumber,
checkitem_ponumber,
formatMoney(checkitem_amount) AS f_amount,
'Invoice#: ' || vohead_invcnumber AS doc_number,
formatDate(vohead_docdate) AS f_docdate,
'Credit Applied: ' || apapply_source_doctype || ' ' ||
apapply_source_docnumber AS doc_reference,
'Voucher ' || checkitem_vouchernumber AS vouchernumber,
'' AS amount,
formatMoney((apapply_amount)) AS disc_cred
FROM checkitem, vohead, apapply
WHERE ((checkitem_checkhead_id=pCheckheadid)
AND (checkitem_vouchernumber = vohead_number)
AND (apapply_target_docnumber = checkitem_vouchernumber ))
UNION
SELECT --NON-VENDOR-----------------------
4 AS ord,
1 AS sequence_value,
checkitem_invcnumber,
checkitem_ponumber,
formatMoney(checkitem_amount) AS f_amount,
checkitem_invcnumber AS doc_number,
formatDate(checkitem_docdate) AS f_docdate,
'' AS doc_reference,
'' AS vouchernumber,
'' AS amount,
'' AS disc_cred
FROM checkhead LEFT OUTER JOIN
checkitem ON (checkitem_checkhead_id=checkhead_id)
WHERE ((checkhead_id=pCheckheadid)
AND (checkhead_recip_type != 'V')) LOOP
IF (_rowcount = pMaxLines) THEN
_row.checkdata_docnumber := _docnumber;
_row.checkdata_docreference := _docreference;
_row.checkdata_docdate := _docdate;
_row.checkdata_docamount := _docamount;
_row.checkdata_docdiscount := _docdiscount;
_row.checkdata_docnetamount := _docnetamount;
RETURN NEXT _row;
-- update/reset some variables
_rowcount = 0;
_page := _page + 1;
_docnumber := '';
_docreference := '';
_docdate := '';
_docamount := '';
_docdiscount := '';
_docnetamount := '';
_row.checkdata_page := _page;
_row.checkdata_checknumber := _checkhead.checknumber;
_row.checkdata_checkwords := 'VOID VOID PAGE '||_page||' OF CHECK #'||_checkhead.checknumber||' VOID VOID';
_row.checkdata_checkdate := 'VOID VOID VOID';
_row.checkdata_checkamount := 'VOID VOID VOID';
--_row.checkdata_checkcurrsymbol := _checkhead.checkcurrsymbol;
--_row.checkdata_checkcurrabbr := _checkhead.checkcurrabbr;
--_row.checkdata_checkcurrname := _checkhead.checkcurrname;
_row.checkdata_checkpayto := 'VOID VOID VOID';
--_row.checkdata_checkaddress := _checkhead.checkaddress;
_row.checkdata_checkmemo := 'VOID VOID PAGE '||_page||' OF CHECK #'||_checkhead.checknumber||' VOID VOID';
END IF;
_rowcount := _rowcount + 1;
_docnumber := _docnumber || _checkdetail.docnumber || E'\n';
_docreference := _docreference || _checkdetail.docreference || E'\n';
_docdate := _docdate || _checkdetail.docdate || E'\n';
_docamount := _docamount || _checkdetail.docamount || E'\n';
_docdiscount := _docdiscount || _checkdetail.docdiscount || E'\n';
_docnetamount := _docnetamount || _checkdetail.docnetamount || E'\n';
END LOOP;
_row.checkdata_docnumber := _docnumber;
_row.checkdata_docreference := _docreference;
_row.checkdata_docdate := _docdate;
_row.checkdata_docamount := _docamount;
_row.checkdata_docdiscount := _docdiscount;
_row.checkdata_docnetamount := _docnetamount;
RETURN NEXT _row;
RETURN;
END;
$_$;
ALTER FUNCTION public.checkdetailformatted(integer, integer) OWNER TO admin;
--
-- Name: checkinvoicesiteprivs(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION checkinvoicesiteprivs(integer) RETURNS boolean
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pInvcheadid ALIAS FOR $1;
_check BOOLEAN;
_result INTEGER;
BEGIN
IF (NOT fetchMetricBool('MultiWhs')) THEN
RETURN true;
END IF;
IF (NOT fetchUsrPrefBool('selectedSites')) THEN
RETURN true;
END IF;
SELECT COALESCE(COUNT(*), 0) INTO _result
FROM ( SELECT invcitem_id
FROM invcitem
WHERE ( (invcitem_invchead_id=pInvcheadid)
AND (invcitem_warehous_id <> -1)
AND (invcitem_warehous_id NOT IN (SELECT usrsite_warehous_id
FROM usrsite
WHERE (usrsite_username=getEffectiveXtUser()))) )
) AS data;
IF (_result > 0) THEN
RETURN false;
END IF;
RETURN true;
END;
$_$;
ALTER FUNCTION public.checkinvoicesiteprivs(integer) OWNER TO admin;
--
-- Name: checkpositeprivs(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION checkpositeprivs(integer) RETURNS boolean
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPoheadid ALIAS FOR $1;
_check BOOLEAN;
_result INTEGER;
BEGIN
IF (NOT fetchMetricBool('MultiWhs')) THEN
RETURN true;
END IF;
IF (NOT fetchUsrPrefBool('selectedSites')) THEN
RETURN true;
END IF;
SELECT COALESCE(COUNT(*), 0) INTO _result
FROM ( SELECT poitem_id
FROM poitem, itemsite
WHERE ( (poitem_pohead_id=pPoheadid)
AND (poitem_itemsite_id=itemsite_id)
AND (itemsite_warehous_id NOT IN (SELECT usrsite_warehous_id
FROM usrsite
WHERE (usrsite_username=getEffectiveXtUser()))) )
UNION
SELECT pohead_warehous_id
FROM pohead
WHERE ( (pohead_id=pPoheadid)
AND (pohead_warehous_id NOT IN (SELECT usrsite_warehous_id
FROM usrsite
WHERE (usrsite_username=getEffectiveXtUser()))) )
) AS data;
IF (_result > 0) THEN
RETURN false;
END IF;
RETURN true;
END;
$_$;
ALTER FUNCTION public.checkpositeprivs(integer) OWNER TO admin;
--
-- Name: checkprivilege(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION checkprivilege(text) RETURNS boolean
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPrivilege ALIAS FOR $1;
_result TEXT;
BEGIN
SELECT priv_id INTO _result
FROM priv, grppriv, usrgrp
WHERE((usrgrp_grp_id=grppriv_grp_id)
AND (grppriv_priv_id=priv_id)
AND (priv_name=pPrivilege)
AND (usrgrp_username=getEffectiveXtUser()));
IF (FOUND) THEN
RETURN true;
END IF;
SELECT priv_id INTO _result
FROM priv, usrpriv
WHERE ((priv_id=usrpriv_priv_id)
AND (priv_name=pPrivilege)
AND (usrpriv_username=getEffectiveXtUser()));
IF (FOUND) THEN
RETURN true;
ELSE
RETURN false;
END IF;
END;
$_$;
ALTER FUNCTION public.checkprivilege(text) OWNER TO admin;
--
-- Name: checkquotesiteprivs(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION checkquotesiteprivs(integer) RETURNS boolean
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pQuheadid ALIAS FOR $1;
BEGIN
RETURN checkQuoteSitePrivs(pQuheadid, NULL);
END;
$_$;
ALTER FUNCTION public.checkquotesiteprivs(integer) OWNER TO admin;
--
-- Name: checkquotesiteprivs(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION checkquotesiteprivs(integer, integer) RETURNS boolean
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pQuheadid ALIAS FOR $1;
pWarehousid ALIAS FOR $2;
_result INTEGER := 0;
BEGIN
-- RAISE NOTICE 'checkQuoteSitePrivs, pQuheadid = %', pQuheadid;
-- RAISE NOTICE 'checkQuoteSitePrivs, pWarehousid = %', pWarehousid;
IF (NOT fetchMetricBool('MultiWhs')) THEN
RETURN true;
END IF;
IF ( (NOT fetchUsrPrefBool('selectedSites')) AND (pWarehousid IS NULL) ) THEN
RETURN true;
END IF;
IF (pWarehousid IS NULL) THEN
SELECT COALESCE(COUNT(*), 0) INTO _result
FROM quitem JOIN itemsite ON (itemsite_id=quitem_itemsite_id)
JOIN site() ON (warehous_id=itemsite_warehous_id)
WHERE (quitem_quhead_id=pQuheadid);
ELSE
SELECT COALESCE(COUNT(*), 0) INTO _result
FROM quitem JOIN itemsite ON (itemsite_id=quitem_itemsite_id)
JOIN site() ON (warehous_id=itemsite_warehous_id)
WHERE ( (quitem_quhead_id=pQuheadid)
AND (itemsite_warehous_id=pWarehousid) );
END IF;
IF (_result > 0) THEN
RETURN true;
END IF;
RETURN false;
END;
$_$;
ALTER FUNCTION public.checkquotesiteprivs(integer, integer) OWNER TO admin;
--
-- Name: checkrasiteprivs(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION checkrasiteprivs(integer) RETURNS boolean
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pRaheadid ALIAS FOR $1;
_check BOOLEAN;
_result INTEGER;
BEGIN
IF (NOT fetchMetricBool('MultiWhs')) THEN
RETURN true;
END IF;
IF (NOT fetchUsrPrefBool('selectedSites')) THEN
RETURN true;
END IF;
SELECT COALESCE(COUNT(*), 0) INTO _result
FROM ( SELECT raitem_id
FROM raitem, itemsite
WHERE ( (raitem_rahead_id=pRaheadid)
AND (raitem_itemsite_id=itemsite_id)
AND (itemsite_warehous_id NOT IN (SELECT usrsite_warehous_id
FROM usrsite
WHERE (usrsite_username=getEffectiveXtUser()))) )
UNION
SELECT raitem_id
FROM raitem, itemsite
WHERE ( (raitem_rahead_id=pRaheadid)
AND (raitem_coitem_itemsite_id=itemsite_id)
AND (itemsite_warehous_id NOT IN (SELECT usrsite_warehous_id
FROM usrsite
WHERE (usrsite_username=getEffectiveXtUser()))) )
) AS data;
IF (_result > 0) THEN
RETURN false;
END IF;
RETURN true;
END;
$_$;
ALTER FUNCTION public.checkrasiteprivs(integer) OWNER TO admin;
--
-- Name: checkshipmentsiteprivs(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION checkshipmentsiteprivs(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pShipheadid ALIAS FOR $1;
_check BOOLEAN;
_result INTEGER;
BEGIN
IF (NOT fetchMetricBool('MultiWhs')) THEN
RETURN true;
END IF;
IF (NOT fetchUsrPrefBool('selectedSites')) THEN
RETURN true;
END IF;
SELECT COALESCE(COUNT(*), 0) INTO _result
FROM ( SELECT coitem_id
FROM shipitem, coitem, itemsite
WHERE ( (shipitem_shiphead_id=pShipheadid)
AND (coitem_id=shipitem_orderitem_id)
AND (coitem_itemsite_id=itemsite_id)
AND (itemsite_warehous_id NOT IN (SELECT usrsite_warehous_id
FROM usrsite
WHERE (usrsite_username=getEffectiveXtUser()))) )
UNION
SELECT cohead_warehous_id
FROM shipitem, coitem, cohead
WHERE ( (shipitem_shiphead_id=pShipheadid)
AND (coitem_id=shipitem_orderitem_id)
AND (cohead_id=coitem_cohead_id)
AND (cohead_warehous_id NOT IN (SELECT usrsite_warehous_id
FROM usrsite
WHERE (usrsite_username=getEffectiveXtUser()))) )
) AS data;
IF (_result > 0) THEN
RETURN false;
END IF;
RETURN true;
END;
$_$;
ALTER FUNCTION public.checkshipmentsiteprivs(integer) OWNER TO admin;
--
-- Name: checksositeprivs(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION checksositeprivs(integer) RETURNS boolean
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoheadid ALIAS FOR $1;
_check BOOLEAN;
_result INTEGER;
BEGIN
IF (NOT fetchMetricBool('MultiWhs')) THEN
RETURN true;
END IF;
IF (NOT fetchUsrPrefBool('selectedSites')) THEN
RETURN true;
END IF;
SELECT COALESCE(COUNT(*), 0) INTO _result
FROM ( SELECT coitem_id
FROM coitem, itemsite
WHERE ( (coitem_cohead_id=pSoheadid)
AND (coitem_itemsite_id=itemsite_id)
AND (itemsite_warehous_id NOT IN (SELECT usrsite_warehous_id
FROM usrsite
WHERE (usrsite_username=getEffectiveXtUser()))) )
UNION
SELECT cohead_warehous_id
FROM cohead
WHERE ( (cohead_id=pSoheadid)
AND (cohead_warehous_id NOT IN (SELECT usrsite_warehous_id
FROM usrsite
WHERE (usrsite_username=getEffectiveXtUser()))) )
) AS data;
IF (_result > 0) THEN
RETURN false;
END IF;
RETURN true;
END;
$_$;
ALTER FUNCTION public.checksositeprivs(integer) OWNER TO admin;
--
-- Name: checkvouchersiteprivs(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION checkvouchersiteprivs(integer) RETURNS boolean
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVoheadid ALIAS FOR $1;
_check BOOLEAN;
_result INTEGER;
BEGIN
IF (NOT fetchMetricBool('MultiWhs')) THEN
RETURN true;
END IF;
IF (NOT fetchUsrPrefBool('selectedSites')) THEN
RETURN true;
END IF;
SELECT COALESCE(COUNT(*), 0) INTO _result
FROM ( SELECT voitem_id
FROM voitem, poitem, itemsite
WHERE ( (voitem_vohead_id=pVoheadid)
AND (poitem_id=voitem_poitem_id)
AND (poitem_itemsite_id=itemsite_id)
AND (itemsite_warehous_id NOT IN (SELECT usrsite_warehous_id
FROM usrsite
WHERE (usrsite_username=getEffectiveXtUser()))) )
UNION
SELECT pohead_warehous_id
FROM vohead, pohead
WHERE ( (vohead_id=pVoheadid)
AND (pohead_id=vohead_pohead_id)
AND (pohead_warehous_id NOT IN (SELECT usrsite_warehous_id
FROM usrsite
WHERE (usrsite_username=getEffectiveXtUser()))) )
) AS data;
IF (_result > 0) THEN
RETURN false;
END IF;
RETURN true;
END;
$_$;
ALTER FUNCTION public.checkvouchersiteprivs(integer) OWNER TO admin;
--
-- Name: clearnumberissue(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION clearnumberissue(psequence text, pnumber integer) RETURNS boolean
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
__seqiss seqiss[];
__newiss seqiss[] := ARRAY[]::seqiss[];
_i INTEGER;
_result BOOLEAN := FALSE;
_interval TEXT := fetchMetricText('NumberIssueResetIntervalDays') || ' day';
_number INTEGER;
BEGIN
-- get the sequence to update
SELECT orderseq_seqiss INTO __seqiss
FROM orderseq
WHERE (orderseq_name=psequence);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Invalid orderseq_name %', psequence;
END IF;
IF(ARRAY_LENGTH(COALESCE(__seqiss,__newiss),1) IS NULL) THEN
RETURN FALSE;
END IF;
-- build a new array sans the number we are releasing
FOR _i IN 1..ARRAY_LENGTH(__seqiss,1)
LOOP
IF((__seqiss[_i]).seqiss_number = pnumber) THEN
_result = TRUE;
-- don't bother re-adding stale numbers
ELSIF (now() - _interval::INTERVAL > (__seqiss[_i]).seqiss_time) THEN
IF (_number IS NULL) THEN
_number := (__seqiss[_i]).seqiss_number;
ELSE
_number := LEAST((__seqiss[_i]).seqiss_number, _number);
END IF;
ELSE
__newiss := __newiss || __seqiss[_i];
END IF;
END LOOP;
-- update the order sequence with the result
UPDATE orderseq SET
orderseq_seqiss = __newiss
WHERE (orderseq_name=psequence);
-- reset to any cleared stale number
IF(_number IS NOT NULL) THEN
UPDATE orderseq SET
orderseq_number = _number
WHERE (orderseq_name=psequence);
END IF;
RETURN _result;
END;
$$;
ALTER FUNCTION public.clearnumberissue(psequence text, pnumber integer) OWNER TO admin;
--
-- Name: clearnumberissue(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION clearnumberissue(psequence text, pnumber text) RETURNS boolean
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_castpnumber INTEGER;
BEGIN
-- for now, order numbers in the database are text but usually
-- string representations of integers. allow for the occasional non-integer.
BEGIN
_castpnumber := CAST(pnumber AS INTEGER);
EXCEPTION WHEN cannot_coerce OR
invalid_text_representation
THEN
RAISE DEBUG 'clearNumberIssue(%, %) received an unexpected pnumber',
psequence, pnumber;
RETURN FALSE;
END;
RETURN clearNumberIssue(psequence, _castpnumber);
END;
$$;
ALTER FUNCTION public.clearnumberissue(psequence text, pnumber text) OWNER TO admin;
--
-- Name: clearpayment(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION clearpayment(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pApselectid ALIAS FOR $1;
BEGIN
DELETE FROM apselect
WHERE (apselect_id=pApselectid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.clearpayment(integer) OWNER TO admin;
--
-- Name: closeaccountingperiod(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION closeaccountingperiod(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPeriodid ALIAS FOR $1;
_r RECORD;
_nextPeriodid INTEGER;
_trialbalid INTEGER;
_ending NUMERIC;
_currYear INTEGER;
_nextYear INTEGER;
BEGIN
-- Bypass error checking is this the the initial period
IF ( NOT ( SELECT period_initial
FROM period
WHERE (period_id=pPeriodid) ) ) THEN
-- Check to make use that the period is not already closed
IF ( ( SELECT period_closed
FROM period
WHERE (period_id=pPeriodid) ) ) THEN
RETURN -1;
END IF;
-- Make sure that the day before this period belongs to another period
SELECT prev.period_id AS periodid, prev.period_closed AS closed INTO _r
FROM period AS prev, period AS curr
WHERE ( (prev.period_end = (curr.period_start - 1))
AND (curr.period_id=pPeriodid) );
IF (NOT FOUND) THEN
RETURN -2;
END IF;
-- Make sure that the previous period is closed
IF (NOT _r.closed) THEN
RETURN -3;
END IF;
END IF;
-- Make sure that there the next period is defined
SELECT next.period_id INTO _nextPeriodid
FROM period AS next, period AS curr
WHERE ( (next.period_start = (curr.period_end + 1))
AND (curr.period_id=pPeriodid) );
IF (NOT FOUND) THEN
RETURN -4;
END IF;
-- Make sure that the user is not trying to prematurely close the Period
IF ( ( SELECT (period_end >= CURRENT_DATE)
FROM period
WHERE (period_id=pPeriodid) ) ) THEN
RETURN -5;
END IF;
SELECT yearperiod_id INTO _currYear
FROM yearperiod, period
WHERE ((period_end BETWEEN yearperiod_start and yearperiod_end)
AND (period_id=pPeriodid));
IF (NOT FOUND) THEN
_currYear := -1;
END IF;
SELECT yearperiod_id INTO _nextYear
FROM yearperiod, period
WHERE ((period_end BETWEEN yearperiod_start and yearperiod_end)
AND (period_id=_nextPeriodid));
IF (NOT FOUND) THEN
RETURN -6;
END IF;
-- Walk through the entire COA, calculating the ending balance and pushing
-- it to the beginning balance for the next period
FOR _r IN SELECT accnt_id, accnt_type IN ('E', 'R') AS revexp,
trialbal_id, trialbal_beginning,
trialbal_credits, trialbal_debits
FROM accnt LEFT OUTER JOIN trialbal ON ( (trialbal_accnt_id=accnt_id) AND (trialbal_period_id=pPeriodid) )
ORDER BY accnt_id LOOP
IF (_r.trialbal_id IS NULL) THEN
_ending = 0;
INSERT INTO trialbal
( trialbal_period_id, trialbal_accnt_id,
trialbal_beginning, trialbal_ending, trialbal_dirty,
trialbal_credits, trialbal_debits )
VALUES
( pPeriodid, _r.accnt_id,
0, 0, FALSE,
0, 0 );
ELSE
_ending = (_r.trialbal_beginning - _r.trialbal_debits + _r.trialbal_credits);
UPDATE trialbal
SET trialbal_ending=_ending,
trialbal_dirty = FALSE
WHERE (trialbal_id=_r.trialbal_id);
PERFORM forwardUpdateTrialBalance(_r.trialbal_id);
END IF;
IF (_r.revexp AND _currYear != _nextYear) THEN
_ending := 0;
END IF;
-- Find the trialbal record for the next period
SELECT trialbal_id INTO _trialbalid
FROM trialbal
WHERE ( (trialbal_period_id=_nextPeriodid)
AND (trialbal_accnt_id=_r.accnt_id) );
IF (FOUND) THEN
UPDATE trialbal
SET trialbal_beginning = (_ending + trialbal_yearend),
trialbal_ending = (_ending + trialbal_yearend - trialbal_debits + trialbal_credits)
WHERE (trialbal_id=_trialbalid);
ELSE
INSERT INTO trialbal
( trialbal_period_id, trialbal_accnt_id,
trialbal_beginning, trialbal_ending, trialbal_dirty,
trialbal_credits, trialbal_debits )
VALUES(_nextPeriodid, _r.accnt_id,
_ending, _ending, TRUE,
0, 0 );
END IF;
END LOOP;
-- Set the period_closed flag
UPDATE period
SET period_closed=TRUE
WHERE (period_id=pPeriodid);
RETURN pPeriodid;
END;
$_$;
ALTER FUNCTION public.closeaccountingperiod(integer) OWNER TO admin;
--
-- Name: closeaccountingyearperiod(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION closeaccountingyearperiod(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pYearPeriodid ALIAS FOR $1;
_result INTEGER;
BEGIN
-- Check to make sure that the yearperiod is not already closed
IF ( ( SELECT yearperiod_closed
FROM yearperiod
WHERE (yearperiod_id=pYearPeriodid) ) ) THEN
RETURN -1;
END IF;
IF ( ( SELECT (count(period_id) > 0)
FROM period
WHERE ((period_yearperiod_id=pYearPeriodid)
AND (NOT period_closed)) ) ) THEN
RETURN -10;
END IF;
IF ( ( SELECT (count(yearperiod_id) > 0)
FROM yearperiod
WHERE ((yearperiod_end< (
SELECT yearperiod_end
FROM yearperiod
WHERE (yearperiod_id=pYearPeriodId))
)
AND (NOT yearperiod_closed)) ) ) THEN
RETURN -11;
END IF;
-- Should we check for a previous yearperiod existing already ?
-- If so then we should return -2 if one does not.
-- If we did the previous yearperiod we should check to make sure that
-- it is also closed. Returning -3 if it is not.
-- Make sure that the user is not trying to prematurely close the YearPeriod
IF ( ( SELECT (yearperiod_end >= CURRENT_DATE)
FROM yearperiod
WHERE (yearperiod_id=pYearPeriodid) ) ) THEN
RETURN -5;
END IF;
-- Update the year end Retained Earnings
SELECT updateRetainedEarnings(pYearPeriodid) INTO _result;
IF (_result < 0) THEN
RETURN _result;
END IF;
UPDATE yearperiod
SET yearperiod_closed = TRUE
WHERE yearperiod_id = pYearPeriodid;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.closeaccountingyearperiod(integer) OWNER TO admin;
--
-- Name: closepo(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION closepo(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPoheadid ALIAS FOR $1;
BEGIN
UPDATE poitem
SET poitem_status='C'
WHERE (poitem_pohead_id=pPoheadid);
-- _poitemTrigger will close pohead when the last poitem is closed
-- UPDATE pohead
-- SET pohead_status='C'
-- WHERE (pohead_id=pPoheadid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.closepo(integer) OWNER TO admin;
--
-- Name: closewo(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION closewo(integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
pPostMaterialVariances ALIAS FOR $2;
BEGIN
RETURN closeWo(pWoid, pPostMaterialVariances, CURRENT_DATE);
END;
$_$;
ALTER FUNCTION public.closewo(integer, boolean) OWNER TO admin;
--
-- Name: closewo(integer, boolean, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION closewo(integer, boolean, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
pPostMaterialVariances ALIAS FOR $2;
pTransDate ALIAS FOR $3;
_woNumber TEXT;
_check CHAR;
_itemlocSeries INTEGER := 0;
BEGIN
--If this is item type Job then we cannot close here
SELECT itemsite_costmethod INTO _check
FROM wo,itemsite
WHERE ((wo_id=pWoid)
AND (wo_itemsite_id=itemsite_id)
AND (itemsite_costmethod = 'J'));
IF (FOUND) THEN
RAISE EXCEPTION 'Work orders for Job items are closed when all quantities are shipped';
END IF;
SELECT formatWoNumber(pWoid) INTO _woNumber;
-- If there are any tools issued on this job then we cannot close here
IF ( SELECT (count(*) > 0)
FROM womatl
JOIN itemsite ON (womatl_itemsite_id=itemsite_id)
JOIN item ON ((itemsite_item_id=item_id) AND (item_type='T'))
WHERE ((womatl_wo_id=pWoid)
AND (womatl_qtyiss > 0)) ) THEN
RAISE EXCEPTION 'All Tools must be returned before the W/O can be closed';
END IF;
-- Distribute any remaining wo_wipvalue to G/L - debit Inventory Cost, credit WIP
PERFORM insertGLTransaction( 'W/O', 'WO', _woNumber, ('Manufacturing Inventory Cost Variance for ' || item_number),
getPrjAccntId(wo_prj_id, costcat_wip_accnt_id),
getPrjAccntId(wo_prj_id, costcat_invcost_accnt_id), -1,
COALESCE(wo_wipvalue, 0), pTransDate )
FROM wo, itemsite, item, costcat
WHERE ( (wo_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (itemsite_costcat_id=costcat_id)
AND (wo_id=pWoid) );
-- Distribute any remaining wo_brdvalue to G/L - debit Inventory Cost, credit WIP
PERFORM insertGLTransaction( 'W/O', 'WO', _woNumber, ('Breeder Inventory Cost Variance for ' || item_number),
getPrjAccntId(wo_prj_id, costcat_wip_accnt_id),
CASE WHEN(itemsite_costmethod='A') THEN costcat_asset_accnt_id
ELSE getPrjAccntId(wo_prj_id, costcat_invcost_accnt_id)
END,
-1,
COALESCE(wo_brdvalue, 0), pTransDate )
FROM wo, itemsite, item, costcat
WHERE ( (wo_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (itemsite_costcat_id=costcat_id)
AND (wo_id=pWoid) );
-- Don't bother with posting variances if the qtyrcv is 0 as
-- they are meaningless.
IF ( ( SELECT wo_qtyrcv
FROM wo
WHERE (wo_id=pWoid) ) > 0 ) THEN
IF (pPostMaterialVariances) THEN
-- Post womatl variances
INSERT INTO womatlvar ( womatlvar_number, womatlvar_subnumber, womatlvar_posted,
womatlvar_parent_itemsite_id, womatlvar_component_itemsite_id,
womatlvar_qtyord, womatlvar_qtyrcv,
womatlvar_qtyiss, womatlvar_qtyfxd, womatlvar_qtyper,
womatlvar_scrap, womatlvar_wipscrap, womatlvar_bomitem_id,
womatlvar_notes, womatlvar_ref )
SELECT wo_number, wo_subnumber, pTransDate,
wo_itemsite_id, womatl_itemsite_id,
wo_qtyord, wo_qtyrcv,
itemuomtouom(itemsite_item_id, womatl_uom_id, NULL, womatl_qtyiss),
itemuomtouom(itemsite_item_id, womatl_uom_id, NULL, womatl_qtyfxd),
itemuomtouom(itemsite_item_id, womatl_uom_id, NULL, womatl_qtyper),
womatl_scrap,
itemuomtouom(itemsite_item_id, womatl_uom_id, NULL, womatl_qtywipscrap),
womatl_bomitem_id,
womatl_notes, womatl_ref
FROM wo, womatl, itemsite, item
WHERE ((womatl_wo_id=wo_id)
AND (womatl_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (item_type <> 'T')
AND (wo_id=pWoid));
END IF;
END IF;
-- Delete any P/R's created for this W/O
PERFORM deletePr('W', womatl_id)
FROM womatl
WHERE (womatl_wo_id=pWoid);
UPDATE wo
SET wo_wipvalue = 0, wo_brdvalue=0,
wo_status='C'
WHERE (wo_id=pWoid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.closewo(integer, boolean, date) OWNER TO admin;
--
-- Name: cntct; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cntct (
cntct_id integer NOT NULL,
cntct_crmacct_id integer,
cntct_addr_id integer,
cntct_first_name text,
cntct_last_name text,
cntct_honorific text,
cntct_initials text,
cntct_active boolean DEFAULT true,
cntct_phone text,
cntct_phone2 text,
cntct_fax text,
cntct_email text,
cntct_webaddr text,
cntct_notes text,
cntct_title text,
cntct_number text NOT NULL,
cntct_middle text,
cntct_suffix text,
cntct_owner_username text,
cntct_name text
);
ALTER TABLE public.cntct OWNER TO admin;
--
-- Name: TABLE cntct; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE cntct IS 'Contact - information on how to reach a living person';
--
-- Name: cntct(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION cntct() RETURNS SETOF cntct
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_row cntct%ROWTYPE;
_priv TEXT;
_grant BOOLEAN;
BEGIN
-- This query will give us the most permissive privilege the user has been granted
SELECT privilege, granted INTO _priv, _grant
FROM privgranted
WHERE privilege IN ('MaintainAllContacts','ViewAllContacts','MaintainPersonalContacts','ViewPersonalContacts')
ORDER BY granted DESC, sequence
LIMIT 1;
-- If have an 'All' privilege return all results
IF (_priv ~ 'All' AND _grant) THEN
FOR _row IN
SELECT * FROM cntct
LOOP
RETURN NEXT _row;
END LOOP;
-- Otherwise if have any other grant, must be personal privilege.
ELSIF (_grant) THEN
FOR _row IN
SELECT * FROM cntct
WHERE cntct_owner_username = getEffectiveXtUser()
LOOP
RETURN NEXT _row;
END LOOP;
END IF;
RETURN;
END;
$$;
ALTER FUNCTION public.cntct() OWNER TO admin;
--
-- Name: FUNCTION cntct(); Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON FUNCTION cntct() IS 'A table function that returns Contact results according to privilege settings.';
--
-- Name: cntctdups(text, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION cntctdups(text, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean) RETURNS SETOF cntctdup
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSearchText ALIAS FOR $1;
pSearchContactName ALIAS FOR $2;
pSearchPhone ALIAS FOR $3;
pSearchEmail ALIAS FOR $4;
pSearchNumber ALIAS FOR $5;
pSearchName ALIAS FOR $6;
pShowInactive ALIAS FOR $7;
pIgnoreBlanks ALIAS FOR $8;
pIndentedDups ALIAS FOR $9;
pCheckHnfc ALIAS FOR $10;
pCheckFirst ALIAS FOR $11;
pCheckMiddle ALIAS FOR $12;
pCheckLast ALIAS FOR $13;
pCheckSuffix ALIAS FOR $14;
pCheckPhone ALIAS FOR $15;
pCheckEmail ALIAS FOR $16;
_cntct cntctdup%ROWTYPE;
_cntctdup cntctdup%ROWTYPE;
_rec RECORD;
_operator TEXT := '';
_clause TEXT;
_qry TEXT := '';
_return BOOLEAN := true;
_text TEXT;
_first BOOLEAN := true;
BEGIN
-- Validate
IF (pIndentedDups AND NOT pCheckHnfc AND NOT pCheckFirst AND NOT pCheckMiddle AND
NOT pCheckLast AND NOT pCheckSuffix AND NOT pCheckEmail AND NOT pCheckPhone) THEN
RETURN;
END IF;
_text = quote_literal(pSearchText);
IF (pIndentedDups) THEN
_qry := 'SELECT
-1 AS cntct_id,
-1 AS cntct_crmacct_id,
-1 AS cntct_addr_id,';
IF (NOT pCheckFirst) THEN
_qry := _qry || ''''' AS ';
END IF;
_qry := _qry || ' cntct_first_name,';
IF (NOT pCheckLast) THEN
_qry := _qry || ''''' AS ';
END IF;
_qry := _qry || ' cntct_last_name,';
IF (NOT pCheckHnfc) THEN
_qry := _qry || ''''' AS ';
END IF;
_qry := _qry || ' cntct_honorific,';
_qry := _qry || ' '''' AS cntct_initials,';
_qry := _qry || ' NULL AS cntct_active,';
IF (NOT pCheckPhone) THEN
_qry := _qry || ''''' AS ';
END IF;
_qry := _qry || ' cntct_phone,';
IF (NOT pCheckPhone) THEN
_qry := _qry || ''''' AS ';
END IF;
_qry := _qry || ' cntct_phone2,';
_qry := _qry || ' '''' AS cntct_fax,';
IF (NOT pCheckEmail) THEN
_qry := _qry || ''''' AS ';
END IF;
_qry := _qry || ' cntct_email,';
_qry := _qry || ' '''' AS cntct_webaddr,';
_qry := _qry || ' '''' AS cntct_notes,';
_qry := _qry || ' '''' AS cntct_title,';
_qry := _qry || ' '''' AS cntct_number,';
IF (NOT pCheckMiddle) THEN
_qry := _qry || ''''' AS ';
END IF;
_qry := _qry || ' cntct_middle,';
IF (NOT pCheckSuffix) THEN
_qry := _qry || ''''' AS ';
END IF;
_qry := _qry || ' cntct_suffix,';
_qry := _qry || ' '''' AS cntct_owner_username,';
_qry := _qry || ' '''' AS cntct_name,';
_qry := _qry || ' '''' AS crmacct_number, ';
_qry := _qry || ' '''' AS crmacct_name, ';
_qry := _qry || ' NULL AS addr_id,
NULL AS addr_active,
'''' AS addr_line1,
'''' AS addr_line2,
'''' AS addr_line3,
'''' AS addr_city,
'''' AS addr_state,
'''' AS addr_postalcode,
'''' AS addr_country,
'''' AS addr_notes,
'''' AS addr_number,
cntctdup_level FROM (';
END IF;
_clause := 'SELECT
cntct_id,
cntct_crmacct_id,
cntct_addr_id,
UPPER(cntct_first_name) AS cntct_first_name,
UPPER(cntct_last_name) AS cntct_last_name,
UPPER(cntct_honorific) AS cntct_honorific,
cntct_initials,
cntct_active,
cntct_phone,
cntct_phone2,
cntct_fax,
UPPER(cntct_email) AS cntct_email,
cntct_webaddr,
cntct_notes,
cntct_title,
cntct_number,
UPPER(cntct_middle) AS cntct_middle,
UPPER(cntct_suffix) AS cntct_suffix,
cntct_owner_username,
cntct_name,
crmacct_number,
crmacct_name,
addr.*,
0 AS cntctdup_level
FROM cntct()
LEFT OUTER JOIN crmacct ON (cntct_crmacct_id=crmacct_id)
LEFT OUTER JOIN addr ON (cntct_addr_id=addr_id)
WHERE ';
IF (NOT pIndentedDups) THEN
WHILE position('UPPER' in _clause) > 0
LOOP
_clause := regexp_replace(_clause, 'UPPER', '');
END LOOP;
END IF;
_qry := _qry || _clause;
IF (NOT pShowInactive) THEN
_qry := _qry || ' cntct_active AND ';
END IF;
IF (pIgnoreBlanks) THEN
_qry := _qry || ' (COALESCE(LENGTH(cntct_first_name || cntct_last_name),0) > 0) AND ';
END IF;
_qry := _qry || '(false ';
IF (pSearchNumber) THEN
_qry := _qry || ' OR (crmacct_number ~* ' || quote_literal(pSearchText) || ') ';
END IF;
IF (pSearchName) THEN
_qry := _qry || ' OR (crmacct_name ~* ' || quote_literal(pSearchText) || ') ';
END IF;
IF (pSearchContactName) THEN
_qry := _qry || ' OR (cntct_first_name || '' '' || cntct_last_name ~* ' || quote_literal(pSearchText) || ') ';
END IF;
IF (pSearchPhone) THEN
_qry := _qry || ' OR (cntct_phone || '' '' || cntct_phone2 || '' '' || cntct_fax ~* ' || quote_literal(pSearchText) || ') ';
END IF;
IF (pSearchEmail) THEN
_qry := _qry || ' OR (cntct_email ~* ' || quote_literal(pSearchText) || ') ';
END IF;
_qry := _qry || ' ) ';
IF (pIndentedDups) THEN
_qry := _qry || ') data';
_clause := ' GROUP BY cntctdup_level';
IF (pCheckHnfc) THEN
_clause := _clause || ',cntct_honorific';
END IF;
IF (pCheckFirst) THEN
_clause := _clause || ',cntct_first_name';
END IF;
IF (pCheckMiddle) THEN
_clause := _clause || ',cntct_middle';
END IF;
IF (pCheckLast) THEN
_clause := _clause || ',cntct_last_name';
END IF;
IF (pCheckSuffix) THEN
_clause := _clause || ',cntct_suffix';
END IF;
IF (pCheckEmail) THEN
_clause := _clause || ',cntct_email';
END IF;
IF (pCheckPhone) THEN
_clause := _clause || ',cntct_phone';
_clause := _clause || ',cntct_phone2';
END IF;
_qry := _qry || _clause;
_clause := ' HAVING(';
IF (pCheckHnfc) THEN
_clause := _clause || 'OR COUNT(cntct_honorific) > 1 ';
END IF;
IF (pCheckFirst) THEN
_clause := _clause || 'OR COUNT(cntct_first_name) > 1 ';
END IF;
IF (pCheckMiddle) THEN
_clause := _clause || 'OR COUNT(cntct_middle) > 1 ';
END IF;
IF (pCheckLast) THEN
_clause := _clause || 'OR COUNT(cntct_last_name) > 1 ';
END IF;
IF (pCheckSuffix) THEN
_clause := _clause || 'OR COUNT(cntct_suffix) > 1 ';
END IF;
IF (pCheckEmail) THEN
_clause := _clause || 'OR COUNT(cntct_email) > 1 ';
END IF;
IF (pCheckPhone) THEN
_clause := _clause || 'OR (COUNT(cntct_phone) > 1 AND LENGTH(cntct_phone) > 0) ';
_clause := _clause || 'OR (COUNT(cntct_phone2) > 1 AND LENGTH(cntct_phone2) > 0) ';
END IF;
_clause := _clause || ') ';
_clause := overlay(_clause placing '' from 9 for 2);
IF (pCheckHnfc) THEN
_clause := _clause || 'AND LENGTH(cntct_honorific) > 0 ';
END IF;
IF (pCheckFirst) THEN
_clause := _clause || 'AND LENGTH(cntct_first_name) > 0 ';
END IF;
IF (pCheckMiddle) THEN
_clause := _clause || 'AND LENGTH(cntct_middle) > 0 ';
END IF;
IF (pCheckLast) THEN
_clause := _clause || 'AND LENGTH(cntct_last_name) > 0 ';
END IF;
IF (pCheckSuffix) THEN
_clause := _clause || 'AND LENGTH(cntct_suffix) > 0 ';
END IF;
IF (pCheckEmail) THEN
_clause := _clause || 'AND LENGTH(cntct_email) > 0 ';
END IF;
_qry := _qry || _clause;
END IF;
_qry := _qry || ' ORDER BY cntct_last_name, cntct_first_name;';
-- raise exception '%',_qry;
FOR _cntct IN
EXECUTE _qry
LOOP
RETURN NEXT _cntct;
-- If duplicates, get duplicates
IF (pIndentedDups) THEN
_qry := 'SELECT
cntct.*,
crmacct_number,
crmacct_name,
addr.*,
1 AS cntctdup_level
FROM cntct()
LEFT OUTER JOIN crmacct ON (cntct_crmacct_id=crmacct_id)
LEFT OUTER JOIN addr ON (cntct_addr_id=addr_id)
WHERE (true) ';
IF (pCheckHnfc) THEN
_qry := _qry || ' AND (UPPER(cntct_honorific)=' || quote_literal(_cntct.cntct_honorific) || ')';
END IF;
IF (pCheckFirst) THEN
_qry := _qry || ' AND (UPPER(cntct_first_name)=' || quote_literal(_cntct.cntct_first_name) || ')';
END IF;
IF (pCheckMiddle) THEN
_qry := _qry || ' AND (UPPER(cntct_middle)=' || quote_literal(_cntct.cntct_middle) || ')';
END IF;
IF (pCheckLast) THEN
_qry := _qry || ' AND (UPPER(cntct_last_name)=' || quote_literal(_cntct.cntct_last_name) || ')';
END IF;
IF (pCheckSuffix) THEN
_qry := _qry || ' AND (UPPER(cntct_suffix)=' || quote_literal(_cntct.cntct_suffix) || ')';
END IF;
IF (pCheckPhone) THEN
_qry := _qry || ' AND (cntct_phone=' || quote_literal(_cntct.cntct_phone) || ')';
END IF;
IF (pCheckEmail) THEN
_qry := _qry || ' AND (UPPER(cntct_email)=' || quote_literal(_cntct.cntct_email) || ')';
END IF;
-- raise exception '%',_qry;
FOR _cntctdup IN
EXECUTE _qry
LOOP
RETURN NEXT _cntctdup;
END LOOP;
END IF;
END LOOP;
RETURN;
END;
$_$;
ALTER FUNCTION public.cntctdups(text, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean) OWNER TO admin;
--
-- Name: cntctmerge(integer, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION cntctmerge(integer, integer, boolean) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSourceCntctId ALIAS FOR $1;
pTargetCntctId ALIAS FOR $2;
pPurge ALIAS FOR $3;
_fk RECORD;
_pk RECORD;
_sel RECORD;
_seq INTEGER;
_col TEXT;
_pkcol TEXT;
_qry TEXT;
_multi BOOLEAN;
BEGIN
-- Validate
IF (pSourceCntctId IS NULL) THEN
RAISE EXCEPTION 'Source contact id can not be null';
ELSIF (pTargetCntctId IS NULL) THEN
RAISE EXCEPTION 'Target contact id can not be null';
ELSIF (pPurge IS NULL) THEN
RAISE EXCEPTION 'Purge flag can not be null';
END IF;
-- Determine where this contact is used by analyzing foreign key linkages and update each
FOR _fk IN
SELECT pg_namespace.nspname AS schemaname, con.relname AS tablename, conkey AS seq, conrelid AS class_id
FROM pg_constraint, pg_class f, pg_class con, pg_namespace
WHERE confrelid=f.oid
AND conrelid=con.oid
AND f.relname = 'cntct'
AND con.relnamespace=pg_namespace.oid
AND con.relname NOT IN ('cntctsel', 'cntctmrgd', 'mrghist','trgthist')
LOOP
-- Validate
IF (ARRAY_UPPER(_fk.seq,1) > 1) THEN
RAISE EXCEPTION 'Updates to tables where the contact is one of multiple foreign key columns is not supported. Error on Table: %',
pg_namespace.nspname || '.' || con.relname;
END IF;
_seq := _fk.seq[1];
-- Get the specific column name
SELECT attname INTO _col
FROM pg_attribute, pg_class
WHERE ((attrelid=pg_class.oid)
AND (pg_class.oid=_fk.class_id)
AND (attnum=_seq));
IF (NOT pPurge) THEN
-- Cache what we're going to do so we can restore if need be.
-- Start by determining the primary key column for this table.
_multi := false;
_qry := 'SELECT pg_attribute.attname AS key
FROM pg_attribute, pg_class
WHERE pg_class.relnamespace = (
SELECT oid
FROM pg_namespace
WHERE pg_namespace.nspname = ''' || _fk.schemaname || ''')
AND pg_class.oid IN (
SELECT indexrelid
FROM pg_index
WHERE indisprimary = true
AND indrelid IN (
SELECT oid
FROM pg_class
WHERE lower(relname) = ''' || _fk.tablename || '''))
AND pg_attribute.attrelid = pg_class.oid
AND pg_attribute.attisdropped = false
ORDER BY pg_attribute.attnum;';
FOR _pk IN
EXECUTE _qry
LOOP
IF (_multi) THEN
RAISE EXCEPTION 'Reference tables with composite primary keys not supported. Try the merge and purge option.';
END IF;
_pkcol := _pk.key;
_multi := true;
END LOOP;
-- Gather and store the history
_qry := 'INSERT INTO mrghist
SELECT ' || pSourceCntctId || ', '''
|| _fk.schemaname || '.' || _fk.tablename || ''', '''
|| _pkcol || ''', '
|| _pkcol || ', '''
|| _col || '''
FROM ' || _fk.schemaname || '.' || _fk.tablename || '
WHERE (' || _col || '=' || pSourceCntctId || ');';
-- raise exception '%',_qry;
EXECUTE _qry;
END IF;
-- Merge references
_qry := 'UPDATE ' || _fk.schemaname || '.' || _fk.tablename ||
' SET ' || _col || '=' || pTargetCntctId ||
' WHERE (' || _col || '=' || pSourceCntctId || ');';
EXECUTE _qry;
END LOOP;
-- Merge cases with no foreign key
IF (NOT pPurge) THEN
INSERT INTO mrghist
SELECT pSourceCntctId,
'comment',
'comment_id',
comment_id,
'comment_source_id'
FROM comment
WHERE ((comment_source_id= pSourceCntctId)
AND (comment_source='T'));
INSERT INTO mrghist
SELECT pSourceCntctId,
'docass',
'docass_id',
docass_id,
'docass_source_id'
FROM docass
WHERE ((docass_source_id= pSourceCntctId)
AND (docass_source_type='T'));
INSERT INTO mrghist
SELECT pSourceCntctId,
'docass',
'docass_id',
docass_id,
'docass_target_id'
FROM docass
WHERE ((docass_target_id= pSourceCntctId)
AND (docass_target_type='T'));
INSERT INTO mrghist
SELECT pSourceCntctId,
'vendinfo',
'vend_id',
vend_id,
'vend_cntct1_id'
FROM vendinfo
WHERE (vend_cntct1_id=pSourceCntctId);
INSERT INTO mrghist
SELECT pSourceCntctId,
'vendinfo',
'vend_id',
vend_id,
'vend_cntct2_id'
FROM vendinfo
WHERE (vend_cntct2_id=pSourceCntctId);
IF (fetchMetricBool('EnableBatchManager') AND packageIsEnabled('xtbatch')) THEN
INSERT INTO mrghist
SELECT pSourceCntctId,
'xtbatch.emlassc',
'emlassc_id',
emlassc_id,
'emlassc_assc_id'
FROM xtbatch.emlassc
WHERE ((emlassc_assc_id= pSourceCntctId)
AND (emlassc_type='T'));
END IF;
END IF;
UPDATE comment
SET comment_source_id = pTargetCntctId
WHERE ((comment_source = 'T')
AND (comment_source_id = pSourceCntctId));
UPDATE docass
SET docass_source_id = pTargetCntctId
WHERE ((docass_source_type = 'T')
AND (docass_source_id = pSourceCntctId));
UPDATE docass
SET docass_target_id = pTargetCntctId
WHERE ((docass_target_type = 'T')
AND (docass_target_id = pSourceCntctId));
UPDATE vendinfo
SET vend_cntct1_id = pTargetCntctId
WHERE (vend_cntct1_id = pSourceCntctId);
UPDATE vendinfo
SET vend_cntct2_id = pTargetCntctId
WHERE (vend_cntct2_id = pSourceCntctId);
IF (fetchMetricBool('EnableBatchManager') AND packageIsEnabled('xtbatch')) THEN
UPDATE xtbatch.emlassc
SET emlassc_assc_id = pTargetCntctId
WHERE ((emlassc_type = 'T')
AND (emlassc_assc_id = pSourceCntctId));
END IF;
IF (NOT pPurge) THEN
-- Record that this has been merged if not already
IF (SELECT (COUNT(cntctmrgd_cntct_id) = 0)
FROM cntctmrgd
WHERE (cntctmrgd_cntct_id=pSourceCntctId)) THEN
INSERT INTO cntctmrgd VALUES (pSourceCntctId,false);
END IF;
END IF;
-- Merge field detail to target
SELECT * INTO _sel
FROM cntctsel
JOIN cntct ON (cntctsel_cntct_id=cntct_id)
WHERE (cntctsel_cntct_id=pSourceCntctId);
IF (FOUND) THEN
IF (_sel.cntctsel_mrg_crmacct_id) THEN
IF (NOT pPurge) THEN
INSERT INTO trgthist
SELECT pSourceCntctId,pTargetCntctId,'cntct_crmacct_id', cntct_crmacct_id::text || '::integer'
FROM cntct
WHERE (cntct_id=pTargetCntctId);
END IF;
UPDATE cntct SET cntct_crmacct_id=_sel.cntct_crmacct_id WHERE (cntct_id=pTargetCntctId);
END IF;
IF (_sel.cntctsel_mrg_addr_id) THEN
IF (NOT pPurge) THEN
INSERT INTO trgthist
SELECT pSourceCntctId,pTargetCntctId,'cntct_addr_id', cntct_addr_id::text || '::integer'
FROM cntct
WHERE (cntct_id=pTargetCntctId);
END IF;
UPDATE cntct SET cntct_addr_id=_sel.cntct_addr_id WHERE (cntct_id=pTargetCntctId);
END IF;
IF (_sel.cntctsel_mrg_first_name) THEN
IF (NOT pPurge) THEN
INSERT INTO trgthist
SELECT pSourceCntctId,pTargetCntctId,'cntct_first_name', '''' || cntct_first_name || ''''
FROM cntct
WHERE (cntct_id=pTargetCntctId);
END IF;
UPDATE cntct SET cntct_first_name=_sel.cntct_first_name WHERE (cntct_id=pTargetCntctId);
END IF;
IF (_sel.cntctsel_mrg_last_name) THEN
IF (NOT pPurge) THEN
INSERT INTO trgthist
SELECT pSourceCntctId,pTargetCntctId,'cntct_last_name', '''' || cntct_last_name || ''''
FROM cntct
WHERE (cntct_id=pTargetCntctId);
END IF;
UPDATE cntct SET cntct_last_name=_sel.cntct_last_name WHERE (cntct_id=pTargetCntctId);
END IF;
IF (_sel.cntctsel_mrg_honorific) THEN
IF (NOT pPurge) THEN
INSERT INTO trgthist
SELECT pSourceCntctId,pTargetCntctId,'cntct_honorific', '''' || cntct_honorific || ''''
FROM cntct
WHERE (cntct_id=pTargetCntctId);
END IF;
UPDATE cntct SET cntct_honorific=_sel.cntct_honorific WHERE (cntct_id=pTargetCntctId);
END IF;
IF (_sel.cntctsel_mrg_initials) THEN
IF (NOT pPurge) THEN
INSERT INTO trgthist
SELECT pSourceCntctId,pTargetCntctId,'cntct_initials', '''' || cntct_initials || ''''
FROM cntct
WHERE (cntct_id=pTargetCntctId);
END IF;
UPDATE cntct SET cntct_initials=_sel.cntct_initials WHERE (cntct_id=pTargetCntctId);
END IF;
IF (_sel.cntctsel_mrg_phone) THEN
IF (NOT pPurge) THEN
INSERT INTO trgthist
SELECT pSourceCntctId,pTargetCntctId,'cntct_phone', '''' || cntct_phone || ''''
FROM cntct
WHERE (cntct_id=pTargetCntctId);
END IF;
UPDATE cntct SET cntct_phone=_sel.cntct_phone WHERE (cntct_id=pTargetCntctId);
END IF;
IF (_sel.cntctsel_mrg_phone2) THEN
IF (NOT pPurge) THEN
INSERT INTO trgthist
SELECT pSourceCntctId,pTargetCntctId,'cntct_phone2', '''' || cntct_phone2 || ''''
FROM cntct
WHERE (cntct_id=pTargetCntctId);
END IF;
UPDATE cntct SET cntct_phone2=_sel.cntct_phone2 WHERE (cntct_id=pTargetCntctId);
END IF;
IF (_sel.cntctsel_mrg_fax) THEN
IF (NOT pPurge) THEN
INSERT INTO trgthist
SELECT pSourceCntctId,pTargetCntctId,'cntct_fax', '''' || cntct_fax || ''''
FROM cntct
WHERE (cntct_id=pTargetCntctId);
END IF;
UPDATE cntct SET cntct_fax=_sel.cntct_fax WHERE (cntct_id=pTargetCntctId);
END IF;
IF (_sel.cntctsel_mrg_email) THEN
IF (NOT pPurge) THEN
INSERT INTO trgthist
SELECT pSourceCntctId,pTargetCntctId,'cntct_email', '''' || cntct_email || ''''
FROM cntct
WHERE (cntct_id=pTargetCntctId);
END IF;
UPDATE cntct SET cntct_email=_sel.cntct_email WHERE (cntct_id=pTargetCntctId);
END IF;
IF (_sel.cntctsel_mrg_webaddr) THEN
IF (NOT pPurge) THEN
INSERT INTO trgthist
SELECT pSourceCntctId,pTargetCntctId,'cntct_webaddr', '''' || cntct_webaddr || ''''
FROM cntct
WHERE (cntct_id=pTargetCntctId);
END IF;
UPDATE cntct SET cntct_webaddr=_sel.cntct_webaddr WHERE (cntct_id=pTargetCntctId);
END IF;
IF (_sel.cntctsel_mrg_notes) THEN
IF (NOT pPurge) THEN
INSERT INTO trgthist
SELECT pSourceCntctId,pTargetCntctId,'cntct_notes', '''' || cntct_notes || ''''
FROM cntct
WHERE (cntct_id=pTargetCntctId);
END IF;
UPDATE cntct SET cntct_notes=cntct_notes || '
' || _sel.cntct_notes WHERE (cntct_id=pTargetCntctId);
END IF;
IF (_sel.cntctsel_mrg_title) THEN
IF (NOT pPurge) THEN
INSERT INTO trgthist
SELECT pSourceCntctId,pTargetCntctId,'cntct_title', '''' || cntct_title || ''''
FROM cntct
WHERE (cntct_id=pTargetCntctId);
END IF;
UPDATE cntct SET cntct_title=_sel.cntct_title WHERE (cntct_id=pTargetCntctId);
END IF;
IF (_sel.cntctsel_mrg_middle) THEN
IF (NOT pPurge) THEN
INSERT INTO trgthist
SELECT pSourceCntctId,pTargetCntctId,'cntct_middle', '''' || cntct_middle || ''''
FROM cntct
WHERE (cntct_id=pTargetCntctId);
END IF;
UPDATE cntct SET cntct_middle=_sel.cntct_middle WHERE (cntct_id=pTargetCntctId);
END IF;
IF (_sel.cntctsel_mrg_suffix) THEN
IF (NOT pPurge) THEN
INSERT INTO trgthist
SELECT pSourceCntctId,pTargetCntctId,'cntct_suffix', '''' || cntct_suffix || ''''
FROM cntct
WHERE (cntct_id=pTargetCntctId);
END IF;
UPDATE cntct SET cntct_suffix=_sel.cntct_suffix WHERE (cntct_id=pTargetCntctId);
END IF;
IF (_sel.cntctsel_mrg_owner_username) THEN
IF (NOT pPurge) THEN
INSERT INTO trgthist
SELECT pSourceCntctId,pTargetCntctId,'cntct_owner_username', '''' || cntct_owner_username || ''''
FROM cntct
WHERE (cntct_id=pTargetCntctId);
END IF;
UPDATE cntct SET cntct_owner_username=_sel.cntct_owner_username WHERE (cntct_id=pTargetCntctId);
END IF;
ELSE
RAISE EXCEPTION 'Source Contact not Found';
END IF;
-- Disposition source contact
IF (pPurge) THEN
DELETE FROM cntct WHERE cntct_id = pSourceCntctId;
END IF;
-- Deactivate contact
UPDATE cntct SET cntct_active = false WHERE (cntct_id=pSourceCntctId);
-- Clean up
DELETE FROM cntctsel WHERE (cntctsel_cntct_id=pSourceCntctId);
RETURN true;
END;
$_$;
ALTER FUNCTION public.cntctmerge(integer, integer, boolean) OWNER TO admin;
--
-- Name: cntctrestore(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION cntctrestore(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCntctId ALIAS FOR $1;
_r RECORD;
_qry TEXT;
BEGIN
-- Validate
SELECT * INTO _r FROM cntctmrgd WHERE (cntctmrgd_cntct_id=pCntctId);
IF (NOT FOUND) THEN
RETURN false;
END IF;
-- Gather the list of affected records
FOR _r IN
SELECT * FROM mrghist
WHERE (mrghist_cntct_id=pCntctId)
LOOP
-- Restore the old references
_qry := 'UPDATE ' || _r.mrghist_table ||
' SET ' || _r.mrghist_cntct_col || '=' || pCntctId ||
' WHERE (' || _r.mrghist_pkey_col || '=' || _r.mrghist_pkey_id || ');';
EXECUTE _qry;
END LOOP;
-- Gather the list of affected fields
FOR _r IN
SELECT * FROM trgthist
WHERE (trgthist_src_cntct_id=pCntctId)
LOOP
-- Restore the old values
_qry := 'UPDATE cntct
SET ' || _r.trgthist_col || '=' || _r.trgthist_value ||
' WHERE (cntct_id=' || _r.trgthist_trgt_cntct_id || ');';
EXECUTE _qry;
END LOOP;
-- Clean up
UPDATE cntct SET cntct_active=true WHERE (cntct_id=pCntctId);
DELETE FROM mrghist WHERE (mrghist_cntct_id=pCntctId);
DELETE FROM trgthist WHERE (trgthist_src_cntct_id=pCntctId);
DELETE FROM cntctmrgd WHERE (cntctmrgd_cntct_id=pCntctId);
RETURN true;
END;
$_$;
ALTER FUNCTION public.cntctrestore(integer) OWNER TO admin;
--
-- Name: cntctselect(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION cntctselect(integer, boolean) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCntctId ALIAS FOR $1;
pTarget ALIAS FOR $2;
BEGIN
-- If target, delete any other targets
IF (pTarget) THEN
DELETE FROM cntctsel WHERE cntctsel_target;
END IF;
-- Delete any previous selection of this contact
DELETE FROM cntctsel WHERE cntctsel_cntct_id=pCntctId;
-- Add this contact in appropriate selection state
INSERT INTO cntctsel VALUES (pCntctId,pTarget);
RETURN true;
END;
$_$;
ALTER FUNCTION public.cntctselect(integer, boolean) OWNER TO admin;
--
-- Name: cntctselectcol(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION cntctselectcol(integer, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCntctId ALIAS FOR $1;
pColNumber ALIAS FOR $2;
BEGIN
IF (pColNumber = 2 OR pColNumber = 3) THEN
UPDATE cntctsel SET cntctsel_mrg_crmacct_id=false WHERE (cntctsel_mrg_crmacct_id AND cntctsel_cntct_id != pCntctId);
UPDATE cntctsel SET cntctsel_mrg_crmacct_id=true WHERE (cntctsel_cntct_id = pCntctId);
RETURN true;
ELSIF (pColNumber = 4) THEN
UPDATE cntctsel SET cntctsel_mrg_honorific=false WHERE (cntctsel_mrg_honorific AND cntctsel_cntct_id != pCntctId);
UPDATE cntctsel SET cntctsel_mrg_honorific=true WHERE (cntctsel_cntct_id = pCntctId);
RETURN true;
ELSIF (pColNumber = 5) THEN
UPDATE cntctsel SET cntctsel_mrg_first_name=false WHERE (cntctsel_mrg_first_name AND cntctsel_cntct_id != pCntctId);
UPDATE cntctsel SET cntctsel_mrg_first_name=true WHERE (cntctsel_cntct_id = pCntctId);
RETURN true;
ELSIF (pColNumber = 6) THEN
UPDATE cntctsel SET cntctsel_mrg_middle=false WHERE (cntctsel_mrg_middle AND cntctsel_cntct_id != pCntctId);
UPDATE cntctsel SET cntctsel_mrg_middle=true WHERE (cntctsel_cntct_id = pCntctId);
RETURN true;
ELSIF (pColNumber = 7) THEN
UPDATE cntctsel SET cntctsel_mrg_last_name=false WHERE (cntctsel_mrg_last_name AND cntctsel_cntct_id != pCntctId);
UPDATE cntctsel SET cntctsel_mrg_last_name=true WHERE (cntctsel_cntct_id = pCntctId);
RETURN true;
ELSIF (pColNumber = 8) THEN
UPDATE cntctsel SET cntctsel_mrg_suffix=false WHERE (cntctsel_mrg_suffix AND cntctsel_cntct_id != pCntctId);
UPDATE cntctsel SET cntctsel_mrg_suffix=true WHERE (cntctsel_cntct_id = pCntctId);
RETURN true;
ELSIF (pColNumber = 9) THEN
UPDATE cntctsel SET cntctsel_mrg_initials=false WHERE (cntctsel_mrg_initials AND cntctsel_cntct_id != pCntctId);
UPDATE cntctsel SET cntctsel_mrg_initials=true WHERE (cntctsel_cntct_id = pCntctId);
RETURN true;
ELSIF (pColNumber = 10) THEN
UPDATE cntctsel SET cntctsel_mrg_phone=false WHERE (cntctsel_mrg_phone AND cntctsel_cntct_id != pCntctId);
UPDATE cntctsel SET cntctsel_mrg_phone=true WHERE (cntctsel_cntct_id = pCntctId);
RETURN true;
ELSIF (pColNumber = 11) THEN
UPDATE cntctsel SET cntctsel_mrg_phone2=false WHERE (cntctsel_mrg_phone2 AND cntctsel_cntct_id != pCntctId);
UPDATE cntctsel SET cntctsel_mrg_phone2=true WHERE (cntctsel_cntct_id = pCntctId);
RETURN true;
ELSIF (pColNumber = 12) THEN
UPDATE cntctsel SET cntctsel_mrg_fax=false WHERE (cntctsel_mrg_fax AND cntctsel_cntct_id != pCntctId);
UPDATE cntctsel SET cntctsel_mrg_fax=true WHERE (cntctsel_cntct_id = pCntctId);
RETURN true;
ELSIF (pColNumber = 13) THEN
UPDATE cntctsel SET cntctsel_mrg_email=false WHERE (cntctsel_mrg_email AND cntctsel_cntct_id != pCntctId);
UPDATE cntctsel SET cntctsel_mrg_email=true WHERE (cntctsel_cntct_id = pCntctId);
RETURN true;
ELSIF (pColNumber = 14) THEN
UPDATE cntctsel SET cntctsel_mrg_webaddr=false WHERE (cntctsel_mrg_webaddr AND cntctsel_cntct_id != pCntctId);
UPDATE cntctsel SET cntctsel_mrg_webaddr=true WHERE (cntctsel_cntct_id = pCntctId);
RETURN true;
ELSIF (pColNumber = 15) THEN
UPDATE cntctsel SET cntctsel_mrg_title=false WHERE (cntctsel_mrg_title AND cntctsel_cntct_id != pCntctId);
UPDATE cntctsel SET cntctsel_mrg_title=true WHERE (cntctsel_cntct_id = pCntctId);
RETURN true;
ELSIF (pColNumber = 16) THEN
UPDATE cntctsel SET cntctsel_mrg_owner_username=false WHERE (cntctsel_mrg_owner_username AND cntctsel_cntct_id != pCntctId);
UPDATE cntctsel SET cntctsel_mrg_owner_username=true WHERE (cntctsel_cntct_id = pCntctId);
RETURN true;
ELSIF (pColNumber = 17) THEN
UPDATE cntctsel SET cntctsel_mrg_notes=false WHERE (cntctsel_mrg_notes AND cntctsel_cntct_id != pCntctId);
UPDATE cntctsel SET cntctsel_mrg_notes=true WHERE (cntctsel_cntct_id = pCntctId);
RETURN true;
ELSIF (pColNumber >= 18) THEN
UPDATE cntctsel SET cntctsel_mrg_addr_id=false WHERE (cntctsel_mrg_addr_id AND cntctsel_cntct_id != pCntctId);
UPDATE cntctsel SET cntctsel_mrg_addr_id=true WHERE (cntctsel_cntct_id = pCntctId);
RETURN true;
END IF;
RETURN false;
END;
$_$;
ALTER FUNCTION public.cntctselectcol(integer, integer) OWNER TO admin;
--
-- Name: cntctused(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION cntctused(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCntctId ALIAS FOR $1;
_fk RECORD;
_r RECORD;
_seq INTEGER;
_col TEXT;
_qry TEXT;
BEGIN
-- Determine where this contact is used by analyzing foreign key linkages
-- but ignore child tables and those with impermanent relationships
FOR _fk IN
SELECT pg_namespace.nspname AS schemaname, con.relname AS tablename, conkey AS seq, conrelid AS class_id
FROM pg_constraint, pg_class f, pg_class con, pg_namespace
WHERE confrelid=f.oid
AND conrelid=con.oid
AND f.relname = 'cntct'
AND con.relnamespace=pg_namespace.oid
AND con.relname NOT IN ('cntctaddr', 'cntctdata', 'cntcteml',
'cohead', 'pohead', 'quhead', 'tohead',
'cntctsel', 'cntctmrgd', 'mrghist', 'trgthist')
LOOP
-- Validate
IF (ARRAY_UPPER(_fk.seq,1) > 1) THEN
RAISE EXCEPTION 'Cannot check dependencies when the contact is one of multiple foreign key columns (%.%) [xtuple: fkeycheck, -1, %, %]',
_fk.nspname, _fk.relname, _fk.nspname, _fk.relname;
END IF;
_seq := _fk.seq[1];
-- Get the specific column name
SELECT attname INTO _col
FROM pg_attribute, pg_class
WHERE ((attrelid=pg_class.oid)
AND (pg_class.oid=_fk.class_id)
AND (attnum=_seq));
-- See if there are dependencies
_qry := 'SELECT *
FROM ' || _fk.schemaname || '.' || _fk.tablename || '
WHERE ('|| _col || '=' || pCntctId || ');';
FOR _r IN
EXECUTE _qry
LOOP
RETURN true;
END LOOP;
END LOOP;
RETURN false;
END;
$_$;
ALTER FUNCTION public.cntctused(integer) OWNER TO admin;
--
-- Name: coheadstatecolor(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION coheadstatecolor(integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCoheadId ALIAS FOR $1;
_shipheadid INTEGER;
_result TEXT := '';
BEGIN
IF (pCoheadid IS NULL) THEN
RAISE EXCEPTION 'Customer Id is required.';
END IF;
SELECT
shiphead_id INTO _shipheadid
FROM cohead
JOIN shiphead ON ((shiphead_order_id=cohead_id)
AND (shiphead_order_type='SO'))
JOIN shipitem ON (shiphead_id=shipitem_shiphead_id)
WHERE ((cohead_id=pCoheadId)
AND (NOT shipitem_invoiced))
ORDER BY shiphead_id DESC
LIMIT 1;
IF (FOUND) THEN
SELECT
CASE
WHEN ((shiphead_shipped)
AND (COALESCE(shiphead_order_id,0) > 0)
AND (SUM(noNeg(coitem_qtyord - coitem_qtyshipped + coitem_qtyreturned)) <= 0)) THEN
'altemphasis'
WHEN ((COALESCE(cobmisc_cohead_id,0) > 0)
AND (SUM(noNeg(coitem_qtyord - coitem_qtyshipped + coitem_qtyreturned)) > 0)) THEN
'error'
WHEN (NOT shiphead_shipped) THEN
'emphasis'
END INTO _result
FROM cohead
JOIN coitem ON (cohead_id=coitem_cohead_id)
JOIN shiphead ON ((shiphead_order_id=cohead_id)
AND (shiphead_order_type='SO'))
JOIN shipitem ON (shiphead_id=shipitem_shiphead_id)
LEFT OUTER JOIN (SELECT DISTINCT cobmisc_cohead_id FROM cobmisc) AS cobmisc ON (cobmisc_cohead_id=cohead_id)
WHERE (shiphead_id=_shipheadid)
GROUP BY shiphead_id,shiphead_shipped,shiphead_order_id,cobmisc_cohead_id
ORDER BY shiphead_id DESC;
ELSE
_result := '';
END IF;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.coheadstatecolor(integer) OWNER TO admin;
--
-- Name: concataggsfunc(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION concataggsfunc(text, text) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
prevstate ALIAS FOR $1;
newval ALIAS FOR $2;
BEGIN
RETURN prevstate || newval;
END;
$_$;
ALTER FUNCTION public.concataggsfunc(text, text) OWNER TO admin;
--
-- Name: consolidatelocations(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION consolidatelocations(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
_r RECORD;
BEGIN
UPDATE itemloc
SET itemloc_consolflag = TRUE
WHERE (itemloc_itemsite_id=pItemsiteid);
FOR _r IN SELECT itemloc_location_id, SUM(itemloc_qty) AS qty
FROM itemloc
WHERE (itemloc_itemsite_id=pItemsiteid)
GROUP BY itemloc_location_id LOOP
INSERT INTO itemloc
( itemloc_itemsite_id, itemloc_location_id,
itemloc_expiration, itemloc_qty, itemloc_consolflag )
VALUES
( pItemsiteid, _r.itemloc_location_id,
endOfTime(), _r.qty, FALSE );
END LOOP;
DELETE FROM itemloc
WHERE ( (itemloc_itemsite_id=pItemsiteid)
AND (itemloc_consolflag) );
RETURN 1;
END;
$_$;
ALTER FUNCTION public.consolidatelocations(integer) OWNER TO admin;
--
-- Name: convertcustomertoprospect(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION convertcustomertoprospect(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustId ALIAS FOR $1;
_c RECORD;
BEGIN
SELECT * INTO _c
FROM custinfo
WHERE (cust_id=pCustId);
INSERT INTO prospect (
prospect_id, prospect_active, prospect_number,
prospect_name, prospect_cntct_id, prospect_taxzone_id,
prospect_salesrep_id, prospect_warehous_id, prospect_comments
) VALUES (
_c.cust_id, _c.cust_active, _c.cust_number,
_c.cust_name, _c.cust_cntct_id, _c.cust_taxzone_id,
CASE WHEN(_c.cust_salesrep_id > 0) THEN _c.cust_salesrep_id
ELSE NULL
END,
CASE WHEN(_c.cust_preferred_warehous_id > 0) THEN _c.cust_preferred_warehous_id
ELSE NULL
END,
_c.cust_comments);
DELETE FROM custinfo WHERE (cust_id=pCustId);
RETURN pCustId;
END;
$_$;
ALTER FUNCTION public.convertcustomertoprospect(integer) OWNER TO admin;
--
-- Name: convertprospecttocustomer(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION convertprospecttocustomer(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN convertProspectToCustomer($1, FALSE);
END;
$_$;
ALTER FUNCTION public.convertprospecttocustomer(integer) OWNER TO admin;
--
-- Name: convertprospecttocustomer(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION convertprospecttocustomer(integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pProspectId ALIAS FOR $1;
pdoquotes ALIAS FOR $2;
_p RECORD;
_q RECORD;
BEGIN
SELECT * INTO _p
FROM prospect
WHERE (prospect_id=pProspectId);
IF (EXISTS(SELECT cust_id FROM custinfo WHERE cust_id=pProspectId)) THEN
RAISE EXCEPTION '[xtuple: convertProspectToCustomer, -10]';
END IF;
INSERT INTO custinfo (
cust_id, cust_active, cust_number,
cust_name, cust_cntct_id, cust_taxzone_id,
cust_comments, cust_creditstatus,
cust_salesrep_id, cust_preferred_warehous_id,
cust_terms_id,
cust_custtype_id, cust_shipform_id,
cust_shipvia, cust_balmethod,
cust_ffshipto, cust_backorder,
cust_partialship, cust_creditlmt,
cust_creditrating, cust_commprcnt,
cust_discntprcnt, cust_blanketpos,
cust_shipchrg_id, cust_ffbillto,
cust_usespos, cust_emaildelivery,
cust_autoupdatestatus,cust_autoholdorders,
cust_soemaildelivery)
SELECT
_p.prospect_id, _p.prospect_active, _p.prospect_number,
_p.prospect_name, _p.prospect_cntct_id, _p.prospect_taxzone_id,
_p.prospect_comments, 'G',
COALESCE(_p.prospect_salesrep_id, salesrep_id),
COALESCE(_p.prospect_warehous_id, -1),
FetchMetricValue('DefaultTerms'),
FetchMetricValue('DefaultCustType'),
FetchMetricValue('DefaultShipFormId'),
COALESCE(FetchMetricValue('DefaultShipViaId'),-1),
FetchMetricText('DefaultBalanceMethod'),
FetchMetricBool('DefaultFreeFormShiptos'),
FetchMetricBool('DefaultBackOrders'),
FetchMetricBool('DefaultPartialShipments'),
FetchMetricValue('SOCreditLimit'),
FetchMetricText('SOCreditRate'),
salesrep_commission,
0, false, -1,false,false,false,false,
false, false
FROM salesrep WHERE (salesrep_id=FetchMetricValue('DefaultSalesRep'));
DELETE FROM prospect WHERE (prospect_id=pprospectId);
IF (pdoquotes) THEN
BEGIN
FOR _q IN SELECT quhead_number, convertQuote(quhead_id) AS err
FROM quhead
WHERE ((COALESCE(quhead_expire, endOfTime()) >= CURRENT_DATE)
AND (quhead_cust_id=pProspectId)) LOOP
IF (_q.err < 0) THEN
RAISE NOTICE 'Quote % for % didn''t convert to a Sales Order [xtuple: convertQuote, %]',
_q.quhead_number, _p.prospect_number, _q.err;
END IF;
END LOOP;
EXCEPTION WHEN OTHERS THEN
RAISE NOTICE 'Ignored errors convering quotes: % %', SQLSTATE, SQLERRM;
END;
END IF;
RETURN pProspectId;
END;
$_$;
ALTER FUNCTION public.convertprospecttocustomer(integer, boolean) OWNER TO admin;
--
-- Name: convertquote(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION convertquote(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pQuheadid ALIAS FOR $1;
_soheadid INTEGER;
_soitemid INTEGER;
_orderid INTEGER;
_ordertype CHARACTER(1);
_creditstatus TEXT;
_usespos BOOLEAN := false;
_blanketpos BOOLEAN := true;
_showConvertedQuote BOOLEAN := false;
_prospectid INTEGER;
_r RECORD;
_soNum TEXT;
BEGIN
-- Check to make sure the quote has not expired
IF (SELECT COALESCE(quhead_expire, endOfTime()) < CURRENT_DATE
FROM quhead
WHERE(quhead_id=pQuheadid)) THEN
RETURN -6;
END IF;
-- Check to make sure that all of the quote items have a valid itemsite
SELECT quitem_id INTO _r
FROM quitem LEFT OUTER JOIN itemsite ON (quitem_itemsite_id=itemsite_id)
WHERE ((itemsite_id IS NULL)
AND (quitem_quhead_id=pQuheadid));
IF (FOUND) THEN
INSERT INTO evntlog (evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id, evntlog_number)
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'Q', quhead_id, quhead_warehous_id, quhead_number
FROM evntnot, evnttype, quhead
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (evntnot_warehous_id=quhead_warehous_id)
AND (evnttype_name='CannotConvertQuote')
AND (quhead_id=pQuheadid) );
RETURN -1;
END IF;
SELECT cust_creditstatus, cust_usespos, cust_blanketpos
INTO _creditstatus, _usespos, _blanketpos
FROM quhead, custinfo
WHERE ((quhead_cust_id=cust_id)
AND (quhead_id=pQuheadid));
IF (NOT FOUND) THEN
SELECT prospect_id INTO _prospectid
FROM quhead, prospect
WHERE ((quhead_cust_id=prospect_id)
AND (quhead_id=pQuheadid));
IF (NOT FOUND) THEN
RETURN -2;
ELSE
RETURN -3;
END IF;
ELSIF (_creditstatus = 'H' AND NOT checkPrivilege('CreateSOForHoldCustomer')) THEN
RETURN -4;
ELSIF (_creditstatus = 'W' AND NOT checkPrivilege('CreateSOForWarnCustomer')) THEN
RETURN -5;
END IF;
IF ( (_usespos) AND (NOT _blanketpos) ) THEN
PERFORM cohead_id
FROM quhead JOIN cohead ON ( (cohead_cust_id=quhead_cust_id) AND
(UPPER(cohead_custponumber)=UPPER(quhead_custponumber)) )
WHERE (quhead_id=pQuheadid);
IF (FOUND) THEN
RAISE EXCEPTION 'Duplicate Customer PO';
END IF;
END IF;
PERFORM quhead_number, cohead_id
FROM quhead, cohead
WHERE quhead_id = pQuheadid
AND cohead_number = quhead_number;
IF (FOUND) THEN
SELECT fetchSoNumber() INTO _soNum;
ELSE
SELECT quhead_number INTO _soNum
FROM quhead
WHERE quhead_id = pQuheadid;
END IF;
SELECT NEXTVAL('cohead_cohead_id_seq') INTO _soheadid;
INSERT INTO cohead
( cohead_id, cohead_number, cohead_cust_id,
cohead_orderdate, cohead_packdate,
cohead_custponumber, cohead_warehous_id,
cohead_billtoname, cohead_billtoaddress1,
cohead_billtoaddress2, cohead_billtoaddress3,
cohead_billtocity, cohead_billtostate, cohead_billtozipcode,
cohead_billtocountry,
cohead_shipto_id, cohead_shiptoname, cohead_shiptoaddress1,
cohead_shiptoaddress2, cohead_shiptoaddress3,
cohead_shiptocity, cohead_shiptostate, cohead_shiptozipcode,
cohead_shiptocountry,
cohead_salesrep_id, cohead_commission,
cohead_terms_id, cohead_shipchrg_id, cohead_shipform_id,
cohead_fob, cohead_shipvia,
cohead_ordercomments, cohead_shipcomments,
cohead_freight, cohead_misc, cohead_misc_accnt_id, cohead_misc_descrip,
cohead_holdtype, cohead_wasquote, cohead_quote_number, cohead_prj_id,
cohead_curr_id, cohead_taxzone_id, cohead_taxtype_id,
cohead_shipto_cntct_id, cohead_shipto_cntct_honorific, cohead_shipto_cntct_first_name,
cohead_shipto_cntct_middle, cohead_shipto_cntct_last_name, cohead_shipto_cntct_suffix,
cohead_shipto_cntct_phone, cohead_shipto_cntct_title, cohead_shipto_cntct_fax,
cohead_shipto_cntct_email,
cohead_billto_cntct_id, cohead_billto_cntct_honorific,
cohead_billto_cntct_first_name, cohead_billto_cntct_middle, cohead_billto_cntct_last_name,
cohead_billto_cntct_suffix, cohead_billto_cntct_phone, cohead_billto_cntct_title,
cohead_billto_cntct_fax, cohead_billto_cntct_email, cohead_ophead_id,
cohead_calcfreight, cohead_saletype_id, cohead_shipzone_id )
SELECT _soheadid, _soNum, quhead_cust_id,
CURRENT_DATE, quhead_packdate,
quhead_custponumber, quhead_warehous_id,
quhead_billtoname, quhead_billtoaddress1,
quhead_billtoaddress2, quhead_billtoaddress3,
quhead_billtocity, quhead_billtostate, quhead_billtozip,
quhead_billtocountry,
quhead_shipto_id, quhead_shiptoname, quhead_shiptoaddress1,
quhead_shiptoaddress2, quhead_shiptoaddress3,
quhead_shiptocity, quhead_shiptostate, quhead_shiptozipcode,
quhead_shiptocountry,
quhead_salesrep_id, quhead_commission,
quhead_terms_id, cust_shipchrg_id, cust_shipform_id,
quhead_fob, quhead_shipvia,
quhead_ordercomments, quhead_shipcomments,
quhead_freight, quhead_misc, quhead_misc_accnt_id, quhead_misc_descrip,
'N', TRUE, quhead_number, quhead_prj_id,
quhead_curr_id, quhead_taxzone_id, quhead_taxtype_id,
quhead_shipto_cntct_id, quhead_shipto_cntct_honorific,
quhead_shipto_cntct_first_name, quhead_shipto_cntct_middle, quhead_shipto_cntct_last_name,
quhead_shipto_cntct_suffix, quhead_shipto_cntct_phone, quhead_shipto_cntct_title,
quhead_shipto_cntct_fax, quhead_shipto_cntct_email, quhead_billto_cntct_id,
quhead_billto_cntct_honorific, quhead_billto_cntct_first_name, quhead_billto_cntct_middle,
quhead_billto_cntct_last_name, quhead_billto_cntct_suffix, quhead_billto_cntct_phone,
quhead_billto_cntct_title, quhead_billto_cntct_fax, quhead_billto_cntct_email, quhead_ophead_id,
quhead_calcfreight, quhead_saletype_id, quhead_shipzone_id
FROM quhead JOIN custinfo ON (cust_id=quhead_cust_id)
WHERE (quhead_id=pQuheadid);
UPDATE url SET url_source_id = _soheadid,
url_source = 'S'
WHERE ((url_source='Q') AND (url_source_id = pQuheadid));
UPDATE imageass SET imageass_source_id = _soheadid,
imageass_source = 'S'
WHERE ((imageass_source='Q') AND (imageass_source_id = pQuheadid));
UPDATE docass SET docass_source_id = _soheadid,
docass_source_type = 'S'
WHERE ((docass_source_type='Q') AND (docass_source_id = pQuheadid));
-- Copy Comments
INSERT INTO comment
( comment_cmnttype_id, comment_source, comment_source_id, comment_date, comment_user, comment_text, comment_public )
SELECT comment_cmnttype_id, 'S', _soheadid, comment_date, comment_user, ('Quote-' || comment_text), comment_public
FROM comment
WHERE ( (comment_source='Q')
AND (comment_source_id=pQuheadid) );
FOR _r IN SELECT quitem.*,
quhead_number, quhead_prj_id,
itemsite_item_id, itemsite_leadtime,
itemsite_createsopo, itemsite_createsopr,
item_type, COALESCE(quitem_itemsrc_id, itemsrc_id, -1) AS itemsrcid
FROM quhead JOIN quitem ON (quitem_quhead_id=quhead_id)
JOIN itemsite ON (itemsite_id=quitem_itemsite_id)
JOIN item ON (item_id=itemsite_item_id)
LEFT OUTER JOIN itemsrc ON ( (itemsrc_item_id=item_id) AND
(itemsrc_default) )
WHERE (quhead_id=pQuheadid)
ORDER BY quitem_linenumber LOOP
SELECT NEXTVAL('coitem_coitem_id_seq') INTO _soitemid;
INSERT INTO coitem
( coitem_id, coitem_cohead_id, coitem_linenumber, coitem_itemsite_id,
coitem_status, coitem_scheddate, coitem_promdate,
coitem_price, coitem_custprice,
coitem_qtyord, coitem_qtyshipped, coitem_qtyreturned,
coitem_qty_uom_id, coitem_qty_invuomratio,
coitem_price_uom_id, coitem_price_invuomratio,
coitem_unitcost, coitem_prcost,
coitem_custpn, coitem_memo, coitem_taxtype_id, coitem_order_id )
VALUES
( _soitemid, _soheadid, _r.quitem_linenumber, _r.quitem_itemsite_id,
'O', _r.quitem_scheddate, _r.quitem_promdate,
_r.quitem_price, _r.quitem_custprice,
_r.quitem_qtyord, 0, 0,
_r.quitem_qty_uom_id, _r.quitem_qty_invuomratio,
_r.quitem_price_uom_id, _r.quitem_price_invuomratio,
stdcost(_r.itemsite_item_id), _r.quitem_prcost,
_r.quitem_custpn, _r.quitem_memo, _r.quitem_taxtype_id, -1 );
IF (fetchMetricBool('enablextcommissionission')) THEN
PERFORM xtcommission.getSalesReps(quhead_cust_id, quhead_shipto_id,
_r.itemsite_item_id, _r.quitem_price,
_soitemid, 'SalesItem')
FROM quhead
WHERE (quhead_id=pQuheadid);
END IF;
INSERT INTO charass
(charass_target_type, charass_target_id, charass_char_id, charass_value, charass_default, charass_price)
SELECT 'SI', _soitemid, charass_char_id, charass_value, charass_default, charass_price
FROM charass
WHERE ((charass_target_type='QI')
AND (charass_target_id=_r.quitem_id));
-- Copy Comments
INSERT INTO comment
( comment_cmnttype_id, comment_source, comment_source_id, comment_date, comment_user, comment_text )
SELECT comment_cmnttype_id, 'SI', _soitemid, comment_date, comment_user, ('Quote-' || comment_text)
FROM comment
WHERE ( (comment_source='QI')
AND (comment_source_id=_r.quitem_id) );
_orderid := -1;
_ordertype := '';
IF (_r.quitem_createorder) THEN
IF (_r.item_type IN ('M')) THEN
SELECT createWo( CAST(_r.quhead_number AS INTEGER), supply.itemsite_id, 1, (_r.quitem_qtyord * _r.quitem_qty_invuomratio),
_r.itemsite_leadtime, _r.quitem_scheddate, _r.quitem_memo, 'S', _soitemid, _r.quhead_prj_id ) INTO _orderId
FROM itemsite sold, itemsite supply
WHERE ((sold.itemsite_item_id=supply.itemsite_item_id)
AND (supply.itemsite_warehous_id=_r.quitem_order_warehous_id)
AND (sold.itemsite_id=_r.quitem_itemsite_id) );
_orderType := 'W';
INSERT INTO charass
(charass_target_type, charass_target_id, charass_char_id, charass_value)
SELECT 'W', _orderId, charass_char_id, charass_value
FROM charass
WHERE ((charass_target_type='QI')
AND (charass_target_id=_r.quitem_id));
ELSIF ( (_r.item_type IN ('P', 'O')) AND (_r.itemsite_createsopr) ) THEN
SELECT createPr( CAST(_r.quhead_number AS INTEGER), _r.quitem_itemsite_id, (_r.quitem_qtyord * _r.quitem_qty_invuomratio),
_r.quitem_scheddate, '', 'S', _soitemid ) INTO _orderId;
_orderType := 'R';
UPDATE pr SET pr_prj_id=_r.quhead_prj_id WHERE pr_id=_orderId;
ELSIF ( (_r.item_type IN ('P', 'O')) AND (_r.itemsite_createsopo) ) THEN
IF (_r.quitem_prcost=0) THEN
SELECT createPurchaseToSale(_soitemid, _r.itemsrcid, _r.quitem_dropship) INTO _orderId;
ELSE
SELECT createPurchaseToSale(_soitemid, _r.itemsrcid, _r.quitem_dropship, _r.quitem_prcost) INTO _orderId;
END IF;
_orderType := 'P';
END IF;
UPDATE coitem SET coitem_order_type=_ordertype, coitem_order_id=_orderid
WHERE (coitem_id=_soitemid);
END IF;
END LOOP;
SELECT metric_value INTO _showConvertedQuote
FROM metric WHERE metric_name = 'ShowQuotesAfterSO';
IF (_showConvertedQuote) THEN
UPDATE quhead
SET quhead_status= 'C'
WHERE (quhead_id = pQuheadid);
ELSE
PERFORM deleteQuote(pQuheadid);
END IF;
RETURN _soheadid;
END;
$_$;
ALTER FUNCTION public.convertquote(integer) OWNER TO admin;
--
-- Name: convertquotetoinvoice(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION convertquotetoinvoice(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pQuheadid ALIAS FOR $1;
_iheadid INTEGER;
_iitemid INTEGER;
_orderid INTEGER;
_ordertype CHARACTER(1);
_creditstatus TEXT;
_usespos BOOLEAN := false;
_blanketpos BOOLEAN := true;
_showConvertedQuote BOOLEAN := false;
_prospectid INTEGER;
_r RECORD;
_inNum TEXT;
BEGIN
-- Check to make sure the quote has not expired
IF (SELECT COALESCE(quhead_expire, endOfTime()) < CURRENT_DATE
FROM quhead
WHERE(quhead_id=pQuheadid)) THEN
RETURN -6;
END IF;
-- Check to make sure that all of the quote items have a valid itemsite
SELECT quitem_id INTO _r
FROM quitem LEFT OUTER JOIN itemsite ON (quitem_itemsite_id=itemsite_id)
WHERE ((itemsite_id IS NULL)
AND (quitem_quhead_id=pQuheadid));
IF (FOUND) THEN
INSERT INTO evntlog (evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id, evntlog_number)
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'Q', quhead_id, quhead_warehous_id, quhead_number
FROM evntnot, evnttype, quhead
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (evntnot_warehous_id=quhead_warehous_id)
AND (evnttype_name='CannotConvertQuote')
AND (quhead_id=pQuheadid) );
RETURN -1;
END IF;
-- Get Credit Stat, Uses POs and Blanket POs
SELECT cust_creditstatus, cust_usespos, cust_blanketpos
INTO _creditstatus, _usespos, _blanketpos
FROM quhead, custinfo
WHERE ((quhead_cust_id=cust_id)
AND (quhead_id=pQuheadid));
-- Check to see if customer or prospect
IF (NOT FOUND) THEN
SELECT prospect_id INTO _prospectid
FROM quhead, prospect
WHERE ((quhead_cust_id=prospect_id)
AND (quhead_id=pQuheadid));
IF (NOT FOUND) THEN
RETURN -2;
ELSE
RETURN -3;
END IF;
ELSIF (_creditstatus = 'H' AND NOT hasPriv('CreateSOForHoldCustomer')) THEN
RETURN -4;
ELSIF (_creditstatus = 'W' AND NOT hasPriv('CreateSOForWarnCustomer')) THEN
RETURN -5;
END IF;
-- PO/blanket PO checks
IF ( (_usespos) AND (NOT _blanketpos) ) THEN
PERFORM invchead_id
FROM quhead JOIN invchead ON ( (invchead_cust_id=quhead_cust_id) AND
(UPPER(invchead_custponumber)=UPPER(quhead_custponumber)) )
WHERE (quhead_id=pQuheadid);
IF (FOUND) THEN
RAISE EXCEPTION 'Duplicate Customer PO';
END IF;
END IF;
--Check to see if an invoice exists with the quote number
PERFORM quhead_number, invchead_id
FROM quhead, invchead
WHERE quhead_id = pQuheadid
AND invchead_invcnumber = quhead_number;
-- If it does then get a new Invoice number otherwise use the quote number as the invoice number
IF (FOUND) THEN
SELECT fetchinvcnumber() INTO _inNum;
ELSE
SELECT quhead_number INTO _inNum
FROM quhead
WHERE quhead_id = pQuheadid;
END IF;
--Insert quote info into invoice tables
SELECT NEXTVAL('invchead_invchead_id_seq') INTO _iheadid;
INSERT INTO invchead
( invchead_ordernumber, invchead_shipdate, invchead_recurring,
invchead_id, invchead_invcnumber, invchead_cust_id,
invchead_orderdate, invchead_ponumber,
invchead_billto_name, invchead_billto_address1,
invchead_billto_address2, invchead_billto_address3,
invchead_billto_city, invchead_billto_state, invchead_billto_zipcode, invchead_billto_country,
invchead_shipto_id, invchead_shipto_name, invchead_shipto_address1,
invchead_shipto_address2, invchead_shipto_address3,
invchead_shipto_city, invchead_shipto_state, invchead_shipto_zipcode, invchead_shipto_country,
invchead_salesrep_id, invchead_commission,
invchead_terms_id, invchead_shipchrg_id, invchead_fob, invchead_shipvia,
invchead_notes, invchead_freight,
invchead_misc_amount, invchead_misc_accnt_id, invchead_misc_descrip,
invchead_prj_id, invchead_curr_id, invchead_taxzone_id,
invchead_posted, invchead_printed, invchead_invcdate,
invchead_saletype_id, invchead_shipzone_id
--invchead_taxtype_id,
--invchead_shipto_cntct_id, invchead_shipto_cntct_honorific, invchead_shipto_cntct_first_name,
--invchead_shipto_cntct_middle, invchead_shipto_cntct_last_name, invchead_shipto_cntct_suffix,
--invchead_shipto_cntct_phone, invchead_shipto_cntct_title, invchead_shipto_cntct_fax,
--invchead_shipto_cntct_email,
--invchead_billto_cntct_id, invchead_billto_cntct_honorific,
--invchead_billto_cntct_first_name, invchead_billto_cntct_middle, invchead_billto_cntct_last_name,
--invchead_billto_cntct_suffix, invchead_billto_cntct_phone, invchead_billto_cntct_title,
--invchead_billto_cntct_fax, invchead_billto_cntct_email,
--invchead_ophead_id,
--invchead_calcfreight
)
SELECT quhead_number, quhead_packdate, 'f',
_iheadid, _inNum, quhead_cust_id,
CURRENT_DATE, quhead_custponumber,
quhead_billtoname, quhead_billtoaddress1,
quhead_billtoaddress2, quhead_billtoaddress3,
quhead_billtocity, quhead_billtostate, quhead_billtozip, quhead_billtocountry,
quhead_shipto_id, quhead_shiptoname, quhead_shiptoaddress1,
quhead_shiptoaddress2, quhead_shiptoaddress3,
quhead_shiptocity, quhead_shiptostate, quhead_shiptozipcode, quhead_shiptocountry,
quhead_salesrep_id, quhead_commission,
quhead_terms_id, cust_shipchrg_id, quhead_fob, quhead_shipvia,
quhead_ordercomments, quhead_freight,
quhead_misc, quhead_misc_accnt_id, quhead_misc_descrip,
quhead_prj_id, quhead_curr_id, quhead_taxzone_id,
'f','f',current_date,
quhead_saletype_id, quhead_shipzone_id
--quhead_shipto_cntct_id, quhead_shipto_cntct_honorific,
--quhead_shipto_cntct_first_name, quhead_shipto_cntct_middle, quhead_shipto_cntct_last_name,
--quhead_shipto_cntct_suffix, quhead_shipto_cntct_phone, quhead_shipto_cntct_title,
--quhead_shipto_cntct_fax, quhead_shipto_cntct_email, quhead_billto_cntct_id,
--quhead_billto_cntct_honorific, quhead_billto_cntct_first_name, quhead_billto_cntct_middle,
--quhead_billto_cntct_last_name, quhead_billto_cntct_suffix, quhead_billto_cntct_phone,
--quhead_billto_cntct_title, quhead_billto_cntct_fax, quhead_billto_cntct_email, quhead_ophead_id,
--quhead_calcfreight
FROM quhead JOIN custinfo ON (cust_id=quhead_cust_id)
WHERE (quhead_id=pQuheadid);
-- Attachments on Invoice not supported but leaving this in for future use:
/*
UPDATE url SET url_source_id = _iheadid,
url_source = 'I'
WHERE ((url_source='Q') AND (url_source_id = pQuheadid));
UPDATE imageass SET imageass_source_id = _iheadid,
imageass_source = 'I'
WHERE ((imageass_source='Q') AND (imageass_source_id = pQuheadid));
UPDATE docass SET docass_source_id = _iheadid,
docass_source_type = 'I'
WHERE ((docass_source_type='Q') AND (docass_source_id = pQuheadid));
*/
-- Comments not supported on Invoice but leaving this in for future use:
/*
INSERT INTO comment
( comment_cmnttype_id, comment_source, comment_source_id, comment_date, comment_user, comment_text, comment_public )
SELECT comment_cmnttype_id, 'I', _iheadid, comment_date, comment_user, ('Quote-' || comment_text), comment_public
FROM comment
WHERE ( (comment_source='Q')
AND (comment_source_id=pQuheadid) );
*/
FOR _r IN SELECT quitem.*,
quhead_number, quhead_prj_id,
itemsite_item_id, itemsite_leadtime,
itemsite_createsopo, itemsite_createsopr,
item_type, COALESCE(quitem_itemsrc_id, itemsrc_id, -1) AS itemsrcid
FROM quhead JOIN quitem ON (quitem_quhead_id=quhead_id)
JOIN itemsite ON (itemsite_id=quitem_itemsite_id)
JOIN item ON (item_id=itemsite_item_id)
LEFT OUTER JOIN itemsrc ON ( (itemsrc_item_id=item_id) AND
(itemsrc_default) )
WHERE (quhead_id=pQuheadid) LOOP
SELECT NEXTVAL('invcitem_invcitem_id_seq') INTO _iitemid;
INSERT INTO invcitem
( invcitem_id, invcitem_invchead_id, invcitem_linenumber,
invcitem_item_id,
invcitem_warehous_id,
--invcitem_status,
--invcitem_scheddate, invcitem_promdate,
invcitem_price, invcitem_custprice,
invcitem_ordered, invcitem_billed,
invcitem_qty_uom_id, invcitem_qty_invuomratio,
invcitem_price_uom_id, invcitem_price_invuomratio,
invcitem_custpn, invcitem_notes, invcitem_taxtype_id )
VALUES
( _iitemid, _iheadid, _r.quitem_linenumber,
(SELECT itemsite_item_id FROM itemsite WHERE itemsite_id = _r.quitem_itemsite_id),
(SELECT itemsite_warehous_id FROM itemsite WHERE itemsite_id = _r.quitem_itemsite_id),
--'O',
--_r.quitem_scheddate, _r.quitem_promdate,
_r.quitem_price, _r.quitem_custprice,
_r.quitem_qtyord, _r.quitem_qtyord,
_r.quitem_qty_uom_id, _r.quitem_qty_invuomratio,
_r.quitem_price_uom_id, _r.quitem_price_invuomratio,
_r.quitem_custpn, _r.quitem_memo, _r.quitem_taxtype_id );
IF (fetchMetricBool('enablextcommissionission')) THEN
PERFORM xtcommission.getSalesReps(quhead_cust_id, quhead_shipto_id,
_r.itemsite_item_id, _r.quitem_price,
_iitemid, 'InvoiceItem')
FROM quhead
WHERE (quhead_id=pQuheadid);
END IF;
-- Chracteristics not supported on Invoice but leaving in for future use:
/*
INSERT INTO charass
(charass_target_type, charass_target_id, charass_char_id, charass_value, charass_default, charass_price)
SELECT 'SI', _iitemid, charass_char_id, charass_value, charass_default, charass_price
FROM charass
WHERE ((charass_target_type='QI')
AND (charass_target_id=_r.quitem_id));
*/
-- Comments not supported but leaving in for future use
/*
INSERT INTO comment
( comment_cmnttype_id, comment_source, comment_source_id, comment_date, comment_user, comment_text )
SELECT comment_cmnttype_id, 'SI', _iitemid, comment_date, comment_user, ('Quote-' || comment_text)
FROM comment
WHERE ( (comment_source='QI')
AND (comment_source_id=_r.quitem_id) );
*/
_orderid := -1;
_ordertype := '';
IF (_r.quitem_createorder) THEN
IF (_r.item_type IN ('M')) THEN
SELECT createWo( CAST(_r.quhead_number AS INTEGER), supply.itemsite_id, 1, (_r.quitem_qtyord * _r.quitem_qty_invuomratio),
_r.itemsite_leadtime, _r.quitem_scheddate, _r.quitem_memo, 'Q', _iitemid, _r.quhead_prj_id ) INTO _orderId
FROM itemsite sold, itemsite supply
WHERE ((sold.itemsite_item_id=supply.itemsite_item_id)
AND (supply.itemsite_warehous_id=_r.quitem_order_warehous_id)
AND (sold.itemsite_id=_r.quitem_itemsite_id) );
_orderType := 'W';
INSERT INTO charass
(charass_target_type, charass_target_id, charass_char_id, charass_value)
SELECT 'W', _orderId, charass_char_id, charass_value
FROM charass
WHERE ((charass_target_type='QI')
AND (charass_target_id=_r.quitem_id));
ELSIF ( (_r.item_type IN ('P', 'O')) AND (_r.itemsite_createsopr) ) THEN
SELECT createPr( CAST(_r.quhead_number AS INTEGER), _r.quitem_itemsite_id, (_r.quitem_qtyord * _r.quitem_qty_invuomratio),
_r.quitem_scheddate, '', 'S', _iitemid ) INTO _orderId;
_orderType := 'R';
UPDATE pr SET pr_prj_id=_r.quhead_prj_id WHERE pr_id=_orderId;
ELSIF ( (_r.item_type IN ('P', 'O')) AND (_r.itemsite_createsopo) ) THEN
IF (_r.quitem_prcost=0) THEN
-- For now quote to invoice/dropship will not be supported but with the creation of a createPurchaseToQuote() version of createPurchaseToSale()
-- it can be
-- SELECT createPurchaseToSale(_iitemid, _r.itemsrcid, _r.quitem_dropship) INTO _orderId;
RAISE EXCEPTION 'Quote contains one or more dropship items that may not be converted from a Quote to an Invoice';
ELSE
-- For now quote to invoice/dropship will not be supported but with the creation of a createPurchaseToQuote() version of createPurchaseToSale()
-- it can be
-- SELECT createPurchaseToSale(_iitemid, _r.itemsrcid, _r.quitem_dropship, _r.quitem_prcost) INTO _orderId;
RAISE EXCEPTION 'Quote contains one or more dropship items that may not be converted from a Quote to an Invoice';
END IF;
_orderType := 'P';
END IF;
-- UPDATE invcitem SET invcitem_order_type=_ordertype, invcitem_order_id=_orderid
-- WHERE (invcitem_id=_iitemid);
END IF;
END LOOP;
SELECT metric_value INTO _showConvertedQuote
FROM metric WHERE metric_name = 'ShowQuotesAfterSO';
IF (_showConvertedQuote) THEN
UPDATE quhead
SET quhead_status= 'C'
WHERE (quhead_id = pQuheadid);
ELSE
PERFORM deleteQuote(pQuheadid);
END IF;
RETURN _iheadid;
END;
$_$;
ALTER FUNCTION public.convertquotetoinvoice(integer) OWNER TO admin;
--
-- Name: copybom(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copybom(psitemid integer, ptitemid integer) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_result INTEGER;
BEGIN
SELECT copyBOM (pSItemid, PTItemid, FALSE) into _result;
RETURN _result;
END;
$$;
ALTER FUNCTION public.copybom(psitemid integer, ptitemid integer) OWNER TO admin;
--
-- Name: copybom(integer, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copybom(psitemid integer, ptitemid integer, pcopyusedat boolean) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_bh RECORD;
_bi RECORD;
_bomheadid INTEGER;
_bomitemid INTEGER;
_bomworksetid INTEGER;
_temp INTEGER;
_schedatwooper BOOLEAN;
_booitemseqid INTEGER;
BEGIN
-- Cache source bomhead
SELECT * INTO _bh
FROM bomhead
WHERE ((bomhead_item_id=pSItemid)
AND (bomhead_rev_id=getActiveRevID('BOM', pSItemid)));
IF (NOT FOUND) THEN
RETURN -1;
END IF;
-- Make sure that source bomitems exist
SELECT bomitem_id INTO _bomitemid
FROM bomitem
WHERE ((bomitem_parent_item_id=_bh.bomhead_item_id)
AND (bomitem_rev_id=_bh.bomhead_rev_id))
LIMIT 1;
IF (NOT FOUND) THEN
RETURN -2;
END IF;
-- Make sure that target bomitems do not exist
SELECT bomitem_id INTO _bomitemid
FROM bomitem
WHERE ((bomitem_parent_item_id=pTItemid)
AND (bomitem_rev_id= -1))
LIMIT 1;
IF (FOUND) THEN
RETURN -3;
END IF;
-- Make sure that the parent is not used in the component at some level
IF ( SELECT (item_type IN ('M', 'F'))
FROM item
WHERE (item_id=pSItemid) ) THEN
SELECT indentedWhereUsed(pTItemid) INTO _bomworksetid;
SELECT bomwork_id INTO _temp
FROM bomwork
WHERE ( (bomwork_set_id=_bomworksetid)
AND (bomwork_item_id=pSItemid) )
LIMIT 1;
IF (FOUND) THEN
PERFORM deleteBOMWorkset(_bomworksetid);
RETURN -4;
END IF;
PERFORM deleteBOMWorkset(_bomworksetid);
END IF;
-- Check for existing target bomhead
SELECT bomhead_id INTO _bomheadid
FROM bomhead
WHERE ((bomhead_item_id=pTItemid)
AND (bomhead_rev_id= -1));
IF (NOT FOUND) THEN
INSERT INTO bomhead
( bomhead_item_id, bomhead_serial, bomhead_docnum,
bomhead_batchsize, bomhead_requiredqtyper )
VALUES
( pTItemid, _bh.bomhead_serial, _bh.bomhead_docnum,
_bh.bomhead_batchsize, _bh.bomhead_requiredqtyper );
END IF;
FOR _bi IN SELECT bomitem.*
FROM bomitem(pSItemid)
WHERE (bomitem_expires>CURRENT_DATE) LOOP
SELECT NEXTVAL('bomitem_bomitem_id_seq') INTO _bomitemid;
IF (pCopyUsedAt) THEN
_schedatwooper := _bi.bomitem_schedatwooper;
_booitemseqid := _bi.bomitem_booitem_seq_id;
ELSE
_schedatwooper := FALSE;
_booitemseqid := -1;
END IF;
INSERT INTO bomitem
( bomitem_id, bomitem_parent_item_id, bomitem_seqnumber, bomitem_item_id,
bomitem_uom_id, bomitem_qtyfxd, bomitem_qtyper, bomitem_scrap, bomitem_schedatwooper,
bomitem_booitem_seq_id,
bomitem_effective, bomitem_expires, bomitem_ecn,
bomitem_createwo, bomitem_issuemethod, bomitem_moddate, bomitem_subtype,
bomitem_notes, bomitem_ref )
VALUES
( _bomitemid, pTItemid, _bi.bomitem_seqnumber, _bi.bomitem_item_id,
_bi.bomitem_uom_id, _bi.bomitem_qtyfxd, _bi.bomitem_qtyper, _bi.bomitem_scrap, _schedatwooper,
_booitemseqid,
CURRENT_DATE, _bi.bomitem_expires, _bi.bomitem_ecn,
_bi.bomitem_createwo, _bi.bomitem_issuemethod, CURRENT_DATE, _bi.bomitem_subtype,
_bi.bomitem_notes, _bi.bomitem_ref );
INSERT INTO bomitemsub
( bomitemsub_bomitem_id, bomitemsub_item_id,
bomitemsub_uomratio, bomitemsub_rank )
SELECT _bomitemid, bomitemsub_item_id,
bomitemsub_uomratio, bomitemsub_rank
FROM bomitemsub
WHERE (bomitemsub_bomitem_id=_bi.bomitem_id);
END LOOP;
RETURN pTItemid;
END;
$$;
ALTER FUNCTION public.copybom(psitemid integer, ptitemid integer, pcopyusedat boolean) OWNER TO admin;
--
-- Name: copybudget(integer, text, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copybudget(integer, text, text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBudgheadid ALIAS FOR $1;
pName ALIAS FOR $2;
pDescrip ALIAS FOR $3;
pInterval ALIAS FOR $4;
_budgheadid INTEGER;
_periodid INTEGER;
_result INTEGER;
BEGIN
SELECT 1 INTO _result
FROM budgitem
WHERE ((budgitem_budghead_id=pBudgheadid)
AND (nextPeriodByInterval(budgitem_period_id, pInterval)=-1))
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
SELECT nextval('budghead_budghead_id_seq') INTO _budgheadid;
INSERT INTO budghead
(budghead_id, budghead_name, budghead_descrip)
VALUES(_budgheadid, pName, pDescrip);
INSERT INTO budgitem (budgitem_budghead_id, budgitem_period_id,
budgitem_accnt_id, budgitem_amount)
SELECT _budgheadid, nextPeriodByInterval(budgitem_period_id, pInterval),
budgitem_accnt_id, budgitem_amount
FROM budgitem
WHERE (budgitem_budghead_id=pBudgheadid);
RETURN _budgheadid;
END;
$_$;
ALTER FUNCTION public.copybudget(integer, text, text, integer) OWNER TO admin;
--
-- Name: copycmd(integer, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copycmd(integer, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCmdId ALIAS FOR $1;
pModule ALIAS FOR $2;
pTitle ALIAS FOR $3;
_cmdId INTEGER;
BEGIN
SELECT nextval('cmd_cmd_id_seq') INTO _cmdId;
INSERT INTO cmd
SELECT _cmdId, pModule, pTitle, cmd_descrip, cmd_privname, cmd_executable
FROM cmd
WHERE (cmd_id=pCmdId);
INSERT INTO cmdarg (cmdarg_cmd_id, cmdarg_order, cmdarg_arg)
SELECT _cmdId, cmdarg_order, cmdarg_arg
FROM cmdarg
WHERE (cmdarg_cmd_id=pCmdId);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.copycmd(integer, text, text) OWNER TO admin;
--
-- Name: copycontract(integer, text, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copycontract(pcontrctid integer, pnumber text, peffective date, pexpires date) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_contrctid INTEGER;
_itemsrcid INTEGER;
_r RECORD;
BEGIN
INSERT INTO contrct
( contrct_number,
contrct_vend_id,
contrct_descrip,
contrct_effective,
contrct_expires,
contrct_note )
SELECT
pNumber,
contrct_vend_id,
contrct_descrip,
pEffective,
pExpires,
contrct_note
FROM contrct
WHERE (contrct_id=pContrctid)
RETURNING contrct_id INTO _contrctid;
FOR _r IN
SELECT * FROM itemsrc WHERE (itemsrc_contrct_id=pContrctid)
LOOP
INSERT INTO itemsrc
( itemsrc_item_id,
itemsrc_vend_id,
itemsrc_vend_item_number,
itemsrc_vend_item_descrip,
itemsrc_comments,
itemsrc_vend_uom,
itemsrc_invvendoruomratio,
itemsrc_minordqty,
itemsrc_multordqty,
itemsrc_leadtime,
itemsrc_ranking,
itemsrc_active,
itemsrc_manuf_name,
itemsrc_manuf_item_number,
itemsrc_manuf_item_descrip,
itemsrc_default,
itemsrc_upccode,
itemsrc_effective,
itemsrc_expires,
itemsrc_contrct_id )
VALUES
( _r.itemsrc_item_id,
_r.itemsrc_vend_id,
_r.itemsrc_vend_item_number,
_r.itemsrc_vend_item_descrip,
_r.itemsrc_comments,
_r.itemsrc_vend_uom,
_r.itemsrc_invvendoruomratio,
_r.itemsrc_minordqty,
_r.itemsrc_multordqty,
_r.itemsrc_leadtime,
_r.itemsrc_ranking,
_r.itemsrc_active,
_r.itemsrc_manuf_name,
_r.itemsrc_manuf_item_number,
_r.itemsrc_manuf_item_descrip,
_r.itemsrc_default,
_r.itemsrc_upccode,
pEffective,
pExpires,
_contrctid )
RETURNING itemsrc_id INTO _itemsrcid;
INSERT INTO itemsrcp
( itemsrcp_itemsrc_id,
itemsrcp_qtybreak,
itemsrcp_price,
itemsrcp_updated,
itemsrcp_curr_id,
itemsrcp_dropship,
itemsrcp_warehous_id,
itemsrcp_type,
itemsrcp_discntprcnt,
itemsrcp_fixedamtdiscount )
SELECT
_itemsrcid,
itemsrcp_qtybreak,
itemsrcp_price,
CURRENT_DATE,
itemsrcp_curr_id,
itemsrcp_dropship,
itemsrcp_warehous_id,
itemsrcp_type,
itemsrcp_discntprcnt,
itemsrcp_fixedamtdiscount
FROM itemsrcp
WHERE (itemsrcp_itemsrc_id=_r.itemsrc_id);
END LOOP;
RETURN _contrctid;
END;
$$;
ALTER FUNCTION public.copycontract(pcontrctid integer, pnumber text, peffective date, pexpires date) OWNER TO admin;
--
-- Name: copyfinancialgroup(integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copyfinancialgroup(integer, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSourceGroup ALIAS FOR $1;
pFlheadid ALIAS FOR $2;
pParentFlgrpid ALIAS FOR $3;
_flgrpid INTEGER;
BEGIN
SELECT nextval('flgrp_flgrp_id_seq') INTO _flgrpid;
-- Copy the group item
INSERT INTO flgrp
(flgrp_id, flgrp_flhead_id, flgrp_flgrp_id,
flgrp_order, flgrp_name, flgrp_descrip,
flgrp_subtotal, flgrp_summarize, flgrp_subtract,
flgrp_showstart, flgrp_showend,
flgrp_showdelta, flgrp_showbudget, flgrp_showdiff, flgrp_showcustom,
flgrp_showstartprcnt, flgrp_showendprcnt,
flgrp_showdeltaprcnt, flgrp_showbudgetprcnt, flgrp_showdiffprcnt, flgrp_showcustomprcnt,
flgrp_usealtsubtotal, flgrp_altsubtotal,flgrp_prcnt_flgrp_id)
SELECT _flgrpid, pFlheadid, pParentFlgrpid,
flgrp_order, flgrp_name, flgrp_descrip,
flgrp_subtotal, flgrp_summarize, flgrp_subtract,
flgrp_showstart, flgrp_showend,
flgrp_showdelta, flgrp_showbudget, flgrp_showdiff, flgrp_showcustom,
flgrp_showstartprcnt, flgrp_showendprcnt,
flgrp_showdeltaprcnt, flgrp_showbudgetprcnt, flgrp_showdiffprcnt, flgrp_showcustomprcnt,
flgrp_usealtsubtotal, flgrp_altsubtotal,flgrp_prcnt_flgrp_id
FROM flgrp
WHERE (flgrp_id=pSourceGroup);
-- Store temporary cross ref info
EXECUTE ' INSERT INTO tmp_flgrpxref' || getEffectiveXtUser() || ' (flgrpxref_oldid,flgrpxref_newid) VALUES (' || pSourceGroup || ',' || _flgrpid || ');';
-- Copy any children flitems
INSERT INTO flitem
(flitem_flhead_id, flitem_flgrp_id,
flitem_order, flitem_accnt_id, flitem_showstart,
flitem_showend, flitem_showdelta, flitem_showbudget, flitem_showdiff, flitem_showcustom,
flitem_subtract, flitem_showstartprcnt,
flitem_showendprcnt, flitem_showdeltaprcnt,
flitem_showbudgetprcnt, flitem_showdiffprcnt, flitem_showcustomprcnt,
flitem_custom_source, flitem_company, flitem_profit, flitem_number,
flitem_sub, flitem_type, flitem_subaccnttype_code, flitem_prcnt_flgrp_id)
SELECT pFlheadid, _flgrpid,
flitem_order, flitem_accnt_id, flitem_showstart,
flitem_showend, flitem_showdelta, flitem_showbudget, flitem_showdiff, flitem_showcustom,
flitem_subtract, flitem_showstartprcnt,
flitem_showendprcnt, flitem_showdeltaprcnt,
flitem_showbudgetprcnt, flitem_showdiffprcnt, flitem_showcustomprcnt,
flitem_custom_source, flitem_company, flitem_profit, flitem_number,
flitem_sub, flitem_type, flitem_subaccnttype_code, flitem_prcnt_flgrp_id
FROM flitem
WHERE (flitem_flgrp_id=pSourceGroup);
-- Copy any children flspecs
INSERT INTO flspec
(flspec_flhead_id, flspec_flgrp_id,
flspec_order, flspec_name, flspec_type, flspec_showstart,
flspec_showend, flspec_showdelta, flspec_showbudget, flspec_showdiff, flspec_showcustom,
flspec_subtract, flspec_showstartprcnt,
flspec_showendprcnt, flspec_showdeltaprcnt,
flspec_showbudgetprcnt, flspec_showdiffprcnt, flspec_showcustomprcnt,
flspec_custom_source, flspec_prcnt_flgrp_id)
SELECT pFlheadid, _flgrpid,
flspec_order, flspec_name, flspec_type, flspec_showstart,
flspec_showend, flspec_showdelta, flspec_showbudget, flspec_showdiff, flspec_showcustom,
flspec_subtract, flspec_showstartprcnt,
flspec_showendprcnt, flspec_showdeltaprcnt,
flspec_showbudgetprcnt, flspec_showdiffprcnt, flspec_showcustomprcnt,
flspec_custom_source, flspec_prcnt_flgrp_id
FROM flspec
WHERE (flspec_flgrp_id=pSourceGroup);
-- Copy the groups
PERFORM copyFinancialGroup(flgrp_id, pFlheadid, _flgrpid)
FROM flgrp
WHERE (flgrp_flgrp_id=pSourceGroup);
RETURN _flgrpid;
END;
$_$;
ALTER FUNCTION public.copyfinancialgroup(integer, integer, integer) OWNER TO admin;
--
-- Name: copyfinanciallayout(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copyfinanciallayout(integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSourceFlheadid ALIAS FOR $1;
pDestName ALIAS FOR $2;
_flheadid INTEGER;
_tblName TEXT;
BEGIN
-- Check for the flhead to be copy that it exists
PERFORM flhead_id
FROM flhead
WHERE (flhead_id=pSourceFlheadid);
IF (NOT FOUND) THEN
RETURN -1;
END IF;
-- Check that the name is valid
IF (pDestName IS NULL OR pDestName = '') THEN
RETURN -2;
END IF;
-- Check for the name to copy to does not exist
PERFORM flhead_id
FROM flhead
WHERE (flhead_name=pDestName);
IF (FOUND) THEN
RETURN -3;
END IF;
-- Copy the flhead record
SELECT nextval('flhead_flhead_id_seq') INTO _flheadid;
INSERT INTO flhead
(flhead_id, flhead_name, flhead_descrip,
flhead_showtotal, flhead_showstart,
flhead_showend, flhead_showdelta, flhead_showbudget,
flhead_showdiff, flhead_showcustom,
flhead_custom_label,
flhead_usealttotal, flhead_alttotal,
flhead_usealtbegin, flhead_altbegin,
flhead_usealtend, flhead_altend,
flhead_usealtdebits, flhead_altdebits,
flhead_usealtcredits, flhead_altcredits,
flhead_usealtbudget, flhead_altbudget,
flhead_usealtdiff, flhead_altdiff,
flhead_type, flhead_active, flhead_sys
)
SELECT _flheadid, pDestName, flhead_descrip,
flhead_showtotal, flhead_showstart,
flhead_showend, flhead_showdelta, flhead_showbudget,
flhead_showdiff, flhead_showcustom,
flhead_custom_label,
flhead_usealttotal, flhead_alttotal,
flhead_usealtbegin, flhead_altbegin,
flhead_usealtend, flhead_altend,
flhead_usealtdebits, flhead_altdebits,
flhead_usealtcredits, flhead_altcredits,
flhead_usealtbudget, flhead_altbudget,
flhead_usealtdiff, flhead_altdiff,
flhead_type, flhead_active, false
FROM flhead
WHERE (flhead_id=pSourceFlheadid);
-- Create temporary table so old and new group ids can be stored
SELECT relname FROM pg_class INTO _tblName
WHERE relname = 'tmp_flgrpxref';
IF (_tblName IS NULL) THEN
EXECUTE 'CREATE TEMPORARY TABLE tmp_flgrpxref' || getEffectiveXtUser() || '
(
flgrpxref_oldid int4,
flgrpxref_newid int4
) ON COMMIT DROP;';
END IF;
-- Copy the top level groups
PERFORM copyFinancialGroup(flgrp_id, _flheadid, -1)
FROM flgrp
WHERE ((flgrp_flhead_id=pSourceFlheadid)
AND (flgrp_flgrp_id=-1));
-- Update Group Percent settings
EXECUTE 'UPDATE flgrp
SET flgrp_prcnt_flgrp_id=flgrpxref_newid
FROM tmp_flgrpxref' || getEffectiveXtUser() || '
WHERE ((flgrp_flhead_id=' || _flheadid || ')
AND (flgrp_prcnt_flgrp_id=flgrpxref_oldid));';
EXECUTE 'UPDATE flitem
SET flitem_prcnt_flgrp_id=flgrpxref_newid
FROM tmp_flgrpxref' || getEffectiveXtUser() || '
WHERE ((flitem_flhead_id=' || _flheadid || ')
AND (flitem_prcnt_flgrp_id=flgrpxref_oldid));';
EXECUTE 'UPDATE flspec
SET flspec_prcnt_flgrp_id=flgrpxref_newid
FROM tmp_flgrpxref' || getEffectiveXtUser() || '
WHERE ((flspec_flhead_id=' || _flheadid || ')
AND (flspec_prcnt_flgrp_id=flgrpxref_oldid));';
-- Copy Column Layounts
INSERT INTO flcol
(flcol_flhead_id,
flcol_name,
flcol_descrip,
flcol_report_id,
flcol_month,
flcol_quarter,
flcol_year,
flcol_showdb,
flcol_prcnt,
flcol_priortype,
flcol_priormonth,
flcol_priorquarter,
flcol_prioryear,
flcol_priorprcnt,
flcol_priordiff,
flcol_priordiffprcnt,
flcol_budget,
flcol_budgetprcnt,
flcol_budgetdiff,
flcol_budgetdiffprcnt
)
SELECT
_flheadid,flcol_name,flcol_descrip,
flcol_report_id,flcol_month,flcol_quarter,
flcol_year,flcol_showdb,flcol_prcnt,
flcol_priortype,flcol_priormonth,flcol_priorquarter,
flcol_prioryear,flcol_priorprcnt,flcol_priordiff,
flcol_priordiffprcnt,flcol_budget,flcol_budgetprcnt,
flcol_budgetdiff,flcol_budgetdiffprcnt
FROM flcol
WHERE (flcol_flhead_id=pSourceFlheadid);
RETURN _flheadid;
END;
$_$;
ALTER FUNCTION public.copyfinanciallayout(integer, text) OWNER TO admin;
--
-- Name: copyglseries(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copyglseries(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSequence ALIAS FOR $1;
_sequence INTEGER := fetchGLSequence();
_journal INTEGER;
BEGIN
SELECT gltrans_journalnumber INTO _journal
FROM gltrans
WHERE ( gltrans_sequence=pSequence )
LIMIT 1;
IF (FOUND) THEN
INSERT INTO glseries
( glseries_sequence, glseries_source, glseries_doctype, glseries_docnumber,
glseries_notes, glseries_accnt_id, glseries_amount, glseries_distdate )
SELECT _sequence, gltrans_source, gltrans_doctype, gltrans_docnumber,
gltrans_notes, gltrans_accnt_id,
gltrans_amount, gltrans_date
FROM gltrans
WHERE ( gltrans_sequence=pSequence );
ELSE
RAISE EXCEPTION 'g/l transaction sequence not found';
END IF;
RETURN _sequence;
END;
$_$;
ALTER FUNCTION public.copyglseries(integer) OWNER TO admin;
--
-- Name: copyincdt(integer, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copyincdt(integer, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pparentid ALIAS FOR $1;
ptimestamp TIMESTAMP WITH TIME ZONE := COALESCE($2, CURRENT_TIMESTAMP);
_alarmid INTEGER;
_incdtid INTEGER;
_todoitemid INTEGER;
BEGIN
INSERT INTO incdt(incdt_number, incdt_crmacct_id,
incdt_cntct_id, incdt_summary,
incdt_descrip, incdt_item_id,
incdt_timestamp, incdt_incdtcat_id,
incdt_incdtseverity_id,incdt_incdtpriority_id,
incdt_owner_username, incdt_recurring_incdt_id
) SELECT fetchIncidentNumber(), incdt_crmacct_id,
incdt_cntct_id, incdt_summary,
incdt_descrip, incdt_item_id,
ptimestamp, incdt_incdtcat_id,
incdt_incdtseverity_id,incdt_incdtpriority_id,
incdt_owner_username, incdt_recurring_incdt_id
FROM incdt
WHERE (incdt_id=pparentid)
RETURNING incdt_id INTO _incdtid;
IF (_incdtid IS NULL) THEN
RETURN -10;
END IF;
SELECT MIN(copyTodoitem(todoitem_id, CAST(ptimestamp AS DATE), _incdtid))
INTO _todoitemid
FROM todoitem
WHERE (todoitem_incdt_id=pparentid);
IF (_todoitemid < 0) THEN
RETURN _todoitemid;
END IF;
SELECT saveAlarm(NULL, NULL, CAST(ptimestamp AS DATE),
CAST(alarm_time - DATE_TRUNC('day',alarm_time) AS TIME),
alarm_time_offset,
alarm_time_qualifier,
alarm_event_recipient IS NOT NULL, alarm_event_recipient,
alarm_email_recipient IS NOT NULL, alarm_email_recipient,
alarm_sysmsg_recipient IS NOT NULL, alarm_sysmsg_recipient,
'INCDT', _incdtid, 'CHANGEONE')
INTO _alarmid
FROM alarm
WHERE ((alarm_source='INCDT')
AND (alarm_source_id=pparentid));
IF (_alarmid < 0) THEN
RETURN _alarmid;
END IF;
INSERT INTO docass (docass_source_id, docass_source_type,
docass_target_id, docass_target_type, docass_purpose
) SELECT _incdtid, 'INCDT',
docass_target_id, docass_target_type, docass_purpose
FROM docass
WHERE ((docass_source_id=pparentid)
AND (docass_source_type='INCDT'));
RETURN _incdtid;
END;
$_$;
ALTER FUNCTION public.copyincdt(integer, timestamp with time zone) OWNER TO admin;
--
-- Name: copyinvoice(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copyinvoice(integer, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pInvcheadid ALIAS FOR $1;
_invcheadid INTEGER;
_invcnumber TEXT;
_invcdate DATE := COALESCE($2, CURRENT_DATE);
_i RECORD;
_l RECORD;
_invcitemid INTEGER;
BEGIN
SELECT *
INTO _i
FROM invchead
WHERE(invchead_id=pInvcheadid);
IF(NOT FOUND) THEN
RETURN -1;
END IF;
_invcnumber := fetchInvcNumber();
_invcheadid := nextval('invchead_invchead_id_seq');
INSERT INTO invchead
(invchead_id,
invchead_cust_id, invchead_shipto_id,
invchead_ordernumber, invchead_orderdate,
invchead_posted, invchead_printed,
invchead_invcnumber, invchead_invcdate, invchead_shipdate,
invchead_ponumber, invchead_shipvia,
invchead_fob, invchead_billto_name,
invchead_billto_address1, invchead_billto_address2,
invchead_billto_address3, invchead_billto_city,
invchead_billto_state, invchead_billto_zipcode,
invchead_billto_phone, invchead_shipto_name,
invchead_shipto_address1, invchead_shipto_address2,
invchead_shipto_address3, invchead_shipto_city,
invchead_shipto_state, invchead_shipto_zipcode,
invchead_shipto_phone, invchead_salesrep_id,
invchead_commission,
invchead_terms_id, invchead_freight,
invchead_misc_amount,
invchead_misc_descrip, invchead_misc_accnt_id,
invchead_payment, invchead_paymentref,
invchead_notes,
invchead_billto_country, invchead_shipto_country,
invchead_prj_id, invchead_curr_id,
invchead_taxzone_id,
invchead_recurring_invchead_id,
invchead_saletype_id, invchead_shipzone_id)
VALUES(_invcheadid,
_i.invchead_cust_id, _i.invchead_shipto_id,
_i.invchead_ordernumber, _i.invchead_orderdate,
false, false,
_invcnumber, _invcdate, _i.invchead_shipdate,
_i.invchead_ponumber, _i.invchead_shipvia,
_i.invchead_fob, _i.invchead_billto_name,
_i.invchead_billto_address1, _i.invchead_billto_address2,
_i.invchead_billto_address3, _i.invchead_billto_city,
_i.invchead_billto_state, _i.invchead_billto_zipcode,
_i.invchead_billto_phone, _i.invchead_shipto_name,
_i.invchead_shipto_address1, _i.invchead_shipto_address2,
_i.invchead_shipto_address3, _i.invchead_shipto_city,
_i.invchead_shipto_state, _i.invchead_shipto_zipcode,
_i.invchead_shipto_phone, _i.invchead_salesrep_id,
_i.invchead_commission,
_i.invchead_terms_id, _i.invchead_freight,
_i.invchead_misc_amount,
_i.invchead_misc_descrip, _i.invchead_misc_accnt_id,
_i.invchead_payment, _i.invchead_paymentref,
_i.invchead_notes,
_i.invchead_billto_country, _i.invchead_shipto_country,
_i.invchead_prj_id, _i.invchead_curr_id,
_i.invchead_taxzone_id,
_i.invchead_recurring_invchead_id,
_i.invchead_saletype_id, _i.invchead_shipzone_id);
FOR _l IN SELECT *
FROM invcitem
WHERE (invcitem_invchead_id=pInvcheadid) LOOP
SELECT NEXTVAL('invcitem_invcitem_id_seq') INTO _invcitemid;
INSERT INTO invcitem
(invcitem_id, invcitem_invchead_id,
invcitem_linenumber, invcitem_item_id,
invcitem_warehous_id, invcitem_custpn,
invcitem_number, invcitem_descrip,
invcitem_ordered, invcitem_billed,
invcitem_custprice, invcitem_price,
invcitem_notes, invcitem_salescat_id,
invcitem_taxtype_id,
invcitem_qty_uom_id, invcitem_qty_invuomratio,
invcitem_price_uom_id, invcitem_price_invuomratio,
invcitem_coitem_id)
VALUES
(_invcitemid, _invcheadid,
_l.invcitem_linenumber, _l.invcitem_item_id,
_l.invcitem_warehous_id, _l.invcitem_custpn,
_l.invcitem_number, _l.invcitem_descrip,
_l.invcitem_ordered, _l.invcitem_billed,
_l.invcitem_custprice, _l.invcitem_price,
_l.invcitem_notes, _l.invcitem_salescat_id,
_l.invcitem_taxtype_id,
_l.invcitem_qty_uom_id, _l.invcitem_qty_invuomratio,
_l.invcitem_price_uom_id, _l.invcitem_price_invuomratio,
_l.invcitem_coitem_id);
END LOOP;
RETURN _invcheadid;
END;
$_$;
ALTER FUNCTION public.copyinvoice(integer, date) OWNER TO admin;
--
-- Name: copyitem(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copyitem(integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSItemid ALIAS FOR $1;
pTItemNumber ALIAS FOR $2;
_itemid INTEGER;
_r RECORD;
_id INTEGER;
BEGIN
SELECT NEXTVAL('item_item_id_seq') INTO _itemid;
INSERT INTO item
( item_id, item_number, item_descrip1, item_descrip2,
item_classcode_id, item_type,
item_active, item_picklist, item_sold, item_fractional,
item_maxcost, item_prodweight, item_packweight,
item_prodcat_id,item_exclusive, item_listprice, item_listcost,
item_config, item_comments, item_extdescrip,
item_upccode, item_inv_uom_id, item_price_uom_id )
SELECT _itemid, pTItemNumber, item_descrip1, item_descrip2,
item_classcode_id, item_type,
item_active, item_picklist, item_sold, item_fractional,
item_maxcost, item_prodweight, item_packweight,
item_prodcat_id, item_exclusive, item_listprice, item_listcost,
item_config, item_comments, item_extdescrip,
item_upccode, item_inv_uom_id, item_price_uom_id
FROM item
WHERE (item_id=pSItemid);
INSERT INTO imageass
(imageass_source_id, imageass_source, imageass_image_id, imageass_purpose)
SELECT _itemid, 'I', imageass_image_id, imageass_purpose
FROM imageass
WHERE ((imageass_source_id=pSItemid)
AND (imageass_source='I'));
INSERT INTO url
(url_source_id, url_source, url_title, url_url)
SELECT _itemid, 'I', url_title, url_url
FROM url
WHERE ((url_source_id=pSItemid)
AND (url_source='I'));
INSERT INTO itemtax
(itemtax_item_id, itemtax_taxzone_id, itemtax_taxtype_id)
SELECT _itemid, itemtax_taxzone_id, itemtax_taxtype_id
FROM itemtax
WHERE(itemtax_item_id=pSItemid);
INSERT INTO charass
( charass_target_type, charass_target_id,
charass_char_id, charass_value )
SELECT 'I', _itemid, charass_char_id, charass_value
FROM charass
WHERE ( (charass_target_type='I')
AND (charass_target_id=pSItemid) );
FOR _r IN SELECT itemuomconv_id,
itemuomconv_from_uom_id,
itemuomconv_from_value,
itemuomconv_to_uom_id,
itemuomconv_to_value,
itemuomconv_fractional
FROM itemuomconv
WHERE(itemuomconv_item_id=pSItemid) LOOP
SELECT nextval('itemuomconv_itemuomconv_id_seq') INTO _id;
INSERT INTO itemuomconv
(itemuomconv_id, itemuomconv_item_id,
itemuomconv_from_uom_id, itemuomconv_from_value,
itemuomconv_to_uom_id, itemuomconv_to_value,
itemuomconv_fractional)
VALUES(_id, _itemid,
_r.itemuomconv_from_uom_id, _r.itemuomconv_from_value,
_r.itemuomconv_to_uom_id, _r.itemuomconv_to_value,
_r.itemuomconv_fractional);
INSERT INTO itemuom
(itemuom_itemuomconv_id, itemuom_uomtype_id)
SELECT _id, itemuom_uomtype_id
FROM itemuom
WHERE(itemuom_itemuomconv_id=_r.itemuomconv_id);
END LOOP;
RETURN _itemid;
END;
$_$;
ALTER FUNCTION public.copyitem(integer, text) OWNER TO admin;
--
-- Name: copyitem(integer, text, boolean, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copyitem(integer, text, boolean, boolean, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSItemid ALIAS FOR $1;
pTItemNumber ALIAS FOR $2;
pCopyBOM ALIAS FOR $3;
pCopyBOO ALIAS FOR $4; -- deprecated - xtmfg-specific
pCopyCosts ALIAS FOR $5;
BEGIN
RAISE NOTICE 'copyItem(INTEGER, TEXT, BOOLEAN, BOOLEAN, BOOLEAN) has been deprecated. Use copyItem(INTEGER, TEXT) or copyItem(INTEGER, TEXT, BOOLEAN, BOOLEAN) or a package-specific version instead.';
RETURN copyItem(pSItemid, pTItemNumber, pCopyBOM, pCopyCosts);
END;
$_$;
ALTER FUNCTION public.copyitem(integer, text, boolean, boolean, boolean) OWNER TO admin;
--
-- Name: copyitem(integer, text, boolean, boolean, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copyitem(integer, text, boolean, boolean, boolean, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSItemid ALIAS FOR $1;
pTItemNumber ALIAS FOR $2;
pCopyBOM ALIAS FOR $3;
pCopyBOO ALIAS FOR $4; -- deprecated - xtmfg-specific
pCopyCosts ALIAS FOR $5;
pCopyUsedAt ALIAS FOR $6; -- deprecated - xtmfg-specific
BEGIN
RETURN copyItem(pSItemid, pTItemNumber, pCopyBOM, pCopyCosts);
END;
$_$;
ALTER FUNCTION public.copyitem(integer, text, boolean, boolean, boolean, boolean) OWNER TO admin;
--
-- Name: copyitem(integer, text, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copyitem(integer, text, boolean, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSItemid ALIAS FOR $1;
pTItemNumber ALIAS FOR $2;
pCopyBOM ALIAS FOR $3;
pCopyCosts ALIAS FOR $4;
_itemid INTEGER;
BEGIN
_itemid := copyItem(pSItemid, pTItemNumber);
IF (pCopyBOM) THEN
PERFORM copyBOM(pSItemid, _itemid, FALSE);
END IF;
IF (pCopyCosts) THEN
INSERT INTO itemcost
( itemcost_item_id, itemcost_costelem_id, itemcost_lowlevel,
itemcost_stdcost, itemcost_posted,
itemcost_actcost, itemcost_curr_id, itemcost_updated )
SELECT _itemid, itemcost_costelem_id, itemcost_lowlevel,
itemcost_stdcost, CURRENT_DATE,
itemcost_actcost, itemcost_curr_id, CURRENT_DATE
FROM itemcost
WHERE (itemcost_item_id=pSItemid);
END IF;
RETURN _itemid;
END;
$_$;
ALTER FUNCTION public.copyitem(integer, text, boolean, boolean) OWNER TO admin;
--
-- Name: copyitemsite(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copyitemsite(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pitemsiteid ALIAS FOR $1;
pdestwhsid ALIAS FOR $2;
_destwhs whsinfo%ROWTYPE;
_new itemsite%ROWTYPE;
BEGIN
-- make a copy of the old itemsite
SELECT * INTO _new
FROM itemsite
WHERE (itemsite_id=pitemsiteid);
IF (NOT FOUND) THEN
RETURN -1;
END IF;
-- if there is no dest warehouse then perhaps the user is manually copying it
IF (pdestwhsid IS NOT NULL) THEN
SELECT * INTO _destwhs
FROM whsinfo
WHERE (warehous_id=pdestwhsid);
IF (NOT FOUND) THEN
RETURN -2;
END IF;
END IF;
IF (NOT checkPrivilege('MaintainItemSites')) THEN
RETURN -3;
END IF;
SELECT itemsite_id INTO _new.itemsite_id
FROM itemsite
WHERE ((itemsite_item_id=_new.itemsite_item_id)
AND (itemsite_warehous_id=pdestwhsid OR
(itemsite_warehous_id IS NULL AND pdestwhsid IS NULL)));
IF (FOUND) THEN
RETURN _new.itemsite_id;
END IF;
-- now override the things we know have to change
_new.itemsite_id := NEXTVAL('itemsite_itemsite_id_seq');
_new.itemsite_warehous_id := pdestwhsid;
_new.itemsite_qtyonhand := 0;
_new.itemsite_value := 0;
_new.itemsite_datelastcount := NULL;
_new.itemsite_datelastused := NULL;
_new.itemsite_nnqoh := 0;
_new.itemsite_location_id := -1;
IF (_destwhs.warehous_transit) THEN
_new.itemsite_reorderlevel := 0;
_new.itemsite_ordertoqty := 0;
_new.itemsite_soldranking := NULL;
_new.itemsite_posupply := FALSE;
_new.itemsite_wosupply := FALSE;
_new.itemsite_loccntrl := FALSE;
_new.itemsite_safetystock := 0;
_new.itemsite_minordqty := 0;
_new.itemsite_multordqty := 0;
_new.itemsite_leadtime := 0;
_new.itemsite_controlmethod := 'R';
IF(_new.itemsite_costmethod='N') THEN
_new.itemsite_costmethod := 'S';
END IF;
_new.itemsite_active := TRUE;
-- ? _new.itemsite_plancode_id := -1;
-- ? _new.itemsite_costcat_id := -1;
_new.itemsite_eventfence := 1;
_new.itemsite_sold := FALSE;
_new.itemsite_stocked := FALSE;
_new.itemsite_location_id := -1;
_new.itemsite_useparams := FALSE;
_new.itemsite_useparamsmanual := FALSE;
_new.itemsite_createpr := FALSE;
_new.itemsite_location := NULL;
_new.itemsite_location_comments := NULL;
_new.itemsite_notes := 'Transit Warehouse';
_new.itemsite_nnqoh := 0;
_new.itemsite_createwo := FALSE;
_new.itemsite_costcat_id := _destwhs.warehous_costcat_id;
END IF;
INSERT INTO itemsite (
itemsite_id, itemsite_item_id,
itemsite_warehous_id, itemsite_qtyonhand,
itemsite_costmethod, itemsite_value,
itemsite_reorderlevel, itemsite_ordertoqty,
itemsite_cyclecountfreq, itemsite_datelastcount,
itemsite_datelastused,
itemsite_posupply, itemsite_wosupply,
itemsite_loccntrl,
itemsite_safetystock, itemsite_minordqty,
itemsite_multordqty, itemsite_leadtime,
itemsite_abcclass, itemsite_issuemethod,
itemsite_controlmethod, itemsite_active,
itemsite_plancode_id, itemsite_costcat_id,
itemsite_eventfence, itemsite_sold,
itemsite_stocked, itemsite_freeze,
itemsite_location_id,
itemsite_useparams, itemsite_useparamsmanual,
itemsite_soldranking, itemsite_createpr,
itemsite_location, itemsite_location_comments,
itemsite_notes, itemsite_perishable,
itemsite_nnqoh, itemsite_autoabcclass,
itemsite_ordergroup, itemsite_disallowblankwip,
itemsite_maxordqty, itemsite_mps_timefence,
itemsite_createwo, itemsite_warrpurc,
itemsite_autoreg,
itemsite_planning_type, itemsite_supply_itemsite_id
) VALUES (
_new.itemsite_id, _new.itemsite_item_id,
_new.itemsite_warehous_id, _new.itemsite_qtyonhand,
_new.itemsite_costmethod, _new.itemsite_value,
_new.itemsite_reorderlevel, _new.itemsite_ordertoqty,
_new.itemsite_cyclecountfreq, _new.itemsite_datelastcount,
_new.itemsite_datelastused,
_new.itemsite_posupply, _new.itemsite_wosupply,
_new.itemsite_loccntrl,
_new.itemsite_safetystock, _new.itemsite_minordqty,
_new.itemsite_multordqty, _new.itemsite_leadtime,
_new.itemsite_abcclass, _new.itemsite_issuemethod,
_new.itemsite_controlmethod, _new.itemsite_active,
_new.itemsite_plancode_id, _new.itemsite_costcat_id,
_new.itemsite_eventfence, _new.itemsite_sold,
_new.itemsite_stocked, _new.itemsite_freeze,
_new.itemsite_location_id,
_new.itemsite_useparams, _new.itemsite_useparamsmanual,
_new.itemsite_soldranking, _new.itemsite_createpr,
_new.itemsite_location, _new.itemsite_location_comments,
_new.itemsite_notes, _new.itemsite_perishable,
_new.itemsite_nnqoh, _new.itemsite_autoabcclass,
_new.itemsite_ordergroup, _new.itemsite_disallowblankwip,
_new.itemsite_maxordqty, _new.itemsite_mps_timefence,
_new.itemsite_createwo, _new.itemsite_warrpurc,
_new.itemsite_autoreg,
_new.itemsite_planning_type, _new.itemsite_supply_itemsite_id
);
RETURN _new.itemsite_id;
END;
$_$;
ALTER FUNCTION public.copyitemsite(integer, integer) OWNER TO admin;
--
-- Name: copylocale(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copylocale(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pLocaleid ALIAS FOR $1;
_localecode TEXT;
_localeid INTEGER;
BEGIN
SELECT locale_code INTO _localecode
FROM locale
WHERE (locale_id=pLocaleid);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Attempt to copy a non-existent locale-id.';
END IF;
IF (EXISTS(SELECT locale_id
FROM locale
WHERE (locale_code = (_localecode || '-COPY')))) THEN
RAISE EXCEPTION 'Attempt to copy a Locale Code that already exists.';
END IF;
SELECT NEXTVAL('locale_locale_id_seq') INTO _localeid;
INSERT INTO locale
(locale_id, locale_code, locale_descrip,
locale_lang_file,
locale_dateformat,
locale_currformat,
locale_qtyformat,
locale_comments,
locale_qtyperformat,
locale_salespriceformat,
locale_extpriceformat,
locale_timeformat,
locale_timestampformat,
local_costformat,
locale_costformat,
locale_purchpriceformat,
locale_uomratioformat,
locale_intervalformat,
locale_lang_id,
locale_country_id,
locale_error_color,
locale_warning_color,
locale_emphasis_color,
locale_altemphasis_color,
locale_expired_color,
locale_future_color,
locale_curr_scale,
locale_salesprice_scale,
locale_purchprice_scale,
locale_extprice_scale,
locale_cost_scale,
locale_qty_scale,
locale_qtyper_scale,
locale_uomratio_scale)
SELECT _localeid, locale_code || '-COPY', '',
locale_lang_file,
locale_dateformat,
locale_currformat,
locale_qtyformat,
locale_comments,
locale_qtyperformat,
locale_salespriceformat,
locale_extpriceformat,
locale_timeformat,
locale_timestampformat,
local_costformat,
locale_costformat,
locale_purchpriceformat,
locale_uomratioformat,
locale_intervalformat,
locale_lang_id,
locale_country_id,
locale_error_color,
locale_warning_color,
locale_emphasis_color,
locale_altemphasis_color,
locale_expired_color,
locale_future_color,
locale_curr_scale,
locale_salesprice_scale,
locale_purchprice_scale,
locale_extprice_scale,
locale_cost_scale,
locale_qty_scale,
locale_qtyper_scale,
locale_uomratio_scale
FROM locale
WHERE(locale_id=pLocaleid);
RETURN _localeid;
END;
$_$;
ALTER FUNCTION public.copylocale(integer) OWNER TO admin;
--
-- Name: copypo(integer, integer, date, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copypo(integer, integer, date, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSrcid ALIAS FOR $1;
pVendid ALIAS FOR $2;
pOrderdate ALIAS FOR $3;
pRecheckVendinfo ALIAS FOR $4;
_tgtid INTEGER;
_orderdate DATE;
_head RECORD;
_itemsrc RECORD;
_lineitem RECORD;
_qty NUMERIC;
_unitprice NUMERIC;
_uomratio NUMERIC;
_vend_restrictpurch BOOLEAN;
BEGIN
SELECT * INTO _head FROM pohead WHERE pohead_id = pSrcid;
IF (NOT FOUND) THEN
RETURN -1;
END IF;
IF (_head.pohead_vend_id != pVendid) THEN
RETURN -2; -- not supported now but should be in the future
END IF; -- when enabled, set pRecheckVendinfo if vendors don't match
IF (pOrderdate IS NULL) THEN
_orderdate := CURRENT_DATE;
ELSE
_orderdate := pOrderdate;
END IF;
INSERT INTO pohead (pohead_status, pohead_number,
pohead_orderdate, pohead_vend_id,
pohead_fob, pohead_shipvia,
pohead_freight, pohead_printed,
pohead_terms_id, pohead_warehous_id,
pohead_vendaddr_id, pohead_agent_username,
pohead_curr_id, pohead_saved,
pohead_taxtype_id, pohead_taxzone_id,
pohead_dropship, pohead_vend_cntct_id,
pohead_vend_cntct_honorific, pohead_vend_cntct_first_name,
pohead_vend_cntct_middle, pohead_vend_cntct_last_name,
pohead_vend_cntct_suffix, pohead_vend_cntct_phone,
pohead_vend_cntct_title, pohead_vend_cntct_fax,
pohead_vend_cntct_email, pohead_vendaddress1,
pohead_vendaddress2, pohead_vendaddress3,
pohead_vendcity, pohead_vendstate,
pohead_vendzipcode, pohead_vendcountry,
pohead_shipto_cntct_id,
pohead_shipto_cntct_honorific, pohead_shipto_cntct_first_name,
pohead_shipto_cntct_middle, pohead_shipto_cntct_last_name,
pohead_shipto_cntct_suffix, pohead_shipto_cntct_phone,
pohead_shipto_cntct_title, pohead_shipto_cntct_fax,
pohead_shipto_cntct_email, pohead_shiptoaddress_id,
pohead_shiptoaddress1,
pohead_shiptoaddress2, pohead_shiptoaddress3,
pohead_shiptocity, pohead_shiptostate,
pohead_shiptozipcode, pohead_shiptocountry
) VALUES (
'U', fetchPoNumber(),
_orderdate, _head.pohead_vend_id,
_head.pohead_fob, _head.pohead_shipvia,
_head.pohead_freight, false,
_head.pohead_terms_id, _head.pohead_warehous_id,
_head.pohead_vendaddr_id, _head.pohead_agent_username,
_head.pohead_curr_id, true,
_head.pohead_taxtype_id, _head.pohead_taxzone_id,
false, _head.pohead_vend_cntct_id,
_head.pohead_vend_cntct_honorific, _head.pohead_vend_cntct_first_name,
_head.pohead_vend_cntct_middle, _head.pohead_vend_cntct_last_name,
_head.pohead_vend_cntct_suffix, _head.pohead_vend_cntct_phone,
_head.pohead_vend_cntct_title, _head.pohead_vend_cntct_fax,
_head.pohead_vend_cntct_email, _head.pohead_vendaddress1,
_head.pohead_vendaddress2, _head.pohead_vendaddress3,
_head.pohead_vendcity, _head.pohead_vendstate,
_head.pohead_vendzipcode, _head.pohead_vendcountry,
_head.pohead_shipto_cntct_id,
_head.pohead_shipto_cntct_honorific, _head.pohead_shipto_cntct_first_name,
_head.pohead_shipto_cntct_middle, _head.pohead_shipto_cntct_last_name,
_head.pohead_shipto_cntct_suffix, _head.pohead_shipto_cntct_phone,
_head.pohead_shipto_cntct_title, _head.pohead_shipto_cntct_fax,
_head.pohead_shipto_cntct_email, _head.pohead_shiptoaddress_id,
_head.pohead_shiptoaddress1,
_head.pohead_shiptoaddress2, _head.pohead_shiptoaddress3,
_head.pohead_shiptocity, _head.pohead_shiptostate,
_head.pohead_shiptozipcode, _head.pohead_shiptocountry);
_tgtid := CURRVAL('pohead_pohead_id_seq');
IF (pRecheckVendinfo) THEN
SELECT vend_restrictpurch INTO _vend_restrictpurch
FROM vendinfo WHERE (vend_id = pVendid);
FOR _lineitem IN SELECT *
FROM poitem
WHERE (poitem_pohead_id = pSrcid) LOOP
SELECT * INTO _itemsrc
FROM itemsrc, itemsite
WHERE (itemsrc_active
AND (itemsrc_id = _lineitem.poitem_itemsrc_id)
AND (itemsite_id = _lineitem.poitem_itemsite_id));
IF (NOT FOUND AND _vend_restrictpurch) THEN
RETURN -3;
END IF;
-- handle changes to the uom ratio and consequent qty changes
_uomratio := COALESCE(_itemsrc.itemsrc_invvendoruomratio, _lineitem.poitem_invvenduomratio);
IF (_itemsrc.itemsrc_invvendoruomratio IS NULL
OR _itemsrc.itemsrc_invvendoruomratio != _lineitem.poitem_invvenduomratio) THEN
_qty := _lineitem.poitem_qty_ordered;
ELSE
_qty := _lineitem.poitem_qty_ordered * _lineitem.poitem_invvenduomratio /
_itemsrc.itemsrc_invvendoruomratio;
IF (_itemsrc.itemsrc_minordqty IS NOT NULL) THEN
IF (_qty < _itemsrc.itemsrc_minordqty) THEN
_qty := _itemsrc.itemsrc_minordqty;
ELSIF (_itemsrc.itemsrc_multordqty > 0
AND _qty % _itemsrc.itemsrc_multordqty > 0) THEN
_qty = _qty % _itemsrc.itemsrc_multordqty + _itemsrc.itemsrc_multordqty;
END IF;
END IF;
END IF;
IF (_itemsrc.itemsrc_id IS NULL) THEN
_unitprice = _lineitem.poitem_unitprice;
ELSE
SELECT itemsrcPrice(_itemsrc.itemsrc_id, _head.pohead_warehous_id, _head.pohead_dropship,
_lineitem.poitem_qty_ordered, _head.pohead_curr_id, CURRENT_DATE) INTO _unitprice;
IF (_unitprice IS NULL) THEN
RETURN -4;
END IF;
END IF;
INSERT INTO poitem (poitem_status, poitem_pohead_id, poitem_linenumber,
poitem_duedate,
poitem_itemsite_id,
poitem_vend_item_descrip,
poitem_vend_uom,
poitem_invvenduomratio,
poitem_qty_ordered, poitem_unitprice,
poitem_vend_item_number,
poitem_comments, poitem_expcat_id,
poitem_itemsrc_id,
poitem_freight,
poitem_stdcost,
poitem_manuf_name,
poitem_manuf_item_number,
poitem_manuf_item_descrip,
poitem_taxtype_id
) VALUES (
'U', _tgtid, _lineitem.poitem_linenumber,
_orderdate + COALESCE(_itemsrc.itemsrc_leadtime, 0),
_lineitem.poitem_itemsite_id,
COALESCE(_itemsrc.itemsrc_vend_item_descrip,
_lineitem.poitem_vend_item_descrip),
COALESCE(_itemsrc.itemsrc_vend_uom, _lineitem.poitem_vend_uom),
COALESCE(_itemsrc.itemsrc_invvendoruomratio,
_lineitem.poitem_invvenduomratio),
_qty, _unitprice,
COALESCE(_itemsrc.itemsrc_vend_item_number,
_lineitem.poitem_vend_item_number),
_lineitem.poitem_comments, _lineitem.poitem_expcat_id,
COALESCE(_itemsrc.itemsrc_id, -1),
_lineitem.poitem_freight,
stdcost(_itemsrc.itemsite_item_id),
COALESCE(_itemsrc.itemsrc_manuf_name,
_lineitem.poitem_manuf_name),
COALESCE(_itemsrc.itemsrc_manuf_item_number,
_lineitem.poitem_manuf_item_number),
COALESCE(_itemsrc.itemsrc_manuf_item_descrip,
_lineitem.poitem_manuf_item_descrip),
_lineitem.poitem_taxtype_id);
END LOOP;
ELSE
INSERT INTO poitem (poitem_status, poitem_pohead_id, poitem_linenumber,
poitem_duedate, poitem_itemsite_id,
poitem_vend_item_descrip, poitem_vend_uom,
poitem_invvenduomratio, poitem_qty_ordered,
poitem_unitprice,
poitem_vend_item_number, poitem_comments,
poitem_expcat_id, poitem_itemsrc_id, poitem_freight,
poitem_stdcost, poitem_manuf_name,
poitem_manuf_item_number, poitem_manuf_item_descrip,
poitem_taxtype_id
) SELECT 'U', _tgtid, poitem_linenumber,
_orderdate + COALESCE(itemsrc_leadtime, 0), poitem_itemsite_id,
poitem_vend_item_descrip, poitem_vend_uom,
poitem_invvenduomratio, poitem_qty_ordered,
poitem_unitprice,
poitem_vend_item_number, poitem_comments,
poitem_expcat_id, poitem_itemsrc_id, poitem_freight,
stdcost(itemsite_item_id), poitem_manuf_name,
poitem_manuf_item_number, poitem_manuf_item_descrip,
poitem_taxtype_id
FROM poitem
LEFT OUTER JOIN itemsrc ON (itemsrc_id=poitem_itemsrc_id)
LEFT OUTER JOIN itemsite ON (itemsite_id=poitem_itemsite_id)
WHERE (poitem_pohead_id = pSrcid);
END IF;
-- Todo: recalculate tax?
RETURN _tgtid;
END;
$_$;
ALTER FUNCTION public.copypo(integer, integer, date, boolean) OWNER TO admin;
--
-- Name: copypricingschedule(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copypricingschedule(pipsheadid integer) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_ipsheadid INTEGER;
_ipsitemid INTEGER;
_ipsfreightid INTEGER;
_x RECORD;
BEGIN
_ipsheadid := nextval('ipshead_ipshead_id_seq');
INSERT INTO ipshead
( ipshead_id, ipshead_name, ipshead_descrip,
ipshead_effective, ipshead_expires,
ipshead_curr_id, ipshead_updated )
SELECT _ipsheadid, orig.ipshead_name || (SELECT CAST((COUNT(cnt.ipshead_id)+1) AS text)
FROM ipshead cnt
WHERE (SUBSTRING(cnt.ipshead_name FROM 0 FOR char_length(orig.ipshead_name)+1) = orig.ipshead_name)),
orig.ipshead_descrip, orig.ipshead_effective, orig.ipshead_expires,
orig.ipshead_curr_id, CURRENT_DATE
FROM ipshead orig
WHERE (orig.ipshead_id=pIpsheadId);
FOR _x IN
SELECT ipsitem_id FROM ipsiteminfo WHERE (ipsitem_ipshead_id=pIpsheadid)
LOOP
INSERT INTO ipsiteminfo
(ipsitem_ipshead_id, ipsitem_item_id, ipsitem_prodcat_id,
ipsitem_qtybreak, ipsitem_price,
ipsitem_qty_uom_id, ipsitem_price_uom_id,
ipsitem_discntprcnt, ipsitem_fixedamtdiscount,
ipsitem_type, ipsitem_warehous_id)
SELECT _ipsheadid, ipsitem_item_id, ipsitem_prodcat_id,
ipsitem_qtybreak, ipsitem_price,
ipsitem_qty_uom_id, ipsitem_price_uom_id,
ipsitem_discntprcnt, ipsitem_fixedamtdiscount,
ipsitem_type, ipsitem_warehous_id
FROM ipsiteminfo
WHERE (ipsitem_id=_x.ipsitem_id)
RETURNING ipsitem_id INTO _ipsitemid;
INSERT INTO ipsitemchar
( ipsitemchar_ipsitem_id, ipsitemchar_char_id,
ipsitemchar_value, ipsitemchar_price)
SELECT _ipsitemid, ipsitemchar_char_id,
ipsitemchar_value, ipsitemchar_price
FROM ipsitemchar
WHERE (ipsitemchar_ipsitem_id=_x.ipsitem_id);
END LOOP;
FOR _x IN
SELECT ipsfreight_id FROM ipsfreight WHERE (ipsfreight_ipshead_id=pIpsheadid)
LOOP
_ipsfreightid := nextval('ipsfreight_ipsfreight_id_seq');
INSERT INTO ipsfreight
(ipsfreight_id, ipsfreight_ipshead_id,
ipsfreight_qtybreak, ipsfreight_price,
ipsfreight_type, ipsfreight_warehous_id,
ipsfreight_shipzone_id,ipsfreight_freightclass_id,
ipsfreight_shipvia)
SELECT _ipsfreightid, _ipsheadid, ipsfreight_qtybreak,
ipsfreight_price,ipsfreight_type,
ipsfreight_warehous_id,ipsfreight_shipzone_id,
ipsfreight_freightclass_id,ipsfreight_shipvia
FROM ipsfreight
WHERE (ipsfreight_id=_x.ipsfreight_id);
END LOOP;
RETURN _ipsheadid;
END;
$$;
ALTER FUNCTION public.copypricingschedule(pipsheadid integer) OWNER TO admin;
--
-- Name: copyprj(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copyprj(integer, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pparentid ALIAS FOR $1;
_counter INTEGER;
_duedate DATE := COALESCE($2, CURRENT_DATE);
_alarmid INTEGER;
_i INTEGER;
_newnumber TEXT;
_p RECORD;
_prjid INTEGER;
_testnumber TEXT;
BEGIN
RAISE DEBUG 'copyPrj(%, %) entered', pparentid, _duedate;
SELECT * INTO _p
FROM prj
WHERE (prj_id=pparentid);
-- new number = old number up to but not including -, followed by _duedate
-- e.g. REPAIR-FRIDGE becomes REPAIR-2010-05-15
-- but REPAIR_FRIDGE becomes REPAIR_FRIDGE-2010-05-15
IF (_p.prj_recurring_prj_id IS NULL) THEN
_newnumber := _p.prj_number;
ELSE
_newnumber := SUBSTRING(_p.prj_number FROM '[^-]*');
IF (_newnumber IS NULL) THEN
_newnumber := _p.prj_number;
END IF;
END IF;
_newnumber := _newnumber || '-' || to_char(_duedate, 'YYYY-MM-DD');
RAISE DEBUG 'copyPrj checking if _newnumber % exists', _newnumber;
SELECT MAX(prj_number) INTO _testnumber
FROM prj
WHERE (prj_number ~ ('^' || _newnumber));
IF (_testnumber = _newnumber) THEN
_newnumber := _newnumber || '-001';
ELSIF (_testnumber IS NOT NULL) THEN
_counter := CAST(SUBSTRING(_testnumber FROM '...$') AS INTEGER);
_counter := _counter + 1;
_newnumber := REGEXP_REPLACE(_testnumber, '...$', to_char(_counter, 'FM009'));
END IF;
RAISE DEBUG 'copyPrj _newnumber is now %', _newnumber;
INSERT INTO prj(
prj_number, prj_name, prj_descrip,
prj_status, prj_so, prj_wo,
prj_po, prj_owner_username,
prj_due_date, prj_username, prj_recurring_prj_id
) SELECT _newnumber, _p.prj_name, _p.prj_descrip,
'P', _p.prj_so, _p.prj_wo,
_p.prj_po, _p.prj_owner_username,
_duedate, _p.prj_username, _p. prj_recurring_prj_id
FROM prj
WHERE (prj_id=pparentid)
RETURNING prj_id INTO _prjid;
IF (_prjid IS NULL) THEN
RETURN -1;
END IF;
SELECT saveAlarm(NULL, NULL, _duedate,
CAST(alarm_time - DATE_TRUNC('day',alarm_time) AS TIME),
alarm_time_offset,
alarm_time_qualifier,
alarm_event_recipient IS NOT NULL, alarm_event_recipient,
alarm_email_recipient IS NOT NULL, alarm_email_recipient,
alarm_sysmsg_recipient IS NOT NULL, alarm_sysmsg_recipient,
'J', _prjid, 'CHANGEONE')
INTO _alarmid
FROM alarm
WHERE ((alarm_source='J')
AND (alarm_source_id=pparentid));
IF (_alarmid < 0) THEN
RETURN _alarmid;
END IF;
RETURN _prjid;
END;
$_$;
ALTER FUNCTION public.copyprj(integer, date) OWNER TO admin;
--
-- Name: copyproject(integer, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copyproject(integer, text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPrjId ALIAS FOR $1;
pPrjNumber ALIAS FOR $2;
pDueDateOffset ALIAS FOR $3;
_prjid INTEGER;
BEGIN
IF (COALESCE(pPrjNumber, '') = '') THEN
RETURN -1;
END IF;
IF (EXISTS(SELECT prj_id FROM prj WHERE UPPER(prj_number)=UPPER(pPrjNumber))) THEN
RETURN -2;
END IF;
IF (NOT EXISTS(SELECT prj_id FROM prj WHERE prj_id=pPrjId)) THEN
RETURN -3;
END IF;
SELECT NEXTVAL('prj_prj_id_seq') INTO _prjid;
INSERT INTO prj
( prj_id, prj_number, prj_name,
prj_descrip, prj_status,
prj_so, prj_wo, prj_po,
prj_owner_username, prj_start_date,
prj_due_date, prj_assigned_date, prj_completed_date,
prj_username, prj_recurring_prj_id,
prj_crmacct_id, prj_cntct_id )
SELECT _prjid, UPPER(pPrjNumber), prj_name,
prj_descrip, 'P',
prj_so, prj_wo, prj_po,
prj_owner_username, NULL,
(prj_due_date + COALESCE(pDueDateOffset, 0)),
CASE WHEN (prj_username IS NULL) THEN NULL ELSE CURRENT_DATE END, NULL,
prj_username, prj_recurring_prj_id,
prj_crmacct_id, prj_cntct_id
FROM prj
WHERE (prj_id=pPrjId);
INSERT INTO prjtask
( prjtask_number, prjtask_name, prjtask_descrip,
prjtask_prj_id, prjtask_anyuser, prjtask_status,
prjtask_hours_budget, prjtask_hours_actual,
prjtask_exp_budget, prjtask_exp_actual,
prjtask_owner_username, prjtask_start_date,
prjtask_due_date, prjtask_assigned_date,
prjtask_completed_date, prjtask_username )
SELECT prjtask_number, prjtask_name, prjtask_descrip,
_prjid, prjtask_anyuser, 'P',
prjtask_hours_budget, 0.0,
prjtask_exp_budget, 0.0,
prjtask_owner_username, NULL,
(prjtask_due_date + COALESCE(pDueDateOffset, 0)),
CASE WHEN (prjtask_username IS NULL) THEN NULL ELSE CURRENT_DATE END,
NULL, prjtask_username
FROM prjtask
WHERE (prjtask_prj_id=pPrjId);
INSERT INTO docass
( docass_source_id, docass_source_type,
docass_target_id, docass_target_type,
docass_purpose )
SELECT _prjid, docass_source_type,
docass_target_id, docass_target_type,
docass_purpose
FROM docass
WHERE ((docass_source_id=pPrjId)
AND (docass_source_type='J'));
RETURN _prjid;
END;
$_$;
ALTER FUNCTION public.copyproject(integer, text, integer) OWNER TO admin;
--
-- Name: copyquote(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copyquote(integer, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pQuheadid ALIAS FOR $1;
pSchedDate ALIAS FOR $2;
_quheadid INTEGER;
_qunumber TEXT;
BEGIN
SELECT NEXTVAL('quhead_quhead_id_seq') INTO _quheadid;
IF (fetchMetricText('QUNumberGeneration') = 'S') THEN
SELECT fetchSoNumber() INTO _qunumber;
ELSE
SELECT fetchQuNumber() INTO _qunumber;
END IF;
INSERT INTO quhead
( quhead_id, quhead_number, quhead_cust_id, quhead_prj_id,
quhead_quotedate, quhead_packdate, quhead_fob,
quhead_warehous_id, quhead_terms_id, quhead_salesrep_id,
quhead_custponumber, quhead_shipvia,
quhead_shipto_id, quhead_shiptoname, quhead_shiptoaddress1, quhead_shiptoaddress2, quhead_shiptoaddress3,
quhead_shiptocity, quhead_shiptostate, quhead_shiptozipcode, quhead_shiptophone, quhead_shiptocountry,
quhead_billtoname, quhead_billtoaddress1, quhead_billtoaddress2, quhead_billtoaddress3,
quhead_billtocity, quhead_billtostate, quhead_billtozip,
quhead_misc_accnt_id, quhead_misc_descrip, quhead_misc, quhead_freight, quhead_commission,
quhead_ordercomments, quhead_shipcomments,
quhead_imported, quhead_curr_id, quhead_taxzone_id, quhead_taxtype_id, quhead_ophead_id, quhead_status,
quhead_shipto_cntct_id, quhead_shipto_cntct_honorific, quhead_shipto_cntct_first_name, quhead_shipto_cntct_middle,
quhead_shipto_cntct_last_name, quhead_shipto_cntct_suffix, quhead_shipto_cntct_phone, quhead_shipto_cntct_title,
quhead_shipto_cntct_fax, quhead_shipto_cntct_email, quhead_billto_cntct_id, quhead_billto_cntct_honorific,
quhead_billto_cntct_first_name, quhead_billto_cntct_middle, quhead_billto_cntct_last_name, quhead_billto_cntct_suffix,
quhead_billto_cntct_phone, quhead_billto_cntct_title, quhead_billto_cntct_fax, quhead_billto_cntct_email )
SELECT _quheadid, _qunumber, quhead_cust_id, quhead_prj_id,
CURRENT_DATE, COALESCE(pSchedDate, quhead_packdate), quhead_fob,
quhead_warehous_id, quhead_terms_id, quhead_salesrep_id,
quhead_custponumber, quhead_shipvia,
quhead_shipto_id, quhead_shiptoname, quhead_shiptoaddress1, quhead_shiptoaddress2, quhead_shiptoaddress3,
quhead_shiptocity, quhead_shiptostate, quhead_shiptozipcode, quhead_shiptophone, quhead_shiptocountry,
quhead_billtoname, quhead_billtoaddress1, quhead_billtoaddress2, quhead_billtoaddress3,
quhead_billtocity, quhead_billtostate, quhead_billtozip,
quhead_misc_accnt_id, quhead_misc_descrip, quhead_misc, quhead_freight, quhead_commission,
quhead_ordercomments, quhead_shipcomments,
FALSE, quhead_curr_id, quhead_taxzone_id, quhead_taxtype_id, quhead_ophead_id, 'O',
quhead_shipto_cntct_id, quhead_shipto_cntct_honorific, quhead_shipto_cntct_first_name, quhead_shipto_cntct_middle,
quhead_shipto_cntct_last_name, quhead_shipto_cntct_suffix, quhead_shipto_cntct_phone, quhead_shipto_cntct_title,
quhead_shipto_cntct_fax, quhead_shipto_cntct_email, quhead_billto_cntct_id, quhead_billto_cntct_honorific,
quhead_billto_cntct_first_name, quhead_billto_cntct_middle, quhead_billto_cntct_last_name, quhead_billto_cntct_suffix,
quhead_billto_cntct_phone, quhead_billto_cntct_title, quhead_billto_cntct_fax, quhead_billto_cntct_email
FROM quhead
WHERE (quhead_id=pQuheadid);
INSERT INTO quitem
( quitem_quhead_id, quitem_linenumber, quitem_itemsite_id,
quitem_scheddate, quitem_promdate, quitem_qtyord,
quitem_price, quitem_custprice, quitem_unitcost,
quitem_qty_uom_id, quitem_price_uom_id,
quitem_qty_invuomratio, quitem_price_invuomratio,
quitem_memo, quitem_custpn, quitem_imported, quitem_taxtype_id,
quitem_createorder, quitem_order_warehous_id, quitem_item_id, quitem_prcost,
quitem_dropship, quitem_itemsrc_id, quitem_pricemode )
SELECT _quheadid, quitem_linenumber, quitem_itemsite_id,
COALESCE(pSchedDate, quitem_scheddate),
quitem_promdate,
quitem_qtyord,
quitem_price, quitem_custprice, stdCost(itemsite_item_id),
quitem_qty_uom_id, quitem_price_uom_id,
quitem_qty_invuomratio, quitem_price_invuomratio,
quitem_memo, quitem_custpn, FALSE, quitem_taxtype_id,
quitem_createorder, quitem_order_warehous_id, quitem_item_id, quitem_prcost,
quitem_dropship, quitem_itemsrc_id, quitem_pricemode
FROM quitem, itemsite
WHERE ( (quitem_itemsite_id=itemsite_id)
AND (quitem_quhead_id=pQuheadid));
INSERT INTO charass
(charass_target_type, charass_target_id,
charass_char_id, charass_value)
SELECT charass_target_type, b.quitem_id,
charass_char_id, charass_value
FROM quitem a, charass, quitem b
WHERE ((charass_target_type='SI')
AND (charass_target_id=a.quitem_id)
AND (a.quitem_quhead_id=pQuheadid)
AND (b.quitem_quhead_id=_quheadid)
AND (a.quitem_linenumber=b.quitem_linenumber)
);
RETURN _quheadid;
END;
$_$;
ALTER FUNCTION public.copyquote(integer, date) OWNER TO admin;
--
-- Name: copyso(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copyso(psoheadid integer, pscheddate date) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_soheadid INTEGER;
_soitemid INTEGER;
_soitem RECORD;
BEGIN
SELECT NEXTVAL('cohead_cohead_id_seq') INTO _soheadid;
INSERT INTO cohead
( cohead_id,
cohead_number,
cohead_cust_id,
cohead_custponumber,
cohead_type,
cohead_orderdate,
cohead_warehous_id,
cohead_shipto_id,
cohead_shiptoname,
cohead_shiptoaddress1,
cohead_shiptoaddress2,
cohead_shiptoaddress3,
cohead_shiptoaddress4,
cohead_shiptoaddress5,
cohead_salesrep_id,
cohead_terms_id,
cohead_fob,
cohead_shipvia,
cohead_shiptocity,
cohead_shiptostate,
cohead_shiptozipcode,
cohead_freight,
cohead_misc,
cohead_imported,
cohead_ordercomments,
cohead_shipcomments,
cohead_shiptophone,
cohead_shipchrg_id,
cohead_shipform_id,
cohead_billtoname,
cohead_billtoaddress1,
cohead_billtoaddress2,
cohead_billtoaddress3,
cohead_billtocity,
cohead_billtostate,
cohead_billtozipcode,
cohead_misc_accnt_id,
cohead_misc_descrip,
cohead_commission,
cohead_miscdate,
cohead_holdtype,
cohead_packdate,
cohead_prj_id,
cohead_wasquote,
cohead_lastupdated,
cohead_shipcomplete,
cohead_created,
cohead_creator,
cohead_quote_number,
cohead_billtocountry,
cohead_shiptocountry,
cohead_curr_id,
cohead_calcfreight,
cohead_shipto_cntct_id,
cohead_shipto_cntct_honorific,
cohead_shipto_cntct_first_name,
cohead_shipto_cntct_middle,
cohead_shipto_cntct_last_name,
cohead_shipto_cntct_suffix,
cohead_shipto_cntct_phone,
cohead_shipto_cntct_title,
cohead_shipto_cntct_fax,
cohead_shipto_cntct_email,
cohead_billto_cntct_id,
cohead_billto_cntct_honorific,
cohead_billto_cntct_first_name,
cohead_billto_cntct_middle,
cohead_billto_cntct_last_name,
cohead_billto_cntct_suffix,
cohead_billto_cntct_phone,
cohead_billto_cntct_title,
cohead_billto_cntct_fax,
cohead_billto_cntct_email,
cohead_taxzone_id,
cohead_taxtype_id,
cohead_ophead_id,
cohead_status,
cohead_saletype_id,
cohead_shipzone_id )
SELECT
_soheadid,
fetchSoNumber(),
cohead_cust_id,
cohead_custponumber,
cohead_type,
CURRENT_DATE,
cohead_warehous_id,
cohead_shipto_id,
cohead_shiptoname,
cohead_shiptoaddress1,
cohead_shiptoaddress2,
cohead_shiptoaddress3,
cohead_shiptoaddress4,
cohead_shiptoaddress5,
cohead_salesrep_id,
cohead_terms_id,
cohead_fob,
cohead_shipvia,
cohead_shiptocity,
cohead_shiptostate,
cohead_shiptozipcode,
cohead_freight,
cohead_misc,
FALSE,
cohead_ordercomments,
cohead_shipcomments,
cohead_shiptophone,
cohead_shipchrg_id,
cohead_shipform_id,
cohead_billtoname,
cohead_billtoaddress1,
cohead_billtoaddress2,
cohead_billtoaddress3,
cohead_billtocity,
cohead_billtostate,
cohead_billtozipcode,
cohead_misc_accnt_id,
cohead_misc_descrip,
cohead_commission,
cohead_miscdate,
cohead_holdtype,
COALESCE(pSchedDate, cohead_packdate),
cohead_prj_id,
FALSE,
cohead_lastupdated,
cohead_shipcomplete,
NULL,
getEffectiveXtUser(),
NULL,
cohead_billtocountry,
cohead_shiptocountry,
cohead_curr_id,
cohead_calcfreight,
cohead_shipto_cntct_id,
cohead_shipto_cntct_honorific,
cohead_shipto_cntct_first_name,
cohead_shipto_cntct_middle,
cohead_shipto_cntct_last_name,
cohead_shipto_cntct_suffix,
cohead_shipto_cntct_phone,
cohead_shipto_cntct_title,
cohead_shipto_cntct_fax,
cohead_shipto_cntct_email,
cohead_billto_cntct_id,
cohead_billto_cntct_honorific,
cohead_billto_cntct_first_name,
cohead_billto_cntct_middle,
cohead_billto_cntct_last_name,
cohead_billto_cntct_suffix,
cohead_billto_cntct_phone,
cohead_billto_cntct_title,
cohead_billto_cntct_fax,
cohead_billto_cntct_email,
cohead_taxzone_id,
cohead_taxtype_id,
cohead_ophead_id,
cohead_status,
cohead_saletype_id,
cohead_shipzone_id
FROM cohead
WHERE (cohead_id=pSoheadid);
FOR _soitem IN
SELECT *
FROM coitem JOIN itemsite ON (itemsite_id=coitem_itemsite_id)
WHERE ( (coitem_cohead_id=pSoheadid)
AND (coitem_status <> 'X')
AND (coitem_subnumber = 0) ) LOOP
SELECT NEXTVAL('coitem_coitem_id_seq') INTO _soitemid;
-- insert characteristics first so they can be copied to associated supply order
INSERT INTO charass
(charass_target_type, charass_target_id,
charass_char_id, charass_value)
SELECT charass_target_type, _soitemid,
charass_char_id, charass_value
FROM charass
WHERE ((charass_target_type='SI')
AND (charass_target_id=_soitem.coitem_id));
INSERT INTO coitem
( coitem_id,
coitem_cohead_id,
coitem_linenumber,
coitem_itemsite_id,
coitem_status,
coitem_scheddate,
coitem_promdate,
coitem_qtyord,
coitem_unitcost,
coitem_price,
coitem_custprice,
coitem_qtyshipped,
coitem_order_id,
coitem_memo,
coitem_imported,
coitem_qtyreturned,
coitem_closedate,
coitem_custpn,
coitem_order_type,
coitem_close_username,
-- coitem_lastupdated,
coitem_substitute_item_id,
coitem_created,
coitem_creator,
coitem_prcost,
coitem_qty_uom_id,
coitem_qty_invuomratio,
coitem_price_uom_id,
coitem_price_invuomratio,
coitem_warranty,
coitem_cos_accnt_id,
coitem_qtyreserved,
coitem_subnumber,
coitem_firm,
coitem_taxtype_id )
VALUES
( _soitemid,
_soheadid,
_soitem.coitem_linenumber,
_soitem.coitem_itemsite_id,
'O',
COALESCE(pSchedDate, _soitem.coitem_scheddate),
_soitem.coitem_promdate,
_soitem.coitem_qtyord,
stdCost(_soitem.itemsite_item_id),
_soitem.coitem_price,
_soitem.coitem_custprice,
0.0,
-1,
_soitem.coitem_memo,
FALSE,
0.0,
NULL,
_soitem.coitem_custpn,
_soitem.coitem_order_type,
NULL,
-- NULL,
_soitem.coitem_substitute_item_id,
NULL,
getEffectiveXtUser(),
_soitem.coitem_prcost,
_soitem.coitem_qty_uom_id,
_soitem.coitem_qty_invuomratio,
_soitem.coitem_price_uom_id,
_soitem.coitem_price_invuomratio,
_soitem.coitem_warranty,
_soitem.coitem_cos_accnt_id,
0.0,
_soitem.coitem_subnumber,
_soitem.coitem_firm,
_soitem.coitem_taxtype_id );
END LOOP;
RETURN _soheadid;
END;
$$;
ALTER FUNCTION public.copyso(psoheadid integer, pscheddate date) OWNER TO admin;
--
-- Name: copytodoitem(integer, date, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copytodoitem(integer, date, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pparentid ALIAS FOR $1;
_duedate DATE := COALESCE($2, CURRENT_DATE);
pincdtid ALIAS FOR $3;
_alarmid INTEGER;
_todoitemid INTEGER;
BEGIN
INSERT INTO todoitem(
todoitem_name, todoitem_description,
todoitem_incdt_id,
todoitem_creator_username, todoitem_status,
todoitem_active, todoitem_due_date,
todoitem_assigned_date,
todoitem_seq, todoitem_notes, todoitem_crmacct_id,
todoitem_ophead_id, todoitem_owner_username,todoitem_priority_id,
todoitem_username, todoitem_recurring_todoitem_id
) SELECT todoitem_name, todoitem_description,
CASE WHEN pincdtid IS NULL THEN todoitem_incdt_id ELSE pincdtid END,
getEffectiveXtUser(), 'N',
TRUE, _duedate,
CASE WHEN (todoitem_username IS NOT NULL) THEN CURRENT_DATE
ELSE NULL
END,
todoitem_seq, todoitem_notes, todoitem_crmacct_id,
todoitem_ophead_id, todoitem_owner_username,todoitem_priority_id,
todoitem_username, todoitem_recurring_todoitem_id
FROM todoitem
WHERE (todoitem_id=pparentid)
RETURNING todoitem_id INTO _todoitemid;
IF (_todoitemid IS NULL) THEN
RETURN -10;
END IF;
SELECT saveAlarm(NULL, NULL, _duedate,
CAST(alarm_time - DATE_TRUNC('day',alarm_time) AS TIME),
alarm_time_offset,
alarm_time_qualifier,
alarm_event, alarm_event_recipient,
alarm_email, alarm_email_recipient,
alarm_sysmsg, alarm_sysmsg_recipient,
'TODO', _todoitemid, 'CHANGEONE')
INTO _alarmid
FROM alarm
WHERE ((alarm_source='TODO')
AND (alarm_source_id=pparentid));
IF (_alarmid < 0) THEN
RETURN _alarmid;
END IF;
RETURN _todoitemid;
END;
$_$;
ALTER FUNCTION public.copytodoitem(integer, date, integer) OWNER TO admin;
--
-- Name: copyvoucher(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION copyvoucher(integer, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVoheadid ALIAS FOR $1;
_voheadid INTEGER;
_vonumber TEXT;
_vodate DATE := COALESCE($2, CURRENT_DATE);
_i RECORD;
_l RECORD;
_vodistid INTEGER;
BEGIN
SELECT *
INTO _i
FROM vohead
WHERE(vohead_id=pVoheadid);
IF(NOT FOUND) THEN
RETURN -1;
END IF;
_vonumber := fetchVoNumber();
_voheadid := nextval('vohead_vohead_id_seq');
INSERT INTO vohead
(vohead_id,
vohead_number, vohead_pohead_id,
vohead_posted, vohead_duedate,
vohead_invcnumber, vohead_amount,
vohead_docdate, vohead_1099,
vohead_distdate, vohead_reference,
vohead_terms_id, vohead_vend_id,
vohead_curr_id, vohead_adjtaxtype_id,
vohead_freighttaxtype_id, vohead_gldistdate,
vohead_misc, vohead_taxzone_id,
vohead_taxtype_id, vohead_notes,
vohead_recurring_vohead_id )
VALUES(_voheadid,
_vonumber, _i.vohead_pohead_id,
false, determineDueDate(_i.vohead_terms_id, _vodate),
_i.vohead_invcnumber, _i.vohead_amount,
_vodate, _i.vohead_1099,
_vodate, _i.vohead_reference,
_i.vohead_terms_id, _i.vohead_vend_id,
_i.vohead_curr_id, _i.vohead_adjtaxtype_id,
_i.vohead_freighttaxtype_id, _vodate,
_i.vohead_misc, _i.vohead_taxzone_id,
_i.vohead_taxtype_id, _i.vohead_notes,
_i.vohead_recurring_vohead_id);
FOR _l IN SELECT *
FROM vodist
WHERE (vodist_vohead_id=pVoheadid) LOOP
SELECT NEXTVAL('vodist_vodist_id_seq') INTO _vodistid;
INSERT INTO vodist
(vodist_id, vodist_poitem_id,
vodist_vohead_id, vodist_costelem_id,
vodist_accnt_id, vodist_amount,
vodist_qty, vodist_expcat_id,
vodist_tax_id, vodist_discountable,
vodist_notes)
VALUES
(_vodistid, _l.vodist_poitem_id,
_voheadid, _l.vodist_costelem_id,
_l.vodist_accnt_id, _l.vodist_amount,
_l.vodist_qty, _l.vodist_expcat_id,
_l.vodist_tax_id, _l.vodist_discountable,
_l.vodist_notes);
END LOOP;
RETURN _voheadid;
END;
$_$;
ALTER FUNCTION public.copyvoucher(integer, date) OWNER TO admin;
--
-- Name: correctporeceipt(integer, numeric, numeric, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION correctporeceipt(integer, numeric, numeric, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPorecvid ALIAS FOR $1;
pQty ALIAS FOR $2;
pFreight ALIAS FOR $3;
pItemlocSeries ALIAS FOR $4;
BEGIN
RETURN correctReceipt('PO', $1, $2, $3, $4, NULL, NULL);
END;
$_$;
ALTER FUNCTION public.correctporeceipt(integer, numeric, numeric, integer) OWNER TO admin;
--
-- Name: correctporeceipt(integer, numeric, numeric, integer, integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION correctporeceipt(integer, numeric, numeric, integer, integer, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN correctReceipt('PO', $1, $2, $3, $4, $5, $6);
END;
$_$;
ALTER FUNCTION public.correctporeceipt(integer, numeric, numeric, integer, integer, date) OWNER TO admin;
--
-- Name: correctproduction(integer, numeric, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION correctproduction(integer, numeric, boolean, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'correctProduction(INTEGER, NUMERIC, BOOLEAN, BOOLEAN) has been deprecated. Use corrrectProduction(INTEGER, NUMERIC, BOOLEAN, INTEGER) or a package-specific version instead.';
RETURN correctProduction($1, $2, $3, 0, now());
END;
$_$;
ALTER FUNCTION public.correctproduction(integer, numeric, boolean, boolean) OWNER TO admin;
--
-- Name: correctproduction(integer, numeric, boolean, boolean, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION correctproduction(integer, numeric, boolean, boolean, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'correctProduction(INTEGER, NUMERIC, BOOLEAN, BOOLEAN, INTEGER) has been deprecated. Use corrrectProduction(INTEGER, NUMERIC, BOOLEAN, INTEGER) or a package-specific version instead.';
RETURN correctProduction($1, $2, $3, $5, now());
END;
$_$;
ALTER FUNCTION public.correctproduction(integer, numeric, boolean, boolean, integer) OWNER TO admin;
--
-- Name: correctproduction(integer, numeric, boolean, integer, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION correctproduction(integer, numeric, boolean, integer, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
pQty ALIAS FOR $2;
pBackflush ALIAS FOR $3;
pItemlocSeries ALIAS FOR $4;
pGlDistTS ALIAS FOR $5;
BEGIN
RETURN correctProduction($1, $2, $3, $4, $5, NULL);
END;
$_$;
ALTER FUNCTION public.correctproduction(integer, numeric, boolean, integer, timestamp with time zone) OWNER TO admin;
--
-- Name: correctproduction(integer, numeric, boolean, integer, timestamp with time zone, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION correctproduction(integer, numeric, boolean, integer, timestamp with time zone, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
pQty ALIAS FOR $2;
pBackflush ALIAS FOR $3;
pItemlocSeries ALIAS FOR $4;
pGlDistTS ALIAS FOR $5;
pInvhistId ALIAS FOR $6;
_invhistid INTEGER;
_itemlocSeries INTEGER;
_r RECORD;
_parentWIPAccntid INTEGER;
_parentQty NUMERIC;
_qty NUMERIC;
_wipPost NUMERIC;
_sense TEXT;
_status TEXT;
_type TEXT;
_qtyfxd NUMERIC := 0;
BEGIN
-- Qty is positive for Assembly W/O
-- Qty is negative for Disassembly W/O
IF (pQty = 0) THEN
RETURN pItemlocseries;
ELSIF (pQty > 0) THEN
_sense := 'from';
ELSE
_sense := 'to';
END IF;
SELECT item_type, roundQty(item_fractional, pQty), wo_status
INTO _type, _parentQty, _status
FROM wo JOIN itemsite ON (itemsite_id=wo_itemsite_id)
JOIN item ON (item_id=itemsite_item_id)
WHERE (wo_id=pWoid);
IF (_status != 'I') THEN
RETURN -1;
END IF;
IF (_type = 'J') THEN
RETURN -2;
END IF;
IF (pItemlocSeries = 0) THEN
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
ELSE
_itemlocSeries := pItemlocSeries;
END IF;
-- Calculate the WIP to correct
SELECT CASE WHEN (wo_cosmethod = 'D') THEN wo_postedvalue
ELSE round(((wo_postedvalue - wo_wipvalue) / wo_qtyrcv * _parentQty), 2)
END INTO _wipPost
FROM wo
WHERE (wo_id=pWoid);
-- Post the inventory transaction
SELECT postInvTrans( itemsite_id, 'RM', (_parentQty * -1.0),
'W/O', 'WO', formatwonumber(pWoid), '',
('Correct Receive Inventory ' || item_number || ' ' || _sense || ' Manufacturing'),
costcat_asset_accnt_id, getPrjAccntId(wo_prj_id, costcat_wip_accnt_id), _itemlocSeries, pGlDistTS,
(_wipPost * -1.0), -- only used when cost is average
pInvhistId) INTO _invhistid
FROM wo JOIN itemsite ON (itemsite_id=wo_itemsite_id)
JOIN item ON (item_id=itemsite_item_id)
JOIN costcat ON (costcat_id=itemsite_costcat_id)
WHERE (wo_id=pWoid);
-- Decrease this W/O's qty. received and increase its WIP value
UPDATE wo
SET wo_qtyrcv = (wo_qtyrcv - _parentQty),
wo_wipvalue = (wo_wipvalue + (CASE WHEN(itemsite_costmethod IN ('A','J'))
THEN _wipPost
WHEN(itemsite_costmethod='S')
THEN stdcost(itemsite_item_id) * _parentQty
ELSE 0.0 END))
FROM itemsite
WHERE ( (wo_itemsite_id=itemsite_id)
AND (wo_id=pWoid) );
IF (pBackflush) THEN
FOR _r IN SELECT item_id, item_fractional,
itemsite_id, itemsite_warehous_id,
itemsite_controlmethod, itemsite_loccntrl,
itemsite_costmethod,
wo_qtyrcv, wo_prj_id,
womatl_id, womatl_qtyfxd, womatl_qtyper,
womatl_scrap, womatl_issuemethod, womatl_uom_id
FROM wo JOIN womatl ON (womatl_wo_id=wo_id AND womatl_issuemethod='L')
JOIN itemsite ON (itemsite_id=womatl_itemsite_id)
JOIN item ON (item_id=itemsite_item_id)
WHERE (wo_id=pWoid) LOOP
-- Cache the qty to be issued
-- If going back to beginning, unissue fixed qty as well
IF (_r.wo_qtyrcv - _parentQty > 0) THEN
_qtyfxd := 0;
ELSE
_qtyfxd := _r.womatl_qtyfxd;
END IF;
_qty = roundQty(_r.item_fractional, (_qtyfxd + _parentQty * _r.womatl_qtyper) * (1 + _r.womatl_scrap));
IF (_qty > 0) THEN
SELECT returnWoMaterial(_r.womatl_id, _qty, _itemlocSeries, pGlDistTS) INTO _itemlocSeries;
END IF;
END LOOP;
-- BEGIN ROB Decrease this W/O's WIP value for custom costing
UPDATE wo
SET wo_wipvalue = (wo_wipvalue - (itemcost_stdcost * _parentQty))
FROM costelem, itemcost, costcat, itemsite, item
WHERE
((wo_id=pWoid) AND
(wo_itemsite_id=itemsite_id) AND
(itemsite_item_id=item_id) AND
(costelem_id = itemcost_costelem_id) AND
(itemcost_item_id = itemsite_item_id) AND
(itemsite_costcat_id = costcat_id) AND
(costelem_exp_accnt_id) IS NOT NULL AND
(costelem_sys = false));
-- ROB Distribute to G/L - create Cost Variance, debit WIP
PERFORM insertGLTransaction( 'W/O', 'WO', formatwonumber(pWoid),
('Correct Post Other Cost ' || item_number || ' ' || _sense || ' Manufacturing'),
getPrjAccntId(wo_prj_id, costelem_exp_accnt_id),
getPrjAccntId(wo_prj_id, costcat_wip_accnt_id), _invhistid,
((itemcost_stdcost * _parentQty)* -1),
CURRENT_DATE )
FROM wo, costelem, itemcost, costcat, itemsite, item
WHERE
((wo_id=pWoid) AND
(wo_itemsite_id=itemsite_id) AND
(itemsite_item_id=item_id) AND
(costelem_id = itemcost_costelem_id) AND
(itemcost_item_id = itemsite_item_id) AND
(itemsite_costcat_id = costcat_id) AND
(costelem_exp_accnt_id) IS NOT NULL AND
(costelem_sys = false));
--End ROB
END IF;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.correctproduction(integer, numeric, boolean, integer, timestamp with time zone, integer) OWNER TO admin;
--
-- Name: correctreceipt(integer, numeric, numeric, integer, integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION correctreceipt(integer, numeric, numeric, integer, integer, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
BEGIN
RETURN correctReceipt($1, $2, $3, $4, $5, $6, NULL);
END;
$_$;
ALTER FUNCTION public.correctreceipt(integer, numeric, numeric, integer, integer, date) OWNER TO admin;
--
-- Name: correctreceipt(integer, numeric, numeric, integer, integer, date, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION correctreceipt(integer, numeric, numeric, integer, integer, date, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
precvid ALIAS FOR $1;
pQty ALIAS FOR $2;
pFreight ALIAS FOR $3;
_itemlocSeries INTEGER := COALESCE($4, 0);
_currid INTEGER := $5;
pEffective ALIAS FOR $6;
pRecvCost ALIAS FOR $7;
_freight NUMERIC;
_qty NUMERIC;
_invhistid INTEGER;
_o RECORD;
_r RECORD;
_recvcost NUMERIC;
_tmp INTEGER;
_pricevar NUMERIC := 0.00;
_journalNumber INTEGER := fetchJournalNumber('GL-MISC');
BEGIN
SELECT recv_qty, recv_date::DATE AS recv_date, recv_freight_curr_id,
recv_orderitem_id,
round(currToCurr(recv_freight_curr_id,
COALESCE(_currid, recv_freight_curr_id),
recv_freight, recv_date::DATE),2) AS recv_freight,
recv_posted, recv_order_type,
COALESCE(itemsite_id, -1) AS itemsiteid,
itemsite_item_id, itemsite_costmethod, itemsite_controlmethod,
(recv_splitfrom_id IS NOT NULL
OR (SELECT (count(*) > 0)
FROM recv
WHERE (recv_splitfrom_id=recv_id))) AS split INTO _r
FROM recv LEFT OUTER JOIN itemsite ON (recv_itemsite_id=itemsite_id)
WHERE (recv_id=precvid);
IF (NOT FOUND) THEN
RETURN _itemlocSeries;
END IF;
IF (NOT _r.recv_order_type IN ('PO', 'RA', 'TO')) THEN
RETURN -11;
END IF;
IF (_r.split) THEN
RETURN -12;
END IF;
SELECT currToBase(orderitem_unitcost_curr_id, orderitem_unitcost,
_r.recv_date::DATE) AS unitprice_base,
orderhead_number, orderitem_linenumber,
orderhead_curr_id AS freight_curr_id,
orderitem_orderhead_type,
orderitem_qty_invuomratio INTO _o
FROM orderhead, orderitem
WHERE ((orderhead_id=orderitem_orderhead_id)
AND (orderhead_type=orderitem_orderhead_type)
AND (orderitem_id=_r.recv_orderitem_id)
AND (orderitem_orderhead_type=_r.recv_order_type));
IF (NOT FOUND) THEN
RETURN _itemlocSeries;
END IF;
-- Default to _o.orderitem_unitcost if recv_purchcost is not supplied
-- Note: this should never happen, a value is always supplied
if (pRecvCost IS NULL) THEN
_recvcost := _o.orderitem_unitcost;
ELSE
-- Note: if the receipt has already been posted, pRecvCost will always
-- equal the original recv_purchcost (cannot be modified in GUI)
_recvcost := pRecvCost;
END IF;
IF (_r.recv_posted) THEN
_qty := (pQty - _r.recv_qty);
IF (_qty <> 0) THEN
IF (_r.itemsiteid = -1) THEN
PERFORM insertGLTransaction( _journalNumber,'S/R',
_r.recv_order_type,
_o.orderhead_number,
'Receive Non-Inventory from ' || _r.recv_order_type,
expcat_liability_accnt_id,
getPrjAccntId(poitem_prj_id, expcat_exp_accnt_id),
-1,
ROUND(_o.unitprice_base * _qty, 2),
pEffective )
FROM poitem, expcat
WHERE ((poitem_expcat_id=expcat_id)
AND (poitem_id=_r.recv_orderitem_id)
AND (_o.orderitem_orderhead_type='PO'));
UPDATE recv
SET recv_qty=pQty,
recv_value=(recv_value + ROUND(_o.unitprice_base * _qty, 2)),
recv_date = pEffective
WHERE (recv_id=precvid);
ELSEIF (_r.itemsite_controlmethod = 'N') THEN
PERFORM insertGLTransaction( _journalNumber,'S/R',
_r.recv_order_type,
_o.orderhead_number,
'Receive Non-Controlled Inventory from ' || _r.recv_order_type,
costcat_liability_accnt_id,
getPrjAccntId(poitem_prj_id, costcat_exp_accnt_id),
-1,
ROUND(_o.unitprice_base * _qty, 2),
pEffective )
FROM poitem, itemsite, costcat
WHERE ((poitem_itemsite_id=itemsite_id)
AND (itemsite_costcat_id=costcat_id)
AND (poitem_id=_r.recv_orderitem_id)
AND (_o.orderitem_orderhead_type='PO'));
UPDATE recv
SET recv_qty=pQty,
recv_value=(recv_value + ROUND(_o.unitprice_base * _qty, 2)),
recv_date = pEffective
WHERE (recv_id=precvid);
ELSE
IF (_itemlocSeries = 0 OR _itemlocSeries IS NULL) THEN
_itemlocSeries := NEXTVAL('itemloc_series_seq');
END IF;
SELECT postInvTrans( itemsite_id, 'RP',
(_qty * _o.orderitem_qty_invuomratio),
'S/R', _r.recv_order_type,
_o.orderhead_number::TEXT || '-' || _o.orderitem_linenumber::TEXT, '',
'Receive Inventory from ' || _r.recv_order_type,
costcat_asset_accnt_id,
costcat_liability_accnt_id,
_itemlocSeries, pEffective,
ROUND(_recvcost * _qty, 2) -- alway passing since it is ignored if not average costed item
) INTO _tmp
FROM itemsite, costcat
WHERE ((itemsite_costcat_id=costcat_id)
AND (itemsite_id=_r.itemsiteid) );
IF(_r.itemsite_costmethod='A') THEN
UPDATE recv
SET recv_qty=pQty,
recv_value=(recv_value + _recvcost * _qty * _o.orderitem_qty_invuomratio),
recv_date = pEffective
WHERE(recv_id=precvid);
ELSE
UPDATE recv
SET recv_qty=pQty,
recv_value=(recv_value + stdcost(_r.itemsite_item_id) * _qty * _o.orderitem_qty_invuomratio),
recv_date = pEffective
WHERE(recv_id=precvid);
END IF;
END IF;
IF (_r.recv_order_type = 'PO') THEN
UPDATE poitem
SET poitem_qty_received=(poitem_qty_received + _qty)
WHERE (poitem_id=_r.recv_orderitem_id);
ELSIF (_r.recv_order_type = 'RA' AND fetchMetricBool('EnableReturnAuth')) THEN
UPDATE raitem
SET raitem_qtyreceived=(raitem_qtyreceived + _qty)
WHERE (raitem_id=_r.recv_orderitem_id);
ELSIF (_r.recv_order_type = 'TO' AND fetchMetricBool('MultiWhs')) THEN
UPDATE toitem
SET toitem_qty_received=(toitem_qty_received + _qty)
WHERE (toitem_id=_r.recv_orderitem_id);
END IF;
END IF;
IF (fetchMetricBool('RecordPPVonReceipt')) THEN -- If the 'Purchase Price Variance on Receipt' option is true
_invhistid := _tmp;
-- Find the difference in the purchase price value expected from the P/O and the value of the transaction
SELECT (((currToBase(pohead_curr_id,
COALESCE(recv_purchcost, poitem_unitprice),
recv_date::DATE)) * _qty) - (invhist_value_after - invhist_value_before)) INTO _pricevar
FROM invhist, recv, pohead, poitem
WHERE ((recv_orderitem_id=poitem_id)
AND (poitem_pohead_id=pohead_id)
AND (recv_id=precvid)
AND (invhist_id = _invhistid));
-- If difference exists then
IF (_pricevar <> 0.00) THEN
-- Record an additional GL Transaction for the purchase price variance
SELECT insertGLTransaction( _journalNumber,
'S/R', _r.recv_order_type, _o.orderhead_number,
'Purchase price variance adjusted for P/O ' || _o.orderhead_number || ' for item ' || _o.orderitem_linenumber::TEXT,
costcat_liability_accnt_id,
getPrjAccntId(poitem_prj_id, costcat_purchprice_accnt_id), -1,
_pricevar,
pEffective, false ) INTO _tmp
FROM itemsite, costcat, poitem, recv
WHERE ((itemsite_costcat_id=costcat_id)
AND (recv_id=precvid)
AND (recv_orderitem_id=poitem_id)
AND (itemsite_id=recv_itemsite_id) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Could not insert G/L transaction: no cost category found for itemsite_id %',
_r.itemsite_id;
ELSIF (_tmp < 0 AND _tmp != -3) THEN -- error but not 0-value transaction
RETURN _tmp;
ELSE
-- Posting to trial balance is deferred to prevent locking
INSERT INTO itemlocpost ( itemlocpost_glseq, itemlocpost_itemlocseries)
VALUES ( _tmp, _itemlocSeries );
END IF;
END IF;
END IF;
_freight := (pFreight - _r.recv_freight);
IF (_freight <> 0) THEN
IF (_r.itemsiteid = -1) THEN
PERFORM insertGLTransaction( _journalNumber,'S/R', _r.recv_order_type,
_o.orderhead_number,
'Receive Non-Inventory Freight from ' || _r.recv_order_type,
expcat_liability_accnt_id, getPrjAccntId(poitem_prj_id, expcat_freight_accnt_id), -1,
ROUND(currToBase(_currid, _freight,
pEffective), 2),
pEffective )
FROM poitem, expcat
WHERE ((poitem_expcat_id=expcat_id)
AND (poitem_id=_r.recv_orderitem_id)
AND (_r.recv_order_type='PO'));
ELSE
PERFORM insertGLTransaction(_journalNumber,'S/R', _r.recv_order_type,
_o.orderhead_number,
'Receive Non-Inventory Freight from ' ||
_r.recv_order_type,
costcat_liability_accnt_id,
costcat_freight_accnt_id, -1,
round(currToBase(_currid, _freight,
pEffective), 2),
pEffective )
FROM itemsite, costcat
WHERE ( (itemsite_costcat_id=costcat_id)
AND (itemsite_id=_r.itemsiteid) );
END IF;
IF (_r.recv_order_type = 'PO') THEN
UPDATE poitem
SET poitem_freight_received=(poitem_freight_received +
currToCurr(_currid, _o.freight_curr_id,
_freight, pEffective))
WHERE (poitem_id=_r.recv_orderitem_id);
-- raitem does not track freight
ELSEIF (_r.recv_order_type = 'TO' AND fetchMetricBool('MultiWhs')) THEN
UPDATE toitem
SET toitem_freight_received=(toitem_freight_received +
currToCurr(_currid, _o.freight_curr_id,
_freight, pEffective))
WHERE (toitem_id=_r.recv_orderitem_id);
END IF;
UPDATE recv
SET recv_freight=currToCurr(_currid, recv_freight_curr_id, pFreight,
pEffective),
recv_date = pEffective
WHERE (recv_id=precvid);
END IF;
ELSE
-- Receipt not posted yet
UPDATE recv SET recv_qty=pQty, recv_freight=pFreight, recv_purchcost=_recvcost WHERE recv_id=precvid;
END IF;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.correctreceipt(integer, numeric, numeric, integer, integer, date, numeric) OWNER TO admin;
--
-- Name: cosbycustomervalue(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION cosbycustomervalue(integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustid ALIAS FOR $1;
pPeriodid ALIAS FOR $2;
_value NUMERIC;
_startDate DATE;
_endDate DATE;
BEGIN
_startDate := findPeriodStart(pPeriodid);
_endDate := findPeriodEnd(pPeriodid);
-- Returns value in base currency
-- ToDo: is cohist_shipdate the right DATE to use?
SELECT SUM(cohist_qtyshipped * currToBase(cohist_curr_id, cohist_unitcost, cohist_shipdate)) INTO _value
FROM cohist
WHERE ( (cohist_cust_id=pCustid)
AND (cohist_invcdate BETWEEN _startDate AND _endDate) );
IF (_value IS NULL) THEN
_value := 0;
END IF;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.cosbycustomervalue(integer, integer) OWNER TO admin;
--
-- Name: costsbycustomerbyitemsite(integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION costsbycustomerbyitemsite(integer, integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustid ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pPeriodid ALIAS FOR $3;
_value NUMERIC;
_startDate DATE;
_endDate DATE;
BEGIN
_startDate := findPeriodStart(pPeriodid);
_endDate := findPeriodEnd(pPeriodid);
-- Returns value in base currency
-- ToDo: is cohist_shipdate the right DATE to use?
SELECT SUM(cohist_qtyshipped * currToBase(cohist_curr_id, cohist_unitcost, cohist_shipdate)) INTO _value
FROM cohist
WHERE ( (cohist_itemsite_id<>pItemsiteid)
AND (cohist_cust_id=pCustid)
AND (cohist_invcdate BETWEEN _startDate AND _endDate) );
IF (_value IS NULL) THEN
_value := 0;
END IF;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.costsbycustomerbyitemsite(integer, integer, integer) OWNER TO admin;
--
-- Name: costsbycustomervalue(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION costsbycustomervalue(integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustid ALIAS FOR $1;
pPeriodid ALIAS FOR $2;
_value NUMERIC;
_startDate DATE;
_endDate DATE;
BEGIN
_startDate := findPeriodStart(pPeriodid);
_endDate := findPeriodEnd(pPeriodid);
-- Returns value in base currency
-- ToDo: is cohist_shipdate the right DATE to use?
SELECT SUM(cohist_qtyshipped * currToBase(cohist_curr_id, cohist_unitcost, cohist_shipdate)) INTO _value
FROM cohist
WHERE ( (cohist_itemsite_id<>-1)
AND (cohist_cust_id=pCustid)
AND (cohist_invcdate BETWEEN _startDate AND _endDate) );
IF (_value IS NULL) THEN
_value := 0;
END IF;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.costsbycustomervalue(integer, integer) OWNER TO admin;
--
-- Name: costsbycustomervalue(integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION costsbycustomervalue(integer, integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustid ALIAS FOR $1;
pPeriodid ALIAS FOR $2;
pProdcatid ALIAS FOR $3;
_value NUMERIC;
_startDate DATE;
_endDate DATE;
BEGIN
_startDate := findPeriodStart(pPeriodid);
_endDate := findPeriodEnd(pPeriodid);
-- Returns value in base currency
-- ToDo: is cohist_shipdate the right DATE to use?
SELECT SUM(cohist_qtyshipped * currToBase(cohist_curr_id, cohist_unitcost, cohist_shipdate)) INTO _value
FROM cohist, itemsite, item
WHERE ( (cohist_cust_id=pCustid)
AND (cohist_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (item_prodcat_id=pProdcatid)
AND (cohist_invcdate BETWEEN _startDate AND _endDate) );
IF (_value IS NULL) THEN
_value := 0;
END IF;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.costsbycustomervalue(integer, integer, integer) OWNER TO admin;
--
-- Name: costsbycustomervalue(integer, integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION costsbycustomervalue(integer, integer, text) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustid ALIAS FOR $1;
pPeriodid ALIAS FOR $2;
pProdcat ALIAS FOR $3;
_value NUMERIC;
_startDate DATE;
_endDate DATE;
BEGIN
_startDate := findPeriodStart(pPeriodid);
_endDate := findPeriodEnd(pPeriodid);
-- Returns value in base currency
-- ToDo: is cohist_shipdate the right date to use?
SELECT SUM(cohist_qtyshipped * currToBase(cohist_curr_id, cohist_unitcost, cohist_shipdate)) INTO _value
FROM cohist, itemsite, item, prodcat
WHERE ( (cohist_cust_id=pCustid)
AND (cohist_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (item_prodcat_id=prodcat_id)
AND (prodcat_code ~ pProdcat)
AND (cohist_invcdate BETWEEN _startDate AND _endDate) );
IF (_value IS NULL) THEN
_value := 0;
END IF;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.costsbycustomervalue(integer, integer, text) OWNER TO admin;
--
-- Name: createaccountingperiod(date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createaccountingperiod(date, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pStartDate ALIAS FOR $1;
pEndDate ALIAS FOR $2;
BEGIN
RETURN createAccountingPeriod(pStartDate, pEndDate, NULL, NULL);
END;
$_$;
ALTER FUNCTION public.createaccountingperiod(date, date) OWNER TO admin;
--
-- Name: createaccountingperiod(date, date, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createaccountingperiod(date, date, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pStartDate ALIAS FOR $1;
pEndDate ALIAS FOR $2;
pYearPeriodId ALIAS FOR $3;
pQuarter ALIAS FOR $4;
_periodid INTEGER;
_check INTEGER;
_r RECORD;
_initial BOOLEAN;
_number INTEGER;
BEGIN
-- Make that the passed start date doesn't fall into any existing period
SELECT period_id INTO _check
FROM period
WHERE (pStartDate BETWEEN period_start AND period_end);
IF (FOUND) THEN
RETURN -1;
END IF;
-- Make that the passed end date doesn't fall into any existing period
SELECT period_id INTO _check
FROM period
WHERE (pEndDate BETWEEN period_start AND period_end);
IF (FOUND) THEN
RETURN -2;
END IF;
-- Make that the passed start and end dates don't enclose an existing period
SELECT period_id INTO _check
FROM period
WHERE ( (period_start >= pStartDate)
AND (period_end <= pEndDate) );
IF (FOUND) THEN
RETURN -3;
END IF;
-- Make sure period is inside fiscal year
SELECT yearperiod_id INTO _check
FROM yearperiod
WHERE ((yearperiod_id=pYearPeriodId)
AND (pStartDate>=yearperiod_start)
AND (pEndDate<=yearperiod_end));
IF NOT (FOUND) THEN
RETURN -4;
END IF;
-- Determine if this is the initial accounting period
SELECT CASE WHEN(count(*) > 0) THEN FALSE
ELSE TRUE
END INTO _initial
FROM period;
-- Determine the next number
SELECT COALESCE(MAX(period_number),0) + 1 INTO _number
FROM period
WHERE (period_yearperiod_id=pYearPeriodId);
-- Create the new accounting period
SELECT NEXTVAL('period_period_id_seq') INTO _periodid;
INSERT INTO period
( period_id, period_start, period_end, period_closed, period_freeze,
period_initial, period_number, period_yearperiod_id, period_quarter )
VALUES
( _periodid, pStartDate, pEndDate, FALSE, FALSE, _initial, _number, pYearPeriodId, pQuarter );
-- Post any unposted G/L Transactions into the new period
FOR _r IN SELECT DISTINCT gltrans_sequence
FROM gltrans
WHERE ( (NOT gltrans_posted)
AND (gltrans_date BETWEEN pStartDate AND pEndDate) ) LOOP
PERFORM postIntoTrialBalance(_r.gltrans_sequence);
END LOOP;
RETURN _periodid;
END;
$_$;
ALTER FUNCTION public.createaccountingperiod(date, date, integer, integer) OWNER TO admin;
--
-- Name: createaccountingyearperiod(date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createaccountingyearperiod(date, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pStartDate ALIAS FOR $1;
pEndDate ALIAS FOR $2;
_yearperiodid INTEGER;
_check INTEGER;
_checkBool BOOLEAN;
_r RECORD;
_initial BOOLEAN;
BEGIN
-- Make that the passed start date doesn't fall into any existing yearperiod
SELECT yearperiod_id INTO _check
FROM yearperiod
WHERE (pStartDate BETWEEN yearperiod_start AND yearperiod_end);
IF (FOUND) THEN
RETURN -1;
END IF;
-- Make that the passed end date doesn't fall into any existing yearperiod
SELECT yearperiod_id INTO _check
FROM yearperiod
WHERE (pEndDate BETWEEN yearperiod_start AND yearperiod_end);
IF (FOUND) THEN
RETURN -2;
END IF;
-- Make that the passed start and end dates don't enclose an existing yearperiod
SELECT yearperiod_id INTO _check
FROM yearperiod
WHERE ( (yearperiod_start >= pStartDate)
AND (yearperiod_end <= pEndDate) );
IF (FOUND) THEN
RETURN -3;
END IF;
-- Make sure that the passed start is prior to the end date
SELECT (pStartDate > pEndDate) INTO _checkBool;
IF (_checkBool) THEN
RETURN -5;
END IF;
-- Determine if this is the initial accounting yearperiod
SELECT CASE WHEN(count(*) > 0) THEN FALSE
ELSE TRUE
END INTO _initial
FROM yearperiod;
-- Create the new accounting yearperiod
SELECT NEXTVAL('yearperiod_yearperiod_id_seq') INTO _yearperiodid;
INSERT INTO yearperiod
( yearperiod_id, yearperiod_start, yearperiod_end, yearperiod_closed )
VALUES
( _yearperiodid, pStartDate, pEndDate, FALSE );
RETURN _yearperiodid;
END;
$_$;
ALTER FUNCTION public.createaccountingyearperiod(date, date) OWNER TO admin;
--
-- Name: createapchecks(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapchecks(integer, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'createAPChecks() is deprecated - use createChecks() instead';
RETURN createChecks($1, $2);
END;
$_$;
ALTER FUNCTION public.createapchecks(integer, date) OWNER TO admin;
--
-- Name: createapcreditmemo(integer, text, text, date, numeric, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapcreditmemo(integer, text, text, date, numeric, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
pDocNumber ALIAS FOR $2;
pPoNumber ALIAS FOR $3;
pDocDate ALIAS FOR $4;
pAmount ALIAS FOR $5;
pNotes ALIAS FOR $6;
_result INTEGER;
BEGIN
SELECT createAPCreditMemo( pVendid, fetchJournalNumber('AP-MISC'),
pDocNumber, pPoNumber, pDocDate, pAmount, pNotes, -1, pDocDate, -1, baseCurrId() ) INTO _result;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.createapcreditmemo(integer, text, text, date, numeric, text) OWNER TO admin;
--
-- Name: createapcreditmemo(integer, integer, text, text, date, numeric, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapcreditmemo(integer, integer, text, text, date, numeric, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
pDocNumber ALIAS FOR $3;
pPoNumber ALIAS FOR $4;
pDocDate ALIAS FOR $5;
pAmount ALIAS FOR $6;
pNotes ALIAS FOR $7;
BEGIN
RETURN createAPCreditMemo(pVendid, pJournalNumber, pDocNumber, pPoNumber, pDocDate, pAmount, pNotes, -1, pDocDate, -1, baseCurrId() );
END;
$_$;
ALTER FUNCTION public.createapcreditmemo(integer, integer, text, text, date, numeric, text) OWNER TO admin;
--
-- Name: createapcreditmemo(integer, text, text, date, numeric, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapcreditmemo(integer, text, text, date, numeric, text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
pDocNumber ALIAS FOR $2;
pPoNumber ALIAS FOR $3;
pDocDate ALIAS FOR $4;
pAmount ALIAS FOR $5;
pNotes ALIAS FOR $6;
pAccntid ALIAS FOR $7;
_result INTEGER;
BEGIN
SELECT createAPCreditMemo( pVendid, fetchJournalNumber('AP-MISC'),
pDocNumber, pPoNumber, pDocDate, pAmount, pNotes, pAccntid, pDocDate, -1, baseCurrId() ) INTO _result;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.createapcreditmemo(integer, text, text, date, numeric, text, integer) OWNER TO admin;
--
-- Name: createapcreditmemo(integer, integer, text, text, date, numeric, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapcreditmemo(integer, integer, text, text, date, numeric, text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
pDocNumber ALIAS FOR $3;
pPoNumber ALIAS FOR $4;
pDocDate ALIAS FOR $5;
pAmount ALIAS FOR $6;
pNotes ALIAS FOR $7;
pAccntid ALIAS FOR $8;
BEGIN
RETURN createAPCreditMemo( pVendid, pJournalNumber,
pDocNumber, pPoNumber, pDocDate, pAmount, pNotes, pAccntid, pDocDate, -1, baseCurrId() );
END;
$_$;
ALTER FUNCTION public.createapcreditmemo(integer, integer, text, text, date, numeric, text, integer) OWNER TO admin;
--
-- Name: createapcreditmemo(integer, text, text, date, numeric, text, integer, date, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapcreditmemo(integer, text, text, date, numeric, text, integer, date, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
pDocNumber ALIAS FOR $2;
pPoNumber ALIAS FOR $3;
pDocDate ALIAS FOR $4;
pAmount ALIAS FOR $5;
pNotes ALIAS FOR $6;
pAccntid ALIAS FOR $7;
pDueDate ALIAS FOR $8;
pTermsid ALIAS FOR $9;
_result INTEGER;
BEGIN
SELECT createAPCreditMemo( pVendid, fetchJournalNumber('AP-MISC'),
pDocNumber, pPoNumber, pDocDate, pAmount, pNotes, pAccntid, pDueDate, pTermsid, baseCurrId() ) INTO _result;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.createapcreditmemo(integer, text, text, date, numeric, text, integer, date, integer) OWNER TO admin;
--
-- Name: createapcreditmemo(integer, integer, text, text, date, numeric, text, integer, date, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapcreditmemo(integer, integer, text, text, date, numeric, text, integer, date, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
pDocNumber ALIAS FOR $3;
pPoNumber ALIAS FOR $4;
pDocDate ALIAS FOR $5;
pAmount ALIAS FOR $6;
pNotes ALIAS FOR $7;
pAccntid ALIAS FOR $8;
pDueDate ALIAS FOR $9;
pTermsid ALIAS FOR $10;
BEGIN
RETURN createAPCreditMemo( pVendid, pJournalNumber, pDocNumber, pPoNumber, pDocDate, pAmount, pNotes, pAccntid, pDueDate, pTermsid, baseCurrId() );
END;
$_$;
ALTER FUNCTION public.createapcreditmemo(integer, integer, text, text, date, numeric, text, integer, date, integer) OWNER TO admin;
--
-- Name: createapcreditmemo(integer, integer, text, text, date, numeric, text, integer, date, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapcreditmemo(integer, integer, text, text, date, numeric, text, integer, date, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
pDocNumber ALIAS FOR $3;
pPoNumber ALIAS FOR $4;
pDocDate ALIAS FOR $5;
pAmount ALIAS FOR $6;
pNotes ALIAS FOR $7;
pAccntid ALIAS FOR $8;
pDueDate ALIAS FOR $9;
pTermsid ALIAS FOR $10;
pCurrId ALIAS FOR $11;
BEGIN
RETURN createAPCreditMemo( NULL, pVendid, pJournalNumber, pDocNumber, pPoNumber, pDocDate, pAmount, pNotes, pAccntid, pDueDate, pTermsid, pCurrId );
END;
$_$;
ALTER FUNCTION public.createapcreditmemo(integer, integer, text, text, date, numeric, text, integer, date, integer, integer) OWNER TO admin;
--
-- Name: createapcreditmemo(integer, integer, integer, text, text, date, numeric, text, integer, date, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapcreditmemo(integer, integer, integer, text, text, date, numeric, text, integer, date, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pId ALIAS FOR $1;
pVendid ALIAS FOR $2;
pJournalNumber ALIAS FOR $3;
pDocNumber ALIAS FOR $4;
pPoNumber ALIAS FOR $5;
pDocDate ALIAS FOR $6;
pAmount ALIAS FOR $7;
pNotes ALIAS FOR $8;
pAccntid ALIAS FOR $9;
pDueDate ALIAS FOR $10;
pTermsid ALIAS FOR $11;
pCurrId ALIAS FOR $12;
_vendName TEXT;
_apAccntid INTEGER;
_prepaidAccntid INTEGER;
_accntid INTEGER;
_glSequence INTEGER;
_journalNumber INTEGER;
_apopenid INTEGER;
_baseAmount NUMERIC;
_taxBaseValue NUMERIC;
_test INTEGER;
BEGIN
_apopenid := pId;
SELECT findAPAccount(pVendid) INTO _apAccntid;
SELECT findAPPrepaidAccount(pVendid) INTO _prepaidAccntid;
SELECT vend_name INTO _vendName
FROM vendinfo
WHERE (vend_id=pVendid);
_accntid := pAccntid;
PERFORM accnt_id
FROM accnt
WHERE (accnt_id=_accntid);
IF (FOUND) THEN
_prepaidAccntid := _accntid;
ELSE
_accntid := -1;
END IF;
IF(pJournalNumber IS NULL) THEN
SELECT fetchJournalNumber('AP-MISC') INTO _journalNumber;
ELSE
_journalNumber := pJournalNumber;
END IF;
SELECT fetchGLSequence() INTO _glSequence;
IF (_apopenid IS NOT NULL) THEN
UPDATE apopen SET
apopen_username=getEffectiveXtUser(), apopen_journalnumber=_journalNumber,
apopen_vend_id=pVendid, apopen_docnumber=pDocNumber,
apopen_doctype='C', apopen_ponumber=pPoNumber,
apopen_docdate=pDocDate, apopen_duedate=pDueDate,
apopen_distdate=pDocDate, apopen_terms_id=pTermsid,
apopen_amount=pAmount, apopen_paid=0,
apopen_open=(pAmount <> 0), apopen_notes=pNotes,
apopen_accnt_id=_accntid, apopen_curr_id=pCurrId,
apopen_closedate=CASE WHEN (pAmount = 0) THEN pDocdate END
WHERE apopen_id = _apopenid;
ELSE
SELECT NEXTVAL('apopen_apopen_id_seq') INTO _apopenid;
INSERT INTO apopen
( apopen_id, apopen_username, apopen_journalnumber,
apopen_vend_id, apopen_docnumber, apopen_doctype, apopen_ponumber,
apopen_docdate, apopen_duedate, apopen_distdate, apopen_terms_id,
apopen_amount, apopen_paid, apopen_open, apopen_notes, apopen_accnt_id, apopen_curr_id,
apopen_closedate )
VALUES
( _apopenid, getEffectiveXtUser(), _journalNumber,
pVendid, pDocNumber, 'C', pPoNumber,
pDocDate, pDueDate, pDocDate, pTermsid,
pAmount, 0, (pAmount <> 0), pNotes, _accntid, pCurrId,
CASE WHEN (pAmount = 0) THEN pDocDate END );
END IF;
_baseAmount := round(currToBase(pCurrId, pAmount, pDocDate), 2);
-- Debit the A/P account for the full amount
SELECT insertIntoGLSeries ( _glSequence, 'A/P', 'CM',
pDocNumber, _apAccntid,
(_baseAmount * -1),
pDocDate, (_vendName || ' ' || pNotes) ) INTO _test;
-- Credit the Tax account for the tax amount
_taxBaseValue := addTaxToGLSeries(_glSequence,
'A/P', 'CM', pDocNumber,
pCurrId, pDocDate, pDocDate,
'apopentax', _apopenid,
_vendName);
UPDATE apopentax SET taxhist_journalnumber = _journalNumber
WHERE taxhist_parent_id=_apopenid;
-- Credit the Prepaid account for the basis amount
SELECT insertIntoGLSeries ( _glSequence, 'A/P', 'CM',
pDocNumber, _prepaidAccntid,
(_baseAmount - _taxBaseValue),
pDocDate, (_vendName || ' ' || pNotes) ) INTO _test;
-- Commit the GLSeries;
SELECT postGLSeries(_glSequence, _journalNumber) INTO _test;
IF (_test < 0) THEN
DELETE FROM apopen WHERE (apopen_id=_apopenid);
PERFORM deleteGLSeries(_glSequence);
RAISE EXCEPTION 'postGLSeries commit failed with %', _test;
END IF;
RETURN pJournalNumber;
END;
$_$;
ALTER FUNCTION public.createapcreditmemo(integer, integer, integer, text, text, date, numeric, text, integer, date, integer, integer) OWNER TO admin;
--
-- Name: createapcreditmemoapplication(integer, integer, numeric, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapcreditmemoapplication(psourceapopenid integer, ptargetapopenid integer, pamount numeric, pcurrid integer) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_apCreditApplyId INTEGER;
BEGIN
IF (pAmount > (SELECT currToCurr(apopen_curr_id, pCurrId, ROUND(apopen_amount - apopen_paid, 2), apopen_docdate)
FROM apopen
WHERE (apopen_id=pTargetApopenId))) THEN
RETURN -1;
END IF;
IF (pAmount > (SELECT ROUND((apopen_amount - apopen_paid) -
COALESCE(SUM(currToCurr(apcreditapply_curr_id,
apopen_curr_id,
apcreditapply_amount,
apopen_docdate)), 0), 2)
FROM apopen LEFT OUTER JOIN apcreditapply
ON ((apcreditapply_source_apopen_id=apopen_id)
AND (apcreditapply_target_apopen_id<>pTargetApopenId))
WHERE (apopen_id=pSourceApopenId)
GROUP BY apopen_amount, apopen_paid)) THEN
RETURN -2;
END IF;
SELECT apcreditapply_id INTO _apCreditApplyId
FROM apcreditapply
WHERE ((apcreditapply_source_apopen_id=pSourceApopenId)
AND (apcreditapply_target_apopen_id=pTargetApopenId));
IF (FOUND) THEN
UPDATE apcreditapply SET apcreditapply_amount=pAmount,
apcreditapply_curr_id=pCurrId
WHERE (apcreditapply_id=_apCreditApplyId);
ELSE
INSERT INTO apcreditapply (
apcreditapply_source_apopen_id,
apcreditapply_target_apopen_id,
apcreditapply_amount, apcreditapply_curr_id
) VALUES (
pSourceApopenId,
pTargetApopenId,
pAmount, pCurrId)
RETURNING apcreditapply_id INTO _apCreditApplyId;
END IF;
RETURN _apCreditApplyId;
END;
$$;
ALTER FUNCTION public.createapcreditmemoapplication(psourceapopenid integer, ptargetapopenid integer, pamount numeric, pcurrid integer) OWNER TO admin;
--
-- Name: createapdebitmemo(integer, text, text, date, numeric, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapdebitmemo(integer, text, text, date, numeric, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
pDocNumber ALIAS FOR $2;
pPoNumber ALIAS FOR $3;
pDocDate ALIAS FOR $4;
pAmount ALIAS FOR $5;
pNotes ALIAS FOR $6;
_result INTEGER;
BEGIN
SELECT createAPDebitMemo( pVendid, fetchJournalNumber('AP-MISC'),
pDocNumber, pPoNumber, pDocDate, pAmount, pNotes, -1, pDocDate, -1, baseCurrId() ) INTO _result;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.createapdebitmemo(integer, text, text, date, numeric, text) OWNER TO admin;
--
-- Name: createapdebitmemo(integer, integer, text, text, date, numeric, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapdebitmemo(integer, integer, text, text, date, numeric, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
pDocNumber ALIAS FOR $3;
pPoNumber ALIAS FOR $4;
pDocDate ALIAS FOR $5;
pAmount ALIAS FOR $6;
pNotes ALIAS FOR $7;
BEGIN
RETURN createAPDebitMemo(pVendid, pJournalNumber, pDocNumber, pPoNumber, pDocDate, pAmount, pNotes, -1, pDocDate, -1, baseCurrId() );
END;
$_$;
ALTER FUNCTION public.createapdebitmemo(integer, integer, text, text, date, numeric, text) OWNER TO admin;
--
-- Name: createapdebitmemo(integer, text, text, date, numeric, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapdebitmemo(integer, text, text, date, numeric, text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
pDocNumber ALIAS FOR $2;
pPoNumber ALIAS FOR $3;
pDocDate ALIAS FOR $4;
pAmount ALIAS FOR $5;
pNotes ALIAS FOR $6;
pAccntid ALIAS FOR $7;
_result INTEGER;
BEGIN
SELECT createAPDebitMemo( pVendid, fetchJournalNumber('AP-MISC'),
pDocNumber, pPoNumber, pDocDate, pAmount, pNotes, pAccntid, pDocDate, -1, baseCurrId() ) INTO _result;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.createapdebitmemo(integer, text, text, date, numeric, text, integer) OWNER TO admin;
--
-- Name: createapdebitmemo(integer, integer, text, text, date, numeric, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapdebitmemo(integer, integer, text, text, date, numeric, text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
pDocNumber ALIAS FOR $3;
pPoNumber ALIAS FOR $4;
pDocDate ALIAS FOR $5;
pAmount ALIAS FOR $6;
pNotes ALIAS FOR $7;
pAccntid ALIAS FOR $8;
BEGIN
RETURN createAPDebitMemo( pVendid, pJournalNumber,
pDocNumber, pPoNumber, pDocDate, pAmount, pNotes, pAccntid, pDocDate, -1, baseCurrId() );
END;
$_$;
ALTER FUNCTION public.createapdebitmemo(integer, integer, text, text, date, numeric, text, integer) OWNER TO admin;
--
-- Name: createapdebitmemo(integer, text, text, date, numeric, text, integer, date, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapdebitmemo(integer, text, text, date, numeric, text, integer, date, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
pDocNumber ALIAS FOR $2;
pPoNumber ALIAS FOR $3;
pDocDate ALIAS FOR $4;
pAmount ALIAS FOR $5;
pNotes ALIAS FOR $6;
pAccntid ALIAS FOR $7;
pDueDate ALIAS FOR $8;
pTermsid ALIAS FOR $9;
_result INTEGER;
BEGIN
SELECT createAPDebitMemo( pVendid, fetchJournalNumber('AP-MISC'),
pDocNumber, pPoNumber, pDocDate, pAmount, pNotes, pAccntid, pDueDate, pTermsid, baseCurrId() ) INTO _result;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.createapdebitmemo(integer, text, text, date, numeric, text, integer, date, integer) OWNER TO admin;
--
-- Name: createapdebitmemo(integer, integer, text, text, date, numeric, text, integer, date, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapdebitmemo(integer, integer, text, text, date, numeric, text, integer, date, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
pDocNumber ALIAS FOR $3;
pPoNumber ALIAS FOR $4;
pDocDate ALIAS FOR $5;
pAmount ALIAS FOR $6;
pNotes ALIAS FOR $7;
pAccntid ALIAS FOR $8;
pDueDate ALIAS FOR $9;
pTermsid ALIAS FOR $10;
BEGIN
RETURN createAPDebitMemo(pVendid, pJournalNumber, pDocNumber, pPoNumber, pDocDate, pAmount, pNotes, pAccntid, pDueDate, pTermsid, baseCurrId() );
END;
$_$;
ALTER FUNCTION public.createapdebitmemo(integer, integer, text, text, date, numeric, text, integer, date, integer) OWNER TO admin;
--
-- Name: createapdebitmemo(integer, integer, text, text, date, numeric, text, integer, date, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapdebitmemo(integer, integer, text, text, date, numeric, text, integer, date, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
pDocNumber ALIAS FOR $3;
pPoNumber ALIAS FOR $4;
pDocDate ALIAS FOR $5;
pAmount ALIAS FOR $6;
pNotes ALIAS FOR $7;
pAccntid ALIAS FOR $8;
pDueDate ALIAS FOR $9;
pTermsid ALIAS FOR $10;
pCurrId ALIAS FOR $11;
BEGIN
RETURN createAPDebitMemo(NULL, pVendid, pJournalNumber, pDocNumber, pPoNumber, pDocDate, pAmount, pNotes, pAccntid, pDueDate, pTermsid, pCurrId );
END;
$_$;
ALTER FUNCTION public.createapdebitmemo(integer, integer, text, text, date, numeric, text, integer, date, integer, integer) OWNER TO admin;
--
-- Name: createapdebitmemo(integer, integer, integer, text, text, date, numeric, text, integer, date, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapdebitmemo(integer, integer, integer, text, text, date, numeric, text, integer, date, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pId ALIAS FOR $1;
pVendid ALIAS FOR $2;
pJournalNumber ALIAS FOR $3;
pDocNumber ALIAS FOR $4;
pPoNumber ALIAS FOR $5;
pDocDate ALIAS FOR $6;
pAmount ALIAS FOR $7;
pNotes ALIAS FOR $8;
pAccntid ALIAS FOR $9;
pDueDate ALIAS FOR $10;
pTermsid ALIAS FOR $11;
pCurrId ALIAS FOR $12;
_vendName TEXT;
_apAccntid INTEGER;
_prepaidAccntid INTEGER;
_accntid INTEGER;
_glSequence INTEGER;
_journalNumber INTEGER;
_apopenid INTEGER;
_baseAmount NUMERIC;
_taxBaseValue NUMERIC;
_test INTEGER;
BEGIN
_apopenid := pId;
SELECT findAPAccount(pVendid) INTO _apAccntid;
SELECT findAPPrepaidAccount(pVendid) INTO _prepaidAccntid;
SELECT vend_name INTO _vendName
FROM vendinfo
WHERE (vend_id=pVendid);
_accntid := pAccntid;
PERFORM accnt_id
FROM accnt
WHERE (accnt_id=_accntid);
IF (FOUND) THEN
_prepaidAccntid := _accntid;
ELSE
_accntid := -1;
END IF;
IF(pJournalNumber IS NULL) THEN
SELECT fetchJournalNumber('AP-MISC') INTO _journalNumber;
ELSE
_journalNumber := pJournalNumber;
END IF;
SELECT fetchGLSequence() INTO _glSequence;
IF (_apopenid IS NOT NULL) THEN
UPDATE apopen SET
apopen_username=getEffectiveXtUser(), apopen_journalnumber=_journalNumber,
apopen_vend_id=pVendid, apopen_docnumber=pDocNumber,
apopen_doctype='D', apopen_ponumber=pPoNumber,
apopen_docdate=pDocDate, apopen_duedate=pDueDate,
apopen_distdate=pDocDate, apopen_terms_id=pTermsid,
apopen_amount=pAmount, apopen_paid=0,
apopen_open=(pAmount <> 0), apopen_notes=pNotes,
apopen_accnt_id=_accntid, apopen_curr_id=pCurrId,
apopen_closedate=CASE WHEN (pAmount = 0) THEN pDocdate END
WHERE apopen_id = _apopenid;
ELSE
SELECT NEXTVAL('apopen_apopen_id_seq') INTO _apopenid;
INSERT INTO apopen
( apopen_id, apopen_username, apopen_journalnumber,
apopen_vend_id, apopen_docnumber, apopen_doctype, apopen_ponumber,
apopen_docdate, apopen_duedate, apopen_distdate, apopen_terms_id,
apopen_amount, apopen_paid, apopen_discountable_amount, apopen_open, apopen_notes, apopen_accnt_id, apopen_curr_id,
apopen_closedate )
VALUES
( _apopenid, getEffectiveXtUser(), _journalNumber,
pVendid, pDocNumber, 'D', pPoNumber,
pDocDate, pDueDate, pDocDate, pTermsid,
pAmount, 0, 0, (pAmount <> 0), pNotes, _accntid, pCurrId,
CASE WHEN (pAmount = 0) THEN pDocDate END );
END IF;
_baseAmount := round(currToBase(pCurrId, pAmount, pDocDate), 2);
-- Credit the A/P account for the full amount
SELECT insertIntoGLSeries ( _glSequence, 'A/P', 'DM',
pDocNumber, _apAccntid,
_baseAmount,
pDocDate, (_vendName || ' ' || pNotes) ) INTO _test;
-- Debit the Tax account for the tax amount
_taxBaseValue := addTaxToGLSeries(_glSequence,
'A/P', 'DM', pDocNumber,
pCurrId, pDocDate, pDocDate,
'apopentax', _apopenid,
_vendName);
UPDATE apopentax SET taxhist_journalnumber = _journalNumber
WHERE taxhist_parent_id=_apopenid;
-- Debit the Prepaid account for the basis amount
-- Note, the taxBaseValue is negative so it is added
SELECT insertIntoGLSeries ( _glSequence, 'A/P', 'DM',
pDocNumber, _prepaidAccntid,
(_baseAmount + _taxBaseValue) * -1,
pDocDate, (_vendName || ' ' || pNotes) ) INTO _test;
-- Commit the GLSeries;
SELECT postGLSeries(_glSequence, _journalNumber) INTO _test;
IF (_test < 0) THEN
DELETE FROM apopen WHERE (apopen_id=_apopenid);
PERFORM deleteGLSeries(_glSequence);
RAISE EXCEPTION 'postGLSeries commit failed with %', _test;
END IF;
RETURN _apopenid;
END;
$_$;
ALTER FUNCTION public.createapdebitmemo(integer, integer, integer, text, text, date, numeric, text, integer, date, integer, integer) OWNER TO admin;
--
-- Name: createapdiscount(integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapdiscount(integer, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pApopenid ALIAS FOR $1;
pAmount ALIAS FOR $2;
_result INTEGER;
BEGIN
SELECT createAPDiscount(pApopenid, fetchJournalNumber('AP-MISC'), pAmount) INTO _result;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.createapdiscount(integer, numeric) OWNER TO admin;
--
-- Name: createapdiscount(integer, integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createapdiscount(integer, integer, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pApopenid ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
pAmount ALIAS FOR $3;
_ap RECORD;
_sequence INTEGER;
_apopenid INTEGER;
_apcreditapplyid INTEGER;
_result INTEGER;
_crAccnt INTEGER;
_dbAccnt INTEGER;
_reference TEXT;
_discountDateAmt NUMERIC;
BEGIN
SELECT NEXTVAL('apopen_apopen_id_seq') INTO _apopenid;
SELECT * INTO _ap
FROM apopen
WHERE (apopen_id = pApopenid);
IF (NOT FOUND) THEN
RETURN -1;
END IF;
_crAccnt := findAPDiscountAccount(_ap.apopen_vend_id);
_dbAccnt := findAPAccount(_ap.apopen_vend_id);
_reference := ('Discount for ' || _ap.apopen_doctype || ' ' || _ap.apopen_docnumber);
SELECT fetchGLSequence() INTO _sequence;
_discountDateAmt = round(pAmount / _ap.apopen_curr_rate, 2);
PERFORM insertIntoGLSeries( _sequence, 'A/P', 'DS', _ap.apopen_docnumber,
_dbAccnt,
_discountDateAmt * -1,
CURRENT_DATE,
_reference);
PERFORM insertIntoGLSeries( _sequence, 'A/P', 'DS', _ap.apopen_docnumber,
_crAccnt,
_discountDateAmt,
CURRENT_DATE,
_reference);
PERFORM postGLSeries(_sequence, pJournalNumber);
INSERT INTO apopen
( apopen_id, apopen_username, apopen_journalnumber,
apopen_vend_id, apopen_docnumber, apopen_doctype, apopen_ponumber,
apopen_docdate, apopen_duedate, apopen_distdate, apopen_terms_id, apopen_curr_id,
apopen_amount, apopen_paid, apopen_open, apopen_notes, apopen_discount, apopen_curr_rate )
SELECT _apopenid, getEffectiveXtUser(), pJournalNumber,
apopen_vend_id, apopen_docnumber, 'C', apopen_ponumber,
CURRENT_DATE, CURRENT_DATE, CURRENT_DATE, -1, apopen_curr_id,
pAmount, 0, TRUE, _reference, TRUE, apopen_curr_rate
FROM apopen
WHERE (apopen_id=pApopenid);
SELECT apcreditapply_id INTO _apcreditapplyid
FROM apcreditapply
WHERE ( (apcreditapply_source_apopen_id=_apopenid)
AND (apcreditapply_target_apopen_id=pApopenid) );
IF (FOUND) THEN
UPDATE apcreditapply
SET apcreditapply_amount=pAmount
WHERE (apcreditapply_id=_apcreditapplyid);
ELSE
SELECT nextval('apcreditapply_apcreditapply_id_seq') INTO _apcreditapplyid;
INSERT INTO apcreditapply
( apcreditapply_id, apcreditapply_source_apopen_id,
apcreditapply_target_apopen_id, apcreditapply_amount,
apcreditapply_curr_id )
VALUES ( _apcreditapplyid, _apopenid, pApopenid, pAmount, _ap.apopen_curr_id );
END IF;
SELECT postAPCreditMemoApplication(_apopenid) INTO _result;
IF (_result < 0) THEN
RETURN _result;
END IF;
RETURN pJournalNumber;
END;
$_$;
ALTER FUNCTION public.createapdiscount(integer, integer, numeric) OWNER TO admin;
--
-- Name: createarcashdeposit(integer, text, text, date, numeric, text, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createarcashdeposit(integer, text, text, date, numeric, text, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustid ALIAS FOR $1;
pDocNumber ALIAS FOR $2;
pOrderNumber ALIAS FOR $3;
pDocDate ALIAS FOR $4;
pAmount ALIAS FOR $5;
pNotes ALIAS FOR $6;
pJournalNumber ALIAS FOR $7;
pCurrId ALIAS FOR $8;
_prepaidaccntid INTEGER;
_deferredaccntid INTEGER;
_glSequence INTEGER;
_aropenid INTEGER;
BEGIN
IF (pAmount <= 0) THEN
RETURN 0;
END IF;
_prepaidaccntid := findPrepaidAccount(pCustid);
IF (_prepaidaccntid = -1) THEN
RAISE EXCEPTION 'There was an error creating the Customer Deposit GL Transactions. No Prepaid Account is assigned.';
END IF;
_deferredaccntid := findDeferredAccount(pCustid);
IF (_deferredaccntid = -1) THEN
RAISE EXCEPTION 'There was an error creating the Customer Deposit GL Transactions. No Deferred Account is assigned.';
END IF;
SELECT NEXTVAL('aropen_aropen_id_seq') INTO _aropenid;
SELECT insertGLTransaction( pJournalNumber, 'A/R', 'CD',
pDocNumber, pNotes, _deferredaccntid, _prepaidaccntid,
_aropenid,
round(currToBase(pCurrId, pAmount, pDocDate), 2),
pDocDate) INTO _glSequence;
INSERT INTO aropen
( aropen_id, aropen_username, aropen_journalnumber,
aropen_cust_id, aropen_docnumber, aropen_doctype, aropen_ordernumber,
aropen_docdate, aropen_duedate, aropen_distdate, aropen_terms_id, aropen_salesrep_id,
aropen_amount, aropen_paid, aropen_commission_due, aropen_commission_paid,
aropen_applyto, aropen_ponumber, aropen_cobmisc_id,
aropen_open, aropen_notes, aropen_rsncode_id,
aropen_salescat_id, aropen_accnt_id, aropen_curr_id )
VALUES
( _aropenid, getEffectiveXtUser(), pJournalNumber,
pCustid, pDocNumber, 'R', pOrderNumber,
pDocDate, pDocDate, pDocDate, -1, NULL,
round(pAmount, 2), 0, 0.0, FALSE,
'', '', -1,
TRUE, pNotes, -1,
-1, -1, pCurrId );
RETURN _aropenid;
END;
$_$;
ALTER FUNCTION public.createarcashdeposit(integer, text, text, date, numeric, text, integer, integer) OWNER TO admin;
--
-- Name: createarcreditmemo(integer, integer, text, text, date, numeric, text, integer, integer, integer, date, integer, integer, numeric, integer, integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createarcreditmemo(pid integer, pcustid integer, pdocnumber text, pordernumber text, pdocdate date, pamount numeric, pnotes text, prsncodeid integer, psalescatid integer, paccntid integer, pduedate date, ptermsid integer, psalesrepid integer, pcommissiondue numeric DEFAULT 0, pjournalnumber integer DEFAULT NULL::integer, pcurrid integer DEFAULT basecurrid(), paraccntid integer DEFAULT NULL::integer, pcoccpayid integer DEFAULT NULL::integer) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_accntid INTEGER;
_arAccntid INTEGER;
_aropenid INTEGER;
_cohistid INTEGER;
_custName TEXT;
_duedate DATE := COALESCE(pDueDate, pDocDate);
_glSequence INTEGER;
_journalNumber INTEGER;
_prepaidAccntid INTEGER;
_salescatid INTEGER;
_taxBaseValue NUMERIC;
_test INTEGER;
_tmp INTEGER;
BEGIN
_aropenid := pId;
IF (pAmount <= 0) THEN
RETURN 0;
END IF;
_arAccntid := COALESCE(pARAccntid, findARAccount(pCustid));
_prepaidAccntid := findPrepaidAccount(pCustid);
_accntid := pAccntid;
_salescatid := pSalescatid;
SELECT cust_name INTO _custName
FROM custinfo
WHERE (cust_id=pCustid);
IF EXISTS(SELECT 1 FROM accnt WHERE (accnt_id=_accntid)) THEN
_prepaidAccntid := _accntid;
ELSE
_accntid := -1;
END IF;
SELECT accnt_id INTO _tmp
FROM salescat, accnt
WHERE ((salescat_prepaid_accnt_id=accnt_id)
AND (salescat_id=_salescatid));
IF (FOUND) THEN
_accntid := -1;
_prepaidAccntid := _tmp;
ELSE
_salescatid = -1;
END IF;
IF(pJournalNumber IS NULL) THEN
SELECT fetchJournalNumber('AR-MISC') INTO _journalNumber;
ELSE
_journalNumber := pJournalNumber;
END IF;
_glSequence := fetchGLSequence();
-- CreatelUpdate aropen for full amount
IF (_aropenid IS NOT NULL) THEN
UPDATE aropen SET
aropen_username=getEffectiveXtUser(), aropen_journalnumber=_journalNumber,
aropen_cust_id=pCustid, aropen_docnumber=pDocNumber, aropen_doctype='C',
aropen_ordernumber=pOrderNumber,aropen_docdate=pDocDate, aropen_duedate=_duedate,
aropen_distdate=pDocDate, aropen_terms_id=pTermsid,
aropen_salesrep_id=pSalesrepid, aropen_amount=round(pAmount, 2), aropen_paid=0,
aropen_commission_due=pCommissiondue, aropen_commission_paid=FALSE,
aropen_applyto='', aropen_ponumber='', aropen_cobmisc_id=-1,
aropen_open=TRUE, aropen_notes=pNotes, aropen_rsncode_id=pRsncodeid,
aropen_salescat_id=_salescatid, aropen_accnt_id=_accntid, aropen_curr_id=pCurrId
WHERE aropen_id = pId;
ELSE
SELECT NEXTVAL('aropen_aropen_id_seq') INTO _aropenid;
INSERT INTO aropen
( aropen_id, aropen_username, aropen_journalnumber,
aropen_cust_id, aropen_docnumber, aropen_doctype, aropen_ordernumber,
aropen_docdate, aropen_duedate, aropen_distdate, aropen_terms_id, aropen_salesrep_id,
aropen_amount, aropen_paid, aropen_commission_due, aropen_commission_paid,
aropen_applyto, aropen_ponumber, aropen_cobmisc_id,
aropen_open, aropen_notes, aropen_rsncode_id,
aropen_salescat_id, aropen_accnt_id, aropen_curr_id )
VALUES
( _aropenid, getEffectiveXtUser(), _journalNumber,
pCustid, pDocNumber, 'C', pOrderNumber,
pDocDate, _duedate, pDocDate, pTermsid, pSalesrepid,
round(pAmount, 2), 0, pCommissiondue, FALSE,
'', '', -1,
TRUE, pNotes, pRsncodeid,
_salescatid, _accntid, pCurrId );
END IF;
-- Credit the A/R account for the full amount
SELECT insertIntoGLSeries ( _glSequence, 'A/R', 'CM',
pDocNumber, _arAccntid,
round(currToBase(pCurrId, pAmount, pDocDate), 2),
pDocDate, (_custName || ' ' || pNotes)) INTO _test;
-- Debit the Tax account for the tax amount
_taxBaseValue := addTaxToGLSeries(_glSequence,
'A/R', 'CM', pDocNumber,
pCurrId, pDocDate, pDocDate,
'aropentax', _aropenid,
(_custName || ' ' || pNotes));
UPDATE aropentax SET taxhist_journalnumber = _journalNumber
WHERE taxhist_parent_id=_aropenid;
-- Debit the Prepaid account for the basis amount
-- Note, _taxBaseValue is negative so it is added to pAmount
SELECT insertIntoGLSeries ( _glSequence, 'A/R', 'CM',
pDocNumber, _prepaidAccntid,
round(currToBase(pCurrId, pAmount * -1, pDocDate) + _taxBaseValue * -1, 2),
pDocDate, (_custName || ' ' || pNotes)) INTO _test;
-- Commit the GLSeries;
SELECT postGLSeries(_glSequence, _journalNumber) INTO _test;
IF (_test < 0) THEN
DELETE FROM aropen WHERE (aropen_id=_aropenid);
PERFORM deleteGLSeries(_glSequence);
RAISE EXCEPTION 'postGLSeries commit failed with %', _test;
END IF;
-- Record Sales History
INSERT INTO cohist
( cohist_cust_id,
cohist_itemsite_id, cohist_shipto_id,
cohist_misc_type, cohist_misc_descrip,
cohist_shipdate, cohist_shipvia,
cohist_ordernumber, cohist_ponumber, cohist_orderdate,
cohist_doctype, cohist_invcnumber, cohist_invcdate,
cohist_qtyshipped, cohist_unitprice, cohist_unitcost,
cohist_salesrep_id,
cohist_commission, cohist_commissionpaid,
cohist_curr_id, cohist_sequence, cohist_cohead_ccpay_id)
VALUES
(CASE WHEN pCustid < 0 THEN NULL ELSE pCustid END,
-1, -1,
'M', 'A/R Misc Credit Memo',
pDocDate, '',
pOrderNumber, '', pDocDate,
'C', pDocNumber, pDocDate,
1, (pAmount - _taxBaseValue) * -1, 0,
CASE WHEN pSalesrepid < 0 THEN NULL ELSE pSalesrepid END,
(pCommissiondue * -1.0), FALSE,
pCurrId, _glSequence, pCoCcpayId)
RETURNING cohist_id INTO _cohistid;
INSERT INTO cohisttax
( taxhist_parent_id, taxhist_taxtype_id, taxhist_tax_id,
taxhist_basis, taxhist_basis_tax_id, taxhist_sequence,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_distdate, taxhist_curr_id, taxhist_curr_rate,
taxhist_journalnumber )
SELECT _cohistid, taxhist_taxtype_id, taxhist_tax_id,
taxhist_basis, taxhist_basis_tax_id, taxhist_sequence,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_distdate, taxhist_curr_id, taxhist_curr_rate,
taxhist_journalnumber
FROM aropentax
WHERE (taxhist_parent_id=_aropenid);
RETURN _aropenid;
END;
$$;
ALTER FUNCTION public.createarcreditmemo(pid integer, pcustid integer, pdocnumber text, pordernumber text, pdocdate date, pamount numeric, pnotes text, prsncodeid integer, psalescatid integer, paccntid integer, pduedate date, ptermsid integer, psalesrepid integer, pcommissiondue numeric, pjournalnumber integer, pcurrid integer, paraccntid integer, pcoccpayid integer) OWNER TO admin;
--
-- Name: createardebitmemo(integer, integer, integer, text, text, date, numeric, text, integer, integer, integer, date, integer, integer, numeric, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createardebitmemo(integer, integer, integer, text, text, date, numeric, text, integer, integer, integer, date, integer, integer, numeric, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pId ALIAS FOR $1;
pCustid ALIAS FOR $2;
pJournalNumber ALIAS FOR $3;
pDocNumber ALIAS FOR $4;
pOrderNumber ALIAS FOR $5;
pDocDate ALIAS FOR $6;
pAmount ALIAS FOR $7;
pNotes ALIAS FOR $8;
pRsncodeid ALIAS FOR $9;
pSalescatid ALIAS FOR $10;
pAccntid ALIAS FOR $11;
pDueDate ALIAS FOR $12;
pTermsid ALIAS FOR $13;
pSalesrepid ALIAS FOR $14;
pCommissiondue ALIAS FOR $15;
pCurrId ALIAS FOR $16;
_custName TEXT;
_journalNumber INTEGER;
_arAccntid INTEGER;
_prepaidAccntid INTEGER;
_salescatid INTEGER;
_accntid INTEGER;
_glSequence INTEGER;
_aropenid INTEGER;
_cohistid INTEGER;
_tmp INTEGER;
_test INTEGER;
_taxBaseValue NUMERIC;
BEGIN
_aropenid=pId;
IF (pAmount <= 0) THEN
RETURN 0;
END IF;
SELECT findARAccount(pCustid) INTO _arAccntid;
SELECT findPrepaidAccount(pCustid) INTO _prepaidAccntid;
_accntid := pAccntid;
_salescatid := pSalescatid;
SELECT cust_name INTO _custName
FROM custinfo
WHERE (cust_id=pCustid);
PERFORM accnt_id
FROM accnt
WHERE (accnt_id=_accntid);
IF (FOUND) THEN
_prepaidAccntid := _accntid;
ELSE
_accntid := -1;
END IF;
SELECT accnt_id INTO _tmp
FROM salescat, accnt
WHERE ((salescat_prepaid_accnt_id=accnt_id)
AND (salescat_id=_salescatid));
IF (FOUND) THEN
_accntid := -1;
_prepaidAccntid := _tmp;
ELSE
_salescatid = -1;
END IF;
IF (pJournalNumber IS NULL) THEN
_journalNumber := fetchJournalNumber('AR-MISC');
ELSE
_journalNumber := pJournalNumber;
END IF;
SELECT fetchGLSequence() INTO _glSequence;
-- CreatelUpdate aropen for full amount
IF (_aropenid IS NOT NULL) THEN
UPDATE aropen SET
aropen_username=getEffectiveXtUser(), aropen_journalnumber=_journalNumber,
aropen_cust_id=pCustid, aropen_docnumber=pDocNumber, aropen_doctype='D',
aropen_ordernumber=pOrderNumber,aropen_docdate=pDocDate, aropen_duedate=pDueDate,
aropen_distdate=pDocDate, aropen_terms_id=pTermsid,
aropen_salesrep_id=pSalesrepid, aropen_amount=round(pAmount, 2), aropen_paid=0,
aropen_commission_due=pCommissiondue, aropen_commission_paid=FALSE,
aropen_applyto='', aropen_ponumber='', aropen_cobmisc_id=-1,
aropen_open=TRUE, aropen_notes=pNotes, aropen_rsncode_id=pRsncodeid,
aropen_salescat_id=_salescatid, aropen_accnt_id=_accntid, aropen_curr_id=pCurrId
WHERE aropen_id = pId;
ELSE
SELECT NEXTVAL('aropen_aropen_id_seq') INTO _aropenid;
INSERT INTO aropen
( aropen_id, aropen_username, aropen_journalnumber,
aropen_cust_id, aropen_docnumber, aropen_doctype, aropen_ordernumber,
aropen_docdate, aropen_duedate, aropen_distdate, aropen_terms_id, aropen_salesrep_id,
aropen_amount, aropen_paid, aropen_commission_due, aropen_commission_paid,
aropen_applyto, aropen_ponumber, aropen_cobmisc_id,
aropen_open, aropen_notes, aropen_rsncode_id,
aropen_salescat_id, aropen_accnt_id, aropen_curr_id )
VALUES
( _aropenid, getEffectiveXtUser(), _journalNumber,
pCustid, pDocNumber, 'D', pOrderNumber,
pDocDate, pDueDate, pDocDate, pTermsid, pSalesrepid,
round(pAmount, 2), 0, pCommissiondue, FALSE,
'', '', -1,
TRUE, pNotes, pRsncodeid,
_salescatid, _accntid, pCurrId );
END IF;
-- Debit the A/R account for the full amount
SELECT insertIntoGLSeries ( _glSequence, 'A/R', 'DM',
pDocNumber, _arAccntid,
round(currToBase(pCurrId, pAmount, pDocDate) * -1, 2),
pDocDate, (_custName || ' ' || pNotes)) INTO _test;
-- Credit the Tax account for the tax amount
_taxBaseValue := addTaxToGLSeries(_glSequence,
'A/R', 'DM', pDocNumber,
pCurrId, pDocDate, pDocDate,
'aropentax', _aropenid,
(_custName || ' ' || pNotes));
UPDATE aropentax SET taxhist_journalnumber = _journalNumber
WHERE taxhist_parent_id=_aropenid;
-- Credit the Prepaid account for the basis amount
SELECT insertIntoGLSeries ( _glSequence, 'A/R', 'DM',
pDocNumber, _prepaidAccntid,
round(currToBase(pCurrId, (pAmount), pDocDate), 2) - _taxBaseValue,
pDocDate, (_custName || ' ' || pNotes)) INTO _test;
-- Commit the GLSeries;
SELECT postGLSeries(_glSequence, _journalNumber) INTO _test;
IF (_test < 0) THEN
DELETE FROM aropen WHERE (aropen_id=_aropenid);
PERFORM deleteGLSeries(_glSequence);
RAISE EXCEPTION 'postGLSeries commit failed with %', _test;
END IF;
-- Record Sales History
SELECT nextval('cohist_cohist_id_seq') INTO _cohistid;
INSERT INTO cohist
( cohist_id, cohist_cust_id, cohist_itemsite_id, cohist_shipto_id,
cohist_misc_type, cohist_misc_descrip,
cohist_shipdate, cohist_shipvia,
cohist_ordernumber, cohist_ponumber, cohist_orderdate,
cohist_doctype, cohist_invcnumber, cohist_invcdate,
cohist_qtyshipped, cohist_unitprice, cohist_unitcost,
cohist_salesrep_id, cohist_commission, cohist_commissionpaid,
cohist_curr_id, cohist_sequence )
VALUES
( _cohistid, pCustid, -1, -1,
'M', 'A/R Misc Debit Memo',
pDocDate, '',
'', '', pDocDate,
'D', pDocNumber, pDocDate,
1, (pAmount - _taxBaseValue), 0,
pSalesrepid, pCommissiondue, FALSE,
pCurrId, _glSequence );
INSERT INTO cohisttax
( taxhist_parent_id, taxhist_taxtype_id, taxhist_tax_id,
taxhist_basis, taxhist_basis_tax_id, taxhist_sequence,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_distdate, taxhist_curr_id, taxhist_curr_rate,
taxhist_journalnumber )
SELECT _cohistid, taxhist_taxtype_id, taxhist_tax_id,
taxhist_basis, taxhist_basis_tax_id, taxhist_sequence,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_distdate, taxhist_curr_id, taxhist_curr_rate,
taxhist_journalnumber
FROM aropentax
WHERE (taxhist_parent_id=_aropenid);
RETURN _aropenid;
END;
$_$;
ALTER FUNCTION public.createardebitmemo(integer, integer, integer, text, text, date, numeric, text, integer, integer, integer, date, integer, integer, numeric, integer) OWNER TO admin;
--
-- Name: createbillingheader(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createbillingheader(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoheadid ALIAS FOR $1;
_cobmiscid INTEGER;
_cohead cohead%ROWTYPE;
_miscApplied NUMERIC := 0.0;
_freight NUMERIC;
_freighttypeid INTEGER;
_invcDate DATE;
_schedDate DATE;
_shipDate DATE;
_shipVia TEXT;
_tax NUMERIC;
BEGIN
-- Fetch cohead
SELECT * INTO _cohead
FROM cohead
WHERE (cohead_id=pSoheadid);
-- Check for an existing cobmisc
SELECT cobmisc_id INTO _cobmiscid
FROM cobmisc
WHERE ( (NOT cobmisc_posted)
AND (cobmisc_cohead_id=pSoheadid) );
IF (FOUND) THEN
-- Find a Shipping-Entered freight charge
SELECT SUM(currToCurr(shiphead_freight_curr_id, _cohead.cohead_curr_id,
shiphead_freight, CURRENT_DATE)) INTO _freight
FROM (
SELECT shiphead_id, shiphead_freight_curr_id, shiphead_freight
FROM shiphead JOIN shipitem ON (shipitem_shiphead_id=shiphead_id AND NOT shipitem_invoiced)
WHERE ((shiphead_order_type='SO')
AND (shiphead_order_id=pSoheadid))
GROUP BY shiphead_id, shiphead_freight_curr_id, shiphead_freight) AS data;
IF (_freight IS NOT NULL) THEN
UPDATE cobmisc SET cobmisc_freight = _freight
WHERE (cobmisc_id=_cobmiscid);
END IF;
RETURN _cobmiscid;
END IF;
-- Find misc charges that have already been applied for the S/O
SELECT COALESCE(SUM(cobmisc_misc), 0.0) INTO _miscApplied
FROM cobmisc
WHERE (cobmisc_cohead_id=pSoheadid);
SELECT NEXTVAL('cobmisc_cobmisc_id_seq') INTO _cobmiscid;
-- Check for a valid shipdate
SELECT MIN(shiphead_shipdate) INTO _shipDate
FROM shiphead, shipitem
WHERE ( (shipitem_shiphead_id=shiphead_id)
AND (NOT shipitem_invoiced)
AND (shiphead_shipped)
AND (shiphead_order_type='SO')
AND (shiphead_order_id=pSoheadid) );
-- Schema shouldn't allow, but we'll try for now
IF (_shipDate IS NULL) THEN
SELECT MAX(shipitem_shipdate) INTO _shipDate
FROM shipitem, shiphead
WHERE ( (shipitem_shiphead_id=shiphead_id)
AND (shiphead_order_type='SO')
AND (shiphead_order_id=pSoheadid) );
-- How about a transaction date
IF (_shipDate IS NULL) THEN
SELECT COALESCE(MAX(shipitem_transdate), CURRENT_DATE) INTO _shipDate
FROM shipitem, shiphead
WHERE ((shipitem_shiphead_id=shiphead_id)
AND (shiphead_order_type='SO')
AND (shiphead_order_id=pSoheadid) );
END IF;
END IF;
-- Get the earliest schedule date for this order.
SELECT MIN(coitem_scheddate) INTO _schedDate
FROM coitem
WHERE ((coitem_status <> 'X') AND (coitem_cohead_id=pSoheadid));
IF (_schedDate IS NULL) THEN
_schedDate := _shipDate;
END IF;
-- Find a Shipping-Entered freight charge
SELECT SUM(currToCurr(shiphead_freight_curr_id, _cohead.cohead_curr_id,
shiphead_freight, CURRENT_DATE)), shiphead_shipvia
INTO _freight, _shipVia
FROM (
SELECT shiphead_id, shiphead_freight_curr_id, shiphead_freight, shiphead_shipvia
FROM shiphead JOIN shipitem ON (shipitem_shiphead_id=shiphead_id AND NOT shipitem_invoiced)
WHERE ((shiphead_order_type='SO')
AND (shiphead_order_id=pSoheadid))
GROUP BY shiphead_id, shiphead_freight_curr_id, shiphead_freight, shiphead_shipvia) AS data
GROUP BY shiphead_shipvia;
-- Nope, use the cohead freight charge
IF (_freight IS NULL) THEN
_freight := _cohead.cohead_freight;
END IF;
-- Finally, look for a Shipping-Entered Ship Via
SELECT shiphead_shipvia INTO _shipVia
FROM shiphead, shipitem
WHERE ( (shipitem_shiphead_id=shiphead_id)
AND (NOT shipitem_invoiced)
AND (shiphead_order_type='SO')
AND (shiphead_order_id=pSoheadid) )
LIMIT 1;
IF (NOT FOUND) THEN
_shipVia := _cohead.cohead_shipvia;
END IF;
--Determine any tax
SELECT
getFreightTaxTypeId() INTO _freighttypeid;
SELECT SUM(COALESCE(taxdetail_tax, 0.00)) INTO _tax
FROM calculatetaxdetail(_cohead.cohead_taxzone_id, _freighttypeid, _cohead.cohead_orderdate,_cohead.cohead_curr_id, _freight);
-- Determine if we are using the _shipDate or _schedDate or current_date for the _invcDate
IF( fetchMetricText('InvoiceDateSource')='scheddate') THEN
_invcDate := _schedDate;
ELSIF( fetchMetricText('InvoiceDateSource')='shipdate') THEN
_invcDate := _shipDate;
ELSE
_invcDate := current_date;
END IF;
INSERT INTO cobmisc (
cobmisc_id, cobmisc_cohead_id, cobmisc_shipvia, cobmisc_freight, cobmisc_misc, cobmisc_payment
,cobmisc_notes,cobmisc_shipdate ,cobmisc_invcdate,cobmisc_posted ,cobmisc_misc_accnt_id
,cobmisc_misc_descrip,cobmisc_closeorder,cobmisc_curr_id
,cobmisc_taxtype_id,cobmisc_taxzone_id
)
SELECT
_cobmiscid,_cohead.cohead_id,_shipVia,_freight,
CASE WHEN (_cohead.cohead_misc - _miscApplied = 0.0) THEN 0.0
ELSE (_cohead.cohead_misc - _miscApplied) END,0,
_cohead.cohead_ordercomments,_shipDate,_invcDate,FALSE,_cohead.cohead_misc_accnt_id,
_cohead.cohead_misc_descrip,NOT(cust_backorder),_cohead.cohead_curr_id,
_cohead.cohead_taxtype_id,_cohead.cohead_taxzone_id
FROM custinfo
WHERE (cust_id=_cohead.cohead_cust_id);
RETURN _cobmiscid;
END;
$_$;
ALTER FUNCTION public.createbillingheader(integer) OWNER TO admin;
--
-- Name: createbomitem(integer, integer, integer, integer, character, integer, numeric, numeric, date, date, boolean, integer, boolean, text, character, integer, integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createbomitem(integer, integer, integer, integer, character, integer, numeric, numeric, date, date, boolean, integer, boolean, text, character, integer, integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
DECLARE
pBomitemid ALIAS FOR $1;
pParentItemid ALIAS FOR $2;
pComponentItemid ALIAS FOR $3;
pSeqNumber ALIAS FOR $4;
pIssueMethod ALIAS FOR $5;
pUomId ALIAS FOR $6;
pQtyPer ALIAS FOR $7;
pScrap ALIAS FOR $8;
pEffective ALIAS FOR $9;
pExpires ALIAS FOR $10;
pCreateWo ALIAS FOR $11;
pBOOItemseqid ALIAS FOR $12;
pSchedAtWooper ALIAS FOR $13;
pECN ALIAS FOR $14;
pSubType ALIAS FOR $15;
pRevisionid ALIAS FOR $16;
pCharId ALIAS FOR $17;
pCharVal ALIAS FOR $18;
_bomworksetid INTEGER;
_temp INTEGER;
_bomitemid INTEGER;
BEGIN
SELECT createBOMItem( pBomitemid, pParentItemid, pComponentItemid,
pSeqNumber, pIssueMethod,
pUomId, pQtyPer, pScrap,
pEffective, pExpires,
pCreateWo, pBOOItemseqid, pSchedAtWooper, pECN, pSubType, pRevisionid, pCharId, pCharVal, NULL, NULL ) INTO _bomitemid;
RETURN _bomitemid;
END;
$_$;
ALTER FUNCTION public.createbomitem(integer, integer, integer, integer, character, integer, numeric, numeric, date, date, boolean, integer, boolean, text, character, integer, integer, text) OWNER TO admin;
--
-- Name: createbomitem(integer, integer, integer, integer, character, integer, numeric, numeric, date, date, boolean, integer, boolean, text, character, integer, integer, text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createbomitem(integer, integer, integer, integer, character, integer, numeric, numeric, date, date, boolean, integer, boolean, text, character, integer, integer, text, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
DECLARE
pBomitemid ALIAS FOR $1;
pParentItemid ALIAS FOR $2;
pComponentItemid ALIAS FOR $3;
pSeqNumber ALIAS FOR $4;
pIssueMethod ALIAS FOR $5;
pUomId ALIAS FOR $6;
pQtyPer ALIAS FOR $7;
pScrap ALIAS FOR $8;
pEffective ALIAS FOR $9;
pExpires ALIAS FOR $10;
pCreateWo ALIAS FOR $11;
pBOOItemseqid ALIAS FOR $12;
pSchedAtWooper ALIAS FOR $13;
pECN ALIAS FOR $14;
pSubType ALIAS FOR $15;
pRevisionid ALIAS FOR $16;
pCharId ALIAS FOR $17;
pCharVal ALIAS FOR $18;
pNotes ALIAS FOR $19;
pRef ALIAS FOR $20;
_bomworksetid INTEGER;
_temp INTEGER;
BEGIN
-- Make sure that the parent and component are not the same
IF (pParentItemid = pComponentItemid) THEN
RETURN -1;
END IF;
-- Make sure that the parent is not used in the component at some level
IF ( SELECT (item_type IN ('M', 'F'))
FROM item
WHERE (item_id=pComponentItemid) ) THEN
SELECT indentedWhereUsed(pParentItemid) INTO _bomworksetid;
SELECT bomwork_id INTO _temp
FROM bomwork
WHERE ( (bomwork_set_id=_bomworksetid)
AND (bomwork_item_id=pComponentItemid) )
LIMIT 1;
IF (FOUND) THEN
PERFORM deleteBOMWorkset(_bomworksetid);
RETURN -2;
END IF;
END IF;
PERFORM deleteBOMWorkset(_bomworksetid);
-- Create the BOM Item
INSERT INTO bomitem
( bomitem_id, bomitem_parent_item_id, bomitem_item_id,
bomitem_seqnumber, bomitem_issuemethod,
bomitem_uom_id, bomitem_qtyper, bomitem_scrap,
bomitem_effective, bomitem_expires,
bomitem_createwo,
bomitem_booitem_seq_id, bomitem_schedatwooper,
bomitem_ecn, bomitem_subtype, bomitem_moddate, bomitem_rev_id,
bomitem_char_id, bomitem_value, bomitem_notes, bomitem_ref )
VALUES
( pBomitemid, pParentItemid, pComponentItemid,
pSeqNumber, pIssueMethod,
pUomId, pQtyPer, pScrap,
pEffective, pExpires,
pCreateWo,
pBOOItemseqid, COALESCE(pSchedAtWooper, FALSE),
pECN, pSubType, CURRENT_DATE, pRevisionid,
pCharId,pCharVal,pNotes, pRef );
RETURN pBomitemid;
END;
$_$;
ALTER FUNCTION public.createbomitem(integer, integer, integer, integer, character, integer, numeric, numeric, date, date, boolean, integer, boolean, text, character, integer, integer, text, text, text) OWNER TO admin;
--
-- Name: createbomitem(integer, integer, integer, character, integer, numeric, numeric, date, date, boolean, integer, boolean, text, character, integer, integer, text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createbomitem(integer, integer, integer, character, integer, numeric, numeric, date, date, boolean, integer, boolean, text, character, integer, integer, text, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
DECLARE
pBomitemid ALIAS FOR $1;
pParentItemid ALIAS FOR $2;
pComponentItemid ALIAS FOR $3;
pIssueMethod ALIAS FOR $4;
pUomId ALIAS FOR $5;
pQtyPer ALIAS FOR $6;
pScrap ALIAS FOR $7;
pEffective ALIAS FOR $8;
pExpires ALIAS FOR $9;
pCreateWo ALIAS FOR $10;
pBOOItemseqid ALIAS FOR $11;
pSchedAtWooper ALIAS FOR $12;
pECN ALIAS FOR $13;
pSubType ALIAS FOR $14;
pRevisionid ALIAS FOR $15;
pCharId ALIAS FOR $16;
pCharVal ALIAS FOR $17;
pNotes ALIAS FOR $18;
pRef ALIAS FOR $19;
_seqNumber INTEGER;
_bomitemid INTEGER;
BEGIN
-- Grab the next Sequence Number, if any
SELECT MAX(bomitem_seqnumber) INTO _seqNumber
FROM bomitem(pParentItemid,pRevisionid);
IF (_seqNumber IS NOT NULL) THEN
_seqNumber := (_seqNumber + 10);
ELSE
_seqNumber := 10;
END IF;
SELECT createBOMItem( pBomitemid, pParentItemid, pComponentItemid,
_seqNumber, pIssueMethod,
pUomId, pQtyPer, pScrap,
pEffective, pExpires,
pCreateWo, pBOOItemseqid, pSchedAtWooper, pECN, pSubType, pRevisionid, pCharId, pCharVal, pNotes, pRef ) INTO _bomitemid;
RETURN _bomitemid;
END;
$_$;
ALTER FUNCTION public.createbomitem(integer, integer, integer, character, integer, numeric, numeric, date, date, boolean, integer, boolean, text, character, integer, integer, text, text, text) OWNER TO admin;
--
-- Name: createbomitem(integer, integer, integer, integer, character, integer, numeric, numeric, numeric, date, date, boolean, integer, boolean, text, character, integer, integer, text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createbomitem(integer, integer, integer, integer, character, integer, numeric, numeric, numeric, date, date, boolean, integer, boolean, text, character, integer, integer, text, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBomitemid ALIAS FOR $1;
pParentItemid ALIAS FOR $2;
pComponentItemid ALIAS FOR $3;
pSeqNumber ALIAS FOR $4;
pIssueMethod ALIAS FOR $5;
pUomId ALIAS FOR $6;
pQtyFxd ALIAS FOR $7;
pQtyPer ALIAS FOR $8;
pScrap ALIAS FOR $9;
pEffective ALIAS FOR $10;
pExpires ALIAS FOR $11;
pCreateWo ALIAS FOR $12;
pBOOItemseqid ALIAS FOR $13;
pSchedAtWooper ALIAS FOR $14;
pECN ALIAS FOR $15;
pSubType ALIAS FOR $16;
pRevisionid ALIAS FOR $17;
pCharId ALIAS FOR $18;
pCharVal ALIAS FOR $19;
pNotes ALIAS FOR $20;
pRef ALIAS FOR $21;
_bomworksetid INTEGER;
_temp INTEGER;
BEGIN
-- Make sure that the parent and component are not the same
IF (pParentItemid = pComponentItemid) THEN
RETURN -1;
END IF;
-- Make sure that the parent is not used in the component at some level
IF ( SELECT (item_type IN ('M', 'F'))
FROM item
WHERE (item_id=pComponentItemid) ) THEN
SELECT indentedWhereUsed(pParentItemid) INTO _bomworksetid;
SELECT bomwork_id INTO _temp
FROM bomwork
WHERE ( (bomwork_set_id=_bomworksetid)
AND (bomwork_item_id=pComponentItemid) )
LIMIT 1;
IF (FOUND) THEN
PERFORM deleteBOMWorkset(_bomworksetid);
RETURN -2;
END IF;
END IF;
PERFORM deleteBOMWorkset(_bomworksetid);
-- Create the BOM Item
INSERT INTO bomitem
( bomitem_id, bomitem_parent_item_id, bomitem_item_id,
bomitem_seqnumber, bomitem_issuemethod,
bomitem_uom_id, bomitem_qtyfxd, bomitem_qtyper, bomitem_scrap,
bomitem_effective, bomitem_expires,
bomitem_createwo,
bomitem_booitem_seq_id, bomitem_schedatwooper,
bomitem_ecn, bomitem_subtype, bomitem_moddate, bomitem_rev_id,
bomitem_char_id, bomitem_value, bomitem_notes, bomitem_ref )
VALUES
( pBomitemid, pParentItemid, pComponentItemid,
pSeqNumber, pIssueMethod,
pUomId, pQtyFxd, pQtyPer, pScrap,
pEffective, pExpires,
pCreateWo,
pBOOItemseqid, COALESCE(pSchedAtWooper, FALSE),
pECN, pSubType, CURRENT_DATE, pRevisionid,
pCharId,pCharVal,pNotes, pRef );
RETURN pBomitemid;
END;
$_$;
ALTER FUNCTION public.createbomitem(integer, integer, integer, integer, character, integer, numeric, numeric, numeric, date, date, boolean, integer, boolean, text, character, integer, integer, text, text, text) OWNER TO admin;
--
-- Name: createbomitem(integer, integer, integer, integer, character, integer, numeric, numeric, numeric, date, date, boolean, integer, boolean, text, character, integer, integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createbomitem(integer, integer, integer, integer, character, integer, numeric, numeric, numeric, date, date, boolean, integer, boolean, text, character, integer, integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBomitemid ALIAS FOR $1;
pParentItemid ALIAS FOR $2;
pComponentItemid ALIAS FOR $3;
pSeqNumber ALIAS FOR $4;
pIssueMethod ALIAS FOR $5;
pUomId ALIAS FOR $6;
pQtyFxd ALIAS FOR $7;
pQtyPer ALIAS FOR $8;
pScrap ALIAS FOR $9;
pEffective ALIAS FOR $10;
pExpires ALIAS FOR $11;
pCreateWo ALIAS FOR $12;
pBOOItemseqid ALIAS FOR $13;
pSchedAtWooper ALIAS FOR $14;
pECN ALIAS FOR $15;
pSubType ALIAS FOR $16;
pRevisionid ALIAS FOR $17;
pCharId ALIAS FOR $18;
pCharVal ALIAS FOR $19;
_bomworksetid INTEGER;
_temp INTEGER;
_bomitemid INTEGER;
BEGIN
SELECT createBOMItem( pBomitemid, pParentItemid, pComponentItemid,
pSeqNumber, pIssueMethod,
pUomId, pQtyFxd, pQtyPer, pScrap,
pEffective, pExpires,
pCreateWo, pBOOItemseqid, pSchedAtWooper, pECN, pSubType, pRevisionid, pCharId, pCharVal, NULL, NULL ) INTO _bomitemid;
RETURN _bomitemid;
END;
$_$;
ALTER FUNCTION public.createbomitem(integer, integer, integer, integer, character, integer, numeric, numeric, numeric, date, date, boolean, integer, boolean, text, character, integer, integer, text) OWNER TO admin;
--
-- Name: createbomitem(integer, integer, integer, character, integer, numeric, numeric, numeric, date, date, boolean, integer, boolean, text, character, integer, integer, text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createbomitem(integer, integer, integer, character, integer, numeric, numeric, numeric, date, date, boolean, integer, boolean, text, character, integer, integer, text, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBomitemid ALIAS FOR $1;
pParentItemid ALIAS FOR $2;
pComponentItemid ALIAS FOR $3;
pIssueMethod ALIAS FOR $4;
pUomId ALIAS FOR $5;
pQtyFxd ALIAS FOR $6;
pQtyPer ALIAS FOR $7;
pScrap ALIAS FOR $8;
pEffective ALIAS FOR $9;
pExpires ALIAS FOR $10;
pCreateWo ALIAS FOR $11;
pBOOItemseqid ALIAS FOR $12;
pSchedAtWooper ALIAS FOR $13;
pECN ALIAS FOR $14;
pSubType ALIAS FOR $15;
pRevisionid ALIAS FOR $16;
pCharId ALIAS FOR $17;
pCharVal ALIAS FOR $18;
pNotes ALIAS FOR $19;
pRef ALIAS FOR $20;
_seqNumber INTEGER;
_bomitemid INTEGER;
BEGIN
-- Grab the next Sequence Number, if any
SELECT MAX(bomitem_seqnumber) INTO _seqNumber
FROM bomitem(pParentItemid,pRevisionid);
IF (_seqNumber IS NOT NULL) THEN
_seqNumber := (_seqNumber + 10);
ELSE
_seqNumber := 10;
END IF;
SELECT createBOMItem( pBomitemid, pParentItemid, pComponentItemid,
_seqNumber, pIssueMethod,
pUomId, pQtyFxd, pQtyPer, pScrap,
pEffective, pExpires,
pCreateWo, pBOOItemseqid, pSchedAtWooper, pECN, pSubType, pRevisionid, pCharId, pCharVal, pNotes, pRef ) INTO _bomitemid;
RETURN _bomitemid;
END;
$_$;
ALTER FUNCTION public.createbomitem(integer, integer, integer, character, integer, numeric, numeric, numeric, date, date, boolean, integer, boolean, text, character, integer, integer, text, text, text) OWNER TO admin;
--
-- Name: createcheck(integer, text, integer, date, numeric, integer, integer, integer, text, text, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createcheck(integer, text, integer, date, numeric, integer, integer, integer, text, text, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBankaccntid ALIAS FOR $1;
pRecipType ALIAS FOR $2;
pRecipId ALIAS FOR $3;
pCheckDate ALIAS FOR $4;
pAmount ALIAS FOR $5;
pCurrid ALIAS FOR $6;
pExpcatid ALIAS FOR $7;
_journalNumber INTEGER := $8;
pFor ALIAS FOR $9;
pNotes ALIAS FOR $10;
pMisc ALIAS FOR $11;
_checkid INTEGER;
BEGIN
SELECT createCheck(pBankaccntid,pRecipType,pRecipId,pCheckDate,pAmount,pCurrid,pExpcatid,_journalNumber,pFor,pNotes,pMisc,NULL) INTO _checkid;
RETURN _checkid;
END;
$_$;
ALTER FUNCTION public.createcheck(integer, text, integer, date, numeric, integer, integer, integer, text, text, boolean) OWNER TO admin;
--
-- Name: createcheck(integer, text, integer, date, numeric, integer, integer, integer, text, text, boolean, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createcheck(integer, text, integer, date, numeric, integer, integer, integer, text, text, boolean, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBankaccntid ALIAS FOR $1;
pRecipType ALIAS FOR $2;
pRecipId ALIAS FOR $3;
pCheckDate ALIAS FOR $4;
pAmount ALIAS FOR $5;
pCurrid ALIAS FOR $6;
pExpcatid ALIAS FOR $7;
_journalNumber INTEGER := $8;
pFor ALIAS FOR $9;
pNotes ALIAS FOR $10;
pMisc ALIAS FOR $11;
pAropenid ALIAS FOR $12;
_checkid INTEGER;
_check_curr_rate NUMERIC;
_bankaccnt_currid INTEGER;
BEGIN
SELECT bankaccnt_curr_id,currRate(bankaccnt_curr_id,pCheckDate) INTO _bankaccnt_currid, _check_curr_rate
FROM bankaccnt
WHERE bankaccnt_id = pBankaccntid;
IF (NOT FOUND) THEN
RETURN -1;
END IF;
IF (pRecipType NOT IN ('C', 'T', 'V')) THEN
RETURN -2;
END IF;
IF (pCheckDate IS NULL) THEN
RETURN -3;
END IF;
IF (pAmount <= 0) THEN
RETURN -4;
END IF;
IF (pCurrid IS NULL
OR NOT EXISTS(SELECT * FROM curr_symbol WHERE (curr_id=pCurrid))) THEN
RETURN -5;
END IF;
IF (pExpcatid IS NOT NULL
AND NOT EXISTS(SELECT * FROM expcat WHERE (expcat_id=pExpcatid))) THEN
RETURN -6;
END IF;
-- Do not assign Journal Number until check is posted
-- if (_journalNumber IS NULL) THEN
-- _journalNumber := fetchJournalNumber('AP-CK');
-- END IF;
_checkid := NEXTVAL('checkhead_checkhead_id_seq');
INSERT INTO checkhead
( checkhead_id, checkhead_recip_type, checkhead_recip_id,
checkhead_bankaccnt_id, checkhead_number,
checkhead_amount,
checkhead_checkdate, checkhead_misc, checkhead_expcat_id,
checkhead_journalnumber, checkhead_for, checkhead_notes,
checkhead_curr_id )
VALUES
( _checkid, pRecipType, pRecipId,
pBankaccntid, -1, --fetchNextCheckNumber(pBankaccntid),
currToCurr(pCurrid, _bankaccnt_currid, pAmount, pCheckDate),
pCheckDate, COALESCE(pMisc, FALSE), pExpcatid,
_journalNumber, pFor, pNotes,
_bankaccnt_currid );
IF (pAropenid IS NOT NULL AND fetchmetricbool('EnableReturnAuth')) THEN
INSERT INTO checkitem (checkitem_checkhead_id,checkitem_amount,checkitem_discount,checkitem_ponumber,
checkitem_aropen_id,checkitem_docdate,checkitem_curr_id,checkitem_cmnumber,
checkitem_ranumber, checkitem_curr_rate)
SELECT _checkid, currToCurr(checkhead_curr_id, aropen_curr_id, pAmount, checkhead_checkdate),
0,cmhead_custponumber,pAropenid,aropen_docdate,aropen_curr_id,cmhead_number,rahead_number,
1 / (_check_curr_rate / aropen_curr_rate)
FROM checkhead, aropen
LEFT OUTER JOIN cmhead ON (aropen_docnumber=cmhead_number)
LEFT OUTER JOIN rahead ON (cmhead_rahead_id=rahead_id)
WHERE ((aropen_id=pAropenid)
AND (checkhead_id=_checkid));
ELSIF (pAropenid IS NOT NULL) THEN
INSERT INTO checkitem (checkitem_checkhead_id,checkitem_amount,checkitem_discount,checkitem_ponumber,
checkitem_aropen_id,checkitem_docdate,checkitem_curr_id,checkitem_cmnumber,
checkitem_ranumber, checkitem_curr_rate)
SELECT _checkid,currToCurr(checkhead_curr_id, aropen_curr_id, pAmount, checkhead_checkdate),
0,cmhead_custponumber,pAropenid,aropen_docdate,aropen_curr_id,cmhead_number,NULL,
1 / (_check_curr_rate / aropen_curr_rate)
FROM checkhead, aropen
LEFT OUTER JOIN cmhead ON (aropen_docnumber=cmhead_number)
WHERE ((aropen_id=pAropenid)
AND (checkhead_id=_checkid));
END IF;
RETURN _checkid;
END;
$_$;
ALTER FUNCTION public.createcheck(integer, text, integer, date, numeric, integer, integer, integer, text, text, boolean, integer) OWNER TO admin;
--
-- Name: createchecks(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createchecks(integer, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBankaccntid ALIAS FOR $1;
pCheckDate ALIAS FOR $2;
_v RECORD;
_r RECORD;
_c RECORD;
_checkid INTEGER;
_counter INTEGER := 0;
_check_curr_id INTEGER;
_check_curr_rate NUMERIC;
BEGIN
SELECT bankaccnt_curr_id, currRate(bankaccnt_curr_id, pCheckDate)
INTO _check_curr_id, _check_curr_rate
FROM bankaccnt
WHERE ( bankaccnt_id = pBankaccntid );
FOR _v IN SELECT DISTINCT vend_id, vend_number, vend_name
FROM apselect
JOIN apopen ON (apselect_apopen_id=apopen_id)
JOIN vendinfo ON (apopen_vend_id=vend_id)
WHERE ((apselect_bankaccnt_id=pBankaccntid)
AND (apselect_date <= pCheckDate)) LOOP
-- if we owe this vendor anything (we might not) then create a check
IF ((SELECT
SUM(apselect_amount * _check_curr_rate / apopen_curr_rate)
FROM apselect, apopen
WHERE ((apselect_apopen_id=apopen_id)
AND (apopen_vend_id=_v.vend_id)
AND (apselect_bankaccnt_id=pBankaccntid)) ) > 0) THEN
-- 0.01 is a temporary amount; we''ll update the check amount later
_checkid := createCheck(pBankaccntid, 'V', _v.vend_id,
pCheckDate, 0.01, _check_curr_id,
NULL, NULL, '', '', FALSE);
FOR _r IN SELECT apopen_id, apselect_id,
apopen_docnumber, apopen_invcnumber, apopen_ponumber,
apopen_docdate, apselect_curr_id,
apselect_amount, apselect_discount
FROM apselect, apopen
WHERE ( (apselect_apopen_id=apopen_id)
AND (apopen_vend_id=_v.vend_id)
AND (apselect_bankaccnt_id=pBankaccntid) ) LOOP
INSERT INTO checkitem
( checkitem_checkhead_id, checkitem_apopen_id,
checkitem_vouchernumber, checkitem_invcnumber, checkitem_ponumber,
checkitem_amount, checkitem_discount, checkitem_docdate,
checkitem_curr_id, checkitem_curr_rate )
VALUES
( _checkid, _r.apopen_id,
_r.apopen_docnumber, _r.apopen_invcnumber, _r.apopen_ponumber,
_r.apselect_amount, _r.apselect_discount, _r.apopen_docdate,
_r.apselect_curr_id,
1 / (_check_curr_rate / currRate(_r.apselect_curr_id, pCheckdate)) );
DELETE FROM apselect
WHERE (apselect_id=_r.apselect_id);
END LOOP;
-- one check can pay for purchases on multiple dates in multiple currencies
UPDATE checkhead
SET checkhead_amount = (SELECT SUM(checkitem_amount / checkitem_curr_rate)
FROM checkitem
WHERE (checkitem_checkhead_id=checkhead_id))
WHERE (checkhead_id=_checkid);
_counter := (_counter + 1);
END IF;
END LOOP;
RETURN _counter;
END;
$_$;
ALTER FUNCTION public.createchecks(integer, date) OWNER TO admin;
--
-- Name: createcounttag(integer, text, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createcounttag(integer, text, boolean, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pComments ALIAS FOR $2;
pPriority ALIAS FOR $3;
pFreeze ALIAS FOR $4;
BEGIN
RETURN createCountTag(pItemsiteid, pComments, pPriority, pFreeze, NULL);
END;
$_$;
ALTER FUNCTION public.createcounttag(integer, text, boolean, boolean) OWNER TO admin;
--
-- Name: createcounttag(integer, text, boolean, boolean, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createcounttag(integer, text, boolean, boolean, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pComments ALIAS FOR $2;
pPriority ALIAS FOR $3;
pFreeze ALIAS FOR $4;
pLocationid ALIAS FOR $5;
_invcntid INTEGER;
_whs RECORD;
_type CHARACTER;
_controlmethod CHARACTER;
BEGIN
SELECT item_type, itemsite_controlmethod INTO _type, _controlmethod
FROM itemsite, item
WHERE ((itemsite_item_id=item_id)
AND (itemsite_id=pItemsiteid));
IF (NOT FOUND OR _type IN ('F', 'R', 'L','J') OR _controlmethod = 'N') THEN
RETURN 0; -- We simply do not do these item types.
END IF;
-- Test for existing tags
IF (pLocationid IS NULL) THEN
SELECT invcnt_id INTO _invcntid
FROM invcnt
WHERE ((NOT invcnt_posted)
AND (invcnt_location_id IS NULL)
AND (invcnt_itemsite_id=pItemsiteid));
ELSE
SELECT invcnt_id INTO _invcntid
FROM invcnt
WHERE ((NOT invcnt_posted)
AND (invcnt_itemsite_id=pItemsiteid)
AND (invcnt_location_id=pLocationid));
END IF;
IF (NOT FOUND) THEN
SELECT NEXTVAL('invcnt_invcnt_id_seq') INTO _invcntid;
SELECT whsinfo.* INTO _whs
FROM whsinfo, itemsite
WHERE ((warehous_id=itemsite_warehous_id)
AND (itemsite_id=pItemsiteid));
INSERT INTO invcnt (
invcnt_id, invcnt_itemsite_id, invcnt_tagdate,
invcnt_tagnumber,
invcnt_tag_username, invcnt_posted,
invcnt_priority, invcnt_comments, invcnt_location_id
) VALUES (
_invcntid, pItemsiteid, CURRENT_TIMESTAMP,
(_whs.warehous_counttag_prefix || _whs.warehous_counttag_number::TEXT),
getEffectiveXtUser(), FALSE,
pPriority, pComments, pLocationid
);
UPDATE whsinfo
SET warehous_counttag_number=(warehous_counttag_number + 1)
WHERE (warehous_id=_whs.warehous_id);
IF (pFreeze) THEN
UPDATE itemsite
SET itemsite_freeze=TRUE
WHERE (itemsite_id=pItemsiteid);
END IF;
END IF;
RETURN _invcntid;
END;
$_$;
ALTER FUNCTION public.createcounttag(integer, text, boolean, boolean, integer) OWNER TO admin;
--
-- Name: createcustomer(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createcustomer(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
DECLARE
pcrmacctId ALIAS FOR $1;
_custId INTEGER := 0;
BEGIN
IF (pcrmacctId < 0 OR pcrmacctId IS NULL) THEN
RETURN -1;
END IF;
SELECT crmacct_cust_id INTO _custId
FROM crmacct WHERE crmacct_id = pcrmacctId;
IF (_custId IS NOT NULL AND _custId <= 0) THEN
RETURN -2;
END IF;
INSERT INTO _customer (active, customer_number, customer_name)
SELECT crmacct_active, crmacct_number, crmacct_name
FROM crmacct
WHERE crmacct_id = pcrmacctId;
_custId := CURRVAL('cust_cust_id_seq');
UPDATE crmacct SET crmacct_prospect_id = NULL, crmacct_cust_id = _custId
WHERE crmacct_id = pcrmacctId;
RETURN _custId;
END;
$_$;
ALTER FUNCTION public.createcustomer(integer) OWNER TO admin;
--
-- Name: createcyclecountsbywarehouse(integer, integer, text, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createcyclecountsbywarehouse(integer, integer, text, boolean, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWarehousid ALIAS FOR $1;
pMaxNumber ALIAS FOR $2;
pComments ALIAS FOR $3;
pPriority ALIAS FOR $4;
pFreeze ALIAS FOR $5;
BEGIN
RETURN createCycleCountsByWarehouse(pWarehousid, pMaxNumber, pComments, pPriority, pFreeze, NULL, FALSE);
END;
$_$;
ALTER FUNCTION public.createcyclecountsbywarehouse(integer, integer, text, boolean, boolean) OWNER TO admin;
--
-- Name: createcyclecountsbywarehouse(integer, integer, integer, text, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createcyclecountsbywarehouse(integer, integer, integer, text, boolean, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWarehousid ALIAS FOR $1;
pClasscodeid ALIAS FOR $2;
pMaxNumber ALIAS FOR $3;
pComments ALIAS FOR $4;
pPriority ALIAS FOR $5;
pFreeze ALIAS FOR $6;
BEGIN
RETURN createCycleCountsByWarehouseByClassCode(pWarehousid, pClasscodeid, pMaxNumber, pComments, pPriority, pFreeze, NULL, FALSE);
END;
$_$;
ALTER FUNCTION public.createcyclecountsbywarehouse(integer, integer, integer, text, boolean, boolean) OWNER TO admin;
--
-- Name: createcyclecountsbywarehouse(integer, text, integer, text, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createcyclecountsbywarehouse(integer, text, integer, text, boolean, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWarehousid ALIAS FOR $1;
pClasscodePattern ALIAS FOR $2;
pMaxNumber ALIAS FOR $3;
pComments ALIAS FOR $4;
pPriority ALIAS FOR $5;
pFreeze ALIAS FOR $6;
BEGIN
RETURN createCycleCountsByWarehouseByClassCode(pWarehousid, pClasscodePattern, pMaxNumber, pComments, pPriority, pFreeze, NULL, FALSE);
END;
$_$;
ALTER FUNCTION public.createcyclecountsbywarehouse(integer, text, integer, text, boolean, boolean) OWNER TO admin;
--
-- Name: createcyclecountsbywarehouse(integer, integer, text, boolean, boolean, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createcyclecountsbywarehouse(integer, integer, text, boolean, boolean, integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWarehousid ALIAS FOR $1;
pMaxNumber ALIAS FOR $2;
pComments ALIAS FOR $3;
pPriority ALIAS FOR $4;
pFreeze ALIAS FOR $5;
pLocationid ALIAS FOR $6;
pIgnoreZeroBalance ALIAS FOR $7;
_itemsites RECORD;
_returnVal INTEGER;
BEGIN
IF (pLocationid IS NULL) THEN
FOR _itemsites IN SELECT itemsite_id, itemsite_warehous_id, itemsite_qtyonhand
FROM itemsite, item
WHERE ( (itemsite_active)
AND (itemsite_item_id=item_id)
AND (itemsite_cyclecountfreq > 0)
AND ((COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq) < CURRENT_DATE)
AND (itemsite_id NOT IN ( SELECT invcnt_itemsite_id
FROM invcnt, itemsite
WHERE ( (invcnt_itemsite_id=itemsite_id)
AND (itemsite_warehous_id=pWarehousid)
AND (invcnt_location_id IS NULL)
AND (NOT invcnt_posted) ) ) )
AND ((NOT pIgnoreZeroBalance) OR (itemsite_qtyonhand <> 0))
AND ((pLocationid IS NULL) OR (validLocation(pLocationid, itemsite_id)))
AND (itemsite_warehous_id=pWarehousid) )
ORDER BY (COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq), itemsite_abcclass, item_number
LIMIT pMaxNumber LOOP
_returnVal := createCountTag(_itemsites.itemsite_id, pComments,
pPriority, pFreeze, pLocationid);
IF (_returnVal < 0) THEN
RETURN _returnVal;
END IF;
END LOOP;
ELSE
FOR _itemsites IN SELECT itemsite_id, itemsite_warehous_id, SUM(itemloc_qty)
FROM itemsite, itemloc
WHERE ( (itemsite_active)
AND (itemsite_cyclecountfreq > 0)
AND ((COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq) < CURRENT_DATE)
AND ((NOT pIgnoreZeroBalance) OR (itemsite_qtyonhand <> 0))
AND (pLocationid = itemloc_location_id)
AND (itemloc_itemsite_id = itemsite_id)
AND (itemsite_warehous_id=pWarehousid) )
GROUP BY itemsite_id, itemsite_warehous_id,
itemsite_datelastcount, itemsite_cyclecountfreq,
itemsite_abcclass
ORDER BY (COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq), itemsite_abcclass
LIMIT pMaxNumber LOOP
_returnVal := createCountTag(_itemsites.itemsite_id, pComments,
pPriority, pFreeze, pLocationid);
IF (_returnVal < 0) THEN
RETURN _returnVal;
END IF;
END LOOP;
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.createcyclecountsbywarehouse(integer, integer, text, boolean, boolean, integer, boolean) OWNER TO admin;
--
-- Name: createcyclecountsbywarehousebyclasscode(integer, integer, integer, text, boolean, boolean, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createcyclecountsbywarehousebyclasscode(integer, integer, integer, text, boolean, boolean, integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWarehousid ALIAS FOR $1;
pClasscodeid ALIAS FOR $2;
pMaxNumber ALIAS FOR $3;
pComments ALIAS FOR $4;
pPriority ALIAS FOR $5;
pFreeze ALIAS FOR $6;
pLocationid ALIAS FOR $7;
pIgnoreZeroBalance ALIAS FOR $8;
_itemsites RECORD;
_returnVal INTEGER;
BEGIN
IF (pLocationid IS NULL) THEN
FOR _itemsites IN SELECT itemsite_id, itemsite_warehous_id, itemsite_qtyonhand
FROM itemsite, item
WHERE ( (itemsite_active)
AND (itemsite_item_id=item_id)
AND (itemsite_cyclecountfreq > 0)
AND ((COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq) < CURRENT_DATE)
AND (itemsite_id NOT IN ( SELECT invcnt_itemsite_id
FROM invcnt, itemsite
WHERE ( (invcnt_itemsite_id=itemsite_id)
AND (itemsite_warehous_id=pWarehousid)
AND (invcnt_location_id IS NULL)
AND (NOT invcnt_posted) ) ) )
AND ((NOT pIgnoreZeroBalance) OR (itemsite_qtyonhand <> 0))
AND ((pLocationid IS NULL) OR (validLocation(pLocationid, itemsite_id)))
AND (itemsite_warehous_id=pWarehousid)
AND (item_classcode_id=pClasscodeid) )
ORDER BY (COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq), itemsite_abcclass, item_number
LIMIT pMaxNumber LOOP
_returnVal := createCountTag(_itemsites.itemsite_id, pComments,
pPriority, pFreeze, pLocationid);
IF (_returnVal < 0) THEN
RETURN _returnVal;
END IF;
END LOOP;
ELSE
FOR _itemsites IN SELECT itemsite_id, itemsite_warehous_id, SUM(itemloc_qty)
FROM itemsite, item, itemloc
WHERE ( (itemsite_active)
AND (itemsite_item_id=item_id)
AND (itemsite_cyclecountfreq > 0)
AND ((COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq) < CURRENT_DATE)
AND ((NOT pIgnoreZeroBalance) OR (itemsite_qtyonhand <> 0))
AND (pLocationid = itemloc_location_id)
AND (itemloc_itemsite_id = itemsite_id)
AND (itemsite_warehous_id=pWarehousid)
AND (item_classcode_id=pClasscodeid) )
GROUP BY itemsite_id, itemsite_warehous_id,
itemsite_datelastcount, itemsite_cyclecountfreq,
itemsite_abcclass
ORDER BY (COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq), itemsite_abcclass
LIMIT pMaxNumber LOOP
_returnVal := createCountTag(_itemsites.itemsite_id, pComments,
pPriority, pFreeze, pLocationid);
IF (_returnVal < 0) THEN
RETURN _returnVal;
END IF;
END LOOP;
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.createcyclecountsbywarehousebyclasscode(integer, integer, integer, text, boolean, boolean, integer, boolean) OWNER TO admin;
--
-- Name: createcyclecountsbywarehousebyclasscode(integer, text, integer, text, boolean, boolean, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createcyclecountsbywarehousebyclasscode(integer, text, integer, text, boolean, boolean, integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWarehousid ALIAS FOR $1;
pClasscodePattern ALIAS FOR $2;
pMaxNumber ALIAS FOR $3;
pComments ALIAS FOR $4;
pPriority ALIAS FOR $5;
pFreeze ALIAS FOR $6;
pLocationid ALIAS FOR $7;
pIgnoreZeroBalance ALIAS FOR $8;
_itemsites RECORD;
_returnVal INTEGER;
BEGIN
IF (pLocationid IS NULL) THEN
FOR _itemsites IN SELECT itemsite_id, itemsite_warehous_id, itemsite_qtyonhand
FROM itemsite, item, classcode
WHERE ( (itemsite_active)
AND (itemsite_item_id=item_id)
AND (item_classcode_id=classcode_id)
AND (itemsite_cyclecountfreq > 0)
AND ((COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq) < CURRENT_DATE)
AND (itemsite_id NOT IN ( SELECT invcnt_itemsite_id
FROM invcnt, itemsite
WHERE ( (invcnt_itemsite_id=itemsite_id)
AND (itemsite_warehous_id=pWarehousid)
AND (invcnt_location_id IS NULL)
AND (NOT invcnt_posted) ) ) )
AND ((NOT pIgnoreZeroBalance) OR (itemsite_qtyonhand <> 0))
AND ((pLocationid IS NULL) OR (validLocation(pLocationid, itemsite_id)))
AND (itemsite_warehous_id=pWarehousid)
AND (classcode_code ~ pClasscodePattern) )
ORDER BY (COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq), itemsite_abcclass, item_number
LIMIT pMaxNumber LOOP
_returnVal := createCountTag(_itemsites.itemsite_id, pComments,
pPriority, pFreeze, pLocationid);
IF (_returnVal < 0) THEN
RETURN _returnVal;
END IF;
END LOOP;
ELSE
FOR _itemsites IN SELECT itemsite_id, itemsite_warehous_id, SUM(itemloc_qty)
FROM itemsite, item, classcode, itemloc
WHERE ( (itemsite_active)
AND (itemsite_item_id=item_id)
AND (item_classcode_id=classcode_id)
AND (itemsite_cyclecountfreq > 0)
AND ((COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq) < CURRENT_DATE)
AND ((NOT pIgnoreZeroBalance) OR (itemsite_qtyonhand <> 0))
AND (pLocationid = itemloc_location_id)
AND (itemloc_itemsite_id = itemsite_id)
AND (itemsite_warehous_id=pWarehousid)
AND (classcode_code ~ pClasscodePattern) )
GROUP BY itemsite_id, itemsite_warehous_id,
itemsite_datelastcount, itemsite_cyclecountfreq,
itemsite_abcclass
ORDER BY (COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq), itemsite_abcclass
LIMIT pMaxNumber LOOP
_returnVal := createCountTag(_itemsites.itemsite_id, pComments,
pPriority, pFreeze, pLocationid);
IF (_returnVal < 0) THEN
RETURN _returnVal;
END IF;
END LOOP;
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.createcyclecountsbywarehousebyclasscode(integer, text, integer, text, boolean, boolean, integer, boolean) OWNER TO admin;
--
-- Name: createcyclecountsbywarehousebyplannercode(integer, text, integer, text, boolean, boolean, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createcyclecountsbywarehousebyplannercode(integer, text, integer, text, boolean, boolean, integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWarehousid ALIAS FOR $1;
pPlancodePattern ALIAS FOR $2;
pMaxNumber ALIAS FOR $3;
pComments ALIAS FOR $4;
pPriority ALIAS FOR $5;
pFreeze ALIAS FOR $6;
pLocationid ALIAS FOR $7;
pIgnoreZeroBalance ALIAS FOR $8;
_itemsites RECORD;
_returnVal INTEGER;
BEGIN
IF (pLocationid IS NULL) THEN
FOR _itemsites IN SELECT itemsite_id, itemsite_warehous_id, itemsite_qtyonhand
FROM itemsite, item, plancode
WHERE ( (itemsite_active)
AND (itemsite_item_id=item_id)
AND (itemsite_plancode_id=plancode_id)
AND (itemsite_cyclecountfreq > 0)
AND ((COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq) < CURRENT_DATE)
AND (itemsite_id NOT IN ( SELECT invcnt_itemsite_id
FROM invcnt, itemsite
WHERE ( (invcnt_itemsite_id=itemsite_id)
AND (itemsite_warehous_id=pWarehousid)
AND (invcnt_location_id IS NULL)
AND (NOT invcnt_posted) ) ) )
AND ((NOT pIgnoreZeroBalance) OR (itemsite_qtyonhand <> 0))
AND ((pLocationid IS NULL) OR (validLocation(pLocationid, itemsite_id)))
AND (itemsite_warehous_id=pWarehousid)
AND (plancode_code ~ pPlancodePattern) )
ORDER BY (COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq), itemsite_abcclass, item_number
LIMIT pMaxNumber LOOP
_returnVal := createCountTag(_itemsites.itemsite_id, pComments,
pPriority, pFreeze, pLocationid);
IF (_returnVal < 0) THEN
RETURN _returnVal;
END IF;
END LOOP;
ELSE
FOR _itemsites IN SELECT itemsite_id, itemsite_warehous_id, SUM(itemloc_qty)
FROM itemsite, plancode, itemloc
WHERE ( (itemsite_active)
AND (itemsite_plancode_id=plancode_id)
AND (itemsite_cyclecountfreq > 0)
AND ((COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq) < CURRENT_DATE)
AND ((NOT pIgnoreZeroBalance) OR (itemsite_qtyonhand <> 0))
AND (pLocationid = itemloc_location_id)
AND (itemloc_itemsite_id = itemsite_id)
AND (itemsite_warehous_id=pWarehousid)
AND (plancode_code ~ pPlancodePattern) )
GROUP BY itemsite_id, itemsite_warehous_id,
itemsite_datelastcount, itemsite_cyclecountfreq,
itemsite_abcclass
ORDER BY (COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq), itemsite_abcclass
LIMIT pMaxNumber LOOP
_returnVal := createCountTag(_itemsites.itemsite_id, pComments,
pPriority, pFreeze, pLocationid);
IF (_returnVal < 0) THEN
RETURN _returnVal;
END IF;
END LOOP;
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.createcyclecountsbywarehousebyplannercode(integer, text, integer, text, boolean, boolean, integer, boolean) OWNER TO admin;
--
-- Name: createcyclecountsbywarehousebyplannercode(integer, integer, integer, text, boolean, boolean, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createcyclecountsbywarehousebyplannercode(integer, integer, integer, text, boolean, boolean, integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWarehousid ALIAS FOR $1;
pPlancodeid ALIAS FOR $2;
pMaxNumber ALIAS FOR $3;
pComments ALIAS FOR $4;
pPriority ALIAS FOR $5;
pFreeze ALIAS FOR $6;
pLocationid ALIAS FOR $7;
pIgnoreZeroBalance ALIAS FOR $8;
_itemsites RECORD;
_returnVal INTEGER;
BEGIN
IF (pLocationid IS NULL) THEN
FOR _itemsites IN SELECT itemsite_id, itemsite_warehous_id, itemsite_qtyonhand
FROM itemsite, item
WHERE ( (itemsite_active)
AND (itemsite_item_id=item_id)
AND (itemsite_cyclecountfreq > 0)
AND ((COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq) < CURRENT_DATE)
AND (itemsite_id NOT IN ( SELECT invcnt_itemsite_id
FROM invcnt, itemsite
WHERE ( (invcnt_itemsite_id=itemsite_id)
AND (itemsite_warehous_id=pWarehousid)
AND (invcnt_location_id IS NULL)
AND (NOT invcnt_posted) ) ) )
AND ((NOT pIgnoreZeroBalance) OR (itemsite_qtyonhand <> 0))
AND ((pLocationid IS NULL) OR (validLocation(pLocationid, itemsite_id)))
AND (itemsite_warehous_id=pWarehousid)
AND (itemsite_plancode_id=pPlancodeid) )
ORDER BY (COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq), itemsite_abcclass, item_number
LIMIT pMaxNumber LOOP
_returnVal := createCountTag(_itemsites.itemsite_id, pComments,
pPriority, pFreeze, pLocationid);
IF (_returnVal < 0) THEN
RETURN _returnVal;
END IF;
END LOOP;
ELSE
FOR _itemsites IN SELECT itemsite_id, itemsite_warehous_id, SUM(itemloc_qty)
FROM itemsite, itemloc
WHERE ( (itemsite_active)
AND (itemsite_cyclecountfreq > 0)
AND ((COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq) < CURRENT_DATE)
AND ((NOT pIgnoreZeroBalance) OR (itemsite_qtyonhand <> 0))
AND (itemloc_itemsite_id = itemsite_id)
AND (itemsite_warehous_id=pWarehousid)
AND (pLocationid = itemloc_location_id)
AND (itemsite_plancode_id=pPlancodeid) )
GROUP BY itemsite_id, itemsite_warehous_id,
itemsite_datelastcount, itemsite_cyclecountfreq,
itemsite_abcclass
ORDER BY (COALESCE(itemsite_datelastcount, startOfTime()) + itemsite_cyclecountfreq), itemsite_abcclass
LIMIT pMaxNumber LOOP
_returnVal := createCountTag(_itemsites.itemsite_id, pComments,
pPriority, pFreeze, pLocationid);
IF (_returnVal < 0) THEN
RETURN _returnVal;
END IF;
END LOOP;
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.createcyclecountsbywarehousebyplannercode(integer, integer, integer, text, boolean, boolean, integer, boolean) OWNER TO admin;
--
-- Name: createfile(text, text, bytea); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createfile(text, text, bytea) RETURNS integer
LANGUAGE plpgsql
AS $_$
declare
pTitle ALIAS FOR $1;
pDescription ALIAS FOR $2;
pStream ALIAS FOR $3;
_id integer;
begin
_id := nextval('file_file_id_seq');
insert into file (file_id, file_title, file_descrip, file_stream) values (_id, pTitle, pDescription, pStream);
return _id;
end;
$_$;
ALTER FUNCTION public.createfile(text, text, bytea) OWNER TO admin;
--
-- Name: createinvoice(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createinvoice(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCobmiscid ALIAS FOR $1;
_invcheadid INTEGER;
_invcitemid INTEGER;
_qtyToInvoice NUMERIC;
_r RECORD;
_s RECORD;
_lastlinenumber INTEGER := 1;
BEGIN
IF ( ( SELECT cobmisc_posted
FROM cobmisc
WHERE (cobmisc_id=pCobmiscid) ) ) THEN
RETURN -1;
END IF;
SELECT NEXTVAL('invchead_invchead_id_seq') INTO _invcheadid;
-- Give this selection a number if it has not been assigned one
UPDATE cobmisc
SET cobmisc_invcnumber=fetchInvcNumber()
WHERE ( (cobmisc_invcnumber IS NULL)
AND (cobmisc_id=pCobmiscid) );
-- Create the Invoice header
INSERT INTO invchead
(
invchead_id,invchead_cust_id,invchead_shipto_id,invchead_ordernumber,invchead_orderdate,
invchead_posted,invchead_printed,invchead_invcnumber,invchead_invcdate,invchead_shipdate,
invchead_ponumber,invchead_shipvia,invchead_fob,invchead_billto_name,invchead_billto_address1,
invchead_billto_address2,invchead_billto_address3,invchead_billto_city,invchead_billto_state,invchead_billto_zipcode,
invchead_billto_phone,invchead_billto_country,invchead_shipto_name,invchead_shipto_address1,invchead_shipto_address2,
invchead_shipto_address3,invchead_shipto_city,invchead_shipto_state,invchead_shipto_zipcode,invchead_shipto_phone,
invchead_shipto_country,invchead_salesrep_id,invchead_commission,invchead_terms_id,invchead_freight,
invchead_misc_amount,invchead_misc_descrip,invchead_misc_accnt_id,invchead_payment,
invchead_paymentref,invchead_notes,invchead_prj_id,invchead_curr_id,
invchead_taxzone_id, invchead_shipchrg_id,
invchead_saletype_id, invchead_shipzone_id
)
SELECT
_invcheadid,cohead_cust_id,cohead_shipto_id,cohead_number,cohead_orderdate,
FALSE,FALSE,cobmisc_invcnumber,cobmisc_invcdate,cobmisc_shipdate,
cohead_custponumber,cobmisc_shipvia,cohead_fob,cohead_billtoname,cohead_billtoaddress1,
cohead_billtoaddress2,cohead_billtoaddress3,cohead_billtocity,cohead_billtostate,cohead_billtozipcode,
cntct_phone AS cust_phone,cohead_billtocountry,cohead_shiptoname,cohead_shiptoaddress1,cohead_shiptoaddress2,
cohead_shiptoaddress3,cohead_shiptocity,cohead_shiptostate,cohead_shiptozipcode,cohead_shipto_cntct_phone,
cohead_shiptocountry,cohead_salesrep_id,COALESCE(cohead_commission,0),cohead_terms_id,cobmisc_freight,
COALESCE(cobmisc_misc, 0.00),cobmisc_misc_descrip,cobmisc_misc_accnt_id,cobmisc_payment,
cobmisc_paymentref,cobmisc_notes,cohead_prj_id,cobmisc_curr_id,
cobmisc_taxzone_id, cohead_shipchrg_id,
cohead_saletype_id, cohead_shipzone_id
FROM cobmisc, cohead, custinfo
LEFT OUTER JOIN cntct ON (cust_cntct_id=cntct_id)
WHERE ( (cobmisc_cohead_id=cohead_id)
AND (cohead_cust_id=cust_id)
AND (cobmisc_id=pCobmiscid) );
INSERT INTO invcheadtax(taxhist_parent_id, taxhist_taxtype_id, taxhist_tax_id, taxhist_basis,
taxhist_basis_tax_id, taxhist_sequence, taxhist_percent, taxhist_amount, taxhist_tax, taxhist_docdate)
SELECT _invcheadid,taxhist_taxtype_id, taxhist_tax_id, taxhist_basis,
taxhist_basis_tax_id, taxhist_sequence, taxhist_percent, taxhist_amount, taxhist_tax, taxhist_docdate
FROM cobmisctax
WHERE taxhist_parent_id = pCobmiscid
AND taxhist_taxtype_id = getadjustmenttaxtypeid();
-- Create the Invoice items
FOR _r IN SELECT coitem_id, coitem_linenumber, coitem_subnumber, coitem_custpn,
coitem_qtyord, cobill_qty,
coitem_qty_uom_id, coitem_qty_invuomratio,
coitem_custprice, coitem_price,
coitem_price_uom_id, coitem_price_invuomratio,
coitem_memo, coitem_rev_accnt_id,
itemsite_item_id, itemsite_warehous_id,
cobill_taxtype_id,
formatSoItemNumber(coitem_id) AS ordnumber
FROM coitem, cobill, itemsite
WHERE ( (cobill_coitem_id=coitem_id)
AND (coitem_itemsite_id=itemsite_id)
AND (cobill_cobmisc_id=pCobmiscid) )
ORDER BY coitem_linenumber, coitem_subnumber LOOP
SELECT NEXTVAL('invcitem_invcitem_id_seq') INTO _invcitemid;
INSERT INTO invcitem
( invcitem_id, invcitem_invchead_id,
invcitem_linenumber, invcitem_item_id, invcitem_warehous_id,
invcitem_custpn, invcitem_number, invcitem_descrip,
invcitem_ordered, invcitem_billed,
invcitem_qty_uom_id, invcitem_qty_invuomratio,
invcitem_custprice, invcitem_price,
invcitem_price_uom_id, invcitem_price_invuomratio,
invcitem_notes, invcitem_taxtype_id,
invcitem_coitem_id, invcitem_rev_accnt_id )
VALUES
( _invcitemid, _invcheadid,
_lastlinenumber,
_r.itemsite_item_id, _r.itemsite_warehous_id,
_r.coitem_custpn, '', '',
_r.coitem_qtyord, _r.cobill_qty,
_r.coitem_qty_uom_id, _r.coitem_qty_invuomratio,
_r.coitem_custprice, _r.coitem_price,
_r.coitem_price_uom_id, _r.coitem_price_invuomratio,
_r.coitem_memo, _r.cobill_taxtype_id,
_r.coitem_id, _r.coitem_rev_accnt_id );
-- Find and mark any Lot/Serial invdetail records associated with this bill
UPDATE invdetail SET invdetail_invcitem_id = _invcitemid
WHERE (invdetail_id IN (SELECT invdetail_id
FROM invhist JOIN invdetail ON (invdetail_invhist_id=invhist_id)
WHERE ( (invhist_ordnumber = _r.ordnumber)
AND (invhist_ordtype = 'SO')
AND (invhist_transtype = 'SH')
AND (invdetail_invcitem_id IS NULL) ) ));
-- Mark any shipped, uninvoiced shipitems for the current coitem as invoiced
_qtyToInvoice := _r.cobill_qty;
FOR _s IN SELECT shipitem.*, shipitem_qty = _r.cobill_qty AS matched
FROM shipitem, shiphead
WHERE ((shipitem_shiphead_id=shiphead_id)
AND (shipitem_orderitem_id=_r.coitem_id)
AND (shiphead_shipped)
AND (shiphead_order_type='SO')
AND (NOT shipitem_invoiced))
ORDER BY matched DESC, shipitem_qty DESC FOR UPDATE LOOP
IF (_qtyToInvoice >= _s.shipitem_qty) THEN
UPDATE shipitem
SET shipitem_invoiced=TRUE, shipitem_invcitem_id=_invcitemid
WHERE (shipitem_id=_s.shipitem_id);
_qtyToInvoice := _qtyToInvoice - _s.shipitem_qty;
END IF;
IF (_qtyToInvoice <= 0) THEN
EXIT;
END IF;
END LOOP;
UPDATE cobill SET cobill_invcnum=cobmisc_invcnumber,
cobill_invcitem_id=invcitem_id
FROM invcitem, coitem, cobmisc
WHERE ((invcitem_linenumber=_lastlinenumber)
AND (coitem_id=cobill_coitem_id)
AND (cobmisc_id=cobill_cobmisc_id)
AND (cobill_cobmisc_id=pCobmiscid)
AND (invcitem_invchead_id=_invcheadid));
_lastlinenumber := _lastlinenumber + 1;
END LOOP;
-- Close all requested coitem's
IF ( ( SELECT cobmisc_closeorder
FROM cobmisc
WHERE (cobmisc_id=pCobmiscid) ) ) THEN
UPDATE coitem
SET coitem_status='C'
FROM cobmisc
WHERE ( (coitem_status NOT IN ('C', 'X'))
AND (coitem_cohead_id=cobmisc_cohead_id)
AND (cobmisc_id=pCobmiscid) );
ELSE
UPDATE coitem
SET coitem_status='C'
FROM cobill
WHERE ( (cobill_coitem_id=coitem_id)
AND (coitem_status <> 'X')
AND (cobill_toclose)
AND (cobill_cobmisc_id=pCobmiscid) );
END IF;
-- Mark the cobmisc as posted
UPDATE cobmisc
SET cobmisc_posted=TRUE, cobmisc_invchead_id=_invcheadid
WHERE (cobmisc_id=pCobmiscid);
-- All done
RETURN _invcheadid;
END;
$_$;
ALTER FUNCTION public.createinvoice(integer) OWNER TO admin;
--
-- Name: createinvoiceconsolidated(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createinvoiceconsolidated(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustid ALIAS FOR $1;
_invcheadid INTEGER;
_invcitemid INTEGER;
_qtyToInvoice NUMERIC;
_r RECORD;
_s RECORD;
_c RECORD;
_i RECORD;
_count INTEGER;
_invcnumber INTEGER;
_lastlinenumber INTEGER;
BEGIN
_count := 0;
FOR _c IN SELECT min(cobmisc_id) AS cobmisc_id, count(*) AS cnt,
-- there are the key values for consolidation
cohead_billtoname, cohead_billtoaddress1,
cohead_billtoaddress2, cohead_billtoaddress3,
cohead_billtocity, cohead_billtostate,
cohead_billtozipcode, cntct_phone AS cust_phone,
cohead_billtocountry,
cohead_salesrep_id, cohead_commission,
cohead_terms_id,
cobmisc_misc_accnt_id,
cohead_prj_id, cobmisc_curr_id,
cobmisc_taxzone_id,
cohead_shipchrg_id,
cohead_saletype_id,
cohead_shipzone_id,
-- the following are consolidated values to use in creating the header
MIN(cohead_number) AS cohead_number,
MIN(cohead_orderdate) AS cohead_orderdate,
MIN(cobmisc_invcdate) AS cobmisc_invcdate,
MIN(cobmisc_shipdate) AS cobmisc_shipdate,
SUM(cobmisc_freight) AS cobmisc_freight,
SUM(cobmisc_misc) AS cobmisc_misc,
SUM(cobmisc_payment) AS cobmisc_payment
FROM cobmisc
JOIN cohead ON (cobmisc_cohead_id=cohead_id)
JOIN custinfo ON (cohead_cust_id=cust_id)
LEFT OUTER JOIN cntct ON (cust_cntct_id=cntct_id)
WHERE(NOT cobmisc_posted
AND (cohead_cust_id=pCustid)
)
GROUP BY cohead_billtoname, cohead_billtoaddress1,
cohead_billtoaddress2, cohead_billtoaddress3,
cohead_billtocity, cohead_billtostate,
cohead_billtozipcode, cust_phone,
cohead_billtocountry,
cohead_salesrep_id, cohead_commission,
cohead_terms_id,
cobmisc_misc_accnt_id,
cohead_prj_id, cobmisc_curr_id,
cobmisc_taxzone_id,
cohead_shipchrg_id,
cohead_saletype_id,
cohead_shipzone_id
LOOP
IF(_c.cnt = 1) THEN
PERFORM createInvoice(_c.cobmisc_id);
_count := (_count + 1);
ELSE
SELECT NEXTVAL('invchead_invchead_id_seq'), fetchInvcNumber() INTO _invcheadid, _invcnumber;
-- Create the Invoice header
INSERT INTO invchead
( invchead_id, invchead_cust_id, invchead_shipto_id,
invchead_ordernumber, invchead_orderdate,
invchead_posted, invchead_printed,
invchead_invcnumber, invchead_invcdate, invchead_shipdate,
invchead_ponumber, invchead_shipvia, invchead_fob,
invchead_billto_name, invchead_billto_address1,
invchead_billto_address2, invchead_billto_address3,
invchead_billto_city, invchead_billto_state,
invchead_billto_zipcode, invchead_billto_phone,
invchead_billto_country,
invchead_shipto_name, invchead_shipto_address1,
invchead_shipto_address2, invchead_shipto_address3,
invchead_shipto_city, invchead_shipto_state,
invchead_shipto_zipcode, invchead_shipto_phone,
invchead_shipto_country,
invchead_salesrep_id, invchead_commission,
invchead_terms_id,
invchead_freight,
invchead_misc_amount, invchead_misc_descrip, invchead_misc_accnt_id,
invchead_payment, invchead_paymentref,
invchead_notes, invchead_prj_id, invchead_curr_id,
invchead_taxzone_id,
invchead_shipchrg_id,
invchead_saletype_id, invchead_shipzone_id )
VALUES(_invcheadid,
pCustid, -1,
NULL, _c.cohead_orderdate,
FALSE, FALSE,
_invcnumber, _c.cobmisc_invcdate, _c.cobmisc_shipdate,
'MULTIPLE', '', '',
_c.cohead_billtoname, _c.cohead_billtoaddress1,
_c.cohead_billtoaddress2, _c.cohead_billtoaddress3,
_c.cohead_billtocity, _c.cohead_billtostate,
_c.cohead_billtozipcode, _c.cust_phone,
_c.cohead_billtocountry,
'', '', '', '', '', '', '', '', '',
_c.cohead_salesrep_id, COALESCE(_c.cohead_commission, 0),
_c.cohead_terms_id,
_c.cobmisc_freight,
_c.cobmisc_misc, CASE WHEN(_c.cobmisc_misc <> 0) THEN 'Multiple' ELSE '' END,
_c.cobmisc_misc_accnt_id,
_c.cobmisc_payment, '',
'Multiple Sales Order # Invoice', _c.cohead_prj_id, _c.cobmisc_curr_id,
_c.cobmisc_taxzone_id,
_c.cohead_shipchrg_id,
_c.cohead_saletype_id, _c.cohead_shipzone_id
);
_lastlinenumber := 1;
FOR _i IN SELECT cobmisc_id
FROM cobmisc
JOIN cohead ON (cobmisc_cohead_id=cohead_id)
JOIN custinfo ON (cohead_cust_id=cust_id)
LEFT OUTER JOIN cntct ON (cust_cntct_id=cntct_id)
WHERE(NOT cobmisc_posted
AND (cohead_cust_id=pCustid)
AND (COALESCE(cohead_billtoname,'') = COALESCE(_c.cohead_billtoname,''))
AND (COALESCE(cohead_billtoaddress1,'') = COALESCE(_c.cohead_billtoaddress1,''))
AND (COALESCE(cohead_billtoaddress2,'') = COALESCE(_c.cohead_billtoaddress2,''))
AND (COALESCE(cohead_billtoaddress3,'') = COALESCE(_c.cohead_billtoaddress3,''))
AND (COALESCE(cohead_billtocity,'') = COALESCE(_c.cohead_billtocity,''))
AND (COALESCE(cohead_billtostate,'') = COALESCE(_c.cohead_billtostate,''))
AND (COALESCE(cohead_billtozipcode,'') = COALESCE(_c.cohead_billtozipcode,''))
AND (COALESCE(cntct_phone,'') = COALESCE(_c.cust_phone,''))
AND (COALESCE(cohead_billtocountry,'') = COALESCE(_c.cohead_billtocountry,''))
AND (COALESCE(cohead_salesrep_id, 0) = COALESCE(_c.cohead_salesrep_id, 0))
AND (COALESCE(cohead_commission, 0) = COALESCE(_c.cohead_commission, 0))
AND (COALESCE(cohead_terms_id, 0) = COALESCE(_c.cohead_terms_id, 0))
AND (COALESCE(cobmisc_misc_accnt_id, 0) = COALESCE(_c.cobmisc_misc_accnt_id, 0))
AND (COALESCE(cohead_prj_id, 0) = COALESCE(_c.cohead_prj_id, 0))
AND (COALESCE(cobmisc_curr_id, 0) = COALESCE(_c.cobmisc_curr_id, 0))
AND (COALESCE(cobmisc_taxzone_id, 0) = COALESCE(_c.cobmisc_taxzone_id, 0))
AND (COALESCE(cohead_saletype_id, 0) = COALESCE(_c.cohead_saletype_id, 0))
AND (COALESCE(cohead_shipzone_id, 0) = COALESCE(_c.cohead_shipzone_id, 0))
) LOOP
-- Create the Invoice Head tax
INSERT INTO invcheadtax(taxhist_parent_id, taxhist_taxtype_id, taxhist_tax_id, taxhist_basis,
taxhist_basis_tax_id, taxhist_sequence, taxhist_percent, taxhist_amount, taxhist_tax, taxhist_docdate)
SELECT _invcheadid,taxhist_taxtype_id, taxhist_tax_id, taxhist_basis,
taxhist_basis_tax_id, taxhist_sequence, taxhist_percent, taxhist_amount, taxhist_tax, taxhist_docdate
FROM cobmisctax
WHERE taxhist_parent_id = _i.cobmisc_id
AND taxhist_taxtype_id = getadjustmenttaxtypeid();
-- Give this selection a number if it has not been assigned one
UPDATE cobmisc
SET cobmisc_invcnumber=_invcnumber
WHERE(cobmisc_id=_i.cobmisc_id);
-- Create the Invoice items
FOR _r IN SELECT coitem_id, coitem_linenumber, coitem_subnumber, coitem_custpn,
coitem_qtyord, cobill_qty,
coitem_qty_uom_id, coitem_qty_invuomratio,
coitem_custprice, coitem_price,
coitem_price_uom_id, coitem_price_invuomratio,
coitem_memo,
itemsite_item_id, itemsite_warehous_id,
cobill_taxtype_id
FROM cohead, coitem, cobill, itemsite
WHERE((cobill_coitem_id=coitem_id)
AND (cohead_id=coitem_cohead_id)
AND (coitem_itemsite_id=itemsite_id)
AND (cobill_cobmisc_id=_i.cobmisc_id) )
ORDER BY cohead_number, coitem_linenumber, coitem_subnumber LOOP
SELECT NEXTVAL('invcitem_invcitem_id_seq') INTO _invcitemid;
INSERT INTO invcitem
( invcitem_id, invcitem_invchead_id,
invcitem_linenumber, invcitem_item_id, invcitem_warehous_id,
invcitem_custpn, invcitem_number, invcitem_descrip,
invcitem_ordered, invcitem_billed,
invcitem_qty_uom_id, invcitem_qty_invuomratio,
invcitem_custprice, invcitem_price,
invcitem_price_uom_id, invcitem_price_invuomratio,
invcitem_notes,
invcitem_taxtype_id,
invcitem_coitem_id )
VALUES
( _invcitemid, _invcheadid,
_lastlinenumber,
_r.itemsite_item_id, _r.itemsite_warehous_id,
_r.coitem_custpn, '', '',
_r.coitem_qtyord, _r.cobill_qty,
_r.coitem_qty_uom_id, _r.coitem_qty_invuomratio,
_r.coitem_custprice, _r.coitem_price,
_r.coitem_price_uom_id, _r.coitem_price_invuomratio,
_r.coitem_memo,
_r.cobill_taxtype_id,
_r.coitem_id );
-- Find and mark any Lot/Serial invdetail records associated with this bill
UPDATE invdetail SET invdetail_invcitem_id = _invcitemid
WHERE (invdetail_id IN (SELECT invdetail_id
FROM coitem, cohead, invhist, invdetail
WHERE ((coitem_cohead_id=cohead_id)
AND (invdetail_invhist_id=invhist_id)
AND (invhist_ordnumber = text(cohead_number||'-'||formatSoLineNumber(coitem_id)))
AND (invdetail_invcitem_id IS NULL)
AND (coitem_id=_r.coitem_id)) ) );
-- Mark any shipped, uninvoiced shipitems for the current coitem as invoiced
_qtyToInvoice := _r.cobill_qty;
FOR _s IN SELECT shipitem.*, shipitem_qty = _r.cobill_qty AS matched
FROM shipitem, shiphead
WHERE ((shipitem_shiphead_id=shiphead_id)
AND (shipitem_orderitem_id=_r.coitem_id)
AND (shiphead_shipped)
AND (shiphead_order_type='SO')
AND (NOT shipitem_invoiced))
ORDER BY matched DESC, shipitem_qty DESC FOR UPDATE LOOP
IF (_qtyToInvoice >= _s.shipitem_qty) THEN
UPDATE shipitem
SET shipitem_invoiced=TRUE, shipitem_invcitem_id=_invcitemid
WHERE (shipitem_id=_s.shipitem_id);
_qtyToInvoice := _qtyToInvoice - _s.shipitem_qty;
END IF;
IF (_qtyToInvoice <= 0) THEN
EXIT;
END IF;
END LOOP;
UPDATE cobill SET cobill_invcnum=cobmisc_invcnumber,
cobill_invcitem_id=invcitem_id
FROM invcitem, coitem, cobmisc
WHERE ((invcitem_linenumber=_lastlinenumber )
AND (coitem_id=cobill_coitem_id)
AND (cobmisc_id=cobill_cobmisc_id)
AND (cobill_cobmisc_id=_i.cobmisc_id)
AND (invcitem_invchead_id=_invcheadid));
_lastlinenumber := _lastlinenumber + 1;
END LOOP;
-- Close all requested coitem's
IF ( ( SELECT cobmisc_closeorder
FROM cobmisc
WHERE (cobmisc_id=_i.cobmisc_id) ) ) THEN
UPDATE coitem
SET coitem_status='C'
FROM cobmisc
WHERE ( (coitem_status NOT IN ('C', 'X'))
AND (coitem_cohead_id=cobmisc_cohead_id)
AND (cobmisc_id=_i.cobmisc_id) );
ELSE
UPDATE coitem
SET coitem_status='C'
FROM cobill
WHERE ( (cobill_coitem_id=coitem_id)
AND (coitem_status <> 'X')
AND (cobill_toclose)
AND (cobill_cobmisc_id=_i.cobmisc_id) );
END IF;
-- Mark the cobmisc as posted
UPDATE cobmisc
SET cobmisc_posted=TRUE, cobmisc_invchead_id=_invcheadid
WHERE (cobmisc_id=_i.cobmisc_id);
-- All done
_count := (_count + 1);
END LOOP;
END IF;
END LOOP;
RETURN _count;
END;
$_$;
ALTER FUNCTION public.createinvoiceconsolidated(integer) OWNER TO admin;
--
-- Name: createinvoices(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createinvoices() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_counter INTEGER;
_cobmisc RECORD;
BEGIN
_counter := 0;
FOR _cobmisc IN SELECT cobmisc_id
FROM cobmisc
WHERE (NOT cobmisc_posted) LOOP
PERFORM createinvoice(_cobmisc.cobmisc_id);
_counter := (_counter + 1);
END LOOP;
RETURN _counter;
END;
$$;
ALTER FUNCTION public.createinvoices() OWNER TO admin;
--
-- Name: createinvoices(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createinvoices(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN createinvoices($1, false);
END;
$_$;
ALTER FUNCTION public.createinvoices(integer) OWNER TO admin;
--
-- Name: createinvoices(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createinvoices(integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustTypeId ALIAS FOR $1;
pConsolidate ALIAS FOR $2;
_counter INTEGER;
_tcounter INTEGER;
_cobmisc RECORD;
BEGIN
_counter := 0;
IF (pConsolidate) THEN
FOR _cobmisc IN SELECT DISTINCT cust_id
FROM cobmisc, cohead, custinfo
WHERE((NOT cobmisc_posted)
AND (cohead_id=cobmisc_cohead_id)
AND (cust_id=cohead_cust_id)
AND (cust_custtype_id=pCustTypeId)) LOOP
SELECT createinvoiceConsolidated(_cobmisc.cust_id)
INTO _tcounter;
_counter := (_counter + _tcounter);
END LOOP;
ELSE
FOR _cobmisc IN SELECT cobmisc_id
FROM cobmisc, cohead, custinfo
WHERE((NOT cobmisc_posted)
AND (cohead_id=cobmisc_cohead_id)
AND (cust_id=cohead_cust_id)
AND (cust_custtype_id=pCustTypeId)) LOOP
PERFORM createinvoice(_cobmisc.cobmisc_id);
_counter := (_counter + 1);
END LOOP;
END IF;
RETURN _counter;
END;
$_$;
ALTER FUNCTION public.createinvoices(integer, boolean) OWNER TO admin;
--
-- Name: createmiscapcheck(integer, integer, date, numeric, integer, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createmiscapcheck(integer, integer, date, numeric, integer, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'createMiscAPCheck() is deprecated - use createCheck() instead';
RETURN createCheck($1, 'V', $2, $3, $4, baseCurrId(), $5, NULL, $6, $7, FALSE);
END;
$_$;
ALTER FUNCTION public.createmiscapcheck(integer, integer, date, numeric, integer, text, text) OWNER TO admin;
--
-- Name: createmiscapcheck(integer, integer, date, numeric, integer, integer, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createmiscapcheck(integer, integer, date, numeric, integer, integer, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'createMiscAPCheck() is deprecated - use createCheck() instead';
RETURN createCheck($1, 'V', $2, $3, pAmount, $5, $6, NULL, $7, $8, FALSE);
END;
$_$;
ALTER FUNCTION public.createmiscapcheck(integer, integer, date, numeric, integer, integer, text, text) OWNER TO admin;
--
-- Name: createpkgschema(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createpkgschema(text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pname ALIAS FOR $1;
pcomment ALIAS FOR $2;
_createtable TEXT;
_debug BOOL := true;
_namespaceoid INTEGER := -1;
_tabs TEXT[] := ARRAY['cmd', 'cmdarg', 'image', 'metasql',
'priv', 'report', 'script', 'uiform'] ;
_pkgtab TEXT;
BEGIN
IF (LENGTH(COALESCE(pname, '')) <= 0) THEN
RAISE EXCEPTION 'Cannot create a schema for this package without a name.';
END IF;
SELECT oid INTO _namespaceoid
FROM pg_namespace
WHERE (LOWER(nspname)=LOWER(pname));
IF (NOT FOUND) THEN
EXECUTE 'CREATE SCHEMA ' || LOWER(pname);
EXECUTE 'GRANT ALL ON SCHEMA ' || LOWER(pname) || ' TO GROUP xtrole;';
SELECT oid INTO _namespaceoid
FROM pg_namespace
WHERE (LOWER(nspname)=LOWER(pname));
END IF;
FOR i IN ARRAY_LOWER(_tabs,1)..ARRAY_UPPER(_tabs,1) LOOP
_pkgtab := pname || '.pkg' || _tabs[i];
IF NOT EXISTS(SELECT oid
FROM pg_class
WHERE ((relname=_pkgtab)
AND (relnamespace=_namespaceoid))) THEN
_createtable := 'CREATE TABLE ' || _pkgtab || ' () INHERITS (' || _tabs[i] || ');';
IF (_debug) THEN RAISE NOTICE '%', _createtable; END IF;
EXECUTE _createtable;
EXECUTE 'ALTER TABLE ' || _pkgtab ||
' ALTER ' || _tabs[i] || '_id SET NOT NULL,' ||
' ADD PRIMARY KEY (' || _tabs[i] || '_id),' ||
' ALTER ' || _tabs[i] || '_id SET DEFAULT NEXTVAL(''' ||
_tabs[i] || '_' || _tabs[i] || '_id_seq'');';
EXECUTE 'REVOKE ALL ON ' || _pkgtab || ' FROM PUBLIC;';
EXECUTE 'GRANT ALL ON ' || _pkgtab || ' TO GROUP xtrole;';
IF (_tabs[i] = 'cmdarg') THEN
EXECUTE 'ALTER TABLE ' || _pkgtab ||
' ADD FOREIGN KEY (cmdarg_cmd_id) REFERENCES ' ||
pname || '.pkgcmd(cmd_id);';
END IF;
EXECUTE 'SELECT dropIfExists(''TRIGGER'', ''pkg' ||
_tabs[i] || 'beforetrigger'', ''' ||
pname || ''');' ;
EXECUTE 'CREATE TRIGGER pkg' || _tabs[i] || 'beforetrigger ' ||
'BEFORE INSERT OR UPDATE OR DELETE ON ' || _pkgtab ||
' FOR EACH ROW EXECUTE PROCEDURE _pkg' || _tabs[i] || 'beforetrigger();';
EXECUTE 'SELECT dropIfExists(''TRIGGER'', ''pkg' ||
_tabs[i] || 'altertrigger'', ''' ||
pname || ''');' ;
EXECUTE 'CREATE TRIGGER pkg' || _tabs[i] || 'altertrigger ' ||
'BEFORE INSERT OR UPDATE OR DELETE ON ' || _pkgtab ||
' FOR EACH ROW EXECUTE PROCEDURE _pkg' || _tabs[i] || 'altertrigger();';
EXECUTE 'SELECT dropIfExists(''TRIGGER'', ''pkg' ||
_tabs[i] || 'aftertrigger'', ''' ||
pname || ''');' ;
EXECUTE 'CREATE TRIGGER pkg' || _tabs[i] || 'aftertrigger ' ||
'AFTER INSERT OR UPDATE OR DELETE ON ' || _pkgtab ||
' FOR EACH ROW EXECUTE PROCEDURE _pkg' || _tabs[i] || 'aftertrigger();';
END IF;
END LOOP;
EXECUTE 'COMMENT ON SCHEMA ' || quote_ident(pname) || ' IS ' ||
quote_literal(pcomment) || ';';
RETURN _namespaceoid;
END;
$_$;
ALTER FUNCTION public.createpkgschema(text, text) OWNER TO admin;
--
-- Name: createpr(integer, integer, numeric, date, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createpr(integer, integer, numeric, date, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pOrderNumber ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pQty ALIAS FOR $3;
pDueDate ALIAS FOR $4;
pNotes ALIAS FOR $5;
_prid INTEGER;
BEGIN
SELECT NEXTVAL('pr_pr_id_seq') INTO _prid;
INSERT INTO pr
( pr_id, pr_number, pr_subnumber, pr_status,
pr_order_type, pr_order_id,
pr_itemsite_id, pr_qtyreq, pr_duedate, pr_releasenote )
VALUES
( _prid, pOrderNumber, nextPrSubnumber(pOrderNumber), 'O',
'M', -1,
pItemsiteid, pQty, pDuedate, pNotes);
RETURN _prid;
END;
$_$;
ALTER FUNCTION public.createpr(integer, integer, numeric, date, text) OWNER TO admin;
--
-- Name: createpr(integer, character, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createpr(integer, character, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pOrderNumber ALIAS FOR $1;
pParentType ALIAS FOR $2;
pParentId ALIAS FOR $3;
_parent RECORD;
_prid INTEGER;
_orderNumber INTEGER;
BEGIN
IF (pOrderNumber = -1) THEN
SELECT fetchPrNumber() INTO _orderNumber;
ELSE
_orderNumber := pOrderNumber;
END IF;
IF (pParentType = 'W') THEN
SELECT womatl_itemsite_id AS itemsiteid,
itemuomtouom(itemsite_item_id, womatl_uom_id, NULL, womatl_qtyreq) AS qty,
womatl_duedate AS duedate, wo_prj_id AS prjid,
womatl_notes AS notes INTO _parent
FROM wo, womatl, itemsite
WHERE ((womatl_wo_id=wo_id)
AND (womatl_itemsite_id=itemsite_id)
AND (womatl_id=pParentId));
ELSIF (pParentType = 'S') THEN
SELECT coitem_itemsite_id AS itemsiteid,
(coitem_qtyord - coitem_qtyshipped + coitem_qtyreturned) AS qty,
coitem_scheddate AS duedate, cohead_prj_id AS prjid,
coitem_memo AS notes INTO _parent
FROM coitem, cohead
WHERE ((cohead_id=coitem_cohead_id)
AND (coitem_id=pParentId));
ELSIF (pParentType = 'F') THEN
SELECT planord_itemsite_id AS itemsiteid,
planord_qty AS qty,
planord_duedate AS duedate, NULL::INTEGER AS prjid,
planord_comments AS notes INTO _parent
FROM planord
WHERE (planord_id=pParentId);
ELSE
RETURN -2;
END IF;
IF (NOT FOUND) THEN
RETURN -1;
END IF;
SELECT NEXTVAL('pr_pr_id_seq') INTO _prid;
INSERT INTO pr
( pr_id, pr_number, pr_subnumber, pr_status,
pr_order_type, pr_order_id, pr_prj_id,
pr_itemsite_id, pr_qtyreq,
pr_duedate, pr_releasenote )
VALUES
( _prid, _orderNumber, nextPrSubnumber(_orderNumber), 'O',
pParentType, pParentId, _parent.prjid,
_parent.itemsiteid, validateOrderQty(_parent.itemsiteid, _parent.qty, TRUE),
_parent.duedate, _parent.notes );
RETURN _prid;
END;
$_$;
ALTER FUNCTION public.createpr(integer, character, integer) OWNER TO admin;
--
-- Name: createpr(character, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createpr(character, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pParentType ALIAS FOR $1;
pParentId ALIAS FOR $2;
_orderNumber INTEGER;
_prid INTEGER;
BEGIN
IF (pParentType = 'W') THEN
SELECT wo_number INTO _orderNumber
FROM wo, womatl
WHERE ((womatl_wo_id=wo_id)
AND (womatl_id=pParentId));
ELSIF (pParentType = 'S') THEN
SELECT CAST(cohead_number AS INTEGER) INTO _orderNumber
FROM cohead, coitem
WHERE ((coitem_cohead_id=cohead_id)
AND (coitem_id=pParentId));
ELSIF (pParentType = 'F') THEN
SELECT fetchPrNumber() INTO _orderNumber;
ELSE
RETURN -2;
END IF;
IF (NOT FOUND) THEN
RETURN -1;
END IF;
SELECT createPr(_orderNumber, pParentType, pParentId) INTO _prid;
RETURN _prid;
END;
$_$;
ALTER FUNCTION public.createpr(character, integer) OWNER TO admin;
--
-- Name: createpr(integer, integer, numeric, date, text, character, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createpr(integer, integer, numeric, date, text, character, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pOrderNumber ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pQty ALIAS FOR $3;
pDueDate ALIAS FOR $4;
pNotes ALIAS FOR $5;
pOrderType ALIAS FOR $6;
pOrderId ALIAS FOR $7;
_prid INTEGER;
BEGIN
SELECT NEXTVAL('pr_pr_id_seq') INTO _prid;
INSERT INTO pr
( pr_id, pr_number, pr_subnumber, pr_status,
pr_order_type, pr_order_id,
pr_itemsite_id, pr_qtyreq, pr_duedate, pr_releasenote )
VALUES
( _prid, pOrderNumber, nextPrSubnumber(pOrderNumber), 'O',
pOrderType, pOrderId,
pItemsiteid, pQty, pDuedate, pNotes );
RETURN _prid;
END;
$_$;
ALTER FUNCTION public.createpr(integer, integer, numeric, date, text, character, integer) OWNER TO admin;
--
-- Name: createpr(integer, character, integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createpr(integer, character, integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pOrderNumber ALIAS FOR $1;
pParentType ALIAS FOR $2;
pParentId ALIAS FOR $3;
pParentNotes ALIAS FOR $4;
_parent RECORD;
_prid INTEGER;
_orderNumber INTEGER;
BEGIN
IF (pOrderNumber = -1) THEN
SELECT fetchPrNumber() INTO _orderNumber;
ELSE
_orderNumber := pOrderNumber;
END IF;
IF (pParentType = 'W') THEN
SELECT womatl_itemsite_id AS itemsiteid,
itemuomtouom(itemsite_item_id, womatl_uom_id, NULL, womatl_qtyreq) AS qty,
womatl_duedate AS duedate, wo_prj_id AS prjid INTO _parent
FROM wo, womatl, itemsite
WHERE ((womatl_wo_id=wo_id)
AND (womatl_itemsite_id=itemsite_id)
AND (womatl_id=pParentId));
ELSIF (pParentType = 'S') THEN
SELECT coitem_itemsite_id AS itemsiteid,
(coitem_qtyord - coitem_qtyshipped + coitem_qtyreturned) AS qty,
coitem_scheddate AS duedate, cohead_prj_id AS prjid INTO _parent
FROM coitem, cohead
WHERE ((cohead_id=coitem_cohead_id)
AND (coitem_id=pParentId));
ELSIF (pParentType = 'F') THEN
SELECT planord_itemsite_id AS itemsiteid,
planord_qty AS qty,
planord_duedate AS duedate, NULL::INTEGER AS prjid
INTO _parent
FROM planord
WHERE (planord_id=pParentId);
ELSE
RETURN -2;
END IF;
IF (NOT FOUND) THEN
RETURN -1;
END IF;
SELECT NEXTVAL('pr_pr_id_seq') INTO _prid;
INSERT INTO pr
( pr_id, pr_number, pr_subnumber, pr_status,
pr_order_type, pr_order_id, pr_prj_id,
pr_itemsite_id, pr_qtyreq, pr_duedate, pr_releasenote )
VALUES
( _prid, _orderNumber, nextPrSubnumber(_orderNumber), 'O',
pParentType, pParentId, _parent.prjid,
_parent.itemsiteid, validateOrderQty(_parent.itemsiteid, _parent.qty, TRUE),
_parent.duedate, pParentNotes );
RETURN _prid;
END;
$_$;
ALTER FUNCTION public.createpr(integer, character, integer, text) OWNER TO admin;
--
-- Name: createpriv(text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createpriv(text, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pModule ALIAS FOR $1;
pName ALIAS FOR $2;
pDesc ALIAS FOR $3;
_id INTEGER;
BEGIN
SELECT priv_id
INTO _id
FROM priv
WHERE(priv_name=pName);
IF (FOUND) THEN
UPDATE priv
SET priv_module=pModule,
priv_descrip=pDesc
WHERE(priv_id=_id);
ELSE
SELECT nextval('priv_priv_id_seq') INTO _id;
INSERT INTO priv
(priv_id, priv_module, priv_name, priv_descrip)
VALUES(_id, pModule, pName, pDesc);
END IF;
RETURN _id;
END;
$_$;
ALTER FUNCTION public.createpriv(text, text, text) OWNER TO admin;
--
-- Name: createpurchasetosale(integer, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createpurchasetosale(integer, integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCoitemId ALIAS FOR $1;
pItemSourceId ALIAS FOR $2;
pDropShip ALIAS FOR $3;
BEGIN
RETURN createPurchaseToSale(pCoitemId, pItemSourceId, pDropShip, NULL, NULL, NULL);
END;
$_$;
ALTER FUNCTION public.createpurchasetosale(integer, integer, boolean) OWNER TO admin;
--
-- Name: createpurchasetosale(integer, integer, boolean, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createpurchasetosale(integer, integer, boolean, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCoitemId ALIAS FOR $1;
pItemSourceId ALIAS FOR $2;
pDropShip ALIAS FOR $3;
pPrice ALIAS FOR $4;
BEGIN
RETURN createPurchaseToSale(pCoitemId, pItemSourceId, pDropShip, NULL, NULL, pPrice);
END;
$_$;
ALTER FUNCTION public.createpurchasetosale(integer, integer, boolean, numeric) OWNER TO admin;
--
-- Name: createpurchasetosale(integer, integer, boolean, numeric, date, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createpurchasetosale(integer, integer, boolean, numeric, date, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCoitemId ALIAS FOR $1;
pItemSourceId ALIAS FOR $2;
pDropShip ALIAS FOR $3;
pQty ALIAS FOR $4;
pDueDate ALIAS FOR $5;
pPrice ALIAS FOR $6;
_s RECORD;
_w RECORD;
_i RECORD;
_shipto RECORD;
_poheadid INTEGER := -1;
_poitemid INTEGER := -1;
_taxtypeid INTEGER := -1;
_polinenumber INTEGER;
_ponumber NUMERIC;
_price NUMERIC;
_temp INTEGER;
BEGIN
-- Check for existing poitem for this coitem
SELECT poitem_id INTO _poitemid
FROM poitem
WHERE (poitem_order_id=pCoitemId)
AND (poitem_order_type='S');
IF (FOUND) THEN
RETURN _poitemid;
END IF;
SELECT *,
COALESCE(roundQty(item_fractional, (coitem_qtyord * coitem_qty_invuomratio)), 0.0) AS orderqty
INTO _s
FROM cohead JOIN coitem ON (cohead_id = coitem_cohead_id)
LEFT OUTER JOIN shiptoinfo ON (cohead_shipto_id = shipto_id)
LEFT OUTER JOIN itemsite ON (coitem_itemsite_id = itemsite_id)
LEFT OUTER JOIN item ON (item_id = itemsite_item_id)
WHERE (coitem_id = pCoitemId);
IF (NOT FOUND) THEN
RETURN -1;
END IF;
SELECT * INTO _w
FROM whsinfo JOIN addr ON (warehous_addr_id = addr_id)
JOIN cntct ON (warehous_cntct_id = cntct_id)
JOIN itemsite ON (warehous_id = itemsite_warehous_id)
WHERE (itemsite_id = _s.itemsite_id);
SELECT * INTO _i
FROM itemsrc JOIN vendinfo ON (itemsrc_vend_id = vend_id)
LEFT OUTER JOIN cntct ON (vend_cntct1_id = cntct_id)
LEFT OUTER JOIN addr ON (vend_addr_id = addr_id)
WHERE (itemsrc_id = pItemSourceId);
IF (NOT FOUND) THEN
RETURN -2;
END IF;
SELECT * INTO _shipto
FROM shiptoinfo JOIN cntct ON (shipto_cntct_id = cntct_id)
JOIN addr ON (shipto_addr_id = addr_id)
RIGHT OUTER JOIN cohead ON (cohead_cust_id = shipto_cust_id)
WHERE (cohead_id = _s.cohead_id)
LIMIT 1;
IF (pDropShip) THEN
SELECT COALESCE(pohead_id, -1) INTO _temp
FROM pohead
WHERE ( (pohead_status = 'U')
AND (pohead_vend_id = _i.itemsrc_vend_id)
AND (pohead_shiptoaddress_id = _s.shipto_addr_id) );
ELSE
SELECT COALESCE(pohead_id, -1) INTO _temp
FROM pohead
WHERE ( (pohead_status = 'U')
AND (pohead_vend_id = _i.itemsrc_vend_id)
AND (pohead_shiptoaddress_id = _w.addr_id) );
END IF;
IF (FOUND) THEN
_poheadid := _temp;
UPDATE pohead
SET pohead_dropship = pDropShip
WHERE (pohead_id = _poheadid);
ELSE
SELECT NEXTVAL('pohead_pohead_id_seq') INTO _poheadid;
SELECT fetchPoNumber() INTO _ponumber;
IF (pDropShip) THEN
INSERT INTO pohead
( pohead_id, pohead_number, pohead_status, pohead_dropship,
pohead_agent_username, pohead_vend_id, pohead_taxzone_id,
pohead_orderdate, pohead_curr_id, pohead_cohead_id,
pohead_warehous_id, pohead_shipvia,
pohead_terms_id, pohead_shipto_cntct_id,
pohead_shipto_cntct_honorific, pohead_shipto_cntct_first_name,
pohead_shipto_cntct_middle, pohead_shipto_cntct_last_name,
pohead_shipto_cntct_suffix, pohead_shipto_cntct_phone,
pohead_shipto_cntct_title, pohead_shipto_cntct_fax,
pohead_shipto_cntct_email, pohead_shiptoaddress_id,
pohead_shiptoaddress1,
pohead_shiptoaddress2,
pohead_shiptoaddress3,
pohead_shiptocity,
pohead_shiptostate, pohead_shiptozipcode,
pohead_shiptocountry, pohead_vend_cntct_id,
pohead_vend_cntct_honorific, pohead_vend_cntct_first_name,
pohead_vend_cntct_middle, pohead_vend_cntct_last_name,
pohead_vend_cntct_suffix, pohead_vend_cntct_phone,
pohead_vend_cntct_title, pohead_vend_cntct_fax,
pohead_vend_cntct_email, pohead_vendaddress1,
pohead_vendaddress2, pohead_vendaddress3,
pohead_vendcity, pohead_vendstate,
pohead_vendzipcode, pohead_vendcountry, pohead_comments )
VALUES
( _poheadid, _ponumber, 'U', pDropShip,
getEffectiveXtUser(), _i.itemsrc_vend_id, _i.vend_taxzone_id,
CURRENT_DATE, COALESCE(_i.vend_curr_id, basecurrid()), _s.cohead_id,
COALESCE(_s.cohead_warehous_id, -1), COALESCE(_i.vend_shipvia, TEXT('')),
COALESCE(_i.vend_terms_id, -1), COALESCE(_s.cohead_shipto_cntct_id, _shipto.shipto_cntct_id),
COALESCE(_s.cohead_shipto_cntct_honorific, _shipto.cntct_honorific), COALESCE(_s.cohead_shipto_cntct_first_name, _shipto.cntct_first_name),
COALESCE(_s.cohead_shipto_cntct_middle, _shipto.cntct_middle), COALESCE(_s.cohead_shipto_cntct_last_name, _shipto.cntct_last_name),
COALESCE(_s.cohead_shipto_cntct_suffix, _shipto.cntct_suffix), COALESCE(_s.cohead_shipto_cntct_phone, _shipto.cntct_phone),
COALESCE(_s.cohead_shipto_cntct_title, _shipto.cntct_title), COALESCE(_s.cohead_shipto_cntct_fax, _shipto.cntct_fax),
COALESCE(_s.cohead_shipto_cntct_email, _shipto.cntct_email), COALESCE(_s.shipto_addr_id, _shipto.addr_id),
COALESCE(_s.cohead_shiptoaddress1, _shipto.addr_line1),
COALESCE(_s.cohead_shiptoaddress2, _shipto.addr_line2),
COALESCE(_s.cohead_shiptoaddress3, _shipto.addr_line3),
COALESCE(_s.cohead_shiptocity, _shipto.addr_city),
COALESCE(_s.cohead_shiptostate, _shipto.addr_state), COALESCE(_s.cohead_shiptozipcode, _shipto.addr_postalcode),
COALESCE(_s.cohead_shiptocountry, _shipto.addr_country), _i.cntct_id,
COALESCE(_i.cntct_honorific, TEXT('')), COALESCE(_i.cntct_first_name, TEXT('')),
COALESCE(_i.cntct_middle, TEXT('')), COALESCE(_i.cntct_last_name, TEXT('')),
COALESCE(_i.cntct_suffix, TEXT('')), COALESCE(_i.cntct_phone, TEXT('')),
COALESCE(_i.cntct_title, TEXT('')), COALESCE(_i.cntct_fax, TEXT('')),
COALESCE(_i.cntct_email, TEXT('')), COALESCE(_i.addr_line1, TEXT('')),
COALESCE(_i.addr_line2, TEXT('')), COALESCE(_i.addr_line3, TEXT('')),
COALESCE(_i.addr_city, TEXT('')), COALESCE(_i.addr_state, TEXT('')),
COALESCE(_i.addr_postalcode, TEXT('')), COALESCE(_i.addr_country, TEXT('')), COALESCE(_s.cohead_shipcomments, TEXT('')) );
ELSE
INSERT INTO pohead
( pohead_id, pohead_number, pohead_status, pohead_dropship,
pohead_agent_username, pohead_vend_id, pohead_taxzone_id,
pohead_orderdate, pohead_curr_id, pohead_cohead_id,
pohead_warehous_id, pohead_shipvia,
pohead_terms_id, pohead_shipto_cntct_id,
pohead_shipto_cntct_honorific, pohead_shipto_cntct_first_name,
pohead_shipto_cntct_middle, pohead_shipto_cntct_last_name,
pohead_shipto_cntct_suffix, pohead_shipto_cntct_phone,
pohead_shipto_cntct_title, pohead_shipto_cntct_fax,
pohead_shipto_cntct_email, pohead_shiptoaddress_id,
pohead_shiptoaddress1,
pohead_shiptoaddress2,
pohead_shiptoaddress3,
pohead_shiptocity,
pohead_shiptostate, pohead_shiptozipcode,
pohead_shiptocountry, pohead_vend_cntct_id,
pohead_vend_cntct_honorific, pohead_vend_cntct_first_name,
pohead_vend_cntct_middle, pohead_vend_cntct_last_name,
pohead_vend_cntct_suffix, pohead_vend_cntct_phone,
pohead_vend_cntct_title, pohead_vend_cntct_fax,
pohead_vend_cntct_email, pohead_vendaddress1,
pohead_vendaddress2, pohead_vendaddress3,
pohead_vendcity, pohead_vendstate,
pohead_vendzipcode, pohead_vendcountry )
VALUES
( _poheadid, _ponumber, 'U', pDropShip,
getEffectiveXtUser(), _i.itemsrc_vend_id, _i.vend_taxzone_id,
CURRENT_DATE, COALESCE(_i.vend_curr_id, basecurrid()), _s.cohead_id,
COALESCE(_s.cohead_warehous_id, -1), COALESCE(_i.vend_shipvia, TEXT('')),
COALESCE(_i.vend_terms_id, -1), _w.cntct_id,
_w.cntct_honorific, _w.cntct_first_name,
_w.cntct_middle, _w.cntct_last_name,
_w.cntct_suffix, _w.cntct_phone,
_w.cntct_title, _w.cntct_fax,
_w.cntct_email, _w.addr_id,
_w.addr_line1,
_w.addr_line2,
_w.addr_line3,
_w.addr_city,
_w.addr_state, _w.addr_postalcode,
_w.addr_country, _i.cntct_id,
COALESCE(_i.cntct_honorific, TEXT('')), COALESCE(_i.cntct_first_name, TEXT('')),
COALESCE(_i.cntct_middle, TEXT('')), COALESCE(_i.cntct_last_name, TEXT('')),
COALESCE(_i.cntct_suffix, TEXT('')), COALESCE(_i.cntct_phone, TEXT('')),
COALESCE(_i.cntct_title, TEXT('')), COALESCE(_i.cntct_fax, TEXT('')),
COALESCE(_i.cntct_email, TEXT('')), COALESCE(_i.addr_line1, TEXT('')),
COALESCE(_i.addr_line2, TEXT('')), COALESCE(_i.addr_line3, TEXT('')),
COALESCE(_i.addr_city, TEXT('')), COALESCE(_i.addr_state, TEXT('')),
COALESCE(_i.addr_postalcode, TEXT('')), COALESCE(_i.addr_country, TEXT('')) );
END IF;
END IF;
SELECT NEXTVAL('poitem_poitem_id_seq') INTO _poitemid;
SELECT (COALESCE(MAX(poitem_linenumber), 0) + 1) INTO _polinenumber
FROM poitem
WHERE (poitem_pohead_id = _poheadid);
SELECT COALESCE(itemtax_taxtype_id, -1) INTO _taxtypeid
FROM itemtax
WHERE (itemtax_item_id = _i.itemsrc_item_id);
IF (pPrice IS NULL) THEN
SELECT itemsrcPrice(pItemSourceId, COALESCE(_s.cohead_warehous_id, -1), pDropShip,
COALESCE(pQty, _s.orderqty), COALESCE(_i.vend_curr_id, baseCurrId()), CURRENT_DATE) INTO _price;
ELSE
_price := pPrice;
END IF;
raise notice '_price=%', _price;
IF (pDropShip) THEN
INSERT INTO poitem
( poitem_id, poitem_status, poitem_pohead_id, poitem_linenumber,
poitem_duedate, poitem_itemsite_id,
poitem_vend_item_descrip, poitem_vend_uom,
poitem_invvenduomratio, poitem_qty_ordered,
poitem_unitprice, poitem_vend_item_number,
poitem_itemsrc_id, poitem_order_id, poitem_order_type, poitem_prj_id, poitem_stdcost,
poitem_manuf_name, poitem_manuf_item_number,
poitem_manuf_item_descrip, poitem_taxtype_id, poitem_comments )
VALUES
( _poitemid, 'U', _poheadid, _polinenumber,
COALESCE(pDueDate, _s.coitem_scheddate), _s.coitem_itemsite_id,
COALESCE(_i.itemsrc_vend_item_descrip, TEXT('')), COALESCE(_i.itemsrc_vend_uom, TEXT('')),
COALESCE(_i.itemsrc_invvendoruomratio, 1.00), (COALESCE(pQty, _s.orderqty) / COALESCE(_i.itemsrc_invvendoruomratio, 1.00)),
_price, COALESCE(_i.itemsrc_vend_item_number, TEXT('')),
pItemSourceId, pCoitemId, 'S', _s.cohead_prj_id, stdcost(_i.itemsrc_item_id),
COALESCE(_i.itemsrc_manuf_name, TEXT('')), COALESCE(_i.itemsrc_manuf_item_number, TEXT('')),
COALESCE(_i.itemsrc_manuf_item_descrip, TEXT('')), _taxtypeid,
COALESCE(_s.coitem_memo, TEXT('')));
ELSE
INSERT INTO poitem
( poitem_id, poitem_status, poitem_pohead_id, poitem_linenumber,
poitem_duedate, poitem_itemsite_id,
poitem_vend_item_descrip, poitem_vend_uom,
poitem_invvenduomratio, poitem_qty_ordered,
poitem_unitprice, poitem_vend_item_number,
poitem_itemsrc_id, poitem_order_id, poitem_order_type, poitem_prj_id, poitem_stdcost,
poitem_manuf_name, poitem_manuf_item_number,
poitem_manuf_item_descrip, poitem_taxtype_id )
VALUES
( _poitemid, 'U', _poheadid, _polinenumber,
COALESCE(pDueDate, _s.coitem_scheddate), _s.coitem_itemsite_id,
COALESCE(_i.itemsrc_vend_item_descrip, TEXT('')), COALESCE(_i.itemsrc_vend_uom, TEXT('')),
COALESCE(_i.itemsrc_invvendoruomratio, 1.00), (COALESCE(pQty, _s.orderqty) / COALESCE(_i.itemsrc_invvendoruomratio, 1.00)),
_price, COALESCE(_i.itemsrc_vend_item_number, TEXT('')),
pItemSourceId, pCoitemId, 'S', _s.cohead_prj_id, stdcost(_i.itemsrc_item_id),
COALESCE(_i.itemsrc_manuf_name, TEXT('')), COALESCE(_i.itemsrc_manuf_item_number, TEXT('')),
COALESCE(_i.itemsrc_manuf_item_descrip, TEXT('')), _taxtypeid );
END IF;
-- Copy characteristics from the coitem to the poitem
INSERT INTO charass
( charass_target_type, charass_target_id, charass_char_id,
charass_value, charass_default, charass_price )
SELECT 'PI', _poitemid, charass_char_id,
charass_value, charass_default, charass_price
FROM charass
WHERE ( (charass_target_type='SI')
AND (charass_target_id=pCoitemId) );
UPDATE coitem
SET coitem_order_type = 'P',
coitem_order_id = _poitemid
WHERE ( coitem_id = pCoitemId );
-- Generate the PoItemCreatedBySo event notice
INSERT INTO evntlog
( evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id,
evntlog_number )
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id ,
'P', poitem_id, itemsite_warehous_id,
(pohead_number || '-' || poitem_linenumber || ': ' || item_number)
FROM evntnot JOIN evnttype ON (evntnot_evnttype_id=evnttype_id)
JOIN itemsite ON (evntnot_warehous_id=itemsite_warehous_id)
JOIN item ON (itemsite_item_id=item_id)
JOIN poitem ON (poitem_itemsite_id=itemsite_id)
JOIN pohead ON (poitem_pohead_id=pohead_id)
WHERE ( (poitem_id=_poitemid)
AND (poitem_duedate <= (CURRENT_DATE + itemsite_eventfence))
AND (evnttype_name='PoItemCreatedBySo') );
RETURN _poitemid;
END;
$_$;
ALTER FUNCTION public.createpurchasetosale(integer, integer, boolean, numeric, date, numeric) OWNER TO admin;
--
-- Name: createrecurringinvoices(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createrecurringinvoices() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'createRecurringInvoices() has been deprecated; use createRecurringItems(NULL, ''I'') instead.';
RETURN createRecurringItems(NULL, 'I');
END;
$$;
ALTER FUNCTION public.createrecurringinvoices() OWNER TO admin;
--
-- Name: createrecurringitems(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createrecurringitems(integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pParentid ALIAS FOR $1; -- if NULL then all items with the given pType
pType TEXT := UPPER($2); -- if NULL then all types
-- if both are null then all items of all types
_copystmt TEXT;
_count INTEGER := 0;
_countstmt TEXT;
_existcnt INTEGER;
_id INTEGER;
_interval TEXT;
_last TIMESTAMP WITH TIME ZONE;
_loopcount INTEGER := 1;
_maxstmt TEXT;
_maxdate TIMESTAMP WITH TIME ZONE := endOfTime();
_result INTEGER := 0;
_next TIMESTAMP WITH TIME ZONE;
_r RECORD;
_rt RECORD;
_tmp INTEGER;
BEGIN
RAISE DEBUG 'createRecurringItems(%, %) entered', pParentid, pType;
FOR _r IN SELECT *
FROM recur
WHERE ((COALESCE(recur_end, endOfTime()) >= CURRENT_TIMESTAMP)
AND (pParentid IS NULL OR recur_parent_id=pParentid)
AND (pType IS NULL OR UPPER(recur_parent_type)=UPPER(pType))) LOOP
RAISE DEBUG 'createRecurringItems looking at recur %, %',
_r.recur_id, _r.recur_parent_type;
_r.recur_max := COALESCE(_r.recur_max,
CAST(fetchMetricValue('RecurringInvoiceBuffer') AS INTEGER),
1);
_interval := CASE _r.recur_period WHEN 'Y' THEN ' year'
WHEN 'M' THEN ' month'
WHEN 'W' THEN ' week'
WHEN 'D' THEN ' day'
WHEN 'H' THEN ' hour'
WHEN 'm' THEN ' minute'
ELSE NULL
END;
IF (_interval IS NULL OR COALESCE(_r.recur_freq, 0) <= 0) THEN
RAISE EXCEPTION 'Unknown recurrence frequency % % ON % %',
_r.recur_freq, _r.recur_period,
_r.recur_parent_type, _r.recur_parent_id;
END IF;
SELECT * INTO _rt FROM recurtype WHERE (UPPER(recurtype_type)=UPPER(pType));
GET DIAGNOSTICS _count = ROW_COUNT;
IF (_count <= 0) THEN
RETURN -10;
END IF;
-- if the recurrence type has a max lookahead window, use it
IF (_r.recur_parent_type = 'I') THEN
_maxdate := CURRENT_TIMESTAMP + CAST(fetchMetricText('RecurringInvoiceBuffer') || ' days' AS INTERVAL);
END IF;
IF (_r.recur_parent_type = 'V') THEN
_maxdate := CURRENT_TIMESTAMP + CAST(fetchMetricText('RecurringVoucherBuffer') || ' days' AS INTERVAL);
END IF;
IF (_maxdate > _r.recur_end) THEN -- if recur_end is null, _maxdate is ok
_maxdate = _r.recur_end;
END IF;
-- build statements dynamically from the recurtype table because packages
-- might also require recurring items. this way the algorithm is fixed
-- and the details are data-driven
_countstmt := 'SELECT COUNT(*) FROM [fulltable]'
|| ' WHERE (($1=[table]_recurring_[table]_id)'
|| ' AND NOT([done]) '
|| ' AND ([limit]));';
_countstmt := REPLACE(_countstmt, '[fulltable]', _rt.recurtype_table);
_countstmt := REPLACE(_countstmt, '[table]',
REGEXP_REPLACE(_rt.recurtype_table, E'.*\\.', ''));
_countstmt := REPLACE(_countstmt, '[done]', _rt.recurtype_donecheck);
_countstmt := REPLACE(_countstmt, '[limit]',
COALESCE(_rt.recurtype_limit, 'TRUE'));
_maxstmt := 'SELECT MAX([schedcol]) FROM [fulltable]'
|| ' WHERE (($1=[table]_recurring_[table]_id)'
|| ' AND ([limit]));';
_maxstmt := REPLACE(_maxstmt, '[schedcol]', _rt.recurtype_schedcol);
_maxstmt := REPLACE(_maxstmt, '[fulltable]',_rt.recurtype_table);
_maxstmt := REPLACE(_maxstmt, '[table]',
REGEXP_REPLACE(_rt.recurtype_table, E'.*\\.', ''));
_maxstmt := REPLACE(_maxstmt, '[limit]', COALESCE(_rt.recurtype_limit,
'TRUE'));
_copystmt := 'SELECT [copy]($1, [datetime] [more]);';
_copystmt := REPLACE(_copystmt, '[copy]', _rt.recurtype_copyfunc);
_copystmt := REPLACE(_copystmt, '[datetime]',
CASE WHEN UPPER(_rt.recurtype_copyargs[2])='DATE' THEN
'CAST(''$2'' AS DATE)'
ELSE '''$2''' END);
-- 8.4+:
-- _copystmt := REPLACE(_copystmt, '[more]',
-- REPEAT(', NULL',
-- array_length(_rt.recurtype_copyargs) - 2));
_tmp := CAST(REPLACE(REGEXP_REPLACE(array_dims(_rt.recurtype_copyargs),
'.*:', ''), ']', '') AS INTEGER);
_copystmt := REPLACE(_copystmt, '[more]', REPEAT(', NULL', _tmp - 2));
EXECUTE REPLACE(_countstmt, '$1', _r.recur_parent_id::TEXT) INTO _existcnt;
EXECUTE REPLACE(_maxstmt, '$1', _r.recur_parent_id::TEXT) INTO _last;
RAISE DEBUG E'% got %, % got %', _countstmt, _existcnt, _maxstmt, _last;
_next := _last;
_loopcount := 1;
WHILE (_existcnt < _r.recur_max AND _next < _maxdate) LOOP
_next := _last +
CAST(_r.recur_freq * _loopcount || _interval AS INTERVAL);
RAISE DEBUG 'createrecurringitems looping, existcnt = %, max = %, is % between % and %?',
_existcnt, _r.recur_max, _next, _r.recur_start, _r.recur_end;
IF (_next BETWEEN _r.recur_start AND _maxdate) THEN
RAISE DEBUG 'createrecurringitems executing % with % and %',
_copystmt, _r.recur_parent_id, _next;
-- 8.4+: EXECUTE _copystmt INTO _id USING _r.recur_parent_id, _next;
EXECUTE REPLACE(REPLACE(_copystmt, '$1', _r.recur_parent_id::TEXT),
'$2', _next::TEXT) INTO _id;
RAISE DEBUG 'Copying for % returned %', _next, _id;
_result := _result + 1;
_existcnt := _existcnt + 1;
END IF;
_loopcount := _loopcount + 1;
END LOOP;
END LOOP;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.createrecurringitems(integer, text) OWNER TO admin;
--
-- Name: createtodoitem(integer, text, text, text, integer, integer, integer, date, date, character, date, date, integer, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createtodoitem(integer, text, text, text, integer, integer, integer, date, date, character, date, date, integer, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN createTodoItem($1, $2, $3, $4, $5, $6, $7, $8, $9, $10, $11, $12, $13, $14, $15, NULL);
END;
$_$;
ALTER FUNCTION public.createtodoitem(integer, text, text, text, integer, integer, integer, date, date, character, date, date, integer, text, text) OWNER TO admin;
--
-- Name: createtodoitem(integer, text, text, text, integer, integer, integer, date, date, character, date, date, integer, text, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createtodoitem(integer, text, text, text, integer, integer, integer, date, date, character, date, date, integer, text, text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
ptodoid ALIAS FOR $1;
pusername ALIAS FOR $2;
pname ALIAS FOR $3;
pdesc ALIAS FOR $4;
pincdtid ALIAS FOR $5;
pcrmacctid ALIAS FOR $6;
pOpheadid ALIAS FOR $7;
pstarted ALIAS FOR $8;
pdue ALIAS FOR $9;
pstatus ALIAS FOR $10;
passigned ALIAS FOR $11;
pcompleted ALIAS FOR $12;
ppriority ALIAS FOR $13;
pnotes ALIAS FOR $14;
powner ALIAS FOR $15;
pcntctid ALIAS FOR $16;
_todoid INTEGER;
_priority INTEGER := ppriority;
_status CHARACTER(1) := pstatus;
_incdtid INTEGER := pincdtid;
_crmacctid INTEGER := pcrmacctid;
_opheadid INTEGER := pOpheadid;
_assigned DATE := passigned;
_result INTEGER;
BEGIN
IF (pusername IS NULL OR pusername = '') THEN
RETURN -1;
END IF;
IF (pname IS NULL OR pname = '') THEN
RETURN -2;
END IF;
IF (pdue IS NULL) THEN
RETURN -3;
END IF;
IF (pcompleted IS NOT NULL) THEN
_status := 'C';
ELSIF (pstatus IS NULL AND pstarted IS NOT NULL) THEN
_status := 'I';
ELSIF (pstatus IS NULL) THEN
_status := 'N';
END IF;
IF (_incdtid <= 0) THEN
_incdtid := NULL;
END IF;
IF (_crmacctid <= 0) THEN
_crmacctid := NULL;
END IF;
IF (_opheadid <= 0) THEN
_opheadid := NULL;
END IF;
IF (_priority <= 0) THEN
_priority := NULL;
END IF;
IF (_assigned IS NULL) THEN
_assigned := CURRENT_DATE;
END IF;
IF (ptodoid IS NULL) THEN
SELECT NEXTVAL('todoitem_todoitem_id_seq') INTO _todoid;
ELSE
_todoid := ptodoid;
END IF;
INSERT INTO todoitem ( todoitem_id, todoitem_username, todoitem_name,
todoitem_description, todoitem_incdt_id,
todoitem_creator_username, todoitem_status,
todoitem_active, todoitem_start_date,
todoitem_due_date, todoitem_assigned_date,
todoitem_completed_date, todoitem_priority_id,
todoitem_notes, todoitem_crmacct_id,
todoitem_ophead_id, todoitem_owner_username,
todoitem_cntct_id
) VALUES ( _todoid, pusername, pname,
pdesc, _incdtid,
getEffectiveXtUser(), _status,
TRUE, pstarted,
pdue, _assigned,
pcompleted, _priority, pnotes, _crmacctid, _opheadid, powner,
pcntctid );
RETURN _todoid;
END;
$_$;
ALTER FUNCTION public.createtodoitem(integer, text, text, text, integer, integer, integer, date, date, character, date, date, integer, text, text, integer) OWNER TO admin;
--
-- Name: createurl(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createurl(text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
declare
pTitle ALIAS FOR $1;
pUrl ALIAS FOR $2;
_id integer;
begin
_id := nextval('urlinfo_url_id_seq');
insert into urlinfo (url_id, url_title, url_url) values (_id, pTitle, pUrl);
return _id;
end;
$_$;
ALTER FUNCTION public.createurl(text, text) OWNER TO admin;
--
-- Name: createuser(text, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createuser(pusername text, pcreateusers boolean) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (pCreateUsers) THEN
EXECUTE 'CREATE USER "' || pUsername || '" CREATEROLE IN GROUP xtrole;';
ELSE
EXECUTE 'CREATE USER "' || pUsername || '" NOCREATEROLE IN GROUP xtrole;';
END IF;
RETURN 1;
END;
$$;
ALTER FUNCTION public.createuser(pusername text, pcreateusers boolean) OWNER TO admin;
--
-- Name: createwo(integer, integer, numeric, integer, date, text, character, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createwo(integer, integer, numeric, integer, date, text, character, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoNumber ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pQtyOrdered ALIAS FOR $3;
pLeadTime ALIAS FOR $4;
pDueDate ALIAS FOR $5;
pProductionNotes ALIAS FOR $6;
pParentType ALIAS FOR $7;
pParentId ALIAS FOR $8;
BEGIN
RETURN createWo( pWoNumber, pItemsiteid, 1, pQtyOrdered,
(pDueDate - pLeadTime), pDueDate,
pProductionNotes, pParentType, pParentId, -1 );
END;
$_$;
ALTER FUNCTION public.createwo(integer, integer, numeric, integer, date, text, character, integer) OWNER TO admin;
--
-- Name: createwo(integer, integer, numeric, integer, date, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createwo(integer, integer, numeric, integer, date, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoNumber ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pQtyOrdered ALIAS FOR $3;
pLeadTime ALIAS FOR $4;
pDueDate ALIAS FOR $5;
pProductionNotes ALIAS FOR $6;
BEGIN
RETURN createWo( pWoNumber, pItemsiteid, 1, pQtyOrdered,
(pDueDate - pLeadTime), pDueDate,
pProductionNotes, NULL, NULL, -1 );
END;
$_$;
ALTER FUNCTION public.createwo(integer, integer, numeric, integer, date, text) OWNER TO admin;
--
-- Name: createwo(integer, integer, numeric, date, date, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createwo(integer, integer, numeric, date, date, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoNumber ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pQtyOrdered ALIAS FOR $3;
pStartDate ALIAS FOR $4;
pDueDate ALIAS FOR $5;
pProductionNotes ALIAS FOR $6;
BEGIN
RETURN createWo( pWoNumber, pItemsiteid, 1, pQtyOrdered,
pStartDate, pDueDate, pProductionNotes, NULL, NULL, -1);
END;
$_$;
ALTER FUNCTION public.createwo(integer, integer, numeric, date, date, text) OWNER TO admin;
--
-- Name: createwo(integer, integer, integer, numeric, integer, date, text, character, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createwo(integer, integer, integer, numeric, integer, date, text, character, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoNumber ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pPriority ALIAS FOR $3;
pQtyOrdered ALIAS FOR $4;
pLeadTime ALIAS FOR $5;
pDueDate ALIAS FOR $6;
pProductionNotes ALIAS FOR $7;
pParentType ALIAS FOR $8;
pParentId ALIAS FOR $9;
BEGIN
RETURN createWo(pWoNumber, pItemsiteid, pPriority, pQtyOrdered,
(pDueDate - pLeadTime), pDueDate, pProductionNotes,
pParentType, pParentId, -1);
END;
$_$;
ALTER FUNCTION public.createwo(integer, integer, integer, numeric, integer, date, text, character, integer) OWNER TO admin;
--
-- Name: createwo(integer, integer, integer, numeric, integer, date, text, character, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createwo(integer, integer, integer, numeric, integer, date, text, character, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoNumber ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pPriority ALIAS FOR $3;
pQtyOrdered ALIAS FOR $4;
pLeadTime ALIAS FOR $5;
pDueDate ALIAS FOR $6;
pProductionNotes ALIAS FOR $7;
pParentType ALIAS FOR $8;
pParentId ALIAS FOR $9;
pProjectId ALIAS FOR $10;
BEGIN
RETURN createWo(pWoNumber, pItemsiteid, pPriority, pQtyOrdered,
(pDueDate - pLeadTime), pDueDate, pProductionNotes,
pParentType, pParentId, pProjectId);
END;
$_$;
ALTER FUNCTION public.createwo(integer, integer, integer, numeric, integer, date, text, character, integer, integer) OWNER TO admin;
--
-- Name: createwo(integer, integer, integer, numeric, date, date, text, character, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createwo(integer, integer, integer, numeric, date, date, text, character, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoNumber ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pPriority ALIAS FOR $3;
pQtyOrdered ALIAS FOR $4;
pStartDate ALIAS FOR $5;
pDueDate ALIAS FOR $6;
pProductionNotes ALIAS FOR $7;
pParentType ALIAS FOR $8;
pParentId ALIAS FOR $9;
pProjectId ALIAS FOR $10;
_woid INTEGER;
_result INTEGER;
_parentType char(1);
_bomrevid INTEGER;
_boorevid INTEGER;
BEGIN
SELECT getActiveRevId('BOM',itemsite_item_id) INTO _bomrevid
FROM itemsite
WHERE (itemsite_id=pItemsiteid);
SELECT getActiveRevId('BOO',itemsite_item_id) INTO _boorevid
FROM itemsite
WHERE (itemsite_id=pItemsiteid);
RETURN createWo(pWoNumber, pItemsiteid, pPriority, pQtyOrdered,
pStartDate, pDueDate, pProductionNotes,
pParentType, pParentId, pProjectId, _bomrevid, _boorevid, NULL);
END;
$_$;
ALTER FUNCTION public.createwo(integer, integer, integer, numeric, date, date, text, character, integer, integer) OWNER TO admin;
--
-- Name: createwo(integer, integer, integer, numeric, integer, date, text, character, integer, integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createwo(integer, integer, integer, numeric, integer, date, text, character, integer, integer, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoNumber ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pPriority ALIAS FOR $3;
pQtyOrdered ALIAS FOR $4;
pLeadTime ALIAS FOR $5;
pDueDate ALIAS FOR $6;
pProductionNotes ALIAS FOR $7;
pParentType ALIAS FOR $8;
pParentId ALIAS FOR $9;
pProjectId ALIAS FOR $10;
pBomRevId ALIAS FOR $11;
pBooRevId ALIAS FOR $12;
BEGIN
RETURN createWo(pWoNumber, pItemsiteid, pPriority, pQtyOrdered,
(pDueDate - pLeadTime), pDueDate, pProductionNotes,
pParentType, pParentId, pProjectId, pBomRevId, pBooRevId, NULL);
END;
$_$;
ALTER FUNCTION public.createwo(integer, integer, integer, numeric, integer, date, text, character, integer, integer, integer, integer) OWNER TO admin;
--
-- Name: createwo(integer, integer, integer, numeric, date, date, text, character, integer, integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createwo(integer, integer, integer, numeric, date, date, text, character, integer, integer, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoNumber ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pPriority ALIAS FOR $3;
pQtyOrdered ALIAS FOR $4;
pStartDate ALIAS FOR $5;
pDueDate ALIAS FOR $6;
pProductionNotes ALIAS FOR $7;
pParentType ALIAS FOR $8;
pParentId ALIAS FOR $9;
pProjectId ALIAS FOR $10;
pBomRevId ALIAS FOR $11;
pBooRevId ALIAS FOR $12;
BEGIN
RETURN createWo(pWoNumber, pItemsiteid, pPriority, pQtyOrdered,
pStartDate, pDueDate, pProductionNotes,
pParentType, pParentId, pProjectId, pBomRevId, pBooRevId, NULL);
END;
$_$;
ALTER FUNCTION public.createwo(integer, integer, integer, numeric, date, date, text, character, integer, integer, integer, integer) OWNER TO admin;
--
-- Name: createwo(integer, integer, integer, numeric, date, date, text, character, integer, integer, integer, integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createwo(integer, integer, integer, numeric, date, date, text, character, integer, integer, integer, integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoNumber ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pPriority ALIAS FOR $3;
pQtyOrdered ALIAS FOR $4;
pStartDate ALIAS FOR $5;
pDueDate ALIAS FOR $6;
pProductionNotes ALIAS FOR $7;
pParentType ALIAS FOR $8;
pParentId ALIAS FOR $9;
pProjectId ALIAS FOR $10;
pBomRevId ALIAS FOR $11;
pBooRevId ALIAS FOR $12;
pCosMethod ALIAS FOR $13;
_startDate DATE;
_woid INTEGER;
_result INTEGER;
_parentType char(1);
_parentId INTEGER;
_cosmethod char(1);
_itemsite RECORD;
BEGIN
_parentType := COALESCE(pParentType, ' ');
_parentId := COALESCE(pParentId, -1);
SELECT * INTO _itemsite FROM itemsite WHERE itemsite_id = pItemsiteid;
-- Check to make sure the itemsite specified is supplied at itemsite
IF (NOT _itemsite.itemsite_wosupply) THEN
RETURN -1;
END IF;
-- Check to make sure if this is a job item that it is tied to a sales order
-- Or if it is just an avarage costed item
IF (pCosMethod IN ('D', 'P')) THEN
_cosmethod := pCosMethod;
ELSE
IF (_itemsite.itemsite_costmethod = 'J') THEN
IF (_parentType = ' ' OR _parentId = -1) THEN
RAISE EXCEPTION 'Work Orders for Item Sites that are Job cost must have a parent order.';
ELSE
SELECT COALESCE(itemsite_cosdefault,fetchmetrictext('JobItemCosDefault'),'D') INTO _cosmethod FROM itemsite WHERE itemsite_id=pItemsiteid;
END IF;
ELSIF (_itemsite.itemsite_costmethod = 'A') THEN
_cosmethod := COALESCE(_itemsite.itemsite_cosdefault,fetchmetrictext('JobItemCosDefault'),'D');
END IF;
END IF;
-- Check to see if the site calendar metric is set, and if so adjust the start date if necessary
IF (fetchmetricbool('UseSiteCalendar')) THEN
_startDate := calculatenextworkingdate(_itemsite.itemsite_warehous_id, pStartDate, 0);
IF (_startDate != pStartDate) THEN
_startDate := calculatenextworkingdate(_itemsite.itemsite_warehous_id, pDueDate, -_itemsite.itemsite_leadtime);
END IF;
ELSE
_startDate := pStartDate;
END IF;
-- Grab the next wo_id
SELECT NEXTVAL('wo_wo_id_seq') INTO _woid;
-- Create the W/O
INSERT INTO wo
( wo_id, wo_number, wo_subnumber, wo_itemsite_id,
wo_priority, wo_ordtype, wo_ordid,
wo_status, wo_startdate, wo_duedate,
wo_qtyord, wo_qtyrcv, wo_prodnotes, wo_prj_id,
wo_bom_rev_id, wo_boo_rev_id, wo_cosmethod )
SELECT _woid, pWoNumber, nextWoSubnumber(pWoNumber), itemsite_id,
pPriority, _parentType, pParentId,
'O', _startDate, pDueDate,
roundQty(item_fractional, pQtyOrdered), 0, pProductionNotes, pProjectId,
pBomRevid, pBooRevid, _cosmethod
FROM itemsite, item
WHERE ((itemsite_item_id=item_id)
AND (itemsite_id=pItemsiteid));
-- Explode the newly created W/O according to metrics
IF ( ( SELECT (metric_value='t')
FROM metric
WHERE (metric_name='AutoExplodeWO') ) ) THEN
SELECT explodeWo( _woid, ( SELECT (metric_value = 'M')
FROM metric
WHERE (metric_name='WOExplosionLevel') ) ) INTO _result;
ELSE
_result := _woid;
END IF;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.createwo(integer, integer, integer, numeric, date, date, text, character, integer, integer, integer, integer, text) OWNER TO admin;
--
-- Name: createwomaterial(integer, integer, character, numeric, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createwomaterial(integer, integer, character, numeric, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
DECLARE
pWoid ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pIssueMethod ALIAS FOR $3;
pQtyPer ALIAS FOR $4;
pScrap ALIAS FOR $5;
_result INTEGER;
BEGIN
SELECT createWoMaterial(pWoid, pItemsiteid, pIssueMethod, item_inv_uom_id, pQtyPer, pScrap)
INTO _result
FROM itemsite JOIN item ON (itemsite_item_id=item_id)
WHERE(itemsite_id=pItemsiteid);
RETURN _result;
END;
$_$;
ALTER FUNCTION public.createwomaterial(integer, integer, character, numeric, numeric) OWNER TO admin;
--
-- Name: createwomaterial(integer, integer, character, integer, numeric, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createwomaterial(integer, integer, character, integer, numeric, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
DECLARE
pWoid ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pIssueMethod ALIAS FOR $3;
pUomId ALIAS FOR $4;
pQtyPer ALIAS FOR $5;
pScrap ALIAS FOR $6;
_womatlid INTEGER;
BEGIN
SELECT createWoMaterial(pWoid,pItemsiteid,pIssueMethod,pUomId,pQtyPer,pScrap,-1, NULL, NULL) INTO _womatlid;
RETURN _womatlid;
END;
$_$;
ALTER FUNCTION public.createwomaterial(integer, integer, character, integer, numeric, numeric) OWNER TO admin;
--
-- Name: createwomaterial(integer, integer, character, integer, numeric, numeric, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createwomaterial(integer, integer, character, integer, numeric, numeric, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
DECLARE
pWoid ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pIssueMethod ALIAS FOR $3;
pUomId ALIAS FOR $4;
pQtyPer ALIAS FOR $5;
pScrap ALIAS FOR $6;
pBomitemId ALIAS FOR $7;
_womatlid INTEGER;
BEGIN
_womatlid := (SELECT NEXTVAL('womatl_womatl_id_seq'));
INSERT INTO womatl
( womatl_id, womatl_wo_id, womatl_itemsite_id,
womatl_issuemethod, womatl_uom_id, womatl_qtyper, womatl_scrap,
womatl_qtyreq, womatl_qtyiss, womatl_qtywipscrap,
womatl_wooper_id, womatl_bomitem_id, womatl_duedate )
SELECT _womatlid, wo_id, pItemsiteid,
pIssueMethod, pUomId, pQtyPer, pScrap,
roundQty(item_fractional, (wo_qtyord * (pQtyPer * (1 + pScrap)))), 0, 0,
-1, pBomitemId, wo_startdate
FROM wo, itemsite, item
WHERE ( (itemsite_item_id=item_id)
AND (wo_id=pWoid)
AND (itemsite_id=pItemsiteid) );
UPDATE wo
SET wo_adhoc=TRUE
WHERE (wo_id=pWoid);
UPDATE wo
SET wo_status='E'
WHERE ( (wo_status='O')
AND (wo_id=pWoid) );
RETURN _womatlid;
END;
$_$;
ALTER FUNCTION public.createwomaterial(integer, integer, character, integer, numeric, numeric, integer) OWNER TO admin;
--
-- Name: createwomaterial(integer, integer, character, integer, numeric, numeric, integer, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createwomaterial(integer, integer, character, integer, numeric, numeric, integer, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
DECLARE
pWoid ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pIssueMethod ALIAS FOR $3;
pUomId ALIAS FOR $4;
pQtyPer ALIAS FOR $5;
pScrap ALIAS FOR $6;
pBomitemId ALIAS FOR $7;
pNotes ALIAS FOR $8;
pRef ALIAS FOR $9;
_womatlid INTEGER;
_p RECORD;
BEGIN
_womatlid := (SELECT NEXTVAL('womatl_womatl_id_seq'));
INSERT INTO womatl
( womatl_id, womatl_wo_id, womatl_itemsite_id,
womatl_issuemethod, womatl_uom_id, womatl_qtyper, womatl_scrap,
womatl_qtyreq, womatl_qtyiss, womatl_qtywipscrap,
womatl_wooper_id, womatl_bomitem_id, womatl_duedate, womatl_notes, womatl_ref )
SELECT _womatlid, wo_id, pItemsiteid,
pIssueMethod, pUomId, pQtyPer, pScrap,
roundQty(item_fractional, (wo_qtyord * (pQtyPer * (1 + pScrap)))), 0, 0,
-1, pBomitemId, wo_startdate, pNotes, pRef
FROM wo, itemsite, item
WHERE ( (itemsite_item_id=item_id)
AND (wo_id=pWoid)
AND (itemsite_id=pItemsiteid) );
-- Handle all of the Phantom material requirements
WHILE ( ( SELECT COUNT(*)
FROM womatl, itemsite, item
WHERE ( (womatl_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (womatl_wo_id=pWoid)
AND (item_type='F') ) ) > 0 ) LOOP
FOR _p IN SELECT wo_qtyord, wo_startdate, womatl_id, womatl_wooper_id
FROM wo, womatl, itemsite, item
WHERE ( (womatl_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (item_type='F')
AND (womatl_wo_id=wo_id)
AND (wo_id=pWoid) ) LOOP
INSERT INTO womatl
( womatl_wo_id, womatl_itemsite_id, womatl_wooper_id,
womatl_schedatwooper, womatl_duedate,
womatl_uom_id, womatl_qtyper, womatl_scrap,
womatl_qtyreq,
womatl_qtyiss, womatl_qtywipscrap,
womatl_lastissue, womatl_lastreturn,
womatl_cost, womatl_picklist, womatl_createwo,
womatl_issuemethod, womatl_notes, womatl_ref )
SELECT pWoid, cs.itemsite_id, _p.womatl_wooper_id,
womatl_schedatwooper, womatl_duedate,
bomitem_uom_id, (bomitem_qtyper * womatl_qtyper), bomitem_scrap,
roundQty(itemuomfractionalbyuom(bomitem_item_id, bomitem_uom_id), (_p.wo_qtyord * bomitem_qtyper * womatl_qtyper * (1 + bomitem_scrap))),
0, 0,
startOfTime(), startOfTime(),
0, ci.item_picklist, ( (ci.item_type='M') AND (bomitem_createwo) ),
bomitem_issuemethod, bomitem_notes, bomitem_ref
FROM wo, womatl, bomitem,
itemsite AS cs, itemsite AS ps,
item AS ci, item AS pi
WHERE ( (womatl_itemsite_id=ps.itemsite_id)
AND (womatl_wo_id=wo_id)
AND (bomitem_parent_item_id=pi.item_id)
AND (bomitem_item_id=ci.item_id)
AND (ps.itemsite_warehous_id=cs.itemsite_warehous_id)
AND (cs.itemsite_item_id=ci.item_id)
AND (ps.itemsite_item_id=pi.item_id)
AND (woEffectiveDate(_p.wo_startdate) BETWEEN bomitem_effective AND (bomitem_expires - 1))
AND (womatl_id=_p.womatl_id));
DELETE FROM womatl
WHERE (womatl_id=_p.womatl_id);
END LOOP;
END LOOP;
UPDATE wo
SET wo_adhoc=TRUE
WHERE (wo_id=pWoid);
UPDATE wo
SET wo_status='E'
WHERE ( (wo_status='O')
AND (wo_id=pWoid) );
RETURN _womatlid;
END;
$_$;
ALTER FUNCTION public.createwomaterial(integer, integer, character, integer, numeric, numeric, integer, text, text) OWNER TO admin;
--
-- Name: createwomaterial(integer, integer, character, numeric, numeric, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createwomaterial(integer, integer, character, numeric, numeric, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pIssueMethod ALIAS FOR $3;
pQtyFxd ALIAS FOR $4;
pQtyPer ALIAS FOR $5;
pScrap ALIAS FOR $6;
_result INTEGER;
BEGIN
SELECT createWoMaterial(pWoid, pItemsiteid, pIssueMethod, item_inv_uom_id, pQtyFxd, pQtyPer, pScrap)
INTO _result
FROM itemsite JOIN item ON (itemsite_item_id=item_id)
WHERE(itemsite_id=pItemsiteid);
RETURN _result;
END;
$_$;
ALTER FUNCTION public.createwomaterial(integer, integer, character, numeric, numeric, numeric) OWNER TO admin;
--
-- Name: createwomaterial(integer, integer, character, integer, numeric, numeric, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createwomaterial(integer, integer, character, integer, numeric, numeric, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pIssueMethod ALIAS FOR $3;
pUomId ALIAS FOR $4;
pQtyFxd ALIAS FOR $5;
pQtyPer ALIAS FOR $6;
pScrap ALIAS FOR $7;
_womatlid INTEGER;
BEGIN
SELECT createWoMaterial(pWoid,pItemsiteid,pIssueMethod,pUomId,pQtyFxd,pQtyPer,pScrap,-1, NULL, NULL) INTO _womatlid;
RETURN _womatlid;
END;
$_$;
ALTER FUNCTION public.createwomaterial(integer, integer, character, integer, numeric, numeric, numeric) OWNER TO admin;
--
-- Name: createwomaterial(integer, integer, character, integer, numeric, numeric, numeric, integer, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createwomaterial(integer, integer, character, integer, numeric, numeric, numeric, integer, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
pIssueMethod ALIAS FOR $3;
pUomId ALIAS FOR $4;
pQtyFxd ALIAS FOR $5;
pQtyPer ALIAS FOR $6;
pScrap ALIAS FOR $7;
pBomitemId ALIAS FOR $8;
pNotes ALIAS FOR $9;
pRef ALIAS FOR $10;
_womatlid INTEGER;
BEGIN
SELECT createWoMaterial(pWoid,pItemsiteid,pIssueMethod,pUomId,pQtyFxd,pQtyPer,pScrap,pBomitemId,pNotes,pRef,NULL,NULL) INTO _womatlid;
RETURN _womatlid;
END;
$_$;
ALTER FUNCTION public.createwomaterial(integer, integer, character, integer, numeric, numeric, numeric, integer, text, text) OWNER TO admin;
--
-- Name: createwomaterial(integer, integer, character, integer, numeric, numeric, numeric, integer, text, text, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION createwomaterial(pwoid integer, pitemsiteid integer, pissuemethod character, puomid integer, pqtyfxd numeric, pqtyper numeric, pscrap numeric, pbomitemid integer, pnotes text, pref text, pwooperid integer, ppicklist boolean) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_womatlid INTEGER;
_p RECORD;
BEGIN
_womatlid := (SELECT NEXTVAL('womatl_womatl_id_seq'));
INSERT INTO womatl
( womatl_id, womatl_wo_id, womatl_itemsite_id,
womatl_issuemethod, womatl_uom_id, womatl_qtyfxd,
womatl_qtyper, womatl_scrap, womatl_qtyreq,
womatl_qtyiss, womatl_qtywipscrap, womatl_wooper_id,
womatl_bomitem_id, womatl_duedate, womatl_notes,
womatl_ref, womatl_picklist )
SELECT _womatlid, wo_id, pItemsiteid,
pIssueMethod, pUomId, pQtyFxd,
pQtyPer, pScrap, roundQty(item_fractional, (pQtyFxd + wo_qtyord * pQtyPer) * (1 + pScrap) ),
0, 0, COALESCE(pWooperId, -1),
pBomitemId, wo_startdate, pNotes,
pRef, COALESCE(pPickList, item_picklist)
FROM wo, itemsite JOIN item ON (item_id=itemsite_item_id)
WHERE ( (wo_id=pWoid)
AND (itemsite_id=pItemsiteid) );
-- Handle all of the Phantom material requirements
WHILE ( ( SELECT COUNT(*)
FROM womatl, itemsite, item
WHERE ( (womatl_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (womatl_wo_id=pWoid)
AND (item_type='F') ) ) > 0 ) LOOP
FOR _p IN SELECT wo_qtyord, wo_startdate, womatl_id, womatl_wooper_id
FROM wo, womatl, itemsite, item
WHERE ( (womatl_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (item_type='F')
AND (womatl_wo_id=wo_id)
AND (wo_id=pWoid) ) LOOP
INSERT INTO womatl
( womatl_wo_id, womatl_itemsite_id, womatl_wooper_id,
womatl_schedatwooper, womatl_duedate,
womatl_uom_id, womatl_qtyfxd, womatl_qtyper, womatl_scrap,
womatl_qtyreq,
womatl_qtyiss, womatl_qtywipscrap,
womatl_lastissue, womatl_lastreturn,
womatl_cost, womatl_picklist, womatl_createwo,
womatl_issuemethod, womatl_notes, womatl_ref )
SELECT pWoid, cs.itemsite_id, _p.womatl_wooper_id,
womatl_schedatwooper, womatl_duedate,
bomitem_uom_id, bomitem_qtyfxd, (bomitem_qtyper * womatl_qtyper), bomitem_scrap,
roundQty(itemuomfractionalbyuom(bomitem_item_id, bomitem_uom_id),
((bomitem_qtyfxd + _p.wo_qtyord * bomitem_qtyper) * womatl_qtyper * (1 + bomitem_scrap))),
0, 0,
startOfTime(), startOfTime(),
0, ci.item_picklist, ( (ci.item_type='M') AND (bomitem_createwo) ),
bomitem_issuemethod, bomitem_notes, bomitem_ref
FROM wo, womatl, bomitem,
itemsite AS cs, itemsite AS ps,
item AS ci, item AS pi
WHERE ( (womatl_itemsite_id=ps.itemsite_id)
AND (womatl_wo_id=wo_id)
AND (bomitem_parent_item_id=pi.item_id)
AND (bomitem_item_id=ci.item_id)
AND (ps.itemsite_warehous_id=cs.itemsite_warehous_id)
AND (cs.itemsite_item_id=ci.item_id)
AND (ps.itemsite_item_id=pi.item_id)
AND (woEffectiveDate(_p.wo_startdate) BETWEEN bomitem_effective AND (bomitem_expires - 1))
AND (womatl_id=_p.womatl_id));
DELETE FROM womatl
WHERE (womatl_id=_p.womatl_id);
END LOOP;
END LOOP;
UPDATE wo
SET wo_adhoc=TRUE
WHERE (wo_id=pWoid);
UPDATE wo
SET wo_status='E'
WHERE ( (wo_status='O')
AND (wo_id=pWoid) );
RETURN _womatlid;
END;
$$;
ALTER FUNCTION public.createwomaterial(pwoid integer, pitemsiteid integer, pissuemethod character, puomid integer, pqtyfxd numeric, pqtyper numeric, pscrap numeric, pbomitemid integer, pnotes text, pref text, pwooperid integer, ppicklist boolean) OWNER TO admin;
--
-- Name: creditmemototal(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION creditmemototal(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCreditmemoId ALIAS FOR $1;
_result NUMERIC;
BEGIN
-- TO DO: Add in line item taxes
SELECT COALESCE(cmhead_freight,0.0) + COALESCE(cmhead_misc,0.0) +
( SELECT COALESCE(ROUND(SUM((cmitem_qtycredit * cmitem_qty_invuomratio) * cmitem_unitprice / cmitem_price_invuomratio), 2), 0.0)
FROM cmitem
WHERE (cmitem_cmhead_id=cmhead_id)
) +
(SELECT COALESCE(SUM(tax) * -1, 0) AS tax
FROM ( SELECT ROUND(SUM(taxdetail_tax),2) AS tax
FROM tax
JOIN calculateTaxDetailSummary('CM', cmhead_id, 'T') ON (taxdetail_tax_id=tax_id)
GROUP BY tax_id) AS data)
INTO _result
FROM cmhead
WHERE (cmhead_id=pCreditmemoId);
IF (NOT FOUND) THEN
return 0;
ELSE
RETURN _result;
END IF;
END;
$_$;
ALTER FUNCTION public.creditmemototal(integer) OWNER TO admin;
--
-- Name: crmacct; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE crmacct (
crmacct_id integer NOT NULL,
crmacct_number text NOT NULL,
crmacct_name text,
crmacct_active boolean DEFAULT true,
crmacct_type character(1),
crmacct_cust_id integer,
crmacct_competitor_id integer,
crmacct_partner_id integer,
crmacct_prospect_id integer,
crmacct_vend_id integer,
crmacct_cntct_id_1 integer,
crmacct_cntct_id_2 integer,
crmacct_parent_id integer,
crmacct_notes text,
crmacct_taxauth_id integer,
crmacct_owner_username text,
crmacct_emp_id integer,
crmacct_salesrep_id integer,
crmacct_usr_username text,
CONSTRAINT crmacct_crmacct_number_check CHECK ((crmacct_number <> ''::text)),
CONSTRAINT crmacct_crmacct_type_check CHECK ((crmacct_type = ANY (ARRAY['I'::bpchar, 'O'::bpchar]))),
CONSTRAINT crmacct_crmacct_usr_username_check CHECK ((btrim(crmacct_usr_username) <> ''::text)),
CONSTRAINT crmacct_owner_username_check CHECK ((btrim(crmacct_owner_username) <> ''::text))
);
ALTER TABLE public.crmacct OWNER TO admin;
--
-- Name: TABLE crmacct; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE crmacct IS 'CRM Accounts are umbrella records that tie together people and organizations with whom we have business relationships.';
--
-- Name: COLUMN crmacct.crmacct_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_id IS 'Internal ID of this CRM Account.';
--
-- Name: COLUMN crmacct.crmacct_number; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_number IS 'Abbreviated human-readable identifier for this CRM Account.';
--
-- Name: COLUMN crmacct.crmacct_name; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_name IS 'Long name of this CRM Account.';
--
-- Name: COLUMN crmacct.crmacct_active; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_active IS 'This CRM Account is available for new activity.';
--
-- Name: COLUMN crmacct.crmacct_type; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_type IS 'This indicates whether the CRM Account represents an organization or an individual person.';
--
-- Name: COLUMN crmacct.crmacct_cust_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_cust_id IS 'If this is not null, this CRM Account is a Customer.';
--
-- Name: COLUMN crmacct.crmacct_competitor_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_competitor_id IS 'For now, > 0 indicates this CRM Account is a competitor. Eventually this may become a foreign key to a table of competitors.';
--
-- Name: COLUMN crmacct.crmacct_partner_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_partner_id IS 'For now, > 0 indicates this CRM Account is a partner. Eventually this may become a foreign key to a table of partners.';
--
-- Name: COLUMN crmacct.crmacct_prospect_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_prospect_id IS 'If this is not null, this CRM Account is a Prospect.';
--
-- Name: COLUMN crmacct.crmacct_vend_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_vend_id IS 'If this is not null, this CRM Account is a Vendor.';
--
-- Name: COLUMN crmacct.crmacct_cntct_id_1; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_cntct_id_1 IS 'The primary contact for the CRM Account.';
--
-- Name: COLUMN crmacct.crmacct_cntct_id_2; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_cntct_id_2 IS 'The secondary contact for the CRM Account.';
--
-- Name: COLUMN crmacct.crmacct_parent_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_parent_id IS 'The internal ID of an (optional) parent CRM Account. For example, if the current CRM Account is a subsidiary of another company, the crmacct_parent_id points to the CRM Account representing that parent company.';
--
-- Name: COLUMN crmacct.crmacct_notes; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_notes IS 'Free-form comments pertaining to the CRM Account.';
--
-- Name: COLUMN crmacct.crmacct_taxauth_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_taxauth_id IS 'If this is not null, this CRM Account is a Tax Authority.';
--
-- Name: COLUMN crmacct.crmacct_owner_username; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_owner_username IS 'The application User responsible for this CRM Account.';
--
-- Name: COLUMN crmacct.crmacct_emp_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_emp_id IS 'If this is not null, this CRM Account is an Employee.';
--
-- Name: COLUMN crmacct.crmacct_salesrep_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_salesrep_id IS 'If this is not null, this CRM Account is a Sales Rep.';
--
-- Name: COLUMN crmacct.crmacct_usr_username; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacct.crmacct_usr_username IS 'If this is not null, this CRM Account is an application User.';
--
-- Name: crmacct(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION crmacct() RETURNS SETOF crmacct
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_row crmacct%ROWTYPE;
_priv TEXT;
_grant BOOLEAN;
BEGIN
-- This query will give us the most permissive privilege the user has been granted
SELECT privilege, granted INTO _priv, _grant
FROM privgranted
WHERE privilege IN ('MaintainAllCRMAccounts','ViewAllCRMAccounts','MaintainPersonalCRMAccounts','ViewPersonalCRMAccounts')
ORDER BY granted DESC, sequence
LIMIT 1;
-- If have an 'All' privilege return all results
IF (_priv ~ 'All' AND _grant) THEN
FOR _row IN
SELECT * FROM crmacct
LOOP
RETURN NEXT _row;
END LOOP;
-- Otherwise if have any other grant, must be personal privilege.
ELSIF (_grant) THEN
FOR _row IN
SELECT * FROM crmacct
WHERE crmacct_owner_username = getEffectiveXtUser()
LOOP
RETURN NEXT _row;
END LOOP;
END IF;
RETURN;
END;
$$;
ALTER FUNCTION public.crmacct() OWNER TO admin;
--
-- Name: FUNCTION crmacct(); Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON FUNCTION crmacct() IS 'A table function that returns CRM Account results according to privilege settings.';
--
-- Name: crypt(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION crypt(text, text) RETURNS text
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pg_crypt';
ALTER FUNCTION public.crypt(text, text) OWNER TO admin;
--
-- Name: currconcat(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION currconcat(integer) RETURNS character varying
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
id ALIAS FOR $1;
returnVal VARCHAR(15) := '';
BEGIN
SELECT currConcat(curr_abbr, curr_symbol) INTO returnVal
FROM curr_symbol WHERE curr_id = id;
RETURN returnVal;
END;
$_$;
ALTER FUNCTION public.currconcat(integer) OWNER TO admin;
--
-- Name: currconcat(character varying, character varying); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION currconcat(character varying, character varying) RETURNS character varying
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
curr_abbr ALIAS FOR $1;
curr_symbol ALIAS FOR $2;
returnVal VARCHAR(15) := '';
BEGIN
IF length(trim(curr_abbr)) > 0 AND length(trim(curr_symbol)) > 0 THEN
returnVal := trim(curr_abbr) || ' - ' || trim(curr_symbol);
ELSIF length(trim(curr_abbr)) > 0 THEN
returnVal := curr_abbr;
ELSIF length(trim(curr_symbol)) > 0 THEN
returnVal := curr_symbol;
END IF;
RETURN returnVal;
END;
$_$;
ALTER FUNCTION public.currconcat(character varying, character varying) OWNER TO admin;
--
-- Name: currentapmemonumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION currentapmemonumber() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_number INTEGER;
BEGIN
SELECT orderseq_number INTO _number
FROM orderseq
WHERE (orderseq_name='APMemoNumber');
IF (NOT FOUND) THEN
_number := 0;
END IF;
RETURN _number;
END;
$$;
ALTER FUNCTION public.currentapmemonumber() OWNER TO admin;
--
-- Name: currentarmemonumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION currentarmemonumber() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_number INTEGER;
BEGIN
SELECT orderseq_number INTO _number
FROM orderseq
WHERE (orderseq_name='ARMemoNumber');
IF (NOT FOUND) THEN
_number := 0;
END IF;
RETURN _number;
END;
$$;
ALTER FUNCTION public.currentarmemonumber() OWNER TO admin;
--
-- Name: currentcashrcptnumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION currentcashrcptnumber() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_number INTEGER;
BEGIN
SELECT orderseq_number INTO _number
FROM orderseq
WHERE (orderseq_name='CashRcptNumber');
IF (NOT FOUND) THEN
_number := 0;
END IF;
RETURN _number;
END;
$$;
ALTER FUNCTION public.currentcashrcptnumber() OWNER TO admin;
--
-- Name: currentnumber(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION currentnumber(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pName ALIAS FOR $1;
_number INTEGER;
BEGIN
SELECT orderseq_number INTO _number
FROM orderseq
WHERE (orderseq_name=pName);
IF (NOT FOUND) THEN
_number := 0;
END IF;
RETURN _number;
END;
$_$;
ALTER FUNCTION public.currentnumber(text) OWNER TO admin;
--
-- Name: currexchangecheckoverlap(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION currexchangecheckoverlap() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
numberOfOverlaps INTEGER NOT NULL := 0;
curr_string VARCHAR(16);
new_id INTEGER;
BEGIN
new_id := NEW.curr_id;
-- ensure that effective date <= expiration date
IF NEW.curr_effective > NEW.curr_expires THEN
RAISE EXCEPTION
'Effective date % must be earlier than expiration date %',
NEW.curr_effective, NEW.curr_expires;
END IF;
-- ensure new exchange rate does not overlap in time with any others
SELECT count(*) INTO numberOfOverlaps
FROM curr_rate
WHERE curr_id = NEW.curr_id
AND curr_rate_id != NEW.curr_rate_id
AND (
(curr_effective BETWEEN
NEW.curr_effective AND NEW.curr_expires OR
curr_expires BETWEEN
NEW.curr_effective AND NEW.curr_expires)
OR (curr_effective <= NEW.curr_effective AND
curr_expires >= NEW.curr_expires)
);
IF numberOfOverlaps > 0 THEN
SELECT currConcat(curr_symbol, curr_abbr)
INTO curr_string
FROM curr_symbol
WHERE curr_id = new_id;
RAISE EXCEPTION
'The date range % to % overlaps with another date range.',
NEW.curr_effective, NEW.curr_expires;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public.currexchangecheckoverlap() OWNER TO admin;
--
-- Name: currgain(integer, numeric, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION currgain(integer, numeric, date, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pId ALIAS FOR $1;
pValue ALIAS FOR $2;
pStart ALIAS FOR $3;
pEnd ALIAS FOR $4;
_start DATE;
_end DATE;
_gain NUMERIC;
_multiplier INTEGER := 1;
BEGIN
IF (pEnd = pStart OR pValue = 0) THEN
RETURN 0;
END IF;
IF (pStart > pEnd) THEN
_start := pEnd;
_end := pStart;
_multiplier := -1;
ELSE
_start := pStart;
_end := pEnd;
END IF;
_gain := currToBase(pId, pValue, _start) - currToBase(pId, pValue, _end);
IF (_gain IS NULL) THEN
RAISE EXCEPTION 'Missing exchange rate for curr_id % on % or %',
pId, _start, _end;
END IF;
RETURN _gain * _multiplier;
END;
$_$;
ALTER FUNCTION public.currgain(integer, numeric, date, date) OWNER TO admin;
--
-- Name: curronebase(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION curronebase() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
baseCount INTEGER := 0;
BEGIN
IF NEW.curr_base = TRUE THEN
SELECT count(*)
INTO baseCount
FROM curr_symbol
WHERE curr_base = TRUE
AND curr_id != NEW.curr_id;
IF baseCount > 0 THEN
RAISE EXCEPTION
'Cannot make % - % the base currency because one is already defined.',
NEW.curr_symbol, NEW.curr_abbr;
ELSE
SELECT count(*)
INTO baseCount
FROM curr_rate
WHERE curr_id = NEW.curr_id;
IF baseCount = 0 THEN
-- put a row in the curr_rate table to avoid special-case
-- code for converting base currency to base currency
INSERT INTO curr_rate
(curr_id, curr_rate, curr_effective, curr_expires) VALUES
(NEW.curr_id, 1, startOfTime(), endOfTime());
END IF;
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public.curronebase() OWNER TO admin;
--
-- Name: currrate(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION currrate(integer, date) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN currRate($1, NULL, $2);
END;
$_$;
ALTER FUNCTION public.currrate(integer, date) OWNER TO admin;
--
-- Name: currrate(integer, integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION currrate(pfromcurr integer, ptocurr integer, pdate date) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_fromRate NUMERIC := 1.0;
_toRate NUMERIC := 1.0;
_returnVal NUMERIC := 1.0;
BEGIN
IF pFromCurr = pToCurr THEN
RETURN _returnVal;
END IF;
IF (pFromCurr IS NOT NULL) THEN
SELECT curr_rate INTO _fromRate
FROM curr_rate
WHERE ( (curr_id=pFromCurr)
AND (pDate BETWEEN curr_effective AND curr_expires) );
IF ( NOT FOUND) THEN
RAISE EXCEPTION 'Currency exchange rate for currency % not found on %', pFromCurr, formatDate(pDate);
END IF;
END IF;
IF (pToCurr IS NOT NULL) THEN
SELECT curr_rate INTO _toRate
FROM curr_rate
WHERE ( (curr_id=pToCurr)
AND (pDate BETWEEN curr_effective AND curr_expires) );
IF ( NOT FOUND) THEN
RAISE EXCEPTION 'Currency exchange rate for currency % not found on %', pToCurr, formatDate(pDate);
END IF;
END IF;
_returnVal := _fromRate / _toRate;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.currrate(pfromcurr integer, ptocurr integer, pdate date) OWNER TO admin;
--
-- Name: currtobase(integer, numeric, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION currtobase(integer, numeric, date) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pId ALIAS FOR $1;
pValue ALIAS FOR $2;
_date DATE;
_output NUMERIC;
BEGIN
_date := $3;
IF _date IS NULL THEN
_date := 'now';
END IF;
IF pValue = 0 OR pValue IS NULL THEN
_output := 0;
ELSIF (baseCurrId() = pId) THEN
_output := pValue;
ELSE
SELECT pValue / curr_rate
INTO _output
FROM curr_rate
WHERE curr_id = pId
AND _date BETWEEN curr_effective AND curr_expires;
IF (_output IS NULL OR NOT FOUND) THEN
RAISE EXCEPTION 'No exchange rate for % on %', pId, _date;
END IF;
END IF;
RETURN _output;
END;
$_$;
ALTER FUNCTION public.currtobase(integer, numeric, date) OWNER TO admin;
--
-- Name: currtocurr(integer, integer, numeric, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION currtocurr(integer, integer, numeric, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFromCurr ALIAS FOR $1;
pToCurr ALIAS FOR $2;
pValue ALIAS FOR $3;
pEffective ALIAS FOR $4;
_convertedValue NUMERIC;
_fromRate NUMERIC;
_toRate NUMERIC;
BEGIN
IF pFromCurr = pToCurr THEN
RETURN pValue;
END IF;
IF pValue = 0 OR pValue IS NULL THEN
RETURN 0;
END IF;
SELECT curr_rate INTO _fromRate
FROM curr_rate
WHERE curr_id = pFromCurr
AND pEffective BETWEEN curr_effective AND curr_expires;
IF (NOT FOUND) THEN
RAISE EXCEPTION 'No exchange rate for % on %', pFromCurr, pEffective;
END IF;
SELECT curr_rate INTO _toRate
FROM curr_rate
WHERE curr_id = pToCurr
AND pEffective BETWEEN curr_effective AND curr_expires;
IF (NOT FOUND) THEN
RAISE EXCEPTION 'No exchange rate for % on %', pToCurr, pEffective;
END IF;
_convertedValue := pValue * _toRate / _fromRate;
RETURN _convertedValue;
END;
$_$;
ALTER FUNCTION public.currtocurr(integer, integer, numeric, date) OWNER TO admin;
--
-- Name: currtolocal(integer, numeric, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION currtolocal(integer, numeric, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pId ALIAS FOR $1;
pValue ALIAS FOR $2;
_date DATE;
_output NUMERIC;
BEGIN
_date := $3;
IF _date IS NULL THEN
_date := 'now';
END IF;
IF pValue = 0 OR pValue IS NULL THEN
_output := 0;
ELSIF (baseCurrId() = pId) THEN
_output := pValue;
ELSE
SELECT pValue * curr_rate
INTO _output
FROM curr_rate
WHERE curr_id = pId
AND _date BETWEEN curr_effective AND curr_expires;
IF (_output IS NULL OR NOT FOUND) THEN
RAISE EXCEPTION 'No exchange rate for % on %', pId, _date;
END IF;
END IF;
RETURN _output;
END;
$_$;
ALTER FUNCTION public.currtolocal(integer, numeric, date) OWNER TO admin;
--
-- Name: custitem(integer, integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION custitem(cust_id integer, shipto_id integer DEFAULT (-1), asof date DEFAULT ('now'::text)::date) RETURNS SETOF integer
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
-- Non Exclusive
SELECT item_id
FROM item
WHERE (NOT item_exclusive)
AND (item_sold)
UNION
-- Exclusive, Shipto match
SELECT item_id
FROM item
JOIN ipsiteminfo ON (ipsitem_item_id=item_id)
JOIN ipshead ON (ipshead_id=ipsitem_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
WHERE (item_exclusive)
AND (item_sold)
AND ($2 != -1)
AND (ipsass_shipto_id=$2)
AND ($3 BETWEEN ipshead_effective AND (ipshead_expires - 1))
UNION
SELECT item_id
FROM item
JOIN ipsiteminfo ON (ipsitem_prodcat_id=item_prodcat_id)
JOIN ipshead ON (ipshead_id=ipsitem_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
WHERE (item_exclusive)
AND (item_sold)
AND ($2 != -1)
AND (ipsass_shipto_id=$2)
AND ($3 BETWEEN ipshead_effective AND (ipshead_expires - 1))
UNION
-- Exclusive, Shipto pattern match
SELECT item_id
FROM item
JOIN ipsiteminfo ON (ipsitem_item_id=item_id)
JOIN ipshead ON (ipshead_id=ipsitem_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
JOIN shiptoinfo ON (shipto_num ~ ipsass_shipto_pattern)
WHERE (item_exclusive)
AND (item_sold)
AND (COALESCE(length(ipsass_shipto_pattern), 0) > 0)
AND (ipsass_cust_id=$1)
AND ($2 != -1)
AND (shipto_id=$2)
AND ($3 BETWEEN ipshead_effective AND (ipshead_expires - 1))
UNION
SELECT item_id
FROM item
JOIN ipsiteminfo ON (ipsitem_prodcat_id=item_prodcat_id)
JOIN ipshead ON (ipshead_id=ipsitem_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
JOIN shiptoinfo ON (shipto_num ~ ipsass_shipto_pattern)
WHERE (item_exclusive)
AND (item_sold)
AND (COALESCE(length(ipsass_shipto_pattern), 0) > 0)
AND (ipsass_cust_id=$1)
AND ($2 != -1)
AND (shipto_id=$2)
AND ($3 BETWEEN ipshead_effective AND (ipshead_expires - 1))
UNION
-- Exclusive, Customer match
SELECT item_id
FROM item
JOIN ipsiteminfo ON (ipsitem_item_id=item_id)
JOIN ipshead ON (ipshead_id=ipsitem_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
WHERE (item_exclusive)
AND (item_sold)
AND (ipsass_cust_id=$1)
AND (ipsass_shipto_id=-1)
AND (ipsass_shipto_pattern='')
AND (ipsass_custtype_id=-1)
AND (ipsass_custtype_pattern='')
AND ($3 BETWEEN ipshead_effective AND (ipshead_expires - 1))
UNION
SELECT item_id
FROM item
JOIN ipsiteminfo ON (ipsitem_prodcat_id=item_prodcat_id)
JOIN ipshead ON (ipshead_id=ipsitem_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
WHERE (item_exclusive)
AND (item_sold)
AND (ipsass_cust_id=$1)
AND (ipsass_shipto_id=-1)
AND (ipsass_shipto_pattern='')
AND (ipsass_custtype_id=-1)
AND (ipsass_custtype_pattern='')
AND ($3 BETWEEN ipshead_effective AND (ipshead_expires - 1))
UNION
-- Exclusive, Customer Type match
SELECT item_id
FROM item
JOIN ipsiteminfo ON (ipsitem_item_id=item_id)
JOIN ipshead ON (ipshead_id=ipsitem_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
JOIN custinfo ON (ipsass_custtype_id=cust_custtype_id)
WHERE (item_exclusive)
AND (item_sold)
AND (cust_id=$1)
AND ($3 BETWEEN ipshead_effective AND (ipshead_expires - 1))
UNION
SELECT item_id
FROM item
JOIN ipsiteminfo ON (ipsitem_prodcat_id=item_prodcat_id)
JOIN ipshead ON (ipshead_id=ipsitem_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
JOIN custinfo ON (ipsass_custtype_id=cust_custtype_id)
WHERE (item_exclusive)
AND (item_sold)
AND (cust_id=$1)
AND ($3 BETWEEN ipshead_effective AND (ipshead_expires - 1))
UNION
-- Exclusive, Customer Type pattern match
SELECT item_id
FROM item
JOIN ipsiteminfo ON (ipsitem_item_id=item_id)
JOIN ipshead ON (ipshead_id=ipsitem_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
JOIN custtype ON (custtype_code ~ ipsass_custtype_pattern)
JOIN custinfo ON (cust_custtype_id=custtype_id)
WHERE (item_exclusive)
AND (item_sold)
AND (COALESCE(length(ipsass_custtype_pattern), 0) > 0)
AND (cust_id=$1)
AND ($3 BETWEEN ipshead_effective AND (ipshead_expires - 1))
UNION
SELECT item_id
FROM item
JOIN ipsiteminfo ON (ipsitem_prodcat_id=item_prodcat_id)
JOIN ipshead ON (ipshead_id=ipsitem_ipshead_id)
JOIN ipsass ON (ipsass_ipshead_id=ipshead_id)
JOIN custtype ON (custtype_code ~ ipsass_custtype_pattern)
JOIN custinfo ON (cust_custtype_id=custtype_id)
WHERE (item_exclusive)
AND (item_sold)
AND (COALESCE(length(ipsass_custtype_pattern), 0) > 0)
AND (cust_id=$1)
AND ($3 BETWEEN ipshead_effective AND (ipshead_expires - 1))
$_$;
ALTER FUNCTION public.custitem(cust_id integer, shipto_id integer, asof date) OWNER TO admin;
--
-- Name: customercanpurchase(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION customercanpurchase(integer, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pitemid ALIAS FOR $1;
pCustid ALIAS FOR $2;
BEGIN
RETURN customerCanPurchase(pitemid, pCustid, -1);
END;
$_$;
ALTER FUNCTION public.customercanpurchase(integer, integer) OWNER TO admin;
--
-- Name: customercanpurchase(integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION customercanpurchase(integer, integer, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pitemid ALIAS FOR $1;
pCustid ALIAS FOR $2;
pShiptoid AlIAS FOR $3;
_id INTEGER;
_item RECORD;
BEGIN
RETURN customerCanPurchase(pitemid, pCustid, pShiptoid, CURRENT_DATE);
END;
$_$;
ALTER FUNCTION public.customercanpurchase(integer, integer, integer) OWNER TO admin;
--
-- Name: customercanpurchase(integer, integer, integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION customercanpurchase(integer, integer, integer, date) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pitemid ALIAS FOR $1;
pCustid ALIAS FOR $2;
pShiptoid AlIAS FOR $3;
pAsOf ALIAS FOR $4;
_id INTEGER;
_item RECORD;
BEGIN
SELECT item_sold, item_exclusive
INTO _item
FROM item
WHERE(item_id=pItemid);
-- Make sure that this is at least a sold Item
IF (NOT _item.item_sold) THEN
RETURN FALSE;
END IF;
-- Everyone can purchase a non-exclusive item
IF (NOT _item.item_exclusive) THEN
RETURN TRUE;
END IF;
IF(pShiptoid != -1) THEN
-- Check for a shipto Assigned Price
SELECT ipsitem_id INTO _id
FROM ipsiteminfo, ipshead, ipsass
WHERE((ipsitem_ipshead_id=ipshead_id)
AND (ipsass_ipshead_id=ipshead_id)
AND (pAsOf BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (ipsitem_item_id=pItemid)
AND (ipsass_shipto_id != -1)
AND (ipsass_shipto_id=pShiptoid))
LIMIT 1;
IF (FOUND) THEN
RETURN TRUE;
END IF;
SELECT ipsitem_id INTO _id
FROM ipsiteminfo, item, ipshead, ipsass
WHERE((ipsitem_ipshead_id=ipshead_id)
AND (ipsitem_prodcat_id = item_prodcat_id)
AND (ipsass_ipshead_id=ipshead_id)
AND (pAsOf BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (item_id=pItemid)
AND (ipsass_shipto_id != -1)
AND (ipsass_shipto_id=pShiptoid))
LIMIT 1;
IF (FOUND) THEN
RETURN TRUE;
END IF;
-- Check for a Shipto Pattern Assigned Price
SELECT ipsitem_id INTO _id
FROM ipsiteminfo, ipshead, ipsass, shiptoinfo
WHERE((ipsitem_ipshead_id=ipshead_id)
AND (ipsass_ipshead_id=ipshead_id)
AND (pAsOf BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (COALESCE(length(ipsass_shipto_pattern), 0) > 0)
AND (shipto_num ~ ipsass_shipto_pattern)
AND (ipsass_cust_id=pCustid)
AND (ipsitem_item_id=pItemid)
AND (shipto_id=pShiptoid))
LIMIT 1;
IF (FOUND) THEN
RETURN TRUE;
END IF;
SELECT ipsitem_id INTO _id
FROM ipsiteminfo, item, ipshead, ipsass, shiptoinfo
WHERE((ipsitem_ipshead_id=ipshead_id)
AND (ipsitem_prodcat_id = item_prodcat_id)
AND (ipsass_ipshead_id=ipshead_id)
AND (pAsOf BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (COALESCE(length(ipsass_shipto_pattern), 0) > 0)
AND (shipto_num ~ ipsass_shipto_pattern)
AND (ipsass_cust_id=pCustid)
AND (item_id=pItemid)
AND (shipto_id=pShiptoid))
LIMIT 1;
IF (FOUND) THEN
RETURN TRUE;
END IF;
END IF;
-- Check for a Customer Assigned Price
SELECT ipsitem_id INTO _id
FROM ipsiteminfo, ipshead, ipsass
WHERE((ipsitem_ipshead_id=ipshead_id)
AND (ipsass_ipshead_id=ipshead_id)
AND (pAsOf BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (ipsitem_item_id=pItemid)
AND (COALESCE(length(ipsass_shipto_pattern), 0) = 0)
AND (ipsass_cust_id=pCustid))
LIMIT 1;
IF (FOUND) THEN
RETURN TRUE;
END IF;
SELECT ipsitem_id INTO _id
FROM ipsiteminfo, item, ipshead, ipsass
WHERE((ipsitem_ipshead_id=ipshead_id)
AND (ipsitem_prodcat_id = item_prodcat_id)
AND (ipsass_ipshead_id=ipshead_id)
AND (pAsOf BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (item_id=pItemid)
AND (COALESCE(length(ipsass_shipto_pattern), 0) = 0)
AND (ipsass_cust_id=pCustid))
LIMIT 1;
IF (FOUND) THEN
RETURN TRUE;
END IF;
-- Check for a Customer Type Assigned Price
SELECT ipsitem_id INTO _id
FROM ipsiteminfo, ipshead, ipsass, custinfo
WHERE( (ipsitem_ipshead_id=ipshead_id)
AND (ipsass_ipshead_id=ipshead_id)
AND (ipsass_custtype_id != -1)
AND (cust_custtype_id = ipsass_custtype_id)
AND (pAsOf BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (ipsitem_item_id=pItemid)
AND (cust_id=pCustid))
LIMIT 1;
IF (FOUND) THEN
RETURN TRUE;
END IF;
SELECT ipsitem_id INTO _id
FROM ipsiteminfo, item, ipshead, ipsass, custinfo
WHERE( (ipsitem_ipshead_id=ipshead_id)
AND (ipsitem_prodcat_id = item_prodcat_id)
AND (ipsass_ipshead_id=ipshead_id)
AND (ipsass_custtype_id != -1)
AND (cust_custtype_id = ipsass_custtype_id)
AND (pAsOf BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (item_id=pItemid)
AND (cust_id=pCustid))
LIMIT 1;
IF (FOUND) THEN
RETURN TRUE;
END IF;
-- Check for a Customer Type Pattern Assigned Price
SELECT ipsitem_id INTO _id
FROM ipsiteminfo, ipshead, ipsass, custtype, custinfo
WHERE((ipsitem_ipshead_id=ipshead_id)
AND (ipsass_ipshead_id=ipshead_id)
AND (coalesce(length(ipsass_custtype_pattern), 0) > 0)
AND (custtype_code ~ ipsass_custtype_pattern)
AND (cust_custtype_id=custtype_id)
AND (pAsOf BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (ipsitem_item_id=pItemid)
AND (cust_id=pCustid))
LIMIT 1;
IF (FOUND) THEN
RETURN TRUE;
END IF;
SELECT ipsitem_id INTO _id
FROM ipsiteminfo, item, ipshead, ipsass, custtype, custinfo
WHERE((ipsitem_ipshead_id=ipshead_id)
AND (ipsitem_prodcat_id = item_prodcat_id)
AND (ipsass_ipshead_id=ipshead_id)
AND (coalesce(length(ipsass_custtype_pattern), 0) > 0)
AND (custtype_code ~ ipsass_custtype_pattern)
AND (cust_custtype_id=custtype_id)
AND (pAsOf BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (item_id=pItemid)
AND (cust_id=pCustid))
LIMIT 1;
IF (FOUND) THEN
RETURN TRUE;
END IF;
-- That's it, Sales don't count - yet
RETURN FALSE;
END;
$_$;
ALTER FUNCTION public.customercanpurchase(integer, integer, integer, date) OWNER TO admin;
--
-- Name: dearmor(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION dearmor(text) RETURNS bytea
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pg_dearmor';
ALTER FUNCTION public.dearmor(text) OWNER TO admin;
--
-- Name: decrypt(bytea, bytea, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION decrypt(bytea, bytea, text) RETURNS bytea
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pg_decrypt';
ALTER FUNCTION public.decrypt(bytea, bytea, text) OWNER TO admin;
--
-- Name: decrypt_iv(bytea, bytea, bytea, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION decrypt_iv(bytea, bytea, bytea, text) RETURNS bytea
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pg_decrypt_iv';
ALTER FUNCTION public.decrypt_iv(bytea, bytea, bytea, text) OWNER TO admin;
--
-- Name: defaultlocationname(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION defaultlocationname(integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
_p RECORD;
BEGIN
SELECT itemsite_location_id, itemsite_location INTO _p
FROM itemsite
WHERE (itemsite_id=pItemsiteid);
IF (NOT FOUND) THEN
RETURN 'Error';
ELSIF (_p.itemsite_location_id = -1) THEN
RETURN _p.itemsite_location;
ELSE
RETURN formatLocationName(_p.itemsite_location_id);
END IF;
END;
$_$;
ALTER FUNCTION public.defaultlocationname(integer) OWNER TO admin;
--
-- Name: deleteaccount(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteaccount(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAccntid ALIAS FOR $1;
_check INTEGER;
BEGIN
-- Check to see if the passed accnt is used in a Cost Category
SELECT costcat_id INTO _check
FROM costcat
WHERE ( (costcat_asset_accnt_id=pAccntid)
OR (costcat_liability_accnt_id=pAccntid)
OR (costcat_adjustment_accnt_id=pAccntid)
OR (costcat_purchprice_accnt_id=pAccntid)
OR (costcat_laboroverhead_accnt_id=pAccntid)
OR (costcat_scrap_accnt_id=pAccntid)
OR (costcat_invcost_accnt_id=pAccntid)
OR (costcat_wip_accnt_id=pAccntid)
OR (costcat_shipasset_accnt_id=pAccntid)
OR (costcat_mfgscrap_accnt_id=pAccntid)
OR (costcat_transform_accnt_id=pAccntid)
OR (costcat_freight_accnt_id=pAccntid) )
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
-- Check to see if the passed accnt is used in a Sales Account Assignment
SELECT salesaccnt_id INTO _check
FROM salesaccnt
WHERE ( (salesaccnt_sales_accnt_id=pAccntid)
OR (salesaccnt_credit_accnt_id=pAccntid)
OR (salesaccnt_cos_accnt_id=pAccntid) )
LIMIT 1;
IF (FOUND) THEN
RETURN -2;
END IF;
-- Check to see if the passed accnt is used in a A/R Account Assignment
SELECT araccnt_id INTO _check
FROM araccnt
WHERE ( (araccnt_freight_accnt_id=pAccntid)
OR (araccnt_ar_accnt_id=pAccntid)
OR (araccnt_prepaid_accnt_id=pAccntid) )
LIMIT 1;
IF (FOUND) THEN
RETURN -3;
END IF;
-- Check to see if the passed accnt is used in a Warehouse
IF EXISTS (SELECT 1
FROM whsinfo
WHERE (warehous_default_accnt_id=pAccntid)) THEN
RETURN -4;
END IF;
-- Check to see if the passed accnt is used in a Bank Account
SELECT bankaccnt_id INTO _check
FROM bankaccnt
WHERE (bankaccnt_accnt_id=pAccntid)
LIMIT 1;
IF (FOUND) THEN
RETURN -5;
END IF;
-- Check to see if the passed accnt is used in an Expense Category
SELECT expcat_id INTO _check
FROM expcat
WHERE ( (expcat_exp_accnt_id=pAccntid)
OR (expcat_liability_accnt_id=pAccntid)
OR (expcat_purchprice_accnt_id=pAccntid)
OR (expcat_freight_accnt_id=pAccntid) )
LIMIT 1;
IF (FOUND) THEN
RETURN -6;
END IF;
-- Check to see if the passed accnt is used in a Tax Code
SELECT tax_id INTO _check
FROM tax
WHERE (tax_sales_accnt_id=pAccntid)
LIMIT 1;
IF (FOUND) THEN
RETURN -7;
END IF;
-- Check to see if the passed accnt is used in a Standard Journal Item
SELECT stdjrnlitem_id INTO _check
FROM stdjrnlitem
WHERE (stdjrnlitem_accnt_id=pAccntid)
LIMIT 1;
IF (FOUND) THEN
RETURN -8;
END IF;
-- Check to see if the passed accnt is used in a A/P Account Assignment
SELECT apaccnt_ap_accnt_id INTO _check
FROM apaccnt
WHERE ( (apaccnt_ap_accnt_id=pAccntid)
OR (apaccnt_prepaid_accnt_id=pAccntid)
OR (apaccnt_discount_accnt_id=pAccntid) )
LIMIT 1;
IF (FOUND) THEN
RETURN -9;
END IF;
-- Check to see if the passed accnt is used in an A/R Open Item record
SELECT aropen_accnt_id INTO _check
FROM aropen
WHERE (aropen_accnt_id=pAccntid)
LIMIT 1;
IF (FOUND) THEN
RETURN -11;
END IF;
-- Check to see if the passed accnt has been used in the G/L
SELECT gltrans_accnt_id INTO _check
FROM gltrans
WHERE (gltrans_accnt_id=pAccntid)
LIMIT 1;
IF (FOUND) THEN
RETURN -99;
END IF;
SELECT glseries_accnt_id INTO _check
FROM glseries
WHERE (glseries_accnt_id=pAccntid)
LIMIT 1;
IF (FOUND) THEN
RETURN -99;
END IF;
SELECT trialbal_accnt_id INTO _check
FROM trialbal
WHERE (trialbal_accnt_id=pAccntid)
AND (trialbal_beginning != 0 OR trialbal_ending != 0)
LIMIT 1;
IF (FOUND) THEN
RETURN -99;
END IF;
SELECT cashrcptmisc_accnt_id INTO _check
FROM cashrcptmisc
WHERE (cashrcptmisc_accnt_id=pAccntid)
LIMIT 1;
IF (FOUND) THEN
RETURN -99;
END IF;
-- Delete any non-critical use
DELETE FROM flitem
WHERE (flitem_accnt_id=pAccntid);
-- only possible because of trialbal error-check above
DELETE FROM trialbal
WHERE (trialbal_accnt_id=pAccntid)
AND (trialbal_beginning=0)
AND (trialbal_ending=0);
-- Delete the Account
DELETE FROM accnt
WHERE (accnt_id=pAccntid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deleteaccount(integer) OWNER TO admin;
--
-- Name: deleteaccountingperiod(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteaccountingperiod(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPeriodid ALIAS FOR $1;
_check RECORD;
BEGIN
-- Check to make sure that the passed period is not closed
IF ( ( SELECT period_closed
FROM period
WHERE (period_id=pPeriodid) ) ) THEN
RETURN -1;
END IF;
-- Check to make sure that there are not any posted G/L Transactions
-- in the period.
SELECT gltrans_id INTO _check
FROM gltrans, period
WHERE ( (gltrans_date BETWEEN period_start AND period_end)
AND (gltrans_posted)
AND (period_id=pPeriodid) )
LIMIT 1;
IF (FOUND) THEN
RETURN -4;
END IF;
SELECT b.period_id INTO _check
FROM period AS a, period AS b
WHERE((a.period_id=pPeriodid)
AND (a.period_end < b.period_start))
LIMIT 1;
IF (FOUND) THEN
RETURN -5;
END IF;
-- Delete the period
DELETE FROM period
WHERE (period_id=pPeriodid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.deleteaccountingperiod(integer) OWNER TO admin;
--
-- Name: deleteaccountingyearperiod(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteaccountingyearperiod(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPeriodid ALIAS FOR $1;
_check RECORD;
BEGIN
-- Check to make sure that the passed yearperiod is not closed
IF ( ( SELECT yearperiod_closed
FROM yearperiod
WHERE (yearperiod_id=pPeriodid) ) ) THEN
RETURN -1;
END IF;
-- this yearperiod is in use by existing periods
IF (EXISTS(SELECT period_id
FROM period
WHERE (period_yearperiod_id=pPeriodid))) THEN
RETURN -2;
END IF;
-- Delete the yearperiod
DELETE FROM yearperiod
WHERE (yearperiod_id=pPeriodid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.deleteaccountingyearperiod(integer) OWNER TO admin;
--
-- Name: deleteaddress(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteaddress(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
paddrId ALIAS FOR $1;
_count INTEGER := 0;
BEGIN
SELECT count(*) INTO _count
FROM cntct
WHERE (cntct_active
AND (cntct_addr_id = paddrId));
IF (_count > 0) THEN
RETURN -1;
END IF;
SELECT count(*) INTO _count
FROM vendinfo
WHERE (vend_active
AND (vend_addr_id = paddrId));
IF (_count > 0) THEN
RETURN -2;
END IF;
SELECT count(*) INTO _count
FROM shiptoinfo
WHERE (shipto_active
AND (shipto_addr_id = paddrId));
IF (_count > 0) THEN
RETURN -3;
END IF;
SELECT count(*) INTO _count
FROM vendaddrinfo
WHERE (vendaddr_addr_id = paddrId);
IF (_count > 0) THEN
RETURN -4;
END IF;
SELECT count(*) INTO _count
FROM whsinfo
WHERE (warehous_active
AND (warehous_addr_id = paddrId));
IF (_count > 0) THEN
RETURN -5;
END IF;
UPDATE cntct SET cntct_addr_id = NULL WHERE (cntct_addr_id = paddrId);
UPDATE vendinfo SET vend_addr_id = NULL WHERE (vend_addr_id = paddrId);
UPDATE shiptoinfo SET shipto_addr_id = NULL WHERE (shipto_addr_id =paddrId);
UPDATE vendaddrinfo SET vendaddr_addr_id = NULL
WHERE (vendaddr_addr_id = paddrId);
UPDATE whsinfo SET warehous_addr_id = NULL WHERE (warehous_addr_id=paddrId);
DELETE FROM addr WHERE addr_id = paddrId;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deleteaddress(integer) OWNER TO admin;
--
-- Name: deleteapcheck(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteapcheck(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'deleteAPCheck() is deprecated - use deleteCheck() instead';
RETURN deleteCheck($1);
END;
$_$;
ALTER FUNCTION public.deleteapcheck(integer) OWNER TO admin;
--
-- Name: deletebankadjustmenttype(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletebankadjustmenttype(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBankadjtypeid ALIAS FOR $1;
_check INTEGER;
BEGIN
-- Check to see if the the adjustment type is being used in any adjustments
SELECT bankadj_bankadjtype_id INTO _check
FROM bankadj
WHERE (bankadj_bankadjtype_id=pBankadjtypeid)
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
-- Delete the Account
DELETE FROM bankadjtype
WHERE (bankadjtype_id=pbankadjtypeid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deletebankadjustmenttype(integer) OWNER TO admin;
--
-- Name: deletebankreconciliation(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletebankreconciliation(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pbankrecid ALIAS FOR $1;
BEGIN
DELETE FROM bankrecitem
WHERE bankrecitem_bankrec_id=pbankrecid;
DELETE FROM bankrec
WHERE bankrec_id=pbankrecid;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deletebankreconciliation(integer) OWNER TO admin;
--
-- Name: deletebom(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletebom(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
_result INTEGER;
BEGIN
IF (fetchmetricbool('RevControl')) THEN
SELECT rev_id INTO _result
FROM rev
WHERE ((rev_target_id=pItemid)
AND (rev_target_type = 'BOM'))
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Bill of Materials has revision control records and may not be deleted.';
END IF;
END IF;
DELETE FROM bomhead
WHERE (bomhead_item_id=pItemid);
DELETE FROM bomitem
WHERE (bomitem_parent_item_id=pItemid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deletebom(integer) OWNER TO admin;
--
-- Name: deletebomworkset(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletebomworkset(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWorksetid ALIAS FOR $1;
BEGIN
-- All done with the bomwork set indicated by pWorksetid, delete all of it
DELETE FROM bomwork
WHERE (bomwork_set_id=pWorksetid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.deletebomworkset(integer) OWNER TO admin;
--
-- Name: deletebudget(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletebudget(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBudgheadid ALIAS FOR $1;
BEGIN
DELETE FROM budgitem WHERE (budgitem_budghead_id=pBudgheadid);
DELETE FROM budghead WHERE (budghead_id=pBudgheadid);
RETURN pBudgheadid;
END;
$_$;
ALTER FUNCTION public.deletebudget(integer) OWNER TO admin;
--
-- Name: deletebudgetitems(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletebudgetitems(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBudgheadid ALIAS FOR $1;
BEGIN
DELETE FROM budgitem WHERE (budgitem_budghead_id=pBudgheadid);
RETURN pBudgheadid;
END;
$_$;
ALTER FUNCTION public.deletebudgetitems(integer) OWNER TO admin;
--
-- Name: deletecashrcpt(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletecashrcpt(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pcashrcptid ALIAS FOR $1;
_ccreceipt BOOLEAN;
BEGIN
IF EXISTS(SELECT cashrcpt_id
FROM cashrcpt
JOIN ccpay ON (cashrcpt_cust_id=ccpay_cust_id)
AND ((CASE WHEN TRIM(COALESCE(cashrcpt_docnumber, ''))='' THEN TEXT(cashrcpt_id)
ELSE cashrcpt_docnumber
END)=ccpay_order_number)
WHERE ((cashrcpt_fundstype IN ('A', 'D', 'M', 'V'))
AND (ccpay_status NOT IN ('D', 'X'))
AND (ccpay_id NOT IN (SELECT payco_ccpay_id FROM payco))
AND (cashrcpt_id=pcashrcptid))) THEN
RETURN -1;
END IF;
IF EXISTS(SELECT cashrcpt_id
FROM cashrcpt
WHERE ( (cashrcpt_id=pcashrcptid)
AND (cashrcpt_posted) )) THEN
RETURN -2;
END IF;
-- If there are applications for this Cash Receipt then
-- it has been posted and reversed. Void instead of delete.
IF EXISTS(SELECT cashrcpt_id
FROM cashrcpt JOIN cashrcptitem ON (cashrcptitem_cashrcpt_id=cashrcpt_id)
JOIN arapply ON ((arapply_reftype='CRA') AND
(arapply_ref_id=cashrcptitem_id))
WHERE (cashrcpt_id=pcashrcptid))
OR
EXISTS(SELECT cashrcpt_id
FROM cashrcpt JOIN cashrcptmisc ON (cashrcptmisc_cashrcpt_id=cashrcpt_id)
JOIN arapply ON ((arapply_reftype='CRD') AND
(arapply_ref_id=cashrcptmisc_id))
WHERE (cashrcpt_id=pcashrcptid)) THEN
UPDATE cashrcpt SET cashrcpt_void = TRUE
WHERE (cashrcpt_id=pcashrcptid);
RETURN 1;
END IF;
DELETE FROM cashrcptitem
WHERE (cashrcptitem_cashrcpt_id=pcashrcptid);
DELETE FROM cashrcptmisc
WHERE (cashrcptmisc_cashrcpt_id=pcashrcptid);
DELETE FROM cashrcpt
WHERE (cashrcpt_id=pcashrcptid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.deletecashrcpt(integer) OWNER TO admin;
--
-- Name: deletecharacteristic(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletecharacteristic(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCharid ALIAS FOR $1;
_check INTEGER;
_r RECORD;
BEGIN
-- Cache the specifics of the characteristic
SELECT * INTO _r
FROM char
WHERE (char_id=pCharid);
IF (NOT(FOUND)) THEN
RETURN 0;
END IF;
-- If the passed characteristic is used
SELECT * INTO _r
FROM charass
WHERE (charass_char_id=pCharid)
LIMIT 1;
IF (FOUND) THEN
IF (_r.charass_target_type = 'I') THEN
RETURN -1;
ELSIF (_r.charass_target_type = 'C') THEN
RETURN -2;
ELSIF (_r.charass_target_type = 'ADDR') THEN
RETURN -3;
ELSIF (_r.charass_target_type = 'CNTCT') THEN
RETURN -4;
ELSIF (_r.charass_target_type = 'CRMACCT') THEN
RETURN -5;
ELSIF (_r.charass_target_type = 'INCDT ') THEN
RETURN -6;
ELSIF (_r.charass_target_type = 'EMP') THEN
RETURN -7;
ELSE
RETURN -99;
END IF;
END IF;
-- Delete the passed characterisitic
DELETE FROM char
WHERE (char_id=pCharid);
RETURN pCharid;
END;
$_$;
ALTER FUNCTION public.deletecharacteristic(integer) OWNER TO admin;
--
-- Name: deletecheck(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletecheck(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCheckid ALIAS FOR $1;
BEGIN
IF (SELECT (NOT checkhead_void) OR checkhead_posted OR checkhead_replaced
OR checkhead_deleted
OR (checkhead_ach_batch IS NOT NULL AND checkhead_printed)
FROM checkhead
WHERE (checkhead_id=pCheckid) ) THEN
RETURN -1;
END IF;
UPDATE checkhead
SET checkhead_deleted=TRUE
WHERE (checkhead_id=pCheckid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.deletecheck(integer) OWNER TO admin;
--
-- Name: deleteclasscode(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteclasscode(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pClasscodeid ALIAS FOR $1;
_check INTEGER;
BEGIN
-- Check to see if any items are assigned to the passed classcode
SELECT item_id INTO _check
FROM item
WHERE (item_classcode_id=pClasscodeid)
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
-- Delete the passed classcode
DELETE FROM classcode
WHERE (classcode_id=pClasscodeid);
RETURN pClasscodeid;
END;
$_$;
ALTER FUNCTION public.deleteclasscode(integer) OWNER TO admin;
--
-- Name: deletecompany(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletecompany(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pcompanyid ALIAS FOR $1;
BEGIN
IF (EXISTS(SELECT accnt_id
FROM accnt, company
WHERE ((accnt_company=company_number)
AND (company_id=pcompanyid))
)) THEN
RETURN -1;
END IF;
DELETE FROM company
WHERE (company_id=pcompanyid);
RETURN pcompanyid;
END;
$_$;
ALTER FUNCTION public.deletecompany(integer) OWNER TO admin;
--
-- Name: deletecreditmemo(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletecreditmemo(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCmheadid ALIAS FOR $1;
BEGIN
DELETE FROM cmitem
WHERE (cmitem_cmhead_id=pCmheadid);
DELETE FROM cmhead
WHERE (cmhead_id=pCmheadid);
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.deletecreditmemo(integer) OWNER TO admin;
--
-- Name: deletecustomer(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletecustomer(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustid ALIAS FOR $1;
BEGIN
PERFORM shipto_id
FROM shiptoinfo
WHERE (shipto_cust_id=pCustid)
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
PERFORM cohead_id
FROM cohead
WHERE (cohead_cust_id=pCustid)
LIMIT 1;
IF (FOUND) THEN
RETURN -2;
END IF;
PERFORM cmhead_id
FROM cmhead
WHERE (cmhead_cust_id=pCustid)
LIMIT 1;
IF (FOUND) THEN
RETURN -3;
END IF;
PERFORM cohist_id
FROM cohist
WHERE (cohist_cust_id=pCustid)
LIMIT 1;
IF (FOUND) THEN
RETURN -4;
END IF;
PERFORM aropen_id
FROM aropen
WHERE (aropen_cust_id=pCustid)
LIMIT 1;
IF (FOUND) THEN
RETURN -5;
END IF;
PERFORM checkhead_recip_id
FROM checkhead
WHERE ((checkhead_recip_id=pCustid)
AND (checkhead_recip_type='C'))
LIMIT 1;
IF (FOUND) THEN
RETURN -6;
END IF;
PERFORM invchead_id
FROM invchead
WHERE(invchead_cust_id=pCustid)
LIMIT 1;
IF (FOUND) THEN
RETURN -7;
END IF;
PERFORM quhead_id
FROM quhead
WHERE(quhead_cust_id=pCustid)
LIMIT 1;
IF (FOUND) THEN
RETURN -8;
END IF;
DELETE FROM taxreg
WHERE ((taxreg_rel_type='C')
AND (taxreg_rel_id=pCustid));
DELETE FROM ipsass
WHERE (ipsass_cust_id=pCustid);
DELETE FROM custinfo
WHERE (cust_id=pCustid);
UPDATE crmacct SET crmacct_cust_id = NULL
WHERE (crmacct_cust_id=pCustid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deletecustomer(integer) OWNER TO admin;
--
-- Name: deletecustomertype(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletecustomertype(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCusttypeid ALIAS FOR $1;
BEGIN
IF EXISTS(SELECT 1
FROM custinfo
WHERE (cust_custtype_id=pCusttypeid)) THEN
RETURN -1;
END IF;
DELETE FROM ipsass
WHERE (ipsass_custtype_id=pCusttypeid);
DELETE FROM salesaccnt
WHERE (salesaccnt_custtype_id=pCusttypeid);
DELETE FROM araccnt
WHERE (araccnt_custtype_id=pCusttypeid);
DELETE FROM custform
WHERE (custform_custtype_id=pCusttypeid);
DELETE FROM custtype
WHERE (custtype_id=pCusttypeid);
RETURN pCusttypeid;
END;
$_$;
ALTER FUNCTION public.deletecustomertype(integer) OWNER TO admin;
--
-- Name: deleteempgrp(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteempgrp(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pempgrpid ALIAS FOR $1;
BEGIN
-- Check to see if any employees are assigned to the passed empgrp
PERFORM empgrpitem_emp_id
FROM empgrpitem
WHERE (empgrpitem_empgrp_id=pempgrpid)
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
DELETE FROM empgrp WHERE (empgrp_id=pempgrpid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deleteempgrp(integer) OWNER TO admin;
--
-- Name: deleteexpiredips(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteexpiredips() RETURNS boolean
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_r RECORD;
BEGIN
FOR _r IN SELECT ipshead_id
FROM ipshead
WHERE (ipshead_expires <= current_date)
LOOP
DELETE FROM ipsass
WHERE (ipsass_ipshead_id=_r.ipshead_id);
DELETE FROM ipsiteminfo
WHERE (ipsitem_ipshead_id=_r.ipshead_id);
DELETE FROM ipsfreight
WHERE (ipsfreight_ipshead_id=_r.ipshead_id);
DELETE FROM ipshead
WHERE (ipshead_id=_r.ipshead_id);
END LOOP;
RETURN TRUE;
END;
$$;
ALTER FUNCTION public.deleteexpiredips() OWNER TO admin;
--
-- Name: deletefile(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletefile(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
declare
pId ALIAS FOR $1;
begin
delete from file
where ( file_id in (
select file_id
from file
join docass on (docass_target_id=file_id)
and (docass_target_type='FILE')
where ( docass_id = pId ) ) );
delete from docass where docass_id = pId;
return true;
end;
$_$;
ALTER FUNCTION public.deletefile(integer) OWNER TO admin;
--
-- Name: deleteflgrp(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteflgrp(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFlgrpid ALIAS FOR $1;
_r RECORD;
BEGIN
FOR _r IN SELECT flgrp_id
FROM flgrp
WHERE (flgrp_flgrp_id=pFlgrpid) LOOP
PERFORM deleteFlgrp(_r.flgrp_id);
END LOOP;
DELETE FROM flitem
WHERE (flitem_flgrp_id=pFlgrpid);
DELETE FROM flspec
WHERE (flspec_flgrp_id=pFlgrpid);
DELETE FROM flgrp
WHERE (flgrp_id=pFlgrpid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.deleteflgrp(integer) OWNER TO admin;
--
-- Name: deleteform(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteform(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFormid ALIAS FOR $1;
_key TEXT;
_check INTEGER;
BEGIN
-- Cache the key of the passed form
SELECT form_key INTO _key
FROM form
WHERE (form_id=pFormid);
IF (NOT(FOUND)) THEN
RETURN 0;
END IF;
-- Handle checks based on the type of the form
IF (_key='Chck') THEN
SELECT bankaccnt_id INTO _check
FROM bankaccnt
WHERE (bankaccnt_check_form_id=pFormid)
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
END IF;
-- Delete the form
DELETE FROM form
WHERE (form_id=pFormid);
RETURN pFormid;
END;
$_$;
ALTER FUNCTION public.deleteform(integer) OWNER TO admin;
--
-- Name: deletefreightclass(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletefreightclass(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFreightClassid ALIAS FOR $1;
_check INTEGER;
BEGIN
-- Check to see if any items are assigned to the passed freightclass
SELECT item_id INTO _check
FROM item
WHERE (item_freightclass_id=pFreightClassid)
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
-- Delete the passed freightclass
DELETE FROM freightclass
WHERE (freightclass_id=pFreightClassid);
RETURN pFreightClassid;
END;
$_$;
ALTER FUNCTION public.deletefreightclass(integer) OWNER TO admin;
--
-- Name: deleteglseries(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteglseries(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
DECLARE
pSequence ALIAS FOR $1;
BEGIN
DELETE FROM glseries
WHERE (glseries_sequence=pSequence);
RETURN pSequence;
END;
$_$;
ALTER FUNCTION public.deleteglseries(integer) OWNER TO admin;
--
-- Name: deleteglseries(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteglseries(integer, text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSequence ALIAS FOR $1;
pNotes ALIAS FOR $2;
_trialbalid INTEGER;
_count INTEGER;
_r RECORD;
BEGIN
-- March through all of the G/L Transactions for the passed sequence
FOR _r IN SELECT gltrans_id, gltrans_date, gltrans_accnt_id, gltrans_amount, gltrans_posted, gltrans_rec,
accnt_forwardupdate, period_id, period_closed, period_freeze
FROM accnt, gltrans LEFT OUTER JOIN period ON (gltrans_date BETWEEN period_start AND period_end)
WHERE ( (gltrans_accnt_id=accnt_id)
AND (NOT gltrans_deleted)
AND (gltrans_sequence=pSequence) ) LOOP
-- If we can post into a Trial Balance, do so
IF ( (NOT _r.period_closed) AND
( (NOT _r.period_freeze) OR (checkPrivilege('PostFrozenPeriod')) ) AND
( NOT _r.gltrans_rec) AND
( _r.gltrans_posted ) ) THEN
-- Try to find an existing trialbal
SELECT trialbal_id INTO _trialbalid
FROM trialbal
WHERE ( (trialbal_period_id=_r.period_id)
AND (trialbal_accnt_id=_r.gltrans_accnt_id) );
GET DIAGNOSTICS _count = ROW_COUNT;
IF (_count > 0) THEN
-- We found a trialbal, update it with the G/L Transaction
-- Note - two stage update to avoid any funny value caching logic
IF (_r.gltrans_amount > 0) THEN
UPDATE trialbal
SET trialbal_credits = (trialbal_credits - _r.gltrans_amount)
WHERE (trialbal_id=_trialbalid);
ELSE
UPDATE trialbal
SET trialbal_debits = (trialbal_debits - (_r.gltrans_amount * -1))
WHERE (trialbal_id=_trialbalid);
END IF;
UPDATE trialbal
SET trialbal_ending = (trialbal_beginning - trialbal_debits + trialbal_credits),
trialbal_dirty=TRUE
WHERE (trialbal_id=_trialbalid);
ELSE
RAISE EXCEPTION 'Can not delete G/L Series. Trial balance record not found.';
END IF;
-- Forward update if we should
IF (_r.accnt_forwardupdate AND fetchmetricbool('ManualForwardUpdate')) THEN
PERFORM forwardUpdateTrialBalance(_trialbalid);
END IF;
-- Delete any bank reconciliation records if this was marked cleared but non reconciled
DELETE FROM bankrecitem
WHERE ((bankrecitem_source='GL')
AND (bankrecitem_source_id=_r.gltrans_id));
-- Unflag any journals as posted as a result of this series
UPDATE sltrans SET
sltrans_posted=false,
sltrans_gltrans_journalnumber=null
FROM gltrans
WHERE ((gltrans_sequence=pSequence)
AND (sltrans_gltrans_journalnumber=gltrans_journalnumber));
-- Mark the G/L Transaction as deleted
UPDATE gltrans SET
gltrans_posted=false,
gltrans_deleted=true,
gltrans_notes=gltrans_notes || E'\n' || pNotes
WHERE (gltrans_id=_r.gltrans_id);
ELSIF (_r.period_freeze) THEN
RAISE EXCEPTION 'Can not delete a G/L Transaction in a frozen period';
ELSIF (_r.period_closed) THEN
RAISE EXCEPTION 'Can not delete a G/L Transaction on account % in a closed period', formatGlAccount(_r.gltrans_accnt_id);
ELSIF (_r.gltrans_rec) THEN
RAISE EXCEPTION 'Can not delete a G/L Transaction that has been reconciled';
ELSIF (NOT _r.gltrans_posted) THEN
RAISE EXCEPTION 'Can not delete a G/L Transaction that has not been posted to Trial Balance';
END IF;
END LOOP;
RETURN true;
END;
$_$;
ALTER FUNCTION public.deleteglseries(integer, text) OWNER TO admin;
--
-- Name: deleteincident(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteincident(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pincdtid ALIAS FOR $1;
_count INTEGER := 0;
_incdtnbr INTEGER := 0;
BEGIN
SELECT COUNT(*) INTO _count
FROM todoitem
WHERE (todoitem_incdt_id=pincdtid);
IF (_count > 0) THEN
RETURN -1;
END IF;
DELETE FROM comment
WHERE((comment_source='INCDT')
AND (comment_source_id=pincdtid));
DELETE FROM incdthist
WHERE (incdthist_incdt_id=pincdtid);
DELETE FROM imageass
WHERE ((imageass_source='INCDT')
AND (imageass_source_id=pincdtid));
DELETE FROM url
WHERE ((url_source='INCDT')
AND (url_source_id=pincdtid));
SELECT incdt_number INTO _incdtnbr
FROM incdt
WHERE (incdt_id=pincdtid);
DELETE FROM incdt
WHERE (incdt_id=pincdtid);
-- Incident #11538 needs to be fully resolved before release can be implemented
-- PERFORM releaseIncidentNumber(_incdtnbr);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deleteincident(integer) OWNER TO admin;
--
-- Name: deleteinvoice(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteinvoice(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pInvcheadid ALIAS FOR $1;
BEGIN
UPDATE shipitem SET shipitem_invoiced=FALSE, shipitem_invcitem_id=NULL
FROM invcitem
WHERE ((shipitem_invoiced)
AND (shipitem_invcitem_id=invcitem_id)
AND (invcitem_invchead_id=pInvcheadid));
UPDATE coitem SET coitem_status = 'O'
WHERE ((coitem_status = 'C')
AND (coitem_id IN (SELECT cobill_coitem_id
FROM cobill, invcitem
WHERE ((cobill_invcitem_id=invcitem_id)
AND (invcitem_invchead_id=pInvcheadid)))));
UPDATE cobill SET cobill_invcnum=NULL, cobill_invcitem_id=NULL
FROM invcitem
WHERE ((cobill_invcitem_id=invcitem_id)
AND (invcitem_invchead_id=pInvcheadid));
UPDATE invdetail SET invdetail_invcitem_id=NULL
FROM invcitem
WHERE ((invdetail_invcitem_id=invcitem_id)
AND (invcitem_invchead_id=pInvcheadid));
UPDATE cobmisc SET cobmisc_invcnumber=NULL, cobmisc_invchead_id=NULL,
cobmisc_posted=FALSE
WHERE (cobmisc_invchead_id=pInvcheadid);
DELETE FROM aropenalloc
WHERE (aropenalloc_doctype='I')
AND (aropenalloc_doc_id=pInvcheadid);
DELETE FROM invcitem
WHERE (invcitem_invchead_id=pInvcheadid);
DELETE FROM invchead
WHERE (invchead_id=pInvcheadid);
RETURN pInvcheadid;
END;
$_$;
ALTER FUNCTION public.deleteinvoice(integer) OWNER TO admin;
--
-- Name: deleteipsitem(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteipsitem(pipsitemid integer) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
BEGIN
DELETE FROM ipsiteminfo WHERE ipsitem_id=pIpsItemId;
RETURN 1;
END;
$$;
ALTER FUNCTION public.deleteipsitem(pipsitemid integer) OWNER TO admin;
--
-- Name: deleteipsprodcat(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteipsprodcat(pipsitemid integer) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
BEGIN
DELETE FROM ipsiteminfo WHERE ipsitem_id=pIpsItemId;
RETURN 1;
END;
$$;
ALTER FUNCTION public.deleteipsprodcat(pipsitemid integer) OWNER TO admin;
--
-- Name: deleteitem(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteitem(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
_result INTEGER;
BEGIN
SELECT bomitem_id INTO _result
FROM bomitem
WHERE (bomitem_item_id=pItemid)
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
SELECT itemsite_id INTO _result
FROM itemsite
WHERE (itemsite_item_id=pItemid)
LIMIT 1;
IF (FOUND) THEN
RETURN -2;
END IF;
SELECT itemsub_id INTO _result
FROM itemsub
WHERE (itemsub_sub_item_id=pItemid)
LIMIT 1;
IF (FOUND) THEN
RETURN -3;
END IF;
IF (fetchmetricbool('RevControl')) THEN
SELECT rev_id INTO _result
FROM rev
WHERE ((rev_target_id=pItemid)
AND (rev_target_type = 'BOM'))
LIMIT 1;
IF (FOUND) THEN
RETURN -6;
END IF;
END IF;
DELETE FROM bomhead
WHERE (bomhead_item_id=pItemid);
DELETE FROM bomitem
WHERE (bomitem_item_id=pItemid);
DELETE FROM itemcost
WHERE (itemcost_item_id=pItemid);
DELETE FROM costhist
WHERE (costhist_item_id=pItemid);
DELETE FROM itemsub
WHERE (itemsub_parent_item_id=pItemid);
DELETE FROM itemsub
WHERE (itemsub_sub_item_id=pItemid);
DELETE FROM itemsrcp
WHERE (itemsrcp_itemsrc_id IN (SELECT itemsrc_id FROM itemsrc WHERE (itemsrc_item_id=pItemid)));
DELETE FROM itemsrc
WHERE (itemsrc_item_id=pItemid);
DELETE FROM itemalias
WHERE (itemalias_item_id=pItemid);
DELETE FROM itemgrpitem
WHERE (itemgrpitem_item_id=pItemid);
DELETE FROM ipsiteminfo
WHERE (ipsitem_item_id=pItemid);
DELETE FROM imageass
WHERE ( (imageass_source='I')
AND (imageass_source_id=pItemid) );
DELETE FROM locitem
WHERE (locitem_item_id=pItemid);
DELETE FROM itemtax
WHERE(itemtax_item_id=pItemid);
DELETE FROM itemsite
WHERE (itemsite_item_id=pItemid);
DELETE FROM itemuom
WHERE(itemuom_itemuomconv_id IN (SELECT itemuomconv_id
FROM itemuomconv
WHERE(itemuomconv_item_id=pItemid)));
DELETE FROM itemuomconv
WHERE(itemuomconv_item_id=pItemid);
DELETE FROM item
WHERE (item_id=pItemid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deleteitem(integer) OWNER TO admin;
--
-- Name: deleteitemcost(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteitemcost(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemId ALIAS FOR $1;
pCostElemId ALIAS FOR $2;
_itemcost_id INTEGER;
_postcost_return BOOLEAN;
_std_cost NUMERIC;
BEGIN
SELECT itemcost_id INTO _itemcost_id
FROM itemcost
WHERE ( (itemcost_item_id = pItemId) AND (itemcost_costelem_id = pCostElemId) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'itemcost % not found for. ', pItemId || ' & ' || pCostElemId;
END IF;
SELECT itemcost_stdcost INTO _std_cost
FROM itemcost
WHERE (itemcost_id = _itemcost_id);
IF (_std_cost > 0) THEN
--Actual Cost is updated to zero to ensure inventory is valued correctly
PERFORM updateCost(_itemcost_id, 0);
END IF;
DELETE FROM itemcost
WHERE (itemcost_id=_itemcost_id);
RETURN _itemcost_id;
END;
$_$;
ALTER FUNCTION public.deleteitemcost(integer, integer) OWNER TO admin;
--
-- Name: deleteitemsite(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteitemsite(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
_result INTEGER;
_lotserial BOOLEAN;
_bbom BOOLEAN;
_mfg BOOLEAN;
_standard BOOLEAN;
BEGIN
IF ( ( SELECT ( (itemsite_qtyonhand <> 0) OR (itemsite_nnqoh <> 0) )
FROM itemsite
WHERE (itemsite_id=pItemsiteid) ) ) THEN
RETURN -9;
END IF;
SELECT metric_value='t' INTO _bbom
FROM metric
WHERE (metric_name='BBOM');
SELECT metric_value='t' INTO _lotserial
FROM metric
WHERE (metric_name='LotSerialControl');
SELECT metric_value NOT IN ('PostBooks', 'Standard') INTO _mfg
FROM metric
WHERE (metric_name='Application');
SELECT metric_value='Standard' INTO _standard
FROM metric
WHERE (metric_name='Application');
SELECT invhist_id INTO _result
FROM invhist
WHERE (invhist_itemsite_id=pItemsiteid)
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
IF (_lotserial) THEN
SELECT lsdetail_id INTO _result
FROM lsdetail
WHERE (lsdetail_itemsite_id=pItemsiteid)
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
END IF;
SELECT wo_id INTO _result
FROM wo
WHERE (wo_itemsite_id=pItemsiteid)
LIMIT 1;
IF (FOUND) THEN
RETURN -2;
END IF;
SELECT womatl_id INTO _result
FROM womatl
WHERE (womatl_itemsite_id=pItemsiteid)
LIMIT 1;
IF (FOUND) THEN
RETURN -2;
END IF;
SELECT womatlvar_id INTO _result
FROM womatlvar
WHERE ( (womatlvar_parent_itemsite_id=pItemsiteid)
OR (womatlvar_component_itemsite_id=pItemsiteid) )
LIMIT 1;
IF (FOUND) THEN
RETURN -2;
END IF;
IF (_bbom) THEN
SELECT brdvar_id INTO _result
FROM xtmfg.brdvar
WHERE ( (brdvar_itemsite_id=pItemsiteid)
OR (brdvar_parent_itemsite_id=pItemsiteid) )
LIMIT 1;
IF (FOUND) THEN
RETURN -2;
END IF;
END IF;
SELECT coitem_id INTO _result
FROM coitem
WHERE (coitem_itemsite_id=pItemsiteid)
LIMIT 1;
IF (FOUND) THEN
RETURN -3;
END IF;
SELECT cohist_id INTO _result
FROM cohist
WHERE (cohist_itemsite_id=pItemsiteid)
LIMIT 1;
IF (FOUND) THEN
RETURN -3;
END IF;
SELECT quitem_id INTO _result
FROM quitem
WHERE (quitem_itemsite_id=pItemsiteid)
LIMIT 1;
IF (FOUND) THEN
RETURN -3;
END IF;
SELECT cmitem_id INTO _result
FROM cmitem
WHERE (cmitem_itemsite_id=pItemsiteid)
LIMIT 1;
IF (FOUND) THEN
RETURN -3;
END IF;
SELECT poitem_id INTO _result
FROM poitem
WHERE (poitem_itemsite_id=pItemsiteid)
LIMIT 1;
IF (FOUND) THEN
RETURN -4;
END IF;
SELECT recv_id INTO _result
FROM recv
WHERE (recv_itemsite_id=pItemsiteid)
LIMIT 1;
IF (FOUND) THEN
RETURN -4;
END IF;
SELECT poreject_id INTO _result
FROM poreject
WHERE (poreject_itemsite_id=pItemsiteid)
LIMIT 1;
IF (FOUND) THEN
RETURN -4;
END IF;
SELECT pr_id INTO _result
FROM pr
WHERE (pr_itemsite_id=pItemsiteid)
LIMIT 1;
IF (FOUND) THEN
RETURN -4;
END IF;
IF (_mfg OR _standard) THEN
SELECT planord_id INTO _result
FROM planord
WHERE (planord_itemsite_id=pItemsiteid)
LIMIT 1;
IF (FOUND) THEN
RETURN -5;
END IF;
END IF;
IF (_mfg) THEN
SELECT pschitem_id INTO _result
FROM xtmfg.pschitem
WHERE (pschitem_itemsite_id=pItemsiteid)
LIMIT 1;
IF (FOUND) THEN
RETURN -6;
END IF;
SELECT woopervar_id INTO _result
FROM xtmfg.woopervar
WHERE (woopervar_parent_itemsite_id=pItemsiteid)
LIMIT 1;
IF (FOUND) THEN
RETURN -2;
END IF;
END IF;
IF (_mfg OR _standard) THEN
SELECT itemsite_id INTO _result
FROM itemsite
WHERE (itemsite_supply_itemsite_id=pItemsiteid)
LIMIT 1;
IF (FOUND) THEN
RETURN -7;
END IF;
END IF;
DELETE FROM invcnt
WHERE (invcnt_itemsite_id=pItemsiteid);
DELETE FROM itemloc
WHERE (itemloc_itemsite_id=pItemsiteid);
DELETE FROM itemlocdist
WHERE (itemlocdist_itemsite_id=pItemsiteid);
IF (_bbom) THEN
DELETE FROM xtmfg.brddist
WHERE (brddist_itemsite_id=pItemsiteid);
END IF;
DELETE FROM itemsite
WHERE (itemsite_id=pItemsiteid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deleteitemsite(integer) OWNER TO admin;
--
-- Name: deleteitemuom(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteitemuom(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemuomid ALIAS FOR $1;
BEGIN
DELETE FROM itemuom WHERE itemuom_id=pItemuomid;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deleteitemuom(integer) OWNER TO admin;
--
-- Name: deleteitemuomconv(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteitemuomconv(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemuomconvid ALIAS FOR $1;
_fromuomid INTEGER;
_invuomid INTEGER;
_itemid INTEGER;
_touomid INTEGER;
BEGIN
SELECT itemuomconv_item_id, item_inv_uom_id,
itemuomconv_from_uom_id, itemuomconv_to_uom_id
INTO _itemid, _invuomid, _fromuomid, _touomid
FROM itemuomconv JOIN item ON (itemuomconv_item_id=item_id)
WHERE (itemuomconv_id=pItemuomconvid);
IF EXISTS(SELECT *
FROM uomusedforitem(_itemid)
WHERE ((uom_id IN (_fromuomid, _touomid))
AND (uom_id != _invuomid)) ) THEN
RETURN -1;
END IF;
DELETE FROM itemuom WHERE itemuom_itemuomconv_id=pItemuomconvid;
DELETE FROM itemuomconv WHERE itemuomconv_id=pItemuomconvid;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deleteitemuomconv(integer) OWNER TO admin;
--
-- Name: deletelocation(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletelocation(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pLocationid ALIAS FOR $1;
_check INTEGER;
BEGIN
-- Check to see if any itemsite used the passed location as their default
SELECT itemsite_id INTO _check
FROM itemsite
WHERE (itemsite_location_id=pLocationid)
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
-- Check to see if any inventory is currently stored at the passed location
SELECT itemloc_id INTO _check
FROM itemloc
WHERE (itemloc_location_id=pLocationid)
LIMIT 1;
IF (FOUND) THEN
RETURN -2;
END IF;
-- Check to see if any undistributed inventory transactions are currently posted at the passed location
SELECT itemlocdist_id INTO _check
FROM itemlocdist
WHERE ( (itemlocdist_source_type='L')
AND (itemlocdist_source_id=pLocationid) )
LIMIT 1;
IF (FOUND) THEN
RETURN -3;
END IF;
-- Check to see if the passed location has any Inventory Detail posted against it
SELECT invdetail_id INTO _check
FROM invdetail
WHERE (invdetail_location_id=pLocationid)
LIMIT 1;
IF (FOUND) THEN
RETURN -4;
END IF;
-- Delete any associated locitem records
DELETE FROM locitem
WHERE (locitem_location_id=pLocationid);
-- Delete the location record
DELETE FROM location
WHERE (location_id=pLocationid);
RETURN pLocationid;
END;
$_$;
ALTER FUNCTION public.deletelocation(integer) OWNER TO admin;
--
-- Name: deletemetasql(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletemetasql(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pid ALIAS FOR $1;
BEGIN
DELETE FROM metasql WHERE metasql_id = pid;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deletemetasql(integer) OWNER TO admin;
--
-- Name: deleteopenrecurringitems(integer, text, timestamp with time zone, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteopenrecurringitems(integer, text, timestamp with time zone, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pParentid ALIAS FOR $1;
pType TEXT := UPPER($2);
pDatetime TIMESTAMP WITH TIME ZONE := COALESCE($3, startOfTime());
pInclParent BOOLEAN := COALESCE($4, FALSE);
_count INTEGER := 0;
_delchildstmt TEXT;
_delparentstmt TEXT;
_rt RECORD;
_tmp INTEGER;
BEGIN
RAISE DEBUG 'deleteOpenRecurringItems(%, %, %)', pParentid, pType, pDatetime;
IF (pParentid IS NULL) THEN
RETURN -11;
END IF;
SELECT * INTO _rt FROM recurtype WHERE (UPPER(recurtype_type)=pType);
GET DIAGNOSTICS _count = ROW_COUNT;
IF (_count <= 0) THEN
RETURN -10;
END IF;
-- 2 deletes avoid reparenting problems if the parent gets deleted first
IF (_rt.recurtype_delfunc IS NULL) THEN
_delchildstmt := 'DELETE FROM [fulltable] '
|| ' WHERE (NOT ([done])'
|| ' AND ([schedcol]>''$2'')'
|| ' AND ([table]_recurring_[table]_id=$1)'
|| ' AND ([table]_id!=$1));';
_delparentstmt := 'DELETE FROM [fulltable] USING recur'
|| ' WHERE (NOT ([done])'
|| ' AND ([schedcol]>''$2'')'
|| ' AND ([table]_recurring_[table]_id=$1)'
|| ' AND ([table]_id=$1));';
ELSE
_delchildstmt := 'SELECT [delfunc]([table]_id)'
|| ' FROM [fulltable] '
|| ' WHERE (NOT ([done])'
|| ' AND ([schedcol]>''$2'')'
|| ' AND ([table]_recurring_[table]_id=$1)'
|| ' AND ([table]_id!=$1));';
_delparentstmt := 'SELECT [delfunc]([table]_id)'
|| ' FROM [fulltable] '
|| ' WHERE (NOT ([done])'
|| ' AND ([schedcol]>''$2'')'
|| ' AND ([table]_recurring_[table]_id=$1)'
|| ' AND ([table]_id!=$1));';
_delchildstmt := REPLACE(_delchildstmt, '[delfunc]', _rt.recurtype_delfunc);
_delparentstmt := REPLACE(_delparentstmt, '[delfunc]', _rt.recurtype_delfunc);
END IF;
RAISE DEBUG '_delchildstmt has been set to %', _delchildstmt;
_delchildstmt := REPLACE(_delchildstmt, '[fulltable]', _rt.recurtype_table);
_delchildstmt := REPLACE(_delchildstmt, '[table]',
REGEXP_REPLACE(_rt.recurtype_table, E'.*\\.', ''));
_delchildstmt := REPLACE(_delchildstmt, '[done]', _rt.recurtype_donecheck);
_delchildstmt := REPLACE(_delchildstmt, '[schedcol]', _rt.recurtype_schedcol);
_delparentstmt := REPLACE(_delparentstmt, '[fulltable]', _rt.recurtype_table);
_delparentstmt := REPLACE(_delparentstmt, '[table]',
REGEXP_REPLACE(_rt.recurtype_table, E'.*\\.', ''));
_delparentstmt := REPLACE(_delparentstmt, '[done]', _rt.recurtype_donecheck);
_delparentstmt := REPLACE(_delparentstmt, '[schedcol]', _rt.recurtype_schedcol);
RAISE DEBUG 'substitutions changed _delchildstmt to %', _delchildstmt;
IF (_rt.recurtype_delfunc IS NULL) THEN
-- 8.4+: EXECUTE _delchildstmt USING pDatetime, pType;
RAISE DEBUG '% with % and %', _delchildstmt, pType, pDatetime;
EXECUTE REPLACE(REPLACE(_delchildstmt, '$1', pParentid::TEXT),
'$2', pDatetime::TEXT);
GET DIAGNOSTICS _count = ROW_COUNT;
IF (pInclParent) THEN
-- 8.4+: EXECUTE _delparentstmt USING pDatetime, pType;
RAISE DEBUG '% with % and %', _delparentstmt, pType, pDatetime;
EXECUTE REPLACE(REPLACE(_delparentstmt, '$1', pParentid::TEXT),
'$2', pDatetime::TEXT);
GET DIAGNOSTICS _tmp = ROW_COUNT;
_count := _count + _tmp;
END IF;
ELSE
-- 8.4+: FOR _tmp IN EXECUTE _delchildstmt USING pDatetime, pType LOOP
FOR _tmp IN EXECUTE REPLACE(REPLACE(_delchildstmt, '$1', pParentid::TEXT),
'$2', pDatetime::TEXT)
LOOP
IF _tmp < 0 THEN
RETURN _tmp;
END IF;
_count := _count + 1;
END LOOP;
IF (pInclParent) THEN
-- 8.4+: EXECUTE _delparentstmt INTO _tmp USING pDatetime, pType;
EXECUTE REPLACE(REPLACE(_delparentstmt, '$1', pParentid::TEXT),
'$2', pDatetime::TEXT) INTO _tmp;
IF (_tmp < 0) THEN
RETURN _tmp;
END IF;
_count := _count + 1;
END IF;
END IF;
RAISE DEBUG 'deleteOpenrecurringItems() returning %', _count;
RETURN _count;
END;
$_$;
ALTER FUNCTION public.deleteopenrecurringitems(integer, text, timestamp with time zone, boolean) OWNER TO admin;
--
-- Name: deleteopportunity(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteopportunity(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pOpheadid ALIAS FOR $1;
_test INTEGER;
BEGIN
SELECT todoitem_id INTO _test
FROM todoitem
WHERE(todoitem_ophead_id=pOpheadid)
LIMIT 1;
IF(FOUND) THEN
RETURN -1;
END IF;
SELECT quhead_id INTO _test
FROM quhead
WHERE(quhead_ophead_id=pOpheadid)
LIMIT 1;
IF(FOUND) THEN
RETURN -2;
END IF;
SELECT cohead_id INTO _test
FROM cohead
WHERE(cohead_ophead_id=pOpheadid)
LIMIT 1;
IF(FOUND) THEN
RETURN -3;
END IF;
DELETE
FROM charass
WHERE((charass_target_type='OPP')
AND (charass_target_id=pOpheadid));
DELETE
FROM comment
WHERE((comment_source='OPP')
AND (comment_source_id=pOpheadid));
DELETE
FROM ophead
WHERE(ophead_id=pOpheadid);
return 0;
END;
$_$;
ALTER FUNCTION public.deleteopportunity(integer) OWNER TO admin;
--
-- Name: deletepackage(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletepackage(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
ppkgheadid ALIAS FOR $1;
_i INTEGER := 0;
_pkgname TEXT;
_r RECORD;
_tabs TEXT[] := ARRAY['cmd', 'cmdarg', 'image', 'metasql',
'priv', 'report', 'script', 'uiform'];
_debug BOOL := false;
BEGIN
IF (EXISTS(SELECT *
FROM pkgdep
WHERE (pkgdep_parent_pkghead_id=ppkgheadid))) THEN
RETURN -1;
END IF;
SELECT pkghead_name INTO _pkgname
FROM pkghead
WHERE (pkghead_id=ppkgheadid);
IF (NOT FOUND) THEN
RETURN -2;
END IF;
IF (LOWER(_pkgname) = 'public' OR LOWER(_pkgname) = 'api') THEN
RETURN -3;
END IF;
FOR _i IN ARRAY_LOWER(_tabs,1)..ARRAY_UPPER(_tabs,1) LOOP
EXECUTE 'ALTER TABLE ' || _pkgname || '.pkg' || _tabs[_i] ||
' DISABLE TRIGGER pkg' || _tabs[_i] || 'altertrigger;';
END LOOP;
DELETE FROM pkghead WHERE pkghead_id=ppkgheadid;
RETURN ppkgheadid;
END;
$_$;
ALTER FUNCTION public.deletepackage(integer) OWNER TO admin;
--
-- Name: deletepo(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletepo(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPoheadid ALIAS FOR $1;
_poitemid INTEGER;
BEGIN
IF ( ( SELECT pohead_status
FROM pohead
WHERE (pohead_id=pPoheadid) ) = 'U' ) THEN
-- Unlink from any Sales Orders
UPDATE coitem SET coitem_order_type=NULL,
coitem_order_id=NULL
FROM poitem
WHERE ( (coitem_order_type='P')
AND (coitem_order_id=poitem_id)
AND (poitem_pohead_id=pPoheadid) );
DELETE FROM poitem
WHERE (poitem_pohead_id=pPoheadid);
DELETE FROM pohead
WHERE (pohead_id=pPoheadid);
RETURN TRUE;
ELSE
RETURN FALSE;
END IF;
END;
$_$;
ALTER FUNCTION public.deletepo(integer) OWNER TO admin;
--
-- Name: deletepoitem(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletepoitem(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPoitemid ALIAS FOR $1;
_poheadid INTEGER := -1;
_status CHARACTER;
BEGIN
SELECT poitem_pohead_id, poitem_status INTO _poheadid, _status
FROM poitem
WHERE (poitem_id=pPoitemid);
IF NOT(FOUND) THEN
RETURN 0;
END IF;
IF ( _status = 'U' ) THEN
DELETE FROM poitem
WHERE (poitem_id=pPoitemid);
ELSE
IF ( _status = 'O' ) THEN
PERFORM recv_id
FROM recv
WHERE ( (recv_order_type='PO')
AND (recv_orderitem_id=pPoitemid) );
IF (FOUND) THEN
RETURN -10;
ELSE
RETURN -20;
END IF;
ELSE
RETURN -10;
END IF;
END IF;
PERFORM poitem_id
FROM poitem
WHERE poitem_pohead_id = _poheadid;
IF NOT(FOUND) THEN
DELETE FROM pohead
WHERE (pohead_id = _poheadid);
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deletepoitem(integer) OWNER TO admin;
--
-- Name: deletepr(character, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletepr(character, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pParentType ALIAS FOR $1;
pParentId ALIAS FOR $2;
BEGIN
DELETE FROM pr
WHERE ((pr_status='O')
AND (pr_order_type=pParentType)
AND (pr_order_id=pParentId));
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.deletepr(character, integer) OWNER TO admin;
--
-- Name: deletepr(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletepr(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPrid ALIAS FOR $1;
BEGIN
DELETE FROM pr
WHERE ( (pr_status='O')
AND (pr_id=pPrid) );
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.deletepr(integer) OWNER TO admin;
--
-- Name: deleteproductcategory(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteproductcategory(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pProdcatid ALIAS FOR $1;
_check INTEGER;
BEGIN
-- Check to see if any items are assigned to the passed classcode
SELECT item_id INTO _check
FROM item
WHERE (item_prodcat_id=pProdcatid)
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
-- Delete any assocated records
DELETE FROM salesaccnt
WHERE (salesaccnt_prodcat_id=pProdcatid);
-- Delete the passed prodcat
DELETE FROM prodcat
WHERE (prodcat_id=pProdcatid);
RETURN pProdcatid;
END;
$_$;
ALTER FUNCTION public.deleteproductcategory(integer) OWNER TO admin;
--
-- Name: deleteprofitcenter(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteprofitcenter(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pid ALIAS FOR $1;
BEGIN
IF (EXISTS(SELECT accnt_id
FROM accnt, prftcntr
WHERE ((accnt_company=prftcntr_number)
AND (prftcntr_id=pid))
)) THEN
RETURN -1;
END IF;
DELETE FROM prftcntr
WHERE (prftcntr_id=pid);
RETURN pid;
END;
$_$;
ALTER FUNCTION public.deleteprofitcenter(integer) OWNER TO admin;
--
-- Name: deleteproject(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteproject(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPrjid ALIAS FOR $1;
_result INTEGER;
BEGIN
SELECT quhead_id INTO _result
FROM quhead
WHERE (quhead_prj_id=pPrjid)
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
SELECT cohead_id INTO _result
FROM cohead
WHERE (cohead_prj_id=pPrjid)
LIMIT 1;
IF (FOUND) THEN
RETURN -2;
END IF;
SELECT wo_id INTO _result
FROM wo
WHERE (wo_prj_id=pPrjid)
LIMIT 1;
IF (FOUND) THEN
RETURN -3;
END IF;
SELECT pr_id INTO _result
FROM pr
WHERE (pr_prj_id=pPrjid)
LIMIT 1;
IF (FOUND) THEN
RETURN -4;
END IF;
SELECT poitem_id INTO _result
FROM poitem
WHERE (poitem_prj_id=pPrjid)
LIMIT 1;
IF (FOUND) THEN
RETURN -5;
END IF;
SELECT invchead_id INTO _result
FROM invchead
WHERE (invchead_prj_id=pPrjid)
LIMIT 1;
IF (FOUND) THEN
RETURN -6;
END IF;
DELETE FROM comment
WHERE ((comment_source='J')
AND (comment_source_id=pPrjid));
DELETE FROM comment
WHERE ((comment_source='TA')
AND (comment_source_id IN (
SELECT prjtask_id
FROM prjtask
WHERE (prjtask_prj_id=pPrjId))));
DELETE FROM prjtask
WHERE (prjtask_prj_id=pPrjid);
UPDATE prj
SET prj_recurring_prj_id=null
WHERE(prj_recurring_prj_id=pPrjid);
DELETE FROM prj
WHERE (prj_id=pPrjid);
RETURN pPrjid;
END;
$_$;
ALTER FUNCTION public.deleteproject(integer) OWNER TO admin;
--
-- Name: deleteprojecttask(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteprojecttask(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPrjtaskid ALIAS FOR $1;
_row RECORD;
_result INTEGER;
BEGIN
SELECT * INTO _row
FROM prjtask
WHERE (prjtask_id=pPrjtaskid)
LIMIT 1;
IF (NOT FOUND) THEN
RETURN -1;
END IF;
IF (COALESCE(_row.prjtask_hours_actual, 0.0) > 0.0) THEN
RETURN -2;
END IF;
IF (COALESCE(_row.prjtask_exp_actual, 0.0) > 0.0) THEN
RETURN -3;
END IF;
DELETE FROM comment
WHERE ((comment_source='TA')
AND (comment_source_id=pPrjtaskid));
DELETE FROM prjtask
WHERE (prjtask_id=pPrjtaskid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deleteprojecttask(integer) OWNER TO admin;
--
-- Name: deleteqryhead(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteqryhead(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pqryheadid ALIAS FOR $1;
BEGIN
DELETE FROM qryitem WHERE (qryitem_qryhead_id=pqryheadid);
DELETE FROM qryhead WHERE (qryhead_id=pqryheadid);
RETURN pqryheadid;
END;
$_$;
ALTER FUNCTION public.deleteqryhead(integer) OWNER TO admin;
--
-- Name: deletequote(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletequote(integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pQuheadid ALIAS FOR $1;
pQuoteNumber ALIAS FOR $2;
_quNumberScheme TEXT;
_quoteNumber TEXT;
_quitemid INTEGER;
_result INTEGER;
BEGIN
SELECT fetchMetricText('QUNumberGeneration') INTO _quNumberScheme;
IF (pQuoteNumber IS NULL) THEN
SELECT quhead_number INTO _quoteNumber
FROM quhead
WHERE (quhead_id=pQuheadid);
ELSE
_quoteNumber := pQuoteNumber;
END IF;
DELETE FROM quitem
WHERE (quitem_quhead_id=pQuheadid);
DELETE FROM quhead
WHERE (quhead_id=pQuheadid);
IF (_quoteNumber IS NOT NULL) THEN
IF (_quNumberScheme IN ('A', 'O')) THEN
-- do not release quote # if quote converted to sales order
IF (NOT EXISTS (SELECT cohead_id
FROM cohead
WHERE (cohead_number=_quoteNumber))) THEN
_result = releaseQuNumber(_quoteNumber);
END IF;
ELSEIF (_quNumberScheme = 'S') THEN
_result = releaseSoNumber(_quoteNumber);
END IF;
END IF;
-- Don't care about result of release number
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deletequote(integer, text) OWNER TO admin;
--
-- Name: deletequote(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletequote(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pQuheadid ALIAS FOR $1;
BEGIN
RETURN deleteQuote(pQuheadid, NULL::TEXT);
END;
$_$;
ALTER FUNCTION public.deletequote(integer) OWNER TO admin;
--
-- Name: deletequote(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletequote(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pQuheadid ALIAS FOR $1;
pQuoteNumber ALIAS FOR $2;
BEGIN
RETURN deleteQuote(pQuheadid, pQuoteNumber::TEXT);
END;
$_$;
ALTER FUNCTION public.deletequote(integer, integer) OWNER TO admin;
--
-- Name: deleterecvfororder(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleterecvfororder(text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pordertype ALIAS FOR $1;
porderid ALIAS FOR $2;
BEGIN
DELETE FROM recv
USING orderitem
WHERE ((recv_orderitem_id=orderitem_id)
AND (recv_order_type=orderitem_orderhead_type)
AND (NOT recv_posted)
AND (orderitem_orderhead_id=porderid)
AND (orderitem_orderhead_type=pordertype));
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deleterecvfororder(text, integer) OWNER TO admin;
--
-- Name: deletesalescategory(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletesalescategory(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSalescatid ALIAS FOR $1;
BEGIN
PERFORM invcitem_salescat_id
FROM invchead, invcitem
WHERE ( (invcitem_invchead_id=invchead_id)
AND (NOT invchead_posted)
AND (invcitem_salescat_id=pSalescatid) );
IF (FOUND) THEN
RETURN -1;
END IF;
PERFORM invcitem_salescat_id
FROM invchead, invcitem
WHERE ( (invcitem_invchead_id=invchead_id)
AND (invchead_posted)
AND (invcitem_salescat_id=pSalescatid) );
IF (FOUND) THEN
RETURN -2;
END IF;
PERFORM aropen_salescat_id
FROM aropen
WHERE (aropen_salescat_id=pSalescatid);
IF (FOUND) THEN
RETURN -3;
END IF;
DELETE FROM salescat
WHERE (salescat_id=pSalescatid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deletesalescategory(integer) OWNER TO admin;
--
-- Name: deleteshippingcharge(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteshippingcharge(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pShipchrgid ALIAS FOR $1;
BEGIN
IF EXISTS(SELECT 1
FROM custinfo
WHERE (cust_shipchrg_id=pShipchrgid)) THEN
RETURN -1;
END IF;
DELETE FROM shipchrg
WHERE (shipchrg_id=pShipchrgid);
RETURN pShipchrgid;
END;
$_$;
ALTER FUNCTION public.deleteshippingcharge(integer) OWNER TO admin;
--
-- Name: deleteshippingchargetype(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteshippingchargetype(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pShipchrgid ALIAS FOR $1;
_check INTEGER;
BEGIN
-- Check to see if the passed shipchrg is used as a default for any customers
SELECT cust_id INTO _check
FROM custinfo
WHERE (cust_shipchrg_id=pShipchrgid)
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
-- Check to see if the passed shipchrg is used as a default for any shiptos
SELECT shipto_id INTO _check
FROM shiptoinfo
WHERE (shipto_shipchrg_id=pShipchrgid)
LIMIT 1;
IF (FOUND) THEN
RETURN -2;
END IF;
-- Check to see if the passed shipchrg is used on any sales orders
SELECT cohead_id INTO _check
FROM cohead
WHERE (cohead_shipchrg_id=pShipchrgid)
LIMIT 1;
IF (FOUND) THEN
RETURN -3;
END IF;
-- Check to see if the passed shipchrg is used on any shippers
SELECT shiphead_id INTO _check
FROM shiphead
WHERE (shiphead_shipchrg_id=pShipchrgid)
LIMIT 1;
IF (FOUND) THEN
RETURN -4;
END IF;
-- Check to see if the passed shipchrg is used on any invoices
SELECT invchead_id INTO _check
FROM invchead
WHERE (invchead_shipchrg_id=pShipchrgid)
LIMIT 1;
IF (FOUND) THEN
RETURN -5;
END IF;
-- Delete the passed shipchrg
DELETE FROM shipchrg
WHERE (shipchrg_id=pShipchrgid);
RETURN pShipchrgid;
END;
$_$;
ALTER FUNCTION public.deleteshippingchargetype(integer) OWNER TO admin;
--
-- Name: deleteshipto(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteshipto(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pShiptoid ALIAS FOR $1;
BEGIN
PERFORM asohist_id
FROM asohist
WHERE (asohist_shipto_id=pShiptoid)
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
PERFORM cohead_id
FROM cohead
WHERE (cohead_shipto_id=pShiptoid)
LIMIT 1;
IF (FOUND) THEN
RETURN -2;
END IF;
PERFORM cmhead_id
FROM cmhead
WHERE (cmhead_shipto_id=pShiptoid)
LIMIT 1;
IF (FOUND) THEN
RETURN -3;
END IF;
PERFORM cohist_id
FROM cohist
WHERE (cohist_shipto_id=pShiptoid)
LIMIT 1;
IF (FOUND) THEN
RETURN -4;
END IF;
PERFORM quhead_id
FROM quhead
WHERE (quhead_shipto_id=pShiptoid)
LIMIT 1;
IF (FOUND) THEN
RETURN -5;
END IF;
PERFORM invchead_id
FROM invchead
WHERE (invchead_shipto_id=pShiptoid)
LIMIT 1;
IF (FOUND) THEN
RETURN -6;
END IF;
DELETE FROM ipsass
WHERE (ipsass_shipto_id=pShiptoid);
DELETE FROM shiptoinfo
WHERE (shipto_id=pShiptoid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deleteshipto(integer) OWNER TO admin;
--
-- Name: deleteso(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteso(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoheadid ALIAS FOR $1;
BEGIN
RETURN deleteSo(pSoheadid, NULL);
END;
$_$;
ALTER FUNCTION public.deleteso(integer) OWNER TO admin;
--
-- Name: deleteso(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteso(integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoheadid ALIAS FOR $1;
pSonumber ALIAS FOR $2;
_r RECORD;
_coitemid INTEGER;
_result INTEGER;
_poStatus INTEGER := 0;
BEGIN
-- Get cohead
SELECT * INTO _r FROM cohead WHERE (cohead_id=pSoheadid);
IF (NOT FOUND) THEN
RETURN 0;
END IF;
-- Cannot delete if credit card payments
IF (EXISTS(SELECT ccpay_id
FROM ccpay, payco
WHERE ((ccpay_status IN ('C'))
AND (ccpay_id=payco_ccpay_id)
AND (payco_cohead_id=pSoheadid)))) THEN
RETURN -1;
END IF;
-- Cannot delete if credit card history
IF (EXISTS(SELECT ccpay_id
FROM ccpay, payco
WHERE ((ccpay_status != 'C')
AND (ccpay_id=payco_ccpay_id)
AND (payco_cohead_id=pSoheadid)))) THEN
RETURN -2;
END IF;
-- Delete Sales Order Items
FOR _coitemid IN
SELECT coitem_id
FROM coitem
WHERE ( (coitem_cohead_id=pSoheadid)
AND (coitem_subnumber=0) ) LOOP
SELECT deleteSoItem(_coitemid) INTO _result;
IF (_result < 0) THEN
IF (_result = -20) THEN
_poStatus := _poStatus - 1;
ELSE
RETURN _result;
END IF;
END IF;
END LOOP;
DELETE FROM pack
WHERE (pack_head_id=pSoheadid and pack_head_type = 'SO');
DELETE FROM cohead
WHERE (cohead_id=pSoheadid);
IF (fetchMetricBool('AutoCreateProjectsForOrders')) THEN
PERFORM deleteProject(_r.cohead_prj_id);
END IF;
DELETE FROM aropenalloc
WHERE ((aropenalloc_doctype='S')
AND (aropenalloc_doc_id=pSoheadid));
IF (COALESCE(pSonumber,'') != '') THEN
_result = releaseSoNumber(pSonumber);
ELSEIF (_r.cohead_number IS NOT NULL) THEN
_result = releaseSoNumber(_r.cohead_number);
END IF;
IF (_poStatus < 0) THEN
RETURN -20;
ELSE
RETURN 0;
END IF;
END;
$_$;
ALTER FUNCTION public.deleteso(integer, text) OWNER TO admin;
--
-- Name: deletesoitem(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletesoitem(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoitemid ALIAS FOR $1;
_r RECORD;
_s RECORD;
_result INTEGER;
_deletePO INTEGER := 0;
_recvId INTEGER := -1;
_poStatus TEXT;
_jobItem BOOLEAN;
BEGIN
-- Get coitem
SELECT * INTO _r FROM coitem WHERE (coitem_id=pSoitemid);
IF (NOT FOUND) THEN
RETURN -999;
END IF;
-- Cannot delete if shipped
IF (_r.coitem_qtyshipped > 0) THEN
RETURN -101;
END IF;
-- Cannot delete if issued to shipping
SELECT shipitem_id INTO _result
FROM shipitem JOIN shiphead ON (shiphead_id=shipitem_shiphead_id AND shiphead_order_type='SO')
WHERE (shipitem_orderitem_id=pSoitemid)
LIMIT 1;
IF (FOUND) THEN
RETURN -102;
END IF;
-- Cannot delete if returned
IF (fetchMetricBool('MultiWhs')) THEN
SELECT raitem_id INTO _result
FROM raitem
WHERE ( (raitem_orig_coitem_id=pSoitemid)
OR (raitem_new_coitem_id=pSoitemid) )
LIMIT 1;
IF (FOUND) THEN
RETURN -103;
END IF;
END IF;
-- Cannot delete if any inventory history
SELECT invhist_id INTO _result
FROM invhist
WHERE ( (invhist_ordnumber=formatSoNumber(pSoitemid))
AND (invhist_ordtype='SO') )
LIMIT 1;
IF (FOUND) THEN
RETURN -105;
END IF;
-- If Kit, check deletion of component items
IF (_r.coitem_subnumber = 0) THEN
FOR _s IN
SELECT *
FROM coitem
WHERE ((coitem_cohead_id = _r.coitem_cohead_id)
AND (coitem_linenumber = _r.coitem_linenumber)
AND (coitem_subnumber > 0))
LOOP
IF ((COALESCE(_s.coitem_order_id, -1) > 0)
AND (_s.coitem_order_type = 'P')) THEN
SELECT poitem_status, COALESCE(recv_id, -1)
INTO _poStatus, _recvId
FROM poitem LEFT OUTER JOIN recv
ON ((recv_orderitem_id=poitem_id)
AND (recv_order_type='PO'))
WHERE (poitem_id = _s.coitem_order_id);
IF ((_recvId > 0) OR (_poStatus = 'C')) THEN
RETURN -10;
ELSIF ((_recvId = -1) AND (_poStatus = 'O')) THEN
_deletePO := _deletePO - 1;
END IF;
END IF;
END LOOP;
END IF;
SELECT (itemsite_costmethod='J') INTO _jobItem
FROM coitem JOIN itemsite ON (itemsite_id=coitem_itemsite_id)
WHERE (coitem_id=pSoitemid);
IF (_jobItem AND _r.coitem_order_type='W') THEN
-- Delete associated Job Work Order
SELECT deleteWo(_r.coitem_order_id, TRUE, TRUE) INTO _result;
IF (_result < 0) THEN
RETURN -104;
END IF;
ELSIF (_r.coitem_order_type='W') THEN
-- Delete associated Job Work Order
SELECT deleteWo(_r.coitem_order_id, TRUE) INTO _result;
IF (_result < 0) THEN
-- Cannot delete so break association
PERFORM changeWoProject(_r.coitem_order_id, -1, TRUE);
END IF;
ELSIF (_r.coitem_order_type='R') THEN
-- Delete associated Purchase Request
PERFORM deletePr(_r.coitem_order_id);
ELSIF (_r.coitem_order_type='P') THEN
-- Delete associated Purchase Order Item
SELECT deletepoitem(_r.coitem_order_id) INTO _result;
IF ((_result < 0) AND (_result <> -20)) THEN
RETURN _result;
ELSIF (_result = -20) THEN
_deletePO := _deletePO - 1;
END IF;
END IF;
-- Delete the coitem
DELETE FROM coitem
WHERE (coitem_id=pSoitemid);
IF (_deletePO < 0) THEN
RETURN -20;
ELSE
RETURN 0;
END IF;
END;
$_$;
ALTER FUNCTION public.deletesoitem(integer) OWNER TO admin;
--
-- Name: deletestandardjournal(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletestandardjournal(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pStdjrnlid ALIAS FOR $1;
BEGIN
DELETE FROM stdjrnlitem
WHERE (stdjrnlitem_stdjrnl_id=pStdjrnlid);
DELETE FROM stdjrnlgrpitem
WHERE (stdjrnlgrpitem_stdjrnl_id=pStdjrnlid);
DELETE FROM stdjrnl
WHERE (stdjrnl_id=pStdjrnlid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.deletestandardjournal(integer) OWNER TO admin;
--
-- Name: deletestandardjournalgroup(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletestandardjournalgroup(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pStdjrnlgrpid ALIAS FOR $1;
BEGIN
DELETE FROM stdjrnlgrpitem
WHERE (stdjrnlgrpitem_stdjrnlgrp_id=pStdjrnlgrpid);
DELETE FROM stdjrnlgrp
WHERE (stdjrnlgrp_id=pStdjrnlgrpid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.deletestandardjournalgroup(integer) OWNER TO admin;
--
-- Name: deletesubaccount(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletesubaccount(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pid ALIAS FOR $1;
BEGIN
IF (EXISTS(SELECT accnt_id
FROM accnt, subaccnt
WHERE ((accnt_company=subaccnt_number)
AND (subaccnt_id=pid))
)) THEN
RETURN -1;
END IF;
DELETE FROM subaccnt
WHERE (subaccnt_id=pid);
RETURN pid;
END;
$_$;
ALTER FUNCTION public.deletesubaccount(integer) OWNER TO admin;
--
-- Name: deletesubaccounttype(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletesubaccounttype(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSubAccntTypeid ALIAS FOR $1;
_check INTEGER;
BEGIN
-- Check to see if the passed subaccnttype is used in any accounts
SELECT accnt_id INTO _check
FROM accnt, subaccnttype
WHERE ( (accnt_subaccnttype_code=subaccnttype_code)
AND (subaccnttype_id=pSubAccntTypeid) )
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
-- Delete the Sub Account Type
DELETE FROM subaccnttype
WHERE (subaccnttype_id=pSubAccntTypeid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deletesubaccounttype(integer) OWNER TO admin;
--
-- Name: deletetax(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletetax(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
ptaxid ALIAS FOR $1;
BEGIN
-- these checks allow nice error reporting instead of throwing an SQL error
IF EXISTS(SELECT taxass_id FROM taxass WHERE (taxass_tax_id=ptaxid)) THEN
RETURN -10;
END IF;
IF EXISTS(SELECT taxhist_id FROM taxhist WHERE (taxhist_tax_id=ptaxid)) THEN
RETURN -20;
END IF;
DELETE FROM taxrate WHERE (taxrate_tax_id = ptaxid);
DELETE FROM tax WHERE (tax_id = ptaxid);
RETURN ptaxid;
END;
$_$;
ALTER FUNCTION public.deletetax(integer) OWNER TO admin;
--
-- Name: deletetaxclass(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletetaxclass(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTaxclassid ALIAS FOR $1;
_result INTEGER;
BEGIN
-- Check to find if the tax class is used in any tax code
SELECT tax_id INTO _result
FROM tax
WHERE (tax_taxclass_id = pTaxclassid);
IF (FOUND) THEN
RETURN -1;
END IF;
-- Delete the tax class if the above condition doesn't match
DELETE FROM taxclass WHERE taxclass_id = pTaxclassid ;
RETURN pTaxclassid;
END;
$_$;
ALTER FUNCTION public.deletetaxclass(integer) OWNER TO admin;
--
-- Name: deletetaxtype(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletetaxtype(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTaxtypeid ALIAS FOR $1;
_result INTEGER;
BEGIN
SELECT taxtype_id
INTO _result
FROM taxtype
WHERE ((taxtype_sys)
AND (taxtype_id=pTaxtypeid));
IF (FOUND) THEN
RETURN -1;
END IF;
SELECT taxass_id
INTO _result
FROM taxass
WHERE (taxass_taxtype_id=pTaxtypeid);
IF (FOUND) THEN
RETURN -2;
END IF;
SELECT taxhist_id
INTO _result
FROM taxhist
WHERE (taxhist_taxtype_id=pTaxtypeid);
IF (FOUND) THEN
RETURN -3;
END IF;
DELETE
FROM taxtype
WHERE (taxtype_id=pTaxtypeid);
RETURN pTaxtypeid;
END;
$_$;
ALTER FUNCTION public.deletetaxtype(integer) OWNER TO admin;
--
-- Name: deletetaxzone(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletetaxzone(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTaxzoneid ALIAS FOR $1;
_result INTEGER;
BEGIN
-- Check to find if the tax zone is used in any tax assignment
SELECT taxass_id INTO _result
FROM taxass
WHERE (taxass_taxzone_id=pTaxzoneid);
IF (FOUND) THEN
RETURN -1;
END IF;
-- Check to find if the tax zone has been referenced in any tax registration
SELECT taxreg_id INTO _result
FROM taxreg
WHERE (taxreg_taxzone_id=pTaxzoneid);
IF (FOUND) THEN
RETURN -2;
END IF;
-- Delete the tax zone if none of the above conditions match
DELETE FROM taxzone WHERE taxzone_id = pTaxzoneid ;
RETURN pTaxzoneid;
END;
$_$;
ALTER FUNCTION public.deletetaxzone(integer) OWNER TO admin;
--
-- Name: deletetodoitem(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletetodoitem(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
ptodoItemId ALIAS FOR $1;
BEGIN
DELETE FROM alarm WHERE ( (alarm_source='TODO') AND (alarm_source_id=ptodoItemId) );
DELETE FROM todoitem WHERE todoitem_id = ptodoItemId;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deletetodoitem(integer) OWNER TO admin;
--
-- Name: deleteunusedclasscodes(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteunusedclasscodes() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
DELETE FROM classcode
WHERE (classcode_id NOT IN (SELECT DISTINCT item_classcode_id FROM item));
RETURN 0;
END;
$$;
ALTER FUNCTION public.deleteunusedclasscodes() OWNER TO admin;
--
-- Name: deleteunusedfreightclasses(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteunusedfreightclasses() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
DELETE FROM freightclass
WHERE (freightclass_id NOT IN (SELECT DISTINCT COALESCE(item_freightclass_id, 0) FROM item));
RETURN 0;
END;
$$;
ALTER FUNCTION public.deleteunusedfreightclasses() OWNER TO admin;
--
-- Name: deleteunusedproductcategories(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteunusedproductcategories() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
-- Delete any associated records
DELETE FROM salesaccnt
WHERE ( (salesaccnt_prodcat_id <> -1)
AND (salesaccnt_prodcat_id NOT IN (SELECT DISTINCT item_prodcat_id FROM item)) );
DELETE FROM prodcat
WHERE (prodcat_id NOT IN (SELECT DISTINCT item_prodcat_id FROM item));
RETURN 0;
END;
$$;
ALTER FUNCTION public.deleteunusedproductcategories() OWNER TO admin;
--
-- Name: deleteuom(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteuom(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUomid ALIAS FOR $1;
BEGIN
DELETE FROM uomconv WHERE uomconv_from_uom_id=pUomid;
DELETE FROM uomconv WHERE uomconv_to_uom_id=pUomid;
DELETE FROM uom WHERE uom_id=pUomid;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deleteuom(integer) OWNER TO admin;
--
-- Name: deleteuomconv(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteuomconv(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUomconvid ALIAS FOR $1;
BEGIN
DELETE FROM uomconv WHERE uomconv_id=pUomconvid;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deleteuomconv(integer) OWNER TO admin;
--
-- Name: deleteurl(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteurl(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
declare
pId ALIAS FOR $1;
begin
delete from urlinfo
where ( url_id in (
select url_id
from urlinfo
join docass on (docass_target_id=url_id)
and (docass_target_type='URL')
where ( docass_id = pId ) ) );
delete from docass where docass_id = pId;
return true;
end;
$_$;
ALTER FUNCTION public.deleteurl(integer) OWNER TO admin;
--
-- Name: deleteuserpreference(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteuserpreference(text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPrefname ALIAS FOR $1;
_return BOOLEAN;
BEGIN
SELECT deleteUserPreference(getEffectiveXtUser(), pPrefname) INTO _return;
RETURN _return;
END;
$_$;
ALTER FUNCTION public.deleteuserpreference(text) OWNER TO admin;
--
-- Name: deleteuserpreference(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deleteuserpreference(text, text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUsername ALIAS FOR $1;
pPrefname ALIAS FOR $2;
BEGIN
DELETE FROM usrpref
WHERE ( (usrpref_username=pUsername)
AND (usrpref_name=pPrefname) );
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.deleteuserpreference(text, text) OWNER TO admin;
--
-- Name: deletevendoraddress(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletevendoraddress(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendaddrid ALIAS FOR $1;
_test INTEGER;
BEGIN
-- Check to see if the passed vendor address is used in pohead
SELECT pohead_id INTO _test
FROM pohead
WHERE (pohead_vendaddr_id=pVendaddrid)
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
-- Delete the passed vendor address
DELETE FROM vendaddrinfo
WHERE (vendaddr_id=pVendaddrid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deletevendoraddress(integer) OWNER TO admin;
--
-- Name: deletevendortype(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletevendortype(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendtypeid ALIAS FOR $1;
_test INTEGER;
BEGIN
-- Check to see if the passed vendor type is used in vendinfo
SELECT vend_id INTO _test
FROM vendinfo
WHERE (vend_vendtype_id=pVendtypeid)
LIMIT 1;
IF (FOUND) THEN
RETURN -1;
END IF;
-- Delete the passed vendor type
DELETE FROM vendtype
WHERE (vendtype_id=pVendtypeid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deletevendortype(integer) OWNER TO admin;
--
-- Name: deletewo(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletewo(integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
deleteChildren ALIAS FOR $2;
BEGIN
RETURN deleteWo(pWoid, deleteChildren, FALSE);
END;
$_$;
ALTER FUNCTION public.deletewo(integer, boolean) OWNER TO admin;
--
-- Name: deletewo(integer, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletewo(integer, boolean, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
deleteChildren ALIAS FOR $2;
deleteForce ALIAS FOR $3;
woStatus CHAR(1);
itemType CHAR(1);
ordtype CHAR(1);
ordid INTEGER;
returnCode INTEGER;
_wotcCnt INTEGER;
_routings BOOLEAN;
BEGIN
SELECT wo_status, wo_ordtype, wo_ordid, item_type
INTO woStatus, ordtype, ordid, itemType
FROM wo JOIN itemsite ON (itemsite_id=wo_itemsite_id)
JOIN item ON (item_id=itemsite_item_id)
WHERE (wo_id=pWoid);
IF (NOT woStatus IN ('O', 'E', 'C')) THEN
RETURN -3;
END IF;
IF (NOT deleteForce) THEN
IF (itemType = 'J') THEN
RETURN -2;
END IF;
END IF;
SELECT fetchMetricBool('Routings') INTO _routings;
IF _routings THEN
SELECT count(*) INTO _wotcCnt
FROM xtmfg.wotc
WHERE (wotc_wo_id=pWoid);
IF (_wotcCnt > 0) THEN
RETURN -1;
END IF;
END IF;
IF (woStatus = 'R') THEN
INSERT INTO evntlog (evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id, evntlog_number)
SELECT CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'W', wo_id, itemsite_warehous_id, formatWoNumber(wo_id)
FROM evntnot, evnttype, itemsite, item, wo
WHERE ( (evntnot_evnttype_id=evnttype_id)
AND (evntnot_warehous_id=itemsite_warehous_id)
AND (wo_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (evnttype_name='RWoRequestCancel')
AND (wo_id=pWoid) );
RETURN 0;
ELSE
IF (woStatus = 'E') THEN
returnCode := (SELECT implodeWo(pWoid, FALSE));
END IF;
END IF;
IF (woStatus IN ('O', 'E', 'C')) THEN
DELETE FROM womatl
WHERE (womatl_wo_id=pWoid);
IF _routings THEN
DELETE FROM xtmfg.wooper
WHERE (wooper_wo_id=pWoid);
END IF;
IF (ordtype = 'S') THEN
UPDATE coitem SET coitem_order_type=NULL, coitem_order_id=NULL
WHERE coitem_id=ordid;
END IF;
DELETE FROM wo
WHERE (wo_id=pWoid);
END IF;
IF (deleteChildren) THEN
returnCode := (SELECT MAX(deleteWo(wo_id, TRUE))
FROM wo
WHERE ((wo_ordtype='W')
AND (wo_ordid=pWoid)));
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deletewo(integer, boolean, boolean) OWNER TO admin;
--
-- Name: deletewomaterial(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION deletewomaterial(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWomatlid ALIAS FOR $1;
BEGIN
UPDATE wo
SET wo_adhoc=TRUE
FROM womatl
WHERE ((womatl_wo_id=wo_id)
AND (womatl_id=pWomatlid));
-- Delete any created P/R for this Womatl
PERFORM deletePr('W', pWomatlid);
DELETE FROM womatl
WHERE (womatl_id=pWomatlid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.deletewomaterial(integer) OWNER TO admin;
--
-- Name: detachccpayfromso(integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION detachccpayfromso(integer, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pcoheadid ALIAS FOR $1;
pwarehousid ALIAS FOR $2;
pcustid ALIAS FOR $3;
BEGIN
RAISE NOTICE 'detachCCPayFromSO(INTEGER, INTEGER, INTEGER): deprecated';
RETURN 0;
END;
$_$;
ALTER FUNCTION public.detachccpayfromso(integer, integer, integer) OWNER TO admin;
--
-- Name: detachcontact(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION detachcontact(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pcntctId ALIAS FOR $1;
pcrmacctId ALIAS FOR $2;
BEGIN
UPDATE cntct SET cntct_crmacct_id = NULL
WHERE cntct_id = pcntctId
AND cntct_crmacct_id = pcrmacctId;
UPDATE crmacct SET crmacct_cntct_id_1 = NULL
WHERE crmacct_id = pcrmacctId
AND crmacct_cntct_id_1 = pcntctId;
UPDATE crmacct SET crmacct_cntct_id_2 = NULL
WHERE crmacct_id = pcrmacctId
AND crmacct_cntct_id_2 = pcntctId;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.detachcontact(integer, integer) OWNER TO admin;
--
-- Name: detag(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION detag(text) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSource ALIAS FOR $1;
_result TEXT := '';
BEGIN
SELECT regexp_replace(pSource, E'<[^>]*>', '', 'g') INTO _result;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.detag(text) OWNER TO admin;
--
-- Name: detailednnqoh(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION detailednnqoh(integer, boolean) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pABS ALIAS FOR $2;
_qoh NUMERIC;
BEGIN
IF (pABS) THEN
SELECT SUM(noNeg(itemloc_qty)) INTO _qoh
FROM itemloc, location
WHERE ( (itemloc_location_id=location_id)
AND (NOT location_netable)
AND (itemloc_itemsite_id=pItemsiteid) );
ELSE
SELECT SUM(itemloc_qty) INTO _qoh
FROM itemloc, location
WHERE ( (itemloc_location_id=location_id)
AND (NOT location_netable)
AND (itemloc_itemsite_id=pItemsiteid) );
END IF;
IF (_qoh IS NULL) THEN
_qoh := 0;
END IF;
RETURN _qoh;
END;
$_$;
ALTER FUNCTION public.detailednnqoh(integer, boolean) OWNER TO admin;
--
-- Name: detailedqoh(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION detailedqoh(integer, boolean) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pABS ALIAS FOR $2;
_qoh NUMERIC;
BEGIN
IF (pABS) THEN
SELECT SUM(noNeg(itemloc_qty)) INTO _qoh
FROM itemloc LEFT OUTER JOIN location ON (itemloc_location_id=location_id)
WHERE ( ( (location_id IS NULL) OR (location_netable) )
AND (itemloc_itemsite_id=pItemsiteid) );
ELSE
SELECT SUM(itemloc_qty) INTO _qoh
FROM itemloc LEFT OUTER JOIN location ON (itemloc_location_id=location_id)
WHERE ( ( (location_id IS NULL) OR (location_netable) )
AND (itemloc_itemsite_id=pItemsiteid) );
END IF;
IF (_qoh IS NULL) THEN
_qoh := 0;
END IF;
RETURN _qoh;
END;
$_$;
ALTER FUNCTION public.detailedqoh(integer, boolean) OWNER TO admin;
--
-- Name: determinediscountdate(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION determinediscountdate(integer, date) RETURNS date
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTermsid ALIAS FOR $1;
pSourceDate ALIAS FOR $2;
_discDate DATE;
_p RECORD;
BEGIN
SELECT terms_type, terms_discdays, terms_cutoffday INTO _p
FROM terms
WHERE (terms_id=pTermsid);
IF (NOT FOUND) THEN
_discDate := pSourceDate;
-- Handle type D terms
ELSIF (_p.terms_type = 'D') THEN
_discDate := (pSourceDate + _p.terms_discdays);
-- Handle type P terms
ELSIF (_p.terms_type = 'P') THEN
IF (date_part('day', pSourceDate) <= _p.terms_cutoffday) THEN
_discDate := (DATE(date_trunc('month', pSourceDate)) + (_p.terms_discdays - 1));
ELSE
_discDate := (DATE(date_trunc('month', pSourceDate)) + (_p.terms_discdays - 1) + INTERVAL '1 month');
END IF;
-- Handle unknown terms
ELSE
_discDate := pSourceDate;
END IF;
RETURN _discDate;
END;
$_$;
ALTER FUNCTION public.determinediscountdate(integer, date) OWNER TO admin;
--
-- Name: determineduedate(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION determineduedate(integer, date) RETURNS date
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTermsid ALIAS FOR $1;
pSourceDate ALIAS FOR $2;
_dueDate DATE;
_p RECORD;
BEGIN
SELECT terms_type, terms_duedays, terms_cutoffday INTO _p
FROM terms
WHERE (terms_id=pTermsid);
IF (NOT FOUND) THEN
_dueDate := pSourceDate;
-- Handle type D terms
ELSIF (_p.terms_type = 'D') THEN
_dueDate := (pSourceDate + _p.terms_duedays);
-- Handle type P terms
ELSIF (_p.terms_type = 'P') THEN
IF (date_part('day', pSourceDate) <= _p.terms_cutoffday) THEN
_dueDate := (DATE(date_trunc('month', pSourceDate)) + (_p.terms_duedays - 1));
ELSE
_dueDate := (DATE(date_trunc('month', pSourceDate)) + (_p.terms_duedays - 1) + INTERVAL '1 month');
END IF;
-- Handle unknown terms
ELSE
_dueDate := pSourceDate;
END IF;
RETURN _dueDate;
END;
$_$;
ALTER FUNCTION public.determineduedate(integer, date) OWNER TO admin;
--
-- Name: digest(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION digest(text, text) RETURNS bytea
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pg_digest';
ALTER FUNCTION public.digest(text, text) OWNER TO admin;
--
-- Name: digest(bytea, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION digest(bytea, text) RETURNS bytea
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pg_digest';
ALTER FUNCTION public.digest(bytea, text) OWNER TO admin;
--
-- Name: disablepackage(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION disablepackage(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
ppkgname ALIAS FOR $1;
_i INTEGER := 0;
_tabs TEXT[] := ARRAY['cmd', 'cmdarg', 'image', 'metasql',
'priv', 'report', 'script', 'uiform'];
BEGIN
IF (version() < 'PostgreSQL 8.2') THEN
RETURN -1;
END IF;
FOR _i IN ARRAY_LOWER(_tabs,1)..ARRAY_UPPER(_tabs,1) LOOP
EXECUTE 'ALTER TABLE ' || ppkgname || '.pkg' || _tabs[_i] ||
' NO INHERIT public.' || _tabs[_i] || ';';
END LOOP;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.disablepackage(text) OWNER TO admin;
--
-- Name: disablepackage(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION disablepackage(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
ppkgheadid ALIAS FOR $1;
_pkgname TEXT;
BEGIN
SELECT pkghead_name INTO _pkgname
FROM pkghead
WHERE (pkghead_id=ppkgheadid);
IF (NOT FOUND) THEN
RETURN -2;
END IF;
RETURN disablePackage(_pkgname);
END;
$_$;
ALTER FUNCTION public.disablepackage(integer) OWNER TO admin;
--
-- Name: distributeitemlocseries(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION distributeitemlocseries(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemlocSeries ALIAS FOR $1;
_distCounter INTEGER;
_itemlocdist RECORD;
_itemlocid INTEGER;
_invhistid INTEGER;
_check BOOLEAN;
_debug BOOLEAN := true;
BEGIN
IF (_debug) THEN
RAISE NOTICE 'distributeItemlocSeries, series=%', pItemlocSeries;
END IF;
_distCounter := 0;
-- March through all of the itemlocdists for pItemlocSeries
FOR _itemlocdist IN SELECT itemlocdist_id AS itemlocdistid,
itemlocdist_source_type AS type,
itemlocdist_source_id AS sourceid,
itemlocdist_qty AS qty,
itemlocdist_itemsite_id AS itemsiteid,
itemsite_freeze,
itemlocdist_invhist_id AS invhistid,
itemlocdist_ls_id AS lotserialid,
itemlocdist_expiration AS expiration,
itemlocdist_flush,
itemlocdist_warranty AS warranty,
itemlocdist_series AS series
FROM itemlocdist, itemsite
WHERE ( (itemlocdist_itemsite_id=itemsite_id)
AND (itemlocdist_series=pItemlocSeries) )
ORDER BY itemlocdist_flush DESC LOOP
_distCounter := _distCounter + 1;
IF (_debug) THEN
RAISE NOTICE 'itemlocdist loop %', _distCounter;
RAISE NOTICE 'itemlocdistid=%', _itemlocdist.itemlocdistid;
RAISE NOTICE 'type=%', _itemlocdist.type;
RAISE NOTICE 'sourceid=%', _itemlocdist.sourceid;
RAISE NOTICE 'qty=%', _itemlocdist.qty;
RAISE NOTICE 'itemsiteid=%', _itemlocdist.itemsiteid;
RAISE NOTICE 'freeze=%', _itemlocdist.itemsite_freeze;
RAISE NOTICE 'invhistid=%', _itemlocdist.invhistid;
RAISE NOTICE 'lotserialid=%', _itemlocdist.lotserialid;
RAISE NOTICE 'expiration=%', _itemlocdist.expiration;
RAISE NOTICE 'flush=%', _itemlocdist.itemlocdist_flush;
RAISE NOTICE 'warranty=%', _itemlocdist.warranty;
END IF;
-- Commit invhist to itemsite
IF (NOT _itemlocdist.itemsite_freeze) THEN
PERFORM postInvHist(_itemlocdist.invhistid);
END IF;
-- Mark the invhist tuple for the itemlocdist in question as having detail
UPDATE invhist
SET invhist_hasdetail=TRUE
WHERE ( (NOT invhist_hasdetail)
AND (invhist_id=_itemlocdist.invhistid) );
-- If this itemlocdist is a flush, write a invdetail tuple that records the empty
IF (_itemlocdist.itemlocdist_flush) THEN
INSERT INTO invdetail
( invdetail_invhist_id, invdetail_location_id, invdetail_ls_id,
invdetail_qty, invdetail_qty_before, invdetail_qty_after, invdetail_expiration,
invdetail_warrpurc )
SELECT _itemlocdist.invhistid, itemloc_location_id, itemloc_ls_id,
(itemloc_qty * -1), itemloc_qty, 0, itemloc_expiration,
_itemlocdist.warranty
FROM itemloc
WHERE ( (itemloc_qty <> 0)
AND (itemloc_id=_itemlocdist.sourceid) );
-- Delete the flushed itemloc if its parent itemsite is not frozen
IF (NOT _itemlocdist.itemsite_freeze) THEN
DELETE FROM itemloc
WHERE (itemloc_id=_itemlocdist.sourceid);
END IF;
ELSE
-- If this is a location type distribution, check to see if the target itemloc
-- already exists
IF (_itemlocdist.type = 'L') THEN
SELECT itemloc_id INTO _itemlocid
FROM itemloc
WHERE ( (itemloc_itemsite_id=_itemlocdist.itemsiteid)
AND (itemloc_location_id=_itemlocdist.sourceid)
AND (COALESCE(itemloc_ls_id,-1)=COALESCE(_itemlocdist.lotserialid,-1))
AND (COALESCE(itemloc_expiration,endOfTime())=COALESCE(_itemlocdist.expiration,endOfTime()))
AND (COALESCE(itemloc_warrpurc,endoftime())=COALESCE(_itemlocdist.warranty,endoftime())) );
-- Nope, create it
IF (NOT FOUND) THEN
SELECT NEXTVAL('itemloc_itemloc_id_seq') INTO _itemlocid;
INSERT INTO itemloc
( itemloc_id, itemloc_itemsite_id,
itemloc_location_id, itemloc_qty,
itemloc_ls_id, itemloc_expiration,
itemloc_warrpurc )
VALUES
( _itemlocid, _itemlocdist.itemsiteid,
_itemlocdist.sourceid, 0,
_itemlocdist.lotserialid, _itemlocdist.expiration,
_itemlocdist.warranty );
END IF;
ELSE
_itemlocid = _itemlocdist.sourceid;
IF (_itemlocid IS NOT NULL AND (SELECT count(itemloc_id) = 0 FROM itemloc WHERE itemloc_id=_itemlocid)) THEN
RAISE EXCEPTION 'No record to distribute against. Someone else may have already distributed this record.';
END IF;
END IF;
-- Record the invdetail
INSERT INTO invdetail
(invdetail_invhist_id, invdetail_location_id, invdetail_ls_id,
invdetail_qty, invdetail_qty_before, invdetail_qty_after, invdetail_expiration,
invdetail_warrpurc)
SELECT _itemlocdist.invhistid, itemloc_location_id, _itemlocdist.lotserialid,
_itemlocdist.qty, itemloc_qty, (itemloc_qty + _itemlocdist.qty),
itemloc_expiration,_itemlocdist.warranty
FROM itemloc
WHERE (itemloc_id=_itemlocid);
-- Update the itemloc_qty if its parent itemsite is not frozen
IF (NOT _itemlocdist.itemsite_freeze) THEN
UPDATE itemloc
SET itemloc_qty = (itemloc_qty + _itemlocdist.qty)
WHERE (itemloc_id=_itemlocid);
END IF;
-- Adjust QOH if this itemlocdist is to/from a non-netable location
IF ( SELECT (NOT location_netable)
FROM itemloc, location
WHERE ( (itemloc_location_id=location_id)
AND (itemloc_id=_itemlocid) ) ) THEN
-- Record the netable->non-netable (or visaveras) invhist
SELECT NEXTVAL('invhist_invhist_id_seq') INTO _invhistid;
INSERT INTO invhist
( invhist_id, invhist_itemsite_id,
invhist_transtype, invhist_invqty,
invhist_qoh_before, invhist_qoh_after,
invhist_docnumber, invhist_comments,
invhist_invuom, invhist_unitcost,
invhist_costmethod, invhist_value_before, invhist_value_after,
invhist_series )
SELECT _invhistid, itemsite_id,
'NN', (_itemlocdist.qty * -1),
itemsite_qtyonhand, (itemsite_qtyonhand - _itemlocdist.qty),
invhist_docnumber, invhist_comments,
uom_name, stdCost(item_id),
itemsite_costmethod, itemsite_value,
(itemsite_value + (_itemlocdist.qty * -1 * CASE WHEN(itemsite_costmethod='A') THEN avgcost(itemsite_id)
ELSE stdCost(itemsite_item_id)
END)),
_itemlocdist.series
FROM item, itemsite, invhist, uom
WHERE ((itemsite_item_id=item_id)
AND (item_inv_uom_id=uom_id)
AND (itemsite_controlmethod <> 'N')
AND (itemsite_id=_itemlocdist.itemsiteid)
AND (invhist_id=_itemlocdist.invhistid));
-- Adjust the parent itemsite
IF (NOT _itemlocdist.itemsite_freeze) THEN
UPDATE itemsite
SET itemsite_qtyonhand = (itemsite_qtyonhand - _itemlocdist.qty),
itemsite_nnqoh = (itemsite_nnqoh + _itemlocdist.qty)
FROM itemloc
WHERE ((itemloc_itemsite_id=itemsite_id)
AND (itemloc_id=_itemlocid));
END IF;
END IF;
END IF;
-- If, after the distribution, the target itemloc_qty = 0, delete the itemloc
-- if its parent itemsite is not frozen
IF (NOT _itemlocdist.itemsite_freeze) THEN
DELETE FROM itemloc
WHERE ( (itemloc_qty=0)
AND (itemloc_id=_itemlocid) );
END IF;
END LOOP;
DELETE FROM itemlocdist
WHERE (itemlocdist_series=pItemlocSeries);
RETURN _distCounter;
END;
$_$;
ALTER FUNCTION public.distributeitemlocseries(integer) OWNER TO admin;
--
-- Name: distributetodefault(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION distributetodefault(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemlocdistid ALIAS FOR $1;
BEGIN
RETURN distributeToDefault(pItemlocdistid, 'O');
END;
$_$;
ALTER FUNCTION public.distributetodefault(integer) OWNER TO admin;
--
-- Name: distributetodefault(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION distributetodefault(integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemlocdistid ALIAS FOR $1;
pTranstype ALIAS FOR $2;
_locationid INTEGER;
_itemlocdistid INTEGER;
_qty NUMERIC;
BEGIN
-- Make sure that the itemsite in question has a default location
SELECT CASE WHEN (pTranstype='R') THEN itemsite_recvlocation_id
WHEN (pTranstype='I') THEN itemsite_issuelocation_id
ELSE itemsite_location_id
END INTO _locationid
FROM itemlocdist, itemsite
WHERE ( (itemlocdist_itemsite_id=itemsite_id)
AND (itemlocdist_id=pItemlocdistid) );
IF ( (NOT FOUND) OR (_locationid = -1) ) THEN
RETURN -1;
END IF;
-- Determine the remaining qty required to distribute
SELECT (p.itemlocdist_qty - COALESCE(SUM(c.itemlocdist_qty), 0)) INTO _qty
FROM itemlocdist AS p LEFT OUTER JOIN itemlocdist AS c ON (c.itemlocdist_itemlocdist_id=p.itemlocdist_id)
WHERE (p.itemlocdist_id=pItemlocdistid)
GROUP BY p.itemlocdist_qty;
IF (_qty = 0) THEN
RETURN -2;
END IF;
-- Check to see if an itemlocdist with the correct location/lotserial/expiration already exists
SELECT target.itemlocdist_id INTO _itemlocdistid
FROM itemlocdist AS source, itemlocdist AS target, itemloc, itemsite
WHERE ( (target.itemlocdist_source_type='L')
AND (target.itemlocdist_source_id=_locationid)
AND (target.itemlocdist_itemsite_id=source.itemlocdist_itemsite_id)
AND (COALESCE(target.itemlocdist_ls_id)=COALESCE(source.itemlocdist_ls_id))
AND (target.itemlocdist_expiration=source.itemlocdist_expiration)
AND (target.itemlocdist_itemlocdist_id=source.itemlocdist_itemlocdist_id)
AND (target.itemlocdist_itemsite_id=itemsite_id)
AND (source.itemlocdist_id=pItemlocdistid) );
IF (FOUND) THEN
UPDATE itemlocdist
SET itemlocdist_qty = (itemlocdist_qty + _qty)
WHERE (itemlocdist_id=_itemlocdistid);
RETURN _itemlocdistid;
END IF;
-- Create a new itemlocdist
SELECT NEXTVAL('itemlocdist_itemlocdist_id_seq') INTO _itemlocdistid;
INSERT INTO itemlocdist
( itemlocdist_id, itemlocdist_itemlocdist_id, itemlocdist_source_type,
itemlocdist_ls_id, itemlocdist_expiration,
itemlocdist_source_id, itemlocdist_itemsite_id, itemlocdist_qty )
SELECT _itemlocdistid, pItemlocdistid, 'L',
itemlocdist_ls_id, itemlocdist_expiration,
_locationid, itemlocdist_itemsite_id, _qty
FROM itemlocdist
WHERE (itemlocdist_id=pItemlocdistid);
RETURN _itemlocdistid;
END;
$_$;
ALTER FUNCTION public.distributetodefault(integer, text) OWNER TO admin;
--
-- Name: distributetodefaultitemloc(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION distributetodefaultitemloc(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemlocdistid ALIAS FOR $1;
BEGIN
RETURN distributeToDefaultItemLoc(pItemlocdistid, 'O');
END;
$_$;
ALTER FUNCTION public.distributetodefaultitemloc(integer) OWNER TO admin;
--
-- Name: distributetodefaultitemloc(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION distributetodefaultitemloc(integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemlocdistid ALIAS FOR $1;
pTranstype ALIAS FOR $2;
_itemlocid INTEGER;
_itemlocdistid INTEGER;
_qty NUMERIC;
BEGIN
-- Make sure that the itemsite in question has a default location
SELECT itemloc_id INTO _itemlocid
FROM itemlocdist, itemsite, itemloc
WHERE ((itemlocdist_itemsite_id=itemsite_id)
AND ( (itemsite_location_id=itemloc_location_id AND pTranstype='O') OR
(itemsite_recvlocation_id=itemloc_location_id AND pTranstype='R') OR
(itemsite_issuelocation_id=itemloc_location_id AND pTranstype='I') )
AND (itemloc_itemsite_id=itemsite_id)
AND (itemlocdist_id=pItemlocdistid));
IF ( (NOT FOUND) OR (_itemlocid = -1) ) THEN
RETURN -1;
END IF;
-- Determine the remaining qty required to distribute
SELECT (p.itemlocdist_qty - COALESCE(SUM(c.itemlocdist_qty), 0)) INTO _qty
FROM itemlocdist AS p LEFT OUTER JOIN itemlocdist AS c
ON (c.itemlocdist_itemlocdist_id=p.itemlocdist_id)
WHERE (p.itemlocdist_id=pItemlocdistid)
GROUP BY p.itemlocdist_qty;
IF (_qty = 0) THEN
RETURN -2;
END IF;
-- Check to see if an itemlocdist with the correct location/lotserial/expiration already exists
SELECT target.itemlocdist_id INTO _itemlocdistid
FROM itemlocdist AS source, itemlocdist AS target
WHERE ( (target.itemlocdist_source_type='I')
AND (target.itemlocdist_source_id=_itemlocid)
AND (COALESCE(target.itemlocdist_ls_id,-1)=COALESCE(source.itemlocdist_ls_id,-1))
AND (target.itemlocdist_expiration=source.itemlocdist_expiration)
AND (target.itemlocdist_itemlocdist_id=source.itemlocdist_id)
AND (source.itemlocdist_id=pItemlocdistid) );
IF (FOUND) THEN
UPDATE itemlocdist
SET itemlocdist_qty = (itemlocdist_qty + _qty)
WHERE (itemlocdist_id=_itemlocdistid);
RETURN _itemlocdistid;
END IF;
-- Create a new itemlocdist
SELECT NEXTVAL('itemlocdist_itemlocdist_id_seq') INTO _itemlocdistid;
INSERT INTO itemlocdist
( itemlocdist_id, itemlocdist_itemlocdist_id,
itemlocdist_source_type, itemlocdist_source_id,
itemlocdist_qty, itemlocdist_expiration )
VALUES
( _itemlocdistid, pItemlocdistid,
'I', _itemlocid,
_qty, endOfTime() );
RETURN _itemlocdistid;
END;
$_$;
ALTER FUNCTION public.distributetodefaultitemloc(integer, text) OWNER TO admin;
--
-- Name: distributetolocations(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION distributetolocations(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemlocdistid ALIAS FOR $1;
_distCounter INTEGER;
_itemlocdist RECORD;
_itemlocid INTEGER;
_runningQty NUMERIC;
_tmp RECORD;
BEGIN
_distCounter := 0;
_runningQty := 0;
-- A scenario can occur where two people try to post distributions
-- to the same itemsite against two or more lot/serial/mlc locations
-- leading to a deadlock. This line tries to prevent that by locking
-- ahead of time all the itemsites that the transaction will need
-- before any of the other tables are locked individually.
SELECT itemsite_id
INTO _tmp
FROM itemsite
WHERE(itemsite_id in (SELECT DISTINCT itemlocdist_itemsite_id
FROM itemlocdist
WHERE(itemlocdist_id=pItemlocdistid)))
FOR UPDATE;
-- March through all of the itemlocdist owned by the passed parent itemlocdist
FOR _itemlocdist IN SELECT c.itemlocdist_id AS itemlocdistid,
c.itemlocdist_source_type AS type,
c.itemlocdist_source_id AS sourceid,
c.itemlocdist_qty AS qty,
p.itemlocdist_itemsite_id AS itemsiteid,
itemsite_freeze,
p.itemlocdist_invhist_id AS invhistid,
p.itemlocdist_ls_id AS lotserialid,
p.itemlocdist_expiration AS expiration,
p.itemlocdist_warranty AS warranty,
p.itemlocdist_order_type AS ordertype,
p.itemlocdist_order_id AS orderid,
p.itemlocdist_series AS series
FROM itemlocdist AS c, itemlocdist AS p, itemsite
WHERE ( (c.itemlocdist_itemlocdist_id=p.itemlocdist_id)
AND (p.itemlocdist_source_type='O')
AND (p.itemlocdist_itemsite_id=itemsite_id)
AND (p.itemlocdist_id=pItemlocdistid) ) LOOP
_distCounter := _distCounter + 1;
-- If the target for this itemlocdist is a location, check to see if the
-- required itemloc already exists
IF (_itemlocdist.type = 'L') THEN
SELECT itemloc_id INTO _itemlocid
FROM itemloc
WHERE ( (itemloc_itemsite_id=_itemlocdist.itemsiteid)
AND (itemloc_location_id=_itemlocdist.sourceid)
AND (COALESCE(itemloc_ls_id, -1)=COALESCE(_itemlocdist.lotserialid, -1))
AND (COALESCE(itemloc_expiration,endOfTime())=COALESCE(_itemlocdist.expiration,endOfTime()))
AND (COALESCE(itemloc_warrpurc,endoftime())=COALESCE(_itemlocdist.warranty,endoftime())) );
-- Nope, make it
IF (NOT FOUND) THEN
SELECT NEXTVAL('itemloc_itemloc_id_seq') INTO _itemlocid;
INSERT INTO itemloc
( itemloc_id, itemloc_itemsite_id,
itemloc_location_id, itemloc_qty,
itemloc_ls_id, itemloc_expiration,
itemloc_warrpurc )
VALUES
( _itemlocid, _itemlocdist.itemsiteid,
_itemlocdist.sourceid, 0,
_itemlocdist.lotserialid, _itemlocdist.expiration,
_itemlocdist.warranty );
END IF;
ELSE
-- Yep, cache it
_itemlocid = _itemlocdist.sourceid;
IF (_itemlocid IS NOT NULL AND (SELECT count(itemloc_id) = 0 FROM itemloc WHERE itemloc_id=_itemlocid)) THEN
RAISE EXCEPTION 'No record to distribute against. Someone else may have already distributed this record.';
END IF;
END IF;
-- Record the invdetail for this itemlocdist
INSERT INTO invdetail
( invdetail_invhist_id, invdetail_location_id, invdetail_ls_id,
invdetail_qty, invdetail_qty_before, invdetail_qty_after, invdetail_expiration,
invdetail_warrpurc )
SELECT _itemlocdist.invhistid, itemloc_location_id, itemloc_ls_id,
_itemlocdist.qty, itemloc_qty, (itemloc_qty + _itemlocdist.qty),
itemloc_expiration,_itemlocdist.warranty
FROM itemloc
WHERE (itemloc_id=_itemlocid);
-- Update the parent invhist to indicate that it has invdetail records
UPDATE invhist
SET invhist_hasdetail=TRUE
WHERE ((invhist_hasdetail=FALSE)
AND (invhist_id=_itemlocdist.invhistid));
-- Update the itemloc_qty if its parent itemsite is not frozen
IF (NOT _itemlocdist.itemsite_freeze) THEN
UPDATE itemloc
SET itemloc_qty = (itemloc_qty + _itemlocdist.qty)
WHERE (itemloc_id=_itemlocid);
PERFORM postInvHist(_itemlocdist.invhistid);
-- Handle reservation data
IF ( (SELECT fetchMetricBool('EnableSOReservationsByLocation')) AND
(_itemlocdist.qty < 0) ) THEN
-- If a shipment on a sales order, record reservation change before updating
-- so it can be reversed later if necessary
IF (_itemlocdist.ordertype = 'SO') THEN
INSERT INTO shipitemlocrsrv
SELECT nextval('shipitemlocrsrv_shipitemlocrsrv_id_seq'),
shipitem_id, itemloc_itemsite_id, itemloc_location_id,
itemloc_ls_id, itemloc_expiration, itemloc_warrpurc,
least(_itemlocdist.qty, itemlocrsrv_qty)
FROM shipitem, itemloc
JOIN itemlocrsrv ON (itemloc_id=itemlocrsrv_itemloc_id)
WHERE ( (shipitem_invhist_id=_itemlocdist.invhistid)
AND (itemloc_id=_itemlocid)
AND (itemlocrsrv_source=_itemlocdist.ordertype)
AND (itemlocrsrv_source_id=_itemlocdist.orderid) );
END IF;
-- Update the itemloc reservation
UPDATE itemlocrsrv
SET itemlocrsrv_qty = (itemlocrsrv_qty + _itemlocdist.qty)
WHERE ( (itemlocrsrv_itemloc_id=_itemlocid)
AND (itemlocrsrv_source=_itemlocdist.ordertype)
AND (itemlocrsrv_source_id=_itemlocdist.orderid) );
-- Delete reservation if fully distributed
DELETE FROM itemlocrsrv
WHERE ( (itemlocrsrv_itemloc_id=_itemlocid)
AND (itemlocrsrv_source=_itemlocdist.ordertype)
AND (itemlocrsrv_source_id=_itemlocdist.orderid)
AND (itemlocrsrv_qty=0) );
END IF;
END IF;
-- Adjust QOH if this itemlocdist is to/from a non-netable location
IF ( SELECT (NOT location_netable)
FROM itemloc, location
WHERE ((itemloc_location_id=location_id)
AND (itemloc_id=_itemlocid)) ) THEN
-- Record the invhist record for the netable->non-netable (or visaversa)
INSERT INTO invhist
( invhist_itemsite_id,
invhist_transtype, invhist_invqty,
invhist_qoh_before, invhist_qoh_after,
invhist_docnumber, invhist_comments,
invhist_invuom, invhist_unitcost,
invhist_costmethod, invhist_value_before, invhist_value_after,
invhist_series )
SELECT itemsite_id,
'NN', (_itemlocdist.qty * -1),
itemsite_qtyonhand, (itemsite_qtyonhand - _itemlocdist.qty),
invhist_docnumber, invhist_comments,
uom_name, stdCost(item_id),
itemsite_costmethod, itemsite_value,
(itemsite_value + (_itemlocdist.qty * -1 * CASE WHEN(itemsite_costmethod='A') THEN avgcost(itemsite_id)
ELSE stdCost(itemsite_item_id)
END)),
_itemlocdist.series
FROM item, itemsite, invhist, uom
WHERE ( (itemsite_item_id=item_id)
AND (item_inv_uom_id=uom_id)
AND (itemsite_controlmethod <> 'N')
AND (itemsite_id=_itemlocdist.itemsiteid)
AND (invhist_id=_itemlocdist.invhistid) );
-- Update the itemsite_qoh
IF (NOT _itemlocdist.itemsite_freeze) THEN
UPDATE itemsite
SET itemsite_qtyonhand = (itemsite_qtyonhand - _itemlocdist.qty),
itemsite_nnqoh = (itemsite_nnqoh + _itemlocdist.qty)
FROM itemloc
WHERE ((itemloc_itemsite_id=itemsite_id)
AND (itemloc_id=_itemlocid));
END IF;
END IF;
-- Cache the running qty.
_runningQty := _runningQty + _itemlocdist.qty;
-- Dene with the child itemlocdist, so delete it
DELETE FROM itemlocdist
WHERE (itemlocdist_id=_itemlocdist.itemlocdistid);
-- If the target itemloc is now at qty=0, delete it if its parent
-- itemsite is not frozen
IF (NOT _itemlocdist.itemsite_freeze) THEN
DELETE FROM itemloc
WHERE ( (itemloc_qty=0)
AND (itemloc_id=_itemlocid) );
END IF;
END LOOP;
-- If the running qty for the detailed distributions is the same as the
-- total qty to distribute indicated by the parent itemlocdist, then the
-- parent itemlocdist has been fully distributed and should be deleted.
IF ( ( SELECT itemlocdist_qty
FROM itemlocdist
WHERE (itemlocdist_id=pItemlocdistid) ) = _runningQty) THEN
DELETE FROM itemlocdist
WHERE (itemlocdist_id=pItemlocdistid);
ELSE
-- There is still some more qty to distribute in the parent itemlocdist.
-- Update the qty to distribute with the qty that has been distributed.
UPDATE itemlocdist
SET itemlocdist_qty = (itemlocdist_qty - _runningQty)
WHERE (itemlocdist_id=pItemlocdistid);
END IF;
RETURN _distCounter;
END;
$_$;
ALTER FUNCTION public.distributetolocations(integer) OWNER TO admin;
--
-- Name: distributevoucherline(integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION distributevoucherline(integer, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVoucherId ALIAS FOR $1;
pPoitemId ALIAS FOR $2;
pCurrId ALIAS FOR $3;
_count INTEGER;
_costelemId INTEGER;
_close BOOLEAN;
_r RECORD;
_qtyOrdered NUMERIC;
_voitemId INTEGER;
_taxtypeid INTEGER;
BEGIN
-- Make sure the P/O and Voucher are same currency
SELECT COALESCE(COUNT(*),0) INTO _count
FROM poitem JOIN pohead ON (pohead_id=poitem_pohead_id)
WHERE ((poitem_id=pPoitemid)
AND (pohead_curr_id=pCurrId));
IF (_count = 0) THEN
RETURN -3;
END IF;
-- Validate and get cost element
SELECT COALESCE(COUNT(*),0) INTO _count
FROM itemcost, item, itemsite, poitem
WHERE ((itemcost_item_id=item_id)
AND (item_id=itemsite_item_id)
AND (itemsite_id=poitem_itemsite_id)
AND (poitem_id=pPoitemId));
IF (_count > 1) THEN
RETURN -5;
ELSEIF (_count = 1) THEN
SELECT itemcost_costelem_id INTO _costelemId
FROM itemcost, item, itemsite, poitem
WHERE ((itemcost_item_id=item_id)
AND (item_id=itemsite_item_id)
AND (itemsite_id=poitem_itemsite_id)
AND (poitem_id=pPoitemId));
ELSE
SELECT costelem_id INTO _costelemId
FROM costelem
WHERE (costelem_type='Material');
END IF;
-- Clear previous distributions
UPDATE recv SET recv_vohead_id=NULL, recv_voitem_id=NULL
WHERE ((recv_vohead_id=pVoucherId)
AND (recv_orderitem_id=pPoitemId)
AND (recv_order_type='PO'));
UPDATE poreject SET poreject_vohead_id=NULL, poreject_voitem_id=NULL
WHERE ((poreject_vohead_id=pVoucherId)
AND (poreject_poitem_id=pPoitemId));
DELETE FROM vodist
WHERE ((vodist_poitem_id=pPoitemId)
AND (vodist_vohead_id=pVoucherId));
DELETE FROM voitem
WHERE ((voitem_poitem_id=pPoitemId)
AND (voitem_vohead_id=pVoucherId));
-- Determine Line balances
SELECT COALESCE(SUM(qty_received),0) AS qty_received,
COALESCE(SUM(qty_rejected),0) AS qty_rejected,
COALESCE(SUM(qty_vouchered),0) AS qty_vouchered,
round(COALESCE(SUM(balance),0),2) AS balance,
round(COALESCE(SUM(freight),0),2) AS freight INTO _r
FROM (
SELECT recv_qty AS qty_received,
0 AS qty_rejected,
0 AS qty_vouchered,
(recv_qty * COALESCE(recv_purchcost, poitem_unitprice)) AS balance,
recv_freight AS freight
FROM poitem JOIN recv ON ((recv_orderitem_id=poitem_id) AND
(recv_order_type='PO'))
WHERE ( (recv_vohead_id IS NULL)
AND (NOT recv_invoiced)
AND (recv_posted)
AND (poitem_id=pPoitemId) )
UNION ALL
SELECT 0 AS qty_received,
(poreject_qty) AS qty_rejected,
0 AS qty_vouchered,
(poreject_qty * -1 * COALESCE(recv_purchcost, poitem_unitprice)) AS balance,
0 AS freight
FROM poitem JOIN poreject ON (poreject_poitem_id=poitem_id)
LEFT OUTER JOIN recv ON (recv_id=poreject_recv_id)
WHERE ( (poreject_posted)
AND (poreject_vohead_id IS NULL)
AND (NOT poreject_invoiced)
AND (poitem_id=pPoitemId) )
UNION ALL
SELECT 0 AS qty_received,
0 AS qty_rejected,
voitem_qty AS qty_vouchered,
0 AS balance,
0 AS freight
FROM voitem, poitem
WHERE ( (voitem_poitem_id=pPoitemId)
AND (poitem_id=voitem_poitem_id) )
) AS data;
SELECT poitem_qty_ordered INTO _qtyOrdered
FROM poitem
WHERE (poitem_id=pPoitemId);
IF _r.balance < 0 THEN
RETURN -4;
ELSEIF ( ((_r.qty_received <> 0) OR (_r.qty_received <> 0)) AND (_r.qty_received - _r.qty_rejected = 0) ) THEN
RETURN -2;
ELSEIF ((_r.qty_received - _r.qty_rejected) = 0) THEN
RETURN 0;
END IF;
-- Determine whether to close P/O item
IF (_r.qty_received -_r.qty_rejected + _r.qty_vouchered) >= _qtyOrdered THEN
_close:=True;
ELSE
_close:=False;
END IF;
-- Create distribution
INSERT INTO vodist
(vodist_poitem_id,vodist_vohead_id,vodist_costelem_id,vodist_amount,vodist_qty,vodist_expcat_id)
VALUES (pPoitemId,pVoucherId,_costelemId,_r.balance,(_r.qty_received -_r.qty_rejected),-1);
-- Create voucher item
SELECT poitem_taxtype_id INTO _taxtypeid
FROM poitem
WHERE (poitem_id=pPoitemId);
SELECT NEXTVAL('voitem_voitem_id_seq') INTO _voitemId;
INSERT INTO voitem (voitem_id,voitem_vohead_id,voitem_poitem_id,voitem_close,voitem_qty,voitem_freight, voitem_taxtype_id)
VALUES (_voitemId,pVoucherId,pPoitemId,_close,(_r.qty_received -_r.qty_rejected),_r.freight, _taxtypeid);
-- Tag receipt records
UPDATE recv
SET recv_vohead_id=pVoucherId, recv_voitem_id=_voitemId
WHERE ((recv_orderitem_id=pPoitemId)
AND (recv_order_type='PO')
AND (recv_vohead_id IS NULL));
UPDATE poreject
SET poreject_vohead_id=pVoucherId,poreject_voitem_id=_voitemId
WHERE ((poreject_poitem_id=pPoitemId)
AND (NOT poreject_invoiced)
AND (poreject_vohead_id IS NULL));
RETURN 1;
END;
$_$;
ALTER FUNCTION public.distributevoucherline(integer, integer, integer) OWNER TO admin;
--
-- Name: dopostcosts(boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION dopostcosts(boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pMaterial ALIAS FOR $1;
plowerMaterial ALIAS FOR $2;
pdirectLabor ALIAS FOR $3;
plowerDirectLabor ALIAS FOR $4;
poverhead ALIAS FOR $5;
plowerOverhead ALIAS FOR $6;
pmachOverhead ALIAS FOR $7;
plowerMachOverhead ALIAS FOR $8;
pUser ALIAS FOR $9;
plowerUser ALIAS FOR $10;
prollUp ALIAS FOR $11;
_item RECORD;
_result INTEGER := 0;
BEGIN
PERFORM resetLowLevelCode(-1);
FOR _item IN SELECT costUpdate_item_id
FROM costUpdate
ORDER BY costUpdate_lowlevel_code DESC LOOP
PERFORM doPostCosts(_item.costUpdate_item_id, FALSE,
pMaterial, plowerMaterial, pdirectLabor,
plowerDirectLabor, poverhead, plowerOverhead,
pmachOverhead, plowerMachOverhead,
puser, plowerUser, prollUp);
END LOOP;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.dopostcosts(boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean) OWNER TO admin;
--
-- Name: dopostcosts(integer, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION dopostcosts(integer, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemId ALIAS FOR $1;
pResetLowLevel ALIAS FOR $2;
pMaterial ALIAS FOR $3;
plowerMaterial ALIAS FOR $4;
pdirectLabor ALIAS FOR $5;
plowerDirectLabor ALIAS FOR $6;
poverhead ALIAS FOR $7;
plowerOverhead ALIAS FOR $8;
pmachOverhead ALIAS FOR $9;
plowerMachOverhead ALIAS FOR $10;
pUser ALIAS FOR $11;
plowerUser ALIAS FOR $12;
prollUp ALIAS FOR $13;
_itemcost RECORD;
_result INTEGER;
BEGIN
IF (pResetLowLevel) THEN
PERFORM resetLowLevelCode(pItemId);
END IF;
FOR _itemcost IN SELECT itemcost_id, costelem_sys, costelem_type,
itemcost_lowlevel,
costUpdate_lowlevel_code, costUpdate_item_type
FROM itemcost, costelem, costUpdate
WHERE itemcost_item_id = pItemId
AND costUpdate_item_id = itemcost_item_id
AND itemcost_costelem_id = costelem_id LOOP
IF (NOT _itemcost.costelem_sys) THEN
IF ( (pUser) AND ( NOT _itemcost.itemcost_lowlevel) ) THEN
PERFORM postCost(_itemcost.itemcost_id);
_result := _result + 1;
END IF;
IF ( (plowerUser) AND ( _itemcost.itemcost_lowlevel) ) THEN
PERFORM postCost(_itemcost.itemcost_id);
_result := _result + 1;
END IF;
END IF;
IF (_itemcost.costelem_type = 'Material') THEN
IF ( (pMaterial) AND ( NOT _itemcost.itemcost_lowlevel) ) THEN
PERFORM postCost(_itemcost.itemcost_id);
_result := _result + 1;
END IF;
IF ( (plowerMaterial) AND ( _itemcost.itemcost_lowlevel) ) THEN
PERFORM postCost(_itemcost.itemcost_id);
_result := _result + 1;
END IF;
END IF;
IF (_itemcost.costelem_type = 'Direct Labor') THEN
IF ( (pdirectLabor) AND ( NOT _itemcost.itemcost_lowlevel) ) THEN
PERFORM postCost(_itemcost.itemcost_id);
_result := _result + 1;
END IF;
IF ( (plowerDirectLabor) AND ( _itemcost.itemcost_lowlevel) ) THEN
PERFORM postCost(_itemcost.itemcost_id);
_result := _result + 1;
END IF;
END IF;
IF (_itemcost.costelem_type = 'Overhead') THEN
IF ( (poverhead) AND ( NOT _itemcost.itemcost_lowlevel) ) THEN
PERFORM postCost(_itemcost.itemcost_id);
_result := _result + 1;
END IF;
IF ( (plowerOverhead) AND ( _itemcost.itemcost_lowlevel) ) THEN
PERFORM postCost(_itemcost.itemcost_id);
_result := _result + 1;
END IF;
END IF;
IF (_itemcost.costelem_type = 'Machine Overhead') THEN
IF ( (pmachOverhead) AND ( NOT _itemcost.itemcost_lowlevel) ) THEN
PERFORM postCost(_itemcost.itemcost_id);
_result := _result + 1;
END IF;
IF ( (plowerMachOverhead) AND ( _itemcost.itemcost_lowlevel) ) THEN
PERFORM postCost(_itemcost.itemcost_id);
_result := _result + 1;
END IF;
END IF;
END LOOP;
IF (prollUp) THEN
PERFORM rollUpStandardCost(pItemId);
_result := _result + 1;
END IF;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.dopostcosts(integer, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean) OWNER TO admin;
--
-- Name: doupdatecosts(boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION doupdatecosts(boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
plowerMaterial ALIAS FOR $1;
pdirectLabor ALIAS FOR $2;
plowerDirectLabor ALIAS FOR $3;
poverhead ALIAS FOR $4;
plowerOverhead ALIAS FOR $5;
pmachOverhead ALIAS FOR $6;
plowerMachOverhead ALIAS FOR $7;
plowerUser ALIAS FOR $8;
prollUp ALIAS FOR $9;
BEGIN
RETURN doUpdateCosts(plowerMaterial, pdirectLabor, plowerDirectLabor,
poverhead, plowerOverhead, pmachOverhead,
plowerMachOverhead, plowerUser, prollUp, TRUE);
END;
$_$;
ALTER FUNCTION public.doupdatecosts(boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean) OWNER TO admin;
--
-- Name: doupdatecosts(integer, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION doupdatecosts(integer, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemId ALIAS FOR $1;
pResetLowLevel ALIAS FOR $2;
plowerMaterial ALIAS FOR $3;
pdirectLabor ALIAS FOR $4;
plowerDirectLabor ALIAS FOR $5;
poverhead ALIAS FOR $6;
plowerOverhead ALIAS FOR $7;
pmachOverhead ALIAS FOR $8;
plowerMachOverhead ALIAS FOR $9;
plowerUser ALIAS FOR $10;
prollUp ALIAS FOR $11;
BEGIN
RETURN doUpdateCosts(pItemId, pResetLowLevel, plowerMaterial, pdirectLabor,
plowerDirectLabor, poverhead, plowerOverhead,
pmachOverhead, plowerMachOverhead, plowerUser, prollUp,
TRUE);
END;
$_$;
ALTER FUNCTION public.doupdatecosts(integer, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean) OWNER TO admin;
--
-- Name: doupdatecosts(boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION doupdatecosts(boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
plowerMaterial ALIAS FOR $1;
pdirectLabor ALIAS FOR $2;
plowerDirectLabor ALIAS FOR $3;
poverhead ALIAS FOR $4;
plowerOverhead ALIAS FOR $5;
pmachOverhead ALIAS FOR $6;
plowerMachOverhead ALIAS FOR $7;
plowerUser ALIAS FOR $8;
prollUp ALIAS FOR $9;
pActual ALIAS FOR $10;
_item RECORD;
_bom RECORD;
_result INTEGER := 0;
BEGIN
PERFORM resetLowLevelCode(-1);
FOR _item IN SELECT costUpdate_item_id
FROM costUpdate
ORDER BY costUpdate_lowlevel_code DESC LOOP
PERFORM doUpdateCosts(_item.costUpdate_item_id, false, plowerMaterial,
pdirectLabor, plowerDirectLabor, poverhead, plowerOverhead,
pmachOverhead, plowerMachOverhead, plowerUser, prollUp,
pActual);
END LOOP;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.doupdatecosts(boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean) OWNER TO admin;
--
-- Name: doupdatecosts(integer, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION doupdatecosts(integer, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemId ALIAS FOR $1;
pResetLowLevel ALIAS FOR $2;
plowerMaterial ALIAS FOR $3;
pdirectLabor ALIAS FOR $4;
plowerDirectLabor ALIAS FOR $5;
poverhead ALIAS FOR $6;
plowerOverhead ALIAS FOR $7;
pmachOverhead ALIAS FOR $8;
plowerMachOverhead ALIAS FOR $9;
plowerUser ALIAS FOR $10;
prollUp ALIAS FOR $11;
pUpdateActual ALIAS FOR $12;
_item RECORD;
_bom RECORD;
_result INTEGER := 0;
_resultFromReset INTEGER;
_counterNum INTEGER;
_feedBackNum INTEGER;
BEGIN
IF (pResetLowLevel) THEN
PERFORM resetLowLevelCode(pItemId);
END IF;
SELECT costUpdate_item_id AS item_id, costUpdate_item_type AS item_type
INTO _item
FROM costUpdate
WHERE costUpdate_item_id = pItemId;
IF ((plowerMaterial) AND ((_item.item_type <> 'P') AND (_item.item_type <> 'O'))) THEN
PERFORM updateSorACost(_item.item_id, 'Material', TRUE, lowerCost(_item.item_id, 'Material', pUpdateActual), pUpdateActual);
END IF;
IF (pdirectLabor) THEN
PERFORM updateSorACost(_item.item_id, 'Direct Labor', FALSE, xtmfg.directLaborCost(_item.item_id), pUpdateActual);
END IF;
IF (plowerDirectLabor) THEN
PERFORM updateSorACost(_item.item_id, 'Direct Labor', TRUE, lowerCost(_item.item_id, 'Direct Labor', pUpdateActual), pUpdateActual);
END IF;
IF (poverhead) THEN
PERFORM updateSorACost(_item.item_id, 'Overhead', FALSE, xtmfg.overheadCost(_item.item_id), pUpdateActual);
END IF;
IF (plowerOverhead) THEN
PERFORM updateSorACost(_item.item_id, 'Overhead', TRUE, lowerCost(_item.item_id, 'Overhead', pUpdateActual), pUpdateActual);
END IF;
IF (pmachOverhead) THEN
PERFORM updateSorACost(_item.item_id, 'Machine Overhead', FALSE, xtmfg.machineOverheadCost(_item.item_id), pUpdateActual);
END IF;
IF (plowerMachOverhead) THEN
PERFORM updateSorACost(_item.item_id, 'Machine Overhead', TRUE, lowerCost(_item.item_id, 'Machine Overhead', pUpdateActual), pUpdateActual);
END IF;
IF (plowerUser) THEN
PERFORM updateLowerUserCosts(_item.item_id, pUpdateActual);
END IF;
IF (prollUp) THEN
PERFORM rollUpSorACost(_item.item_id, pUpdateActual);
END IF;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.doupdatecosts(integer, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean, boolean) OWNER TO admin;
--
-- Name: dropifexists(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION dropifexists(text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN dropIfExists($1, $2, 'public');
END;
$_$;
ALTER FUNCTION public.dropifexists(text, text) OWNER TO admin;
--
-- Name: dropifexists(text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION dropifexists(text, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN dropIfExists($1, $2, $3, false);
END;
$_$;
ALTER FUNCTION public.dropifexists(text, text, text) OWNER TO admin;
--
-- Name: dropifexists(text, text, text, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION dropifexists(text, text, text, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pType ALIAS FOR $1;
pObject ALIAS FOR $2;
pSchema ALIAS FOR $3;
pCascade ALIAS FOR $4;
_table TEXT;
_query TEXT;
BEGIN
IF (UPPER(pType) = 'INDEX') THEN
_query = 'DROP INDEX ' || quote_ident(LOWER(pSchema)) || '.' || quote_ident(LOWER(pObject));
BEGIN
EXECUTE _query;
EXCEPTION WHEN undefined_object OR invalid_schema_name THEN
RETURN 0;
WHEN OTHERS THEN RAISE EXCEPTION '% %', SQLSTATE, SQLERRM;
END;
ELSEIF (UPPER(pType) = 'TABLE') THEN
_query = 'DROP TABLE ' || quote_ident(LOWER(pSchema)) || '.' || quote_ident(LOWER(pObject));
IF (pCascade) THEN
_query = _query || ' CASCADE';
END IF;
BEGIN
EXECUTE _query;
EXCEPTION WHEN undefined_table OR invalid_schema_name THEN
RETURN 0;
WHEN OTHERS THEN RAISE EXCEPTION '% %', SQLSTATE, SQLERRM;
END;
ELSIF (UPPER(pType) = 'VIEW') THEN
_query = 'DROP VIEW ' || quote_ident(LOWER(pSchema)) || '.' || quote_ident(LOWER(pObject));
IF (pCascade) THEN
_query = _query || ' CASCADE';
END IF;
BEGIN
EXECUTE _query;
EXCEPTION WHEN undefined_table OR invalid_schema_name THEN
RETURN 0;
WHEN OTHERS THEN RAISE EXCEPTION '% %', SQLSTATE, SQLERRM;
END;
ELSIF (UPPER(pType) = 'TRIGGER') THEN
SELECT relname INTO _table
FROM pg_trigger, pg_class
WHERE ((tgrelid=pg_class.oid)
AND (UPPER(tgname)=UPPER(pObject)));
IF (NOT FOUND) THEN
_table := '[no table]';
END IF;
_query = 'DROP TRIGGER ' || quote_ident(LOWER(pObject)) ||
' ON ' || quote_ident(LOWER(pSchema)) || '.' || quote_ident(LOWER(_table));
BEGIN
EXECUTE _query;
EXCEPTION WHEN undefined_object THEN
RETURN 0;
WHEN undefined_table OR invalid_schema_name THEN
RETURN 0;
WHEN OTHERS THEN RAISE EXCEPTION '% %', SQLSTATE, SQLERRM;
END;
ELSIF (UPPER(pType) = 'FUNCTION') THEN
_query = 'DROP FUNCTION ' || (LOWER(pSchema)) || '.' ||
(LOWER(pObject));
BEGIN
EXECUTE _query;
EXCEPTION WHEN undefined_object OR undefined_function OR invalid_schema_name THEN
RETURN 0;
WHEN OTHERS THEN RAISE EXCEPTION '% %', SQLSTATE, SQLERRM;
END;
ELSIF (UPPER(pType) = 'CONSTRAINT') THEN
IF( (SELECT count(*)
FROM pg_constraint, pg_class, pg_namespace
WHERE((conrelid=pg_class.oid)
AND (connamespace=pg_namespace.oid)
AND (conname=pObject)
AND (nspname=pSchema))
) > 1 ) THEN
RAISE EXCEPTION 'dropIfExists called on constraint name that matches more than 1 constraint.';
END IF;
SELECT relname INTO _table
FROM pg_constraint, pg_class, pg_namespace
WHERE ((conrelid=pg_class.oid)
AND (connamespace=pg_namespace.oid)
AND (conname=pObject)
AND (nspname=pSchema));
IF (NOT FOUND) THEN
RETURN 0;
END IF;
_query = 'ALTER TABLE ' || quote_ident(LOWER(pSchema)) || '.' || quote_ident(LOWER(_table))
|| ' DROP CONSTRAINT ' || quote_ident(LOWER(pObject));
BEGIN
EXECUTE _query;
EXCEPTION WHEN undefined_table OR invalid_schema_name THEN
RETURN 0;
WHEN OTHERS THEN RAISE EXCEPTION '% %', SQLSTATE, SQLERRM;
END;
ELSIF (UPPER(pType) = 'SCHEMA') THEN
_query = 'DROP SCHEMA ' || quote_ident(LOWER(pObject));
BEGIN
EXECUTE _query;
EXCEPTION WHEN invalid_schema_name THEN
RETURN 0;
WHEN OTHERS THEN RAISE EXCEPTION '% %', SQLSTATE, SQLERRM;
END;
ELSIF (UPPER(pType) = 'TYPE') THEN
_query = 'DROP TYPE ' || quote_ident(LOWER(pSchema)) || '.' ||
quote_ident(LOWER(pObject));
IF (pCascade) THEN
_query = _query || ' CASCADE';
END IF;
BEGIN
EXECUTE _query;
EXCEPTION WHEN undefined_object OR invalid_schema_name THEN
RETURN 0;
WHEN OTHERS THEN RAISE EXCEPTION '% %', SQLSTATE, SQLERRM;
END;
ELSE
RAISE EXCEPTION 'dropIfExists(%, %): unknown pType %', pType, pObject, pType;
END IF;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.dropifexists(text, text, text, boolean) OWNER TO admin;
--
-- Name: dropifexists(text, text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION dropifexists(text, text, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pType ALIAS FOR $1;
pObject ALIAS FOR $2;
pSchema ALIAS FOR $3;
pRelation ALIAS FOR $4;
_table TEXT;
_query TEXT;
BEGIN
IF (UPPER(pType) = 'CONSTRAINT') THEN
SELECT relname INTO _table
FROM pg_constraint, pg_class, pg_namespace
WHERE ((conrelid=pg_class.oid)
AND (connamespace=pg_namespace.oid)
AND (conname=pObject)
AND (relname=pRelation)
AND (nspname=pSchema));
IF (NOT FOUND) THEN
RETURN 0;
END IF;
_query = 'ALTER TABLE ' || quote_ident(LOWER(pSchema)) || '.' || quote_ident(LOWER(pRelation))
|| ' DROP CONSTRAINT ' || quote_ident(LOWER(pObject));
BEGIN
EXECUTE _query;
EXCEPTION WHEN undefined_table OR invalid_schema_name THEN
RETURN 0;
WHEN OTHERS THEN RAISE EXCEPTION '% %', SQLSTATE, SQLERRM;
END;
ELSE
RAISE EXCEPTION 'dropIfExists(%, %, %, %): pType % is not supported when relation is specified', pType, pObject, pSchema, pRelation, pType;
END IF;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.dropifexists(text, text, text, text) OWNER TO admin;
--
-- Name: dropstdopntable(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION dropstdopntable() RETURNS boolean
LANGUAGE plpgsql
AS $$
BEGIN
IF((SELECT metric_value != 'Manufacturing' FROM metric WHERE metric_name = 'Application')) THEN
PERFORM dropIfExists('TABLE', 'stdopn');
RETURN true;
END IF;
RETURN false;
END;
$$;
ALTER FUNCTION public.dropstdopntable() OWNER TO admin;
--
-- Name: editccnumber(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION editccnumber(text, text) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCcardnum ALIAS FOR $1;
pCcardtype ALIAS FOR $2;
card_length INTEGER;
card_valid boolean := false;
starting_digits TEXT;
_sum INTEGER := 0;
_digit INTEGER := 0;
_timesTwo BOOLEAN := false;
BEGIN
-- Check the card type
IF (pCcardtype NOT IN ('M', 'V', 'A', 'D')) THEN
-- Unknown Card Type
RETURN -1;
END IF;
card_length := length(pCcardnum);
-- Process Master Card Checking length
-- Process Master Card Starting digits
IF (pCcardtype = 'M') THEN
IF (card_length != 16) THEN
-- Bad Card Length Card Type
RETURN -2;
END IF;
starting_digits := substr(pCcardnum, 1, 2);
IF (starting_digits < '51' OR starting_digits > '55') THEN
-- Bad Starting digits
RETURN -6;
END IF;
END IF;
-- Process Visa Card Checking length
-- Process Visa Card Starting digits
IF (pCcardtype = 'V') THEN
IF (card_length != 13 AND card_length != 16) THEN
-- Bad Card Length Card Type
RETURN -3;
END IF;
starting_digits := substr(pCcardnum, 1, 1);
IF (starting_digits != '4') THEN
-- Bad Starting digits
RETURN -7;
END IF;
END IF;
-- Process American Express Card Checking length
-- Process American Express Card Starting digits
IF (pCcardtype = 'A') THEN
IF (card_length != 15) THEN
-- Bad Card Length Card Type
RETURN -4;
END IF;
starting_digits := substr(pCcardnum, 1, 2);
IF (starting_digits != '34' AND starting_digits != '37') THEN
-- Bad Starting digits
RETURN -8;
END IF;
END IF;
-- Process Discover Card Checking length
-- Process Discover Card Starting digits
IF (pCcardtype = 'D') THEN
IF (card_length != 16) THEN
-- Bad Card Length Card Type
RETURN -5;
END IF;
starting_digits := substr(pCcardnum, 1, 4);
IF (starting_digits != '6011') THEN
-- Bad Starting digits
RETURN -9;
END IF;
END IF;
-- Now comes the fun part of doing the "check" for the check sum
-- perform a luhn checksum
FOR i IN REVERSE card_length .. 1 LOOP
_digit := int4(substr(pCcardnum, i, 1));
IF (_timesTwo) THEN
_digit := _digit * 2;
IF (_digit > 9) THEN
_digit := _digit - 9;
END IF;
END IF;
_sum := _sum + _digit;
_timesTwo := NOT _timesTwo;
END LOOP;
IF (mod(_sum, 10) != 0) THEN
RETURN -10;
END IF;
RETURN 0; -- No Error
END;
$_$;
ALTER FUNCTION public.editccnumber(text, text) OWNER TO admin;
--
-- Name: enablepackage(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION enablepackage(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
ppkgname ALIAS FOR $1;
_i INTEGER := 0;
_tabs TEXT[] := ARRAY['cmd', 'cmdarg', 'image', 'metasql',
'priv', 'report', 'script', 'uiform'];
BEGIN
IF (version() < 'PostgreSQL 8.2') THEN
RETURN -1;
END IF;
FOR _i IN ARRAY_LOWER(_tabs,1)..ARRAY_UPPER(_tabs,1) LOOP
EXECUTE 'ALTER TABLE ' || ppkgname || '.pkg' || _tabs[_i] ||
' INHERIT public.' || _tabs[_i] || ';';
END LOOP;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.enablepackage(text) OWNER TO admin;
--
-- Name: enablepackage(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION enablepackage(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
ppkgheadid ALIAS FOR $1;
_pkgname TEXT;
BEGIN
SELECT pkghead_name INTO _pkgname
FROM pkghead
WHERE (pkghead_id=ppkgheadid);
IF (NOT FOUND) THEN
RETURN -2;
END IF;
RETURN enablePackage(_pkgname);
END;
$_$;
ALTER FUNCTION public.enablepackage(integer) OWNER TO admin;
--
-- Name: encrypt(bytea, bytea, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION encrypt(bytea, bytea, text) RETURNS bytea
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pg_encrypt';
ALTER FUNCTION public.encrypt(bytea, bytea, text) OWNER TO admin;
--
-- Name: encrypt_iv(bytea, bytea, bytea, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION encrypt_iv(bytea, bytea, bytea, text) RETURNS bytea
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pg_encrypt_iv';
ALTER FUNCTION public.encrypt_iv(bytea, bytea, bytea, text) OWNER TO admin;
--
-- Name: endoftime(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION endoftime() RETURNS date
LANGUAGE sql IMMUTABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT DATE('2100-01-01') as result;
$$;
ALTER FUNCTION public.endoftime() OWNER TO admin;
--
-- Name: entercount(integer, numeric, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION entercount(integer, numeric, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pInvcntid ALIAS FOR $1;
pQty ALIAS FOR $2;
pComments ALIAS FOR $3;
BEGIN
UPDATE invcnt
SET invcnt_qoh_after = pQty,
invcnt_comments = CASE WHEN ( (LENGTH(invcnt_comments) = 0) AND
(LENGTH(pComments) > 0) ) THEN pComments
WHEN (LENGTH(pComments) > 0) THEN (invcnt_comments || E'\n' || pComments)
ELSE invcnt_comments
END,
invcnt_cntdate = CURRENT_TIMESTAMP,
invcnt_cnt_username = getEffectiveXtUser()
WHERE (invcnt_id=pInvcntid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.entercount(integer, numeric, text) OWNER TO admin;
--
-- Name: enterporeceipt(integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION enterporeceipt(integer, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN enterReceipt('PO', $1, $2, 0.0, '', NULL, NULL);
END;
$_$;
ALTER FUNCTION public.enterporeceipt(integer, numeric) OWNER TO admin;
--
-- Name: enterporeceipt(integer, numeric, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION enterporeceipt(integer, numeric, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN enterPoReceipt('PO', $1, $2, 0.0, $3, NULL, NULL);
END;
$_$;
ALTER FUNCTION public.enterporeceipt(integer, numeric, text) OWNER TO admin;
--
-- Name: enterporeceipt(integer, numeric, numeric, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION enterporeceipt(integer, numeric, numeric, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN enterPoReceipt('PO', $1, $2, $3, $4, NULL, NULL);
END;
$_$;
ALTER FUNCTION public.enterporeceipt(integer, numeric, numeric, text) OWNER TO admin;
--
-- Name: enterporeceipt(integer, numeric, numeric, text, integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION enterporeceipt(integer, numeric, numeric, text, integer, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN enterReceipt('PO', $1, $2, $3, $4, $5, $6);
END;
$_$;
ALTER FUNCTION public.enterporeceipt(integer, numeric, numeric, text, integer, date) OWNER TO admin;
--
-- Name: enterporeturn(integer, numeric, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION enterporeturn(integer, numeric, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN enterPoReturn($1, $2, $3, NULL);
END;
$_$;
ALTER FUNCTION public.enterporeturn(integer, numeric, integer) OWNER TO admin;
--
-- Name: enterporeturn(integer, numeric, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION enterporeturn(integer, numeric, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPoitemid ALIAS FOR $1;
pQty ALIAS FOR $2;
pRjctcodeid ALIAS FOR $3;
pRecvid ALIAS FOR $4;
_porejectid INTEGER;
BEGIN
SELECT NEXTVAL('poreject_poreject_id_seq') INTO _porejectid;
INSERT INTO poreject
( poreject_id, poreject_date, poreject_ponumber, poreject_poitem_id, poreject_trans_username,
poreject_agent_username, poreject_itemsite_id,
poreject_vend_id, poreject_vend_item_number, poreject_vend_item_descrip, poreject_vend_uom,
poreject_qty, poreject_rjctcode_id, poreject_posted, poreject_invoiced, poreject_recv_id )
SELECT _porejectid, CURRENT_TIMESTAMP, pohead_number, poitem_id, getEffectiveXtUser(),
pohead_agent_username, poitem_itemsite_id,
pohead_vend_id, poitem_vend_item_number, poitem_vend_item_descrip, poitem_vend_uom,
pQty, pRjctcodeid, FALSE, FALSE, pRecvid
FROM poitem JOIN pohead ON (pohead_id=poitem_pohead_id)
WHERE (poitem_id=pPoitemid);
RETURN _porejectid;
END;
$_$;
ALTER FUNCTION public.enterporeturn(integer, numeric, integer, integer) OWNER TO admin;
--
-- Name: enterreceipt(text, integer, numeric, numeric, text, integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION enterreceipt(text, integer, numeric, numeric, text, integer, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN enterReceipt($1, $2, $3, $4, $5, $6, $7, NULL);
END;
$_$;
ALTER FUNCTION public.enterreceipt(text, integer, numeric, numeric, text, integer, date) OWNER TO admin;
--
-- Name: enterreceipt(text, integer, numeric, numeric, text, integer, date, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION enterreceipt(text, integer, numeric, numeric, text, integer, date, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pordertype ALIAS FOR $1;
porderitemid ALIAS FOR $2;
pQty ALIAS FOR $3;
pFreight ALIAS FOR $4;
pNotes ALIAS FOR $5;
pcurrid ALIAS FOR $6; -- NULL is handled by SELECT ... INTO _o
precvdate ALIAS FOR $7; -- NULL is handled by INSERT INTO recv
pRecvCost ALIAS FOR $8;
_timestamp TIMESTAMP;
_o RECORD;
_recvid INTEGER;
_warehouseid INTEGER;
_recvcost NUMERIC;
BEGIN
IF(precvdate IS NULL OR precvdate = CURRENT_DATE) THEN
_timestamp := CURRENT_TIMESTAMP;
ELSE
_timestamp := precvdate;
END IF;
SELECT NEXTVAL('recv_recv_id_seq') INTO _recvid;
DELETE FROM recv
WHERE ((NOT recv_posted)
AND (recv_order_type=pordertype)
AND (recv_orderitem_id=porderitemid) );
IF (pQty > 0) THEN
IF (pordertype='PO') THEN
SELECT pohead_number AS orderhead_number,
poitem_id AS orderitem_id,
pohead_agent_username AS orderhead_agent_username,
CASE WHEN (poitem_itemsite_id = -1) THEN NULL
ELSE poitem_itemsite_id
END AS itemsite_id,
vend_id,
COALESCE(poitem_vend_item_number, '') AS vend_item_number,
COALESCE(poitem_vend_item_descrip, '') AS vend_item_descrip,
COALESCE(poitem_vend_uom, '') AS vend_uom,
poitem_duedate AS duedate,
poitem_unitprice AS orderitem_unitcost,
pohead_curr_id AS orderitem_unitcost_curr_id,
pohead_curr_id AS freight_curr_id,
poitem_rlsd_duedate AS rlsd_duedate INTO _o
FROM pohead
JOIN poitem ON (pohead_id=poitem_pohead_id)
JOIN vendinfo ON (pohead_vend_id=vend_id)
WHERE (poitem_id=porderitemid);
ELSIF (pordertype='RA') THEN
SELECT rahead_number AS orderhead_number,
raitem_id AS orderitem_id,
''::text AS orderhead_agent_username,
raitem_itemsite_id AS itemsite_id,
NULL::integer AS vend_id,
''::text AS vend_item_number,
''::text AS vend_item_descrip,
''::text AS vend_uom,
raitem_scheddate AS duedate,
raitem_unitprice AS orderitem_unitcost,
rahead_curr_id AS orderitem_unitcost_curr_id,
rahead_curr_id AS freight_curr_id,
raitem_scheddate AS rlsd_duedate INTO _o
FROM rahead
JOIN raitem ON (rahead_id=raitem_rahead_id)
WHERE (raitem_id=porderitemid);
ELSIF (pordertype='TO') THEN
SELECT tohead_number AS orderhead_number,
toitem_id AS orderitem_id,
tohead_agent_username AS orderhead_agent_username,
itemsite_id,
NULL::integer AS vend_id,
''::text AS vend_item_number,
''::text AS vend_item_descrip,
''::text AS vend_uom,
toitem_duedate AS duedate,
toitem_stdcost AS orderitem_unitcost,
baseCurrId() AS orderitem_unitcost_curr_id,
toitem_freight_curr_id AS freight_curr_id,
toitem_duedate AS rlsd_duedate INTO _o
FROM itemsite, tohead
JOIN toitem ON (tohead_id=toitem_tohead_id)
WHERE ((toitem_id=porderitemid)
AND (tohead_dest_warehous_id=itemsite_warehous_id)
AND (toitem_item_id=itemsite_item_id));
END IF;
--Make sure user has site privileges
IF ((FOUND) AND (_o.itemsite_id IS NOT NULL)) THEN
SELECT warehous_id INTO _warehouseid
FROM itemsite,site()
WHERE ((itemsite_id=_o.itemsite_id)
AND (warehous_id=itemsite_warehous_id));
IF (NOT FOUND) THEN
RETURN 0;
END IF;
END IF;
--Make sure we aren't trying to receive a Kit
IF ((FOUND) AND (_o.itemsite_id IS NOT NULL)) THEN
IF (SELECT (item_type='K')
FROM itemsite, item
WHERE ((itemsite_id=_o.itemsite_id)
AND (item_id=itemsite_item_id))) THEN
RETURN 0;
END IF;
END IF;
IF (NOT FOUND) THEN
RETURN -1;
END IF;
-- default to orderitem_unitcost if recv_purchcost is not specified
IF(pRecvCost IS NULL) THEN
_recvcost := _o.orderitem_unitcost;
ELSE
_recvcost := pRecvCost;
END IF;
INSERT INTO recv
( recv_id, recv_date,
recv_order_number, recv_order_type, recv_orderitem_id,
recv_trans_usr_name, recv_agent_username, recv_itemsite_id,
recv_vend_id, recv_vend_item_number, recv_vend_item_descrip,
recv_vend_uom, recv_qty, recv_duedate,
recv_purchcost, recv_purchcost_curr_id,
recv_notes, recv_freight, recv_freight_curr_id, recv_rlsd_duedate
) VALUES (
_recvid, _timestamp,
_o.orderhead_number, pordertype, _o.orderitem_id::INTEGER,
getEffectiveXtUser(), _o.orderhead_agent_username, _o.itemsite_id::INTEGER,
_o.vend_id::INTEGER, _o.vend_item_number, _o.vend_item_descrip,
_o.vend_uom, pQty, _o.duedate,
_recvcost, _o.orderitem_unitcost_curr_id::INTEGER,
pNotes, pFreight, _o.freight_curr_id::INTEGER, _o.rlsd_duedate);
END IF;
RETURN _recvid;
END;
$_$;
ALTER FUNCTION public.enterreceipt(text, integer, numeric, numeric, text, integer, date, numeric) OWNER TO admin;
--
-- Name: expirecreditcard(integer, bytea); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION expirecreditcard(integer, bytea) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCust ALIAS FOR $1;
pKey ALIAS FOR $2;
num_updated INTEGER;
cc_year INTEGER;
cc_month INTEGER;
cc_year_t TEXT;
cc_month_t TEXT;
_dr RECORD;
_cc RECORD;
bf TEXT;
BEGIN
num_updated := 0;
bf := 'bf';
select cast(date_part('year', CURRENT_DATE) AS INTEGER) AS check_year, cast(date_part('month', CURRENT_DATE) AS INTEGER) AS check_month INTO _dr;
FOR _cc IN SELECT ccard_id,
decrypt(setbytea(ccard_month_expired), setbytea(pKey), 'bf') AS ccard_month_expired,
decrypt(setbytea(ccard_year_expired), setbytea(pKey), 'bf') AS ccard_year_expired
FROM ccard
WHERE ( (ccard_cust_id=pCust)
AND (ccard_active) ) LOOP
SELECT formatbytea(_cc.ccard_month_expired) INTO cc_month_t;
SELECT formatbytea(_cc.ccard_year_expired) INTO cc_year_t;
SELECT cast(cc_month_t AS INTEGER) INTO cc_month;
SELECT cast(cc_year_t AS INTEGER) INTO cc_year;
IF (cc_year < _dr.check_year) THEN
-- We have an expired card
UPDATE ccard set ccard_active = FALSE where ccard_id = _cc.ccard_id;
num_updated := num_updated + 1;
ELSIF (cc_year = _dr.check_year AND cc_month < _dr.check_month) THEN
-- We have an expired card
UPDATE ccard set ccard_active = FALSE where ccard_id = _cc.ccard_id;
num_updated := num_updated + 1;
END IF;
END LOOP;
RETURN num_updated;
END;
$_$;
ALTER FUNCTION public.expirecreditcard(integer, bytea) OWNER TO admin;
--
-- Name: explodebom(integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION explodebom(integer, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pParentid ALIAS FOR $2;
pLevel ALIAS FOR $3;
_revid INTEGER;
BEGIN
SELECT getActiveRevId('BOM',pItemid) INTO _revid;
RETURN explodeBOM(pItemid, _revid, pParentid, pLevel);
END;
$_$;
ALTER FUNCTION public.explodebom(integer, integer, integer) OWNER TO admin;
--
-- Name: explodebom(integer, integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION explodebom(integer, integer, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pRevisionid ALIAS FOR $2;
pParentid ALIAS FOR $3;
pLevel ALIAS FOR $4;
_bomworkid INTEGER;
_level INTEGER;
_p RECORD;
_r RECORD;
_temp TEXT;
BEGIN
_level := (pLevel + 1);
-- Cache some parameters about the parent
SELECT bomwork_item_id, bomwork_set_id, bomwork_qtyreq,
bomwork_seqnumber, bomwork_effective, bomwork_expires INTO _p
FROM bomwork
WHERE (bomwork_id=pParentid);
-- Step through all of the components of the parent component
FOR _r IN SELECT bomitem.*,
item_id,
(itemuomtouomratio(bomitem_item_id, bomitem_uom_id, NULL) * bomitem_qtyfxd) AS qtyfxd,
(itemuomtouomratio(bomitem_item_id, bomitem_uom_id, NULL) * bomitem_qtyper) AS qtyper,
CASE WHEN (_p.bomwork_effective > bomitem_effective) THEN _p.bomwork_effective
ELSE bomitem_effective
END AS effective,
CASE WHEN (_p.bomwork_expires < bomitem_expires) THEN _p.bomwork_expires
ELSE bomitem_expires
END AS expires,
stdcost(item_id, bomitem_id) AS standardcost, actcost(item_id, bomitem_id) AS actualcost
FROM bomitem(pItemid, pRevisionid), item
WHERE ( (bomitem_item_id=item_id)
AND (bomitem_expires > _p.bomwork_effective) ) LOOP
-- Insert the current component and some bomitem parameters into the bomwork set
SELECT NEXTVAL('bomwork_bomwork_id_seq') INTO _bomworkid;
INSERT INTO bomwork
( bomwork_id, bomwork_set_id, bomwork_parent_id, bomwork_level,
bomwork_parent_seqnumber, bomwork_seqnumber,
bomwork_item_id, bomwork_createwo, bomwork_qtyreq,
bomwork_qtyfxd, bomwork_qtyper, bomwork_scrap, bomwork_issuemethod,
bomwork_effective, bomwork_expires,
bomwork_stdunitcost, bomwork_actunitcost,
bomwork_notes, bomwork_ref,
bomwork_bomitem_id, bomwork_ecn )
VALUES
( _bomworkid, _p.bomwork_set_id, pParentid, _level,
_p.bomwork_seqnumber, _r.bomitem_seqnumber,
_r.item_id, _r.bomitem_createwo, (_p.bomwork_qtyreq * _r.qtyper + _r.qtyfxd),
_r.qtyfxd, _r.qtyper, _r.bomitem_scrap, _r.bomitem_issuemethod,
_r.effective, _r.expires,
_r.standardcost, _r.actualcost,
_r.bomitem_notes, _r.bomitem_ref,
_r.bomitem_id, _r.bomitem_ecn );
-- Recursively repeat for this component's components
PERFORM explodeBOM(_r.item_id, _bomworkid, _level);
END LOOP;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.explodebom(integer, integer, integer, integer) OWNER TO admin;
--
-- Name: explodekit(integer, integer, integer, integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION explodekit(integer, integer, integer, integer, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoheadid ALIAS FOR $1;
pLinenumber ALIAS FOR $2;
pSubnumber ALIAS FOR $3;
pItemsiteid ALIAS FOR $4;
pQty ALIAS FOR $5;
BEGIN
RETURN explodeKit(pSoheadid, pLinenumber, pSubnumber, pItemsiteid, pQty, CURRENT_DATE, NULL);
END;
$_$;
ALTER FUNCTION public.explodekit(integer, integer, integer, integer, numeric) OWNER TO admin;
--
-- Name: explodekit(integer, integer, integer, integer, numeric, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION explodekit(integer, integer, integer, integer, numeric, date, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoheadid ALIAS FOR $1;
pLinenumber ALIAS FOR $2;
pSubnumber ALIAS FOR $3;
pItemsiteid ALIAS FOR $4;
pQty ALIAS FOR $5;
pScheddate ALIAS FOR $6;
pPromdate ALIAS FOR $7;
BEGIN
RETURN explodeKit(pSoheadid, pLinenumber, pSubnumber, pItemsiteid, pQty, CURRENT_DATE, NULL, '');
END;
$_$;
ALTER FUNCTION public.explodekit(integer, integer, integer, integer, numeric, date, date) OWNER TO admin;
--
-- Name: explodekit(integer, integer, integer, integer, numeric, date, date, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION explodekit(integer, integer, integer, integer, numeric, date, date, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoheadid ALIAS FOR $1;
pLinenumber ALIAS FOR $2;
pSubnumber ALIAS FOR $3;
pItemsiteid ALIAS FOR $4;
pQty ALIAS FOR $5;
pScheddate ALIAS FOR $6;
pPromdate ALIAS FOR $7;
pMemo ALIAS FOR $8;
_subnumber INTEGER := COALESCE(pSubnumber,0);
_revid INTEGER;
_itemid INTEGER;
_warehousid INTEGER;
_item RECORD;
_type TEXT;
_coitemid INTEGER;
_count INTEGER;
_orderid INTEGER := 0;
_itemsrcid INTEGER;
BEGIN
SELECT getActiveRevId('BOM',itemsite_item_id), itemsite_warehous_id, itemsite_item_id
INTO _revid, _warehousid, _itemid
FROM itemsite
WHERE(itemsite_id=pItemsiteid);
IF(NOT FOUND) THEN
RAISE EXCEPTION 'No Item Site for the specified line was found.';
END IF;
FOR _item IN
SELECT bomitem_id,
itemsite_id,
itemsite_warehous_id,
COALESCE((itemsite_active AND item_active), false) AS active,
COALESCE((itemsite_sold AND item_sold), false) AS sold,
item_id,
item_type,
item_price_uom_id,
itemsite_createsopr,itemsite_createwo,itemsite_createsopo, itemsite_dropship,
bomitem_uom_id,
itemuomtouomratio(item_id, bomitem_uom_id, item_inv_uom_id) AS invuomratio,
roundQty(itemuomfractionalbyuom(bomitem_item_id, bomitem_uom_id),(bomitem_qtyfxd + bomitem_qtyper * pQty) * (1 + bomitem_scrap)) AS qty
FROM bomitem JOIN item ON (item_id=bomitem_item_id)
LEFT OUTER JOIN itemsite ON ((itemsite_item_id=item_id) AND (itemsite_warehous_id=_warehousid))
WHERE((bomitem_parent_item_id=_itemid)
AND (bomitem_rev_id=_revid)
AND (CURRENT_DATE BETWEEN bomitem_effective AND (bomitem_expires - 1)))
ORDER BY bomitem_seqnumber LOOP
IF (NOT _item.active) THEN
RAISE EXCEPTION 'One or more of the components for the kit is inactive for the selected item site.';
ELSIF (NOT _item.sold) THEN
RAISE EXCEPTION 'One or more of the components for the kit is not sold for the selected item site.';
ELSIF (_item.item_type='F') THEN
SELECT explodeKit(pSoheadid, pLinenumber, _subnumber, _item.itemsite_id, _item.qty)
INTO _subnumber;
ELSE
IF (_item.itemsite_createsopr) THEN
_type := 'R';
ELSIF (_item.itemsite_createsopo) THEN
_type := 'P';
ELSIF (_item.itemsite_createwo) THEN
_type := 'W';
ELSE
_type := NULL;
END IF;
_subnumber := _subnumber + 1;
_coitemid = nextval('coitem_coitem_id_seq');
raise notice 'coitem id: %',_coitemid;
INSERT INTO coitem
(coitem_id, coitem_cohead_id,
coitem_linenumber, coitem_subnumber,
coitem_itemsite_id, coitem_status,
coitem_scheddate, coitem_promdate,
coitem_qtyord, coitem_qty_uom_id, coitem_qty_invuomratio,
coitem_qtyshipped, coitem_qtyreturned,
coitem_unitcost, coitem_custprice,
coitem_price, coitem_price_uom_id, coitem_price_invuomratio,
coitem_order_type, coitem_order_id,
coitem_custpn, coitem_memo,
coitem_prcost)
VALUES (_coitemid, pSoheadid,
pLinenumber, _subnumber,
_item.itemsite_id, 'O',
pScheddate, pPromdate,
_item.qty, _item.bomitem_uom_id, _item.invuomratio,
0, 0,
stdCost(_item.item_id), 0,
0, _item.item_price_uom_id, 1,
_type, -1,
'', pMemo,
0);
IF (_item.itemsite_createsopr) THEN
SELECT createPR(cohead_number::INTEGER, 'S', _coitemid) INTO _orderid
FROM cohead
WHERE (cohead_id=pSoheadid);
IF (_orderid > 0) THEN
UPDATE coitem SET coitem_order_id=_orderid
WHERE (coitem_id=_coitemid);
ELSE
RAISE EXCEPTION 'Could not explode kit. CreatePR failed, result=%', _orderid;
END IF;
END IF;
IF (_item.itemsite_createsopo) THEN
SELECT itemsrc_id INTO _itemsrcid
FROM itemsrc
WHERE ((itemsrc_item_id=_item.item_id)
AND (itemsrc_default));
GET DIAGNOSTICS _count = ROW_COUNT;
IF (_count > 0) THEN
PERFORM createPurchaseToSale(_coitemid, _itemsrcid, _item.itemsite_dropship);
ELSE
RAISE WARNING 'One or more Kit items are flagged as purchase-to-order for this site, but no default item source is defined.';
END IF;
END IF;
END IF;
END LOOP;
RETURN _subnumber;
END;
$_$;
ALTER FUNCTION public.explodekit(integer, integer, integer, integer, numeric, date, date, text) OWNER TO admin;
--
-- Name: explodephantomorder(integer, integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION explodephantomorder(integer, integer, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPlanordid ALIAS FOR $1;
pPhantomid ALIAS FOR $2;
pQty ALIAS FOR $3;
_b RECORD;
BEGIN
FOR _b IN SELECT planord_number, c.itemsite_id AS componentsiteid,
calculatenextworkingdate(c.itemsite_warehous_id, planord_startdate, (c.itemsite_leadtime * -1)) AS startdate,
planord_startdate AS duedate,
bomitem_createwo, c.itemsite_planning_type AS planningtype,
(itemuomtouom(bomitem_item_id, bomitem_uom_id, NULL, (bomitem_qtyfxd + pQty * bomitem_qtyper) * (1 + bomitem_scrap))) AS qtyreq,
item_type
FROM bomitem, planord, itemsite AS p, itemsite AS c, item
WHERE ((bomitem_parent_item_id=p.itemsite_item_id)
AND (bomitem_rev_id=getActiveRevId('BOM',bomitem_parent_item_id))
AND (bomitem_item_id=c.itemsite_item_id)
AND (p.itemsite_warehous_id=c.itemsite_warehous_id)
AND (c.itemsite_item_id=item_id)
AND (woEffectiveDate(planord_startdate) BETWEEN bomitem_effective AND (bomitem_expires - 1))
AND (p.itemsite_id=pPhantomid)
AND (planord_id=pPlanordid)) LOOP
IF (_b.item_type = 'F') THEN
PERFORM explodePhantomOrder(pPlanordid, _b.componentsiteid, _b.qtyreq);
ELSE
-- Create the Planned Requirement
INSERT INTO planreq
( planreq_source, planreq_source_id,
planreq_itemsite_id, planreq_qty )
VALUES
( 'P', pPlanordid,
_b.componentsiteid, _b.qtyreq );
IF (_b.bomitem_createwo AND _b.planningtype != 'N') THEN
PERFORM createPlannedOrder( pPlanordid, _b.planord_number, _b.componentsiteid,
_b.qtyreq, _b.startdate, _b.duedate,
FALSE, FALSE, NULL, NULL);
END IF;
END IF;
END LOOP;
RETURN pPlanordid;
END;
$_$;
ALTER FUNCTION public.explodephantomorder(integer, integer, numeric) OWNER TO admin;
--
-- Name: explodewo(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION explodewo(integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
pExplodeChildren ALIAS FOR $2;
resultCode INTEGER;
newWo RECORD;
_newwoid INTEGER;
_p RECORD;
_r RECORD;
_bbom BOOLEAN;
BEGIN
-- Find out if Breeder BOMs are enabled
SELECT metric_value='t' INTO _bbom
FROM metric
WHERE (metric_name='BBOM');
-- Make sure that this W/O is Open
SELECT wo_id INTO resultCode
FROM wo
WHERE ((wo_status='O')
AND (wo_id=pWoid));
IF (NOT FOUND) THEN
RETURN -4;
END IF;
-- Make sure that all Component Item Sites exist and are valid
-- Item Sites must be active and not Job Costed
SELECT bomitem_id INTO resultCode
FROM wo, bomitem, itemsite
WHERE ( (wo_itemsite_id=itemsite_id)
AND (itemsite_item_id=bomitem_parent_item_id)
AND (woEffectiveDate(wo_startdate) BETWEEN bomitem_effective AND (bomitem_expires - 1))
AND (wo_id=pWoid)
AND (bomitem_rev_id=wo_bom_rev_id)
AND (bomitem_item_id NOT IN
( SELECT component.itemsite_item_id
FROM itemsite AS component, itemsite AS parent
WHERE ( (wo_itemsite_id=parent.itemsite_id)
AND (parent.itemsite_item_id=bomitem_parent_item_id)
AND (bomitem_item_id=component.itemsite_item_id)
AND (woEffectiveDate(wo_startdate) BETWEEN bomitem_effective AND (bomitem_expires - 1))
AND (component.itemsite_active)
AND (component.itemsite_warehous_id=parent.itemsite_warehous_id) ) ) ) )
LIMIT 1;
IF (FOUND) THEN
RETURN -2;
END IF;
-- If the Parent Item is a Breeder, make sure that all the
-- Co-Product/By-Product Item Sites exist
IF (_bbom) THEN
IF ( ( SELECT (item_type='B')
FROM wo, itemsite, item
WHERE ( (wo_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (wo_id=pWoid) ) ) ) THEN
SELECT bbomitem_id INTO resultCode
FROM wo, xtmfg.bbomitem, itemsite
WHERE ( (wo_itemsite_id=itemsite_id)
AND (itemsite_item_id=bbomitem_parent_item_id)
AND (woEffectiveDate(wo_startdate) BETWEEN bbomitem_effective AND (bbomitem_expires - 1))
AND (wo_id=pWoid)
AND (bbomitem_item_id NOT IN
( SELECT component.itemsite_item_id
FROM itemsite AS component, itemsite AS parent
WHERE ( (wo_itemsite_id=parent.itemsite_id)
AND (parent.itemsite_item_id=bbomitem_parent_item_id)
AND (bbomitem_item_id=component.itemsite_item_id)
AND (woEffectiveDate(wo_startdate) BETWEEN bbomitem_effective AND (bbomitem_expires - 1))
AND (component.itemsite_active)
AND (component.itemsite_warehous_id=parent.itemsite_warehous_id) ) ) ) )
LIMIT 1;
IF (FOUND) THEN
RETURN -3;
END IF;
END IF;
END IF;
-- Create the W/O Material Requirements
INSERT INTO womatl
( womatl_wo_id, womatl_bomitem_id, womatl_wooper_id, womatl_schedatwooper,
womatl_itemsite_id,
womatl_duedate,
womatl_uom_id, womatl_qtyfxd, womatl_qtyper, womatl_scrap,
womatl_qtyreq,
womatl_qtyiss, womatl_qtywipscrap,
womatl_lastissue, womatl_lastreturn, womatl_cost,
womatl_picklist, womatl_createwo, womatl_issuewo,
womatl_issuemethod, womatl_notes, womatl_ref )
SELECT wo_id, bomitem_id, bomitem_booitem_seq_id, bomitem_schedatwooper,
cs.itemsite_id,
CASE WHEN bomitem_schedatwooper THEN COALESCE(calcWooperStartStub(wo_id,bomitem_booitem_seq_id), wo_startdate)
ELSE wo_startdate
END,
bomitem_uom_id, bomitem_qtyfxd, bomitem_qtyper, bomitem_scrap,
roundQty(itemuomfractionalbyuom(bomitem_item_id, bomitem_uom_id), (bomitem_qtyfxd + bomitem_qtyper * wo_qtyord) * (1 + bomitem_scrap)),
0, 0,
startOfTime(), startOfTime(), 0,
item_picklist, ( (item_type='M') AND (bomitem_createwo) ),
CASE WHEN ( (item_type='M') AND (bomitem_issuewo) ) THEN TRUE
WHEN (cs.itemsite_costmethod='J') THEN TRUE
ELSE FALSE
END,
bomitem_issuemethod, bomitem_notes, bomitem_ref
FROM bomitem, wo, itemsite AS ps, itemsite AS cs, item
WHERE ( (wo_itemsite_id=ps.itemsite_id)
AND (bomitem_parent_item_id=ps.itemsite_item_id)
AND (bomitem_item_id=cs.itemsite_item_id)
AND (bomitem_rev_id=wo_bom_rev_id)
AND (ps.itemsite_warehous_id=cs.itemsite_warehous_id)
AND (cs.itemsite_item_id=item_id)
AND (woEffectiveDate(wo_startdate) BETWEEN bomitem_effective AND (bomitem_expires - 1))
AND (wo_id=pWoid)
AND ((bomitem_char_id IS NULL)
OR EXISTS (
SELECT charass_id
FROM coitem,charass
WHERE ((charass_target_type='SI')
AND (charass_target_id=coitem_id)
AND (charass_char_id=bomitem_char_id)
AND (charass_value=bomitem_value)
AND (wo_ordtype='S')
AND (coitem_id=wo_ordid)))) );
-- Update any created P/R's the have the project id as the parent WO.
UPDATE pr SET pr_prj_id=wo_prj_id
FROM womatl, wo
WHERE ((wo_id=pWoid)
AND (womatl_wo_id=wo_id)
AND (pr_order_type='W')
AND (pr_order_id=womatl_id));
-- If the parent Item is a Breeder, create the brddist
-- records for the Co-Products and By-Products
IF (_bbom) THEN
INSERT INTO xtmfg.brddist
( brddist_wo_id, brddist_wo_qty, brddist_itemsite_id,
brddist_stdqtyper, brddist_qty, brddist_posted )
SELECT wo_id, 0, cs.itemsite_id,
bbomitem_qtyper, 0, FALSE
FROM wo, xtmfg.bbomitem,
itemsite AS ps, itemsite AS cs, item
WHERE ( (bbomitem_parent_item_id=ps.itemsite_item_id)
AND (wo_itemsite_id=ps.itemsite_id)
AND (ps.itemsite_item_id=item_id)
AND (item_type='B')
AND (bbomitem_item_id=cs.itemsite_item_id)
AND (cs.itemsite_warehous_id=ps.itemsite_warehous_id)
AND (wo_id=pWoid) );
END IF;
-- Insert the W/O Operations if routings enabled
IF ( ( SELECT (metric_value='t')
FROM metric
WHERE (metric_name='Routings') ) ) THEN
INSERT INTO xtmfg.wooper
( wooper_wo_id, wooper_booitem_id, wooper_seqnumber,
wooper_wrkcnt_id, wooper_stdopn_id,
wooper_descrip1, wooper_descrip2, wooper_toolref,
wooper_sutime, wooper_sucosttype, wooper_surpt,
wooper_rntime, wooper_rncosttype, wooper_rnrpt,
wooper_rnqtyper,
wooper_produom, wooper_invproduomratio,
wooper_issuecomp, wooper_rcvinv,
wooper_suconsumed, wooper_sucomplete,
wooper_rnconsumed, wooper_rncomplete,
wooper_qtyrcv, wooper_instruc, wooper_scheduled,
wooper_wip_location_id )
SELECT wo_id, booitem_id, booitem_seqnumber,
booitem_wrkcnt_id, booitem_stdopn_id,
booitem_descrip1, booitem_descrip2, booitem_toolref,
CASE WHEN (booitem_surpt) THEN booitem_sutime
ELSE 0
END, booitem_sucosttype, booitem_surpt,
CASE WHEN ((booitem_rnqtyper = 0) OR (booitem_invproduomratio = 0)) THEN 0
WHEN (NOT booitem_rnrpt) THEN 0
ELSE ( ( booitem_rntime /
booitem_rnqtyper /
booitem_invproduomratio ) * wo_qtyord )
END, booitem_rncosttype, booitem_rnrpt,
CASE WHEN (booitem_rnqtyper = 0) THEN 0
WHEN (NOT booitem_rnrpt) THEN 0
ELSE (booitem_rntime / booitem_rnqtyper)
END,
booitem_produom, booitem_invproduomratio,
booitem_issuecomp, booitem_rcvinv,
0::NUMERIC, FALSE,
0::NUMERIC, FALSE,
0::NUMERIC, booitem_instruc,
calculatenextworkingdate(itemsite_warehous_id,wo_startdate,booitem_execday-1),
booitem_wip_location_id
FROM xtmfg.booitem, wo, itemsite
WHERE ((wo_itemsite_id=itemsite_id)
AND (itemsite_item_id=booitem_item_id)
AND (booitem_rev_id=wo_boo_rev_id)
AND (woEffectiveDate(wo_startdate) BETWEEN booitem_effective AND (booitem_expires - 1))
AND (wo_id=pWoid));
-- Update womatls item to link to wooper items when the respective
-- bomitem record indicates a booitem issue link.
UPDATE womatl
SET womatl_wooper_id=wooper_id
FROM wo,xtmfg.wooper,xtmfg.booitem
WHERE ((womatl_wooper_id=booitem_seq_id)
AND (wooper_booitem_id=booitem_id)
AND (womatl_wo_id=wo_id)
AND (wooper_wo_id=wo_id)
AND (wo_boo_rev_id=booitem_rev_id)
AND (wo_id=pWoid));
END IF;
-- Handle all of the Phantom material requirements
WHILE ( ( SELECT COUNT(*)
FROM womatl, itemsite, item
WHERE ( (womatl_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (womatl_wo_id=pWoid)
AND (item_type='F') ) ) > 0 ) LOOP
FOR _p IN SELECT wo_qtyord, wo_startdate, womatl_id, womatl_wooper_id
FROM wo, womatl, itemsite, item
WHERE ( (womatl_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (item_type='F')
AND (womatl_wo_id=wo_id)
AND (wo_id=pWoid) ) LOOP
INSERT INTO womatl
( womatl_wo_id, womatl_itemsite_id, womatl_wooper_id,
womatl_schedatwooper, womatl_duedate,
womatl_uom_id, womatl_qtyfxd, womatl_qtyper, womatl_scrap,
womatl_qtyreq,
womatl_qtyiss, womatl_qtywipscrap,
womatl_lastissue, womatl_lastreturn,
womatl_cost, womatl_picklist,
womatl_createwo, womatl_issuewo,
womatl_issuemethod, womatl_notes, womatl_ref )
SELECT pWoid, cs.itemsite_id, _p.womatl_wooper_id,
womatl_schedatwooper, womatl_duedate,
bomitem_uom_id, bomitem_qtyfxd, (bomitem_qtyper * womatl_qtyper), bomitem_scrap,
roundQty(itemuomfractionalbyuom(bomitem_item_id, bomitem_uom_id),
(bomitem_qtyfxd + _p.wo_qtyord * bomitem_qtyper * womatl_qtyper) * (1 + bomitem_scrap)),
0, 0,
startOfTime(), startOfTime(),
0, ci.item_picklist,
( (ci.item_type='M') AND (bomitem_createwo) ), ( (ci.item_type='M') AND (bomitem_issuewo) ),
bomitem_issuemethod, bomitem_notes, bomitem_ref
FROM womatl JOIN wo ON (wo_id=womatl_wo_id)
JOIN itemsite ps ON (ps.itemsite_id=womatl_itemsite_id)
JOIN item pi ON (pi.item_id=ps.itemsite_item_id)
JOIN bomitem ON ( (bomitem_parent_item_id=pi.item_id) AND
(woEffectiveDate(_p.wo_startdate) BETWEEN bomitem_effective AND (bomitem_expires - 1)) AND
(bomitem_rev_id=getActiveRevId('BOM', pi.item_id)) )
JOIN item ci ON (ci.item_id=bomitem.bomitem_item_id)
JOIN itemsite cs ON ( (cs.itemsite_item_id=ci.item_id) AND
(cs.itemsite_warehous_id=ps.itemsite_warehous_id) )
WHERE (womatl_id=_p.womatl_id);
DELETE FROM womatl
WHERE (womatl_id=_p.womatl_id);
END LOOP;
END LOOP;
-- Create W/Os for manufactured component items
FOR newWo IN SELECT wo_number, nextWoSubnumber(wo_number) AS nextSubnumber,
itemsite_id, itemsite_leadtime, womatl_duedate,
womatl_wo_id, womatl_qtyreq, womatl_uom_id, wo_prj_id,
item_id, item_inv_uom_id, womatl_id
FROM womatl, wo, itemsite, item
WHERE ( (womatl_wo_id=wo_id)
AND (womatl_itemsite_id=itemsite_id)
AND (womatl_createwo)
AND (itemsite_wosupply)
AND (itemsite_item_id=item_id)
AND (wo_id=pWoid) )
ORDER BY womatl_id LOOP
SELECT createWo( newWo.wo_number, newWo.itemsite_id, 1,
itemuomtouom(newWo.item_id,newWo.womatl_uom_id,newWo.item_inv_uom_id,newWo.womatl_qtyreq),
newWo.itemsite_leadtime, newWo.womatl_duedate, '',
'W', newWo.womatl_wo_id, newWo.wo_prj_id ) INTO _newwoid;
UPDATE wo SET wo_womatl_id = newWo.womatl_id WHERE wo_id=_newwoid;
END LOOP;
UPDATE wo
SET wo_status='E', wo_adhoc=FALSE
WHERE (wo_id=pWoid);
IF (pExplodeChildren) THEN
SELECT MAX(explodeWo(wo_id, TRUE)) INTO resultCode
FROM wo
WHERE ( (wo_ordtype='W')
AND (wo_ordid=pWoid) );
END IF;
RETURN pWoid;
END;
$_$;
ALTER FUNCTION public.explodewo(integer, boolean) OWNER TO admin;
--
-- Name: explodewoeffective(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION explodewoeffective() RETURNS text
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_value TEXT;
BEGIN
SELECT metric_value INTO _value
FROM metric
WHERE (metric_name='ExplodeWOEffective');
RETURN _value;
END;
$$;
ALTER FUNCTION public.explodewoeffective() OWNER TO admin;
--
-- Name: fetchapmemonumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchapmemonumber() RETURNS integer
LANGUAGE sql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT fetchNextNumber('APMemoNumber')::INTEGER;
$$;
ALTER FUNCTION public.fetchapmemonumber() OWNER TO admin;
--
-- Name: fetcharmemonumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetcharmemonumber() RETURNS text
LANGUAGE sql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT fetchNextNumber('ARMemoNumber');
$$;
ALTER FUNCTION public.fetcharmemonumber() OWNER TO admin;
--
-- Name: fetchcashrcptnumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchcashrcptnumber() RETURNS text
LANGUAGE sql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT fetchNextNumber('CashRcptNumber');
$$;
ALTER FUNCTION public.fetchcashrcptnumber() OWNER TO admin;
--
-- Name: fetchcmnumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchcmnumber() RETURNS text
LANGUAGE sql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT fetchNextNumber('CmNumber');
$$;
ALTER FUNCTION public.fetchcmnumber() OWNER TO admin;
--
-- Name: fetchcrmaccountnumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchcrmaccountnumber() RETURNS integer
LANGUAGE sql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT fetchNextNumber('CRMAccountNumber')::INTEGER;
$$;
ALTER FUNCTION public.fetchcrmaccountnumber() OWNER TO admin;
--
-- Name: fetchdefaultfob(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchdefaultfob(pwarehousid integer) RETURNS text
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT warehous_fob
FROM whsinfo
WHERE (warehous_id=$1);
$_$;
ALTER FUNCTION public.fetchdefaultfob(pwarehousid integer) OWNER TO admin;
--
-- Name: fetchdefaultshipvia(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchdefaultshipvia() RETURNS text
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal TEXT;
BEGIN
SELECT shipvia_code INTO _returnVal
FROM shipvia
WHERE shipvia_id=
(SELECT CAST(metric_value AS integer)
FROM metric
WHERE metric_name = 'DefaultShipViaId');
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.fetchdefaultshipvia() OWNER TO admin;
--
-- Name: fetchglsequence(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchglsequence() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_sequence INTEGER;
BEGIN
SELECT NEXTVAL('gltrans_sequence_seq') INTO _sequence;
RETURN _sequence;
END;
$$;
ALTER FUNCTION public.fetchglsequence() OWNER TO admin;
--
-- Name: fetchincidentnumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchincidentnumber() RETURNS integer
LANGUAGE sql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT fetchNextNumber('IncidentNumber')::integer;
$$;
ALTER FUNCTION public.fetchincidentnumber() OWNER TO admin;
--
-- Name: fetchinvcnumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchinvcnumber() RETURNS integer
LANGUAGE sql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT fetchNextNumber('InvcNumber')::integer;
$$;
ALTER FUNCTION public.fetchinvcnumber() OWNER TO admin;
--
-- Name: fetchitemuomconvtypes(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchitemuomconvtypes(integer) RETURNS text[]
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemUomConvId ALIAS FOR $1;
_p RECORD;
_result text[];
_cnt INTEGER;
BEGIN
_cnt := 0;
FOR _p IN SELECT
uomtype_name
FROM itemuomconv, itemuom, uomtype
WHERE ((itemuomconv_id=pItemUomConvId)
AND (itemuomconv_id=itemuom_itemuomconv_id)
AND (itemuom_uomtype_id=uomtype_id))
LOOP
_result[_cnt] := _p.uomtype_name;
_cnt := _cnt + 1;
END LOOP;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.fetchitemuomconvtypes(integer) OWNER TO admin;
--
-- Name: fetchjournalnumber(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchjournalnumber(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUse ALIAS FOR $1;
_number INTEGER;
BEGIN
SELECT nextval('journal_number_seq') INTO _number;
INSERT INTO jrnluse
(jrnluse_date, jrnluse_number, jrnluse_use)
VALUES
(CURRENT_TIMESTAMP, _number, pUse);
RETURN _number;
END;
$_$;
ALTER FUNCTION public.fetchjournalnumber(text) OWNER TO admin;
--
-- Name: fetchmetricbool(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchmetricbool(text) RETURNS boolean
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_pMetricName ALIAS FOR $1;
_returnVal BOOLEAN;
BEGIN
SELECT CASE
WHEN MIN(metric_value) = 't' THEN
true
ELSE
false
END INTO _returnVal
FROM metric
WHERE metric_name = _pMetricName;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.fetchmetricbool(text) OWNER TO admin;
--
-- Name: fetchmetrictext(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchmetrictext(text) RETURNS text
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_pMetricName ALIAS FOR $1;
_returnVal TEXT;
BEGIN
SELECT metric_value::TEXT INTO _returnVal
FROM metric
WHERE metric_name = _pMetricName;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.fetchmetrictext(text) OWNER TO admin;
--
-- Name: fetchmetricvalue(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchmetricvalue(text) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_pMetricName ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
SELECT CASE WHEN (isNumeric(metric_value)) THEN metric_value::INTEGER
ELSE NULL
END INTO _returnVal
FROM metric
WHERE metric_name = _pMetricName;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.fetchmetricvalue(text) OWNER TO admin;
--
-- Name: fetchnextchecknumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchnextchecknumber(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBankaccntid ALIAS FOR $1;
_nextChkNumber INTEGER;
BEGIN
SELECT bankaccnt_nextchknum INTO _nextChkNumber
FROM bankaccnt
WHERE (bankaccnt_id=pBankaccntid);
UPDATE bankaccnt
SET bankaccnt_nextchknum = (bankaccnt_nextchknum + 1)
WHERE (bankaccnt_id=pBankaccntid);
RETURN _nextChkNumber;
END;
$_$;
ALTER FUNCTION public.fetchnextchecknumber(integer) OWNER TO admin;
--
-- Name: fetchnextnumber(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchnextnumber(text) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
psequence ALIAS FOR $1;
_number TEXT;
_numcol TEXT;
_select TEXT;
_table TEXT;
_test TEXT;
_nextnum INTEGER;
_seqiss seqiss;
__seqiss seqiss[];
_not_issued BOOLEAN;
BEGIN
SELECT CAST(orderseq_number AS text), orderseq_number, orderseq_table, orderseq_numcol, COALESCE(orderseq_seqiss, ARRAY[]::seqiss[])
INTO _number, _nextnum, _table, _numcol, __seqiss
FROM orderseq
WHERE (orderseq_name=psequence) FOR UPDATE;
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Invalid orderseq_name %', psequence;
END IF;
LOOP
_seqiss := (_nextnum, now());
SELECT count(*) = 0 INTO _not_issued
FROM (SELECT UNNEST(__seqiss) AS issued) data
WHERE (issued).seqiss_number = _nextnum;
_nextnum := _nextnum + 1;
-- Test if the number has been issued, but not committed
IF (_not_issued) THEN
-- Test if the number has been committed
_select := 'SELECT ' || quote_ident(_numcol) ||
' FROM ' || quote_ident(_table) ||
' WHERE (' || quote_ident(_numcol) || '=' ||
quote_literal(_number) || ');';
EXECUTE _select INTO _test;
IF (_test IS NULL OR NOT FOUND) THEN
EXIT;
END IF;
END IF;
-- Number in use, try again
_number = _nextnum::text;
END LOOP;
UPDATE orderseq SET
orderseq_number = _nextnum,
orderseq_seqiss = orderseq_seqiss || _seqiss
WHERE (orderseq_name=psequence);
RETURN _number;
END;
$_$;
ALTER FUNCTION public.fetchnextnumber(text) OWNER TO admin;
--
-- Name: fetchponumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchponumber() RETURNS text
LANGUAGE sql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT fetchNextNumber('PoNumber');
$$;
ALTER FUNCTION public.fetchponumber() OWNER TO admin;
--
-- Name: fetchprefwarehousid(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchprefwarehousid() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_result INTEGER;
BEGIN
SELECT CAST(usrpref_value AS INTEGER) INTO _result
FROM usrpref
WHERE ((usrpref_username=getEffectiveXtUser())
AND (usrpref_name='PreferredWarehouse'));
RETURN _result;
END;
$$;
ALTER FUNCTION public.fetchprefwarehousid() OWNER TO admin;
--
-- Name: fetchprnumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchprnumber() RETURNS integer
LANGUAGE sql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT fetchNextNumber('PrNumber')::INTEGER;
$$;
ALTER FUNCTION public.fetchprnumber() OWNER TO admin;
--
-- Name: fetchqunumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchqunumber() RETURNS text
LANGUAGE sql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT fetchNextNumber('QuNumber');
$$;
ALTER FUNCTION public.fetchqunumber() OWNER TO admin;
--
-- Name: fetchshipmentnumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchshipmentnumber() RETURNS text
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_number TEXT;
_test INTEGER;
BEGIN
LOOP
SELECT CAST(nextval('shipment_number_seq') AS TEXT) INTO _number;
SELECT shiphead_id INTO _test
FROM shiphead
WHERE (shiphead_number=_number);
IF (NOT FOUND) THEN
EXIT;
END IF;
END LOOP;
RETURN _number;
END;
$$;
ALTER FUNCTION public.fetchshipmentnumber() OWNER TO admin;
--
-- Name: fetchsonumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchsonumber() RETURNS text
LANGUAGE sql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT fetchNextNumber('SoNumber');
$$;
ALTER FUNCTION public.fetchsonumber() OWNER TO admin;
--
-- Name: fetchtonumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchtonumber() RETURNS text
LANGUAGE sql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT fetchNextNumber('ToNumber');
$$;
ALTER FUNCTION public.fetchtonumber() OWNER TO admin;
--
-- Name: fetchusrprefbool(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchusrprefbool(text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_pPrefName ALIAS FOR $1;
_returnVal BOOLEAN;
BEGIN
SELECT CASE
WHEN MIN(usrpref_value) = 't' THEN
true
ELSE
false
END INTO _returnVal
FROM usrpref
WHERE ( (usrpref_username=getEffectiveXtUser())
AND (usrpref_name=_pPrefName) );
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.fetchusrprefbool(text) OWNER TO admin;
--
-- Name: fetchvonumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchvonumber() RETURNS integer
LANGUAGE sql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT fetchNextNumber('VcNumber')::INTEGER;
$$;
ALTER FUNCTION public.fetchvonumber() OWNER TO admin;
--
-- Name: fetchwonumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fetchwonumber() RETURNS integer
LANGUAGE sql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT fetchNextNumber('WoNumber')::INTEGER;
$$;
ALTER FUNCTION public.fetchwonumber() OWNER TO admin;
--
-- Name: financialreport(integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION financialreport(integer, integer, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFlheadid ALIAS FOR $1;
pPeriodid ALIAS FOR $2;
pPrjid ALIAS FOR $3;
_result bool;
BEGIN
SELECT financialreport(pFlheadid,pPeriodid,'M', pPrjid) INTO _result;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.financialreport(integer, integer, integer) OWNER TO admin;
--
-- Name: financialreport(integer, integer, character, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION financialreport(integer, integer, character, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFlheadid ALIAS FOR $1;
pPeriodid ALIAS FOR $2;
pInterval ALIAS FOR $3;
pPrjid ALIAS FOR $4;
_r RECORD;
_t RECORD;
_s RECORD;
BEGIN
-- Validate Interval
IF pInterval <> 'M' AND pInterval <> 'Q' AND pInterval <> 'Y' THEN
RAISE EXCEPTION 'Invalid Interval --> %', pInterval;
END IF;
-- Get rid of any old reporting done by this user for the specified criteria
DELETE FROM flrpt
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodId)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser()));
-- Find out if we need to show a Grand Total and which if any of the values
-- we want to show in that grand total.
SELECT flhead_showtotal,
CASE WHEN(flhead_showstart) THEN 0.00
ELSE NULL
END AS beginning,
CASE WHEN(flhead_showend) THEN 0.00
ELSE NULL
END AS ending,
CASE WHEN(flhead_showdelta) THEN 0.00
ELSE NULL
END AS debits,
CASE WHEN(flhead_showdelta) THEN 0.00
ELSE NULL
END AS credits,
CASE WHEN(flhead_showbudget) THEN 0.00
ELSE NULL
END AS budget,
CASE WHEN(flhead_showdiff) THEN 0.00
ELSE NULL
END AS diff,
CASE WHEN(flhead_showcustom) THEN 0.00
ELSE NULL
END AS custom,
CASE WHEN(flhead_usealttotal) THEN flhead_alttotal
ELSE NULL
END AS altname INTO _r
FROM flhead
WHERE (flhead_id=pFlheadid);
IF (NOT FOUND) THEN
return FALSE;
END IF;
-- If showing a Grand Total then create a record as a Group which acts
-- as a parent to the whole report. This allows the code to update as
-- it would for normal group total values.
IF (_r.flhead_showtotal) THEN
INSERT INTO flrpt
(flrpt_flhead_id, flrpt_period_id, flrpt_username,
flrpt_order, flrpt_level, flrpt_type, flrpt_type_id,
flrpt_beginning, flrpt_ending,
flrpt_debits, flrpt_credits, flrpt_budget, flrpt_diff,
flrpt_custom, flrpt_altname, flrpt_interval )
VALUES (pFlheadid, pPeriodid, getEffectiveXtUser(),
0, -1, 'G', -1,
_r.beginning, _r.ending,
_r.debits, _r.credits, _r.budget, _r.diff,
_r.custom, _r.altname, pInterval );
END IF;
PERFORM insertFlGroup(pFlheadid, pPeriodid, -1, 0, FALSE, pInterval, pPrjid);
-- go through the list of records that need percentages calculated and perform
-- those calculations.
FOR _t IN SELECT flrpt_order, CASE WHEN(flgrp_prcnt_flgrp_id = -1) THEN flgrp_flgrp_id ELSE flgrp_prcnt_flgrp_id END AS flgrp_id
FROM flrpt, flgrp
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser())
AND (flrpt_type='G')
AND (flrpt_type_id=flgrp_id))
UNION
SELECT flrpt_order, CASE WHEN(flitem_prcnt_flgrp_id = -1) THEN flitem_flgrp_id ELSE flitem_prcnt_flgrp_id END AS flgrp_id
FROM flrpt, flitem
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser())
AND (flrpt_type='I')
AND (flrpt_type_id=flitem_id))
UNION
SELECT flrpt_order, CASE WHEN(flspec_prcnt_flgrp_id = -1) THEN flspec_flgrp_id ELSE flspec_prcnt_flgrp_id END AS flgrp_id
FROM flrpt, flspec
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser())
AND (flrpt_type='S')
AND (flrpt_type_id=flspec_id)) LOOP
IF( (_t.flgrp_id=-1) OR (NOT (SELECT flgrp_summarize FROM flgrp WHERE flgrp_id=_t.flgrp_id)) ) THEN
SELECT COALESCE(SUM(flrpt_beginning),0) AS beginningTotal,
COALESCE(SUM(flrpt_ending),0) AS endingTotal,
COALESCE(SUM(flrpt_debits),0) AS debitsTotal,
COALESCE(SUM(flrpt_credits),0) AS creditsTotal,
COALESCE(SUM(flrpt_budget),0) AS budgetTotal,
COALESCE(SUM(flrpt_diff), 0) AS diffTotal,
COALESCE(SUM(flrpt_custom), 0) AS customTotal INTO _s
FROM flrpt
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser())
AND (flrpt_type != 'T')
AND (flrpt_parent_id=_t.flgrp_id));
ELSE
SELECT COALESCE(SUM(flrpt_beginning),0) AS beginningTotal,
COALESCE(SUM(flrpt_ending),0) AS endingTotal,
COALESCE(SUM(flrpt_debits),0) AS debitsTotal,
COALESCE(SUM(flrpt_credits),0) AS creditsTotal,
COALESCE(SUM(flrpt_budget),0) AS budgetTotal,
COALESCE(SUM(flrpt_diff), 0) AS diffTotal,
COALESCE(SUM(flrpt_custom), 0) AS customTotal INTO _s
FROM flrpt
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser())
AND (flrpt_type = 'G')
AND (flrpt_type_id=_t.flgrp_id));
END IF;
UPDATE flrpt SET flrpt_beginningprcnt = flrpt_beginningprcnt + flrpt_beginning / CASE WHEN (_s.beginningTotal=0) THEN 1 ELSE _s.beginningTotal END,
flrpt_endingprcnt = flrpt_endingprcnt + flrpt_ending / CASE WHEN (_s.endingTotal=0) THEN 1 ELSE _s.endingTotal END,
flrpt_debitsprcnt = flrpt_debitsprcnt + flrpt_debits / CASE WHEN (_s.debitsTotal=0) THEN 1 ELSE _s.debitsTotal END,
flrpt_creditsprcnt = flrpt_creditsprcnt + flrpt_credits / CASE WHEN (_s.creditsTotal=0) THEN 1 ELSE _s.creditsTotal END,
flrpt_budgetprcnt = flrpt_budgetprcnt + flrpt_budget / CASE WHEN (_s.budgetTotal=0) THEN 1 ELSE _s.budgetTotal END,
flrpt_diffprcnt = flrpt_diffprcnt + flrpt_diff / CASE WHEN (_s.diffTotal=0) THEN 1 ELSE _s.diffTotal END,
flrpt_customprcnt = flrpt_customprcnt + flrpt_custom / CASE WHEN (_s.customTotal=0) THEN 1 ELSE _s.customTotal END
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser())
AND (flrpt_order=_t.flrpt_order));
END LOOP;
-- Update any subtotal records to reflect the percentage values of the parents
-- since those are calculated after the subtotal records were created.
FOR _t IN SELECT a.flrpt_order AS flrpt_order,
b.flrpt_beginningprcnt AS flrpt_beginningprcnt,
b.flrpt_endingprcnt AS flrpt_endingprcnt,
b.flrpt_debitsprcnt AS flrpt_debitsprcnt,
b.flrpt_creditsprcnt AS flrpt_creditsprcnt,
b.flrpt_budgetprcnt AS flrpt_budgetprcnt,
b.flrpt_diffprcnt AS flrpt_diffprcnt,
b.flrpt_customprcnt AS flrpt_customprcnt
FROM flrpt AS a, flrpt AS b
WHERE ((a.flrpt_flhead_id=pFlheadid)
AND (a.flrpt_period_id=pPeriodid)
AND (a.flrpt_interval=pInterval)
AND (a.flrpt_username=getEffectiveXtUser())
AND (a.flrpt_type='T')
AND (b.flrpt_flhead_id=a.flrpt_flhead_id)
AND (b.flrpt_period_id=a.flrpt_period_id)
AND (b.flrpt_interval=pInterval)
AND (b.flrpt_username=a.flrpt_username)
AND (b.flrpt_type='G')
AND (b.flrpt_type_id=a.flrpt_parent_id)) LOOP
UPDATE flrpt SET flrpt_beginningprcnt=flrpt_beginningprcnt + _t.flrpt_beginningprcnt,
flrpt_endingprcnt=flrpt_endingprcnt + _t.flrpt_endingprcnt,
flrpt_debitsprcnt=flrpt_debitsprcnt + _t.flrpt_debitsprcnt,
flrpt_creditsprcnt=flrpt_creditsprcnt + _t.flrpt_creditsprcnt,
flrpt_budgetprcnt=flrpt_budgetprcnt + _t.flrpt_budgetprcnt,
flrpt_diffprcnt=flrpt_diffprcnt + _t.flrpt_diffprcnt,
flrpt_customprcnt=flrpt_customprcnt + _t.flrpt_customprcnt
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser())
AND (flrpt_order=_t.flrpt_order));
END LOOP;
-- If showing a Grand total then move the record we created early to the
-- end of the report and marked as a Total record.
IF (_r.flhead_showtotal) THEN
UPDATE flrpt
SET flrpt_order = COALESCE((SELECT MAX(flrpt_order)
FROM flrpt
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser()))
), 0) + 1,
flrpt_level = 0,
flrpt_type = 'T'
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser())
AND (flrpt_order=0)
AND (flrpt_level = -1)
AND (flrpt_type = 'G')
AND (flrpt_type_id=-1));
END IF;
return TRUE;
END;
$_$;
ALTER FUNCTION public.financialreport(integer, integer, character, integer) OWNER TO admin;
--
-- Name: financialreport(integer, integer[], character, boolean, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION financialreport(integer, integer[], character, boolean, integer) RETURNS SETOF fltrenditem
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFlheadId ALIAS FOR $1;
pPeriodIds ALIAS FOR $2;
pInterval ALIAS FOR $3;
pShowNumbers ALIAS FOR $4;
pPrjid ALIAS FOR $5;
_row fltrenditem%ROWTYPE;
_type CHAR;
_p RECORD;
_count INTEGER;
_n NUMERIC;
_fld NUMERIC[];
_grndttl NUMERIC;
_i INTEGER;
_first BOOLEAN;
_prevlevel INTEGER;
_subgrp INTEGER;
BEGIN
_first := true;
_subgrp := 0;
IF ARRAY_UPPER(pPeriodIds,1) <= 12 THEN
_count := ARRAY_UPPER(pPeriodIds,1);
ELSE
_count := 12;
END IF;
--Get Type
SELECT flhead_type FROM flhead INTO _type WHERE flhead_id=pFlheadId;
--Build Financial Data
FOR _i IN 1.._count
LOOP
PERFORM financialreport(pFlheadId,pPeriodIds[_i],pInterval,pPrjid);
END LOOP;
--Get Row Data
FOR _p IN
SELECT flrpt_flhead_id,
flrpt_username,
flrpt_order,
flrpt_level,
flrpt_type,
flrpt_type_id,
flrpt_parent_id,
flrpt_accnt_id,
formatindent(flgrp.flgrp_name,flrpt.flrpt_level) AS flrpt_name,
CASE
WHEN (flgrp_summarize AND (_type IN ('I','C'))) THEN
(COALESCE(flrpt_diff,0))
WHEN (flgrp_summarize AND (_type = 'B')) THEN
(COALESCE(flrpt_ending,0))
ELSE NULL
END AS f_fld1,
flgrp_summarize AS display
FROM flrpt,flgrp
WHERE ((flrpt_flhead_id=pFlheadId)
AND (flgrp_id=flrpt_type_id)
AND (flrpt_type='G')
AND (flrpt_period_id=pPeriodIds[1])
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser()))
UNION
SELECT flrpt_flhead_id,
flrpt_username,
flrpt_order,
flrpt_level,
flrpt_type,
flrpt_type_id,
flrpt_parent_id,
flrpt_accnt_id,
formatindent(accnt_descrip,flrpt.flrpt_level) AS flrpt_name,
CASE
WHEN (_type IN ('I','C')) THEN
(COALESCE(flrpt_diff,0))
WHEN (_type = 'B') THEN
(COALESCE(flrpt_ending,0))
ELSE NULL
END AS f_fld1,
true AS display
FROM flrpt,flitem,accnt
WHERE ((flrpt_flhead_id=pFlheadId)
AND (flrpt_accnt_id=accnt_id)
AND (flitem_id=flrpt_type_id)
AND (flrpt_type='I')
AND (flrpt_period_id=pPeriodIds[1])
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser()))
UNION
SELECT flrpt_flhead_id,
flrpt_username,
flrpt_order,
flrpt_level,
flrpt_type,
flrpt_type_id,
flrpt_parent_id,
flrpt_accnt_id,
CASE
WHEN (flrpt.flrpt_type='T' AND flrpt.flrpt_level=0) THEN
COALESCE(flrpt.flrpt_altname, 'Total')
WHEN (flrpt.flrpt_type='T') THEN
formatindent(COALESCE(flrpt.flrpt_altname, 'Subtotal') ,flrpt.flrpt_level)
ELSE
formatindent(('Type ' || flrpt.flrpt_type || ' ' || text(flrpt.flrpt_type_id)), flrpt.flrpt_level)
END AS flstmtitem_name,
CASE
WHEN (_type IN ('I','C')) THEN
(COALESCE(flrpt_diff,0))
WHEN (_type = 'B') THEN
(COALESCE(flrpt_ending,0))
ELSE NULL
END AS f_fld1,
true AS display
FROM flrpt
WHERE ((flrpt_flhead_id=pFlheadId)
AND (flrpt_type NOT IN ('I','S','G'))
AND (flrpt_period_id=pPeriodIds[1])
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser()))
ORDER BY flrpt_order
LOOP
IF _type IN ('I','C') THEN
_grndttl := _p.f_fld1;
END IF;
--Loop through and calculate period column values
IF (_p.display) THEN
FOR _i IN 2.._count
LOOP
SELECT
CASE
WHEN (_type IN ('I','C')) THEN
COALESCE(flrpt_diff,0)
WHEN (_type = 'B') THEN
COALESCE(flrpt_ending,0)
ELSE NULL
END INTO _n
FROM flrpt
WHERE ((flrpt_flhead_id=pFlheadId)
AND (flrpt_period_id=pPeriodIds[_i])
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser())
AND (flrpt_order=_p.flrpt_order));
_fld[_i-1] := _n;
IF _type IN ('I','C') THEN
_grndttl := _grndttl+_n;
END IF;
END LOOP;
END IF;
--Send it all back to the caller
IF _prevlevel > _p.flrpt_level THEN
_subgrp := _subgrp+1;
END IF;
_prevlevel:=_p.flrpt_level;
_row.fltrenditem_subgrp := _subgrp;
IF NOT _first THEN
RETURN NEXT _row;
END IF;
_first := FALSE;
_row.fltrenditem_flhead_id := _p.flrpt_flhead_id;
_row.fltrenditem_username := _p.flrpt_username;
_row.fltrenditem_order := _p.flrpt_order;
_row.fltrenditem_level := _p.flrpt_level;
_row.fltrenditem_type := _p.flrpt_type;
_row.fltrenditem_type_id := _p.flrpt_type_id;
_row.fltrenditem_parent_id := _p.flrpt_parent_id;
_row.fltrenditem_accnt_id := _p.flrpt_accnt_id;
_row.fltrenditem_name := _p.flrpt_name;
IF (_p.display) THEN
_row.fltrenditem_fld1 := (_p.f_fld1);
_row.fltrenditem_fld2 := (_fld[1]);
_row.fltrenditem_fld3 := (_fld[2]);
_row.fltrenditem_fld4 := (_fld[3]);
_row.fltrenditem_fld5 := (_fld[4]);
_row.fltrenditem_fld6 := (_fld[5]);
_row.fltrenditem_fld7 := (_fld[6]);
_row.fltrenditem_fld8 := (_fld[7]);
_row.fltrenditem_fld9 := (_fld[8]);
_row.fltrenditem_fld10 := (_fld[9]);
_row.fltrenditem_fld11 := (_fld[10]);
_row.fltrenditem_fld12 := (_fld[11]);
_row.fltrenditem_grndttl := (_grndttl);
ELSE
_row.fltrenditem_fld1 := NULL;
_row.fltrenditem_fld2 := NULL;
_row.fltrenditem_fld3 := NULL;
_row.fltrenditem_fld4 := NULL;
_row.fltrenditem_fld5 := NULL;
_row.fltrenditem_fld6 := NULL;
_row.fltrenditem_fld7 := NULL;
_row.fltrenditem_fld8 := NULL;
_row.fltrenditem_fld9 := NULL;
_row.fltrenditem_fld10 := NULL;
_row.fltrenditem_fld11 := NULL;
_row.fltrenditem_fld12 := NULL;
_row.fltrenditem_grndttl := NULL;
END IF;
END LOOP;
_row.fltrenditem_subgrp := _subgrp + 1;
RETURN NEXT _row;
END;
$_$;
ALTER FUNCTION public.financialreport(integer, integer[], character, boolean, integer) OWNER TO admin;
--
-- Name: financialreport(integer, integer, boolean, boolean, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION financialreport(integer, integer, boolean, boolean, integer) RETURNS SETOF flstmtitem
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFlcolid ALIAS FOR $1;
pPeriodid ALIAS FOR $2;
pShowNumbers ALIAS FOR $3;
pIndentName ALIAS FOR $4;
pPrjid ALIAS FOR $5;
_row flstmtitem%ROWTYPE;
_p RECORD;
_x RECORD;
_priorMoPeriodId INTEGER;
_priorQtPeriodId INTEGER;
_priorYrPeriodId INTEGER;
_first BOOLEAN;
_prevlevel INTEGER;
_subgrp INTEGER;
_qtrInterval TEXT;
_yrInterval TEXT;
BEGIN
_priorMoPeriodId := -1;
_priorQtPeriodId := -1;
_priorYrPeriodId := -1;
_first := TRUE;
_prevlevel :=0;
_subgrp := 0;
--Get Layout Data
SELECT flhead_id,flhead_type,
flcol_month,flcol_quarter,flcol_year,flcol_priortype,
flcol_priormonth,flcol_priorquarter,flcol_prioryear,
flcol_priordiff,flcol_priordiffprcnt,flcol_priorprcnt,
flcol_budget,flcol_budgetdiff,flcol_budgetdiffprcnt,
flcol_budgetprcnt INTO _p
FROM flhead,flcol
WHERE ((flcol_id=pFlcolid)
AND (flhead_id=flcol_flhead_id));
IF (_p.flhead_type='B') THEN
_qtrInterval := 'M';
_yrInterval := 'M';
ELSE
_qtrInterval := 'Q';
_yrInterval := 'Y';
END IF;
--Delete old data from all periods
DELETE FROM flrpt
WHERE ((flrpt_username=getEffectiveXtUser())
AND (flrpt_flhead_id=_p.flhead_id));
--Populate report data...
--...for Month
IF (_p.flcol_month) THEN
PERFORM financialreport(_p.flhead_id,pPeriodid,'M',pPrjid);
IF ((_p.flcol_priortype = 'P') AND (_p.flcol_priormonth)) THEN
SELECT COALESCE(pp.period_id,-1) INTO _priorMoPeriodId
FROM period cp, period pp
WHERE ((cp.period_id=pPeriodId)
AND (cp.period_start > pp.period_start))
ORDER BY pp.period_start DESC LIMIT 1;
IF (_priorMoPeriodId IS NOT NULL) THEN
PERFORM financialreport(_p.flhead_id,_priorMoPeriodId,'M',pPrjid);
END IF;
ELSE IF ((_p.flcol_priortype='Y')AND (_p.flcol_priormonth)) THEN
SELECT COALESCE(pp.period_id,-1) INTO _priorMoPeriodId
FROM period cp, period pp
WHERE ((cp.period_id=pPeriodId)
AND (cp.period_id != pp.period_id)
AND (cp.period_start > pp.period_start)
AND (cp.period_number = pp.period_number))
ORDER BY pp.period_start DESC LIMIT 1;
IF (_priorMoPeriodId IS NOT NULL) THEN
PERFORM financialreport(_p.flhead_id,_priorMoPeriodId,'M',pPrjid);
END IF;
END IF;
END IF;
END IF;
--...for Quarter
IF (_p.flcol_quarter) THEN
PERFORM financialreport(_p.flhead_id,pPeriodid,'Q',pPrjid);
END IF;
IF ((_p.flcol_priortype='P') AND (_p.flcol_priorquarter)) THEN
SELECT COALESCE(pp.period_id,-1) INTO _priorQtPeriodId
FROM period cp, period pp
WHERE ((cp.period_id=pPeriodId)
AND (cp.period_start > pp.period_start)
AND (pp.period_quarter=
CASE WHEN cp.period_quarter > 1 THEN
cp.period_quarter - 1
ELSE 4 END)
AND (pp.period_start >= cp.period_start - interval '1 year'))
ORDER BY pp.period_start DESC LIMIT 1;
IF (_priorQtPeriodId IS NOT NULL) THEN
PERFORM financialreport(_p.flhead_id,_priorQtPeriodId,'Q',pPrjid);
END IF;
ELSE IF ((_p.flcol_priortype='Y')AND (_p.flcol_priorquarter)) THEN
SELECT pp.period_id INTO _priorQtPeriodId
FROM period cp, period pp, yearperiod cy, yearperiod py
WHERE ((cp.period_id=pPeriodId)
AND (cp.period_yearperiod_id=cy.yearperiod_id)
AND (pp.period_yearperiod_id=py.yearperiod_id)
AND (cp.period_quarter=pp.period_quarter)
AND (cy.yearperiod_start > py.yearperiod_start))
ORDER BY py.yearperiod_start DESC, pp.period_start DESC LIMIT 1;
IF (_priorQtPeriodId IS NOT NULL) THEN
PERFORM financialreport(_p.flhead_id,_priorQtPeriodId,'Q',pPrjid);
END IF;
END IF;
END IF;
--...for Year
IF (_p.flcol_year) THEN
PERFORM financialreport(_p.flhead_id,pPeriodid,'Y',pPrjid);
END IF;
IF (_p.flcol_prioryear='D') THEN
SELECT COALESCE(pp.period_id,-1) INTO _priorYrPeriodId
FROM period cp, period pp
WHERE ((cp.period_id = pPeriodId)
AND (cp.period_number = pp.period_number)
AND (cp.period_start > pp.period_start))
ORDER BY pp.period_start DESC LIMIT 1;
IF (_priorYrPeriodId IS NOT NULL) THEN
PERFORM financialreport(_p.flhead_id,_priorYrPeriodId,'Y',pPrjid);
END IF;
ELSE IF (_p.flcol_prioryear='F') THEN
SELECT pp.period_id INTO _priorYrPeriodId
FROM period cp, period pp, yearperiod cy, yearperiod py
WHERE ((cp.period_id=pPeriodId)
AND (cp.period_yearperiod_id=cy.yearperiod_id)
AND (pp.period_yearperiod_id=py.yearperiod_id)
AND (cy.yearperiod_start > py.yearperiod_start))
ORDER BY pp.period_start DESC LIMIT 1;
IF (_priorYrPeriodId IS NOT NULL) THEN
PERFORM financialreport(_p.flhead_id,_priorYrPeriodId,'Y',pPrjid);
END IF;
END IF;
END IF;
--Return the data
FOR _x IN
SELECT
flrpt.flrpt_flhead_id AS flstmtitem_flhead_id,
flrpt.flrpt_period_id AS flstmtitem_period_id,
flrpt.flrpt_username AS flstmtitem_username,
flrpt.flrpt_order AS flstmtitem_order,
flrpt.flrpt_level AS flstmtitem_level,
flrpt.flrpt_type AS flstmtitem_type,
flrpt.flrpt_type_id AS flstmtitem_type_id,
flrpt.flrpt_parent_id AS flstmtitem_parent_id,
NULL AS flstmtitem_accnt_id,
CASE
WHEN (pIndentName) THEN
formatindent(flgrp.flgrp_name,flrpt.flrpt_level)
ELSE flgrp.flgrp_name
END AS flstmtitem_name,
CASE
WHEN (flgrp_summarize AND (flhead_type IN ('I','C'))) THEN
(COALESCE(flrptmo.flrpt_diff,0))
WHEN (flgrp_summarize AND (flhead_type = 'B')) THEN
(COALESCE(flrptmo.flrpt_ending,0))
ELSE NULL
END AS flstmtitem_month,
CASE
WHEN (flgrp_summarize) THEN
(COALESCE(flrptmo.flrpt_debits,0))
ELSE NULL
END AS flstmtitem_monthdb,
CASE
WHEN (flgrp_summarize) THEN
(COALESCE(flrptmo.flrpt_credits,0))
ELSE NULL
END AS flstmtitem_monthcr,
CASE
WHEN (flgrp_summarize AND flgrp_showdiffprcnt) THEN
(COALESCE(flrptmo.flrpt_diffprcnt,0))
WHEN (flgrp_summarize AND flgrp_showendprcnt) THEN
(COALESCE(flrptmo.flrpt_endingprcnt,0))
ELSE NULL
END AS flstmtitem_monthprcnt,
CASE
WHEN (flgrp_summarize) THEN
(flrptmo.flrpt_budget)
ELSE NULL
END AS flstmtitem_monthbudget,
CASE
WHEN (flgrp_summarize) THEN
(flrptmo.flrpt_budgetprcnt)
ELSE NULL
END AS flstmtitem_monthbudgetprcnt,
CASE
WHEN (flgrp_summarize AND flhead_type IN ('I','C')) THEN
(COALESCE((flrptmo.flrpt_diff-flrptmo.flrpt_budget),0))
WHEN (flgrp_summarize AND flhead_type = 'B') THEN
(COALESCE((flrptmo.flrpt_ending-flrptmo.flrpt_budget),0))
ELSE NULL
END AS flstmtitem_monthbudgetdiff,
CASE
WHEN (flgrp_summarize AND (flhead_type IN ('I','C')) AND (flrptmo.flrpt_budget > 0)) THEN
(COALESCE(((flrptmo.flrpt_diff-flrptmo.flrpt_budget)/flrptmo.flrpt_budget),0))
WHEN (flgrp_summarize AND (flhead_type='B') AND (flrptmo.flrpt_budget > 0)) THEN
(COALESCE(((flrptmo.flrpt_ending-flrptmo.flrpt_budget)/flrptmo.flrpt_budget),0))
WHEN (flgrp_summarize AND (flrptmo.flrpt_budget = 0)) THEN
NULL
ELSE NULL
END AS flstmtitem_monthbudgetdiffprcnt,
CASE
WHEN (flgrp_summarize AND flhead_type IN ('I','C')) THEN
(COALESCE(flrptqt.flrpt_diff,0))
WHEN (flgrp_summarize AND flhead_type = 'B') THEN
(COALESCE(flrptqt.flrpt_ending,0))
ELSE NULL
END AS flstmtitem_qtr,
CASE
WHEN (flgrp_summarize) THEN
(COALESCE(flrptqt.flrpt_debits,0))
ELSE NULL
END AS flstmtitem_qtrdb,
CASE
WHEN (flgrp_summarize) THEN
(COALESCE(flrptqt.flrpt_credits,0))
ELSE NULL
END AS flstmtitem_qtrcr,
CASE
WHEN (flgrp_summarize AND flgrp_showdiffprcnt) THEN
(flrptqt.flrpt_diffprcnt)
WHEN (flgrp_summarize AND flgrp_showendprcnt) THEN
(flrptqt.flrpt_endingprcnt)
ELSE NULL
END AS flstmtitem_qtrprcnt,
CASE
WHEN (flgrp_summarize) THEN
(COALESCE(flrptqt.flrpt_budget,0))
ELSE NULL
END AS flstmtitem_qtrbudget,
CASE
WHEN (flgrp_summarize) THEN
(flrptqt.flrpt_budgetprcnt)
ELSE NULL
END AS flstmtitem_qtrbudgetprcnt,
CASE
WHEN (flgrp_summarize AND flhead_type IN ('I','C')) THEN
(COALESCE((flrptqt.flrpt_diff-flrptqt.flrpt_budget),0))
WHEN (flgrp_summarize AND flhead_type = 'B') THEN
(COALESCE((flrptqt.flrpt_ending-flrptqt.flrpt_budget),0))
ELSE NULL
END AS flstmtitem_qtrbudgetdiff,
CASE
WHEN (flgrp_summarize AND (flhead_type IN ('I','C')) AND (flrptqt.flrpt_budget > 0)) THEN
(COALESCE(((flrptqt.flrpt_diff-flrptqt.flrpt_budget)/flrptqt.flrpt_budget),0))
WHEN (flgrp_summarize AND (flhead_type='B') AND (flrptqt.flrpt_budget > 0)) THEN
(COALESCE(((flrptqt.flrpt_ending-flrptqt.flrpt_budget)/flrptqt.flrpt_budget),0))
ELSE NULL
END AS flstmtitem_qtrbudgetdiffprcnt,
CASE
WHEN (flgrp_summarize AND flhead_type IN ('I','C')) THEN
(COALESCE(flrptyr.flrpt_diff,0))
WHEN (flgrp_summarize AND flhead_type = 'B') THEN
(COALESCE(flrptyr.flrpt_ending,0))
ELSE NULL
END AS flstmtitem_year,
CASE
WHEN (flgrp_summarize) THEN
(COALESCE(flrptyr.flrpt_debits,0))
ELSE NULL
END AS flstmtitem_yeardb,
CASE
WHEN (flgrp_summarize) THEN
(COALESCE(flrptyr.flrpt_credits,0))
ELSE NULL
END AS flstmtitem_yearcr,
CASE
WHEN (flgrp_summarize AND flgrp_showdiffprcnt) THEN
(COALESCE(flrptyr.flrpt_diffprcnt,0))
WHEN (flgrp_summarize AND flgrp_showendprcnt) THEN
(COALESCE(flrptyr.flrpt_endingprcnt,0))
ELSE NULL
END AS flstmtitem_yearprcnt,
CASE
WHEN (flgrp_summarize) THEN
(flrptyr.flrpt_budget)
ELSE NULL
END AS flstmtitem_yearbudget,
CASE
WHEN (flgrp_summarize) THEN
(flrptyr.flrpt_budgetprcnt)
ELSE NULL
END AS flstmtitem_yearbudgetprcnt,
CASE
WHEN (flgrp_summarize AND flhead_type IN ('I','C')) THEN
(COALESCE((flrptyr.flrpt_diff-flrptyr.flrpt_budget),0))
WHEN (flgrp_summarize AND flhead_type = 'B') THEN
(COALESCE((flrptyr.flrpt_ending-flrptyr.flrpt_budget),0))
ELSE NULL
END AS flstmtitem_yearbudgetdiff,
CASE
WHEN (flgrp_summarize AND (flhead_type IN ('I','C')) AND (flrptyr.flrpt_budget > 0)) THEN
(COALESCE(((flrptyr.flrpt_diff-flrptyr.flrpt_budget)/flrptyr.flrpt_budget),0))
WHEN (flgrp_summarize AND (flhead_type = 'B') AND (flrptyr.flrpt_budget > 0)) THEN
(COALESCE(((flrptyr.flrpt_ending-flrptyr.flrpt_budget)/flrptyr.flrpt_budget),0))
WHEN (flgrp_summarize AND (flrptyr.flrpt_budget = 0)) THEN
NULL
ELSE NULL
END AS flstmtitem_yearbudgetdiffprcnt,
CASE
WHEN (flgrp_summarize AND flhead_type IN ('I','C')) THEN
(COALESCE(flrptprmo.flrpt_diff,0))
WHEN (flgrp_summarize AND flhead_type = 'B') THEN
(COALESCE(flrptprmo.flrpt_ending,0))
ELSE NULL
END AS flstmtitem_prmonth,
CASE
WHEN (flgrp_summarize AND flgrp_showdiffprcnt) THEN
(flrptprmo.flrpt_diffprcnt)
WHEN (flgrp_summarize AND flgrp_showendprcnt) THEN
(flrptprmo.flrpt_endingprcnt)
ELSE NULL
END AS flstmtitem_prmonthprcnt,
CASE
WHEN (flgrp_summarize AND flhead_type IN ('I','C')) THEN
(COALESCE(flrptmo.flrpt_diff-flrptprmo.flrpt_diff,0))
WHEN (flgrp_summarize AND flhead_type = 'B') THEN
(COALESCE(flrptmo.flrpt_ending-flrptprmo.flrpt_ending,0))
ELSE NULL
END AS flstmtitem_prmonthdiff,
CASE
WHEN (flgrp_summarize AND (flhead_type IN ('I','C')) AND (flrptprmo.flrpt_diff > 0)) THEN
(COALESCE((flrptmo.flrpt_diff-flrptprmo.flrpt_diff)/flrptprmo.flrpt_diff,0))
WHEN (flgrp_summarize AND (flhead_type = 'B') AND (flrptprmo.flrpt_ending > 0)) THEN
(COALESCE((flrptmo.flrpt_ending-flrptprmo.flrpt_ending)/flrptprmo.flrpt_ending,0))
WHEN (flgrp_summarize AND (flrptprmo.flrpt_ending = 0)) THEN
NULL
ELSE NULL
END AS flstmtitem_prmonthdiffprcnt,
CASE
WHEN (flgrp_summarize AND flhead_type IN ('I','C')) THEN
(COALESCE(flrptprqt.flrpt_diff,0))
WHEN (flgrp_summarize AND flhead_type = 'B') THEN
(COALESCE(flrptprqt.flrpt_ending,0))
ELSE NULL
END AS flstmtitem_prqtr,
CASE
WHEN (flgrp_summarize AND flgrp_showdiffprcnt) THEN
(flrptprqt.flrpt_diffprcnt)
WHEN (flgrp_summarize AND flgrp_showendprcnt) THEN
(flrptprqt.flrpt_endingprcnt)
ELSE NULL
END AS flstmtitem_prqtrprcnt,
CASE
WHEN (flgrp_summarize AND flhead_type IN ('I','C')) THEN
(COALESCE(flrptqt.flrpt_diff-flrptprqt.flrpt_diff,0))
WHEN (flgrp_summarize AND flhead_type = 'B') THEN
(COALESCE(flrptqt.flrpt_ending-flrptprqt.flrpt_ending,0))
ELSE NULL
END AS flstmtitem_prqtrdiff,
CASE
WHEN (flgrp_summarize AND (flhead_type IN ('I','C')) AND (flrptprqt.flrpt_diff > 0)) THEN
(COALESCE((flrptqt.flrpt_diff-flrptprqt.flrpt_diff)/flrptprqt.flrpt_diff,0))
WHEN (flgrp_summarize AND (flhead_type = 'B') AND (flrptprqt.flrpt_ending > 0)) THEN
(COALESCE((flrptqt.flrpt_ending-flrptprqt.flrpt_ending)/flrptprqt.flrpt_ending,0))
WHEN (flgrp_summarize AND (flrptprqt.flrpt_ending = 0)) THEN
NULL
ELSE NULL
END AS flstmtitem_prqtrdiffprcnt,
CASE
WHEN (flgrp_summarize AND flhead_type IN ('I','C')) THEN
(COALESCE(flrptpryr.flrpt_diff,0))
WHEN (flgrp_summarize AND flhead_type = 'B') THEN
(COALESCE(flrptpryr.flrpt_ending,0))
ELSE NULL
END AS flstmtitem_pryear,
CASE
WHEN (flgrp_summarize AND flgrp_showdiffprcnt) THEN
(flrptpryr.flrpt_diffprcnt)
WHEN (flgrp_summarize AND flgrp_showendprcnt) THEN
(flrptpryr.flrpt_endingprcnt)
ELSE NULL
END AS flstmtitem_pryearprcnt,
CASE
WHEN (flgrp_summarize AND flhead_type IN ('I','C')) THEN
(COALESCE(flrptyr.flrpt_diff-flrptpryr.flrpt_diff,0))
WHEN (flgrp_summarize AND flhead_type = 'B') THEN
(COALESCE(flrptyr.flrpt_ending-flrptpryr.flrpt_ending,0))
ELSE NULL
END AS flstmtitem_pryeardiff,
CASE
WHEN (flgrp_summarize AND (flhead_type IN ('I','C')) AND (flrptpryr.flrpt_diff > 0)) THEN
(COALESCE((flrptyr.flrpt_diff-flrptpryr.flrpt_diff)/flrptpryr.flrpt_diff,0))
WHEN (flgrp_summarize AND (flhead_type = 'B' ) AND (flrptpryr.flrpt_ending > 0)) THEN
(COALESCE((flrptyr.flrpt_ending-flrptpryr.flrpt_ending)/flrptpryr.flrpt_ending,0))
WHEN (flgrp_summarize AND (flrptpryr.flrpt_ending = 0)) THEN
NULL
ELSE NULL
END AS flstmtitem_pryeardiffprcnt
FROM flgrp,flhead,
(SELECT DISTINCT
flrpt_flhead_id,
flrpt_period_id,
flrpt_username,
flrpt_order,
flrpt_level,
flrpt_type,
flrpt_type_id,
flrpt_parent_id
FROM flrpt
WHERE ((flrpt_type='G')
AND (flrpt_flhead_id=_p.flhead_id)
AND (flrpt_period_id=pPeriodId)
AND (flrpt_username=getEffectiveXtUser()))) AS flrpt
LEFT OUTER JOIN flrpt flrptmo
ON ((flrptmo.flrpt_type=flrpt.flrpt_type)
AND (flrptmo.flrpt_type_id=flrpt.flrpt_type_id)
AND (flrptmo.flrpt_flhead_id=flrpt.flrpt_flhead_id)
AND (flrptmo.flrpt_period_id=flrpt.flrpt_period_id)
AND (flrptmo.flrpt_interval='M')
AND (flrptmo.flrpt_username=flrpt.flrpt_username)
AND (flrptmo.flrpt_order=flrpt.flrpt_order))
LEFT OUTER JOIN flrpt flrptqt
ON ((flrptqt.flrpt_type=flrpt.flrpt_type)
AND (flrptqt.flrpt_type_id=flrpt.flrpt_type_id)
AND (flrptqt.flrpt_flhead_id=flrpt.flrpt_flhead_id)
AND (flrptqt.flrpt_period_id=flrpt.flrpt_period_id)
AND (flrptqt.flrpt_interval=_qtrInterval)
AND (flrptqt.flrpt_username=flrpt.flrpt_username)
AND (flrptqt.flrpt_order=flrpt.flrpt_order))
LEFT OUTER JOIN flrpt flrptyr
ON ((flrptyr.flrpt_type=flrpt.flrpt_type)
AND (flrptyr.flrpt_type_id=flrpt.flrpt_type_id)
AND (flrptyr.flrpt_flhead_id=flrpt.flrpt_flhead_id)
AND (flrptyr.flrpt_period_id=flrpt.flrpt_period_id)
AND (flrptyr.flrpt_interval=_yrInterval)
AND (flrptyr.flrpt_username=flrpt.flrpt_username)
AND (flrptyr.flrpt_order=flrpt.flrpt_order))
LEFT OUTER JOIN flrpt flrptprmo
ON ((flrptprmo.flrpt_type=flrpt.flrpt_type)
AND (flrptprmo.flrpt_type_id=flrpt.flrpt_type_id)
AND (flrptprmo.flrpt_flhead_id=flrpt.flrpt_flhead_id)
AND (flrptprmo.flrpt_period_id=_priorMoPeriodId)
AND (flrptprmo.flrpt_interval='M')
AND (flrptprmo.flrpt_username=flrpt.flrpt_username)
AND (flrptprmo.flrpt_order=flrpt.flrpt_order))
LEFT OUTER JOIN flrpt flrptprqt
ON ((flrptprqt.flrpt_type=flrpt.flrpt_type)
AND (flrptprqt.flrpt_type_id=flrpt.flrpt_type_id)
AND (flrptprqt.flrpt_flhead_id=flrpt.flrpt_flhead_id)
AND (flrptprqt.flrpt_period_id=_priorQtPeriodId)
AND (flrptprqt.flrpt_interval='Q')
AND (flrptprqt.flrpt_username=flrpt.flrpt_username)
AND (flrptprqt.flrpt_order=flrpt.flrpt_order))
LEFT OUTER JOIN flrpt flrptpryr
ON ((flrptpryr.flrpt_type=flrpt.flrpt_type)
AND (flrptpryr.flrpt_type_id=flrpt.flrpt_type_id)
AND (flrptpryr.flrpt_flhead_id=flrpt.flrpt_flhead_id)
AND (flrptpryr.flrpt_period_id=_priorYrPeriodId)
AND (flrptpryr.flrpt_interval='Y')
AND (flrptpryr.flrpt_username=flrpt.flrpt_username)
AND (flrptpryr.flrpt_order=flrpt.flrpt_order))
WHERE ((flgrp_id = flrpt.flrpt_type_id)
AND (flhead_id = flgrp_flhead_id))
UNION
SELECT
flrpt.flrpt_flhead_id AS flstmtitem_flhead_id,
flrpt.flrpt_period_id AS flstmtitem_period_id,
flrpt.flrpt_username AS flstmtitem_username,
flrpt.flrpt_order AS flstmtitem_order,
flrpt.flrpt_level AS flstmtitem_level,
flrpt.flrpt_type AS flstmtitem_type,
flrpt.flrpt_type_id AS flstmtitem_type_id,
flrpt.flrpt_parent_id AS flstmtitem_parent_id,
flrpt.flrpt_accnt_id AS flstmtitem_accnt_id,
CASE
WHEN (pIndentName) THEN
formatindent(flrpt.flrpt_name,flrpt.flrpt_level)
ELSE flrpt.flrpt_name
END AS flstmtitem_name,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE(flrptmo.flrpt_diff,0))
ELSE (COALESCE(flrptmo.flrpt_ending,0))
END AS flstmtitem_month,
(COALESCE(flrptmo.flrpt_debits,0)) AS flstmtitem_monthdb,
(COALESCE(flrptmo.flrpt_credits,0)) AS flstmtitem_monthcr,
CASE
WHEN (flitem_showdiffprcnt) THEN
(flrptmo.flrpt_diffprcnt)
WHEN (flitem_showendprcnt) THEN
(flrptmo.flrpt_endingprcnt)
ELSE NULL
END AS flstmtitem_monthprcnt,
(COALESCE(flrptmo.flrpt_budget,0)) AS flstmtitem_monthbudget,
(flrptmo.flrpt_budgetprcnt) AS flstmtitem_monthbudgetprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE((flrptmo.flrpt_diff-flrptmo.flrpt_budget),0))
ELSE (COALESCE((flrptmo.flrpt_ending-flrptmo.flrpt_budget),0))
END AS flstmtitem_monthbudgetdiff,
CASE
WHEN ((flhead_type IN ('I','C')) AND (flrptmo.flrpt_budget > 0)) THEN
(COALESCE(((flrptmo.flrpt_diff-flrptmo.flrpt_budget)/flrptmo.flrpt_budget),0))
WHEN ((flhead_type='B') AND (flrptmo.flrpt_budget > 0)) THEN
(COALESCE(((flrptmo.flrpt_ending-flrptmo.flrpt_budget)/flrptmo.flrpt_budget),0))
ELSE NULL
END AS flstmtitem_monthbudgetdiffprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE(flrptqt.flrpt_diff,0))
ELSE (COALESCE(flrptqt.flrpt_ending,0))
END AS flstmtitem_qtr,
(COALESCE(flrptqt.flrpt_debits,0)) AS flstmtitem_qtrdb,
(COALESCE(flrptqt.flrpt_credits,0)) AS flstmtitem_qtrcr,
CASE
WHEN (flitem_showdiffprcnt) THEN
(COALESCE(flrptqt.flrpt_diffprcnt,0))
WHEN (flitem_showendprcnt) THEN
(COALESCE(flrptqt.flrpt_endingprcnt,0))
ELSE NULL
END AS flstmtitem_qtrprcnt,
(COALESCE(flrptqt.flrpt_budget,0)) AS flstmtitem_qtrbudget,
(flrptqt.flrpt_budgetprcnt) AS flstmtitem_qtrbudgetprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE((flrptqt.flrpt_diff-flrptqt.flrpt_budget),0))
ELSE (COALESCE((flrptqt.flrpt_ending-flrptqt.flrpt_budget),0))
END AS flstmtitem_qtrbudgetdiff,
CASE
WHEN ((flhead_type IN ('I','C')) AND (flrptqt.flrpt_budget > 0)) THEN
(COALESCE(((flrptqt.flrpt_diff-flrptqt.flrpt_budget)/flrptqt.flrpt_budget),0))
WHEN ((flhead_type='B') AND (flrptqt.flrpt_budget > 0)) THEN
(COALESCE(((flrptqt.flrpt_ending-flrptqt.flrpt_budget)/flrptqt.flrpt_budget),0))
ELSE NULL
END AS flstmtitem_qtrbudgetdiffprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE(flrptyr.flrpt_diff,0))
ELSE (COALESCE(flrptyr.flrpt_ending,0))
END AS flstmtitem_year,
(COALESCE(flrptyr.flrpt_debits,0)) AS flstmtitem_yeardb,
(COALESCE(flrptyr.flrpt_credits,0)) AS flstmtitem_yearcr,
CASE
WHEN (flitem_showdiffprcnt) THEN
(flrptyr.flrpt_diffprcnt)
WHEN (flitem_showendprcnt) THEN
(flrptyr.flrpt_endingprcnt)
ELSE NULL
END AS flstmtitem_yearprcnt,
(COALESCE(flrptyr.flrpt_budget,0)) AS flstmtitem_yearbudget,
(flrptyr.flrpt_budgetprcnt) AS flstmtitem_yearbudgetprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE((flrptyr.flrpt_diff-flrptyr.flrpt_budget),0))
ELSE (COALESCE((flrptyr.flrpt_ending-flrptyr.flrpt_budget),0))
END AS flstmtitem_yearbudgetdiff,
CASE
WHEN ((flhead_type IN ('I','C')) AND (flrptyr.flrpt_budget > 0)) THEN
(COALESCE(((flrptyr.flrpt_diff-flrptyr.flrpt_budget)/flrptyr.flrpt_budget),0))
WHEN ((flhead_type = 'B') AND (flrptyr.flrpt_budget > 0)) THEN
(COALESCE(((flrptyr.flrpt_ending-flrptyr.flrpt_budget)/flrptyr.flrpt_budget),0))
ELSE NULL
END AS flstmtitem_yearbudgetdiffprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE(flrptprmo.flrpt_diff,0))
ELSE (COALESCE(flrptprmo.flrpt_ending,0))
END AS flstmtitem_prmonth,
CASE
WHEN (flitem_showdiffprcnt) THEN
(flrptprmo.flrpt_diffprcnt)
WHEN (flitem_showendprcnt) THEN
(flrptprmo.flrpt_endingprcnt)
ELSE NULL
END AS flstmtitem_prmonthprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE(flrptmo.flrpt_diff-flrptprmo.flrpt_diff,0))
ELSE (COALESCE(flrptmo.flrpt_ending-flrptprmo.flrpt_ending,0))
END AS flstmtitem_prmonthdiff,
CASE
WHEN ((flhead_type IN ('I','C')) AND (flrptprmo.flrpt_diff > 0)) THEN
(COALESCE((flrptmo.flrpt_diff-flrptprmo.flrpt_diff)/flrptprmo.flrpt_diff,0))
WHEN ((flhead_type = 'B') AND (flrptprmo.flrpt_ending > 0)) THEN
(COALESCE((flrptmo.flrpt_ending-flrptprmo.flrpt_ending)/flrptprmo.flrpt_ending,0))
ELSE NULL
END AS flstmtitem_prmonthdiffprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE(flrptprqt.flrpt_diff,0))
ELSE (COALESCE(flrptprqt.flrpt_ending,0))
END AS flstmtitem_prqtr,
CASE
WHEN (flitem_showdiffprcnt) THEN
(flrptprqt.flrpt_diffprcnt)
WHEN (flitem_showendprcnt) THEN
(flrptprqt.flrpt_endingprcnt)
ELSE NULL
END AS flstmtitem_prqtrprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE(flrptqt.flrpt_diff-flrptprqt.flrpt_diff,0))
ELSE (COALESCE(flrptqt.flrpt_ending-flrptprqt.flrpt_ending,0))
END AS flstmtitem_prqtrdiff,
CASE
WHEN ((flhead_type IN ('I','C')) AND (flrptprqt.flrpt_diff > 0)) THEN
(COALESCE((flrptqt.flrpt_diff-flrptprqt.flrpt_diff)/flrptprqt.flrpt_diff,0))
WHEN ((flhead_type = 'B') AND (flrptprqt.flrpt_ending > 0)) THEN
(COALESCE((flrptqt.flrpt_ending-flrptprqt.flrpt_ending)/flrptprqt.flrpt_ending,0))
ELSE NULL
END AS flstmtitem_prqtrdiffprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE(flrptpryr.flrpt_diff,0))
ELSE (COALESCE(flrptpryr.flrpt_ending,0))
END AS flstmtitem_pryear,
CASE
WHEN (flitem_showdiffprcnt) THEN
(flrptpryr.flrpt_diffprcnt)
WHEN (flitem_showendprcnt) THEN
(flrptpryr.flrpt_endingprcnt)
ELSE NULL
END AS flstmtitem_pryearprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE((flrptyr.flrpt_diff-flrptpryr.flrpt_diff),0))
ELSE (COALESCE((flrptyr.flrpt_ending-flrptpryr.flrpt_ending),0))
END AS flstmtitem_pryeardiff,
CASE
WHEN ((flhead_type IN ('I','C')) AND (flrptpryr.flrpt_diff > 0)) THEN
(COALESCE((flrptyr.flrpt_diff-flrptpryr.flrpt_diff)/flrptpryr.flrpt_diff,0))
WHEN ((flhead_type = 'B' ) AND (flrptpryr.flrpt_ending > 0)) THEN
(COALESCE((flrptyr.flrpt_ending-flrptpryr.flrpt_ending)/flrptpryr.flrpt_ending,0))
ELSE NULL
END AS flstmtitem_pryeardiffprcnt
FROM flitem,flhead,
(SELECT DISTINCT
flrpt_flhead_id,
flrpt_period_id,
flrpt_username,
flrpt_order,
flrpt_level,
flrpt_type,
flrpt_type_id,
flrpt_parent_id,
accnt_id AS flrpt_accnt_id,
CASE WHEN (pShowNumbers) THEN
(formatGLAccount(accnt_id) || '-' || accnt_descrip)
ELSE accnt_descrip END AS flrpt_name
FROM flrpt,accnt
WHERE ((flrpt_type='I')
AND (flrpt_flhead_id=_p.flhead_id)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_username=getEffectiveXtUser())
AND (accnt_id=flrpt_accnt_id))) AS flrpt
LEFT OUTER JOIN flrpt flrptmo
ON ((flrptmo.flrpt_type=flrpt.flrpt_type)
AND (flrptmo.flrpt_type_id=flrpt.flrpt_type_id)
AND (flrptmo.flrpt_flhead_id=flrpt.flrpt_flhead_id)
AND (flrptmo.flrpt_period_id=flrpt.flrpt_period_id)
AND (flrptmo.flrpt_interval='M')
AND (flrptmo.flrpt_username=flrpt.flrpt_username)
AND (flrptmo.flrpt_order=flrpt.flrpt_order))
LEFT OUTER JOIN flrpt flrptqt
ON ((flrptqt.flrpt_type=flrpt.flrpt_type)
AND (flrptqt.flrpt_type_id=flrpt.flrpt_type_id)
AND (flrptqt.flrpt_flhead_id=flrpt.flrpt_flhead_id)
AND (flrptqt.flrpt_period_id=flrpt.flrpt_period_id)
AND (flrptqt.flrpt_interval=_qtrInterval)
AND (flrptqt.flrpt_username=flrpt.flrpt_username)
AND (flrptqt.flrpt_order=flrpt.flrpt_order))
LEFT OUTER JOIN flrpt flrptyr
ON ((flrptyr.flrpt_type=flrpt.flrpt_type)
AND (flrptyr.flrpt_type_id=flrpt.flrpt_type_id)
AND (flrptyr.flrpt_flhead_id=flrpt.flrpt_flhead_id)
AND (flrptyr.flrpt_period_id=flrpt.flrpt_period_id)
AND (flrptyr.flrpt_interval=_yrInterval)
AND (flrptyr.flrpt_username=flrpt.flrpt_username)
AND (flrptyr.flrpt_order=flrpt.flrpt_order))
LEFT OUTER JOIN flrpt flrptprmo
ON ((flrptprmo.flrpt_type=flrpt.flrpt_type)
AND (flrptprmo.flrpt_type_id=flrpt.flrpt_type_id)
AND (flrptprmo.flrpt_flhead_id=flrpt.flrpt_flhead_id)
AND (flrptprmo.flrpt_period_id=_priorMoPeriodId)
AND (flrptprmo.flrpt_interval='M')
AND (flrptprmo.flrpt_username=flrpt.flrpt_username)
AND (flrptprmo.flrpt_order=flrpt.flrpt_order))
LEFT OUTER JOIN flrpt flrptprqt
ON ((flrptprqt.flrpt_type=flrpt.flrpt_type)
AND (flrptprqt.flrpt_type_id=flrpt.flrpt_type_id)
AND (flrptprqt.flrpt_flhead_id=flrpt.flrpt_flhead_id)
AND (flrptprqt.flrpt_period_id=_priorQtPeriodId)
AND (flrptprqt.flrpt_interval='Q')
AND (flrptprqt.flrpt_username=flrpt.flrpt_username)
AND (flrptprqt.flrpt_order=flrpt.flrpt_order))
LEFT OUTER JOIN flrpt flrptpryr
ON ((flrptpryr.flrpt_type=flrpt.flrpt_type)
AND (flrptpryr.flrpt_type_id=flrpt.flrpt_type_id)
AND (flrptpryr.flrpt_flhead_id=flrpt.flrpt_flhead_id)
AND (flrptpryr.flrpt_period_id=_priorYrPeriodId)
AND (flrptpryr.flrpt_interval='Y')
AND (flrptpryr.flrpt_username=flrpt.flrpt_username)
AND (flrptpryr.flrpt_order=flrpt.flrpt_order) )
WHERE ((flitem_id = flrpt.flrpt_type_id)
AND (flhead_id = flitem_flhead_id))
UNION
SELECT
flrpt.flrpt_flhead_id AS flstmtitem_flhead_id,
flrpt.flrpt_period_id AS flstmtitem_period_id,
flrpt.flrpt_username AS flstmtitem_username,
flrpt.flrpt_order AS flstmtitem_order,
flrpt.flrpt_level AS flstmtitem_level,
flrpt.flrpt_type AS flstmtitem_type,
flrpt.flrpt_type_id AS flstmtitem_type_id,
flrpt.flrpt_parent_id AS flstmtitem_parent_id,
NULL AS flstmtitem_accnt_id,
CASE WHEN(flrpt.flrpt_type='T' AND flrpt.flrpt_level=0) THEN
COALESCE(flrpt.flrpt_altname, 'Total')
WHEN(flrpt.flrpt_type='T') THEN
formatindent(COALESCE(flrpt.flrpt_altname, 'Subtotal') ,
(CASE WHEN pIndentName THEN flrpt.flrpt_level ELSE 0 END))
ELSE formatindent(('Type ' || flrpt.flrpt_type || ' ' || text(flrpt.flrpt_type_id)),
(CASE WHEN pIndentName THEN flrpt.flrpt_level ELSE 0 END))
END AS flstmtitem_name,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE(flrptmo.flrpt_diff,0))
ELSE (COALESCE(flrptmo.flrpt_ending,0))
END AS flstmtitem_month,
(COALESCE(flrptmo.flrpt_debits,0)) AS flstmtitem_monthdb,
(COALESCE(flrptmo.flrpt_credits,0)) AS flstmtitem_monthcr,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(flrptmo.flrpt_diffprcnt)
ELSE (flrptmo.flrpt_endingprcnt)
END AS flstmtitem_monthprcnt,
(COALESCE(flrptmo.flrpt_budget,0)) AS flstmtitem_monthbudget,
(flrptmo.flrpt_budgetprcnt) AS flstmtitem_monthbudgetprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE((flrptmo.flrpt_diff-flrptmo.flrpt_budget),0))
ELSE (COALESCE((flrptmo.flrpt_ending-flrptmo.flrpt_budget),0))
END AS flstmtitem_monthbudgetdiff,
CASE
WHEN ((flhead_type IN ('I','C')) AND (flrptmo.flrpt_budget > 0)) THEN
(COALESCE(((flrptmo.flrpt_diff-flrptmo.flrpt_budget)/flrptmo.flrpt_budget),0))
WHEN ((flhead_type='B') AND (flrptmo.flrpt_budget > 0)) THEN
(COALESCE(((flrptmo.flrpt_ending-flrptmo.flrpt_budget)/flrptmo.flrpt_budget),0))
ELSE NULL
END AS flstmtitem_monthbudgetdiffprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE(flrptqt.flrpt_diff,0))
ELSE (COALESCE(flrptqt.flrpt_ending,0))
END AS flstmtitem_qtr,
(COALESCE(flrptqt.flrpt_debits,0)) AS flstmtitem_qtrdb,
(COALESCE(flrptqt.flrpt_credits,0)) AS flstmtitem_qtrcr,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(flrptqt.flrpt_diffprcnt)
ELSE (flrptqt.flrpt_endingprcnt)
END AS flstmtitem_qtrprcnt,
(COALESCE(flrptqt.flrpt_budget,0)) AS flstmtitem_qtrbudget,
(flrptqt.flrpt_budgetprcnt) AS flstmtitem_qtrbudgetprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE((flrptqt.flrpt_diff-flrptqt.flrpt_budget),0))
ELSE (COALESCE((flrptqt.flrpt_ending-flrptqt.flrpt_budget),0))
END AS flstmtitem_qtrbudgetdiff,
CASE
WHEN ((flhead_type IN ('I','C')) AND (flrptqt.flrpt_budget > 0)) THEN
(COALESCE(((flrptqt.flrpt_diff-flrptqt.flrpt_budget)/flrptqt.flrpt_budget),0))
WHEN ((flhead_type='B') AND (flrptqt.flrpt_budget > 0)) THEN
(COALESCE(((flrptqt.flrpt_ending-flrptqt.flrpt_budget)/flrptqt.flrpt_budget),0))
ELSE NULL
END AS flstmtitem_qtrbudgetdiffprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE(flrptyr.flrpt_diff,0))
ELSE (COALESCE(flrptyr.flrpt_ending,0))
END AS flstmtitem_year,
(COALESCE(flrptyr.flrpt_debits,0)) AS flstmtitem_yeardb,
(COALESCE(flrptyr.flrpt_credits,0)) AS flstmtitem_yearcr,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(flrptyr.flrpt_diffprcnt)
ELSE (flrptyr.flrpt_endingprcnt)
END AS flstmtitem_yearprcnt,
(COALESCE(flrptyr.flrpt_budget,0)) AS flstmtitem_yearbudget,
(flrptyr.flrpt_budgetprcnt) AS flstmtitem_yearbudgetprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE((flrptyr.flrpt_diff-flrptyr.flrpt_budget),0))
ELSE (COALESCE((flrptyr.flrpt_ending-flrptyr.flrpt_budget),0))
END AS flstmtitem_yearbudgetdiff,
CASE
WHEN ((flhead_type IN ('I','C')) AND (flrptyr.flrpt_budget > 0)) THEN
(COALESCE(((flrptyr.flrpt_diff-flrptyr.flrpt_budget)/flrptyr.flrpt_budget),0))
WHEN ((flhead_type = 'B') AND (flrptyr.flrpt_budget > 0)) THEN
(COALESCE(((flrptyr.flrpt_ending-flrptyr.flrpt_budget)/flrptyr.flrpt_budget),0))
ELSE NULL
END AS flstmtitem_yearbudgetdiffprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE(flrptprmo.flrpt_diff,0))
ELSE (COALESCE(flrptprmo.flrpt_ending,0))
END AS flstmtitem_prmonth,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(flrptprmo.flrpt_diffprcnt)
ELSE (flrptprmo.flrpt_endingprcnt)
END AS flstmtitem_prmonthprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE(flrptmo.flrpt_diff-flrptprmo.flrpt_diff,0))
ELSE (COALESCE(flrptmo.flrpt_ending-flrptprmo.flrpt_ending,0))
END AS flstmtitem_prmonthdiff,
CASE
WHEN ((flhead_type IN ('I','C')) AND (flrptprmo.flrpt_diff > 0)) THEN
(COALESCE((flrptmo.flrpt_diff-flrptprmo.flrpt_diff)/flrptprmo.flrpt_diff,0))
WHEN ((flhead_type = 'B') AND (flrptprmo.flrpt_ending > 0)) THEN
(COALESCE((flrptmo.flrpt_ending-flrptprmo.flrpt_ending)/flrptprmo.flrpt_ending,0))
ELSE NULL
END AS flstmtitem_prmonthdiffprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE(flrptprqt.flrpt_diff,0))
ELSE (COALESCE(flrptprqt.flrpt_ending,0))
END AS flstmtitem_prqtr,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(flrptprqt.flrpt_diffprcnt)
ELSE (flrptprqt.flrpt_endingprcnt)
END AS flstmtitem_prqtrprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE(flrptqt.flrpt_diff-flrptprqt.flrpt_diff,0))
ELSE (COALESCE(flrptqt.flrpt_ending-flrptprqt.flrpt_ending,0))
END AS flstmtitem_prqtrdiff,
CASE
WHEN ((flhead_type IN ('I','C')) AND (flrptprqt.flrpt_diff > 0)) THEN
(COALESCE((flrptqt.flrpt_diff-flrptprqt.flrpt_diff)/flrptprqt.flrpt_diff,0))
WHEN ((flhead_type = 'B') AND (flrptprqt.flrpt_ending > 0)) THEN
(COALESCE((flrptqt.flrpt_ending-flrptprqt.flrpt_ending)/flrptprqt.flrpt_ending,0))
ELSE NULL
END AS flstmtitem_prqtrdiffprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE(flrptpryr.flrpt_diff,0))
ELSE (COALESCE(flrptpryr.flrpt_ending,0))
END AS flstmtitem_pryear,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(flrptpryr.flrpt_diffprcnt)
ELSE (flrptpryr.flrpt_endingprcnt)
END AS flstmtitem_pryearprcnt,
CASE
WHEN (flhead_type IN ('I','C')) THEN
(COALESCE(flrptyr.flrpt_diff-flrptpryr.flrpt_diff,0))
ELSE (COALESCE(flrptyr.flrpt_ending-flrptpryr.flrpt_ending,0))
END AS flstmtitem_pryeardiff,
CASE
WHEN ((flhead_type IN ('I','C')) AND (flrptpryr.flrpt_diff > 0)) THEN
(COALESCE((flrptyr.flrpt_diff-flrptpryr.flrpt_diff)/flrptpryr.flrpt_diff,0))
WHEN ((flhead_type = 'B' ) AND (flrptpryr.flrpt_ending > 0)) THEN
(COALESCE((flrptyr.flrpt_ending-flrptpryr.flrpt_ending)/flrptpryr.flrpt_ending,0))
ELSE NULL
END AS flstmtitem_pryeardiffprcnt
FROM flhead CROSS JOIN (SELECT DISTINCT
flrpt_flhead_id,
flrpt_period_id,
flrpt_username,
flrpt_order,
flrpt_level,
flrpt_type,
flrpt_type_id,
flrpt_parent_id,
flrpt_altname
FROM flrpt
WHERE ((NOT (flrpt_type IN ('G','I','S')))
AND (flrpt_flhead_id=_p.flhead_id)
AND (flrpt_period_id=pPeriodId)
AND (flrpt_username=getEffectiveXtUser()))) AS flrpt
LEFT OUTER JOIN flrpt flrptmo
ON ((flrptmo.flrpt_type=flrpt.flrpt_type)
AND (flrptmo.flrpt_order=flrpt.flrpt_order)
AND (flrptmo.flrpt_flhead_id=flrpt.flrpt_flhead_id)
AND (flrptmo.flrpt_period_id=flrpt.flrpt_period_id)
AND (flrptmo.flrpt_interval='M')
AND (flrptmo.flrpt_username=flrpt.flrpt_username))
LEFT OUTER JOIN flrpt flrptqt
ON ((flrptqt.flrpt_type=flrpt.flrpt_type)
AND (flrptqt.flrpt_order=flrpt.flrpt_order)
AND (flrptqt.flrpt_flhead_id=flrpt.flrpt_flhead_id)
AND (flrptqt.flrpt_period_id=flrpt.flrpt_period_id)
AND (flrptqt.flrpt_interval=_qtrInterval)
AND (flrptqt.flrpt_username=flrpt.flrpt_username))
LEFT OUTER JOIN flrpt flrptyr
ON ((flrptyr.flrpt_type=flrpt.flrpt_type)
AND (flrptyr.flrpt_order=flrpt.flrpt_order)
AND (flrptyr.flrpt_flhead_id=flrpt.flrpt_flhead_id)
AND (flrptyr.flrpt_period_id=flrpt.flrpt_period_id)
AND (flrptyr.flrpt_interval=_yrInterval)
AND (flrptyr.flrpt_username=flrpt.flrpt_username))
LEFT OUTER JOIN flrpt flrptprmo
ON ((flrptprmo.flrpt_type=flrpt.flrpt_type)
AND (flrptprmo.flrpt_order=flrpt.flrpt_order)
AND (flrptprmo.flrpt_flhead_id=flrpt.flrpt_flhead_id)
AND (flrptprmo.flrpt_period_id=_priorMoPeriodId)
AND (flrptprmo.flrpt_interval='M')
AND (flrptprmo.flrpt_username=flrpt.flrpt_username))
LEFT OUTER JOIN flrpt flrptprqt
ON ((flrptprqt.flrpt_type=flrpt.flrpt_type)
AND (flrptprqt.flrpt_order=flrpt.flrpt_order)
AND (flrptprqt.flrpt_flhead_id=flrpt.flrpt_flhead_id)
AND (flrptprqt.flrpt_period_id=_priorQtPeriodId)
AND (flrptprqt.flrpt_interval='Q')
AND (flrptprqt.flrpt_username=flrpt.flrpt_username))
LEFT OUTER JOIN flrpt flrptpryr
ON ((flrptpryr.flrpt_type=flrpt.flrpt_type)
AND (flrptpryr.flrpt_order=flrpt.flrpt_order)
AND (flrptpryr.flrpt_flhead_id=flrpt.flrpt_flhead_id)
AND (flrptpryr.flrpt_period_id=_priorYrPeriodId)
AND (flrptpryr.flrpt_interval='Y')
AND (flrptpryr.flrpt_username=flrpt.flrpt_username))
WHERE (flhead_id=flrpt.flrpt_flhead_id)
ORDER BY flstmtitem_order
LOOP
IF _prevlevel > _x.flstmtitem_level THEN
_subgrp := _subgrp+1;
END IF;
_prevlevel:=_x.flstmtitem_level;
_row.flstmtitem_subgrp := _subgrp;
IF NOT _first THEN
RETURN NEXT _row;
END IF;
_first := FALSE;
_row.flstmtitem_flhead_id := _x.flstmtitem_flhead_id;
_row.flstmtitem_period_id := _x.flstmtitem_period_id;
_row.flstmtitem_username := _x.flstmtitem_username;
_row.flstmtitem_order := _x.flstmtitem_order;
_row.flstmtitem_level := _x.flstmtitem_level;
_row.flstmtitem_type := _x.flstmtitem_type;
_row.flstmtitem_type_id := _x.flstmtitem_type_id;
_row.flstmtitem_parent_id := _x.flstmtitem_parent_id;
_row.flstmtitem_accnt_id := _x.flstmtitem_accnt_id;
_row.flstmtitem_name := _x.flstmtitem_name;
_row.flstmtitem_month := _x.flstmtitem_month;
_row.flstmtitem_monthdb := _x.flstmtitem_monthdb;
_row.flstmtitem_monthcr := _x.flstmtitem_monthcr;
_row.flstmtitem_monthprcnt := _x.flstmtitem_monthprcnt;
_row.flstmtitem_monthbudget := _x.flstmtitem_monthbudget;
_row.flstmtitem_monthbudgetprcnt := _x.flstmtitem_monthbudgetprcnt;
_row.flstmtitem_monthbudgetdiff := _x.flstmtitem_monthbudgetdiff;
_row.flstmtitem_monthbudgetdiffprcnt := _x.flstmtitem_monthbudgetdiffprcnt;
_row.flstmtitem_qtr := _x.flstmtitem_qtr;
_row.flstmtitem_qtrdb := _x.flstmtitem_qtrdb;
_row.flstmtitem_qtrcr := _x.flstmtitem_qtrcr;
_row.flstmtitem_qtrprcnt := _x.flstmtitem_qtrprcnt;
_row.flstmtitem_qtrbudget := _x.flstmtitem_qtrbudget;
_row.flstmtitem_qtrbudgetprcnt := _x.flstmtitem_qtrbudgetprcnt;
_row.flstmtitem_qtrbudgetdiff := _x.flstmtitem_qtrbudgetdiff;
_row.flstmtitem_qtrbudgetdiffprcnt := _x.flstmtitem_qtrbudgetdiffprcnt;
_row.flstmtitem_year := _x.flstmtitem_year;
_row.flstmtitem_yeardb := _x.flstmtitem_yeardb;
_row.flstmtitem_yearcr := _x.flstmtitem_yearcr;
_row.flstmtitem_yearprcnt := _x.flstmtitem_yearprcnt;
_row.flstmtitem_yearbudget := _x.flstmtitem_yearbudget;
_row.flstmtitem_yearbudgetprcnt := _x.flstmtitem_yearbudgetprcnt;
_row.flstmtitem_yearbudgetdiff := _x.flstmtitem_yearbudgetdiff;
_row.flstmtitem_yearbudgetdiffprcnt := _x.flstmtitem_yearbudgetdiffprcnt;
_row.flstmtitem_prmonth := _x.flstmtitem_prmonth;
_row.flstmtitem_prmonthprcnt := _x.flstmtitem_prmonthprcnt;
_row.flstmtitem_prmonthdiff := _x.flstmtitem_prmonthdiff;
_row.flstmtitem_prmonthdiffprcnt := _x.flstmtitem_prmonthdiffprcnt;
_row.flstmtitem_prqtr := _x.flstmtitem_prqtr;
_row.flstmtitem_prqtrprcnt := _x.flstmtitem_prqtrprcnt;
_row.flstmtitem_prqtrdiff := _x.flstmtitem_prqtrdiff;
_row.flstmtitem_prqtrdiffprcnt := _x.flstmtitem_prqtrdiffprcnt;
_row.flstmtitem_pryear := _x.flstmtitem_pryear;
_row.flstmtitem_pryearprcnt := _x.flstmtitem_pryearprcnt;
_row.flstmtitem_pryeardiff := _x.flstmtitem_pryeardiff;
_row.flstmtitem_pryeardiffprcnt := _x.flstmtitem_pryeardiffprcnt;
END LOOP;
_row.flstmtitem_subgrp := _subgrp + 1;
RETURN NEXT _row;
END;
$_$;
ALTER FUNCTION public.financialreport(integer, integer, boolean, boolean, integer) OWNER TO admin;
--
-- Name: findapaccount(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION findapaccount(integer) RETURNS integer
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
_accntid INTEGER;
BEGIN
IF (NOT fetchMetricBool('InterfaceAPToGL')) THEN
RETURN 0;
END IF;
SELECT apaccnt_ap_accnt_id INTO _accntid
FROM apaccnt
JOIN vendinfo ON (apaccnt_vendtype_id=vend_vendtype_id)
WHERE (vend_id=pVendid);
IF (FOUND) THEN
RETURN _accntid;
END IF;
SELECT apaccnt_ap_accnt_id INTO _accntid
FROM apaccnt
JOIN vendtype ON (vendtype_code ~ apaccnt_vendtype)
JOIN vendinfo ON (vend_vendtype_id=vendtype_id)
WHERE ((apaccnt_vendtype_id=-1)
AND (vend_id=pVendid));
IF (FOUND) THEN
RETURN _accntid;
END IF;
RETURN -1;
END;
$_$;
ALTER FUNCTION public.findapaccount(integer) OWNER TO admin;
--
-- Name: findapdiscountaccount(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION findapdiscountaccount(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
_accntid INTEGER;
BEGIN
IF (NOT fetchMetricBool('InterfaceAPToGL')) THEN
RETURN 0;
END IF;
SELECT apaccnt_discount_accnt_id INTO _accntid
FROM apaccnt
JOIN vendinfo ON (apaccnt_vendtype_id=vend_vendtype_id)
WHERE (vend_id=pVendid);
IF (FOUND) THEN
RETURN _accntid;
END IF;
SELECT apaccnt_discount_accnt_id INTO _accntid
FROM apaccnt
JOIN vendtype ON (vendtype_code ~ apaccnt_vendtype)
JOIN vendinfo ON (vend_vendtype_id=vendtype_id)
WHERE ((apaccnt_vendtype_id=-1)
AND (vend_id=pVendid));
IF (FOUND) THEN
RETURN _accntid;
END IF;
RETURN -1;
END;
$_$;
ALTER FUNCTION public.findapdiscountaccount(integer) OWNER TO admin;
--
-- Name: findapprepaidaccount(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION findapprepaidaccount(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
_accntid INTEGER;
BEGIN
IF (NOT fetchMetricBool('InterfaceAPToGL')) THEN
RETURN 0;
END IF;
-- Check for a Vendor Type specific Account
SELECT apaccnt_prepaid_accnt_id INTO _accntid
FROM apaccnt
JOIN vendinfo ON (apaccnt_vendtype_id=vend_vendtype_id)
WHERE (vend_id=pVendid);
IF (FOUND) THEN
RETURN _accntid;
END IF;
-- Check for a Vendor Type pattern
SELECT apaccnt_prepaid_accnt_id INTO _accntid
FROM apaccnt
JOIN vendtype ON (vendtype_code ~ apaccnt_vendtype)
JOIN vendinfo ON (vend_vendtype_id=vendtype_id)
WHERE ((apaccnt_vendtype_id=-1)
AND (vend_id=pVendid));
IF (FOUND) THEN
RETURN _accntid;
END IF;
RETURN -1;
END;
$_$;
ALTER FUNCTION public.findapprepaidaccount(integer) OWNER TO admin;
--
-- Name: findaraccount(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION findaraccount(integer) RETURNS integer
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustid ALIAS FOR $1;
_accntid INTEGER;
BEGIN
IF (NOT fetchMetricBool('InterfaceARToGL')) THEN
RETURN 0;
END IF;
-- Check for a Customer Type specific Account
SELECT araccnt_ar_accnt_id INTO _accntid
FROM araccnt, custinfo
WHERE ( (araccnt_custtype_id=cust_custtype_id)
AND (cust_id=pCustid) );
IF (FOUND) THEN
RETURN _accntid;
END IF;
-- Check for a Customer Type pattern
SELECT araccnt_ar_accnt_id INTO _accntid
FROM araccnt, custinfo, custtype
WHERE ( (custtype_code ~ araccnt_custtype)
AND (araccnt_custtype_id=-1)
AND (cust_custtype_id=custtype_id)
AND (cust_id=pCustid) );
IF (FOUND) THEN
RETURN _accntid;
END IF;
RETURN -1;
END;
$_$;
ALTER FUNCTION public.findaraccount(integer) OWNER TO admin;
--
-- Name: findardiscountaccount(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION findardiscountaccount(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustid ALIAS FOR $1;
_accntid INTEGER;
BEGIN
IF (NOT fetchMetricBool('InterfaceARToGL')) THEN
RETURN 0;
END IF;
-- Check for a Customer Type specific Account
SELECT araccnt_discount_accnt_id INTO _accntid
FROM araccnt, custinfo
WHERE ( (araccnt_custtype_id=cust_custtype_id)
AND (cust_id=pCustid) );
IF (FOUND) THEN
RETURN _accntid;
END IF;
-- Check for a Customer Type pattern
SELECT araccnt_discount_accnt_id INTO _accntid
FROM araccnt, custinfo, custtype
WHERE ( (custtype_code ~ araccnt_custtype)
AND (cust_custtype_id=custtype_id)
AND (araccnt_custtype_id=-1)
AND (cust_id=pCustid) );
IF (FOUND) THEN
RETURN _accntid;
END IF;
RETURN -1;
END;
$_$;
ALTER FUNCTION public.findardiscountaccount(integer) OWNER TO admin;
--
-- Name: findcalendarorigin(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION findcalendarorigin(integer) RETURNS date
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCalheadid ALIAS FOR $1;
_originType CHAR(1);
_origin DATE;
BEGIN
SELECT calhead_origin INTO _originType
FROM calhead
WHERE (calhead_id=pCalheadid);
IF (NOT FOUND) THEN
_origin := NULL;
ELSIF (_originType = 'D') THEN
_origin := CURRENT_DATE;
ELSIF (_originType = 'E') THEN
_origin := (CURRENT_DATE + 1);
ELSIF (_originType = 'W') THEN
_origin := (CURRENT_DATE - EXTRACT(DOW FROM CURRENT_DATE)::INTEGER);
ELSIF (_originType = 'X') THEN
_origin := ((CURRENT_DATE - EXTRACT(DOW FROM CURRENT_DATE)::INTEGER) + INTERVAL '1 week');
ELSIF (_originType = 'M') THEN
_origin := date_trunc('month', CURRENT_DATE);
ELSIF (_originType = 'N') THEN
_origin := (date_trunc('month', CURRENT_DATE) + INTERVAL '1 month');
ELSIF (_originType = 'L') THEN
_origin := (date_trunc('year', CURRENT_DATE) - INTERVAL '1 year');
ELSIF (_originType = 'Y') THEN
_origin := date_trunc('year', CURRENT_DATE);
ELSIF (_originType = 'Z') THEN
_origin := (date_trunc('year', CURRENT_DATE) + INTERVAL '1 year');
ELSE
_origin := NULL;
END IF;
RETURN _origin;
END;
$_$;
ALTER FUNCTION public.findcalendarorigin(integer) OWNER TO admin;
--
-- Name: findcustomerform(integer, character); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION findcustomerform(integer, character) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustid ALIAS FOR $1;
pFormtype ALIAS FOR $2;
_f RECORD;
_found BOOLEAN;
BEGIN
-- Check for a Customer Type specific Form
SELECT custform.* INTO _f
FROM custform
JOIN custinfo ON (custform_custtype_id=cust_custtype_id)
WHERE (cust_id=pCustid);
IF (FOUND) THEN
_found := TRUE;
ELSE
-- Check for a Customer Type pattern
SELECT custform.* INTO _f
FROM custform
JOIN custtype ON (custtype_code ~ custform_custtype)
JOIN custinfo ON (cust_custtype_id=custtype_id)
WHERE ((custform_custtype_id=-1)
AND (cust_id=pCustid));
IF (FOUND) THEN
_found := TRUE;
ELSE
_found := FALSE;
END IF;
END IF;
IF (_found) THEN
IF ( (pFormType = 'I') AND (_f.custform_invoice_report_name IS NOT NULL) ) THEN
RETURN _f.custform_invoice_report_name;
ELSIF ( (pFormType = 'C') AND (_f.custform_creditmemo_report_name IS NOT NULL) ) THEN
RETURN _f.custform_creditmemo_report_name;
ELSIF ( (pFormType = 'S') AND (_f.custform_statement_report_name IS NOT NULL) ) THEN
RETURN _f.custform_statement_report_name;
ELSIF ( (pFormType = 'Q') AND (_f.custform_quote_report_name IS NOT NULL) ) THEN
RETURN _f.custform_quote_report_name;
ELSIF ( (pFormType = 'P') AND (_f.custform_packinglist_report_name IS NOT NULL) ) THEN
RETURN _f.custform_packinglist_report_name;
ELSIF ( (pFormType = 'L') AND (_f.custform_sopicklist_report_name IS NOT NULL) ) THEN
RETURN _f.custform_sopicklist_report_name;
END IF;
END IF;
IF (pFormType = 'I') THEN
RETURN 'Invoice';
ELSIF (pFormType = 'C') THEN
RETURN 'CreditMemo';
ELSIF (pFormType = 'S') THEN
RETURN 'Statement';
ELSIF (pFormType = 'Q') THEN
RETURN 'Quote';
ELSIF (pFormType = 'P') THEN
RETURN 'PackingList-Shipment';
ELSIF (pFormType = 'L') THEN
RETURN 'PackingList';
END IF;
END;
$_$;
ALTER FUNCTION public.findcustomerform(integer, character) OWNER TO admin;
--
-- Name: finddeferredaccount(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION finddeferredaccount(integer) RETURNS integer
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustid ALIAS FOR $1;
_accntid INTEGER;
BEGIN
IF (NOT fetchMetricBool('InterfaceARToGL')) THEN
RETURN 0;
END IF;
-- Check for a Customer Type specific Account
SELECT araccnt_deferred_accnt_id INTO _accntid
FROM araccnt
JOIN custinfo ON (araccnt_custtype_id=cust_custtype_id)
WHERE (cust_id=pCustid);
IF (FOUND) THEN
RETURN _accntid;
END IF;
-- Check for a Customer Type pattern
SELECT araccnt_deferred_accnt_id INTO _accntid
FROM araccnt
JOIN custtype ON (custtype_code ~ araccnt_custtype)
JOIN custinfo ON (cust_custtype_id=custtype_id)
WHERE ((araccnt_custtype_id=-1)
AND (cust_id=pCustid));
IF (FOUND) THEN
RETURN _accntid;
END IF;
RETURN -1;
END;
$_$;
ALTER FUNCTION public.finddeferredaccount(integer) OWNER TO admin;
--
-- Name: findfreightaccount(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION findfreightaccount(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustid ALIAS FOR $1;
_accntid INTEGER;
BEGIN
IF (NOT fetchMetricBool('InterfaceARToGL')) THEN
RETURN 0;
END IF;
-- Check for a Customer Type specific Account
SELECT araccnt_freight_accnt_id INTO _accntid
FROM araccnt, custinfo
WHERE ( (araccnt_custtype_id=cust_custtype_id)
AND (cust_id=pCustid) );
IF (FOUND) THEN
RETURN _accntid;
END IF;
-- Check for a Customer Type pattern
SELECT araccnt_freight_accnt_id INTO _accntid
FROM araccnt, custinfo, custtype
WHERE ( (custtype_code ~ araccnt_custtype)
AND (cust_custtype_id=custtype_id)
AND (araccnt_custtype_id=-1)
AND (cust_id=pCustid) );
IF (FOUND) THEN
RETURN _accntid;
END IF;
-- Find the default
SELECT metric_value::INTEGER INTO _accntid
FROM metric
WHERE (metric_name='FreightAccount');
IF (FOUND) THEN
RETURN _accntid;
END IF;
RETURN -1;
END;
$_$;
ALTER FUNCTION public.findfreightaccount(integer) OWNER TO admin;
--
-- Name: findperiodend(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION findperiodend(integer) RETURNS date
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCalitemid ALIAS FOR $1;
_calType CHAR(1);
_calItem RECORD;
_start DATE;
_loop INTEGER;
BEGIN
SELECT calhead_type INTO _calType
FROM calhead, acalitem
WHERE ((acalitem_calhead_id=calhead_id)
AND (acalitem_id=pCalitemid));
IF (NOT FOUND) THEN
SELECT calhead_type INTO _calType
FROM calhead, rcalitem
WHERE ((rcalitem_calhead_id=calhead_id)
AND (rcalitem_id=pCalitemid));
IF (NOT FOUND) THEN
RETURN NULL;
END IF;
END IF;
IF (_calType = 'A') THEN
RETURN ( SELECT (findPeriodStart(acalitem_id) + acalitem_periodlength - 1)
FROM acalitem
WHERE (acalitem_id=pCalitemid) );
ELSIF (_calType = 'R') THEN
-- Grab the relative calitem's particulars
SELECT rcalitem_periodtype, rcalitem_periodcount INTO _calitem
FROM rcalitem
WHERE (rcalitem_id=pCalitemid);
IF (NOT FOUND) THEN
RETURN NULL;
END If;
-- Grab the origin of the calitem
SELECT findPeriodStart(pCalitemid) INTO _start;
IF (_start IS NULL) THEN
-- If days...
ELSIF (_calitem.rcalitem_periodtype = 'D') THEN
_start := (_start + _calitem.rcalitem_periodcount - 1);
-- If weeks... (gotta be a better way)
ELSIF (_calitem.rcalitem_periodtype = 'W') THEN
_loop := _calitem.rcalitem_periodcount;
WHILE (_loop > 0) LOOP
_start := (_start + INTERVAL '1 week');
_loop := (_loop - 1);
END LOOP;
_start := (_start - 1);
-- If months... (gotta be a better way)
ELSIF (_calitem.rcalitem_periodtype = 'M') THEN
_loop := _calitem.rcalitem_periodcount;
WHILE (_loop > 0) LOOP
_start := (_start + INTERVAL '1 month');
_loop := (_loop - 1);
END LOOP;
_start := (_start - 1);
-- If years... (gotta be a better way)
ELSIF (_calitem.rcalitem_periodtype = 'Y') THEN
_loop := _calitem.rcalitem_periodcount;
WHILE (_loop > 0) LOOP
_start := (_start + INTERVAL '1 year');
_loop := (_loop - 1);
END LOOP;
_start := (_start - 1);
ELSE
_start := NULL;
END IF;
ELSE
_start := NULL;
END IF;
RETURN _start;
END;
$_$;
ALTER FUNCTION public.findperiodend(integer) OWNER TO admin;
--
-- Name: findperiodstart(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION findperiodstart(integer) RETURNS date
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCalitemid ALIAS FOR $1;
_calType CHAR(1);
_calItem RECORD;
_start DATE;
_loop INTEGER;
BEGIN
SELECT calhead_type INTO _calType
FROM calhead, acalitem
WHERE ((acalitem_calhead_id=calhead_id)
AND (acalitem_id=pCalitemid));
IF (NOT FOUND) THEN
SELECT calhead_type INTO _calType
FROM calhead, rcalitem
WHERE ((rcalitem_calhead_id=calhead_id)
AND (rcalitem_id=pCalitemid));
IF (NOT FOUND) THEN
RETURN NULL;
END IF;
END IF;
IF (_calType = 'A') THEN
RETURN ( SELECT acalitem_periodstart
FROM acalitem
WHERE (acalitem_id=pCalitemid) );
ELSIF (_calType = 'R') THEN
-- Grab the relative calitem's particulars
SELECT rcalitem_offsettype, rcalitem_offsetcount INTO _calitem
FROM rcalitem
WHERE (rcalitem_id=pCalitemid);
IF (NOT FOUND) THEN
RETURN NULL;
END If;
-- Grab the origin of the calitem's parend calhead
SELECT findCalendarOrigin(calhead_id) INTO _start
FROM calhead, rcalitem
WHERE ((rcalitem_calhead_id=calhead_id)
AND (rcalitem_id=pCalitemid));
-- If days...
IF (_calitem.rcalitem_offsettype = 'D') THEN
_start := (_start + _calitem.rcalitem_offsetcount);
-- If weeks...
ELSIF (_calitem.rcalitem_offsettype = 'W') THEN
_start := (_start + (_calitem.rcalitem_offsetcount * 7));
-- If months... (gotta be a better way)
ELSIF (_calitem.rcalitem_offsettype = 'M') THEN
_loop := _calitem.rcalitem_offsetcount;
IF (_loop > 0) THEN
WHILE (_loop > 0) LOOP
_start := (_start + INTERVAL '1 month');
_loop := _loop - 1;
END LOOP;
ELSE
WHILE (_loop < 0) LOOP
_start := (_start - INTERVAL '1 month');
_loop := _loop + 1;
END LOOP;
END IF;
-- If years... (gotta be a better way)
ELSIF (_calitem.rcalitem_offsettype = 'Y') THEN
_loop := _calitem.rcalitem_offsetcount;
IF (_loop > 0) THEN
WHILE (_loop > 0) LOOP
_start := (_start + INTERVAL '1 year');
_loop := _loop - 1;
END LOOP;
ELSE
WHILE (_loop < 0) LOOP
_start := (_start - INTERVAL '1 year');
_loop := _loop + 1;
END LOOP;
END IF;
ELSE
_start := NULL;
END IF;
ELSE
_start := NULL;
END IF;
RETURN _start;
END;
$_$;
ALTER FUNCTION public.findperiodstart(integer) OWNER TO admin;
--
-- Name: findprepaidaccount(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION findprepaidaccount(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustid ALIAS FOR $1;
_accntid INTEGER;
BEGIN
IF (NOT fetchMetricBool('InterfaceARToGL')) THEN
RETURN 0;
END IF;
-- Check for a Customer Type specific Account
SELECT araccnt_prepaid_accnt_id INTO _accntid
FROM araccnt
JOIN custinfo ON (araccnt_custtype_id=cust_custtype_id)
WHERE (cust_id=pCustid);
IF (FOUND) THEN
RETURN _accntid;
END IF;
-- Check for a Customer Type pattern
SELECT araccnt_prepaid_accnt_id INTO _accntid
FROM araccnt
JOIN custtype ON (custtype_code ~ araccnt_custtype)
JOIN custinfo ON (cust_custtype_id=custtype_id)
WHERE ((araccnt_custtype_id=-1)
AND (cust_id=pCustid) );
IF (FOUND) THEN
RETURN _accntid;
END IF;
RETURN -1;
END;
$_$;
ALTER FUNCTION public.findprepaidaccount(integer) OWNER TO admin;
--
-- Name: findsalesaccnt(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION findsalesaccnt(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN findSalesAccnt($1, 'IS', $2, NULL, NULL);
END;
$_$;
ALTER FUNCTION public.findsalesaccnt(integer, integer) OWNER TO admin;
--
-- Name: findsalesaccnt(integer, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION findsalesaccnt(integer, text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN findSalesAccnt($1, $2, $3, NULL, NULL);
END;
$_$;
ALTER FUNCTION public.findsalesaccnt(integer, text, integer) OWNER TO admin;
--
-- Name: findsalesaccnt(integer, text, integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION findsalesaccnt(pid integer, pidtype text, pcustid integer, psaletypeid integer, pshipzoneid integer) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_s RECORD;
BEGIN
IF (pidType = 'I') THEN
-- Check for a custtype specific rule
SELECT salesaccnt_id,
CASE WHEN (salesaccnt_warehous_id<>-1) THEN 1 ELSE 0 END +
CASE WHEN (salesaccnt_custtype_id<>-1) THEN 2 ELSE 0 END +
CASE WHEN (salesaccnt_prodcat_id<>-1) THEN 3 ELSE 0 END +
CASE WHEN (salesaccnt_shipzone_id<>-1) THEN 4 ELSE 0 END +
CASE WHEN (salesaccnt_saletype_id<>-1) THEN 5 ELSE 0 END AS orderby
INTO _s
FROM salesaccnt, item, prodcat, custinfo, custtype
WHERE ( (salesaccnt_warehous_id=-1)
AND (item_prodcat_id=prodcat_id)
AND (cust_custtype_id=custtype_id)
AND ( (salesaccnt_prodcat='.*') OR
( (salesaccnt_prodcat_id=-1) AND
(salesaccnt_prodcat<>'') AND
(prodcat_code ~ salesaccnt_prodcat) ) OR
( (salesaccnt_prodcat_id=prodcat_id) ) )
AND ( (salesaccnt_custtype='.*') OR
( (salesaccnt_custtype_id=-1) AND
(salesaccnt_custtype<>'') AND
(custtype_code ~ salesaccnt_custtype) ) OR
( (salesaccnt_custtype_id=custtype_id) ) )
AND ( (salesaccnt_shipzone_id=-1) OR
(salesaccnt_shipzone_id=pShipzoneid) )
AND ( (salesaccnt_saletype_id=-1) OR
(salesaccnt_saletype_id=pSaletypeid) )
AND (item_id=pid)
AND (cust_id=pCustid) )
ORDER BY orderby DESC, salesaccnt_custtype DESC, salesaccnt_prodcat DESC,
salesaccnt_saletype_id DESC, salesaccnt_shipzone_id DESC
LIMIT 1;
ELSIF (pidType = 'IS') THEN
-- Check for a custtype specific rule
SELECT salesaccnt_id,
CASE WHEN (salesaccnt_warehous_id<>-1) THEN 1 ELSE 0 END +
CASE WHEN (salesaccnt_custtype_id<>-1) THEN 2 ELSE 0 END +
CASE WHEN (salesaccnt_prodcat_id<>-1) THEN 3 ELSE 0 END +
CASE WHEN (salesaccnt_shipzone_id<>-1) THEN 4 ELSE 0 END +
CASE WHEN (salesaccnt_saletype_id<>-1) THEN 5 ELSE 0 END AS orderby
INTO _s
FROM salesaccnt, itemsite, item, prodcat, custinfo, custtype
WHERE ( ( (salesaccnt_warehous_id=-1) OR
(salesaccnt_warehous_id=itemsite_warehous_id) )
AND (itemsite_item_id=item_id)
AND (item_prodcat_id=prodcat_id)
AND (cust_custtype_id=custtype_id)
AND ( (salesaccnt_prodcat='.*') OR
( (salesaccnt_prodcat_id=-1) AND
(salesaccnt_prodcat<>'') AND
(prodcat_code ~ salesaccnt_prodcat) ) OR
( (salesaccnt_prodcat_id=prodcat_id) ) )
AND ( (salesaccnt_custtype='.*') OR
( (salesaccnt_custtype_id=-1) AND
(salesaccnt_custtype<>'') AND
(custtype_code ~ salesaccnt_custtype) ) OR
( (salesaccnt_custtype_id=custtype_id) ) )
AND ( (salesaccnt_shipzone_id=-1) OR
(salesaccnt_shipzone_id=pShipzoneid) )
AND ( (salesaccnt_saletype_id=-1) OR
(salesaccnt_saletype_id=pSaletypeid) )
AND (itemsite_id=pid)
AND (cust_id=pCustid) )
ORDER BY orderby DESC, salesaccnt_custtype DESC, salesaccnt_prodcat DESC, salesaccnt_warehous_id DESC,
salesaccnt_saletype_id DESC, salesaccnt_shipzone_id DESC
LIMIT 1;
ELSE
RETURN -2; -- invalid pidType
END IF;
IF (FOUND) THEN
RETURN _s.salesaccnt_id;
END IF;
RETURN -1;
END;
$$;
ALTER FUNCTION public.findsalesaccnt(pid integer, pidtype text, pcustid integer, psaletypeid integer, pshipzoneid integer) OWNER TO admin;
--
-- Name: findspecialfinancial(text, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION findspecialfinancial(text, text, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUnit ALIAS FOR $1;
pType ALIAS FOR $2;
pPeriodid ALIAS FOR $3;
_value NUMERIC;
BEGIN
_value := 0.00;
IF ('OpenAR' = pType) THEN
IF ( pUnit IN ('D','E') ) THEN
SELECT SUM( CASE WHEN (aropen_doctype IN ('C', 'R')) THEN ((aropen_amount - aropen_paid) * -1)
ELSE (aropen_amount - aropen_paid) END ) INTO _value
FROM aropen, period
WHERE ((aropen_open)
AND (aropen_duedate BETWEEN period_start AND period_end)
AND (period_id=pPeriodid));
IF ('E' = pUnit) THEN
_value := 0.00 - _value;
END IF;
END IF;
END IF;
IF ('OpenAP' = pType) THEN
IF ( pUnit IN ('C','E') ) THEN
SELECT SUM( CASE WHEN (apopen_doctype='C') THEN ((apopen_amount - apopen_paid) * -1)
ELSE (apopen_amount - apopen_paid) END ) INTO _value
FROM apopen, period
WHERE ((apopen_open)
AND (apopen_duedate BETWEEN period_start AND period_end)
AND (period_id=pPeriodid));
END IF;
END IF;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.findspecialfinancial(text, text, integer) OWNER TO admin;
--
-- Name: first_agg(anyelement, anyelement); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION first_agg(anyelement, anyelement) RETURNS anyelement
LANGUAGE sql STABLE
AS $_$
SELECT CASE WHEN $1 IS NULL THEN $2 ELSE $1 END;
$_$;
ALTER FUNCTION public.first_agg(anyelement, anyelement) OWNER TO admin;
--
-- Name: firstline(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION firstline(text) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSource ALIAS FOR $1;
_result TEXT := '';
BEGIN
SELECT regexp_replace(pSource, E'^(\r?\n)*([^\r\n]*)\r?\n.*', E'\\2') INTO _result;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.firstline(text) OWNER TO admin;
--
-- Name: fixacl(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION fixacl() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_r RECORD;
_count INTEGER := 0;
_oldgrp BOOLEAN := false;
_objtype TEXT;
_table TEXT;
_schema TEXT;
BEGIN
IF EXISTS(SELECT 1 FROM pg_group WHERE groname = 'openmfg') THEN
_oldgrp := true;
END IF;
FOR _r IN SELECT relname, nspname, relkind,
CASE relkind WHEN 'r' THEN 1
WHEN 'v' THEN 2
WHEN 'S' THEN 3
ELSE 4
END AS seq
FROM pg_catalog.pg_class c, pg_namespace n
WHERE ((n.oid=c.relnamespace)
AND (nspname in ('public', 'api') OR
nspname in (SELECT pkghead_name FROM pkghead))
AND (relkind in ('S', 'r', 'v')))
ORDER BY seq
LOOP
_schema := quote_ident(_r.nspname);
_table := quote_ident(_r.relname);
RAISE DEBUG '%.%', _schema, _table;
IF (_oldgrp) THEN
EXECUTE 'REVOKE ALL ON ' || _schema || '.' || _table || ' FROM openmfg;';
END IF;
EXECUTE 'REVOKE ALL ON ' || _schema || '.' || _table || ' FROM PUBLIC;';
EXECUTE 'GRANT ALL ON ' || _schema || '.' || _table || ' TO GROUP xtrole;';
_count := _count + 1;
_objtype := CASE _r.relkind WHEN 'S' THEN 'SEQUENCE'
WHEN 'r' THEN 'TABLE'
WHEN 'v' THEN 'VIEW'
ELSE NULL
END;
IF (_objtype IS NOT NULL) THEN
BEGIN
EXECUTE 'ALTER ' || _objtype || ' ' ||
_schema || '.' || _table || ' OWNER TO admin;';
EXCEPTION WHEN OTHERS THEN
RAISE WARNING 'Could not change ownership of %.% to admin',
_schema, _table;
END;
END IF;
END LOOP;
RETURN _count;
END;
$$;
ALTER FUNCTION public.fixacl() OWNER TO admin;
--
-- Name: formatabachecks(integer, integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatabachecks(integer, integer, text) RETURNS SETOF achline
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pbankaccntid ALIAS FOR $1; -- all unprinted checks for this bankaccnt
pcheckheadid ALIAS FOR $2; -- but if 2nd arg not null then just 1 check
penckey ALIAS FOR $3;
_bank RECORD;
_batchcount INTEGER := 0;
_batchdate DATE;
_check RECORD;
_vendnumber TEXT;
_vendname TEXT;
_filenum TEXT;
_prevsec TEXT;
_row achline%ROWTYPE;
_totalcr NUMERIC := 0;
_totaldb NUMERIC := 0;
_detailcount INTEGER := 0; -- count of type 1 entries
_vendbsb TEXT;
BEGIN
-- General notes:
-- Numeric values are formatted using RPAD(TO_CHAR(#, '0..0SG', #)).
-- TO_CHAR(#, ...) (at least in the default server locale) puts a space at
-- the beginning of the string for numbers >= 0 and '-' for numbers < 0.
-- 'SG' pushes the sign char to the end, then RPAD cuts it off.
-- This whole thing is for Australian bank transactions only, and generates entries for an ABA file.
-- Currently restricted to checks to Vendor; there's no support for checks to
-- customers or tax authorities, or for debits or corrections.
-- This function has been adapted from the US-centric ACH formatACHChecks function.
IF (NOT fetchMetricBool('ACHEnabled')) THEN
RAISE EXCEPTION 'Cannot format the ABA file because the system is not configured for ABA file generation.';
END IF;
IF (LENGTH(COALESCE(penckey, '')) <= 0) THEN
RAISE EXCEPTION 'Cannot format the ABA file because there is no encryption key.';
END IF;
SELECT * INTO _bank
FROM bankaccnt
WHERE (bankaccnt_id=pbankaccntid);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Could not find the bank information to create the ABA file.';
ELSIF (NOT _bank.bankaccnt_ach_enabled) THEN
RAISE EXCEPTION 'Cannot format the ABA file because the Bank Account % is not configured for ABA transactions.',
_bank.bankaccnt_name;
ELSIF (LENGTH(COALESCE(_bank.bankaccnt_routing, '')) <= 0) THEN
RAISE EXCEPTION 'Cannot format the ABA file because the Bank Account % has no BSB number.', _bank.bankaccnt_name;
END IF;
-- Check the BSB number is in the right format and then re-format for output.
-- Valid format is \d{3}-\d{3}|\d{6}000
IF (_bank.bankaccnt_routing ~ E'^(\\d{3})(?:-(?=\\d{3}$)|(?=\\d{3}0{3}$))(\\d{3})(0{3})?$') THEN
_bank.bankaccnt_routing := regexp_replace(
_bank.bankaccnt_routing,
E'^(\\d{3})(?:-(?=\\d{3}$)|(?=\\d{3}0{3}$))(\\d{3})(0{3})?$', E'\\1-\\2'
);
ELSE RAISE EXCEPTION 'Cannot format the ABA file because the Bank Account % has an invalid BSB number.',
_bank.bankaccnt_name;
END IF;
_filenum := LPAD(fetchNextNumber('ACHBatch'), 8, '0');
IF (COALESCE(_bank.bankaccnt_ach_lastdate,startOfTime()) < CURRENT_DATE
OR _bank.bankaccnt_ach_lastfileid IS NULL) THEN
_bank.bankaccnt_ach_lastfileid = '0';
ELSIF (_bank.bankaccnt_ach_lastfileid = '9') THEN
_bank.bankaccnt_ach_lastfileid = 'A';
ELSIF (_bank.bankaccnt_ach_lastfileid = 'Z') THEN
RAISE EXCEPTION 'Cannot write % check % to an ABA file because too many files have been written for this bank already today.',
_bank.bankaccnt_name, _check.checkhead_number;
ELSE
_bank.bankaccnt_ach_lastfileid = CHR(ASCII(_bank.bankaccnt_ach_lastfileid) + 1);
END IF;
_row.achline_checkhead_id := NULL;
_row.achline_batch := _filenum;
_row.achline_type := 'HEADER';
_row.achline_value := RPAD(
RPAD('0',18) -- Record Type 0 blank filled with 17 spaces
|| '01' -- Reel sequence number
|| RPAD(_bank.bankaccnt_bankname,3) -- Approved financial instition abbreviation.
|| RPAD('',7) -- blank filled
|| RPAD(fetchMetricText('ACHCompanyName'), 26) -- Name of user supplying ABA file
|| LPAD(fetchMetricText('ACHCompanyId'),6) -- User identification number APCA issued
|| RPAD('PAYMENT',12) -- description of entries on file
-- currently only use payment description
|| TO_CHAR(CURRENT_DATE, 'DDMMYY'), -- date to be processed
120 -- blank filled to 120 characters
);
RETURN NEXT _row;
FOR _check IN SELECT *
FROM checkhead
JOIN vendinfo ON (checkhead_recip_type='V'
AND checkhead_recip_id=vend_id
AND vend_ach_enabled)
JOIN curr_symbol ON (checkhead_curr_id=curr_id)
LEFT OUTER JOIN crmacct ON (crmacct_vend_id=vend_id)
WHERE ((checkhead_bankaccnt_id=pbankaccntid)
AND (checkhead_amount > 0)
AND (checkhead_id=pcheckheadid OR pcheckheadid IS NULL)
AND NOT checkhead_posted
AND NOT checkhead_replaced
AND NOT checkhead_deleted
AND NOT checkhead_void
AND NOT checkhead_printed
AND (LENGTH(COALESCE(checkhead_ach_batch,'')) <= 0)
AND (curr_abbr='AUD'))
ORDER BY checkhead_checkdate, vend_name LOOP
IF (COALESCE(_check.checkhead_number, -1) <= 0
AND _bank.bankaccnt_ach_genchecknum) THEN
_check.checkhead_number := fetchNextCheckNumber(_check.checkhead_bankaccnt_id);
END IF;
-- Although a crmacct record is not required for used in this function
-- this code is retained for consistancy with the original formatachchecks function.
IF (_check.crmacct_id IS NULL) THEN
RAISE NOTICE 'Vendor % does not have a corresponding crmacct record.',
_check.checkhead_recip_id;
ELSIF (_check.crmacct_type IS NULL) THEN
RAISE NOTICE 'crmacct for vendor % does not have a valid crmacct_type.',
_check.checkhead_recip_id;
END IF;
_vendnumber := CASE WHEN _check.vend_ach_use_vendinfo THEN _check.vend_number
ELSE _check.vend_ach_indiv_number
END;
_vendname := CASE WHEN _check.vend_ach_use_vendinfo THEN _check.vend_name
ELSE _check.vend_ach_indiv_name
END;
IF (COALESCE(_check.vend_ach_routingnumber, '') = '') THEN
RAISE EXCEPTION 'Cannot write % check % to an ABA file because the BSB number for % has not been supplied.',
_bank.bankaccnt_name, _check.checkhead_number, _vendnumber;
ELSIF (COALESCE(_check.vend_ach_accntnumber, '') = '') THEN
RAISE EXCEPTION 'Cannot write % check % to an ABA file because the account number for % has not been supplied.',
_bank.bankaccnt_name, _check.checkhead_number, _vendnumber;
END IF;
_check.vend_ach_routingnumber := decrypt(setbytea(_check.vend_ach_routingnumber),
setbytea(penckey), 'bf');
_check.vend_ach_accntnumber := decrypt(setbytea(_check.vend_ach_accntnumber),
setbytea(penckey), 'bf');
-- Check the BSB number is in the right format and then re-format for output.
-- Valid format is \d{3}-\d{3}|\d{6}000
IF (formatbytea(_check.vend_ach_routingnumber) ~ E'^(\\d{3})(?:-(?=\\d{3}$)|(?=\\d{3}0{3}$))(\\d{3})(0{3})?$') THEN
_vendbsb := regexp_replace(
formatbytea(_check.vend_ach_routingnumber),
E'^(\\d{3})(?:-(?=\\d{3}$)|(?=\\d{3}0{3}$))(\\d{3})(0{3})?$', E'\\1-\\2'
);
ELSE RAISE EXCEPTION 'Cannot write % check % to an ABA file because the BSB number for % is not valid.',
_bank.bankaccnt_name, _check.checkhead_number, _vendnumber;
END IF;
_row.achline_checkhead_id := _check.checkhead_id;
_row.achline_batch := _filenum;
_row.achline_type := 'DETAIL';
_totaldb := _totaldb + _check.checkhead_amount; -- Total debits for balancing entry
_detailcount := _detailcount + 1; -- Detail record counter (type 1)
_totalcr := _totalcr + _check.checkhead_amount; -- Total credits from payments
_row.achline_value := RPAD('1' -- record type 1
|| _vendbsb -- vendor BSB #
|| LPAD(formatbytea(_check.vend_ach_accntnumber), 9) -- vendor account no.
||' ' -- withholding tax indicator
||'50' -- transaction code, this should be calculated.
|| LPAD(to_char(_check.checkhead_amount,'FM99999999V99'),10,'0') -- amount
|| RPAD(_vendname, 32) -- vendor name
|| RPAD('Deposit',8) || RPAD('#' , 2) || LPAD (_filenum,8,' ') -- Lodgement Reference
|| _bank.bankaccnt_routing -- BSB #
|| RPAD(_bank.bankaccnt_accntnumber, 9) -- company account number
|| RPAD(fetchMetricText('ACHCompanyName'), 16) -- company account name
|| LPAD('', 8, '0'), -- Witholding Tax Amount
120 -- line width
);
RETURN NEXT _row;
UPDATE checkhead
SET checkhead_ach_batch=_filenum,
checkhead_number=_check.checkhead_number
WHERE (checkhead_id=_check.checkhead_id);
END LOOP;
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot write an ABA file for % because there are no checks pending in AUD for EFT-enabled Vendors.',
_bank.bankaccnt_name;
END IF;
-- Place a final balancing detail record.
-- Check that the balancing record actually balances.
IF (_totalcr != _totaldb) THEN
RAISE EXCEPTION 'Cannot write an ABA file for % because the total credits: % does not equal the total debits: %, file will not balance.',
_bank.bankaccnt_name, _totalcr, _totaldb;
END IF;
_detailcount := _detailcount + 1;
_row.achline_checkhead_id := NULL;
_row.achline_batch := _filenum;
_row.achline_type := 'BALANCING';
-- keep in sync with the other batchcontrol record format above
-- THE FOLLOWING IS THE DEBIT BALANCING RECORD
_row.achline_value := RPAD('1' -- record type 1
|| _bank.bankaccnt_routing -- Austalian BSB #
|| LPAD(_bank.bankaccnt_accntnumber, 9) -- company account no.
|| ' ' -- withholding tax indicator
|| '13' -- transaction code
|| to_char(_totaldb,'FM09999999V99') -- the balancing amount
|| RPAD(fetchMetricText('ACHCompanyName'), 32) -- company name
|| RPAD('DIRECT DEPOSIT',18)
|| _bank.bankaccnt_routing -- Austalian BSB #
|| RPAD(_bank.bankaccnt_accntnumber, 9) -- company account number
|| RPAD(fetchMetricText('ACHCompanyName'), 16) -- company account name
|| LPAD('', 8, '0'), -- Witholding Tax Amount
120 -- line width
);
RETURN NEXT _row;
RAISE DEBUG 'formatABAChecks building TRAILER with _totaldb %, _totalcr %, _detailcount %',
_totaldb, _totalcr, _detailcount;
-- file control record
_row.achline_checkhead_id := NULL;
_row.achline_batch := _filenum;
_row.achline_type := 'TRAILER';
_row.achline_value := RPAD('7' -- record type 7
|| RPAD('999-999', 7) -- BSB format filler
|| RPAD('' , 12) -- blank
|| LPAD(to_char((_totaldb - _totalcr),'FM09999999V99'),10,'0') -- net total amount
|| LPAD(to_char(_totalcr, 'FM09999999V99'),10,'0') -- total credit amount
|| LPAD(to_char(_totaldb, 'FM09999999V99'),10,'0') -- total debit amount
|| RPAD('', 24) -- blank
|| RPAD(to_char(_detailcount, 'FM000000'), 6,'0'), -- count of type 1 records
120 -- blank fill
);
RETURN NEXT _row;
UPDATE bankaccnt
SET bankaccnt_ach_lastdate=CURRENT_DATE,
bankaccnt_ach_lastfileid=_bank.bankaccnt_ach_lastfileid
WHERE (bankaccnt_id=_bank.bankaccnt_id);
RETURN;
END;
$_$;
ALTER FUNCTION public.formatabachecks(integer, integer, text) OWNER TO admin;
--
-- Name: formatachchecks(integer, integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatachchecks(integer, integer, text) RETURNS SETOF achline
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pbankaccntid ALIAS FOR $1; -- all unprinted checks for this bankaccnt
pcheckheadid ALIAS FOR $2; -- but if 2nd arg not null then just 1 check
penckey ALIAS FOR $3;
_bank RECORD;
_batchcount INTEGER := 0;
_batchcr NUMERIC := 0;
_batchdate DATE;
_batchdb NUMERIC := 0;
_batchhash INTEGER := 0;
_check RECORD;
_ccdnumber TEXT;
_ccdname TEXT;
_entrycount INTEGER := 0;
_filenum TEXT;
_prevsec TEXT;
_row achline%ROWTYPE;
_rowcount INTEGER := 0;
_sec TEXT;
_serviceclass TEXT := '200'; -- 220 = credits, 225 = debits, 200 = mixed
_totalcr NUMERIC := 0;
_totaldb NUMERIC := 0;
_totalentrycnt INTEGER := 0;
_totalhash INTEGER := 0;
_transactionprefix TEXT;
BEGIN
-- General notes:
-- Numeric values are formatted using RPAD(TO_CHAR(#, '0..0SG', #)).
-- TO_CHAR(#, ...) (at least in the default server locale) puts a space at
-- the beginning of the string for numbers >= 0 and '-' for numbers < 0.
-- 'SG' pushes the sign char to the end, then RPAD cuts it off.
-- This whole thing is US-centric, as that's where the NACHA is.
-- Currently restricted to checks to Vendor; there's no support for checks to
-- customers or tax authorities, or for debits or corrections.
IF (NOT fetchMetricBool('ACHEnabled')) THEN
RAISE EXCEPTION 'Cannot format the ACH file because the system is not configured for ACH file generation.';
END IF;
IF (LENGTH(COALESCE(penckey, '')) <= 0) THEN
RAISE EXCEPTION 'Cannot format the ACH file because there is no encryption key.';
END IF;
SELECT * INTO _bank
FROM bankaccnt
WHERE (bankaccnt_id=pbankaccntid);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Could not find the bank information to create the ACH file.';
ELSIF (NOT _bank.bankaccnt_ach_enabled) THEN
RAISE EXCEPTION 'Cannot format the ACH file because the Bank Account % is not configured for ACH transactions.',
_bank.bankaccnt_name;
ELSIF (LENGTH(COALESCE(_bank.bankaccnt_routing, '')) <= 0) THEN
RAISE EXCEPTION 'Cannot format the ACH file because the Bank Account % has no routing number.',
_bank.bankaccnt_name;
END IF;
_filenum := LPAD(fetchNextNumber('ACHBatch'), 8, '0');
IF (COALESCE(_bank.bankaccnt_ach_lastdate,startOfTime()) < CURRENT_DATE
OR _bank.bankaccnt_ach_lastfileid IS NULL) THEN
_bank.bankaccnt_ach_lastfileid = '0';
ELSIF (_bank.bankaccnt_ach_lastfileid = '9') THEN
_bank.bankaccnt_ach_lastfileid = 'A';
ELSIF (_bank.bankaccnt_ach_lastfileid = 'Z') THEN
RAISE EXCEPTION 'Cannot write % check % to an ACH file because too many files have been written for this bank already today.',
_bank.bankaccnt_name, _check.checkhead_number;
ELSE
_bank.bankaccnt_ach_lastfileid = CHR(ASCII(_bank.bankaccnt_ach_lastfileid) + 1);
END IF;
_rowcount := _rowcount + 1;
_row.achline_checkhead_id := NULL;
_row.achline_batch := _filenum;
_row.achline_type := 'FILEHEADER';
_row.achline_value := RPAD('1'
|| '01'
|| RPAD(CASE WHEN _bank.bankaccnt_ach_desttype = 'B' THEN ' ' || _bank.bankaccnt_routing
WHEN _bank.bankaccnt_ach_desttype = 'F' THEN ' ' || _bank.bankaccnt_ach_fed_dest
ELSE _bank.bankaccnt_ach_dest END, 10)
|| RPAD(CASE WHEN _bank.bankaccnt_ach_origintype = 'B' THEN ' ' || _bank.bankaccnt_routing
WHEN _bank.bankaccnt_ach_origintype = 'I' THEN formatAchCompanyId()
ELSE _bank.bankaccnt_ach_origin END, 10)
|| TO_CHAR(CURRENT_DATE, 'YYMMDD')
|| TO_CHAR(CURRENT_TIMESTAMP, 'HH24MM')
|| UPPER(_bank.bankaccnt_ach_lastfileid)
|| '094'
|| '10'
|| '1'
|| RPAD(CASE WHEN _bank.bankaccnt_ach_desttype = 'B' THEN _bank.bankaccnt_bankname
WHEN _bank.bankaccnt_ach_desttype = 'F' THEN 'Federal Reserve'
ELSE _bank.bankaccnt_ach_destname END, 23)
|| RPAD(CASE WHEN _bank.bankaccnt_ach_origintype = 'B' THEN ' ' || _bank.bankaccnt_bankname
WHEN _bank.bankaccnt_ach_origintype = 'I' THEN fetchMetricText('ACHCompanyName')
ELSE _bank.bankaccnt_ach_originname END, 23)
|| RPAD(_filenum, 8),
94);
RETURN NEXT _row;
FOR _check IN SELECT *
FROM checkhead
JOIN vendinfo ON (checkhead_recip_type='V'
AND checkhead_recip_id=vend_id
AND vend_ach_enabled)
JOIN curr_symbol ON (checkhead_curr_id=curr_id)
LEFT OUTER JOIN crmacct ON (crmacct_vend_id=vend_id)
WHERE ((checkhead_bankaccnt_id=pbankaccntid)
AND (checkhead_amount > 0)
AND (checkhead_id=pcheckheadid OR pcheckheadid IS NULL)
AND NOT checkhead_posted
AND NOT checkhead_replaced
AND NOT checkhead_deleted
AND NOT checkhead_void
AND NOT checkhead_printed
AND (LENGTH(COALESCE(checkhead_ach_batch,'')) <= 0)
AND (curr_abbr='USD'))
ORDER BY checkhead_checkdate, vend_name LOOP
IF (COALESCE(_check.checkhead_number, -1) <= 0
AND _bank.bankaccnt_ach_genchecknum) THEN
_check.checkhead_number := fetchNextCheckNumber(_check.checkhead_bankaccnt_id);
END IF;
_prevsec := _sec;
IF (_check.crmacct_type = 'I') THEN
_sec := 'PPD';
ELSE
_sec := 'CCD';
IF (_check.crmacct_id IS NULL) THEN
RAISE NOTICE 'Vendor % does not have a corresponding crmacct record.',
_check.checkhead_recip_id;
ELSIF (_check.crmacct_type IS NULL) THEN
RAISE NOTICE 'crmacct for vendor % does not have a valid crmacct_type.',
_check.checkhead_recip_id;
END IF;
END IF;
_ccdnumber := CASE WHEN _check.vend_ach_use_vendinfo THEN _check.vend_number
ELSE _check.vend_ach_indiv_number
END;
_ccdname := CASE WHEN _check.vend_ach_use_vendinfo THEN _check.vend_name
ELSE _check.vend_ach_indiv_name
END;
IF (COALESCE(_check.vend_ach_routingnumber, '') = '') THEN
RAISE EXCEPTION 'Cannot write % check % to an ACH file because the routing number for % has not been supplied.',
_bank.bankaccnt_name, _check.checkhead_number, _ccdnumber;
ELSIF (COALESCE(_check.vend_ach_accntnumber, '') = '') THEN
RAISE EXCEPTION 'Cannot write % check % to an ACH file because the account number for % has not been supplied.',
_bank.bankaccnt_name, _check.checkhead_number, _ccdnumber;
END IF;
_check.vend_ach_routingnumber := decrypt(setbytea(_check.vend_ach_routingnumber),
setbytea(penckey), 'bf');
_check.vend_ach_accntnumber := decrypt(setbytea(_check.vend_ach_accntnumber),
setbytea(penckey), 'bf');
_transactionprefix := CASE WHEN (_check.vend_ach_accnttype = 'K') THEN '2'
WHEN (_check.vend_ach_accnttype = 'C') THEN '3'
END;
-- create separate batches for each check date and for PPD vs CCD
IF (COALESCE(_batchdate, startOfTime()) != _check.checkhead_checkdate
OR (_prevsec != _sec)) THEN
IF (_batchcount > 0) THEN
_rowcount := _rowcount + 1;
_row.achline_checkhead_id := NULL;
_row.achline_batch := _filenum;
_row.achline_type := 'BATCHCONTROL';
-- keep in sync with the other batchcontrol record format below
_row.achline_value := RPAD('8'
|| _serviceclass
|| RPAD(TO_CHAR(_entrycount, '000000SG'), 6)
|| RPAD(TO_CHAR(_batchhash % 10000000000,
'0000000000SG'), 10)
|| RPAD(TO_CHAR(_batchdb, '0000000000V99SG'), 12)
|| RPAD(TO_CHAR(_batchcr, '0000000000V99SG'), 12)
|| RPAD(formatAchCompanyId(), 10)
|| RPAD(' ', 19)
|| RPAD(' ', 6)
|| RPAD(_bank.bankaccnt_routing, 8)
|| RPAD(TO_CHAR(_batchcount, '0000000SG'), 7),
94);
RETURN NEXT _row;
END IF;
_batchhash := 0;
_batchcr := 0;
_batchdb := 0;
_batchdate := _check.checkhead_checkdate;
_entrycount := 0;
_rowcount := _rowcount + 1;
_batchcount := _batchcount + 1;
_row.achline_checkhead_id := NULL;
_row.achline_batch := _filenum;
_row.achline_type := 'BATCHHEADER';
-- effective entry date = 1 or 2 banking days after the banking day
-- of processing (the following accounts for weekends but not holidays)
_row.achline_value := RPAD('5'
|| _serviceclass
|| RPAD(fetchMetricText('ACHCompanyName'), 16)
|| RPAD('', 20) -- TODO: find a use
|| RPAD(formatAchCompanyId(), 10)
|| _sec
|| RPAD('xTuple ERP', 10)
|| TO_CHAR(_check.checkhead_checkdate, 'YYMMDD')
|| TO_CHAR(CURRENT_DATE +
COALESCE(_bank.bankaccnt_ach_leadtime,1) +
CASE WHEN EXTRACT(DOW FROM CURRENT_DATE) = 5 THEN 2
WHEN EXTRACT(DOW FROM CURRENT_DATE) = 6 THEN 1
ELSE 0 END,
'YYMMDD')
|| RPAD('', 3)
|| '1'
|| RPAD(_bank.bankaccnt_routing, 8)
|| RPAD(TO_CHAR(_batchcount, '0000000SG'), 7),
94);
RETURN NEXT _row;
END IF;
_row.achline_checkhead_id := _check.checkhead_id;
_row.achline_batch := _filenum;
_row.achline_type := _sec;
IF (_sec = 'CCD' OR _sec = 'PPD') THEN
_rowcount := _rowcount + 1;
_entrycount := _entrycount + 1;
_totalentrycnt := _totalentrycnt + 1;
_batchhash := _batchhash + CAST(SUBSTRING(_bank.bankaccnt_routing FOR 8) AS INTEGER);
_totalhash := _totalhash + CAST(SUBSTRING(_bank.bankaccnt_routing FOR 8) AS INTEGER);
_batchdb := _batchdb + _check.checkhead_amount;
_totaldb := _totaldb + _check.checkhead_amount;
_row.achline_value := RPAD('6'
|| _transactionprefix || '7' -- debit
|| RPAD(_bank.bankaccnt_routing, 9) -- 2 fields
|| RPAD(_bank.bankaccnt_accntnumber, 17)
|| RPAD(TO_CHAR(_check.checkhead_amount,
'00000000V99SG'), 10)
|| RPAD(fetchMetricText('ACHCompanyId'), 15)
|| RPAD(fetchMetricText('ACHCompanyName'), 22)
|| RPAD(TO_CHAR(_check.checkhead_id % 100, '00SG'),
2) -- last 2 digits of checkhead_id
|| '0'
|| RPAD(_bank.bankaccnt_routing, 9) -- split field
|| RPAD(TO_CHAR(_entrycount, '000000SG'), 15-9),
94);
RETURN NEXT _row;
_rowcount := _rowcount + 1;
_entrycount := _entrycount + 1;
_totalentrycnt := _totalentrycnt + 1;
_batchhash := _batchhash + CAST(SUBSTRING(formatbytea(_check.vend_ach_routingnumber) FOR 8) AS INTEGER);
_totalhash := _totalhash + CAST(SUBSTRING(formatbytea(_check.vend_ach_routingnumber) FOR 8) AS INTEGER);
_totalcr := _totalcr + _check.checkhead_amount;
_batchcr := _batchcr + _check.checkhead_amount;
_row.achline_value := RPAD('6'
|| _transactionprefix || '2' -- credit
|| RPAD(formatbytea(_check.vend_ach_routingnumber), 9) -- 2 fields
|| RPAD(formatbytea(_check.vend_ach_accntnumber), 17)
|| RPAD(TO_CHAR(_check.checkhead_amount,
'00000000V99SG'), 10)
|| RPAD(_ccdnumber, 15)
|| RPAD(_ccdname, 22)
|| RPAD(TO_CHAR(_check.checkhead_id % 100, '00SG'),
2) -- last 2 digits of checkhead_id
|| '0'
|| RPAD(_bank.bankaccnt_routing, 9) -- split field
|| RPAD(TO_CHAR(_entrycount, '000000SG'), 15-9),
94);
RETURN NEXT _row;
ELSE
RAISE EXCEPTION 'Cannot write % check % to an ACH file because % is not a supported SEC code.',
_bank.bankaccnt_name, _check.checkhead_number, _sec;
END IF;
UPDATE checkhead
SET checkhead_ach_batch=_filenum,
checkhead_number=_check.checkhead_number
WHERE (checkhead_id=_check.checkhead_id);
END LOOP;
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot write an ACH file for % because there are no checks pending in USD for ACH-enabled Vendors.',
_bank.bankaccnt_name;
END IF;
-- place a final batch control record
IF (_batchcount > 0) THEN
_rowcount := _rowcount + 1;
_row.achline_checkhead_id := NULL;
_row.achline_batch := _filenum;
_row.achline_type := 'BATCHCONTROL';
-- keep in sync with the other batchcontrol record format above
_row.achline_value := RPAD('8'
|| _serviceclass
|| RPAD(TO_CHAR(_entrycount, '000000SG'), 6)
|| RPAD(TO_CHAR(_batchhash % 10000000000,
'0000000000SG'), 10)
|| RPAD(TO_CHAR(_batchdb, '0000000000V99SG'), 12)
|| RPAD(TO_CHAR(_batchcr, '0000000000V99SG'), 12)
|| RPAD(formatAchCompanyId(), 10)
|| RPAD(' ', 19)
|| RPAD(' ', 6)
|| RPAD(_bank.bankaccnt_routing, 8)
|| RPAD(TO_CHAR(_batchcount, '0000000SG'), 7),
94);
RETURN NEXT _row;
END IF;
-- and end with a file control record
_rowcount := _rowcount + 1;
_row.achline_checkhead_id := NULL;
_row.achline_batch := _filenum;
_row.achline_type := 'FILECONTROL';
_row.achline_value := RPAD('9'
|| RPAD(TO_CHAR(_batchcount, '000000SG'), 6)
|| RPAD(TO_CHAR(_rowcount, '000000SG'), 6)
|| RPAD(TO_CHAR(_totalentrycnt, '00000000SG'), 8)
|| RPAD(TO_CHAR(_totalhash % 10000000000,
'0000000000SG'), 10)
|| RPAD(TO_CHAR(_totaldb, '0000000000V99SG'), 12)
|| RPAD(TO_CHAR(_totalcr, '0000000000V99SG'), 12)
|| RPAD('', 39),
94);
RETURN NEXT _row;
-- file must be a multiple of 10 lines long
_row.achline_checkhead_id := NULL;
_row.achline_batch := _filenum;
_row.achline_type := 'BLOCKFILL';
WHILE (_rowcount % 10 > 0) LOOP
_rowcount := _rowcount + 1;
_row.achline_value := RPAD('99999999999999999999'
|| '99999999999999999999'
|| '99999999999999999999'
|| '99999999999999999999'
|| '99999999999999999999', 94);
RETURN NEXT _row;
END LOOP;
UPDATE bankaccnt
SET bankaccnt_ach_lastdate=CURRENT_DATE,
bankaccnt_ach_lastfileid=_bank.bankaccnt_ach_lastfileid
WHERE (bankaccnt_id=_bank.bankaccnt_id);
RETURN;
END;
$_$;
ALTER FUNCTION public.formatachchecks(integer, integer, text) OWNER TO admin;
--
-- Name: formatachcompanyid(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatachcompanyid() RETURNS text
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN CASE WHEN fetchMetricText('ACHCompanyIdType') = 'D' THEN '3'
WHEN fetchMetricText('ACHCompanyIdType') = 'E' THEN '1'
WHEN fetchMetricText('ACHCompanyIdType') = 'O' THEN '9'
END ||
CASE WHEN fetchMetricText('ACHCompanyIdType') = 'D' OR
fetchMetricText('ACHCompanyIdType') = 'E' THEN
REPLACE(fetchMetricText('ACHCompanyId'), '-', '')
ELSE fetchMetricText('ACHCompanyId')
END;
END;
$$;
ALTER FUNCTION public.formatachcompanyid() OWNER TO admin;
--
-- Name: formataddr(text, text, text, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formataddr(text, text, text, text, integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
f_addr1 ALIAS FOR $1;
f_addr2 ALIAS FOR $2;
f_addr3 ALIAS FOR $3;
csz ALIAS FOR $4;
line ALIAS FOR $5;
BEGIN
RETURN formatAddr(f_addr1, f_addr2, f_addr3, csz, '', line);
END;
$_$;
ALTER FUNCTION public.formataddr(text, text, text, text, integer) OWNER TO admin;
--
-- Name: formataddr(text, text, text, text, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formataddr(text, text, text, text, text, integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
f_addr1 ALIAS FOR $1;
f_addr2 ALIAS FOR $2;
f_addr3 ALIAS FOR $3;
csz ALIAS FOR $4;
country ALIAS FOR $5;
line ALIAS FOR $6;
i int:=0;
BEGIN
IF (LENGTH(TRIM(both from f_addr1)) > 0) THEN
i:=i+1;
END IF;
IF (i=line) THEN
RETURN f_addr1;
END IF;
IF (LENGTH(TRIM(both from f_addr2)) > 0) THEN
i:=i+1;
END IF;
IF (i=line) THEN
RETURN f_addr2;
END IF;
IF (LENGTH(TRIM(both from f_addr3)) > 0) THEN
i:=i+1;
END IF;
IF (i=line) THEN
RETURN f_addr3;
END IF;
IF (LENGTH(TRIM(both from csz)) > 0) THEN
i:=i+1;
END IF;
IF (i=line) THEN
RETURN csz;
END IF;
IF (LENGTH(TRIM(both from country)) > 0) THEN
i:=i+1;
END IF;
IF (i=line) THEN
RETURN country;
END IF;
RETURN ' ';
END;
$_$;
ALTER FUNCTION public.formataddr(text, text, text, text, text, integer) OWNER TO admin;
--
-- Name: formataddr(text, text, text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formataddr(text, text, text, text, text) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
f_addr1 ALIAS FOR $1;
f_addr2 ALIAS FOR $2;
f_addr3 ALIAS FOR $3;
csz ALIAS FOR $4;
country ALIAS FOR $5;
addr TEXT:='';
BEGIN
IF (LENGTH(TRIM(both from f_addr1)) > 0) THEN
addr:=f_addr1;
END IF;
IF (LENGTH(TRIM(both from f_addr2)) > 0) THEN
IF (LENGTH(TRIM(both from addr)) > 0) THEN
addr:=addr || E'\n';
END IF;
addr:=addr || f_addr2;
END IF;
IF (LENGTH(TRIM(both from f_addr3)) > 0) THEN
IF (LENGTH(TRIM(both from addr)) > 0) THEN
addr:=addr || E'\n';
END IF;
addr:=addr || f_addr3;
END IF;
IF (LENGTH(TRIM(both from csz)) > 0) THEN
IF (LENGTH(TRIM(both from addr)) > 0) THEN
addr:=addr || E'\n';
END IF;
addr:=addr || csz;
END IF;
IF (LENGTH(TRIM(both from country)) > 0) THEN
IF (LENGTH(TRIM(both from addr)) > 0) THEN
addr:=addr || E'\n';
END IF;
addr:=addr || country;
END IF;
RETURN addr;
END;
$_$;
ALTER FUNCTION public.formataddr(text, text, text, text, text) OWNER TO admin;
--
-- Name: formataddr(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formataddr(integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAddrId ALIAS FOR $1;
_return TEXT;
BEGIN
-- US conventions
SELECT formatAddr(addr_line1, addr_line2, addr_line3,
addr_city || ', ' || addr_state || ' ' || addr_postalcode,
addr_country) INTO _return
FROM addr
WHERE (addr_id=pAddrId);
RETURN _return;
END;
$_$;
ALTER FUNCTION public.formataddr(integer) OWNER TO admin;
--
-- Name: formatboolyn(boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatboolyn(boolean) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE pBool ALIAS FOR $1;
BEGIN
IF (pBool) THEN
RETURN 'Yes';
ELSE
RETURN 'No';
END IF;
END;
$_$;
ALTER FUNCTION public.formatboolyn(boolean) OWNER TO admin;
--
-- Name: formatbooseq(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatbooseq(integer, integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pBooitemSeqId ALIAS FOR $2;
_result TEXT;
BEGIN
IF (fetchMetricBool('Routings')) THEN
SELECT booitem_seqnumber::text INTO _result
FROM xtmfg.booitem(pItemid)
WHERE (booitem_seq_id=pBooitemSeqId);
RETURN _result;
ELSE
RETURN NULL;
END IF;
END;
$_$;
ALTER FUNCTION public.formatbooseq(integer, integer) OWNER TO admin;
--
-- Name: formatbytea(bytea); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatbytea(bytea) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pField ALIAS FOR $1;
output_field TEXT;
BEGIN
output_field := pField;
RETURN output_field;
END;
$_$;
ALTER FUNCTION public.formatbytea(bytea) OWNER TO admin;
--
-- Name: formatccdashes(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatccdashes(text, text) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCCard ALIAS FOR $1;
pCCardType ALIAS FOR $2;
_returnCard text;
card_length integer;
BEGIN
IF (pCCardType = 'A') THEN
_returnCard := pCCard;
RETURN _returnCard;
END IF;
card_length := length(pCcard);
if (card_length = 16) THEN
_returnCard := substr(pCCard, 1, 4) || '-' || substr(pCCard, 5, 4) || '-' || substr(pCCard, 9, 4) || '-' || substr(pCCard, 13, 4);
ELSE
_returnCard := substr(pCCard, 1, 4) || '-' || substr(pCCard, 5, 4) || '-' || substr(pCCard, 9, 4) || '-' || substr(pCCard, 13, 1);
END IF;
RETURN _returnCard;
END;
$_$;
ALTER FUNCTION public.formatccdashes(text, text) OWNER TO admin;
--
-- Name: formatccnumber(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatccnumber(text) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCcardnum ALIAS FOR $1;
card_length INTEGER;
output_cardnum TEXT;
BEGIN
card_length := length(pCcardnum);
IF (card_length = 13) THEN
output_cardnum := '*********' || substr(pCcardnum, 10, 4);
END IF;
IF (card_length = 14) THEN
output_cardnum := '**********' || substr(pCcardnum, 11, 4);
END IF;
IF (card_length = 15) THEN
output_cardnum := '***********' || substr(pCcardnum, 12, 4);
END IF;
IF (card_length = 16) THEN
output_cardnum := '************' || substr(pCcardnum, 13, 4);
END IF;
RETURN output_cardnum;
END;
$_$;
ALTER FUNCTION public.formatccnumber(text) OWNER TO admin;
--
-- Name: formatccnumber(bytea); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatccnumber(bytea) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCcardnum ALIAS FOR $1;
card_length INTEGER;
output_cardnum TEXT;
BEGIN
card_length := length(pCcardnum);
IF (card_length = 13) THEN
output_cardnum := '*********' || substr(pCcardnum, 10, 4);
END IF;
IF (card_length = 14) THEN
output_cardnum := '**********' || substr(pCcardnum, 11, 4);
END IF;
IF (card_length = 15) THEN
output_cardnum := '***********' || substr(pCcardnum, 12, 4);
END IF;
IF (card_length = 16) THEN
output_cardnum := '************' || substr(pCcardnum, 13, 4);
END IF;
RETURN output_cardnum;
END;
$_$;
ALTER FUNCTION public.formatccnumber(bytea) OWNER TO admin;
--
-- Name: formatcntctname(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatcntctname(integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCntctId ALIAS FOR $1;
_r RECORD;
_rows NUMERIC;
BEGIN
SELECT cntct_honorific, cntct_first_name, cntct_middle,
cntct_last_name, cntct_suffix INTO _r
FROM cntct
WHERE (cntct_id=pCntctId);
GET DIAGNOSTICS _rows = ROW_COUNT;
IF (_rows = 0) THEN
RETURN '';
END IF;
RETURN formatCntctName(_r.cntct_honorific, _r.cntct_first_name, _r.cntct_middle, _r.cntct_last_name, _r.cntct_suffix);
END;
$_$;
ALTER FUNCTION public.formatcntctname(integer) OWNER TO admin;
--
-- Name: formatcntctname(text, text, text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatcntctname(text, text, text, text, text) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pHonorific ALIAS FOR $1;
pFirstName ALIAS FOR $2;
pMiddle ALIAS FOR $3;
pLastName ALIAS FOR $4;
pSuffix ALIAS FOR $5;
_name TEXT := '';
BEGIN
IF (LENGTH(TRIM(both from COALESCE(pHonorific,''))) > 0) THEN
IF (POSITION('.' IN COALESCE(pHonorific, '')) > 0) THEN
_name:= pHonorific;
ELSE
_name:= pHonorific || '.';
END IF;
END IF;
IF (LENGTH(TRIM(both from COALESCE(pFirstName,''))) > 0) THEN
IF (LENGTH(TRIM(both from _name)) > 0) THEN
_name:=_name || ' ';
END IF;
_name:=_name || pFirstName;
END IF;
IF (LENGTH(TRIM(both from COALESCE(pMiddle,''))) > 0) THEN
IF (LENGTH(TRIM(both from _name)) > 0) THEN
_name:=_name || ' ';
END IF;
IF (POSITION('.' IN COALESCE(pHonorific, '')) > 0) THEN
_name:=_name || pMiddle;
ELSE
_name:=_name || pMiddle || '.';
END IF;
END IF;
IF (LENGTH(TRIM(both from COALESCE(pLastName,''))) > 0) THEN
IF (LENGTH(TRIM(both from _name)) > 0) THEN
_name:=_name || ' ';
END IF;
_name:=_name || pLastName;
END IF;
IF (LENGTH(TRIM(both from COALESCE(pSuffix,''))) > 0) THEN
IF (LENGTH(TRIM(both from _name)) > 0) THEN
_name:=_name || ' ';
END IF;
_name:=_name || pSuffix;
END IF;
RETURN _name;
END;
$_$;
ALTER FUNCTION public.formatcntctname(text, text, text, text, text) OWNER TO admin;
--
-- Name: formatcost(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatcost(numeric) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN formatNumeric($1, 'cost');
END;$_$;
ALTER FUNCTION public.formatcost(numeric) OWNER TO admin;
--
-- Name: formatcounttagbarcode(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatcounttagbarcode(integer) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCnttagid ALIAS FOR $1;
_barcode TEXT;
BEGIN
SELECT ( E'\138CTXX' ||
LTRIM(TO_CHAR(LENGTH(invcnt_tagnumber), '00')) || invcnt_tagnumber ) INTO _barcode
FROM invcnt
WHERE (invcnt_id=pCnttagid);
RETURN _barcode;
END;
$_$;
ALTER FUNCTION public.formatcounttagbarcode(integer) OWNER TO admin;
--
-- Name: formatcreditmemonumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatcreditmemonumber(integer) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCmheadid ALIAS FOR $1;
BEGIN
RETURN ( SELECT COALESCE(cmhead_number::TEXT, '')
FROM cmhead
WHERE (cmhead_id=pCmheadid) );
END;
$_$;
ALTER FUNCTION public.formatcreditmemonumber(integer) OWNER TO admin;
--
-- Name: formatdate(date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatdate(date) RETURNS text
LANGUAGE sql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT TO_CHAR($1, COALESCE((SELECT locale_dateformat
FROM locale, usr
WHERE ((usr_locale_id=locale_id)
AND (usr_username=getEffectiveXtUser())) ),
'yyyy-mm-dd') ) AS result
$_$;
ALTER FUNCTION public.formatdate(date) OWNER TO admin;
--
-- Name: formatdate(date, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatdate(date, text) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pDate ALIAS FOR $1;
pString ALIAS FOR $2;
BEGIN
IF ( (pDate = startOfTime()) OR
(pDate = endOfTime()) OR
(pDate IS NULL) ) THEN
RETURN pString;
ELSE
RETURN formatDate(pDate);
END IF;
END;
$_$;
ALTER FUNCTION public.formatdate(date, text) OWNER TO admin;
--
-- Name: formatdate(timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatdate(timestamp with time zone) RETURNS text
LANGUAGE sql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT TO_CHAR($1, COALESCE((SELECT locale_dateformat
FROM locale, usr
WHERE ((usr_locale_id=locale_id)
AND (usr_username=getEffectiveXtUser())) ),
'yyyy-mm-dd' )) AS result
$_$;
ALTER FUNCTION public.formatdate(timestamp with time zone) OWNER TO admin;
--
-- Name: formatdatetime(timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatdatetime(timestamp with time zone) RETURNS text
LANGUAGE sql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT TO_CHAR($1, COALESCE((SELECT locale_timestampformat
FROM locale, usr
WHERE ((usr_locale_id=locale_id)
AND (usr_username=getEffectiveXtUser())) ),
'yyyy-mm-dd HH24:MI:SS')) AS result
$_$;
ALTER FUNCTION public.formatdatetime(timestamp with time zone) OWNER TO admin;
--
-- Name: formatdatetime(timestamp without time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatdatetime(timestamp without time zone) RETURNS text
LANGUAGE sql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT TO_CHAR($1, COALESCE((SELECT locale_timestampformat
FROM locale, usr
WHERE ((usr_locale_id=locale_id)
AND (usr_username=getEffectiveXtUser())) ),
'yyyy-mm-dd HH24:MI:SS')) AS result
$_$;
ALTER FUNCTION public.formatdatetime(timestamp without time zone) OWNER TO admin;
--
-- Name: formatextprice(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatextprice(numeric) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN formatNumeric($1, 'extprice');
END;$_$;
ALTER FUNCTION public.formatextprice(numeric) OWNER TO admin;
--
-- Name: formatflitemdescrip(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatflitemdescrip(integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFlitemId ALIAS FOR $1;
_x RECORD;
_descrip TEXT;
BEGIN
SELECT flitem_accnt_id, flitem_company, flitem_profit, flitem_number,
flitem_sub, flitem_type, flitem_subaccnttype_code,
accnt_id, accnt_descrip INTO _x
FROM flitem LEFT OUTER JOIN accnt
ON flitem_accnt_id=accnt_id
WHERE flitem_id=pFlitemId;
IF _x.flitem_accnt_id > -1 THEN
SELECT (formatGLAccount(_x.accnt_id) || '-' || _x.accnt_descrip) INTO _descrip;
ELSE
_descrip:='';
IF _x.flitem_type = 'A' THEN
_descrip:='Type=' || 'Asset';
ELSE IF _x.flitem_type='L' THEN
_descrip:='Type=' || 'Liability';
ELSE IF _x.flitem_type='R' THEN
_descrip:='Type=' || 'Revenue';
ELSE IF _x.flitem_type='E' THEN
_descrip:='Type=' || 'Expense';
ELSE IF _x.flitem_type='Q' THEN
_descrip:='Type=' || 'Equity';
END IF;
END IF;
END IF;
END IF;
END IF;
IF _x.flitem_subaccnttype_code <> 'All' THEN
IF (LENGTH(TRIM(both from _descrip)) > 0) THEN
_descrip:=_descrip || ', ';
END IF;
_descrip:=_descrip || 'Sub Accnt Type=' || _x.flitem_subaccnttype_code;
END IF;
IF _x.flitem_company <> 'All' THEN
IF (LENGTH(TRIM(both from _descrip)) > 0) THEN
_descrip:=_descrip || ', ';
END IF;
_descrip:=_descrip || 'Company=' || _x.flitem_company;
END IF;
IF _x.flitem_profit <> 'All' THEN
IF (LENGTH(TRIM(both from _descrip)) > 0) THEN
_descrip:=_descrip || ', ';
END IF;
_descrip:=_descrip || 'Profit=' || _x.flitem_profit;
END IF;
IF _x.flitem_number <> 'All' THEN
IF (LENGTH(TRIM(both from _descrip)) > 0) THEN
_descrip:=_descrip || ', ';
END IF;
_descrip:=_descrip || 'Number=' || _x.flitem_number;
END IF;
IF _x.flitem_sub <> 'All' THEN
IF (LENGTH(TRIM(both from _descrip)) > 0) THEN
_descrip:=_descrip || ', ';
END IF;
_descrip:=_descrip || 'Sub Accnt=' || _x.flitem_sub;
END IF;
END IF;
RETURN _descrip;
END;
$_$;
ALTER FUNCTION public.formatflitemdescrip(integer) OWNER TO admin;
--
-- Name: formatglaccount(text, text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatglaccount(text, text, text, text) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCompany ALIAS FOR $1;
pProfit ALIAS FOR $2;
pNumber ALIAS FOR $3;
pSub ALIAS FOR $4;
_number TEXT := '';
BEGIN
IF ( ( SELECT metric_value::INTEGER
FROM metric
WHERE (metric_name='GLCompanySize') ) > 0 ) THEN
_number := pCompany || '-';
END IF;
IF ( ( SELECT metric_value::INTEGER
FROM metric
WHERE (metric_name='GLProfitSize') ) > 0 ) THEN
_number := _number || pProfit || '-';
END IF;
_number := _number || pNumber;
IF ( ( SELECT metric_value::INTEGER
FROM metric
WHERE (metric_name='GLSubaccountSize') ) > 0 ) THEN
_number := _number || '-' || pSub;
END IF;
RETURN _number;
END;
$_$;
ALTER FUNCTION public.formatglaccount(text, text, text, text) OWNER TO admin;
--
-- Name: formatglaccountlong(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatglaccountlong(integer) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAccntid ALIAS FOR $1;
_result TEXT;
BEGIN
SELECT (formatGLAccount(accnt_id) || '-' || accnt_descrip) INTO _result
FROM accnt
WHERE (accnt_id=pAccntid);
RETURN _result;
END;
$_$;
ALTER FUNCTION public.formatglaccountlong(integer) OWNER TO admin;
--
-- Name: formatindent(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatindent(text, integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pText ALIAS FOR $1;
pIndent ALIAS FOR $2;
_i INTEGER;
_result TEXT;
BEGIN
_result := '';
_i := 0;
WHILE _i < pIndent LOOP
_result := _result || ' ';
_i := _i + 1;
END LOOP;
_result := _result || pText;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.formatindent(text, integer) OWNER TO admin;
--
-- Name: formatinterval(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatinterval(numeric) RETURNS text
LANGUAGE sql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT TO_CHAR(('@ ' || trunc($1) || ' min ' ||
($1 - trunc($1)) * 60 || ' sec')::INTERVAL,
( SELECT locale_intervalformat
FROM locale, usr
WHERE ((usr_locale_id=locale_id)
AND (usr_username=getEffectiveXtUser())) ) ) AS result
$_$;
ALTER FUNCTION public.formatinterval(numeric) OWNER TO admin;
--
-- Name: formatinterval(interval); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatinterval(interval) RETURNS text
LANGUAGE sql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT TO_CHAR($1, ( SELECT locale_intervalformat
FROM locale, usr
WHERE ((usr_locale_id=locale_id)
AND (usr_username=getEffectiveXtUser())) ) ) AS result
$_$;
ALTER FUNCTION public.formatinterval(interval) OWNER TO admin;
--
-- Name: formatinvcnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatinvcnumber(integer) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCobmiscid ALIAS FOR $1;
BEGIN
RETURN ( SELECT COALESCE(cobmisc_invcnumber::TEXT, '')
FROM cobmisc
WHERE (cobmisc_id=pCobmiscid) );
END;
$_$;
ALTER FUNCTION public.formatinvcnumber(integer) OWNER TO admin;
--
-- Name: formatitemsitebarcode(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatitemsitebarcode(integer) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
_barcode TEXT;
BEGIN
SELECT ( E'\138ISXX' ||
LTRIM(TO_CHAR(LENGTH(item_number), '00')) || LENGTH(warehous_code)::TEXT ||
item_number || warehous_code ) INTO _barcode
FROM itemsite, item, whsinfo
WHERE ( (itemsite_item_id=item_id)
AND (itemsite_warehous_id=warehous_id)
AND (itemsite_id=pItemsiteid) );
RETURN _barcode;
END;
$_$;
ALTER FUNCTION public.formatitemsitebarcode(integer) OWNER TO admin;
--
-- Name: formatlocationbarcode(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatlocationbarcode(integer) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pLocationid ALIAS FOR $1;
_barcode TEXT;
BEGIN
SELECT ( E'\138LOXX' ||
LENGTH(warehous_code)::TEXT || LTRIM(TO_CHAR(LENGTH(location_name::TEXT), '00')) ||
warehous_code || location_name ) INTO _barcode
FROM location, whsinfo
WHERE ( (location_warehous_id=warehous_id)
AND (location_id=pLocationid) );
RETURN _barcode;
END;
$_$;
ALTER FUNCTION public.formatlocationbarcode(integer) OWNER TO admin;
--
-- Name: formatlocationcontentsbarcode(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatlocationcontentsbarcode(integer) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pLocationid ALIAS FOR $1;
_barcode TEXT;
BEGIN
SELECT ( E'\138LOCN' ||
LENGTH(warehous_code)::TEXT || LTRIM(TO_CHAR(LENGTH(location_name), '00')) ||
warehous_code || location_name ) INTO _barcode
FROM location, whsinfo
WHERE ( (location_warehous_id=warehous_id)
AND (location_id=pLocationid) );
RETURN _barcode;
END;
$_$;
ALTER FUNCTION public.formatlocationcontentsbarcode(integer) OWNER TO admin;
--
-- Name: formatlocationissuebarcode(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatlocationissuebarcode(integer) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pLocationid ALIAS FOR $1;
_barcode TEXT;
BEGIN
SELECT ( E'\138LOIS' ||
LENGTH(warehous_code)::TEXT || LTRIM(TO_CHAR(LENGTH(location_name), '00')) ||
warehous_code || location_name ) INTO _barcode
FROM location, whsinfo
WHERE ( (location_warehous_id=warehous_id)
AND (location_id=pLocationid) );
RETURN _barcode;
END;
$_$;
ALTER FUNCTION public.formatlocationissuebarcode(integer) OWNER TO admin;
--
-- Name: formatlotserialnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatlotserialnumber(integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pLotSerialId ALIAS FOR $1;
_lotserial TEXT;
BEGIN
--See if lot serial control turned on (Postbooks will not ever have this)
IF (fetchmetricbool('LotSerialControl')) THEN
SELECT ls_number INTO _lotserial
FROM ls
WHERE (ls_id=pLotSerialId);
END IF;
RETURN COALESCE(_lotserial,'');
END;
$_$;
ALTER FUNCTION public.formatlotserialnumber(integer) OWNER TO admin;
--
-- Name: formatmoney(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatmoney(numeric) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN formatNumeric($1, 'curr');
END;$_$;
ALTER FUNCTION public.formatmoney(numeric) OWNER TO admin;
--
-- Name: formatnumeric(numeric, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatnumeric(numeric, text) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_value NUMERIC := $1;
_type TEXT := LOWER(COALESCE($2, 'curr'));
_abs NUMERIC;
_magnitudecnt NUMERIC(1000);
_wholefmt TEXT := '0';
_scale INTEGER;
_neg TEXT;
_decimal TEXT;
_group TEXT;
_string TEXT;
_debug BOOL := false;
_r RECORD;
BEGIN
-- If the value passed in is NULL then we want to pass back an empty string
IF(_value IS NULL) THEN
RETURN '';
END IF;
SELECT * INTO _r
FROM locale
WHERE (locale_id=getUsrLocaleId());
_decimal := COALESCE(SUBSTRING(_r.locale_qtyformat FROM 1 FOR 1), '.');
_neg := COALESCE(SUBSTRING(_r.locale_qtyformat FROM 2 FOR 1), '-');
_group := COALESCE(SUBSTRING(_r.locale_qtyformat FROM 3 FOR 1), ',');
_scale := CASE WHEN _type = 'cost' THEN _r.locale_cost_scale
WHEN _type = 'extprice' THEN _r.locale_extprice_scale
WHEN _type = 'percent' THEN _r.locale_percent_scale
WHEN _type = 'purchprice' THEN _r.locale_purchprice_scale
WHEN _type = 'qty' THEN _r.locale_qty_scale
WHEN _type = 'qtyper' THEN _r.locale_qtyper_scale
WHEN _type = 'salesprice' THEN _r.locale_salesprice_scale
WHEN _type = 'uomratio' THEN _r.locale_uomratio_scale
WHEN _type = 'weight' THEN _r.locale_weight_scale
WHEN SUBSTRING(_type FOR 4) = 'curr' THEN _r.locale_curr_scale
ELSE 2
END;
_value := round(_value, _scale);
_abs := ABS(_value);
_magnitudecnt := TRUNC(_abs / 10);
IF (_debug) THEN
RAISE NOTICE '_value % _abs % _scale % _neg % _decimal % _group % ',
_value, _abs, _scale, _decimal, _group, _scale;
END IF;
IF (_value < 0) THEN
_string := _neg;
ELSE
_string := '';
END IF;
WHILE (_magnitudecnt >= 1) LOOP
_magnitudecnt := TRUNC(_magnitudecnt / 10);
IF (LENGTH(_wholefmt) % 3 = 0) THEN
_wholefmt := '"' || _group || '"' || _wholefmt;
END IF;
_wholefmt := '9' || _wholefmt;
END LOOP;
IF (_scale > 0) THEN
_abs := (_abs * (10 ^ _scale));
_abs := TRUNC(_abs);
_wholefmt := _wholefmt || '"' || _decimal || '"' || REPEAT('0', _scale);
END IF;
_wholefmt := 'FM' || _wholefmt;
_string := _string || to_char(_abs, _wholefmt);
RETURN _string;
END;$_$;
ALTER FUNCTION public.formatnumeric(numeric, text) OWNER TO admin;
--
-- Name: formatperiodname(integer, character); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatperiodname(integer, character) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPeriodId ALIAS FOR $1;
pInterval ALIAS FOR $2;
_result TEXT;
BEGIN
--...for Month
IF (pInterval='M') THEN
SELECT
(CASE
WHEN period_name='' THEN
formatdate(period_start) || '-' || formatdate(period_end)
ELSE period_name
END) INTO _result
FROM period
WHERE (period_id=pPeriodId);
RETURN _result;
--...for Quarter
ELSE IF (pInterval='Q') THEN
SELECT
('Q' || period_quarter || '-' || EXTRACT(year from yearperiod_end)) INTO _result
FROM period, yearperiod
WHERE ((period_id=pPeriodId)
AND (period_yearperiod_id=yearperiod_id));
RETURN _result;
--...for Year
ELSE
SELECT
EXTRACT(year FROM yearperiod_end) INTO _result
FROM period,yearperiod
WHERE ((period_id=pPeriodId)
AND (period_yearperiod_id=yearperiod_id));
RETURN _result;
END IF;
END IF;
RETURN 'Err';
END;
$_$;
ALTER FUNCTION public.formatperiodname(integer, character) OWNER TO admin;
--
-- Name: formatplonumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatplonumber(integer) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPlanordid ALIAS FOR $1;
_result TEXT;
BEGIN
SELECT (TEXT(planord_number) || '-' || TEXT(planord_subnumber)) INTO _result
FROM planord
WHERE (planord_id=pPlanordid);
RETURN _result;
END;
$_$;
ALTER FUNCTION public.formatplonumber(integer) OWNER TO admin;
--
-- Name: formatprcnt(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatprcnt(numeric) RETURNS text
LANGUAGE sql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT formatNumeric($1 * 100, 'percent') AS result
$_$;
ALTER FUNCTION public.formatprcnt(numeric) OWNER TO admin;
--
-- Name: formatprice(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatprice(numeric) RETURNS text
LANGUAGE sql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT formatNumeric($1, 'salesprice') AS result;
$_$;
ALTER FUNCTION public.formatprice(numeric) OWNER TO admin;
--
-- Name: formatpurchprice(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatpurchprice(numeric) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN formatNumeric($1, 'purchprice');
END;$_$;
ALTER FUNCTION public.formatpurchprice(numeric) OWNER TO admin;
--
-- Name: formatqty(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatqty(numeric) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN formatNumeric($1, 'qty');
END;$_$;
ALTER FUNCTION public.formatqty(numeric) OWNER TO admin;
--
-- Name: formatqtyper(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatqtyper(numeric) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN formatNumeric($1, 'qtyper');
END;$_$;
ALTER FUNCTION public.formatqtyper(numeric) OWNER TO admin;
--
-- Name: formatratio(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatratio(numeric) RETURNS text
LANGUAGE sql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT formatNumeric($1, 'uomratio');
$_$;
ALTER FUNCTION public.formatratio(numeric) OWNER TO admin;
--
-- Name: formatrevnumber(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatrevnumber(text, integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pRevType ALIAS FOR $1;
pRevId ALIAS FOR $2;
_revision TEXT;
BEGIN
--See if revision control turned on (Postbooks will not ever have this)
IF (fetchmetricbool('RevControl')) THEN
SELECT rev_number INTO _revision
FROM rev
WHERE ((rev_target_type=pRevType)
AND (rev_id=pRevId));
END IF;
RETURN COALESCE(_revision,'');
END;
$_$;
ALTER FUNCTION public.formatrevnumber(text, integer) OWNER TO admin;
--
-- Name: formatsalesprice(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatsalesprice(numeric) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN formatNumeric($1, 'salesprice');
END;$_$;
ALTER FUNCTION public.formatsalesprice(numeric) OWNER TO admin;
--
-- Name: formatscrap(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatscrap(numeric) RETURNS text
LANGUAGE sql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT formatNumeric(($1 * 100), 'percent') AS result
$_$;
ALTER FUNCTION public.formatscrap(numeric) OWNER TO admin;
--
-- Name: formatshipmentnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatshipmentnumber(integer) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pshipheadid ALIAS FOR $1;
BEGIN
RETURN ( SELECT COALESCE(shiphead_number::TEXT, '')
FROM shiphead
WHERE (shiphead_id=pshipheadid) );
END;
$_$;
ALTER FUNCTION public.formatshipmentnumber(integer) OWNER TO admin;
--
-- Name: formatsobarcode(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatsobarcode(integer) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoheadid ALIAS FOR $1;
_barcode TEXT;
BEGIN
SELECT ( E'\138SOXX' ||
LENGTH(TEXT(cohead_number)) || TEXT(cohead_number) ) INTO _barcode
FROM cohead
WHERE (cohead_id=pSoheadid);
RETURN _barcode;
END;
$_$;
ALTER FUNCTION public.formatsobarcode(integer) OWNER TO admin;
--
-- Name: formatsoitembarcode(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatsoitembarcode(integer) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoitemid ALIAS FOR $1;
_barcode TEXT;
BEGIN
SELECT ( E'\138SOLI' ||
LENGTH(TEXT(cohead_number)) || LENGTH(formatsolinenumber(coitem_id)) ||
TEXT(cohead_number) || formatsolinenumber(coitem_id) ) INTO _barcode
FROM cohead, coitem
WHERE ( (coitem_cohead_id=cohead_id)
AND (coitem_id=pSoitemid) );
RETURN _barcode;
END;
$_$;
ALTER FUNCTION public.formatsoitembarcode(integer) OWNER TO admin;
--
-- Name: formatsoitemnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatsoitemnumber(integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
targetSoitemid ALIAS FOR $1;
BEGIN
RETURN ( SELECT (cohead_number::TEXT || '-' || formatsolinenumber(coitem_id))
FROM cohead, coitem
WHERE ((coitem_cohead_id=cohead_id)
AND (coitem_id=targetSoitemid)) );
END;
$_$;
ALTER FUNCTION public.formatsoitemnumber(integer) OWNER TO admin;
--
-- Name: formatsonumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatsonumber(integer) RETURNS text
LANGUAGE sql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT COALESCE((SELECT (text(cohead_number) || '-' || formatSoLineNumber(coitem_id))
FROM coitem JOIN cohead ON (coitem_cohead_id=cohead_id)
WHERE (coitem_id=($1))),'DELETED');
$_$;
ALTER FUNCTION public.formatsonumber(integer) OWNER TO admin;
--
-- Name: formattime(timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formattime(timestamp with time zone) RETURNS text
LANGUAGE sql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT TO_CHAR($1, ( SELECT locale_timeformat
FROM locale, usr
WHERE ((usr_locale_id=locale_id)
AND (usr_username=getEffectiveXtUser())) ) ) AS result
$_$;
ALTER FUNCTION public.formattime(timestamp with time zone) OWNER TO admin;
--
-- Name: formattime(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formattime(numeric) RETURNS text
LANGUAGE sql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT LTRIM(TO_CHAR(COALESCE($1, 0), '999999990.0'));
$_$;
ALTER FUNCTION public.formattime(numeric) OWNER TO admin;
--
-- Name: formatuomratio(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatuomratio(numeric) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN formatNumeric($1, 'uomratio');
END;$_$;
ALTER FUNCTION public.formatuomratio(numeric) OWNER TO admin;
--
-- Name: formatuserbarcode(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatuserbarcode(integer) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUserid ALIAS FOR $1;
_barcode TEXT;
BEGIN
SELECT formatUserBarcode(usr_username) INTO _barcode
FROM usr
WHERE(usr_id=pUserid);
RETURN _barcode;
END;
$_$;
ALTER FUNCTION public.formatuserbarcode(integer) OWNER TO admin;
--
-- Name: formatuserbarcode(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatuserbarcode(text) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUsername ALIAS FOR $1;
_barcode TEXT;
BEGIN
_barcode := ( E'\138USER' || LENGTH(pUsername)::TEXT || pUsername );
RETURN _barcode;
END;
$_$;
ALTER FUNCTION public.formatuserbarcode(text) OWNER TO admin;
--
-- Name: formatweight(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatweight(numeric) RETURNS text
LANGUAGE sql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT formatNumeric($1, 'weight') AS result
$_$;
ALTER FUNCTION public.formatweight(numeric) OWNER TO admin;
--
-- Name: formatwobarcode(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatwobarcode(integer) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
_barcode TEXT;
BEGIN
SELECT ( E'\138WOXX' ||
LENGTH(wo_number::TEXT) || LENGTH(wo_subnumber::TEXT) ||
wo_number::TEXT || wo_subnumber::TEXT ) INTO _barcode
FROM wo
WHERE (wo_id=pWoid);
RETURN _barcode;
END;
$_$;
ALTER FUNCTION public.formatwobarcode(integer) OWNER TO admin;
--
-- Name: formatwonumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatwonumber(integer) RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
BEGIN
RETURN ( SELECT (wo_number::TEXT || '-' || wo_subnumber::TEXT)
FROM wo
WHERE (wo_id=pWoid) );
END;
$_$;
ALTER FUNCTION public.formatwonumber(integer) OWNER TO admin;
--
-- Name: formatwooperseq(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION formatwooperseq(integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWooperId ALIAS FOR $1;
_result TEXT;
BEGIN
IF pWooperId = -1 THEN
RETURN '';
ELSE
SELECT wooper_seqnumber INTO _result
FROM xtmfg.wooper
WHERE (wooper_id=pWooperId);
END IF;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.formatwooperseq(integer) OWNER TO admin;
--
-- Name: forwardupdateaccount(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION forwardupdateaccount(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAccntid ALIAS FOR $1;
_r RECORD;
_trialbalid INTEGER;
BEGIN
SELECT trialbal_id, trialbal_dirty,
CASE WHEN (trialbal_dirty) THEN 0
ELSE 1
END AS dirty_seq INTO _r
FROM trialbal, period
WHERE ((trialbal_period_id=period_id)
AND (trialbal_accnt_id=pAccntid))
ORDER BY dirty_seq, period_start
LIMIT 1;
IF (FOUND) THEN
IF (_r.trialbal_dirty) THEN
RETURN forwardUpdateTrialBalance(_r.trialbal_id);
ELSE
RETURN _r.trialbal_id;
END IF;
ELSE
_trialbalid := nextval('trialbal_trialbal_id_seq');
INSERT INTO trialbal
( trialbal_id,
trialbal_period_id, trialbal_accnt_id,
trialbal_beginning, trialbal_ending,
trialbal_debits, trialbal_credits, trialbal_dirty )
SELECT
_trialbalid,
period_id, pAccntid,
0, 0,
0, 0, FALSE
FROM period
ORDER BY period_start LIMIT 1;
RETURN forwardUpdateTrialBalance(_trialbalid);
END IF;
RETURN -1;
END;
$_$;
ALTER FUNCTION public.forwardupdateaccount(integer) OWNER TO admin;
--
-- Name: forwardupdateinvbalance(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION forwardupdateinvbalance(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pInvbalid ALIAS FOR $1;
_p RECORD;
_r RECORD;
_qohEnding NUMERIC;
_valueEnding NUMERIC;
_nnEnding NUMERIC;
_nnvalEnding NUMERIC;
BEGIN
SELECT invbal_itemsite_id,
invbal_qoh_ending,
invbal_value_ending,
invbal_nn_ending,
invbal_nnval_ending,
period_end INTO _p
FROM invbal
JOIN period ON (invbal_period_id=period_id)
JOIN itemsite ON (invbal_itemsite_id=itemsite_id)
WHERE (invbal_id=pInvbalid);
_qohEnding = _p.invbal_qoh_ending;
_valueEnding = _p.invbal_value_ending;
_nnEnding = _p.invbal_nn_ending;
_nnvalEnding = _p.invbal_nnval_ending;
-- Find all of the subsequent periods and their inventory balance, if they exist
FOR _r IN SELECT period_id, period_end,
invbal_id,
invbal_qty_in, invbal_qty_out,
invbal_value_in, invbal_value_out,
invbal_nn_in, invbal_nn_out,
invbal_nnval_in, invbal_nnval_out
FROM period
LEFT OUTER JOIN invbal
ON ( (invbal_period_id=period_id) AND (invbal_itemsite_id=_p.invbal_itemsite_id) )
WHERE (period_start > _p.period_end)
ORDER BY period_start LOOP
IF (_r.invbal_id IS NULL) THEN
INSERT INTO invbal
( invbal_period_id, invbal_itemsite_id,
invbal_qoh_beginning, invbal_qoh_ending,
invbal_qty_in, invbal_qty_out,
invbal_value_beginning, invbal_value_ending,
invbal_value_in, invbal_value_out,
invbal_nn_beginning, invbal_nn_ending,
invbal_nn_in, invbal_nn_out,
invbal_nnval_beginning, invbal_nnval_ending,
invbal_nnval_in, invbal_nnval_out,
invbal_dirty )
VALUES
( _r.period_id, _p.invbal_itemsite_id,
_qohEnding, _qohEnding,
0, 0,
_valueEnding, _valueEnding,
0, 0,
_nnEnding, _nnEnding,
0, 0,
_nnvalEnding, _nnvalEnding,
0, 0,
FALSE );
ELSE
UPDATE invbal
SET invbal_qoh_beginning = (_qohEnding),
invbal_qoh_ending = (_qohEnding + _r.invbal_qty_in - _r.invbal_qty_out),
invbal_value_beginning = (_valueEnding),
invbal_value_ending = (_valueEnding + _r.invbal_value_in - _r.invbal_value_out),
invbal_nn_beginning = (_nnEnding),
invbal_nn_ending = (_nnEnding + _r.invbal_nn_in - _r.invbal_nn_out),
invbal_nnval_beginning = (_nnvalEnding),
invbal_nnval_ending = (_nnvalEnding + _r.invbal_nnval_in - _r.invbal_nnval_out),
invbal_dirty = FALSE
WHERE (invbal_id=_r.invbal_id);
_qohEnding = (_qohEnding + _r.invbal_qty_in - _r.invbal_qty_out);
_valueEnding = (_valueEnding + _r.invbal_value_in - _r.invbal_value_out);
_nnEnding = (_nnEnding + _r.invbal_nn_in - _r.invbal_nn_out);
_nnvalEnding = (_nnvalEnding + _r.invbal_nnval_in - _r.invbal_nnval_out);
END IF;
END LOOP;
UPDATE invbal
SET invbal_dirty = false
WHERE (invbal_id=pInvbalid);
RETURN pInvbalid;
END;
$_$;
ALTER FUNCTION public.forwardupdateinvbalance(integer) OWNER TO admin;
--
-- Name: forwardupdateitemsite(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION forwardupdateitemsite(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteId ALIAS FOR $1;
_r RECORD;
_invbalid INTEGER;
BEGIN
SELECT invbal_id INTO _r
FROM invbal
JOIN period ON (invbal_period_id=period_id)
WHERE (invbal_itemsite_id=pItemsiteid)
ORDER BY period_start
LIMIT 1;
IF (FOUND) THEN
RETURN forwardUpdateInvbalance(_r.invbal_id);
ELSE
_invbalid := nextval('invbal_invbal_id_seq');
INSERT INTO invbal
( invbal_id,
invbal_period_id, invbal_itemsite_id,
invbal_qoh_beginning, invbal_qoh_ending,
invbal_qty_in, invbal_qty_out,
invbal_value_beginning, invbal_value_ending,
invbal_value_in, invbal_value_out,
invbal_nn_beginning, invbal_nn_ending,
invbal_nn_in, invbal_nn_out,
invbal_nnval_beginning, invbal_nnval_ending,
invbal_nnval_in, invbal_nnval_out,
invbal_dirty )
SELECT
_invbalid,
period_id, pItemsiteid,
0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0,
false
FROM period
ORDER BY period_start LIMIT 1;
RETURN forwardUpdateInvbalance(_invbalid);
END IF;
RETURN -1;
END;
$_$;
ALTER FUNCTION public.forwardupdateitemsite(integer) OWNER TO admin;
--
-- Name: forwardupdatetrialbalance(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION forwardupdatetrialbalance(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTrialbalid ALIAS FOR $1;
_p RECORD;
_r RECORD;
_ending NUMERIC;
_prevYear INTEGER;
_currYear INTEGER;
_prevYearClosed BOOLEAN;
_currYearClosed BOOLEAN;
_result INTEGER;
BEGIN
SELECT trialbal_accnt_id, trialbal_ending,
yearperiod_id, yearperiod_closed,
period_end, accnt_type IN ('E', 'R') AS revexp INTO _p
FROM trialbal, period, yearperiod, accnt
WHERE ( (trialbal_period_id=period_id)
AND (yearperiod_id=period_yearperiod_id)
AND (trialbal_accnt_id=accnt_id)
AND (trialbal_id=pTrialbalid) );
_ending = _p.trialbal_ending;
SELECT yearperiod_id, yearperiod_closed INTO _prevYear, _prevYearClosed
FROM yearperiod
WHERE (_p.period_end BETWEEN yearperiod_start AND yearperiod_end);
IF (NOT FOUND) THEN
_prevYear := -1;
_prevYearClosed := false;
END IF;
-- Find all of the subsequent periods and their trialbal, if they exist
FOR _r IN SELECT period_id, period_end,
trialbal_id, trialbal_debits, trialbal_credits,
trialbal_yearend
FROM period LEFT OUTER JOIN trialbal
ON ( (trialbal_period_id=period_id) AND (trialbal_accnt_id=_p.trialbal_accnt_id) )
WHERE (period_start > _p.period_end)
ORDER BY period_start LOOP
SELECT yearperiod_id, yearperiod_closed INTO _currYear, _currYearClosed
FROM yearperiod
WHERE (_r.period_end BETWEEN yearperiod_start AND yearperiod_end);
IF (NOT FOUND) THEN
_currYear := -1;
_currYearClosed := false;
END IF;
IF (_p.revexp AND _currYear != _prevYear) THEN
_ending := 0;
IF (_prevYearClosed) THEN
SELECT updateRetainedEarnings(_prevYear) INTO _result;
IF (_result < 0) THEN
RETURN _result;
END IF;
END IF;
END IF;
_prevYear := _currYear;
_prevYearClosed := _currYearClosed;
IF (_r.trialbal_id IS NULL) THEN
-- SELECT SUM(gltrans_amount) INTO _glAmount
-- FROM gltrans
-- WHERE ( (gltrans_date BETWEEN _r.period_start and _r.period_end )
-- AND (gltrans_accnt_id=_p.trialbal_accnt_id)
-- AND (gltrans_posted) );
-- and change 2nd and 3rd VALUES line of INSERT to read
-- _ending, _ending + _glAmount,
-- noneg(0 - _glAmount), noneg(_glAmount), FALSE );
INSERT INTO trialbal
( trialbal_period_id, trialbal_accnt_id,
trialbal_beginning, trialbal_ending,
trialbal_debits, trialbal_credits, trialbal_dirty )
VALUES
( _r.period_id, _p.trialbal_accnt_id,
_ending, _ending,
0, 0, FALSE );
ELSE
UPDATE trialbal
SET trialbal_beginning = (_ending + trialbal_yearend),
trialbal_ending = (_ending + trialbal_yearend - _r.trialbal_debits + _r.trialbal_credits),
trialbal_dirty = FALSE
WHERE (trialbal_id=_r.trialbal_id);
_ending = (_ending + _r.trialbal_yearend - _r.trialbal_debits + _r.trialbal_credits);
END IF;
END LOOP;
UPDATE trialbal
SET trialbal_dirty = FALSE
WHERE (trialbal_id=pTrialbalid);
RETURN pTrialbalid;
END;
$_$;
ALTER FUNCTION public.forwardupdatetrialbalance(integer) OWNER TO admin;
--
-- Name: freezeaccountingperiod(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION freezeaccountingperiod(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPeriodid ALIAS FOR $1;
BEGIN
-- Check to make use that the period is not already frozen
IF ( ( SELECT period_freeze
FROM period
WHERE (period_id=pPeriodid) ) ) THEN
RETURN -2;
END IF;
-- Set the period_freeze flag
UPDATE period
SET period_freeze=TRUE
WHERE (period_id=pPeriodid);
RETURN pPeriodid;
END;
$_$;
ALTER FUNCTION public.freezeaccountingperiod(integer) OWNER TO admin;
--
-- Name: freightdetail(text, integer, integer, integer, date, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION freightdetail(text, integer, integer, integer, date, text, integer) RETURNS SETOF freightdata
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pOrderType ALIAS FOR $1;
pOrderId ALIAS FOR $2;
pCustId ALIAS FOR $3;
pShiptoId ALIAS FOR $4;
pOrderDate ALIAS FOR $5;
pShipVia ALIAS FOR $6;
pCurrId ALIAS FOR $7;
_row freightData%ROWTYPE;
_order RECORD;
_weights RECORD;
_includepkgweight BOOLEAN := FALSE;
_qry TEXT;
_debug BOOLEAN := FALSE;
BEGIN
IF (_debug) THEN
RAISE NOTICE 'pOrderType = %', pOrderType;
RAISE NOTICE 'pOrderId = %', pOrderId;
RAISE NOTICE 'pCustId = %', pCustId;
RAISE NOTICE 'pShiptoId = %', pShiptoId;
RAISE NOTICE 'pOrderDate = %', pOrderDate;
RAISE NOTICE 'pShipVia = %', pShipVia;
RAISE NOTICE 'pCurrId = %', pCurrId;
END IF;
SELECT fetchMetricBool('IncludePackageWeight') INTO _includepkgweight;
--Get the order header information need to match
--against price schedules
IF (pOrderType = 'SO') THEN
SELECT
cust_id AS cust_id,
custtype_id,
custtype_code,
COALESCE(shipto_id, -1) AS shipto_id,
COALESCE(shipto_num, '') AS shipto_num,
COALESCE(pOrderDate, cohead_orderdate) AS orderdate,
COALESCE(pShipVia, cohead_shipvia) AS shipvia,
shipto_shipzone_id AS shipzone_id,
COALESCE(pCurrId, cohead_curr_id) AS curr_id,
currConcat(COALESCE(pCurrId, cohead_curr_id)) AS currAbbr
INTO _order
FROM cohead
JOIN custinfo ON (cust_id=COALESCE(pCustId, cohead_cust_id))
JOIN custtype ON (custtype_id=cust_custtype_id)
LEFT OUTER JOIN shiptoinfo ON (shipto_id=COALESCE(pShiptoId, cohead_shipto_id))
WHERE (cohead_id=pOrderId);
ELSIF (pOrderType = 'QU') THEN
SELECT
quhead_cust_id AS cust_id,
custtype_id,
custtype_code,
COALESCE(shipto_id, -1) AS shipto_id,
COALESCE(shipto_num, '') AS shipto_num,
quhead_quotedate AS orderdate,
quhead_shipvia AS shipvia,
shipto_shipzone_id AS shipzone_id,
quhead_curr_id AS curr_id,
currConcat(quhead_curr_id) AS currAbbr
INTO _order
FROM quhead
JOIN custinfo ON (cust_id=quhead_cust_id)
JOIN custtype ON (custtype_id=cust_custtype_id)
LEFT OUTER JOIN shiptoinfo ON (shipto_id=quhead_shipto_id)
WHERE (quhead_id=pOrderId);
ELSIF (pOrderType = 'RA') THEN
SELECT
cust_id AS cust_id,
custtype_id,
custtype_code,
COALESCE(shipto_id, -1) AS shipto_id,
COALESCE(shipto_num, '') AS shipto_num,
COALESCE(pOrderDate, rahead_authdate) AS orderdate,
''::text AS shipvia,
shipto_shipzone_id AS shipzone_id,
COALESCE(pCurrId, rahead_curr_id) AS curr_id,
currConcat(COALESCE(pCurrId, rahead_curr_id)) AS currAbbr
INTO _order
FROM rahead
JOIN custinfo ON (cust_id=COALESCE(pCustId, rahead_cust_id))
JOIN custtype ON (custtype_id=cust_custtype_id)
LEFT OUTER JOIN shiptoinfo ON (shipto_id=COALESCE(pShiptoId, rahead_shipto_id))
WHERE (rahead_id=pOrderId);
ELSE
RAISE EXCEPTION 'Invalid order type.';
END IF;
IF (_debug) THEN
RAISE NOTICE 'cust_id = %', _order.cust_id;
RAISE NOTICE 'custtype_id = %', _order.custtype_id;
RAISE NOTICE 'shipto_id = %', _order.shipto_id;
RAISE NOTICE 'shipto_num = %', _order.shipto_num;
RAISE NOTICE 'orderdate = %', _order.orderdate;
RAISE NOTICE 'shipvia = %', _order.shipvia;
RAISE NOTICE 'shipzone_id = %', _order.shipzone_id;
RAISE NOTICE 'curr_id = %', _order.curr_id;
RAISE NOTICE 'currAbbr = %', _order.currAbbr;
END IF;
--Get a list of aggregated weights from sites and
--freight classes used on order lines
IF (_includePkgWeight) THEN
_qry := 'SELECT SUM(orderitem_qty_ordered * orderitem_qty_invuomratio * (item_prodweight + item_packweight)) AS weight, ';
ELSE
_qry := 'SELECT SUM(orderitem_qty_ordered * orderitem_qty_invuomratio * item_prodweight) AS weight, ';
END IF;
_qry := _qry || 'itemsite_warehous_id, COALESCE(item_freightclass_id, -1) AS item_freightclass_id
FROM orderitem
JOIN itemsite ON (itemsite_id=orderitem_itemsite_id)
JOIN item ON (item_id=itemsite_item_id) ';
IF (pOrderType = 'RA') THEN
_qry := _qry || 'JOIN raitem ON ((orderitem_id=raitem_id)
AND (raitem_disposition IN (''C'',''R'',''P''))) ';
END IF;
_qry := _qry || '
WHERE ( (orderitem_orderhead_type=' || quote_literal(pOrderType) || ')
AND (orderitem_orderhead_id=' || quote_literal(pOrderId) || ')
AND (orderitem_status <> ''X'') )
GROUP BY itemsite_warehous_id, item_freightclass_id;';
FOR _weights IN
EXECUTE _qry LOOP
_row := calculateFreightDetail(
_order.cust_id, --pCustId
_order.custtype_id, --pCustTypeId
_order.custtype_code, --pCustTypeCode
_order.shipto_id, --pShiptoId
_order.shipzone_id, --pShipZoneId
_order.shipto_num, --pShiptoNum
_order.orderdate, --pOrderDate
_order.shipvia, --pShipVia
_order.curr_id, --pCurrId
_order.currAbbr, --pCurrAbbr
_weights.itemsite_warehous_id, --pItemSiteWhsId
_weights.item_freightclass_id, --pItemFreightclassId
_weights.weight --pWeight
);
RETURN NEXT _row;
END LOOP;
RETURN;
END;
$_$;
ALTER FUNCTION public.freightdetail(text, integer, integer, integer, date, text, integer) OWNER TO admin;
--
-- Name: freightdetailquote(integer, text, integer, text, date, text, text, text[]); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION freightdetailquote(integer, text, integer, text, date, text, text, text[]) RETURNS SETOF freightdata
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustId ALIAS FOR $1;
pCustNumber ALIAS FOR $2;
pShiptoId ALIAS FOR $3;
pShiptoNum ALIAS FOR $4;
pOrderDate ALIAS FOR $5;
pShipVia ALIAS FOR $6;
pItemArrayType ALIAS FOR $7;
pItemQty ALIAS FOR $8;
-- Array item_id format = ARRAY[['300','3'],['310','50']]
-- Array item_number format = ARRAY[['YTRUCK1','3'],['RTRUCK1','50']]
-- Array itemsite_id format = ARRAY[['293','3'],['302','50']]
_cust RECORD;
_shipto RECORD;
_curr RECORD;
_includepkgweight BOOLEAN := FALSE;
_order_date DATE;
_ship_via TEXT;
_item_num RECORD;
_item_id RECORD;
_weights RECORD;
_row freightData%ROWTYPE;
_debug BOOLEAN := FALSE;
BEGIN
-- Parameters are setup to allow this function to be called multiple ways.
-- Check parameters and lookup what is NULL.
-- Check pCustId and pCustNumber.
IF (pCustId IS NULL AND (pCustNumber IS NULL OR pCustNumber = '')) THEN
RAISE EXCEPTION 'You must specify a Customer ID or Number to get a freight quote.';
ELSIF (pCustId IS NULL AND pCustNumber IS NOT NULL) THEN
-- Get customer info using pCustNumber.
SELECT
cust_id,
cust_number,
custtype_id,
custtype_code,
cust_curr_id,
cust_shipvia
INTO _cust
FROM custinfo
LEFT JOIN custtype ON cust_custtype_id = custtype_id
WHERE 1=1
AND cust_number = pCustNumber;
ELSE
-- Get customer info using pCustId.
SELECT
cust_id,
cust_number,
custtype_id,
custtype_code,
cust_curr_id,
cust_shipvia
INTO _cust
FROM custinfo
LEFT JOIN custtype ON cust_custtype_id = custtype_id
WHERE 1=1
AND cust_id = pCustId;
END IF;
IF(NOT FOUND) THEN
RAISE EXCEPTION 'Invalid Customer specified when trying to get a freight quote.';
END IF;
-- Check pShiptoId and pShiptoNum.
IF (pShiptoId IS NULL AND (pShiptoNum IS NULL OR pShiptoNum = '')) THEN
-- Get Customer's default shipto.
SELECT
shipto_id,
shipto_name,
shipto_shipzone_id,
shipto_shipvia,
shipto_num
INTO _shipto
FROM shiptoinfo
WHERE 1=1
AND shipto_cust_id = _cust.cust_id
AND shipto_default;
ELSIF (pShiptoId IS NULL AND pShiptoNum IS NOT NULL) THEN
-- Get shipto info using pShiptoNum.
SELECT
shipto_id,
shipto_name,
shipto_shipzone_id,
shipto_shipvia,
shipto_num
INTO _shipto
FROM shiptoinfo
WHERE 1=1
AND shipto_cust_id = _cust.cust_id
AND shipto_num = pShiptoNum;
ELSE
-- Get shipto info using pShiptoId.
SELECT
shipto_id,
shipto_name,
shipto_shipzone_id,
shipto_shipvia,
shipto_num
INTO _shipto
FROM shiptoinfo
WHERE 1=1
AND shipto_cust_id = _cust.cust_id
AND shipto_id = pShiptoId;
END IF;
IF(NOT FOUND) THEN
RAISE EXCEPTION 'Invalid Ship-to specified when trying to get a freight quote.';
END IF;
-- Get curr info.
SELECT
curr_id,
curr_abbr
INTO _curr
FROM curr_symbol
WHERE 1=1
AND curr_id = _cust.cust_curr_id;
IF(NOT FOUND) THEN
RAISE EXCEPTION 'Could not find currency when trying to get a freight quote.';
END IF;
-- Check pOrderDate.
IF (pOrderDate IS NULL) THEN
_order_date := CURRENT_DATE;
ELSE
_order_date := pOrderDate;
END IF;
-- Check pShipVia.
IF (pShipVia IS NULL OR pShipVia = '') THEN
IF (_shipto.shipto_shipvia IS NULL OR _shipto.shipto_shipvia = '') THEN
_ship_via := _cust.cust_shipvia;
ELSE
_ship_via := _shipto.shipto_shipvia;
END IF;
ELSE
_ship_via := pShipVia;
END IF;
-- Determine if package weight should be included in freight calculation.
SELECT fetchMetricBool('IncludePackageWeight') INTO _includepkgweight;
-- Check pItemQty.
IF (pItemQty IS NULL OR array_upper(pItemQty,1) IS NULL) THEN
-- Item Array is NULL.
RAISE EXCEPTION 'You must specify an Item ID, Item Number or Itemsite ID to get a freight quote.';
ELSIF (pItemArrayType = 'item_number' AND (array_upper(pItemQty,1) > 0)) THEN
-- Using item_number.
FOR _weights IN
-- Get a list of aggregated weights from sites and freight classes for items.
SELECT
CASE WHEN _includepkgweight THEN
SUM(qty * (item_prodweight + item_packweight))
ELSE
SUM(qty * (item_prodweight))
END AS weight,
itemsite_warehous_id,
COALESCE(item_freightclass_id, -1) AS item_freightclass_id
FROM
-- Create item_number -> qty record from array.
(SELECT
unnest((SELECT pItemQty[1:array_upper(pItemQty,1)][1])) AS item_number,
unnest((SELECT pItemQty[1:array_upper(pItemQty,1)][2:array_ndims(pItemQty)]))::numeric AS qty
) AS itemnum_qty
JOIN item USING (item_number)
JOIN itemsite ON item_id=itemsite_item_id
WHERE 1=1
AND itemsite_warehous_id = fetchprefwarehousid()
GROUP BY
itemsite_warehous_id,
item_freightclass_id
LOOP
-- Calculate the freight detail for these item weights.
_row := calculateFreightDetail(
_cust.cust_id, --pCustId
_cust.custtype_id, --pCustTypeId
_cust.custtype_code, --pCustTypeCode
_shipto.shipto_id, --pShiptoId
_shipto.shipto_shipzone_id, --pShipZoneId
_shipto.shipto_num, --pShiptoNum
_order_date, --pOrderDate
_ship_via, --pShipVia
_curr.curr_id, --pCurrId
_curr.curr_abbr, --pCurrAbbr
_weights.itemsite_warehous_id, --pItemSiteWhsId
_weights.item_freightclass_id, --pItemFreightclassId
_weights.weight --pWeight
);
RETURN NEXT _row;
END LOOP;
ELSIF (pItemArrayType = 'item_id' AND (array_upper(pItemQty,1) > 0)) THEN
-- Using item_id.
FOR _weights IN
-- Get a list of aggregated weights from sites and freight classes for items.
SELECT
CASE WHEN _includepkgweight THEN
SUM(qty * (item_prodweight + item_packweight))
ELSE
SUM(qty * (item_prodweight))
END AS weight,
itemsite_warehous_id,
COALESCE(item_freightclass_id, -1) AS item_freightclass_id
FROM
-- Create item_id -> qty record from array.
(SELECT
unnest((SELECT pItemQty[1:array_upper(pItemQty,1)][1]))::integer AS item_id,
unnest((SELECT pItemQty[1:array_upper(pItemQty,1)][2:array_ndims(pItemQty)]))::numeric AS qty
) AS itemid_qty
JOIN item USING (item_id)
JOIN itemsite ON item_id=itemsite_item_id
WHERE 1=1
AND itemsite_warehous_id = fetchprefwarehousid()
GROUP BY
itemsite_warehous_id,
item_freightclass_id
LOOP
-- Calculate the freight detail for these item weights.
_row := calculateFreightDetail(
_cust.cust_id, --pCustId
_cust.custtype_id, --pCustTypeId
_cust.custtype_code, --pCustTypeCode
_shipto.shipto_id, --pShiptoId
_shipto.shipto_shipzone_id, --pShipZoneId
_shipto.shipto_num, --pShiptoNum
_order_date, --pOrderDate
_ship_via, --pShipVia
_curr.curr_id, --pCurrId
_curr.curr_abbr, --pCurrAbbr
_weights.itemsite_warehous_id, --pItemSiteWhsId
_weights.item_freightclass_id, --pItemFreightclassId
_weights.weight --pWeight
);
RETURN NEXT _row;
END LOOP;
ELSIF (pItemArrayType = 'itemsite_id' AND (array_upper(pItemQty,1) > 0)) THEN
-- Using itemsite_id.
FOR _weights IN
-- Get a list of aggregated weights from sites and freight classes for items.
SELECT
CASE WHEN _includepkgweight THEN
SUM(qty * (item_prodweight + item_packweight))
ELSE
SUM(qty * (item_prodweight))
END AS weight,
itemsite_warehous_id,
COALESCE(item_freightclass_id, -1) AS item_freightclass_id
FROM
-- Create itemsite_id -> qty record from array.
(SELECT
unnest((SELECT pItemQty[1:array_upper(pItemQty,1)][1]))::integer AS itemsite_id,
unnest((SELECT pItemQty[1:array_upper(pItemQty,1)][2:array_ndims(pItemQty)]))::numeric AS qty
) AS itemsiteid_qty
JOIN itemsite USING (itemsite_id)
JOIN item ON item_id=itemsite_item_id
WHERE 1=1
GROUP BY
itemsite_warehous_id,
item_freightclass_id
LOOP
-- Calculate the freight detail for these item weights.
_row := calculateFreightDetail(
_cust.cust_id, --pCustId
_cust.custtype_id, --pCustTypeId
_cust.custtype_code, --pCustTypeCode
_shipto.shipto_id, --pShiptoId
_shipto.shipto_shipzone_id, --pShipZoneId
_shipto.shipto_num, --pShiptoNum
_order_date, --pOrderDate
_ship_via, --pShipVia
_curr.curr_id, --pCurrId
_curr.curr_abbr, --pCurrAbbr
_weights.itemsite_warehous_id, --pItemSiteWhsId
_weights.item_freightclass_id, --pItemFreightclassId
_weights.weight --pWeight
);
RETURN NEXT _row;
END LOOP;
ELSE -- The item array provided is invalid.
RAISE EXCEPTION 'The Item/Itemsite array provided when trying to get a freight quote is invalid.';
END IF;
IF(NOT FOUND) THEN
RAISE EXCEPTION 'Error trying to aggregated weights when getting a freight quote.';
END IF;
-- Print debug.
IF (_debug) THEN
RAISE NOTICE 'pCustId = %', _cust.cust_id;
RAISE NOTICE 'pCustTypeId = %', _cust.custtype_id;
RAISE NOTICE 'pCustTypeCode = %', _cust.custtype_code;
RAISE NOTICE 'pShiptoId = %', _shipto.shipto_id;
RAISE NOTICE 'pShipZoneId = %', _shipto.shipto_shipzone_id;
RAISE NOTICE 'pShiptoNum = %', _shipto.shipto_num;
RAISE NOTICE 'pOrderDate = %', _order_date;
RAISE NOTICE 'pShipVia = %', _ship_via;
RAISE NOTICE 'pCurrId = %', _curr.curr_id;
RAISE NOTICE 'pCurrAbbr = %', _curr.curr_abbr;
END IF;
RETURN;
END;
$_$;
ALTER FUNCTION public.freightdetailquote(integer, text, integer, text, date, text, text, text[]) OWNER TO admin;
--
-- Name: freightforrecv(text, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION freightforrecv(text, integer, boolean) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pordertype ALIAS FOR $1;
porderitemid ALIAS FOR $2;
pposted ALIAS FOR $3;
_freight NUMERIC;
BEGIN
IF (pordertype = 'TO' AND NOT fetchMetricBool('MultiWhs')) THEN
RETURN 0;
ELSIF (pordertype = 'RA' AND NOT fetchMetricBool('EnableReturnAuth')) THEN
RETURN 0;
END IF;
SELECT SUM(COALESCE(recv_freight, 0)) INTO _freight
FROM recv
WHERE ((recv_orderitem_id=porderitemid)
AND (recv_posted = pposted)
AND (recv_order_type=pordertype));
RETURN COALESCE(_freight, 0.0);
END;
$_$;
ALTER FUNCTION public.freightforrecv(text, integer, boolean) OWNER TO admin;
--
-- Name: gen_salt(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION gen_salt(text) RETURNS text
LANGUAGE c STRICT
AS '$libdir/pgcrypto', 'pg_gen_salt';
ALTER FUNCTION public.gen_salt(text) OWNER TO admin;
--
-- Name: gen_salt(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION gen_salt(text, integer) RETURNS text
LANGUAGE c STRICT
AS '$libdir/pgcrypto', 'pg_gen_salt_rounds';
ALTER FUNCTION public.gen_salt(text, integer) OWNER TO admin;
--
-- Name: getactiverevid(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getactiverevid(text, integer) RETURNS integer
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTargetType ALIAS FOR $1;
pTargetid ALIAS FOR $2;
_revid INTEGER;
BEGIN
--See if revcontrol turned on
IF (fetchmetricbool('RevControl')) THEN
IF (pTargetType='BOM') THEN
SELECT rev_id INTO _revid
FROM rev
WHERE ((rev_target_type='BOM')
AND (rev_target_id=pTargetid)
AND (rev_status='A'));
IF (NOT FOUND) THEN
_revid:=-1;
END IF;
ELSE IF (pTargetType='BOO') THEN
SELECT rev_id INTO _revid
FROM rev
WHERE ((rev_target_type='BOO')
AND (rev_target_id=pTargetid)
AND (rev_status='A'));
IF (NOT FOUND) THEN
_revid:=-1;
END IF;
ELSE
RAISE EXCEPTION 'Invalid Revision Type';
END IF;
END IF;
ELSE
_revid:=-1;
END IF;
RETURN _revid;
END;
$_$;
ALTER FUNCTION public.getactiverevid(text, integer) OWNER TO admin;
--
-- Name: getaddrid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getaddrid(paddressnumber text) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (pAddressNumber IS NULL OR pAddressNumber = '') THEN
RETURN NULL;
END IF;
SELECT addr_id INTO _returnVal
FROM addr
WHERE (addr_number=pAddressNumber);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Address Number % not found.', pAddressNumber;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getaddrid(paddressnumber text) OWNER TO admin;
--
-- Name: getadjustmenttaxtypeid(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getadjustmenttaxtypeid() RETURNS integer
LANGUAGE plpgsql IMMUTABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_taxtypeid INTEGER;
BEGIN
SELECT taxtype_id
INTO _taxtypeid
FROM taxtype
WHERE (taxtype_name='Adjustment');
RETURN _taxtypeid;
END;
$$;
ALTER FUNCTION public.getadjustmenttaxtypeid() OWNER TO admin;
--
-- Name: getaropenid(text, character, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getaropenid(text, character, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustNumber ALIAS FOR $1;
pDocType ALIAS FOR $2;
pDocNumber ALIAS FOR $3;
_returnVal INTEGER;
BEGIN
IF ((pCustNumber IS NULL) OR (pDocType IS NULL) OR (pDocNumber IS NULL)) THEN
RETURN NULL;
END IF;
SELECT aropen_id INTO _returnVal
FROM aropen
WHERE ((aropen_cust_id=getCustId(pCustNumber,true))
AND (UPPER(aropen_doctype)=UPPER(pDocType))
AND (UPPER(aropen_docnumber)=UPPER(pDocNumber)));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'AR Open Item % not found.', pDocNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getaropenid(text, character, text) OWNER TO admin;
--
-- Name: getbankaccntid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getbankaccntid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBankAccntName ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pBankAccntName IS NULL) THEN
RETURN NULL;
END IF;
SELECT bankaccnt_id INTO _returnVal
FROM bankaccnt
WHERE (UPPER(bankaccnt_name)=UPPER(pBankAccntName));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Bank Account % not found.', pBankAccntName;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getbankaccntid(text) OWNER TO admin;
--
-- Name: getbomitemid(text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getbomitemid(text, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemNumber ALIAS FOR $1;
pRevision ALIAS FOR $2;
pSeqNumber ALIAS FOR $3;
_returnVal INTEGER;
BEGIN
IF ((pItemNumber IS NULL) OR (pSeqNumber IS NULL) OR (pItemNumber = '') OR (pSeqNumber = '') ) THEN
RETURN NULL;
END IF;
SELECT bomitem_id INTO _returnVal
FROM bomitem(getItemId(pItemNumber),COALESCE(getRevId('BOM',pItemNumber,pRevision)))
WHERE (bomitem_seqnumber=pSeqNumber);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Sequence % on Bill of Material % Revision % not found.', pSeqNumber, pItemNumber, pRevision;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getbomitemid(text, text, text) OWNER TO admin;
--
-- Name: getbooitemseqid(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getbooitemseqid(text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemNumber ALIAS FOR $1;
pSeqNumber ALIAS FOR $2;
_revid INTEGER;
_returnVal INTEGER;
BEGIN
IF ((pItemNumber IS NULL) OR (pSeqNumber IS NULL)) THEN
RETURN NULL;
END IF;
IF (NOT fetchMetricBool('Routings')) THEN
RETURN -1;
ELSE
SELECT booitem_seq_id INTO _returnVal
FROM booitem(getItemId(pItemNumber))
WHERE (booitem_seqnumber=CAST(pSeqNumber AS integer));
END IF;
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Boo Sequence % for Item % not found.', pSeqNumber, pItemNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getbooitemseqid(text, text) OWNER TO admin;
--
-- Name: getbudgheadid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getbudgheadid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBudghead ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pBudghead IS NULL) THEN
RETURN NULL;
END IF;
SELECT budghead_id INTO _returnVal
FROM budghead
WHERE (budghead_name=(pBudghead));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Budget % not found.', pBudghead;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getbudgheadid(text) OWNER TO admin;
--
-- Name: getcashrcptid(text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcashrcptid(text, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustNumber ALIAS FOR $1;
pFundsType ALIAS FOR $2;
pDocNumber ALIAS FOR $3;
_returnVal INTEGER;
BEGIN
IF ((pCustNumber IS NULL) OR (pFundsType IS NULL) OR (pDocNumber IS NULL)) THEN
RETURN NULL;
END IF;
SELECT cashrcpt_id INTO _returnVal
FROM cashrcpt
WHERE ((cashrcpt_cust_id=getCustId(pCustNumber,true))
AND (UPPER(cashrcpt_fundstype)=UPPER(pFundsType))
AND (UPPER(cashrcpt_docnumber)=UPPER(pDocNumber)));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Cash Receipt % not found.', pDocNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getcashrcptid(text, text, text) OWNER TO admin;
--
-- Name: getcharid(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcharid(pchar text, ptype text) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (COALESCE(pChar, '') = '') THEN
RETURN NULL;
END IF;
SELECT char_id INTO _returnVal
FROM char
WHERE ((char_name=pChar)
AND ((pType IN ('C','CT') AND char_customers)
OR (pType IN ('I','SI','QI','W','PI','TI') AND char_items)
OR (pType='CRMACCT' AND char_crmaccounts)
OR (pType='ADDR' AND char_addresses)
OR (pType='CNTCT' AND char_contacts)
OR (pType='LS' AND char_lotserial)
OR (pType='EMP' AND char_employees)
OR (pType='INCDT' AND char_incidents)
)) LIMIT 1;
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Characteristic % not found.', pChar;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getcharid(pchar text, ptype text) OWNER TO admin;
--
-- Name: getclasscodeid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getclasscodeid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pClassCode ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pClassCode IS NULL) THEN
RETURN NULL;
END IF;
SELECT classcode_id INTO _returnVal
FROM classcode
WHERE (classcode_code=pClassCode);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Class Code % not found.', pClassCode;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getclasscodeid(text) OWNER TO admin;
--
-- Name: getcmheadid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcmheadid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCreditMemoNumber ALIAS FOR $1;
BEGIN
RETURN getCmheadId(pCreditMemoNumber, NULL);
END;
$_$;
ALTER FUNCTION public.getcmheadid(text) OWNER TO admin;
--
-- Name: getcmheadid(text, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcmheadid(text, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCreditMemoNumber ALIAS FOR $1;
pPosted ALIAS FOR $2;
_returnVal INTEGER;
BEGIN
IF (pCreditMemoNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT cmhead_id INTO _returnVal
FROM cmhead
WHERE (UPPER(cmhead_number)=UPPER(pCreditMemoNumber))
AND ((pPosted IS NULL) OR (cmhead_posted=pPosted));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Credit Memo % not found.', pCreditMemoNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getcmheadid(text, boolean) OWNER TO admin;
--
-- Name: getcmnttypeid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcmnttypeid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCmntType ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (COALESCE(TRIM(pCmntType), '') = '') THEN
RETURN NULL;
END IF;
SELECT cmnttype_id INTO _returnVal
FROM cmnttype
WHERE (cmnttype_name=pCmntType) LIMIT 1;
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Comment Type % not found.', pCmntType;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getcmnttypeid(text) OWNER TO admin;
--
-- Name: getcntctid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcntctid(pcontactnumber text) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
SELECT getCntctId(pContactNumber,true) INTO _returnVal;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getcntctid(pcontactnumber text) OWNER TO admin;
--
-- Name: getcntctid(text, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcntctid(pcontactnumber text, pnotfounderr boolean) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (COALESCE(TRIM(pContactNumber), '') = '') THEN
RETURN NULL;
END IF;
SELECT cntct_id INTO _returnVal
FROM cntct
WHERE (cntct_number=pContactNumber);
IF (_returnVal IS NULL AND pNotFoundErr) THEN
RAISE EXCEPTION 'Contact Number % not found.', pContactNumber;
ELSIF (_returnVal IS NULL) THEN
RETURN NULL;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getcntctid(pcontactnumber text, pnotfounderr boolean) OWNER TO admin;
--
-- Name: getcoheadid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcoheadid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSalesOrderNumber ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pSalesOrderNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT cohead_id INTO _returnVal
FROM cohead
WHERE (cohead_number=pSalesOrderNumber);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Sales Order % not found.', pSalesOrderNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getcoheadid(text) OWNER TO admin;
--
-- Name: getcoitemid(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcoitemid(text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSalesOrderNumber ALIAS FOR $1;
pLineNumber ALIAS FOR $2;
_linenumber INTEGER;
_subnumber INTEGER;
_returnVal INTEGER;
BEGIN
IF (pSalesOrderNumber IS NULL OR pLineNumber IS NULL) THEN
RETURN NULL;
END IF;
--Parse Line Number
IF (position('.' in pLineNumber) > 0) THEN
_linenumber := CAST(substring(pLineNumber from 1 for position('.' in pLineNumber)-1) AS INTEGER);
_subnumber := CAST(substring(pLineNumber from position('.' in pLineNumber)+1 for length(pLineNumber)) AS INTEGER);
ELSE
_linenumber := CAST(pLineNumber AS INTEGER);
_subnumber := 0;
END IF;
SELECT coitem_id INTO _returnVal
FROM cohead, coitem
WHERE ((cohead_number=pSalesOrderNumber)
AND (coitem_cohead_id=cohead_id)
AND (coitem_linenumber=_linenumber)
AND (coitem_subnumber=_subnumber));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Sales Order % not found.', pSalesOrderNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getcoitemid(text, text) OWNER TO admin;
--
-- Name: getcontrcteffective(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcontrcteffective(pcontrctnumber text) RETURNS date
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal DATE;
BEGIN
IF (pContrctNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT contrct_effective INTO _returnVal
FROM contrct
WHERE (contrct_number=pContrctNumber);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Contract Number % not found.', pContrctNumber;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getcontrcteffective(pcontrctnumber text) OWNER TO admin;
--
-- Name: getcontrctexpires(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcontrctexpires(pcontrctnumber text) RETURNS date
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal DATE;
BEGIN
IF (pContrctNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT contrct_expires INTO _returnVal
FROM contrct
WHERE (contrct_number=pContrctNumber);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Contract Number % not found.', pContrctNumber;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getcontrctexpires(pcontrctnumber text) OWNER TO admin;
--
-- Name: getcontrctid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcontrctid(pcontrctnumber text) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (pContrctNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT contrct_id INTO _returnVal
FROM contrct
WHERE (contrct_number=pContrctNumber);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Contract Number % not found.', pContrctNumber;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getcontrctid(pcontrctnumber text) OWNER TO admin;
--
-- Name: getcostcatid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcostcatid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCostCat ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pCostCat IS NULL) THEN
RETURN NULL;
END IF;
SELECT costcat_id INTO _returnVal
FROM costcat
WHERE (costcat_code=pCostCat);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Cost Category Code % not found.', pCostCat;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getcostcatid(text) OWNER TO admin;
--
-- Name: getcostelemid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcostelemid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCostElemType ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pCostElemType IS NULL) THEN
RETURN NULL;
END IF;
SELECT costelem_id INTO _returnVal
FROM costelem
WHERE (costelem_type=pCostElemType);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Cost Element % not found.', pCostElemType;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getcostelemid(text) OWNER TO admin;
--
-- Name: getcrmacctid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcrmacctid(pacctnumber text) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (pAcctNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT crmacct_id INTO _returnVal
FROM crmacct
WHERE (UPPER(crmacct_number)=UPPER(pAcctNumber));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'CRM Account Number % not found.', pAcctNumber;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getcrmacctid(pacctnumber text) OWNER TO admin;
--
-- Name: getcurrid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcurrid(pcurrname text) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (pCurrName IS NULL) THEN
RETURN NULL;
END IF;
SELECT curr_id INTO _returnVal
FROM curr_symbol
WHERE (curr_abbr=pCurrName);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Currency % not found.', pCurrName;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getcurrid(pcurrname text) OWNER TO admin;
--
-- Name: getcustid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcustid(pcustnumber text) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
SELECT getCustId(pCustNumber,false) INTO _returnVal;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getcustid(pcustnumber text) OWNER TO admin;
--
-- Name: getcustid(text, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcustid(pcustnumber text, pinclprospects boolean) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (pCustNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT cust_id INTO _returnVal
FROM custinfo
WHERE (cust_number=UPPER(pCustNumber));
IF (_returnVal IS NULL) THEN
IF (pInclProspects) THEN
SELECT prospect_id INTO _returnVal
FROM prospect
WHERE (UPPER(prospect_number)=UPPER(pCustNumber));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Neither Customer nor Prospect Number % found.', pCustNumber;
END IF;
ELSE
RAISE EXCEPTION 'Customer Number % not found.', pCustNumber;
END IF;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getcustid(pcustnumber text, pinclprospects boolean) OWNER TO admin;
--
-- Name: getcustnamefrominfo(text, text, text, text, text, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcustnamefrominfo(text, text, text, text, text, boolean) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_email TEXT := COALESCE(UPPER($1), '');
_company TEXT := COALESCE(UPPER($2), '');
_first TEXT := COALESCE(UPPER($3), '');
_last TEXT := COALESCE(UPPER($4), '');
_fullname TEXT := COALESCE(UPPER($5), '');
_generate BOOLEAN := COALESCE($6, FALSE);
_counter INTEGER;
_custcount INTEGER := 0;
_custname TEXT;
_candidate RECORD;
_r RECORD;
BEGIN
IF (_email != '') THEN
SELECT count(*), cust_name INTO _custcount, _custname
FROM custinfo LEFT OUTER JOIN cntct ON (cust_cntct_id=cntct_id)
WHERE (UPPER(cntct_email)=_email)
GROUP BY cust_name;
IF (NOT FOUND) THEN
_custcount := 0;
ELSIF(_custcount = 1) THEN
RETURN _custname;
END IF;
END IF;
IF (_company != '') THEN
SELECT count(*), cust_name INTO _custcount, _custname
FROM custinfo
WHERE (UPPER(cust_name)=_company)
GROUP BY cust_name;
IF (NOT FOUND) THEN
_custcount := 0;
ELSIF(_custcount = 1) THEN
RETURN _custname;
END IF;
END IF;
IF (_fullname = '' AND (_first != '' OR _last != '')) THEN
_fullname := TRIM(_first || ' ' || _last);
END IF;
IF (_custcount <= 0 AND _fullname != '') THEN
SELECT count(*), cust_name INTO _custcount, _custname
FROM custinfo
WHERE (UPPER(cust_name)=_fullname)
GROUP BY cust_name;
IF (NOT FOUND) THEN
_custcount := 0;
ELSIF(_custcount = 1) THEN
RETURN _custname;
END IF;
END IF;
IF (_custcount > 1) THEN
RAISE EXCEPTION 'Found % possible Customers for % and % and %',
_custcount, _email, _company, _fullname;
END IF;
IF (_custcount <= 0 AND _generate) THEN
IF (_company != '') THEN
RETURN _company;
ELSIF (_email != '') THEN
RETURN _email;
ELSIF (_fullname != '') THEN
RETURN _fullname;
ELSE
RAISE EXCEPTION 'Could not generate a new Customer Name without an email address or the name of a company or person';
END IF;
END IF;
IF (_custname IS NULL OR _custname = '') THEN
RAISE EXCEPTION 'Could not find Customer Name for % and %',
_company, _fullname;
END IF;
RETURN _custname;
END;
$_$;
ALTER FUNCTION public.getcustnamefrominfo(text, text, text, text, text, boolean) OWNER TO admin;
--
-- Name: getcustnumberfrominfo(text, text, text, text, text, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcustnumberfrominfo(text, text, text, text, text, boolean) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_email TEXT := COALESCE(UPPER($1), '');
_company TEXT := COALESCE(UPPER($2), '');
_first TEXT := COALESCE(UPPER($3), '');
_last TEXT := COALESCE(UPPER($4), '');
_fullname TEXT := COALESCE(UPPER($5), TRIM(_first || ' ' || _last));
_generate BOOLEAN := COALESCE($6, FALSE);
_counter INTEGER;
_custcount INTEGER := 0;
_custnumber TEXT;
_candidate TEXT := '';
_loopmax INTEGER := 0;
_minlength INTEGER := 5;
_maxlength INTEGER := 8;
_numformat TEXT := '';
_testme TEXT;
BEGIN
IF (_email != '') THEN
SELECT count(*), cust_number INTO _custcount, _custnumber
FROM custinfo LEFT OUTER JOIN cntct ON (cust_cntct_id=cntct_id)
WHERE (UPPER(cntct_email)=_email)
GROUP BY cust_number;
IF (NOT FOUND) THEN
_custcount := 0;
ELSIF(_custcount = 1) THEN
RETURN _custnumber;
END IF;
END IF;
IF (_company != '') THEN
SELECT count(*), cust_number INTO _custcount, _custnumber
FROM custinfo
WHERE (UPPER(cust_name)=_company)
GROUP BY cust_number;
IF (NOT FOUND) THEN
_custcount := 0;
ELSIF(_custcount = 1) THEN
RETURN _custnumber;
END IF;
END IF;
IF (_fullname = '' AND (_first != '' OR _last != '')) THEN
_fullname := TRIM(_first || ' ' || _last);
END IF;
IF (_custcount <= 0 AND _fullname != '') THEN
SELECT count(*), cust_number INTO _custcount, _custnumber
FROM custinfo
WHERE (UPPER(cust_name)=_fullname)
GROUP BY cust_number;
IF (NOT FOUND) THEN
_custcount := 0;
ELSIF(_custcount = 1) THEN
RETURN _custnumber;
END IF;
END IF;
IF (_custcount > 1) THEN
RAISE EXCEPTION 'Found % possible Customers for % and % and %',
_custcount, _email, _company, _fullname;
END IF;
IF (_custcount <= 0 AND _generate) THEN
IF (_maxlength < _minlength) THEN
RAISE EXCEPTION 'Fix getCustNumberFromInfo: max length < min length';
END IF;
IF (_company != '') THEN
_candidate := _company;
ELSIF (_email != '') THEN
_candidate := SUBSTRING(_email FOR POSITION('@' IN _email) - 1);
ELSIF (_last != '') THEN
_candidate := _last;
IF (_first != '') THEN
_candidate := _candidate || _first;
END IF;
ELSIF (_fullname != '' AND (POSITION(' ' IN _fullname) > 0)) THEN
_candidate := SUBSTRING(_fullname FROM POSITION(' ' IN _fullname) + 1) ||
SUBSTRING(_fullname FOR POSITION(' ' IN _fullname) - 1);
END IF;
WHILE (POSITION(' ' IN _candidate) > 0) LOOP
_candidate := SUBSTRING(_candidate FOR POSITION(' ' IN _candidate) - 1) ||
SUBSTRING(_candidate FROM POSITION(' ' IN _candidate) + 1);
END LOOP;
FOR _counter IN _minlength.._maxlength LOOP
_testme := SUBSTRING(_candidate FOR _counter);
IF (NOT EXISTS(SELECT cust_number
FROM custinfo
WHERE (cust_number=_testme))) THEN
_custnumber := _testme;
EXIT;
END IF;
END LOOP;
IF (_custnumber IS NULL OR _custnumber = '') THEN
IF (LENGTH(_candidate) < _minlength) THEN
_minlength := LENGTH(_candidate);
END IF;
FOR _counter IN _minlength.._maxlength LOOP
_loopmax := _loopmax * 10 + 9;
_numformat := _numformat || '0';
END LOOP;
FOR _counter IN 1.._loopmax LOOP
_testme := SUBSTRING(_candidate FOR _minlength) ||
TRIM(TO_CHAR(_counter, _numformat));
IF (NOT EXISTS(SELECT cust_number
FROM custinfo
WHERE (cust_number=_testme))) THEN
_custnumber := _testme;
EXIT;
END IF;
END LOOP;
END IF;
IF (_custnumber IS NULL OR _custnumber = '') THEN
RAISE EXCEPTION 'Could not generate a new Customer Number';
END IF;
END IF;
IF (_custnumber IS NULL OR _custnumber = '') THEN
RAISE EXCEPTION 'Could not find Customer Number for % and % and %',
_email, _company, _fullname;
END IF;
RETURN _custnumber;
END;
$_$;
ALTER FUNCTION public.getcustnumberfrominfo(text, text, text, text, text, boolean) OWNER TO admin;
--
-- Name: getcusttypeid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getcusttypeid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustTypeCode ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pCustTypeCode IS NULL) THEN
RETURN NULL;
END IF;
SELECT custtype_id INTO _returnVal
FROM custtype
WHERE (custtype_code=pCustTypeCode);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Customer Type % not found.', pCustTypeCode;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getcusttypeid(text) OWNER TO admin;
--
-- Name: getdeptid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getdeptid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pDeptNumber ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (COALESCE(TRIM(pDeptNumber), '') = '') THEN
RETURN NULL;
END IF;
SELECT dept_id INTO _returnVal
FROM dept
WHERE (UPPER(dept_number)=UPPER(pDeptNumber));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Department % not found.', pDeptNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getdeptid(text) OWNER TO admin;
--
-- Name: getediprofileid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getediprofileid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pEdiProfileName ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pEdiProfileName IS NULL) THEN
RETURN NULL;
END IF;
SELECT pkghead_id INTO _returnVal
FROM pkghead
WHERE(pkghead_name='xtbatch');
IF(NOT FOUND) THEN
RETURN NULL;
END IF;
SELECT ediprofile_id INTO _returnVal
FROM xtbatch.ediprofile
WHERE (ediprofile_name=pEdiProfileName);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'EDI Profile % not found.', pEdiProfileName;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getediprofileid(text) OWNER TO admin;
--
-- Name: getediprofilename(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getediprofilename(integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pEdiProfileId ALIAS FOR $1;
_returnVal TEXT;
BEGIN
IF (pEdiProfileId IS NULL) THEN
RETURN NULL;
END IF;
SELECT pkghead_name INTO _returnVal
FROM pkghead
WHERE(pkghead_name='xtbatch');
IF(NOT FOUND) THEN
RETURN NULL;
END IF;
SELECT ediprofile_name INTO _returnVal
FROM xtbatch.ediprofile
WHERE (ediprofile_id=pEdiProfileId);
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getediprofilename(integer) OWNER TO admin;
--
-- Name: getempid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getempid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pEmpCode ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (COALESCE(TRIM(pEmpCode), '') = '') THEN
RETURN NULL;
END IF;
SELECT emp_id INTO _returnVal
FROM emp
WHERE (UPPER(emp_code)=UPPER(pEmpCode));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Employee % not found.', pEmpCode;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getempid(text) OWNER TO admin;
--
-- Name: getexpcatid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getexpcatid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pExpcatCode ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (COALESCE(TRIM(pExpcatCode), '') = '') THEN
RETURN NULL;
END IF;
SELECT expcat_id INTO _returnVal
FROM expcat
WHERE (expcat_code=UPPER(pExpcatCode));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Expense Category % not found.', pExpcatCode;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getexpcatid(text) OWNER TO admin;
--
-- Name: getflcoldata(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getflcoldata(integer, integer) RETURNS SETOF flcoldata
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFlcolid ALIAS FOR $1;
pPeriodid ALIAS FOR $2;
_row flcoldata%ROWTYPE;
_r RECORD;
_start DATE;
_end DATE;
_col INTEGER := 1;
_mult INTEGER;
BEGIN
--Get Layout Data
SELECT * INTO _r
FROM flcol
WHERE (flcol_id=pFlcolid);
-- Handle Month...
IF (_r.flcol_month) THEN
SELECT period_start, period_end INTO _start, _end
FROM period
WHERE (period_id=pPeriodid);
IF (_r.flcol_showdb) THEN
-- Debits Column
_row.flcoldata_column := _col;
_row.flcoldata_start := _start;
_row.flcoldata_end := _end;
RETURN NEXT _row;
_col := _col + 1;
-- Credits Column
_row.flcoldata_column := _col;
_row.flcoldata_start := _start;
_row.flcoldata_end := _end;
RETURN NEXT _row;
_col := _col + 1;
END IF;
-- Month Column
_row.flcoldata_column := _col;
_row.flcoldata_start := _start;
_row.flcoldata_end := _end;
RETURN NEXT _row;
_col := _col + 1;
-- These don't have drill down
IF (_r.flcol_prcnt) THEN
_col := _col + 1;
END IF;
IF (_r.flcol_budget) THEN
_col := _col + 1;
IF (_r.flcol_budgetprcnt) THEN
_col := _col + 1;
END IF;
IF (_r.flcol_budgetdiff) THEN
_col := _col + 1;
END IF;
IF (_r.flcol_budgetdiffprcnt) THEN
_col := _col + 1;
END IF;
END IF;
END IF;
-- Handle Quarter...
IF (_r.flcol_quarter) THEN
SELECT min(qtr.period_start), max(qtr.period_end) INTO _start, _end
FROM period p
JOIN period qtr ON (p.period_quarter=qtr.period_quarter)
AND (p.period_yearperiod_id=qtr.period_yearperiod_id)
WHERE (p.period_id=pPeriodid);
IF (_r.flcol_showdb) THEN
-- Debits Column
_row.flcoldata_column := _col;
_row.flcoldata_start := _start;
_row.flcoldata_end := _end;
RETURN NEXT _row;
_col := _col + 1;
-- Credits Column
_row.flcoldata_column := _col;
_row.flcoldata_start := _start;
_row.flcoldata_end := _end;
RETURN NEXT _row;
_col := _col + 1;
END IF;
-- Quarter Column
_row.flcoldata_column := _col;
_row.flcoldata_start := _start;
_row.flcoldata_end := _end;
RETURN NEXT _row;
_col := _col + 1;
-- These don't have drill down
IF (_r.flcol_prcnt) THEN
_col := _col + 1;
END IF;
IF (_r.flcol_budget) THEN
_col := _col + 1;
IF (_r.flcol_budgetprcnt) THEN
_col := _col + 1;
END IF;
IF (_r.flcol_budgetdiff) THEN
_col := _col + 1;
END IF;
IF (_r.flcol_budgetdiffprcnt) THEN
_col := _col + 1;
END IF;
END IF;
END IF;
-- Handle Year...
IF (_r.flcol_year) THEN
SELECT yearperiod_start, period_end INTO _start, _end
FROM period p
JOIN yearperiod ON (period_yearperiod_id=yearperiod_id)
WHERE (p.period_id=pPeriodid);
IF (_r.flcol_showdb) THEN
-- Debits Column
_row.flcoldata_column := _col;
_row.flcoldata_start := _start;
_row.flcoldata_end := _end;
RETURN NEXT _row;
_col := _col + 1;
-- Credits Column
_row.flcoldata_column := _col;
_row.flcoldata_start := _start;
_row.flcoldata_end := _end;
RETURN NEXT _row;
_col := _col + 1;
END IF;
-- Year Column
_row.flcoldata_column := _col;
_row.flcoldata_start := _start;
_row.flcoldata_end := _end;
RETURN NEXT _row;
_col := _col + 1;
-- These don't have drill down
IF (_r.flcol_prcnt) THEN
_col := _col + 1;
END IF;
IF (_r.flcol_budget) THEN
_col := _col + 1;
IF (_r.flcol_budgetprcnt) THEN
_col := _col + 1;
END IF;
IF (_r.flcol_budgetdiff) THEN
_col := _col + 1;
END IF;
IF (_r.flcol_budgetdiffprcnt) THEN
_col := _col + 1;
END IF;
END IF;
END IF;
-- Handle Prior Month...
IF (_r.flcol_priormonth) THEN
SELECT prv.period_start, prv.period_end INTO _start, _end
FROM period p
JOIN period prv ON (prv.period_start < p.period_start)
WHERE (p.period_id=pPeriodid)
ORDER BY prv.period_start DESC
LIMIT 1;
-- Prior Month Column
_row.flcoldata_column := _col;
_row.flcoldata_start := _start;
_row.flcoldata_end := _end;
RETURN NEXT _row;
_col := _col + 1;
-- These don't have drill down
IF (_r.flcol_priorprcnt) THEN
_col := _col + 1;
END IF;
IF (_r.flcol_priordiff) THEN
_col := _col + 1;
END IF;
IF (_r.flcol_priordiffprcnt) THEN
_col := _col + 1;
END IF;
END IF;
-- Handle Prior Quarter...
IF (_r.flcol_priorquarter) THEN
IF (_r.flcol_priortype = 'P') THEN
-- Prior Quarter
SELECT min(period_start), max(period_end)
INTO _start, _end
FROM (
SELECT prv.period_start, prv.period_end, prv.period_quarter, prv.period_yearperiod_id
FROM period p
JOIN period prv ON (prv.period_start < p.period_start)
AND (prv.period_quarter != p.period_quarter)
WHERE (p.period_id=pPeriodid)) data
GROUP BY period_quarter, period_yearperiod_id
ORDER BY min(period_start) DESC
LIMIT 1;
ELSE
-- Prior Year Quarter
SELECT min(period_start), max(period_end)
INTO _start, _end
FROM (
SELECT prv.period_start, prv.period_end, prv.period_quarter, prv.period_yearperiod_id
FROM period p
JOIN period prv ON (prv.period_start < p.period_start)
AND (prv.period_yearperiod_id != p.period_yearperiod_id)
AND (prv.period_quarter = p.period_quarter)
WHERE (p.period_id=pPeriodid)) data
GROUP BY period_quarter, period_yearperiod_id
ORDER BY min(period_start) DESC
LIMIT 1;
END IF;
-- Prior Quarter Column
_row.flcoldata_column := _col;
_row.flcoldata_start := _start;
_row.flcoldata_end := _end;
RETURN NEXT _row;
_col := _col + 1;
-- These don't have drill down
IF (_r.flcol_priorprcnt) THEN
_col := _col + 1;
END IF;
IF (_r.flcol_priordiff) THEN
_col := _col + 1;
END IF;
IF (_r.flcol_priordiffprcnt) THEN
_col := _col + 1;
END IF;
END IF;
-- Handle Prior Year...
IF (_r.flcol_prioryear IN ('D','F')) THEN
IF (_r.flcol_prioryear = 'D') THEN
-- Prior Year to Date
SELECT yearperiod_start, prv.period_end INTO _start, _end
FROM period p
JOIN period prv ON (prv.period_number = p.period_number)
AND (prv.period_yearperiod_id != p.period_yearperiod_id)
AND (prv.period_start < p.period_start)
JOIN yearperiod ON (prv.period_yearperiod_id=yearperiod_id)
WHERE (p.period_id=pPeriodid)
ORDER BY prv.period_start DESC
LIMIT 1;
ELSE
-- Prior Full Year
SELECT prv.yearperiod_start, prv.yearperiod_end INTO _start, _end
FROM period p
JOIN yearperiod cur ON (cur.yearperiod_id=p.period_yearperiod_id)
JOIN yearperiod prv ON (prv.yearperiod_start < cur.yearperiod_start)
WHERE (p.period_id=pPeriodid)
ORDER BY prv.yearperiod_start DESC
LIMIT 1;
END IF;
-- Prior Year Column
_row.flcoldata_column := _col;
_row.flcoldata_start := _start;
_row.flcoldata_end := _end;
RETURN NEXT _row;
_col := _col + 1;
END IF;
RETURN;
END;
$_$;
ALTER FUNCTION public.getflcoldata(integer, integer) OWNER TO admin;
--
-- Name: getflcoldata(character, integer[], boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getflcoldata(character, integer[], boolean) RETURNS SETOF flcoldata
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pInterval ALIAS FOR $1;
pPeriodids ALIAS FOR $2;
pBudgets ALIAS FOR $3;
_row flcoldata%ROWTYPE;
_r RECORD;
_start DATE;
_end DATE;
_col INTEGER := 1;
_count INTEGER;
_i INTEGER := 1;
_incr INTEGER := 1;
BEGIN
IF (pBudgets) THEN
_col := 2;
_incr := 2;
END IF;
_count := ARRAY_UPPER(pPeriodIds,1);
IF (pInterval = 'M') THEN
FOR _i IN 1.._count
LOOP
SELECT period_start, period_end INTO _start, _end
FROM period
WHERE (period_id=pPeriodids[_i]);
_row.flcoldata_column := _col;
_row.flcoldata_start := _start;
_row.flcoldata_end := _end;
RETURN NEXT _row;
_col := _col + _incr;
END LOOP;
ELSIF (pInterval = 'Q') THEN
FOR _i IN 1.._count
LOOP
SELECT min(qtr.period_start), max(qtr.period_end) INTO _start, _end
FROM period cur
JOIN period qtr ON (cur.period_yearperiod_id=qtr.period_yearperiod_id)
AND (cur.period_quarter=qtr.period_quarter)
WHERE (cur.period_id=pPeriodids[_i]);
_row.flcoldata_column := _col;
_row.flcoldata_start := _start;
_row.flcoldata_end := _end;
RETURN NEXT _row;
_col := _col + _incr;
END LOOP;
ELSE
FOR _i IN 1.._count
LOOP
SELECT yearperiod_start, yearperiod_end INTO _start, _end
FROM period
JOIN yearperiod ON (period_yearperiod_id=yearperiod_id)
WHERE (period_id=pPeriodids[_i]);
_row.flcoldata_column := _col;
_row.flcoldata_start := _start;
_row.flcoldata_end := _end;
RETURN NEXT _row;
_col := _col + _incr;
END LOOP;
END IF;
RETURN;
END;
$_$;
ALTER FUNCTION public.getflcoldata(character, integer[], boolean) OWNER TO admin;
--
-- Name: getflstmthead(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getflstmthead(integer, integer) RETURNS SETOF flstmthead
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFlcolid ALIAS FOR $1;
pPeriodid ALIAS FOR $2;
_row flstmthead%ROWTYPE;
_p RECORD;
_month TEXT;
_qtr TEXT;
_year TEXT;
_prmonth TEXT;
_prqtr TEXT;
_pryear TEXT;
_err TEXT;
BEGIN
SELECT 'No Data' INTO _err;
--Get Layout Data
SELECT flcol_priortype, flcol_prioryear INTO _p
FROM flcol
WHERE (flcol_id=pFlcolid);
--get data...
--...for current Month
SELECT
(CASE
WHEN period_name='' THEN
formatdate(period_start) || '-' || formatdate(period_end)
ELSE period_name
END) INTO _month
FROM period
WHERE (period_id=pPeriodId);
IF _month IS NULL THEN
_month := _err;
END IF;
--...for Quarter
SELECT
('Q' || period_quarter || '-' || EXTRACT(year from yearperiod_end)) INTO _qtr
FROM period, yearperiod
WHERE ((period_id=pPeriodId)
AND (period_yearperiod_id=yearperiod_id));
IF _qtr IS NULL THEN
_qtr := _err;
END IF;
--...for Year
SELECT
COALESCE((CASE WHEN period_name='' THEN
(formatdate(period_start) || '-' || formatdate(period_end) || ' YTD')
ELSE (period_name || ' YTD')
END),'No Data') INTO _year
FROM period
WHERE (period_id=pPeriodId);
IF _year IS NULL THEN
_year := _err;
END IF;
--...for prior month
IF (_p.flcol_priortype = 'P') THEN
SELECT
(CASE WHEN pp.period_name='' THEN
formatdate(pp.period_start) || '-' || formatdate(pp.period_end)
ELSE pp.period_name END) INTO _prmonth
FROM period cp, period pp
WHERE ((cp.period_id=pPeriodId)
AND (cp.period_start > pp.period_start))
ORDER BY pp.period_start DESC LIMIT 1;
ELSE
SELECT
(CASE WHEN pp.period_name='' THEN
formatdate(pp.period_start) || '-' || formatdate(pp.period_end)
ELSE pp.period_name END) INTO _prmonth
FROM period cp, period pp
WHERE ((cp.period_id=pPeriodId)
AND (cp.period_id != pp.period_id)
AND (cp.period_start > pp.period_start)
AND (cp.period_number = pp.period_number))
ORDER BY pp.period_start DESC LIMIT 1;
END IF;
IF _prmonth IS NULL THEN
_prmonth := _err;
END IF;
--...for prior quarter
IF (_p.flcol_priortype='P') THEN
SELECT ('Q' || pp.period_quarter || '-' || EXTRACT(year from yearperiod_end)) INTO _prqtr
FROM period cp, period pp, yearperiod
WHERE ((cp.period_id=pPeriodId)
AND (cp.period_start > pp.period_start)
AND (pp.period_quarter=
CASE WHEN cp.period_quarter > 1 THEN
cp.period_quarter - 1
ELSE 4 END)
AND (pp.period_start >= cp.period_start - interval '1 year')
AND (pp.period_yearperiod_id=yearperiod_id))
ORDER BY pp.period_start DESC LIMIT 1;
ELSE
SELECT
('Q' || pp.period_quarter || '-' || EXTRACT(year from pp.period_start)) INTO _prqtr
FROM period cp, period pp, yearperiod cy, yearperiod py
WHERE ((cp.period_id=pPeriodId)
AND (cp.period_yearperiod_id=cy.yearperiod_id)
AND (pp.period_yearperiod_id=py.yearperiod_id)
AND (cp.period_quarter=pp.period_quarter)
AND (cy.yearperiod_start > py.yearperiod_start))
ORDER BY py.yearperiod_start DESC, pp.period_start DESC LIMIT 1;
END IF;
IF _prqtr IS NULL THEN
_prqtr := _err;
END IF;
--...for prior year
IF (_p.flcol_prioryear='F') THEN
SELECT (EXTRACT(year from py.yearperiod_end)||'') INTO _pryear
FROM period cp, yearperiod cy, yearperiod py
WHERE ((cp.period_id=pPeriodId)
AND (cp.period_yearperiod_id = cy.yearperiod_id)
AND (cy.yearperiod_start > py.yearperiod_start))
ORDER BY py.yearperiod_start DESC LIMIT 1;
ELSE
SELECT
(CASE
WHEN pp.period_name='' THEN
formatdate(pp.period_start) || '-' || formatdate(pp.period_end) || ' YTD'
ELSE pp.period_name || ' YTD'
END) INTO _pryear
FROM period cp, period pp
WHERE ((cp.period_id=pPeriodId)
AND (cp.period_number = pp.period_number)
AND (cp.period_start > pp.period_start))
ORDER BY pp.period_start DESC LIMIT 1;
END IF;
IF _pryear IS NULL THEN
_pryear := _err;
END IF;
-- RETURN RESULTS
SELECT
flhead_id AS flstmthead_flhead_id,
flcol_id AS flstmthead_flcol_id,
pPeriodid AS flstmthead_period,
getEffectiveXtUser() AS flstmthead_username,
CASE
WHEN flhead_type = 'I' THEN 'Income Statement'
WHEN flhead_type = 'B' THEN 'Balance Sheet'
WHEN flhead_type = 'C' THEN 'Cash Flow Statement'
ELSE 'N/A'
END AS flstmthead_flhead_typedescrip1,
CASE
WHEN flhead_type = 'I' THEN 'Income'
WHEN flhead_type = 'B' THEN 'Balance'
WHEN flhead_type = 'C' THEN 'Cash'
ELSE 'N/A'
END AS flstmthead_flhead_typedescrip2,
flhead_name AS flstmthead_flhead_name,
flcol_name AS flstmthead_flcol_name,
_month AS flstmthead_month,
_qtr AS flstmthead_qtr,
_year AS flstmthead_year,
_prmonth AS flstmthead_prmonth,
_prqtr AS flstmthead_prqtr,
_pryear AS flstmthead_pryear INTO _p
FROM flhead,flcol
WHERE ((flcol_id=pFlcolid)
AND (flhead_id=flcol_flhead_id));
_row.flstmthead_flhead_id := _p.flstmthead_flhead_id;
_row.flstmthead_flcol_id := _p.flstmthead_flcol_id;
_row.flstmthead_period_id := _p.flstmthead_period;
_row.flstmthead_username := _p.flstmthead_username;
_row.flstmthead_typedescrip1 := _p.flstmthead_flhead_typedescrip1;
_row.flstmthead_typedescrip2 := _p.flstmthead_flhead_typedescrip2;
_row.flstmthead_flhead_name := _p.flstmthead_flhead_name;
_row.flstmthead_flcol_name := _p.flstmthead_flcol_name;
_row.flstmthead_month := _p.flstmthead_month;
_row.flstmthead_qtr := _p.flstmthead_qtr;
_row.flstmthead_year := _p.flstmthead_year;
_row.flstmthead_prmonth := _p.flstmthead_prmonth;
_row.flstmthead_prqtr := _p.flstmthead_prqtr;
_row.flstmthead_pryear := _p.flstmthead_pryear;
RETURN NEXT _row;
END;
$_$;
ALTER FUNCTION public.getflstmthead(integer, integer) OWNER TO admin;
--
-- Name: getfltrendhead(integer, integer[], character); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getfltrendhead(integer, integer[], character) RETURNS SETOF fltrendhead
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFlheadid ALIAS FOR $1;
pPeriodids ALIAS FOR $2;
pInterval ALIAS FOR $3;
_row fltrendhead%ROWTYPE;
_p RECORD;
_count INTEGER;
_i INTEGER;
_t TEXT;
_fld TEXT[];
_type CHAR;
BEGIN
-- Validate Interval
IF pInterval <> 'M' AND pInterval <> 'Q' AND pInterval <> 'Y' THEN
RAISE EXCEPTION 'Invalid Interval --> %', pInterval;
END IF;
IF ARRAY_UPPER(pPeriodIds,1) <= 12 THEN
_count := ARRAY_UPPER(pPeriodIds,1);
ELSE
_count := 12;
END IF;
SELECT flhead_type INTO _type FROM flhead WHERE flhead_id = pFlheadId;
--get data...
--...for Month
IF (pInterval = 'M') THEN
FOR _i IN 1.._count
LOOP
SELECT
(CASE
WHEN period_name='' THEN
formatdate(period_start) || '-' || formatdate(period_end)
ELSE period_name
END) INTO _t
FROM period
WHERE (period_id=pPeriodIds[_i]);
_fld[_i] := _t;
END LOOP;
--...for Quarter
ELSE IF (pInterval = 'Q') THEN
FOR _i IN 1.._count
LOOP
SELECT
('Q' || period_quarter || '-' || EXTRACT(year from yearperiod_end)) INTO _t
FROM period, yearperiod
WHERE ((period_id=pPeriodIds[_i])
AND (period_yearperiod_id=yearperiod_id));
_fld[_i] := _t;
END LOOP;
--...for Year
ELSE
FOR _i IN 1.._count
LOOP
SELECT (EXTRACT(year from yearperiod_end)||'') INTO _t
FROM period, yearperiod
WHERE ((period_id=pPeriodIds[_i])
AND (period_yearperiod_id=yearperiod_id));
_fld[_i] := _t;
END LOOP;
END IF;
END IF;
-- RETURN RESULTS
SELECT
flhead_id AS fltrendhead_flhead_id,
getEffectiveXtUser() AS fltrendhead_username,
CASE
WHEN flhead_type = 'I' THEN 'Income Statement'
WHEN flhead_type = 'B' THEN 'Balance Sheet'
WHEN flhead_type = 'C' THEN 'Cash Flow Statement'
ELSE 'Ad Hoc'
END AS fltrendhead_flhead_typedescrip,
flhead_name AS fltrendhead_flhead_name INTO _p
FROM flhead
WHERE (flhead_id=pFlheadId);
_row.fltrendhead_flhead_id := _p.fltrendhead_flhead_id;
_row.fltrendhead_username := _p.fltrendhead_username;
_row.fltrendhead_typedescrip := _p.fltrendhead_flhead_typedescrip;
_row.fltrendhead_flhead_name := _p.fltrendhead_flhead_name;
_row.fltrendhead_fld1 := _fld[1];
_row.fltrendhead_fld2 := _fld[2];
_row.fltrendhead_fld3 := _fld[3];
_row.fltrendhead_fld4 := _fld[4];
_row.fltrendhead_fld5 := _fld[5];
_row.fltrendhead_fld6 := _fld[6];
_row.fltrendhead_fld7 := _fld[7];
_row.fltrendhead_fld8 := _fld[8];
_row.fltrendhead_fld9 := _fld[9];
_row.fltrendhead_fld10 := _fld[10];
_row.fltrendhead_fld11 := _fld[11];
_row.fltrendhead_fld12 := _fld[12];
IF (_type IN ('I','C')) THEN
_row.fltrendhead_grndttl := 'Total';
END IF;
RETURN NEXT _row;
END;
$_$;
ALTER FUNCTION public.getfltrendhead(integer, integer[], character) OWNER TO admin;
--
-- Name: getfreightclassid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getfreightclassid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFreightClassCode ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pFreightClassCode IS NULL) THEN
RETURN NULL;
END IF;
SELECT freightclass_id INTO _returnVal
FROM freightclass
WHERE (freightclass_code=pFreightClassCode);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Freight Class % not found.', pFreightClassCode;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getfreightclassid(text) OWNER TO admin;
--
-- Name: getfreighttaxtypeid(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getfreighttaxtypeid() RETURNS integer
LANGUAGE plpgsql IMMUTABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_taxtypeid INTEGER;
BEGIN
SELECT taxtype_id
INTO _taxtypeid
FROM taxtype
WHERE (taxtype_name='Freight');
RETURN _taxtypeid;
END;
$$;
ALTER FUNCTION public.getfreighttaxtypeid() OWNER TO admin;
--
-- Name: getgainlossaccntid(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getgainlossaccntid(integer) RETURNS integer
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAccntId ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF ( (pAccntId = 0) OR (pAccntId IS NULL) ) THEN
RETURN 0;
END IF;
IF (fetchMetricValue('GLCompanySize') = 0) THEN
_returnVal := fetchMetricValue('CurrencyGainLossAccount')::integer;
ELSE
SELECT company_gainloss_accnt_id INTO _returnVal
FROM company
JOIN accnt ON (company_number=accnt_company)
WHERE (accnt_id=pAccntId);
END IF;
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Currency Gain/Loss Account not found for %', formatGlAccountLong(pAccntId);
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getgainlossaccntid(integer) OWNER TO admin;
--
-- Name: getglaccntid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getglaccntid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pGlAccnt ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pGlAccnt IS NULL) THEN
RETURN NULL;
END IF;
SELECT accnt_id INTO _returnVal
FROM accnt
WHERE (formatglaccount(accnt_id)=pGlAccnt);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Account Number % not found.', pGlAccnt;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getglaccntid(text) OWNER TO admin;
--
-- Name: getglaccntid(text, text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getglaccntid(text, text, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCompany ALIAS FOR $1;
pProfit ALIAS FOR $2;
pGlAccnt ALIAS FOR $3;
pSub ALIAS FOR $4;
_account TEXT;
_returnVal INTEGER;
BEGIN
IF (pGlAccnt IS NULL) THEN
RETURN NULL;
END IF;
IF (pCompany is not null) THEN
_account := pCompany || '-';
END IF;
IF (pProfit is not null) THEN
_account := _account || pProfit || '-';
END IF;
IF (pGlAccnt is not null) THEN
if (_account is null) then
_account := pGlAccnt;
else
_account := _account || pGlAccnt;
end if;
END IF;
IF (pSub is not null) THEN
_account := _account || '-' || pSub;
END IF;
SELECT accnt_id INTO _returnVal
FROM accnt
WHERE (formatglaccount(accnt_id)=_account);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Account Number % not found.', _account;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getglaccntid(text, text, text, text) OWNER TO admin;
--
-- Name: getimageid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getimageid(pimagename text) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (COALESCE(TRIM(pImageName), '') = '') THEN
RETURN NULL;
END IF;
SELECT image_id INTO _returnVal
FROM image
WHERE (image_name=pImageName);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Image % not found.', pImageName;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getimageid(pimagename text) OWNER TO admin;
--
-- Name: getincdtcatid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getincdtcatid(pincdtcatname text) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (pIncdtCatName IS NULL) THEN
RETURN NULL;
END IF;
SELECT incdtcat_id INTO _returnVal
FROM incdtcat
WHERE (incdtcat_name=pIncdtCatName);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Incident Category Name % not found.', pIncdtCatName;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getincdtcatid(pincdtcatname text) OWNER TO admin;
--
-- Name: getincdtcrmacctid(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getincdtcrmacctid(pincidentnumber integer) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (pIncidentNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT incdt_crmacct_id INTO _returnVal
FROM incdt
WHERE (incdt_number=pIncidentNumber);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Incident Number % not found.', pIncidentNumber;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getincdtcrmacctid(pincidentnumber integer) OWNER TO admin;
--
-- Name: getincdtpriorityid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getincdtpriorityid(pincdtpriorityname text) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (pIncdtPriorityName IS NULL) THEN
RETURN NULL;
END IF;
SELECT incdtpriority_id INTO _returnVal
FROM incdtpriority
WHERE (incdtpriority_name=pIncdtPriorityName);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Incident Priority Name % not found.', pIncdtPriorityName;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getincdtpriorityid(pincdtpriorityname text) OWNER TO admin;
--
-- Name: getincdtresolutionid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getincdtresolutionid(pincdtresolutionname text) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (pIncdtResolutionName IS NULL) THEN
RETURN NULL;
END IF;
SELECT incdtresolution_id INTO _returnVal
FROM incdtresolution
WHERE (incdtresolution_name=pIncdtResolutionName);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Incident Resolution Name % not found.', pIncdtResolutionName;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getincdtresolutionid(pincdtresolutionname text) OWNER TO admin;
--
-- Name: getincdtseverityid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getincdtseverityid(pincdtseverityname text) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (pIncdtSeverityName IS NULL) THEN
RETURN NULL;
END IF;
SELECT incdtseverity_id INTO _returnVal
FROM incdtseverity
WHERE (incdtseverity_name=pIncdtSeverityName);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Incident Severity Name % not found.', pIncdtSeverityName;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getincdtseverityid(pincdtseverityname text) OWNER TO admin;
--
-- Name: getincidentid(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getincidentid(pincidentnumber integer) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (pIncidentNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT incdt_id INTO _returnVal
FROM incdt
WHERE (incdt_number=pIncidentNumber);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Incident Number % not found.', pIncidentNumber;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getincidentid(pincidentnumber integer) OWNER TO admin;
--
-- Name: getinvcheadid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getinvcheadid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pInvcNumber ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pInvcNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT invchead_id INTO _returnVal
FROM invchead
WHERE (UPPER(invchead_invcnumber)=UPPER(pInvcNumber));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Invoice % not found.', pInvcNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getinvcheadid(text) OWNER TO admin;
--
-- Name: getinvcitemlotserial(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getinvcitemlotserial(integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pInvcitemid ALIAS FOR $1;
_lotserial text;
_r RECORD;
_first BOOLEAN;
_newMethod BOOLEAN;
BEGIN
--Test to see if Lot/Serial Enabled
SELECT metric_value INTO _lotserial
FROM metric
WHERE ((metric_name='LotSerialControl')
AND (metric_value ='t'));
IF (FOUND) THEN
_lotserial := '';
_first := true;
-- Two ways of doing this: old method and new method
-- First, find out if new method employed.
-- (new method is more accurate, but unfortunately no
-- way to migrate or correct old data. Have to keep
-- old method in case someone reprints an old invoice.)
SELECT (COUNT(*) > 0) INTO _newMethod
FROM shipitem
WHERE ((shipitem_invcitem_id=pInvcitemid)
AND (shipitem_invhist_id IS NOT NULL));
IF (_newMethod) THEN
FOR _r IN SELECT DISTINCT ls_number
FROM invdetail, invhist, shipitem, ls
WHERE ((shipitem_invcitem_id=pInvcitemid)
AND (shipitem_invhist_id=invhist_id)
AND (invhist_id=invdetail_invhist_id)
AND (invdetail_ls_id=ls_id)) LOOP
IF (_first = false) THEN
_lotserial := _lotserial || ', ';
END IF;
_lotserial := _lotserial || _r.ls_number;
_first := false;
END LOOP;
RETURN _lotserial;
ELSE
-- Handle it old way
FOR _r IN SELECT DISTINCT ls_number
FROM ls, invdetail JOIN invhist ON (invdetail_invhist_id=invhist_id)
WHERE ((invhist_transtype='SH')
AND (invdetail_invcitem_id=pInvcitemid)
AND (invdetail_ls_id=ls_id)) LOOP
IF (_first = false) THEN
_lotserial := _lotserial || ', ';
END IF;
_lotserial := _lotserial || _r.ls_number;
_first := false;
END LOOP;
RETURN _lotserial;
END IF;
ELSE
RETURN '';
END IF;
END
$_$;
ALTER FUNCTION public.getinvcitemlotserial(integer) OWNER TO admin;
--
-- Name: getipsheadid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getipsheadid(pipsname text) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (pIpsName IS NULL) THEN
RETURN NULL;
END IF;
SELECT ipshead_id INTO _returnVal
FROM ipshead
WHERE (ipshead_name=pIpsName);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Pricing Schedule % not found.', pIpsName;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getipsheadid(pipsname text) OWNER TO admin;
--
-- Name: getipsitemid(text, text, numeric, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getipsitemid(pipsname text, pitemnumber text, pqtybreak numeric, pqtyuom text, ppriceuom text) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (pIpsName IS NULL AND pItemNumber IS NULL AND pQtyBreak IS NULL AND pQtyUom IS NULL AND pPriceUom IS NULL) THEN
RETURN NULL;
END IF;
SELECT ipsitem_id INTO _returnVal
FROM ipsiteminfo
WHERE ((ipsitem_ipshead_id=getIpsheadId(pIpsName))
AND (ipsitem_item_id=getItemId(pItemNumber))
AND (ipsitem_qtybreak=pQtyBreak)
AND (ipsitem_qty_uom_id=getUomId(pQtyUom))
AND (ipsitem_price_uom_id=getUomId(pPriceUom)));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Pricing Schedule Item for Schedule %, Item %,Qt Break %,Qty UOM %, Price UOM % not found.',
pIpsName, pItemNumber, pQtyBreak, pQtyUom, pPriceUom;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getipsitemid(pipsname text, pitemnumber text, pqtybreak numeric, pqtyuom text, ppriceuom text) OWNER TO admin;
--
-- Name: getipsprodcatid(text, text, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getipsprodcatid(pipsname text, pprodcat text, pqtybreak numeric) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (pIpsName IS NULL AND pProdCat IS NULL AND pQtyBreak IS NULL) THEN
RETURN NULL;
END IF;
SELECT ipsitem_id INTO _returnVal
FROM ipsiteminfo
WHERE ((ipsitem_ipshead_id=getIpsheadId(pIpsName))
AND (ipsitem_prodcat_id=getProdcatId(pProdCat))
AND (ipsitem_qtybreak=pQtyBreak));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Pricing Schedule Product Category for Schedule %, Product Category %,Qt Break % not found.',
pIpsName, pProdCat, pQtyBreak;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getipsprodcatid(pipsname text, pprodcat text, pqtybreak numeric) OWNER TO admin;
--
-- Name: getitemid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getitemid(text) RETURNS integer
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemNumber ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pItemNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT item_id INTO _returnVal
FROM item
WHERE (item_number=UPPER(pItemNumber));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Item % not found.', pItemNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getitemid(text) OWNER TO admin;
--
-- Name: getitemidfromupc(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getitemidfromupc(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemUPC ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pItemUPC IS NULL) THEN
RETURN NULL;
END IF;
SELECT item_id INTO _returnVal
FROM item
WHERE (item_upccode=UPPER(pItemUPC));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Item % not found.', pItemUPC;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getitemidfromupc(text) OWNER TO admin;
--
-- Name: getitemsiteid(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getitemsiteid(text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWarehouseCode ALIAS FOR $1;
pItemNumber ALIAS FOR $2;
_returnVal INTEGER;
BEGIN
SELECT getItemsiteId(pWarehouseCode,pItemNumber,'ALL') INTO _returnVal;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getitemsiteid(text, text) OWNER TO admin;
--
-- Name: getitemsiteid(text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getitemsiteid(text, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWarehouseCode ALIAS FOR $1;
pItemNumber ALIAS FOR $2;
pType ALIAS FOR $3;
_type TEXT;
_p RECORD;
BEGIN
IF ((pWarehouseCode IS NULL) OR (pItemNumber IS NULL)) THEN
RETURN NULL;
END IF;
IF UPPER(pType) NOT IN ('ALL','ACTIVE','SOLD') THEN
RAISE EXCEPTION 'Invalid Type %. Valid Itemsite types are ALL and SOLD', pType;
END IF;
SELECT * INTO _p
FROM itemsite, item
WHERE ((itemsite_item_id=item_id)
AND (itemsite_warehous_id=getWarehousId(pWarehouseCode,'ALL'))
AND (item_number=UPPER(pItemNumber)));
IF NOT (FOUND) THEN
RAISE EXCEPTION 'Item % not found in Warehouse %', pItemNumber, pWarehouseCode;
ELSIF ((UPPER(pType)='ACTIVE') OR (UPPER(pType)='SOLD')) THEN
IF NOT (_p.item_active) THEN
RAISE EXCEPTION 'Item % is inactive.', pItemNumber;
ELSE
IF NOT (_p.itemsite_active) THEN
RAISE EXCEPTION 'Item % is inactive in Warehouse %', pItemNumber, pWarehouseCode;
ELSE
IF ((UPPER(pType)='SOLD') AND NOT _p.item_sold) THEN
RAISE EXCEPTION 'Item % is not sold', pItemNumber;
ELSE
IF ((UPPER(pType)='SOLD') AND NOT _p.itemsite_sold) THEN
RAISE EXCEPTION 'Item % is not sold from Warehouse %', pItemNumber, pWarehouseCode;
END IF;
END IF;
END IF;
END IF;
END IF;
RETURN _p.itemsite_id;
END;
$_$;
ALTER FUNCTION public.getitemsiteid(text, text, text) OWNER TO admin;
--
-- Name: getitemsrcid(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getitemsrcid(text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemNumber ALIAS FOR $1;
pVendNumber ALIAS FOR $2;
_returnVal INTEGER;
BEGIN
IF ((pItemNumber IS NULL) OR (pVendNumber IS NULL)) THEN
RETURN NULL;
END IF;
SELECT itemsrc_id INTO _returnVal
FROM itemsrc
WHERE ((itemsrc_item_id=getItemId(pItemNumber))
AND (itemsrc_vend_id=getVendId(pVendNumber)));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Item Source Item % Vendor % not found.', pItemNumber,pVendNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getitemsrcid(text, text) OWNER TO admin;
--
-- Name: getlasttrialbalid(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getlasttrialbalid(integer, integer) RETURNS integer
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAccntId ALIAS FOR $1;
pPeriodId ALIAS FOR $2;
_p RECORD;
_accntType TEXT;
_result NUMERIC;
BEGIN
SELECT period_end,period_yearperiod_id INTO _p
FROM period
WHERE period_id=pPeriodId;
SELECT accnt_type INTO _accntType
FROM accnt
WHERE accnt_id=pAccntId;
IF (_accntType IN ('R','E')) THEN
SELECT trialbal_id INTO _result
FROM trialbal
WHERE ((trialbal_accnt_id=pAccntId)
AND (trialbal_period_id=pPeriodId));
ELSE
SELECT trialbal_id INTO _result
FROM (SELECT trialbal_id
FROM trialbal,period
WHERE ((trialbal_accnt_id=pAccntId)
AND (trialbal_period_id=period_id)
AND (period_end <= _p.period_end)
AND (period_yearperiod_id=_p.period_yearperiod_id))
ORDER BY period_end DESC) AS data;
END IF;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.getlasttrialbalid(integer, integer) OWNER TO admin;
--
-- Name: getlocationid(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getlocationid(text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWarehouse ALIAS FOR $1;
pLocation ALIAS FOR $2;
_returnVal INTEGER;
BEGIN
IF (pLocation IS NULL) THEN
RETURN NULL;
END IF;
SELECT location_id INTO _returnVal
FROM location
WHERE ((location_warehous_id=getWarehousId(pWarehouse,'ACTIVE'))
AND (formatLocationname(location_id)=pLocation))
LIMIT 1;
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Location % not found in Warehouse %.', pLocation, pWarehouse;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getlocationid(text, text) OWNER TO admin;
--
-- Name: getlotserialid(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getlotserialid(text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemNumber ALIAS FOR $1;
pLotSerialNumber ALIAS FOR $2;
_returnVal INTEGER;
BEGIN
IF ((pItemNumber IS NULL) OR (pLotSerialNumber IS NULL) OR (pLotSerialNumber='')) THEN
RETURN NULL;
END IF;
SELECT ls_id INTO _returnVal
FROM ls
WHERE ((ls_item_id=getItemId(pItemNumber))
AND (UPPER(ls_number)=UPPER(pLotSerialNumber)));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'LotSerial % not found.', pLotSerialNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getlotserialid(text, text) OWNER TO admin;
--
-- Name: getopheadid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getopheadid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pOpHeadName ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pOpHeadName IS NULL) THEN
RETURN NULL;
END IF;
SELECT ophead_id INTO _returnVal
FROM ophead
WHERE (UPPER(ophead_name)=UPPER(pOpHeadName));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Opportunity % not found.', pOpHeadName;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getopheadid(text) OWNER TO admin;
--
-- Name: getpacklistcharname(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getpacklistcharname(integer, integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pShipheadId ALIAS FOR $1;
pOrderItemId ALIAS FOR $2;
_charname text;
_r RECORD;
_first BOOLEAN;
BEGIN
-- If transfer order, get out
SELECT shiphead_order_type INTO _r
FROM shiphead
WHERE ((shiphead_id=pShipheadId)
AND (shiphead_order_type='TO'));
IF (FOUND) THEN
RETURN '';
END IF;
_charname := '';
_first := true;
FOR _r IN SELECT char_name
FROM char, charass
WHERE ((char_id=charass_char_id)
AND (charass_target_type='SI')
AND (charass_target_id=pOrderItemId))
LOOP
IF (_first = false) THEN
_charname := _charname || '
';
END IF;
_charname := _charname || _r.char_name;
_first := false;
END LOOP;
RETURN _charname;
END
$_$;
ALTER FUNCTION public.getpacklistcharname(integer, integer) OWNER TO admin;
--
-- Name: getpacklistcharvalue(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getpacklistcharvalue(integer, integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pShipheadId ALIAS FOR $1;
pOrderItemId ALIAS FOR $2;
_charval text;
_r RECORD;
_first BOOLEAN;
BEGIN
-- If transfer order, get out
SELECT shiphead_order_type INTO _r
FROM shiphead
WHERE ((shiphead_id=pShipheadId)
AND (shiphead_order_type='TO'));
IF (FOUND) THEN
RETURN '';
END IF;
_charval := '';
_first := true;
FOR _r IN SELECT charass_value
FROM char, charass
WHERE ((char_id=charass_char_id)
AND (charass_target_type='SI')
AND (charass_target_id=pOrderItemId))
LOOP
IF (_first = false) THEN
_charval := _charval || '
';
END IF;
_charval := _charval || _r.charass_value;
_first := false;
END LOOP;
RETURN _charval;
END
$_$;
ALTER FUNCTION public.getpacklistcharvalue(integer, integer) OWNER TO admin;
--
-- Name: getpacklistitemlotserial(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getpacklistitemlotserial(integer, integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pShipheadId ALIAS FOR $1;
pOrderItemId ALIAS FOR $2;
_lotserial text;
_r RECORD;
_first BOOLEAN;
BEGIN
--Test to see if Lot/Serial Enabled
SELECT metric_value INTO _lotserial
FROM metric
WHERE ((metric_name='LotSerialControl')
AND (metric_value ='t'));
IF (FOUND) THEN
_lotserial := '';
_first := true;
FOR _r IN SELECT DISTINCT ls_number
FROM invdetail, invhist, shipitem, ls
WHERE ((shipitem_shiphead_id=pShipheadId)
AND (shipitem_orderitem_id=pOrderItemId)
AND (shipitem_invhist_id=invhist_id)
AND (invhist_id=invdetail_invhist_id)
AND (invdetail_ls_id=ls_id)) LOOP
IF (_first = false) THEN
_lotserial := _lotserial || ', ';
END IF;
_lotserial := _lotserial || _r.ls_number;
_first := false;
END LOOP;
RETURN _lotserial;
ELSE
RETURN '';
END IF;
END
$_$;
ALTER FUNCTION public.getpacklistitemlotserial(integer, integer) OWNER TO admin;
--
-- Name: getperiodid(integer, character); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getperiodid(integer, character) RETURNS SETOF integer
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPeriodId ALIAS FOR $1;
pInterval ALIAS FOR $2;
_x RECORD;
BEGIN
-- Validate Interval
IF pInterval <> 'M' AND pInterval <> 'Q' AND pInterval <> 'Y' THEN
RAISE EXCEPTION 'Invalid Interval --> %', pInterval;
END IF;
IF pInterval='M' THEN
RETURN NEXT pPeriodId;
ELSE IF pInterval='Q' THEN
FOR _x IN SELECT qp.period_id AS period_id
FROM period cp, period qp
WHERE ((cp.period_id=pPeriodId)
AND (cp.period_yearperiod_id=qp.period_yearperiod_id)
AND (cp.period_quarter=qp.period_quarter)
AND (cp.period_start>=qp.period_start))
ORDER BY qp.period_start
LOOP
RETURN NEXT _x.period_id;
END LOOP;
ELSE
FOR _x IN SELECT yp.period_id AS period_id
FROM period cp, period yp
WHERE ((cp.period_id=pPeriodId)
AND (cp.period_yearperiod_id=yp.period_yearperiod_id)
AND (cp.period_start>=yp.period_start))
ORDER BY yp.period_start
LOOP
RETURN NEXT _x.period_id;
END LOOP;
END IF;
END IF;
RETURN;
END;
$_$;
ALTER FUNCTION public.getperiodid(integer, character) OWNER TO admin;
--
-- Name: getperiodid(date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getperiodid(date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPeriodDate ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pPeriodDate IS NULL) THEN
RETURN NULL;
END IF;
SELECT period_id INTO _returnVal
FROM period
WHERE ((pPeriodDate) between period_start AND period_end);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Period for % not found.', pPeriodDate;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getperiodid(date) OWNER TO admin;
--
-- Name: getpkgheadid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getpkgheadid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
ppkgname ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (ppkgname IS NULL) THEN
RETURN NULL;
END IF;
SELECT pkghead_id INTO _returnVal
FROM pkghead
WHERE (UPPER(pkghead_name)=UPPER(ppkgname));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Package % not found.', ppkgname;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getpkgheadid(text) OWNER TO admin;
--
-- Name: getplancodeid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getplancodeid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPlanCode ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pPlanCode IS NULL) THEN
RETURN NULL;
END IF;
SELECT plancode_id INTO _returnVal
FROM plancode
WHERE (plancode_code=pPlanCode);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Plan Code % not found.', pPlanCode;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getplancodeid(text) OWNER TO admin;
--
-- Name: getpoheadid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getpoheadid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPurchaseOrderNumber ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pPurchaseOrderNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT pohead_id INTO _returnVal
FROM pohead
WHERE (pohead_number=pPurchaseOrderNumber);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Purchase Order % not found.', pPurchaseOrderNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getpoheadid(text) OWNER TO admin;
--
-- Name: getpoitemid(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getpoitemid(text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPurchaseOrderNumber ALIAS FOR $1;
pLineNumber ALIAS FOR $2;
_returnVal INTEGER;
BEGIN
IF (pPurchaseOrderNumber IS NULL OR pLineNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT poitem_id INTO _returnVal
FROM pohead, poitem
WHERE ((pohead_number=pPurchaseOrderNumber)
AND (poitem_pohead_id=pohead_id)
AND (poitem_linenumber=pLineNumber));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Purchase Order % not found.', pSalesOrderNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getpoitemid(text, integer) OWNER TO admin;
--
-- Name: getprjaccntid(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getprjaccntid(integer, integer) RETURNS integer
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPrjid ALIAS FOR $1;
pAccntid ALIAS FOR $2;
BEGIN
-- Project Accounting is required to fully implement this functionality
RETURN pAccntId;
END;
$_$;
ALTER FUNCTION public.getprjaccntid(integer, integer) OWNER TO admin;
--
-- Name: getprjid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getprjid(pprjnumber text) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (pPrjNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT prj_id INTO _returnVal
FROM prj
WHERE (prj_number=pPrjNumber);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Project Number % not found.', pPrjNumber;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getprjid(pprjnumber text) OWNER TO admin;
--
-- Name: getprjtaskid(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getprjtaskid(pprjnumber text, ptasknumber text) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (pPrjNumber IS NULL OR pTaskNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT prjtask_id INTO _returnVal
FROM prjtask
JOIN prj ON (prj_id=prjtask_prj_id)
WHERE ((prj_number=pPrjNumber)
AND (prjtask_number=pTaskNumber));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Project Task Number %-% not found.', pPrjNumber, pTaskNumber;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getprjtaskid(pprjnumber text, ptasknumber text) OWNER TO admin;
--
-- Name: getprodcatid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getprodcatid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pProdCat ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pProdCat IS NULL) THEN
RETURN NULL;
END IF;
SELECT prodcat_id INTO _returnVal
FROM prodcat
WHERE (prodcat_code=pProdCat);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Product Category % not found.', pProdCat;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getprodcatid(text) OWNER TO admin;
--
-- Name: getprospectid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getprospectid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pProspectNumber ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pProspectNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT prospect_id INTO _returnVal
FROM prospect
WHERE(UPPER(prospect_number)=UPPER(pProspectNumber));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Prospect Number % found.', pProspectNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getprospectid(text) OWNER TO admin;
--
-- Name: getquoteid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getquoteid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pQuoteNumber ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pQuoteNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT quhead_id INTO _returnVal
FROM quhead
WHERE (quhead_number=pQuoteNumber);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Quote Number % not found.', pQuoteNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getquoteid(text) OWNER TO admin;
--
-- Name: getquotelineitemid(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getquotelineitemid(text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pQuoteNumber ALIAS FOR $1;
pLineNumber ALIAS FOR $2;
_returnVal INTEGER;
BEGIN
IF ((pQuoteNumber IS NULL) OR (pLineNumber IS NULL)) THEN
RETURN NULL;
END IF;
SELECT quitem_id INTO _returnVal
FROM quhead, quitem
WHERE ((quhead_number=pQuoteNumber)
AND (quhead_id=quitem_quhead_id)
AND (quitem_linenumber=pLineNumber));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Quote Line Item %-%not found.', pQuoteNumber,pLineNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getquotelineitemid(text, integer) OWNER TO admin;
--
-- Name: getrevid(text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getrevid(text, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pType ALIAS FOR $1;
pItemNumber ALIAS FOR $2;
pRevision ALIAS FOR $3;
_returnVal INTEGER;
BEGIN
IF (pItemNumber IS NULL) THEN
RETURN NULL;
END IF;
IF (NOT fetchMetricBool('RevControl')) THEN
RETURN -1;
ELSIF ( (pRevision IS NULL) OR (LENGTH(pRevision)=0) ) THEN
SELECT getActiveRevId(pType, getItemId(pItemNumber)) INTO _returnVal;
ELSE
IF (pType='BOM') THEN
SELECT rev_id INTO _returnVal
FROM item, bomhead, rev
WHERE ((item_id=bomhead_item_id)
AND (bomhead_rev_id=rev_id)
AND (UPPER(item_number)=UPPER(pItemNumber))
AND (rev_number=pRevision));
ELSIF (pType='BOO') THEN
SELECT rev_id INTO _returnVal
FROM item, xtmfg.boohead, rev
WHERE ((item_id=boohead_item_id)
AND (boohead_rev_id=rev_id)
AND (UPPER(item_number)=UPPER(pItemNumber))
AND (rev_number=pRevision));
ELSE
RAISE EXCEPTION 'Invalid Revision Type.';
END IF;
END IF;
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION '% revision % for % not found.', pType, pRevision, pItemNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getrevid(text, text, text) OWNER TO admin;
--
-- Name: getrsnid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getrsnid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pRsnCode ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pRsnCode IS NULL) THEN
RETURN NULL;
END IF;
SELECT rsncode_id INTO _returnVal
FROM rsncode
WHERE (rsncode_code=pRsnCode);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Reason Code % not found.', pRsnCode;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getrsnid(text) OWNER TO admin;
--
-- Name: getsalescatid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getsalescatid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSalesCatName ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pSalesCatName IS NULL) THEN
RETURN NULL;
END IF;
SELECT salescat_id INTO _returnVal
FROM salescat
WHERE (salescat_name=pSalesCatName);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Sales Category % not found.', pSalesCatName;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getsalescatid(text) OWNER TO admin;
--
-- Name: getsaleslineitemid(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getsaleslineitemid(text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN getSalesLineItemId($1, $2, 0);
END
$_$;
ALTER FUNCTION public.getsaleslineitemid(text, integer) OWNER TO admin;
--
-- Name: getsaleslineitemid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getsaleslineitemid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSalesOrderItem ALIAS FOR $1;
_delpos INTEGER = 0;
_order TEXT;
_part TEXT;
_ln INTEGER;
_sn INTEGER;
BEGIN
IF (pSalesOrderItem IS NULL) THEN
RETURN NULL;
END IF;
_delpos := strpos(pSalesOrderItem, '-');
IF (_delpos > 0) THEN
_order := substr(pSalesOrderItem, 1, (_delpos - 1));
_part := substr(pSalesOrderItem, (_delpos + 1));
_delpos := strpos(_part, '.');
IF (_delpos > 0) THEN
_ln := CAST(substr(_part, 1, (_delpos - 1)) AS INTEGER);
_sn := CAST(substr(_part, (_delpos + 1)) AS INTEGER);
ELSE
_ln := CAST(_part AS INTEGER);
_sn := 0;
END IF;
RETURN getSalesLineItemId( _order, _ln, _sn );
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.getsaleslineitemid(text) OWNER TO admin;
--
-- Name: getsaleslineitemid(text, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getsaleslineitemid(text, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSalesOrderNumber ALIAS FOR $1;
pLineNumber ALIAS FOR $2;
pSubNumber ALIAS FOR $3;
_returnVal INTEGER;
BEGIN
IF ((pSalesOrderNumber IS NULL) OR (pLineNumber IS NULL)) THEN
RETURN NULL;
END IF;
SELECT coitem_id INTO _returnVal
FROM cohead, coitem
WHERE ((cohead_number=pSalesOrderNumber)
AND (cohead_id=coitem_cohead_id)
AND (coitem_linenumber=pLineNumber)
AND (coitem_subnumber=pSubNumber));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Sales Line Item %-%not found.', pSalesOrderNumber,pLineNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getsaleslineitemid(text, integer, integer) OWNER TO admin;
--
-- Name: getsalesorderid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getsalesorderid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSalesOrderNumber ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pSalesOrderNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT cohead_id INTO _returnVal
FROM cohead
WHERE (cohead_number=pSalesOrderNumber);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Sales Order Number % not found.', pSalesOrderNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getsalesorderid(text) OWNER TO admin;
--
-- Name: getsalesrepid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getsalesrepid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSalesRepNumber ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pSalesRepNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT salesrep_id INTO _returnVal
FROM salesrep
WHERE (salesrep_number=pSalesRepNumber);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Sales Rep Number % not found.', pSalesRepNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getsalesrepid(text) OWNER TO admin;
--
-- Name: getsaletypeid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getsaletypeid(psaletype text) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (pSaleType IS NULL) THEN
RETURN NULL;
END IF;
SELECT saletype_id INTO _returnVal
FROM saletype
WHERE (saletype_code=UPPER(pSaleType));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Sale Type % not found.', pSaleType;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getsaletypeid(psaletype text) OWNER TO admin;
--
-- Name: getshiftid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getshiftid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pShiftNumber ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (COALESCE(TRIM(pShiftNumber), '') = '') THEN
RETURN NULL;
END IF;
SELECT shift_id INTO _returnVal
FROM shift
WHERE (UPPER(shift_number)=UPPER(pShiftNumber));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Shift % not found.', pShiftNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getshiftid(text) OWNER TO admin;
--
-- Name: getshipchrgid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getshipchrgid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pShipChrgName ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pShipChrgName IS NULL) THEN
RETURN NULL;
END IF;
SELECT shipchrg_id INTO _returnVal
FROM shipchrg
WHERE (shipchrg_name=pShipChrgName);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Ship Charge % not found.', pShipChrgName;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getshipchrgid(text) OWNER TO admin;
--
-- Name: getshipformid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getshipformid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pShipFormName ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pShipFormName IS NULL) THEN
RETURN NULL;
END IF;
SELECT shipform_id INTO _returnVal
FROM shipform
WHERE (shipform_name=pShipFormName) LIMIT 1;
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Ship Form % not found.', pShipFormName;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getshipformid(text) OWNER TO admin;
--
-- Name: getshipheadid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getshipheadid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pShipmentNumber ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pShipmentNumber IS NULL OR pShipmentNumber = '') THEN
RETURN NULL;
END IF;
SELECT shiphead_id INTO _returnVal
FROM shiphead
WHERE (shiphead_number=pShipmentNumber);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Shipment % not found.', pShipmentNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getshipheadid(text) OWNER TO admin;
--
-- Name: getshiptoid(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getshiptoid(text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustNumber ALIAS FOR $1;
pShiptoNumber ALIAS FOR $2;
_returnVal INTEGER;
BEGIN
IF ((pCustNumber IS NULL) OR (pShiptoNumber IS NULL)) THEN
RETURN NULL;
END IF;
SELECT shipto_id INTO _returnVal
FROM shiptoinfo
WHERE ((shipto_cust_id=getCustId(pCustNumber,true))
AND (UPPER(shipto_num)=UPPER(pShiptoNumber)));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Shipto % not found.', pShiptoNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getshiptoid(text, text) OWNER TO admin;
--
-- Name: getshiptonumberfrominfo(text, text, text, text, text, text, text, text, text, text, text, text, text, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getshiptonumberfrominfo(text, text, text, text, text, text, text, text, text, text, text, text, text, boolean, boolean) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_custname TEXT := COALESCE(TRIM(UPPER( $1)), '');
_email TEXT := COALESCE(TRIM(UPPER( $2)), '');
_company TEXT := COALESCE(TRIM(UPPER( $3)), '');
_first TEXT := COALESCE(TRIM(UPPER( $4)), '');
_last TEXT := COALESCE(TRIM(UPPER( $5)), '');
_fullname TEXT := COALESCE(TRIM(UPPER( $6)), '');
_addr1 TEXT := COALESCE(TRIM(UPPER( $7)), '');
_addr2 TEXT := COALESCE(TRIM(UPPER( $8)), '');
_addr3 TEXT := COALESCE(TRIM(UPPER( $9)), '');
_city TEXT := COALESCE(TRIM(UPPER($10)), '');
_state TEXT := COALESCE(TRIM(UPPER($11)), '');
_postalcode TEXT := COALESCE(TRIM(UPPER($12)), '');
_country TEXT := COALESCE(TRIM(UPPER($13)), '');
_generate BOOLEAN := COALESCE($14, FALSE);
_create BOOLEAN := COALESCE($15, FALSE);
_citytrunc TEXT;
_counter INTEGER;
_custid INTEGER;
_custnumber TEXT;
_candidate TEXT;
_r RECORD;
_statetrunc TEXT;
BEGIN
IF (_custname = '') THEN
_custname := getCustNameFromInfo(_email, _company, _first, _last,
_fullname, FALSE);
END IF;
SELECT COUNT(*) INTO _counter
FROM custinfo, shiptoinfo, addr
WHERE ((UPPER(cust_name)=UPPER(_custname))
AND UPPER(shipto_name)=UPPER(_fullname)
AND (cust_id=shipto_cust_id)
AND (shipto_addr_id=addr_id));
IF (_counter = 1) THEN
SELECT shipto_num INTO _candidate
FROM custinfo, shiptoinfo, addr
WHERE ((UPPER(cust_name)=UPPER(_custname))
AND UPPER(shipto_name)=UPPER(_fullname)
AND (cust_id=shipto_cust_id)
AND (shipto_addr_id=addr_id));
RETURN _candidate;
ELSE
SELECT COUNT(*) INTO _counter
FROM custinfo, shiptoinfo, addr
WHERE ((UPPER(cust_name)=UPPER(_custname))
AND (cust_id=shipto_cust_id)
AND (shipto_addr_id=addr_id));
IF (_counter = 1) THEN
SELECT shipto_num INTO _candidate
FROM custinfo, shiptoinfo, addr
WHERE ((UPPER(cust_name)=UPPER(_custname))
AND (cust_id=shipto_cust_id)
AND (shipto_addr_id=addr_id));
RETURN _candidate;
ELSIF (_counter > 1) THEN
SELECT shipto_num,
CASE WHEN (UPPER(addr_country) = _country) THEN 1 ELSE 0 END +
CASE WHEN (UPPER(addr_postalcode) = _postalcode) THEN 1 ELSE 0 END +
CASE WHEN (UPPER(addr_state) = _state) THEN 1 ELSE 0 END +
CASE WHEN (UPPER(addr_city) = _city) THEN 1 ELSE 0 END +
CASE WHEN (UPPER(addr_line3) = _addr3) THEN 1 ELSE 0 END +
CASE WHEN (UPPER(addr_line2) = _addr2) THEN 1 ELSE 0 END +
CASE WHEN (UPPER(addr_line1) = _addr1) THEN 1 ELSE 0 END
AS maxquotient INTO _candidate, _counter
FROM custinfo, shiptoinfo, addr
WHERE ((UPPER(cust_name)=_custname)
AND (cust_id=shipto_cust_id)
AND (shipto_addr_id=addr_id))
ORDER BY maxquotient desc
LIMIT 1;
RETURN _candidate;
END IF;
END IF;
IF (_generate) THEN
SELECT cust_number, cust_id INTO _custnumber, _custid
FROM custinfo
WHERE (UPPER(cust_name)=_custname);
-- keep the number short
_citytrunc := SUBSTRING(_city FOR 5);
_statetrunc := SUBSTRING(_state FOR 5);
IF (LENGTH(_citytrunc) > 0 AND NOT EXISTS(SELECT UPPER(shipto_num)
FROM shiptoinfo
WHERE ((shipto_cust_id=_custid)
AND (UPPER(shipto_num)=_citytrunc)) )) THEN
_candidate := _citytrunc;
ELSIF (LENGTH(_last || _citytrunc) > 0 AND NOT EXISTS(SELECT UPPER(shipto_num)
FROM shiptoinfo
WHERE ((shipto_cust_id=_custid)
AND (UPPER(shipto_num)=_last || _citytrunc)) )) THEN
_candidate := _last || _citytrunc;
ELSIF (LENGTH(_statetrunc) > 0 AND NOT EXISTS(SELECT UPPER(shipto_num)
FROM shiptoinfo
WHERE ((shipto_cust_id=_custid)
AND (UPPER(shipto_num)=_statetrunc)) )) THEN
_candidate := _statetrunc;
ELSIF (LENGTH(_last || _statetrunc) > 0 AND NOT EXISTS(SELECT UPPER(shipto_num)
FROM shiptoinfo
WHERE ((shipto_cust_id=_custid)
AND (UPPER(shipto_num)=_last || _statetrunc)) )) THEN
_candidate := _last || _statetrunc;
ELSIF (LENGTH(_citytrunc || _statetrunc) > 0 AND NOT EXISTS(SELECT UPPER(shipto_num)
FROM shiptoinfo
WHERE ((shipto_cust_id=_custid)
AND (UPPER(shipto_num)=_citytrunc || _statetrunc)) )) THEN
_candidate := _citytrunc || _statetrunc;
ELSE
SELECT CAST(COALESCE(MAX(CAST(shipto_num AS INTEGER)), 0) + 1 AS TEXT)
INTO _candidate
FROM shiptoinfo
WHERE ((shipto_cust_id=_custid)
AND (shipto_num~'^[0-9]*$'));
END IF;
IF (_create) THEN
INSERT INTO api.custshipto (
customer_number, shipto_number, name,
address1, address2, address3,
city, state, postal_code, country, address_change,
first, last, email,
edi_profile
) VALUES (
_custnumber, _candidate, _candidate,
_addr1, _addr2, _addr3,
_city, _state, _postalcode, _country, 'CHANGEONE',
_first, _last, LOWER(_email),
'No EDI'
);
END IF;
RETURN _candidate;
END IF;
RETURN '';
END;
$_$;
ALTER FUNCTION public.getshiptonumberfrominfo(text, text, text, text, text, text, text, text, text, text, text, text, text, boolean, boolean) OWNER TO admin;
--
-- Name: getshipviaid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getshipviaid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pShipViaCode ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pShipViaCode IS NULL) THEN
RETURN NULL;
END IF;
SELECT shipvia_id INTO _returnVal
FROM shipvia
WHERE (shipvia_code=pShipViaCode);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'ShipVia Code % not found.', pShipViaCode;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getshipviaid(text) OWNER TO admin;
--
-- Name: getshipzoneid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getshipzoneid(pshipzonename text) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
IF (pShipZoneName IS NULL) THEN
RETURN NULL;
END IF;
SELECT shipzone_id INTO _returnVal
FROM shipzone
WHERE (shipzone_name=pShipZoneName);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Ship Zone % not found.', pShipZoneName;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getshipzoneid(pshipzonename text) OWNER TO admin;
--
-- Name: getsitetypeid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getsitetypeid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSiteType ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pSiteType IS NULL) THEN
RETURN NULL;
END IF;
SELECT sitetype_id INTO _returnVal
FROM sitetype
WHERE (sitetype_name=pSiteType);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Site Type % not found.', pSiteType;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getsitetypeid(text) OWNER TO admin;
--
-- Name: getsoscheddate(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getsoscheddate(integer) RETURNS date
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCoheadid ALIAS FOR $1;
_minscheddate DATE;
BEGIN
SELECT MIN(coitem_scheddate) INTO _minscheddate
FROM coitem
WHERE ( (coitem_cohead_id=pCoheadid)
AND (coitem_status NOT IN ('C', 'X')) );
RETURN _minscheddate;
END;
$_$;
ALTER FUNCTION public.getsoscheddate(integer) OWNER TO admin;
--
-- Name: getsostatus(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getsostatus(integer) RETURNS character
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCoheadid ALIAS FOR $1;
_result char(1);
BEGIN
SELECT cohead_status INTO _result
FROM cohead
WHERE (cohead_id=pCoheadid);
RETURN _result;
END;
$_$;
ALTER FUNCTION public.getsostatus(integer) OWNER TO admin;
--
-- Name: getsubtax(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getsubtax(integer, integer) RETURNS SETOF subtax
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTaxCodeId ALIAS FOR $1;
pLevel ALIAS FOR $2;
_row subtax%ROWTYPE;
_x RECORD;
_y RECORD;
BEGIN
FOR _x IN --Select all tax codes whose calculation basis is pTaxCodeId
SELECT tax_id, tax_code, tax_descrip
FROM tax
WHERE tax_basis_tax_id = pTaxCodeId
LOOP
_row.subtax_taxcode_id := _x.tax_id;
_row.subtax_taxcode_code := _x.tax_code;
_row.subtax_taxcode_descrip := _x.tax_descrip;
_row.subtax_taxcode_level := pLevel + 1;
RETURN NEXT _row;
FOR _y IN SELECT * from getSubTax(_x.tax_id, pLevel + 1) --This is the recursive part.
LOOP
_row.subtax_taxcode_id := _y.subtax_taxcode_id;
_row.subtax_taxcode_code := _y.subtax_taxcode_code ;
_row.subtax_taxcode_descrip := _y.subtax_taxcode_descrip;
_row.subtax_taxcode_level := pLevel + 2;
RETURN NEXT _row;
END LOOP;
END LOOP;
END;
$_$;
ALTER FUNCTION public.getsubtax(integer, integer) OWNER TO admin;
--
-- Name: gettaxauthid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION gettaxauthid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTaxAuthCode ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pTaxAuthCode IS NULL) THEN
RETURN NULL;
END IF;
SELECT taxauth_id INTO _returnVal
FROM taxauth
WHERE (taxauth_code=pTaxAuthCode);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Tax Authority % not found.', pTaxAuthCode;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.gettaxauthid(text) OWNER TO admin;
--
-- Name: gettaxid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION gettaxid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTaxCode ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pTaxCode IS NULL) THEN
RETURN NULL;
END IF;
SELECT tax_id INTO _returnVal
FROM tax
WHERE (tax_code=pTaxCode);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Tax Code % not found.', pTaxCode;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.gettaxid(text) OWNER TO admin;
--
-- Name: gettaxtypeid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION gettaxtypeid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTaxType ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pTaxType IS NULL) THEN
RETURN NULL;
END IF;
SELECT taxtype_id INTO _returnVal
FROM taxtype
WHERE (taxtype_name=pTaxType);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Tax Type % not found.', pTaxType;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.gettaxtypeid(text) OWNER TO admin;
--
-- Name: gettaxzoneid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION gettaxzoneid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTaxZone ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pTaxZone IS NULL) THEN
RETURN NULL;
END IF;
SELECT taxzone_id INTO _returnVal
FROM taxzone
WHERE (taxzone_code=pTaxZone);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Tax Zone % not found.', pTaxZone;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.gettaxzoneid(text) OWNER TO admin;
--
-- Name: gettermsid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION gettermsid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTermsCode ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pTermsCode IS NULL) THEN
RETURN NULL;
END IF;
SELECT terms_id INTO _returnVal
FROM terms
WHERE (terms_code=pTermsCode);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Terms Code % not found.', pTermsCode;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.gettermsid(text) OWNER TO admin;
--
-- Name: getunassignedaccntid(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getunassignedaccntid() RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_test INTEGER;
_returnVal INTEGER;
BEGIN
SELECT fetchMetricValue('UnassignedAccount') INTO _test;
IF (_test IS NULL) THEN
RAISE EXCEPTION 'Metric not found for UnassignedAccount';
END IF;
SELECT accnt_id INTO _returnVal
FROM accnt
WHERE (accnt_id=_test);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Metric UnassignedAccount is an invalid G/L Account';
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getunassignedaccntid() OWNER TO admin;
--
-- Name: getuomid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getuomid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUom ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pUom IS NULL) THEN
RETURN NULL;
END IF;
SELECT uom_id INTO _returnVal
FROM uom
WHERE (uom_name=pUom);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Unit of Measure % not found.', pUom;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getuomid(text) OWNER TO admin;
--
-- Name: getuomtypeid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getuomtypeid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUomType ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pUomType IS NULL) THEN
RETURN NULL;
END IF;
SELECT uomtype_id INTO _returnVal
FROM uomtype
WHERE (UPPER(uomtype_name)=UPPER(pUomType));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Unit of Measuer Type % not found.', pUomType;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getuomtypeid(text) OWNER TO admin;
--
-- Name: getuomtypeid(text[]); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getuomtypeid(text[]) RETURNS integer[]
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUomTypes ALIAS FOR $1;
_returnVal INTEGER[];
_val INTEGER;
_i INTEGER;
BEGIN
IF (pUomTypes IS NULL) OR (ARRAY_UPPER(pUomTypes,1) = 0) THEN
RETURN NULL;
END IF;
FOR _i IN 1..ARRAY_UPPER(pUomTypes,1)
LOOP
SELECT uomtype_id INTO _val
FROM uomtype
WHERE (UPPER(uomtype_name)=UPPER(pUomTypes[_i]));
IF (_val IS NULL) THEN
RAISE EXCEPTION 'Unit of Measure Type % not found.', pUomTypes[_i];
ELSE
_returnVal[_i] := _val;
END IF;
END LOOP;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getuomtypeid(text[]) OWNER TO admin;
--
-- Name: getusrid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getusrid(pusr text) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
SELECT usr_id INTO _returnVal
FROM usr
WHERE (usr_username=COALESCE(pUsr, getEffectiveXtUser()));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'User % not found.', pUsr;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getusrid(pusr text) OWNER TO admin;
--
-- Name: getusrlocaleid(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getusrlocaleid() RETURNS integer
LANGUAGE plpgsql IMMUTABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
SELECT CAST(usrpref_value AS INTEGER)
FROM usrpref
WHERE (usrpref_username=getEffectiveXTUser())
AND (usrpref_name='locale_id') INTO _returnVal;
IF (_returnVal IS NULL) THEN
SELECT locale_id
FROM locale
WHERE (LOWER(locale_code) = 'default')
LIMIT 1 INTO _returnVal;
END IF;
IF (_returnVal IS NULL) THEN
SELECT locale_id
FROM locale
ORDER BY locale_id
LIMIT 1 INTO _returnVal;
END IF;
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'User Locale not found.';
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getusrlocaleid() OWNER TO admin;
--
-- Name: getvendaddrid(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getvendaddrid(text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendNumber ALIAS FOR $1;
pVendAddrCode ALIAS FOR $2;
_returnVal INTEGER;
BEGIN
IF ( (pVendNumber IS NULL) OR (pVendAddrCode IS NULL) ) THEN
RETURN NULL;
END IF;
SELECT vendaddr_id INTO _returnVal
FROM vendaddrinfo
JOIN vendinfo ON (vend_id=vendaddr_vend_id)
WHERE ( (vendaddr_code=pVendAddrCode)
AND (vend_number=pVendNumber) );
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Vendor Number % Address % not found.',
pVendNumber, pVendAddrCode;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getvendaddrid(text, text) OWNER TO admin;
--
-- Name: getvendid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getvendid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendNumber ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pVendNumber IS NULL) THEN
RETURN NULL;
END IF;
SELECT vend_id INTO _returnVal
FROM vendinfo
WHERE (vend_number=pVendNumber);
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Vendor Number % not found.', pVendNumber;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getvendid(text) OWNER TO admin;
--
-- Name: getvendtypeid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getvendtypeid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendTypeCode ALIAS FOR $1;
_returnVal INTEGER;
BEGIN
IF (pVendTypeCode IS NULL) THEN
RETURN NULL;
END IF;
SELECT vendtype_id INTO _returnVal
FROM vendtype
WHERE (UPPER(vendtype_code)=UPPER(pVendTypeCode));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Vendor Type % not found.', pVendTypeCode;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getvendtypeid(text) OWNER TO admin;
--
-- Name: getwarehousid(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getwarehousid(pwarehouscode text, ptype text) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_active BOOL;
_shipping BOOL;
_returnVal INTEGER;
BEGIN
IF (pWarehousCode IS NULL) THEN
RETURN NULL;
END IF;
IF (UPPER(pType) NOT IN ('ALL','ACTIVE','SHIPPING')) THEN
RAISE EXCEPTION 'Warehouse lookip type % not valid. Valid types are ALL, ACTIVE and SHIPPING', pType;
END IF;
SELECT warehous_id, warehous_active, warehous_shipping INTO _returnVal, _active, _shipping
FROM site()
WHERE (warehous_code=UPPER(pWarehousCode));
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Warehouse Code % not found.', pWarehousCode;
ELSE IF ((pType='SHIPPING') AND (_shipping=false)) THEN
RAISE EXCEPTION 'Warehouse Code % is not a vaild shipping warehouse.', pWarehousCode;
ELSE IF ((pType IN ('SHIPPING','ACTIVE')) AND (_active=false)) THEN
RAISE EXCEPTION 'Warehouse Code % is inactive.', pWarehousCode;
END IF;
END IF;
END IF;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.getwarehousid(pwarehouscode text, ptype text) OWNER TO admin;
--
-- Name: getwhsezoneid(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION getwhsezoneid(text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWhseCode ALIAS FOR $1;
pWhseZoneName ALIAS FOR $2;
_returnVal INTEGER;
BEGIN
IF ((pWhseCode IS NULL) OR (pWhseZoneName IS NULL)) THEN
RETURN NULL;
END IF;
SELECT whsezone_id INTO _returnVal
FROM whsezone
WHERE ( (whsezone_warehous_id=getWarehousId(pWhseCode, 'ACTIVE'))
AND (UPPER(whsezone_name)=UPPER(pWhseZoneName)) );
IF (_returnVal IS NULL) THEN
RAISE EXCEPTION 'Whsezone % not found.', pWhseZoneName;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.getwhsezoneid(text, text) OWNER TO admin;
--
-- Name: grantallmodulecmnttypesource(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION grantallmodulecmnttypesource(integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCmnttypeid ALIAS FOR $1;
pModuleName ALIAS FOR $2;
_source RECORD;
_sourceCounter INTEGER;
BEGIN
_sourceCounter := 0;
FOR _source IN SELECT source_id
FROM source
WHERE (source_module=pModuleName) LOOP
IF (SELECT grantCmnttypeSource(pCmnttypeid, _source.source_id)) THEN
_sourceCounter := _sourceCounter + 1;
END IF;
END LOOP;
RETURN _sourceCounter;
END;
$_$;
ALTER FUNCTION public.grantallmodulecmnttypesource(integer, text) OWNER TO admin;
--
-- Name: grantallmodulepriv(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION grantallmodulepriv(text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUsername ALIAS FOR $1;
pModuleName ALIAS FOR $2;
_priv RECORD;
_privCounter INTEGER;
BEGIN
_privCounter := 0;
FOR _priv IN SELECT priv_id
FROM priv
WHERE (priv_module=pModuleName) LOOP
IF (SELECT grantPriv(pUsername, _priv.priv_id)) THEN
_privCounter := _privCounter + 1;
END IF;
END LOOP;
RETURN _privCounter;
END;
$_$;
ALTER FUNCTION public.grantallmodulepriv(text, text) OWNER TO admin;
--
-- Name: grantallmoduleprivgroup(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION grantallmoduleprivgroup(integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pGrpid ALIAS FOR $1;
pModuleName ALIAS FOR $2;
_priv RECORD;
_privCounter INTEGER;
BEGIN
_privCounter := 0;
FOR _priv IN SELECT priv_id
FROM priv
WHERE (priv_module=pModuleName) LOOP
IF (SELECT grantPrivGroup(pGrpid, _priv.priv_id)) THEN
_privCounter := _privCounter + 1;
END IF;
END LOOP;
RETURN _privCounter;
END;
$_$;
ALTER FUNCTION public.grantallmoduleprivgroup(integer, text) OWNER TO admin;
--
-- Name: grantcmnttypesource(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION grantcmnttypesource(integer, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCmnttypeid ALIAS FOR $1;
pSourceid ALIAS FOR $2;
_test INTEGER;
BEGIN
SELECT cmnttypesource_id INTO _test
FROM cmnttypesource
WHERE ( (cmnttypesource_cmnttype_id=pCmnttypeid)
AND (cmnttypesource_source_id=pSourceid) );
IF (FOUND) THEN
RETURN FALSE;
END IF;
INSERT INTO cmnttypesource
( cmnttypesource_cmnttype_id, cmnttypesource_source_id )
VALUES
( pCmnttypeid, pSourceid );
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.grantcmnttypesource(integer, integer) OWNER TO admin;
--
-- Name: grantgroup(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION grantgroup(text, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUsername ALIAS FOR $1;
pGrpid ALIAS FOR $2;
_test INTEGER;
BEGIN
SELECT usrgrp_id INTO _test
FROM usrgrp
WHERE ( (usrgrp_username=pUsername)
AND (usrgrp_grp_id=pGrpid) );
IF (FOUND) THEN
RETURN FALSE;
END IF;
INSERT INTO usrgrp
( usrgrp_username, usrgrp_grp_id )
VALUES
( pUsername, pGrpid );
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.grantgroup(text, integer) OWNER TO admin;
--
-- Name: grantpriv(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION grantpriv(text, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUsername ALIAS FOR $1;
pPrivid ALIAS FOR $2;
_test INTEGER;
BEGIN
SELECT usrpriv_id INTO _test
FROM usrpriv
WHERE ( (usrpriv_username=pUsername)
AND (usrpriv_priv_id=pPrivid) );
IF (FOUND) THEN
RETURN FALSE;
END IF;
INSERT INTO usrpriv
( usrpriv_username, usrpriv_priv_id )
VALUES
( pUsername, pPrivid );
NOTIFY "usrprivUpdated";
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.grantpriv(text, integer) OWNER TO admin;
--
-- Name: grantpriv(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION grantpriv(text, text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUsername ALIAS FOR $1;
pPrivname ALIAS FOR $2;
_test INTEGER;
BEGIN
SELECT usrpriv_id INTO _test
FROM usrpriv
JOIN priv ON (usrpriv_priv_id=priv_id)
WHERE ((usrpriv_username=pUsername)
AND (priv_name=pPrivname) );
IF (FOUND) THEN
RETURN FALSE;
END IF;
INSERT INTO usrpriv
( usrpriv_username, usrpriv_priv_id )
SELECT pUsername, priv_id
FROM priv
WHERE (priv_name=pPrivname);
NOTIFY "usrprivUpdated";
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.grantpriv(text, text) OWNER TO admin;
--
-- Name: grantprivgroup(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION grantprivgroup(integer, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pGrpid ALIAS FOR $1;
pPrivid ALIAS FOR $2;
_test INTEGER;
BEGIN
SELECT grppriv_id INTO _test
FROM grppriv
WHERE ( (grppriv_grp_id=pGrpid)
AND (grppriv_priv_id=pPrivid) );
IF (FOUND) THEN
RETURN FALSE;
END IF;
INSERT INTO grppriv
( grppriv_grp_id, grppriv_priv_id )
VALUES
( pGrpid, pPrivid );
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.grantprivgroup(integer, integer) OWNER TO admin;
--
-- Name: hasalarms(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION hasalarms() RETURNS boolean
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_alarm RECORD;
_batchId INTEGER;
_evntlogordtype TEXT;
_evnttypeid INTEGER;
_evnttypename TEXT;
_fromEmail TEXT;
_itemid INTEGER;
_longsource TEXT;
_msgId INTEGER;
_recipient TEXT;
_recipientPart INTEGER;
_returnVal BOOLEAN := FALSE;
_summary TEXT;
_whsId INTEGER := -1;
BEGIN
FOR _alarm IN SELECT *
FROM alarm
WHERE ((alarm_creator=getEffectiveXtUser())
AND (CURRENT_TIMESTAMP > alarm_trigger)) LOOP
_returnVal := TRUE;
IF (_alarm.alarm_source = 'TODO') THEN
SELECT (todoitem_name || '-' || todoitem_description),
'T', 'TodoAlarm', 'To-Do Item'
INTO _summary, _evntlogordtype, _evnttypename, _longsource
FROM todoitem
WHERE (todoitem_id = _alarm.alarm_source_id);
ELSIF (_alarm.alarm_source = 'INCDT') THEN
SELECT (incdt_number || '-' || incdt_summary),
'I', 'IncidentAlarm', 'Incident'
INTO _summary, _evntlogordtype, _evnttypename, _longsource
FROM incdt
WHERE (incdt_id = _alarm.alarm_source_id);
ELSIF (_alarm.alarm_source = 'J') THEN
SELECT (prj_number || ' ' || prj_name || '-' || prjtask_name),
'J', 'TaskAlarm', 'Project Task'
INTO _summary, _evntlogordtype, _evnttypename, _longsource
FROM prjtask JOIN prj ON (prj_id=prjtask_prj_id)
WHERE (prjtask_id = _alarm.alarm_source_id);
ELSE
CONTINUE; -- there's nothing to do for this iteration of the loop
END IF;
-- if event alarm
IF (_alarm.alarm_event) THEN
SELECT evnttype_id INTO _evnttypeid
FROM evnttype
WHERE (evnttype_name=_evnttypename);
_recipientPart := 1;
LOOP
_recipient := SPLIT_PART(_alarm.alarm_event_recipient, ',', _recipientPart);
EXIT WHEN (LENGTH(_recipient) = 0);
SELECT usrpref_value INTO _whsId
FROM usrpref
WHERE ( (usrpref_username = _recipient)
AND (usrpref_name = 'PreferredWarehouse') );
INSERT INTO evntlog (evntlog_evnttime, evntlog_username,
evntlog_evnttype_id, evntlog_ordtype,
evntlog_ord_id, evntlog_warehous_id, evntlog_number
) VALUES (CURRENT_TIMESTAMP, _recipient,
_evnttypeid, _evntlogordtype,
_alarm.alarm_source_id, _whsId, _summary);
_recipientPart := _recipientPart + 1;
END LOOP;
END IF;
IF (_alarm.alarm_email) THEN
SELECT usr_email INTO _fromEmail
FROM usr
WHERE (usr_username = _alarm.alarm_creator);
_recipientPart := 1;
LOOP
_recipient := SPLIT_PART(_alarm.alarm_email_recipient, ',', _recipientPart);
EXIT WHEN (LENGTH(_recipient) <= 0);
_batchId := xtbatch.submitEmailToBatch(_fromEmail, _recipient, '',
_summary,
'Alarm reminder for '
|| _longsource || '.',
NULL, CURRENT_TIMESTAMP,
FALSE, NULL, NULL);
_recipientPart := _recipientPart + 1;
END LOOP;
END IF;
IF (_alarm.alarm_sysmsg) THEN
_recipientPart := 1;
LOOP
_recipient := SPLIT_PART(_alarm.alarm_sysmsg_recipient, ',', _recipientPart);
EXIT WHEN (LENGTH(_recipient) <= 0);
_msgId := postMessage(_recipient, (_longsource || ' - ' || _summary));
_recipientPart := _recipientPart + 1;
END LOOP;
END IF;
DELETE FROM alarm WHERE alarm_id=_alarm.alarm_id;
END LOOP;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.hasalarms() OWNER TO admin;
--
-- Name: hasevents(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION hasevents() RETURNS boolean
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
PERFORM evntlog_id
FROM evntlog
WHERE ( (evntlog_dispatched IS NULL)
AND (evntlog_username=getEffectiveXtUser()) )
LIMIT 1;
RETURN FOUND;
END;
$$;
ALTER FUNCTION public.hasevents() OWNER TO admin;
--
-- Name: hasmessages(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION hasmessages() RETURNS boolean
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
PERFORM msguser_id
FROM msg, msguser
WHERE ( (msguser_username=getEffectiveXtUser())
AND (msguser_msg_id=msg_id)
AND (CURRENT_TIMESTAMP BETWEEN msg_scheduled AND msg_expires)
AND (msguser_viewed IS NULL) )
LIMIT 1;
RETURN FOUND;
END;
$$;
ALTER FUNCTION public.hasmessages() OWNER TO admin;
--
-- Name: haspriv(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION haspriv(text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPrivName ALIAS FOR $1;
_result INTEGER;
_returnVal BOOLEAN;
BEGIN
RAISE NOTICE 'hasPriv(TEXT) is deprecated. Use checkPrivilege(TEXT) instead.';
SELECT priv_id INTO _result
FROM priv, grppriv, usrgrp
WHERE((usrgrp_grp_id=grppriv_grp_id)
AND (grppriv_priv_id=priv_id)
AND (priv_name=pPrivName)
AND (usrgrp_username=getEffectiveXtUser()));
IF (FOUND) THEN
RETURN true;
END IF;
SELECT COALESCE(usrpriv_id, 0) != 0 INTO _returnVal
FROM priv LEFT OUTER JOIN
usrpriv ON (priv_id=usrpriv_priv_id AND usrpriv_username = getEffectiveXtUser())
WHERE (priv_name=pPrivName);
IF (_returnVal IS NULL) THEN
_returnVal := FALSE;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.haspriv(text) OWNER TO admin;
--
-- Name: hasprivonobject(text, text, integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION hasprivonobject(pprivtype text, pobjecttype text, pobjectid integer DEFAULT NULL::integer, puser text DEFAULT NULL::text) RETURNS boolean
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_haspriv BOOLEAN := FALSE;
_privfound BOOLEAN := FALSE;
_pkey TEXT[];
_privdesc RECORD;
_qstr TEXT;
BEGIN
IF UPPER(pPrivType) NOT IN ('CREATE', 'EDIT', 'VIEW', 'DELETE') THEN
RAISE EXCEPTION 'Cannot check if user has % on % [xtuple: hasPrivOnObject, -1, %, %]',
pPrivType, pObjectType, pPrivType, pObjectType;
END IF;
/* TODO: create privdesc table? can't do it yet because this is a fix for a minor release
NOTE: only include tables that have a single integer column as pkey
NOTE: some of these are part of proprietary extensions. how do we make them part of the extension?
*/
FOR _privdesc IN
WITH privdesc AS (
SELECT 'ADDR' AS otype, 'public' AS masterschema,
'addr' AS mastertable,
'MaintainAddressMasters' AS editall,
'ViewAddressMasters' AS viewall,
NULL AS ownerfield, NULL AS editmine, NULL AS viewmine
UNION ALL SELECT 'BBH', 'xtmfg', 'bbom', 'MaintainBBOMs', 'ViewBBOMs', NULL, NULL, NULL
UNION ALL SELECT 'BBI', 'xtmfg', 'bbom', 'MaintainBBOMs', 'ViewBBOMs', NULL, NULL, NULL
UNION ALL SELECT 'BMH', 'public', 'bom', 'MaintainBOMs', 'ViewBOMs', NULL, NULL, NULL
UNION ALL SELECT 'BMI', 'public', 'bom', 'MaintainBOMs', 'ViewBOMs', NULL, NULL, NULL
UNION ALL SELECT 'BOH', 'xtmfg', 'boo', 'MaintainBOOs', 'ViewBOOs', NULL, NULL, NULL
UNION ALL SELECT 'BOI', 'xtmfg', 'boo', 'MaintainBOOs', 'ViewBOOs', NULL, NULL, NULL
UNION ALL SELECT 'C', 'public', 'custinfo', 'MaintainCustomerMasters', 'ViewCustomerMasters', NULL, NULL, NULL
UNION ALL SELECT 'CRMA', 'public', 'crmacct', 'MaintainAllCRMAccounts', 'ViewAllCRMAccounts', 'crmacct_owner_username', 'MaintainPersonalCRMAccounts', 'ViewPersonalCRMAccounts'
UNION ALL SELECT 'EMP', 'public', 'emp', 'MaintainEmployees', 'ViewEmployees', NULL, NULL, NULL
UNION ALL SELECT 'I', 'public', 'item', 'MaintainItemMasters', 'ViewItemMasters', NULL, NULL, NULL
UNION ALL SELECT 'INCDT', 'public', 'incdt', 'MaintainAllIncidents', 'ViewAllIncidents', 'incdt_owner_username', 'MaintainPersonalIncidents', 'ViewPersonalIncidents'
UNION ALL SELECT 'IR', 'public', 'itemsrc', 'MaintainItemSources', 'ViewItemSources', NULL, NULL, NULL
UNION ALL SELECT 'IS', 'public', 'itemsite', 'MaintainItemSites', 'ViewItemSites', NULL, NULL, NULL
UNION ALL SELECT 'J', 'public', 'prj', 'MaintainAllProjects', 'ViewAllProjects', 'prj_owner_username', 'MaintainPersonalProjects', 'ViewPersonalProjects'
UNION ALL SELECT 'J', 'public', 'prj', 'MaintainAllProjects', 'ViewAllProjects', 'prj_username', 'MaintainPersonalProjects', 'ViewPersonalProjects'
UNION ALL SELECT 'L', 'public', 'location', 'MaintainLocations', 'ViewLocations', NULL, NULL, NULL
UNION ALL SELECT 'OPP', 'public', 'ophead', 'MaintainAllOpportunities', 'ViewAllOpportunities', 'ophead_owner_username', 'MaintainPersonalOpportunities', 'ViewPersonalOpportunities'
UNION ALL SELECT 'P', 'public', 'pohead', 'MaintainPurchaseOrders', 'ViewPurchaseOrders', NULL, NULL, NULL
UNION ALL SELECT 'PI', 'public', 'pohead', 'MaintainPurchaseOrders', 'ViewPurchaseOrders', NULL, NULL, NULL
UNION ALL SELECT 'Q', 'public', 'quhead', 'MaintainQuotes', 'ViewQuotes', NULL, NULL, NULL
UNION ALL SELECT 'QI', 'public', 'quhead', 'MaintainQuotes', 'ViewQuotes', NULL, NULL, NULL
UNION ALL SELECT 'RA', 'public', 'rahead', 'MaintainReturns', 'ViewReturns', NULL, NULL, NULL
UNION ALL SELECT 'RI', 'public', 'rahead', 'MaintainReturns', 'ViewReturns', NULL, NULL, NULL
UNION ALL SELECT 'S', 'public', 'cohead', 'MaintainSalesOrders', 'ViewSalesOrders', NULL, NULL, NULL
UNION ALL SELECT 'SI', 'public', 'cohead', 'MaintainSalesOrders', 'ViewSalesOrders', NULL, NULL, NULL
UNION ALL SELECT 'T', 'public', 'cntct', 'MaintainAllContacts', 'ViewAllContacts', 'cntct_owner_username', 'MaintainPersonalContacts', 'ViewPersonalContacts'
UNION ALL SELECT 'TE', 'te', 'tehead', 'MaintainTimeExpense', 'ViewTimeExpenseHistory', 'tehead_username', 'MaintainTimeExpenseSelf', NULL
UNION ALL SELECT 'TE', 'te', 'tehead', 'MaintainTimeExpenseOthers', 'ViewTimeExpenseHistory', 'tehead_username', 'MaintainTimeExpenseSelf', NULL
UNION ALL SELECT 'TI', 'public', 'tohead', 'MaintainTransferOrders', 'ViewTransferOrders', NULL, NULL, NULL
UNION ALL SELECT 'TO', 'public', 'tohead', 'MaintainTransferOrders', 'ViewTransferOrders', NULL, NULL, NULL
UNION ALL SELECT 'TODO', 'public', 'todoitem', 'MaintainAllToDoItems', 'ViewAllToDoItems', 'todoitem_owner_username', 'MaintainPersonalToDoItems', 'ViewPersonalToDoItems'
UNION ALL SELECT 'V', 'public', 'vendinfo', 'MaintainVendors', 'ViewVendors', NULL, NULL, NULL
UNION ALL SELECT 'W', 'public', 'wo', 'MaintainWorkOrders', 'ViewWorkOrders', NULL, NULL, NULL
UNION ALL SELECT 'WH', 'public', 'whsinfo', 'MaintainWarehouses', 'ViewWarehouses', NULL, NULL, NULL)
-- UNION ALL SELECT 'LS', 'public', 'ls', NULL, NULL, NULL, NULL, NULL
-- UNION ALL SELECT 'P', 'public', 'pohead', 'MaintainPostedPurchaseOrders', 'ViewPurchaseOrders', NULL, NULL, NULL -- additional criteria?
-- UNION ALL SELECT 'PI', 'public', 'pohead', 'MaintainPostedPurchaseOrders', 'ViewPurchaseOrders', NULL, NULL, NULL -- additional criteria?
SELECT *
FROM privdesc
WHERE otype = pObjectType
LOOP
_privfound := TRUE;
RAISE DEBUG '% % % % % % %',
_privdesc.otype, _privdesc.masterschema, _privdesc.mastertable,
_privdesc.editall, _privdesc.viewall, _privdesc.editmine, _privdesc.viewmine;
IF checkPrivilege(CASE UPPER(pPrivType) WHEN 'CREATE' THEN _privdesc.editall
WHEN 'EDIT' THEN _privdesc.editall
WHEN 'DELETE' THEN _privdesc.editall
WHEN 'VIEW' THEN _privdesc.viewall
END) THEN
_haspriv = TRUE;
ELSIF checkPrivilege(CASE UPPER(pPrivType) WHEN 'CREATE' THEN _privdesc.editmine
WHEN 'EDIT' THEN _privdesc.editmine
WHEN 'DELETE' THEN _privdesc.editmine
WHEN 'VIEW' THEN _privdesc.viewmine
END) THEN
IF pObjectId IS NULL THEN
_haspriv = TRUE;
ELSE
_pkey := primaryKeyFields(_privdesc.masterschema, _privdesc.mastertable);
-- SELECT ... FROM schema.table WHERE pkeyfield = pObjectId AND ownerfield = pUser
_qstr := 'SELECT EXISTS(SELECT 1
FROM ' || quote_ident(_privdesc.masterschema)
|| '.' || quote_ident(_privdesc.mastertable)
|| ' WHERE ' || quote_ident(_pkey[1]) || ' = ' || pObjectId
|| ' AND ' || quote_ident(_privdesc.ownerfield)
|| '= ' || quote_literal(COALESCE(pUser, getEffectiveXtUser())) || ');';
RAISE DEBUG '%', _qstr;
EXECUTE _qstr INTO _haspriv;
END IF;
END IF;
EXIT WHEN _haspriv;
END LOOP;
RETURN _haspriv OR NOT _privfound;
END;
$$;
ALTER FUNCTION public.hasprivonobject(pprivtype text, pobjecttype text, pobjectid integer, puser text) OWNER TO admin;
--
-- Name: FUNCTION hasprivonobject(pprivtype text, pobjecttype text, pobjectid integer, puser text); Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON FUNCTION hasprivonobject(pprivtype text, pobjecttype text, pobjectid integer, puser text) IS 'Return if a user has permission to view or edit a specific database object.
pPrivType is either CREATE, EDIT, DELETE, or VIEW, and controls which privilege is checked.
pObjectType is one of the string constants used by the Documents widget, such as ADDR for Addresses.
pObjectId is the internal id of the record in the table associated with pObjectType (defaults to NULL).
pUser is the username to be checked for those pObjectTypes that restrict access to individual users (NULL == current user and is the default).';
--
-- Name: hmac(text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION hmac(text, text, text) RETURNS bytea
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pg_hmac';
ALTER FUNCTION public.hmac(text, text, text) OWNER TO admin;
--
-- Name: hmac(bytea, bytea, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION hmac(bytea, bytea, text) RETURNS bytea
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pg_hmac';
ALTER FUNCTION public.hmac(bytea, bytea, text) OWNER TO admin;
--
-- Name: implodewo(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION implodewo(integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
implodeChildren ALIAS FOR $2;
resultCode INTEGER;
_wotcCnt INTEGER;
_routings BOOLEAN;
BEGIN
SELECT metric_value='t' INTO _routings
FROM metric
WHERE (metric_name='Routings');
IF ((SELECT wo_id
FROM wo
WHERE ((wo_status='E')
AND (wo_id=pWoid))) IS NULL) THEN
RETURN 0;
END IF;
IF (_routings) THEN
SELECT count(*) INTO _wotcCnt
FROM xtmfg.wotc
WHERE (wotc_wo_id=pWoid);
IF (_wotcCnt > 0) THEN
RETURN -1;
END IF;
END IF;
-- Delete any created P/R's for this W/O
PERFORM deletePr('W', womatl_id)
FROM womatl
WHERE (womatl_wo_id=pWoid);
DELETE FROM womatl
WHERE (womatl_id IN ( SELECT womatl_id
FROM womatl, wo
WHERE ((womatl_wo_id=wo_id)
AND (wo_status='E')
AND (wo_id=pWoid)) ));
IF _routings THEN
DELETE FROM xtmfg.wooper
WHERE (wooper_id IN ( SELECT wooper_id
FROM xtmfg.wooper, wo
WHERE ((wooper_wo_id=wo_id)
AND (wo_status='E')
AND (wo_id=pWoid)) ));
END IF;
UPDATE wo
SET wo_status='O'
WHERE (wo_id=pWoid);
IF (implodeChildren) THEN
resultCode := (SELECT MAX(implodeWo(wo_id, TRUE))
FROM wo
WHERE ((wo_ordtype='W')
AND (wo_ordid=pWoid)));
resultCode := (SELECT MAX(deleteWo(wo_id, TRUE))
FROM wo
WHERE ((wo_ordtype='W')
AND (wo_ordid=pWoid)));
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.implodewo(integer, boolean) OWNER TO admin;
--
-- Name: incdt; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE incdt (
incdt_id integer NOT NULL,
incdt_number integer NOT NULL,
incdt_crmacct_id integer,
incdt_cntct_id integer,
incdt_summary text,
incdt_descrip text,
incdt_item_id integer,
incdt_timestamp timestamp without time zone DEFAULT now() NOT NULL,
incdt_status character(1) DEFAULT 'N'::bpchar NOT NULL,
incdt_assigned_username text,
incdt_incdtcat_id integer,
incdt_incdtseverity_id integer,
incdt_incdtpriority_id integer,
incdt_incdtresolution_id integer,
incdt_lotserial text,
incdt_ls_id integer,
incdt_aropen_id integer,
incdt_owner_username text,
incdt_recurring_incdt_id integer,
incdt_updated timestamp without time zone DEFAULT now() NOT NULL,
incdt_prj_id integer,
incdt_public boolean
);
ALTER TABLE public.incdt OWNER TO admin;
--
-- Name: TABLE incdt; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE incdt IS 'Incident table';
--
-- Name: COLUMN incdt.incdt_lotserial; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN incdt.incdt_lotserial IS 'incdt_lotserial is deprecated';
--
-- Name: COLUMN incdt.incdt_recurring_incdt_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN incdt.incdt_recurring_incdt_id IS 'The first incdt record in the series if this is a recurring Incident. If the incdt_recurring_incdt_id is the same as the incdt_id, this record is the first in the series.';
--
-- Name: incdt(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION incdt() RETURNS SETOF incdt
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_row incdt%ROWTYPE;
_priv TEXT;
_grant BOOLEAN;
BEGIN
-- This query will give us the most permissive privilege the user has been granted
SELECT privilege, granted INTO _priv, _grant
FROM privgranted
WHERE privilege IN ('MaintainAllIncidents','ViewAllIncidents','MaintainPersonalIncidents','ViewPersonalIncidents')
ORDER BY granted DESC, sequence
LIMIT 1;
-- If have an 'All' privilege return all results
IF (_priv ~ 'All' AND _grant) THEN
FOR _row IN
SELECT * FROM incdt
LOOP
RETURN NEXT _row;
END LOOP;
-- Otherwise if have any other grant, must be personal privilege.
ELSIF (_grant) THEN
FOR _row IN
SELECT * FROM incdt
WHERE getEffectiveXtUser() IN (incdt_owner_username, incdt_assigned_username)
LOOP
RETURN NEXT _row;
END LOOP;
END IF;
RETURN;
END;
$$;
ALTER FUNCTION public.incdt() OWNER TO admin;
--
-- Name: FUNCTION incdt(); Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON FUNCTION incdt() IS 'A table function that returns Incident results according to privilege settings.';
--
-- Name: indentedbom(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION indentedbom(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
_revid INTEGER;
BEGIN
SELECT getActiveRevId('BOM',pItemid) INTO _revid;
RETURN indentedBOM(pItemid, _revid);
END;
$_$;
ALTER FUNCTION public.indentedbom(integer) OWNER TO admin;
--
-- Name: indentedbom(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION indentedbom(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pRevisionid ALIAS FOR $2;
_bomworkid INTEGER;
_indexid INTEGER;
_r RECORD;
_batchsize NUMERIC;
BEGIN
-- Get the batch quantity
SELECT COALESCE( (
SELECT bomhead_batchsize
FROM bomhead
WHERE ((bomhead_item_id=pItemId)
AND (bomhead_rev_id=pRevisionid)) LIMIT 1),1) INTO _batchsize;
-- Check on the temporary workspace
-- PERFORM maintainBOMWorkspace();
-- Grab a new index for this bomwork set
SELECT NEXTVAL('misc_index_seq') INTO _indexid;
-- Step through all of the components of the passed pItemid
FOR _r IN SELECT bomitem.*,
item_id,
itemuomtouom(item_id, item_inv_uom_id, NULL, (bomitem_qtyfxd/_batchsize + bomitem_qtyper) * (1 + bomitem_scrap), 'qtyper') AS qtyreq,
(itemuomtouomratio(bomitem_item_id, bomitem_uom_id, NULL)
* bomitem_qtyfxd) AS qtyfxd,
(itemuomtouomratio(bomitem_item_id, bomitem_uom_id, NULL)
* bomitem_qtyper) AS qtyper,
stdcost(item_id, bomitem_id) AS standardcost,
actcost(item_id, bomitem_id) AS actualcost
FROM bomitem(pItemId, pRevisionid), item
WHERE ( (bomitem_item_id=item_id) ) LOOP
-- Insert the component and bomitem parameters
SELECT NEXTVAL('bomwork_bomwork_id_seq') INTO _bomworkid;
INSERT INTO bomwork
( bomwork_id, bomwork_set_id, bomwork_parent_id, bomwork_level,
bomwork_parent_seqnumber, bomwork_seqnumber,
bomwork_item_id, bomwork_createwo, bomwork_qtyreq,
bomwork_qtyfxd, bomwork_qtyper, bomwork_scrap, bomwork_issuemethod,
bomwork_effective, bomwork_expires,
bomwork_stdunitcost, bomwork_actunitcost,
bomwork_char_id, bomwork_value, bomwork_notes, bomwork_ref,
bomwork_bomitem_id, bomwork_ecn )
VALUES
( _bomworkid, _indexid, -1, 1,
0, _r.bomitem_seqnumber,
_r.item_id, _r.bomitem_createwo, _r.qtyreq,
_r.qtyfxd, _r.qtyper, _r.bomitem_scrap, _r.bomitem_issuemethod,
_r.bomitem_effective, _r.bomitem_expires,
_r.standardcost, _r.actualcost,
_r.bomitem_char_id, _r.bomitem_value, _r.bomitem_notes, _r.bomitem_ref,
_r.bomitem_id, _r.bomitem_ecn );
-- Explode the components of the current component
PERFORM explodeBOM(_r.item_id, _bomworkid, 1);
END LOOP;
-- Return a key to the result
RETURN _indexid;
END;
$_$;
ALTER FUNCTION public.indentedbom(integer, integer) OWNER TO admin;
--
-- Name: indentedbom(integer, integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION indentedbom(integer, integer, integer, integer) RETURNS SETOF bomdata
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pRevisionid ALIAS FOR $2;
pExpiredDays ALIAS FOR $3;
pFutureDays ALIAS FOR $4;
_row bomdata%ROWTYPE;
_bomworksetid INTEGER;
_x RECORD;
_check CHAR(1);
_inactive BOOLEAN := FALSE;
_batchsize NUMERIC;
BEGIN
IF (pRevisionid != -1) THEN
--Is this a deactivated revision?
SELECT rev_status INTO _check
FROM rev
WHERE ((rev_id=pRevisionid)
AND (rev_status='I'));
IF (FOUND) THEN
_inactive := TRUE;
END IF;
END IF;
-- Get the batch quantity
SELECT COALESCE( (
SELECT bomhead_batchsize
FROM bomhead
WHERE ((bomhead_item_id=pItemId)
AND (bomhead_rev_id=pRevisionid)) LIMIT 1),1) INTO _batchsize;
IF NOT (_inactive) THEN
--We can explode this out based on current data
SELECT indentedBOM(pItemid, pRevisionid) INTO _bomworksetid;
FOR _x IN
SELECT bomwork_id, bomwork_parent_id, bomwork_level,
bomworkSequence(bomwork_id) AS seq_ord,
bomwork_seqnumber, item_id, item_number, uom_name,
item_descrip1, item_descrip2,
(item_descrip1 || ' ' || item_descrip2) AS itemdescription,
bomwork_qtyreq, bomwork_qtyfxd, bomwork_qtyper, bomwork_scrap, bomwork_createwo,
CASE WHEN (bomwork_issuemethod='S') THEN 'Push'
WHEN (bomwork_issuemethod='L') THEN 'Pull'
WHEN (bomwork_issuemethod='M') THEN 'Mixed'
ELSE 'Special'
END AS issuemethod,
bomwork_effective, bomwork_expires,
(bomwork_expires <= CURRENT_DATE) AS expired,
(bomwork_effective > CURRENT_DATE) AS future,
bomwork_actunitcost AS actunitcost,
bomwork_stdunitcost AS stdunitcost,
CASE WHEN item_type NOT IN ('R','T') THEN
itemuomtouom(item_id, item_inv_uom_id, NULL, (bomwork_qtyfxd/_batchsize + bomwork_qtyper) * (1 + bomwork_scrap), 'qtyper') * bomwork_actunitcost
ELSE 0.0 END AS actextendedcost,
CASE WHEN item_type NOT IN ('R','T') THEN
itemuomtouom(item_id, item_inv_uom_id, NULL, (bomwork_qtyfxd/_batchsize + bomwork_qtyper) * (1 + bomwork_scrap), 'qtyper') * bomwork_stdunitcost
ELSE 0.0 END AS stdextendedcost,
bomwork_char_id,
bomwork_value, bomwork_notes, bomwork_ref,
bomwork_bomitem_id, bomwork_ecn
FROM bomwork, item, uom
WHERE ( (bomwork_item_id=item_id)
AND (item_inv_uom_id=uom_id)
AND (bomwork_set_id=_bomworksetid) )
AND (bomwork_expires > (CURRENT_DATE - pExpiredDays))
AND (bomwork_effective <= (CURRENT_DATE + pFutureDays))
UNION
SELECT -1, -1, 1,
'0',
NULL,-1, costelem_type AS bomdata_item_number, '',
'', '',
'',
NULL, NULL, NULL, NULL, NULL,
'',
NULL, NULL,
false,
false,
currToBase(itemcost_curr_id, itemcost_actcost, CURRENT_DATE) AS actunitcost,
itemcost_stdcost AS stdunitcost,
currToBase(itemcost_curr_id, itemcost_actcost, CURRENT_DATE) AS actextendedcost,
itemcost_stdcost AS stdextendedcost,
NULL,
NULL,NULL,NULL,
NULL,NULL
FROM itemcost, costelem
WHERE ( (itemcost_costelem_id=costelem_id)
AND (NOT itemcost_lowlevel)
AND (itemcost_item_id=pItemid) )
ORDER BY seq_ord
LOOP
_row.bomdata_bomwork_id := _x.bomwork_id;
_row.bomdata_bomwork_parent_id := _x.bomwork_parent_id;
_row.bomdata_bomwork_level := _x.bomwork_level;
_row.bomdata_bomwork_seqnumber := _x.bomwork_seqnumber;
_row.bomdata_bomitem_id := _x.bomwork_bomitem_id;
_row.bomdata_item_id := _x.item_id;
_row.bomdata_item_number := _x.item_number;
_row.bomdata_uom_name := _x.uom_name;
_row.bomdata_item_descrip1 := _x.item_descrip1;
_row.bomdata_item_descrip2 := _x.item_descrip2;
_row.bomdata_itemdescription := _x.itemdescription;
_row.bomdata_batchsize := _batchsize;
_row.bomdata_qtyreq := _x.bomwork_qtyreq;
_row.bomdata_qtyfxd := _x.bomwork_qtyfxd;
_row.bomdata_qtyper := _x.bomwork_qtyper;
_row.bomdata_scrap := _x.bomwork_scrap;
_row.bomdata_createchild := _x.bomwork_createwo;
_row.bomdata_issuemethod := _x.issuemethod;
_row.bomdata_effective := _x.bomwork_effective;
_row.bomdata_expires := _x.bomwork_expires;
_row.bomdata_expired := _x.expired;
_row.bomdata_future := _x.future;
_row.bomdata_actunitcost := _x.actunitcost;
_row.bomdata_stdunitcost := _x.stdunitcost;
_row.bomdata_actextendedcost := _x.actextendedcost;
_row.bomdata_stdextendedcost := _x.stdextendedcost;
_row.bomdata_ecn := _x.bomwork_ecn;
_row.bomdata_char_id := _x.bomwork_char_id;
_row.bomdata_value := _x.bomwork_value;
_row.bomdata_notes := _x.bomwork_notes;
_row.bomdata_ref := _x.bomwork_ref;
RETURN NEXT _row;
END LOOP;
PERFORM deleteBOMWorkset(_bomworksetid);
ELSE
-- Use historical snapshot for inactive revisions
FOR _x IN
SELECT bomhist_id, bomhist_parent_id, bomhist_level,
bomhistSequence(bomhist_seq_id) AS seq_ord,
bomhist_seqnumber, item_id, item_number, uom_name,
item_descrip1, item_descrip2,
(item_descrip1 || ' ' || item_descrip2) AS itemdescription,
bomhist_qtyreq, bomhist_qtyfxd, bomhist_qtyper, bomhist_scrap,
bomhist_createwo,
CASE WHEN (bomhist_issuemethod='S') THEN 'Push'
WHEN (bomhist_issuemethod='L') THEN 'Pull'
WHEN (bomhist_issuemethod='M') THEN 'Mixed'
ELSE 'Special'
END AS issuemethod,
bomhist_effective, bomhist_expires,
(bomhist_expires <= CURRENT_DATE) AS expired,
(bomhist_effective > CURRENT_DATE) AS future,
bomhist_actunitcost AS actunitcost,
bomhist_stdunitcost AS stdunitcost,
CASE WHEN item_type NOT IN ('R','T') THEN
(bomist_qtyfxd/_batchsize + bomhist_qtyper) * (1 + bomhist_scrap) * bomhist_actunitcost
ELSE 0 END AS actextendedcost,
CASE WHEN item_type NOT IN ('R','T') THEN
(bomist_qtyfxd/_batchsize + bomhist_qtyper) * (1 + bomhist_scrap) * bomhist_stdunitcost
ELSE 0 END AS stdextendedcost,
bomhist_char_id, bomhist_value, bomhist_notes, bomhist_ref
FROM bomhist, item, uom
WHERE ( (bomhist_item_id=item_id)
AND (item_inv_uom_id=uom_id)
AND (bomhist_rev_id=pRevisionid) )
AND (bomhist_expires > (CURRENT_DATE - pExpiredDays))
AND (bomhist_effective <= (CURRENT_DATE + pFutureDays))
UNION
SELECT -1, -1, 1,
'0',
NULL,-1, costelem_type AS bomdata_item_number, '',
'', '',
'',
NULL, NULL, NULL, NULL,
false,
'', NULL, NULL,
false,
false,
bomhist_actunitcost AS actunitcost,
bomhist_stdunitcost AS stdunitcost,
bomhist_actunitcost AS actextendedcost,
bomhist_stdunitcost AS stdextendedcost,
NULL,NULL,NULL,NULL
FROM bomhist, costelem
WHERE ((bomhist_rev_id=pRevisionid)
AND (costelem_id=bomhist_item_id))
ORDER BY seq_ord
LOOP
_row.bomdata_bomwork_id := _x.bomhist_id;
_row.bomdata_bomwork_parent_id := _x.bomhist_parent_id;
_row.bomdata_bomwork_level := _x.bomhist_level;
_row.bomdata_bomwork_seqnumber := _x.bomhist_seqnumber;
_row.bomdata_bomitem_id := -1;
_row.bomdata_item_id := _x.item_id;
_row.bomdata_item_number := _x.item_number;
_row.bomdata_uom_name := _x.uom_name;
_row.bomdata_item_descrip1 := _x.item_descrip1;
_row.bomdata_item_descrip2 := _x.item_descrip2;
_row.bomdata_itemdescription := _x.itemdescription;
_row.bomdata_batchsize := _batchsize;
_row.bomdata_qtyreq := _x.bomhist_qtyreq;
_row.bomdata_qtyfxd := _x.bomist_qtyfxd;
_row.bomdata_qtyper := _x.bomhist_qtyper;
_row.bomdata_scrap := _x.bomhist_scrap;
_row.bomdata_createchild := _x.bomhist_createwo;
_row.bomdata_issuemethod := _x.issuemethod;
_row.bomdata_effective := _x.bomhist_effective;
_row.bomdata_expires := _x.bomhist_expires;
_row.bomdata_expired := _x.expired;
_row.bomdata_future := _x.future;
_row.bomdata_actunitcost := _x.actunitcost;
_row.bomdata_stdunitcost := _x.stdunitcost;
_row.bomdata_actextendedcost := _x.actextendedcost;
_row.bomdata_stdextendedcost := _x.stdextendedcost;
_row.bomdata_ecn := '';
_row.bomdata_char_id := _x.bomhist_char_id;
_row.bomdata_value := _x.bomhist_value;
_row.bomdata_notes := _x.bomhist_notes;
_row.bomdata_ref := _x.bomhist_ref;
RETURN NEXT _row;
END LOOP;
END IF;
RETURN;
END;
$_$;
ALTER FUNCTION public.indentedbom(integer, integer, integer, integer) OWNER TO admin;
--
-- Name: indentedwhereused(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION indentedwhereused(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
_indexid INTEGER;
_level INTEGER;
BEGIN
-- Check on the temporary workspace
-- PERFORM maintainBOMWorkspace();
_indexid := (SELECT NEXTVAL('misc_index_seq'));
_level := 1;
INSERT INTO bomwork
( bomwork_set_id, bomwork_parent_id,
bomwork_level, bomwork_seqnumber,
bomwork_item_id, bomwork_item_type, bomwork_createwo,
bomwork_qtyfxd, bomwork_qtyper,
bomwork_scrap, bomwork_issuemethod,
bomwork_effective, bomwork_expires, bomwork_status,
bomwork_stdunitcost, bomwork_actunitcost )
SELECT _indexid, -1,
1, bomitem_seqnumber,
item_id, item_type, bomitem_createwo,
(itemuomtouomratio(bomitem_item_id, bomitem_uom_id, NULL) * bomitem_qtyfxd),
(itemuomtouomratio(bomitem_item_id, bomitem_uom_id, NULL) * bomitem_qtyper),
bomitem_scrap, bomitem_issuemethod,
bomitem_effective, bomitem_expires, 'U',
stdcost(item_id), actcost(item_id)
FROM bomitem, item
WHERE ((bomitem_item_id=pItemid)
AND (bomitem_parent_item_id=item_id)
AND (CURRENT_DATE BETWEEN bomitem_effective AND (bomitem_expires - 1))
AND (bomitem_rev_id=getActiveRevId('BOM',bomitem_parent_item_id)));
WHILE ( ( SELECT count(*)
FROM bomwork
WHERE ((bomwork_item_type IN ('M', 'F'))
AND (bomwork_status='U')
AND (bomwork_set_id=_indexid)) ) > 0) LOOP
_level := _level + 1;
INSERT INTO bomwork
( bomwork_set_id, bomwork_parent_id,
bomwork_level, bomwork_seqnumber,
bomwork_item_id, bomwork_item_type, bomwork_createwo,
bomwork_qtyfxd, bomwork_qtyper,
bomwork_scrap, bomwork_issuemethod,
bomwork_effective, bomwork_expires, bomwork_status,
bomwork_stdunitcost, bomwork_actunitcost )
SELECT _indexid, bomwork_id,
_level, bomitem_seqnumber,
item_id, item_type, bomitem_createwo,
(bomwork_qtyper * (itemuomtouomratio(bomitem_item_id, bomitem_uom_id, NULL) * bomitem_qtyfxd)),
(bomwork_qtyper * (itemuomtouomratio(bomitem_item_id, bomitem_uom_id, NULL) * bomitem_qtyper)),
bomitem_scrap, bomitem_issuemethod,
CASE WHEN bomitem_effective < bomwork_effective THEN
bomwork_effective
ELSE bomitem_effective END,
CASE WHEN bomitem_expires > bomwork_expires THEN
bomwork_expires
ELSE bomitem_expires END,
'N',
stdcost(item_id), actcost(item_id)
FROM bomwork JOIN bomitem ON ( (bomitem_item_id=bomwork_item_id)
AND (CURRENT_DATE BETWEEN bomitem_effective AND (bomitem_expires - 1))
AND (bomitem_rev_id=getActiveRevId('BOM',bomitem_parent_item_id)) )
JOIN item ON (item_id=bomitem_parent_item_id)
WHERE ((bomwork_status='U')
AND (bomwork_item_type IN ('M', 'F')));
UPDATE bomwork
SET bomwork_status='C'
WHERE ((bomwork_status='U')
AND (bomwork_set_id=_indexid));
UPDATE bomwork
SET bomwork_status='U'
WHERE ((bomwork_status='N')
AND (bomwork_set_id=_indexid));
END LOOP;
RETURN _indexid;
END;
$_$;
ALTER FUNCTION public.indentedwhereused(integer) OWNER TO admin;
--
-- Name: indentedwo(integer, boolean, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION indentedwo(integer, boolean, boolean, boolean) RETURNS SETOF wodata
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pwoid ALIAS FOR $1;
pshowops ALIAS FOR $2;
pshowmatl ALIAS FOR $3;
pshowindent ALIAS FOR $4;
_row wodata%ROWTYPE;
_subrow wodata%ROWTYPE;
_opx wodata%ROWTYPE;
_x RECORD;
_level INTEGER;
BEGIN
--The wodata_id_type column is used to indicate the source of the wodata_id
--there are three different tables used wo, womatl and womatlvar
--wodata_id_type = 1 = wo_id
--wodata_id_type = 2 = womatl_id
--wodata_id_type = 3 = wooper_id
--initialise values
_level := 0;
--get top level works orders
FOR _x IN
SELECT wo_id,wo_number,wo_subnumber,wo_status,wo_startdate,
wo_duedate,wo_adhoc,wo_itemsite_id,itemsite_qtyonhand,
wo_qtyord,wo_qtyrcv,wo_prodnotes, item_number,
item_descrip1, item_descrip2, uom_name
FROM wo, itemsite, item, uom
WHERE ((wo_id = pwoid)
AND (itemsite_id = wo_itemsite_id)
AND (itemsite_item_id=item_id)
AND (item_inv_uom_id=uom_id))
ORDER BY wo_number, wo_subnumber
LOOP
_row.wodata_id := _x.wo_id;
_row.wodata_id_type := 1;
_row.wodata_number := _x.wo_number;
_row.wodata_subnumber := _x.wo_subnumber;
_row.wodata_itemnumber := _x.item_number;
_row.wodata_descrip := _x.item_descrip1 || '-' || _x.item_descrip2;
_row.wodata_status := _x.wo_status;
_row.wodata_startdate := _x.wo_startdate;
_row.wodata_duedate := _x.wo_duedate;
_row.wodata_adhoc := _x.wo_adhoc;
_row.wodata_itemsite_id := _x.wo_itemsite_id;
_row.wodata_qoh := _x.itemsite_qtyonhand;
_row.wodata_short := noneg(_x.wo_qtyord - _x.wo_qtyrcv);
_row.wodata_qtyrcv := _x.wo_qtyrcv;
_row.wodata_qtyordreq := _x.wo_qtyord;
_row.wodata_qtyuom := _x.uom_name;
_row.wodata_scrap := 0;
_row.wodata_notes := _x.wo_prodnotes;
_row.wodata_level := _level;
RETURN NEXT _row;
IF (pshowmatl AND NOT pshowops) THEN
--expand materials
FOR _subrow IN
SELECT * FROM indentedwomatl(pwoid, _level)
LOOP
RETURN NEXT _subrow;
END LOOP;
END IF;
IF ((pshowmatl OR pshowindent) AND NOT pshowops) THEN
--expand next level down
FOR _subrow IN
SELECT * FROM indentedwo(_x.wo_id, NULL, _level + 1, pshowmatl, pshowindent)
LOOP
RETURN NEXT _subrow;
END LOOP;
END IF;
IF (pshowops) THEN
--expand materials not on operations
IF (pshowmatl) THEN
FOR _subrow IN
SELECT * FROM indentedwomatl(pwoid, -1, _level)
LOOP
RETURN NEXT _subrow;
END LOOP;
END IF;
IF (pshowmatl OR pshowindent) THEN
--expand next level down
FOR _subrow IN
SELECT * FROM indentedwo(_x.wo_id, -1, _level + 1, pshowmatl, pshowindent)
LOOP
RETURN NEXT _subrow;
END LOOP;
END IF;
--expand opeartions
FOR _opx IN
SELECT * FROM xtmfg.indentedwoops(pwoid,_level)
LOOP
RETURN NEXT _opx;
IF (pshowmatl) THEN
--expand materials on operations
FOR _subrow IN
SELECT * FROM indentedwomatl(pwoid, _opx.wodata_id, _level + 1)
LOOP
RETURN NEXT _subrow;
END LOOP;
END IF;
IF (pshowmatl OR pshowindent) THEN
--expand next level down
FOR _subrow IN
SELECT * FROM indentedwo(_x.wo_id, _opx.wodata_id, _level + 2, pshowmatl, pshowindent)
LOOP
RETURN NEXT _subrow;
END LOOP;
END IF;
END LOOP;
END IF;
END LOOP;
RETURN;
END;
$_$;
ALTER FUNCTION public.indentedwo(integer, boolean, boolean, boolean) OWNER TO admin;
--
-- Name: indentedwo(integer, integer, integer, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION indentedwo(integer, integer, integer, boolean, boolean) RETURNS SETOF wodata
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pwoid ALIAS FOR $1;
pwooperid ALIAS FOR $2;
plevel ALIAS FOR $3;
pshowmatl ALIAS FOR $4;
pshowindent ALIAS FOR $5;
_row wodata%ROWTYPE;
_opx wodata%ROWTYPE;
_x RECORD;
_subx RECORD;
_index INTEGER;
_level INTEGER;
_qry TEXT;
BEGIN
--The wodata id column is used to indicate the source of the id
--there are three different tables used wo, womatl and womatlvar
--wodata_id_type = 1 = wo_id
--wodata_id_type = 2 = womatl_id
--wodata_id_type = 3 = wooper_id
_level := (plevel + 1);
--find all WO with the ordid of the next level up
_qry := 'SELECT wo_id,wo_number,wo_subnumber,wo_status,wo_startdate,wo_duedate,
wo_adhoc,wo_itemsite_id,itemsite_qtyonhand,wo_qtyord,wo_qtyrcv, wo_prodnotes,
item_number,item_descrip1, item_descrip2, uom_name,
womatl_qtyiss, womatl_scrap, womatl_wooper_id
FROM itemsite, wo, item, uom, womatl
WHERE ((wo_ordid = ' || pwoid || ')
AND (wo_ordtype = ''W'')
AND (itemsite_item_id=item_id)
AND (item_inv_uom_id=uom_id)
AND (wo_womatl_id=womatl_id)
AND (wo_itemsite_id = itemsite_id) ';
IF (pwooperid IS NOT NULL) THEN
_qry := _qry || ' AND (womatl_wooper_id=' || pwooperid || ') ';
END IF;
_qry := _qry || ') ORDER BY wo_number, wo_subnumber';
/* if (pwooperid IS NOT NULL) THEN
raise exception 'stop %',_qry;
END IF;*/
FOR _x IN
EXECUTE _qry
LOOP
_row.wodata_id := _x.wo_id;
_row.wodata_id_type := 1;
_row.wodata_number := _x.wo_number;
_row.wodata_subnumber := _x.wo_subnumber;
_row.wodata_itemnumber := _x.item_number;
_row.wodata_descrip := _x.item_descrip1 || '-' || _x.item_descrip2;
_row.wodata_status := _x.wo_status;
_row.wodata_startdate := _x.wo_startdate;
_row.wodata_duedate := _x.wo_duedate;
_row.wodata_adhoc := _x.wo_adhoc;
_row.wodata_itemsite_id := _x.wo_itemsite_id;
_row.wodata_qoh := _x.itemsite_qtyonhand;
_row.wodata_short := noneg(_x.wo_qtyord - _x.wo_qtyrcv);
_row.wodata_qtyiss := _x.womatl_qtyiss;
_row.wodata_qtyrcv := _x.wo_qtyrcv;
_row.wodata_qtyordreq := _x.wo_qtyord;
_row.wodata_scrap := _x.womatl_scrap;
_row.wodata_notes := _x.wo_prodnotes;
_row.wodata_level := plevel;
RETURN NEXT _row;
--if indentation require expand next level
IF (pshowindent AND pwooperid IS NULL) THEN
IF (pshowmatl AND pshowindent) THEN
--get materials for this level
FOR _subx IN
SELECT * FROM indentedwomatl(_x.wo_id, plevel)
LOOP
RETURN NEXT _subx;
END LOOP;
END IF;
IF (pshowindent) THEN
--expand lower levels
FOR _subx IN
SELECT * FROM indentedwo(_x.wo_id, NULL, _level, pshowmatl, pshowindent )
LOOP
RETURN NEXT _subx;
END LOOP;
END IF;
ELSIF (pshowindent) THEN --Handle operations
--expand materials not on operations
IF (pshowmatl) THEN
FOR _subx IN
SELECT * FROM indentedwomatl(_x.wo_id, -1, plevel)
LOOP
RETURN NEXT _subx;
END LOOP;
END IF;
--expand next level down not on operations
FOR _subx IN
SELECT * FROM indentedwo(_x.wo_id, -1, _level, pshowmatl, pshowindent)
LOOP
RETURN NEXT _subx;
END LOOP;
--expand operations
FOR _opx IN
SELECT * FROM xtmfg.indentedwoops(_x.wo_id,plevel)
LOOP
RETURN NEXT _opx;
IF (pshowmatl) THEN
--expand materials on operations
FOR _subx IN
SELECT * FROM indentedwomatl(_x.wo_id, _opx.wodata_id, _level)
LOOP
RETURN NEXT _subx;
-- raise exception 'stop %',_opx.wodata_id;
END LOOP;
END IF;
--expand next level down
FOR _subx IN
SELECT * FROM indentedwo(_x.wo_id, _opx.wodata_id, _level + 2, pshowmatl, pshowindent)
LOOP
RETURN NEXT _subx;
END LOOP;
END LOOP;
END IF;
END LOOP;
RETURN;
END;
$_$;
ALTER FUNCTION public.indentedwo(integer, integer, integer, boolean, boolean) OWNER TO admin;
--
-- Name: indentedwomatl(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION indentedwomatl(integer, integer) RETURNS SETOF wodata
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pwoid ALIAS FOR $1;
plevel ALIAS FOR $2;
_subx RECORD;
BEGIN
FOR _subx IN
SELECT * FROM indentedwomatl(pwoid, NULL::integer, plevel)
LOOP
RETURN NEXT _subx;
END LOOP;
RETURN;
END;
$_$;
ALTER FUNCTION public.indentedwomatl(integer, integer) OWNER TO admin;
--
-- Name: indentedwomatl(integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION indentedwomatl(integer, integer, integer) RETURNS SETOF wodata
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pwoid ALIAS FOR $1;
pwooperid ALIAS FOR $2;
plevel ALIAS FOR $3;
_status TEXT;
_subrow wodata%ROWTYPE;
_subx RECORD;
_level INTEGER;
_qry TEXT;
BEGIN
--The wodata id column is used to indicate the source of the id
--there are three different tables used wo, womatl and womatlvar
--wodata_id_type = 1 = wo_id
--wodata_id_type = 2 = womatl_id
--wodata_id_type = 3 = wooper_id
_qry := 'SELECT womatl_id, wo_number, wo_subnumber,
wo_startdate, womatl_duedate, womatl_itemsite_id,
itemsite_qtyonhand, womatl_qtyreq, womatl_qtyiss,
womatl_qtyper, womatl_qtyreq, womatl_scrap,
womatl_ref, womatl_notes, item_number,
item_descrip1, item_descrip2, uom_name
FROM womatl, wo, itemsite, item, uom
WHERE ((wo_id = womatl_wo_id)
AND (wo_id = ' || pwoid || ')
AND (womatl_itemsite_id = itemsite_id)
AND (itemsite_item_id=item_id)
AND (womatl_uom_id=uom_id) ';
-- Need to display in case child w/o is deleted
-- AND (NOT womatl_createwo OR womatl_createwo IS NULL) ';
IF (pwooperid IS NOT NULL) THEN
_qry := _qry || 'AND (womatl_wooper_id=' || pwooperid || ')';
END IF;
_qry := _qry || ') ORDER BY item_number;';
_level := plevel + 1;
SELECT wo_status FROM wo WHERE wo_id = pwoid LIMIT 1 INTO _status;
FOR _subx IN
EXECUTE _qry
LOOP
_subrow.wodata_id := _subx.womatl_id;
_subrow.wodata_id_type := 2;
_subrow.wodata_number := _subx.wo_number;
_subrow.wodata_subnumber := _subx.wo_subnumber;
_subrow.wodata_itemnumber := _subx.item_number;
_subrow.wodata_descrip := _subx.item_descrip1 || '-' || _subx.item_descrip2;
_subrow.wodata_status := _status;
_subrow.wodata_startdate := _subx.wo_startdate;
_subrow.wodata_duedate := _subx.womatl_duedate;
_subrow.wodata_itemsite_id := _subx.womatl_itemsite_id;
_subrow.wodata_qoh := _subx.itemsite_qtyonhand;
IF((_subx.itemsite_qtyonhand > (_subx.womatl_qtyreq - _subx.womatl_qtyiss))) THEN
_subrow.wodata_short := 0;
ELSE
_subrow.wodata_short := (_subx.womatl_qtyreq - _subx.womatl_qtyiss) - _subx.itemsite_qtyonhand;
END IF;
_subrow.wodata_qtyper := _subx.womatl_qtyper;
_subrow.wodata_qtyiss := _subx.womatl_qtyiss;
_subrow.wodata_qtyordreq := _subx.womatl_qtyreq;
_subrow.wodata_qtyuom := _subx.uom_name;
_subrow.wodata_scrap := _subx.womatl_scrap;
_subrow.wodata_notes := _subx.womatl_notes;
_subrow.wodata_ref := _subx.womatl_ref;
_subrow.wodata_level := _level;
RETURN NEXT _subrow;
END LOOP;
RETURN;
END;
$_$;
ALTER FUNCTION public.indentedwomatl(integer, integer, integer) OWNER TO admin;
--
-- Name: initeffectivextuser(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION initeffectivextuser() RETURNS void
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
-- Effective users use a temporary table to store the user information
-- and this function, called by the other functions, makes sure the temp
-- tables exist first.
PERFORM *
FROM pg_catalog.pg_class
WHERE relname = 'effective_user'
AND relnamespace = pg_catalog.pg_my_temp_schema();
IF NOT FOUND THEN
CREATE TEMPORARY TABLE effective_user (
effective_key TEXT,
effective_value TEXT
);
CREATE UNIQUE INDEX effective_user_pkey ON effective_user (effective_key);
END IF;
END;
$$;
ALTER FUNCTION public.initeffectivextuser() OWNER TO admin;
--
-- Name: initialdistribution(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION initialdistribution(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pLocationid ALIAS FOR $2;
_itemlocid INTEGER;
_invhistid INTEGER;
_itemlocSeries INTEGER;
_r RECORD;
BEGIN
-- Make sure the passed itemsite points to a real item
IF ( (SELECT (item_type IN ('R', 'F') OR itemsite_costmethod = 'J')
FROM itemsite, item
WHERE ( (itemsite_item_id=item_id)
AND (itemsite_id=pItemsiteid) ) ) ) THEN
RETURN 0;
END IF;
_itemlocSeries := NEXTVAL('itemloc_series_seq');
-- Reassign the location_id for all existing itemlocs if
-- the passed itemsite is already lot/serial controlled
IF ( ( SELECT (itemsite_controlmethod IN ('L', 'S'))
FROM itemsite
WHERE (itemsite_id=pItemsiteid) ) ) THEN
FOR _r IN SELECT itemloc_id, itemloc_ls_id, itemloc_qty
FROM itemloc
WHERE (itemloc_itemsite_id=pItemsiteid) LOOP
-- Create the RL transaction
SELECT NEXTVAL('invhist_invhist_id_seq') INTO _invhistid;
INSERT INTO invhist
( invhist_id, invhist_itemsite_id, invhist_series,
invhist_transtype, invhist_invqty,
invhist_qoh_before, invhist_qoh_after,
invhist_comments,
invhist_invuom, invhist_unitcost, invhist_hasdetail,
invhist_costmethod, invhist_value_before, invhist_value_after )
SELECT _invhistid, itemsite_id, _itemlocSeries,
'RL', 0,
_r.itemloc_qty, _r.itemloc_qty,
'Initial Distribution',
uom_name, stdCost(item_id), TRUE,
itemsite_costmethod, itemsite_value, itemsite_value
FROM item, itemsite, uom
WHERE ( (itemsite_item_id=item_id)
AND (item_inv_uom_id=uom_id)
AND (itemsite_controlmethod <> 'N')
AND (itemsite_id=pItemsiteid) );
-- Update the itemloc
UPDATE itemloc
SET itemloc_location_id=pLocationid
WHERE (itemloc_id=_r.itemloc_id);
-- Record the detail transaction
INSERT INTO invdetail
( invdetail_invhist_id, invdetail_location_id, invdetail_ls_id,
invdetail_qty, invdetail_qty_before, invdetail_qty_after )
VALUES
( _invhistid, pLocationid, _r.itemloc_ls_id,
_r.itemloc_qty, 0, _r.itemloc_qty );
-- Adjust QOH if this itemlocdist is to/from a non-netable location
IF ( SELECT (NOT location_netable)
FROM location
WHERE (location_id=pLocationid) ) THEN
INSERT INTO invhist
( invhist_itemsite_id, invhist_series,
invhist_transtype, invhist_invqty,
invhist_qoh_before, invhist_qoh_after,
invhist_comments,
invhist_invuom, invhist_unitcost,
invhist_costmethod, invhist_value_before, invhist_value_after )
SELECT itemsite_id, _itemlocSeries,
'NN', (_r.itemloc_qty * -1),
_r.itemloc_qty, 0,
'Initial Distribution',
uom_name, stdCost(item_id),
itemsite_costmethod, itemsite_value, itemsite_value
FROM itemsite, item, uom
WHERE ( (itemsite_item_id=item_id)
AND (item_inv_uom_id=uom_id)
AND (itemsite_controlmethod <> 'N')
AND (itemsite_id=pItemsiteid) );
UPDATE itemsite
SET itemsite_nnqoh = (itemsite_nnqoh + _r.itemloc_qty),
itemsite_qtyonhand = (itemsite_qtyonhand - _r.itemloc_qty)
WHERE (itemsite_id=pItemsiteid);
END IF;
END LOOP;
ELSE
-- The passed itemsite is not lot/serial controlled
-- Make sure that there are not any stagnent itemlocs
DELETE FROM itemloc
WHERE (itemloc_itemsite_id=pItemsiteid);
-- Create the RL transaction
SELECT NEXTVAL('invhist_invhist_id_seq') INTO _invhistid;
INSERT INTO invhist
( invhist_id, invhist_itemsite_id, invhist_series,
invhist_transtype, invhist_invqty,
invhist_qoh_before, invhist_qoh_after,
invhist_comments,
invhist_invuom, invhist_unitcost, invhist_hasdetail,
invhist_costmethod, invhist_value_before, invhist_value_after )
SELECT _invhistid, itemsite_id, _itemlocSeries,
'RL', 0,
itemsite_qtyonhand, itemsite_qtyonhand,
'Initial Distribution',
uom_name, stdCost(item_id), TRUE,
itemsite_costmethod, itemsite_value, itemsite_value
FROM item, itemsite, uom
WHERE ( (itemsite_item_id=item_id)
AND (item_inv_uom_id=uom_id)
AND (itemsite_controlmethod <> 'N')
AND (itemsite_id=pItemsiteid) );
-- Create the itemloc
SELECT NEXTVAL('itemloc_itemloc_id_seq') INTO _itemlocid;
INSERT INTO itemloc
( itemloc_id, itemloc_itemsite_id, itemloc_location_id,
itemloc_expiration, itemloc_qty )
SELECT _itemlocid, itemsite_id, pLocationid,
endOfTime(), itemsite_qtyonhand
FROM itemsite
WHERE (itemsite_id=pItemsiteid);
-- Record the detail transaction
INSERT INTO invdetail
( invdetail_invhist_id, invdetail_location_id,
invdetail_qty, invdetail_qty_before, invdetail_qty_after )
SELECT _invhistid, pLocationid,
itemsite_qtyonhand, 0, itemsite_qtyonhand
FROM itemsite
WHERE (itemsite_id=pItemsiteid);
-- Adjust QOH if this itemlocdist is to/from a non-netable location
IF ( SELECT (NOT location_netable)
FROM location
WHERE (location_id=pLocationid) ) THEN
INSERT INTO invhist
( invhist_itemsite_id, invhist_series,
invhist_transtype, invhist_invqty,
invhist_qoh_before, invhist_qoh_after,
invhist_comments,
invhist_invuom, invhist_unitcost,
invhist_costmethod, invhist_value_before, invhist_value_after )
SELECT itemsite_id, _itemlocSeries,
'NN', (itemloc_qty * -1),
itemloc_qty, 0,
'Initial Distribution',
uom_name, stdCost(item_id),
itemsite_costmethod, itemsite_value, itemsite_value
FROM itemloc, itemsite, item, uom
WHERE ( (itemsite_item_id=item_id)
AND (item_inv_uom_id=uom_id)
AND (itemsite_controlmethod <> 'N')
AND (itemloc_itemsite_id=itemsite_id)
AND (itemloc_id=_itemlocid) );
UPDATE itemsite
SET itemsite_nnqoh = itemsite_qtyonhand,
itemsite_qtyonhand = 0
FROM itemloc
WHERE ( (itemloc_itemsite_id=itemsite_id)
AND (itemloc_id=_itemlocid) );
END IF;
END IF;
RETURN _itemlocid;
END;
$_$;
ALTER FUNCTION public.initialdistribution(integer, integer) OWNER TO admin;
--
-- Name: apopen; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE apopen (
apopen_id integer DEFAULT nextval(('"apopen_apopen_id_seq"'::text)::regclass) NOT NULL,
apopen_docdate date,
apopen_duedate date,
apopen_terms_id integer,
apopen_vend_id integer,
apopen_doctype character(1),
apopen_docnumber text,
apopen_amount numeric(20,2),
apopen_notes text,
apopen_posted boolean,
apopen_reference text,
apopen_invcnumber text,
apopen_ponumber text,
apopen_journalnumber integer,
apopen_paid numeric(20,2) DEFAULT 0,
apopen_open boolean,
apopen_username text,
apopen_discount boolean DEFAULT false NOT NULL,
apopen_accnt_id integer DEFAULT (-1),
apopen_curr_id integer DEFAULT basecurrid(),
apopen_closedate date,
apopen_distdate date,
apopen_void boolean DEFAULT false NOT NULL,
apopen_curr_rate numeric NOT NULL,
apopen_discountable_amount numeric(20,2) DEFAULT 0,
apopen_status text,
CONSTRAINT apopen_apopen_status_check CHECK ((((apopen_status = 'O'::text) OR (apopen_status = 'H'::text)) OR (apopen_status = 'C'::text))),
CONSTRAINT apopen_apopen_status_notnull CHECK ((apopen_status IS NOT NULL))
);
ALTER TABLE public.apopen OWNER TO admin;
--
-- Name: TABLE apopen; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE apopen IS 'Accounts Payable (A/P) open Items information';
--
-- Name: curr_symbol; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE curr_symbol (
curr_id integer NOT NULL,
curr_base boolean DEFAULT false NOT NULL,
curr_name character varying(50) NOT NULL,
curr_symbol character varying(9) NOT NULL,
curr_abbr character varying(3) NOT NULL
);
ALTER TABLE public.curr_symbol OWNER TO admin;
--
-- Name: TABLE curr_symbol; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE curr_symbol IS 'Currency Names, Symbols, and Abbreviations';
--
-- Name: terms; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE terms (
terms_id integer DEFAULT nextval(('terms_terms_id_seq'::text)::regclass) NOT NULL,
terms_code text NOT NULL,
terms_descrip text,
terms_type character(1),
terms_duedays integer,
terms_discdays integer,
terms_discprcnt numeric(10,6),
terms_cutoffday integer,
terms_ap boolean,
terms_ar boolean,
CONSTRAINT terms_terms_code_check CHECK ((terms_code <> ''::text))
);
ALTER TABLE public.terms OWNER TO admin;
--
-- Name: TABLE terms; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE terms IS 'Billing Terms information';
--
-- Name: vendinfo; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE vendinfo (
vend_id integer DEFAULT nextval(('vend_vend_id_seq'::text)::regclass) NOT NULL,
vend_name text,
vend_lastpurchdate date,
vend_active boolean,
vend_po boolean,
vend_comments text,
vend_pocomments text,
vend_number text NOT NULL,
vend_1099 boolean,
vend_exported boolean,
vend_fobsource character(1),
vend_fob text,
vend_terms_id integer,
vend_shipvia text,
vend_vendtype_id integer,
vend_qualified boolean,
vend_ediemail text,
vend_ediemailbody text,
vend_edisubject text,
vend_edifilename text,
vend_accntnum text,
vend_emailpodelivery boolean,
vend_restrictpurch boolean,
vend_edicc text,
vend_curr_id integer DEFAULT basecurrid(),
vend_cntct1_id integer,
vend_cntct2_id integer,
vend_addr_id integer,
vend_match boolean DEFAULT false NOT NULL,
vend_ach_enabled boolean DEFAULT false NOT NULL,
vend_ach_accnttype text,
vend_ach_use_vendinfo boolean DEFAULT true NOT NULL,
vend_ach_indiv_number text DEFAULT ''::text NOT NULL,
vend_ach_indiv_name text DEFAULT ''::text NOT NULL,
vend_ediemailhtml boolean DEFAULT false NOT NULL,
vend_ach_routingnumber bytea DEFAULT '\\000'::bytea NOT NULL,
vend_ach_accntnumber bytea DEFAULT '\\000'::bytea NOT NULL,
vend_taxzone_id integer,
vend_accnt_id integer,
vend_expcat_id integer DEFAULT (-1),
vend_tax_id integer DEFAULT (-1),
CONSTRAINT vendinfo_vend_ach_accnttype_check CHECK (((vend_ach_accnttype = 'K'::text) OR (vend_ach_accnttype = 'C'::text))),
CONSTRAINT vendinfo_vend_number_check CHECK ((vend_number <> ''::text))
);
ALTER TABLE public.vendinfo OWNER TO admin;
--
-- Name: TABLE vendinfo; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE vendinfo IS 'Vendor information';
--
-- Name: COLUMN vendinfo.vend_ach_accnttype; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN vendinfo.vend_ach_accnttype IS 'Type of bank account: K = checKing, C = Cash = savings. These values were chosen to be consistent with bankaccnt_type.';
SET search_path = api, pg_catalog;
--
-- Name: apmemo; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW apmemo AS
SELECT vendinfo.vend_number AS vendor_number, apopen.apopen_docdate AS document_date, apopen.apopen_duedate AS due_date, CASE WHEN (apopen.apopen_doctype = 'C'::bpchar) THEN 'Credit Memo'::text ELSE 'Debit Memo'::text END AS document_type, apopen.apopen_docnumber AS document_number, apopen.apopen_ponumber AS po_number, apopen.apopen_journalnumber AS journal_number, terms.terms_code AS terms, curr.curr_abbr AS currency, apopen.apopen_amount AS amount, apopen.apopen_paid AS paid, (apopen.apopen_amount - apopen.apopen_paid) AS balance, apopen.apopen_notes AS notes, CASE WHEN (apopen.apopen_accnt_id = (-1)) THEN NULL::text ELSE public.formatglaccount(apopen.apopen_accnt_id) END AS alternate_prepaid_account FROM (((public.apopen LEFT JOIN public.vendinfo ON ((vendinfo.vend_id = apopen.apopen_vend_id))) LEFT JOIN public.curr_symbol curr ON ((curr.curr_id = apopen.apopen_curr_id))) LEFT JOIN public.terms ON ((terms.terms_id = apopen.apopen_terms_id))) WHERE (apopen.apopen_doctype = ANY (ARRAY['C'::bpchar, 'D'::bpchar]));
ALTER TABLE api.apmemo OWNER TO admin;
--
-- Name: VIEW apmemo; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW apmemo IS 'A/P Credit and Debit Memo';
SET search_path = public, pg_catalog;
--
-- Name: insertapmemo(api.apmemo); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertapmemo(api.apmemo) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNew ALIAS FOR $1;
_result INTEGER;
BEGIN
IF (pNew.document_type = 'Credit Memo') THEN
SELECT createAPCreditMemo( getVendId(pNew.vendor_number),
pNew.document_number,
pNew.po_number,
pNew.document_date,
pNew.amount,
pNew.notes,
getGLAccntId(pNew.alternate_prepaid_account),
pNew.due_date,
getTermsId(pNew.terms) ) INTO _result;
IF (_result <= 0) THEN
RAISE EXCEPTION 'Function createAPCreditMemo failed with result = %', _result;
END IF;
ELSE
IF (pNew.document_type = 'Debit Memo') THEN
SELECT createAPDebitMemo( null, getVendId(pNew.vendor_number),
pNew.journal_number,
pNew.document_number,
pNew.po_number,
pNew.document_date,
pNew.amount,
pNew.notes,
getGLAccntId(pNew.alternate_prepaid_account),
pNew.due_date,
getTermsId(pNew.terms),
COALESCE(getCurrId(pNew.currency), baseCurrId()) ) INTO _result;
IF (_result <= 0) THEN
RAISE EXCEPTION 'Function createAPDebitMemo failed with result = %', _result;
END IF;
ELSE
RAISE EXCEPTION 'Function insertAPMemo failed, invalid Document Type';
END IF;
END IF;
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.insertapmemo(api.apmemo) OWNER TO admin;
--
-- Name: aropen; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE aropen (
aropen_id integer DEFAULT nextval(('"aropen_aropen_id_seq"'::text)::regclass) NOT NULL,
aropen_docdate date NOT NULL,
aropen_duedate date NOT NULL,
aropen_terms_id integer,
aropen_cust_id integer,
aropen_doctype character(1),
aropen_docnumber text,
aropen_applyto text,
aropen_ponumber text,
aropen_amount numeric(20,2) NOT NULL,
aropen_notes text,
aropen_posted boolean DEFAULT false NOT NULL,
aropen_salesrep_id integer,
aropen_commission_due numeric(20,2),
aropen_commission_paid boolean DEFAULT false,
aropen_ordernumber text,
aropen_cobmisc_id integer DEFAULT (-1),
aropen_journalnumber integer,
aropen_paid numeric(20,2) DEFAULT 0,
aropen_open boolean,
aropen_username text,
aropen_rsncode_id integer,
aropen_salescat_id integer DEFAULT (-1),
aropen_accnt_id integer DEFAULT (-1),
aropen_curr_id integer DEFAULT basecurrid(),
aropen_closedate date,
aropen_distdate date,
aropen_curr_rate numeric NOT NULL,
aropen_discount boolean DEFAULT false NOT NULL
);
ALTER TABLE public.aropen OWNER TO admin;
--
-- Name: TABLE aropen; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE aropen IS 'Accounts Receivable (A/R) open Items information';
--
-- Name: custinfo; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE custinfo (
cust_id integer DEFAULT nextval(('cust_cust_id_seq'::text)::regclass) NOT NULL,
cust_active boolean NOT NULL,
cust_custtype_id integer,
cust_salesrep_id integer,
cust_commprcnt numeric(10,6),
cust_name text,
cust_creditlmt integer,
cust_creditrating text,
cust_financecharge boolean,
cust_backorder boolean NOT NULL,
cust_partialship boolean NOT NULL,
cust_terms_id integer,
cust_discntprcnt numeric(10,6) NOT NULL,
cust_balmethod character(1) NOT NULL,
cust_ffshipto boolean NOT NULL,
cust_shipform_id integer,
cust_shipvia text,
cust_blanketpos boolean NOT NULL,
cust_shipchrg_id integer NOT NULL,
cust_creditstatus character(1) NOT NULL,
cust_comments text,
cust_ffbillto boolean NOT NULL,
cust_usespos boolean NOT NULL,
cust_number text NOT NULL,
cust_dateadded date DEFAULT ('now'::text)::date,
cust_exported boolean DEFAULT false,
cust_emaildelivery boolean DEFAULT false,
cust_ediemail text,
cust_edisubject text,
cust_edifilename text,
cust_ediemailbody text,
cust_autoupdatestatus boolean NOT NULL,
cust_autoholdorders boolean NOT NULL,
cust_edicc text,
cust_ediprofile_id integer,
cust_preferred_warehous_id integer DEFAULT (-1) NOT NULL,
cust_curr_id integer DEFAULT basecurrid(),
cust_creditlmt_curr_id integer DEFAULT basecurrid(),
cust_cntct_id integer,
cust_corrcntct_id integer,
cust_soemaildelivery boolean DEFAULT false,
cust_soediemail text,
cust_soedisubject text,
cust_soedifilename text,
cust_soediemailbody text,
cust_soedicc text,
cust_soediprofile_id integer,
cust_gracedays integer,
cust_ediemailhtml boolean DEFAULT false NOT NULL,
cust_soediemailhtml boolean DEFAULT false NOT NULL,
cust_taxzone_id integer,
CONSTRAINT custinfo_balmethod_check CHECK (((cust_balmethod = 'B'::bpchar) OR (cust_balmethod = 'O'::bpchar))),
CONSTRAINT custinfo_creditstatus_check CHECK ((((cust_creditstatus = 'G'::bpchar) OR (cust_creditstatus = 'W'::bpchar)) OR (cust_creditstatus = 'H'::bpchar))),
CONSTRAINT custinfo_cust_number_check CHECK ((cust_number <> ''::text))
);
ALTER TABLE public.custinfo OWNER TO admin;
--
-- Name: TABLE custinfo; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE custinfo IS 'Customer information';
--
-- Name: COLUMN custinfo.cust_ediemail; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custinfo.cust_ediemail IS 'Deprecated column - DO NOT USE';
--
-- Name: COLUMN custinfo.cust_edisubject; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custinfo.cust_edisubject IS 'Deprecated column - DO NOT USE';
--
-- Name: COLUMN custinfo.cust_edifilename; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custinfo.cust_edifilename IS 'Deprecated column - DO NOT USE';
--
-- Name: COLUMN custinfo.cust_ediemailbody; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custinfo.cust_ediemailbody IS 'Deprecated column - DO NOT USE';
--
-- Name: COLUMN custinfo.cust_edicc; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custinfo.cust_edicc IS 'Deprecated column - DO NOT USE';
--
-- Name: COLUMN custinfo.cust_ediprofile_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custinfo.cust_ediprofile_id IS 'Deprecated column - DO NOT USE';
--
-- Name: COLUMN custinfo.cust_soediemail; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custinfo.cust_soediemail IS 'Deprecated column - DO NOT USE';
--
-- Name: COLUMN custinfo.cust_soedisubject; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custinfo.cust_soedisubject IS 'Deprecated column - DO NOT USE';
--
-- Name: COLUMN custinfo.cust_soedifilename; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custinfo.cust_soedifilename IS 'Deprecated column - DO NOT USE';
--
-- Name: COLUMN custinfo.cust_soediemailbody; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custinfo.cust_soediemailbody IS 'Deprecated column - DO NOT USE';
--
-- Name: COLUMN custinfo.cust_soedicc; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custinfo.cust_soedicc IS 'Deprecated column - DO NOT USE';
--
-- Name: COLUMN custinfo.cust_soediprofile_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custinfo.cust_soediprofile_id IS 'Deprecated column - DO NOT USE';
--
-- Name: COLUMN custinfo.cust_ediemailhtml; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custinfo.cust_ediemailhtml IS 'Deprecated column - DO NOT USE';
--
-- Name: COLUMN custinfo.cust_soediemailhtml; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custinfo.cust_soediemailhtml IS 'Deprecated column - DO NOT USE';
--
-- Name: rsncode; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE rsncode (
rsncode_id integer NOT NULL,
rsncode_code text NOT NULL,
rsncode_descrip text,
rsncode_doctype text,
CONSTRAINT rsncode_rsncode_code_check CHECK ((rsncode_code <> ''::text))
);
ALTER TABLE public.rsncode OWNER TO admin;
--
-- Name: TABLE rsncode; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE rsncode IS 'Debit/Credit Memo Reason Code information';
--
-- Name: salescat; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE salescat (
salescat_id integer NOT NULL,
salescat_active boolean,
salescat_name text NOT NULL,
salescat_descrip text,
salescat_sales_accnt_id integer,
salescat_prepaid_accnt_id integer,
salescat_ar_accnt_id integer,
CONSTRAINT salescat_salescat_name_check CHECK ((salescat_name <> ''::text))
);
ALTER TABLE public.salescat OWNER TO admin;
--
-- Name: TABLE salescat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE salescat IS 'Sales Category information';
--
-- Name: salesrep; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE salesrep (
salesrep_id integer DEFAULT nextval(('salesrep_salesrep_id_seq'::text)::regclass) NOT NULL,
salesrep_active boolean,
salesrep_number text NOT NULL,
salesrep_name text,
salesrep_commission numeric(8,4),
salesrep_method character(1),
salesrep_emp_id integer,
CONSTRAINT salesrep_salesrep_number_check CHECK ((salesrep_number <> ''::text))
);
ALTER TABLE public.salesrep OWNER TO admin;
--
-- Name: TABLE salesrep; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE salesrep IS 'Sales Representative information';
--
-- Name: COLUMN salesrep.salesrep_emp_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN salesrep.salesrep_emp_id IS 'DEPRECATED - the relationship between Sales Rep and Employee is now maintained through the crmacct table.';
SET search_path = api, pg_catalog;
--
-- Name: armemo; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW armemo AS
SELECT custinfo.cust_number AS customer_number, aropen.aropen_docdate AS document_date, aropen.aropen_duedate AS due_date, CASE WHEN (aropen.aropen_doctype = 'C'::bpchar) THEN 'Credit Memo'::text ELSE 'Debit Memo'::text END AS document_type, aropen.aropen_docnumber AS document_number, aropen.aropen_applyto AS order_number, aropen.aropen_journalnumber AS journal_number, rsncode.rsncode_code AS reason_code, terms.terms_code AS terms, salesrep.salesrep_number AS sales_rep, curr.curr_abbr AS currency, aropen.aropen_amount AS amount, aropen.aropen_paid AS paid, (aropen.aropen_amount - aropen.aropen_paid) AS balance, aropen.aropen_commission_due AS commission_due, aropen.aropen_commission_paid AS commission_paid, aropen.aropen_notes AS notes, salescat.salescat_name AS alternate_prepaid_sales_category, CASE WHEN (aropen.aropen_accnt_id = (-1)) THEN NULL::text ELSE public.formatglaccount(aropen.aropen_accnt_id) END AS alternate_prepaid_account FROM ((((((public.aropen LEFT JOIN public.custinfo ON ((custinfo.cust_id = aropen.aropen_cust_id))) LEFT JOIN public.curr_symbol curr ON ((curr.curr_id = aropen.aropen_curr_id))) LEFT JOIN public.salesrep ON ((salesrep.salesrep_id = aropen.aropen_salesrep_id))) LEFT JOIN public.terms ON ((terms.terms_id = aropen.aropen_terms_id))) LEFT JOIN public.salescat ON ((salescat.salescat_id = aropen.aropen_salescat_id))) LEFT JOIN public.rsncode ON ((rsncode.rsncode_id = aropen.aropen_rsncode_id))) WHERE (aropen.aropen_doctype = ANY (ARRAY['C'::bpchar, 'D'::bpchar]));
ALTER TABLE api.armemo OWNER TO admin;
--
-- Name: VIEW armemo; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW armemo IS 'A/R Credit and Debit Memo';
SET search_path = public, pg_catalog;
--
-- Name: insertarmemo(api.armemo); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertarmemo(api.armemo) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNew ALIAS FOR $1;
_result INTEGER;
BEGIN
IF (pNew.document_type = 'Credit Memo') THEN
SELECT createARCreditMemo( NULL,
getCustId(pNew.customer_number),
pNew.document_number,
pNew.order_number,
pNew.document_date,
pNew.amount,
pNew.notes,
getRsnId(pNew.reason_code),
getSalescatId(pNew.alternate_prepaid_sales_category),
getGLAccntId(pNew.alternate_prepaid_account),
pNew.due_date,
getTermsId(pNew.terms),
getSalesrepId(pNew.sales_rep),
pNew.commission_due,
pNew.journal_number,
COALESCE(getCurrId(pNew.currency), baseCurrId()) ) INTO _result;
IF (_result <= 0) THEN
RAISE EXCEPTION 'Function createARCreditMemo failed with result = %', _result;
END IF;
ELSE
IF (pNew.document_type = 'Debit Memo') THEN
SELECT createARDebitMemo( null, getCustId(pNew.customer_number),
pNew.journal_number,
pNew.document_number,
pNew.order_number,
pNew.document_date,
pNew.amount,
pNew.notes,
getRsnId(pNew.reason_code),
getSalescatId(pNew.alternate_prepaid_sales_category),
getGLAccntId(pNew.alternate_prepaid_account),
pNew.due_date,
getTermsId(pNew.terms),
getSalesrepId(pNew.sales_rep),
pNew.commission_due,
COALESCE(getCurrId(pNew.currency), baseCurrId()) ) INTO _result;
IF (_result <= 0) THEN
RAISE EXCEPTION 'Function createARDebitMemo failed with result = %', _result;
END IF;
ELSE
RAISE EXCEPTION 'Function insertARMemo failed, invalid Document Type';
END IF;
END IF;
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.insertarmemo(api.armemo) OWNER TO admin;
--
-- Name: insertccard(text, boolean, text, bytea, bytea, bytea, bytea, bytea, bytea, bytea, bytea, bytea, bytea, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertccard(text, boolean, text, bytea, bytea, bytea, bytea, bytea, bytea, bytea, bytea, bytea, bytea, text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustomer ALIAS FOR $1;
pActive ALIAS FOR $2;
pType ALIAS FOR $3;
pNumber ALIAS FOR $4;
pName ALIAS FOR $5;
pAddr1 ALIAS FOR $6;
pAddr2 ALIAS FOR $7;
pCity ALIAS FOR $8;
pState ALIAS FOR $9;
pPostal ALIAS FOR $10;
pCountry ALIAS FOR $11;
pMonth ALIAS FOR $12;
pYear ALIAS FOR $13;
pKey ALIAS FOR $14;
_type CHAR;
_number TEXT;
_month INTEGER;
_year INTEGER;
_result INTEGER;
BEGIN
--Initialize
_number = CAST(encode(pNumber, 'escape') AS text);
_month = CAST(encode(pMonth, 'escape') AS integer);
_year = CAST(encode(pYear, 'escape') AS integer);
-- Check Card holder info
IF (pName IS NULL) THEN
RAISE EXCEPTION 'The name of the card holder must be entered';
END IF;
IF (pAddr1 IS NULL OR pAddr1 = '') THEN
RAISE EXCEPTION 'The first address line must be entered';
END IF;
IF (pCity IS NULL OR pCity = '') THEN
RAISE EXCEPTION 'The city must be entered';
END IF;
IF (pState IS NULL OR pState = '') THEN
RAISE EXCEPTION 'The state must be entered';
END IF;
IF (pPostal IS NULL OR pPostal = '') THEN
RAISE EXCEPTION 'The zip code must be entered';
END IF;
IF (pCountry IS NULL OR pCountry = '') THEN
RAISE EXCEPTION 'The country must be entered';
END IF;
IF (pMonth IS NULL OR pMonth = '') THEN
RAISE EXCEPTION 'The Expiration Month must be entered';
END IF;
IF (_month < 1 OR _month > 12) THEN
RAISE EXCEPTION 'Valid Expiration Months are 01 through 12';
END IF;
IF (LENGTH(_year::text) <> 4) THEN
RAISE EXCEPTION 'Valid Expiration Years are CCYY in format';
END IF;
IF (_year < 1970 OR _year > 2100) THEN
RAISE EXCEPTION 'Valid Expiration Years are 1970 through 2100';
END IF;
-- Check Number Length
IF ((NOT _number ~ '[0-9]{13,16}') OR (LENGTH(_number) = 14) OR (LENGTH(_number) > 16)) THEN
RAISE EXCEPTION 'The credit card number must be all numeric (no spaces or hyphens) and must be 13, 15 or 16 characters in length';
END IF;
-- Convert Type
IF (pType = 'Visa') THEN
_type = 'V';
ELSE
IF (pType = 'Master Card') THEN
_type = 'M';
ELSE
IF (pType = 'American Express') THEN
_type = 'A';
ELSE
IF (pType = 'Discover') THEN
_type = 'D';
ELSE
RAISE EXCEPTION 'You must select Master Card, Visa, American
Express or Discover as the credit card type.';
END IF;
END IF;
END IF;
END IF;
-- Check Card Specific Data
SELECT editccnumber(_number, _type) INTO _result;
IF (_result = -1) THEN
RAISE EXCEPTION 'You must select Master Card, Visa, American
Express or Discover as the credit card type.';
END IF;
IF (_result = -2) THEN
RAISE EXCEPTION 'The length of a Master Card credit card number
has to be 16 digits.';
END IF;
IF (_result = -3) THEN
RAISE EXCEPTION 'The length of a Visa credit card number
has to be either 13 or 16 digits.';
END IF;
IF (_result = -4) THEN
RAISE EXCEPTION 'The length of an American Express credit card
number has to be 15 digits.';
END IF;
IF (_result = -5) THEN
RAISE EXCEPTION 'The length of a Discover credit card number
has to be 16 digits.';
END IF;
IF (_result = -6) THEN
RAISE EXCEPTION 'The first two digits for a valid Master Card
number must be between 51 and 55';
END IF;
IF (_result = -7) THEN
RAISE EXCEPTION 'The first digit for a valid Visa number must
be 4';
END IF;
IF (_result = -8) THEN
RAISE EXCEPTION 'The first two digits for a valid American
Express number must be 34 or 37.';
END IF;
IF (_result = -9) THEN
RAISE EXCEPTION 'The first four digits for a valid Discover
Express number must be 6011.';
END IF;
IF ((_result = -10) AND NOT fetchmetricbool('CCTest')) THEN
RAISE EXCEPTION 'The credit card number that you have provided
is not valid.';
END IF;
IF (_result < -10) THEN
RAISE EXCEPTION 'Invalid Credit Card Information';
END IF;
-- Insert Record
INSERT INTO ccard (
ccard_seq,
ccard_cust_id,
ccard_active,
ccard_name,
ccard_address1,
ccard_address2,
ccard_city,
ccard_state,
ccard_zip,
ccard_country,
ccard_number,
ccard_month_expired,
ccard_year_expired,
ccard_type)
VALUES
((SELECT COALESCE(MAX(ccard_seq), 0) + 10
FROM ccard
WHERE (ccard_cust_id =getCustId(pCustomer))),
getCustId(pCustomer),
COALESCE(pActive),
encrypt(setbytea(pName), setbytea(pKey), 'bf'),
encrypt(setbytea(pAddr1), setbytea(pKey), 'bf'),
encrypt(setbytea(pAddr2), setbytea(pKey), 'bf'),
encrypt(setbytea(pCity), setbytea(pKey), 'bf'),
encrypt(setbytea(pState), setbytea(pKey), 'bf'),
encrypt(setbytea(pPostal), setbytea(pKey), 'bf'),
encrypt(setbytea(pCountry), setbytea(pKey), 'bf'),
encrypt(setbytea(pNumber), setbytea(pKey), 'bf'),
encrypt(setbytea(pMonth), setbytea(pKey), 'bf'),
encrypt(setbytea(pYear), setbytea(pKey), 'bf'),
_type );
RETURN true;
END;
$_$;
ALTER FUNCTION public.insertccard(text, boolean, text, bytea, bytea, bytea, bytea, bytea, bytea, bytea, bytea, bytea, bytea, text) OWNER TO admin;
--
-- Name: FUNCTION insertccard(text, boolean, text, bytea, bytea, bytea, bytea, bytea, bytea, bytea, bytea, bytea, bytea, text); Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON FUNCTION insertccard(text, boolean, text, bytea, bytea, bytea, bytea, bytea, bytea, bytea, bytea, bytea, bytea, text) IS 'This function is generally used to support the _custcreditcard API view';
--
-- Name: cmhead; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cmhead (
cmhead_id integer DEFAULT nextval(('cmhead_cmhead_id_seq'::text)::regclass) NOT NULL,
cmhead_number text NOT NULL,
cmhead_posted boolean,
cmhead_invcnumber text,
cmhead_custponumber text,
cmhead_cust_id integer,
cmhead_docdate date,
cmhead_shipto_id integer,
cmhead_shipto_name text,
cmhead_shipto_address1 text,
cmhead_shipto_address2 text,
cmhead_shipto_address3 text,
cmhead_shipto_city text,
cmhead_shipto_state text,
cmhead_shipto_zipcode text,
cmhead_salesrep_id integer,
cmhead_freight numeric(16,4),
cmhead_misc numeric(16,4),
cmhead_comments text,
cmhead_printed boolean,
cmhead_billtoname text,
cmhead_billtoaddress1 text,
cmhead_billtoaddress2 text,
cmhead_billtoaddress3 text,
cmhead_billtocity text,
cmhead_billtostate text,
cmhead_billtozip text,
cmhead_hold boolean,
cmhead_commission numeric(8,4),
cmhead_misc_accnt_id integer,
cmhead_misc_descrip text,
cmhead_rsncode_id integer,
cmhead_curr_id integer DEFAULT basecurrid(),
cmhead_freighttaxtype_id integer,
cmhead_gldistdate date,
cmhead_billtocountry text,
cmhead_shipto_country text,
cmhead_rahead_id integer,
cmhead_taxzone_id integer,
cmhead_prj_id integer,
cmhead_void boolean DEFAULT false,
cmhead_saletype_id integer,
cmhead_shipzone_id integer,
CONSTRAINT cmhead_cmhead_number_check CHECK ((cmhead_number <> ''::text))
);
ALTER TABLE public.cmhead OWNER TO admin;
--
-- Name: TABLE cmhead; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE cmhead IS 'S/O Credit Memo header information';
--
-- Name: COLUMN cmhead.cmhead_freighttaxtype_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN cmhead.cmhead_freighttaxtype_id IS 'Deprecated column - DO NOT USE';
--
-- Name: COLUMN cmhead.cmhead_saletype_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN cmhead.cmhead_saletype_id IS 'Associated sale type for credit memo.';
--
-- Name: COLUMN cmhead.cmhead_shipzone_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN cmhead.cmhead_shipzone_id IS 'Associated shipping zone for credit memo.';
--
-- Name: shiptoinfo; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE shiptoinfo (
shipto_id integer DEFAULT nextval(('shipto_shipto_id_seq'::text)::regclass) NOT NULL,
shipto_cust_id integer NOT NULL,
shipto_name text,
shipto_salesrep_id integer,
shipto_comments text,
shipto_shipcomments text,
shipto_shipzone_id integer,
shipto_shipvia text,
shipto_commission numeric(10,4) NOT NULL,
shipto_shipform_id integer,
shipto_shipchrg_id integer,
shipto_active boolean NOT NULL,
shipto_default boolean,
shipto_num text,
shipto_ediprofile_id integer,
shipto_cntct_id integer,
shipto_addr_id integer,
shipto_taxzone_id integer
);
ALTER TABLE public.shiptoinfo OWNER TO admin;
--
-- Name: TABLE shiptoinfo; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE shiptoinfo IS 'Ship-To information';
--
-- Name: COLUMN shiptoinfo.shipto_ediprofile_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN shiptoinfo.shipto_ediprofile_id IS 'Deprecated column - DO NOT USE';
--
-- Name: taxzone; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE taxzone (
taxzone_id integer NOT NULL,
taxzone_code text NOT NULL,
taxzone_descrip text,
CONSTRAINT taxzone_taxzone_code_check CHECK ((taxzone_code <> ''::text))
);
ALTER TABLE public.taxzone OWNER TO admin;
--
-- Name: TABLE taxzone; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE taxzone IS 'Tax zone information';
--
-- Name: COLUMN taxzone.taxzone_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxzone.taxzone_id IS 'Primary key';
--
-- Name: COLUMN taxzone.taxzone_code; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxzone.taxzone_code IS 'Code';
--
-- Name: COLUMN taxzone.taxzone_descrip; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxzone.taxzone_descrip IS 'Description';
SET search_path = api, pg_catalog;
--
-- Name: creditmemo; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW creditmemo AS
SELECT cmhead.cmhead_number AS memo_number, CASE WHEN (cmhead.cmhead_invcnumber = '-1'::text) THEN ''::text ELSE cmhead.cmhead_invcnumber END AS apply_to, cmhead.cmhead_docdate AS memo_date, CASE WHEN cmhead.cmhead_posted THEN 'Posted'::text ELSE 'Unposted'::text END AS status, salesrep.salesrep_number AS sales_rep, cmhead.cmhead_commission AS commission, COALESCE(taxzone.taxzone_code, 'None'::text) AS tax_zone, COALESCE(rsncode.rsncode_code, 'None'::text) AS reason_code, cmhead.cmhead_hold AS on_hold, custinfo.cust_number AS customer_number, cmhead.cmhead_billtoname AS billto_name, cmhead.cmhead_billtoaddress1 AS billto_address1, cmhead.cmhead_billtoaddress2 AS billto_address2, cmhead.cmhead_billtoaddress3 AS billto_address3, cmhead.cmhead_billtocity AS billto_city, cmhead.cmhead_billtostate AS billto_state, cmhead.cmhead_billtozip AS billto_postal_code, cmhead.cmhead_billtocountry AS billto_country, shiptoinfo.shipto_num AS shipto_number, cmhead.cmhead_shipto_name AS shipto_name, cmhead.cmhead_shipto_address1 AS shipto_address1, cmhead.cmhead_shipto_address2 AS shipto_address2, cmhead.cmhead_shipto_address3 AS shipto_address3, cmhead.cmhead_shipto_city AS shipto_city, cmhead.cmhead_shipto_state AS shipto_state, cmhead.cmhead_shipto_zipcode AS shipto_postal_code, cmhead.cmhead_shipto_country AS shipto_country, cmhead.cmhead_custponumber AS customer_po_number, cmhead.cmhead_comments AS notes, curr.curr_abbr AS currency, cmhead.cmhead_misc_descrip AS misc_charge_description, cmhead.cmhead_misc AS misc_charge_amount, CASE WHEN (cmhead.cmhead_misc_accnt_id = (-1)) THEN ''::text ELSE public.formatglaccount(cmhead.cmhead_misc_accnt_id) END AS misc_charge_credit_account, cmhead.cmhead_freight AS freight FROM ((((((public.cmhead LEFT JOIN public.custinfo ON ((custinfo.cust_id = cmhead.cmhead_cust_id))) LEFT JOIN public.shiptoinfo ON ((shiptoinfo.shipto_id = cmhead.cmhead_shipto_id))) LEFT JOIN public.curr_symbol curr ON ((curr.curr_id = cmhead.cmhead_curr_id))) LEFT JOIN public.salesrep ON ((salesrep.salesrep_id = cmhead.cmhead_salesrep_id))) LEFT JOIN public.taxzone ON ((taxzone.taxzone_id = cmhead.cmhead_taxzone_id))) LEFT JOIN public.rsncode ON ((rsncode.rsncode_id = cmhead.cmhead_rsncode_id)));
ALTER TABLE api.creditmemo OWNER TO admin;
--
-- Name: VIEW creditmemo; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW creditmemo IS 'Credit Memo Header';
SET search_path = public, pg_catalog;
--
-- Name: insertcreditmemo(api.creditmemo); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertcreditmemo(api.creditmemo) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNew ALIAS FOR $1;
BEGIN
-- NOTE: (SELECT getCustId(...)) seems redundant, but it actually produces
-- a HUGE performance increase because it makes the Postgres query planner
-- use an index scan rather than an sequential table scan on cust_id
INSERT INTO cmhead (
cmhead_number,
cmhead_posted,
cmhead_invcnumber,
cmhead_custponumber,
cmhead_cust_id,
cmhead_docdate,
cmhead_shipto_id,
cmhead_shipto_name,
cmhead_shipto_address1,
cmhead_shipto_address2,
cmhead_shipto_address3,
cmhead_shipto_city,
cmhead_shipto_state,
cmhead_shipto_zipcode,
cmhead_shipto_country,
cmhead_salesrep_id,
cmhead_freight,
cmhead_misc,
cmhead_comments,
cmhead_printed,
cmhead_billtoname,
cmhead_billtoaddress1,
cmhead_billtoaddress2,
cmhead_billtoaddress3,
cmhead_billtocity,
cmhead_billtostate,
cmhead_billtozip,
cmhead_billtocountry,
cmhead_hold,
cmhead_commission,
cmhead_misc_accnt_id,
cmhead_misc_descrip,
cmhead_rsncode_id,
cmhead_curr_id,
cmhead_taxzone_id,
cmhead_gldistdate,
cmhead_rahead_id
)
SELECT
(CASE -- use a case here so we don't unnecessarily fetch a new CM number
WHEN pNew.memo_number IS NULL THEN fetchCMNumber()
ELSE pNew.memo_number
END),
FALSE, -- posted
pNew.apply_to,
pNew.customer_po_number,
cust_id,
COALESCE(pNew.memo_date, CURRENT_DATE),
COALESCE(shipto_id,-1),
pNew.shipto_name,
pNew.shipto_address1,
pNew.shipto_address2,
pNew.shipto_address3,
pNew.shipto_city,
pNew.shipto_state,
pNew.shipto_postal_code,
pNew.shipto_country,
COALESCE(getSalesRepId(pNew.sales_rep),shipto_salesrep_id,cust_salesrep_id),
COALESCE(pNew.freight, 0),
COALESCE(pNew.misc_charge_amount, 0),
pNew.notes,
FALSE, -- printed
COALESCE(pNew.billto_name, invchead_billto_name, cust_name),
COALESCE(pNew.billto_address1, invchead_billto_address1, addr_line1),
COALESCE(pNew.billto_address2, invchead_billto_address2, addr_line2),
COALESCE(pNew.billto_address3, invchead_billto_address3, addr_line3),
COALESCE(pNew.billto_city, invchead_billto_city, addr_city),
COALESCE(pNew.billto_state, invchead_billto_state, addr_state),
COALESCE(pNew.billto_postal_code, invchead_billto_zipcode, addr_postalcode),
COALESCE(pNew.billto_country, invchead_billto_country, addr_country),
COALESCE(pNew.on_hold, FALSE),
COALESCE(pNew.commission, 0),
COALESCE(getGlAccntId(pNew.misc_charge_credit_account),-1),
pNew.misc_charge_description,
(SELECT rsncode_id FROM rsncode WHERE rsncode_code = pNew.reason_code),
COALESCE(getCurrId(pNew.currency),cust_curr_id,basecurrid()),
CASE WHEN pNew.tax_zone = 'None' THEN NULL
ELSE COALESCE(getTaxZoneID(pNew.tax_zone),cust_taxzone_id)
END,
NULL,
NULL
FROM custinfo
LEFT OUTER JOIN shiptoinfo ON (shipto_id=(SELECT CASE
WHEN getShiptoId(pNew.customer_number,pNew.shipto_number) IS NOT NULL
THEN getShiptoId(pNew.customer_number,pNew.shipto_number)
ELSE (SELECT shipto_id FROM shiptoinfo WHERE shipto_cust_id=cust_id AND shipto_default)
END))
LEFT OUTER JOIN invchead ON (invchead_id=getInvcheadId(pNEW.apply_to))
LEFT OUTER JOIN cntct ON (cntct_id=cust_cntct_id)
LEFT OUTER JOIN addr ON (addr_id=cntct_addr_id)
WHERE cust_id = (CASE
WHEN pNew.customer_number IS NOT NULL THEN (SELECT getCustId(pNew.customer_number))
ELSE (SELECT invchead_cust_id FROM invchead WHERE invchead_invcnumber = pNew.apply_to)
END);
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.insertcreditmemo(api.creditmemo) OWNER TO admin;
--
-- Name: cmitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cmitem (
cmitem_id integer DEFAULT nextval(('cmitem_cmitem_id_seq'::text)::regclass) NOT NULL,
cmitem_cmhead_id integer NOT NULL,
cmitem_linenumber integer NOT NULL,
cmitem_itemsite_id integer NOT NULL,
cmitem_qtycredit numeric(18,6) NOT NULL,
cmitem_qtyreturned numeric(18,6) NOT NULL,
cmitem_unitprice numeric(16,4) NOT NULL,
cmitem_comments text,
cmitem_rsncode_id integer,
cmitem_taxtype_id integer,
cmitem_qty_uom_id integer NOT NULL,
cmitem_qty_invuomratio numeric(20,10) NOT NULL,
cmitem_price_uom_id integer NOT NULL,
cmitem_price_invuomratio numeric(20,10) NOT NULL,
cmitem_raitem_id integer,
cmitem_updateinv boolean DEFAULT true NOT NULL
);
ALTER TABLE public.cmitem OWNER TO admin;
--
-- Name: TABLE cmitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE cmitem IS 'S/O Credit Memo Line Item information';
SET search_path = api, pg_catalog;
--
-- Name: creditmemoline; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW creditmemoline AS
SELECT cmhead.cmhead_number AS memo_number, cmitem.cmitem_linenumber AS line_number, item.item_number, whsinfo.warehous_code AS recv_site, rsncode.rsncode_code AS reason_code, cmitem.cmitem_qtyreturned AS qty_returned, cmitem.cmitem_qtycredit AS qty_to_credit, COALESCE(qty_uom.uom_name, 'None'::text) AS qty_uom, cmitem.cmitem_unitprice AS net_unit_price, COALESCE(price_uom.uom_name, 'None'::text) AS price_uom, COALESCE(taxtype.taxtype_name, 'None'::text) AS tax_type, cmitem.cmitem_comments AS notes FROM ((((((((public.cmitem LEFT JOIN public.cmhead ON ((cmitem.cmitem_cmhead_id = cmhead.cmhead_id))) LEFT JOIN public.itemsite ON ((itemsite.itemsite_id = cmitem.cmitem_itemsite_id))) LEFT JOIN public.item ON ((item.item_id = itemsite.itemsite_item_id))) LEFT JOIN public.whsinfo ON ((whsinfo.warehous_id = itemsite.itemsite_warehous_id))) LEFT JOIN public.rsncode ON ((rsncode.rsncode_id = cmitem.cmitem_rsncode_id))) LEFT JOIN public.taxtype ON ((taxtype.taxtype_id = cmitem.cmitem_taxtype_id))) LEFT JOIN public.uom qty_uom ON ((qty_uom.uom_id = cmitem.cmitem_qty_uom_id))) LEFT JOIN public.uom price_uom ON ((price_uom.uom_id = cmitem.cmitem_price_uom_id)));
ALTER TABLE api.creditmemoline OWNER TO admin;
--
-- Name: VIEW creditmemoline; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW creditmemoline IS 'Credit Memo Line';
SET search_path = public, pg_catalog;
--
-- Name: insertcreditmemoline(api.creditmemoline); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertcreditmemoline(api.creditmemoline) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNew ALIAS FOR $1;
_check INTEGER;
_r RECORD;
BEGIN
SELECT cmhead_id INTO _check
FROM cmhead
WHERE (cmhead_id=getCmheadId(pNew.memo_number, FALSE));
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Credit Memo # % not found', pNew.memo_number;
END IF;
INSERT INTO cmitem ( cmitem_cmhead_id,
cmitem_linenumber,
cmitem_itemsite_id,
cmitem_qtycredit,
cmitem_qtyreturned,
cmitem_unitprice,
cmitem_comments,
cmitem_rsncode_id,
cmitem_taxtype_id,
cmitem_qty_uom_id,
cmitem_qty_invuomratio,
cmitem_price_uom_id,
cmitem_price_invuomratio )
SELECT cmhead_id,
COALESCE(pNew.line_number,
(SELECT (COALESCE(MAX(cmitem_linenumber), 0) + 1)
FROM cmitem WHERE (cmitem_cmhead_id=cmhead_id))),
COALESCE(itemsite_id, -1),
COALESCE(pNew.qty_to_credit, 0),
COALESCE(pNew.qty_returned, 0),
COALESCE(pNew.net_unit_price, 0),
pNew.notes,
getRsnId(pNew.reason_code),
taxtype_id,
COALESCE(getUomId(pNew.qty_uom), item_inv_uom_id),
CASE
WHEN item_id IS NOT NULL THEN itemuomtouomratio(item_id, COALESCE(getUomId(pNew.qty_uom),item_inv_uom_id),item_inv_uom_id)
ELSE 1
END,
COALESCE(getUomId(pNew.price_uom),item_price_uom_id),
CASE
WHEN item_id IS NOT NULL THEN itemuomtouomratio(item_id, COALESCE(getUomId(pNew.price_uom),item_price_uom_id),item_price_uom_id)
ELSE 1
END
FROM cmhead LEFT OUTER JOIN item ON (item_id=getItemId(pNew.item_number))
LEFT OUTER JOIN itemsite ON (itemsite_item_id=item_id AND itemsite_warehous_id=getWarehousId(pNew.recv_site, 'ALL'))
LEFT OUTER JOIN taxtype ON (taxtype_id=CASE WHEN pNew.tax_type IS NULL THEN getItemTaxType(item_id,cmhead_taxzone_id)
WHEN pNew.tax_type = 'None' THEN NULL
ELSE getTaxTypeId(pNew.tax_type)
END)
WHERE (cmhead_id=getCmheadId(pNew.memo_number, FALSE));
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.insertcreditmemoline(api.creditmemoline) OWNER TO admin;
--
-- Name: insertflgroup(integer, integer, integer, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertflgroup(integer, integer, integer, integer, boolean) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFlheadid ALIAS FOR $1;
pPeriodid ALIAS FOR $2;
pFlgrpid ALIAS FOR $3;
pLevel ALIAS FOR $4;
pSummarize ALIAS FOR $5;
BEGIN
RETURN insertFlGroup(pFlheadid, pPeriodid, pFlgrpid, pLevel, pSummarize, NULL);
END;
$_$;
ALTER FUNCTION public.insertflgroup(integer, integer, integer, integer, boolean) OWNER TO admin;
--
-- Name: insertflgroup(integer, integer, integer, integer, boolean, character); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertflgroup(integer, integer, integer, integer, boolean, character) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFlheadid ALIAS FOR $1;
pPeriodid ALIAS FOR $2;
pFlgrpid ALIAS FOR $3;
pLevel ALIAS FOR $4;
pSummarize ALIAS FOR $5;
pInterval ALIAS FOR $6;
BEGIN
RETURN insertFlGroup(pFlheadid, pPeriodid, pFlgrpid, pLevel, pSummarize, pInterval, NULL);
END;
$_$;
ALTER FUNCTION public.insertflgroup(integer, integer, integer, integer, boolean, character) OWNER TO admin;
--
-- Name: insertflgroup(integer, integer, integer, integer, boolean, character, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertflgroup(integer, integer, integer, integer, boolean, character, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFlheadid ALIAS FOR $1;
pPeriodid ALIAS FOR $2;
pFlgrpid ALIAS FOR $3;
pLevel ALIAS FOR $4;
pSummarize ALIAS FOR $5;
pInterval ALIAS FOR $6;
pPrjid ALIAS FOR $7;
_subtotal BOOLEAN;
_r RECORD;
_g RECORD;
_all BOOLEAN;
BEGIN
_all = COALESCE(pPrjid,-1) = -1;
-- Check to see if this group wants a subtotal
_subtotal := FALSE;
IF (pFlgrpid != -1) THEN
SELECT COALESCE(flgrp_subtotal, FALSE) INTO _subtotal
FROM flgrp
WHERE ((flgrp_flhead_id=pFlheadid)
AND (flgrp_id=pFlgrpid));
END IF;
FOR _r IN SELECT 'G' AS type, flgrp_id AS type_id,
flgrp_order AS orderby,
flgrp_summarize AS summarize,
flgrp_subtract AS subtract,
CASE WHEN(flgrp_summarize AND (NOT flgrp_showstart)) THEN NULL
ELSE 0.00
END AS beginning,
CASE WHEN(flgrp_summarize AND (NOT flgrp_showend)) THEN NULL
ELSE 0.00
END AS ending,
CASE WHEN(flgrp_summarize AND (NOT flgrp_showdelta)) THEN NULL
ELSE 0.00
END AS debits,
CASE WHEN(flgrp_summarize AND (NOT flgrp_showdelta)) THEN NULL
ELSE 0.00
END AS credits,
CASE WHEN(flgrp_summarize AND (NOT flgrp_showbudget)) THEN NULL
ELSE 0.00
END AS budget,
CASE WHEN(flgrp_summarize AND (NOT flgrp_showdiff)) THEN NULL
ELSE 0.00
END AS diff,
CASE WHEN(flgrp_summarize AND (NOT flgrp_showcustom)) THEN NULL
ELSE 0.00
END AS custom,
CASE WHEN(flgrp_showstartprcnt) THEN 0.00
ELSE NULL
END AS beginningprcnt,
CASE WHEN(flgrp_showendprcnt) THEN 0.00
ELSE NULL
END AS endingprcnt,
CASE WHEN(flgrp_showdeltaprcnt) THEN 0.00
ELSE NULL
END AS debitsprcnt,
CASE WHEN(flgrp_showdeltaprcnt) THEN 0.00
ELSE NULL
END AS creditsprcnt,
CASE WHEN(flgrp_showbudgetprcnt) THEN 0.00
ELSE NULL
END AS budgetprcnt,
CASE WHEN(flgrp_showdiffprcnt) THEN 0.00
ELSE NULL
END AS diffprcnt,
CASE WHEN(flgrp_showcustomprcnt) THEN 0.00
ELSE NULL
END AS customprcnt,
-1 AS accnt_id,
'' AS accnt_number
FROM flgrp
WHERE ((flgrp_flgrp_id=pFlgrpid)
AND (flgrp_flhead_id=pFlheadid))
UNION ALL
SELECT 'I' AS type, flitem_id AS type_id,
flitem_order AS orderby,
FALSE AS summarize,
flitem_subtract AS subtract,
CASE WHEN (flitem_showstart AND (first_trialbal_id IS NULL)) THEN 0.00
WHEN (flitem_showstart) THEN normalizeTrialBal(first_trialbal_id, 'B')
ELSE NULL
END AS beginning,
CASE WHEN (flitem_showend AND (last_trialbal_id IS NULL)) THEN 0.00
WHEN (flitem_showend) THEN normalizeTrialBal(last_trialbal_id, 'E')
ELSE NULL
END AS ending,
CASE WHEN (flitem_showdelta) THEN sum_trialbal_debits
ELSE NULL
END AS debits,
CASE WHEN (flitem_showdelta) THEN sum_trialbal_credits
ELSE NULL
END AS credits,
CASE WHEN ((flitem_showbudget) AND (accnt_type IN ('R','E')) AND flhead_type IN ('I','C','A')) THEN COALESCE(sum_budget_amount,0)
WHEN ((flitem_showbudget) AND (accnt_type IN ('R','E')) AND flhead_type = 'B' ) THEN
(SELECT COALESCE(SUM(b.budget_amount),0)
FROM budget b,
(SELECT ytd.period_id AS ytd_period_id
FROM period cp, period ytd
WHERE ((cp.period_id = last_flitem_period_id)
AND (ytd.period_start <= cp.period_start)
AND (ytd.period_yearperiod_id = cp.period_yearperiod_id))) AS periods
WHERE ((b.budget_accnt_id=accnt_id)
AND (b.budget_period_id=ytd_period_id)))
WHEN ((flitem_showbudget) AND (accnt_type IN ('A','L','Q')) AND flhead_type = 'C') THEN calccashbudget(accnt_id,last_flitem_period_id,pInterval)
ELSE COALESCE(last_budget_amount,0)
END AS budget,
CASE WHEN (flitem_showdiff AND (first_trialbal_id IS NULL)) THEN 0.00
WHEN (flitem_showdiff) THEN COALESCE(normalizeTrialBal(last_trialbal_id, 'E') - normalizeTrialBal(first_trialbal_id, 'B'), 0.00)
ELSE NULL
END AS diff,
CASE WHEN (NOT flitem_showcustom) THEN NULL
WHEN (flitem_custom_source='S' AND (first_trialbal_id IS NOT NULL)) THEN normalizeTrialBal(first_trialbal_id, 'B')
WHEN (flitem_custom_source='E' AND (first_trialbal_id IS NOT NULL)) THEN normalizeTrialBal(last_trialbal_id, 'E')
WHEN (flitem_custom_source='D') THEN sum_trialbal_debits
WHEN (flitem_custom_source='C') THEN sum_trialbal_credits
WHEN (flitem_custom_source='B') THEN (
CASE
WHEN (accnt_type IN ('R','E')) THEN sum_budget_amount
ELSE last_budget_amount
END)
WHEN (flitem_custom_source='F' AND (first_trialbal_id IS NOT NULL)) THEN COALESCE(normalizeTrialBal(last_trialbal_id, 'E') - normalizeTrialBal(first_trialbal_id, 'B'), 0.00)
ELSE 0.00
END AS custom,
CASE WHEN(flitem_showstartprcnt) THEN 0.00
ELSE NULL
END AS beginningprcnt,
CASE WHEN(flitem_showendprcnt) THEN 0.00
ELSE NULL
END AS endingprcnt,
CASE WHEN(flitem_showdeltaprcnt) THEN 0.00
ELSE NULL
END AS debitsprcnt,
CASE WHEN(flitem_showdeltaprcnt) THEN 0.00
ELSE NULL
END AS creditsprcnt,
CASE WHEN(flitem_showbudgetprcnt) THEN 0.00
ELSE NULL
END AS budgetprcnt,
CASE WHEN(flitem_showdiffprcnt) THEN 0.00
ELSE NULL
END AS diffprcnt,
CASE WHEN(flitem_showcustomprcnt) THEN 0.00
ELSE NULL
END AS customprcnt,
accnt_id,
public.formatglaccount(accnt_id) AS accnt_number
FROM
(SELECT
flhead_type,flitem_id,flitem_order,flitem_subtract,flitem_showstart,flitem_showend,
flitem_showdelta,flitem_showbudget,flitem_showdiff,flitem_showcustom,
flitem_custom_source,flitem_showstartprcnt,flitem_showendprcnt,flitem_showdeltaprcnt,
flitem_showbudgetprcnt,flitem_showdiffprcnt,flitem_showcustomprcnt,
accnt_id,accnt_type,
FIRST(trialbal_id) AS first_trialbal_id, LAST(trialbal_id) AS last_trialbal_id,
SUM(trialbal_debits) AS sum_trialbal_debits, SUM(trialbal_credits) AS sum_trialbal_credits,
LAST(flitem_period_id) AS last_flitem_period_id,
SUM(budget_amount) AS sum_budget_amount, LAST(budget_amount) AS last_budget_amount
FROM
(SELECT period_id AS flitem_period_id, period_start,flhead_type,flitem_id,flitem_order,flitem_subtract,flitem_showstart,flitem_showend,
flitem_showdelta,flitem_showbudget,flitem_showdiff,flitem_showcustom,
flitem_custom_source,flitem_showstartprcnt,flitem_showendprcnt,flitem_showdeltaprcnt,
flitem_showbudgetprcnt,flitem_showdiffprcnt,flitem_showcustomprcnt,
accnt_id,accnt_type,COALESCE(trialbal_id,getlasttrialbalid(accnt_id,period_id)) as trialbal_id,COALESCE(trialbal_debits,0) as trialbal_debits,
COALESCE(trialbal_credits,0) AS trialbal_credits,COALESCE(budget_amount,0) AS budget_amount
FROM (SELECT period_id, period_start, flhead_type, flitem_id,flitem_order,flitem_subtract,flitem_showstart,flitem_showend,
flitem_showdelta,flitem_showbudget,flitem_showdiff,flitem_showcustom,flitem_custom_source,flitem_showstartprcnt,
flitem_showendprcnt,flitem_showdeltaprcnt,flitem_showbudgetprcnt,flitem_showdiffprcnt,flitem_showcustomprcnt,
accnt_id, accnt_type
FROM period,flaccnt
WHERE ((flitem_flhead_id=pFlheadid)
AND (flitem_flgrp_id=pFlgrpid)
AND (_all OR prj_id=pPrjId)
AND (period_id IN (SELECT * FROM getperiodid(pPeriodId,pInterval))))
ORDER BY flitem_id
) AS flitem
LEFT OUTER JOIN trialbal
ON ((trialbal_accnt_id=accnt_id)
AND (trialbal_period_id=period_id))
LEFT OUTER JOIN budget
ON ((budget_accnt_id=accnt_id)
AND (budget_period_id=period_id))
ORDER BY accnt_id, period_start) AS data
GROUP BY flhead_type,flitem_id,flitem_order,flitem_subtract,flitem_showstart,flitem_showend,
flitem_showdelta,flitem_showbudget,flitem_showdiff,flitem_showcustom,
flitem_custom_source,flitem_showstartprcnt,flitem_showendprcnt,flitem_showdeltaprcnt,
flitem_showbudgetprcnt,flitem_showdiffprcnt,flitem_showcustomprcnt,accnt_id,accnt_type) AS agg
UNION ALL
SELECT 'S' AS type, flspec_id AS type_id,
flspec_order AS orderby,
FALSE AS summarize,
flspec_subtract AS subtract,
CASE WHEN (flspec_showstart) THEN findSpecialFinancial('S', flspec_type, pPeriodid)
ELSE NULL
END AS beginning,
CASE WHEN (flspec_showend) THEN findSpecialFinancial('E', flspec_type, pPeriodid)
ELSE NULL
END AS ending,
CASE WHEN (flspec_showdelta) THEN findSpecialFinancial('D', flspec_type, pPeriodid)
ELSE NULL
END AS debits,
CASE WHEN (flspec_showdelta) THEN findSpecialFinancial('C', flspec_type, pPeriodid)
ELSE NULL
END AS credits,
CASE WHEN (flspec_showbudget) THEN findSpecialFinancial('B', flspec_type, pPeriodid)
ELSE NULL
END AS budget,
CASE WHEN (flspec_showdiff) THEN findSpecialFinancial('E', flspec_type, pPeriodid) - findSpecialFinancial('S', flspec_type, pPeriodid)
ELSE NULL
END AS diff,
CASE WHEN (NOT flspec_showcustom) THEN NULL
WHEN (flspec_custom_source='F') THEN findSpecialFinancial('E', flspec_type, pPeriodid) - findSpecialFinancial('S', flspec_type, pPeriodid)
WHEN (flspec_custom_source IN ('S', 'E', 'D', 'C', 'B')) THEN findSpecialFinancial(flspec_custom_source, flspec_type, pPeriodid)
ELSE 0.00
END AS custom,
CASE WHEN(flspec_showstartprcnt) THEN 0.00
ELSE NULL
END AS beginningprcnt,
CASE WHEN(flspec_showendprcnt) THEN 0.00
ELSE NULL
END AS endingprcnt,
CASE WHEN(flspec_showdeltaprcnt) THEN 0.00
ELSE NULL
END AS debitsprcnt,
CASE WHEN(flspec_showdeltaprcnt) THEN 0.00
ELSE NULL
END AS creditsprcnt,
CASE WHEN(flspec_showbudgetprcnt) THEN 0.00
ELSE NULL
END AS budgetprcnt,
CASE WHEN(flspec_showdiffprcnt) THEN 0.00
ELSE NULL
END AS diffprcnt,
CASE WHEN(flspec_showcustomprcnt) THEN 0.00
ELSE NULL
END AS customprcnt,
-1 AS accnt_id,
'' AS accnt_number
FROM flspec
WHERE ((flspec_flgrp_id=pFlgrpid)
AND (flspec_flhead_id=pFlheadid))
ORDER BY orderby, accnt_number LOOP
IF (_r.type = 'G') THEN
-- Create a record for the items sub items to be attached to and be able to update the total
INSERT INTO flrpt
(flrpt_flhead_id, flrpt_period_id, flrpt_username,
flrpt_order,
flrpt_level, flrpt_type, flrpt_type_id,
flrpt_beginning, flrpt_ending,
flrpt_debits, flrpt_credits, flrpt_budget, flrpt_diff, flrpt_custom,
flrpt_beginningprcnt, flrpt_endingprcnt,
flrpt_debitsprcnt, flrpt_creditsprcnt, flrpt_budgetprcnt, flrpt_diffprcnt, flrpt_customprcnt,
flrpt_parent_id, flrpt_interval)
VALUES (pFlheadid, pPeriodid, getEffectiveXtUser(),
(COALESCE(( SELECT MAX(flrpt_order)
FROM flrpt
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser()))
), 1) + 1),
pLevel, _r.type, _r.type_id,
_r.beginning, _r.ending,
_r.debits, _r.credits, _r.budget, _r.diff, _r.custom,
_r.beginningprcnt, _r.endingprcnt,
_r.debitsprcnt, _r.creditsprcnt, _r.budgetprcnt, _r.diffprcnt, _r.customprcnt,
pFlgrpid, pInterval);
PERFORM insertFlGroup(pFlheadid, pPeriodid, _r.type_id, (pLevel + 1), (pSummarize OR _r.summarize), pInterval, pPrjid);
-- Update the parent item
SELECT COALESCE(flrpt_beginning, 0.00) AS beginning,
COALESCE(flrpt_ending, 0.00) AS ending,
COALESCE(flrpt_debits, 0.00) AS debits,
COALESCE(flrpt_credits, 0.00) AS credits,
COALESCE(flrpt_budget, 0.00) AS budget,
COALESCE(flrpt_diff, 0.00) AS diff,
COALESCE(flrpt_custom, 0.00) AS custom INTO _g
FROM flrpt
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser())
AND (flrpt_type=_r.type)
AND (flrpt_type_id=_r.type_id));
IF (_r.subtract) THEN
UPDATE flrpt
SET flrpt_beginning = flrpt_beginning - _g.beginning,
flrpt_ending = flrpt_ending - _g.ending,
flrpt_debits = flrpt_debits - _g.debits,
flrpt_credits = flrpt_credits - _g.credits,
flrpt_budget = flrpt_budget - _g.budget,
flrpt_diff = flrpt_diff - _g.diff,
flrpt_custom = flrpt_custom - _g.custom
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser())
AND (flrpt_type='G')
AND (flrpt_type_id=pFlgrpid));
ELSE
UPDATE flrpt
SET flrpt_beginning = flrpt_beginning + _g.beginning,
flrpt_ending = flrpt_ending + _g.ending,
flrpt_debits = flrpt_debits + _g.debits,
flrpt_credits = flrpt_credits + _g.credits,
flrpt_budget = flrpt_budget + _g.budget,
flrpt_diff = flrpt_diff + _g.diff,
flrpt_custom = flrpt_custom + _g.custom
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser())
AND (flrpt_type='G')
AND (flrpt_type_id=pFlgrpid));
END IF;
-- If we are summarizing then we need to remove the record we created now that we have updated the total
IF (pSummarize) THEN
DELETE FROM flrpt
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser())
AND (flrpt_type=_r.type)
AND (flrpt_type_id=_r.type_id));
END IF;
ELSE
IF (_r.type = 'I' OR _r.type = 'S' ) THEN
-- If we are not summarizing then create a new entry for this record
IF (NOT pSummarize) THEN
INSERT INTO flrpt
(flrpt_flhead_id, flrpt_period_id, flrpt_username,
flrpt_order,
flrpt_level, flrpt_type, flrpt_type_id,
flrpt_beginning, flrpt_ending,
flrpt_debits, flrpt_credits, flrpt_budget, flrpt_diff, flrpt_custom,
flrpt_beginningprcnt, flrpt_endingprcnt,
flrpt_debitsprcnt, flrpt_creditsprcnt, flrpt_budgetprcnt, flrpt_diffprcnt, flrpt_customprcnt,
flrpt_parent_id,flrpt_accnt_id,flrpt_interval)
VALUES (pFlheadid, pPeriodid, getEffectiveXtUser(),
(COALESCE(( SELECT MAX(flrpt_order)
FROM flrpt
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser()))
), 1) + 1),
pLevel, _r.type, _r.type_id,
_r.beginning, _r.ending,
_r.debits, _r.credits, _r.budget, _r.diff, _r.custom,
_r.beginningprcnt, _r.endingprcnt,
_r.debitsprcnt, _r.creditsprcnt, _r.budgetprcnt, _r.diffprcnt, _r.customprcnt,
pFlgrpid,_r.accnt_id,pInterval);
END IF;
-- Update the parent item
IF (_r.subtract) THEN
UPDATE flrpt
SET flrpt_beginning = flrpt_beginning - COALESCE(_r.beginning, 0.00),
flrpt_ending = flrpt_ending - COALESCE(_r.ending, 0.00),
flrpt_debits = flrpt_debits - COALESCE(_r.debits, 0.00),
flrpt_credits = flrpt_credits - COALESCE(_r.credits, 0.00),
flrpt_budget = flrpt_budget - COALESCE(_r.budget, 0.00),
flrpt_diff = flrpt_diff - COALESCE(_r.diff, 0.00),
flrpt_custom = flrpt_custom - COALESCE(_r.custom, 0.00)
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser())
AND (flrpt_type='G')
AND (flrpt_type_id=pFlgrpid));
ELSE
UPDATE flrpt
SET flrpt_beginning = flrpt_beginning + COALESCE(_r.beginning, 0.00),
flrpt_ending = flrpt_ending + COALESCE(_r.ending, 0.00),
flrpt_debits = flrpt_debits + COALESCE(_r.debits, 0.00),
flrpt_credits = flrpt_credits + COALESCE(_r.credits, 0.00),
flrpt_budget = flrpt_budget + COALESCE(_r.budget, 0.00),
flrpt_diff = flrpt_diff + COALESCE(_r.diff, 0.00),
flrpt_custom = flrpt_custom + COALESCE(_r.custom, 0.00)
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_interval=pInterval)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_username=getEffectiveXtUser())
AND (flrpt_type='G')
AND (flrpt_type_id=pFlgrpid));
END IF;
END IF;
END IF;
END LOOP;
IF (NOT pSummarize) THEN
-- If this group wants a summarized line create it here.
IF (_subtotal) THEN
INSERT INTO flrpt
(flrpt_flhead_id, flrpt_period_id, flrpt_username,
flrpt_order,
flrpt_level, flrpt_type, flrpt_type_id,
flrpt_beginning, flrpt_ending,
flrpt_debits, flrpt_credits, flrpt_budget, flrpt_diff, flrpt_custom,
flrpt_beginningprcnt, flrpt_endingprcnt,
flrpt_debitsprcnt, flrpt_creditsprcnt, flrpt_budgetprcnt, flrpt_diffprcnt, flrpt_customprcnt,
flrpt_parent_id, flrpt_altname,flrpt_interval )
SELECT pFlheadid, pPeriodid, getEffectiveXtUser(),
(COALESCE(( SELECT MAX(flrpt_order)
FROM flrpt
WHERE ((flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser()))
), 1) + 1),
pLevel, 'T', -1,
CASE WHEN (flgrp_showstart) THEN flrpt_beginning
ELSE NULL
END,
CASE WHEN (flgrp_showend) THEN flrpt_ending
ELSE NULL
END,
CASE WHEN (flgrp_showdelta) THEN flrpt_debits
ELSE NULL
END,
CASE WHEN (flgrp_showdelta) THEN flrpt_credits
ELSE NULL
END,
CASE WHEN (flgrp_showbudget) THEN flrpt_budget
ELSE NULL
END,
CASE WHEN (flgrp_showdiff) THEN flrpt_diff
ELSE NULL
END,
CASE WHEN (flgrp_showcustom) THEN flrpt_custom
ELSE NULL
END,
CASE WHEN (flgrp_showstartprcnt) THEN flrpt_beginningprcnt
ELSE NULL
END,
CASE WHEN (flgrp_showendprcnt) THEN flrpt_endingprcnt
ELSE NULL
END,
CASE WHEN (flgrp_showdeltaprcnt) THEN flrpt_debitsprcnt
ELSE NULL
END,
CASE WHEN (flgrp_showdeltaprcnt) THEN flrpt_creditsprcnt
ELSE NULL
END,
CASE WHEN (flgrp_showbudgetprcnt) THEN flrpt_budgetprcnt
ELSE NULL
END,
CASE WHEN (flgrp_showdiffprcnt) THEN flrpt_diffprcnt
ELSE NULL
END,
CASE WHEN (flgrp_showcustomprcnt) THEN flrpt_customprcnt
ELSE NULL
END,
pFlgrpid,
CASE WHEN (flgrp_usealtsubtotal) THEN flgrp_altsubtotal
ELSE NULL
END, pInterval
FROM flrpt, flgrp
WHERE ((flrpt_flhead_id=flgrp_flhead_id)
AND (flrpt_type_id=flgrp_id)
AND (flrpt_flhead_id=pFlheadid)
AND (flrpt_period_id=pPeriodid)
AND (flrpt_interval=pInterval)
AND (flrpt_username=getEffectiveXtUser())
AND (flrpt_type='G')
AND (flrpt_type_id=pFlgrpid));
END IF;
END IF;
return TRUE;
END;
$_$;
ALTER FUNCTION public.insertflgroup(integer, integer, integer, integer, boolean, character, integer) OWNER TO admin;
--
-- Name: insertgltransaction(text, text, text, text, integer, integer, integer, numeric, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertgltransaction(text, text, text, text, integer, integer, integer, numeric, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSource ALIAS FOR $1;
pDocType ALIAS FOR $2;
pDocNumber ALIAS FOR $3;
pNotes ALIAS FOR $4;
pCreditid ALIAS FOR $5;
pDebitid ALIAS FOR $6;
pMiscid ALIAS FOR $7;
pAmount ALIAS FOR $8;
pDistDate ALIAS FOR $9;
_return INTEGER;
BEGIN
SELECT insertGLTransaction( fetchJournalNumber('GL-MISC'),
pSource, pDocType, pDocNumber, pNotes,
pCreditid, pDebitid, pMiscid, pAmount, pDistDate) INTO _return;
RETURN _return;
END;
$_$;
ALTER FUNCTION public.insertgltransaction(text, text, text, text, integer, integer, integer, numeric, date) OWNER TO admin;
--
-- Name: insertgltransaction(integer, text, text, text, text, integer, integer, integer, numeric, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertgltransaction(integer, text, text, text, text, integer, integer, integer, numeric, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pJournalNumber ALIAS FOR $1;
pSource ALIAS FOR $2;
pDocType ALIAS FOR $3;
pDocNumber ALIAS FOR $4;
pNotes ALIAS FOR $5;
pCreditid ALIAS FOR $6;
pDebitid ALIAS FOR $7;
pMiscid ALIAS FOR $8;
pAmount ALIAS FOR $9;
pDistDate ALIAS FOR $10;
_return INTEGER;
BEGIN
SELECT insertGLTransaction( pJournalNumber, pSource, pDocType, pDocNumber, pNotes,
pCreditid, pDebitid, pMiscid, pAmount, pDistDate, TRUE) INTO _return;
RETURN _return;
END;
$_$;
ALTER FUNCTION public.insertgltransaction(integer, text, text, text, text, integer, integer, integer, numeric, date) OWNER TO admin;
--
-- Name: insertgltransaction(text, text, text, text, integer, integer, integer, numeric, date, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertgltransaction(text, text, text, text, integer, integer, integer, numeric, date, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSource ALIAS FOR $1;
pDocType ALIAS FOR $2;
pDocNumber ALIAS FOR $3;
pNotes ALIAS FOR $4;
pCreditid ALIAS FOR $5;
pDebitid ALIAS FOR $6;
pMiscid ALIAS FOR $7;
pAmount ALIAS FOR $8;
pDistDate ALIAS FOR $9;
pPostTrialBal ALIAS FOR $10;
_return INTEGER;
BEGIN
SELECT insertGLTransaction( fetchJournalNumber('GL-MISC'),
pSource, pDocType, pDocNumber, pNotes,
pCreditid, pDebitid, pMiscid, pAmount, pDistDate, pPostTrialBal) INTO _return;
RETURN _return;
END;
$_$;
ALTER FUNCTION public.insertgltransaction(text, text, text, text, integer, integer, integer, numeric, date, boolean) OWNER TO admin;
--
-- Name: insertgltransaction(integer, text, text, text, text, integer, integer, integer, numeric, date, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertgltransaction(integer, text, text, text, text, integer, integer, integer, numeric, date, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pJournalNumber ALIAS FOR $1;
pSource ALIAS FOR $2;
pDocType ALIAS FOR $3;
pDocNumber ALIAS FOR $4;
pNotes ALIAS FOR $5;
pCreditid ALIAS FOR $6;
pDebitid ALIAS FOR $7;
pMiscid ALIAS FOR $8;
pAmount ALIAS FOR $9;
pDistDate ALIAS FOR $10;
pPostTrialBal ALIAS FOR $11;
_return INTEGER;
BEGIN
SELECT insertGLTransaction( pJournalNumber, pSource, pDocType, pDocNumber, pNotes,
pCreditid, pDebitid, pMiscid, pAmount, pDistDate, pPostTrialBal, false) INTO _return;
RETURN _return;
END;
$_$;
ALTER FUNCTION public.insertgltransaction(integer, text, text, text, text, integer, integer, integer, numeric, date, boolean) OWNER TO admin;
--
-- Name: insertgltransaction(integer, text, text, text, text, integer, integer, integer, numeric, date, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertgltransaction(integer, text, text, text, text, integer, integer, integer, numeric, date, boolean, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pJournalNumber ALIAS FOR $1;
pSource ALIAS FOR $2;
pDocType ALIAS FOR $3;
pDocNumber ALIAS FOR $4;
pNotes ALIAS FOR $5;
pCreditid ALIAS FOR $6;
pDebitid ALIAS FOR $7;
pMiscid ALIAS FOR $8;
pAmount ALIAS FOR $9;
pDistDate ALIAS FOR $10;
pPostTrialBal ALIAS FOR $11;
pOnlyGL ALIAS FOR $12;
_debitid INTEGER;
_creditid INTEGER;
_sequence INTEGER;
_check INTEGER;
BEGIN
-- Check GL Interface metric
IF (fetchMetricBool('InterfaceToGL') = false AND pSource IN ('I/M', 'P/D', 'S/R', 'W/O')) THEN
RETURN 0;
END IF;
IF (fetchMetricBool('InterfaceAPToGL') = false AND pSource = 'A/P') THEN
RETURN 0;
END IF;
IF (fetchMetricBool('InterfaceARToGL') = false AND pSource IN ('A/R', 'S/O', 'S/R')) THEN
RETURN 0;
END IF;
-- Is there anything to post?
-- ToDo - 2 should really be the scale of the base currency
IF (round(pAmount, 2) = 0) THEN
RETURN -3;
END IF;
/* Make sure we don't create an imbalance across companies.
The 'IgnoreCompanyBalance' metric is a back door mechanism to
allow legacy users to create transactions accross companies if
they have been using the company segment for something else
and they MUST continue to be able to do so. It can only be
implemented by direct sql update to the metric table and should
otherwise be discouraged.
*/
IF (COALESCE(fetchMetricValue('GLCompanySize'),0) > 0
AND fetchMetricBool('IgnoreCompany') = false) THEN
IF (SELECT (COALESCE(d.accnt_company,'') != COALESCE(c.accnt_company,''))
FROM accnt d, accnt c
WHERE ((d.accnt_id=pDebitid)
AND (c.accnt_id=pCreditid))) THEN
RAISE EXCEPTION 'G/L Transaction can not be posted because accounts % and % reference two differnt companies.',
formatGlaccount(pDebitid), formatGlaccount(pCreditid);
END IF;
END IF;
-- Validate pDebitid
IF (pDebitid IN (SELECT accnt_id FROM accnt)) THEN
_debitid := pDebitid;
ELSE
SELECT getUnassignedAccntId() INTO _debitid;
END IF;
-- Validate pCreditid
IF (pCreditid IN (SELECT accnt_id FROM accnt)) THEN
_creditid := pCreditid;
ELSE
SELECT getUnassignedAccntId() INTO _creditid;
END IF;
-- refuse to accept postings into closed periods
IF (SELECT BOOL_AND(COALESCE(period_closed, FALSE))
FROM accnt LEFT OUTER JOIN
period ON (pDistDate BETWEEN period_start AND period_end)
WHERE (accnt_id IN (_creditid, _debitid))) THEN
RAISE EXCEPTION 'Cannot post to closed period (%).', pDistDate;
RETURN -4; -- remove raise exception when all callers check return code
END IF;
-- refuse to accept postings into frozen periods without proper priv
IF (SELECT NOT BOOL_AND(checkPrivilege('PostFrozenPeriod')) AND
BOOL_AND(COALESCE(period_freeze, FALSE))
FROM accnt LEFT OUTER JOIN
period ON (pDistDate BETWEEN period_start AND period_end)
WHERE (accnt_id IN (_creditid, _debitid))) THEN
RAISE EXCEPTION 'Cannot post to frozen period (%).', pDistDate;
RETURN -4; -- remove raise exception when all callers check return code
END IF;
-- refuse to accept postings into nonexistent periods
IF NOT EXISTS(SELECT period_id
FROM period
WHERE (pDistDate BETWEEN period_start AND period_end)) THEN
RAISE EXCEPTION 'Cannot post to nonexistent period (%).', pDistDate;
END IF;
-- Grab a sequence for the pair
SELECT fetchGLSequence() INTO _sequence;
IF (NOT pOnlyGL AND fetchMetricBool('UseJournals')) THEN
-- First the credit
INSERT INTO sltrans
( sltrans_journalnumber, sltrans_posted, sltrans_created, sltrans_date,
sltrans_sequence, sltrans_accnt_id, sltrans_source,
sltrans_doctype, sltrans_docnumber, sltrans_notes,
sltrans_misc_id, sltrans_amount )
VALUES
( pJournalNumber, FALSE, CURRENT_TIMESTAMP, pDistDate,
_sequence, _creditid, pSource,
pDocType, pDocNumber, pNotes,
pMiscid, pAmount );
-- Now the debit
INSERT INTO sltrans
( sltrans_journalnumber, sltrans_posted, sltrans_created, sltrans_date,
sltrans_sequence, sltrans_accnt_id, sltrans_source,
sltrans_doctype, sltrans_docnumber, sltrans_notes,
sltrans_misc_id, sltrans_amount )
VALUES
( pJournalNumber, FALSE, CURRENT_TIMESTAMP, pDistDate,
_sequence, _debitid, pSource,
pDocType, pDocNumber, pNotes,
pMiscid, (pAmount * -1) );
ELSE
-- First the credit
INSERT INTO gltrans
( gltrans_journalnumber, gltrans_posted, gltrans_exported, gltrans_created, gltrans_date,
gltrans_sequence, gltrans_accnt_id, gltrans_source,
gltrans_doctype, gltrans_docnumber, gltrans_notes,
gltrans_misc_id, gltrans_amount )
VALUES
( pJournalNumber, FALSE, FALSE, CURRENT_TIMESTAMP, pDistDate,
_sequence, _creditid, pSource,
pDocType, pDocNumber, pNotes,
pMiscid, pAmount );
-- Now the debit
INSERT INTO gltrans
( gltrans_journalnumber, gltrans_posted, gltrans_exported, gltrans_created, gltrans_date,
gltrans_sequence, gltrans_accnt_id, gltrans_source,
gltrans_doctype, gltrans_docnumber, gltrans_notes,
gltrans_misc_id, gltrans_amount )
VALUES
( pJournalNumber, FALSE, FALSE, CURRENT_TIMESTAMP, pDistDate,
_sequence, _debitid, pSource,
pDocType, pDocNumber, pNotes,
pMiscid, (pAmount * -1) );
IF (pPostTrialBal) THEN
PERFORM postIntoTrialBalance(_sequence);
END IF;
END IF;
RETURN _sequence;
END;
$_$;
ALTER FUNCTION public.insertgltransaction(integer, text, text, text, text, integer, integer, integer, numeric, date, boolean, boolean) OWNER TO admin;
--
-- Name: insertintoglseries(integer, text, text, text, integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertintoglseries(integer, text, text, text, integer, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSequence ALIAS FOR $1;
pSource ALIAS FOR $2;
pDocType ALIAS FOR $3;
pDocNumber ALIAS FOR $4;
pAccntid ALIAS FOR $5;
pAmount ALIAS FOR $6;
_returnValue INTEGER;
BEGIN
SELECT insertIntoGLSeries( pSequence, pSource, pDocType, pDocNumber,
pAccntid, pAmount, CURRENT_DATE, '' ) INTO _returnValue;
RETURN _returnValue;
END;
$_$;
ALTER FUNCTION public.insertintoglseries(integer, text, text, text, integer, numeric) OWNER TO admin;
--
-- Name: insertintoglseries(integer, text, text, text, integer, numeric, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertintoglseries(integer, text, text, text, integer, numeric, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSequence ALIAS FOR $1;
pSource ALIAS FOR $2;
pDocType ALIAS FOR $3;
pDocNumber ALIAS FOR $4;
pAccntid ALIAS FOR $5;
pAmount ALIAS FOR $6;
pDistDate ALIAS FOR $7;
_returnValue INTEGER;
BEGIN
SELECT insertIntoGLSeries( pSequence, pSource, pDocType, pDocNumber,
pAccntid, pAmount, pDistDate, '' ) INTO _returnValue;
RETURN _returnValue;
END;
$_$;
ALTER FUNCTION public.insertintoglseries(integer, text, text, text, integer, numeric, date) OWNER TO admin;
--
-- Name: insertintoglseries(integer, text, text, text, integer, numeric, date, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertintoglseries(integer, text, text, text, integer, numeric, date, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSequence ALIAS FOR $1;
pSource ALIAS FOR $2;
pDocType ALIAS FOR $3;
pDocNumber ALIAS FOR $4;
pAccntid ALIAS FOR $5;
pAmount ALIAS FOR $6;
pDistDate ALIAS FOR $7;
pNotes ALIAS FOR $8;
_returnValue INTEGER;
BEGIN
SELECT insertIntoGLSeries( pSequence, pSource, pDocType, pDocNumber,
pAccntid, pAmount, pDistDate, pNotes, NULL ) INTO _returnValue;
RETURN _returnValue;
END;
$_$;
ALTER FUNCTION public.insertintoglseries(integer, text, text, text, integer, numeric, date, text) OWNER TO admin;
--
-- Name: insertintoglseries(integer, text, text, text, integer, numeric, date, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertintoglseries(integer, text, text, text, integer, numeric, date, text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSequence ALIAS FOR $1;
pSource ALIAS FOR $2;
pDocType ALIAS FOR $3;
pDocNumber ALIAS FOR $4;
pAccntid ALIAS FOR $5;
pAmount ALIAS FOR $6;
pDistDate ALIAS FOR $7;
pNotes ALIAS FOR $8;
pMiscid ALIAS FOR $9;
_glseriesid INTEGER;
BEGIN
-- Check GL Interface metric
IF (fetchMetricBool('InterfaceToGL') = false AND pSource IN ('I/M', 'P/D', 'S/R', 'W/O')) THEN
RETURN 0;
END IF;
IF (fetchMetricBool('InterfaceAPToGL') = false AND pSource = 'A/P') THEN
RETURN 0;
END IF;
IF (fetchMetricBool('InterfaceARToGL') = false AND pSource IN ('A/R', 'S/O', 'S/R')) THEN
RETURN 0;
END IF;
-- Verify the target accnt
IF ( (pAccntid IS NULL) OR (pAccntid = -1) ) THEN
RETURN -1;
END IF;
-- refuse to accept postings into closed periods
IF (SELECT BOOL_AND(COALESCE(period_closed, FALSE))
FROM accnt LEFT OUTER JOIN
period ON (pDistDate BETWEEN period_start AND period_end)
WHERE (accnt_id = pAccntid)) THEN
RAISE EXCEPTION 'Cannot post to closed period (%).', pDistDate;
RETURN -4; -- remove raise exception when all callers check return code
END IF;
-- refuse to accept postings into frozen periods without proper priv
IF (SELECT NOT BOOL_AND(checkPrivilege('PostFrozenPeriod')) AND
BOOL_AND(COALESCE(period_freeze, FALSE))
FROM accnt LEFT OUTER JOIN
period ON (pDistDate BETWEEN period_start AND period_end)
WHERE (accnt_id = pAccntid)) THEN
RAISE EXCEPTION 'Cannot post to frozen period (%).', pDistDate;
RETURN -4; -- remove raise exception when all callers check return code
END IF;
-- refuse to accept postings into nonexistent periods
IF NOT EXISTS(SELECT period_id
FROM period
WHERE (pDistDate BETWEEN period_start AND period_end)) THEN
RAISE EXCEPTION 'Cannot post to nonexistent period (%).', pDistDate;
END IF;
-- Insert into the glseries
SELECT NEXTVAL('glseries_glseries_id_seq') INTO _glseriesid;
INSERT INTO glseries
( glseries_id, glseries_sequence, glseries_source, glseries_doctype, glseries_docnumber,
glseries_accnt_id, glseries_amount, glseries_distdate, glseries_notes, glseries_misc_id )
VALUES
( _glseriesid, pSequence, pSource, pDocType, pDocNumber,
pAccntid, pAmount, pDistDate, pNotes, pMiscid );
RETURN _glseriesid;
END;
$_$;
ALTER FUNCTION public.insertintoglseries(integer, text, text, text, integer, numeric, date, text, integer) OWNER TO admin;
--
-- Name: invchead; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE invchead (
invchead_id integer NOT NULL,
invchead_cust_id integer NOT NULL,
invchead_shipto_id integer,
invchead_ordernumber text,
invchead_orderdate date,
invchead_posted boolean NOT NULL,
invchead_printed boolean NOT NULL,
invchead_invcnumber text NOT NULL,
invchead_invcdate date NOT NULL,
invchead_shipdate date,
invchead_ponumber text,
invchead_shipvia text,
invchead_fob text,
invchead_billto_name text,
invchead_billto_address1 text,
invchead_billto_address2 text,
invchead_billto_address3 text,
invchead_billto_city text,
invchead_billto_state text,
invchead_billto_zipcode text,
invchead_billto_phone text,
invchead_shipto_name text,
invchead_shipto_address1 text,
invchead_shipto_address2 text,
invchead_shipto_address3 text,
invchead_shipto_city text,
invchead_shipto_state text,
invchead_shipto_zipcode text,
invchead_shipto_phone text,
invchead_salesrep_id integer,
invchead_commission numeric(20,10) NOT NULL,
invchead_terms_id integer,
invchead_freight numeric(16,2) NOT NULL,
invchead_misc_amount numeric(16,2) NOT NULL,
invchead_misc_descrip text,
invchead_misc_accnt_id integer,
invchead_payment numeric(16,2),
invchead_paymentref text,
invchead_notes text,
invchead_billto_country text,
invchead_shipto_country text,
invchead_prj_id integer,
invchead_curr_id integer DEFAULT basecurrid(),
invchead_gldistdate date,
invchead_recurring boolean DEFAULT false NOT NULL,
invchead_recurring_interval integer,
invchead_recurring_type text,
invchead_recurring_until date,
invchead_recurring_invchead_id integer,
invchead_shipchrg_id integer,
invchead_taxzone_id integer,
invchead_void boolean DEFAULT false,
invchead_saletype_id integer,
invchead_shipzone_id integer,
CONSTRAINT invchead_invchead_invcnumber_check CHECK ((invchead_invcnumber <> ''::text))
);
ALTER TABLE public.invchead OWNER TO admin;
--
-- Name: TABLE invchead; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE invchead IS 'Invoice header information';
--
-- Name: COLUMN invchead.invchead_recurring; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN invchead.invchead_recurring IS 'Deprecated.';
--
-- Name: COLUMN invchead.invchead_recurring_interval; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN invchead.invchead_recurring_interval IS 'Deprecated.';
--
-- Name: COLUMN invchead.invchead_recurring_type; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN invchead.invchead_recurring_type IS 'Deprecated.';
--
-- Name: COLUMN invchead.invchead_recurring_until; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN invchead.invchead_recurring_until IS 'Deprecated.';
--
-- Name: COLUMN invchead.invchead_saletype_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN invchead.invchead_saletype_id IS 'Associated sale type for invoice.';
--
-- Name: COLUMN invchead.invchead_shipzone_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN invchead.invchead_shipzone_id IS 'Associated shipping zone for invoice.';
--
-- Name: prj; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE prj (
prj_id integer NOT NULL,
prj_number text NOT NULL,
prj_name text NOT NULL,
prj_descrip text,
prj_status character(1) NOT NULL,
prj_so boolean,
prj_wo boolean,
prj_po boolean,
prj_owner_username text,
prj_start_date date,
prj_due_date date,
prj_assigned_date date,
prj_completed_date date,
prj_username text,
prj_recurring_prj_id integer,
prj_crmacct_id integer,
prj_cntct_id integer,
CONSTRAINT prj_prj_number_check CHECK ((prj_number <> ''::text)),
CONSTRAINT prj_prj_status_check CHECK ((prj_status = ANY (ARRAY['P'::bpchar, 'O'::bpchar, 'C'::bpchar])))
);
ALTER TABLE public.prj OWNER TO admin;
--
-- Name: TABLE prj; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE prj IS 'Project information';
--
-- Name: COLUMN prj.prj_recurring_prj_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN prj.prj_recurring_prj_id IS 'The first prj record in the series if this is a recurring Project. If the prj_recurring_prj_id is the same as the prj_id, this record is the first in the series.';
--
-- Name: saletype; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE saletype (
saletype_id integer NOT NULL,
saletype_code text NOT NULL,
saletype_descr text,
saletype_active boolean DEFAULT true NOT NULL
);
ALTER TABLE public.saletype OWNER TO admin;
--
-- Name: TABLE saletype; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE saletype IS 'Type or Origination of Sale.';
--
-- Name: COLUMN saletype.saletype_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN saletype.saletype_id IS 'Sequence identifier for sale type.';
--
-- Name: COLUMN saletype.saletype_code; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN saletype.saletype_code IS 'User defined identifier for sale type.';
--
-- Name: COLUMN saletype.saletype_descr; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN saletype.saletype_descr IS 'Description for sale type.';
--
-- Name: COLUMN saletype.saletype_active; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN saletype.saletype_active IS 'Boolean to deactivate a sale type.';
--
-- Name: shipzone; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE shipzone (
shipzone_id integer DEFAULT nextval(('shipzone_shipzone_id_seq'::text)::regclass) NOT NULL,
shipzone_name text NOT NULL,
shipzone_descrip text,
CONSTRAINT shipzone_shipzone_name_check CHECK ((shipzone_name <> ''::text))
);
ALTER TABLE public.shipzone OWNER TO admin;
--
-- Name: TABLE shipzone; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE shipzone IS 'Shipping Zone information';
SET search_path = api, pg_catalog;
--
-- Name: invoice; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW invoice AS
SELECT invchead.invchead_invcnumber AS invoice_number, invchead.invchead_ordernumber AS order_number, invchead.invchead_invcdate AS invoice_date, invchead.invchead_shipdate AS ship_date, invchead.invchead_orderdate AS order_date, saletype.saletype_code AS sale_type, salesrep.salesrep_number AS sales_rep, invchead.invchead_commission AS commission, COALESCE(taxzone.taxzone_code, 'None'::text) AS tax_zone, terms.terms_code AS terms, custinfo.cust_number AS customer_number, invchead.invchead_billto_name AS billto_name, invchead.invchead_billto_address1 AS billto_address1, invchead.invchead_billto_address2 AS billto_address2, invchead.invchead_billto_address3 AS billto_address3, invchead.invchead_billto_city AS billto_city, invchead.invchead_billto_state AS billto_state, invchead.invchead_billto_zipcode AS billto_postal_code, invchead.invchead_billto_country AS billto_country, invchead.invchead_billto_phone AS billto_phone, shiptoinfo.shipto_num AS shipto_number, invchead.invchead_shipto_name AS shipto_name, invchead.invchead_shipto_address1 AS shipto_address1, invchead.invchead_shipto_address2 AS shipto_address2, invchead.invchead_shipto_address3 AS shipto_address3, invchead.invchead_shipto_city AS shipto_city, invchead.invchead_shipto_state AS shipto_state, invchead.invchead_shipto_zipcode AS shipto_postal_code, invchead.invchead_shipto_country AS shipto_country, shipzone.shipzone_name AS shipto_shipzone, invchead.invchead_shipto_phone AS shipto_phone, invchead.invchead_ponumber AS po_number, invchead.invchead_shipvia AS ship_via, prj.prj_number AS project_number, invchead.invchead_fob AS fob, invchead.invchead_misc_descrip AS misc_charge_description, invchead.invchead_misc_amount AS misc_charge, CASE WHEN (invchead.invchead_misc_accnt_id = (-1)) THEN NULL::text ELSE public.formatglaccount(invchead.invchead_misc_accnt_id) END AS misc_charge_account_number, invchead.invchead_freight AS freight, curr.curr_abbr AS currency, invchead.invchead_payment AS payment, invchead.invchead_notes AS notes FROM (((((((((public.invchead LEFT JOIN public.custinfo ON ((custinfo.cust_id = invchead.invchead_cust_id))) LEFT JOIN public.shiptoinfo ON ((shiptoinfo.shipto_id = invchead.invchead_shipto_id))) LEFT JOIN public.prj ON ((prj.prj_id = invchead.invchead_prj_id))) LEFT JOIN public.curr_symbol curr ON ((curr.curr_id = invchead.invchead_curr_id))) LEFT JOIN public.salesrep ON ((salesrep.salesrep_id = invchead.invchead_salesrep_id))) LEFT JOIN public.terms ON ((terms.terms_id = invchead.invchead_terms_id))) LEFT JOIN public.taxzone ON ((taxzone.taxzone_id = invchead.invchead_taxzone_id))) LEFT JOIN public.saletype ON ((invchead.invchead_saletype_id = saletype.saletype_id))) LEFT JOIN public.shipzone ON ((invchead.invchead_shipzone_id = shipzone.shipzone_id)));
ALTER TABLE api.invoice OWNER TO admin;
--
-- Name: VIEW invoice; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW invoice IS '
This view can be used as an interface to import Invioce Header data directly
into the system. Required fields will be checked and default values will be
populated';
SET search_path = public, pg_catalog;
--
-- Name: insertinvoice(api.invoice); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertinvoice(api.invoice) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNew ALIAS FOR $1;
BEGIN
-- NOTE: (SELECT getCustId(...)) seems redundant, but it actually produces
-- a HUGE performance increase because it makes the Postgres query planner
-- use an index scan rather than an sequential table scan on cust_id
INSERT INTO invchead (
invchead_invcnumber,
invchead_ordernumber,
invchead_invcdate,
invchead_shipdate,
invchead_orderdate,
invchead_printed,
invchead_posted,
invchead_salesrep_id,
invchead_commission,
invchead_taxzone_id,
invchead_terms_id,
invchead_cust_id,
invchead_billto_name,
invchead_billto_address1,
invchead_billto_address2,
invchead_billto_address3,
invchead_billto_city,
invchead_billto_state,
invchead_billto_zipcode,
invchead_billto_country,
invchead_billto_phone,
invchead_shipto_id,
invchead_shipto_name,
invchead_shipto_address1,
invchead_shipto_address2,
invchead_shipto_address3,
invchead_shipto_city,
invchead_shipto_state,
invchead_shipto_zipcode,
invchead_shipto_country,
invchead_shipto_phone,
invchead_ponumber,
invchead_shipvia,
invchead_prj_id,
invchead_fob,
invchead_misc_descrip,
invchead_misc_amount,
invchead_misc_accnt_id,
invchead_freight,
invchead_curr_id,
invchead_payment,
invchead_notes,
invchead_saletype_id,
invchead_shipzone_id
) SELECT
(CASE -- use a case here so we don't unnecessarily fetch a new invoice number
WHEN pNew.invoice_number IS NULL THEN CAST(fetchInvcNumber() AS TEXT)
WHEN pNew.invoice_number = '' THEN CAST(fetchInvcNumber() AS TEXT)
ELSE pNew.invoice_number
END),
pNew.order_number,
COALESCE(pNew.invoice_date, CURRENT_DATE),
pNew.ship_date,
pNew.order_date,
FALSE,
FALSE,
COALESCE(getSalesRepId(pNew.sales_rep),shipto_salesrep_id,cust_salesrep_id),
COALESCE(pNew.commission, 0),
CASE
WHEN pNew.tax_zone = 'None' THEN NULL
ELSE COALESCE(getTaxZoneId(pNew.tax_zone),shipto_taxzone_id,cust_taxzone_id)
END,
COALESCE(getTermsId(pNew.terms),cust_terms_id),
(SELECT getCustId(pNew.customer_number)),
COALESCE(pNew.billto_name, cohead_billtoname, cust_name),
COALESCE(pNew.billto_address1, cohead_billtoaddress1, addr_line1),
COALESCE(pNew.billto_address2, cohead_billtoaddress2, addr_line2),
COALESCE(pNew.billto_address3, cohead_billtoaddress3, addr_line3),
COALESCE(pNew.billto_city, cohead_billtocity, addr_city),
COALESCE(pNew.billto_state, cohead_billtostate, addr_state),
COALESCE(pNew.billto_postal_code, cohead_billtozipcode, addr_postalcode),
COALESCE(pNew.billto_country, cohead_billtocountry, addr_country),
COALESCE(pNew.billto_phone, ''),
COALESCE(shipto_id,-1),
pNew.shipto_name,
pNew.shipto_address1,
pNew.shipto_address2,
pNew.shipto_address3,
pNew.shipto_city,
pNew.shipto_state,
pNew.shipto_postal_code,
pNew.shipto_country,
pNew.shipto_phone,
COALESCE(pNew.po_number, ''),
COALESCE(pNew.ship_via,shipto_shipvia,cust_shipvia),
COALESCE(getPrjId(pNew.project_number),-1),
COALESCE(pNew.fob,fetchDefaultFob((
SELECT CAST(usrpref_value AS INTEGER)
FROM usrpref, whsinfo
WHERE ((warehous_id=CAST(usrpref_value AS INTEGER))
AND (warehous_shipping)
AND (warehous_active)
AND (usrpref_username=getEffectiveXtUser())
AND (usrpref_name='PreferredWarehouse')
)
))),
pNew.misc_charge_description,
COALESCE(pNew.misc_charge, 0),
COALESCE(getGlAccntId(pNew.misc_charge_account_number),-1),
COALESCE(pNew.freight, 0),
COALESCE(getCurrId(pNew.currency),(
SELECT cust_curr_id
FROM custinfo
WHERE (cust_id=(SELECT getCustId(pNew.customer_number)))
),basecurrid()),
COALESCE(pNew.payment,0),
COALESCE(pNew.notes,''),
getSaleTypeId(pNew.sale_type),
getShipZoneId(pNew.shipto_shipzone)
FROM custinfo
LEFT OUTER JOIN shiptoinfo ON (shipto_id=(SELECT CASE
WHEN getShiptoId(pNew.customer_number,pNew.shipto_number) IS NOT NULL
THEN getShiptoId(pNew.customer_number,pNew.shipto_number)
ELSE (SELECT shipto_id FROM shiptoinfo WHERE shipto_cust_id=cust_id AND shipto_default)
END))
LEFT OUTER JOIN cohead ON (cohead_number=pNEW.order_number)
LEFT OUTER JOIN cntct ON (cntct_id=cust_cntct_id)
LEFT OUTER JOIN addr ON (addr_id=cntct_addr_id)
WHERE cust_id = (SELECT getCustId(pNew.customer_number));
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.insertinvoice(api.invoice) OWNER TO admin;
--
-- Name: invcitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE invcitem (
invcitem_id integer NOT NULL,
invcitem_invchead_id integer NOT NULL,
invcitem_linenumber integer,
invcitem_item_id integer,
invcitem_warehous_id integer DEFAULT (-1),
invcitem_custpn text,
invcitem_number text,
invcitem_descrip text,
invcitem_ordered numeric(20,6) NOT NULL,
invcitem_billed numeric(20,6) NOT NULL,
invcitem_custprice numeric(20,4),
invcitem_price numeric(20,4) NOT NULL,
invcitem_notes text,
invcitem_salescat_id integer,
invcitem_taxtype_id integer,
invcitem_qty_uom_id integer,
invcitem_qty_invuomratio numeric(20,10) NOT NULL,
invcitem_price_uom_id integer,
invcitem_price_invuomratio numeric(20,10) NOT NULL,
invcitem_coitem_id integer,
invcitem_updateinv boolean DEFAULT false,
invcitem_rev_accnt_id integer
);
ALTER TABLE public.invcitem OWNER TO admin;
--
-- Name: TABLE invcitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE invcitem IS 'Invoice Line Item information';
SET search_path = api, pg_catalog;
--
-- Name: invoiceline; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW invoiceline AS
SELECT invchead.invchead_invcnumber AS invoice_number, invcitem.invcitem_linenumber AS line_number, item.item_number, invcitem.invcitem_number AS misc_item_number, whsinfo.warehous_code AS site, invcitem.invcitem_descrip AS misc_item_description, salescat.salescat_name AS sales_category, invcitem.invcitem_custpn AS customer_part_number, invcitem.invcitem_ordered AS qty_ordered, invcitem.invcitem_billed AS qty_billed, invcitem.invcitem_updateinv AS update_inventory, invcitem.invcitem_price AS net_unit_price, COALESCE(taxtype.taxtype_name, 'None'::text) AS tax_type, COALESCE(qty_uom.uom_name, 'None'::text) AS qty_uom, COALESCE(price_uom.uom_name, 'None'::text) AS price_uom, invcitem.invcitem_notes AS notes, CASE WHEN (invcitem.invcitem_rev_accnt_id IS NOT NULL) THEN public.formatglaccount(invcitem.invcitem_rev_accnt_id) ELSE NULL::text END AS alternate_rev_account FROM (((((((public.invcitem LEFT JOIN public.invchead ON ((invcitem.invcitem_invchead_id = invchead.invchead_id))) LEFT JOIN public.item ON ((item.item_id = invcitem.invcitem_item_id))) LEFT JOIN public.whsinfo ON ((invcitem.invcitem_warehous_id = whsinfo.warehous_id))) LEFT JOIN public.salescat ON ((salescat.salescat_id = invcitem.invcitem_salescat_id))) LEFT JOIN public.taxtype ON ((taxtype.taxtype_id = invcitem.invcitem_taxtype_id))) LEFT JOIN public.uom qty_uom ON ((qty_uom.uom_id = invcitem.invcitem_qty_uom_id))) LEFT JOIN public.uom price_uom ON ((price_uom.uom_id = invcitem.invcitem_price_uom_id)));
ALTER TABLE api.invoiceline OWNER TO admin;
--
-- Name: VIEW invoiceline; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW invoiceline IS '
This view can be used as an interface to import Invoice Line Items data directly
into the system. Required fields will be checked and default values will be
populated';
SET search_path = public, pg_catalog;
--
-- Name: insertinvoicelineitem(api.invoiceline); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertinvoicelineitem(api.invoiceline) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNew ALIAS FOR $1;
_r RECORD;
BEGIN
INSERT INTO invcitem (
invcitem_invchead_id,
invcitem_linenumber,
invcitem_item_id,
invcitem_warehous_id,
invcitem_custpn,
invcitem_number,
invcitem_descrip,
invcitem_ordered,
invcitem_billed,
invcitem_updateinv,
invcitem_custprice,
invcitem_price,
invcitem_notes,
invcitem_salescat_id,
invcitem_taxtype_id,
invcitem_qty_uom_id,
invcitem_qty_invuomratio,
invcitem_price_uom_id,
invcitem_price_invuomratio,
invcitem_rev_accnt_id
) SELECT
invchead_id,
COALESCE(pNew.line_number,(
SELECT (COALESCE(MAX(invcitem_linenumber), 0) + 1)
FROM invcitem WHERE (invcitem_invchead_id=invchead_id)
)),
COALESCE(item_id, -1),
COALESCE(getwarehousid(pNew.site,'ALL'),-1),
pNew.customer_part_number,
(CASE WHEN item_id IS NULL THEN pNew.misc_item_number ELSE NULL END),
(CASE WHEN item_id IS NULL THEN pNew.misc_item_description ELSE NULL END),
pNew.qty_ordered,
COALESCE(pNew.qty_billed, 0),
COALESCE(pNew.update_inventory,FALSE),
0, -- invcitem_custprice
COALESCE(pNew.net_unit_price,itemPrice(item_id,invchead_cust_id,
invchead_shipto_id,pNew.qty_ordered,invchead_curr_id,invchead_orderdate)),
COALESCE(pNew.notes,''),
CASE
WHEN item_id IS NULL THEN
(SELECT salescat_id FROM salescat WHERE salescat_name = pNew.sales_category)
ELSE NULL
END,
taxtype_id,
CASE
WHEN item_id IS NOT NULL THEN
COALESCE((SELECT uom_id FROM uom WHERE (uom_name=pNew.qty_uom)), item_price_uom_id)
ELSE NULL
END,
CASE
WHEN item_id IS NOT NULL THEN
itemuomtouomratio(item_id,
COALESCE((SELECT uom_id FROM uom WHERE uom_name=pNew.qty_uom),item_price_uom_id),
item_price_uom_id
)
ELSE 1
END,
CASE
WHEN item_id IS NOT NULL THEN
COALESCE((SELECT uom_id FROM uom WHERE uom_name=pNew.price_uom),item_price_uom_id)
ELSE NULL
END,
CASE
WHEN item_id IS NOT NULL THEN
itemuomtouomratio(item_id,
COALESCE((SELECT uom_id FROM uom WHERE uom_name=pNew.price_uom),item_price_uom_id),
item_price_uom_id
)
ELSE 1
END,
getGlAccntId(pNew.alternate_rev_account)
FROM invchead
LEFT OUTER JOIN item ON (item_id=getItemId(pNew.item_number))
LEFT OUTER JOIN taxtype ON (taxtype_id=CASE
WHEN pNew.tax_type IS NULL THEN getItemTaxType(item_id,invchead_taxzone_id)
WHEN pNew.tax_type = 'None' THEN NULL
ELSE (SELECT taxtype_id FROM taxtype WHERE taxtype_name=pNew.tax_type)
END)
WHERE (invchead_invcnumber=pNew.invoice_number) AND (invchead_posted=FALSE);
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.insertinvoicelineitem(api.invoiceline) OWNER TO admin;
--
-- Name: insertitemcost(integer, integer, integer, numeric, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertitemcost(integer, integer, integer, numeric, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemId ALIAS FOR $1;
pCostElemId ALIAS FOR $2;
pCurrId ALIAS FOR $3;
pCost ALIAS FOR $4;
pPostToStandard ALIAS FOR $5;
_itemcost_id INTEGER;
_update_return INTEGER;
_postcost_return BOOLEAN;
--This function is used with the api.itemcost View for updating and inserting
--into the itemcosts table
BEGIN
IF (pCost IS NULL OR pCost < 0) THEN
RAISE EXCEPTION 'itemcost Actual Cost Invalid ', pCost;
END IF;
-- Check for uniqueness
SELECT itemcost_id INTO _itemcost_id
FROM itemcost
WHERE ( (itemcost_item_id = pItemId)
AND (itemcost_costelem_id = pCostElemId)
AND (NOT itemcost_lowlevel) );
IF (FOUND) THEN
RAISE EXCEPTION 'itemcost already exists for this Item and Cost Element';
END IF;
-- Check for valid combination of item_type and costelem_type
IF (SELECT (COUNT(*) > 0)
FROM item, costelem
WHERE (item_id=pItemId)
AND (costelem_id=pCostElemId)
AND (item_type IN ('M', 'F', 'B', 'C', 'T'))
AND (costelem_type IN ('Material'))) THEN
RAISE EXCEPTION 'itemcost of this type is invalid for Manufactured Item';
END IF;
IF (SELECT (COUNT(*) > 0)
FROM item, costelem
WHERE (item_id=pItemId)
AND (costelem_id=pCostElemId)
AND (item_type IN ('O', 'P'))
AND (costelem_type IN ('Direct Labor', 'Overhead', 'Machine Overhead'))) THEN
RAISE EXCEPTION 'itemcost of this type is invalid for Purchased Item';
END IF;
IF (pCost > 0) THEN
SELECT NEXTVAL('itemcost_itemcost_id_seq') INTO _itemcost_id;
INSERT INTO itemcost
( itemcost_id, itemcost_item_id, itemcost_costelem_id, itemcost_lowlevel,
itemcost_stdcost, itemcost_posted, itemcost_actcost, itemcost_updated, itemcost_curr_id )
VALUES
( _itemcost_id, pItemId, pCostElemId, FALSE,
0, startOfTime(), pCost, CURRENT_DATE, pCurrId );
--Only Post Cost to standard if the parameter is set to true
IF (pPostToStandard) THEN
IF (NOT checkPrivilege('PostStandardCosts')) THEN
RAISE EXCEPTION 'You do not have privileges to poststandard itemcosts. Set api.itemcost post_to_standard to false';
END IF;
SELECT postcost(_itemcost_id) INTO _postcost_return;
IF (NOT _postcost_return) THEN
RETURN -2;
END IF;
END IF;
ELSE
RETURN -1;
END IF;
RETURN _itemcost_id;
END;
$_$;
ALTER FUNCTION public.insertitemcost(integer, integer, integer, numeric, boolean) OWNER TO admin;
--
-- Name: insertsalesline(api.salesline); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION insertsalesline(api.salesline) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNEW ALIAS FOR $1;
_r RECORD;
BEGIN
IF (NOT EXISTS (SELECT cohead_id FROM cohead WHERE cohead_number=pNEW.order_number)) THEN
RAISE EXCEPTION 'Function insertSalesLine failed because Sales Order % not found', pNEW.order_number;
END IF;
IF (NOT EXISTS (SELECT item_id FROM item WHERE item_number=pNEW.item_number)) THEN
RAISE EXCEPTION 'Function insertSalesLine failed because Item Number % not found', pNEW.item_number;
END IF;
SELECT * INTO _r
FROM cohead, itemsite, item, whsinfo
WHERE ((cohead_number=pNEW.order_number)
AND (itemsite_warehous_id=warehous_id
AND (itemsite_item_id=item_id)
AND (itemsite_active)
AND (item_number=pNEW.item_number)
AND (warehous_active)
AND (warehous_id=COALESCE(getWarehousId(pNEW.sold_from_site,'ALL'),cohead_warehous_id,fetchprefwarehousid()))));
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Function insertSalesLine failed with unknown failure to retrieve Sales Order';
END IF;
INSERT INTO coitem (
coitem_cohead_id,
coitem_linenumber,
coitem_itemsite_id,
coitem_status,
coitem_scheddate,
coitem_promdate,
coitem_qtyord,
coitem_qty_uom_id,
coitem_qty_invuomratio,
coitem_qtyshipped,
coitem_unitcost,
coitem_price,
coitem_price_uom_id,
coitem_price_invuomratio,
coitem_custprice,
coitem_order_id,
coitem_memo,
coitem_imported,
coitem_qtyreturned,
coitem_custpn,
coitem_order_type,
coitem_substitute_item_id,
coitem_prcost,
coitem_taxtype_id,
coitem_warranty,
coitem_cos_accnt_id,
coitem_rev_accnt_id)
VALUES (
_r.cohead_id,
pNEW.line_number::INTEGER,
_r.itemsite_id,
pNEW.status,
pNEW.scheduled_date,
pNEW.promise_date,
pNEW.qty_ordered,
COALESCE(getUomId(pNEW.qty_uom),_r.item_inv_uom_id),
itemuomtouomratio(_r.item_id,COALESCE(getUomId(pNEW.qty_uom),_r.item_inv_uom_id),_r.item_inv_uom_id),
0,
stdCost(_r.item_id),
COALESCE(pNEW.net_unit_price,itemPrice(_r.item_id,_r.cohead_cust_id,
_r.cohead_shipto_id,pNEW.qty_ordered,_r.cohead_curr_id,_r.cohead_orderdate)),
COALESCE(getUomId(pNEW.price_uom),_r.item_price_uom_id),
itemuomtouomratio(_r.item_id,COALESCE(getUomId(pNEW.price_uom),_r.item_price_uom_id),_r.item_price_uom_id),
itemPrice(_r.item_id,_r.cohead_cust_id,_r.cohead_shipto_id,pNEW.qty_ordered,_r.cohead_curr_id,_r.cohead_orderdate),
-1,
pNEW.notes,
true,
0,
pNEW.customer_pn,
CASE
WHEN ((pNEW.create_order AND (_r.item_type = 'M')) OR
((pNEW.create_order IS NULL) AND _r.itemsite_createwo)) THEN
'W'
WHEN ((pNEW.create_order AND (_r.item_type = 'P')) OR
((pNEW.create_order IS NULL) AND _r.itemsite_createsopr)) THEN
'R'
WHEN ((pNEW.create_order AND (_r.item_type = 'P') AND (_r.itemsite_createsopo)) OR
((pNEW.create_order IS NULL) AND _r.itemsite_createsopo)) THEN
'P'
END,
getitemid(pNEW.substitute_for),
pNEW.overwrite_po_price,
COALESCE(getTaxTypeId(pNEW.tax_type), getItemTaxType(_r.itemsite_item_id, _r.cohead_taxzone_id)),
pNEW.warranty,
getGlAccntId(pNEW.alternate_cos_account),
getGlAccntId(pNEW.alternate_rev_account)
);
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.insertsalesline(api.salesline) OWNER TO admin;
--
-- Name: intervaltominutes(interval); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION intervaltominutes(interval) RETURNS numeric
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT (EXTRACT(DAY FROM $1) * 24 * 60 +
EXTRACT(HOUR FROM $1) * 60 +
EXTRACT(MINUTE FROM $1) +
ROUND((EXTRACT(SECOND FROM $1) / 60)::NUMERIC, 4))::NUMERIC AS result
$_$;
ALTER FUNCTION public.intervaltominutes(interval) OWNER TO admin;
--
-- Name: invadjustment(integer, numeric, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION invadjustment(integer, numeric, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN invAdjustment($1, $2, $3, $4, CURRENT_TIMESTAMP, NULL);
END;
$_$;
ALTER FUNCTION public.invadjustment(integer, numeric, text, text) OWNER TO admin;
--
-- Name: invadjustment(integer, numeric, text, text, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION invadjustment(integer, numeric, text, text, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN invAdjustment($1, $2, $3, $4, $5, NULL);
END;
$_$;
ALTER FUNCTION public.invadjustment(integer, numeric, text, text, timestamp with time zone) OWNER TO admin;
--
-- Name: invadjustment(integer, numeric, text, text, timestamp with time zone, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION invadjustment(integer, numeric, text, text, timestamp with time zone, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pQty ALIAS FOR $2;
pDocumentNumber ALIAS FOR $3;
pComments ALIAS FOR $4;
pGlDistTS ALIAS FOR $5;
pCostValue ALIAS FOR $6;
_invhistid INTEGER;
_itemlocSeries INTEGER;
BEGIN
-- Make sure the passed itemsite points to a real item
IF ( ( SELECT (item_type IN ('R', 'F') OR itemsite_costmethod = 'J')
FROM itemsite, item
WHERE ( (itemsite_item_id=item_id)
AND (itemsite_id=pItemsiteid) ) ) ) THEN
RETURN 0;
END IF;
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
SELECT postInvTrans( itemsite_id, 'AD', pQty,
'I/M', 'AD', pDocumentNumber, '',
('Miscellaneous Adjustment for item ' || item_number || E'\n' || pComments),
costcat_asset_accnt_id, costcat_adjustment_accnt_id,
_itemlocSeries, pGlDistTS, pCostValue) INTO _invhistid
FROM itemsite, item, costcat
WHERE ( (itemsite_item_id=item_id)
AND (itemsite_costcat_id=costcat_id)
AND (itemsite_id=pItemsiteid) );
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.invadjustment(integer, numeric, text, text, timestamp with time zone, numeric) OWNER TO admin;
--
-- Name: invexpense(integer, numeric, integer, text, text, timestamp with time zone, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION invexpense(pitemsiteid integer, pqty numeric, pexpcatid integer, pdocumentnumber text, pcomments text, pgldistts timestamp with time zone DEFAULT now(), pprjid integer DEFAULT NULL::integer) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_invhistid INTEGER;
_itemlocSeries INTEGER;
BEGIN
-- Make sure the passed itemsite points to a real item
IF ( ( SELECT (item_type IN ('R', 'F') OR itemsite_costmethod = 'J')
FROM itemsite, item
WHERE ( (itemsite_item_id=item_id)
AND (itemsite_id=pItemsiteid) ) ) ) THEN
RETURN 0;
END IF;
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
SELECT postInvTrans( itemsite_id, 'EX', pQty,
'I/M', 'EX', pDocumentNumber, '',
CASE WHEN (pQty < 0) THEN ('Reverse Material Expense for item ' || item_number || E'\n' || pComments)
ELSE ('Material Expense for item ' || item_number || E'\n' || pComments)
END,
getPrjAccntId(pPrjid, expcat_exp_accnt_id), costcat_asset_accnt_id,
_itemlocSeries, pGlDistTS) INTO _invhistid
FROM itemsite, item, costcat, expcat
WHERE ( (itemsite_item_id=item_id)
AND (itemsite_costcat_id=costcat_id)
AND (itemsite_id=pItemsiteid)
AND (expcat_id=pExpcatid) );
INSERT INTO invhistexpcat (invhistexpcat_invhist_id, invhistexpcat_expcat_id)
VALUES (_invhistid, pExpcatid);
RETURN _itemlocSeries;
END;
$$;
ALTER FUNCTION public.invexpense(pitemsiteid integer, pqty numeric, pexpcatid integer, pdocumentnumber text, pcomments text, pgldistts timestamp with time zone, pprjid integer) OWNER TO admin;
--
-- Name: invhistsense(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION invhistsense(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pInvhistId ALIAS FOR $1;
_count INTEGER;
_row RECORD;
_sense INTEGER;
BEGIN
SELECT invhist_transtype, invhist_ordnumber, itemsite_warehous_id
INTO _row
FROM invhist
JOIN itemsite ON (itemsite_id=invhist_itemsite_id)
WHERE (invhist_id=pInvhistId);
GET DIAGNOSTICS _count = ROW_COUNT;
IF (_count = 0) THEN
RAISE EXCEPTION 'Record not found for invhist_id=%',pInvhistId;
END IF;
-- increase inventory: AD RM RT RP RR RS RX RB TR
-- decrease inventory: IM IB IT SH SI EX RI
-- TS and TR are special: shipShipment and recallShipment should not change
-- QOH at the Transfer Order src whs (as this was done by issueToShipping)
-- but postReceipt should change QOH at the transit whs
IF (_row.invhist_transtype='TS') THEN
_sense := CASE WHEN (SELECT tohead_trns_warehous_id=_row.itemsite_warehous_id
FROM tohead
WHERE (tohead_number=_row.invhist_ordnumber)) THEN -1
ELSE 0
END;
ELSIF (_row.invhist_transtype='TR') THEN
_sense := CASE WHEN (SELECT tohead_src_warehous_id=_row.itemsite_warehous_id
FROM tohead
WHERE (tohead_number=_row.invhist_ordnumber)) THEN 0
ELSE 1
END;
ELSIF (_row.invhist_transtype IN ('IM', 'IB', 'IT', 'SH', 'SI', 'EX', 'RI')) THEN
_sense := -1;
ELSE
_sense := 1;
END IF;
RETURN _sense;
END;
$_$;
ALTER FUNCTION public.invhistsense(integer) OWNER TO admin;
--
-- Name: invhisttrig(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION invhisttrig() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
-- Need to allow 'temporary' negative for average costed item that has been frozen.
-- Check at itemsite after all of the transactions have been thawed will ensure
-- that final Qty On Hand is positive.
-- IF (NEW.invhist_qoh_after < 0 AND NEW.invhist_costmethod = 'A') THEN
-- RAISE EXCEPTION 'Invhist (%) is recording with average costing and is not allowed to have a negative quantity on hand.', NEW.invhist_id;
-- END IF;
IF ( ( SELECT itemsite_freeze
FROM itemsite
WHERE (itemsite_id=NEW.invhist_itemsite_id) ) ) THEN
NEW.invhist_posted = FALSE;
END IF;
-- never change the created timestamp, which defaults to CURRENT_TIMESTAMP
IF (TG_OP != 'INSERT') THEN
NEW.invhist_created = OLD.invhist_created;
ELSE
-- Always need a series id for distribution posting
IF (NEW.invhist_series IS NULL) THEN
RAISE EXCEPTION 'Column invhist_series may not be null.';
END IF;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION public.invhisttrig() OWNER TO admin;
--
-- Name: invoicetotal(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION invoicetotal(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pInvoiceId ALIAS FOR $1;
_linesum NUMERIC;
_linetax NUMERIC;
_result NUMERIC;
_allocated NUMERIC;
_posted BOOLEAN;
BEGIN
SELECT SUM(ROUND(COALESCE((invcitem_billed * invcitem_qty_invuomratio) *
(invcitem_price / COALESCE(invcitem_price_invuomratio,1)), 0),2))
INTO _linesum
FROM invcitem
WHERE (invcitem_invchead_id=pInvoiceId);
-- TODO: why sum on the result of select round(sum(), 2)?
SELECT SUM(tax) INTO _linetax
FROM (SELECT ROUND(SUM(COALESCE(taxdetail_tax, 0)),2) AS tax
FROM tax
JOIN calculateTaxDetailSummary('I', pInvoiceId, 'T') ON (taxdetail_tax_id=tax_id)
GROUP BY tax_id) AS data;
SELECT noNeg(invchead_freight + invchead_misc_amount + COALESCE(_linetax, 0) + COALESCE(_linesum, 0)),
invchead_posted INTO _result, _posted
FROM invchead
WHERE (invchead_id=pInvoiceId);
IF NOT FOUND THEN
RETURN 0;
END IF;
IF (_posted) THEN
SELECT COALESCE(SUM(currToCurr(arapply_curr_id, aropen_curr_id,
arapply_applied, aropen_docdate)),0) INTO _allocated
FROM arapply, aropen, invchead
WHERE ( (invchead_posted)
AND (invchead_id=pInvoiceId)
AND (aropen_docnumber=invchead_invcnumber)
AND (aropen_doctype='I')
AND (arapply_target_aropen_id=aropen_id)
AND (arapply_reftype='S')
AND (invchead_posted) ) ;
ELSE
SELECT COALESCE(SUM(CASE WHEN((aropen_amount - aropen_paid) >=
currToCurr(aropenalloc_curr_id, aropen_curr_id,
aropenalloc_amount, aropen_docdate))
THEN currToCurr(aropenalloc_curr_id, invchead_curr_id,
aropenalloc_amount, aropen_docdate)
ELSE currToCurr(aropen_curr_id, invchead_curr_id,
aropen_amount - aropen_paid, aropen_docdate)
END),0) INTO _allocated
FROM invchead LEFT OUTER JOIN cohead ON (cohead_number=invchead_ordernumber)
JOIN aropenalloc ON ((aropenalloc_doctype='I' AND aropenalloc_doc_id=invchead_id) OR
(aropenalloc_doctype='S' AND aropenalloc_doc_id=cohead_id))
JOIN aropen ON (aropen_id=aropenalloc_aropen_id AND (aropen_amount - aropen_paid) > 0.0)
WHERE ( (NOT invchead_posted)
AND (invchead_id=pInvoiceId) );
END IF;
RETURN _result - COALESCE(_allocated, 0);
END;
$_$;
ALTER FUNCTION public.invoicetotal(integer) OWNER TO admin;
--
-- Name: invreceipt(integer, numeric, text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION invreceipt(integer, numeric, text, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN invReceipt($1, $2, $3, $4, $5, CURRENT_TIMESTAMP, NULL);
END;
$_$;
ALTER FUNCTION public.invreceipt(integer, numeric, text, text, text) OWNER TO admin;
--
-- Name: invreceipt(integer, numeric, text, text, text, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION invreceipt(integer, numeric, text, text, text, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN invReceipt($1, $2, $3, $4, $5, $6, NULL);
END;
$_$;
ALTER FUNCTION public.invreceipt(integer, numeric, text, text, text, timestamp with time zone) OWNER TO admin;
--
-- Name: invreceipt(integer, numeric, text, text, text, timestamp with time zone, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION invreceipt(integer, numeric, text, text, text, timestamp with time zone, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pQty ALIAS FOR $2;
pOrdernumber ALIAS FOR $3;
pDocumentNumber ALIAS FOR $4;
pComments ALIAS FOR $5;
pGlDistTS ALIAS FOR $6;
pCostValue ALIAS FOR $7;
_invhistid INTEGER;
_itemlocSeries INTEGER;
BEGIN
-- Make sure the passed itemsite points to a real item
IF ( ( SELECT (item_type IN ('R', 'F') OR itemsite_costmethod = 'J')
FROM itemsite, item
WHERE ( (itemsite_item_id=item_id)
AND (itemsite_id=pItemsiteid) ) ) ) THEN
RETURN 0;
END IF;
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
SELECT postInvTrans( itemsite_id, 'RX', pQty,
'I/M', 'RX', pDocumentNumber, '',
('Miscellaneous Receipt for item ' || item_number || E'\n' || pComments),
costcat_asset_accnt_id, costcat_liability_accnt_id,
_itemlocSeries, pGlDistTS, pCostValue) INTO _invhistid
FROM itemsite, item, costcat
WHERE ( (itemsite_item_id=item_id)
AND (itemsite_costcat_id=costcat_id)
AND (itemsite_id=pItemsiteid) );
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.invreceipt(integer, numeric, text, text, text, timestamp with time zone, numeric) OWNER TO admin;
--
-- Name: invscrap(integer, numeric, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION invscrap(integer, numeric, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN invScrap($1, $2, $3, $4, CURRENT_TIMESTAMP);
END;
$_$;
ALTER FUNCTION public.invscrap(integer, numeric, text, text) OWNER TO admin;
--
-- Name: invscrap(integer, numeric, text, text, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION invscrap(integer, numeric, text, text, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN invScrap($1, $2, $3, $4, $5, NULL);
END;
$_$;
ALTER FUNCTION public.invscrap(integer, numeric, text, text, timestamp with time zone) OWNER TO admin;
--
-- Name: invscrap(integer, numeric, text, text, timestamp with time zone, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION invscrap(integer, numeric, text, text, timestamp with time zone, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN invScrap($1, $2, $3, $4, $5, $6, NULL);
END;
$_$;
ALTER FUNCTION public.invscrap(integer, numeric, text, text, timestamp with time zone, integer) OWNER TO admin;
--
-- Name: invscrap(integer, numeric, text, text, timestamp with time zone, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION invscrap(integer, numeric, text, text, timestamp with time zone, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pQty ALIAS FOR $2;
pDocumentNumber ALIAS FOR $3;
pComments ALIAS FOR $4;
pGlDistTS ALIAS FOR $5;
pInvHistId ALIAS FOR $6;
pPrjid ALIAS FOR $7;
_invhistid INTEGER;
_itemlocSeries INTEGER;
BEGIN
-- Make sure the passed itemsite points to a real item
IF ( ( SELECT (item_type IN ('R', 'F') OR itemsite_costmethod = 'J')
FROM itemsite, item
WHERE ( (itemsite_item_id=item_id)
AND (itemsite_id=pItemsiteid) ) ) ) THEN
RETURN 0;
END IF;
IF (pInvHistId IS NOT NULL) THEN
SELECT invhist_series INTO _itemlocSeries
FROM invhist
WHERE invhist_id=pInvHistId;
ELSE
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
END IF;
SELECT postInvTrans( itemsite_id, 'SI', pQty,
'I/M', 'SI', pDocumentNumber, '',
CASE WHEN (pQty < 0) THEN ('Reverse Material Scrap for item ' || item_number || E'\n' || pComments)
ELSE ('Material Scrap for item ' || item_number || E'\n' || pComments)
END,
getPrjAccntId(pPrjid, costcat_scrap_accnt_id), costcat_asset_accnt_id,
_itemlocSeries, pGlDistTS, NULL, pInvHistId) INTO _invhistid
FROM itemsite, item, costcat
WHERE ( (itemsite_item_id=item_id)
AND (itemsite_costcat_id=costcat_id)
AND (itemsite_id=pItemsiteid) );
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.invscrap(integer, numeric, text, text, timestamp with time zone, integer, integer) OWNER TO admin;
--
-- Name: isdba(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION isdba(text DEFAULT NULL::text) RETURNS boolean
LANGUAGE sql
AS $_$
SELECT (datdba=pg_roles.oid OR rolsuper) AS issuper
FROM pg_database, pg_roles
WHERE ((datname=current_database())
AND (rolname=COALESCE($1, getEffectiveXtUser())));
$_$;
ALTER FUNCTION public.isdba(text) OWNER TO admin;
--
-- Name: ismulticurr(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION ismulticurr() RETURNS boolean
LANGUAGE plpgsql IMMUTABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN (SELECT (count(*) > 1)
FROM curr_symbol);
END;
$$;
ALTER FUNCTION public.ismulticurr() OWNER TO admin;
--
-- Name: isnumeric(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION isnumeric(text) RETURNS boolean
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pText ALIAS FOR $1;
_cursor INTEGER;
BEGIN
IF ( (LENGTH(pText) = 0) OR (pText IS NULL) ) THEN
RETURN FALSE;
END IF;
FOR _cursor IN 1..LENGTH(pText) LOOP
IF (SUBSTRING(pText FROM _cursor FOR 1) NOT IN ( '0', '1', '2', '3', '4',
'5' ,'6' ,'7' ,'8' ,'9' )) THEN
RETURN FALSE;
END IF;
END LOOP;
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.isnumeric(text) OWNER TO admin;
--
-- Name: issueallbalancetoshipping(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issueallbalancetoshipping(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN issueAllBalanceToShipping('SO', $1, 0, NULL);
END;
$_$;
ALTER FUNCTION public.issueallbalancetoshipping(integer) OWNER TO admin;
--
-- Name: issueallbalancetoshipping(text, integer, integer, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issueallbalancetoshipping(text, integer, integer, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pordertype ALIAS FOR $1;
pheadid ALIAS FOR $2;
_itemlocSeries INTEGER := $3;
_timestamp TIMESTAMP WITH TIME ZONE := $4;
_s RECORD;
BEGIN
IF (pordertype = 'SO') THEN
FOR _s IN SELECT coitem_id,
noNeg(coitem_qtyord - coitem_qtyshipped + coitem_qtyreturned -
( SELECT COALESCE(SUM(shipitem_qty), 0)
FROM shipitem, shiphead
WHERE ( (shipitem_orderitem_id=coitem_id)
AND (shipitem_shiphead_id=shiphead_id)
AND (NOT shiphead_shipped)
AND (shiphead_order_type=pordertype) ) ) ) AS balance
FROM coitem LEFT OUTER JOIN (itemsite JOIN item ON (itemsite_item_id=item_id)) ON (coitem_itemsite_id=itemsite_id)
WHERE ( (coitem_status NOT IN ('C','X'))
AND (item_type != 'K')
AND (coitem_cohead_id=pheadid) ) LOOP
IF (_s.balance <> 0) THEN
_itemlocSeries := issueToShipping(pordertype, _s.coitem_id, _s.balance, _itemlocSeries, _timestamp);
IF (_itemlocSeries < 0) THEN
EXIT;
END IF;
END IF;
END LOOP;
ELSEIF (pordertype = 'TO') THEN
FOR _s IN SELECT toitem_id,
noNeg( toitem_qty_ordered - toitem_qty_shipped -
( SELECT COALESCE(SUM(shipitem_qty), 0)
FROM shipitem, shiphead
WHERE ( (shipitem_orderitem_id=toitem_id)
AND (shipitem_shiphead_id=shiphead_id)
AND (NOT shiphead_shipped)
AND (shiphead_order_type=pordertype) ) ) ) AS balance
FROM toitem
WHERE ( (toitem_status NOT IN ('C','X'))
AND (toitem_tohead_id=pheadid) ) LOOP
IF (_s.balance <> 0) THEN
_itemlocSeries := issueToShipping(pordertype, _s.toitem_id, _s.balance, _itemlocSeries, _timestamp);
IF (_itemlocSeries < 0) THEN
EXIT;
END IF;
END IF;
END LOOP;
ELSE
RETURN -1;
END IF;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.issueallbalancetoshipping(text, integer, integer, timestamp with time zone) OWNER TO admin;
--
-- Name: issuelinebalancetoshipping(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issuelinebalancetoshipping(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN issueLineBalanceToShipping('SO', $1, NULL);
END;
$_$;
ALTER FUNCTION public.issuelinebalancetoshipping(integer) OWNER TO admin;
--
-- Name: issuelinebalancetoshipping(text, integer, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issuelinebalancetoshipping(text, integer, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN issueLineBalanceToShipping($1, $2, $3, 0, NULL);
END;
$_$;
ALTER FUNCTION public.issuelinebalancetoshipping(text, integer, timestamp with time zone) OWNER TO admin;
--
-- Name: issuelinebalancetoshipping(text, integer, timestamp with time zone, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issuelinebalancetoshipping(text, integer, timestamp with time zone, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pordertype ALIAS FOR $1;
pitemid ALIAS FOR $2;
ptimestamp ALIAS FOR $3;
pitemlocseries ALIAS FOR $4;
pinvhistid ALIAS FOR $5;
_itemlocSeries INTEGER := 0;
_qty NUMERIC;
BEGIN
_itemlocSeries := COALESCE(pitemlocseries,0);
IF (pordertype = 'SO') THEN
SELECT noNeg( coitem_qtyord - coitem_qtyshipped + coitem_qtyreturned -
( SELECT COALESCE(SUM(shipitem_qty), 0)
FROM shipitem, shiphead
WHERE ((shipitem_orderitem_id=coitem_id)
AND (shipitem_shiphead_id=shiphead_id)
AND (NOT shiphead_shipped) ) ) ) INTO _qty
FROM coitem
WHERE (coitem_id=pitemid);
ELSEIF (pordertype = 'TO') THEN
SELECT noNeg( toitem_qty_ordered - toitem_qty_shipped -
( SELECT COALESCE(SUM(shipitem_qty), 0)
FROM shipitem, shiphead
WHERE ( (shipitem_orderitem_id=toitem_id)
AND (shipitem_shiphead_id=shiphead_id)
AND (NOT shiphead_shipped) ) ) ) INTO _qty
FROM toitem
WHERE (toitem_id=pitemid);
ELSE
RETURN -1;
END IF;
IF (_qty > 0) THEN
_itemlocSeries := issueToShipping(pordertype, pitemid, _qty, _itemlocSeries, ptimestamp, pinvhistid);
END IF;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.issuelinebalancetoshipping(text, integer, timestamp with time zone, integer, integer) OWNER TO admin;
--
-- Name: issues(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issues(text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTransType ALIAS FOR $1;
BEGIN
IF (pTransType IN ('IM', 'IB', 'IT')) THEN
RETURN TRUE;
ELSE
RETURN FALSE;
END IF;
END;
$_$;
ALTER FUNCTION public.issues(text) OWNER TO admin;
--
-- Name: issuetoshipping(integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issuetoshipping(integer, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN issueToShipping('SO', $1, $2, 0, CURRENT_TIMESTAMP);
END;
$_$;
ALTER FUNCTION public.issuetoshipping(integer, numeric) OWNER TO admin;
--
-- Name: issuetoshipping(integer, numeric, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issuetoshipping(integer, numeric, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN issueToShipping('SO', $1, $2, $3, CURRENT_TIMESTAMP);
END;
$_$;
ALTER FUNCTION public.issuetoshipping(integer, numeric, integer) OWNER TO admin;
--
-- Name: issuetoshipping(text, integer, numeric, integer, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issuetoshipping(text, integer, numeric, integer, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN issueToShipping($1, $2, $3, $4, $5, NULL);
END;
$_$;
ALTER FUNCTION public.issuetoshipping(text, integer, numeric, integer, timestamp with time zone) OWNER TO admin;
--
-- Name: issuetoshipping(text, integer, numeric, integer, timestamp with time zone, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issuetoshipping(text, integer, numeric, integer, timestamp with time zone, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pordertype ALIAS FOR $1;
pitemid ALIAS FOR $2;
pQty ALIAS FOR $3;
_itemlocSeries INTEGER := $4;
_timestamp TIMESTAMP WITH TIME ZONE := $5;
pinvhistid ALIAS FOR $6;
_coholdtype TEXT;
_invhistid INTEGER;
_shipheadid INTEGER;
_shipnumber INTEGER;
_cntctid INTEGER;
_p RECORD;
_m RECORD;
_value NUMERIC;
_warehouseid INTEGER;
_shipitemid INTEGER;
_freight NUMERIC;
BEGIN
IF (_timestamp IS NULL) THEN
_timestamp := CURRENT_TIMESTAMP;
END IF;
IF (_itemlocSeries = 0) THEN
_itemlocSeries := NEXTVAL('itemloc_series_seq');
END IF;
IF (pordertype = 'SO') THEN
-- Check site security
SELECT warehous_id INTO _warehouseid
FROM coitem,itemsite,site()
WHERE ((coitem_id=pitemid)
AND (itemsite_id=coitem_itemsite_id)
AND (warehous_id=itemsite_warehous_id));
IF (NOT FOUND) THEN
RETURN 0;
END IF;
-- Check for average cost items going negative
IF ( SELECT ( (itemsite_costmethod='A') AND
((itemsite_qtyonhand - round(pQty * coitem_qty_invuomratio, 6)) < 0.0) )
FROM coitem JOIN itemsite ON (itemsite_id=coitem_itemsite_id)
WHERE (coitem_id=pitemid) ) THEN
RETURN -20;
END IF;
-- Check auto registration
IF ( SELECT COALESCE(itemsite_autoreg, FALSE)
FROM coitem JOIN itemsite ON (itemsite_id=coitem_itemsite_id)
WHERE (coitem_id=pitemid) ) THEN
SELECT COALESCE(crmacct_cntct_id_1, -1) INTO _cntctid
FROM coitem JOIN cohead ON (cohead_id=coitem_cohead_id)
JOIN crmacct ON (crmacct_cust_id=cohead_cust_id)
WHERE (coitem_id=pitemid);
IF (_cntctid = -1) THEN
RETURN -15;
END IF;
END IF;
SELECT shiphead_id INTO _shipheadid
FROM shiphead, coitem
WHERE ((shiphead_order_id=coitem_cohead_id)
AND (NOT shiphead_shipped)
AND (coitem_id=pitemid)
AND (shiphead_order_type=pordertype));
IF (NOT FOUND) THEN
SELECT NEXTVAL('shiphead_shiphead_id_seq') INTO _shipheadid;
_shipnumber := fetchShipmentNumber();
IF (_shipnumber < 0) THEN
RETURN -10;
END IF;
SELECT cohead_holdtype INTO _coholdtype
FROM cohead, coitem
WHERE ((cohead_id=coitem_cohead_id)
AND (coitem_id=pitemid));
IF (_coholdtype = 'C') THEN
RETURN -12;
ELSIF (_coholdtype = 'P') THEN
RETURN -13;
ELSIF (_coholdtype = 'R') THEN
RETURN -14;
END IF;
INSERT INTO shiphead
( shiphead_id, shiphead_number, shiphead_order_id, shiphead_order_type,
shiphead_shipped,
shiphead_sfstatus, shiphead_shipvia, shiphead_shipchrg_id,
shiphead_freight, shiphead_freight_curr_id,
shiphead_shipdate, shiphead_notes, shiphead_shipform_id )
SELECT _shipheadid, _shipnumber, coitem_cohead_id, pordertype,
FALSE,
'N', cohead_shipvia,
CASE WHEN (cohead_shipchrg_id <= 0) THEN NULL
ELSE cohead_shipchrg_id
END,
cohead_freight, cohead_curr_id,
_timestamp::DATE, cohead_shipcomments,
CASE WHEN cohead_shipform_id = -1 THEN NULL
ELSE cohead_shipform_id
END
FROM cohead, coitem
WHERE ((coitem_cohead_id=cohead_id)
AND (coitem_id=pitemid) );
UPDATE pack
SET pack_shiphead_id = _shipheadid,
pack_printed = FALSE
FROM coitem
WHERE ((pack_head_id=coitem_cohead_id)
AND (pack_shiphead_id IS NULL)
AND (pack_head_type='SO')
AND (coitem_id=pitemid));
ELSE
UPDATE pack
SET pack_printed = FALSE
FROM coitem
WHERE ((pack_head_id=coitem_cohead_id)
AND (pack_shiphead_id=_shipheadid)
AND (pack_head_type='SO')
AND (coitem_id=pitemid));
END IF;
-- Handle g/l transaction
SELECT postInvTrans( itemsite_id, 'SH', (pQty * coitem_qty_invuomratio),
'S/R', porderType,
formatSoNumber(coitem_id), shiphead_number,
('Issue ' || item_number || ' to Shipping for customer ' || cohead_billtoname),
getPrjAccntId(cohead_prj_id, costcat_shipasset_accnt_id), costcat_asset_accnt_id,
_itemlocSeries, _timestamp, NULL, pinvhistid ) INTO _invhistid
FROM coitem, cohead, itemsite, item, costcat, shiphead
WHERE ( (coitem_cohead_id=cohead_id)
AND (coitem_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (itemsite_costcat_id=costcat_id)
AND (coitem_id=pitemid)
AND (shiphead_id=_shipheadid) );
SELECT (invhist_unitcost * invhist_invqty) INTO _value
FROM invhist
WHERE (invhist_id=_invhistid);
_shipitemid := nextval('shipitem_shipitem_id_seq');
INSERT INTO shipitem
( shipitem_id, shipitem_shiphead_id, shipitem_orderitem_id, shipitem_qty,
shipitem_transdate, shipitem_trans_username, shipitem_invoiced,
shipitem_value, shipitem_invhist_id )
VALUES
( _shipitemid, _shipheadid, pitemid, pQty,
_timestamp, getEffectiveXtUser(), FALSE,
_value,
CASE WHEN _invhistid = -1 THEN
NULL
ELSE
_invhistid
END );
-- Handle reservation
IF (fetchmetricbool('EnableSOReservations')) THEN
-- Remember what was reserved so we can re-reserve if this issue is returned
INSERT INTO shipitemrsrv
(shipitemrsrv_shipitem_id, shipitemrsrv_qty)
SELECT _shipitemid, least(pQty,coitem_qtyreserved)
FROM coitem
WHERE ((coitem_id=pitemid)
AND (coitem_qtyreserved > 0));
-- Update sales order
UPDATE coitem
SET coitem_qtyreserved = noNeg(coitem_qtyreserved - pQty)
WHERE(coitem_id=pitemid);
END IF;
-- Calculate shipment freight
SELECT calcShipFreight(_shipheadid) INTO _freight;
UPDATE shiphead SET shiphead_freight=_freight
WHERE (shiphead_id=_shipheadid);
ELSEIF (pordertype = 'TO') THEN
-- Check site security
IF (fetchMetricBool('MultiWhs')) THEN
SELECT warehous_id INTO _warehouseid
FROM toitem, tohead, site()
WHERE ( (toitem_id=pitemid)
AND (tohead_id=toitem_tohead_id)
AND (warehous_id=tohead_src_warehous_id) );
IF (NOT FOUND) THEN
RETURN 0;
END IF;
END IF;
SELECT postInvTrans( itemsite_id, 'SH', pQty, 'S/R',
pordertype, formatToNumber(toitem_id), '', 'Issue to Shipping',
costcat_shipasset_accnt_id, costcat_asset_accnt_id,
_itemlocSeries, _timestamp) INTO _invhistid
FROM tohead, toitem, itemsite, costcat
WHERE ((tohead_id=toitem_tohead_id)
AND (itemsite_item_id=toitem_item_id)
AND (itemsite_warehous_id=tohead_src_warehous_id)
AND (itemsite_costcat_id=costcat_id)
AND (toitem_id=pitemid) );
SELECT shiphead_id INTO _shipheadid
FROM shiphead, toitem
WHERE ((shiphead_order_id=toitem_tohead_id)
AND (NOT shiphead_shipped)
AND (toitem_id=pitemid)
AND (shiphead_order_type=pordertype));
IF (NOT FOUND) THEN
_shipheadid := NEXTVAL('shiphead_shiphead_id_seq');
_shipnumber := fetchShipmentNumber();
IF (_shipnumber < 0) THEN
RETURN -10;
END IF;
INSERT INTO shiphead
( shiphead_id, shiphead_number, shiphead_order_id, shiphead_order_type,
shiphead_shipped,
shiphead_sfstatus, shiphead_shipvia, shiphead_shipchrg_id,
shiphead_freight, shiphead_freight_curr_id,
shiphead_shipdate, shiphead_notes, shiphead_shipform_id )
SELECT _shipheadid, _shipnumber, tohead_id, pordertype,
FALSE,
'N', tohead_shipvia, tohead_shipchrg_id,
tohead_freight + SUM(toitem_freight), tohead_freight_curr_id,
_timestamp::DATE, tohead_shipcomments, tohead_shipform_id
FROM tohead, toitem
WHERE ((toitem_tohead_id=tohead_id)
AND (tohead_id IN (SELECT toitem_tohead_id
FROM toitem
WHERE (toitem_id=pitemid))) )
GROUP BY tohead_id, tohead_shipvia, tohead_shipchrg_id, tohead_freight,
tohead_freight_curr_id, tohead_shipcomments, tohead_shipform_id;
END IF;
INSERT INTO shipitem
( shipitem_shiphead_id, shipitem_orderitem_id, shipitem_qty,
shipitem_transdate, shipitem_trans_username, shipitem_value,
shipitem_invhist_id )
SELECT
_shipheadid, pitemid, pQty,
_timestamp, getEffectiveXtUser(), invhist_invqty * invhist_unitcost,
_invhistid
FROM toitem, item, invhist
WHERE ((toitem_id=pitemid)
AND (item_id=toitem_item_id)
AND (invhist_id=_invhistid));
ELSE
RETURN -11;
END IF;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.issuetoshipping(text, integer, numeric, integer, timestamp with time zone, integer) OWNER TO admin;
--
-- Name: issuewomaterial(integer, numeric, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issuewomaterial(integer, numeric, integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWomatlid ALIAS FOR $1;
pQty ALIAS FOR $2;
pItemlocSeries ALIAS FOR $3;
pMarkPush ALIAS FOR $4;
_itemlocSeries INTEGER;
BEGIN
RETURN issueWoMaterial(pWomatlid, pQty, pItemlocSeries,now());
END;
$_$;
ALTER FUNCTION public.issuewomaterial(integer, numeric, integer, boolean) OWNER TO admin;
--
-- Name: issuewomaterial(integer, numeric, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issuewomaterial(integer, numeric, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWomatlid ALIAS FOR $1;
pQty ALIAS FOR $2;
pItemlocSeries ALIAS FOR $3;
_p RECORD;
_invhistid INTEGER;
_itemlocSeries INTEGER;
BEGIN
RETURN issueWoMaterial(pWomatlid, pQty, pItemlocSeries, now());
END;
$_$;
ALTER FUNCTION public.issuewomaterial(integer, numeric, integer) OWNER TO admin;
--
-- Name: issuewomaterial(integer, numeric, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issuewomaterial(integer, numeric, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWomatlid ALIAS FOR $1;
pQty ALIAS FOR $2;
pMarkPush ALIAS FOR $3;
_itemlocSeries INTEGER;
BEGIN
RETURN issueWoMaterial(pWomatlid, pQty, pMarkPush, now());
END;
$_$;
ALTER FUNCTION public.issuewomaterial(integer, numeric, boolean) OWNER TO admin;
--
-- Name: issuewomaterial(integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issuewomaterial(integer, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWomatlid ALIAS FOR $1;
pQty ALIAS FOR $2;
_itemlocSeries INTEGER;
BEGIN
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
RETURN issueWoMaterial(pWomatlid, pQty, _itemlocSeries);
END;
$_$;
ALTER FUNCTION public.issuewomaterial(integer, numeric) OWNER TO admin;
--
-- Name: issuewomaterial(integer, numeric, integer, boolean, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issuewomaterial(integer, numeric, integer, boolean, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWomatlid ALIAS FOR $1;
pQty ALIAS FOR $2;
pItemlocSeries ALIAS FOR $3;
pMarkPush ALIAS FOR $4;
pGlDistTS ALIAS FOR $5;
_itemlocSeries INTEGER;
BEGIN
SELECT issueWoMaterial(pWomatlid, pQty, pItemlocSeries, pGlDistTS) INTO _itemlocSeries;
IF (pMarkPush) THEN
UPDATE womatl
SET womatl_issuemethod='S'
WHERE ((womatl_issuemethod='M')
AND (womatl_id=pWomatlid));
END IF;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.issuewomaterial(integer, numeric, integer, boolean, timestamp with time zone) OWNER TO admin;
--
-- Name: issuewomaterial(integer, numeric, integer, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issuewomaterial(integer, numeric, integer, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN issueWoMaterial($1, $2, $3, $4, NULL);
END;
$_$;
ALTER FUNCTION public.issuewomaterial(integer, numeric, integer, timestamp with time zone) OWNER TO admin;
--
-- Name: issuewomaterial(integer, numeric, boolean, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issuewomaterial(integer, numeric, boolean, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWomatlid ALIAS FOR $1;
pQty ALIAS FOR $2;
pMarkPush ALIAS FOR $3;
pGlDistTS ALIAS FOR $4;
_itemlocSeries INTEGER;
BEGIN
SELECT issueWoMaterial(pWomatlid, pQty, 0, pGlDistTS) INTO _itemlocSeries;
IF (_itemlocSeries < 0) THEN
RETURN _itemlocSeries;
END IF;
IF (pMarkPush) THEN
UPDATE womatl
SET womatl_issuemethod='S'
WHERE ((womatl_issuemethod='M')
AND (womatl_id=pWomatlid));
END IF;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.issuewomaterial(integer, numeric, boolean, timestamp with time zone) OWNER TO admin;
--
-- Name: issuewomaterial(integer, numeric, integer, timestamp with time zone, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issuewomaterial(integer, numeric, integer, timestamp with time zone, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWomatlid ALIAS FOR $1;
pQty ALIAS FOR $2;
pItemlocSeries ALIAS FOR $3;
pGlDistTS ALIAS FOR $4;
pInvhistid ALIAS FOR $5;
_p RECORD;
_invhistid INTEGER;
_itemlocSeries INTEGER;
BEGIN
SELECT item_id,
itemsite_id AS c_itemsite_id,
wo_itemsite_id AS p_itemsite_id,
itemsite_loccntrl, itemsite_controlmethod,
womatl_wo_id, womatl_qtyreq, itemsite_item_id, womatl_uom_id, wo_prj_id,
roundQty(item_fractional, itemuomtouom(itemsite_item_id, womatl_uom_id, NULL, pQty)) AS qty,
formatWoNumber(wo_id) AS woNumber,
CASE WHEN(itemsite_costmethod='J' AND item_type='P' AND poitem_id IS NOT NULL) THEN poitem_unitprice
WHEN(itemsite_costmethod IN ('A','J')) THEN avgcost(itemsite_id)
WHEN(itemsite_costmethod='S') THEN stdcost(itemsite_item_id)
ELSE 0.0
END AS cost,
womatl_issuemethod AS issueMethod INTO _p
FROM womatl JOIN wo ON (wo_id=womatl_wo_id)
JOIN itemsite ON (itemsite_id=womatl_itemsite_id)
JOIN item ON (item_id=itemsite_item_id)
LEFT OUTER JOIN poitem ON (poitem_order_id=womatl_id AND poitem_order_type='W')
WHERE (womatl_id=pWomatlid);
IF (pQty < 0) THEN
RETURN pItemlocSeries;
END IF;
IF (pItemlocSeries <> 0) THEN
_itemlocSeries := pItemlocSeries;
ELSE
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
END IF;
SELECT postInvTrans( ci.itemsite_id, 'IM', _p.qty,
'W/O', 'WO', _p.woNumber, '',
('Material ' || item_number || ' Issue to Work Order'),
getPrjAccntId(_p.wo_prj_id, pc.costcat_wip_accnt_id),
cc.costcat_asset_accnt_id, _itemlocSeries, pGlDistTS,
NULL, pInvhistid ) INTO _invhistid
FROM itemsite AS ci, itemsite AS pi,
costcat AS cc, costcat AS pc,
item
WHERE ( (ci.itemsite_costcat_id=cc.costcat_id)
AND (pi.itemsite_costcat_id=pc.costcat_id)
AND (ci.itemsite_id=_p.c_itemsite_id)
AND (pi.itemsite_id=_p.p_itemsite_id)
AND (ci.itemsite_item_id=item_id) );
-- Create linkage to the transaction created
IF (_invhistid != -1) THEN
INSERT INTO womatlpost (womatlpost_womatl_id,womatlpost_invhist_id)
VALUES (pWomatlid,_invhistid);
END IF;
-- Increase the parent W/O's WIP value by the value of the issued components
UPDATE wo
SET wo_wipvalue = (wo_wipvalue + (_p.cost * _p.qty)),
wo_postedvalue = (wo_postedvalue + (_p.cost * _p.qty))
WHERE (wo_id=_p.womatl_wo_id);
UPDATE womatl
SET womatl_qtyiss = (womatl_qtyiss + itemuomtouom(_p.itemsite_item_id, NULL, _p.womatl_uom_id, _p.qty)),
womatl_lastissue = pGlDistTS::DATE
WHERE (womatl_id=pWomatlid);
UPDATE wo
SET wo_status='I'
WHERE ( (wo_status <> 'I')
AND (wo_id=_p.womatl_wo_id) );
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.issuewomaterial(integer, numeric, integer, timestamp with time zone, integer) OWNER TO admin;
--
-- Name: issuewomaterialbatch(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION issuewomaterialbatch(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
_itemlocSeries INTEGER;
_r RECORD;
_woNumber TEXT;
BEGIN
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
FOR _r IN SELECT womatl_id,
CASE WHEN (womatl_qtyreq >= 0) THEN
roundQty(itemuomfractionalbyuom(item_id, womatl_uom_id), noNeg(womatl_qtyreq - womatl_qtyiss))
ELSE
roundQty(itemuomfractionalbyuom(item_id, womatl_uom_id), noNeg(womatl_qtyiss * -1))
END AS qty
FROM womatl, itemsite, item
WHERE ( (womatl_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (womatl_issuemethod IN ('S', 'M'))
AND (womatl_wo_id=pWoid) ) LOOP
IF (_r.qty > 0) THEN
SELECT issueWoMaterial(_r.womatl_id, _r.qty, _itemlocSeries, TRUE) INTO _itemlocSeries;
END IF;
END LOOP;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.issuewomaterialbatch(integer) OWNER TO admin;
--
-- Name: itemaltcapinvrat(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemaltcapinvrat(integer) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
BEGIN
RETURN itemUOMRatioByType(pItemid, 'AltCapacity');
END;
$_$;
ALTER FUNCTION public.itemaltcapinvrat(integer) OWNER TO admin;
--
-- Name: itemaltcapuom(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemaltcapuom(integer) RETURNS text
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
BEGIN
RETURN itemUOMByType(pItemid, 'AltCapacity');
END;
$_$;
ALTER FUNCTION public.itemaltcapuom(integer) OWNER TO admin;
--
-- Name: itemcapinvrat(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemcapinvrat(integer) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
BEGIN
RETURN itemUOMRatioByType(pItemid, 'Capacity');
END;
$_$;
ALTER FUNCTION public.itemcapinvrat(integer) OWNER TO admin;
--
-- Name: itemcapuom(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemcapuom(integer) RETURNS text
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
BEGIN
RETURN itemUOMByType(pItemid, 'Capacity');
END;
$_$;
ALTER FUNCTION public.itemcapuom(integer) OWNER TO admin;
--
-- Name: itemcharprice(integer, integer, text, integer, integer, numeric, integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemcharprice(integer, integer, text, integer, integer, numeric, integer, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pCharid ALIAS FOR $2;
pCharValue ALIAS FOR $3;
pCustid ALIAS FOR $4;
pShiptoid ALIAS FOR $5;
pQty ALIAS FOR $6;
pCurrid ALIAS FOR $7;
pEffective ALIAS FOR $8;
BEGIN
RETURN itemCharPrice(pItemid, pCharid, pCharValue, pCustid, pShiptoid, pQty, pCurrid, CURRENT_DATE, CURRENT_DATE);
END;
$_$;
ALTER FUNCTION public.itemcharprice(integer, integer, text, integer, integer, numeric, integer, date) OWNER TO admin;
--
-- Name: itemcharprice(integer, integer, text, integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemcharprice(integer, integer, text, integer, numeric) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pCharid ALIAS FOR $2;
pCharValue ALIAS FOR $3;
pCustid ALIAS FOR $4;
pQty ALIAS FOR $5;
BEGIN
RETURN itemCharPrice(pItemid, pCharid, pCharValue, pCustid, -1, pQty, baseCurrId(), CURRENT_DATE);
END;
$_$;
ALTER FUNCTION public.itemcharprice(integer, integer, text, integer, numeric) OWNER TO admin;
--
-- Name: itemcharprice(integer, integer, text, integer, integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemcharprice(integer, integer, text, integer, integer, numeric) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pCharid ALIAS FOR $2;
pCharValue ALIAS FOR $3;
pCustid ALIAS FOR $4;
pShiptoid ALIAS FOR $5;
pQty ALIAS FOR $6;
BEGIN
RETURN itemCharPrice(pItemid, pCharid, pCharValue, pCustid, pShiptoid, pQty, baseCurrId(), CURRENT_DATE);
END;
$_$;
ALTER FUNCTION public.itemcharprice(integer, integer, text, integer, integer, numeric) OWNER TO admin;
--
-- Name: itemcharprice(integer, integer, text, integer, integer, numeric, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemcharprice(integer, integer, text, integer, integer, numeric, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pCharid ALIAS FOR $2;
pCharValue ALIAS FOR $3;
pCustid ALIAS FOR $4;
pShiptoid ALIAS FOR $5;
pQty ALIAS FOR $6;
pCurrid ALIAS FOR $7;
BEGIN
RETURN itemCharPrice(pItemid, pCharid, pCharValue, pCustid, pShiptoid, pQty, pCurrid, CURRENT_DATE);
END;
$_$;
ALTER FUNCTION public.itemcharprice(integer, integer, text, integer, integer, numeric, integer) OWNER TO admin;
--
-- Name: itemcharprice(integer, integer, text, integer, integer, numeric, integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemcharprice(integer, integer, text, integer, integer, numeric, integer, date, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pCharid ALIAS FOR $2;
pCharValue ALIAS FOR $3;
pCustid ALIAS FOR $4;
pShiptoid ALIAS FOR $5;
pQty ALIAS FOR $6;
pCurrid ALIAS FOR $7;
pEffective ALIAS FOR $8;
pAsOf ALIAS FOR $9;
_price NUMERIC;
_sales NUMERIC;
_item RECORD;
_iteminvpricerat NUMERIC;
BEGIN
-- If the charass_value passed in is NULL, we can skip this function
IF (pCharValue IS NULL) THEN
RETURN 0;
END IF;
-- Return the itemCharPrice in the currency passed in as pCurrid
-- Get a value here so we do not have to call the function several times
SELECT iteminvpricerat(pItemid)
INTO _iteminvpricerat;
-- First get a sales price if any so we when we find other prices
-- we can determine if we want that price or this price.
-- Check for a Sale Price
SELECT currToCurr(ipshead_curr_id, pCurrid,
ipsprice_price - (ipsprice_price * cust_discntprcnt),
pEffective) INTO _sales
FROM (
SELECT ipsitem_ipshead_id AS ipsprice_ipshead_id,
itemuomtouom(ipsitem_item_id, ipsitem_qty_uom_id, NULL, ipsitem_qtybreak) AS ipsprice_qtybreak,
(ipsitemchar_price * itemuomtouomratio(ipsitem_item_id, NULL, ipsitem_price_uom_id)) * _iteminvpricerat AS ipsprice_price
FROM ipsiteminfo,ipsitemchar
WHERE((ipsitem_item_id=pItemid)
AND (ipsitemchar_char_id=pCharid)
AND (ipsitemchar_value=pCharValue)
AND (ipsitemchar_ipsitem_id=ipsitem_id))
) AS
ipsprice, ipshead, sale, custinfo
WHERE ( (ipsprice_ipshead_id=ipshead_id)
AND (sale_ipshead_id=ipshead_id)
AND (pAsOf BETWEEN sale_startdate AND sale_enddate)
AND (ipsprice_qtybreak <= pQty)
AND (cust_id=pCustid) )
ORDER BY ipsprice_qtybreak DESC, ipsprice_price ASC
LIMIT 1;
-- Check for a Customer Shipto Price
SELECT currToCurr(ipshead_curr_id, pCurrid, ipsprice_price, pEffective) INTO _price
FROM (
SELECT ipsitem_ipshead_id AS ipsprice_ipshead_id,
itemuomtouom(ipsitem_item_id, ipsitem_qty_uom_id, NULL, ipsitem_qtybreak) AS ipsprice_qtybreak,
(ipsitemchar_price * itemuomtouomratio(ipsitem_item_id, NULL, ipsitem_price_uom_id)) * _iteminvpricerat AS ipsprice_price
FROM ipsiteminfo,ipsitemchar
WHERE ((ipsitem_item_id=pItemid)
AND (ipsitemchar_char_id=pCharid)
AND (ipsitemchar_value=pCharValue)
AND (ipsitemchar_ipsitem_id=ipsitem_id))
) AS
ipsprice, ipshead, ipsass
WHERE ( (ipsprice_ipshead_id=ipshead_id)
AND (ipsass_ipshead_id=ipshead_id)
AND (pAsOf BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (ipsprice_qtybreak <= pQty)
AND (ipsass_shipto_id != -1)
AND (ipsass_shipto_id=pShiptoid) )
ORDER BY ipsprice_qtybreak DESC, ipsprice_price ASC
LIMIT 1;
IF (_price IS NOT NULL) THEN
IF ((_sales IS NOT NULL) AND (_sales < _price)) THEN
RETURN _sales;
END IF;
RETURN _price;
END IF;
-- Check for a Customer Shipto Pattern Price
SELECT currToCurr(ipshead_curr_id, pCurrid, ipsprice_price, pEffective) INTO _price
FROM (
SELECT ipsitem_ipshead_id AS ipsprice_ipshead_id,
itemuomtouom(ipsitem_item_id, ipsitem_qty_uom_id, NULL, ipsitem_qtybreak) AS ipsprice_qtybreak,
(ipsitemchar_price * itemuomtouomratio(ipsitem_item_id, NULL, ipsitem_price_uom_id)) * _iteminvpricerat AS ipsprice_price
FROM ipsiteminfo,ipsitemchar
WHERE ((ipsitem_item_id=pItemid)
AND (ipsitemchar_char_id=pCharid)
AND (ipsitemchar_value=pCharValue)
AND (ipsitemchar_ipsitem_id=ipsitem_id))
) AS
ipsprice, ipshead, ipsass, shiptoinfo
WHERE ( (ipsprice_ipshead_id=ipshead_id)
AND (ipsass_ipshead_id=ipshead_id)
AND (pAsOf BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (ipsprice_qtybreak <= pQty)
AND (COALESCE(length(ipsass_shipto_pattern), 0) > 0)
AND (shipto_num ~ ipsass_shipto_pattern)
AND (ipsass_cust_id=pCustid)
AND (shipto_id=pShiptoid) )
ORDER BY ipsprice_qtybreak DESC, ipsprice_price ASC
LIMIT 1;
IF (_price IS NOT NULL) THEN
IF ((_sales IS NOT NULL) AND (_sales < _price)) THEN
RETURN _sales;
END IF;
RETURN _price;
END IF;
-- Check for a Customer Price
SELECT currToCurr(ipshead_curr_id, pCurrid, ipsprice_price, pEffective) INTO _price
FROM (
SELECT ipsitem_ipshead_id AS ipsprice_ipshead_id,
itemuomtouom(ipsitem_item_id, ipsitem_qty_uom_id, NULL, ipsitem_qtybreak) AS ipsprice_qtybreak,
(ipsitemchar_price * itemuomtouomratio(ipsitem_item_id, NULL, ipsitem_price_uom_id)) * _iteminvpricerat AS ipsprice_price
FROM ipsiteminfo,ipsitemchar
WHERE ((ipsitem_item_id=pItemid)
AND (ipsitemchar_char_id=pCharid)
AND (ipsitemchar_value=pCharValue)
AND (ipsitemchar_ipsitem_id=ipsitem_id))
) AS
ipsprice, ipshead, ipsass
WHERE ( (ipsprice_ipshead_id=ipshead_id)
AND (ipsass_ipshead_id=ipshead_id)
AND (pAsOf BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (ipsprice_qtybreak <= pQty)
AND (COALESCE(length(ipsass_shipto_pattern), 0) = 0)
AND (ipsass_cust_id=pCustid) )
ORDER BY ipsprice_qtybreak DESC, ipsprice_price ASC
LIMIT 1;
IF (_price IS NOT NULL) THEN
IF ((_sales IS NOT NULL) AND (_sales < _price)) THEN
RETURN _sales;
END IF;
RETURN _price;
END IF;
-- Check for a Customer Type Price
SELECT currToCurr(ipshead_curr_id, pCurrid, ipsprice_price, pEffective) INTO _price
FROM (
SELECT ipsitem_ipshead_id AS ipsprice_ipshead_id,
itemuomtouom(ipsitem_item_id, ipsitem_qty_uom_id, NULL, ipsitem_qtybreak) AS ipsprice_qtybreak,
(ipsitemchar_price * itemuomtouomratio(ipsitem_item_id, NULL, ipsitem_price_uom_id)) * _iteminvpricerat AS ipsprice_price
FROM ipsiteminfo,ipsitemchar
WHERE((ipsitem_item_id=pItemid)
AND (ipsitemchar_char_id=pCharid)
AND (ipsitemchar_value=pCharValue)
AND (ipsitemchar_ipsitem_id=ipsitem_id))
) AS
ipsprice, ipshead, ipsass, custinfo
WHERE ( (ipsprice_ipshead_id=ipshead_id)
AND (ipsass_ipshead_id=ipshead_id)
AND (ipsass_custtype_id=cust_custtype_id)
AND (pAsOf BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (ipsprice_qtybreak <= pQty)
AND (cust_id=pCustid) )
ORDER BY ipsprice_qtybreak DESC, ipsprice_price ASC
LIMIT 1;
IF (_price IS NOT NULL) THEN
IF ((_sales IS NOT NULL) AND (_sales < _price)) THEN
RETURN _sales;
END IF;
RETURN _price;
END IF;
-- Check for a Customer Type Pattern Price
SELECT currToCurr(ipshead_curr_id, pCurrid, ipsprice_price, pEffective) INTO _price
FROM (
SELECT ipsitem_ipshead_id AS ipsprice_ipshead_id,
itemuomtouom(ipsitem_item_id, ipsitem_qty_uom_id, NULL, ipsitem_qtybreak) AS ipsprice_qtybreak,
(ipsitemchar_price * itemuomtouomratio(ipsitem_item_id, NULL, ipsitem_price_uom_id)) * _iteminvpricerat AS ipsprice_price
FROM ipsiteminfo,ipsitemchar
WHERE ((ipsitem_item_id=pItemid)
AND (ipsitemchar_char_id=pCharid)
AND (ipsitemchar_value=pCharValue)
AND (ipsitemchar_ipsitem_id=ipsitem_id))
) AS
ipsprice, ipshead, ipsass, custtype, custinfo
WHERE ( (ipsprice_ipshead_id=ipshead_id)
AND (ipsass_ipshead_id=ipshead_id)
AND (coalesce(length(ipsass_custtype_pattern), 0) > 0)
AND (custtype_code ~ ipsass_custtype_pattern)
AND (cust_custtype_id=custtype_id)
AND (pAsOf BETWEEN ipshead_effective AND (ipshead_expires - 1))
AND (ipsprice_qtybreak <= pQty)
AND (cust_id=pCustid) )
ORDER BY ipsprice_qtybreak DESC, ipsprice_price ASC
LIMIT 1;
IF (_price IS NOT NULL) THEN
IF ((_sales IS NOT NULL) AND (_sales < _price)) THEN
RETURN _sales;
END IF;
RETURN _price;
END IF;
-- If we have not found another price yet and we have a
-- sales price we will use that.
IF (_sales IS NOT NULL) THEN
RETURN _sales;
END IF;
-- Check for a list price
SELECT MIN(currToLocal(pCurrid,
charass_price - (charass_price * COALESCE(cust_discntprcnt, 0)),
pEffective)) AS price,
item_exclusive INTO _item
FROM charass,item LEFT OUTER JOIN custinfo ON (cust_id=pCustid)
WHERE ((item_id=pItemid)
AND (charass_char_id=pCharid)
AND (charass_value=pCharValue)
AND (charass_target_type='I')
AND (charass_target_id=item_id))
GROUP BY item_exclusive;
IF (FOUND) THEN
IF (NOT _item.item_exclusive) THEN
IF (_item.price < 0) THEN
RETURN 0;
ELSE
RETURN _item.price;
END IF;
ELSE
RETURN 0;
END IF;
ELSE
RETURN 0;
END IF;
END;
$_$;
ALTER FUNCTION public.itemcharprice(integer, integer, text, integer, integer, numeric, integer, date, date) OWNER TO admin;
--
-- Name: itemcharvalue(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemcharvalue(integer, text) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pCharName ALIAS FOR $2;
_value TEXT;
BEGIN
SELECT charass_value INTO _value
FROM charass, char
WHERE ( (charass_char_id=char_id)
AND (charass_target_type='I')
AND (charass_target_id=pItemid)
AND (char_name=pCharName) );
IF (NOT FOUND) THEN
_value = '';
END IF;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.itemcharvalue(integer, text) OWNER TO admin;
--
-- Name: itemcost(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemcost(integer) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
_cost NUMERIC;
BEGIN
SELECT CASE WHEN (itemsite_costmethod='A' AND itemsite_qtyonhand != 0.0) THEN (itemsite_value / itemsite_qtyonhand)
WHEN (itemsite_costmethod='A' AND itemsite_qtyonhand = 0.0) THEN 0.0
WHEN (itemsite_costmethod='N') THEN 0.0
ELSE stdCost(itemsite_item_id)
END INTO _cost
FROM itemsite
WHERE(itemsite_id=pItemsiteid);
RETURN _cost;
END;
$_$;
ALTER FUNCTION public.itemcost(integer) OWNER TO admin;
--
-- Name: iteminventoryuominuse(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION iteminventoryuominuse(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
_uomid INTEGER;
_result INTEGER;
BEGIN
SELECT item_inv_uom_id INTO _uomid
FROM item
WHERE(item_id=pItemid);
SELECT itemuomconv_id INTO _result
FROM itemuomconv
WHERE(itemuomconv_item_id=pItemid)
LIMIT 1;
IF (FOUND) THEN
RETURN TRUE;
END IF;
SELECT itemsite_id INTO _result
FROM itemsite WHERE ( (itemsite_item_id=pItemid)
AND ((itemsite_qtyonhand <> 0) OR (itemsite_nnqoh <> 0)) )
LIMIT 1;
IF (FOUND) THEN
RETURN TRUE;
END IF;
RETURN FALSE;
END;
$_$;
ALTER FUNCTION public.iteminventoryuominuse(integer) OWNER TO admin;
--
-- Name: iteminvpricerat(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION iteminvpricerat(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
_fromUomid INTEGER;
_toUomid INTEGER;
_ratio NUMERIC;
BEGIN
IF(pItemid IS NULL) THEN
RETURN 1.0;
END IF;
SELECT item_inv_uom_id, item_price_uom_id
INTO _fromUomid, _toUomid
FROM item
WHERE(item_id=pItemid);
IF(NOT FOUND) THEN
RAISE EXCEPTION 'No item record found for item_id %', pItemid;
END IF;
IF(_fromUomid = _toUomid) THEN
RETURN 1.0;
END IF;
-- Return the ration as inventory / price
SELECT CASE WHEN(itemuomconv_from_uom_id=_fromUomid) THEN itemuomconv_from_value / itemuomconv_to_value
ELSE itemuomconv_to_value / itemuomconv_from_value
END
INTO _ratio
FROM itemuomconv
WHERE((((itemuomconv_from_uom_id=_fromUomid) AND (itemuomconv_to_uom_id=_toUomid))
OR ((itemuomconv_from_uom_id=_toUomid) AND (itemuomconv_to_uom_id=_fromUomid)))
AND (itemuomconv_item_id=pItemid));
IF(NOT FOUND) THEN
RAISE EXCEPTION 'No itemuomconv record found for item_id % to item_price_uomid %', pItemid, _toUomid;
END IF;
RETURN _ratio;
END;
$_$;
ALTER FUNCTION public.iteminvpricerat(integer) OWNER TO admin;
--
-- Name: itemipsprice(integer, integer, integer, numeric, integer, integer, integer, date, date, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemipsprice(pitemid integer, pcustid integer, pshiptoid integer, pqty numeric, pqtyuom integer, ppriceuom integer, pcurrid integer, peffective date, pasof date, psiteid integer) RETURNS SETOF itemprice
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_row itemprice%ROWTYPE;
_sale RECORD;
_ips RECORD;
_item RECORD;
_cust RECORD;
_shipto RECORD;
_iteminvpricerat NUMERIC := 1.0;
_listprice NUMERIC := 0.0;
_qty NUMERIC;
_asof DATE;
_wholesalepricecosting BOOLEAN := false;
_long30markups BOOLEAN := false;
_itempricingprecedence BOOLEAN := false;
BEGIN
_wholesalepricecosting := fetchMetricBool('WholesalePriceCosting');
_long30markups := fetchMetricBool('Long30Markups');
_itempricingprecedence := fetchMetricBool('ItemPricingPrecedence');
-- Return the itemPrice in the currency passed in as pCurrid
_qty := itemuomtouom(pItemid, pQtyUOM, NULL, pQty);
-- If no as of passed, use current date
_asof := COALESCE(pAsOf, CURRENT_DATE);
-- Cache Item, Customer and Shipto
SELECT item.*, itemCost(itemsite_id) AS invcost INTO _item
FROM item LEFT OUTER JOIN itemsite ON (itemsite_item_id=item_id AND itemsite_warehous_id=pSiteid)
WHERE (item_id=pItemid);
SELECT * INTO _cust
FROM custinfo JOIN custtype ON (custtype_id=cust_custtype_id)
WHERE (cust_id=pCustid);
SELECT * INTO _shipto
FROM shiptoinfo
WHERE (shipto_id=pShiptoid);
-- Get a value here so we do not have to call the function several times
SELECT itemuomtouomratio(pItemid, pPriceUOM, _item.item_price_uom_id) AS ratio
INTO _iteminvpricerat;
-- First get a sales price if any so we when we find other prices
-- we can determine if we want that price or this price.
-- Check for a Sale Price
SELECT INTO _sale
currToCurr(ipshead_curr_id, pCurrid, ipsprice_price, pEffective) AS rightprice, ipsitem_type AS righttype
FROM (
SELECT ipsitem_ipshead_id AS ipsprice_ipshead_id, ipsitem_type,
CASE WHEN (ipsitem_type = 'N') THEN
(ipsitem_price * itemuomtouomratio(_item.item_id, pPriceUOM, ipsitem_price_uom_id))
WHEN (ipsitem_type = 'D') THEN
noNeg(_item.item_listprice - (_item.item_listprice * ipsitem_discntprcnt) - ipsitem_fixedamtdiscount) * _iteminvpricerat
WHEN ((ipsitem_type = 'M') AND (ipsitem_discntprcnt <= 0.5) AND _long30markups AND _wholesalepricecosting) THEN
(_item.item_listcost / (1.0 - ipsitem_discntprcnt) + ipsitem_fixedamtdiscount) * _iteminvpricerat
WHEN ((ipsitem_type = 'M') AND (ipsitem_discntprcnt <= 0.5) AND _long30markups) THEN
(_item.invcost / (1.0 - ipsitem_discntprcnt) + ipsitem_fixedamtdiscount) * _iteminvpricerat
WHEN (ipsitem_type = 'M' AND _wholesalepricecosting) THEN
(_item.item_listcost + (_item.item_listcost * ipsitem_discntprcnt) + ipsitem_fixedamtdiscount) * _iteminvpricerat
WHEN (ipsitem_type = 'M') THEN
(_item.invcost + (_item.invcost * ipsitem_discntprcnt) + ipsitem_fixedamtdiscount) * _iteminvpricerat
ELSE 0.00
END AS ipsprice_price,
CASE WHEN (ipsitem_item_id=_item.item_id) THEN itemuomtouom(ipsitem_item_id, ipsitem_qty_uom_id, NULL, ipsitem_qtybreak)
ELSE ipsitem_qtybreak
END AS ipsprice_qtybreak,
(COALESCE(ipsitem_price_uom_id, -1)=COALESCE(pPriceUOM,-1)) AS uommatched,
CASE WHEN (_itempricingprecedence) THEN (COALESCE(ipsitem_item_id, -1)=_item.item_id)
ELSE true END AS itemmatched
FROM ipsiteminfo
WHERE(ipsitem_item_id=_item.item_id) OR (ipsitem_prodcat_id=_item.item_prodcat_id) ) AS
ipsprice, ipshead, ipsass, sale
WHERE ( (ipsprice_ipshead_id=ipshead_id)
AND (sale_ipshead_id=ipsprice_ipshead_id)
AND (_asof BETWEEN sale_startdate AND sale_enddate)
AND (ipsprice_qtybreak <= _qty)
AND (ipsass_ipshead_id=ipshead_id)
AND ( (ipsass_shipto_id=_shipto.shipto_id)
OR ((COALESCE(LENGTH(ipsass_shipto_pattern), 0) > 0) AND (_shipto.shipto_num ~ ipsass_shipto_pattern))
OR (ipsass_cust_id=_cust.cust_id)
OR (ipsass_custtype_id=_cust.cust_custtype_id)
OR ((COALESCE(LENGTH(ipsass_custtype_pattern), 0) > 0) AND (_cust.custtype_code ~ ipsass_custtype_pattern)) )
)
ORDER BY itemmatched DESC, uommatched DESC, ipsprice_qtybreak DESC, ipsprice_price ASC
LIMIT 1;
-- Find the best Price Schedule Price
SELECT INTO _ips
currToCurr(ipshead_curr_id, pCurrid, protoprice, pEffective) AS rightprice, ipsitem_type AS righttype
FROM (
SELECT *,
CASE WHEN (COALESCE(ipsass_shipto_id, -1) > 0) THEN 1
WHEN (COALESCE(LENGTH(ipsass_shipto_pattern), 0) > 0) THEN 2
WHEN (COALESCE(ipsass_cust_id, -1) > 0) THEN 3
WHEN (COALESCE(ipsass_custtype_id, -1) > 0) THEN 4
WHEN (COALESCE(LENGTH(ipsass_custtype_pattern), 0) > 0) THEN 5
ELSE 99
END AS assignseq,
CASE WHEN (ipsitem_type = 'N') THEN
(ipsitem_price * itemuomtouomratio(_item.item_id, pPriceUOM, ipsitem_price_uom_id))
WHEN (ipsitem_type = 'D') THEN
noNeg(_item.item_listprice - (_item.item_listprice * ipsitem_discntprcnt) - ipsitem_fixedamtdiscount) * _iteminvpricerat
WHEN ((ipsitem_type = 'M') AND (ipsitem_discntprcnt <= 0.5) AND _long30markups AND _wholesalepricecosting) THEN
(_item.item_listcost / (1.0 - ipsitem_discntprcnt) + ipsitem_fixedamtdiscount) * _iteminvpricerat
WHEN ((ipsitem_type = 'M') AND (ipsitem_discntprcnt <= 0.5) AND _long30markups) THEN
(_item.invcost / (1.0 - ipsitem_discntprcnt) + ipsitem_fixedamtdiscount) * _iteminvpricerat
WHEN (ipsitem_type = 'M' AND _wholesalepricecosting) THEN
(_item.item_listcost + (_item.item_listcost * ipsitem_discntprcnt) + ipsitem_fixedamtdiscount) * _iteminvpricerat
WHEN (ipsitem_type = 'M') THEN
(_item.invcost + (_item.invcost * ipsitem_discntprcnt) + ipsitem_fixedamtdiscount) * _iteminvpricerat
ELSE 0.00
END AS protoprice,
CASE WHEN (ipsitem_item_id=_item.item_id) THEN itemuomtouom(ipsitem_item_id, ipsitem_qty_uom_id, NULL, ipsitem_qtybreak)
ELSE ipsitem_qtybreak
END AS protoqtybreak,
(COALESCE(ipsitem_price_uom_id, -1)=COALESCE(pPriceUOM,-1)) AS uommatched,
CASE WHEN (_itempricingprecedence) THEN (COALESCE(ipsitem_item_id, -1)=_item.item_id)
ELSE true END AS itemmatched
FROM ipsass JOIN ipshead ON (ipshead_id=ipsass_ipshead_id)
JOIN ipsiteminfo ON (ipsitem_ipshead_id=ipshead_id)
WHERE ((ipsitem_item_id=_item.item_id) OR (ipsitem_prodcat_id=_item.item_prodcat_id))
AND (_asof BETWEEN ipshead_effective AND ipshead_expires)
AND ((ipsitem_warehous_id=pSiteid) OR (ipsitem_warehous_id IS NULL))
AND ( (ipsass_shipto_id=_shipto.shipto_id)
OR ((COALESCE(LENGTH(ipsass_shipto_pattern), 0) > 0) AND (_shipto.shipto_num ~ ipsass_shipto_pattern))
OR (ipsass_cust_id=_cust.cust_id)
OR (ipsass_custtype_id=_cust.cust_custtype_id)
OR ((COALESCE(LENGTH(ipsass_custtype_pattern), 0) > 0) AND (_cust.custtype_code ~ ipsass_custtype_pattern))
)
) AS proto
WHERE (protoqtybreak <= pQty)
ORDER BY assignseq, itemmatched DESC, protoqtybreak DESC, rightprice
LIMIT 1;
IF (_ips.rightprice IS NOT NULL) THEN
IF ((_sale.rightprice IS NOT NULL) AND (_sale.rightprice < _ips.rightprice)) THEN
RAISE DEBUG 'itemprice, item=%, cust=%, shipto=%, sale price= %', pItemid, pCustid, pShiptoid, _sale.rightprice;
_row.itemprice_price := _sale.rightprice;
_row.itemprice_type := _sale.righttype;
RETURN NEXT _row;
END IF;
RAISE DEBUG 'itemprice, item=%, cust=%, shipto=%, schedule price= %', pItemid, pCustid, pShiptoid, _ips.rightprice;
_row.itemprice_price := _ips.rightprice;
_row.itemprice_type := _ips.righttype;
RETURN NEXT _row;
END IF;
-- If item is exclusive then list list price does not apply
IF (_item.item_exclusive) THEN
RAISE DEBUG 'itemprice, item=%, cust=%, shipto=%, item exclusive, price=-9999', pItemid, pCustid, pShiptoid;
_row.itemprice_price := -9999.0;
_row.itemprice_type := '';
RETURN NEXT _row;
END IF;
-- Check for a list price
_listprice := noNeg(currToLocal(pCurrid, _item.item_listprice - (_item.item_listprice * COALESCE(_cust.cust_discntprcnt, 0.0)), pEffective)
* itemuomtouomratio(pItemid, pPriceUOM, _item.item_price_uom_id));
RAISE DEBUG 'itemprice, item=%, cust=%, shipto=%, list price= %', pItemid, pCustid, pShiptoid, _listprice;
_row.itemprice_price := _listprice;
_row.itemprice_type := 'P';
RETURN NEXT _row;
RETURN;
END;
$$;
ALTER FUNCTION public.itemipsprice(pitemid integer, pcustid integer, pshiptoid integer, pqty numeric, pqtyuom integer, ppriceuom integer, pcurrid integer, peffective date, pasof date, psiteid integer) OWNER TO admin;
--
-- Name: itemlocdistqty(text, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemlocdistqty(text, integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTypes ALIAS FOR $1;
pLocationid ALIAS FOR $2;
pParentid ALIAS FOR $3;
_qty NUMERIC := 0;
_tempQty NUMERIC;
BEGIN
IF (strpos(pTypes, 'L') > 0) THEN
SELECT COALESCE(SUM(itemlocdist_qty), 0) INTO _tempQty
FROM itemlocdist
WHERE ( (itemlocdist_source_type='L')
AND (itemlocdist_source_id=pLocationid)
AND (itemlocdist_itemlocdist_id=pParentid) );
_qty := (_qty + _tempQty);
END IF;
IF (strpos(pTypes, 'I') > 0) THEN
SELECT COALESCE(SUM(itemlocdist_qty), 0) INTO _tempQty
FROM itemlocdist, itemloc
WHERE ( (itemlocdist_source_type='I')
AND (itemlocdist_source_id=itemloc_id)
AND (itemloc_location_id=pLocationid)
AND (itemlocdist_itemlocdist_id=pParentid) );
_qty := (_qty + _tempQty);
END IF;
RETURN _qty;
END;
$_$;
ALTER FUNCTION public.itemlocdistqty(text, integer, integer) OWNER TO admin;
--
-- Name: itemlocdistqty(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemlocdistqty(integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pLocationid ALIAS FOR $1;
pParentid ALIAS FOR $2;
_qty NUMERIC;
_tempQty NUMERIC;
BEGIN
SELECT COALESCE(SUM(itemlocdist_qty), 0) INTO _qty
FROM itemlocdist
WHERE ( (itemlocdist_source_type='L')
AND (itemlocdist_source_id=pLocationid)
AND (itemlocdist_itemlocdist_id=pParentid) );
SELECT COALESCE(SUM(itemlocdist_qty), 0) INTO _tempQty
FROM itemlocdist, itemloc
WHERE ( (itemlocdist_source_type='I')
AND (itemlocdist_source_id=itemloc_id)
AND (itemloc_location_id=pLocationid)
AND (itemlocdist_itemlocdist_id=pParentid) );
_qty := (_qty + _tempQty);
RETURN _qty;
END;
$_$;
ALTER FUNCTION public.itemlocdistqty(integer, integer) OWNER TO admin;
--
-- Name: itemprice(integer, integer, integer, numeric, integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemprice(pitemid integer, pcustid integer, pshiptoid integer, pqty numeric, pcurrid integer, peffective date) RETURNS numeric
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_item RECORD;
BEGIN
SELECT item_inv_uom_id, item_price_uom_id
INTO _item
FROM item
WHERE(item_id=pItemid);
IF (FOUND) THEN
RETURN itemPrice(pItemid, pCustid, pShiptoid, pQty, _item.item_inv_uom_id, _item.item_price_uom_id, pCurrid, pEffective);
END IF;
RETURN -9999;
END;
$$;
ALTER FUNCTION public.itemprice(pitemid integer, pcustid integer, pshiptoid integer, pqty numeric, pcurrid integer, peffective date) OWNER TO admin;
--
-- Name: itemprice(integer, integer, integer, numeric, integer, integer, integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemprice(pitemid integer, pcustid integer, pshiptoid integer, pqty numeric, pqtyuom integer, ppriceuom integer, pcurrid integer, peffective date) RETURNS numeric
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
BEGIN
RETURN itemPrice(pItemid, pCustid, pShiptoid, pQty, pQtyUOM, pPriceUOM, pCurrid, pEffective, CURRENT_DATE);
END;
$$;
ALTER FUNCTION public.itemprice(pitemid integer, pcustid integer, pshiptoid integer, pqty numeric, pqtyuom integer, ppriceuom integer, pcurrid integer, peffective date) OWNER TO admin;
--
-- Name: itemprice(integer, integer, integer, numeric, integer, integer, integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemprice(pitemid integer, pcustid integer, pshiptoid integer, pqty numeric, pqtyuom integer, ppriceuom integer, pcurrid integer, peffective date, pasof date) RETURNS numeric
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
BEGIN
RETURN itemPrice(pItemid, pCustid, pShiptoid, pQty, pQtyUOM, pPriceUOM, pCurrid, pEffective, pAsOf, NULL);
END;
$$;
ALTER FUNCTION public.itemprice(pitemid integer, pcustid integer, pshiptoid integer, pqty numeric, pqtyuom integer, ppriceuom integer, pcurrid integer, peffective date, pasof date) OWNER TO admin;
--
-- Name: itemprice(integer, integer, integer, numeric, integer, integer, integer, date, date, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemprice(pitemid integer, pcustid integer, pshiptoid integer, pqty numeric, pqtyuom integer, ppriceuom integer, pcurrid integer, peffective date, pasof date, psiteid integer) RETURNS numeric
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_r RECORD;
BEGIN
SELECT * FROM itemIpsPrice(pItemid, pCustid, pShiptoid, pQty, pQtyUOM, pPriceUOM,
pCurrid, pEffective, pAsOf, pSiteid) INTO _r;
RETURN _r.itemprice_price;
END;
$$;
ALTER FUNCTION public.itemprice(pitemid integer, pcustid integer, pshiptoid integer, pqty numeric, pqtyuom integer, ppriceuom integer, pcurrid integer, peffective date, pasof date, psiteid integer) OWNER TO admin;
--
-- Name: itemsellinguom(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemsellinguom(integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
BEGIN
RETURN itemUOMByType(pItemid, 'Selling');
END;
$_$;
ALTER FUNCTION public.itemsellinguom(integer) OWNER TO admin;
--
-- Name: itemsrcprice(integer, numeric, integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemsrcprice(pitemsrcid integer, pqty numeric, pcurrid integer, peffective date) RETURNS numeric
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_price NUMERIC := 0.0;
BEGIN
SELECT itemsrcPrice(pItemsrcid, -1, FALSE, pQty, pCurrid, pEffective) INTO _price;
RETURN _price;
END;
$$;
ALTER FUNCTION public.itemsrcprice(pitemsrcid integer, pqty numeric, pcurrid integer, peffective date) OWNER TO admin;
--
-- Name: itemsrcprice(integer, integer, boolean, numeric, integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemsrcprice(pitemsrcid integer, psiteid integer, pdropship boolean, pqty numeric, pcurrid integer, peffective date) RETURNS numeric
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_price NUMERIC := 0.0;
_r RECORD;
_effective DATE;
BEGIN
-- If no pEffective passed, use current date
_effective := COALESCE(pEffective, CURRENT_DATE);
-- Cache Itemsrc and Item
SELECT *
INTO _r
FROM itemsrc JOIN item ON (item_id=itemsrc_item_id)
WHERE (itemsrc_id=pItemsrcid);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'itemsrc % not found.', pItemsrcid;
END IF;
-- Determine price
SELECT currToCurr(itemsrcp_curr_id, pCurrid, price, _effective) INTO _price
FROM (
SELECT *,
CASE itemsrcp_type WHEN ('N') THEN itemsrcp_price
WHEN ('D') THEN (_r.item_listcost - (_r.item_listcost * itemsrcp_discntprcnt) - itemsrcp_fixedamtdiscount)
ELSE 0.0
END AS price
FROM itemsrcp
WHERE ( (itemsrcp_itemsrc_id=_r.itemsrc_id)
AND ((itemsrcp_warehous_id=pSiteid) OR (itemsrcp_warehous_id=-1))
AND ((itemsrcp_dropship=pDropship) OR (NOT itemsrcp_dropship))
AND (itemsrcp_qtybreak <= pQty) )
ORDER BY itemsrcp_qtybreak DESC
LIMIT 1
) AS data
;
RETURN _price;
END;
$$;
ALTER FUNCTION public.itemsrcprice(pitemsrcid integer, psiteid integer, pdropship boolean, pqty numeric, pcurrid integer, peffective date) OWNER TO admin;
--
-- Name: itemuombytype(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemuombytype(integer, text) RETURNS text
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pUomtype ALIAS FOR $2;
_uom TEXT;
BEGIN
SELECT uom_name INTO _uom FROM (
SELECT uom_name
FROM item
JOIN itemuomconv ON (itemuomconv_item_id=item_id)
JOIN itemuom ON (itemuom_itemuomconv_id=itemuomconv_id)
JOIN uomtype ON (itemuom_uomtype_id=uomtype_id)
JOIN uom ON (itemuomconv_to_uom_id=uom_id)
WHERE((item_id=pItemid)
AND (uomtype_name=pUomtype)
AND (item_inv_uom_id != itemuomconv_to_uom_id))
UNION
SELECT uom_name
FROM item
JOIN itemuomconv ON (itemuomconv_item_id=item_id)
JOIN itemuom ON (itemuom_itemuomconv_id=itemuomconv_id)
JOIN uomtype ON (itemuom_uomtype_id=uomtype_id)
JOIN uom ON (itemuomconv_from_uom_id=uom_id)
WHERE((item_id=pItemid)
AND (uomtype_name=pUomtype)
AND (item_inv_uom_id != itemuomconv_from_uom_id))) data
LIMIT 1;
IF (NOT FOUND) THEN
SELECT uom_name
INTO _uom
FROM item
JOIN uom ON (item_inv_uom_id=uom_id)
WHERE(item_id=pItemid);
END IF;
RETURN _uom;
END;
$_$;
ALTER FUNCTION public.itemuombytype(integer, text) OWNER TO admin;
--
-- Name: itemuomfractionalbytype(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemuomfractionalbytype(integer, text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pUomtype ALIAS FOR $2;
_frac BOOLEAN;
BEGIN
SELECT itemuomconv_fractional
INTO _frac
FROM item
JOIN itemuomconv ON (itemuomconv_item_id=item_id)
JOIN itemuom ON (itemuom_itemuomconv_id=itemuomconv_id)
JOIN uomtype ON (itemuom_uomtype_id=uomtype_id)
WHERE((item_id=pItemid)
AND (uomtype_name=pUomtype))
LIMIT 1;
IF (NOT FOUND) THEN
SELECT item_fractional
INTO _frac
FROM item
JOIN uom ON (item_inv_uom_id=uom_id)
WHERE(item_id=pItemid);
END IF;
RETURN _frac;
END;
$_$;
ALTER FUNCTION public.itemuomfractionalbytype(integer, text) OWNER TO admin;
--
-- Name: itemuomfractionalbyuom(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemuomfractionalbyuom(integer, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pUomid ALIAS FOR $2;
_frac BOOLEAN;
BEGIN
SELECT itemuomconv_fractional
INTO _frac
FROM item
JOIN itemuomconv ON (itemuomconv_item_id=item_id)
WHERE((item_id=pItemid)
AND ((itemuomconv_from_uom_id=item_inv_uom_id AND itemuomconv_to_uom_id=pUomid)
OR (itemuomconv_to_uom_id=item_inv_uom_id AND itemuomconv_from_uom_id=pUomid)))
LIMIT 1;
IF (NOT FOUND) THEN
SELECT item_fractional
INTO _frac
FROM item
JOIN uom ON (item_inv_uom_id=uom_id)
WHERE(item_id=pItemid);
END IF;
RETURN _frac;
END;
$_$;
ALTER FUNCTION public.itemuomfractionalbyuom(integer, integer) OWNER TO admin;
--
-- Name: itemuomratiobytype(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemuomratiobytype(integer, text) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pUomtype ALIAS FOR $2;
_ratio NUMERIC;
BEGIN
-- Return the ration as alternate / inventory uom
SELECT CASE WHEN(itemuomconv_from_uom_id=item_inv_uom_id) THEN itemuomconv_to_value / itemuomconv_from_value
ELSE itemuomconv_from_value / itemuomconv_to_value
END
INTO _ratio
FROM item
JOIN itemuomconv ON (itemuomconv_item_id=item_id)
JOIN itemuom ON (itemuom_itemuomconv_id=itemuomconv_id)
JOIN uomtype ON (itemuom_uomtype_id=uomtype_id)
WHERE((item_id=pItemid)
AND (uomtype_name=pUomtype))
LIMIT 1;
IF (NOT FOUND) THEN
_ratio := 1.0;
END IF;
RETURN _ratio;
END;
$_$;
ALTER FUNCTION public.itemuomratiobytype(integer, text) OWNER TO admin;
--
-- Name: itemuomtouom(integer, integer, integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemuomtouom(integer, integer, integer, numeric) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN itemuomtouom($1, $2, $3, $4, 'qty');
END;
$_$;
ALTER FUNCTION public.itemuomtouom(integer, integer, integer, numeric) OWNER TO admin;
--
-- Name: itemuomtouom(integer, integer, integer, numeric, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemuomtouom(pitemid integer, puomidfrom integer, puomidto integer, pqtyfrom numeric, plocale text) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_uomidFrom INTEGER;
_uomidTo INTEGER;
_uomidInv INTEGER;
_valueFrom NUMERIC := 0.0;
_valueTo NUMERIC := 0.0;
_value NUMERIC := 0.0;
_item RECORD;
_conv RECORD;
_frac BOOLEAN := FALSE;
BEGIN
SELECT item_inv_uom_id, item_fractional
INTO _item
FROM item
WHERE(item_id=pItemid);
IF(NOT FOUND) THEN
RAISE EXCEPTION 'No item record was found for item id %', pItemid;
END IF;
_uomidFrom := COALESCE(pUomidFrom, _item.item_inv_uom_id);
_uomidTo := COALESCE(pUomidTo, _item.item_inv_uom_id);
_uomidInv := _item.item_inv_uom_id;
-- Should we round the qty here or not?
IF(_uomidFrom = _uomidTo) THEN
-- Both from/to are the same. If it is the item inv uom
-- then use the item fractional value otherwise assume
-- it is fractional for now so the user gets the same value back.
IF(_uomidFrom = _item.item_inv_uom_id) THEN
_frac := _item.item_fractional;
ELSE
_frac := true;
END IF;
RETURN roundLocale(_frac, pQtyFrom, pLocale);
END IF;
-- Try a direct conversion
SELECT itemuomconv_from_uom_id, itemuomconv_from_value,
itemuomconv_to_uom_id, itemuomconv_to_value,
itemuomconv_fractional
INTO _conv
FROM itemuomconv
WHERE(((itemuomconv_from_uom_id=_uomidFrom AND itemuomconv_to_uom_id=_uomidTo)
OR (itemuomconv_from_uom_id=_uomidTo AND itemuomconv_to_uom_id=_uomidFrom))
AND (itemuomconv_item_id=pItemid));
IF(FOUND) THEN
IF(_conv.itemuomconv_from_uom_id=_uomidFrom) THEN
_valueFrom := _conv.itemuomconv_from_value;
_valueTo := _conv.itemuomconv_to_value;
ELSE
_valueFrom := _conv.itemuomconv_to_value;
_valueTo := _conv.itemuomconv_from_value;
END IF;
-- If we are converting to the item inv uom use the item fractional value
-- otherwise use the conversion fractional value.
if(_uomidTo = _uomidInv) THEN
_frac := _item.item_fractional;
ELSE
_frac := _conv.itemuomconv_fractional;
END IF;
_value := roundLocale(_frac, ((_valueTo/_valueFrom) * pQtyFrom), pLocale);
ELSE
-- Try to convert the from uom to the inventory uom
SELECT itemuomconv_from_uom_id, itemuomconv_from_value,
itemuomconv_to_uom_id, itemuomconv_to_value,
itemuomconv_fractional
INTO _conv
FROM itemuomconv
WHERE(((itemuomconv_from_uom_id=_uomidFrom AND itemuomconv_to_uom_id=_uomidInv)
OR (itemuomconv_from_uom_id=_uomidInv AND itemuomconv_to_uom_id=_uomidFrom))
AND (itemuomconv_item_id=pItemid));
IF(NOT FOUND) THEN
RAISE EXCEPTION 'A conversion for item_id % from uom_id % to inv_uom_id % was not found.', pItemid, _uomidFrom, _uomidInv;
END IF;
IF(_conv.itemuomconv_from_uom_id=_uomidInv) THEN
_valueFrom := _conv.itemuomconv_from_value;
_valueTo := _conv.itemuomconv_to_value;
ELSE
_valueFrom := _conv.itemuomconv_to_value;
_valueTo := _conv.itemuomconv_from_value;
END IF;
_value := (_valueTo / _valueFrom);
IF (_conv.itemuomconv_fractional OR _item.item_fractional) THEN
_frac := TRUE;
END IF;
-- Try to convert the to uom to the inventory uom
SELECT itemuomconv_from_uom_id, itemuomconv_from_value,
itemuomconv_to_uom_id, itemuomconv_to_value,
itemuomconv_fractional
INTO _conv
FROM itemuomconv
WHERE(((itemuomconv_from_uom_id=_uomidInv AND itemuomconv_to_uom_id=_uomidTo)
OR (itemuomconv_from_uom_id=_uomidTo AND itemuomconv_to_uom_id=_uomidInv))
AND (itemuomconv_item_id=pItemid));
IF(NOT FOUND) THEN
RAISE EXCEPTION 'A conversion for item_id % from uom_id % to inv_uom_id % was not found.', pItemid, _uomidTo, _uomidInv;
END IF;
IF(_conv.itemuomconv_from_uom_id=_uomidInv) THEN
_valueFrom := _conv.itemuomconv_from_value;
_valueTo := _conv.itemuomconv_to_value;
ELSE
_valueFrom := _conv.itemuomconv_to_value;
_valueTo := _conv.itemuomconv_from_value;
END IF;
_value := _value * (_valueTo / _valueFrom);
IF (_conv.itemuomconv_fractional OR _item.item_fractional) THEN
_frac := TRUE;
END IF;
_value := roundLocale(_frac, (_value * pQtyFrom), pLocale);
END IF;
RETURN _value;
END;
$$;
ALTER FUNCTION public.itemuomtouom(pitemid integer, puomidfrom integer, puomidto integer, pqtyfrom numeric, plocale text) OWNER TO admin;
--
-- Name: itemuomtouomratio(integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION itemuomtouomratio(pitemid integer, puomidfrom integer, puomidto integer) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_uomidFrom INTEGER;
_uomidTo INTEGER;
_uomidInv INTEGER;
_valueFrom NUMERIC := 0.0;
_valueTo NUMERIC := 0.0;
_value NUMERIC := 0.0;
_item RECORD;
_conv RECORD;
BEGIN
SELECT item_inv_uom_id
INTO _item
FROM item
WHERE(item_id=pItemid);
IF(NOT FOUND) THEN
RAISE EXCEPTION 'No item record was found for item id %', pItemid;
END IF;
_uomidFrom := COALESCE(pUomidFrom, _item.item_inv_uom_id);
_uomidTo := COALESCE(pUomidTo, _item.item_inv_uom_id);
_uomidInv := _item.item_inv_uom_id;
IF(_uomidFrom = _uomidTo) THEN
RETURN 1.0;
END IF;
-- Try a direct conversion
SELECT itemuomconv_from_uom_id, itemuomconv_from_value,
itemuomconv_to_uom_id, itemuomconv_to_value
INTO _conv
FROM itemuomconv
WHERE(((itemuomconv_from_uom_id=_uomidFrom AND itemuomconv_to_uom_id=_uomidTo)
OR (itemuomconv_from_uom_id=_uomidTo AND itemuomconv_to_uom_id=_uomidFrom))
AND (itemuomconv_item_id=pItemid));
IF(FOUND) THEN
IF(_conv.itemuomconv_from_uom_id=_uomidFrom) THEN
_valueFrom := _conv.itemuomconv_from_value;
_valueTo := _conv.itemuomconv_to_value;
ELSE
_valueFrom := _conv.itemuomconv_to_value;
_valueTo := _conv.itemuomconv_from_value;
END IF;
_value := (_valueTo / _valueFrom);
ELSE
-- Try to convert the from uom to the inventory uom
SELECT itemuomconv_from_uom_id, itemuomconv_from_value,
itemuomconv_to_uom_id, itemuomconv_to_value
INTO _conv
FROM itemuomconv
WHERE(((itemuomconv_from_uom_id=_uomidFrom AND itemuomconv_to_uom_id=_uomidInv)
OR (itemuomconv_from_uom_id=_uomidInv AND itemuomconv_to_uom_id=_uomidFrom))
AND (itemuomconv_item_id=pItemid));
IF(NOT FOUND) THEN
RAISE EXCEPTION 'A conversion for item_id % from uom_id % to inv_uom_id % was not found.', pItemid, _uomidFrom, _uomidInv;
END IF;
IF(_conv.itemuomconv_from_uom_id=_uomidInv) THEN
_valueFrom := _conv.itemuomconv_from_value;
_valueTo := _conv.itemuomconv_to_value;
ELSE
_valueFrom := _conv.itemuomconv_to_value;
_valueTo := _conv.itemuomconv_from_value;
END IF;
_value := (_valueTo / _valueFrom);
-- Try to convert the to uom to the inventory uom
SELECT itemuomconv_from_uom_id, itemuomconv_from_value,
itemuomconv_to_uom_id, itemuomconv_to_value
INTO _conv
FROM itemuomconv
WHERE(((itemuomconv_from_uom_id=_uomidInv AND itemuomconv_to_uom_id=_uomidTo)
OR (itemuomconv_from_uom_id=_uomidTo AND itemuomconv_to_uom_id=_uomidInv))
AND (itemuomconv_item_id=pItemid));
IF(NOT FOUND) THEN
RAISE EXCEPTION 'A conversion for item_id % from uom_id % to inv_uom_id % was not found.', pItemid, _uomidTo, _uomidInv;
END IF;
IF(_conv.itemuomconv_from_uom_id=_uomidInv) THEN
_valueFrom := _conv.itemuomconv_from_value;
_valueTo := _conv.itemuomconv_to_value;
ELSE
_valueFrom := _conv.itemuomconv_to_value;
_valueTo := _conv.itemuomconv_from_value;
END IF;
_value := _value * (_valueTo / _valueFrom);
END IF;
RETURN _value;
END;
$$;
ALTER FUNCTION public.itemuomtouomratio(pitemid integer, puomidfrom integer, puomidto integer) OWNER TO admin;
--
-- Name: last_agg(anyelement, anyelement); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION last_agg(anyelement, anyelement) RETURNS anyelement
LANGUAGE sql STABLE
AS $_$
SELECT $2;
$_$;
ALTER FUNCTION public.last_agg(anyelement, anyelement) OWNER TO admin;
--
-- Name: login(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION login() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_p RECORD;
BEGIN
RETURN login(false);
END;
$$;
ALTER FUNCTION public.login() OWNER TO admin;
--
-- Name: login(boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION login(boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_setSearchPath ALIAS FOR $1;
_p RECORD;
BEGIN
PERFORM pg_try_advisory_lock(datid::integer, procpid)
FROM pg_stat_activity
WHERE(procpid = pg_backend_pid());
-- This is new to version 9.0 and higher and will error on older versions
IF (select CAST(split_part(split_part(version(), ' ', 2),'.',1) AS integer) >= 9) THEN
SET bytea_output TO escape;
END IF;
-- this is temporary until either qt fixes the postgres driver or we find &
-- fix all of the places in our app that can write strings with backslashes
SET standard_conforming_strings TO false;
SELECT usr_id, userCanLogin(usr_username) AS usr_active INTO _p
FROM usr
WHERE (usr_username=getEffectiveXtUser());
IF (NOT FOUND) THEN
RETURN -1;
ELSIF (NOT _p.usr_active) THEN
IF(SELECT metric_value='AdminOnly'
FROM metric
WHERE metric_name='AllowedUserLogins') THEN
RETURN -3;
END IF;
RETURN -2;
END IF;
IF (_setSearchPath) THEN
IF EXISTS(SELECT 1
FROM pg_proc
JOIN pg_namespace ON (pronamespace=pg_namespace.oid)
WHERE nspname='public'
AND proname='buildsearchpath') THEN
EXECUTE 'SET SEARCH_PATH TO ' || public.buildSearchPath();
END IF;
END IF;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.login(boolean) OWNER TO admin;
--
-- Name: logout(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION logout() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
PERFORM pg_advisory_unlock(datid::integer, procpid)
FROM pg_stat_activity
WHERE(procpid = pg_backend_pid());
RETURN 0;
END;
$$;
ALTER FUNCTION public.logout() OWNER TO admin;
--
-- Name: lowercost(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION lowercost(integer, text) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pCosttype ALIAS FOR $2;
BEGIN
RETURN lowerCost(pItemid, pCosttype, TRUE);
END;
$_$;
ALTER FUNCTION public.lowercost(integer, text) OWNER TO admin;
--
-- Name: lowercost(integer, text, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION lowercost(integer, text, boolean) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pCosttype ALIAS FOR $2;
pActual ALIAS FOR $3;
_type CHAR(1);
_actCost NUMERIC;
_actCost1 NUMERIC;
_actCost2 NUMERIC;
_stdCost NUMERIC;
_stdCost1 NUMERIC;
_stdCost2 NUMERIC;
_cost NUMERIC;
_cost1 NUMERIC;
_cost2 NUMERIC;
_batchsize NUMERIC;
BEGIN
SELECT item_type INTO _type
FROM item
WHERE (item_id=pItemid);
_batchsize := COALESCE( (
SELECT bomhead_batchsize
FROM bomhead
WHERE ((bomhead_item_id=pItemId)
AND (bomhead_rev_id=getActiveRevId('BOM',pItemId))) LIMIT 1), 1);
-- find the lowercost in the base currency at the current conversion rate
IF (_type IN ('M', 'F', 'B', 'T')) THEN
IF (pActual) THEN
SELECT SUM( CASE WHEN (bomitemcost_id IS NOT NULL AND bc.costelem_id IS NOT NULL) THEN
round(currToBase(bomitemcost_curr_id, bomitemcost_actcost, CURRENT_DATE),6) *
itemuomtouom(bomitem_item_id, bomitem_uom_id, NULL, (bomitem_qtyfxd/_batchsize + bomitem_qtyper) * (1 + bomitem_scrap), 'qtyper')
ELSE
round(currToBase(itemcost_curr_id, itemcost_actcost, CURRENT_DATE),6) *
itemuomtouom(bomitem_item_id, bomitem_uom_id, NULL, (bomitem_qtyfxd/_batchsize + bomitem_qtyper) * (1 + bomitem_scrap), 'qtyper')
END )
INTO _cost
FROM bomitem(pItemid)
JOIN item ON (item_id=bomitem_item_id AND item_type <> 'T')
JOIN itemcost ON (itemcost_item_id=bomitem_item_id)
JOIN costelem ic ON (ic.costelem_id=itemcost_costelem_id AND ic.costelem_type=pCosttype)
LEFT OUTER JOIN bomitemcost ON (bomitemcost_bomitem_id=bomitem_id)
LEFT OUTER JOIN costelem bc ON (bc.costelem_id=bomitemcost_costelem_id AND bc.costelem_type=pCosttype)
WHERE ( CURRENT_DATE BETWEEN bomitem_effective AND (bomitem_expires - 1) );
ELSE
SELECT SUM( CASE WHEN (bomitemcost_id IS NOT NULL AND bc.costelem_id IS NOT NULL) THEN
bomitemcost_stdcost *
itemuomtouom(bomitem_item_id, bomitem_uom_id, NULL, (bomitem_qtyfxd/_batchsize + bomitem_qtyper) * (1 + bomitem_scrap), 'qtyper')
ELSE
itemcost_stdcost *
itemuomtouom(bomitem_item_id, bomitem_uom_id, NULL, (bomitem_qtyfxd/_batchsize + bomitem_qtyper) * (1 + bomitem_scrap), 'qtyper')
END )
INTO _cost
FROM bomitem(pItemid)
JOIN item ON (item_id=bomitem_item_id AND item_type <> 'T')
JOIN itemcost ON (itemcost_item_id=bomitem_item_id)
JOIN costelem ON (costelem_id=itemcost_costelem_id AND costelem_type=pCosttype)
LEFT OUTER JOIN bomitemcost ON (bomitemcost_bomitem_id=bomitem_id)
LEFT OUTER JOIN costelem bc ON (bc.costelem_id=bomitemcost_costelem_id AND bc.costelem_type=pCosttype)
WHERE ( CURRENT_DATE BETWEEN bomitem_effective AND (bomitem_expires - 1) );
END IF;
IF (NOT FOUND) THEN
_cost := NULL;
END IF;
ELSIF (_type IN ('C')) THEN
SELECT SUM(CASE WHEN (bbomitem_qtyper = 0) THEN 0
ELSE currToBase(itemcost_curr_id, itemcost_actcost, CURRENT_DATE) / bbomitem_qtyper * bbomitem_costabsorb
END),
SUM(CASE WHEN (bbomitem_qtyper = 0) THEN 0
ELSE itemcost_stdcost / bbomitem_qtyper * bbomitem_costabsorb
END)
INTO _actCost1, _stdCost1
FROM itemcost
JOIN costelem ON (itemcost_costelem_id=costelem_id)
JOIN xtmfg.bbomitem ON (bbomitem_parent_item_id=itemcost_item_id)
WHERE ( (bbomitem_item_id=pItemid)
AND (CURRENT_DATE BETWEEN bbomitem_effective AND (bbomitem_expires - 1))
AND (costelem_type=pCosttype) );
SELECT SUM(CASE WHEN (t.bbomitem_qtyper = 0) THEN 0
ELSE currToBase(itemcost_curr_id, itemcost_actcost, CURRENT_DATE) * s.bbomitem_qtyper / t.bbomitem_qtyper * t.bbomitem_costabsorb
END),
SUM(CASE WHEN (t.bbomitem_qtyper = 0) THEN 0
ELSE itemcost_stdcost * s.bbomitem_qtyper / t.bbomitem_qtyper * t.bbomitem_costabsorb
END)
INTO _actCost2, _stdCost2
FROM costelem
JOIN itemcost ON (costelem_id=itemcost_costelem_id)
JOIN xtmfg.bbomitem AS s ON (itemcost_item_id=s.bbomitem_item_id)
JOIN xtmfg.bbomitem AS t ON (s.bbomitem_parent_item_id=t.bbomitem_parent_item_id)
JOIN item ON (s.bbomitem_item_id=item_id)
WHERE ( (t.bbomitem_item_id=pItemid)
AND ( CURRENT_DATE BETWEEN s.bbomitem_effective
AND (s.bbomitem_expires - 1) )
AND ( CURRENT_DATE BETWEEN t.bbomitem_effective
AND (t.bbomitem_expires - 1) )
AND (item_type='Y')
AND (costelem_type=pCosttype) );
IF (pActual) THEN
_cost = _actCost;
_cost1 = _actCost1;
_cost2 = _actCost2;
ELSE
_cost = _stdCost;
_cost1 = _stdCost1;
_cost2 = _stdCost2; -- should this be std or act?
END IF;
IF (_cost1 IS NULL AND _cost2 IS NULL) THEN
_cost = NULL;
ELSE
_cost = COALESCE(_cost1, 0) + COALESCE(_cost2, 0);
END IF;
ELSE
RETURN NULL;
END IF;
RETURN round(_cost,6);
END;
$_$;
ALTER FUNCTION public.lowercost(integer, text, boolean) OWNER TO admin;
--
-- Name: maintainbomworkspace(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION maintainbomworkspace() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_test TEXT;
BEGIN
SELECT tablename INTO _test
FROM pg_tables
WHERE (tablename='bomwork');
IF (NOT FOUND) THEN
CREATE TEMPORARY TABLE bomwork
( bomwork_id INTEGER, bomwork_set_id INTEGER, bomwork_parent_id INTEGER,
bomwork_seqnumber INTEGER, bomwork_parent_seqnumber INTEGER,
bomwork_item_id INTEGER, bomwork_item_type CHARACTER(1), bomwork_status CHARACTER(1),
bomwork_qtyper NUMERIC(20, 8), bomwork_scrap NUMERIC(20, 10),
bomwork_level INTEGER, bomwork_effective DATE, bomwork_expires DATE,
bomwork_stdunitcost NUMERIC(16, 4), bomwork_actunitcost NUMERIC(16, 4),
bomwork_createwo BOOLEAN, bomwork_issuemethod CHARACTER(1) );
CREATE INDEX bomwork_set_id_idx ON bomwork(bomwork_set_id);
END IF;
RETURN 1;
END;
$$;
ALTER FUNCTION public.maintainbomworkspace() OWNER TO admin;
--
-- Name: markapcheckasposted(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION markapcheckasposted(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'markAPCheckAsPosted() is deprecated - use markCheckAsPosted() instead';
RETURN markCheckAsPosted($1);
END;
$_$;
ALTER FUNCTION public.markapcheckasposted(integer) OWNER TO admin;
--
-- Name: markapcheckasprinted(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION markapcheckasprinted(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'markAPCheckAsPrinted() is deprecated - use markCheckAsPrinted()';
RETURN markCheckAsPrinted($1);
END;
$_$;
ALTER FUNCTION public.markapcheckasprinted(integer) OWNER TO admin;
--
-- Name: markcheckasposted(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION markcheckasposted(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCheckid ALIAS FOR $1;
BEGIN
UPDATE checkhead
SET checkhead_posted=TRUE
WHERE (checkhead_id=pCheckid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.markcheckasposted(integer) OWNER TO admin;
--
-- Name: markcheckasprinted(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION markcheckasprinted(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCheckid ALIAS FOR $1;
BEGIN
UPDATE checkhead
SET checkhead_printed=TRUE
WHERE (checkhead_id=pCheckid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.markcheckasprinted(integer) OWNER TO admin;
--
-- Name: massexpirebomitem(integer, date, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION massexpirebomitem(integer, date, text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pExpireDate ALIAS FOR $2;
pECN ALIAS FOR $3;
BEGIN
UPDATE bomitem
SET bomitem_expires=pExpireDate
WHERE ( (bomitem_expires >= CURRENT_DATE)
AND (bomitem_item_id=pItemid)
AND (bomitem_rev_id=getActiveRevId('BOM',bomitem_parent_item_id)) );
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.massexpirebomitem(integer, date, text) OWNER TO admin;
--
-- Name: massreplacebomitem(integer, integer, date, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION massreplacebomitem(integer, integer, date, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNewItemid ALIAS FOR $1;
pOriginalItemid ALIAS FOR $2;
pEffectiveDate ALIAS FOR $3;
pECN ALIAS FOR $4;
_effectiveDate DATE;
_result INTEGER;
BEGIN
_effectiveDate := COALESCE(pEffectiveDate, CURRENT_DATE);
IF (BOMContains(pOriginalItemid, pNewItemid) OR
BOMContains(pNewItemid, pOriginalItemid)) THEN
RETURN -1;
END IF;
INSERT INTO bomitem
( bomitem_parent_item_id, bomitem_seqnumber,
bomitem_item_id, bomitem_qtyfxd, bomitem_qtyper, bomitem_uom_id,
bomitem_scrap, bomitem_effective, bomitem_expires, bomitem_ecn,
bomitem_createwo, bomitem_issuemethod, bomitem_subtype,
bomitem_booitem_seq_id, bomitem_schedatwooper, bomitem_moddate, bomitem_rev_id,
bomitem_char_id, bomitem_value )
SELECT bomitem_parent_item_id, bomitem_seqnumber,
pNewItemid, bomitem_qtyfxd, bomitem_qtyper, bomitem_uom_id,
bomitem_scrap, _effectiveDate, endOfTime(), pECN,
bomitem_createwo, bomitem_issuemethod, 'I',
bomitem_booitem_seq_id, bomitem_schedatwooper, CURRENT_DATE, getActiveRevId('BOM',bomitem_parent_item_id),
bomitem_char_id, bomitem_value
FROM bomitem
WHERE ( (_effectiveDate < bomitem_expires)
AND (bomitem_item_id=pOriginalItemid)
AND (bomitem_rev_id=getActiveRevId('BOM',bomitem_parent_item_id)) );
UPDATE bomitem
SET bomitem_expires=_effectiveDate
WHERE ( (_effectiveDate < bomitem_expires)
AND (bomitem_item_id=pOriginalItemid)
AND (bomitem_rev_id=getActiveRevid('BOM',bomitem_parent_item_id)) );
RETURN 1;
END;
$_$;
ALTER FUNCTION public.massreplacebomitem(integer, integer, date, text) OWNER TO admin;
--
-- Name: merge2crmaccts(integer, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION merge2crmaccts(integer, integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSourceId ALIAS FOR $1;
pTargetId ALIAS FOR $2;
_purge BOOLEAN := COALESCE($3, FALSE);
_coldesc RECORD;
_count INTEGER := 0;
_hassubtype BOOLEAN;
_mrgcol BOOLEAN;
_result INTEGER := 0;
_sel RECORD;
_colname TEXT;
_tmpid INTEGER;
BEGIN
-- Validate
IF (pSourceId = pTargetId) THEN
RAISE NOTICE 'Tried to merge a CRM Account with itself: %.', pSourceId;
RETURN 0;
ELSIF (pSourceId IS NULL) THEN
RAISE EXCEPTION 'Merge source id cannot be null [xtuple: merge, -1]';
ELSIF NOT(EXISTS(SELECT 1 FROM crmacct WHERE crmacct_id=pSourceId)) THEN
RAISE EXCEPTION 'Merge source % not found [xtuple: merge, -2, %]',
pSourceId, pSourceId;
ELSIF (pTargetId IS NULL) THEN
RAISE EXCEPTION 'Merge target id cannot be null [xtuple: merge, -3]';
ELSIF NOT(EXISTS(SELECT 1 FROM crmacct WHERE crmacct_id=pTargetId)) THEN
RAISE EXCEPTION 'Merge target % not found [xtuple: merge, -4, %]',
pTargetId, pTargetId;
ELSIF NOT(EXISTS(SELECT 1
FROM crmacctsel
WHERE (crmacctsel_src_crmacct_id=pSourceId)
AND (crmacctsel_dest_crmacct_id=pTargetId))) THEN
RAISE EXCEPTION 'Source % and target % have not been selected for merging [xtuple: merge, -5, %, %]',
pSourceId, pTargetId, pSourceId, pTargetId;
END IF;
_result:= changeFkeyPointers('public', 'crmacct', pSourceId, pTargetId,
ARRAY[ 'crmacctsel', 'crmacctmrgd' ], _purge)
+ changePseudoFKeyPointers('public', 'alarm', 'alarm_source_id',
pSourceId, 'public', 'crmacct', pTargetId,
'alarm_source', 'CRMA', _purge)
+ changePseudoFKeyPointers('public', 'charass', 'charass_target_id',
pSourceId, 'public', 'crmacct', pTargetId,
'charass_target_type', 'CRMACCT', _purge)
+ changePseudoFKeyPointers('public', 'comment', 'comment_source_id',
pSourceId, 'public', 'crmacct', pTargetId,
'comment_source', 'CRMA', _purge)
+ changePseudoFKeyPointers('public', 'docass', 'docass_source_id',
pSourceId, 'public', 'crmacct', pTargetId,
'docass_source_type', 'CRMA', _purge)
+ changePseudoFKeyPointers('public', 'docass', 'docass_target_id',
pSourceId, 'public', 'crmacct', pTargetId,
'docass_target_type', 'CRMA', _purge)
+ changePseudoFKeyPointers('public', 'imageass', 'imageass_source_id',
pSourceId, 'public', 'crmacct', pTargetId,
'imageass_source', 'CRMA', _purge)
;
-- TODO: find a generic way to handle pseudofkeys in packages - see 9401
IF (fetchMetricBool('EnableBatchManager') AND packageIsEnabled('xtbatch')) THEN
_result:= _result
+ changePseudoFKeyPointers('xtbatch', 'emlassc', 'emlassc_assc_id',
pSourceId, 'public', 'crmacct', pTargetId,
'emlassc_type', 'CRMA', _purge);
END IF;
-- back up all of the values in the target record that are about to be changed
FOR _coldesc IN SELECT attname, typname
FROM pg_attribute
JOIN pg_type ON (atttypid=pg_type.oid)
JOIN pg_class ON (attrelid=pg_class.oid)
JOIN pg_namespace ON (relnamespace=pg_namespace.oid)
WHERE (attnum >= 0)
AND (relname='crmacct')
AND (nspname='public')
AND (attname NOT IN ('crmacct_id', 'crmacct_number'))
LOOP
-- if we're supposed to merge this column at all
EXECUTE 'SELECT ' || quote_ident('crmacctsel_mrg_' || _coldesc.attname) || '
FROM crmacctsel
WHERE ((crmacctsel_src_crmacct_id=' || pSourceId || ')
AND (crmacctsel_dest_crmacct_id=' || pTargetId || '))' INTO _mrgcol;
IF (_mrgcol) THEN
_colname := REPLACE(_coldesc.attname, 'crmacctsel_mrg_', '');
-- optionally back up the old value from the destination
-- we'll back up the old value from the source further down
IF (NOT _purge) THEN
BEGIN
EXECUTE 'INSERT INTO mrgundo (
mrgundo_schema, mrgundo_table,
mrgundo_pkey_col, mrgundo_pkey_id,
mrgundo_col, mrgundo_value, mrgundo_type,
mrgundo_base_schema, mrgundo_base_table, mrgundo_base_id
) SELECT ''public'', ''crmacct'',
''crmacct_id'', crmacct_id, ' ||
quote_literal(_colname) || ', ' ||
quote_ident(_colname) || ', ' ||
quote_literal(_coldesc.typname) || ',
''public'', ''crmacct'', crmacct_id
FROM crmacct
WHERE (crmacct_id=' || pTargetId || ');' ;
EXCEPTION WHEN unique_violation THEN
RAISE EXCEPTION 'Could not make a backup copy of % when merging % into % [xtuple: merge, -8, %, %, public, crmacct, %]',
_colname, pSourceId, pTargetId,
_colname, pSourceId, pTargetId;
END;
END IF;
-- TODO: what do we do about users?
/* update the destination crmacct in one of 3 different ways:
- crmacct_notes might be concatenated from more than one source record
- foreign keys to crm account subtype records (e.g. crmacct_cust_id)
must not leave orphaned records and must avoid uniqueness violations
- some fields can simply be updated in place
*/
IF (_colname = 'crmacct_notes') THEN
EXECUTE 'UPDATE crmacct dest
SET ' || quote_ident(_colname) ||
'=dest.' || quote_ident(_colname) ||
E' || E''\\n'' || src.' || _colname || '
FROM crmacct src
JOIN crmacctsel ON (src.crmacct_id=crmacctsel_src_crmacct_id)
WHERE ((dest.crmacct_id=crmacctsel_dest_crmacct_id)
AND (dest.crmacct_id!=crmacctsel_src_crmacct_id));';
ELSIF (_colname IN ('crmacct_cust_id', 'crmacct_prospect_id',
'crmacct_vend_id', 'crmacct_taxauth_id',
'crmacct_emp_id', 'crmacct_salesrep_id')) THEN
IF (_colname IN ('crmacct_cust_id', 'crmacct_prospect_id')) THEN
EXECUTE 'SELECT src.' || quote_ident(_colname) || ' IS NOT NULL
AND (dest.crmacct_prospect_id IS NOT NULL OR
dest.crmacct_cust_id IS NOT NULL)
FROM crmacct src
JOIN crmacctsel ON (src.crmacct_id=crmacctsel_src_crmacct_id)
JOIN crmacct dest ON (crmacctsel_dest_crmacct_id=dest.crmacct_id)
WHERE ((src.crmacct_id=' || pSourceId || ')
AND (dest.crmacct_id=' || pTargetId || '))' INTO _hassubtype;
IF (_hassubtype) THEN
RAISE EXCEPTION 'Cannot merge two CRM Accounts that both refer to Customers and/or Prospects [xtuple: merge, -6, %, %]',
pSourceId, pTargetId;
END IF;
ELSE
EXECUTE 'SELECT src.' || quote_ident(_colname) || ' IS NOT NULL
AND dest.'|| quote_ident(_colname) || ' IS NOT NULL
FROM crmacct src
JOIN crmacctsel ON (src.crmacct_id=crmacctsel_src_crmacct_id)
JOIN crmacct dest ON (crmacctsel_dest_crmacct_id=dest.crmacct_id)
WHERE ((src.crmacct_id=' || pSourceId || ')
AND (dest.crmacct_id=' || pTargetId || '))' INTO _hassubtype;
IF (_hassubtype) THEN
RAISE EXCEPTION 'Cannot merge CRM Accounts until the % child records have been merged [xtuple: merge, -7, %, %, %]',
_colname, _colname, pSourceId, pTargetId;
END IF;
END IF;
/* clearing the source separately from setting the target avoids
problems with triggers updating the wrong records */
EXECUTE 'SELECT ' || quote_ident(_colname) || ' FROM crmacct
WHERE crmacct_id=' || pSourceId
INTO _tmpid;
-- now we have the data to back up the source
IF (NOT _purge) THEN
BEGIN
EXECUTE 'INSERT INTO mrgundo (
mrgundo_schema, mrgundo_table,
mrgundo_pkey_col, mrgundo_pkey_id,
mrgundo_col, mrgundo_value, mrgundo_type,
mrgundo_base_schema, mrgundo_base_table, mrgundo_base_id
) SELECT ''public'', ''crmacct'',
''crmacct_id'', crmacct_id, ' ||
quote_literal(_colname) || ', ' ||
quote_ident(_colname) || ', ' ||
quote_literal(_coldesc.typname) || ',
''public'', ''crmacct'', ' || pTargetId || '
FROM crmacct
WHERE (crmacct_id=' || pSourceId || ');' ;
EXCEPTION WHEN unique_violation THEN
RAISE EXCEPTION 'Could not make a backup copy of % when merging % into % [xtuple: merge, -8, %, %, public, crmacct, %]',
_colname, pSourceId, pTargetId,
_colname, pSourceId, pTargetId;
END;
END IF;
EXECUTE 'UPDATE crmacct SET ' || quote_ident(_colname) || '=NULL
WHERE (crmacct_id=' || pSourceId || ');';
EXECUTE 'UPDATE crmacct
SET ' || quote_ident(_colname) || '=' || quote_literal(_tmpid) || '
WHERE (crmacct_id=' || pTargetId || ');';
ELSE
EXECUTE 'UPDATE crmacct dest
SET ' || quote_ident(_colname) || '
=src.' || quote_ident(_colname) || '
FROM crmacct src
WHERE ((dest.crmacct_id=' || pTargetId || ')
AND (src.crmacct_id=' || pSourceId || '));';
END IF;
GET DIAGNOSTICS _count = ROW_COUNT;
_result := _result + _count;
END IF;
END LOOP;
IF (_purge) THEN
DELETE FROM crmacct WHERE crmacct = pSourceId;
ELSE
INSERT INTO mrgundo (
mrgundo_schema, mrgundo_table,
mrgundo_pkey_col, mrgundo_pkey_id,
mrgundo_col, mrgundo_value, mrgundo_type,
mrgundo_base_schema, mrgundo_base_table, mrgundo_base_id
) SELECT 'public', 'crmacct',
'crmacct_id', pSourceId,
'crmacct_active', crmacct_active, 'bool',
'public', 'crmacct', pTargetId
FROM crmacct
WHERE crmacct_active AND (crmacct_id = pSourceId);
GET DIAGNOSTICS _count = ROW_COUNT;
IF (_count > 0) THEN
_result := _result + _count;
UPDATE crmacct SET crmacct_active = false WHERE (crmacct_id=pSourceId);
END IF;
-- make a special record of the source crm account so we can delete it later
INSERT INTO mrgundo (
mrgundo_schema, mrgundo_table,
mrgundo_pkey_col, mrgundo_pkey_id,
mrgundo_col, mrgundo_value, mrgundo_type,
mrgundo_base_schema, mrgundo_base_table, mrgundo_base_id
) VALUES (
'public', 'crmacct',
'crmacct_id', pSourceId,
NULL, NULL, NULL,
'public', 'crmacct', pTargetId);
END IF;
DELETE FROM crmacctsel WHERE (crmacctsel_src_crmacct_id=pSourceId);
RETURN _result;
END;
$_$;
ALTER FUNCTION public.merge2crmaccts(integer, integer, boolean) OWNER TO admin;
--
-- Name: FUNCTION merge2crmaccts(integer, integer, boolean); Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON FUNCTION merge2crmaccts(integer, integer, boolean) IS 'This function merges two crmacct records as decribed in crmacctsel records. For each field in the crmacctsel record marked TRUE, the data are copied from the crmacct record with crmacct_id=pSourceId to the record with crmacct_id=pTargetId. If the purge argument is TRUE, the source record is deleted. If it is FALSE, then mrgundo records are created so the merge can later be undone.';
--
-- Name: mergecrmaccts(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION mergecrmaccts(integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTargetId ALIAS FOR $1;
_purge BOOLEAN := COALESCE($2, FALSE);
_retval INTEGER;
BEGIN
/* if crmacctsel says the target should not keep its original
notes, clear them. notes are special because the merge allows
concatenating them from multiple sources. this needs to be
kept in sync with merge2crmaccts' similar check.
*/
IF NOT (SELECT crmacctsel_mrg_crmacct_notes
FROM crmacctsel
WHERE crmacctsel_src_crmacct_id=crmacctsel_dest_crmacct_id
AND crmacctsel_dest_crmacct_id=pTargetId) THEN
IF (NOT _purge) THEN
INSERT INTO mrgundo (
mrgundo_schema, mrgundo_table,
mrgundo_pkey_col, mrgundo_pkey_id,
mrgundo_col, mrgundo_value, mrgundo_type,
mrgundo_base_schema, mrgundo_base_table, mrgundo_base_id)
SELECT 'public', 'crmacct', crmacct_id,
'public', 'crmacct', 'crmacct_id', crmacct_id,
'crmacct_notes', crmacct_notes, 'text',
'public', 'crmacct', crmacct_id
FROM crmacct
WHERE (crmacct_id=pTargetId);
END IF;
UPDATE crmacct
SET crmacct_notes = ''
WHERE (crmacct_id=pTargetId);
END IF;
-- merge the data from the various source records
SELECT SUM(merge2crmaccts(crmacctsel_src_crmacct_id, pTargetId, _purge))
INTO _retval
FROM crmacctsel
WHERE ((crmacctsel_dest_crmacct_id=pTargetId)
AND (crmacctsel_dest_crmacct_id!=crmacctsel_src_crmacct_id));
DELETE FROM crmacctsel WHERE crmacctsel_dest_crmacct_id=pTargetId;
RETURN COALESCE(_retval, 0);
END;
$_$;
ALTER FUNCTION public.mergecrmaccts(integer, boolean) OWNER TO admin;
--
-- Name: FUNCTION mergecrmaccts(integer, boolean); Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON FUNCTION mergecrmaccts(integer, boolean) IS 'This function uses the crmacctsel table to merge multiple crmacct records together. Only the merges into the specified target account are performed. Most of the work is done by repeated calls to the merge2crmaccts function. If the purge argument is FALSE, data are kept to allow reversing the merge.';
--
-- Name: movebomitemdown(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION movebomitemdown(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBomitemid ALIAS FOR $1;
_nextBomitem RECORD;
BEGIN
SELECT nextbomitem.bomitem_seqnumber AS next_seqnumber,
thisbomitem.bomitem_seqnumber AS this_seqnumber,
thisbomitem.bomitem_parent_item_id AS parent_item_id,
thisbomitem.bomitem_rev_id AS rev_id
INTO _nextBomitem
FROM bomitem AS nextbomitem, bomitem AS thisbomitem
WHERE ((nextbomitem.bomitem_seqnumber > thisbomitem.bomitem_seqnumber)
AND (nextbomitem.bomitem_parent_item_id=thisbomitem.bomitem_parent_item_id)
AND (nextbomitem.bomitem_rev_id=thisbomitem.bomitem_rev_id)
AND (thisbomitem.bomitem_id=pBomitemid))
ORDER BY next_seqnumber
LIMIT 1;
IF (FOUND) THEN
-- Swap the seqnumber of the current bomitem and the next bomitem
-- There is the potential for multiple bomitems with the same seqnumber
UPDATE bomitem
SET bomitem_seqnumber=0
WHERE (bomitem_seqnumber=_nextBomitem.next_seqnumber)
AND (bomitem_parent_item_id=_nextBomitem.parent_item_id)
AND (bomitem_rev_id=_nextBomitem.rev_id);
UPDATE bomitem
SET bomitem_seqnumber=_nextBomitem.next_seqnumber
WHERE (bomitem_seqnumber=_nextBomitem.this_seqnumber)
AND (bomitem_parent_item_id=_nextBomitem.parent_item_id)
AND (bomitem_rev_id=_nextBomitem.rev_id);
UPDATE bomitem
SET bomitem_seqnumber=_nextBomitem.this_seqnumber
WHERE (bomitem_seqnumber=0)
AND (bomitem_parent_item_id=_nextBomitem.parent_item_id)
AND (bomitem_rev_id=_nextBomitem.rev_id);
END IF;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.movebomitemdown(integer) OWNER TO admin;
--
-- Name: movebomitemup(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION movebomitemup(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBomitemid ALIAS FOR $1;
_nextBomitem RECORD;
BEGIN
SELECT nextbomitem.bomitem_seqnumber AS next_seqnumber,
thisbomitem.bomitem_seqnumber AS this_seqnumber,
thisbomitem.bomitem_parent_item_id AS parent_item_id,
thisbomitem.bomitem_rev_id AS rev_id
INTO _nextBomitem
FROM bomitem AS nextbomitem, bomitem AS thisbomitem
WHERE ((nextbomitem.bomitem_seqnumber < thisbomitem.bomitem_seqnumber)
AND (nextbomitem.bomitem_parent_item_id=thisbomitem.bomitem_parent_item_id)
AND (nextbomitem.bomitem_rev_id=thisbomitem.bomitem_rev_id)
AND (thisbomitem.bomitem_id=pBomitemid))
ORDER BY next_seqnumber DESC
LIMIT 1;
IF (FOUND) THEN
-- Swap the seqnumber of the current bomitem and the next bomitem
-- There is the potential for multiple bomitems with the same seqnumber
UPDATE bomitem
SET bomitem_seqnumber=0
WHERE (bomitem_seqnumber=_nextBomitem.next_seqnumber)
AND (bomitem_parent_item_id=_nextBomitem.parent_item_id)
AND (bomitem_rev_id=_nextBomitem.rev_id);
UPDATE bomitem
SET bomitem_seqnumber=_nextBomitem.next_seqnumber
WHERE (bomitem_seqnumber=_nextBomitem.this_seqnumber)
AND (bomitem_parent_item_id=_nextBomitem.parent_item_id)
AND (bomitem_rev_id=_nextBomitem.rev_id);
UPDATE bomitem
SET bomitem_seqnumber=_nextBomitem.this_seqnumber
WHERE (bomitem_seqnumber=0)
AND (bomitem_parent_item_id=_nextBomitem.parent_item_id)
AND (bomitem_rev_id=_nextBomitem.rev_id);
END IF;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.movebomitemup(integer) OWNER TO admin;
--
-- Name: moveccarddown(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION moveccarddown(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCcardid ALIAS FOR $1;
_nextCcard RECORD;
BEGIN
SELECT nextCcard.ccard_id, nextCcard.ccard_seq AS next_seqnumber,
thisCcard.ccard_seq AS this_seqnumber INTO _nextCcard
FROM Ccard AS nextCcard, Ccard AS thisCcard
WHERE ((nextCcard.ccard_seq > thisCcard.ccard_seq)
AND (nextCcard.ccard_cust_id=thisCcard.ccard_cust_id)
AND (thisCcard.ccard_id=pCcardid))
ORDER BY next_seqnumber
LIMIT 1;
IF (FOUND) THEN
-- Swap the seqnumber of the current Ccard and the next Ccard
UPDATE Ccard
SET ccard_seq=_nextCcard.next_seqnumber
WHERE (ccard_id=pCcardid);
UPDATE Ccard
SET ccard_seq=_nextCcard.this_seqnumber
WHERE (ccard_id=_nextCcard.ccard_id);
END IF;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.moveccarddown(integer) OWNER TO admin;
--
-- Name: moveccardup(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION moveccardup(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCcardid ALIAS FOR $1;
_nextCcard RECORD;
BEGIN
SELECT nextCcard.ccard_id AS ccard_id, nextCcard.ccard_seq AS next_seqnumber,
thisCcard.ccard_seq AS this_seqnumber INTO _nextCcard
FROM ccard AS nextCcard, ccard AS thisCcard
WHERE ((nextCcard.ccard_seq < thisCcard.ccard_seq)
AND (nextCcard.ccard_cust_id=thisCcard.ccard_cust_id)
AND (thisCcard.ccard_id=pCcardid))
ORDER BY next_seqnumber DESC
LIMIT 1;
IF (FOUND) THEN
-- Swap the seqnumber of the current Ccard and the next Ccard
UPDATE Ccard
SET ccard_seq=_nextCcard.next_seqnumber
WHERE (ccard_id=pCcardid);
UPDATE Ccard
SET ccard_seq=_nextCcard.this_seqnumber
WHERE (ccard_id=_nextCcard.ccard_id);
END IF;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.moveccardup(integer) OWNER TO admin;
--
-- Name: moveflgroupdown(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION moveflgroupdown(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFlgrpid ALIAS FOR $1;
_from RECORD;
_to RECORD;
BEGIN
SELECT flgrp_id AS id,
flgrp_flhead_id AS flhead_id,
flgrp_flgrp_id AS flgrp_id,
flgrp_order AS ord INTO _from
FROM flgrp
WHERE (flgrp_id=pFlgrpid);
IF (NOT FOUND) THEN
RETURN -1;
END IF;
SELECT id, type, ord INTO _to
FROM (SELECT flitem_id AS id, 'I' AS type, flitem_order AS ord
FROM flitem
WHERE ((flitem_flgrp_id=_from.flgrp_id)
AND (flitem_flhead_id=_from.flhead_id))
UNION
SELECT flgrp_id AS id, 'G' AS type, flgrp_order AS ord
FROM flgrp
WHERE ((flgrp_flgrp_id=_from.flgrp_id)
AND (flgrp_flhead_id=_from.flhead_id))
UNION
SELECT flspec_id AS id, 'S' AS type, flspec_order AS ord
FROM flspec
WHERE ((flspec_flgrp_id=_from.flgrp_id)
AND (flspec_flhead_id=_from.flhead_id)) ) AS data
WHERE (ord > _from.ord)
ORDER BY ord
LIMIT 1;
IF (FOUND) THEN
UPDATE flgrp
SET flgrp_order=_to.ord
WHERE (flgrp_id=_from.id);
IF (_to.type='I') THEN
UPDATE flitem
SET flitem_order=_from.ord
WHERE (flitem_id=_to.id);
ELSE
IF (_to.type='G') THEN
UPDATE flgrp
SET flgrp_order=_from.ord
WHERE (flgrp_id=_to.id);
ELSE
IF (_to.type='S') THEN
UPDATE flspec
SET flspec_order=_from.ord
WHERE (flspec_id=_to.id);
END IF;
END IF;
END IF;
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.moveflgroupdown(integer) OWNER TO admin;
--
-- Name: moveflgroupup(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION moveflgroupup(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFlgrpid ALIAS FOR $1;
_from RECORD;
_to RECORD;
BEGIN
SELECT flgrp_id AS id,
flgrp_flhead_id AS flhead_id,
flgrp_flgrp_id AS flgrp_id,
flgrp_order AS ord INTO _from
FROM flgrp
WHERE (flgrp_id=pFlgrpid);
IF (NOT FOUND) THEN
RETURN -1;
END IF;
SELECT id, type, ord INTO _to
FROM (SELECT flitem_id AS id, 'I' AS type, flitem_order AS ord
FROM flitem
WHERE ((flitem_flgrp_id=_from.flgrp_id)
AND (flitem_flhead_id=_from.flhead_id))
UNION
SELECT flgrp_id AS id, 'G' AS type, flgrp_order AS ord
FROM flgrp
WHERE ((flgrp_flgrp_id=_from.flgrp_id)
AND (flgrp_flhead_id=_from.flhead_id))
UNION
SELECT flspec_id AS id, 'S' AS type, flspec_order AS ord
FROM flspec
WHERE ((flspec_flgrp_id=_from.flgrp_id)
AND (flspec_flhead_id=_from.flhead_id)) ) AS data
WHERE (ord < _from.ord)
ORDER BY ord DESC
LIMIT 1;
IF (FOUND) THEN
UPDATE flgrp
SET flgrp_order=_to.ord
WHERE (flgrp_id=_from.id);
IF (_to.type='I') THEN
UPDATE flitem
SET flitem_order=_from.ord
WHERE (flitem_id=_to.id);
ELSE
IF (_to.type='G') THEN
UPDATE flgrp
SET flgrp_order=_from.ord
WHERE (flgrp_id=_to.id);
ELSE
IF (_to.type='S') THEN
UPDATE flspec
SET flspec_order=_from.ord
WHERE (flspec_id=_to.id);
END IF;
END IF;
END IF;
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.moveflgroupup(integer) OWNER TO admin;
--
-- Name: moveflitemdown(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION moveflitemdown(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFlitemid ALIAS FOR $1;
_from RECORD;
_to RECORD;
BEGIN
SELECT flitem_id AS id,
flitem_flhead_id AS flhead_id,
flitem_flgrp_id AS flgrp_id,
flitem_order AS ord INTO _from
FROM flitem
WHERE (flitem_id=pFlitemid);
IF (NOT FOUND) THEN
RETURN -1;
END IF;
SELECT id, type, ord INTO _to
FROM (SELECT flitem_id AS id, 'I' AS type, flitem_order AS ord
FROM flitem
WHERE ((flitem_flgrp_id=_from.flgrp_id)
AND (flitem_flhead_id=_from.flhead_id))
UNION
SELECT flgrp_id AS id, 'G' AS type, flgrp_order AS ord
FROM flgrp
WHERE ((flgrp_flgrp_id=_from.flgrp_id)
AND (flgrp_flhead_id=_from.flhead_id))
UNION
SELECT flspec_id AS id, 'S' AS type, flspec_order AS ord
FROM flspec
WHERE ((flspec_flgrp_id=_from.flgrp_id)
AND (flspec_flhead_id=_from.flhead_id)) ) AS data
WHERE (ord > _from.ord)
ORDER BY ord
LIMIT 1;
IF (FOUND) THEN
UPDATE flitem
SET flitem_order=_to.ord
WHERE (flitem_id=_from.id);
IF (_to.type='I') THEN
UPDATE flitem
SET flitem_order=_from.ord
WHERE (flitem_id=_to.id);
ELSE
IF (_to.type='G') THEN
UPDATE flgrp
SET flgrp_order=_from.ord
WHERE (flgrp_id=_to.id);
ELSE
IF (_to.type='S') THEN
UPDATE flspec
SET flspec_order=_from.ord
WHERE (flspec_id=_to.id);
END IF;
END IF;
END IF;
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.moveflitemdown(integer) OWNER TO admin;
--
-- Name: moveflitemup(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION moveflitemup(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFlitemid ALIAS FOR $1;
_from RECORD;
_to RECORD;
BEGIN
SELECT flitem_id AS id,
flitem_flhead_id AS flhead_id,
flitem_flgrp_id AS flgrp_id,
flitem_order AS ord INTO _from
FROM flitem
WHERE (flitem_id=pFlitemid);
IF (NOT FOUND) THEN
RETURN -1;
END IF;
SELECT id, type, ord INTO _to
FROM (SELECT flitem_id AS id, 'I' AS type, flitem_order AS ord
FROM flitem
WHERE ((flitem_flgrp_id=_from.flgrp_id)
AND (flitem_flhead_id=_from.flhead_id))
UNION
SELECT flgrp_id AS id, 'G' AS type, flgrp_order AS ord
FROM flgrp
WHERE ((flgrp_flgrp_id=_from.flgrp_id)
AND (flgrp_flhead_id=_from.flhead_id))
UNION
SELECT flspec_id AS id, 'S' AS type, flspec_order AS ord
FROM flspec
WHERE ((flspec_flgrp_id=_from.flgrp_id)
AND (flspec_flhead_id=_from.flhead_id)) ) AS data
WHERE (ord < _from.ord)
ORDER BY ord DESC
LIMIT 1;
IF (FOUND) THEN
UPDATE flitem
SET flitem_order=_to.ord
WHERE (flitem_id=_from.id);
IF (_to.type='I') THEN
UPDATE flitem
SET flitem_order=_from.ord
WHERE (flitem_id=_to.id);
ELSE
IF (_to.type='G') THEN
UPDATE flgrp
SET flgrp_order=_from.ord
WHERE (flgrp_id=_to.id);
ELSE
IF (_to.type='S') THEN
UPDATE flspec
SET flspec_order=_from.ord
WHERE (flspec_id=_to.id);
END IF;
END IF;
END IF;
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.moveflitemup(integer) OWNER TO admin;
--
-- Name: moveflspecdown(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION moveflspecdown(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFlspecid ALIAS FOR $1;
_from RECORD;
_to RECORD;
BEGIN
SELECT flspec_id AS id,
flspec_flhead_id AS flhead_id,
flspec_flgrp_id AS flgrp_id,
flspec_order AS ord INTO _from
FROM flspec
WHERE (flspec_id=pFlspecid);
IF (NOT FOUND) THEN
RETURN -1;
END IF;
SELECT id, type, ord INTO _to
FROM (SELECT flitem_id AS id, 'I' AS type, flitem_order AS ord
FROM flitem
WHERE ((flitem_flgrp_id=_from.flgrp_id)
AND (flitem_flhead_id=_from.flhead_id))
UNION
SELECT flgrp_id AS id, 'G' AS type, flgrp_order AS ord
FROM flgrp
WHERE ((flgrp_flgrp_id=_from.flgrp_id)
AND (flgrp_flhead_id=_from.flhead_id))
UNION
SELECT flspec_id AS id, 'S' AS type, flspec_order AS ord
FROM flspec
WHERE ((flspec_flgrp_id=_from.flgrp_id)
AND (flspec_flhead_id=_from.flhead_id)) ) AS data
WHERE (ord > _from.ord)
ORDER BY ord
LIMIT 1;
IF (FOUND) THEN
UPDATE flspec
SET flspec_order=_to.ord
WHERE (flspec_id=_from.id);
IF (_to.type='I') THEN
UPDATE flitem
SET flitem_order=_from.ord
WHERE (flitem_id=_to.id);
ELSE
IF (_to.type='G') THEN
UPDATE flgrp
SET flgrp_order=_from.ord
WHERE (flgrp_id=_to.id);
ELSE
IF (_to.type='S') THEN
UPDATE flspec
SET flspec_order=_from.ord
WHERE (flspec_id=_to.id);
END IF;
END IF;
END IF;
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.moveflspecdown(integer) OWNER TO admin;
--
-- Name: moveflspecup(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION moveflspecup(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pFlspecid ALIAS FOR $1;
_from RECORD;
_to RECORD;
BEGIN
SELECT flspec_id AS id,
flspec_flhead_id AS flhead_id,
flspec_flgrp_id AS flgrp_id,
flspec_order AS ord INTO _from
FROM flspec
WHERE (flspec_id=pFlspecid);
IF (NOT FOUND) THEN
RETURN -1;
END IF;
SELECT id, type, ord INTO _to
FROM (SELECT flitem_id AS id, 'I' AS type, flitem_order AS ord
FROM flitem
WHERE ((flitem_flgrp_id=_from.flgrp_id)
AND (flitem_flhead_id=_from.flhead_id))
UNION
SELECT flgrp_id AS id, 'G' AS type, flgrp_order AS ord
FROM flgrp
WHERE ((flgrp_flgrp_id=_from.flgrp_id)
AND (flgrp_flhead_id=_from.flhead_id))
UNION
SELECT flspec_id AS id, 'S' AS type, flspec_order AS ord
FROM flspec
WHERE ((flspec_flgrp_id=_from.flgrp_id)
AND (flspec_flhead_id=_from.flhead_id)) ) AS data
WHERE (ord < _from.ord)
ORDER BY ord DESC
LIMIT 1;
IF (FOUND) THEN
UPDATE flspec
SET flspec_order=_to.ord
WHERE (flspec_id=_from.id);
IF (_to.type='I') THEN
UPDATE flitem
SET flitem_order=_from.ord
WHERE (flitem_id=_to.id);
ELSE
IF (_to.type='G') THEN
UPDATE flgrp
SET flgrp_order=_from.ord
WHERE (flgrp_id=_to.id);
ELSE
IF (_to.type='S') THEN
UPDATE flspec
SET flspec_order=_from.ord
WHERE (flspec_id=_to.id);
END IF;
END IF;
END IF;
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.moveflspecup(integer) OWNER TO admin;
--
-- Name: movescript(integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION movescript(integer, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pscriptid ALIAS FOR $1;
poldpkgid ALIAS FOR $2;
pnewpkgid ALIAS FOR $3;
_deletestr TEXT;
_destination TEXT;
_insertstr TEXT;
_rows INTEGER;
_selectstr TEXT;
_source TEXT;
_record RECORD;
BEGIN
IF (poldpkgid = pnewpkgid) THEN
RETURN 0;
END IF;
IF (poldpkgid = -1) THEN
_source = 'public.script';
ELSE
SELECT pkghead_name || '.pkgscript' INTO _source
FROM pkghead
WHERE pkghead_id=poldpkgid;
IF NOT FOUND THEN
RETURN -1;
END IF;
END IF;
IF (pnewpkgid = -1) THEN
_destination = 'public.script';
ELSE
SELECT pkghead_name || '.pkgscript' INTO _destination
FROM pkghead
WHERE pkghead_id=pnewpkgid;
IF NOT FOUND THEN
RETURN -2;
END IF;
END IF;
_selectstr := ' SELECT * FROM ' || _source ||
' WHERE script_id = ' || pscriptid;
EXECUTE _selectstr INTO _record;
_deletestr := 'DELETE FROM ONLY ' || _source ||
' WHERE script_id = ' || pscriptid;
EXECUTE _deletestr;
GET DIAGNOSTICS _rows = ROW_COUNT;
RAISE NOTICE '% rows from %', _rows, _deletestr;
IF (_rows < 1) THEN
RETURN -3;
ELSIF (_rows > 1) THEN
RAISE EXCEPTION 'Tried to delete % scripts with the id % when there should be exactly 1',
_rows, pscriptid;
END IF;
_insertstr := 'INSERT INTO ' || _destination ||
' (script_id, script_name, script_order, script_enabled, ' ||
' script_source, script_notes) VALUES ('
|| _record.script_id || ','
|| quote_literal(_record.script_name) || ','
|| _record.script_order || ','
|| _record.script_enabled || ','
|| quote_literal(_record.script_source) || ','
|| quote_literal(_record.script_notes ) || ');'
;
EXECUTE _insertstr;
GET DIAGNOSTICS _rows = ROW_COUNT;
RAISE NOTICE '% rows from %', _rows, _insertstr;
IF (_rows < 1) THEN
RETURN -4;
ELSIF (_rows > 1) THEN
RAISE EXCEPTION 'Tried to insert % scripts with the id % when there should be exactly 1',
_rows, pscriptid;
END IF;
RETURN pscriptid;
END;
$_$;
ALTER FUNCTION public.movescript(integer, integer, integer) OWNER TO admin;
--
-- Name: moveuiform(integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION moveuiform(integer, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
puiformid ALIAS FOR $1;
poldpkgid ALIAS FOR $2;
pnewpkgid ALIAS FOR $3;
_deletestr TEXT;
_destination TEXT;
_insertstr TEXT;
_rows INTEGER;
_selectstr TEXT;
_source TEXT;
_record RECORD;
BEGIN
IF (poldpkgid = pnewpkgid) THEN
RETURN 0;
END IF;
IF (poldpkgid = -1) THEN
_source = 'public.uiform';
ELSE
SELECT pkghead_name || '.pkguiform' INTO _source
FROM pkghead
WHERE pkghead_id=poldpkgid;
IF NOT FOUND THEN
RETURN -1;
END IF;
END IF;
IF (pnewpkgid = -1) THEN
_destination = 'public.uiform';
ELSE
SELECT pkghead_name || '.pkguiform' INTO _destination
FROM pkghead
WHERE pkghead_id=pnewpkgid;
IF NOT FOUND THEN
RETURN -2;
END IF;
END IF;
_selectstr := ' SELECT * FROM ' || _source ||
' WHERE uiform_id = ' || puiformid;
EXECUTE _selectstr INTO _record;
_deletestr := 'DELETE FROM ONLY ' || _source ||
' WHERE uiform_id = ' || puiformid;
EXECUTE _deletestr;
GET DIAGNOSTICS _rows = ROW_COUNT;
RAISE NOTICE '% rows from %', _rows, _deletestr;
IF (_rows < 1) THEN
RETURN -3;
ELSIF (_rows > 1) THEN
RAISE EXCEPTION 'Tried to delete % uiforms with the id % when there should be exactly 1',
_rows, puiformid;
END IF;
_insertstr := 'INSERT INTO ' || _destination ||
' (uiform_id, uiform_name, uiform_order, uiform_enabled, ' ||
' uiform_source, uiform_notes) VALUES ('
|| _record.uiform_id || ','
|| quote_literal(_record.uiform_name) || ','
|| _record.uiform_order || ','
|| _record.uiform_enabled || ','
|| quote_literal(_record.uiform_source) || ','
|| quote_literal(_record.uiform_notes ) || ');'
;
EXECUTE _insertstr;
GET DIAGNOSTICS _rows = ROW_COUNT;
RAISE NOTICE '% rows from %', _rows, _insertstr;
IF (_rows < 1) THEN
RETURN -4;
ELSIF (_rows > 1) THEN
RAISE EXCEPTION 'Tried to insert % uiforms with the id % when there should be exactly 1',
_rows, puiformid;
END IF;
RETURN puiformid;
END;
$_$;
ALTER FUNCTION public.moveuiform(integer, integer, integer) OWNER TO admin;
--
-- Name: moveupdown(integer, text, text, text, text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION moveupdown(pid integer, pschema text, ptable text, pseqcol text, pjoincol text, pextra text, pdir text) RETURNS integer
LANGUAGE plpgsql
AS $_$
DECLARE
_keyfield TEXT;
_keysize INTEGER;
_qry TEXT;
_r RECORD;
_rowcnt INTEGER;
_schema TEXT := COALESCE(pSchema, 'public');
BEGIN
RAISE DEBUG 'moveUpDown(%, %, %, %, %, %, %) entered',
pId, pSchema, pTable, pSeqCol, pJoinCol, pExtra, pDir;
IF (UPPER(pDir) NOT IN ('UP', 'DOWN')) THEN
RAISE EXCEPTION 'Cannot change the order of records; unsure what % means for sequencing [xtuple: moveUpDown, -1, %, %.%]',
pDir, pDir, _schema, pTable;
END IF;
SELECT attname, ARRAY_UPPER(conkey, 1) INTO _keyfield, _keysize
FROM pg_attribute
JOIN pg_constraint ON (attrelid=conrelid AND attnum=conkey[1])
JOIN pg_class ON (conrelid=pg_class.oid)
JOIN pg_namespace ON (relnamespace=pg_namespace.oid)
WHERE ((contype='p')
AND (nspname=_schema)
AND (relname=pTable));
RAISE DEBUG 'SELECT attname... returned %, %', _keyfield, _keysize;
IF (_keysize > 1) THEN
RAISE EXCEPTION 'Cannot change the order of records because %.% has a composite primary key [xtuple: moveUpDown, -2, %.%]',
_schema, pTable,
_schema, pTable;
END IF;
/* SELECT next._keyfield AS nextid,
next.pSeqCol AS nextseq,
this.pSeqCol AS thisseq
FROM _schema.pTable AS next,
_schema.pTable AS this
WHERE (this._keyfield=$1)
AND (next.pSeqCol [> or <] this.pSeqCol)
[ AND (next.pJoinCol=this.pJoinCol) ]
[ AND (pExtra) ]
ORDER BY nextseq [ DESC or ASC ]
LIMIT 1;
*/
_qry := 'SELECT next.' || quote_ident(_keyfield) || ' AS nextid,
next.' || quote_ident(pSeqCol) || ' AS nextseq,
this.' || quote_ident(pSeqCol) || ' AS thisseq
FROM ' || _schema || '.' || quote_ident(pTable) || ' AS next,
' || _schema || '.' || quote_ident(pTable) || ' AS this
WHERE ((this.' || quote_ident(_keyfield) || '=$1)
AND (next.' || quote_ident(pSeqCol) ||
CASE pDir WHEN 'UP' THEN ' < ' ELSE ' > ' END ||
'this.' || quote_ident(pSeqCol) || ')' ||
CASE WHEN pJoinCol IS NULL THEN ''
ELSE ' AND (next.' || quote_ident(pJoinCol) ||
'=this.' || quote_ident(pJoinCol) || ')'
END ||
' AND (' || COALESCE(pExtra, 'TRUE') || '))
ORDER BY nextseq ' ||
CASE pDir WHEN 'UP' THEN 'DESC' ELSE 'ASC' END ||
' LIMIT 1;';
RAISE DEBUG 'moveUpDown about to use % when running %', pId, _qry;
EXECUTE _qry INTO _r USING pId;
GET DIAGNOSTICS _rowcnt = ROW_COUNT;
RAISE DEBUG 'next id %, next seq %, this id %, this seq %',
_r.nextid, _r.nextseq, pId, _r.thisseq;
IF (_rowcnt > 0) THEN
_qry := 'UPDATE ' || _schema || '.' || quote_ident(pTable) ||
' SET ' || pSeqCol || '=CAST($1 AS INTEGER)
WHERE (' || quote_ident(_keyfield) || '=$2);';
EXECUTE _qry USING -1, _r.nextid;
EXECUTE _qry USING _r.nextseq, pId;
EXECUTE _qry USING _r.thisseq, _r.nextid;
RETURN _r.nextid;
END IF;
RETURN pId;
END;
$_$;
ALTER FUNCTION public.moveupdown(pid integer, pschema text, ptable text, pseqcol text, pjoincol text, pextra text, pdir text) OWNER TO admin;
--
-- Name: FUNCTION moveupdown(pid integer, pschema text, ptable text, pseqcol text, pjoincol text, pextra text, pdir text); Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON FUNCTION moveupdown(pid integer, pschema text, ptable text, pseqcol text, pjoincol text, pextra text, pdir text) IS 'moveUpDown moves a particular record up or down in an ordered list.
pId argument names the record to move.
pSchema (uses public if NULL) and pTable name the table holding the list.
pSeqCol is the column that holds the sequence number.
pJoinCol is the column that distinguishes one list from another in the same table, or NULL if the table holds only one list.
pExtra is an extra join clause that may be required, or NULL.
pDir is either UP, meaning move the pId record closer to the beginning,
or DOWN.
Returns the id of the record with which pId was swapped,
or pId if the record was already at the end in the specified direction.';
--
-- Name: nextperiodbyinterval(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION nextperiodbyinterval(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPeriodid ALIAS FOR $1;
pInterval ALIAS FOR $2;
_periodid INTEGER;
BEGIN
SELECT b.period_id INTO _periodid
FROM period AS a, period AS b
WHERE ((a.period_id=pPeriodid)
AND (b.period_start >= a.period_start))
ORDER BY b.period_start
LIMIT 1 OFFSET pInterval;
IF (NOT FOUND) THEN
RETURN -1;
END IF;
RETURN _periodid;
END;
$_$;
ALTER FUNCTION public.nextperiodbyinterval(integer, integer) OWNER TO admin;
--
-- Name: nextprsubnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION nextprsubnumber(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPrNumber ALIAS FOR $1;
_subNumber INTEGER;
BEGIN
SELECT MAX(pr_subnumber) INTO _subNumber
FROM pr
WHERE (pr_number=pPrNumber);
IF (_subNumber IS NULL)
THEN _subNumber := 0;
END IF;
RETURN (_subNumber + 1);
END;
$_$;
ALTER FUNCTION public.nextprsubnumber(integer) OWNER TO admin;
--
-- Name: nextwosubnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION nextwosubnumber(integer) RETURNS integer
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT COALESCE((MAX(wo_subnumber) + 1), 1)
FROM wo
WHERE (wo_number=($1));
$_$;
ALTER FUNCTION public.nextwosubnumber(integer) OWNER TO admin;
--
-- Name: noneg(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION noneg(numeric) RETURNS numeric
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pValue ALIAS FOR $1;
BEGIN
IF (pValue < 0) THEN
RETURN 0;
ELSE
RETURN pValue;
END IF;
END;
$_$;
ALTER FUNCTION public.noneg(numeric) OWNER TO admin;
--
-- Name: nopos(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION nopos(numeric) RETURNS numeric
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pValue ALIAS FOR $1;
BEGIN
IF (pValue > 0) THEN
RETURN 0;
ELSE
RETURN pValue;
END IF;
END;
$_$;
ALTER FUNCTION public.nopos(numeric) OWNER TO admin;
--
-- Name: normalizetrialbal(integer, character); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION normalizetrialbal(integer, character) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTrialbalid ALIAS FOR $1;
pSide ALIAS FOR $2;
_value NUMERIC;
_r RECORD;
BEGIN
SELECT accnt_type, trialbal_beginning, trialbal_ending INTO _r
FROM trialbal, accnt
WHERE ( (trialbal_accnt_id=accnt_id)
AND (trialbal_id=pTrialbalid) );
IF (NOT FOUND) THEN
RETURN -1;
END IF;
-- If we are looking for the Ending Balance, cache it
IF (pSide = 'E') THEN
_value = _r.trialbal_ending;
-- We had better been looking for the Beginning Balance!
ELSE
_value = _r.trialbal_beginning;
END IF;
-- If the accnt_type is Asset or Expense, swap the sense
IF (_r.accnt_type IN ('A', 'E')) THEN
_value := (_value * -1);
END IF;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.normalizetrialbal(integer, character) OWNER TO admin;
--
-- Name: numofdatabaseusers(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION numofdatabaseusers() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_count INTEGER;
BEGIN
SELECT count(*)
INTO _count
FROM pg_stat_activity, pg_locks
WHERE((database=datid)
AND (classid=datid)
AND (objsubid=2)
AND (procpid = pg_backend_pid()));
IF (_count IS NULL) THEN
_count := 0;
END IF;
RETURN _count;
END;
$$;
ALTER FUNCTION public.numofdatabaseusers() OWNER TO admin;
--
-- Name: numofserverusers(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION numofserverusers() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_count INTEGER;
BEGIN
SELECT COUNT(*) INTO _count
FROM pg_stat_activity;
IF (_count IS NULL) THEN
_count := 0;
END IF;
RETURN _count;
END;
$$;
ALTER FUNCTION public.numofserverusers() OWNER TO admin;
--
-- Name: openaccountingperiod(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION openaccountingperiod(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPeriodid ALIAS FOR $1;
_r RECORD;
BEGIN
-- Check to make use that the period is closed
IF ( ( SELECT (NOT period_closed)
FROM period
WHERE (period_id=pPeriodid) ) ) THEN
RETURN -1;
END IF;
IF ( ( SELECT (count(period_id) > 0)
FROM period
WHERE ((period_end > (
SELECT period_end
FROM period
WHERE (period_id=pPeriodId))
)
AND (period_closed)) ) ) THEN
RETURN -3;
END IF;
-- Make sure the year is open
IF ( ( SELECT (yearperiod_closed)
FROM yearperiod
JOIN period ON (period_yearperiod_id=yearperiod_id)
WHERE (period_id=pPeriodid) ) ) THEN
RETURN -4;
END IF;
-- Reset the period_closed flag
UPDATE period
SET period_closed=FALSE
WHERE (period_id=pPeriodid);
-- Post any unposted G/L Transactions into the new period
FOR _r IN SELECT DISTINCT gltrans_sequence
FROM gltrans, period
WHERE ( (NOT gltrans_posted)
AND (gltrans_date BETWEEN period_start AND period_end)
AND (period_id=pPeriodid) ) LOOP
PERFORM postIntoTrialBalance(_r.gltrans_sequence);
END LOOP;
RETURN pPeriodid;
END;
$_$;
ALTER FUNCTION public.openaccountingperiod(integer) OWNER TO admin;
--
-- Name: openaccountingyearperiod(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION openaccountingyearperiod(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pYearPeriodId ALIAS FOR $1;
_r RECORD;
BEGIN
-- Check to make use that the yearperiod is closed
IF ( ( SELECT (NOT yearperiod_closed)
FROM yearperiod
WHERE (yearperiod_id=pYearPeriodId) ) ) THEN
RETURN -1;
END IF;
IF ( ( SELECT (count(yearperiod_id) > 0)
FROM yearperiod
WHERE ((yearperiod_end> (
SELECT yearperiod_end
FROM yearperiod
WHERE (yearperiod_id=pYearPeriodId))
)
AND (yearperiod_closed)) ) ) THEN
RETURN -2;
END IF;
-- Reset the yearperiod_closed flag
UPDATE yearperiod
SET yearperiod_closed=FALSE
WHERE (yearperiod_id=pYearPeriodId);
RETURN pYearPeriodid;
END;
$_$;
ALTER FUNCTION public.openaccountingyearperiod(integer) OWNER TO admin;
--
-- Name: openapitemsvalue(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION openapitemsvalue(pvendid integer, pperiodid integer) RETURNS numeric
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_value NUMERIC;
BEGIN
SELECT SUM( (apopen_amount - apopen_paid) / apopen_curr_rate *
CASE WHEN (apopen_doctype IN ('D', 'V')) THEN 1 ELSE -1 END )
INTO _value
FROM apopen
WHERE ( (apopen_open)
AND (apopen_vend_id=pVendid)
AND (apopen_duedate BETWEEN findPeriodStart(pPeriodid) AND findPeriodEnd(pPeriodid)) );
RETURN COALESCE(_value, 0.0);
END;
$$;
ALTER FUNCTION public.openapitemsvalue(pvendid integer, pperiodid integer) OWNER TO admin;
--
-- Name: openaritemsvalue(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION openaritemsvalue(integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustid ALIAS FOR $1;
pPeriodid ALIAS FOR $2;
_value NUMERIC;
BEGIN
SELECT SUM( CASE WHEN (aropen_doctype IN ('C', 'R')) THEN ((aropen_amount - aropen_paid) * -1)
ELSE (aropen_amount - aropen_paid)
END ) INTO _value
FROM aropen
WHERE ( (aropen_open)
AND (aropen_cust_id=pCustid)
AND (aropen_duedate BETWEEN findPeriodStart(pPeriodid) AND findPeriodEnd(pPeriodid)) );
IF (_value IS NULL) THEN
_value := 0;
END IF;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.openaritemsvalue(integer, integer) OWNER TO admin;
--
-- Name: openrecurringitems(integer, text, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION openrecurringitems(integer, text, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pParentid ALIAS FOR $1;
pType TEXT := UPPER($2);
pDatetime TIMESTAMP WITH TIME ZONE := COALESCE($3, CURRENT_TIMESTAMP);
_count INTEGER := -1;
_countstmt TEXT;
_rt RECORD;
BEGIN
IF (pParentid IS NULL) THEN
RETURN -11;
END IF;
SELECT * INTO _rt FROM recurtype WHERE (UPPER(recurtype_type)=pType);
GET DIAGNOSTICS _count = ROW_COUNT;
IF (_count <= 0) THEN
RETURN -10;
END IF;
_countstmt := 'SELECT COUNT(*) FROM [fulltable]'
|| ' WHERE (NOT ([done])'
|| ' AND ([schedcol]>=''$1'')'
|| ' AND ([table]_recurring_[table]_id=''$2''));';
_countstmt := REPLACE(_countstmt, '[fulltable]', _rt.recurtype_table);
_countstmt := REPLACE(_countstmt, '[table]',
REGEXP_REPLACE(_rt.recurtype_table, E'.*\\.', ''));
_countstmt := REPLACE(_countstmt, '[done]', _rt.recurtype_donecheck);
_countstmt := REPLACE(_countstmt, '[schedcol]', _rt.recurtype_schedcol);
-- 8.4+: EXECUTE _countstmt INTO _count USING pDatetime, pParentid;
EXECUTE REPLACE(REPLACE(_countstmt, '$1', pDatetime::TEXT),
'$2', pParentid::TEXT) INTO _count;
RETURN _count;
END;
$_$;
ALTER FUNCTION public.openrecurringitems(integer, text, timestamp with time zone) OWNER TO admin;
--
-- Name: ophead; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE ophead (
ophead_id integer NOT NULL,
ophead_name text NOT NULL,
ophead_crmacct_id integer,
ophead_owner_username text,
ophead_opstage_id integer,
ophead_opsource_id integer,
ophead_optype_id integer,
ophead_probability_prcnt integer,
ophead_amount numeric(20,4),
ophead_target_date date,
ophead_actual_date date,
ophead_notes text,
ophead_curr_id integer,
ophead_active boolean DEFAULT true,
ophead_cntct_id integer,
ophead_username text,
ophead_start_date date,
ophead_assigned_date date,
ophead_priority_id integer,
ophead_number text NOT NULL,
CONSTRAINT ophead_ophead_number_check CHECK ((ophead_number <> ''::text))
);
ALTER TABLE public.ophead OWNER TO admin;
--
-- Name: TABLE ophead; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE ophead IS 'Opportunity header.';
--
-- Name: ophead(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION ophead() RETURNS SETOF ophead
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_row ophead%ROWTYPE;
_priv TEXT;
_grant BOOLEAN;
BEGIN
-- This query will give us the most permissive privilege the user has been granted
SELECT privilege, granted INTO _priv, _grant
FROM privgranted
WHERE privilege IN ('MaintainAllOpportunities','ViewAllOpportunities','MaintainPersonalOpportunities','ViewPersonalOpportunities')
ORDER BY granted DESC, sequence
LIMIT 1;
-- If have an 'All' privilege return all results
IF (_priv ~ 'All' AND _grant) THEN
FOR _row IN
SELECT * FROM ophead
LOOP
RETURN NEXT _row;
END LOOP;
-- Otherwise if have any other grant, must be personal privilege.
ELSIF (_grant) THEN
FOR _row IN
SELECT * FROM ophead
WHERE getEffectiveXtUser() IN (ophead_owner_username, ophead_username)
LOOP
RETURN NEXT _row;
END LOOP;
END IF;
RETURN;
END;
$$;
ALTER FUNCTION public.ophead() OWNER TO admin;
--
-- Name: FUNCTION ophead(); Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON FUNCTION ophead() IS 'A table function that returns Opportunity results according to privilege settings.';
--
-- Name: orderedbypo(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION orderedbypo(integer, date, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
_qty NUMERIC;
BEGIN
SELECT COALESCE(SUM(noNeg(poitem_qty_ordered - poitem_qty_received) * poitem_invvenduomratio), 0.0) INTO _qty
FROM poitem
WHERE ( (poitem_itemsite_id=pItemsiteid)
AND (poitem_status <> 'C')
AND (poitem_duedate BETWEEN pStartDate AND pEndDate) );
RETURN _qty;
END;
$_$;
ALTER FUNCTION public.orderedbypo(integer, date, date) OWNER TO admin;
--
-- Name: orderedbypo(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION orderedbypo(integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pLookAhead ALIAS FOR $2;
_qty NUMERIC;
BEGIN
SELECT orderedByPo(pItemsiteid, startOfTime(), (CURRENT_DATE + pLookAhead)) INTO _qty;
RETURN _qty;
END;
$_$;
ALTER FUNCTION public.orderedbypo(integer, integer) OWNER TO admin;
--
-- Name: orderedbywo(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION orderedbywo(integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pLookAheadDays ALIAS FOR $2;
BEGIN
RETURN orderedByWo(pItemsiteid, startOfTime(), (CURRENT_DATE + pLookAheadDays));
END;
$_$;
ALTER FUNCTION public.orderedbywo(integer, integer) OWNER TO admin;
--
-- Name: orderedbywo(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION orderedbywo(integer, date, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
_itemType CHARACTER(1);
_qty NUMERIC := 0;
BEGIN
SELECT item_type INTO _itemType
FROM itemsite, item
WHERE ( (itemsite_item_id=item_id)
AND (itemsite_id=pItemsiteid) );
IF (_itemType NOT IN ('C','T')) THEN
SELECT COALESCE(SUM(noNeg(wo_qtyord - wo_qtyrcv)), 0.0) INTO _qty
FROM wo
WHERE ( (wo_status <> 'C')
AND (wo_itemsite_id=pItemsiteid)
AND (wo_duedate BETWEEN pStartDate AND pEndDate) );
ELSIF (_itemType = 'C') THEN
SELECT COALESCE(SUM((noNeg(wo_qtyord - wo_qtyrcv) * brddist_stdqtyper)), 0.0) INTO _qty
FROM wo, xtmfg.brddist
WHERE ( (wo_status <> 'C')
AND (brddist_wo_id=wo_id)
AND (brddist_itemsite_id=pItemsiteid)
AND (wo_duedate BETWEEN pStartDate AND pEndDate) );
ELSIF (_itemType = 'T' AND fetchMetricBool('Routings')) THEN -- Tooling: Determine quantity already returned
SELECT
-- Qty Required
COALESCE(SUM(noNeg(womatl_qtyreq)),0) -
-- Qty Returned
(SELECT COALESCE(SUM(abs(invhist_invqty)),0)
FROM wo
JOIN womatl ON (womatl_wo_id=wo_id)
JOIN womatlpost ON (womatl_id=womatlpost_womatl_id)
JOIN invhist ON ((womatlpost_invhist_id=invhist_id)
AND (invhist_invqty < 0))
LEFT OUTER JOIN xtmfg.wooper ON (womatl_wooper_id=wooper_id)
WHERE ( NOT (COALESCE(wooper_rncomplete,wo_status = 'C'))
AND (womatl_itemsite_id=pItemsiteid)
AND (wo_duedate BETWEEN pStartDate AND pEndDate) )
)
INTO _qty
FROM wo
JOIN womatl ON (womatl_wo_id=wo_id)
LEFT OUTER JOIN xtmfg.wooper ON (womatl_wooper_id=wooper_id)
WHERE ( NOT (COALESCE(wooper_rncomplete,wo_status = 'C'))
AND (womatl_itemsite_id=pItemsiteid)
AND (wo_duedate BETWEEN pStartDate AND pEndDate) )
GROUP BY womatl_qtyreq;
ELSIF (_itemType = 'T') THEN -- Tooling: Determine quantity already returned
SELECT
-- Qty Required
COALESCE(SUM(noNeg(womatl_qtyreq)),0) -
-- Qty Returned
(SELECT COALESCE(SUM(abs(invhist_invqty)),0)
FROM wo
JOIN womatl ON (womatl_wo_id=wo_id)
JOIN womatlpost ON (womatl_id=womatlpost_womatl_id)
JOIN invhist ON ((womatlpost_invhist_id=invhist_id)
AND (invhist_invqty < 0))
WHERE ( NOT (wo_status = 'C')
AND (womatl_itemsite_id=pItemsiteid)
AND (wo_duedate BETWEEN pStartDate AND pEndDate) )
)
INTO _qty
FROM wo
JOIN womatl ON (womatl_wo_id=wo_id)
WHERE ( NOT (wo_status = 'C')
AND (womatl_itemsite_id=pItemsiteid)
AND (wo_duedate BETWEEN pStartDate AND pEndDate) )
GROUP BY womatl_qtyreq;
END IF;
RETURN COALESCE(_qty,0);
END;
$_$;
ALTER FUNCTION public.orderedbywo(integer, date, date) OWNER TO admin;
--
-- Name: orderhead(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION orderhead() RETURNS SETOF ordhead
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_row ordhead%ROWTYPE;
_query TEXT;
BEGIN
_query := '
SELECT DISTINCT * FROM (
SELECT pohead_id AS orderhead_id,
''PO'' AS orderhead_type,
pohead_number AS orderhead_number,
pohead_status AS orderhead_status,
pohead_orderdate AS orderhead_orderdate,
(SELECT count(*)
FROM poitem
WHERE poitem_pohead_id=pohead_id) AS orderhead_linecount,
pohead_vend_id AS orderhead_from_id,
vend_name AS orderhead_from,
NULL AS orderhead_to_id,
'''' AS orderhead_to,
pohead_curr_id AS orderhead_curr_id,
pohead_agent_username AS orderhead_agent_username,
pohead_shipvia AS orderhead_shipvia
FROM pohead LEFT OUTER JOIN vendinfo ON (pohead_vend_id=vend_id)
UNION
SELECT cohead_id AS orderhead_id,
''SO'' AS orderhead_type,
cohead_number AS orderhead_number,
COALESCE(coitem_status,''C'') AS orderhead_status,
cohead_orderdate AS orderhead_orderdate,
(SELECT count(*)
FROM coitem
WHERE coitem_cohead_id=cohead_id) AS orderhead_linecount,
NULL AS orderhead_from_id,
'''' AS orderhead_from,
cohead_cust_id AS orderhead_to_id,
cust_name AS orderhead_to,
cohead_curr_id AS orderhead_curr_id,
'''' AS orderhead_agent_username,
cohead_shipvia AS orderhead_shipvia
FROM cohead LEFT OUTER JOIN custinfo ON (cohead_cust_id=cust_id)
LEFT OUTER JOIN coitem ON ((cohead_id=coitem_cohead_id)
AND (coitem_status=''O''))';
IF (fetchmetricbool('MultiWhs')) THEN
_query := _query || '
UNION
SELECT tohead_id AS orderhead_id,
''TO'' AS orderhead_type,
tohead_number AS orderhead_number,
tohead_status AS orderhead_status,
tohead_orderdate AS orderhead_orderdate,
(SELECT count(*)
FROM toitem
WHERE toitem_tohead_id=tohead_id) AS orderhead_linecount,
tohead_src_warehous_id AS orderhead_from_id,
tohead_srcname AS orderhead_from,
tohead_dest_warehous_id AS orderhead_to_id,
tohead_destname AS orderhead_to,
tohead_freight_curr_id AS orderhead_curr_id,
tohead_agent_username AS orderhead_agent_username,
tohead_shipvia AS orderhead_shipvia
FROM tohead';
END IF;
IF (fetchmetricbool('EnableReturnAuth')) THEN
_query := _query || '
UNION
SELECT rahead_id AS orderhead_id,
''RA'' AS orderhead_type,
rahead_number AS orderhead_number,
COALESCE(raitem_status,''C'') AS orderhead_status,
rahead_authdate AS orderhead_orderdate,
(SELECT count(*)
FROM raitem
WHERE raitem_rahead_id=rahead_id) AS orderhead_linecount,
rahead_cust_id AS orderhead_from_id,
cust_name AS orderhead_from,
NULL AS orderhead_to_id,
'''' AS orderhead_to,
rahead_curr_id AS orderhead_curr_id,
'''' AS orderhead_agent_username,
'''' AS orderhead_shipvia
FROM rahead LEFT OUTER JOIN custinfo ON (rahead_cust_id=cust_id)
LEFT OUTER JOIN raitem ON ((rahead_id=raitem_rahead_id)
AND (raitem_status=''O''))';
END IF;
_query := _query || ') AS data ORDER BY orderhead_type, orderhead_number ;';
FOR _row IN EXECUTE _query
LOOP
RETURN NEXT _row;
END LOOP;
RETURN;
END;
$$;
ALTER FUNCTION public.orderhead() OWNER TO admin;
--
-- Name: orderitem(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION orderitem() RETURNS SETOF orditem
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_row orditem%ROWTYPE;
_query TEXT;
BEGIN
_query := '
SELECT poitem_id AS orderitem_id,
''PO'' AS orderitem_orderhead_type,
poitem_pohead_id AS orderitem_orderhead_id,
poitem_linenumber AS orderitem_linenumber,
poitem_status AS orderitem_status,
poitem_itemsite_id AS orderitem_itemsite_id,
poitem_duedate AS orderitem_scheddate,
poitem_qty_ordered AS orderitem_qty_ordered,
poitem_qty_returned AS orderitem_qty_shipped,
poitem_qty_received AS orderitem_qty_received,
uom_id AS orderitem_qty_uom_id,
poitem_invvenduomratio AS orderitem_qty_invuomratio,
poitem_unitprice AS orderitem_unitcost,
pohead_curr_id AS orderitem_unitcost_curr_id,
poitem_freight AS orderitem_freight,
poitem_freight_received AS orderitem_freight_received,
pohead_curr_id AS orderitem_freight_curr_id
FROM poitem LEFT OUTER JOIN pohead ON (poitem_pohead_id=pohead_id)
LEFT OUTER JOIN uom ON (uom_name=poitem_vend_uom)
UNION
SELECT coitem_id AS orderitem_id,
''SO'' AS orderitem_orderhead_type,
coitem_cohead_id AS orderitem_orderhead_id,
coitem_linenumber AS orderitem_linenumber,
coitem_status AS orderitem_status,
coitem_itemsite_id AS orderitem_itemsite_id,
coitem_scheddate AS orderitem_scheddate,
coitem_qtyord AS orderitem_qty_ordered,
coitem_qtyshipped AS orderitem_qty_shipped,
coitem_qtyreturned AS orderitem_qty_received,
coitem_qty_uom_id AS orderitem_qty_uom_id,
coitem_qty_invuomratio AS orderitem_qty_invuomratio,
coitem_unitcost AS orderitem_unitcost,
basecurrid() AS orderitem_unitcost_curr_id,
NULL AS orderitem_freight,
NULL AS orderitem_freight_received,
basecurrid() AS orderitem_freight_curr_id
FROM coitem';
IF (fetchmetricbool('MultiWhs')) THEN
_query := _query || '
UNION
SELECT toitem_id AS orderitem_id,
''TO'' AS orderitem_orderhead_type,
toitem_tohead_id AS orderitem_orderhead_id,
toitem_linenumber AS orderitem_linenumber,
toitem_status AS orderitem_status,
itemsite_id AS orderitem_itemsite_id,
toitem_duedate AS orderitem_scheddate,
toitem_qty_ordered AS orderitem_qty_ordered,
toitem_qty_shipped AS orderitem_qty_shipped,
toitem_qty_received AS orderitem_qty_received,
uom_id AS orderitem_qty_uom_id,
1 AS orderitem_qty_invuomratio,
toitem_stdcost AS orderitem_unitcost,
basecurrid() AS orderitem_unitcost_curr_id,
toitem_freight AS orderitem_freight,
toitem_freight_received AS orderitem_freight_received,
toitem_freight_curr_id AS orderitem_freight_curr_id
FROM tohead, itemsite, toitem LEFT OUTER JOIN uom ON (uom_name=toitem_uom)
WHERE ((toitem_tohead_id=tohead_id)
AND (tohead_src_warehous_id=itemsite_warehous_id)
AND (toitem_item_id=itemsite_item_id)) ';
END IF;
IF (fetchmetricbool('EnableReturnAuth')) THEN
_query := _query || '
UNION
SELECT raitem_id AS orderitem_id,
''RA'' AS orderitem_orderhead_type,
raitem_rahead_id AS orderitem_orderhead_id,
raitem_linenumber AS orderitem_linenumber,
raitem_status AS orderitem_status,
raitem_itemsite_id AS orderitem_itemsite_id,
raitem_scheddate AS orderitem_scheddate,
raitem_qtyauthorized AS orderitem_qty_ordered,
0 AS orderitem_qty_shipped,
raitem_qtyreceived AS orderitem_qty_received,
raitem_qty_uom_id AS orderitem_qty_uom_id,
raitem_qty_invuomratio AS orderitem_qty_invuomratio,
raitem_unitprice AS orderitem_unitcost,
basecurrid() AS orderitem_unitcost_curr_id,
NULL AS orderitem_freight,
NULL AS orderitem_freight_received,
basecurrid() AS orderitem_freight_curr_id
FROM raitem';
END IF;
FOR _row IN EXECUTE _query
LOOP
RETURN NEXT _row;
END LOOP;
RETURN;
END;
$$;
ALTER FUNCTION public.orderitem() OWNER TO admin;
--
-- Name: orderitemdata(text, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION orderitemdata(text, integer, integer) RETURNS SETOF orderitemtype
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pOrdertype ALIAS FOR $1;
pOrderheadid ALIAS FOR $2;
pOrderitemid ALIAS FOR $3;
_row orderitemtype%ROWTYPE;
_set RECORD;
BEGIN
IF(UPPER(pOrdertype)='PO') THEN
FOR _set IN
SELECT poitem_id AS orderitem_id,
'PO' AS orderitem_orderhead_type,
poitem_pohead_id AS orderitem_orderhead_id,
poitem_linenumber AS orderitem_linenumber,
poitem_status AS orderitem_status,
poitem_itemsite_id AS orderitem_itemsite_id,
poitem_duedate AS orderitem_scheddate,
poitem_qty_ordered AS orderitem_qty_ordered,
poitem_qty_returned AS orderitem_qty_shipped,
poitem_qty_received AS orderitem_qty_received,
uom_id AS orderitem_qty_uom_id,
poitem_invvenduomratio AS orderitem_qty_invuomratio,
poitem_unitprice AS orderitem_unitcost,
(SELECT pohead_curr_id FROM pohead WHERE pohead_id=poitem_pohead_id)
AS orderitem_unitcost_curr_id,
poitem_freight AS orderitem_freight,
poitem_freight_received AS orderitem_freight_received,
(SELECT pohead_curr_id FROM pohead WHERE pohead_id=poitem_pohead_id)
AS orderitem_freight_curr_id
FROM poitem LEFT OUTER JOIN uom ON (uom_name=poitem_vend_uom)
WHERE(((pOrderheadid IS NULL) OR (poitem_pohead_id=pOrderheadid))
AND ((pOrderitemid IS NULL) OR (poitem_id=pOrderitemid))) LOOP
_row.orderitem_id := _set.orderitem_id;
_row.orderitem_orderhead_type := _set.orderitem_orderhead_type;
_row.orderitem_orderhead_id := _set.orderitem_orderhead_id;
_row.orderitem_linenumber := _set.orderitem_linenumber;
_row.orderitem_status := _set.orderitem_status;
_row.orderitem_itemsite_id := _set.orderitem_itemsite_id;
_row.orderitem_scheddate := _set.orderitem_scheddate;
_row.orderitem_qty_ordered := _set.orderitem_qty_ordered;
_row.orderitem_qty_shipped := _set.orderitem_qty_shipped;
_row.orderitem_qty_received := _set.orderitem_qty_received;
_row.orderitem_qty_uom_id := _set.orderitem_qty_uom_id;
_row.orderitem_qty_invuomratio := _set.orderitem_qty_invuomratio;
_row.orderitem_unitcost := _set.orderitem_unitcost;
_row.orderitem_unitcost_curr_id := _set.orderitem_unitcost_curr_id;
_row.orderitem_freight := _set.orderitem_freight;
_row.orderitem_freight_received := _set.orderitem_freight_received;
_row.orderitem_freight_curr_id := _set.orderitem_freight_curr_id;
RETURN NEXT _row;
END LOOP;
ELSEIF(UPPER(pOrdertype)='SO') THEN
FOR _set IN
SELECT coitem_id AS orderitem_id,
'SO' AS orderitem_orderhead_type,
coitem_cohead_id AS orderitem_orderhead_id,
coitem_linenumber AS orderitem_linenumber,
coitem_status AS orderitem_status,
coitem_itemsite_id AS orderitem_itemsite_id,
coitem_scheddate AS orderitem_scheddate,
coitem_qtyord AS orderitem_qty_ordered,
coitem_qtyshipped AS orderitem_qty_shipped,
coitem_qtyreturned AS orderitem_qty_received,
coitem_qty_uom_id AS orderitem_qty_uom_id,
coitem_qty_invuomratio AS orderitem_qty_invuomratio,
coitem_unitcost AS orderitem_unitcost,
basecurrid() AS orderitem_unitcost_curr_id,
NULL AS orderitem_freight,
NULL AS orderitem_freight_received,
basecurrid() AS orderitem_freight_curr_id
FROM coitem
WHERE(((pOrderheadid IS NULL) OR (coitem_cohead_id=pOrderheadid))
AND ((pOrderitemid IS NULL) OR (coitem_id=pOrderitemid))) LOOP
_row.orderitem_id := _set.orderitem_id;
_row.orderitem_orderhead_type := _set.orderitem_orderhead_type;
_row.orderitem_orderhead_id := _set.orderitem_orderhead_id;
_row.orderitem_linenumber := _set.orderitem_linenumber;
_row.orderitem_status := _set.orderitem_status;
_row.orderitem_itemsite_id := _set.orderitem_itemsite_id;
_row.orderitem_scheddate := _set.orderitem_scheddate;
_row.orderitem_qty_ordered := _set.orderitem_qty_ordered;
_row.orderitem_qty_shipped := _set.orderitem_qty_shipped;
_row.orderitem_qty_received := _set.orderitem_qty_received;
_row.orderitem_qty_uom_id := _set.orderitem_qty_uom_id;
_row.orderitem_qty_invuomratio := _set.orderitem_qty_invuomratio;
_row.orderitem_unitcost := _set.orderitem_unitcost;
_row.orderitem_unitcost_curr_id := _set.orderitem_unitcost_curr_id;
_row.orderitem_freight := _set.orderitem_freight;
_row.orderitem_freight_received := _set.orderitem_freight_received;
_row.orderitem_freight_curr_id := _set.orderitem_freight_curr_id;
RETURN NEXT _row;
END LOOP;
ELSEIF(UPPER(pOrdertype)='RA') THEN
FOR _set IN
SELECT raitem_id AS orderitem_id,
'RA' AS orderitem_orderhead_type,
raitem_rahead_id AS orderitem_orderhead_id,
raitem_linenumber AS orderitem_linenumber,
raitem_status AS orderitem_status,
raitem_itemsite_id AS orderitem_itemsite_id,
raitem_scheddate AS orderitem_scheddate,
raitem_qtyauthorized AS orderitem_qty_ordered,
0 AS orderitem_qty_shipped,
raitem_qtyreceived AS orderitem_qty_received,
raitem_qty_uom_id AS orderitem_qty_uom_id,
raitem_qty_invuomratio AS orderitem_qty_invuomratio,
raitem_unitprice AS orderitem_unitcost,
basecurrid() AS orderitem_unitcost_curr_id,
NULL AS orderitem_freight,
NULL AS orderitem_freight_received,
basecurrid() AS orderitem_freight_curr_id
FROM raitem
WHERE(((pOrderheadid IS NULL) OR (raitem_rahead_id=pOrderheadid))
AND ((pOrderitemid IS NULL) OR (raitem_id=pOrderitemid))) LOOP
_row.orderitem_id := _set.orderitem_id;
_row.orderitem_orderhead_type := _set.orderitem_orderhead_type;
_row.orderitem_orderhead_id := _set.orderitem_orderhead_id;
_row.orderitem_linenumber := _set.orderitem_linenumber;
_row.orderitem_status := _set.orderitem_status;
_row.orderitem_itemsite_id := _set.orderitem_itemsite_id;
_row.orderitem_scheddate := _set.orderitem_scheddate;
_row.orderitem_qty_ordered := _set.orderitem_qty_ordered;
_row.orderitem_qty_shipped := _set.orderitem_qty_shipped;
_row.orderitem_qty_received := _set.orderitem_qty_received;
_row.orderitem_qty_uom_id := _set.orderitem_qty_uom_id;
_row.orderitem_qty_invuomratio := _set.orderitem_qty_invuomratio;
_row.orderitem_unitcost := _set.orderitem_unitcost;
_row.orderitem_unitcost_curr_id := _set.orderitem_unitcost_curr_id;
_row.orderitem_freight := _set.orderitem_freight;
_row.orderitem_freight_received := _set.orderitem_freight_received;
_row.orderitem_freight_curr_id := _set.orderitem_freight_curr_id;
RETURN NEXT _row;
END LOOP;
ELSEIF(UPPER(pOrdertype)='TO') THEN
FOR _set IN
SELECT toitem_id AS orderitem_id,
'TO' AS orderitem_orderhead_type,
toitem_tohead_id AS orderitem_orderhead_id,
toitem_linenumber AS orderitem_linenumber,
toitem_status AS orderitem_status,
itemsite_id AS orderitem_itemsite_id,
toitem_duedate AS orderitem_scheddate,
toitem_qty_ordered AS orderitem_qty_ordered,
toitem_qty_shipped AS orderitem_qty_shipped,
toitem_qty_received AS orderitem_qty_received,
uom_id AS orderitem_qty_uom_id,
1 AS orderitem_qty_invuomratio,
toitem_stdcost AS orderitem_unitcost,
basecurrid() AS orderitem_unitcost_curr_id,
toitem_freight AS orderitem_freight,
toitem_freight_received AS orderitem_freight_received,
toitem_freight_curr_id AS orderitem_freight_curr_id
FROM tohead, itemsite, toitem LEFT OUTER JOIN uom ON (uom_name=toitem_uom)
WHERE((toitem_tohead_id=tohead_id)
AND (tohead_src_warehous_id=itemsite_warehous_id)
AND (toitem_item_id=itemsite_item_id)
AND ((pOrderheadid IS NULL) OR (toitem_tohead_id=pOrderheadid))
AND ((pOrderitemid IS NULL) OR (toitem_id=pOrderitemid))) LOOP
_row.orderitem_id := _set.orderitem_id;
_row.orderitem_orderhead_type := _set.orderitem_orderhead_type;
_row.orderitem_orderhead_id := _set.orderitem_orderhead_id;
_row.orderitem_linenumber := _set.orderitem_linenumber;
_row.orderitem_status := _set.orderitem_status;
_row.orderitem_itemsite_id := _set.orderitem_itemsite_id;
_row.orderitem_scheddate := _set.orderitem_scheddate;
_row.orderitem_qty_ordered := _set.orderitem_qty_ordered;
_row.orderitem_qty_shipped := _set.orderitem_qty_shipped;
_row.orderitem_qty_received := _set.orderitem_qty_received;
_row.orderitem_qty_uom_id := _set.orderitem_qty_uom_id;
_row.orderitem_qty_invuomratio := _set.orderitem_qty_invuomratio;
_row.orderitem_unitcost := _set.orderitem_unitcost;
_row.orderitem_unitcost_curr_id := _set.orderitem_unitcost_curr_id;
_row.orderitem_freight := _set.orderitem_freight;
_row.orderitem_freight_received := _set.orderitem_freight_received;
_row.orderitem_freight_curr_id := _set.orderitem_freight_curr_id;
RETURN NEXT _row;
END LOOP;
END IF;
RETURN;
END;
$_$;
ALTER FUNCTION public.orderitemdata(text, integer, integer) OWNER TO admin;
--
-- Name: packageisenabled(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION packageisenabled(integer) RETURNS boolean
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT COUNT(*) >= 8
FROM pg_inherits, pg_class, pg_namespace, pkghead
WHERE ((inhrelid=pg_class.oid)
AND (relnamespace=pg_namespace.oid)
AND (nspname=lower(pkghead_name))
AND (pkghead_id=$1));
$_$;
ALTER FUNCTION public.packageisenabled(integer) OWNER TO admin;
--
-- Name: packageisenabled(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION packageisenabled(text) RETURNS boolean
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT COUNT(*) >= 8
FROM pg_inherits, pg_class, pg_namespace
WHERE ((inhrelid=pg_class.oid)
AND (relnamespace=pg_namespace.oid)
AND (nspname=lower($1)));
$_$;
ALTER FUNCTION public.packageisenabled(text) OWNER TO admin;
--
-- Name: pgp_key_id(bytea); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_key_id(bytea) RETURNS text
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pgp_key_id_w';
ALTER FUNCTION public.pgp_key_id(bytea) OWNER TO admin;
--
-- Name: pgp_pub_decrypt(bytea, bytea); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_pub_decrypt(bytea, bytea) RETURNS text
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pgp_pub_decrypt_text';
ALTER FUNCTION public.pgp_pub_decrypt(bytea, bytea) OWNER TO admin;
--
-- Name: pgp_pub_decrypt(bytea, bytea, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_pub_decrypt(bytea, bytea, text) RETURNS text
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pgp_pub_decrypt_text';
ALTER FUNCTION public.pgp_pub_decrypt(bytea, bytea, text) OWNER TO admin;
--
-- Name: pgp_pub_decrypt(bytea, bytea, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_pub_decrypt(bytea, bytea, text, text) RETURNS text
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pgp_pub_decrypt_text';
ALTER FUNCTION public.pgp_pub_decrypt(bytea, bytea, text, text) OWNER TO admin;
--
-- Name: pgp_pub_decrypt_bytea(bytea, bytea); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_pub_decrypt_bytea(bytea, bytea) RETURNS bytea
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pgp_pub_decrypt_bytea';
ALTER FUNCTION public.pgp_pub_decrypt_bytea(bytea, bytea) OWNER TO admin;
--
-- Name: pgp_pub_decrypt_bytea(bytea, bytea, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_pub_decrypt_bytea(bytea, bytea, text) RETURNS bytea
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pgp_pub_decrypt_bytea';
ALTER FUNCTION public.pgp_pub_decrypt_bytea(bytea, bytea, text) OWNER TO admin;
--
-- Name: pgp_pub_decrypt_bytea(bytea, bytea, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_pub_decrypt_bytea(bytea, bytea, text, text) RETURNS bytea
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pgp_pub_decrypt_bytea';
ALTER FUNCTION public.pgp_pub_decrypt_bytea(bytea, bytea, text, text) OWNER TO admin;
--
-- Name: pgp_pub_encrypt(text, bytea); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_pub_encrypt(text, bytea) RETURNS bytea
LANGUAGE c STRICT
AS '$libdir/pgcrypto', 'pgp_pub_encrypt_text';
ALTER FUNCTION public.pgp_pub_encrypt(text, bytea) OWNER TO admin;
--
-- Name: pgp_pub_encrypt(text, bytea, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_pub_encrypt(text, bytea, text) RETURNS bytea
LANGUAGE c STRICT
AS '$libdir/pgcrypto', 'pgp_pub_encrypt_text';
ALTER FUNCTION public.pgp_pub_encrypt(text, bytea, text) OWNER TO admin;
--
-- Name: pgp_pub_encrypt_bytea(bytea, bytea); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_pub_encrypt_bytea(bytea, bytea) RETURNS bytea
LANGUAGE c STRICT
AS '$libdir/pgcrypto', 'pgp_pub_encrypt_bytea';
ALTER FUNCTION public.pgp_pub_encrypt_bytea(bytea, bytea) OWNER TO admin;
--
-- Name: pgp_pub_encrypt_bytea(bytea, bytea, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_pub_encrypt_bytea(bytea, bytea, text) RETURNS bytea
LANGUAGE c STRICT
AS '$libdir/pgcrypto', 'pgp_pub_encrypt_bytea';
ALTER FUNCTION public.pgp_pub_encrypt_bytea(bytea, bytea, text) OWNER TO admin;
--
-- Name: pgp_sym_decrypt(bytea, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_sym_decrypt(bytea, text) RETURNS text
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pgp_sym_decrypt_text';
ALTER FUNCTION public.pgp_sym_decrypt(bytea, text) OWNER TO admin;
--
-- Name: pgp_sym_decrypt(bytea, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_sym_decrypt(bytea, text, text) RETURNS text
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pgp_sym_decrypt_text';
ALTER FUNCTION public.pgp_sym_decrypt(bytea, text, text) OWNER TO admin;
--
-- Name: pgp_sym_decrypt_bytea(bytea, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_sym_decrypt_bytea(bytea, text) RETURNS bytea
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pgp_sym_decrypt_bytea';
ALTER FUNCTION public.pgp_sym_decrypt_bytea(bytea, text) OWNER TO admin;
--
-- Name: pgp_sym_decrypt_bytea(bytea, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_sym_decrypt_bytea(bytea, text, text) RETURNS bytea
LANGUAGE c IMMUTABLE STRICT
AS '$libdir/pgcrypto', 'pgp_sym_decrypt_bytea';
ALTER FUNCTION public.pgp_sym_decrypt_bytea(bytea, text, text) OWNER TO admin;
--
-- Name: pgp_sym_encrypt(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_sym_encrypt(text, text) RETURNS bytea
LANGUAGE c STRICT
AS '$libdir/pgcrypto', 'pgp_sym_encrypt_text';
ALTER FUNCTION public.pgp_sym_encrypt(text, text) OWNER TO admin;
--
-- Name: pgp_sym_encrypt(text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_sym_encrypt(text, text, text) RETURNS bytea
LANGUAGE c STRICT
AS '$libdir/pgcrypto', 'pgp_sym_encrypt_text';
ALTER FUNCTION public.pgp_sym_encrypt(text, text, text) OWNER TO admin;
--
-- Name: pgp_sym_encrypt_bytea(bytea, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_sym_encrypt_bytea(bytea, text) RETURNS bytea
LANGUAGE c STRICT
AS '$libdir/pgcrypto', 'pgp_sym_encrypt_bytea';
ALTER FUNCTION public.pgp_sym_encrypt_bytea(bytea, text) OWNER TO admin;
--
-- Name: pgp_sym_encrypt_bytea(bytea, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pgp_sym_encrypt_bytea(bytea, text, text) RETURNS bytea
LANGUAGE c STRICT
AS '$libdir/pgcrypto', 'pgp_sym_encrypt_bytea';
ALTER FUNCTION public.pgp_sym_encrypt_bytea(bytea, text, text) OWNER TO admin;
--
-- Name: pkgmaybemodified(name); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION pkgmaybemodified(name) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pschemaname ALIAS FOR $1;
_returnval BOOLEAN;
BEGIN
SELECT pkghead_indev INTO _returnval
FROM pkghead
WHERE (pkghead_name=pschemaname);
IF (NOT FOUND) THEN
RETURN FALSE;
END IF;
RETURN _returnval;
END;
$_$;
ALTER FUNCTION public.pkgmaybemodified(name) OWNER TO admin;
--
-- Name: plpgsql_call_handler(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION plpgsql_call_handler() RETURNS language_handler
LANGUAGE c
AS '$libdir/plpgsql', 'plpgsql_call_handler';
ALTER FUNCTION public.plpgsql_call_handler() OWNER TO admin;
--
-- Name: plpgsql_validator(oid); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION plpgsql_validator(oid) RETURNS void
LANGUAGE c
AS '$libdir/plpgsql', 'plpgsql_validator';
ALTER FUNCTION public.plpgsql_validator(oid) OWNER TO admin;
--
-- Name: postapcheck(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postapcheck(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'postAPCheck() is deprecated - use postCheck() instead';
RETURN postCheck($1, fetchJournalNumber('AP-CK'));
END;
$_$;
ALTER FUNCTION public.postapcheck(integer) OWNER TO admin;
--
-- Name: postapcheck(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postapcheck(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'postAPCheck() is deprecated - use postCheck() instead';
RETURN postCheck($1, $2);
END;
$_$;
ALTER FUNCTION public.postapcheck(integer, integer) OWNER TO admin;
--
-- Name: postapchecks(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postapchecks(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'postAPChecks() is deprecated - use postChecks() instead';
RETURN postChecks($1);
END;
$_$;
ALTER FUNCTION public.postapchecks(integer) OWNER TO admin;
--
-- Name: postapcreditmemoapplication(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postapcreditmemoapplication(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pApopenid ALIAS FOR $1;
_src RECORD;
_r RECORD;
_totalAmount NUMERIC := 0.0;
_exchGain NUMERIC := 0.0;
_apaccntid INTEGER;
BEGIN
SELECT apopen_docnumber, (apopen_amount - apopen_paid) AS balance,
-- SUM(currtocurr(apcreditapply_curr_id, apopen_curr_id,
-- apcreditapply_amount, CURRENT_DATE)) AS toApply,
SUM(apcreditapply_amount) AS toApply,
apopen_curr_rate INTO _src
FROM apopen, apcreditapply
WHERE ( (apcreditapply_source_apopen_id=apopen_id)
AND (apopen_id=pApopenid) )
GROUP BY apopen_docnumber, apopen_amount, apopen_paid,
apopen_curr_rate;
IF (NOT FOUND) THEN
RETURN -1;
ELSIF (_src.toApply = 0) THEN
RETURN -2;
ELSIF (_src.toApply > _src.balance) THEN
RETURN -3;
-- ELSIF (_src.toApply IS NULL AND _src.junk IS NOT NULL) THEN
-- RETURN -4; -- missing exchange rate
ELSIF (_src.toApply IS NULL) THEN
RETURN -6; -- amount to apply is NULL for some unknown reason
END IF;
SELECT apopen_id, apopen_vend_id, apopen_docnumber, apopen_doctype, apopen_amount,
apopen_curr_id, apopen_curr_rate, apopen_docdate, apopen_accnt_id INTO _src
FROM apopen
WHERE (apopen_id=pApopenid);
IF (NOT FOUND) THEN
RETURN -5;
END IF;
FOR _r IN SELECT apcreditapply_id, apcreditapply_target_apopen_id,
apcreditapply_amount AS apply_amountSource,
currToCurr(apcreditapply_curr_id, apopen_curr_id,
apcreditapply_amount, CURRENT_DATE) AS apply_amountTarget,
apopen_id, apopen_doctype, apopen_docnumber, apopen_curr_id, apopen_curr_rate, apopen_docdate
FROM apcreditapply, apopen
WHERE ( (apcreditapply_source_apopen_id=pApopenid)
AND (apcreditapply_target_apopen_id=apopen_id) ) LOOP
IF (_r.apply_amountTarget IS NULL) THEN
RETURN -4; -- missing exchange rate
END IF;
IF (_r.apply_amountTarget > 0) THEN
-- Update the apopen item to post the paid amount
UPDATE apopen
SET apopen_paid = (apopen_paid + _r.apply_amountTarget)
WHERE (apopen_id=_r.apcreditapply_target_apopen_id);
UPDATE apopen
SET apopen_open = false,
apopen_closedate = current_date
WHERE ( (apopen_id=_r.apcreditapply_target_apopen_id)
AND (apopen_amount <= apopen_paid) );
-- Cache the running amount posted
_totalAmount := (_totalAmount + _r.apply_amountSource);
-- Record the application
INSERT INTO apapply
( apapply_vend_id, apapply_amount,
apapply_source_apopen_id, apapply_source_doctype, apapply_source_docnumber,
apapply_target_apopen_id, apapply_target_doctype, apapply_target_docnumber,
apapply_postdate, apapply_journalnumber, apapply_username, apapply_curr_id )
VALUES
( _src.apopen_vend_id, round(_r.apply_amountSource, 2),
pApopenid, 'C', _src.apopen_docnumber,
_r.apopen_id, _r.apopen_doctype, _r.apopen_docnumber,
CURRENT_DATE, 0, getEffectiveXtUser(), _src.apopen_curr_id );
END IF;
-- Delete the posted apcreditapply record
DELETE FROM apcreditapply
WHERE (apcreditapply_id=_r.apcreditapply_id);
END LOOP;
-- Record the amount posted and mark the source apopen as closed if it is completely posted
UPDATE apopen
SET apopen_paid = (apopen_paid + _totalAmount)
WHERE (apopen_id=pApopenid);
UPDATE apopen
SET apopen_open = false,
apopen_closedate = current_date
WHERE ( (apopen_id=pApopenid)
AND (apopen_amount <= apopen_paid) );
IF (_r.apopen_curr_id = _src.apopen_curr_id) THEN
IF (_r.apopen_docdate > _src.apopen_docdate) THEN
_exchGain := (_totalAmount / _r.apopen_curr_rate - _totalAmount / _src.apopen_curr_rate) * -1;
ELSE
_exchGain := _totalAmount / _src.apopen_curr_rate - _totalAmount / _r.apopen_curr_rate;
END IF;
END IF;
IF (_src.apopen_accnt_id > -1) THEN
_apaccntid := _src.apopen_accnt_id;
ELSE
_apaccntid := findAPAccount(_src.apopen_vend_id);
END IF;
PERFORM insertGLTransaction(fetchJournalNumber('AP-MISC'), 'A/P', 'CM',
_src.apopen_docnumber, 'CM Application',
_apaccntid,
getGainLossAccntId(_apaccntid), -1,
_exchGain,
CURRENT_DATE);
RETURN pApopenid;
END;
$_$;
ALTER FUNCTION public.postapcreditmemoapplication(integer) OWNER TO admin;
--
-- Name: postapopenitems(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postapopenitems() RETURNS boolean
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
UPDATE apopen
SET apopen_posted=TRUE
WHERE (NOT apopen_posted);
RETURN TRUE;
END;
$$;
ALTER FUNCTION public.postapopenitems() OWNER TO admin;
--
-- Name: postarcreditmemoapplication(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postarcreditmemoapplication(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAropenid ALIAS FOR $1;
BEGIN
RETURN postARCreditMemoApplication(pAropenid, CURRENT_DATE);
END;
$_$;
ALTER FUNCTION public.postarcreditmemoapplication(integer) OWNER TO admin;
--
-- Name: postarcreditmemoapplication(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postarcreditmemoapplication(integer, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAropenid ALIAS FOR $1;
_applyDate DATE := COALESCE($2, CURRENT_DATE);
_p RECORD;
_r RECORD;
_totalAmount NUMERIC := 0;
_totalTarget NUMERIC := 0;
_exchGain NUMERIC := 0;
_result NUMERIC;
_araccntid INTEGER;
BEGIN
SELECT aropen_docnumber,
ROUND(aropen_amount - aropen_paid, 2) AS balance,
aropen_open, aropen_curr_rate,
ROUND(SUM(currToCurr(arcreditapply_curr_id, aropen_curr_id,
COALESCE(arcreditapply_amount, 0), _applyDate)), 2) AS toApply INTO _p
FROM aropen, arcreditapply
WHERE ( (arcreditapply_source_aropen_id=aropen_id)
AND (aropen_id=pAropenid) )
GROUP BY aropen_docnumber, aropen_amount, aropen_paid, aropen_open, aropen_curr_rate;
IF (NOT FOUND) THEN
RETURN -1;
ELSIF (_p.toApply = 0) THEN
RETURN -2;
ELSIF (_p.toApply > _p.balance) THEN
RETURN -3;
END IF;
SELECT aropen_cust_id, aropen_docnumber, aropen_doctype, aropen_amount,
aropen_curr_id, aropen_docdate, aropen_accnt_id, aropen_cust_id,
aropen_curr_rate INTO _p
FROM aropen
WHERE (aropen_id=pAropenid);
IF (NOT FOUND) THEN
RETURN -5;
END IF;
FOR _r IN SELECT arcreditapply_id, arcreditapply_target_aropen_id,
arcreditapply_amount AS arcreditapply_amountSource,
arcreditapply_reftype, arcreditapply_ref_id,
currToCurr(arcreditapply_curr_id, aropen_curr_id,
arcreditapply_amount, _applyDate) AS arcreditapply_amountTarget,
aropen_id, aropen_doctype, aropen_docnumber, aropen_docdate, aropen_curr_rate
FROM arcreditapply, aropen
WHERE ( (arcreditapply_source_aropen_id=pAropenid)
AND (arcreditapply_target_aropen_id=aropen_id) ) LOOP
IF (_r.arcreditapply_amountTarget IS NULL) THEN
RETURN -4;
END IF;
IF (_r.arcreditapply_amountTarget > 0) THEN
-- Update the aropen item to post the paid amount
UPDATE aropen
SET aropen_paid = round(aropen_paid + _r.arcreditapply_amountTarget, 2)
WHERE (aropen_id=_r.arcreditapply_target_aropen_id);
UPDATE aropen
SET aropen_open = (round(aropen_amount, 2) > round(aropen_paid, 2))
WHERE (aropen_id=_r.arcreditapply_target_aropen_id);
-- Cache the running amount posted
_totalAmount := (_totalAmount + _r.arcreditapply_amountSource);
_totalTarget := (_totalTarget + _r.arcreditapply_amountTarget);
-- Record the application
INSERT INTO arapply
( arapply_cust_id,
arapply_source_aropen_id, arapply_source_doctype, arapply_source_docnumber,
arapply_target_aropen_id, arapply_target_doctype, arapply_target_docnumber,
arapply_fundstype, arapply_refnumber,
arapply_applied, arapply_closed, arapply_postdate, arapply_distdate,
arapply_journalnumber, arapply_username, arapply_curr_id,
arapply_reftype, arapply_ref_id )
VALUES
( _p.aropen_cust_id,
pAropenid, _p.aropen_doctype, _p.aropen_docnumber,
_r.aropen_id, _r.aropen_doctype, _r.aropen_docnumber,
'', '',
round(_r.arcreditapply_amountSource, 2), TRUE, _applyDate, _applyDate,
0, getEffectiveXtUser(), _p.aropen_curr_id,
_r.arcreditapply_reftype, _r.arcreditapply_ref_id );
END IF;
-- Delete the posted arcreditapply record
DELETE FROM arcreditapply
WHERE (arcreditapply_id=_r.arcreditapply_id);
IF (_r.aropen_docdate > _p.aropen_docdate) THEN
_exchGain := (_totalTarget / _r.aropen_curr_rate - _totalAmount / _p.aropen_curr_rate) * -1;
ELSE
_exchGain := _totalAmount / _p.aropen_curr_rate - _totalTarget / _r.aropen_curr_rate;
END IF;
IF (_p.aropen_accnt_id > -1) THEN
_araccntid := _p.aropen_accnt_id;
ELSE
_araccntid := findARAccount(_p.aropen_cust_id);
END IF;
IF (_exchGain <> 0) THEN
PERFORM insertGLTransaction(fetchJournalNumber('AR-MISC'), 'A/R',
'CR', _p.aropen_docnumber, 'CM Application',
_araccntid, getGainLossAccntId(_araccntid),
-1, _exchGain * -1, _applyDate);
END IF;
END LOOP;
-- TODO: If this is a Customer Deposit (aropen_doctype='R')
-- the we need to convert the total to a base transaction
IF(_p.aropen_doctype='R') THEN
SELECT insertGLTransaction(fetchJournalNumber('AR-MISC'), 'A/R',
'CD', _p.aropen_docnumber, 'CM Application',
cr.accnt_id, db.accnt_id,
-1, currToBase(_p.aropen_curr_id, _totalAmount, _p.aropen_docdate),
_applyDate)
INTO _result
FROM accnt AS cr, accnt AS db
WHERE ((db.accnt_id = findDeferredAccount(_p.aropen_cust_id))
AND (cr.accnt_id = findARAccount(_p.aropen_cust_id)) );
IF(NOT FOUND OR _result < 0) THEN
RAISE EXCEPTION 'There was an error posting the Customer Deposit GL Transactions.';
END IF;
END IF;
-- Record the amount posted and mark the source aropen as closed if it is completely posted
UPDATE aropen
SET aropen_paid = round(aropen_paid + _totalAmount, 2)
WHERE (aropen_id=pAropenid);
UPDATE aropen
SET aropen_open = (round(aropen_amount, 2) > round(aropen_paid, 2))
WHERE (aropen_id=pAropenid);
RETURN pAropenid;
END;
$_$;
ALTER FUNCTION public.postarcreditmemoapplication(integer, date) OWNER TO admin;
--
-- Name: postaropenitems(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postaropenitems() RETURNS boolean
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
UPDATE aropen
SET aropen_posted=TRUE
WHERE (NOT aropen_posted);
RETURN TRUE;
END;
$$;
ALTER FUNCTION public.postaropenitems() OWNER TO admin;
--
-- Name: postbankadjustment(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postbankadjustment(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBankadjid ALIAS FOR $1;
_sequence INTEGER;
_r RECORD;
BEGIN
-- Post the G/L transaction
SELECT insertGLTransaction( fetchJournalNumber('GL-MISC'), 'G/L', 'AD',
bankadj_docnumber, (bankadjtype_name || '-' || bankadj_notes),
bankadjtype_accnt_id, bankaccnt_accnt_id, bankadj_id,
round(currToBase(bankaccnt_curr_id,
CASE WHEN(bankadjtype_iscredit) THEN
(bankadj_amount * -1)
ELSE bankadj_amount END,
bankadj_date), 2),
bankadj_date, TRUE, TRUE ) INTO _sequence
FROM bankadj, bankaccnt, bankadjtype
WHERE ( (bankadj_bankaccnt_id=bankaccnt_id)
AND (bankadj_bankadjtype_id=bankadjtype_id)
AND (NOT bankadj_posted)
AND (bankadj_id=pBankadjid) );
IF ( NOT FOUND ) THEN
RETURN -1;
END IF;
IF (_sequence >= 0) THEN
-- Update the bankadj record with this sequence and mark it posted
UPDATE bankadj
SET bankadj_sequence = _sequence,
bankadj_posted = TRUE
WHERE bankadj_id=pBankadjid;
END IF;
RETURN _sequence;
END;
$_$;
ALTER FUNCTION public.postbankadjustment(integer) OWNER TO admin;
--
-- Name: postbankreconciliation(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postbankreconciliation(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBankrecid ALIAS FOR $1;
_accntid INTEGER;
_sequence INTEGER;
_gltransid INTEGER;
_r RECORD;
BEGIN
-- Check the accnt information to make sure it is valid
SELECT accnt_id INTO _accntid
FROM bankrec, bankaccnt, accnt
WHERE ( (bankaccnt_accnt_id=accnt_id)
AND (bankrec_bankaccnt_id=bankaccnt_id)
AND (bankrec_id=pBankrecid) );
IF ( NOT FOUND ) THEN
RETURN -1;
END IF;
-- Delete any bankrecitem records that are not marked as cleared for cleanliness
DELETE FROM bankrecitem
WHERE ( (NOT bankrecitem_cleared)
AND (bankrecitem_bankrec_id=pBankrecid) );
-- Post any bankadj items that were marked as cleared and convert the bankrecitem
FOR _r IN SELECT bankrecitem_id, bankrecitem_source_id
FROM bankrecitem, bankadj
WHERE ( (bankrecitem_source = 'AD')
AND (bankrecitem_source_id=bankadj_id)
AND (bankrecitem_cleared)
AND (NOT bankadj_posted)
AND (bankrecitem_bankrec_id=pBankrecid) ) LOOP
SELECT postBankAdjustment(_r.bankrecitem_source_id) INTO _sequence;
IF (_sequence < 0) THEN
RETURN -10;
END IF;
SELECT gltrans_id INTO _gltransid
FROM gltrans
WHERE ( (gltrans_sequence=_sequence)
AND (gltrans_accnt_id=_accntid) );
IF ( NOT FOUND ) THEN
RETURN -11;
END IF;
UPDATE bankrecitem
SET bankrecitem_source = 'GL',
bankrecitem_source_id=_gltransid
WHERE (bankrecitem_id=_r.bankrecitem_id);
END LOOP;
-- Mark all the gltrans items that have been cleared as reconciled.
UPDATE gltrans
SET gltrans_rec = TRUE
WHERE ( (gltrans_id IN (SELECT bankrecitem_source_id
FROM bankrecitem
WHERE ((bankrecitem_source = 'GL')
AND (bankrecitem_cleared)
AND (bankrecitem_bankrec_id=pBankrecid) ) ) )
AND (gltrans_accnt_id=_accntid) ) ;
-- Mark all the sltrans items that have been cleared as reconciled.
UPDATE sltrans
SET sltrans_rec = TRUE
WHERE ( (sltrans_id IN (SELECT bankrecitem_source_id
FROM bankrecitem
WHERE ((bankrecitem_source = 'SL')
AND (bankrecitem_cleared)
AND (bankrecitem_bankrec_id=pBankrecid) ) ) )
AND (sltrans_accnt_id=_accntid) ) ;
-- Mark the bankrec record as posted
UPDATE bankrec SET
bankrec_posted = TRUE,
bankrec_postdate = now()
WHERE (bankrec_id=pBankrecid);
RETURN pBankrecid;
END;
$_$;
ALTER FUNCTION public.postbankreconciliation(integer) OWNER TO admin;
--
-- Name: postbillingselection(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postbillingselection(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCobmiscid ALIAS FOR $1;
BEGIN
RAISE NOTICE 'postBillingselection(integer) has been deprecated. Please use createInvoice(integer).';
RETURN createInvoice(pCobmiscid);
END;
$_$;
ALTER FUNCTION public.postbillingselection(integer) OWNER TO admin;
--
-- Name: postbillingselectionconsolidated(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postbillingselectionconsolidated(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustid ALIAS FOR $1;
BEGIN
RAISE NOTICE 'postBillingselectionConsolidated(integer) has been deprecated. Please use createInvoiceConsolidated(integer).';
RETURN createInvoiceConsolidated(pCustid);
END;
$_$;
ALTER FUNCTION public.postbillingselectionconsolidated(integer) OWNER TO admin;
--
-- Name: postbillingselections(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postbillingselections() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'postBillingselections() has been deprecated. Please use createInvoices().';
RETURN createInvoices();
END;
$$;
ALTER FUNCTION public.postbillingselections() OWNER TO admin;
--
-- Name: postbillingselections(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postbillingselections(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'postBillingselections(int) has been deprecated. Please use createInvoices(int).';
RETURN createInvoices($1, false);
END;
$_$;
ALTER FUNCTION public.postbillingselections(integer) OWNER TO admin;
--
-- Name: postbillingselections(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postbillingselections(integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCustTypeId ALIAS FOR $1;
pConsolidate ALIAS FOR $2;
BEGIN
RAISE NOTICE 'postBillingselections(int,bool) has been deprecated. Please use createInvoices(int,bool).';
RETURN createInvoices(pCustTypeId, pConsolidate);
END;
$_$;
ALTER FUNCTION public.postbillingselections(integer, boolean) OWNER TO admin;
--
-- Name: postcashreceipt(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postcashreceipt(pcashrcptid integer, pjournalnumber integer) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_ccpayid INTEGER;
_cctype TEXT;
_p RECORD;
_r RECORD;
_t RECORD;
_v RECORD;
_postToAR NUMERIC;
_postToMisc NUMERIC;
_postToCM NUMERIC;
_posted_base NUMERIC := 0;
_posted NUMERIC := 0;
_sequence INTEGER;
_aropenid INTEGER;
_arMemoNumber TEXT;
_arAccntid INTEGER;
_closed BOOLEAN;
_debitAccntid INTEGER;
_exchGain NUMERIC;
_comment TEXT;
_predist BOOLEAN;
_check INTEGER;
BEGIN
_posted := 0;
_posted_base := 0;
SELECT fetchGLSequence() INTO _sequence;
SELECT accnt_id INTO _arAccntid
FROM cashrcpt, accnt, salescat
WHERE ((cashrcpt_salescat_id=salescat_id)
AND (salescat_ar_accnt_id=accnt_id)
AND (cashrcpt_id=pCashrcptid));
IF (NOT FOUND) THEN
SELECT accnt_id INTO _arAccntid
FROM cashrcpt LEFT OUTER JOIN accnt ON (accnt_id=findARAccount(cashrcpt_cust_id))
WHERE ( (findARAccount(cashrcpt_cust_id)=0 OR accnt_id > 0) -- G/L interface might be disabled
AND (cashrcpt_id=pCashrcptid) );
IF (NOT FOUND) THEN
RETURN -5;
END IF;
END IF;
SELECT cashrcpt_cust_id, (cust_number||'-'||cust_name) AS custnote,
cashrcpt_fundstype, cashrcpt_number, cashrcpt_docnumber,
cashrcpt_distdate, cashrcpt_amount, cashrcpt_discount,
(cashrcpt_amount / cashrcpt_curr_rate) AS cashrcpt_amount_base,
(cashrcpt_discount / cashrcpt_curr_rate) AS cashrcpt_discount_base,
cashrcpt_notes,
cashrcpt_bankaccnt_id AS bankaccnt_id,
accnt_id AS prepaid_accnt_id,
cashrcpt_usecustdeposit,
COALESCE(cashrcpt_applydate, cashrcpt_distdate) AS applydate,
cashrcpt_curr_id, cashrcpt_curr_rate, cashrcpt_posted, cashrcpt_void INTO _p
FROM cashrcpt LEFT OUTER JOIN custinfo ON (cashrcpt_cust_id=cust_id)
LEFT OUTER JOIN accnt ON (accnt_id=findPrepaidAccount(cashrcpt_cust_id))
WHERE ( (findPrepaidAccount(cashrcpt_cust_id)=0 OR accnt_id > 0) -- G/L interface might be disabled
AND (cashrcpt_id=pCashrcptid) );
IF (NOT FOUND) THEN
RETURN -7;
END IF;
IF (COALESCE(_p.cashrcpt_distdate > _p.applydate, false)) THEN
RAISE EXCEPTION 'Cannot post cashrcpt % because application date is before distribution date.', _p.cashrcpt_docnumber;
END IF;
IF (COALESCE(_p.cashrcpt_posted, false)) THEN
RAISE EXCEPTION 'Cannot post cashrcpt % because the document has already been posted.', _p.cashrcpt_docnumber;
END IF;
IF (COALESCE(_p.cashrcpt_void, false)) THEN
RAISE EXCEPTION 'Cannot post cashrcpt % because the document has been voided.', _p.cashrcpt_docnumber;
END IF;
_predist := COALESCE(_p.cashrcpt_distdate < _p.applydate, false);
IF (_p.cashrcpt_fundstype IN ('A', 'D', 'M', 'V')) THEN
SELECT ccpay_id, ccpay_type INTO _ccpayid, _cctype
FROM ccpay
WHERE ((ccpay_r_ordernum IN (CAST(pCashrcptid AS TEXT), _p.cashrcpt_docnumber))
AND (ccpay_status IN ('C', 'A')));
IF NOT FOUND THEN
-- the following select seems to work except for xikar - bug 8848. why?
-- raise warning so there is some visibility if people fall into this path.
SELECT ccpay_id, ccpay_type INTO _ccpayid, _cctype
FROM ccpay
WHERE ((ccpay_order_number IN (CAST(pCashrcptid AS TEXT), _p.cashrcpt_docnumber))
AND (ccpay_status IN ('C', 'A')));
IF (NOT FOUND) THEN
RETURN -8;
ELSE
RAISE NOTICE 'PostCashReceipt() found ccpay_id % for order number %/% (ref 8848).',
_ccpayid, pCashrcptid, _p.cashrcpt_docnumber;
END IF;
END IF;
-- If there is a ccpay entry and the card was charged directly, use the prepaid account
IF (_cctype = 'C' ) THEN
_debitAccntid := findPrepaidAccount(_p.cashrcpt_cust_id);
-- If there is a ccpay entry and the card was preauthed and then charged, use the Bank account
ELSE
SELECT accnt_id INTO _debitAccntid
FROM cashrcpt, bankaccnt, accnt
WHERE ( (cashrcpt_bankaccnt_id=bankaccnt_id)
AND (bankaccnt_accnt_id=accnt_id)
AND (cashrcpt_id=pCashrcptid) );
IF (NOT FOUND) THEN
RETURN -6;
END IF;
END IF;
ELSE
SELECT accnt_id INTO _debitAccntid
FROM cashrcpt, bankaccnt, accnt
WHERE ( (cashrcpt_bankaccnt_id=bankaccnt_id)
AND (bankaccnt_accnt_id=accnt_id)
AND (cashrcpt_id=pCashrcptid) );
IF (NOT FOUND) THEN
RETURN -6;
END IF;
END IF;
-- Determine the amount to post to A/R Open Items
SELECT COALESCE(SUM(cashrcptitem_amount), 0) INTO _postToAR
FROM cashrcptitem JOIN aropen ON (aropen_id=cashrcptitem_aropen_id)
WHERE (cashrcptitem_cashrcpt_id=pCashrcptid);
IF (NOT FOUND) THEN
_postToAR := 0;
END IF;
-- Determine the amount to post to Misc. Distributions
SELECT COALESCE(SUM(cashrcptmisc_amount), 0) INTO _postToMisc
FROM cashrcptmisc
WHERE (cashrcptmisc_cashrcpt_id=pCashrcptid);
IF (NOT FOUND) THEN
_postToMisc := 0;
END IF;
-- Determine the amount to post to Discount Credit Memo
SELECT COALESCE(SUM(cashrcptitem_discount), 0) INTO _postToCM
FROM cashrcptitem JOIN aropen ON ( (aropen_id=cashrcptitem_aropen_id) AND (aropen_doctype IN ('I', 'D')) )
WHERE (cashrcptitem_cashrcpt_id=pCashrcptid);
IF (NOT FOUND) THEN
_postToCM := 0;
END IF;
-- Check to see if the C/R is over applied
IF ((_postToAR + _postToMisc) > _p.cashrcpt_amount) THEN
RETURN -1;
END IF;
-- Check to see if the C/R is positive amount
IF (_p.cashrcpt_amount <= 0) THEN
RETURN -2;
END IF;
-- Distribute A/R Applications
FOR _r IN SELECT aropen_id, aropen_doctype, aropen_docnumber, aropen_docdate,
aropen_duedate, aropen_curr_id, aropen_curr_rate, aropen_amount,
round(aropen_amount - aropen_paid, 2) <=
round(currToCurr(_p.cashrcpt_curr_id, aropen_curr_id,abs(cashrcptitem_amount + cashrcptitem_discount),_p.cashrcpt_distdate),2)
AS closed,
cashrcptitem_id, cashrcptitem_amount, cashrcptitem_discount,
(cashrcptitem_amount / _p.cashrcpt_curr_rate) AS cashrcptitem_amount_base,
(cashrcptitem_discount / _p.cashrcpt_curr_rate) AS cashrcptitem_discount_base,
round(aropen_paid +
currToCurr(_p.cashrcpt_curr_id, aropen_curr_id,abs(cashrcptitem_amount),_p.cashrcpt_distdate),2) AS new_paid,
round(currToCurr(_p.cashrcpt_curr_id, aropen_curr_id,cashrcptitem_discount,_p.cashrcpt_distdate),2) AS new_discount
FROM cashrcptitem JOIN aropen ON (aropen_id=cashrcptitem_aropen_id)
WHERE ((cashrcptitem_cashrcpt_id=pCashrcptid)
AND (NOT _predist OR aropen_doctype IN ('C','R'))) LOOP
-- Handle discount
IF (_r.cashrcptitem_discount_base > 0) THEN
PERFORM postCashReceiptDisc(_r.cashrcptitem_id, pJournalNumber);
END IF;
-- Update the aropen item to post the paid amount
UPDATE aropen
SET aropen_paid = _r.new_paid + _r.new_discount,
aropen_open = (NOT _r.closed),
aropen_closedate = CASE WHEN _r.closed THEN _p.cashrcpt_distdate END
WHERE (aropen_id=_r.aropen_id);
-- Cache the running amount posted
_posted_base := _posted_base + _r.cashrcptitem_amount_base;
_posted := _posted + _r.cashrcptitem_amount;
-- Record the cashrcpt application
IF (_r.aropen_doctype IN ('I','D')) THEN
INSERT INTO arapply
( arapply_cust_id,
arapply_source_aropen_id, arapply_source_doctype, arapply_source_docnumber,
arapply_target_aropen_id, arapply_target_doctype, arapply_target_docnumber,
arapply_fundstype, arapply_refnumber, arapply_reftype, arapply_ref_id,
arapply_applied, arapply_closed,
arapply_postdate, arapply_distdate, arapply_journalnumber, arapply_username,
arapply_curr_id )
VALUES
( _p.cashrcpt_cust_id,
-1, 'K', _p.cashrcpt_number,
_r.aropen_id, _r.aropen_doctype, _r.aropen_docnumber,
_p.cashrcpt_fundstype, _p.cashrcpt_docnumber, 'CRA', _r.cashrcptitem_id,
round(_r.cashrcptitem_amount, 2), _r.closed,
_p.applydate, _p.cashrcpt_distdate, pJournalNumber, getEffectiveXtUser(), _p.cashrcpt_curr_id);
ELSE
INSERT INTO arapply
( arapply_cust_id,
arapply_source_aropen_id, arapply_source_doctype, arapply_source_docnumber,
arapply_target_aropen_id, arapply_target_doctype, arapply_target_docnumber,
arapply_fundstype, arapply_refnumber, arapply_reftype, arapply_ref_id,
arapply_applied, arapply_closed, arapply_postdate, arapply_distdate,
arapply_journalnumber, arapply_username, arapply_curr_id )
VALUES
( _p.cashrcpt_cust_id,
_r.aropen_id, _r.aropen_doctype, _r.aropen_docnumber,
-1, 'R', _p.cashrcpt_number,
'', '', 'CRA', _r.cashrcptitem_id,
round(abs(_r.cashrcptitem_amount), 2), _r.closed,
_p.applydate, _p.cashrcpt_distdate, pJournalNumber, getEffectiveXtUser(), _p.cashrcpt_curr_id );
END IF;
_exchGain := arCurrGain(_r.aropen_id,_p.cashrcpt_curr_id, abs(_r.cashrcptitem_amount),
_p.cashrcpt_distdate);
PERFORM insertIntoGLSeries( _sequence, 'A/R', 'CR',
(_r.aropen_doctype || '-' || _r.aropen_docnumber),
CASE WHEN _r.aropen_doctype != 'R' THEN _arAccntid
ELSE findDeferredAccount(_p.cashrcpt_cust_id) END,
round(_r.cashrcptitem_amount_base + _exchGain, 2),
_p.cashrcpt_distdate, _p.custnote, pCashrcptid );
IF (_exchGain <> 0) THEN
PERFORM insertIntoGLSeries(_sequence, 'A/R', 'CR',
_r.aropen_doctype || '-' || _r.aropen_docnumber,
getGainLossAccntId(
CASE WHEN _r.aropen_doctype != 'R' THEN _arAccntid
ELSE findDeferredAccount(_p.cashrcpt_cust_id) END
), round(_exchGain, 2) * -1,
_p.cashrcpt_distdate, _p.custnote, pCashrcptid);
END IF;
END LOOP;
-- Distribute Misc. Applications
FOR _r IN SELECT cashrcptmisc_id, cashrcptmisc_accnt_id, cashrcptmisc_amount,
(cashrcptmisc_amount / cashrcpt_curr_rate) AS cashrcptmisc_amount_base,
cashrcptmisc_notes, cashrcpt_curr_id
FROM cashrcptmisc JOIN
cashrcpt ON (cashrcptmisc_cashrcpt_id = cashrcpt_id)
WHERE (cashrcptmisc_cashrcpt_id=pCashrcptid) LOOP
-- Cache the running amount posted
_posted_base := (_posted_base + _r.cashrcptmisc_amount_base);
_posted := (_posted + _r.cashrcptmisc_amount);
-- Record the cashrcpt application
INSERT INTO arapply
( arapply_cust_id,
arapply_source_aropen_id, arapply_source_doctype, arapply_source_docnumber,
arapply_target_aropen_id, arapply_target_doctype, arapply_target_docnumber,
arapply_fundstype, arapply_refnumber,
arapply_applied, arapply_closed,
arapply_postdate, arapply_distdate, arapply_journalnumber, arapply_username,
arapply_curr_id, arapply_reftype, arapply_ref_id )
VALUES
( _p.cashrcpt_cust_id,
-1, 'K', '',
-1, 'Misc.', '',
_p.cashrcpt_fundstype, _p.cashrcpt_docnumber,
round(_r.cashrcptmisc_amount, 2), TRUE,
_p.applydate, _p.cashrcpt_distdate, pJournalNumber, getEffectiveXtUser(),
_r.cashrcpt_curr_id, 'CRD', _r.cashrcptmisc_id );
PERFORM insertIntoGLSeries( _sequence, 'A/R', 'CR', _r.cashrcptmisc_notes,
_r.cashrcptmisc_accnt_id,
round(_r.cashrcptmisc_amount_base, 2),
_p.cashrcpt_distdate, _p.custnote, pCashrcptid );
END LOOP;
-- Post any remaining Cash to an A/R Cash Despoit (Credit Memo)
-- this credit memo may absorb an occasional currency exchange rounding error
IF (round(_posted_base, 2) < round(_p.cashrcpt_amount_base, 2)) THEN
_comment := ('Unapplied from ' || _p.cashrcpt_fundstype || '-' || _p.cashrcpt_docnumber);
PERFORM insertIntoGLSeries( _sequence, 'A/R', 'CR',
_comment,
_p.prepaid_accnt_id,
round(_p.cashrcpt_amount_base, 2) -
round(_posted_base, 2),
_p.cashrcpt_distdate, _p.custnote, pCashrcptid );
SELECT fetchArMemoNumber() INTO _arMemoNumber;
IF(_p.cashrcpt_usecustdeposit) THEN
-- Post Customer Deposit
SELECT createARCashDeposit(_p.cashrcpt_cust_id, _arMemoNumber, '',
_p.cashrcpt_distdate, (_p.cashrcpt_amount - _posted),
_comment, pJournalNumber, _p.cashrcpt_curr_id) INTO _aropenid;
ELSE
-- Post A/R Credit Memo
_aropenid := createARCreditMemo(NULL, _p.cashrcpt_cust_id, _arMemoNumber, '',
_p.cashrcpt_distdate, (_p.cashrcpt_amount - _posted),
_comment, -1, -1, -1, _p.cashrcpt_distdate, -1, NULL, 0,
pJournalNumber, _p.cashrcpt_curr_id, _arAccntid);
END IF;
IF (_ccpayid IS NOT NULL) THEN
INSERT INTO payaropen (payaropen_ccpay_id, payaropen_aropen_id,
payaropen_amount, payaropen_curr_id
) VALUES (_ccpayid, _aropenid,
_p.cashrcpt_amount, _p.cashrcpt_curr_id);
END IF;
-- Create Cash Receipt Item to capture posting
IF (_predist=false) THEN
INSERT INTO cashrcptitem
( cashrcptitem_cashrcpt_id, cashrcptitem_aropen_id, cashrcptitem_amount, cashrcptitem_applied )
VALUES
( pCashrcptid, _aropenid, (_p.cashrcpt_amount - _posted), false );
END IF;
ELSIF (round(_posted_base, 2) > round((_p.cashrcpt_amount_base), 2)) THEN
PERFORM insertIntoGLSeries(_sequence, 'A/R', 'CR',
'Currency Exchange Rounding - ' || _p.cashrcpt_docnumber,
getGainLossAccntId(_debitAccntid),
round(_posted_base, 2) - round((_p.cashrcpt_amount_base + _p.cashrcpt_discount_base), 2),
_p.cashrcpt_distdate, _p.custnote, pCashrcptid);
END IF;
-- Debit Cash
PERFORM insertIntoGLSeries( _sequence, 'A/R', 'CR',
(_p.cashrcpt_fundstype || '-' || _p.cashrcpt_docnumber),
_debitAccntid, round(_p.cashrcpt_amount_base, 2) * -1,
_p.cashrcpt_distdate,
_p.custnote, pCashrcptid );
PERFORM postGLSeries(_sequence, pJournalNumber);
-- convert the cashrcptitem records to applications against the cm/cd if we are _predist
IF(_predist=true) THEN
FOR _r IN SELECT *
FROM cashrcptitem
WHERE ((cashrcptitem_cashrcpt_id=pCashrcptid)
AND (cashrcptitem_amount > 0)) LOOP
-- Handle discount if applicable
IF (_r.cashrcptitem_discount > 0) THEN
PERFORM postCashReceiptDisc(_r.cashrcptitem_id, pJournalNumber);
END IF;
INSERT INTO arcreditapply (arcreditapply_source_aropen_id, arcreditapply_target_aropen_id,
arcreditapply_amount, arcreditapply_curr_id)
VALUES(_aropenid, _r.cashrcptitem_aropen_id,
_r.cashrcptitem_amount, _p.cashrcpt_curr_id);
_posted := (_posted + _r.cashrcptitem_amount);
END LOOP;
PERFORM postArCreditMemoApplication(_aropenid, _p.applydate);
-- If there is any left over go ahead and create an additional cashrcptitem record for it with the amount
IF (round(_posted, 2) < round(_p.cashrcpt_amount, 2)) THEN
INSERT INTO cashrcptitem
( cashrcptitem_cashrcpt_id, cashrcptitem_aropen_id, cashrcptitem_amount, cashrcptitem_applied )
VALUES
( pCashrcptid, _aropenid, (_p.cashrcpt_amount - _posted), false );
END IF;
END IF;
-- Update the posted cashrcpt
UPDATE cashrcpt SET cashrcpt_posted=TRUE,
cashrcpt_posteddate=CURRENT_DATE,
cashrcpt_postedby=getEffectiveXtUser()
WHERE (cashrcpt_id=pCashrcptid);
RETURN 1;
END;
$$;
ALTER FUNCTION public.postcashreceipt(pcashrcptid integer, pjournalnumber integer) OWNER TO admin;
--
-- Name: postcashreceiptdisc(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postcashreceiptdisc(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCashrcptItemId ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
_r RECORD;
_t RECORD;
_v RECORD;
_ardiscountid INTEGER;
_arMemoNumber TEXT;
_arAccntid INTEGER;
_discountAccntid INTEGER;
_comment TEXT;
_discprcnt NUMERIC;
_check INTEGER;
BEGIN
-- Fetch base records for processing
SELECT aropen_id, aropen_doctype, aropen_amount,
cashrcptitem_discount,
cashrcpt_cust_id, cashrcpt_distdate, cashrcpt_applydate,
cashrcpt_curr_id, cashrcpt_fundstype, cashrcpt_docnumber,
round(currToCurr(cashrcpt_curr_id, aropen_curr_id, cashrcptitem_discount, cashrcpt_distdate),2) AS aropen_discount
INTO _r
FROM cashrcptitem
JOIN cashrcpt ON (cashrcptitem_cashrcpt_id=cashrcpt_id)
JOIN aropen ON ( (aropen_id=cashrcptitem_aropen_id) AND (aropen_doctype IN ('I', 'D')) )
WHERE (cashrcptitem_id=pCashrcptItemId);
-- Get discount account
_discountAccntid := findardiscountaccount(_r.cashrcpt_cust_id);
IF (_r.cashrcptitem_discount > 0) THEN
-- Determine discount percentage
_discprcnt := _r.aropen_discount / _r.aropen_amount;
SELECT fetchArMemoNumber() INTO _arMemoNumber;
_comment := 'Discount Credit from ' || _r.cashrcpt_fundstype || '-' || _r.cashrcpt_docnumber;
-- Create misc credit memo record
_ardiscountid := nextval('aropen_aropen_id_seq');
INSERT INTO aropen (
aropen_id, aropen_docdate, aropen_duedate, aropen_doctype,
aropen_docnumber, aropen_curr_id, aropen_posted, aropen_amount)
VALUES (
_ardiscountid, _r.cashrcpt_distdate, _r.cashrcpt_distdate, 'C',
_arMemoNumber, _r.cashrcpt_curr_id, false,_r.cashrcptitem_discount);
IF (fetchMetricBool('CreditTaxDiscount')) THEN
-- proportional tax credits calculated and implemented for the credit memo generated by the discount
IF (_r.aropen_doctype = 'I') THEN
-- Tax for invoices
SELECT aropen_cobmisc_id AS invcheadid,
invchead_curr_id,
invchead_invcdate INTO _t
FROM aropen
LEFT OUTER JOIN invchead ON (aropen_cobmisc_id = invchead_id)
LEFT OUTER JOIN invcitem ON (invchead_id = invcitem_invchead_id)
WHERE aropen_id = _r.aropen_id;
FOR _v IN SELECT tax_sales_accnt_id,
tax_id,
round(sum(taxdetail_tax), 2) AS tax,
currToBase(_t.invchead_curr_id, round(sum(taxdetail_tax), 2), _t.invchead_invcdate) AS taxbasevalue
FROM tax
JOIN calculateTaxDetailSummary('I', _t.invcheadid, 'T') ON (taxdetail_tax_id=tax_id)
GROUP BY tax_id, tax_sales_accnt_id
LOOP
INSERT INTO aropentax(
taxhist_parent_id, taxhist_taxtype_id, taxhist_tax_id,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_basis)
VALUES (
_ardiscountid, getadjustmenttaxtypeid(), _v.tax_id,
0.00, 0.00, (round((_v.tax * _discprcnt), 2) * -1),
_r.cashrcpt_distdate, 0.00);
END LOOP;
ELSIF (_r.aropen_doctype = 'D') THEN
-- Tax for debit memos
INSERT INTO aropentax(
taxhist_parent_id, taxhist_taxtype_id, taxhist_tax_id,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_basis)
SELECT
_ardiscountid, taxhist_taxtype_id, taxhist_tax_id,
0.00, 0.00, (round((taxhist_tax * _discprcnt), 2) * -1),
_r.cashrcpt_distdate, 0.00
FROM aropentax
WHERE (taxhist_parent_id=_r.aropen_id);
END IF;
END IF; -- End taxes
-- Create credit memo for discount
SELECT createARCreditMemo(_ardiscountid, _r.cashrcpt_cust_id, _arMemoNumber, '',
_r.cashrcpt_distdate, _r.cashrcptitem_discount,
_comment, -1, -1, _discountAccntid, _r.cashrcpt_distdate,
-1, NULL, 0,
pJournalNumber, _r.cashrcpt_curr_id) INTO _ardiscountid;
-- Apply discount credit memo
INSERT INTO arcreditapply (
arcreditapply_source_aropen_id, arcreditapply_target_aropen_id,
arcreditapply_amount, arcreditapply_curr_id )
VALUES (
_ardiscountid, _r.aropen_id, _r.cashrcptitem_discount, _r.cashrcpt_curr_id );
SELECT postARCreditMemoApplication(_ardiscountid, _r.cashrcpt_applydate) INTO _check;
IF (_check < 0) THEN
RAISE EXCEPTION 'Error posting discount credit memo application. Code %', _check;
END IF;
END IF; -- End handle Discount
RETURN 1;
END;
$_$;
ALTER FUNCTION public.postcashreceiptdisc(integer, integer) OWNER TO admin;
--
-- Name: postcccashreceipt(integer, integer, text, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postcccashreceipt(pccpay integer, pdocid integer, pdoctype text DEFAULT NULL::text, pamount numeric DEFAULT NULL::numeric) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_aropenid INTEGER;
_bankaccnt_id INTEGER;
_c RECORD;
_ccOrderDesc TEXT;
_journal INTEGER;
_realaccnt INTEGER;
_return INTEGER := 0;
BEGIN
SELECT * INTO _c
FROM ccpay, ccard, custinfo
WHERE ( (ccpay_id = pCCpay)
AND (ccpay_ccard_id = ccard_id)
AND (ccpay_cust_id = cust_id) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot find the Credit Card transaction information [xtuple: postCCcashReceipt, -11, %]',
pCCpay;
END IF;
IF (pamount IS NOT NULL) THEN
_c.ccpay_amount = pamount;
END IF;
SELECT bankaccnt_id, bankaccnt_accnt_id INTO _bankaccnt_id, _realaccnt
FROM ccbank JOIN bankaccnt ON (ccbank_bankaccnt_id=bankaccnt_id)
WHERE (ccbank_ccard_type=_c.ccard_type);
IF (_bankaccnt_id IS NULL) THEN
RAISE EXCEPTION 'Cannot find the default Bank Account for this Credit Card [xtuple: postCCcredit, -1, %]',
_c.ccard_type;
END IF;
_ccOrderDesc := (_c.ccard_type || '-' || _c.ccpay_order_number::TEXT ||
'-' || _c.ccpay_order_number_seq::TEXT);
_journal := fetchJournalNumber('C/R');
IF (pdoctype = 'cashrcpt') THEN
IF (COALESCE(pdocid, -1) < 0) THEN
INSERT INTO cashrcpt (
cashrcpt_cust_id, cashrcpt_amount, cashrcpt_curr_id,
cashrcpt_fundstype, cashrcpt_docnumber, cashrcpt_notes,
cashrcpt_distdate, cashrcpt_bankaccnt_id,
cashrcpt_usecustdeposit
) VALUES (
_c.ccpay_cust_id, _c.ccpay_amount, _c.ccpay_curr_id,
_c.ccard_type, _c.ccpay_r_ordernum, _ccOrderDesc,
CURRENT_DATE, _bankaccnt_id,
fetchMetricBool('EnableCustomerDeposits'))
RETURNING cashrcpt_id INTO _return;
ELSE
UPDATE cashrcpt
SET cashrcpt_cust_id=_c.ccpay_cust_id,
cashrcpt_amount=_c.ccpay_amount,
cashrcpt_curr_id=_c.ccpay_curr_id,
cashrcpt_fundstype=_c.ccard_type,
cashrcpt_docnumber=_c.ccpay_r_ordernum,
cashrcpt_notes=_ccOrderDesc,
cashrcpt_distdate=CURRENT_DATE,
cashrcpt_bankaccnt_id=_bankaccnt_id
WHERE (cashrcpt_id=pdocid);
_return := pdocid;
END IF;
ELSIF (pdoctype = 'cohead') THEN
SELECT createARCreditMemo(NULL, _c.ccpay_cust_id,
fetchArMemoNumber(), cohead_number,
CURRENT_DATE, _c.ccpay_amount,
'Unapplied from ' || _ccOrderDesc,
NULL, NULL, NULL,
CURRENT_DATE, NULL,
cohead_salesrep_id, NULL,
_journal, _c.ccpay_curr_id,
NULL, pCCpay) INTO _aropenid
FROM cohead
WHERE cohead_id = pdocid;
IF (COALESCE(_aropenid, -1) < 0) THEN -- coalesce handles not-found case
RAISE EXCEPTION '[xtuple: createARCreditMemo, %]', _aropenid;
END IF;
INSERT INTO payaropen (payaropen_ccpay_id, payaropen_aropen_id,
payaropen_amount, payaropen_curr_id)
VALUES (pccpay, _aropenid,
_c.ccpay_amount, _c.ccpay_curr_id);
INSERT INTO aropenalloc (aropenalloc_aropen_id, aropenalloc_doctype, aropenalloc_doc_id,
aropenalloc_amount, aropenalloc_curr_id)
VALUES (_aropenid, 'S', pdocid,
_c.ccpay_amount, _c.ccpay_curr_id);
_return := _aropenid;
END IF;
PERFORM insertGLTransaction(_journal, 'A/R', 'CR', _ccOrderDesc,
('Cash Receipt from Credit Card ' || _c.cust_name),
findPrepaidAccount(_c.ccpay_cust_id),
_realaccnt,
NULL,
ROUND(currToBase(_c.ccpay_curr_id,
_c.ccpay_amount,
_c.ccpay_transaction_datetime::DATE),2),
CURRENT_DATE);
RETURN _return;
END;
$$;
ALTER FUNCTION public.postcccashreceipt(pccpay integer, pdocid integer, pdoctype text, pamount numeric) OWNER TO admin;
--
-- Name: postcccredit(integer, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postcccredit(integer, text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCCpay ALIAS FOR $1;
preftype ALIAS FOR $2;
prefid ALIAS FOR $3;
_c RECORD;
_ccOrderDesc TEXT;
_cglaccnt INTEGER;
_dglaccnt INTEGER;
_glseriesres INTEGER;
_notes TEXT := 'Credit via Credit Card';
_r RECORD;
_sequence INTEGER;
_dmaropenid INTEGER;
BEGIN
IF ((preftype = 'cohead') AND NOT EXISTS(SELECT cohead_id
FROM cohead
WHERE (cohead_id=prefid))) THEN
RAISE EXCEPTION 'Cannot find original Sales Order for this Credit Card credit [xtuple: postCCcredit, -2, %, %, %]',
pCCpay, preftype, prefid;
ELSIF ((preftype = 'aropen') AND NOT EXISTS(SELECT aropen_id
FROM aropen
WHERE (aropen_id=prefid))) THEN
RAISE EXCEPTION 'Cannot find original A/R Open record for this Credit Card credit [xtuple: postCCcredit, -2, %, %, %]',
pCCpay, preftype, prefid;
ELSIF ((preftype = 'cmhead') AND NOT EXISTS(SELECT cmhead_id
FROM cmhead
WHERE cmhead_id=prefid)) THEN
RAISE EXCEPTION 'Cannot find original Credit Memo record for this Credit Card credit [xtuple: postCCcredit, -2, %, %, %]',
pCCpay, preftype, prefid;
END IF;
SELECT * INTO _c
FROM ccpay
JOIN ccard ON (ccpay_ccard_id = ccard_id)
JOIN ccbank ON (ccard_type=ccbank_ccard_type)
WHERE (ccpay_id = pCCpay);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot find the record for this Credit Card credit [xtuple: postCCcredit, -3, %, %, %]',
pCCpay, preftype, prefid;
END IF;
IF (preftype = 'cohead') THEN
_dglaccnt := findPrepaidAccount(_c.ccpay_cust_id);
ELSE
_dglaccnt := findARAccount(_c.ccpay_cust_id);
END IF;
SELECT bankaccnt_accnt_id INTO _cglaccnt
FROM bankaccnt
WHERE (bankaccnt_id=_c.ccbank_bankaccnt_id);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot find the default Bank Account for this Credit Card [xtuple: postCCcredit, -1, %]',
pCCpay;
END IF;
IF (_c.ccpay_type != 'R') THEN
RAISE EXCEPTION 'This Credit Card transaction is not a credit/refund [xtuple: postCCcredit, -4, %]',
pCCpay;
END IF;
_sequence := fetchGLSequence();
IF (_c.ccpay_r_ref IS NOT NULL) THEN
_ccOrderDesc := (_c.ccard_type || '-' || _c.ccpay_r_ref);
ELSE
_ccOrderDesc := (_c.ccard_type || '-' || _c.ccpay_order_number::TEXT ||
'-' || COALESCE(_c.ccpay_order_number_seq::TEXT, ''));
END IF;
_glseriesres := insertIntoGLSeries(_sequence, 'A/R', 'CC', _ccOrderDesc,
_dglaccnt,
ROUND(currToBase(_c.ccpay_curr_id,
_c.ccpay_amount,
_c.ccpay_transaction_datetime::DATE), 2) * -1,
CURRENT_DATE, _notes);
IF (_glseriesres < 0) THEN
RAISE EXCEPTION 'Could not write debit side of Credit Card credit to the G/L [xtuple: insertIntoGLSeries, %]',
_glseriesres;
END IF;
_glseriesres := insertIntoGLSeries(_sequence, 'A/R', 'CC', _ccOrderDesc,
_cglaccnt,
ROUND(currToBase(_c.ccpay_curr_id,
_c.ccpay_amount,
_c.ccpay_transaction_datetime::DATE),2),
CURRENT_DATE, _notes);
IF (_glseriesres < 0) THEN
RAISE EXCEPTION 'Could not write credit side of Credit Card credit to the G/L [xtuple: insertIntoGLSeries, %]',
_glseriesres;
END IF;
_glseriesres := postGLSeries(_sequence, fetchJournalNumber('C/R') );
IF (_glseriesres < 0) THEN
RAISE EXCEPTION 'Could not post Credit Card credit to the G/L [xtuple: postglseries, %]',
_glseriesres;
END IF;
IF (preftype = 'aropen') THEN
SELECT * INTO _r
FROM aropen
WHERE (aropen_id=prefid);
ELSE
SELECT aropen.* INTO _r
FROM ccpay n
JOIN ccpay o ON (o.ccpay_id=n.ccpay_ccpay_id)
JOIN payaropen ON (payaropen_ccpay_id=o.ccpay_id)
JOIN aropen ON (payaropen_aropen_id=aropen_id)
WHERE (n.ccpay_id=pCCpay);
END IF;
IF (FOUND) THEN
SELECT createardebitmemo(
NULL,
_r.aropen_cust_id, NULL, fetchARMemoNumber(),
_r.aropen_ordernumber, current_date, _c.ccpay_amount,
_notes,
-1, -1, -1, CURRENT_DATE, -1, NULL, 0,
_r.aropen_curr_id) INTO _dmaropenid;
IF (_r.aropen_open) THEN
PERFORM applyARCreditMemoToBalance(_r.aropen_id, _dmaropenid);
PERFORM postARCreditMemoApplication(_r.aropen_id);
END IF;
END IF;
IF (preftype = 'cohead') THEN
INSERT INTO payco (
payco_ccpay_id, payco_cohead_id, payco_amount, payco_curr_id
) VALUES (
pCCpay, prefid, 0 - _c.ccpay_amount, _c.ccpay_curr_id
);
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.postcccredit(integer, text, integer) OWNER TO admin;
--
-- Name: postccvoid(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postccvoid(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pccpayid ALIAS FOR $1;
BEGIN
-- for now this is very simple: mark the ccpay record voided.
-- in the future this might be expanded to back out changes to other tables
-- but for now the VOID request is sent to the credit card processing company
-- before those other tables are modified.
UPDATE ccpay SET ccpay_status = 'V' WHERE (ccpay_id=pccpayid);
IF (NOT FOUND) THEN
RETURN -1;
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.postccvoid(integer) OWNER TO admin;
--
-- Name: postcheck(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postcheck(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pcheckid ALIAS FOR $1;
_journalNumber INTEGER := $2;
_amount_base NUMERIC := 0;
_credit_glaccnt INTEGER;
_exchGain NUMERIC := 0;
_exchGainTmp NUMERIC := 0;
_gltransNote TEXT;
_p RECORD;
_r RECORD;
_t RECORD;
_sequence INTEGER;
_test INTEGER;
_cm BOOLEAN;
_amount_check NUMERIC := 0;
BEGIN
_cm := FALSE;
SELECT fetchGLSequence() INTO _sequence;
IF (_journalNumber IS NULL) THEN
_journalNumber := fetchJournalNumber('AP-CK');
END IF;
SELECT checkhead.*,
checkhead_amount / checkhead_curr_rate AS checkhead_amount_base,
bankaccnt_accnt_id AS bankaccntid INTO _p
FROM checkhead
JOIN bankaccnt ON (checkhead_bankaccnt_id=bankaccnt_id)
WHERE (checkhead_id=pcheckid);
IF (FOUND) THEN
IF (_p.checkhead_recip_type = 'V') THEN
SELECT
vend_number AS checkrecip_number,
vend_name AS checkrecip_name,
findAPAccount(vend_id) AS checkrecip_accnt_id,
'A/P'::text AS checkrecip_gltrans_source
INTO _t
FROM vendinfo
WHERE (vend_id=_p.checkhead_recip_id);
ELSIF (_p.checkhead_recip_type = 'C') THEN
SELECT
cust_number AS checkrecip_number,
cust_name AS checkrecip_name,
findARAccount(cust_id) AS checkrecip_accnt_id,
'A/R'::text AS checkrecip_gltrans_source
INTO _t
FROM custinfo
WHERE (cust_id=_p.checkhead_recip_id);
ELSIF (_p.checkhead_recip_type = 'T') THEN
SELECT
taxauth_code AS checkrecip_number,
taxauth_name AS checkrecip_name,
taxauth_accnt_id AS checkrecip_accnt_id,
'G/L'::text AS checkrecip_gltrans_source
INTO _t
FROM taxauth
WHERE (taxauth_id=_p.checkhead_recip_id);
ELSE
RETURN -11;
END IF;
ELSE
RETURN -11;
END IF;
IF (_p.checkhead_posted) THEN
RETURN -10;
END IF;
IF (_p.checkhead_recip_type = 'C') THEN
SELECT checkitem_id FROM checkitem INTO _test
WHERE (checkitem_checkhead_id=pcheckid)
LIMIT 1;
IF (FOUND) THEN
_cm := TRUE;
END IF;
END IF;
_gltransNote := _t.checkrecip_number || '-' || _t.checkrecip_name;
IF (_p.checkhead_misc AND NOT _cm) THEN
IF (COALESCE(_p.checkhead_expcat_id, -1) < 0) THEN
IF (_p.checkhead_recip_type = 'V') THEN
PERFORM createAPCreditMemo( _p.checkhead_recip_id, _journalNumber,
CAST(fetchAPMemoNumber() AS text), '',
_p.checkhead_checkdate, _p.checkhead_amount,
_gltransNote || ' ' || _p.checkhead_notes,
-1, _p.checkhead_checkdate,
-1, _p.checkhead_curr_id );
_credit_glaccnt := findAPPrepaidAccount(_p.checkhead_recip_id);
ELSIF (_p.checkhead_recip_type = 'C') THEN
PERFORM createARDebitMemo(NULL, _p.checkhead_recip_id, NULL,
fetchARMemoNumber(), '',
_p.checkhead_checkdate, _p.checkhead_amount,
_gltransNote || ' ' || _p.checkhead_notes,
-1, -1, -1, _p.checkhead_checkdate, -1, NULL, 0,
_p.checkhead_curr_id );
_credit_glaccnt := findPrepaidAccount(_p.checkhead_recip_id);
ELSIF (_p.checkhead_recip_type = 'T') THEN
-- TODO: should we create a credit memo for the tax authority? how?
_credit_glaccnt := _t.checkrecip_accnt_id;
END IF; -- recip type
ELSE
IF (_cm) THEN
_credit_glaccnt := findARAccount(_p.checkhead_recip_id);
ELSE
SELECT expcat_exp_accnt_id INTO _credit_glaccnt
FROM expcat
WHERE (expcat_id=_p.checkhead_expcat_id);
IF (NOT FOUND) THEN
RETURN -12;
END IF;
END IF;
END IF;
IF (COALESCE(_credit_glaccnt, -1) < 0) THEN
RETURN -13;
END IF;
PERFORM insertIntoGLSeries( _sequence, _t.checkrecip_gltrans_source, 'CK',
CAST(_p.checkhead_number AS TEXT),
_credit_glaccnt,
round(_p.checkhead_amount_base, 2) * -1,
_p.checkhead_checkdate, _gltransNote, pcheckid );
_amount_base := _p.checkhead_amount_base;
ELSE
FOR _r IN SELECT checkitem_amount, checkitem_discount,
CASE WHEN (checkitem_apopen_id IS NOT NULL) THEN
checkitem_amount / apopen_curr_rate
ELSE
currToBase(checkitem_curr_id,
checkitem_amount,
COALESCE(checkitem_docdate, _p.checkhead_checkdate))
END AS checkitem_amount_base,
currTocurr(checkitem_curr_id, _p.checkhead_curr_id,
checkitem_amount,
_p.checkhead_checkdate) AS amount_check,
apopen_id, apopen_doctype, apopen_docnumber,
aropen_id, aropen_doctype, aropen_docnumber,
checkitem_curr_id, checkitem_curr_rate, apopen_curr_rate,
COALESCE(checkitem_docdate, _p.checkhead_checkdate) AS docdate
FROM (checkitem LEFT OUTER JOIN
apopen ON (checkitem_apopen_id=apopen_id)) LEFT OUTER JOIN
aropen ON (checkitem_aropen_id=aropen_id)
WHERE (checkitem_checkhead_id=pcheckid) LOOP
_exchGainTmp := 0;
IF (_r.apopen_id IS NOT NULL) THEN
-- take the discount if specified before we do anything else
IF(_r.checkitem_discount > 0.0) THEN
PERFORM createAPDiscount(_r.apopen_id, _r.checkitem_discount);
END IF;
UPDATE apopen
SET apopen_paid = round(apopen_paid + _r.checkitem_amount, 2),
apopen_open = round(apopen_amount, 2) >
round(apopen_paid + _r.checkitem_amount, 2),
apopen_closedate = CASE WHEN (round(apopen_amount, 2) <=
round(apopen_paid + _r.checkitem_amount, 2)) THEN _p.checkhead_checkdate END
WHERE (apopen_id=_r.apopen_id);
-- Post the application
INSERT INTO apapply
( apapply_vend_id, apapply_postdate, apapply_username,
apapply_source_apopen_id, apapply_source_doctype, apapply_source_docnumber,
apapply_target_apopen_id, apapply_target_doctype, apapply_target_docnumber,
apapply_journalnumber, apapply_amount, apapply_curr_id, apapply_checkhead_id )
VALUES
( _p.checkhead_recip_id, _p.checkhead_checkdate, getEffectiveXtUser(),
-1, 'K', _p.checkhead_number,
_r.apopen_id, _r.apopen_doctype, _r.apopen_docnumber,
_journalNumber, _r.checkitem_amount, _r.checkitem_curr_id, _p.checkhead_id );
END IF; -- if check item's apopen_id is not null
IF (_r.aropen_id IS NOT NULL) THEN
UPDATE aropen
SET aropen_paid = round(aropen_paid + _r.checkitem_amount, 2),
aropen_open = round(aropen_amount, 2) >
round(aropen_paid + _r.checkitem_amount, 2),
aropen_closedate = CASE WHEN (round(aropen_amount, 2) <=
round(aropen_paid + _r.checkitem_amount, 2)) THEN _p.checkhead_checkdate END
WHERE (aropen_id=_r.aropen_id);
-- Post the application
INSERT INTO arapply
( arapply_cust_id, arapply_postdate, arapply_distdate, arapply_username,
arapply_source_aropen_id, arapply_source_doctype, arapply_source_docnumber,
arapply_target_aropen_id, arapply_target_doctype, arapply_target_docnumber,
arapply_journalnumber, arapply_applied, arapply_curr_id )
VALUES
( _p.checkhead_recip_id, _p.checkhead_checkdate, _p.checkhead_checkdate, getEffectiveXtUser(),
_r.aropen_id,_r.aropen_doctype, _r.aropen_docnumber,
-1, 'K',_p.checkhead_number ,
_journalNumber, _r.checkitem_amount, _r.checkitem_curr_id );
END IF; -- if check item's aropen_id is not null
IF (_r.apopen_id IS NOT NULL) THEN
SELECT apCurrGain(_r.apopen_id,_r.checkitem_curr_id, _r.checkitem_amount,
_p.checkhead_checkdate)
INTO _exchGainTmp;
ELSIF (_r.aropen_id IS NOT NULL) THEN
SELECT arCurrGain(_r.aropen_id,_r.checkitem_curr_id, _r.checkitem_amount,
_p.checkhead_checkdate)
INTO _exchGainTmp;
END IF;
_exchGain := _exchGain + _exchGainTmp;
PERFORM insertIntoGLSeries( _sequence, _t.checkrecip_gltrans_source,
'CK', CAST(_p.checkhead_number AS TEXT),
_t.checkrecip_accnt_id,
round(_r.checkitem_amount_base, 2) * -1,
_p.checkhead_checkdate, _gltransNote, pcheckid );
IF (_exchGainTmp <> 0) THEN
PERFORM insertIntoGLSeries( _sequence, _t.checkrecip_gltrans_source,
'CK', CAST(_p.checkhead_number AS TEXT),
getGainLossAccntId(_t.checkrecip_accnt_id), round(_exchGainTmp,2),
_p.checkhead_checkdate, _gltransNote, pcheckid );
END IF;
_amount_check := (_amount_check + _r.amount_check);
_amount_base := (_amount_base + _r.checkitem_amount_base);
END LOOP;
IF( (_amount_check - _p.checkhead_amount) <> 0.0 ) THEN
_exchGainTmp := currToBase(_p.checkhead_curr_id,
_amount_check - _p.checkhead_amount,
_p.checkhead_checkdate);
_exchGain := _exchGain + _exchGainTmp;
END IF;
-- ensure that the check balances, attribute rounding errors to gain/loss
IF round(_amount_base, 2) - round(_exchGain, 2) <> round(_p.checkhead_amount_base, 2) THEN
IF round(_amount_base - _exchGain, 2) = round(_p.checkhead_amount_base, 2) THEN
PERFORM insertIntoGLSeries( _sequence, _t.checkrecip_gltrans_source,
'CK',
CAST(_p.checkhead_number AS TEXT),
getGainLossAccntId(_p.bankaccntid),
round(_amount_base, 2) -
round(_exchGain, 2) -
round(_p.checkhead_amount_base, 2),
_p.checkhead_checkdate, _gltransNote, pcheckid );
ELSE
RAISE EXCEPTION 'checkhead_id % does not balance (% - % <> %)', pcheckid,
_amount_base, _exchGain, _p.checkhead_amount_base;
END IF;
END IF;
END IF;
PERFORM insertIntoGLSeries( _sequence, _t.checkrecip_gltrans_source, 'CK',
CAST(_p.checkhead_number AS TEXT),
_p.bankaccntid,
round(_p.checkhead_amount_base, 2),
_p.checkhead_checkdate, _gltransNote, pcheckid );
PERFORM postGLSeries(_sequence, _journalNumber);
UPDATE checkhead
SET checkhead_posted=TRUE,
checkhead_journalnumber=_journalNumber
WHERE (checkhead_id=pcheckid);
RETURN _journalNumber;
END;
$_$;
ALTER FUNCTION public.postcheck(integer, integer) OWNER TO admin;
--
-- Name: postchecks(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postchecks(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBankaccntid ALIAS FOR $1;
_journalNumber INTEGER;
BEGIN
SELECT fetchJournalNumber('AP-CK') INTO _journalNumber;
PERFORM postCheck(checkhead_id, _journalNumber)
FROM checkhead
WHERE ( (NOT checkhead_void)
AND (NOT checkhead_posted)
AND (checkhead_printed)
AND (checkhead_bankaccnt_id=pBankaccntid) );
RETURN _journalNumber;
END;
$_$;
ALTER FUNCTION public.postchecks(integer) OWNER TO admin;
--
-- Name: postcomment(integer, text, integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postcomment(pcmnttypeid integer, psource text, psourceid integer, ptext text) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
BEGIN
RETURN postComment(pCmnttypeid, pSource, pSourceid, pText, NULL);
END
$$;
ALTER FUNCTION public.postcomment(pcmnttypeid integer, psource text, psourceid integer, ptext text) OWNER TO admin;
--
-- Name: postcomment(integer, text, integer, text, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postcomment(pcmnttypeid integer, psource text, psourceid integer, ptext text, ppublic boolean) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_commentid INTEGER;
_public BOOLEAN;
BEGIN
_public := COALESCE(pPublic, fetchmetricbool('CommentPublicDefault'));
INSERT INTO comment
( comment_cmnttype_id, comment_source, comment_source_id,
comment_date, comment_user, comment_text, comment_public )
VALUES
( pCmnttypeid, pSource, pSourceid,
CURRENT_TIMESTAMP, getEffectiveXtUser(), pText, _public )
RETURNING comment_id INTO _commentid;
RETURN _commentid;
END;
$$;
ALTER FUNCTION public.postcomment(pcmnttypeid integer, psource text, psourceid integer, ptext text, ppublic boolean) OWNER TO admin;
--
-- Name: postcomment(text, text, integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postcomment(pcmnttypename text, psource text, psourceid integer, ptext text) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cmnttypeid INTEGER;
BEGIN
SELECT cmnttype_id INTO _cmnttypeid
FROM cmnttype
WHERE (cmnttype_name=pCmnttypename);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Comment type % not found.', pCmnttypename;
END IF;
RETURN postComment(_cmnttypeid, pSource, pSourceid, pText, NULL);
END
$$;
ALTER FUNCTION public.postcomment(pcmnttypename text, psource text, psourceid integer, ptext text) OWNER TO admin;
--
-- Name: postcost(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postcost(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemcostid ALIAS FOR $1;
_p RECORD;
BEGIN
SELECT round(currToBase(itemcost_curr_id, itemcost_actcost, CURRENT_DATE),6) AS newcost,
itemcost_curr_id, CURRENT_DATE AS effective,
item_number,
itemcost_stdcost AS oldcost INTO _p
FROM itemcost, item
WHERE ((itemcost_item_id=item_id)
AND (itemcost_id=pItemcostid));
IF (_p.newcost IS NULL) THEN
RAISE EXCEPTION 'There is no valid Exchange Rate for this currency. (%, %)',
_p.itemcost_curr_id, _p.effective;
RETURN FALSE;
END IF;
RETURN updateStdCost(pItemcostid, _p.newcost, _p.oldcost, 'Post Cost',
('Post Actual Cost to Standard for item ' || _p.item_number));
END;
$_$;
ALTER FUNCTION public.postcost(integer) OWNER TO admin;
--
-- Name: postcountslip(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postcountslip(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCntslipid ALIAS FOR $1;
_p RECORD;
_comments TEXT;
_temp TEXT;
BEGIN
SELECT itemsite_loccntrl, itemsite_controlmethod,
cntslip_posted, cntslip_lotserial, cntslip_comments,
cntslip_number, cntslip_qty INTO _p
FROM cntslip, invcnt, itemsite
WHERE ( (cntslip_cnttag_id=invcnt_id)
AND (invcnt_itemsite_id=itemsite_id)
AND (cntslip_id=pCntslipid) );
IF (NOT _p.cntslip_posted) THEN
SELECT ( E'\nCount Slip #' || _p.cntslip_number ||
' counted ' || formatQty(_p.cntslip_qty) ) INTO _comments;
-- Add the Location name if the itemsite is MLC
IF (_p.itemsite_loccntrl) THEN
SELECT ( ', Location:' || location_name ) INTO _temp
FROM location, cntslip
WHERE ( (cntslip_location_id=location_id)
AND (cntslip_id=pCntslipid) );
_comments := (_comments || _temp);
END IF;
-- Add the Lot/Serial if the itemsite is Lot or Serial controlled
IF (_p.itemsite_controlmethod = 'L') THEN
_comments := (_comments || ( ', Lot #:' || _p.cntslip_lotserial));
ELSIF (_p.itemsite_controlmethod = 'S') THEN
_comments := (_comments || ( ', Serial #:' || _p.cntslip_lotserial));
END IF;
_comments := (_comments || ' ' || _p.cntslip_comments);
UPDATE cntslip
SET cntslip_posted=TRUE
WHERE (cntslip_id=pCntslipid);
UPDATE invcnt
SET invcnt_qoh_after = ( COALESCE(invcnt_qoh_after, 0) + cntslip_qty),
invcnt_comments = (invcnt_comments || _comments)
FROM cntslip
WHERE ( (cntslip_cnttag_id=invcnt_id)
AND (cntslip_id=pCntslipid) );
RETURN 1;
ELSE
RETURN -1;
END IF;
END;
$_$;
ALTER FUNCTION public.postcountslip(integer) OWNER TO admin;
--
-- Name: postcounttag(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postcounttag(integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pInvcntid ALIAS FOR $1;
pThaw ALIAS FOR $2;
_avgCostingMethod TEXT;
_invhistid INTEGER;
_postDate TIMESTAMP;
_runningQty NUMERIC;
_errorCode INTEGER;
_itemlocSeries INTEGER := 0;
_hasDetail BOOLEAN;
_p RECORD;
_itemloc RECORD;
_cntslip RECORD;
_lsid INTEGER;
BEGIN
SELECT COALESCE(fetchMetricText('CountAvgCostMethod'), 'STD') INTO _avgCostingMethod;
SELECT invcnt_id, invcnt_tagnumber, invcnt_qoh_after,
invcnt_location_id,
item_number,
itemsite_id, itemsite_freeze,
itemsite_qtyonhand,
itemsite_loccntrl, itemsite_location_id,
CASE WHEN (itemsite_costmethod = 'N') THEN 0
WHEN ( (itemsite_costmethod = 'A') AND
(itemsite_qtyonhand = 0) AND
(_avgCostingMethod = 'ACT') ) THEN actcost(itemsite_item_id)
WHEN ( (itemsite_costmethod = 'A') AND
(_avgCostingMethod IN ('ACT', 'AVG')) ) THEN avgcost(itemsite_id)
ELSE stdcost(itemsite_item_id)
END AS cost, itemsite_costmethod,
itemsite_controlmethod,
itemsite_value INTO _p
FROM invcnt, itemsite, item
WHERE ( (invcnt_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (invcnt_qoh_after IS NOT NULL)
AND (NOT invcnt_posted)
AND (invcnt_id=pInvcntid) );
IF (FOUND) THEN
-- If the invcnt_location_id is not null then
-- call a separate function so as not to affect
-- the existing functionality.
IF (_p.invcnt_location_id IS NOT NULL) THEN
RETURN postCountTagLocation(pInvcntid, pThaw);
END IF;
SELECT NEXTVAL('invhist_invhist_id_seq') INTO _invhistid;
IF (_p.itemsite_freeze) THEN
SELECT invcnt_tagdate INTO _postDate
FROM invcnt
WHERE (invcnt_id=pInvcntid) ;
ELSE
_postDate = CURRENT_TIMESTAMP;
END IF;
_hasDetail = FALSE;
-- Post the detail indicated by cntslips
IF ( (_p.itemsite_loccntrl) OR
(_p.itemsite_controlmethod IN ('L', 'S')) ) THEN
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
-- Adjust any existing detail to 0
FOR _itemloc IN SELECT itemloc_id, itemloc_location_id,
itemloc_ls_id, itemloc_qty
FROM itemloc
WHERE (itemloc_itemsite_id=_p.itemsite_id) LOOP
_hasDetail = TRUE;
-- Create the itemlocdist flushing records
INSERT INTO itemlocdist
( itemlocdist_series, itemlocdist_source_type, itemlocdist_source_id,
itemlocdist_expiration,
itemlocdist_itemsite_id, itemlocdist_invhist_id, itemlocdist_flush )
VALUES
( _itemlocSeries, 'I', _itemloc.itemloc_id,
endOfTime(),
_p.itemsite_id, _invhistid, TRUE );
END LOOP;
-- Clear the running detail Qty
_runningQty := 0;
-- Adjust the detail to the cntslip indicated value
FOR _cntslip IN SELECT cntslip_location_id, cntslip_lotserial,
cntslip_lotserial_expiration,
cntslip_lotserial_warrpurc,
SUM(cntslip_qty) AS qty,
itemsite_item_id
FROM cntslip, invcnt, itemsite
WHERE ((cntslip_cnttag_id=pInvcntid)
AND (cntslip_cnttag_id=invcnt_id)
AND (invcnt_itemsite_id=itemsite_id))
GROUP BY cntslip_location_id, cntslip_lotserial,
cntslip_lotserial_expiration, cntslip_lotserial_warrpurc,itemsite_item_id LOOP
-- Handle the LotSerial
IF (LENGTH(_cntslip.cntslip_lotserial)>0) THEN
SELECT ls_id INTO _lsid
FROM ls
WHERE ((ls_item_id=_cntslip.itemsite_item_id)
AND (UPPER(ls_number)=UPPER(_cntslip.cntslip_lotserial)));
IF (NOT FOUND) THEN
_lsid := NEXTVAL('ls_ls_id_seq');
INSERT INTO ls
VALUES (_lsid,_cntslip.itemsite_item_id,UPPER(_cntslip.cntslip_lotserial));
END IF;
END IF;
-- Track the running Qty
_runningQty := (_runningQty + _cntslip.qty);
_hasDetail = TRUE;
-- Create the itemlocdist populating record
INSERT INTO itemlocdist
( itemlocdist_series, itemlocdist_source_type, itemlocdist_source_id,
itemlocdist_itemsite_id,
itemlocdist_ls_id, itemlocdist_expiration, itemlocdist_warranty,
itemlocdist_qty, itemlocdist_invhist_id )
VALUES
( _itemlocSeries, 'L', _cntslip.cntslip_location_id,
_p.itemsite_id,
_lsid, COALESCE(_cntslip.cntslip_lotserial_expiration, endOfTime()),
_cntslip.cntslip_lotserial_warrpurc,_cntslip.qty, _invhistid );
END LOOP;
IF (_runningQty > _p.invcnt_qoh_after) THEN
-- The total Count Slip Qty is greater than the Count Tag Qty,
-- Don't post the Count.
_errorCode = -1;
ELSIF ( (_runningQty < _p.invcnt_qoh_after) AND
(_p.itemsite_controlmethod IN ('L', 'S')) ) THEN
-- The total Count Slip Qty is less than the Count Tag Qty,
-- and the Item Site is Lot/Serial controlled.
-- Don't post the Count.
_errorCode = -2;
ELSIF (_runningQty < _p.invcnt_qoh_after) THEN
IF ( (NOT _p.itemsite_loccntrl) OR
(_p.itemsite_location_id = -1) ) THEN
-- The total Count Slip Qty is less than the Count Tag Qty,
-- and there isn't a default location to post into.
-- Don't post the Count.
_errorCode = -3;
ELSIF ( SELECT (metric_value='f')
FROM metric
WHERE (metric_name='PostCountTagToDefault') ) THEN
-- The total Count Slip Qty is less than the Count Tag Qty,
-- and we don't post Count Tags to default Locations
-- Don't post the Count.
_errorCode = -4;
ELSE
-- Distribute the remaining qty into the default location.
INSERT INTO itemlocdist
( itemlocdist_series, itemlocdist_source_type, itemlocdist_source_id,
itemlocdist_itemsite_id,
itemlocdist_expiration,
itemlocdist_qty, itemlocdist_invhist_id )
SELECT _itemlocSeries, 'L', _p.itemsite_location_id,
_p.itemsite_id,
endOfTime(),
(_p.invcnt_qoh_after - _runningQty), _invhistid;
_hasDetail = TRUE;
_errorCode = 0;
END IF;
ELSE
-- The Count Slip Qty. must equal the Count Tag Qty.
_errorCode = 0;
END IF;
-- If we shouldn't post the count then delete the itemlocdist records,
-- and return with the error.
IF (_errorCode <> 0) THEN
DELETE FROM itemlocdist
WHERE (itemlocdist_series=_itemlocSeries);
RETURN _errorCode;
END IF;
END IF;
-- Mod. the Count Tag.
UPDATE invcnt
SET invcnt_qoh_before=_p.itemsite_qtyonhand,
invcnt_postdate=_postDate,
invcnt_posted=TRUE,
invcnt_invhist_id=_invhistid,
invcnt_post_username=getEffectiveXtUser()
WHERE (invcnt_id=pInvcntid);
-- Create the CC transaction
INSERT INTO invhist
( invhist_id, invhist_itemsite_id,
invhist_transdate, invhist_transtype, invhist_invqty,
invhist_qoh_before, invhist_qoh_after,
invhist_docnumber, invhist_comments,
invhist_invuom, invhist_unitcost, invhist_hasdetail,
invhist_costmethod, invhist_value_before, invhist_value_after,
invhist_series )
SELECT _invhistid, itemsite_id,
_postDate, 'CC', (invcnt_qoh_after - invcnt_qoh_before),
invcnt_qoh_before, invcnt_qoh_after,
invcnt_tagnumber, invcnt_comments,
uom_name, _p.cost, _hasDetail,
_p.itemsite_costmethod, _p.itemsite_value,
_p.itemsite_value + (_p.cost * (invcnt_qoh_after - invcnt_qoh_before)),
_itemlocSeries
FROM itemsite, invcnt, item, uom
WHERE ( (invcnt_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (item_inv_uom_id=uom_id)
AND (itemsite_controlmethod <> 'N')
AND (invcnt_id=pInvcntid) );
IF ( SELECT metric_value
FROM metric
WHERE ((metric_name = 'EnableAsOfQOH')
AND (metric_value = 't'))) THEN
IF (NOT postIntoInvBalance(_invhistid)) THEN
RAISE EXCEPTION 'Post into Inventory Balance for invhist_id=% was unsuccessful',_invhistid;
END IF;
END IF;
-- Update the QOH
-- Avoid negative value when average cost item
UPDATE itemsite
SET itemsite_qtyonhand=_p.invcnt_qoh_after,
itemsite_nnqoh = 0,
itemsite_value = CASE WHEN ((itemsite_costmethod='A') AND (_p.itemsite_value + (_p.cost * (_p.invcnt_qoh_after - itemsite_qtyonhand))) < 0.0) THEN 0.0
ELSE (_p.itemsite_value + (_p.cost * (_p.invcnt_qoh_after - itemsite_qtyonhand)))
END,
itemsite_datelastcount=_postDate
WHERE (itemsite_id=_p.itemsite_id);
-- Post the detail, if any
IF (_hasDetail) THEN
PERFORM distributeItemlocSeries(_itemlocSeries);
END IF;
-- Thaw the itemsite if it's frozen
IF (pThaw) THEN
PERFORM thawItemSite(invcnt_itemsite_id)
FROM invcnt
WHERE (invcnt_id=pInvcntid);
END IF;
-- Distribute to G/L
PERFORM insertGLTransaction( 'I/M', 'CT', _p.invcnt_tagnumber, ('Post Count Tag #' || _p.invcnt_tagnumber || ' for Item ' || _p.item_number),
costcat_adjustment_accnt_id, costcat_asset_accnt_id, _invhistid,
( (_p.invcnt_qoh_after - _p.itemsite_qtyonhand) * _p.cost), _postDate::DATE )
FROM invcnt, itemsite, costcat
WHERE ( (invcnt_itemsite_id=itemsite_id)
AND (itemsite_costcat_id=costcat_id)
AND (invcnt_id=pInvcntid) );
RETURN 0;
ELSE
RETURN -9;
END IF;
END;
$_$;
ALTER FUNCTION public.postcounttag(integer, boolean) OWNER TO admin;
--
-- Name: postcounttaglocation(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postcounttaglocation(integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pInvcntid ALIAS FOR $1;
pThaw ALIAS FOR $2;
_avgCostingMethod TEXT;
_invhistid INTEGER;
_postDate TIMESTAMP;
_runningQty NUMERIC;
_errorCode INTEGER;
_itemlocSeries INTEGER := 0;
_hasDetail BOOLEAN;
_p RECORD;
_itemloc RECORD;
_cntslip RECORD;
_origLocQty NUMERIC;
_netable BOOLEAN;
_lsid INTEGER;
BEGIN
SELECT COALESCE(fetchMetricText('CountAvgCostMethod'), 'STD') INTO _avgCostingMethod;
SELECT invcnt_id, invcnt_tagnumber, invcnt_qoh_after,
invcnt_location_id, invcnt_tagdate,
item_number,
itemsite_id, itemsite_freeze,
itemsite_qtyonhand,
itemsite_loccntrl, COALESCE(invcnt_location_id, -1) AS itemsite_location_id,
CASE WHEN (itemsite_costmethod = 'N') THEN 0
WHEN ( (itemsite_costmethod = 'A') AND
(itemsite_qtyonhand = 0) AND
(_avgCostingMethod = 'ACT') ) THEN actcost(itemsite_item_id)
WHEN ( (itemsite_costmethod = 'A') AND
(_avgCostingMethod IN ('ACT', 'AVG')) ) THEN avgcost(itemsite_id)
ELSE stdcost(itemsite_item_id)
END AS cost, itemsite_costmethod,
itemsite_controlmethod, itemsite_value INTO _p
FROM invcnt, itemsite, item
WHERE ( (invcnt_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (invcnt_qoh_after IS NOT NULL)
AND (NOT invcnt_posted)
AND (invcnt_id=pInvcntid) );
IF (NOT FOUND) THEN
RETURN -9;
END IF;
SELECT COALESCE(SUM(itemloc_qty),0.0), location_netable INTO _origLocQty,_netable
FROM itemloc,location
WHERE ((itemloc_itemsite_id=_p.itemsite_id)
AND (location_id=itemloc_location_id)
AND (itemloc_location_id=_p.invcnt_location_id))
GROUP BY location_netable;
IF (NOT FOUND) THEN
_origLocQty := 0.0;
_netable := TRUE;
END IF;
SELECT NEXTVAL('invhist_invhist_id_seq') INTO _invhistid;
IF (_p.itemsite_freeze) THEN
_postDate := _p.invcnt_tagdate;
ELSE
_postDate := CURRENT_TIMESTAMP;
END IF;
_hasDetail = FALSE;
-- Post the detail indicated by cntslips
IF ( (_p.itemsite_loccntrl) OR
(_p.itemsite_controlmethod IN ('L', 'S')) ) THEN
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
-- Adjust any existing detail to 0
FOR _itemloc IN SELECT itemloc_id, itemloc_location_id,
itemloc_ls_id, itemloc_qty
FROM itemloc
WHERE ((itemloc_itemsite_id=_p.itemsite_id)
AND (itemloc_location_id=_p.invcnt_location_id)) LOOP
_hasDetail = TRUE;
-- Create the itemlocdist flushing records
INSERT INTO itemlocdist
( itemlocdist_series, itemlocdist_source_type, itemlocdist_source_id,
itemlocdist_expiration,
itemlocdist_itemsite_id, itemlocdist_invhist_id, itemlocdist_flush )
VALUES
( _itemlocSeries, 'I', _itemloc.itemloc_id,
endOfTime(),
_p.itemsite_id, _invhistid, TRUE );
END LOOP;
-- Clear the running detail Qty
_runningQty := 0;
-- Adjust the detail to the cntslip indicated value
FOR _cntslip IN SELECT cntslip_location_id, cntslip_lotserial,
cntslip_lotserial_expiration,
cntslip_lotserial_warrpurc,
SUM(cntslip_qty) AS qty,
itemsite_item_id
FROM cntslip,invcnt,itemsite
WHERE ((cntslip_cnttag_id=pInvcntid)
AND (cntslip_cnttag_id=invcnt_id)
AND (invcnt_itemsite_id=itemsite_id))
GROUP BY cntslip_location_id, cntslip_lotserial, cntslip_lotserial_expiration,
cntslip_lotserial_warrpurc, itemsite_item_id LOOP
-- Handle the LotSerial
IF (LENGTH(_cntslip.cntslip_lotserial)>0) THEN
SELECT ls_id INTO _lsid
FROM ls
WHERE ((ls_item_id=_cntslip.itemsite_item_id)
AND (UPPER(ls_number)=UPPER(_cntslip.cntslip_lotserial)));
IF (NOT FOUND) THEN
_lsid := NEXTVAL('ls_ls_id_seq');
INSERT INTO ls
VALUES (_lsid,_cntslip.itemsite_item_id,UPPER(_cntslip.cntslip_lotserial));
END IF;
END IF;
-- Track the running Qty
_runningQty := (_runningQty + _cntslip.qty);
_hasDetail = TRUE;
-- Create the itemlocdist populating record
INSERT INTO itemlocdist
( itemlocdist_series, itemlocdist_source_type, itemlocdist_source_id,
itemlocdist_itemsite_id,
itemlocdist_ls_id, itemlocdist_expiration, itemlocdist_warranty,
itemlocdist_qty, itemlocdist_invhist_id )
VALUES
( _itemlocSeries, 'L', _cntslip.cntslip_location_id,
_p.itemsite_id,
_lsid, COALESCE(_cntslip.cntslip_lotserial_expiration, endOfTime()),
_cntslip.cntslip_lotserial_warrpurc,
_cntslip.qty, _invhistid );
END LOOP;
IF (_runningQty > _p.invcnt_qoh_after) THEN
-- The total Count Slip Qty is greater than the Count Tag Qty,
-- Don't post the Count.
_errorCode = -1;
ELSIF ( (_runningQty < _p.invcnt_qoh_after) AND
(_p.itemsite_controlmethod IN ('L', 'S')) ) THEN
-- The total Count Slip Qty is less than the Count Tag Qty,
-- and the Item Site is Lot/Serial controlled.
-- Don't post the Count.
_errorCode = -2;
ELSIF (_runningQty < _p.invcnt_qoh_after) THEN
IF ( (NOT _p.itemsite_loccntrl) OR
(_p.itemsite_location_id = -1) ) THEN
-- The total Count Slip Qty is less than the Count Tag Qty,
-- and there isn't a default location to post into.
-- Don't post the Count.
_errorCode = -3;
ELSIF ( SELECT (metric_value='f')
FROM metric
WHERE (metric_name='PostCountTagToDefault') ) THEN
-- The total Count Slip Qty is less than the Count Tag Qty,
-- and we don't post Count Tags to default Locations
-- Don't post the Count.
_errorCode = -4;
ELSE
-- Distribute the remaining qty into the default location.
INSERT INTO itemlocdist
( itemlocdist_series, itemlocdist_source_type, itemlocdist_source_id,
itemlocdist_itemsite_id,
itemlocdist_ls_id, itemlocdist_expiration,
itemlocdist_qty, itemlocdist_invhist_id )
SELECT _itemlocSeries, 'L', _p.itemsite_location_id,
_p.itemsite_id,
_lsid, endOfTime(),
(_p.invcnt_qoh_after - _runningQty), _invhistid;
_hasDetail = TRUE;
_errorCode = 0;
END IF;
ELSE
-- The Count Slip Qty. must equal the Count Tag Qty.
_errorCode = 0;
END IF;
-- If we shouldn't post the count then delete the itemlocdist records,
-- and return with the error.
IF (_errorCode <> 0) THEN
DELETE FROM itemlocdist
WHERE (itemlocdist_series=_itemlocSeries);
RETURN _errorCode;
END IF;
END IF;
-- Mod. the Count Tag.
UPDATE invcnt
SET invcnt_qoh_before=_origLocQty,
invcnt_postdate=_postDate,
invcnt_posted=TRUE,
invcnt_invhist_id=_invhistid,
invcnt_post_username=getEffectiveXtUser()
WHERE (invcnt_id=pInvcntid);
-- Create the CC transaction
INSERT INTO invhist
( invhist_id, invhist_itemsite_id,
invhist_transdate, invhist_transtype, invhist_invqty,
invhist_qoh_before, invhist_qoh_after,
invhist_docnumber, invhist_comments,
invhist_invuom, invhist_unitcost, invhist_hasdetail,
invhist_costmethod, invhist_value_before, invhist_value_after,
invhist_series )
SELECT _invhistid, itemsite_id,
_postDate, 'CC', (invcnt_qoh_after - invcnt_qoh_before),
invcnt_qoh_before, invcnt_qoh_after,
invcnt_tagnumber, invcnt_comments,
uom_name, _p.cost, _hasDetail,
_p.itemsite_costmethod, _p.itemsite_value,
_p.itemsite_value + (_p.cost * (invcnt_qoh_after - invcnt_qoh_before)),
_itemlocSeries
FROM itemsite, invcnt, item, uom
WHERE ( (invcnt_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (item_inv_uom_id=uom_id)
AND (itemsite_controlmethod <> 'N')
AND (invcnt_id=pInvcntid) );
-- Update the QOH
IF (_netable) THEN
UPDATE itemsite
SET itemsite_qtyonhand= itemsite_qtyonhand + (_p.invcnt_qoh_after - _origLocQty),
itemsite_datelastcount=_postDate
WHERE (itemsite_id=_p.itemsite_id);
ELSE
UPDATE itemsite
SET itemsite_nnqoh = itemsite_nnqoh - _origLocQty,
itemsite_qtyonhand = itemsite_qtyonhand + _p.invcnt_qoh_after,
itemsite_datelastcount=_postDate
WHERE (itemsite_id=_p.itemsite_id);
END IF;
-- Post the detail, if any
IF (_hasDetail) THEN
PERFORM distributeItemlocSeries(_itemlocSeries);
END IF;
-- Thaw the itemsite if it's frozen
IF (pThaw) THEN
PERFORM thawItemSite(invcnt_itemsite_id)
FROM invcnt
WHERE (invcnt_id=pInvcntid);
END IF;
-- Distribute to G/L
PERFORM insertGLTransaction( 'I/M', 'CT', _p.invcnt_tagnumber, ('Post Count Tag #' || _p.invcnt_tagnumber || ' for Item ' || _p.item_number),
costcat_adjustment_accnt_id, costcat_asset_accnt_id, _invhistid,
( (_p.invcnt_qoh_after - _origLocQty) * _p.cost), CURRENT_DATE )
FROM invcnt, itemsite, costcat
WHERE ( (invcnt_itemsite_id=itemsite_id)
AND (itemsite_costcat_id=costcat_id)
AND (invcnt_id=pInvcntid) );
RETURN 0;
END;
$_$;
ALTER FUNCTION public.postcounttaglocation(integer, boolean) OWNER TO admin;
--
-- Name: postcounttaglocation(integer, boolean, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postcounttaglocation(integer, boolean, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
DECLARE
pInvcntid ALIAS FOR $1;
pThaw ALIAS FOR $2;
pAvgCostingMethod ALIAS FOR $3;
_invhistid INTEGER;
_postDate TIMESTAMP;
_runningQty NUMERIC;
_errorCode INTEGER;
_itemlocSeries INTEGER := 0;
_hasDetail BOOLEAN;
_p RECORD;
_itemloc RECORD;
_cntslip RECORD;
_origLocQty NUMERIC;
_netable BOOLEAN;
_lsid INTEGER;
BEGIN
SELECT invcnt_id, invcnt_tagnumber, invcnt_qoh_after,
invcnt_location_id, invcnt_tagdate,
item_number,
itemsite_id, itemsite_freeze,
itemsite_qtyonhand,
itemsite_loccntrl, COALESCE(invcnt_location_id, -1) AS itemsite_location_id,
CASE WHEN (itemsite_costmethod = 'N') THEN 0
WHEN ( (itemsite_costmethod = 'A') AND
(itemsite_qtyonhand = 0) AND
(pAvgCostingMethod = 'ACT') ) THEN actcost(itemsite_item_id)
WHEN ( (itemsite_costmethod = 'A') AND
(pAvgCostingMethod IN ('ACT', 'AVG')) ) THEN avgcost(itemsite_id)
ELSE stdcost(itemsite_item_id)
END AS cost, itemsite_costmethod,
itemsite_controlmethod, itemsite_value INTO _p
FROM invcnt, itemsite, item
WHERE ( (invcnt_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (invcnt_qoh_after IS NOT NULL)
AND (NOT invcnt_posted)
AND (invcnt_id=pInvcntid) );
IF (NOT FOUND) THEN
RETURN -9;
END IF;
SELECT COALESCE(SUM(itemloc_qty),0.0), location_netable INTO _origLocQty,_netable
FROM itemloc,location
WHERE ((itemloc_itemsite_id=_p.itemsite_id)
AND (location_id=itemloc_location_id)
AND (itemloc_location_id=_p.invcnt_location_id))
GROUP BY location_netable;
IF (NOT FOUND) THEN
_origLocQty := 0.0;
_netable := TRUE;
END IF;
SELECT NEXTVAL('invhist_invhist_id_seq') INTO _invhistid;
IF (_p.itemsite_freeze) THEN
_postDate := _p.invcnt_tagdate;
ELSE
_postDate := CURRENT_TIMESTAMP;
END IF;
_hasDetail = FALSE;
-- Post the detail indicated by cntslips
IF ( (_p.itemsite_loccntrl) OR
(_p.itemsite_controlmethod IN ('L', 'S')) ) THEN
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
-- Adjust any existing detail to 0
FOR _itemloc IN SELECT itemloc_id, itemloc_location_id,
itemloc_ls_id, itemloc_qty
FROM itemloc
WHERE ((itemloc_itemsite_id=_p.itemsite_id)
AND (itemloc_location_id=_p.invcnt_location_id)) LOOP
_hasDetail = TRUE;
-- Create the itemlocdist flushing records
INSERT INTO itemlocdist
( itemlocdist_series, itemlocdist_source_type, itemlocdist_source_id,
itemlocdist_expiration,
itemlocdist_itemsite_id, itemlocdist_invhist_id, itemlocdist_flush )
VALUES
( _itemlocSeries, 'I', _itemloc.itemloc_id,
endOfTime(),
_p.itemsite_id, _invhistid, TRUE );
END LOOP;
-- Clear the running detail Qty
_runningQty := 0;
-- Adjust the detail to the cntslip indicated value
FOR _cntslip IN SELECT cntslip_location_id, cntslip_lotserial,
cntslip_lotserial_expiration,
cntslip_lotserial_warrpurc,
SUM(cntslip_qty) AS qty,
itemsite_item_id
FROM cntslip,invcnt,itemsite
WHERE ((cntslip_cnttag_id=pInvcntid)
AND (cntslip_cnttag_id=invcnt_id)
AND (invcnt_itemsite_id=itemsite_id))
GROUP BY cntslip_location_id, cntslip_lotserial, cntslip_lotserial_expiration,
cntslip_lotserial_warrpurc, itemsite_item_id LOOP
-- Handle the LotSerial
IF (LENGTH(_cntslip.cntslip_lotserial)>0) THEN
SELECT ls_id INTO _lsid
FROM ls
WHERE ((ls_item_id=_cntslip.itemsite_item_id)
AND (UPPER(ls_number)=UPPER(_cntslip.cntslip_lotserial)));
IF (NOT FOUND) THEN
_lsid := NEXTVAL('ls_ls_id_seq');
INSERT INTO ls
VALUES (_lsid,_cntslip.itemsite_item_id,UPPER(_cntslip.cntslip_lotserial));
END IF;
END IF;
-- Track the running Qty
_runningQty := (_runningQty + _cntslip.qty);
_hasDetail = TRUE;
-- Create the itemlocdist populating record
INSERT INTO itemlocdist
( itemlocdist_series, itemlocdist_source_type, itemlocdist_source_id,
itemlocdist_itemsite_id,
itemlocdist_ls_id, itemlocdist_expiration, itemlocdist_warranty,
itemlocdist_qty, itemlocdist_invhist_id )
VALUES
( _itemlocSeries, 'L', _cntslip.cntslip_location_id,
_p.itemsite_id,
_lsid, COALESCE(_cntslip.cntslip_lotserial_expiration, endOfTime()),
_cntslip.cntslip_lotserial_warrpurc,
_cntslip.qty, _invhistid );
END LOOP;
IF (_runningQty > _p.invcnt_qoh_after) THEN
-- The total Count Slip Qty is greater than the Count Tag Qty,
-- Don't post the Count.
_errorCode = -1;
ELSIF ( (_runningQty < _p.invcnt_qoh_after) AND
(_p.itemsite_controlmethod IN ('L', 'S')) ) THEN
-- The total Count Slip Qty is less than the Count Tag Qty,
-- and the Item Site is Lot/Serial controlled.
-- Don't post the Count.
_errorCode = -2;
ELSIF (_runningQty < _p.invcnt_qoh_after) THEN
IF ( (NOT _p.itemsite_loccntrl) OR
(_p.itemsite_location_id = -1) ) THEN
-- The total Count Slip Qty is less than the Count Tag Qty,
-- and there isn't a default location to post into.
-- Don't post the Count.
_errorCode = -3;
ELSIF ( SELECT (metric_value='f')
FROM metric
WHERE (metric_name='PostCountTagToDefault') ) THEN
-- The total Count Slip Qty is less than the Count Tag Qty,
-- and we don't post Count Tags to default Locations
-- Don't post the Count.
_errorCode = -4;
ELSE
-- Distribute the remaining qty into the default location.
INSERT INTO itemlocdist
( itemlocdist_series, itemlocdist_source_type, itemlocdist_source_id,
itemlocdist_itemsite_id,
itemlocdist_ls_id, itemlocdist_expiration,
itemlocdist_qty, itemlocdist_invhist_id )
SELECT _itemlocSeries, 'L', _p.itemsite_location_id,
_p.itemsite_id,
_lsid, endOfTime(),
(_p.invcnt_qoh_after - _runningQty), _invhistid;
_hasDetail = TRUE;
_errorCode = 0;
END IF;
ELSE
-- The Count Slip Qty. must equal the Count Tag Qty.
_errorCode = 0;
END IF;
-- If we shouldn't post the count then delete the itemlocdist records,
-- and return with the error.
IF (_errorCode <> 0) THEN
DELETE FROM itemlocdist
WHERE (itemlocdist_series=_itemlocSeries);
RETURN _errorCode;
END IF;
END IF;
-- Mod. the Count Tag.
UPDATE invcnt
SET invcnt_qoh_before=_origLocQty,
invcnt_postdate=_postDate,
invcnt_posted=TRUE,
invcnt_invhist_id=_invhistid,
invcnt_post_username=CURRENT_USER
WHERE (invcnt_id=pInvcntid);
-- Create the CC transaction
INSERT INTO invhist
( invhist_id, invhist_itemsite_id,
invhist_transdate, invhist_transtype, invhist_invqty,
invhist_qoh_before, invhist_qoh_after,
invhist_docnumber, invhist_comments,
invhist_invuom, invhist_unitcost, invhist_hasdetail,
invhist_costmethod, invhist_value_before, invhist_value_after,
invhist_series )
SELECT _invhistid, itemsite_id,
_postDate, 'CC', (invcnt_qoh_after - invcnt_qoh_before),
invcnt_qoh_before, invcnt_qoh_after,
invcnt_tagnumber, invcnt_comments,
uom_name, _p.cost, _hasDetail,
_p.itemsite_costmethod, _p.itemsite_value,
_p.itemsite_value + (_p.cost * (invcnt_qoh_after - invcnt_qoh_before)),
_itemlocSeries
FROM itemsite, invcnt, item, uom
WHERE ( (invcnt_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (item_inv_uom_id=uom_id)
AND (itemsite_controlmethod <> 'N')
AND (invcnt_id=pInvcntid) );
-- Update the QOH
IF (_netable) THEN
UPDATE itemsite
SET itemsite_qtyonhand= itemsite_qtyonhand + (_p.invcnt_qoh_after - _origLocQty),
itemsite_datelastcount=_postDate
WHERE (itemsite_id=_p.itemsite_id);
ELSE
UPDATE itemsite
SET itemsite_nnqoh = itemsite_nnqoh - _origLocQty,
itemsite_qtyonhand = itemsite_qtyonhand + _p.invcnt_qoh_after,
itemsite_datelastcount=_postDate
WHERE (itemsite_id=_p.itemsite_id);
END IF;
-- Post the detail, if any
IF (_hasDetail) THEN
PERFORM distributeItemlocSeries(_itemlocSeries);
END IF;
-- Thaw the itemsite if it's frozen
IF (pThaw) THEN
PERFORM thawItemSite(invcnt_itemsite_id)
FROM invcnt
WHERE (invcnt_id=pInvcntid);
END IF;
-- Distribute to G/L
PERFORM insertGLTransaction( 'I/M', 'CT', _p.invcnt_tagnumber, ('Post Count Tag #' || _p.invcnt_tagnumber || ' for Item ' || _p.item_number),
costcat_adjustment_accnt_id, costcat_asset_accnt_id, _invhistid,
( (_p.invcnt_qoh_after - _origLocQty) * _p.cost), CURRENT_DATE )
FROM invcnt, itemsite, costcat
WHERE ( (invcnt_itemsite_id=itemsite_id)
AND (itemsite_costcat_id=costcat_id)
AND (invcnt_id=pInvcntid) );
RETURN 0;
END;
$_$;
ALTER FUNCTION public.postcounttaglocation(integer, boolean, text) OWNER TO admin;
--
-- Name: postcounttags(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postcounttags(integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWarehousid ALIAS FOR $1;
pThaw ALIAS FOR $2;
_invcnt RECORD;
_result INTEGER := 0;
_return INTEGER := 0;
BEGIN
FOR _invcnt IN SELECT invcnt_id
FROM invcnt, itemsite
WHERE ( (invcnt_itemsite_id=itemsite_id)
AND ( (pWarehousid=-1) OR (itemsite_warehous_id=pWarehousid) )
AND (invcnt_qoh_after IS NOT NULL)
AND (NOT invcnt_posted) ) LOOP
SELECT postCountTag(_invcnt.invcnt_id, pThaw) INTO _result;
IF (_result < _return) THEN
_return := _result;
END IF;
END LOOP;
RETURN _return;
END;
$_$;
ALTER FUNCTION public.postcounttags(integer, boolean) OWNER TO admin;
--
-- Name: postcreditmemo(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postcreditmemo(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCmheadid ALIAS FOR $1;
pItemlocSeries ALIAS FOR $2;
_return INTEGER;
BEGIN
SELECT postCreditMemo(pCmheadid, fetchJournalNumber('AR-CM'), pItemlocSeries) INTO _return;
RETURN _return;
END;
$_$;
ALTER FUNCTION public.postcreditmemo(integer, integer) OWNER TO admin;
--
-- Name: postcreditmemo(integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postcreditmemo(integer, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCmheadid ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
pItemlocSeries ALIAS FOR $3;
_r RECORD;
_p RECORD;
_aropenid INTEGER;
_cohistid INTEGER;
_sequence INTEGER;
_itemlocSeries INTEGER;
_invhistid INTEGER;
_test INTEGER;
_totalAmount NUMERIC := 0;
_commissionDue NUMERIC := 0;
_toApply NUMERIC;
_toClose BOOLEAN;
_glDate DATE;
_taxBaseValue NUMERIC := 0;
BEGIN
-- Cache some parameters
SELECT cmhead.*,
findARAccount(cmhead_cust_id) AS ar_accnt_id,
( SELECT COALESCE(SUM(taxhist_tax), 0)
FROM cmheadtax
WHERE ( (taxhist_parent_id = cmhead_id)
AND (taxhist_taxtype_id = getAdjustmentTaxtypeId()) ) ) AS adjtax
INTO _p
FROM cmhead
WHERE (cmhead_id=pCmheadid);
IF (_p.cmhead_posted) THEN
RETURN -10;
END IF;
IF (_p.cmhead_hold) THEN
RETURN -11;
END IF;
_glDate := COALESCE(_p.cmhead_gldistdate, _p.cmhead_docdate);
_itemlocSeries = pItemlocSeries;
SELECT fetchGLSequence() INTO _sequence;
-- Start by handling taxes
FOR _r IN SELECT tax_sales_accnt_id,
round(sum(taxdetail_tax),2) AS tax,
currToBase(_p.cmhead_curr_id, round(sum(taxdetail_tax),2), _p.cmhead_docdate) AS taxbasevalue
FROM tax
JOIN calculateTaxDetailSummary('CM', pCmheadid, 'T') ON (taxdetail_tax_id=tax_id)
GROUP BY tax_id, tax_sales_accnt_id LOOP
PERFORM insertIntoGLSeries( _sequence, 'A/R', 'CM', _p.cmhead_number,
_r.tax_sales_accnt_id,
_r.taxbasevalue,
_glDate, _p.cmhead_billtoname );
_totalAmount := _totalAmount + _r.tax * -1;
END LOOP;
-- Update item tax records with posting data
UPDATE cmitemtax SET
taxhist_docdate=_p.cmhead_docdate,
taxhist_distdate=_glDate,
taxhist_curr_id=_p.cmhead_curr_id,
taxhist_curr_rate=curr_rate,
taxhist_journalnumber=pJournalNumber
FROM cmhead
JOIN cmitem ON (cmhead_id=cmitem_cmhead_id),
curr_rate
WHERE ((cmhead_id=pCmheadId)
AND (taxhist_parent_id=cmitem_id)
AND (_p.cmhead_curr_id=curr_id)
AND (_p.cmhead_docdate BETWEEN curr_effective
AND curr_expires) );
-- Update Header taxes (Freight and Adjustments) with posting data
UPDATE cmheadtax SET
taxhist_docdate=_p.cmhead_docdate,
taxhist_distdate=_glDate,
taxhist_curr_id=_p.cmhead_curr_id,
taxhist_curr_rate=curr_rate,
taxhist_journalnumber=pJournalNumber
FROM curr_rate
WHERE ((taxhist_parent_id=pCmheadId)
AND (_p.cmhead_curr_id=curr_id)
AND (_p.cmhead_docdate BETWEEN curr_effective
AND curr_expires) );
-- Process line items
-- Always use std cost
FOR _r IN SELECT *, stdCost(item_id) AS std_cost
FROM creditmemoitem
WHERE ( (cmitem_cmhead_id=pCmheadid)
AND (cmitem_qtycredit <> 0 ) ) LOOP
-- Calcuate the Commission to be debited
_commissionDue := (_commissionDue + (_r.extprice * _p.cmhead_commission));
IF (_r.extprice <> 0) THEN
-- Debit the Sales Account for the current cmitem
SELECT insertIntoGLSeries( _sequence, 'A/R', 'CM', _p.cmhead_number,
CASE WHEN _p.cmhead_rahead_id IS NULL THEN
getPrjAccntId(_p.cmhead_prj_id, salesaccnt_credit_accnt_id)
ELSE
getPrjAccntId(_p.cmhead_prj_id, salesaccnt_returns_accnt_id)
END,
round(currToBase(_p.cmhead_curr_id,
_r.extprice * -1,
_p.cmhead_docdate), 2),
_glDate, _p.cmhead_billtoname) INTO _test
FROM salesaccnt
WHERE (salesaccnt_id=findSalesAccnt(_r.cmitem_itemsite_id, 'IS', _p.cmhead_cust_id,
_p.cmhead_saletype_id, _p.cmhead_shipzone_id));
IF (NOT FOUND) THEN
PERFORM deleteGLSeries(_sequence);
RETURN -12;
END IF;
END IF;
-- Record Sales History for this C/M Item
SELECT nextval('cohist_cohist_id_seq') INTO _cohistid;
INSERT INTO cohist
( cohist_id, cohist_cust_id, cohist_itemsite_id, cohist_shipto_id,
cohist_shipdate, cohist_shipvia,
cohist_ordernumber, cohist_ponumber, cohist_orderdate,
cohist_doctype, cohist_invcnumber, cohist_invcdate,
cohist_qtyshipped, cohist_unitprice, cohist_unitcost,
cohist_salesrep_id, cohist_commission, cohist_commissionpaid,
cohist_billtoname, cohist_billtoaddress1,
cohist_billtoaddress2, cohist_billtoaddress3,
cohist_billtocity, cohist_billtostate, cohist_billtozip,
cohist_shiptoname, cohist_shiptoaddress1,
cohist_shiptoaddress2, cohist_shiptoaddress3,
cohist_shiptocity, cohist_shiptostate, cohist_shiptozip,
cohist_curr_id, cohist_taxtype_id, cohist_taxzone_id,
cohist_shipzone_id, cohist_saletype_id )
VALUES
( _cohistid, _p.cmhead_cust_id, _r.cmitem_itemsite_id, _p.cmhead_shipto_id,
_p.cmhead_docdate, '',
_p.cmhead_number, _p.cmhead_custponumber, _p.cmhead_docdate,
'C', _p.cmhead_invcnumber, _p.cmhead_docdate,
(_r.qty * -1), _r.unitprice, _r.std_cost,
_p.cmhead_salesrep_id, (_p.cmhead_commission * _r.extprice * -1), FALSE,
_p.cmhead_billtoname, _p.cmhead_billtoaddress1,
_p.cmhead_billtoaddress2, _p.cmhead_billtoaddress3,
_p.cmhead_billtocity, _p.cmhead_billtostate, _p.cmhead_billtozip,
_p.cmhead_shipto_name, _p.cmhead_shipto_address1,
_p.cmhead_shipto_address2, _p.cmhead_shipto_address3,
_p.cmhead_shipto_city, _p.cmhead_shipto_state, _p.cmhead_shipto_zipcode,
_p.cmhead_curr_id, _r.cmitem_taxtype_id, _p.cmhead_taxzone_id,
_p.cmhead_shipzone_id, _p.cmhead_saletype_id );
INSERT INTO cohisttax
( taxhist_parent_id, taxhist_taxtype_id, taxhist_tax_id,
taxhist_basis, taxhist_basis_tax_id, taxhist_sequence,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_distdate, taxhist_curr_id, taxhist_curr_rate,
taxhist_journalnumber )
SELECT _cohistid, taxhist_taxtype_id, taxhist_tax_id,
taxhist_basis, taxhist_basis_tax_id, taxhist_sequence,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_distdate, taxhist_curr_id, taxhist_curr_rate,
taxhist_journalnumber
FROM cmitemtax
WHERE (taxhist_parent_id=_r.cmitem_id);
_totalAmount := _totalAmount + round(_r.extprice, 2);
END LOOP;
-- Credit the Misc. Account for Miscellaneous Charges
IF (_p.cmhead_misc <> 0) THEN
SELECT insertIntoGLSeries( _sequence, 'A/R', 'CM', _p.cmhead_number,
getPrjAccntId(_p.cmhead_prj_id, accnt_id), round(currToBase(_p.cmhead_curr_id,
_p.cmhead_misc * -1,
_p.cmhead_docdate), 2),
_glDate, _p.cmhead_billtoname) INTO _test
FROM accnt
WHERE (accnt_id=_p.cmhead_misc_accnt_id);
-- If the Misc. Charges Account was not found then punt
IF (NOT FOUND) THEN
PERFORM deleteGLSeries(_sequence);
RETURN -14;
END IF;
-- Record the Sales History for any Misc. Charge
INSERT INTO cohist
( cohist_cust_id, cohist_itemsite_id, cohist_shipto_id,
cohist_misc_type, cohist_misc_descrip, cohist_misc_id,
cohist_shipdate, cohist_shipvia,
cohist_ordernumber, cohist_ponumber, cohist_orderdate,
cohist_doctype, cohist_invcnumber, cohist_invcdate,
cohist_qtyshipped, cohist_unitprice, cohist_unitcost,
cohist_salesrep_id, cohist_commission, cohist_commissionpaid,
cohist_billtoname, cohist_billtoaddress1,
cohist_billtoaddress2, cohist_billtoaddress3,
cohist_billtocity, cohist_billtostate, cohist_billtozip,
cohist_shiptoname, cohist_shiptoaddress1,
cohist_shiptoaddress2, cohist_shiptoaddress3,
cohist_shiptocity, cohist_shiptostate, cohist_shiptozip,
cohist_curr_id,
cohist_shipzone_id, cohist_saletype_id )
VALUES
( _p.cmhead_cust_id, -1, _p.cmhead_shipto_id,
'M', _p.cmhead_misc_descrip, _p.cmhead_misc_accnt_id,
_p.cmhead_docdate, '',
_p.cmhead_number, _p.cmhead_custponumber, _p.cmhead_docdate,
'C', _p.cmhead_invcnumber, _p.cmhead_docdate,
1, (_p.cmhead_misc * -1), (_p.cmhead_misc * -1),
_p.cmhead_salesrep_id, 0, FALSE,
_p.cmhead_billtoname, _p.cmhead_billtoaddress1,
_p.cmhead_billtoaddress2, _p.cmhead_billtoaddress3,
_p.cmhead_billtocity, _p.cmhead_billtostate, _p.cmhead_billtozip,
_p.cmhead_shipto_name, _p.cmhead_shipto_address1,
_p.cmhead_shipto_address2, _p.cmhead_shipto_address3,
_p.cmhead_shipto_city, _p.cmhead_shipto_state, _p.cmhead_shipto_zipcode,
_p.cmhead_curr_id,
_p.cmhead_shipzone_id, _p.cmhead_saletype_id );
-- Cache the Misc. Amount distributed
_totalAmount := _totalAmount + _p.cmhead_misc;
END IF;
-- Credit Tax Adjustments
IF (_p.adjtax <> 0) THEN
-- Record the Sales History for Tax Adjustment
SELECT nextval('cohist_cohist_id_seq') INTO _cohistid;
INSERT INTO cohist
( cohist_id, cohist_cust_id, cohist_itemsite_id, cohist_shipto_id,
cohist_misc_type, cohist_misc_descrip,
cohist_shipdate, cohist_shipvia,
cohist_ordernumber, cohist_ponumber, cohist_orderdate,
cohist_doctype, cohist_invcnumber, cohist_invcdate,
cohist_qtyshipped, cohist_unitprice, cohist_unitcost,
cohist_salesrep_id, cohist_commission, cohist_commissionpaid,
cohist_billtoname, cohist_billtoaddress1,
cohist_billtoaddress2, cohist_billtoaddress3,
cohist_billtocity, cohist_billtostate, cohist_billtozip,
cohist_shiptoname, cohist_shiptoaddress1,
cohist_shiptoaddress2, cohist_shiptoaddress3,
cohist_shiptocity, cohist_shiptostate, cohist_shiptozip,
cohist_curr_id, cohist_taxtype_id, cohist_taxzone_id,
cohist_shipzone_id, cohist_saletype_id )
VALUES
( _cohistid, _p.cmhead_cust_id, -1, _p.cmhead_shipto_id,
'T', 'Misc Tax Adjustment',
_p.cmhead_docdate, '',
_p.cmhead_number, _p.cmhead_custponumber, _p.cmhead_docdate,
'C', _p.cmhead_invcnumber, _p.cmhead_docdate,
0, 0, 0,
_p.cmhead_salesrep_id, 0, FALSE,
_p.cmhead_billtoname, _p.cmhead_billtoaddress1,
_p.cmhead_billtoaddress2, _p.cmhead_billtoaddress3,
_p.cmhead_billtocity, _p.cmhead_billtostate, _p.cmhead_billtozip,
_p.cmhead_shipto_name, _p.cmhead_shipto_address1,
_p.cmhead_shipto_address2, _p.cmhead_shipto_address3,
_p.cmhead_shipto_city, _p.cmhead_shipto_state, _p.cmhead_shipto_zipcode,
_p.cmhead_curr_id, getAdjustmentTaxtypeId(), _p.cmhead_taxzone_id,
_p.cmhead_shipzone_id, _p.cmhead_saletype_id );
INSERT INTO cohisttax
( taxhist_parent_id, taxhist_taxtype_id, taxhist_tax_id,
taxhist_basis, taxhist_basis_tax_id, taxhist_sequence,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_distdate, taxhist_curr_id, taxhist_curr_rate,
taxhist_journalnumber )
SELECT _cohistid, taxhist_taxtype_id, taxhist_tax_id,
(taxhist_basis * -1), taxhist_basis_tax_id, taxhist_sequence,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_distdate, taxhist_curr_id, taxhist_curr_rate,
taxhist_journalnumber
FROM cmheadtax
WHERE ( (taxhist_parent_id=_p.cmhead_id)
AND (taxhist_taxtype_id=getAdjustmentTaxtypeId()) );
END IF;
-- Debit the Freight Account
IF (_p.cmhead_freight <> 0) THEN
SELECT insertIntoGLSeries( _sequence, 'A/R', 'CM', _p.cmhead_number,
getPrjAccntId(_p.cmhead_prj_id, accnt_id),
round(currToBase(_p.cmhead_curr_id,
_p.cmhead_freight * -1,
_p.cmhead_docdate), 2),
_glDate, _p.cmhead_billtoname) INTO _test
FROM accnt
WHERE (accnt_id=findFreightAccount(_p.cmhead_cust_id));
-- If the Freight Charges Account was not found then punt
IF (NOT FOUND) THEN
PERFORM deleteGLSeries(_sequence);
RETURN -16;
END IF;
-- Cache the Amount Distributed to Freight
_totalAmount := _totalAmount + _p.cmhead_freight;
-- Record the Sales History for any Freight
SELECT nextval('cohist_cohist_id_seq') INTO _cohistid;
INSERT INTO cohist
( cohist_id, cohist_cust_id, cohist_itemsite_id, cohist_shipto_id,
cohist_misc_type, cohist_misc_descrip,
cohist_shipdate, cohist_shipvia,
cohist_ordernumber, cohist_ponumber, cohist_orderdate,
cohist_doctype, cohist_invcnumber, cohist_invcdate,
cohist_qtyshipped, cohist_unitprice, cohist_unitcost,
cohist_salesrep_id, cohist_commission, cohist_commissionpaid,
cohist_billtoname, cohist_billtoaddress1,
cohist_billtoaddress2, cohist_billtoaddress3,
cohist_billtocity, cohist_billtostate, cohist_billtozip,
cohist_shiptoname, cohist_shiptoaddress1,
cohist_shiptoaddress2, cohist_shiptoaddress3,
cohist_shiptocity, cohist_shiptostate, cohist_shiptozip,
cohist_curr_id, cohist_taxtype_id, cohist_taxzone_id,
cohist_shipzone_id, cohist_saletype_id )
VALUES
( _cohistid, _p.cmhead_cust_id, -1, _p.cmhead_shipto_id,
'F', 'Freight Charge',
_p.cmhead_docdate, '',
_p.cmhead_number, _p.cmhead_custponumber, _p.cmhead_docdate,
'C', _p.cmhead_invcnumber, _p.cmhead_docdate,
1, (_p.cmhead_freight * -1), (_p.cmhead_freight * -1),
_p.cmhead_salesrep_id, 0, FALSE,
_p.cmhead_billtoname, _p.cmhead_billtoaddress1,
_p.cmhead_billtoaddress2, _p.cmhead_billtoaddress3,
_p.cmhead_billtocity, _p.cmhead_billtostate, _p.cmhead_billtozip,
_p.cmhead_shipto_name, _p.cmhead_shipto_address1,
_p.cmhead_shipto_address2, _p.cmhead_shipto_address3,
_p.cmhead_shipto_city, _p.cmhead_shipto_state, _p.cmhead_shipto_zipcode,
_p.cmhead_curr_id, getFreightTaxtypeId(), _p.cmhead_taxzone_id,
_p.cmhead_shipzone_id, _p.cmhead_saletype_id );
INSERT INTO cohisttax
( taxhist_parent_id, taxhist_taxtype_id, taxhist_tax_id,
taxhist_basis, taxhist_basis_tax_id, taxhist_sequence,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_distdate, taxhist_curr_id, taxhist_curr_rate,
taxhist_journalnumber )
SELECT _cohistid, taxhist_taxtype_id, taxhist_tax_id,
(taxhist_basis * -1), taxhist_basis_tax_id, taxhist_sequence,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_distdate, taxhist_curr_id, taxhist_curr_rate,
taxhist_journalnumber
FROM cmheadtax
WHERE ( (taxhist_parent_id=_p.cmhead_id)
AND (taxhist_taxtype_id=getFreightTaxtypeId()) );
END IF;
_totalAmount := _totalAmount;
-- Credit the A/R for the total Amount
IF (_totalAmount <> 0) THEN
IF (_p.ar_accnt_id != -1) THEN
PERFORM insertIntoGLSeries( _sequence, 'A/R', 'CM', _p.cmhead_number,
_p.ar_accnt_id,
round(currToBase(_p.cmhead_curr_id,
_totalAmount,
_p.cmhead_docdate), 2),
_glDate, _p.cmhead_billtoname);
ELSE
PERFORM deleteGLSeries(_sequence);
RETURN -18;
END IF;
END IF;
-- Commit the GLSeries;
PERFORM postGLSeries(_sequence, pJournalNumber);
-- Create the Invoice aropen item
SELECT NEXTVAL('aropen_aropen_id_seq') INTO _aropenid;
INSERT INTO aropen
( aropen_id, aropen_username, aropen_journalnumber,
aropen_open, aropen_posted,
aropen_cust_id, aropen_ponumber,
aropen_docnumber,
aropen_applyto, aropen_doctype,
aropen_docdate, aropen_duedate, aropen_distdate, aropen_terms_id,
aropen_amount, aropen_paid,
aropen_salesrep_id, aropen_commission_due, aropen_commission_paid,
aropen_ordernumber, aropen_notes,
aropen_rsncode_id, aropen_curr_id )
SELECT _aropenid, getEffectiveXtUser(), pJournalNumber,
TRUE, FALSE,
cmhead_cust_id, cmhead_custponumber,
cmhead_number,
CASE WHEN (cmhead_invcnumber='-1') THEN 'OPEN'
ELSE (cmhead_invcnumber::TEXT)
END,
'C',
cmhead_docdate, cmhead_docdate, _glDate, -1,
_totalAmount, 0,
cmhead_salesrep_id, (_commissionDue * -1), FALSE,
cmhead_number::TEXT, cmhead_comments,
cmhead_rsncode_id, cmhead_curr_id
FROM cmhead
WHERE (cmhead_id=pCmheadid);
-- Handle the Inventory and G/L Transactions for any returned Inventory where cmitem_updateinv is true
FOR _r IN SELECT cmitem_itemsite_id AS itemsite_id, cmitem_id,
(cmitem_qtyreturned * cmitem_qty_invuomratio) AS qty,
cmhead_number, cmhead_cust_id AS cust_id, item_number,
cmhead_saletype_id AS saletype_id, cmhead_shipzone_id AS shipzone_id,
stdCost(item_id) AS std_cost, cmhead_prj_id,
itemsite_costmethod
FROM cmhead, cmitem, itemsite, item
WHERE ( (cmitem_cmhead_id=cmhead_id)
AND (cmitem_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (cmitem_qtyreturned <> 0)
AND (cmitem_updateinv)
AND (cmhead_id=pCmheadid) ) LOOP
-- Return credited stock to inventory
IF (_itemlocSeries = 0) THEN
_itemlocSeries := NEXTVAL('itemloc_series_seq');
END IF;
IF (_r.itemsite_costmethod != 'J') THEN
SELECT postInvTrans(itemsite_id, 'RS', _r.qty,
'S/O', 'CM', _r.cmhead_number, '',
('Credit Return ' || _r.item_number),
costcat_asset_accnt_id,
getPrjAccntId(_r.cmhead_prj_id, resolveCOSAccount(itemsite_id, _r.cust_id, _r.saletype_id, _r.shipzone_id)),
_itemlocSeries, _glDate, _r.std_cost) INTO _invhistid
FROM itemsite, costcat
WHERE ((itemsite_costcat_id=costcat_id)
AND (itemsite_id=_r.itemsite_id));
ELSE
RAISE DEBUG 'postCreditMemo(%, %, %) tried to postInvTrans a %-costed item',
pCmheadid, pJournalNumber, pItemlocSeries,
_r.itemsite_costmethod;
END IF;
END LOOP;
-- Update coitem to reflect the returned qty where cmitem_updateinv is true
FOR _r IN SELECT cmitem_qtyreturned, cmitem_itemsite_id, cohead_id
FROM cmitem, cmhead, invchead, cohead
WHERE ( (cmitem_cmhead_id=cmhead_id)
AND (cmhead_invcnumber=invchead_invcnumber)
AND (invchead_ordernumber=cohead_number)
AND (cmitem_qtyreturned <> 0)
AND (cmitem_updateinv)
AND (cmhead_id=pCmheadid) ) LOOP
UPDATE coitem
SET coitem_qtyreturned = (coitem_qtyreturned + _r.cmitem_qtyreturned)
WHERE coitem_id IN ( SELECT coitem_id
FROM coitem
WHERE ( (coitem_cohead_id=_r.cohead_id)
AND (coitem_itemsite_id = _r.cmitem_itemsite_id) )
LIMIT 1 );
END LOOP;
-- Mark the cmhead as posted
UPDATE cmhead
SET cmhead_posted=TRUE, cmhead_gldistdate=_glDate
WHERE (cmhead_id=pCmheadid);
-- Find the apply-to document and make the application
SELECT cmhead_number, cmhead_curr_id, cmhead_docdate,
aropen_id, aropen_cust_id, aropen_docnumber,
currToCurr(aropen_curr_id, cmhead_curr_id, aropen_amount - aropen_paid,
cmhead_docdate) AS balance INTO _p
FROM aropen, cmhead
WHERE ( (aropen_doctype='I')
AND (aropen_docnumber=cmhead_invcnumber)
AND (cmhead_id=pCmheadid) );
IF (FOUND) THEN
IF round(_totalAmount, 2) <= round(_p.balance, 2) THEN
_toApply = _totalAmount;
ELSE
_toApply = _p.balance;
END IF;
UPDATE aropen
SET aropen_paid = round(aropen_paid + currToCurr(_p.cmhead_curr_id,
aropen_curr_id, _toApply,
_p.cmhead_docdate), 2)
WHERE (aropen_id=_p.aropen_id);
-- Alter the new A/R Open Item to reflect the application
UPDATE aropen
SET aropen_paid = round(currToCurr(_p.cmhead_curr_id, aropen_curr_id,
_toApply, _p.cmhead_docdate), 2)
WHERE (aropen_id=_aropenid);
-- Record the application
INSERT INTO arapply
( arapply_cust_id,
arapply_source_aropen_id, arapply_source_doctype, arapply_source_docnumber,
arapply_target_aropen_id, arapply_target_doctype, arapply_target_docnumber,
arapply_fundstype, arapply_refnumber,
arapply_applied, arapply_closed,
arapply_postdate, arapply_distdate, arapply_journalnumber, arapply_curr_id )
VALUES
( _p.aropen_cust_id,
_aropenid, 'C', _p.cmhead_number,
_p.aropen_id, 'I', _p.aropen_docnumber,
'', '',
round(_toApply, 2), _toClose,
CURRENT_DATE, _p.cmhead_docdate, 0, _p.cmhead_curr_id );
END IF;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.postcreditmemo(integer, integer, integer) OWNER TO admin;
--
-- Name: postcreditmemos(boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postcreditmemos(boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPostUnprinted ALIAS FOR $1;
_cmhead RECORD;
_result INTEGER;
_return INTEGER := 0;
_itemlocSeries INTEGER := 0;
BEGIN
_itemlocSeries := 0;
FOR _cmhead IN SELECT cmhead_id
FROM cmhead
WHERE ( (NOT cmhead_posted)
AND (NOT cmhead_hold)
AND (checkCreditMemoSitePrivs(cmhead_id))
AND ((pPostUnprinted) OR (cmhead_printed)) ) LOOP
SELECT postCreditMemo(_cmhead.cmhead_id, _itemlocSeries) INTO _result;
IF (_result < _return) THEN
_return := _result;
END IF;
END LOOP;
RETURN _return;
END;
$_$;
ALTER FUNCTION public.postcreditmemos(boolean) OWNER TO admin;
--
-- Name: postcreditmemos(boolean, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postcreditmemos(boolean, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPostUnprinted ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
_r RECORD;
_itemlocSeries INTEGER := 0;
BEGIN
_itemlocSeries := 0;
FOR _r IN SELECT cmhead_id
FROM cmhead
WHERE ( (NOT cmhead_posted)
AND (NOT cmhead_hold)
AND (checkCreditMemoSitePrivs(cmhead_id))
AND ((pPostUnprinted) OR (cmhead_printed)) ) LOOP
SELECT postCreditMemo(_r.cmhead_id, pJournalNumber, _itemlocSeries) INTO _itemlocSeries;
END LOOP;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.postcreditmemos(boolean, integer) OWNER TO admin;
--
-- Name: postglseries(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postglseries(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSequence ALIAS FOR $1;
_journalNumber INTEGER;
_returnValue INTEGER;
BEGIN
SELECT postGLSeries(pSequence, fetchJournalNumber('G/L')) INTO _returnValue;
RETURN _returnValue;
END;
$_$;
ALTER FUNCTION public.postglseries(integer) OWNER TO admin;
--
-- Name: postglseries(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postglseries(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSequence ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
_returnValue INTEGER;
BEGIN
SELECT postGLSeries(pSequence, pJournalNumber, true) INTO _returnValue;
RETURN _returnValue;
END;
$_$;
ALTER FUNCTION public.postglseries(integer, integer) OWNER TO admin;
--
-- Name: postglseries(integer, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postglseries(integer, integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSequence ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
pPostZero ALIAS FOR $3;
_glseries RECORD;
_transCount INTEGER := 0;
_delta NUMERIC;
_discrepDate DATE;
_discrepAccntid INTEGER;
_rows INTEGER;
BEGIN
/* Make sure we don't create an imbalance across companies.
The 'IgnoreCompanyBalance' metric is a back door mechanism to
allow legacy users to create transactions accross companies if
they have been using the company segment for something else
and they MUST continue to be able to do so. It can only be
implemented by direct sql update to the metric table and should
otherwise be discouraged.
*/
IF (COALESCE(fetchMetricValue('GLCompanySize'),0) > 0
AND fetchMetricBool('IgnoreCompany') = false) THEN
SELECT count(accnt_company) INTO _rows
FROM (
SELECT DISTINCT accnt_company
FROM accnt
JOIN glseries ON (glseries_accnt_id=accnt_id)
WHERE (glseries_sequence=pSequence)) _data;
IF (_rows > 1) THEN
RAISE EXCEPTION 'G/L Series can not be posted because multiple companies are referenced in the same series.';
END IF;
END IF;
-- Make sure that we balance
SELECT SUM(glseries_amount), MAX(glseries_distdate) INTO _delta, _discrepDate
FROM glseries
WHERE (glseries_sequence=pSequence);
IF ( _delta <> 0 ) THEN
IF (COALESCE(fetchMetricValue('GLCompanySize'),0) = 0) THEN
SELECT accnt_id INTO _discrepAccntid
FROM accnt, metric
WHERE ((metric_name='GLSeriesDiscrepancyAccount')
AND (accnt_id=CAST(metric_value AS INTEGER)));
ELSE
SELECT company_dscrp_accnt_id INTO _discrepAccntid
FROM company
JOIN accnt ON (accnt_company=company_number)
JOIN glseries ON (glseries_accnt_id=accnt_id)
WHERE (glseries_sequence=pSequence)
LIMIT 1;
END IF;
IF (NOT FOUND) THEN
RETURN -5;
END IF;
INSERT INTO glseries
( glseries_sequence, glseries_source, glseries_doctype, glseries_docnumber,
glseries_accnt_id, glseries_amount, glseries_distdate, glseries_notes )
SELECT glseries_sequence, glseries_source, glseries_doctype, glseries_docnumber,
_discrepAccntid, (_delta * -1), _discrepDate, 'G/L Series Discrepancy'
FROM glseries
WHERE (glseries_sequence=pSequence)
LIMIT 1;
END IF;
-- March through the glseries members, posting them one at a time
FOR _glseries IN SELECT glseries_source, glseries_doctype, glseries_docnumber,
glseries_accnt_id, glseries_distdate, glseries_notes,
glseries_misc_id,
SUM(glseries_amount) as amount
FROM glseries
WHERE ((glseries_amount<>0.0)
AND (glseries_sequence=pSequence))
GROUP BY glseries_source, glseries_doctype, glseries_docnumber,
glseries_accnt_id, glseries_distdate, glseries_notes,
glseries_misc_id LOOP
-- refuse to accept postings into closed periods
IF (SELECT BOOL_AND(COALESCE(period_closed, FALSE))
FROM accnt LEFT OUTER JOIN
period ON (_glseries.glseries_distdate BETWEEN period_start AND period_end)
WHERE (accnt_id = _glseries.glseries_accnt_id)) THEN
RAISE EXCEPTION 'Cannot post to closed period (%).', _glseries.glseries_distdate;
RETURN -4; -- remove raise exception when all callers check return code
END IF;
-- refuse to accept postings into frozen periods without proper priv
IF (SELECT NOT BOOL_AND(checkPrivilege('PostFrozenPeriod')) AND
BOOL_AND(COALESCE(period_freeze, FALSE))
FROM accnt LEFT OUTER JOIN
period ON (_glseries.glseries_distdate BETWEEN period_start AND period_end)
WHERE (accnt_id = _glseries.glseries_accnt_id)) THEN
RAISE EXCEPTION 'Cannot post to frozen period (%).', _glseries.glseries_distdate;
RETURN -4; -- remove raise exception when all callers check return code
END IF;
-- refuse to accept postings into nonexistent periods
IF NOT EXISTS(SELECT period_id
FROM period
WHERE (_glseries.glseries_distdate BETWEEN period_start AND period_end)) THEN
RAISE EXCEPTION 'Cannot post to nonexistent period (%).', pDistDate;
END IF;
IF (_glseries.amount != 0 OR pPostZero) THEN
IF (fetchMetricBool('UseJournals')) THEN
INSERT INTO sltrans
( sltrans_posted, sltrans_created, sltrans_date, sltrans_misc_id,
sltrans_sequence, sltrans_accnt_id, sltrans_source, sltrans_notes,
sltrans_doctype, sltrans_docnumber, sltrans_amount, sltrans_journalnumber )
VALUES
( FALSE, CURRENT_TIMESTAMP, _glseries.glseries_distdate, _glseries.glseries_misc_id,
pSequence, _glseries.glseries_accnt_id, _glseries.glseries_source, _glseries.glseries_notes,
_glseries.glseries_doctype, _glseries.glseries_docnumber, _glseries.amount, pJournalNumber );
ELSE
INSERT INTO gltrans
( gltrans_posted, gltrans_exported, gltrans_created, gltrans_date, gltrans_misc_id,
gltrans_sequence, gltrans_accnt_id, gltrans_source, gltrans_notes,
gltrans_doctype, gltrans_docnumber, gltrans_amount, gltrans_journalnumber )
VALUES
( FALSE, FALSE, CURRENT_TIMESTAMP, _glseries.glseries_distdate, _glseries.glseries_misc_id,
pSequence, _glseries.glseries_accnt_id, _glseries.glseries_source, _glseries.glseries_notes,
_glseries.glseries_doctype, _glseries.glseries_docnumber, _glseries.amount, pJournalNumber );
END IF;
_transCount := _transCount + 1;
END IF;
END LOOP;
-- Delete all of the posted glseries members
DELETE FROM glseries
WHERE (glseries_sequence=pSequence);
PERFORM postIntoTrialBalance(pSequence);
RETURN _transCount;
END;
$_$;
ALTER FUNCTION public.postglseries(integer, integer, boolean) OWNER TO admin;
--
-- Name: postglseriesnosumm(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postglseriesnosumm(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSequence ALIAS FOR $1;
_journalNumber INTEGER;
_returnValue INTEGER;
BEGIN
SELECT postGLSeriesNoSumm(pSequence, fetchJournalNumber('G/L')) INTO _returnValue;
RETURN _returnValue;
END;
$_$;
ALTER FUNCTION public.postglseriesnosumm(integer) OWNER TO admin;
--
-- Name: postglseriesnosumm(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postglseriesnosumm(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSequence ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
_glseries RECORD;
_transCount INTEGER := 0;
_rows INTEGER;
BEGIN
/* Make sure we don't create an imbalance across companies.
The 'IgnoreCompanyBalance' metric is a back door mechanism to
allow legacy users to create transactions accross companies if
they have been using the company segment for something else
and they MUST continue to be able to do so. It can only be
implemented by direct sql update to the metric table and should
otherwise be discouraged.
*/
IF (COALESCE(fetchMetricValue('GLCompanySize'),0) > 0
AND fetchMetricBool('IgnoreCompany') = false) THEN
SELECT count(accnt_company) INTO _rows
FROM (
SELECT DISTINCT accnt_company
FROM accnt
JOIN glseries ON (glseries_accnt_id=accnt_id)
WHERE (glseries_sequence=pSequence)) _data;
IF (_rows > 1) THEN
RAISE EXCEPTION 'G/L Series can not be posted because multiple companies are referenced in the same series.';
END IF;
END IF;
-- Make sure that we balance
IF ( ( SELECT SUM(glseries_amount)
FROM glseries
WHERE (glseries_sequence=pSequence) ) <> 0 ) THEN
RETURN -1;
END IF;
-- March through the glseries members, posting them one at a time
FOR _glseries IN SELECT glseries_source, glseries_doctype, glseries_docnumber,
glseries_accnt_id, glseries_distdate, glseries_notes,
glseries_misc_id, glseries_amount as amount
FROM glseries
WHERE ((glseries_amount<>0.0)
AND (glseries_sequence=pSequence)) LOOP
-- refuse to accept postings into closed periods
IF (SELECT BOOL_AND(COALESCE(period_closed, FALSE))
FROM accnt LEFT OUTER JOIN
period ON (_glseries.glseries_distdate BETWEEN period_start AND period_end)
WHERE (accnt_id = _glseries.glseries_accnt_id)) THEN
RAISE EXCEPTION 'Cannot post to closed period (%).', _glseries.glseries_distdate;
RETURN -4; -- remove raise exception when all callers check return code
END IF;
-- refuse to accept postings into frozen periods without proper priv
IF (SELECT NOT BOOL_AND(checkPrivilege('PostFrozenPeriod')) AND
BOOL_AND(COALESCE(period_freeze, FALSE))
FROM accnt LEFT OUTER JOIN
period ON (_glseries.glseries_distdate BETWEEN period_start AND period_end)
WHERE (accnt_id = _glseries.glseries_accnt_id)) THEN
RAISE EXCEPTION 'Cannot post to frozen period (%).', _glseries.glseries_distdate;
RETURN -4; -- remove raise exception when all callers check return code
END IF;
-- refuse to accept postings into nonexistent periods
IF NOT EXISTS(SELECT period_id
FROM period
WHERE (_glseries.glseries_distdate BETWEEN period_start AND period_end)) THEN
RAISE EXCEPTION 'Cannot post to nonexistent period (%).', pDistDate;
END IF;
IF (fetchMetricBool('UseJournals')) THEN
INSERT INTO sltrans
( sltrans_posted, sltrans_created, sltrans_date, sltrans_misc_id,
sltrans_sequence, sltrans_accnt_id, sltrans_source, sltrans_notes,
sltrans_doctype, sltrans_docnumber, sltrans_amount, sltrans_journalnumber )
VALUES
( FALSE, CURRENT_TIMESTAMP, _glseries.glseries_distdate, _glseries.glseries_misc_id,
pSequence, _glseries.glseries_accnt_id, _glseries.glseries_source, _glseries.glseries_notes,
_glseries.glseries_doctype, _glseries.glseries_docnumber, _glseries.amount, pJournalNumber );
ELSE
INSERT INTO gltrans
( gltrans_posted, gltrans_exported, gltrans_created, gltrans_date, gltrans_misc_id,
gltrans_sequence, gltrans_accnt_id, gltrans_source, gltrans_notes,
gltrans_doctype, gltrans_docnumber, gltrans_amount, gltrans_journalnumber )
VALUES
( FALSE, FALSE, CURRENT_TIMESTAMP, _glseries.glseries_distdate, _glseries.glseries_misc_id,
pSequence, _glseries.glseries_accnt_id, _glseries.glseries_source, _glseries.glseries_notes,
_glseries.glseries_doctype, _glseries.glseries_docnumber, _glseries.amount, pJournalNumber );
END IF;
_transCount := _transCount + 1;
END LOOP;
-- Delete all of the posted glseries members
DELETE FROM glseries
WHERE (glseries_sequence=pSequence);
PERFORM postIntoTrialBalance(pSequence);
RETURN _transCount;
END;
$_$;
ALTER FUNCTION public.postglseriesnosumm(integer, integer) OWNER TO admin;
--
-- Name: postintoinvbalance(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postintoinvbalance(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pInvhistId ALIAS FOR $1;
_invbalid INTEGER;
_r RECORD;
_count INTEGER;
_qty NUMERIC;
BEGIN
-- Grab the invhist record to post
-- Special fix for transit sites when transtype=TS and invqty<0
-- Set the sense to 1 to correct invhist populated incorrectly.
SELECT invhist.*,
CASE WHEN (invhist_transtype='TS' AND invhist_invqty < 0.0 AND warehous_transit) THEN 1
ELSE invhistSense(invhist_id)
END AS sense,
period_id INTO _r
FROM invhist
JOIN itemsite ON (itemsite_id=invhist_itemsite_id)
JOIN whsinfo ON (warehous_id=itemsite_warehous_id)
LEFT OUTER JOIN period ON (invhist_transdate::date BETWEEN period_start AND period_end)
WHERE ( invhist_id=pInvhistId );
GET DIAGNOSTICS _count = ROW_COUNT;
-- If we can post into a Inv Balance, do so
IF ( _count > 0 ) THEN
-- Validate
IF (_r.period_id IS NULL) THEN
RAISE EXCEPTION 'No accounting period exists for invhist_id %, transaction date %. Transaction can not be posted.', _r.invhist_id, formatDate(_r.invhist_transdate);
END IF;
-- If cycle count, then we need to reference balance which needs to be accurate
-- IF (_r.invhist_transtype = 'CC') THEN
-- PERFORM forwardupdateitemsite(_r.invhist_itemsite_id);
-- END IF;
-- Try to find an existing invbal
SELECT
invbal_id,
-- CASE WHEN (_r.invhist_transtype != 'CC') THEN _r.invhist_invqty ELSE _r.invhist_invqty - invbal_qoh_ending END
_r.invhist_invqty
INTO _invbalid, _qty
FROM invbal
WHERE ( (invbal_period_id=_r.period_id)
AND (invbal_itemsite_id=_r.invhist_itemsite_id) );
GET DIAGNOSTICS _count = ROW_COUNT;
IF (_count > 0) THEN
-- We found a invbal, update it with the Inventory Transaction
-- Note - two stage update to avoid any funny value caching logic
IF (_r.sense * _qty > 0) THEN
UPDATE invbal SET
invbal_qty_in = (invbal_qty_in + abs(_qty)),
invbal_value_in = (invbal_value_in + abs(_qty) * _r.invhist_unitcost)
WHERE (invbal_id=_invbalid);
ELSIF (_r.sense * _qty < 0) THEN
UPDATE invbal SET
invbal_qty_out = (invbal_qty_out + abs(_qty)),
invbal_value_out = (invbal_value_out + abs(_qty) * _r.invhist_unitcost)
WHERE (invbal_id=_invbalid);
END IF;
-- Non-netable transactions have their own balances
IF (_r.invhist_transtype = 'NN') THEN
UPDATE invbal SET
invbal_nn_in = (invbal_nn_in + _qty * -1),
invbal_nnval_in = (invbal_nnval_in + _qty * -1 * _r.invhist_unitcost)
WHERE (invbal_id=_invbalid);
END IF;
UPDATE invbal SET
invbal_qoh_ending = (invbal_qoh_beginning + invbal_qty_in - invbal_qty_out),
invbal_value_ending = (invbal_value_beginning + invbal_value_in - invbal_value_out),
invbal_nn_ending = (invbal_nn_beginning + invbal_nn_in - invbal_nn_out),
invbal_nnval_ending = (invbal_nnval_beginning + invbal_nnval_in - invbal_nnval_out),
invbal_dirty=true
WHERE (invbal_id=_invbalid);
ELSE
-- No existing invbal, make one
SELECT NEXTVAL('invbal_invbal_id_seq') INTO _invbalid;
INSERT INTO invbal
( invbal_id, invbal_itemsite_id, invbal_period_id,
invbal_qoh_beginning,
invbal_qoh_ending,
invbal_qty_in,
invbal_qty_out,
invbal_value_beginning,
invbal_value_ending,
invbal_value_in,
invbal_value_out,
invbal_nn_beginning,
invbal_nn_ending,
invbal_nn_in,
invbal_nn_out,
invbal_nnval_beginning,
invbal_nnval_ending,
invbal_nnval_in,
invbal_nnval_out,
invbal_dirty )
VALUES
( _invbalid, _r.invhist_itemsite_id, _r.period_id,
-- Netable
0,
_r.invhist_invqty * _r.sense,
CASE WHEN (_r.sense > 0) THEN _r.invhist_invqty
ELSE 0
END,
CASE WHEN (_r.sense < 0) THEN (_r.invhist_invqty)
ELSE 0
END,
0,
_r.invhist_invqty * _r.invhist_unitcost * _r.sense,
CASE WHEN (_r.sense > 0) THEN _r.invhist_invqty * _r.invhist_unitcost
ELSE 0
END,
CASE WHEN (_r.sense < 0) THEN (_r.invhist_invqty * _r.invhist_unitcost)
ELSE 0
END,
-- Non netable
0,
CASE WHEN (_r.invhist_transtype='NN') THEN _r.invhist_invqty * -1
ELSE 0
END,
CASE WHEN (_r.sense > 0 AND _r.invhist_transtype='NN') THEN _r.invhist_invqty * -1
ELSE 0
END,
CASE WHEN (_r.sense < 0 AND _r.invhist_transtype='NN') THEN _r.invhist_invqty * -1
ELSE 0
END,
0,
CASE WHEN (_r.invhist_transtype='NN') THEN _r.invhist_invqty * _r.invhist_unitcost * -1
ELSE 0
END,
CASE WHEN (_r.sense > 0 AND _r.invhist_transtype='NN') THEN _r.invhist_invqty * -1 * _r.invhist_unitcost
ELSE 0
END,
CASE WHEN (_r.sense < 0 AND _r.invhist_transtype='NN') THEN (_r.invhist_invqty * -1 * _r.invhist_unitcost)
ELSE 0
END,
true );
END IF;
ELSE
RETURN FALSE;
END IF;
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.postintoinvbalance(integer) OWNER TO admin;
--
-- Name: postintotrialbalance(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postintotrialbalance(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSequence ALIAS FOR $1;
_trialbalid INTEGER;
_r RECORD;
BEGIN
-- March through all of the G/L Transactions for the passed sequence that are not posted
FOR _r IN SELECT gltrans_id, gltrans_date, gltrans_accnt_id, gltrans_amount,
accnt_forwardupdate, period_id, period_closed, period_freeze
FROM accnt, gltrans LEFT OUTER JOIN period ON (gltrans_date BETWEEN period_start AND period_end)
WHERE ( (gltrans_accnt_id=accnt_id)
AND (NOT gltrans_posted)
AND (NOT gltrans_deleted)
AND (gltrans_sequence=pSequence) ) LOOP
-- If we can post into a Trial Balance, do so
IF ( (NOT _r.period_closed) AND ( (NOT _r.period_freeze) OR (checkPrivilege('PostFrozenPeriod')) ) ) THEN
-- Try to find an existing trialbal
SELECT trialbal_id INTO _trialbalid
FROM trialbal
WHERE ( (trialbal_period_id=_r.period_id)
AND (trialbal_accnt_id=_r.gltrans_accnt_id) );
IF (FOUND) THEN
-- We found a trialbal, update it with the G/L Transaction
-- Note - two stage update to avoid any funny value caching logic
IF (_r.gltrans_amount > 0) THEN
UPDATE trialbal
SET trialbal_credits = (trialbal_credits + _r.gltrans_amount)
WHERE (trialbal_id=_trialbalid);
ELSE
UPDATE trialbal
SET trialbal_debits = (trialbal_debits + (_r.gltrans_amount * -1))
WHERE (trialbal_id=_trialbalid);
END IF;
UPDATE trialbal
SET trialbal_ending = (trialbal_beginning - trialbal_debits + trialbal_credits),
trialbal_dirty=TRUE
WHERE (trialbal_id=_trialbalid);
ELSE
-- No existing trialbal, make one
SELECT NEXTVAL('trialbal_trialbal_id_seq') INTO _trialbalid;
INSERT INTO trialbal
( trialbal_id, trialbal_accnt_id, trialbal_period_id,
trialbal_beginning, trialbal_dirty,
trialbal_ending,
trialbal_credits,
trialbal_debits )
VALUES
( _trialbalid, _r.gltrans_accnt_id, _r.period_id,
0, TRUE,
_r.gltrans_amount,
CASE WHEN (_r.gltrans_amount > 0) THEN _r.gltrans_amount
ELSE 0
END,
CASE WHEN (_r.gltrans_amount < 0) THEN (_r.gltrans_amount * -1)
ELSE 0
END );
END IF;
-- Forward update if we should
IF (_r.accnt_forwardupdate AND fetchmetricbool('ManualForwardUpdate')) THEN
PERFORM forwardUpdateTrialBalance(_trialbalid);
END IF;
-- Mark the G/L Transaction as posted
UPDATE gltrans
SET gltrans_posted=TRUE
WHERE (gltrans_id=_r.gltrans_id);
END IF;
END LOOP;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.postintotrialbalance(integer) OWNER TO admin;
--
-- Name: postinvhist(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postinvhist(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pInvhistId ALIAS FOR $1;
_r RECORD;
BEGIN
IF ( SELECT metric_value
FROM metric
WHERE ((metric_name = 'EnableAsOfQOH')
AND (metric_value = 't'))) THEN
IF (NOT postIntoInvBalance(pInvhistId)) THEN
RAISE EXCEPTION 'Post into Inventory Balance for invhist_id=% was unsuccessful',pInvhistId;
END IF;
END IF;
--Update itemsite qoh and change posted flag
UPDATE itemsite SET
itemsite_qtyonhand = (itemsite_qtyonhand + (invhist_invqty * invhistSense(invhist_id))),
itemsite_value = itemsite_value + invhist_value_after - invhist_value_before
FROM invhist
WHERE ( (itemsite_id=invhist_itemsite_id)
AND (invhist_id=pInvhistId)
AND (NOT invhist_posted) );
--Flag as posted
UPDATE invhist SET
invhist_posted=TRUE
WHERE ( (invhist_id=pInvhistId)
AND (invhist_posted=FALSE) );
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.postinvhist(integer) OWNER TO admin;
--
-- Name: postinvoice(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postinvoice(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pInvcheadid ALIAS FOR $1;
_return INTEGER;
BEGIN
SELECT postInvoice(pInvcheadid, fetchJournalNumber('AR-IN')) INTO _return;
RETURN _return;
END;
$_$;
ALTER FUNCTION public.postinvoice(integer) OWNER TO admin;
--
-- Name: postinvoice(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postinvoice(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pInvcheadid ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
_itemlocSeries INTEGER;
_return INTEGER;
BEGIN
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
SELECT postInvoice(pInvcheadid, pJournalNumber, _itemlocseries) INTO _return;
RETURN _return;
END;
$_$;
ALTER FUNCTION public.postinvoice(integer, integer) OWNER TO admin;
--
-- Name: postinvoice(integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postinvoice(integer, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pInvcheadid ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
pItemlocSeries ALIAS FOR $3;
_aropenid INTEGER;
_cohistid INTEGER;
_itemlocSeries INTEGER := 0;
_invhistid INTEGER := 0;
_amount NUMERIC;
_roundedBase NUMERIC;
_sequence INTEGER;
_r RECORD;
_p RECORD;
_test INTEGER;
_totalAmount NUMERIC := 0;
_totalRoundedBase NUMERIC := 0;
_totalAmountBase NUMERIC := 0;
_appliedAmount NUMERIC := 0;
_commissionDue NUMERIC := 0;
_tmpAccntId INTEGER;
_tmpCurrId INTEGER;
_firstExchDate DATE;
_glDate DATE;
_exchGain NUMERIC := 0;
BEGIN
IF ( ( SELECT invchead_posted
FROM invchead
WHERE (invchead_id=pInvcheadid) ) ) THEN
RETURN -10;
END IF;
-- Cache some parameters
SELECT invchead.*, fetchGLSequence() AS sequence,
findFreightAccount(invchead_cust_id) AS freightaccntid,
findARAccount(invchead_cust_id) AS araccntid,
( SELECT COALESCE(SUM(taxhist_tax), 0)
FROM invcheadtax
WHERE ( (taxhist_parent_id = invchead_id)
AND (taxhist_taxtype_id = getFreightTaxtypeId()) ) ) AS freighttax,
( SELECT COALESCE(SUM(taxhist_tax), 0)
FROM invcheadtax
WHERE ( (taxhist_parent_id = invchead_id)
AND (taxhist_taxtype_id = getAdjustmentTaxtypeId()) ) ) AS adjtax
INTO _p
FROM invchead
WHERE (invchead_id=pInvcheadid);
_itemlocSeries = pItemlocSeries;
_glDate := COALESCE(_p.invchead_gldistdate, _p.invchead_invcdate);
IF (_p.invchead_salesrep_id < 0) THEN
RAISE NOTICE 'Patch negative invchead_salesrep_id until invchead_salesrep_id is a true fkey';
_p.invchead_salesrep_id := NULL;
END IF;
-- the 1st MC iteration used the cohead_orderdate so we could get curr exch
-- gain/loss between the sales and invoice dates, but see issue 3892. leave
-- this condition TRUE until we make this configurable or decide not to.
IF TRUE THEN
_firstExchDate := _p.invchead_invcdate;
ELSE
-- can we save a select by using: _firstExchDate := _p.invchead_orderdate;
SELECT cohead_orderdate INTO _firstExchDate
FROM cohead JOIN invchead ON (cohead_number = invchead_ordernumber)
WHERE (invchead_id = pInvcheadid);
END IF;
-- Start by handling taxes
FOR _r IN SELECT tax_sales_accnt_id,
round(sum(taxdetail_tax),2) AS tax,
currToBase(_p.invchead_curr_id, round(sum(taxdetail_tax),2), _firstExchDate) AS taxbasevalue
FROM tax
JOIN calculateTaxDetailSummary('I', pInvcheadid, 'T') ON (taxdetail_tax_id=tax_id)
GROUP BY tax_id, tax_sales_accnt_id LOOP
PERFORM insertIntoGLSeries( _p.sequence, 'A/R', 'IN', _p.invchead_invcnumber,
_r.tax_sales_accnt_id,
_r.taxbasevalue,
_glDate, _p.invchead_billto_name );
_totalAmount := _totalAmount + _r.tax;
_totalRoundedBase := _totalRoundedBase + _r.taxbasevalue;
END LOOP;
-- Update item tax records with posting data
UPDATE invcitemtax SET
taxhist_docdate=_firstExchDate,
taxhist_distdate=_glDate,
taxhist_curr_id=_p.invchead_curr_id,
taxhist_curr_rate=curr_rate,
taxhist_journalnumber=pJournalNumber
FROM invchead
JOIN invcitem ON (invchead_id=invcitem_invchead_id),
curr_rate
WHERE ((invchead_id=pInvcheadId)
AND (taxhist_parent_id=invcitem_id)
AND (_p.invchead_curr_id=curr_id)
AND ( _firstExchDate BETWEEN curr_effective
AND curr_expires) );
-- Update Invchead taxes (Freight and Adjustments) with posting data
UPDATE invcheadtax SET
taxhist_docdate=_firstExchDate,
taxhist_distdate=_glDate,
taxhist_curr_id=_p.invchead_curr_id,
taxhist_curr_rate=curr_rate,
taxhist_journalnumber=pJournalNumber
FROM curr_rate
WHERE ((taxhist_parent_id=pInvcheadid)
AND (_p.invchead_curr_id=curr_id)
AND ( _firstExchDate BETWEEN curr_effective
AND curr_expires) );
-- March through the Non-Misc. Invcitems
FOR _r IN SELECT *
FROM invoiceitem
WHERE ( (invcitem_invchead_id = pInvcheadid)
AND (invcitem_item_id <> -1) ) LOOP
-- Cache the amount due for this line
_amount := _r.extprice;
IF (_amount > 0) THEN
-- Credit the Sales Account for the invcitem item
IF (_r.invcitem_rev_accnt_id IS NOT NULL) THEN
SELECT getPrjAccntId(_p.invchead_prj_id, _r.invcitem_rev_accnt_id)
INTO _tmpAccntId;
ELSEIF (_r.itemsite_id IS NULL) THEN
SELECT getPrjAccntId(_p.invchead_prj_id, salesaccnt_sales_accnt_id)
INTO _tmpAccntId
FROM salesaccnt
WHERE (salesaccnt_id=findSalesAccnt(_r.invcitem_item_id, 'I', _p.invchead_cust_id,
_p.invchead_saletype_id, _p.invchead_shipzone_id));
ELSE
SELECT getPrjAccntId(_p.invchead_prj_id, salesaccnt_sales_accnt_id)
INTO _tmpAccntId
FROM salesaccnt
WHERE (salesaccnt_id=findSalesAccnt(_r.itemsite_id, 'IS', _p.invchead_cust_id,
_p.invchead_saletype_id, _p.invchead_shipzone_id));
END IF;
-- If the Sales Account Assignment was not found then punt
IF (NOT FOUND) THEN
PERFORM deleteGLSeries(_p.sequence);
DELETE FROM cohist
WHERE ((cohist_sequence=_p.sequence)
AND (cohist_invcnumber=_p.invchead_invcnumber));
RETURN -11;
END IF;
_roundedBase := round(currToBase(_p.invchead_curr_id, _amount, _firstExchDate), 2);
SELECT insertIntoGLSeries( _p.sequence, 'A/R', 'IN',
_p.invchead_invcnumber, _tmpAccntId,
_roundedBase, _glDate, _p.invchead_billto_name ) INTO _test;
_totalAmount := (_totalAmount + _amount);
_totalRoundedBase := _totalRoundedBase + _roundedBase;
_commissionDue := (_commissionDue + (_amount * _p.invchead_commission));
END IF;
_totalAmount := _totalAmount;
_totalRoundedBase := _totalRoundedBase;
-- Record Sales History for this S/O Item
SELECT nextval('cohist_cohist_id_seq') INTO _cohistid;
INSERT INTO cohist
( cohist_id, cohist_cust_id, cohist_itemsite_id, cohist_shipto_id,
cohist_shipdate, cohist_shipvia,
cohist_ordernumber, cohist_ponumber, cohist_orderdate,
cohist_doctype, cohist_invcnumber, cohist_invcdate,
cohist_qtyshipped, cohist_unitprice, cohist_unitcost,
cohist_salesrep_id, cohist_commission, cohist_commissionpaid,
cohist_billtoname, cohist_billtoaddress1,
cohist_billtoaddress2, cohist_billtoaddress3,
cohist_billtocity, cohist_billtostate, cohist_billtozip,
cohist_shiptoname, cohist_shiptoaddress1,
cohist_shiptoaddress2, cohist_shiptoaddress3,
cohist_shiptocity, cohist_shiptostate, cohist_shiptozip,
cohist_curr_id, cohist_sequence, cohist_taxtype_id, cohist_taxzone_id,
cohist_shipzone_id, cohist_saletype_id )
VALUES
( _cohistid, _p.invchead_cust_id, _r.itemsite_id, _p.invchead_shipto_id,
_p.invchead_shipdate, _p.invchead_shipvia,
COALESCE(_p.invchead_ordernumber, _r.cohead_number), _p.invchead_ponumber, _p.invchead_orderdate,
'I', _p.invchead_invcnumber, _p.invchead_invcdate,
_r.qty, _r.unitprice, _r.unitcost,
_p.invchead_salesrep_id, (_p.invchead_commission * _r.extprice), FALSE,
_p.invchead_billto_name, _p.invchead_billto_address1,
_p.invchead_billto_address2, _p.invchead_billto_address3,
_p.invchead_billto_city, _p.invchead_billto_state, _p.invchead_billto_zipcode,
_p.invchead_shipto_name, _p.invchead_shipto_address1,
_p.invchead_shipto_address2, _p.invchead_shipto_address3,
_p.invchead_shipto_city, _p.invchead_shipto_state,
_p.invchead_shipto_zipcode, _p.invchead_curr_id,
_p.sequence, _r.invcitem_taxtype_id, _p.invchead_taxzone_id,
_p.invchead_shipzone_id, _p.invchead_saletype_id );
INSERT INTO cohisttax
( taxhist_parent_id, taxhist_taxtype_id, taxhist_tax_id,
taxhist_basis, taxhist_basis_tax_id, taxhist_sequence,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_distdate, taxhist_curr_id, taxhist_curr_rate,
taxhist_journalnumber )
SELECT _cohistid, taxhist_taxtype_id, taxhist_tax_id,
taxhist_basis, taxhist_basis_tax_id, taxhist_sequence,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_distdate, taxhist_curr_id, taxhist_curr_rate,
taxhist_journalnumber
FROM invcitemtax
WHERE (taxhist_parent_id=_r.invcitem_id);
END LOOP;
-- March through the Misc. Invcitems
FOR _r IN SELECT *
FROM invoiceitem JOIN salescat ON (salescat_id = invcitem_salescat_id)
WHERE ( (invcitem_item_id = -1)
AND (invcitem_invchead_id=pInvcheadid) ) LOOP
-- Cache the amount due for this line and the commission due for such
_amount := _r.extprice;
IF (_amount > 0) THEN
-- Credit the Sales Account for the invcitem item
_roundedBase = round(currToBase(_p.invchead_curr_id, _amount,
_firstExchDate), 2);
SELECT insertIntoGLSeries( _p.sequence, 'A/R', 'IN', _p.invchead_invcnumber,
getPrjAccntId(_p.invchead_prj_id, COALESCE(_r.invcitem_rev_accnt_id, _r.salescat_sales_accnt_id)),
_roundedBase,
_glDate, _p.invchead_billto_name ) INTO _test;
IF (_test < 0) THEN
PERFORM deleteGLSeries(_p.sequence);
DELETE FROM cohist
WHERE ((cohist_sequence=_p.sequence)
AND (cohist_invcnumber=_p.invchead_invcnumber));
RETURN _test;
END IF;
_totalAmount := (_totalAmount + _amount);
_totalRoundedBase := _totalRoundedBase + _roundedBase;
_commissionDue := (_commissionDue + (_amount * _p.invchead_commission));
END IF;
-- Record Sales History for this S/O Item
SELECT nextval('cohist_cohist_id_seq') INTO _cohistid;
INSERT INTO cohist
( cohist_id, cohist_cust_id, cohist_itemsite_id, cohist_shipto_id,
cohist_misc_type, cohist_misc_descrip,
cohist_shipdate, cohist_shipvia,
cohist_ordernumber, cohist_ponumber, cohist_orderdate,
cohist_doctype, cohist_invcnumber, cohist_invcdate,
cohist_qtyshipped, cohist_unitprice, cohist_unitcost,
cohist_salesrep_id, cohist_commission, cohist_commissionpaid,
cohist_billtoname, cohist_billtoaddress1,
cohist_billtoaddress2, cohist_billtoaddress3,
cohist_billtocity, cohist_billtostate, cohist_billtozip,
cohist_shiptoname, cohist_shiptoaddress1,
cohist_shiptoaddress2, cohist_shiptoaddress3,
cohist_shiptocity, cohist_shiptostate, cohist_shiptozip,
cohist_curr_id, cohist_sequence, cohist_taxtype_id, cohist_taxzone_id,
cohist_shipzone_id, cohist_saletype_id )
VALUES
( _cohistid, _p.invchead_cust_id, -1, _p.invchead_shipto_id,
'M', (_r.invcitem_number || '-' || _r.invcitem_descrip),
_p.invchead_shipdate, _p.invchead_shipvia,
COALESCE(_p.invchead_ordernumber, _r.cohead_number), _p.invchead_ponumber, _p.invchead_orderdate,
'I', _p.invchead_invcnumber, _p.invchead_invcdate,
_r.qty, _r.unitprice, 0,
_p.invchead_salesrep_id, (_p.invchead_commission * _r.extprice), FALSE,
_p.invchead_billto_name, _p.invchead_billto_address1,
_p.invchead_billto_address2, _p.invchead_billto_address3,
_p.invchead_billto_city, _p.invchead_billto_state, _p.invchead_billto_zipcode,
_p.invchead_shipto_name, _p.invchead_shipto_address1,
_p.invchead_shipto_address2, _p.invchead_shipto_address3,
_p.invchead_shipto_city, _p.invchead_shipto_state,
_p.invchead_shipto_zipcode, _p.invchead_curr_id,
_p.sequence, _r.invcitem_taxtype_id, _p.invchead_taxzone_id,
_p.invchead_shipzone_id, _p.invchead_saletype_id );
INSERT INTO cohisttax
( taxhist_parent_id, taxhist_taxtype_id, taxhist_tax_id,
taxhist_basis, taxhist_basis_tax_id, taxhist_sequence,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_distdate, taxhist_curr_id, taxhist_curr_rate,
taxhist_journalnumber )
SELECT _cohistid, taxhist_taxtype_id, taxhist_tax_id,
taxhist_basis, taxhist_basis_tax_id, taxhist_sequence,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_distdate, taxhist_curr_id, taxhist_curr_rate,
taxhist_journalnumber
FROM invcitemtax
WHERE (taxhist_parent_id=_r.invcitem_id);
END LOOP;
-- Credit the Freight Account for Freight Charges
IF (_p.invchead_freight <> 0) THEN
IF (_p.freightaccntid <> -1) THEN
_roundedBase = round(currToBase(_p.invchead_curr_id, _p.invchead_freight,
_firstExchDate), 2);
SELECT insertIntoGLSeries( _p.sequence, 'A/R', 'IN', _p.invchead_invcnumber,
getPrjAccntId(_p.invchead_prj_id,_p.freightaccntid),
_roundedBase,
_glDate, _p.invchead_billto_name ) INTO _test;
-- Cache the Freight Amount distributed
_totalAmount := (_totalAmount + _p.invchead_freight);
_totalRoundedBase := _totalRoundedBase + _roundedBase;
ELSE
_test := -14;
END IF;
-- If the Freight Account was not found then punt
IF (_test < 0) THEN
PERFORM deleteGLSeries(_p.sequence);
DELETE FROM cohist
WHERE ((cohist_sequence=_p.sequence)
AND (cohist_invcnumber=_p.invchead_invcnumber));
RETURN _test;
END IF;
-- Record Sales History for the Freight
SELECT nextval('cohist_cohist_id_seq') INTO _cohistid;
INSERT INTO cohist
( cohist_id, cohist_cust_id, cohist_itemsite_id, cohist_shipto_id,
cohist_misc_type, cohist_misc_descrip,
cohist_shipdate, cohist_shipvia,
cohist_ordernumber, cohist_ponumber, cohist_orderdate,
cohist_doctype, cohist_invcnumber, cohist_invcdate,
cohist_qtyshipped, cohist_unitprice, cohist_unitcost,
cohist_salesrep_id, cohist_commission, cohist_commissionpaid,
cohist_billtoname, cohist_billtoaddress1,
cohist_billtoaddress2, cohist_billtoaddress3,
cohist_billtocity, cohist_billtostate, cohist_billtozip,
cohist_shiptoname, cohist_shiptoaddress1,
cohist_shiptoaddress2, cohist_shiptoaddress3,
cohist_shiptocity, cohist_shiptostate, cohist_shiptozip,
cohist_curr_id, cohist_sequence, cohist_taxtype_id, cohist_taxzone_id,
cohist_shipzone_id, cohist_saletype_id )
VALUES
( _cohistid, _p.invchead_cust_id, -1, _p.invchead_shipto_id,
'F', 'Freight',
_p.invchead_shipdate, _p.invchead_shipvia,
_p.invchead_ordernumber, _p.invchead_ponumber, _p.invchead_orderdate,
'I', _p.invchead_invcnumber, _p.invchead_invcdate,
1, _p.invchead_freight, _p.invchead_freight,
_p.invchead_salesrep_id, 0, FALSE,
_p.invchead_billto_name, _p.invchead_billto_address1,
_p.invchead_billto_address2, _p.invchead_billto_address3,
_p.invchead_billto_city, _p.invchead_billto_state, _p.invchead_billto_zipcode,
_p.invchead_shipto_name, _p.invchead_shipto_address1,
_p.invchead_shipto_address2, _p.invchead_shipto_address3,
_p.invchead_shipto_city, _p.invchead_shipto_state,
_p.invchead_shipto_zipcode, _p.invchead_curr_id,
_p.sequence, getFreightTaxtypeId(), _p.invchead_taxzone_id,
_p.invchead_shipzone_id, _p.invchead_saletype_id );
INSERT INTO cohisttax
( taxhist_parent_id, taxhist_taxtype_id, taxhist_tax_id,
taxhist_basis, taxhist_basis_tax_id, taxhist_sequence,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_distdate, taxhist_curr_id, taxhist_curr_rate,
taxhist_journalnumber )
SELECT _cohistid, taxhist_taxtype_id, taxhist_tax_id,
taxhist_basis, taxhist_basis_tax_id, taxhist_sequence,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_distdate, taxhist_curr_id, taxhist_curr_rate,
taxhist_journalnumber
FROM invcheadtax
WHERE ( (taxhist_parent_id=_p.invchead_id)
AND (taxhist_taxtype_id=getFreightTaxtypeId()) );
END IF;
-- Credit the Misc. Account for Miscellaneous Charges
IF (_p.invchead_misc_amount <> 0) THEN
_roundedBase := round(currToBase(_p.invchead_curr_id, _p.invchead_misc_amount,
_firstExchDate), 2);
SELECT insertIntoGLSeries( _p.sequence, 'A/R', 'IN', _p.invchead_invcnumber,
getPrjAccntId(_p.invchead_prj_id, _p.invchead_misc_accnt_id),
_roundedBase,
_glDate, _p.invchead_billto_name ) INTO _test;
-- If the Misc. Charges Account was not found then punt
IF (_test < 0) THEN
PERFORM deleteGLSeries(_p.sequence);
DELETE FROM cohist
WHERE ((cohist_sequence=_p.sequence)
AND (cohist_invcnumber=_p.invchead_invcnumber));
RETURN _test;
END IF;
-- Cache the Misc. Amount distributed
_totalAmount := (_totalAmount + _p.invchead_misc_amount);
_totalRoundedBase := _totalRoundedBase + _roundedBase;
-- Record Sales History for the Misc. Charge
INSERT INTO cohist
( cohist_cust_id, cohist_itemsite_id, cohist_shipto_id,
cohist_misc_type, cohist_misc_descrip, cohist_misc_id,
cohist_shipdate, cohist_shipvia,
cohist_ordernumber, cohist_ponumber, cohist_orderdate,
cohist_doctype, cohist_invcnumber, cohist_invcdate,
cohist_qtyshipped, cohist_unitprice, cohist_unitcost,
cohist_salesrep_id, cohist_commission, cohist_commissionpaid,
cohist_billtoname, cohist_billtoaddress1,
cohist_billtoaddress2, cohist_billtoaddress3,
cohist_billtocity, cohist_billtostate, cohist_billtozip,
cohist_shiptoname, cohist_shiptoaddress1,
cohist_shiptoaddress2, cohist_shiptoaddress3,
cohist_shiptocity, cohist_shiptostate, cohist_shiptozip,
cohist_curr_id, cohist_sequence,
cohist_shipzone_id, cohist_saletype_id )
VALUES
( _p.invchead_cust_id, -1, _p.invchead_shipto_id,
'M', _p.invchead_misc_descrip, _p.invchead_misc_accnt_id,
_p.invchead_shipdate, _p.invchead_shipvia,
_p.invchead_ordernumber, _p.invchead_ponumber, _p.invchead_orderdate,
'I', _p.invchead_invcnumber, _p.invchead_invcdate,
1, _p.invchead_misc_amount, _p.invchead_misc_amount,
_p.invchead_salesrep_id, 0, FALSE,
_p.invchead_billto_name, _p.invchead_billto_address1,
_p.invchead_billto_address2, _p.invchead_billto_address3,
_p.invchead_billto_city, _p.invchead_billto_state, _p.invchead_billto_zipcode,
_p.invchead_shipto_name, _p.invchead_shipto_address1,
_p.invchead_shipto_address2, _p.invchead_shipto_address3,
_p.invchead_shipto_city, _p.invchead_shipto_state,
_p.invchead_shipto_zipcode, _p.invchead_curr_id,
_p.sequence,
_p.invchead_shipzone_id, _p.invchead_saletype_id );
END IF;
-- Record Sales History for the Tax Adjustment
IF (_p.adjtax <> 0) THEN
SELECT nextval('cohist_cohist_id_seq') INTO _cohistid;
INSERT INTO cohist
( cohist_id, cohist_cust_id, cohist_itemsite_id, cohist_shipto_id,
cohist_misc_type, cohist_misc_descrip,
cohist_shipdate, cohist_shipvia,
cohist_ordernumber, cohist_ponumber, cohist_orderdate,
cohist_doctype, cohist_invcnumber, cohist_invcdate,
cohist_qtyshipped, cohist_unitprice, cohist_unitcost,
cohist_salesrep_id, cohist_commission, cohist_commissionpaid,
cohist_billtoname, cohist_billtoaddress1,
cohist_billtoaddress2, cohist_billtoaddress3,
cohist_billtocity, cohist_billtostate, cohist_billtozip,
cohist_shiptoname, cohist_shiptoaddress1,
cohist_shiptoaddress2, cohist_shiptoaddress3,
cohist_shiptocity, cohist_shiptostate, cohist_shiptozip,
cohist_curr_id, cohist_sequence, cohist_taxtype_id, cohist_taxzone_id,
cohist_shipzone_id, cohist_saletype_id )
VALUES
( _cohistid, _p.invchead_cust_id, -1, _p.invchead_shipto_id,
'T', 'Misc Tax Adjustment',
_p.invchead_shipdate, _p.invchead_shipvia,
_p.invchead_ordernumber, _p.invchead_ponumber, _p.invchead_orderdate,
'I', _p.invchead_invcnumber, _p.invchead_invcdate,
1, 0.0, 0.0,
_p.invchead_salesrep_id, 0, FALSE,
_p.invchead_billto_name, _p.invchead_billto_address1,
_p.invchead_billto_address2, _p.invchead_billto_address3,
_p.invchead_billto_city, _p.invchead_billto_state, _p.invchead_billto_zipcode,
_p.invchead_shipto_name, _p.invchead_shipto_address1,
_p.invchead_shipto_address2, _p.invchead_shipto_address3,
_p.invchead_shipto_city, _p.invchead_shipto_state,
_p.invchead_shipto_zipcode, _p.invchead_curr_id,
_p.sequence, getAdjustmentTaxtypeId(), _p.invchead_taxzone_id,
_p.invchead_shipzone_id, _p.invchead_saletype_id );
INSERT INTO cohisttax
( taxhist_parent_id, taxhist_taxtype_id, taxhist_tax_id,
taxhist_basis, taxhist_basis_tax_id, taxhist_sequence,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_distdate, taxhist_curr_id, taxhist_curr_rate,
taxhist_journalnumber )
SELECT _cohistid, taxhist_taxtype_id, taxhist_tax_id,
taxhist_basis, taxhist_basis_tax_id, taxhist_sequence,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_distdate, taxhist_curr_id, taxhist_curr_rate,
taxhist_journalnumber
FROM invcheadtax
WHERE ( (taxhist_parent_id=_p.invchead_id)
AND (taxhist_taxtype_id=getAdjustmentTaxtypeId()) );
END IF;
-- ToDo: handle rounding errors
_exchGain := currGain(_p.invchead_curr_id, _totalAmount,
_firstExchDate, _glDate);
IF (_exchGain <> 0) THEN
SELECT insertIntoGLSeries( _p.sequence, 'A/R', 'IN',
_p.invchead_invcnumber, getGainLossAccntId(_p.araccntid),
round(_exchGain, 2) * -1,
_glDate, _p.invchead_billto_name ) INTO _test ;
IF (_test < 0) THEN
PERFORM deleteGLSeries(_p.sequence);
DELETE FROM cohist
WHERE ((cohist_sequence=_p.sequence)
AND (cohist_invcnumber=_p.invchead_invcnumber));
RETURN _test;
END IF;
END IF;
-- Debit A/R for the total Amount
IF (_totalRoundedBase <> 0) THEN
IF (_p.araccntid != -1) THEN
PERFORM insertIntoGLSeries( _p.sequence, 'A/R', 'IN', _p.invchead_invcnumber,
_p.araccntid, round(_totalRoundedBase * -1, 2),
_glDate, _p.invchead_billto_name );
ELSE
PERFORM deleteGLSeries(_p.sequence);
DELETE FROM cohist
WHERE ((cohist_sequence=_p.sequence)
AND (cohist_invcnumber=_p.invchead_invcnumber));
RETURN -17;
END IF;
END IF;
-- Commit the GLSeries;
SELECT postGLSeries(_p.sequence, pJournalNumber) INTO _test;
IF (_test < 0) THEN
PERFORM deleteGLSeries(_p.sequence);
DELETE FROM cohist
WHERE ((cohist_sequence=_p.sequence)
AND (cohist_invcnumber=_p.invchead_invcnumber));
RETURN _test;
END IF;
-- Create the Invoice aropen item
SELECT nextval('aropen_aropen_id_seq') INTO _aropenid;
INSERT INTO aropen
( aropen_id, aropen_username, aropen_journalnumber,
aropen_open, aropen_posted,
aropen_cust_id, aropen_ponumber,
aropen_docnumber, aropen_applyto, aropen_doctype,
aropen_docdate, aropen_duedate, aropen_distdate, aropen_terms_id,
aropen_amount, aropen_paid,
aropen_salesrep_id, aropen_commission_due, aropen_commission_paid,
aropen_ordernumber, aropen_notes, aropen_cobmisc_id,
aropen_curr_id )
VALUES
( _aropenid, getEffectiveXtUser(), pJournalNumber,
TRUE, FALSE,
_p.invchead_cust_id, _p.invchead_ponumber,
_p.invchead_invcnumber, _p.invchead_invcnumber, 'I',
_p.invchead_invcdate, determineDueDate(_p.invchead_terms_id, _p.invchead_invcdate), _glDate, _p.invchead_terms_id,
round(_totalAmount, 2), 0,
_p.invchead_salesrep_id, _commissionDue, FALSE,
_p.invchead_ordernumber::text, _p.invchead_notes, pInvcheadid,
_p.invchead_curr_id );
-- Handle the Inventory and G/L Transactions for any billed Inventory where invcitem_updateinv is true
FOR _r IN SELECT itemsite_id AS itemsite_id, invcitem_id,
(invcitem_billed * invcitem_qty_invuomratio) AS qty,
invchead_invcnumber, invchead_cust_id AS cust_id, item_number,
invchead_saletype_id AS saletype_id, invchead_shipzone_id AS shipzone_id,
invchead_prj_id, itemsite_costmethod
FROM invchead JOIN invcitem ON ( (invcitem_invchead_id=invchead_id) AND
(invcitem_billed <> 0) AND
(invcitem_updateinv) )
JOIN itemsite ON ( (itemsite_item_id=invcitem_item_id) AND
(itemsite_warehous_id=invcitem_warehous_id) )
JOIN item ON (item_id=invcitem_item_id)
WHERE (invchead_id=pInvcheadid) LOOP
-- Issue billed stock from inventory
IF (_itemlocSeries = 0) THEN
_itemlocSeries := NEXTVAL('itemloc_series_seq');
END IF;
IF (_r.itemsite_costmethod != 'J') THEN
SELECT postInvTrans(itemsite_id, 'SH', _r.qty,
'S/O', 'IN', _r.invchead_invcnumber, '',
('Invoice Billed ' || _r.item_number),
getPrjAccntId(_r.invchead_prj_id, resolveCOSAccount(itemsite_id, _r.cust_id, _r.saletype_id, _r.shipzone_id)),
costcat_asset_accnt_id, _itemlocSeries, _glDate) INTO _invhistid
FROM itemsite, costcat
WHERE ( (itemsite_costcat_id=costcat_id)
AND (itemsite_id=_r.itemsite_id) );
ELSE
RAISE DEBUG 'postInvoice(%, %, %) tried to postInvTrans a %-costed item',
pInvcheadid, pJournalNumber, pItemlocSeries,
_r.itemsite_costmethod;
END IF;
END LOOP;
-- Mark the invoice as posted
UPDATE invchead
SET invchead_posted=TRUE, invchead_gldistdate=_glDate
WHERE (invchead_id=pInvcheadid);
IF (_totalAmount > 0) THEN
-- get a list of allocated CMs
FOR _r IN SELECT aropen_id,
CASE WHEN((aropen_amount - aropen_paid) >=
aropenalloc_amount / (1 / aropen_curr_rate /
currRate(aropenalloc_curr_id,_firstExchDate))) THEN
aropenalloc_amount / (1 / aropen_curr_rate /
currRate(aropenalloc_curr_id,_firstExchDate))
ELSE (aropen_amount - aropen_paid)
END AS balance,
aropen_curr_id, aropen_curr_rate,
aropenalloc_doctype, aropenalloc_doc_id
FROM aropenalloc, aropen
WHERE ( (aropenalloc_aropen_id=aropen_id)
AND ((aropenalloc_doctype='S' AND aropenalloc_doc_id=(SELECT cohead_id
FROM cohead
WHERE cohead_number=_p.invchead_ordernumber)) OR
(aropenalloc_doctype='I' AND aropenalloc_doc_id=_p.invchead_id)) ) LOOP
_appliedAmount := _r.balance;
IF (_totalAmount < _appliedAmount / (1 / currRate(_r.aropen_curr_id,_firstExchDate) /
_r.aropen_curr_rate)) THEN
_appliedAmount := _totalAmount;
_tmpCurrId := _p.invchead_curr_id;
ELSE
_tmpCurrId := _r.aropen_curr_id;
END IF;
-- ignore if no appliable balance
IF (_appliedAmount > 0) THEN
-- create an arcreditapply record linking the source c/m and the target invoice
-- for an amount that is equal to the balance on the invoice or the balance on
-- c/m whichever is greater.
INSERT INTO arcreditapply
(arcreditapply_source_aropen_id, arcreditapply_target_aropen_id,
arcreditapply_amount, arcreditapply_curr_id, arcreditapply_reftype, arcreditapply_ref_id)
VALUES(_r.aropen_id, _aropenid, _appliedAmount, _tmpCurrId, 'S', _r.aropenalloc_doc_id);
-- call postARCreditMemoApplication(aropen_id of C/M)
SELECT postARCreditMemoApplication(_r.aropen_id) into _test;
-- if no error decrement the balance and contiue on
IF (_test >= 0) THEN
_totalAmount := _totalAmount - currToCurr(_tmpCurrId, _p.invchead_curr_id,
_appliedAmount, _firstExchDate);
END IF;
END IF;
END LOOP;
END IF;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.postinvoice(integer, integer, integer) OWNER TO admin;
--
-- Name: postinvoices(boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postinvoices(boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPostUnprinted ALIAS FOR $1;
BEGIN
RETURN postInvoices(pPostUnprinted, FALSE);
END;
$_$;
ALTER FUNCTION public.postinvoices(boolean) OWNER TO admin;
--
-- Name: postinvoices(boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postinvoices(boolean, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPostUnprinted ALIAS FOR $1;
pInclZeros ALIAS FOR $2;
BEGIN
RETURN postInvoices(pPostUnprinted, pInclZeros, fetchJournalNumber('AR-IN'));
END;
$_$;
ALTER FUNCTION public.postinvoices(boolean, boolean) OWNER TO admin;
--
-- Name: postinvoices(boolean, boolean, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postinvoices(boolean, boolean, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPostUnprinted ALIAS FOR $1;
pInclZeros ALIAS FOR $2;
pJournalNumber ALIAS FOR $3;
_invcheadid INTEGER;
_itemlocSeries INTEGER;
_counter INTEGER;
_r RECORD;
BEGIN
_itemlocSeries := 0;
IF (pInclZeros) THEN
FOR _invcheadid IN
SELECT invchead_id
FROM invchead
WHERE ( (NOT invchead_posted)
AND (checkInvoiceSitePrivs(invchead_id))
AND (pPostUnprinted OR invchead_printed) ) LOOP
SELECT postInvoice(_invcheadid, pJournalNumber, _itemlocSeries) INTO _itemlocSeries;
IF (_itemlocSeries < 0) THEN
RETURN _itemlocSeries;
END IF;
END LOOP;
ELSE
FOR _invcheadid IN
SELECT invchead_id
FROM invchead LEFT OUTER JOIN invcitem ON (invchead_id=invcitem_invchead_id)
LEFT OUTER JOIN item ON (invcitem_item_id=item_id)
WHERE((NOT invchead_posted)
AND (checkInvoiceSitePrivs(invchead_id))
AND (pPostUnprinted OR invchead_printed))
GROUP BY invchead_id, invchead_freight, invchead_misc_amount
HAVING (COALESCE(SUM(round((invcitem_billed * invcitem_qty_invuomratio) * (invcitem_price /
CASE WHEN (item_id IS NULL) THEN 1
ELSE invcitem_price_invuomratio END), 2)),0)
+ invchead_freight + invchead_misc_amount) > 0 LOOP
SELECT postInvoice(_invcheadid, pJournalNumber, _itemlocSeries) INTO _itemlocSeries;
IF (_itemlocSeries < 0) THEN
RETURN _itemlocSeries;
END IF;
END LOOP;
END IF;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.postinvoices(boolean, boolean, integer) OWNER TO admin;
--
-- Name: postinvtrans(integer, text, numeric, text, text, text, text, text, integer, integer, integer, timestamp with time zone, numeric, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postinvtrans(pitemsiteid integer, ptranstype text, pqty numeric, pmodule text, pordertype text, pordernumber text, pdocnumber text, pcomments text, pdebitid integer, pcreditid integer, pitemlocseries integer, ptimestamp timestamp with time zone DEFAULT now(), pcostovrld numeric DEFAULT NULL::numeric, pinvhistid integer DEFAULT NULL::integer) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
-- pInvhistid is the original transaction to be returned, reversed, etc.
DECLARE
_creditid INTEGER;
_debitid INTEGER;
_glreturn INTEGER;
_invhistid INTEGER;
_itemlocdistid INTEGER;
_r RECORD;
_sense INTEGER; -- direction in which to adjust inventory QOH
_t RECORD;
_timestamp TIMESTAMP WITH TIME ZONE;
_xferwhsid INTEGER;
BEGIN
-- Cache item and itemsite info
SELECT CASE WHEN(itemsite_costmethod IN ('A','J')) THEN COALESCE(abs(pCostOvrld / pQty), avgcost(itemsite_id))
ELSE stdCost(itemsite_item_id)
END AS cost,
itemsite_costmethod,
itemsite_qtyonhand,
itemsite_warehous_id,
( (item_type = 'R') OR (itemsite_controlmethod = 'N') ) AS nocontrol,
(itemsite_controlmethod IN ('L', 'S')) AS lotserial,
(itemsite_loccntrl) AS loccntrl,
itemsite_freeze AS frozen INTO _r
FROM itemsite JOIN item ON (item_id=itemsite_item_id)
WHERE (itemsite_id=pItemsiteid);
--Post the Inventory Transactions
IF (_r.nocontrol) THEN
RETURN -1; -- non-fatal error so dont throw an exception?
END IF;
IF (COALESCE(pItemlocSeries,0) = 0) THEN
RAISE EXCEPTION 'Transaction series must be provided';
END IF;
SELECT NEXTVAL('invhist_invhist_id_seq') INTO _invhistid;
IF ((pTimestamp IS NULL) OR (CAST(pTimestamp AS date)=CURRENT_DATE)) THEN
_timestamp := CURRENT_TIMESTAMP;
ELSE
_timestamp := pTimestamp;
END IF;
IF (pTransType = 'TS' OR pTransType = 'TR') THEN
SELECT * INTO _t FROM tohead WHERE (tohead_number=pDocNumber);
IF (pTransType = 'TS') THEN
_xferwhsid := CASE
WHEN (_t.tohead_src_warehous_id=_r.itemsite_warehous_id) THEN _t.tohead_trns_warehous_id
WHEN (_t.tohead_trns_warehous_id=_r.itemsite_warehous_id AND pComments ~* 'recall') THEN _t.tohead_src_warehous_id
WHEN (_t.tohead_trns_warehous_id=_r.itemsite_warehous_id) THEN _t.tohead_dest_warehous_id
WHEN (_t.tohead_dest_warehous_id=_r.itemsite_warehous_id) THEN _t.tohead_trns_warehous_id
ELSE NULL
END;
ELSIF (pTransType = 'TR') THEN
_xferwhsid := CASE
WHEN (_t.tohead_src_warehous_id=_r.itemsite_warehous_id) THEN _t.tohead_trns_warehous_id
WHEN (_t.tohead_trns_warehous_id=_r.itemsite_warehous_id AND pComments ~* 'recall') THEN _t.tohead_dest_warehous_id
WHEN (_t.tohead_trns_warehous_id=_r.itemsite_warehous_id) THEN _t.tohead_src_warehous_id
WHEN (_t.tohead_dest_warehous_id=_r.itemsite_warehous_id) THEN _t.tohead_trns_warehous_id
ELSE NULL
END;
END IF;
END IF;
-- increase inventory: AD RM RT RP RR RS RX RB TR
-- decrease inventory: IM IB IT SH SI EX RI
-- TS and TR are special: shipShipment and recallShipment should not change
-- QOH at the Transfer Order src whs (as this was done by issueToShipping)
-- but postReceipt should change QOH at the transit whs
IF (pTransType='TS') THEN
_sense := CASE WHEN (SELECT tohead_trns_warehous_id=_r.itemsite_warehous_id
FROM tohead
WHERE (tohead_number=pDocNumber)) THEN -1
ELSE 0
END;
ELSIF (pTransType='TR') THEN
_sense := CASE WHEN (SELECT tohead_src_warehous_id=_r.itemsite_warehous_id
FROM tohead
WHERE (tohead_number=pDocNumber)) THEN 0
ELSE 1
END;
ELSIF (pTransType IN ('IM', 'IB', 'IT', 'SH', 'SI', 'EX', 'RI')) THEN
_sense := -1;
ELSE
_sense := 1;
END IF;
IF((_r.itemsite_costmethod='A') AND (_r.itemsite_qtyonhand + round(_sense * pQty, 6)) < 0) THEN
-- Can not let average costed itemsites go negative
RAISE EXCEPTION 'This transaction will cause an Average Costed item to go negative which is not allowed [xtuple: postinvtrans, -2]';
END IF;
INSERT INTO invhist
( invhist_id, invhist_itemsite_id, invhist_transtype, invhist_transdate,
invhist_invqty, invhist_qoh_before,
invhist_qoh_after,
invhist_costmethod, invhist_value_before, invhist_value_after,
invhist_ordtype, invhist_ordnumber, invhist_docnumber, invhist_comments,
invhist_invuom, invhist_unitcost, invhist_xfer_warehous_id, invhist_posted,
invhist_series )
SELECT
_invhistid, itemsite_id, pTransType, _timestamp,
pQty, itemsite_qtyonhand,
(itemsite_qtyonhand + (_sense * pQty)),
itemsite_costmethod, itemsite_value, itemsite_value + (_r.cost * _sense * pQty),
pOrderType, pOrderNumber, pDocNumber, pComments,
uom_name, _r.cost, _xferwhsid, FALSE, pItemlocSeries
FROM itemsite, item, uom
WHERE ( (itemsite_item_id=item_id)
AND (item_inv_uom_id=uom_id)
AND (itemsite_id=pItemsiteid) );
IF (pCreditid IN (SELECT accnt_id FROM accnt)) THEN
_creditid = pCreditid;
ELSE
SELECT warehous_default_accnt_id INTO _creditid
FROM itemsite, whsinfo
WHERE ( (itemsite_warehous_id=warehous_id)
AND (itemsite_id=pItemsiteid) );
END IF;
IF (pDebitid IN (SELECT accnt_id FROM accnt)) THEN
_debitid = pDebitid;
ELSE
SELECT warehous_default_accnt_id INTO _debitid
FROM itemsite, whsinfo
WHERE ( (itemsite_warehous_id=warehous_id)
AND (itemsite_id=pItemsiteid) );
END IF;
-- Post the G/L Transaction
IF (_creditid <> _debitid) THEN
SELECT insertGLTransaction(pModule, pOrderType, pOrderNumber, pComments,
_creditid, _debitid, _invhistid,
(_r.cost * pQty), _timestamp::DATE, FALSE) INTO _glreturn;
END IF;
-- Distribute this if this itemsite is controlled
IF ( _r.lotserial OR _r.loccntrl ) THEN
_itemlocdistid := nextval('itemlocdist_itemlocdist_id_seq');
INSERT INTO itemlocdist
( itemlocdist_id,
itemlocdist_itemsite_id,
itemlocdist_source_type,
itemlocdist_reqlotserial,
itemlocdist_distlotserial,
itemlocdist_expiration,
itemlocdist_qty,
itemlocdist_series,
itemlocdist_invhist_id,
itemlocdist_order_type,
itemlocdist_order_id )
SELECT _itemlocdistid,
pItemsiteid,
'O',
(((pQty * _sense) > 0) AND _r.lotserial),
((pQty * _sense) < 0),
endOfTime(),
(_sense * pQty),
pItemlocSeries,
_invhistid,
pOrderType,
CASE WHEN pOrderType='SO' THEN getSalesLineItemId(pOrderNumber)
ELSE NULL
END;
-- populate distributions if invhist_id parameter passed to undo
IF (pInvhistid IS NOT NULL) THEN
INSERT INTO itemlocdist
( itemlocdist_itemlocdist_id, itemlocdist_source_type, itemlocdist_source_id,
itemlocdist_itemsite_id, itemlocdist_ls_id, itemlocdist_expiration,
itemlocdist_qty, itemlocdist_series, itemlocdist_invhist_id )
SELECT _itemlocdistid, 'L', COALESCE(invdetail_location_id, -1),
invhist_itemsite_id, invdetail_ls_id, COALESCE(invdetail_expiration, endoftime()),
(invdetail_qty * -1.0), pItemlocSeries, _invhistid
FROM invhist JOIN invdetail ON (invdetail_invhist_id=invhist_id)
WHERE (invhist_id=pInvhistid);
IF ( _r.lotserial) THEN
INSERT INTO lsdetail
( lsdetail_itemsite_id, lsdetail_ls_id, lsdetail_created,
lsdetail_source_type, lsdetail_source_id, lsdetail_source_number )
SELECT invhist_itemsite_id, invdetail_ls_id, CURRENT_TIMESTAMP,
'I', _itemlocdistid, ''
FROM invhist JOIN invdetail ON (invdetail_invhist_id=invhist_id)
WHERE (invhist_id=pInvhistid);
END IF;
PERFORM distributeitemlocseries(pItemlocSeries);
END IF;
END IF; -- end of distributions
-- These records will be used for posting G/L transactions to trial balance after records committed.
-- If we try to do it now concurrency locking prevents any transactions while
-- user enters item distribution information. Cant have that.
INSERT INTO itemlocpost ( itemlocpost_glseq, itemlocpost_itemlocseries)
VALUES ( _glreturn, pItemlocSeries );
RETURN _invhistid;
END;
$$;
ALTER FUNCTION public.postinvtrans(pitemsiteid integer, ptranstype text, pqty numeric, pmodule text, pordertype text, pordernumber text, pdocnumber text, pcomments text, pdebitid integer, pcreditid integer, pitemlocseries integer, ptimestamp timestamp with time zone, pcostovrld numeric, pinvhistid integer) OWNER TO admin;
--
-- Name: postitemlocseries(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postitemlocseries(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemlocseries ALIAS FOR $1;
_result INTEGER;
BEGIN
PERFORM postIntoTrialBalance(itemlocpost_glseq)
FROM (
SELECT DISTINCT itemlocpost_glseq, gltrans_accnt_id
FROM itemlocpost
JOIN gltrans ON (itemlocpost_glseq=gltrans_sequence)
WHERE (itemlocpost_itemlocseries=pItemlocseries)
ORDER BY gltrans_accnt_id
) AS data;
PERFORM postInvHist(invhist_id)
FROM invhist
JOIN itemsite ON (invhist_itemsite_id=itemsite_id)
WHERE ( (invhist_series=pItemlocseries)
AND ( NOT invhist_posted)
AND ( NOT itemsite_freeze) );
DELETE FROM itemlocpost WHERE (itemlocpost_itemlocseries=pItemlocseries);
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.postitemlocseries(integer) OWNER TO admin;
--
-- Name: postjournals(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postjournals(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSequence ALIAS FOR $1;
_transCount INTEGER := 0;
_journalnumber INTEGER := fetchJournalNumber('J/P');
_sequence INTEGER := fetchGLSequence();
_sltrans RECORD;
BEGIN
-- Make sure that we balance
IF (SELECT SUM(sltrans_amount) != 0
FROM sltrans
WHERE ((NOT sltrans_posted )
AND (sltrans_sequence=pSequence))) THEN
RAISE EXCEPTION 'Can not post journals. Transactions do not balance in selected date range.';
END IF;
-- March through the sltrans members, posting them one at a time
FOR _sltrans IN SELECT sltrans_source, sltrans_accnt_id,
SUM(sltrans_amount) as amount
FROM sltrans
WHERE ((sltrans_amount<>0.0)
AND (NOT sltrans_posted)
AND (sltrans_sequence=pSequence))
GROUP BY sltrans_source, sltrans_accnt_id LOOP
-- refuse to accept postings into closed periods
IF (SELECT BOOL_AND(COALESCE(period_closed, FALSE))
FROM accnt LEFT OUTER JOIN
period ON (CURRENT_DATE BETWEEN period_start AND period_end)
WHERE (accnt_id = _sltrans.sltrans_accnt_id)) THEN
RAISE EXCEPTION 'Cannot post to closed period (%).', _sltrans.sltrans_distdate;
RETURN -4; -- remove raise exception when all callers check return code
END IF;
-- refuse to accept postings into frozen periods without proper priv
IF (SELECT NOT BOOL_AND(checkPrivilege('PostFrozenPeriod')) AND
BOOL_AND(COALESCE(period_freeze, FALSE))
FROM accnt LEFT OUTER JOIN
period ON (CURRENT_DATE BETWEEN period_start AND period_end)
WHERE (accnt_id = _sltrans.sltrans_accnt_id)) THEN
RAISE EXCEPTION 'Cannot post to frozen period (%).', _sltrans.sltrans_distdate;
RETURN -4; -- remove raise exception when all callers check return code
END IF;
IF (_sltrans.amount != 0) THEN
INSERT INTO gltrans
( gltrans_posted, gltrans_exported, gltrans_created, gltrans_date,
gltrans_sequence, gltrans_accnt_id, gltrans_source, gltrans_notes,
gltrans_doctype, gltrans_docnumber, gltrans_amount, gltrans_journalnumber, gltrans_rec )
VALUES
( FALSE, FALSE, CURRENT_TIMESTAMP, CURRENT_DATE,
_sequence, _sltrans.sltrans_accnt_id, _sltrans.sltrans_source, 'Journal Posting',
'JP', _journalnumber, _sltrans.amount, _journalnumber, TRUE );
_transCount := _transCount + 1;
END IF;
END LOOP;
-- Update all of the posted sltrans members
UPDATE sltrans SET
sltrans_posted=true,
sltrans_gltrans_journalnumber=_journalnumber
WHERE ((NOT sltrans_posted)
AND (sltrans_sequence=pSequence));
PERFORM postIntoTrialBalance(_sequence);
RETURN _journalnumber;
END;
$_$;
ALTER FUNCTION public.postjournals(integer) OWNER TO admin;
--
-- Name: postjournals(text[], date, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postjournals(text[], date, date, date) RETURNS SETOF integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSources ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
pDistDate ALIAS FOR $4;
_i INTEGER;
BEGIN
FOR _i IN 1..ARRAY_UPPER(pSources,1)
LOOP
RETURN NEXT postJournals(pSources[_i], pStartDate, pEndDate, pDistDate);
END LOOP;
RETURN;
END;
$_$;
ALTER FUNCTION public.postjournals(text[], date, date, date) OWNER TO admin;
--
-- Name: postjournals(text, date, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postjournals(text, date, date, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSource ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
pDistDate ALIAS FOR $4;
_transCount INTEGER := 0;
_journalnumber INTEGER := fetchJournalNumber('J/P');
_sequence INTEGER := fetchGLSequence();
_sltrans RECORD;
BEGIN
-- Make sure that we balance
IF (SELECT SUM(sltrans_amount) != 0
FROM sltrans
WHERE ((NOT sltrans_posted )
AND (sltrans_source=pSource)
AND (sltrans_date BETWEEN pStartDate AND pEndDate))) THEN
RAISE EXCEPTION 'Can not post journals. Transactions do not balance in selected date range.';
END IF;
-- March through the sltrans members, posting them one at a time
FOR _sltrans IN SELECT sltrans_source, sltrans_accnt_id,
SUM(sltrans_amount) as amount
FROM sltrans
WHERE ((sltrans_amount<>0.0)
AND (NOT sltrans_posted)
AND (sltrans_source=pSource)
AND (sltrans_date BETWEEN pStartDate AND pEndDate))
GROUP BY sltrans_source, sltrans_accnt_id LOOP
-- refuse to accept postings into frozen periods if any of the accounts disallow it
IF (SELECT NOT BOOL_AND(checkPrivilege('PostFrozenPeriod')) AND
BOOL_AND(COALESCE(period_freeze, FALSE))
FROM accnt LEFT OUTER JOIN
period ON (pDistDate BETWEEN period_start AND period_end)
WHERE (accnt_id = _sltrans.sltrans_accnt_id)) THEN
RAISE EXCEPTION 'Cannot post to frozen period (%).', _sltrans.sltrans_distdate;
RETURN -4; -- remove raise exception when all callers check return code
END IF;
IF (_sltrans.amount != 0) THEN
INSERT INTO gltrans
( gltrans_posted, gltrans_exported, gltrans_created, gltrans_date,
gltrans_sequence, gltrans_accnt_id, gltrans_source, gltrans_notes,
gltrans_doctype, gltrans_docnumber, gltrans_amount, gltrans_journalnumber )
VALUES
( FALSE, FALSE, CURRENT_TIMESTAMP, pDistDate,
_sequence, _sltrans.sltrans_accnt_id, _sltrans.sltrans_source, 'Journal Posting',
'JP', _journalnumber, _sltrans.amount, _journalnumber );
_transCount := _transCount + 1;
END IF;
END LOOP;
-- Update all of the posted sltrans members
UPDATE sltrans SET
sltrans_posted=true,
sltrans_gltrans_journalnumber=_journalnumber
WHERE ((NOT sltrans_posted)
AND (sltrans_source=pSource)
AND (sltrans_date BETWEEN pStartDate AND pEndDate));
PERFORM postIntoTrialBalance(_sequence);
RETURN _journalnumber;
END;
$_$;
ALTER FUNCTION public.postjournals(text, date, date, date) OWNER TO admin;
--
-- Name: postmessage(timestamp without time zone, timestamp without time zone, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postmessage(timestamp without time zone, timestamp without time zone, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pScheduled ALIAS FOR $1;
pExpires ALIAS FOR $2;
pText ALIAS FOR $3;
_msgid INTEGER;
BEGIN
SELECT NEXTVAL('msg_msg_id_seq') INTO _msgid;
INSERT INTO msg
(msg_id, msg_posted, msg_scheduled, msg_expires, msg_username, msg_text)
VALUES
(_msgid, CURRENT_TIMESTAMP, pScheduled, pExpires, getEffectiveXtUser(), pText);
INSERT INTO msguser
( msguser_msg_id, msguser_username )
SELECT _msgid, usr_username
FROM usr
WHERE (usr_username <> getEffectiveXtUser());
NOTIFY "messagePosted";
RETURN _msgid;
END;
$_$;
ALTER FUNCTION public.postmessage(timestamp without time zone, timestamp without time zone, text) OWNER TO admin;
--
-- Name: postmessage(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postmessage(text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUsername ALIAS FOR $1;
pText ALIAS FOR $2;
_msgid INTEGER;
BEGIN
SELECT NEXTVAL('msg_msg_id_seq') INTO _msgid;
INSERT INTO msg
(msg_id, msg_posted, msg_scheduled, msg_expires, msg_username, msg_text)
VALUES
(_msgid, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP, endOfTime(), getEffectiveXtUser(), pText);
INSERT INTO msguser
( msguser_msg_id, msguser_username )
VALUES
( _msgid, pUsername );
NOTIFY "messagePosted";
RETURN _msgid;
END;
$_$;
ALTER FUNCTION public.postmessage(text, text) OWNER TO admin;
--
-- Name: postmessage(timestamp without time zone, timestamp without time zone, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postmessage(timestamp without time zone, timestamp without time zone, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pScheduled ALIAS FOR $1;
pExpires ALIAS FOR $2;
pUsername ALIAS FOR $3;
pText ALIAS FOR $4;
_msgid INTEGER;
BEGIN
SELECT NEXTVAL('msg_msg_id_seq') INTO _msgid;
INSERT INTO msg
(msg_id, msg_posted, msg_scheduled, msg_expires, msg_username, msg_text)
VALUES
(_msgid, CURRENT_TIMESTAMP, pScheduled, pExpires, getEffectiveXtUser(), pText);
INSERT INTO msguser
( msguser_msg_id, msguser_username )
VALUES
( _msgid, pUsername );
NOTIFY "messagePosted";
RETURN _msgid;
END;
$_$;
ALTER FUNCTION public.postmessage(timestamp without time zone, timestamp without time zone, text, text) OWNER TO admin;
--
-- Name: postmisccount(integer, numeric, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postmisccount(pitemsiteid integer, pqty numeric, pcomments text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pQty ALIAS FOR $2;
pComments ALIAS FOR $3;
_invcntid INTEGER;
_result INTEGER;
BEGIN
-- Make sure the passed itemsite points to a real item
IF ( ( SELECT (item_type IN ('R', 'F') OR itemsite_costmethod = 'J')
FROM itemsite, item
WHERE ( (itemsite_item_id=item_id)
AND (itemsite_id=pItemsiteid) ) ) ) THEN
RETURN 0;
END IF;
SELECT invcnt_id INTO _invcntid
FROM invcnt
WHERE ( (NOT invcnt_posted)
AND (invcnt_itemsite_id=pItemsiteid) );
IF (_invcntid IS NULL) THEN
_invcntid := NEXTVAL('invcnt_invcnt_id_seq');
INSERT INTO invcnt
( invcnt_id, invcnt_itemsite_id, invcnt_tagdate,
invcnt_qoh_before, invcnt_qoh_after,
invcnt_tag_username, invcnt_cntdate, invcnt_cnt_username,
invcnt_postdate, invcnt_post_username, invcnt_posted,
invcnt_priority, invcnt_comments )
SELECT _invcntid, pItemsiteid, now(),
itemsite_qtyonhand, pQty,
getEffectiveXtUser(), now(), getEffectiveXtUser(),
now(), getEffectiveXtUser(), FALSE,
FALSE, pComments
FROM itemsite
WHERE (itemsite_id=pItemsiteid);
SELECT postCountTag(_invcntid, FALSE) INTO _result;
IF (_result < 0) THEN
DELETE FROM invcnt
WHERE (invcnt_id=_invcntid);
END IF;
RETURN _result;
ELSE
RETURN -2;
END IF;
END;
$_$;
ALTER FUNCTION public.postmisccount(pitemsiteid integer, pqty numeric, pcomments text) OWNER TO admin;
--
-- Name: postpogltransactions(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postpogltransactions() RETURNS boolean
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
UPDATE gltrans
SET gltrans_exported=TRUE
WHERE ( (NOT gltrans_exported)
AND (gltrans_source='A/P')
AND (gltrans_doctype IN ('VO')) );
RETURN TRUE;
END;
$$;
ALTER FUNCTION public.postpogltransactions() OWNER TO admin;
--
-- Name: postporeceipt(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postporeceipt(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN postReceipt($1, $2);
END;
$_$;
ALTER FUNCTION public.postporeceipt(integer, integer) OWNER TO admin;
--
-- Name: postporeceipts(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postporeceipts(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN postReceipts('PO', $1, NULL);
END;
$_$;
ALTER FUNCTION public.postporeceipts(integer) OWNER TO admin;
--
-- Name: postporeturncreditmemo(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postporeturncreditmemo(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPorejectId ALIAS FOR $1;
BEGIN
RETURN postPoReturnCreditMemo(pPorejectId, NULL);
END;
$_$;
ALTER FUNCTION public.postporeturncreditmemo(integer) OWNER TO admin;
--
-- Name: postporeturncreditmemo(integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postporeturncreditmemo(integer, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPorejectId ALIAS FOR $1;
pAmount ALIAS FOR $2;
_p RECORD;
_a RECORD;
_itemsiteId INTEGER;
_docNumber TEXT;
_sequence INTEGER;
_journalNumber INTEGER;
_apopenid INTEGER;
_exchGainItem NUMERIC;
_itemAmount_base NUMERIC;
_itemAmount NUMERIC;
_glseriesTotal NUMERIC;
_tmpTotal NUMERIC;
_test INTEGER;
_exchDate DATE;
_tax RECORD;
_taxAmount NUMERIC := 0;
_taxAmount_base NUMERIC;
_apaccntid INTEGER;
BEGIN
--Set things up
SELECT NEXTVAL('apopen_apopen_id_seq') INTO _apopenid;
SELECT fetchGLSequence() INTO _sequence;
SELECT fetchJournalNumber('AP-MISC') INTO _journalNumber;
SELECT fetchapmemonumber() INTO _docNumber;
_glseriesTotal := 0;
--Get poreject data
SELECT pohead_vend_id, pohead_number, pohead_curr_id, pohead_orderdate, pohead_taxzone_id,
poitem_id, poitem_itemsite_id,poitem_expcat_id, poitem_taxtype_id,
itemsite_costcat_id, poreject_qty, poreject_date,
('Return of Item ' || COALESCE(item_number,poitem_vend_item_number)
|| ', qty. ' || formatqty(poreject_qty)) AS notes,
poreject_value AS value,
currToBase(pohead_curr_id,(poitem_unitprice * poreject_qty),CURRENT_DATE) AS itemAmount_base,
(poitem_unitprice * poreject_qty) AS itemAmount
INTO _p
FROM pohead, poreject, poitem
LEFT OUTER JOIN itemsite ON (poitem_itemsite_id=itemsite_id)
LEFT OUTER JOIN item ON (itemsite_item_id=item_id)
WHERE ((poreject_poitem_id=poitem_id)
AND (pohead_id=poitem_pohead_id)
AND (poreject_id=pPorejectId));
_itemAmount := _p.itemAmount;
_itemAmount_base := _p.itemAmount_base;
IF (pAmount IS NOT NULL) THEN
_itemAmount := pAmount;
_itemAmount_base := currToBase(_p.pohead_curr_id, pAmount, CURRENT_DATE);
END IF;
-- Grab the G/L Accounts
IF (COALESCE(_p.poitem_itemsite_id, -1) = -1) THEN
SELECT pp.accnt_id AS pp_accnt_id,
lb.accnt_id AS lb_accnt_id INTO _a
FROM expcat, accnt AS pp, accnt AS lb
WHERE ( (expcat_purchprice_accnt_id=pp.accnt_id)
AND (expcat_liability_accnt_id=lb.accnt_id)
AND (expcat_id=_p.poitem_expcat_id) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot Post Credit Memo due to unassigned G/L Accounts.';
END IF;
ELSE
SELECT pp.accnt_id AS pp_accnt_id,
lb.accnt_id AS lb_accnt_id INTO _a
FROM costcat, accnt AS pp, accnt AS lb
WHERE ( (costcat_purchprice_accnt_id=pp.accnt_id)
AND (costcat_liability_accnt_id=lb.accnt_id)
AND (costcat_id=_p.itemsite_costcat_id) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot Post Credit Memo due to unassigned G/L Accounts.';
END IF;
END IF;
-- AP Open Item record
INSERT INTO apopen
( apopen_id, apopen_username, apopen_journalnumber,
apopen_vend_id, apopen_docnumber, apopen_doctype, apopen_ponumber,
apopen_docdate, apopen_duedate, apopen_distdate, apopen_terms_id,
apopen_amount, apopen_paid, apopen_open, apopen_notes, apopen_accnt_id, apopen_curr_id,
apopen_closedate )
VALUES
( _apopenid, getEffectiveXtUser(), _journalNumber,
_p.pohead_vend_id, _docNumber, 'C', _p.pohead_number,
CURRENT_DATE, CURRENT_DATE, CURRENT_DATE, -1,
round(_itemAmount, 2), 0, (round(_itemAmount, 2) <> 0), _p.notes, -1, _p.pohead_curr_id,
CASE WHEN (round(_itemAmount, 2) = 0) THEN _p.poreject_date END );
-- Taxes
FOR _tax IN
SELECT taxdetail_tax_id, sum(taxdetail_tax) AS taxdetail_tax,
currToBase(_p.pohead_curr_id, round(sum(taxdetail_tax),2), current_date) AS taxbasevalue
FROM calculateTaxDetail(_p.pohead_taxzone_id, _p.poitem_taxtype_id,
current_date, _p.pohead_curr_id,
_itemAmount)
GROUP BY taxdetail_tax_id
LOOP
INSERT INTO apopentax (taxhist_basis,taxhist_percent,taxhist_amount,taxhist_docdate, taxhist_tax_id, taxhist_tax,
taxhist_taxtype_id, taxhist_parent_id, taxhist_journalnumber )
VALUES (0, 0, 0, current_date, _tax.taxdetail_tax_id, _tax.taxdetail_tax, getadjustmenttaxtypeid(),
_apopenid, _journalNumber);
_taxAmount := _taxAmount + _tax.taxdetail_tax;
END LOOP;
_taxAmount_base := addTaxToGLSeries(_sequence,
'A/P', 'CM', _docNumber,
_p.pohead_curr_id, current_date, current_date,
'apopentax', _apopenid,
_p.notes);
UPDATE apopen SET apopen_amount = round(_itemAmount + _taxAmount,2)
WHERE (apopen_id = _apopenid);
-- Distribute from the clearing account
PERFORM insertIntoGLSeries( _sequence, 'A/P', 'CM', _docNumber,
_a.lb_accnt_id,
round(_p.value, 2),
current_date, _p.notes );
_glseriesTotal := _glseriesTotal + round(_p.value, 2);
-- Distribute the remaining variance to the Purchase Price Variance account
IF (round(_itemAmount_base, 2) <> round(_p.value, 2)) THEN
_tmpTotal := round(_itemAmount_base, 2) - round(_p.value, 2);
PERFORM insertIntoGLSeries( _sequence, 'A/P', 'CM', _docNumber,
_a.pp_accnt_id,
_tmpTotal,
current_date, _p.notes );
_glseriesTotal := _glseriesTotal + _tmpTotal;
END IF;
-- Post the reject item for this P/O Item as Invoiced
UPDATE poreject
SET poreject_invoiced=TRUE
WHERE poreject_id=pPorejectId;
-- Update the qty vouchered field
UPDATE poitem
SET poitem_qty_vouchered = (poitem_qty_vouchered - _p.poreject_qty)
WHERE (poitem_id=_p.poitem_id);
-- Post to A/P
SELECT findAPAccount(_p.pohead_vend_id) INTO _apaccntid;
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot Post Credit Memo due to an unassigned A/P Account.';
END IF;
SELECT insertIntoGLSeries( _sequence, 'A/P', 'CM', _docNumber,
_apaccntid, round(_itemAmount_base + _taxAmount_base, 2) *-1,
current_date, _p.notes ) INTO _test;
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot Post Credit Memo.';
END IF;
-- Clean up loose ends
_glseriesTotal := _glseriesTotal + round(_itemAmount_base, 2)*-1;
IF (round(_glseriesTotal, 2) != 0) THEN
PERFORM insertIntoGLSeries(_sequence, 'A/P', 'CM',
'Currency Exchange Rounding - ' || _docNumber,
getGainLossAccntId(_apaccntid), round(_glseriesTotal, 2) * -1,
current_date, _p.notes);
END IF;
-- Post it all
PERFORM postGLSeries(_sequence, _journalNumber);
RETURN _journalNumber;
END;
$_$;
ALTER FUNCTION public.postporeturncreditmemo(integer, numeric) OWNER TO admin;
--
-- Name: postporeturns(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postporeturns(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPoheadid ALIAS FOR $1;
_itemlocSeries INTEGER;
_p RECORD;
_returnval INTEGER;
BEGIN
_itemlocSeries := 0;
SELECT postPoReturns(pPoheadid,false) INTO _itemlocseries;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.postporeturns(integer) OWNER TO admin;
--
-- Name: postporeturns(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postporeturns(integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPoheadid ALIAS FOR $1;
pCreateMemo ALIAS FOR $2;
_itemlocSeries INTEGER;
_p RECORD;
_returnval INTEGER;
_tmp INTEGER;
_pricevar NUMERIC := 0.00;
_invhistid INTEGER;
_journalNumber INTEGER := fetchJournalNumber('GL-MISC');
BEGIN
_itemlocSeries := 0;
FOR _p IN SELECT pohead_number, pohead_curr_id, poreject_id, poitem_prj_id,
poreject_poitem_id, poitem_id, poitem_expcat_id, poitem_linenumber,
currToBase(COALESCE(recv_purchcost_curr_id, pohead_curr_id),
COALESCE(recv_purchcost, poitem_unitprice),
pohead_orderdate) AS poitem_unitprice_base,
COALESCE(itemsite_id, -1) AS itemsiteid, poitem_invvenduomratio,
SUM(poreject_qty) AS totalqty,
itemsite_item_id, itemsite_costmethod, itemsite_controlmethod, recv_date
FROM pohead JOIN poitem ON (poitem_pohead_id=pohead_id)
JOIN poreject ON (poreject_poitem_id=poitem_id AND NOT poreject_posted)
LEFT OUTER JOIN itemsite ON (poitem_itemsite_id=itemsite_id)
LEFT OUTER JOIN recv ON (recv_id=poreject_recv_id)
WHERE (pohead_id=pPoheadid)
GROUP BY poreject_id, pohead_number, poreject_poitem_id, poitem_id, poitem_prj_id,
poitem_expcat_id, poitem_linenumber, poitem_unitprice, pohead_curr_id,
pohead_orderdate, itemsite_id, poitem_invvenduomratio,
itemsite_item_id, itemsite_costmethod, itemsite_controlmethod, recv_date,
recv_purchcost_curr_id, recv_purchcost LOOP
IF (_p.itemsiteid = -1) THEN
SELECT insertGLTransaction( 'S/R', 'PO', _p.pohead_number, 'Return Non-Inventory to P/O',
expcat_liability_accnt_id,
getPrjAccntId(_p.poitem_prj_id, expcat_exp_accnt_id), -1,
round(_p.poitem_unitprice_base * _p.totalqty * -1, 2),
CURRENT_DATE ) INTO _returnval
FROM expcat
WHERE (expcat_id=_p.poitem_expcat_id);
UPDATE poreject
SET poreject_posted=TRUE, poreject_value= round(_p.poitem_unitprice_base * _p.totalqty, 2)
WHERE (poreject_id=_p.poreject_id);
ELSEIF (_p.itemsite_controlmethod='N') THEN
SELECT insertGLTransaction('S/R', 'PO', _p.pohead_number, 'Return Non-Controlled Inventory from PO',
costcat_liability_accnt_id,
getPrjAccntId(_p.poitem_prj_id, costcat_exp_accnt_id), -1,
round((_p.poitem_unitprice_base * _p.totalqty * -1), 2),
CURRENT_DATE ) INTO _returnval
FROM itemsite, costcat
WHERE((itemsite_costcat_id=costcat_id)
AND (itemsite_id=_p.itemsiteid));
IF (_returnval = -3) THEN -- zero value transaction
_returnval := 0;
END IF;
UPDATE poreject
SET poreject_posted=TRUE, poreject_value= round(_p.poitem_unitprice_base * _p.totalqty, 2)
WHERE (poreject_id=_p.poreject_id);
ELSE
IF (_itemlocSeries = 0) THEN
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
END IF;
SELECT postInvTrans( itemsite_id, 'RP', (_p.totalqty * _p.poitem_invvenduomratio * -1),
'S/R', 'PO', (_p.pohead_number || '-' || _p.poitem_linenumber::TEXT), '', 'Return Inventory to P/O',
costcat_asset_accnt_id, costcat_liability_accnt_id, _itemlocSeries, CURRENT_TIMESTAMP) INTO _returnval
FROM itemsite, costcat
WHERE ( (itemsite_costcat_id=costcat_id)
AND (itemsite_id=_p.itemsiteid) );
UPDATE poreject
SET poreject_posted=TRUE, poreject_value=(invhist_unitcost *_p.totalqty * _p.poitem_invvenduomratio)
FROM invhist
WHERE ((poreject_id=_p.poreject_id)
AND (invhist_id=_returnval));
END IF;
IF (_returnval < 0) THEN
RETURN _returnval;
END IF;
UPDATE poitem
SET poitem_qty_returned=(poitem_qty_returned + _p.totalqty),
poitem_status='O'
WHERE (poitem_id=_p.poitem_id);
IF (fetchMetricBool('RecordPPVonReceipt')) THEN -- If the 'Purchase Price Variance on Receipt' option is true
_invhistid := _returnval;
-- Find the difference in the purchase price value expected from the P/O and the value of the transaction
SELECT ((_p.poitem_unitprice_base * poitem_qty_returned) - (invhist_value_before - invhist_value_after)) INTO _pricevar
FROM invhist, poitem
WHERE ((invhist_id = _invhistid)
AND (poitem_id=_p.poitem_id));
-- If difference exists then
IF (_pricevar <> 0.00) THEN
-- Record an additional GL Transaction for the purchase price variance
SELECT insertGLTransaction( _journalNumber,
'S/R', 'PO', _p.pohead_number,
'Purchase price variance adjusted for P/O ' || _p.pohead_number || ' for item ' || _p.poitem_linenumber::TEXT,
costcat_liability_accnt_id,
getPrjAccntId(_p.poitem_prj_id, costcat_purchprice_accnt_id), -1,
_pricevar,
CURRENT_DATE, false ) INTO _tmp
FROM itemsite, costcat, poitem
WHERE ((itemsite_costcat_id=costcat_id)
AND (itemsite_id=poitem_itemsite_id) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Could not insert G/L transaction: no cost category found for itemsite_id %',
_p.itemsiteid;
ELSIF (_tmp < 0 AND _tmp != -3) THEN -- error but not 0-value transaction
RETURN _tmp;
ELSE
-- Posting to trial balance is deferred to prevent locking
INSERT INTO itemlocpost ( itemlocpost_glseq, itemlocpost_itemlocseries)
VALUES ( _tmp, _itemlocSeries );
END IF;
END IF;
END IF;
IF (pCreateMemo) THEN
SELECT postPoReturnCreditMemo(_p.poreject_id) INTO _returnval;
END IF;
IF (_returnval < 0) THEN
RETURN _returnval;
END IF;
END LOOP;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.postporeturns(integer, boolean) OWNER TO admin;
--
-- Name: postproduction(integer, numeric, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postproduction(integer, numeric, boolean, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'postProduction(INTEGER, NUMERIC, BOOLEAN, BOOLEAN) is deprecated. please use postProduction(INTEGER, NUMERIC, BOOLEAN, INTEGER, TIMESTAMP WITH TIME ZONE) instead';
RETURN postProduction($1, $2, $3, 0, now());
END;
$_$;
ALTER FUNCTION public.postproduction(integer, numeric, boolean, boolean) OWNER TO admin;
--
-- Name: postproduction(integer, numeric, boolean, boolean, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postproduction(integer, numeric, boolean, boolean, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'postProduction(INTEGER, NUMERIC, BOOLEAN, BOOLEAN, INTEGER) is deprecated. please use postProduction(INTEGER, NUMERIC, BOOLEAN, INTEGER, TIMESTAMP WITH TIME ZONE) instead';
RETURN postProduction($1, $2, $3, $5, now());
END;
$_$;
ALTER FUNCTION public.postproduction(integer, numeric, boolean, boolean, integer) OWNER TO admin;
--
-- Name: postproduction(integer, numeric, boolean, boolean, integer, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postproduction(integer, numeric, boolean, boolean, integer, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'postProduction(INTEGER, NUMERIC, BOOLEAN, BOOLEAN, INTEGER, TEXT, TEXT) is deprecated. please use postProduction(INTEGER, NUMERIC, BOOLEAN, INTEGER, TIMESTAMP WITH TIME ZONE) instead';
RETURN postProduction($1, $2, $3, $5, now());
END;
$_$;
ALTER FUNCTION public.postproduction(integer, numeric, boolean, boolean, integer, text, text) OWNER TO admin;
--
-- Name: postproduction(integer, numeric, boolean, integer, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postproduction(integer, numeric, boolean, integer, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
pQty ALIAS FOR $2;
pBackflush ALIAS FOR $3;
pItemlocSeries ALIAS FOR $4;
pGlDistTS ALIAS FOR $5;
_test INTEGER;
_invhistid INTEGER;
_itemlocSeries INTEGER;
_parentQty NUMERIC;
_r RECORD;
_sense TEXT;
_wipPost NUMERIC;
_woNumber TEXT;
_ucost NUMERIC;
BEGIN
IF (pQty = 0) THEN
RETURN 0;
ELSIF (pQty > 0) THEN
_sense = 'from';
ELSE
_sense = 'to';
END IF;
IF ( ( SELECT wo_status
FROM wo
WHERE (wo_id=pWoid) ) NOT IN ('R','E','I') ) THEN
RETURN -1;
END IF;
-- Make sure that all Component Item Sites exist
SELECT bomitem_id INTO _test
FROM wo, bomitem, itemsite
WHERE ( (wo_itemsite_id=itemsite_id)
AND (itemsite_item_id=bomitem_parent_item_id)
AND (woEffectiveDate(wo_startdate) BETWEEN bomitem_effective AND (bomitem_expires - 1))
AND (wo_id=pWoid)
AND (bomitem_rev_id=wo_bom_rev_id)
AND (bomitem_item_id NOT IN
( SELECT component.itemsite_item_id
FROM itemsite AS component, itemsite AS parent
WHERE ( (wo_itemsite_id=parent.itemsite_id)
AND (parent.itemsite_item_id=bomitem_parent_item_id)
AND (bomitem_item_id=component.itemsite_item_id)
AND (woEffectiveDate(wo_startdate) BETWEEN bomitem_effective AND (bomitem_expires - 1))
AND (bomitem_rev_id=wo_bom_rev_id)
AND (component.itemsite_active)
AND (component.itemsite_warehous_id=parent.itemsite_warehous_id) ) ) ) )
LIMIT 1;
IF (FOUND AND pBackflush) THEN
RETURN -2;
END IF;
SELECT formatWoNumber(pWoid) INTO _woNumber;
SELECT roundQty(item_fractional, pQty) INTO _parentQty
FROM wo, itemsite, item
WHERE ((wo_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (wo_id=pWoid));
-- Create the material receipt transaction
IF (pItemlocSeries = 0) THEN
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
ELSE
_itemlocSeries = pItemlocSeries;
END IF;
IF (pBackflush) THEN
FOR _r IN SELECT womatl_id, womatl_qtyiss +
(CASE
WHEN (womatl_qtywipscrap > ((womatl_qtyfxd + (_parentQty + wo_qtyrcv) * womatl_qtyper) * womatl_scrap)) THEN
(womatl_qtyfxd + (_parentQty + wo_qtyrcv) * womatl_qtyper) * womatl_scrap
ELSE
womatl_qtywipscrap
END) AS consumed,
(womatl_qtyfxd + ((_parentQty + wo_qtyrcv) * womatl_qtyper)) * (1 + womatl_scrap) AS expected
FROM womatl, wo, itemsite, item
WHERE ((womatl_issuemethod IN ('L', 'M'))
AND (womatl_wo_id=pWoid)
AND (womatl_wo_id=wo_id)
AND (womatl_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)) LOOP
-- Don't issue more than should have already been consumed at this point
IF (pQty > 0) THEN
IF (noNeg(_r.expected - _r.consumed) > 0) THEN
SELECT issueWoMaterial(_r.womatl_id, noNeg(_r.expected - _r.consumed), _itemlocSeries, pGlDistTS) INTO _itemlocSeries;
END IF;
ELSE
-- Used by postMiscProduction of disassembly
SELECT returnWoMaterial(_r.womatl_id, (_r.expected * -1.0), _itemlocSeries, CURRENT_TIMESTAMP, true) INTO _itemlocSeries;
END IF;
UPDATE womatl
SET womatl_issuemethod='L'
WHERE ( (womatl_issuemethod='M')
AND (womatl_id=_r.womatl_id) );
END LOOP;
END IF;
SELECT CASE WHEN (pQty < 0 AND itemsite_costmethod='S') THEN stdcost(itemsite_item_id) * pQty
WHEN (pQty < 0) THEN avgcost(itemsite_id) * pQty
WHEN (wo_cosmethod = 'D') THEN wo_wipvalue
ELSE round((wo_wipvalue - (wo_postedvalue / wo_qtyord * (wo_qtyord -
CASE WHEN (wo_qtyord < wo_qtyrcv + pQty) THEN wo_qtyord
ELSE wo_qtyrcv + pQty
END ))),2)
END INTO _wipPost
FROM wo
JOIN itemsite ON (wo_itemsite_id=itemsite_id)
WHERE (wo_id=pWoid);
SELECT postInvTrans( itemsite_id, 'RM', _parentQty,
'W/O', 'WO', _woNumber, '', ('Receive Inventory ' || item_number || ' ' || _sense || ' Manufacturing'),
costcat_asset_accnt_id, getPrjAccntId(wo_prj_id, costcat_wip_accnt_id), _itemlocSeries, pGlDistTS,
-- the following is only actually used when the item is average or job costed
_wipPost ) INTO _invhistid
FROM wo, itemsite, item, costcat
WHERE ( (wo_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (itemsite_costcat_id=costcat_id)
AND (wo_id=pWoid) );
IF (pQty < 0 ) THEN
_wipPost := _wipPost * -1;
END IF;
-- Increase this W/O's received qty decrease its WIP value
UPDATE wo
SET wo_qtyrcv = (wo_qtyrcv + _parentQty),
wo_wipvalue = (wo_wipvalue - (CASE WHEN (itemsite_costmethod IN ('A','J'))
THEN _wipPost
WHEN (itemsite_costmethod='S')
THEN (stdcost(itemsite_item_id) * _parentQty)
ELSE 0.0 END))
FROM itemsite, item
WHERE ((wo_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (wo_id=pWoid));
-- ROB Increase this W/O's WIP value for custom costing
SELECT SUM(itemcost_stdcost * _parentQty) INTO _ucost
FROM wo JOIN itemsite ON (itemsite_id=wo_itemsite_id)
JOIN itemcost ON (itemcost_item_id=itemsite_item_id)
JOIN costelem ON ((costelem_id=itemcost_costelem_id) AND
(costelem_exp_accnt_id IS NOT NULL) AND
(NOT costelem_sys))
WHERE (wo_id=pWoid);
UPDATE wo
SET wo_wipvalue = (wo_wipvalue + coalesce(_ucost,0))
WHERE (wo_id=pWoid);
-- ROB Distribute to G/L - create Cost Variance, debit WIP
PERFORM insertGLTransaction( 'W/O', 'WO', _woNumber,
('Post Other Cost ' || item_number || ' ' || _sense || ' Manufacturing'),
getPrjAccntId(wo_prj_id, costelem_exp_accnt_id),
getPrjAccntId(wo_prj_id,costcat_wip_accnt_id), _invhistid,
(itemcost_stdcost * _parentQty),
pGlDistTS::DATE )
FROM wo, costelem, itemcost, costcat, itemsite, item
WHERE
((wo_id=pWoid) AND
(wo_itemsite_id=itemsite_id) AND
(itemsite_item_id=item_id) AND
(costelem_id = itemcost_costelem_id) AND
(itemcost_item_id = itemsite_item_id) AND
(itemsite_costcat_id = costcat_id) AND
(costelem_exp_accnt_id) IS NOT NULL AND
(costelem_sys = false));
--End
-- Make sure the W/O is at issue status
UPDATE wo
SET wo_status='I'
WHERE (wo_id=pWoid);
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.postproduction(integer, numeric, boolean, integer, timestamp with time zone) OWNER TO admin;
--
-- Name: postreceipt(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postreceipt(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2011 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
precvid ALIAS FOR $1;
_itemlocSeries INTEGER := COALESCE($2, 0);
_freightAccnt INTEGER;
_glDate TIMESTAMP WITH TIME ZONE;
_o RECORD;
_ordertypeabbr TEXT;
_r RECORD;
_ra RECORD;
_recvinvqty NUMERIC := 0.00;
_recvvalue NUMERIC := 0.00;
_pricevar NUMERIC := 0.00;
_tmp INTEGER;
_toitemitemid INTEGER;
_coheadid INTEGER;
_coitemid INTEGER;
_linenumber INTEGER;
_invhistid INTEGER;
_shipheadid INTEGER;
_ship BOOLEAN;
_i RECORD;
BEGIN
SELECT recv_id, recv_order_type, recv_orderitem_id, recv_qty,
round(currToBase(recv_freight_curr_id, recv_freight, recv_date::DATE),
2) AS recv_freight_base,
recv_freight, recv_freight_curr_id, recv_date, recv_gldistdate,
itemsite_id, itemsite_item_id, item_inv_uom_id, itemsite_costmethod,
itemsite_controlmethod, vend_name, item_number, item_fractional
INTO _r
FROM recv LEFT OUTER JOIN itemsite ON (recv_itemsite_id=itemsite_id)
LEFT OUTER JOIN item ON (itemsite_item_id=item_id)
LEFT OUTER JOIN vendinfo ON (recv_vend_id=vend_id)
WHERE ((recv_id=precvid)
AND (NOT recv_posted));
IF (NOT FOUND) THEN
IF (_itemlocSeries = 0) THEN
RETURN -10;
END IF;
RETURN _itemlocSeries;
ELSEIF (_r.recv_qty <= 0) THEN
RETURN -11;
ELSIF (_r.recv_order_type ='PO') THEN
_ordertypeabbr := ('P/O for ' || _r.vend_name || ' for item ' || _r.item_number);
SELECT pohead_number AS orderhead_number, poitem_id AS orderitem_id,
poitem_linenumber AS orderitem_linenumber,
currToBase(pohead_curr_id,
COALESCE(recv_purchcost, poitem_unitprice),
recv_date::DATE) AS item_unitprice_base,
poitem_invvenduomratio AS invvenduomratio,
pohead_orderdate AS orderdate, pohead_dropship,
poitem_prj_id AS prj_id INTO _o
FROM recv, pohead, poitem
WHERE ((recv_orderitem_id=poitem_id)
AND (poitem_pohead_id=pohead_id)
AND (NOT recv_posted)
AND (recv_id=precvid));
ELSIF (_r.recv_order_type ='RA') THEN
_ordertypeabbr := 'R/A for item ' || _r.item_number;
SELECT rahead_id AS orderhead_id, rahead_number AS orderhead_number, raitem_id AS orderitem_id,
raitem_linenumber AS orderitem_linenumber,
currToBase(rahead_curr_id, raitem_unitprice,
recv_date::DATE) AS item_unitprice_base,
raitem_qty_invuomratio AS invvenduomratio,
rahead_authdate AS orderdate,
raitem_unitcost AS unitcost,
rahead_prj_id AS prj_id INTO _o
FROM recv, rahead, raitem
WHERE ((recv_orderitem_id=raitem_id)
AND (raitem_rahead_id=rahead_id)
AND (NOT recv_posted)
AND (recv_id=precvid));
ELSIF (_r.recv_order_type ='TO') THEN
_ordertypeabbr := 'T/O for item ' || _r.item_number;
SELECT tohead_number AS orderhead_number, toitem_id AS orderitem_id,
toitem_linenumber AS orderitem_linenumber,
toitem_stdcost AS item_unitprice_base,
1.0 AS invvenduomratio,
tohead_orderdate AS orderdate,
NULL AS prj_id INTO _o
FROM recv, tohead, toitem
WHERE ((recv_orderitem_id=toitem_id)
AND (toitem_tohead_id=tohead_id)
AND (NOT recv_posted)
AND (recv_id=precvid));
ELSE
RETURN -13; -- don't know how to handle this order type
END IF;
IF (NOT FOUND) THEN
IF (_itemlocSeries = 0) THEN
RETURN -10;
END IF;
RETURN _itemlocSeries;
END IF;
IF (_itemlocSeries = 0) THEN
_itemlocSeries := NEXTVAL('itemloc_series_seq');
ELSEIF (_itemlocSeries < 0) THEN
RETURN _itemlocSeries;
END IF;
_glDate := COALESCE(_r.recv_gldistdate, _r.recv_date);
_recvinvqty := roundQty(_r.item_fractional, (_r.recv_qty * _o.invvenduomratio));
IF ( (_r.recv_order_type = 'PO') AND
(_r.itemsite_id = -1 OR _r.itemsite_id IS NULL OR _r.itemsite_controlmethod = 'N') ) THEN
IF (_r.itemsite_id IS NOT NULL) THEN
SELECT insertGLTransaction( fetchJournalNumber('GL-MISC'),
'S/R', _r.recv_order_type, _o.orderhead_number,
'Receive Non-Controlled Inventory from ' || _ordertypeabbr,
costcat_liability_accnt_id,
getPrjAccntId(_o.prj_id, costcat_exp_accnt_id), -1,
round((_o.item_unitprice_base * _r.recv_qty),2),
_glDate::DATE, false ) INTO _tmp
FROM poitem, itemsite, costcat
WHERE((poitem_itemsite_id=itemsite_id)
AND (itemsite_costcat_id=costcat_id)
AND (poitem_id=_o.orderitem_id));
ELSE
SELECT insertGLTransaction(fetchJournalNumber('GL-MISC'),
'S/R', _r.recv_order_type, _o.orderhead_number,
'Receive Non-Inventory from ' || 'P/O for ' || _r.vend_name || ' for ' || expcat_code,
expcat_liability_accnt_id,
getPrjAccntId(_o.prj_id, expcat_exp_accnt_id), -1,
round((_o.item_unitprice_base * _r.recv_qty),2),
_glDate::DATE, false ) INTO _tmp
FROM poitem, expcat
WHERE((poitem_expcat_id=expcat_id)
AND (poitem_id=_o.orderitem_id));
END IF;
IF (_tmp < 0 AND _tmp != -3) THEN -- error but not 0-value transaction
RETURN _tmp;
ELSE
-- Posting to trial balance is deferred to prevent locking
INSERT INTO itemlocpost ( itemlocpost_glseq, itemlocpost_itemlocseries)
VALUES ( _tmp, _itemlocSeries );
END IF;
SELECT insertGLTransaction( fetchJournalNumber('GL-MISC'),
'S/R', _r.recv_order_type, _o.orderhead_number,
'Receive Non-Inventory Freight from ' || _ordertypeabbr,
expcat_liability_accnt_id,
getPrjAccntId(_o.prj_id, expcat_freight_accnt_id), -1,
_r.recv_freight_base,
_glDate::DATE, false ),
expcat_freight_accnt_id INTO _tmp, _freightAccnt
FROM poitem, expcat
WHERE((poitem_expcat_id=expcat_id)
AND (poitem_id=_o.orderitem_id));
IF (_tmp < 0 AND _tmp != -3) THEN -- error but not 0-value transaction
RETURN _tmp;
ELSE
-- Posting to trial balance is deferred to prevent locking
INSERT INTO itemlocpost ( itemlocpost_glseq, itemlocpost_itemlocseries)
VALUES ( _tmp, _itemlocSeries );
END IF;
_recvvalue := ROUND((_o.item_unitprice_base * _r.recv_qty),2);
UPDATE poitem
SET poitem_qty_received = (poitem_qty_received + _r.recv_qty),
poitem_freight_received = (poitem_freight_received + _r.recv_freight_base)
WHERE (poitem_id=_o.orderitem_id);
ELSEIF ( (_r.recv_order_type = 'RA') AND
(_r.itemsite_id = -1 OR _r.itemsite_id IS NULL OR _r.itemsite_controlmethod = 'N') ) THEN
RAISE NOTICE 'itemsite controlmethod is %, cannot post receipt.', _r.itemsite_controlmethod;
RETURN -14; -- otherwise how do we get the accounts?
ELSEIF ( (_r.recv_order_type = 'TO') AND
(_r.itemsite_id = -1 OR _r.itemsite_id IS NULL) ) THEN
RAISE NOTICE 'itemsite missing';
RETURN -14; -- otherwise how do we get the accounts?
ELSE -- not ELSIF: some code is shared between diff order types
IF (_r.recv_order_type = 'PO') THEN
SELECT postInvTrans( itemsite_id, 'RP'::TEXT,
_recvinvqty,
'S/R'::TEXT,
_r.recv_order_type::TEXT, _o.orderhead_number::TEXT || '-' || _o.orderitem_linenumber::TEXT,
''::TEXT,
'Receive Inventory from ' || _ordertypeabbr,
costcat_asset_accnt_id, costcat_liability_accnt_id,
_itemlocSeries,
_glDate,
round((_o.item_unitprice_base * _r.recv_qty),2) -- always passing this in since it is ignored if it is not average costed item
) INTO _tmp
FROM itemsite, costcat
WHERE ( (itemsite_costcat_id=costcat_id)
AND (itemsite_id=_r.itemsite_id) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Could not post inventory transaction: no cost category found for itemsite_id %',
_r.itemsite_id;
ELSIF (_tmp < -1) THEN -- less than -1 because -1 means it is a none controlled item
IF(_tmp = -3) THEN
RETURN -12; -- The GL trans value was 0 which means we likely do not have a std cost
END IF;
RETURN _tmp;
END IF;
-- If the 'Purchase Price Variance on Receipt' option is true
IF (fetchMetricBool('RecordPPVonReceipt')) THEN
_invhistid := _tmp;
-- Find the difference in the purchase price value expected from the P/O and the value of the transaction
SELECT ((_o.item_unitprice_base * _r.recv_qty) - (invhist_value_after - invhist_value_before)) INTO _pricevar
FROM invhist
WHERE (invhist_id = _invhistid);
-- If difference exists then
IF (_pricevar <> 0.00) THEN
-- Record an additional GL Transaction for the purchase price variance
SELECT insertGLTransaction( fetchJournalNumber('GL-MISC'),
'S/R', _r.recv_order_type, _o.orderhead_number,
'Purchase price variance adjusted for P/O ' || _o.orderhead_number || ' for item ' || _r.item_number,
costcat_liability_accnt_id,
getPrjAccntId(_o.prj_id, costcat_purchprice_accnt_id), -1,
_pricevar,
_glDate::DATE, false ) INTO _tmp
FROM itemsite, costcat
WHERE ((itemsite_costcat_id=costcat_id)
AND (itemsite_id=_r.itemsite_id) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Could not insert G/L transaction: no cost category found for itemsite_id %',
_r.itemsite_id;
ELSIF (_tmp < 0 AND _tmp != -3) THEN -- error but not 0-value transaction
RETURN _tmp;
ELSE
-- Posting to trial balance is deferred to prevent locking
INSERT INTO itemlocpost ( itemlocpost_glseq, itemlocpost_itemlocseries)
VALUES ( _tmp, _itemlocSeries );
END IF;
END IF;
END IF;
SELECT insertGLTransaction(fetchJournalNumber('GL-MISC'),
'S/R', _r.recv_order_type, _o.orderhead_number,
'Receive Inventory Freight from ' || _o.orderhead_number || ' for item ' || _r.item_number,
costcat_liability_accnt_id,
getPrjAccntId(_o.prj_id, costcat_freight_accnt_id), -1,
_r.recv_freight_base,
_glDate::DATE, false ),
costcat_freight_accnt_id INTO _tmp, _freightAccnt
FROM itemsite, costcat
WHERE ( (itemsite_costcat_id=costcat_id)
AND (itemsite_id=_r.itemsite_id) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Could not insert G/L transaction: no cost category found for itemsite_id %',
_r.itemsite_id;
ELSIF (_tmp < 0 AND _tmp != -3) THEN -- error but not 0-value transaction
RETURN _tmp;
ELSE
-- Posting to trial balance is deferred to prevent locking
INSERT INTO itemlocpost ( itemlocpost_glseq, itemlocpost_itemlocseries)
VALUES ( _tmp, _itemlocSeries );
END IF;
UPDATE poitem
SET poitem_qty_received = (poitem_qty_received + _r.recv_qty),
poitem_freight_received = (poitem_freight_received + _r.recv_freight_base)
WHERE (poitem_id=_o.orderitem_id);
ELSIF (_r.recv_order_type = 'RA') THEN
SELECT rahead.*, raitem.* INTO _ra
FROM rahead, raitem
WHERE ((rahead_id=raitem_rahead_id)
AND (raitem_id=_r.recv_orderitem_id));
SELECT postInvTrans(_r.itemsite_id, 'RR',
_recvinvqty,
'S/R',
_r.recv_order_type, _ra.rahead_number::TEXT || '-' || _ra.raitem_linenumber::TEXT,
'',
'Receive Inventory from ' || _ordertypeabbr,
costcat_asset_accnt_id,
CASE WHEN(COALESCE(_ra.raitem_cos_accnt_id, -1) != -1) THEN
getPrjAccntId(_o.prj_id, _ra.raitem_cos_accnt_id)
WHEN (_ra.raitem_warranty) THEN
getPrjAccntId(_o.prj_id, resolveCOWAccount(_r.itemsite_id, _ra.rahead_cust_id, _ra.rahead_saletype_id, _ra.rahead_shipzone_id))
ELSE getPrjAccntId(_o.prj_id, resolveCORAccount(_r.itemsite_id, _ra.rahead_cust_id, _ra.rahead_saletype_id, _ra.rahead_shipzone_id))
END,
_itemlocSeries, _glDate, COALESCE(_o.unitcost,stdcost(itemsite_item_id)) * _recvinvqty) INTO _tmp
FROM itemsite, costcat
WHERE ( (itemsite_costcat_id=costcat_id)
AND (itemsite_id=_r.itemsite_id) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Could not post inventory transaction: no cost category found for itemsite_id %', _r.itemsite_id;
ELSIF (_tmp < -1) THEN -- less than -1 because -1 means it is a none controlled item
IF(_tmp = -3) THEN
RAISE NOTICE 'The GL trans value was 0 which means we likely do not have a std cost';
RETURN -12; -- The GL trans value was 0 which means we likely do not have a std cost
END IF;
RETURN _tmp;
END IF;
INSERT INTO rahist (rahist_itemsite_id, rahist_date,
rahist_descrip,
rahist_qty, rahist_uom_id,
rahist_source, rahist_source_id, rahist_rahead_id
) VALUES (_r.itemsite_id, _glDate,
'Receive Inventory from ' || _ordertypeabbr,
_recvinvqty, _r.item_inv_uom_id,
'RR', _r.recv_id, _ra.rahead_id
);
SELECT insertGLTransaction(fetchJournalNumber('GL-MISC'),
'S/R', _r.recv_order_type, _o.orderhead_number,
'Receive Inventory Freight from ' || _o.orderhead_number || ' for item ' || _r.item_number,
costcat_liability_accnt_id,
getPrjAccntId(_o.prj_id, costcat_freight_accnt_id), -1,
_r.recv_freight_base,
_glDate::DATE, false ),
costcat_freight_accnt_id INTO _tmp, _freightAccnt
FROM itemsite, costcat
WHERE ( (itemsite_costcat_id=costcat_id)
AND (itemsite_id=_r.itemsite_id) );
IF (_tmp < 0 AND _tmp != -3) THEN -- error but not 0-value transaction
RETURN _tmp;
ELSE
-- Posting to trial balance is deferred to prevent locking
INSERT INTO itemlocpost ( itemlocpost_glseq, itemlocpost_itemlocseries)
VALUES ( _tmp, _itemlocSeries );
END IF;
INSERT INTO rahist (rahist_date, rahist_descrip,
rahist_source, rahist_source_id,
rahist_curr_id, rahist_amount,
rahist_rahead_id
) VALUES (_glDate, 'Receive Inventory Freight from ' || _ordertypeabbr,
'RR', _r.recv_id, _r.recv_freight_curr_id, _r.recv_freight,
_ra.rahead_id
);
UPDATE raitem
SET raitem_qtyreceived = (raitem_qtyreceived + _r.recv_qty)
WHERE (raitem_id=_o.orderitem_id);
-- Expire date doesn't mean anything once the RA is received
-- WARNING: INSERTING 'NULL' MIGHT CAUSE PROBLEMS!!
UPDATE rahead
SET rahead_expiredate = NULL
WHERE (rahead_id=_o.orderhead_id);
-- Look for 'ship' lines
SELECT (count(*) > 0) INTO _ship
FROM raitem
WHERE ((raitem_disposition = 'S')
AND (raitem_new_coitem_id IS NULL)
AND (raitem_rahead_id=_ra.rahead_id));
-- If receiving a qty on a shippable and upon receipt item, create coitem
IF ((_ra.rahead_timing='R') AND
(_ship OR (
(_ra.raitem_disposition IN ('P','V')) AND
(_ra.raitem_new_coitem_id IS NULL) AND
(_ra.raitem_qtyauthorized > 0)))) THEN
IF (_ra.rahead_new_cohead_id IS NOT NULL) THEN
_coheadid = _ra.rahead_new_cohead_id;
ELSE
-- No header, so create a Sales Order header first.
SELECT nextval('cohead_cohead_id_seq') INTO _coheadid;
INSERT INTO cohead (
cohead_id,cohead_number,cohead_cust_id,cohead_custponumber,
cohead_orderdate,cohead_salesrep_id,cohead_terms_id,
cohead_shipvia,cohead_shipto_id,cohead_shiptoname,
cohead_shiptoaddress1,cohead_shiptoaddress2,cohead_shiptoaddress3,
cohead_shiptocity,cohead_shiptostate,cohead_shiptozipcode,
cohead_shiptocountry,cohead_freight,cohead_shiptophone,
cohead_shipto_cntct_id, cohead_shipto_cntct_honorific,
cohead_shipto_cntct_first_name, cohead_shipto_cntct_middle,
cohead_shipto_cntct_last_name, cohead_shipto_cntct_suffix,
cohead_shipto_cntct_phone, cohead_shipto_cntct_title,
cohead_shipto_cntct_fax, cohead_shipto_cntct_email,
cohead_shipchrg_id, cohead_shipform_id,cohead_billtoname,
cohead_billtoaddress1,cohead_billtoaddress2,cohead_billtoaddress3,
cohead_billtocity,cohead_billtostate,cohead_billtozipcode,
cohead_billtocountry,cohead_misc_accnt_id,cohead_misc_descrip,
cohead_commission,cohead_holdtype,cohead_prj_id,cohead_shipcomplete,
cohead_curr_id,cohead_taxzone_id,cohead_saletype_id,cohead_shipzone_id)
SELECT _coheadid,fetchsonumber(),rahead_cust_id,rahead_custponumber,
current_date,rahead_salesrep_id,COALESCE(cohead_terms_id,cust_terms_id),
COALESCE(cohead_shipvia,cust_shipvia),rahead_shipto_id,rahead_shipto_name,
rahead_shipto_address1,rahead_shipto_address2,rahead_shipto_address3,
rahead_shipto_city,rahead_shipto_state,rahead_shipto_zipcode,
rahead_shipto_country,0,COALESCE(cohead_shiptophone,''),
cntct_id, cntct_honorific,
cntct_first_name, cntct_middle,
cntct_last_name, cntct_suffix,
cntct_phone, cntct_title,
cntct_fax, cntct_email,
COALESCE(cohead_shipchrg_id,cust_shipchrg_id),
COALESCE(cohead_shipform_id,cust_shipform_id),
rahead_billtoname,rahead_billtoaddress1,rahead_billtoaddress2,rahead_billtoaddress3,
rahead_billtocity,rahead_billtostate,rahead_billtozip,
rahead_billtocountry,NULL,'',rahead_commission, 'N', rahead_prj_id,
COALESCE(cohead_shipcomplete,
CASE WHEN cust_partialship THEN
false
ELSE true
END),rahead_curr_id,rahead_taxzone_id,rahead_saletype_id,rahead_shipzone_id
FROM rahead
JOIN custinfo ON (rahead_cust_id=cust_id)
LEFT OUTER JOIN cohead ON (rahead_orig_cohead_id=cohead_id)
LEFT OUTER JOIN shiptoinfo ON (rahead_shipto_id=shipto_id)
LEFT OUTER JOIN cntct ON (shipto_cntct_id=cntct_id)
WHERE (rahead_id=_ra.rahead_id);
UPDATE rahead SET rahead_new_cohead_id=_coheadid WHERE rahead_id=_ra.rahead_id;
END IF;
-- Now enter the line item(s)
IF (_ra.raitem_disposition IN ('P','V')) AND
(_ra.raitem_new_coitem_id IS NULL) AND
(_ra.raitem_qtyauthorized > 0) THEN
SELECT nextval('coitem_coitem_id_seq') INTO _coitemid;
SELECT COALESCE(MAX(coitem_linenumber),0)+1 INTO _linenumber
FROM coitem
WHERE (coitem_cohead_id=_coheadid);
INSERT INTO coitem (
coitem_id,coitem_cohead_id,coitem_linenumber,coitem_itemsite_id,
coitem_status,coitem_scheddate,coitem_promdate, coitem_qtyord,
coitem_unitcost,coitem_price,coitem_custprice,coitem_qtyshipped,
coitem_order_id,coitem_memo,coitem_qtyreturned,
coitem_taxtype_id,coitem_qty_uom_id,coitem_qty_invuomratio,
coitem_price_uom_id,coitem_price_invuomratio,coitem_warranty,
coitem_cos_accnt_id,coitem_order_type, coitem_custpn)
SELECT _coitemid,_coheadid,_linenumber,_ra.raitem_coitem_itemsite_id,
'O',_ra.raitem_scheddate,_ra.raitem_scheddate,_ra.raitem_qtyauthorized,
stdcost(itemsite_item_id),COALESCE(_ra.raitem_saleprice,0),0,0,
-1,_ra.raitem_notes,0,
_ra.raitem_taxtype_id,_ra.raitem_qty_uom_id,_ra.raitem_qty_invuomratio,
_ra.raitem_price_uom_id,_ra.raitem_price_invuomratio,_ra.raitem_warranty,
_ra.raitem_cos_accnt_id,
CASE WHEN itemsite_createwo THEN 'W' ELSE NULL END, _ra.raitem_custpn
FROM itemsite
WHERE (itemsite_id=_ra.raitem_coitem_itemsite_id);
UPDATE raitem SET raitem_new_coitem_id=_coitemid WHERE (raitem_id=_ra.raitem_id);
END IF;
-- Create items to ship that have no direct relation to receipts.
IF (_ship) THEN
FOR _i IN
SELECT raitem_id FROM raitem
WHERE ((raitem_rahead_id=_ra.rahead_id)
AND (raitem_disposition = 'S')
AND (raitem_new_coitem_id IS NULL))
LOOP
SELECT nextval('coitem_coitem_id_seq') INTO _coitemid;
SELECT COALESCE(MAX(coitem_linenumber),0)+1 INTO _linenumber
FROM coitem
WHERE (coitem_cohead_id=_coheadid);
INSERT INTO coitem (
coitem_id,coitem_cohead_id,coitem_linenumber,coitem_itemsite_id,
coitem_status,coitem_scheddate,coitem_promdate, coitem_qtyord,
coitem_unitcost,coitem_price,coitem_custprice,coitem_qtyshipped,
coitem_order_id,coitem_memo,coitem_qtyreturned,
coitem_taxtype_id,coitem_qty_uom_id,coitem_qty_invuomratio,
coitem_price_uom_id,coitem_price_invuomratio,coitem_warranty,
coitem_cos_accnt_id,coitem_order_type,coitem_custpn)
SELECT _coitemid,_coheadid,_linenumber,raitem_coitem_itemsite_id,
'O',raitem_scheddate,raitem_scheddate,raitem_qtyauthorized,
stdcost(itemsite_item_id),COALESCE(raitem_saleprice,0),0,0,
-1,raitem_notes,0,
raitem_taxtype_id,raitem_qty_uom_id,raitem_qty_invuomratio,
raitem_price_uom_id,raitem_price_invuomratio,raitem_warranty,
raitem_cos_accnt_id,
CASE WHEN itemsite_createwo THEN 'W' ELSE NULL END,raitem_custpn
FROM raitem
JOIN itemsite ON (itemsite_id=raitem_itemsite_id)
WHERE (raitem_id=_i.raitem_id);
UPDATE raitem SET raitem_new_coitem_id=_coitemid WHERE (raitem_id=_i.raitem_id);
END LOOP;
END IF;
END IF;
ELSIF (_r.recv_order_type = 'TO' AND fetchMetricBool('MultiWhs')) THEN
SELECT interWarehouseTransfer(toitem_item_id, tohead_trns_warehous_id,
tohead_dest_warehous_id, _r.recv_qty,
'TO', formatToNumber(toitem_id), 'Receive from Transit To Dest Warehouse', _itemlocSeries, _glDate ) INTO _tmp
FROM tohead, toitem
WHERE ((tohead_id=toitem_tohead_id)
AND (toitem_id=_r.recv_orderitem_id));
IF (_tmp < 0) THEN
RETURN _tmp;
END IF;
SELECT insertGLTransaction(fetchJournalNumber('GL-MISC'),
'S/R', _r.recv_order_type, _o.orderhead_number,
'Receive Inventory Freight from ' || _o.orderhead_number || ' for item ' || _r.item_number,
costcat_toliability_accnt_id,
costcat_freight_accnt_id, -1,
_r.recv_freight_base,
_glDate::DATE, false ),
costcat_freight_accnt_id INTO _tmp, _freightAccnt
FROM itemsite, costcat
WHERE ( (itemsite_costcat_id=costcat_id)
AND (itemsite_id=_r.itemsite_id) );
IF (_tmp < 0 AND _tmp != -3) THEN -- error but not 0-value transaction
RETURN _tmp;
ELSE
-- Posting to trial balance is deferred to prevent locking
INSERT INTO itemlocpost ( itemlocpost_glseq, itemlocpost_itemlocseries)
VALUES ( _tmp, _itemlocSeries );
END IF;
UPDATE toitem
SET toitem_qty_received = (toitem_qty_received + _r.recv_qty),
toitem_freight_received = (toitem_freight_received +
currToCurr(_r.recv_freight_curr_id,
toitem_freight_curr_id,
_r.recv_freight, _glDate::DATE))
WHERE (toitem_id=_o.orderitem_id);
END IF;
IF(_r.itemsite_costmethod='A') THEN
_recvvalue := ROUND((_o.item_unitprice_base * _r.recv_qty),2);
ELSIF (fetchMetricBool('RecordPPVonReceipt')) THEN
_recvvalue := ROUND((_o.item_unitprice_base * _r.recv_qty), 2);
ELSE
_recvvalue := ROUND(stdcost(_r.itemsite_item_id) * _recvinvqty, 2);
END IF;
END IF;
UPDATE recv
SET recv_value=_recvvalue, recv_recvcost=_recvvalue / recv_qty, recv_posted=TRUE, recv_gldistdate=_glDate::DATE
WHERE (recv_id=precvid);
IF (_r.recv_order_type = 'PO') THEN
-- If this is a drop-shipped PO, then Issue the item to Shipping and Ship the item
IF (_o.pohead_dropship = TRUE) THEN
-- Generate the PoItemDropShipped event
INSERT INTO evntlog
( evntlog_evnttime, evntlog_username, evntlog_evnttype_id,
evntlog_ordtype, evntlog_ord_id, evntlog_warehous_id,
evntlog_number )
SELECT
CURRENT_TIMESTAMP, evntnot_username, evnttype_id,
'P', _o.orderitem_id, evntnot_warehous_id,
(pohead_number || '-' || poitem_linenumber || ': ' || item_number)
FROM evntnot JOIN evnttype ON (evntnot_evnttype_id = evnttype_id)
JOIN itemsite ON (evntnot_warehous_id = itemsite_warehous_id)
JOIN item ON (itemsite_item_id = item_id)
JOIN poitem ON (poitem_itemsite_id = itemsite_id)
JOIN pohead ON (poitem_pohead_id = pohead_id)
WHERE( (poitem_id = _o.orderitem_id)
AND (poitem_duedate <= (CURRENT_DATE + itemsite_eventfence))
AND (evnttype_name = 'PoItemDropShipped') );
END IF;
END IF;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.postreceipt(integer, integer) OWNER TO admin;
--
-- Name: postreceipts(text, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postreceipts(text, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pordertype ALIAS FOR $1;
porderid ALIAS FOR $2;
_itemlocSeries INTEGER := $3;
_qtyToRecv NUMERIC;
_r RECORD;
BEGIN
SELECT SUM(qtyToReceive(pordertype, recv_orderitem_id)) INTO _qtyToRecv
FROM recv, orderitem
WHERE ((recv_orderitem_id=orderitem_id)
AND (recv_order_type=pordertype)
AND (orderitem_orderhead_type=pordertype)
AND (orderitem_orderhead_id=porderid));
IF (_qtyToRecv <= 0) THEN
RETURN -11;
END IF;
IF (_itemlocSeries IS NULL OR _itemlocSeries <= 0) THEN
_itemlocSeries := NEXTVAL('itemloc_series_seq');
END IF;
FOR _r IN SELECT postReceipt(recv_id, _itemlocSeries) AS postResult
FROM recv, orderitem
WHERE ((recv_orderitem_id=orderitem_id)
AND (orderitem_orderhead_id=porderid)
AND (orderitem_orderhead_type=pordertype)
AND (NOT recv_posted)
-- Check for multiple users receiving the same order
AND (recv_trans_usr_name=getEffectiveXtUser())
AND (recv_order_type=pordertype)) LOOP
IF (_r.postResult < 0 AND _r.postResult != -11) THEN
RETURN _r.postResult; -- fail on 1st error but ignore lines with qty == 0
END IF;
END LOOP;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.postreceipts(text, integer, integer) OWNER TO admin;
--
-- Name: postsogltransactions(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postsogltransactions() RETURNS boolean
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
UPDATE gltrans
SET gltrans_exported=TRUE
WHERE ( (NOT gltrans_exported)
AND (gltrans_source='A/R')
AND (gltrans_doctype IN ('IN', 'CM')) );
RETURN TRUE;
END;
$$;
ALTER FUNCTION public.postsogltransactions() OWNER TO admin;
--
-- Name: postsoitemproduction(integer, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postsoitemproduction(integer, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoitemId ALIAS FOR $1;
pGlDistTS ALIAS FOR $2;
_qty NUMERIC;
BEGIN
-- Issuing all, so determine line balance
SELECT noNeg( coitem_qtyord - coitem_qtyshipped + coitem_qtyreturned -
( SELECT COALESCE(SUM(shipitem_qty), 0)
FROM shipitem, shiphead
WHERE ((shipitem_orderitem_id=coitem_id)
AND (shipitem_shiphead_id=shiphead_id)
AND (NOT shiphead_shipped) ) ) ) INTO _qty
FROM coitem
WHERE (coitem_id=pSoitemId);
RETURN postSoItemProduction($1, _qty, $2);
END;
$_$;
ALTER FUNCTION public.postsoitemproduction(integer, timestamp with time zone) OWNER TO admin;
--
-- Name: postsoitemproduction(integer, numeric, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postsoitemproduction(integer, numeric, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoitemId ALIAS FOR $1;
pQty ALIAS FOR $2;
pGlDistTS ALIAS FOR $3;
_itemlocSeries INTEGER := 0;
BEGIN
--If this cost method is not Job then we are using the wrong function
IF (NOT EXISTS(SELECT itemsite_costmethod
FROM coitem,itemsite
WHERE ((coitem_id=pSoitemId)
AND (coitem_itemsite_id=itemsite_id)
AND (itemsite_costmethod = 'J')))) THEN
RAISE EXCEPTION 'The postSoLineBalanceProduction function may only be used with Job costed item sites';
END IF;
IF (pQty > 0) THEN
SELECT COALESCE(postProduction(wo_id, (pQty * coitem_qty_invuomratio), true, 0, pGlDistTS),-1) INTO _itemlocSeries
FROM wo, coitem
WHERE ((wo_ordid=pSoItemid)
AND (wo_ordtype='S')
AND (coitem_id=pSoItemid));
UPDATE wo SET wo_status = 'C'
WHERE ((wo_ordid=pSoItemid)
AND (wo_ordtype='S')
AND (wo_qtyrcv >= wo_qtyord));
END IF;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.postsoitemproduction(integer, numeric, timestamp with time zone) OWNER TO admin;
--
-- Name: poststandardjournal(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION poststandardjournal(integer, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pStdjrnlid ALIAS FOR $1;
pDate ALIAS FOR $2;
_returnValue INTEGER;
BEGIN
SELECT postStandardJournal(pStdjrnlid, pDate, FALSE, fetchGLSequence()) INTO _returnValue;
RETURN _returnValue;
END;
$_$;
ALTER FUNCTION public.poststandardjournal(integer, date) OWNER TO admin;
--
-- Name: poststandardjournal(integer, date, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION poststandardjournal(integer, date, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pStdjrnlid ALIAS FOR $1;
pDate ALIAS FOR $2;
pGlSequence ALIAS FOR $3;
BEGIN
RETURN postStandardJournal(pStdjrnlid, pDate, FALSE, pGLSequence);
END;
$_$;
ALTER FUNCTION public.poststandardjournal(integer, date, integer) OWNER TO admin;
--
-- Name: poststandardjournal(integer, date, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION poststandardjournal(integer, date, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pStdjrnlid ALIAS FOR $1;
pDate ALIAS FOR $2;
pReverse ALIAS FOR $3;
_returnValue INTEGER;
BEGIN
RETURN postStandardJournal(pStdjrnlid, pDate, pReverse, fetchGLSequence());
END;
$_$;
ALTER FUNCTION public.poststandardjournal(integer, date, boolean) OWNER TO admin;
--
-- Name: poststandardjournal(integer, date, boolean, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION poststandardjournal(integer, date, boolean, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pStdjrnlid ALIAS FOR $1;
pDate ALIAS FOR $2;
pReverse ALIAS FOR $3;
pGlSequence ALIAS FOR $4;
BEGIN
INSERT INTO glseries
( glseries_sequence, glseries_source, glseries_doctype, glseries_docnumber,
glseries_notes, glseries_accnt_id, glseries_amount, glseries_distdate )
SELECT pGlSequence, 'G/L', 'ST', stdjrnl_name,
stdjrnlitem_notes, stdjrnlitem_accnt_id,
CASE WHEN (pReverse=TRUE) THEN (stdjrnlitem_amount * -1)
ELSE stdjrnlitem_amount
END,
pDate
FROM stdjrnlitem, stdjrnl
WHERE ( (stdjrnlitem_stdjrnl_id=stdjrnl_id)
AND (stdjrnl_id=pStdjrnlid) );
RETURN pGlSequence;
END;
$_$;
ALTER FUNCTION public.poststandardjournal(integer, date, boolean, integer) OWNER TO admin;
--
-- Name: poststandardjournalgroup(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION poststandardjournalgroup(integer, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pStdjrnlgrpid ALIAS FOR $1;
pDate ALIAS FOR $2;
BEGIN
RETURN postStandardJournalGroup(pStdjrnlgrpid, pDate, FALSE);
END;
$_$;
ALTER FUNCTION public.poststandardjournalgroup(integer, date) OWNER TO admin;
--
-- Name: poststandardjournalgroup(integer, date, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION poststandardjournalgroup(integer, date, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pStdjrnlgrpid ALIAS FOR $1;
pDate ALIAS FOR $2;
pReverse ALIAS FOR $3;
_r RECORD;
_glSequence INTEGER := -1;
BEGIN
FOR _r IN SELECT stdjrnlgrpitem_id, stdjrnlgrpitem_stdjrnl_id
FROM stdjrnlgrpitem
WHERE ( (stdjrnlgrpitem_stdjrnlgrp_id=pStdjrnlgrpid)
AND (CURRENT_DATE BETWEEN stdjrnlgrpitem_effective AND (stdjrnlgrpitem_expires - 1))
AND ( (stdjrnlgrpitem_toapply = -1)
OR (stdjrnlgrpitem_toapply > stdjrnlgrpitem_applied) ) ) LOOP
IF (_glSequence = -1) THEN
SELECT fetchGLSequence() INTO _glSequence;
END IF;
PERFORM postStandardJournal(_r.stdjrnlgrpitem_stdjrnl_id, pDate, pReverse, _glSequence);
UPDATE stdjrnlgrpitem
SET stdjrnlgrpitem_applied=(stdjrnlgrpitem_applied + 1)
WHERE (stdjrnlgrpitem_id=_r.stdjrnlgrpitem_id);
END LOOP;
RETURN _glSequence;
END;
$_$;
ALTER FUNCTION public.poststandardjournalgroup(integer, date, boolean) OWNER TO admin;
--
-- Name: postvalueintoinvbalance(integer, date, numeric, numeric, numeric, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postvalueintoinvbalance(integer, date, numeric, numeric, numeric, numeric) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteId ALIAS FOR $1;
pDate ALIAS FOR $2;
pQoh ALIAS FOR $3;
pNn ALIAS FOR $4;
pOldCost ALIAS FOR $5;
pNewCost ALIAS FOR $6;
_invbalid INTEGER;
_r RECORD;
_count INTEGER;
_valChange NUMERIC;
_nnvalChange NUMERIC;
BEGIN
-- Grab the costhist record to post
SELECT period_id INTO _r
FROM period
WHERE (pDate BETWEEN period_start AND period_end);
GET DIAGNOSTICS _count = ROW_COUNT;
-- Find an inventory balance to post into
IF ( _count > 0 ) THEN
-- Try to find an existing invbal
SELECT invbal_id INTO _invbalid
FROM invbal
WHERE ( (invbal_period_id=_r.period_id)
AND (invbal_itemsite_id=pItemsiteId) );
GET DIAGNOSTICS _count = ROW_COUNT;
IF (_count = 0) THEN
-- Wasn't there, so forward update
PERFORM forwardUpdateItemsite(pItemsiteId);
-- Try to find an existing invbal again
SELECT invbal_id INTO _invbalid
FROM invbal
WHERE ( (invbal_period_id=_r.period_id)
AND (invbal_itemsite_id=pItemsiteId) );
GET DIAGNOSTICS _count = ROW_COUNT;
IF (_count = 0) THEN
RAISE EXCEPTION 'An inventory balance record was not found for updating standard costs';
END IF;
END IF;
_valChange := round((pNewCost - pOldCost) * pQoh, 2);
_nnvalChange := round((pNewCost - pOldCost) * pNn, 2);
-- We found an invbal, update it with the change
IF (_valChange > 0) THEN
UPDATE invbal SET
invbal_value_in = (invbal_value_in + _valChange)
WHERE (invbal_id=_invbalid);
ELSE
UPDATE invbal SET
invbal_value_out = (invbal_value_out - _valChange)
WHERE (invbal_id=_invbalid);
END IF;
IF (_nnvalChange > 0) THEN
UPDATE invbal SET
invbal_nnval_in = (invbal_nnval_in + _nnvalChange)
WHERE (invbal_id=_invbalid);
ELSE
UPDATE invbal SET
invbal_nnval_out = (invbal_nnval_out - _nnvalChange)
WHERE (invbal_id=_invbalid);
END IF;
UPDATE invbal SET
invbal_value_ending = (invbal_value_beginning + invbal_value_in - invbal_value_out),
invbal_nnval_ending = (invbal_nnval_beginning + invbal_nnval_in - invbal_nnval_out),
invbal_dirty=true
WHERE (invbal_id=_invbalid);
ELSE
RAISE EXCEPTION 'No period exists for date %.', pDate;
END IF;
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.postvalueintoinvbalance(integer, date, numeric, numeric, numeric, numeric) OWNER TO admin;
--
-- Name: postvoucher(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postvoucher(integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVoheadid ALIAS FOR $1;
pPostCosts ALIAS FOR $2;
BEGIN
RETURN postVoucher(pVoheadid, fetchJournalNumber('AP-VO'), pPostCosts);
END;
$_$;
ALTER FUNCTION public.postvoucher(integer, boolean) OWNER TO admin;
--
-- Name: postvoucher(integer, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postvoucher(integer, integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVoheadid ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
pPostCosts ALIAS FOR $3;
_sequence INTEGER;
_totalAmount_base NUMERIC;
_totalAmount NUMERIC;
_itemAmount_base NUMERIC;
_itemAmount NUMERIC;
_totalDiscountableAmount NUMERIC;
_test INTEGER;
_a RECORD;
_d RECORD;
_g RECORD;
_p RECORD;
_r RECORD;
_costx RECORD;
_pPostCosts BOOLEAN;
_pExplain BOOLEAN;
_pLowLevel BOOLEAN;
_exchGainFreight NUMERIC;
_taxBaseValue NUMERIC;
_firstExchDateFreight DATE;
_tmpTotal NUMERIC;
_glDate DATE;
BEGIN
RAISE DEBUG 'postVoucher(%, %, %)', pVoheadid, pJournalNumber, pPostCosts;
_pPostCosts := TRUE;
_totalAmount_base := 0;
_totalAmount := 0;
_totalDiscountableAmount := 0;
SELECT fetchGLSequence() INTO _sequence;
-- Cache Voucher Infomation
SELECT vohead.*,
vend_number || '-' || vend_name || ' ' || vohead_reference
AS glnotes,
COALESCE(pohead_orderdate, vohead_docdate) AS pohead_orderdate,
COALESCE(pohead_curr_id, vohead_curr_id) AS pohead_curr_id INTO _p
FROM vendinfo, vohead LEFT OUTER JOIN pohead ON (vohead_pohead_id = pohead_id)
WHERE ( (vohead_id=pVoheadid)
AND (vend_id=vohead_vend_id) )
FOR UPDATE OF vohead;
IF (_p.vohead_posted) THEN
RAISE EXCEPTION 'Cannot post Voucher #% as it is already posted [xtuple: postVoucher, -10, %]',
_p.vohead_number, _p.vohead_number;
END IF;
_glDate := COALESCE(_p.vohead_gldistdate, _p.vohead_distdate);
-- If the vohead_distdate is NULL, assume that this is a NULL vohead and quietly delete it
IF (_p.vohead_distdate IS NULL) THEN
DELETE FROM vohead WHERE vohead_id = pVoheadid;
RETURN 0;
END IF;
IF (_p.vohead_amount <= 0) THEN
RAISE EXCEPTION 'Cannot Post Voucher #% for a negative or zero amount (%) [xtuple: postVoucher, -1, %, %]',
_p.vohead_number, _p.vohead_amount,
_p.vohead_number, _p.vohead_amount;
END IF;
-- there is no currency gain/loss on items, see issue 3892,
-- but there might be on freight, which is first encountered at p/o receipt
SELECT recv_date::DATE INTO _firstExchDateFreight
FROM recv
WHERE (recv_vohead_id = pVoheadid);
SELECT round(SUM(amount),4) INTO _tmpTotal
FROM (
SELECT SUM(vodist_amount) AS amount
FROM vodist
WHERE ( (vodist_vohead_id=pVoheadid)
AND (vodist_tax_id=-1) )
UNION ALL
SELECT SUM(voitem_freight) AS amount
FROM voitem
WHERE (voitem_vohead_id=pVoheadid)
UNION ALL
SELECT SUM(tax*-1)
FROM
(SELECT round(sum(taxdetail_tax),2) AS tax,
currToBase(_p.vohead_curr_id, round(sum(taxdetail_tax),2), _p.vohead_docdate) AS taxbasevalue
FROM tax
JOIN calculateTaxDetailSummary('VO', pVoheadid, 'T') ON (taxdetail_tax_id=tax_id)
GROUP BY tax_id, tax_sales_accnt_id
) AS taxdata
) AS data;
IF (_tmpTotal IS NULL OR _tmpTotal <= 0) THEN
RAISE EXCEPTION 'Cannot Post Voucher #% with negative or zero distributions (%) [xtuple: postVoucher, -2, %, %]',
_p.vohead_number, _tmpTotal,
_p.vohead_number, _tmpTotal;
END IF;
IF (_tmpTotal > _p.vohead_amount) THEN
RAISE EXCEPTION 'Cannot Post Voucher #% with distributions greater than the voucher amount (% > %) [xtuple: postVoucher, -3, %, %, %]',
_p.vohead_number, _tmpTotal, _p.vohead_amount,
_p.vohead_number, _tmpTotal, _p.vohead_amount;
END IF;
IF (_tmpTotal < _p.vohead_amount) THEN
RAISE EXCEPTION 'Cannot Post Voucher #% with distributions less than the voucher amount (% < %) [xtuple: postVoucher, -4, %, %, %]',
_p.vohead_number, _tmpTotal, _p.vohead_amount,
_p.vohead_number, _tmpTotal, _p.vohead_amount;
END IF;
SELECT DISTINCT poitem_linenumber INTO _test
FROM vodist, voitem, poitem
WHERE ( (vodist_poitem_id=poitem_id)
AND (voitem_poitem_id=poitem_id)
AND (voitem_vohead_id=vodist_vohead_id)
AND ((poitem_qty_received - poitem_qty_vouchered) = 0)
AND (vodist_vohead_id=pVoheadid) )
LIMIT 1;
IF (FOUND) THEN
RAISE EXCEPTION 'Cannot Post Voucher #% as one or more of the line items have already been fully vouchered. Check P/O Line #% [postVoucher, -6, %, %]',
_p.vohead_number, _test,
_p.vohead_number, _test;
END IF;
-- Start by handling taxes
FOR _r IN SELECT tax_sales_accnt_id,
round(sum(taxdetail_tax),2) AS tax,
currToBase(_p.vohead_curr_id, round(sum(taxdetail_tax),2), _p.vohead_docdate) AS taxbasevalue
FROM tax
JOIN calculateTaxDetailSummary('VO', pVoheadid, 'T') ON (taxdetail_tax_id=tax_id)
GROUP BY tax_id, tax_sales_accnt_id LOOP
PERFORM insertIntoGLSeries( _sequence, 'A/P', 'VO', _p.vohead_number,
_r.tax_sales_accnt_id,
_r.taxbasevalue,
_glDate, _p.glnotes );
RAISE DEBUG 'postVoucher: _r.tax=%', _r.tax;
_totalAmount_base := (_totalAmount_base - _r.taxbasevalue);
_totalAmount := (_totalAmount - _r.tax);
END LOOP;
-- Update item tax records with posting data
UPDATE voitemtax SET
taxhist_docdate=_p.vohead_docdate,
taxhist_distdate=_glDate,
taxhist_curr_id=_p.vohead_curr_id,
taxhist_curr_rate=curr_rate,
taxhist_journalnumber=pJournalNumber
FROM vohead
JOIN voitem ON (vohead_id=voitem_vohead_id),
curr_rate
WHERE ((vohead_id=pVoheadId)
AND (taxhist_parent_id=voitem_id)
AND (_p.vohead_curr_id=curr_id)
AND (_p.vohead_docdate BETWEEN curr_effective
AND curr_expires) );
-- Update Misc distributions with posting data
UPDATE voheadtax SET
taxhist_docdate=_p.vohead_docdate,
taxhist_distdate=_glDate,
taxhist_curr_id=_p.vohead_curr_id,
taxhist_curr_rate=curr_rate,
taxhist_journalnumber=pJournalNumber
FROM curr_rate
WHERE ((taxhist_parent_id=pVoheadid)
AND (_p.vohead_curr_id=curr_id)
AND (_p.vohead_docdate BETWEEN curr_effective
AND curr_expires) );
-- Loop through the vodist records for the passed vohead that
-- are posted against a P/O Item
FOR _g IN SELECT DISTINCT poitem_id, voitem_id, voitem_qty, poitem_expcat_id,
poitem_invvenduomratio, poitem_prj_id,
COALESCE(itemsite_id, -1) AS itemsiteid,
COALESCE(itemsite_costcat_id, -1) AS costcatid,
COALESCE(itemsite_item_id, -1) AS itemsite_item_id,
(SELECT SUM(value)
FROM (
SELECT SUM(recv_value) AS value
FROM recv
WHERE (recv_voitem_id=voitem_id)
UNION
SELECT SUM(poreject_value)*-1 AS value
FROM poreject
WHERE (poreject_voitem_id=voitem_id)) as data)
AS value_base,
(poitem_freight_received - poitem_freight_vouchered) /
(poitem_qty_received - poitem_qty_vouchered) * voitem_qty AS vouchered_freight,
currToBase(_p.pohead_curr_id,
(poitem_freight_received - poitem_freight_vouchered) /
(poitem_qty_received - poitem_qty_vouchered) * voitem_qty,
_firstExchDateFreight ) AS vouchered_freight_base,
voitem_freight,
currToBase(_p.vohead_curr_id, voitem_freight,
_p.vohead_distdate) AS voitem_freight_base
FROM vodist, voitem,
poitem LEFT OUTER JOIN itemsite ON (poitem_itemsite_id=itemsite_id)
WHERE ( (vodist_poitem_id=poitem_id)
AND (voitem_poitem_id=poitem_id)
AND (voitem_vohead_id=vodist_vohead_id)
AND (vodist_vohead_id=pVoheadid)) LOOP
-- Grab the G/L Accounts
IF (_g.costcatid = -1) THEN
SELECT getPrjAccntId(_g.poitem_prj_id, pp.accnt_id) AS pp_accnt_id,
lb.accnt_id AS lb_accnt_id,
fr.accnt_id AS freight_accnt_id INTO _a
FROM expcat, accnt AS pp, accnt AS lb, accnt AS fr
WHERE ( (expcat_purchprice_accnt_id=pp.accnt_id)
AND (expcat_liability_accnt_id=lb.accnt_id)
AND (expcat_freight_accnt_id=fr.accnt_id)
AND (expcat_id=_g.poitem_expcat_id) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot Post Voucher #% due to unassigned G/L Accounts [xtuple: postVoucher, -7, %]',
_p.vohead_number, _p.vohead_number;
END IF;
ELSE
SELECT getPrjAccntId(_g.poitem_prj_id, costcat_purchprice_accnt_id) AS pp_accnt_id,
getPrjAccntId(_g.poitem_prj_id, costcat_liability_accnt_id) AS lb_accnt_id,
getPrjAccntId(_g.poitem_prj_id, costcat_freight_accnt_id) AS freight_accnt_id
INTO _a
FROM costcat
WHERE (costcat_id=_g.costcatid);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot Post Voucher #% due to unassigned G/L Accounts [xtuple: postVoucher, -8, %]',
_p.vohead_number, _p.vohead_number;
END IF;
END IF;
-- Clear the Item Amount accumulator
_itemAmount_base := 0;
_itemAmount := 0;
-- Figure out the total posted value for this line item
FOR _d IN SELECT vodist_id, vodist_amount, vodist_discountable,
_p.vohead_curr_id, vodist_costelem_id,
currToBase(_p.vohead_curr_id, vodist_amount,
_p.vohead_distdate) AS vodist_amount_base
FROM vodist
WHERE ( (vodist_vohead_id=pVoheadid)
AND (vodist_poitem_id=_g.poitem_id) ) LOOP
_pExplain := FALSE;
SELECT * INTO _costx
FROM itemcost
WHERE ( (itemcost_item_id = _g.itemsite_item_id)
AND (itemcost_costelem_id = _d.vodist_costelem_id) );
IF (FOUND) THEN
_pExplain := _costx.itemcost_lowlevel;
END IF;
-- Post the cost to the Actual if requested
-- IF ( (pPostCosts) AND (_d.vodist_costelem_id <> -1) ) THEN
IF ( (_d.vodist_costelem_id <> -1) AND (_g.itemsite_item_id <> -1) ) THEN
PERFORM updateCost( _g.itemsite_item_id, _d.vodist_costelem_id,
_pExplain, (_d.vodist_amount / (_g.voitem_qty * _g.poitem_invvenduomratio)),
_p.vohead_curr_id );
END IF;
-- Add the Distribution Amount to the Item Amount
RAISE DEBUG 'postVoucher: _d.vodist_amount=%', _d.vodist_amount;
_itemAmount_base := _itemAmount_base + ROUND(_d.vodist_amount_base, 2);
_itemAmount := _itemAmount + _d.vodist_amount;
IF (_d.vodist_discountable) THEN
_totalDiscountableAmount := (_totalDiscountableAmount + _d.vodist_amount);
END IF;
END LOOP;
-- Distribute from the clearing account
PERFORM insertIntoGLSeries( _sequence, 'A/P', 'VO', text(_p.vohead_number),
_a.lb_accnt_id,
round(_g.value_base + _g.vouchered_freight_base, 2) * -1,
_glDate, _p.glnotes );
-- Attribute the correct portion to currency gain/loss
_exchGainFreight := 0;
SELECT currGain(_p.pohead_curr_id, _g.vouchered_freight,
_firstExchDateFreight, _p.vohead_distdate )
INTO _exchGainFreight;
IF (round(_exchGainFreight, 2) <> 0) THEN
PERFORM insertIntoGLSeries(_sequence, 'A/P', 'VO',
text(_p.vohead_number),
getGainLossAccntId(_a.lb_accnt_id), round(_exchGainFreight, 2),
_glDate, _p.glnotes);
END IF;
-- Distribute the remaining variance to the Purchase Price Variance account
IF (round(_itemAmount_base, 2) <> round(_g.value_base, 2)) THEN
_tmpTotal := round(_itemAmount_base, 2) - round(_g.value_base, 2);
PERFORM insertIntoGLSeries( _sequence, 'A/P', 'VO', text(_p.vohead_number),
_a.pp_accnt_id,
_tmpTotal * -1,
_glDate, _p.glnotes );
END IF;
-- Distribute the remaining freight variance to the Purchase Price Variance account
IF (round(_g.voitem_freight_base + _exchGainFreight, 2) <> round(_g.vouchered_freight_base, 2)) THEN
_tmpTotal := round(_g.voitem_freight_base + _exchGainFreight, 2) - round(_g.vouchered_freight_base, 2);
PERFORM insertIntoGLSeries( _sequence, 'A/P', 'VO', text(_p.vohead_number),
_a.freight_accnt_id,
_tmpTotal * -1,
_glDate, _p.glnotes );
END IF;
-- Add the distribution amount to the total amount to distribute
RAISE DEBUG 'postVoucher: _itemAmount=%', _itemAmount;
_totalAmount_base := (_totalAmount_base + _itemAmount_base + _g.voitem_freight_base);
_totalAmount := (_totalAmount + _itemAmount + _g.voitem_freight);
-- Post all the Tagged Receivings for this P/O Item as Invoiced and
-- record the purchase and receive costs
-- Comment out because recv cost is set at receiving now.
UPDATE recv
SET recv_invoiced=TRUE,
recv_recvcost_curr_id=basecurrid(),
recv_recvcost=round(_g.value_base / _g.voitem_qty, 2)
FROM poitem
WHERE ((recv_orderitem_id=poitem_id)
AND (recv_order_type='PO')
AND (recv_orderitem_id=_g.poitem_id)
AND (recv_vohead_id=pVoheadid) );
-- Post all the Tagged Rejections for this P/O Item as Invoiced
UPDATE poreject
SET poreject_invoiced=TRUE
WHERE ( (poreject_poitem_id=_g.poitem_id)
AND (poreject_vohead_id=pVoheadid) );
-- Update the qty and freight vouchered fields
UPDATE poitem
SET poitem_qty_vouchered = (poitem_qty_vouchered + _g.voitem_qty),
poitem_freight_vouchered = (poitem_freight_vouchered + _g.vouchered_freight)
WHERE (poitem_id=_g.poitem_id);
END LOOP;
-- Loop through the vodist records for the passed vohead that
-- are not posted against a P/O Item
-- Skip the tax distributions
FOR _d IN SELECT vodist_id, vodist_discountable,
currToBase(_p.vohead_curr_id, vodist_amount,
_p.vohead_distdate) AS vodist_amount_base,
vodist_amount,
vodist_accnt_id, vodist_expcat_id
FROM vodist
WHERE ( (vodist_vohead_id=pVoheadid)
AND (vodist_poitem_id=-1)
AND (vodist_tax_id=-1) ) LOOP
-- Distribute from the misc. account
IF (_d.vodist_accnt_id = -1) THEN
PERFORM insertIntoGLSeries( _sequence, 'A/P', 'VO', text(_p.vohead_number),
expcat_exp_accnt_id,
round(_d.vodist_amount_base, 2) * -1,
_glDate, _p.glnotes )
FROM expcat
WHERE (expcat_id=_d.vodist_expcat_id);
ELSE
PERFORM insertIntoGLSeries( _sequence, 'A/P', 'VO', text(_p.vohead_number),
_d.vodist_accnt_id,
round(_d.vodist_amount_base, 2) * -1,
_glDate, _p.glnotes );
END IF;
-- Add the Distribution Amount to the Total Amount
RAISE DEBUG 'postVoucher: _d.vodist_amount=%', _d.vodist_amount;
_totalAmount_base := _totalAmount_base + ROUND(_d.vodist_amount_base, 2);
_totalAmount := _totalAmount + _d.vodist_amount;
IF (_d.vodist_discountable) THEN
_totalDiscountableAmount := (_totalDiscountableAmount + _d.vodist_amount);
END IF;
END LOOP;
SELECT insertIntoGLSeries( _sequence, 'A/P', 'VO', text(vohead_number),
accnt_id, round(_totalAmount_base, 2),
_glDate, _p.glnotes ) INTO _test
FROM vohead LEFT OUTER JOIN accnt ON (accnt_id=findAPAccount(vohead_vend_id))
WHERE ( (findAPAccount(vohead_vend_id)=0 OR accnt_id > 0) -- G/L interface might be disabled
AND (vohead_id=pVoheadid) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot Post Voucher #% due to an unassigned A/P Account [xtuple: postVoucher, -9, %]',
_p.vohead_number, _p.vohead_number;
END IF;
PERFORM postGLSeries(_sequence, pJournalNumber);
-- Create the A/P Open Item
RAISE DEBUG 'postVoucher: _totalAmount=%, _totalDiscountableAmount=%',
_totalAmount, _totalDiscountableAmount;
INSERT INTO apopen
( apopen_journalnumber, apopen_docdate, apopen_duedate, apopen_distdate, apopen_open,
apopen_terms_id, apopen_vend_id, apopen_doctype,
apopen_docnumber, apopen_invcnumber, apopen_ponumber, apopen_reference,
apopen_amount, apopen_paid, apopen_notes, apopen_username, apopen_posted,
apopen_curr_id, apopen_discountable_amount )
-- TODO:
SELECT pJournalNumber, vohead_docdate, vohead_duedate, _glDate, TRUE,
vohead_terms_id, vohead_vend_id, 'V',
vohead_number, vohead_invcnumber, COALESCE(TEXT(pohead_number), 'Misc.'), vohead_reference,
round(_totalAmount, 2), 0, '', getEffectiveXtUser(), FALSE,
vohead_curr_id, round(_totalDiscountableAmount, 2)
FROM vohead LEFT OUTER JOIN pohead ON (vohead_pohead_id=pohead_id)
WHERE (vohead_id=pVoheadid);
-- Close all of the P/O Items that should be closed by this Voucher
UPDATE poitem
SET poitem_status='C'
FROM voitem
WHERE ( (voitem_poitem_id=poitem_id)
AND (voitem_close)
AND (voitem_vohead_id=pVoheadid) );
-- Check the P/O items and if they are all closed go ahead
-- and close the P/O head.
IF ( (SELECT (count(*) < 1)
FROM vohead, poitem
WHERE ((vohead_pohead_id=poitem_pohead_id)
AND (poitem_status<>'C')
AND (vohead_id=pVoheadid) ) ) ) THEN
PERFORM closePo(vohead_pohead_id)
FROM vohead
WHERE (vohead_id=pVoheadid);
END IF;
-- Set the vohead as posted
UPDATE vohead
SET vohead_posted=TRUE, vohead_gldistdate=_glDate
WHERE (vohead_id=pVoheadid);
RETURN pJournalNumber;
END;
$_$;
ALTER FUNCTION public.postvoucher(integer, integer, boolean) OWNER TO admin;
--
-- Name: postvouchers(boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION postvouchers(boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPostCosts ALIAS FOR $1;
_journalNumber INTEGER;
BEGIN
SELECT fetchJournalNumber('AP-VO') INTO _journalNumber;
PERFORM postVoucher(vohead_id, _journalNumber, pPostCosts)
FROM vohead
WHERE (NOT vohead_posted);
RETURN _journalNumber;
END;
$_$;
ALTER FUNCTION public.postvouchers(boolean) OWNER TO admin;
--
-- Name: primarykeyfields(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION primarykeyfields(text, text) RETURNS text[]
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSchema ALIAS FOR $1;
pRelation ALIAS FOR $2;
_colname TEXT;
_counter INTEGER := 0;
_result TEXT[];
BEGIN
EXECUTE 'SELECT ARRAY(SELECT attname
FROM pg_attribute
JOIN pg_class idx ON (attrelid = idx.oid)
JOIN pg_namespace ON (idx.relnamespace = pg_namespace.oid)
JOIN pg_index ON (idx.oid = indexrelid)
JOIN pg_class tab ON (indrelid = tab.oid)
WHERE NOT attisdropped
AND nspname = ''' || pSchema || '''
AND indisprimary
AND LOWER(tab.relname) = ''' || pRelation || '''
ORDER BY attnum);'
INTO _result;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.primarykeyfields(text, text) OWNER TO admin;
--
-- Name: FUNCTION primarykeyfields(text, text); Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON FUNCTION primarykeyfields(text, text) IS 'Return an array containing the names of the primary key fields of pSchema.pRelation. The first key field is in _result[1].';
--
-- Name: prj(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION prj() RETURNS SETOF prj
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_row prj%ROWTYPE;
_priv TEXT;
_grant BOOLEAN;
BEGIN
-- This query will give us the most permissive privilege the user has been granted
SELECT privilege, granted INTO _priv, _grant
FROM privgranted
WHERE privilege IN ('MaintainAllProjects','ViewAllProjects','MaintainPersonalProjects','ViewPersonalProjects')
ORDER BY granted DESC, sequence
LIMIT 1;
-- If have an 'All' privilege return all results
IF (_priv ~ 'All' AND _grant) THEN
FOR _row IN
SELECT * FROM prj
LOOP
RETURN NEXT _row;
END LOOP;
-- Otherwise if have any other grant, must be personal privilege.
ELSIF (_grant) THEN
FOR _row IN
SELECT * FROM prj
WHERE getEffectiveXtUser() IN (prj_owner_username, prj_username)
LOOP
RETURN NEXT _row;
END LOOP;
END IF;
RETURN;
END;
$$;
ALTER FUNCTION public.prj() OWNER TO admin;
--
-- Name: FUNCTION prj(); Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON FUNCTION prj() IS 'A table function that returns Project results according to privilege settings.';
--
-- Name: prjtask; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE prjtask (
prjtask_id integer NOT NULL,
prjtask_number text NOT NULL,
prjtask_name text NOT NULL,
prjtask_descrip text,
prjtask_prj_id integer NOT NULL,
prjtask_anyuser boolean,
prjtask_status character(1) NOT NULL,
prjtask_hours_budget numeric(18,6) NOT NULL,
prjtask_hours_actual numeric(18,6) NOT NULL,
prjtask_exp_budget numeric(16,4) NOT NULL,
prjtask_exp_actual numeric(16,4) NOT NULL,
prjtask_owner_username text,
prjtask_start_date date,
prjtask_due_date date,
prjtask_assigned_date date,
prjtask_completed_date date,
prjtask_username text,
CONSTRAINT prjtask_prjtask_status_check CHECK ((prjtask_status = ANY (ARRAY['P'::bpchar, 'O'::bpchar, 'C'::bpchar])))
);
ALTER TABLE public.prjtask OWNER TO admin;
--
-- Name: TABLE prjtask; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE prjtask IS 'Project Task information';
--
-- Name: prjtask(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION prjtask() RETURNS SETOF prjtask
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_row prjtask%ROWTYPE;
_priv TEXT;
_grant BOOLEAN;
BEGIN
-- This query will give us the most permissive privilege the user has been granted
SELECT privilege, granted INTO _priv, _grant
FROM privgranted
WHERE privilege IN ('MaintainAllProjects','ViewAllProjects','MaintainPersonalProjects','ViewPersonalProjects')
ORDER BY granted DESC, sequence
LIMIT 1;
-- If have an 'All' privilege return all results
IF (_priv ~ 'All' AND _grant) THEN
FOR _row IN
SELECT * FROM prjtask
LOOP
RETURN NEXT _row;
END LOOP;
-- Otherwise if have any other grant, must be personal privilege.
ELSIF (_grant) THEN
FOR _row IN
SELECT prjtask.* FROM prjtask
JOIN prj ON prj_id=prjtask_prj_id
WHERE getEffectiveXtUser() IN (prjtask_owner_username,prjtask_username,prj_username,prj_owner_username)
LOOP
RETURN NEXT _row;
END LOOP;
END IF;
RETURN;
END;
$$;
ALTER FUNCTION public.prjtask() OWNER TO admin;
--
-- Name: FUNCTION prjtask(); Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON FUNCTION prjtask() IS 'A table function that returns Project results according to privilege settings.';
--
-- Name: purgecreditmemos(date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION purgecreditmemos(date) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCutoffDate ALIAS FOR $1;
BEGIN
DELETE FROM cmitem
WHERE (cmitem_id IN ( SELECT cmitem_id
FROM cmitem, cmhead
WHERE ( (cmitem_cmhead_id=cmhead_id)
AND (cmhead_posted)
AND (cmhead_printed)
AND (cmhead_docdate<=pCutoffDate)
AND (checkCreditMemoSitePrivs(cmhead_id)) ) ) );
DELETE FROM cmhead
WHERE ( (cmhead_posted)
AND (cmhead_printed)
AND (cmhead_docdate<=pCutoffDate)
AND (checkCreditMemoSitePrivs(cmhead_id)) );
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.purgecreditmemos(date) OWNER TO admin;
--
-- Name: purgecrmacctmerge(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION purgecrmacctmerge(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pDestid ALIAS FOR $1;
_result INTEGER := 0;
_tmpcount INTEGER := 0;
BEGIN
IF EXISTS(SELECT 1
FROM crmacctsel
WHERE crmacctsel_dest_crmacct_id=pDestid) THEN
DELETE FROM crmacctsel WHERE crmacctsel_dest_crmacct_id = pDestid;
GET DIAGNOSTICS _result = ROW_COUNT;
ELSIF EXISTS(SELECT 1
FROM mrgundo
WHERE mrgundo_base_schema='public'
AND mrgundo_base_table='crmacct'
AND mrgundo_base_id=pDestid) THEN
DELETE FROM crmacct
WHERE crmacct_id IN (
SELECT mrgundo_pkey_id
FROM mrgundo
WHERE mrgundo_schema = 'public'
AND mrgundo_table = 'crmacct'
and mrgundo_pkey_col = 'crmacct_id'
AND mrgundo_col IS NULL
AND mrgundo_base_schema = 'public'
AND mrgundo_base_table = 'crmacct'
AND mrgundo_base_id = pDestid)
AND crmacct_id != pDestid;
GET DIAGNOSTICS _result = ROW_COUNT;
DELETE FROM mrgundo
WHERE mrgundo_base_schema ='public'
AND mrgundo_base_table ='crmacct'
AND mrgundo_base_id = pDestid;
GET DIAGNOSTICS _tmpcount = ROW_COUNT;
_result := _result + _tmpcount;
END IF;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.purgecrmacctmerge(integer) OWNER TO admin;
--
-- Name: purgeinvoicerecord(date, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION purgeinvoicerecord(date, integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCutoffDate ALIAS FOR $1;
pInvcheadId ALIAS FOR $2;
_r RECORD;
_ra RECORD;
_raheadid INTEGER;
_result INTEGER;
_debug BOOLEAN := FALSE;
BEGIN
-- Purge records where the entire Invoice, Billing, Shipper, Sales Order
-- chain of associated documents are closed and complete
FOR _r IN
SELECT invchead_id, cobmisc_id, shiphead_id, ordershipped.cohead_id AS ordship_id, orderinvoiced.cohead_id AS ordinv_id
FROM invchead LEFT OUTER JOIN invcitem ON (invcitem_invchead_id=invchead_id)
LEFT OUTER JOIN cobmisc ON (cobmisc_invcnumber::TEXT=invchead_invcnumber)
LEFT OUTER JOIN shipitem ON (shipitem_invcitem_id=invcitem_id)
LEFT OUTER JOIN shiphead ON (shiphead_id=shipitem_shiphead_id)
LEFT OUTER JOIN cohead ordershipped ON (ordershipped.cohead_id=shiphead_order_id)
LEFT OUTER JOIN coitem ON (coitem_id=invcitem_coitem_id)
LEFT OUTER JOIN cohead orderinvoiced ON (orderinvoiced.cohead_id=coitem_cohead_id)
WHERE ( (invchead_id = pInvcheadId)
AND (invchead_posted)
AND (checkInvoiceSitePrivs(invchead_id)) )
GROUP BY invchead_id, cobmisc_id, shiphead_id, ordship_id, ordinv_id LOOP
-- Check Billing
-- Billing header (cobmisc) must be posted
SELECT cobmisc_id INTO _result
FROM cobmisc
WHERE ( (cobmisc_id=_r.cobmisc_id) AND (NOT cobmisc_posted) );
IF (FOUND) THEN
RETURN 'Billing not closed';
END IF;
-- Billing line items (cobill), associated Invoice line items, and
-- associated Sales Order line items must be closed, posted, and after cutoff date
SELECT cobill_id INTO _result
FROM cobill JOIN invcitem ON (invcitem_id=cobill_invcitem_id)
JOIN invchead ON ( (invchead_id=invcitem_invchead_id) AND
((NOT invchead_posted) OR (invchead_invcdate > pCutoffDate)) )
JOIN coitem ON ( (coitem_id=cobill_coitem_id) AND
(coitem_status NOT IN ('C', 'X')) )
WHERE (cobill_cobmisc_id=_r.cobmisc_id);
IF (FOUND) THEN
RETURN 'Invoice/Sales Order associated with Billing not closed';
END IF;
-- Check Shipping
-- Shipping header (shiphead) must be shipped
SELECT shiphead_id INTO _result
FROM shiphead
WHERE ( (shiphead_id=_r.shiphead_id) AND (NOT shiphead_shipped) );
IF (FOUND) THEN
RETURN 'Shipper not closed';
END IF;
-- Shipping line items (shipitem) and associated Sales Order line items
-- must be closed
SELECT shiphead_id INTO _result
FROM shiphead, cohead, coitem
WHERE ( (shiphead_id=_r.shiphead_id)
AND ( (shiphead_order_type='SO') AND (shiphead_order_id=cohead_id) )
AND (coitem_cohead_id=cohead_id)
AND (coitem_status NOT IN ('C', 'X')) );
IF (FOUND) THEN
RETURN 'Sales Order associated with Shipper not closed';
END IF;
-- Shipping line items (shipitem) and associated Invoices must be posted
-- and after cutoff date
SELECT shiphead_id INTO _result
FROM shiphead JOIN shipitem ON (shipitem_shiphead_id=shiphead_id)
JOIN invcitem ON (invcitem_id=shipitem_invcitem_id)
JOIN invchead ON ( (invchead_id=invcitem_invchead_id) AND
((NOT invchead_posted) OR (invchead_invcdate > pCutoffDate)) )
WHERE (shiphead_id=_r.shiphead_id);
IF (FOUND) THEN
RETURN 'Invoice associated with Shipper not closed';
END IF;
-- Check Sales Order
-- Sales Order line items (coitem) must be closed
SELECT cohead_id INTO _result
FROM cohead JOIN coitem ON ( (coitem_cohead_id=cohead_id) AND
(coitem_status NOT IN ('C', 'X')) )
WHERE (cohead_id=_r.ordship_id);
IF (FOUND) THEN
RETURN 'Shipped Sales Order not closed';
END IF;
SELECT cohead_id INTO _result
FROM cohead JOIN coitem ON ( (coitem_cohead_id=cohead_id) AND
(coitem_status NOT IN ('C', 'X')) )
WHERE (cohead_id=_r.ordinv_id);
IF (FOUND) THEN
RETURN 'Invoiced Sales Order not closed';
END IF;
IF (fetchMetricBool('MultiWhs')) THEN
-- Check Original Return Authorization and cross check to New Sales Order
SELECT rahead_id INTO _result
FROM rahead JOIN raitem ON ( (raitem_rahead_id=rahead_id) AND
(raitem_status NOT IN ('C', 'X')) )
JOIN coitem ON ( (coitem_id=raitem_new_coitem_id) AND
(coitem_status NOT IN ('C', 'X')) )
JOIN invcitem ON (invcitem_coitem_id=coitem_id)
JOIN invchead ON ( (invchead_id=invcitem_invchead_id) AND
((NOT invchead_posted) OR (invchead_invcdate > pCutoffDate)) )
WHERE (rahead_orig_cohead_id=_r.ordship_id);
IF (FOUND) THEN
RETURN 'Shipped Original Return Authorization not closed';
END IF;
SELECT rahead_id INTO _result
FROM rahead JOIN raitem ON ( (raitem_rahead_id=rahead_id) AND
(raitem_status NOT IN ('C', 'X')) )
JOIN coitem ON ( (coitem_id=raitem_new_coitem_id) AND
(coitem_status NOT IN ('C', 'X')) )
JOIN invcitem ON (invcitem_coitem_id=coitem_id)
JOIN invchead ON ( (invchead_id=invcitem_invchead_id) AND
((NOT invchead_posted) OR (invchead_invcdate > pCutoffDate)) )
WHERE (rahead_orig_cohead_id=_r.ordinv_id);
IF (FOUND) THEN
RETURN 'Invoiced Original Return Authorization not closed';
END IF;
-- Check New Return Authorization
SELECT rahead_id INTO _result
FROM rahead JOIN raitem ON ( (raitem_rahead_id=rahead_id) AND
(NOT raitem_status IN ('C', 'X')) )
JOIN coitem ON ( (coitem_id=raitem_orig_coitem_id) AND
(NOT coitem_status IN ('C', 'X')) )
JOIN invcitem ON (invcitem_coitem_id=coitem_id)
JOIN invchead ON ( (invchead_id=invcitem_invchead_id) AND
((NOT invchead_posted) OR (invchead_invcdate > pCutoffDate)) )
WHERE (rahead_new_cohead_id=_r.ordship_id);
IF (FOUND) THEN
RETURN 'Shipped New Return Authorization not closed';
END IF;
SELECT rahead_id INTO _result
FROM rahead JOIN raitem ON ( (raitem_rahead_id=rahead_id) AND
(NOT raitem_status IN ('C', 'X')) )
JOIN coitem ON ( (coitem_id=raitem_orig_coitem_id) AND
(NOT coitem_status IN ('C', 'X')) )
JOIN invcitem ON (invcitem_coitem_id=coitem_id)
JOIN invchead ON ( (invchead_id=invcitem_invchead_id) AND
((NOT invchead_posted) OR (invchead_invcdate > pCutoffDate)) )
WHERE (rahead_new_cohead_id=_r.ordinv_id);
IF (FOUND) THEN
RETURN 'Invoiced New Return Authorization not closed';
END IF;
END IF;
-- Check Lot/Serial Registration
IF (fetchMetricBool('MultiWhs')) THEN
-- Registration associated with Sales Order must be expired
SELECT lsreg_id INTO _result
FROM lsreg
WHERE ( (lsreg_cohead_id=_r.ordship_id)
AND (lsreg_expiredate > CURRENT_DATE) );
IF (FOUND) THEN
RETURN 'Shipped Sales Order Lot/Serial Registration not closed';
END IF;
SELECT lsreg_id INTO _result
FROM lsreg
WHERE ( (lsreg_cohead_id=_r.ordinv_id)
AND (lsreg_expiredate > CURRENT_DATE) );
IF (FOUND) THEN
RETURN 'Invoiced Sales Order Lot/Serial Registration not closed';
END IF;
-- Registration associated with Shipping must be expired
SELECT lsreg_id INTO _result
FROM lsreg
WHERE ( (lsreg_cohead_id=_r.shiphead_id)
AND (lsreg_expiredate > CURRENT_DATE) );
IF (FOUND) THEN
RETURN 'Shipper Lot/Serial Registration not closed';
END IF;
END IF;
IF (fetchMetricBool('MultiWhs')) THEN
-- Registration associated with Original Return Authorization must be expired
SELECT rahead_id INTO _result
FROM rahead JOIN raitem ON (raitem_rahead_id=rahead_id)
JOIN raitemls ON (raitemls_raitem_id=raitem_id)
JOIN lsreg ON ( (lsreg_ls_id=raitemls_ls_id) AND
(lsreg_expiredate > CURRENT_DATE) )
WHERE (rahead_orig_cohead_id=_r.ordship_id);
IF (FOUND) THEN
RETURN 'Shipped Original Return Authorization Lot/Serial Registration not closed';
END IF;
SELECT rahead_id INTO _result
FROM rahead JOIN raitem ON (raitem_rahead_id=rahead_id)
JOIN raitemls ON (raitemls_raitem_id=raitem_id)
JOIN lsreg ON ( (lsreg_ls_id=raitemls_ls_id) AND
(lsreg_expiredate > CURRENT_DATE) )
WHERE (rahead_orig_cohead_id=_r.ordinv_id);
IF (FOUND) THEN
RETURN 'Invoiced Original Return Authorization Lot/Serial Registration not closed';
END IF;
-- Registration associated with New Return Authorization must be expired
SELECT rahead_id INTO _result
FROM rahead JOIN raitem ON (raitem_rahead_id=rahead_id)
JOIN raitemls ON (raitemls_raitem_id=raitem_id)
JOIN lsreg ON ( (lsreg_ls_id=raitemls_ls_id) AND
(lsreg_expiredate > CURRENT_DATE) )
WHERE (rahead_new_cohead_id=_r.ordship_id);
IF (FOUND) THEN
RETURN 'Shipped New Return Authorization Lot/Serial Registration not closed';
END IF;
SELECT rahead_id INTO _result
FROM rahead JOIN raitem ON (raitem_rahead_id=rahead_id)
JOIN raitemls ON (raitemls_raitem_id=raitem_id)
JOIN lsreg ON ( (lsreg_ls_id=raitemls_ls_id) AND
(lsreg_expiredate > CURRENT_DATE) )
WHERE (rahead_new_cohead_id=_r.ordinv_id);
IF (FOUND) THEN
RETURN 'Invoiced New Return Authorization Lot/Serial Registration not closed';
END IF;
END IF;
-- Cash Advances associated with Sales Order cannot exist
SELECT aropenalloc_doc_id INTO _result
FROM aropenalloc
WHERE ((aropenalloc_doctype='S')
AND (aropenalloc_doc_id=_r.ordship_id));
IF (FOUND) THEN
RETURN 'Shipped Cash Advance not closed';
END IF;
SELECT aropenalloc_doc_id INTO _result
FROM aropenalloc
WHERE ((aropenalloc_doctype='S')
AND (aropenalloc_doc_id=_r.ordinv_id));
IF (FOUND) THEN
RETURN 'Invoiced Cash Advance not closed';
END IF;
END LOOP;
-- Everything is OK, delete the chain
FOR _r IN
SELECT invchead_id, cobmisc_id, shiphead_id, ordershipped.cohead_id AS ordship_id, orderinvoiced.cohead_id AS ordinv_id
FROM invchead LEFT OUTER JOIN invcitem ON (invcitem_invchead_id=invchead_id)
LEFT OUTER JOIN cobmisc ON (cobmisc_invcnumber::TEXT=invchead_invcnumber)
LEFT OUTER JOIN shipitem ON (shipitem_invcitem_id=invcitem_id)
LEFT OUTER JOIN shiphead ON (shiphead_id=shipitem_shiphead_id)
LEFT OUTER JOIN cohead ordershipped ON (ordershipped.cohead_id=shiphead_order_id)
LEFT OUTER JOIN coitem ON (coitem_id=invcitem_coitem_id)
LEFT OUTER JOIN cohead orderinvoiced ON (orderinvoiced.cohead_id=coitem_cohead_id)
WHERE ( (invchead_id = pInvcheadId)
AND (invchead_posted)
AND (checkInvoiceSitePrivs(invchead_id)) )
GROUP BY invchead_id, cobmisc_id, shiphead_id, ordship_id, ordinv_id LOOP
IF (fetchMetricBool('MultiWhs')) THEN
FOR _ra IN
SELECT rahead_id
FROM rahead
WHERE (rahead_orig_cohead_id=_r.ordship_id) LOOP
IF (_debug) THEN
RAISE NOTICE 'Deleting Original Return head id %', _ra.rahead_id;
END IF;
DELETE FROM raitemls WHERE (raitemls_raitem_id IN (SELECT raitem_id
FROM raitem
WHERE (raitem_rahead_id=_ra.rahead_id)));
DELETE FROM rahist WHERE (rahist_rahead_id=_ra.rahead_id);
DELETE FROM raitem WHERE (raitem_rahead_id=_ra.rahead_id);
DELETE FROM rahead WHERE (rahead_id=_ra.rahead_id);
END LOOP;
FOR _ra IN
SELECT rahead_id
FROM rahead
WHERE (rahead_orig_cohead_id=_r.ordinv_id) LOOP
IF (_debug) THEN
RAISE NOTICE 'Deleting Original Return head id %', _ra.rahead_id;
END IF;
DELETE FROM raitemls WHERE (raitemls_raitem_id IN (SELECT raitem_id
FROM raitem
WHERE (raitem_rahead_id=_ra.rahead_id)));
DELETE FROM rahist WHERE (rahist_rahead_id=_ra.rahead_id);
DELETE FROM raitem WHERE (raitem_rahead_id=_ra.rahead_id);
DELETE FROM rahead WHERE (rahead_id=_ra.rahead_id);
END LOOP;
FOR _ra IN
SELECT rahead_id
FROM rahead
WHERE (rahead_new_cohead_id=_r.ordship_id) LOOP
IF (_debug) THEN
RAISE NOTICE 'Deleting New Return head id %', _ra.rahead_id;
END IF;
DELETE FROM raitemls WHERE (raitemls_raitem_id IN (SELECT raitem_id
FROM raitem
WHERE (raitem_rahead_id=_ra.rahead_id)));
DELETE FROM rahist WHERE (rahist_rahead_id=_ra.rahead_id);
DELETE FROM raitem WHERE (raitem_rahead_id=_ra.rahead_id);
DELETE FROM rahead WHERE (rahead_id=_ra.rahead_id);
END LOOP;
FOR _ra IN
SELECT rahead_id
FROM rahead
WHERE (rahead_new_cohead_id=_r.ordinv_id) LOOP
IF (_debug) THEN
RAISE NOTICE 'Deleting New Return head id %', _ra.rahead_id;
END IF;
DELETE FROM raitemls WHERE (raitemls_raitem_id IN (SELECT raitem_id
FROM raitem
WHERE (raitem_rahead_id=_ra.rahead_id)));
DELETE FROM rahist WHERE (rahist_rahead_id=_ra.rahead_id);
DELETE FROM raitem WHERE (raitem_rahead_id=_ra.rahead_id);
DELETE FROM rahead WHERE (rahead_id=_ra.rahead_id);
END LOOP;
END IF;
IF (fetchMetricBool('MultiWhs')) THEN
IF (_debug) THEN
RAISE NOTICE 'Deleting Lot/Serial Registrations';
END IF;
DELETE FROM lsreg WHERE (lsreg_cohead_id=_r.ordship_id);
DELETE FROM lsreg WHERE (lsreg_cohead_id=_r.ordinv_id);
DELETE FROM lsreg WHERE (lsreg_shiphead_id=_r.shiphead_id);
END IF;
IF (_debug) THEN
RAISE NOTICE 'Deleting Shipped Sales Order head id %', _r.ordship_id;
END IF;
DELETE FROM payco WHERE (payco_cohead_id=_r.ordship_id);
-- Delete kit components first
DELETE FROM coitem WHERE (coitem_cohead_id=_r.ordship_id AND coitem_subnumber > 0);
DELETE FROM coitem WHERE (coitem_cohead_id=_r.ordship_id);
DELETE FROM cohead WHERE (cohead_id=_r.ordship_id);
IF (_debug) THEN
RAISE NOTICE 'Deleting Sales Order head id %', _r.ordinv_id;
END IF;
DELETE FROM payco WHERE (payco_cohead_id=_r.ordinv_id);
-- Delete kit components first
DELETE FROM coitem WHERE (coitem_cohead_id=_r.ordinv_id AND coitem_subnumber > 0);
DELETE FROM coitem WHERE (coitem_cohead_id=_r.ordinv_id);
DELETE FROM cohead WHERE (cohead_id=_r.ordinv_id);
IF (_debug) THEN
RAISE NOTICE 'Deleting Ship head id %', _r.shiphead_id;
END IF;
DELETE FROM shipitem WHERE (shipitem_shiphead_id=_r.shiphead_id);
DELETE FROM pack WHERE (pack_shiphead_id=_r.shiphead_id);
DELETE FROM shiphead WHERE (shiphead_id=_r.shiphead_id);
IF (_debug) THEN
RAISE NOTICE 'Deleting Billing head id %', _r.cobmisc_id;
END IF;
DELETE FROM cobill WHERE (cobill_cobmisc_id=_r.cobmisc_id);
DELETE FROM cobmisc WHERE (cobmisc_id=_r.cobmisc_id);
END LOOP;
-- Everything is OK, delete the Invoice
IF (_debug) THEN
RAISE NOTICE 'Deleting Invoice head id %', _r.invchead_id;
END IF;
DELETE FROM invcitem WHERE (invcitem_invchead_id=_r.invchead_id);
DELETE FROM invchead WHERE (invchead_id=_r.invchead_id);
RETURN 'Purged';
END;
$_$;
ALTER FUNCTION public.purgeinvoicerecord(date, integer) OWNER TO admin;
--
-- Name: purgeinvoicerecords(date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION purgeinvoicerecords(date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCutoffDate ALIAS FOR $1;
BEGIN
-- Remove the shipitem records
DELETE FROM shipitem
WHERE (shipitem_invcitem_id IN (SELECT invcitem_id
FROM invcitem
WHERE invcitem_invchead_id IN ( SELECT invchead_id
FROM invchead
WHERE ( (invchead_invcdate <= pCutoffDate)
AND (checkInvoiceSitePrivs(invchead_id))
AND (invchead_posted) ) ) ) );
-- Remove the cobill and cobmisc records
DELETE FROM cobill
WHERE (cobill_cobmisc_id IN ( SELECT cobmisc_id
FROM cobmisc, invchead
WHERE ( (invchead_invcnumber=cobmisc_invcnumber::TEXT)
AND (checkInvoiceSitePrivs(invchead_id))
AND (cobmisc_invcdate <= pCutoffDate)
AND (cobmisc_posted)) ) );
DELETE FROM cobmisc
WHERE ( (checkInvoiceSitePrivs(getInvcheadId(cobmisc_invcnumber::TEXT)))
AND (cobmisc_invcdate <= pCutoffDate)
AND (cobmisc_posted) );
-- Remove the invchead and invcitem records
DELETE FROM invcitem
WHERE (invcitem_invchead_id IN ( SELECT invchead_id
FROM invchead
WHERE ( (invchead_invcdate <= pCutoffDate)
AND (checkInvoiceSitePrivs(invchead_id))
AND (invchead_posted) ) ) );
DELETE FROM invchead
WHERE ( (invchead_invcdate <= pCutoffDate)
AND (checkInvoiceSitePrivs(invchead_id))
AND (invchead_posted) );
RETURN 1;
END;
$_$;
ALTER FUNCTION public.purgeinvoicerecords(date) OWNER TO admin;
--
-- Name: purgepostedcountslips(date, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION purgepostedcountslips(date, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCutoffDate ALIAS FOR $1;
pWarehousid ALIAS FOR $2;
BEGIN
IF (pWarehousid = -1) THEN
DELETE FROM cntslip
WHERE (cntslip_id IN ( SELECT cntslip_id
FROM cntslip, invcnt
WHERE ( (cntslip_cnttag_id=invcnt_id)
AND (invcnt_posted)
AND (cntslip_posted)
AND (date(invcnt_postdate) <= pCutoffDate) ) ) );
ELSE
DELETE FROM cntslip
WHERE (cntslip_id IN ( SELECT cntslip_id
FROM invcnt, itemsite
WHERE ( (cntslip_cnttag_id=invcnt_id)
AND (invcnt_posted)
AND (cntslip_posted)
AND (invcnt_itemsite_id=itemsite_id)
AND (date(invcnt_postdate) <= pCutoffDate)
AND (itemsite_warehous_id=pWarehousid) ) ) );
END IF;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.purgepostedcountslips(date, integer) OWNER TO admin;
--
-- Name: purgepostedcounttags(date, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION purgepostedcounttags(date, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCutoffDate ALIAS FOR $1;
pWarehousid ALIAS FOR $2;
BEGIN
IF (pWarehousid = -1) THEN
DELETE FROM cntslip
WHERE (cntslip_cnttag_id IN ( SELECT invcnt_id
FROM invcnt
WHERE ( (invcnt_posted)
AND (date(invcnt_postdate) <= pCutoffDate) ) ) );
DELETE FROM invcnt
WHERE ((invcnt_posted)
AND (date(invcnt_postdate) <= pCutoffDate));
ELSE
DELETE FROM cntslip
WHERE (cntslip_cnttag_id IN ( SELECT invcnt_id
FROM invcnt, itemsite
WHERE ( (invcnt_posted)
AND (invcnt_itemsite_id=itemsite_id)
AND (date(invcnt_postdate) <= pCutoffDate)
AND (itemsite_warehous_id=pWarehousid) ) ) );
DELETE FROM invcnt
WHERE (invcnt_id IN ( SELECT invcnt_id
FROM invcnt, itemsite
WHERE ( (invcnt_posted)
AND (invcnt_itemsite_id=itemsite_id)
AND (date(invcnt_postdate) <= pCutoffDate)
AND (itemsite_warehous_id=pWarehousid) ) ) );
END IF;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.purgepostedcounttags(date, integer) OWNER TO admin;
--
-- Name: purgeshipments(date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION purgeshipments(date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pcutoff ALIAS FOR $1;
_r RECORD;
BEGIN
-- Used for transfer orders shipments (which are never invoiced)
FOR _r IN SELECT shiphead_id
FROM shiphead
WHERE ( (shiphead_order_type='TO')
AND (shiphead_shipped)
AND (shiphead_shipdate <= pcutoff) ) LOOP
DELETE FROM shipitem WHERE (shipitem_shiphead_id=_r.shiphead_id);
DELETE FROM shiphead WHERE (shiphead_id=_r.shiphead_id);
END LOOP;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.purgeshipments(date) OWNER TO admin;
--
-- Name: qtyallocated(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION qtyallocated(integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pLookAheaddays ALIAS FOR $2;
BEGIN
RETURN qtyAllocated(pItemsiteid, startOfTime(), (CURRENT_DATE + pLookAheadDays));
END;
$_$;
ALTER FUNCTION public.qtyallocated(integer, integer) OWNER TO admin;
--
-- Name: qtyallocated(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION qtyallocated(integer, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pDate ALIAS FOR $2;
BEGIN
RETURN qtyAllocated(pItemsiteid, startOfTime(), pDate);
END;
$_$;
ALTER FUNCTION public.qtyallocated(integer, date) OWNER TO admin;
--
-- Name: qtyallocated(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION qtyallocated(integer, date, date) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
BEGIN
IF ( fetchMetricBool('MultiWhs')) THEN
IF ( SELECT item_sold
FROM itemsite, item
WHERE ((itemsite_item_id=item_id)
AND (itemsite_id=pItemsiteid)) ) THEN
RETURN (allocatedForTo(pItemsiteid, pStartDate, pEndDate) +
allocatedForWo(pItemsiteid, pStartDate, pEndDate) +
allocatedForSo(pItemsiteid, pStartDate, pEndDate));
ELSE
RETURN (allocatedForTo(pItemsiteid, pStartDate, pEndDate) +
allocatedForWo(pItemsiteid, pStartDate, pEndDate));
END IF;
ELSE
IF ( SELECT item_sold
FROM itemsite, item
WHERE ((itemsite_item_id=item_id)
AND (itemsite_id=pItemsiteid)) ) THEN
RETURN (allocatedForWo(pItemsiteid, pStartDate, pEndDate) +
allocatedForSo(pItemsiteid, pStartDate, pEndDate));
ELSE
RETURN (allocatedForWo(pItemsiteid, pStartDate, pEndDate));
END IF;
END IF;
END;
$_$;
ALTER FUNCTION public.qtyallocated(integer, date, date) OWNER TO admin;
--
-- Name: qtyatshipping(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION qtyatshipping(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN qtyAtShipping('SO', $1);
END;
$_$;
ALTER FUNCTION public.qtyatshipping(integer) OWNER TO admin;
--
-- Name: qtyatshipping(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION qtyatshipping(text, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN qtyAtShipping($1, $2, 'U');
END;
$_$;
ALTER FUNCTION public.qtyatshipping(text, integer) OWNER TO admin;
--
-- Name: qtyatshipping(text, integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION qtyatshipping(text, integer, text) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pordertype ALIAS FOR $1;
plineitemid ALIAS FOR $2;
pstatus ALIAS FOR $3;
_qty NUMERIC := 0.0;
BEGIN
-- pstatus U=unshipped
-- S=shipped
-- B=both unshipped and shipped
IF (pordertype NOT IN ('SO', 'TO')) THEN
RAISE EXCEPTION '% is not a valid order type', pordertype;
END IF;
IF (pstatus NOT IN ('U', 'S', 'B')) THEN
RAISE EXCEPTION '% is not a valid status', pstatus;
END IF;
SELECT COALESCE(SUM(shipitem_qty), 0.0) INTO _qty
FROM shipitem, shiphead
WHERE ((shipitem_shiphead_id=shiphead_id)
AND (shiphead_order_type=pordertype)
AND (shipitem_orderitem_id=plineitemid)
AND (((shiphead_shipped) AND (pstatus IN ('S', 'B'))) OR ((NOT shiphead_shipped) AND (pstatus IN ('U', 'B')))) );
RETURN _qty;
END;
$_$;
ALTER FUNCTION public.qtyatshipping(text, integer, text) OWNER TO admin;
--
-- Name: qtyavailable(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION qtyavailable(integer, integer) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pLookAheadDays ALIAS FOR $2;
BEGIN
RETURN ( ( SELECT itemsite_qtyonhand
FROM itemsite
WHERE (itemsite_id=pItemsiteid) ) +
(SELECT qtyOrdered(pItemsiteid, pLookAheadDays)) -
(SELECT qtyAllocated(pitemsiteid, pLookAheadDays)) );
END;
$_$;
ALTER FUNCTION public.qtyavailable(integer, integer) OWNER TO admin;
--
-- Name: qtyavailable(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION qtyavailable(integer, date) RETURNS numeric
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pDate ALIAS FOR $2;
BEGIN
RETURN ( ( SELECT itemsite_qtyonhand
FROM itemsite
WHERE (itemsite_id=pItemsiteid) ) +
(SELECT qtyOrdered(pItemsiteid, (pDate - CURRENT_DATE))) -
(SELECT qtyAllocated(pItemsiteid, (pDate - CURRENT_DATE))) );
END;
$_$;
ALTER FUNCTION public.qtyavailable(integer, date) OWNER TO admin;
--
-- Name: qtyinshipment(text, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION qtyinshipment(text, integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pordertype ALIAS FOR $1;
plineitemid ALIAS FOR $2;
pshipheadid ALIAS FOR $3;
_qty NUMERIC;
BEGIN
IF (pordertype NOT IN ('SO', 'TO')) THEN
RAISE EXCEPTION '% is not a valid order type', pordertype;
END IF;
IF (pshipheadid IS NULL) THEN
RAISE EXCEPTION 'Cannot calculate quantity in a shipment with a NULL shipment';
END IF;
SELECT SUM(COALESCE(shipitem_qty, 0.0)) INTO _qty
FROM shipitem, shiphead
WHERE ((shipitem_shiphead_id=shiphead_id)
AND (shiphead_order_type=pordertype)
AND (shipitem_orderitem_id=plineitemid)
AND (shiphead_id=pshipheadid));
IF (NOT FOUND) THEN
RAISE NOTICE 'Quantity of % item % is 0 because shipment % does not exist.',
pordertype, plineitemid, pshipheadid;
END IF;
RETURN _qty;
END;
$_$;
ALTER FUNCTION public.qtyinshipment(text, integer, integer) OWNER TO admin;
--
-- Name: qtylocation(integer, integer, date, date, integer, text, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION qtylocation(integer, integer, date, date, integer, text, integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pLocationId ALIAS FOR $1;
pLsId ALIAS FOR $2;
pExpiration ALIAS FOR $3;
pWarranty ALIAS FOR $4;
pItemsiteId ALIAS FOR $5;
pOrderType ALIAS FOR $6;
pOrderId ALIAS FOR $7;
pItemlocdistId ALIAS FOR $8;
_qty NUMERIC = 0.0;
_qtyDist NUMERIC = 0.0;
_qtyReserved NUMERIC = 0.0;
BEGIN
-- Summarize itemloc qty for this location/itemsite
SELECT COALESCE(SUM(itemloc_qty), 0) INTO _qty
FROM itemloc
WHERE ( (itemloc_itemsite_id=pItemsiteId)
AND (itemloc_location_id=pLocationId)
AND (COALESCE(itemloc_ls_id, -1)=COALESCE(pLsId, itemloc_ls_id, -1))
AND (COALESCE(itemloc_expiration, endoftime())=COALESCE(pExpiration, itemloc_expiration, endoftime()))
AND (COALESCE(itemloc_warrpurc, endoftime())=COALESCE(pWarranty, itemloc_warrpurc, endoftime())) );
-- Summarize qty distributed but not yet committed by previous distributions
SELECT COALESCE(SUM(loc.itemlocdist_qty), 0) INTO _qtyDist
FROM itemlocdist loc
JOIN itemlocdist ls ON ((ls.itemlocdist_source_type='O')
AND (ls.itemlocdist_id=loc.itemlocdist_itemlocdist_id))
WHERE ( (ls.itemlocdist_itemsite_id=pItemsiteId)
AND (loc.itemlocdist_source_type='L')
AND (loc.itemlocdist_source_id=pLocationId)
AND (COALESCE(ls.itemlocdist_ls_id, -1)=COALESCE(pLsId, ls.itemlocdist_ls_id, -1))
AND (COALESCE(ls.itemlocdist_expiration, endoftime())=COALESCE(pExpiration, ls.itemlocdist_expiration, endoftime()))
AND (COALESCE(ls.itemlocdist_warranty, endoftime())=COALESCE(pWarranty, ls.itemlocdist_warranty, endoftime()))
AND (ls.itemlocdist_id != pItemlocdistId ) );
-- Summarize itemlocrsrv qty for this location/itemsite
-- that is reserved for a different order
IF (fetchMetricBool('EnableSOReservationsByLocation')) THEN
SELECT COALESCE(SUM(itemlocrsrv_qty), 0) INTO _qtyReserved
FROM itemloc JOIN itemlocrsrv ON ( (itemlocrsrv_itemloc_id=itemloc_id)
AND ((itemlocrsrv_source <> COALESCE(pOrderType, '')) OR
(itemlocrsrv_source_id <> COALESCE(pOrderId, -1))) )
WHERE ( (itemloc_itemsite_id=pItemsiteId)
AND (itemloc_location_id=pLocationId)
AND (COALESCE(itemloc_ls_id, -1)=COALESCE(pLsId, itemloc_ls_id, -1))
AND (COALESCE(itemloc_expiration, endoftime())=COALESCE(pExpiration, itemloc_expiration, endoftime()))
AND (COALESCE(itemloc_warrpurc, endoftime())=COALESCE(pWarranty, itemloc_warrpurc, endoftime())) );
END IF;
RETURN (_qty + _qtyDist - _qtyReserved);
END;
$_$;
ALTER FUNCTION public.qtylocation(integer, integer, date, date, integer, text, integer, integer) OWNER TO admin;
--
-- Name: qtyordered(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION qtyordered(integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pLookahead ALIAS FOR $2;
_itemType TEXT;
_result NUMERIC;
BEGIN
RETURN qtyOrdered(pItemsiteid, startOfTime(), (CURRENT_DATE + pLookahead));
END;
$_$;
ALTER FUNCTION public.qtyordered(integer, integer) OWNER TO admin;
--
-- Name: qtyordered(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION qtyordered(integer, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pDate ALIAS FOR $2;
BEGIN
RETURN qtyOrdered(pItemsiteid, startOfTime(), pDate);
END;
$_$;
ALTER FUNCTION public.qtyordered(integer, date) OWNER TO admin;
--
-- Name: qtyordered(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION qtyordered(integer, date, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
_itemType TEXT;
BEGIN
SELECT item_type INTO _itemType
FROM item, itemsite
WHERE ( (itemsite_item_id=item_id)
AND (itemsite_id=pItemsiteid) );
IF ( SELECT metric_value
FROM metric
WHERE ((metric_name = 'MultiWhs')
AND (metric_value = 't'))) THEN
RETURN orderedByPo(pItemsiteid, pStartDate, pEndDate) +
orderedByWo(pItemsiteid, pStartDate, pEndDate) +
orderedByTo(pItemsiteid, pStartDate, pEndDate);
ELSE
RETURN orderedByPo(pItemsiteid, pStartDate, pEndDate) +
orderedByWo(pItemsiteid, pStartDate, pEndDate);
END IF;
END;
$_$;
ALTER FUNCTION public.qtyordered(integer, date, date) OWNER TO admin;
--
-- Name: qtypr(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION qtypr(integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pLookahead ALIAS FOR $2;
BEGIN
RETURN qtypr(pItemsiteid, startOfTime(), (CURRENT_DATE + pLookahead));
END;
$_$;
ALTER FUNCTION public.qtypr(integer, integer) OWNER TO admin;
--
-- Name: qtypr(integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION qtypr(integer, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pDate ALIAS FOR $2;
BEGIN
RETURN qtypr(pItemsiteid, startOfTime(), pDate);
END;
$_$;
ALTER FUNCTION public.qtypr(integer, date) OWNER TO admin;
--
-- Name: qtypr(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION qtypr(integer, date, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
_prtotal NUMERIC;
BEGIN
SELECT SUM(pr_qtyreq) INTO _prtotal
FROM pr
WHERE ((pr_status = 'O')
AND (pr_itemsite_id=pItemsiteid)
AND (pr_duedate BETWEEN pStartDate AND pEndDate));
IF (_prtotal IS NULL) THEN
RETURN 0.0;
END IF;
RETURN _prtotal;
END;
$_$;
ALTER FUNCTION public.qtypr(integer, date, date) OWNER TO admin;
--
-- Name: qtytoreceive(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION qtytoreceive(text, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pordertype ALIAS FOR $1;
porderitemid ALIAS FOR $2;
_qty NUMERIC;
BEGIN
IF (pordertype = 'TO' AND NOT fetchMetricBool('MultiWhs')) THEN
RETURN 0;
END IF;
IF (pordertype = 'RA' AND NOT fetchMetricBool('EnableReturnAuth')) THEN
RETURN 0;
END IF;
SELECT SUM(recv_qty) INTO _qty
FROM recv
WHERE ((recv_orderitem_id=porderitemid)
AND (NOT recv_posted)
AND (recv_order_type=pordertype));
RETURN COALESCE(_qty, 0.0);
END;
$_$;
ALTER FUNCTION public.qtytoreceive(text, integer) OWNER TO admin;
--
-- Name: recallshipment(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION recallshipment(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN recallShipment($1, CURRENT_TIMESTAMP);
END;
$_$;
ALTER FUNCTION public.recallshipment(integer) OWNER TO admin;
--
-- Name: recallshipment(integer, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION recallshipment(integer, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pshipheadid ALIAS FOR $1;
_timestamp TIMESTAMP WITH TIME ZONE := $2;
_allInvoiced BOOLEAN;
_invoicePosted BOOLEAN;
_in RECORD;
_co RECORD;
_cobill RECORD;
_h RECORD;
_result INTEGER;
_invhistid INTEGER;
_itemlocSeries INTEGER;
_qty NUMERIC;
_qtyToBill NUMERIC;
_shiphead RECORD;
_to RECORD;
_ti RECORD;
_value NUMERIC;
BEGIN
IF (_timestamp IS NULL) THEN
_timestamp := CURRENT_TIMESTAMP;
END IF;
SELECT * INTO _shiphead
FROM shiphead
WHERE (shiphead_id=pshipheadid);
IF (NOT FOUND OR NOT _shiphead.shiphead_shipped) THEN
RETURN -1;
END IF;
IF (_shiphead.shiphead_order_type = 'SO') THEN
SELECT cohead_number AS head_number, cohead_cust_id AS cust_id, cohead_prj_id AS prj_id,
cohead_saletype_id AS saletype_id, cohead_shipzone_id AS shipzone_id INTO _h
FROM cohead
WHERE (cohead_id=_shiphead.shiphead_order_id);
IF (NOT FOUND) THEN
RETURN -1;
END IF;
SELECT COALESCE(BOOL_AND(shipitem_invoiced), FALSE) INTO _allInvoiced
FROM cobill, shipitem
WHERE ((cobill_coitem_id=shipitem_orderitem_id)
AND (shipitem_shiphead_id=pshipheadid));
IF (_allInvoiced AND NOT checkPrivilege('RecallInvoicedShipment')) THEN
RETURN -2;
END IF;
-- Check for any associated posted Invoices
SELECT COALESCE(BOOL_AND(invchead_posted), FALSE) INTO _invoicePosted
FROM shipitem JOIN invcitem ON (invcitem_id=shipitem_invcitem_id)
JOIN invchead ON (invchead_id=invcitem_invchead_id)
WHERE (shipitem_shiphead_id=pshipheadid);
IF (_invoicePosted) THEN
RETURN -4;
END IF;
-- Delete any associated unposted Invoices
FOR _in IN SELECT DISTINCT invchead_id
FROM shipitem JOIN invcitem ON (invcitem_id=shipitem_invcitem_id)
JOIN invchead ON ( (invchead_id=invcitem_invchead_id) AND
(NOT invchead_posted) )
WHERE (shipitem_shiphead_id=pshipheadid) LOOP
SELECT deleteInvoice(_in.invchead_id) INTO _result;
IF (_result < 0) THEN
RETURN _result;
END IF;
END LOOP;
FOR _co IN SELECT coitem_id, coitem_itemsite_id, coitem_qty_invuomratio, coitem_warranty, coitem_cos_accnt_id,
itemsite_controlmethod
FROM coitem
JOIN itemsite ON (coitem_itemsite_id=itemsite_id)
WHERE(coitem_id IN (SELECT shipitem_orderitem_id
FROM shipitem, shiphead
WHERE((shipitem_shiphead_id=shiphead_id)
AND (shiphead_shipped)
AND (shiphead_id=pshipheadid)))) FOR UPDATE LOOP
SELECT SUM(shipitem_qty),SUM(COALESCE(shipitem_value, 0)) INTO _qty, _value
FROM shipitem
WHERE ( (shipitem_orderitem_id=_co.coitem_id)
AND (shipitem_shiphead_id=pshipheadid) );
UPDATE coitem
SET coitem_qtyshipped = (coitem_qtyshipped - _qty)
WHERE (coitem_id=_co.coitem_id);
_qtyToBill := _qty;
FOR _cobill IN SELECT cobill_id, cobill_qty
FROM cobill, shipitem
WHERE ((cobill_coitem_id=shipitem_orderitem_id)
AND (shipitem_shiphead_id=pshipheadid)
AND (cobill_coitem_id=_co.coitem_id)) FOR UPDATE LOOP
IF (noNeg(_cobill.cobill_qty - _qtyToBill) = 0) THEN
DELETE FROM cobill WHERE (cobill_id=_cobill.cobill_id);
ELSE
UPDATE cobill
SET cobill_qty = noNeg(cobill_qty - _qtyToBill)
WHERE (cobill_id=_cobill.cobill_id);
END IF;
_qtyToBill = _qtyToBill - _cobill.cobill_qty;
EXIT WHEN (_qtyToBill <= 0.0);
END LOOP;
-- Check to see if all of the cobills have been deleted for this cobmisc
IF (EXISTS(SELECT cobmisc_id
FROM cobmisc JOIN cobill ON (cobill_cobmisc_id=cobmisc_id)
WHERE (cobmisc_cohead_id=_shiphead.shiphead_order_id AND NOT cobmisc_posted))) THEN
-- Lines exist, update the freight
UPDATE cobmisc SET cobmisc_freight = (cobmisc_freight - _shiphead.shiphead_freight)
WHERE (cobmisc_cohead_id=_shiphead.shiphead_order_id AND NOT cobmisc_posted);
ELSE
-- No lines exist, delete the cobmisc
DELETE FROM cobmisc
WHERE (cobmisc_cohead_id=_shiphead.shiphead_order_id AND NOT cobmisc_posted);
END IF;
-- Distribute to G/L, debit Shipping Asset, credit COS
IF (_co.itemsite_controlmethod != 'N') THEN
PERFORM insertGLTransaction( 'S/R', _shiphead.shiphead_order_type,
_h.head_number::TEXT, 'Recall Shipment',
CASE WHEN(COALESCE(_co.coitem_cos_accnt_id, -1) != -1)
THEN getPrjAccntId(_h.prj_id, _co.coitem_cos_accnt_id)
WHEN(_co.coitem_warranty = TRUE)
THEN getPrjAccntId(_h.prj_id, resolveCOWAccount(itemsite_id, _h.cust_id, _h.saletype_id, _h.shipzone_id))
ELSE getPrjAccntId(_h.prj_id, resolveCOSAccount(itemsite_id, _h.cust_id, _h.saletype_id, _h.shipzone_id))
END,
getPrjAccntId(_h.prj_id,costcat_shipasset_accnt_id), -1,
_value,
_timestamp::DATE )
FROM itemsite, costcat
WHERE ( (itemsite_costcat_id=costcat_id)
AND (itemsite_id=_co.coitem_itemsite_id) );
END IF;
END LOOP;
-- Kit billing selection
-- Set kit billing qty to zero since kits are shipped complete
FOR _cobill IN SELECT cobill_id, cobill_qty
FROM shipitem JOIN coitem sub ON (sub.coitem_id=shipitem_orderitem_id)
JOIN coitem kit ON (kit.coitem_id <> sub.coitem_id AND
kit.coitem_cohead_id = sub.coitem_cohead_id AND
kit.coitem_linenumber = sub.coitem_linenumber AND
kit.coitem_subnumber = 0)
JOIN cobill ON (cobill_coitem_id=kit.coitem_id)
WHERE (shipitem_shiphead_id=pshipheadid)
AND (sub.coitem_subnumber > 0)
GROUP BY cobill_id, cobill_qty
LOOP
UPDATE cobill SET cobill_qty = 0.0
WHERE (cobill_id=_cobill.cobill_id);
END LOOP;
ELSEIF (_shiphead.shiphead_order_type = 'TO') THEN
SELECT * INTO _to
FROM tohead
WHERE (tohead_id=_shiphead.shiphead_order_id);
IF (NOT FOUND) THEN
RETURN -1;
END IF;
IF (_to.tohead_status = 'C') THEN
RETURN -6;
END IF;
FOR _ti IN SELECT toitem_id,
sis.itemsite_id AS src_itemsite_id,
tis.itemsite_id AS trns_itemsite_id,
scc.costcat_shipasset_accnt_id AS src_shipasset_accnt_id,
tcc.costcat_asset_accnt_id AS trns_asset_accnt_id,
itemcost(tis.itemsite_id) AS trns_cost,
SUM(shipitem_qty) AS recall_qty
FROM shipitem JOIN toitem ON (toitem_id=shipitem_orderitem_id)
JOIN itemsite sis ON (sis.itemsite_item_id=toitem_item_id AND sis.itemsite_warehous_id=_to.tohead_src_warehous_id)
JOIN itemsite tis ON (tis.itemsite_item_id=toitem_item_id AND tis.itemsite_warehous_id=_to.tohead_trns_warehous_id)
JOIN costcat scc ON (scc.costcat_id=sis.itemsite_costcat_id)
JOIN costcat tcc ON (tcc.costcat_id=tis.itemsite_costcat_id)
WHERE (shipitem_shiphead_id=pshipheadid)
GROUP BY toitem_id, sis.itemsite_id, tis.itemsite_id,
scc.costcat_shipasset_accnt_id, tcc.costcat_asset_accnt_id
LOOP
_itemlocSeries := NEXTVAL('itemloc_series_seq');
SELECT postInvTrans(_ti.src_itemsite_id, 'TS', (_ti.recall_qty * -1.0), 'I/M',
_shiphead.shiphead_order_type, formatToNumber(_ti.toitem_id),
_to.tohead_number,
'Recall TO Shipment To Src Warehouse',
_ti.trns_asset_accnt_id,
_ti.src_shipasset_accnt_id,
_itemlocSeries, _timestamp,
(_ti.trns_cost * _ti.recall_qty * -1.0)) INTO _invhistid;
IF (_invhistid < 0) THEN
RETURN _invhistid;
END IF;
-- post the inventory history if lot/serial or location control
PERFORM postItemlocseries(_itemlocSeries);
-- record inventory history and qoh changes at transit warehouse but
-- there is only one g/l account to touch
SELECT postInvTrans(_ti.trns_itemsite_id, 'TR', (_ti.recall_qty * -1.0), 'I/M',
_shiphead.shiphead_order_type, formatToNumber(_ti.toitem_id),
_to.tohead_number,
'Recall TO Shipment From Transit Warehouse',
_ti.trns_asset_accnt_id,
_ti.trns_asset_accnt_id,
_itemlocSeries, _timestamp,
(_ti.trns_cost * _ti.recall_qty * -1.0)) INTO _invhistid;
IF (_invhistid < 0) THEN
RETURN _invhistid;
END IF;
-- post the inventory history if lot/serial or location control
PERFORM postItemlocseries(_itemlocSeries);
UPDATE toitem
SET toitem_qty_shipped = (toitem_qty_shipped - _ti.recall_qty)
WHERE (toitem_id=_ti.toitem_id);
UPDATE shipitem SET shipitem_shipdate=NULL,
shipitem_shipped=FALSE,
shipitem_value=(shipitem_qty * _ti.trns_cost)
WHERE ((shipitem_orderitem_id=_ti.toitem_id)
AND (shipitem_shiphead_id=pshipheadid));
DELETE FROM recv
WHERE ((recv_orderitem_id=_ti.toitem_id)
AND (recv_order_type='TO')
AND (NOT recv_posted));
END LOOP;
END IF;
UPDATE shiphead
SET shiphead_shipped=FALSE
WHERE (shiphead_id=pshipheadid);
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.recallshipment(integer, timestamp with time zone) OWNER TO admin;
--
-- Name: recallwo(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION recallwo(integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
recallChildren ALIAS FOR $2;
returnCode INTEGER;
BEGIN
UPDATE wo
SET wo_status='E'
WHERE ((wo_status='R')
AND (wo_id=pWoid));
IF (recallChildren) THEN
returnCode := (SELECT MAX(recallWo(wo_id, TRUE))
FROM wo
WHERE ((wo_ordtype='W')
AND (wo_ordid=pWoid)));
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.recallwo(integer, boolean) OWNER TO admin;
--
-- Name: receipts(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION receipts(text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTransType ALIAS FOR $1;
BEGIN
IF (pTransType IN ('RM', 'RB', 'RT', 'RP', 'RR', 'RX', 'TR')) THEN
RETURN TRUE;
ELSE
RETURN FALSE;
END IF;
END;
$_$;
ALTER FUNCTION public.receipts(text) OWNER TO admin;
--
-- Name: releaseapmemonumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releaseapmemonumber(integer) RETURNS boolean
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT releaseNumber('APMemoNumber', $1::INTEGER) > 0;
$_$;
ALTER FUNCTION public.releaseapmemonumber(integer) OWNER TO admin;
--
-- Name: releasearmemonumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releasearmemonumber(integer) RETURNS boolean
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
select releaseNumber('ARMemoNumber', $1::INTEGER) > 0;
$_$;
ALTER FUNCTION public.releasearmemonumber(integer) OWNER TO admin;
--
-- Name: releasecashrcptnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releasecashrcptnumber(integer) RETURNS boolean
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT releaseNumber('CashRcptNumber', $1) > 0;
$_$;
ALTER FUNCTION public.releasecashrcptnumber(integer) OWNER TO admin;
--
-- Name: releasecmnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releasecmnumber(integer) RETURNS boolean
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT releaseNumber('CmNumber', $1) > 0;
$_$;
ALTER FUNCTION public.releasecmnumber(integer) OWNER TO admin;
--
-- Name: releasecmnumber(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releasecmnumber(text) RETURNS boolean
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT releaseNumber('CmNumber', $1::INTEGER) > 0;
$_$;
ALTER FUNCTION public.releasecmnumber(text) OWNER TO admin;
--
-- Name: releasecrmaccountnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releasecrmaccountnumber(integer) RETURNS boolean
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT releaseNumber('CRMAccountNumber', $1::INTEGER) > 0;
$_$;
ALTER FUNCTION public.releasecrmaccountnumber(integer) OWNER TO admin;
--
-- Name: releaseincidentnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releaseincidentnumber(integer) RETURNS boolean
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT releaseNumber('IncidentNumber', $1) = 1;
$_$;
ALTER FUNCTION public.releaseincidentnumber(integer) OWNER TO admin;
--
-- Name: releaseinvcnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releaseinvcnumber(integer) RETURNS boolean
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT releaseNumber('InvcNumber', $1) > 0;
$_$;
ALTER FUNCTION public.releaseinvcnumber(integer) OWNER TO admin;
--
-- Name: releaseinvcnumber(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releaseinvcnumber(text) RETURNS boolean
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT releaseNumber('InvcNumber', $1::INTEGER) > 0;
$_$;
ALTER FUNCTION public.releaseinvcnumber(text) OWNER TO admin;
--
-- Name: releasenumber(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releasenumber(text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
psequence ALIAS FOR $1;
pnumber ALIAS FOR $2;
BEGIN
-- drop the number back into the pool if it was not committed
PERFORM clearNumberIssue(psequence, pnumber);
UPDATE orderseq SET
orderseq_number = LEAST(pnumber, orderseq_number)
WHERE (orderseq_name=psequence);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.releasenumber(text, integer) OWNER TO admin;
--
-- Name: releaseponumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releaseponumber(integer) RETURNS boolean
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT releaseNumber('PoNumber', $1) > 0;
$_$;
ALTER FUNCTION public.releaseponumber(integer) OWNER TO admin;
--
-- Name: releaseponumber(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releaseponumber(text) RETURNS boolean
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT releaseNumber('PoNumber', $1::INTEGER) > 0;
$_$;
ALTER FUNCTION public.releaseponumber(text) OWNER TO admin;
--
-- Name: releaseprnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releaseprnumber(integer) RETURNS boolean
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT releaseNumber('PrNumber', $1) > 0;
$_$;
ALTER FUNCTION public.releaseprnumber(integer) OWNER TO admin;
--
-- Name: releasepurchaseorder(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releasepurchaseorder(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPoheadid ALIAS FOR $1;
BEGIN
IF ( ( SELECT (COUNT(*) = 0)
FROM poitem
WHERE ( (poitem_pohead_id=pPoheadid)
AND (poitem_status='U') ) ) ) THEN
RETURN -1;
END IF;
IF ( ( SELECT (pohead_status='U')
FROM pohead
WHERE (pohead_id=pPoheadid) ) ) THEN
--update status and store the date that the order was released on
UPDATE pohead
SET pohead_status='O', pohead_released = current_date
WHERE (pohead_id=pPoheadid);
END IF;
--update status and store the duedates at release
UPDATE poitem
SET poitem_status='O', poitem_rlsd_duedate = poitem_duedate
WHERE (poitem_pohead_id=pPoheadid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.releasepurchaseorder(integer) OWNER TO admin;
--
-- Name: releasequnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releasequnumber(integer) RETURNS integer
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT releaseNumber('QuNumber', $1);
$_$;
ALTER FUNCTION public.releasequnumber(integer) OWNER TO admin;
--
-- Name: releasequnumber(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releasequnumber(text) RETURNS integer
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT releaseNumber('QuNumber', $1::INTEGER);
$_$;
ALTER FUNCTION public.releasequnumber(text) OWNER TO admin;
--
-- Name: releaseshipmentnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releaseshipmentnumber(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNumber ALIAS FOR $1;
_test INTEGER;
BEGIN
-- Check to see if a Shipment exists with the passed number
SELECT shiphead_id INTO _test
FROM shiphead
WHERE (shiphead_number=pNumber);
IF (FOUND) THEN
RETURN FALSE;
END IF;
-- Check to see if ShipmentNumber orderseq has been incremented past the passed number
SELECT orderseq_number INTO _test
FROM orderseq
WHERE (orderseq_name='ShipmentNumber');
IF ((_test - 1) <> pNumber) THEN
RETURN FALSE;
END IF;
-- Decrement the orderseq, releasing the passed number
UPDATE orderseq
SET orderseq_number = (orderseq_number - 1)
WHERE (orderseq_name='ShipmentNumber');
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.releaseshipmentnumber(integer) OWNER TO admin;
--
-- Name: releasesohead(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releasesohead(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoheadid ALIAS FOR $1;
BEGIN
DELETE FROM soheadlock
WHERE ( (soheadlock_sohead_id=pSoheadid)
AND (soheadlock_username=getEffectiveXtUser())
AND (soheadlock_procpid=pg_backend_pid()) );
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.releasesohead(integer) OWNER TO admin;
--
-- Name: releasesonumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releasesonumber(integer) RETURNS integer
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT releaseNumber('SoNumber', $1);
$_$;
ALTER FUNCTION public.releasesonumber(integer) OWNER TO admin;
--
-- Name: releasesonumber(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releasesonumber(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (COALESCE($1, '') = '' OR $1 ~ '[^0-9]')
THEN
--do nothing;
RETURN 1;
ELSE
RETURN releaseNumber('SoNumber', $1::INTEGER);
END IF;
END;
$_$;
ALTER FUNCTION public.releasesonumber(text) OWNER TO admin;
--
-- Name: releaseunusedbillingheader(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releaseunusedbillingheader(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCobmiscid ALIAS FOR $1;
_p RECORD;
BEGIN
IF ( ( SELECT cobmisc_posted
FROM cobmisc
WHERE (cobmisc_id=pCobmiscid) ) ) THEN
RETURN -1;
END IF;
SELECT cobill_id INTO _p
FROM cobill
WHERE (cobill_cobmisc_id=pCobmiscid)
LIMIT 1;
IF (FOUND) THEN
RETURN -2;
END IF;
DELETE FROM cobmisc
WHERE (cobmisc_id=pCobmiscid);
RETURN 0;
END;
$_$;
ALTER FUNCTION public.releaseunusedbillingheader(integer) OWNER TO admin;
--
-- Name: releasevonumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releasevonumber(integer) RETURNS boolean
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT releaseNumber('VcNumber', $1) > 0;
$_$;
ALTER FUNCTION public.releasevonumber(integer) OWNER TO admin;
--
-- Name: releasewo(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releasewo(integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
releaseChildren ALIAS FOR $2;
returnCode INTEGER;
BEGIN
UPDATE wo
SET wo_status='R'
WHERE ((wo_status='E')
AND (wo_id=pWoid));
IF (releaseChildren) THEN
returnCode := (SELECT MAX(releaseWo(wo_id, TRUE))
FROM wo
WHERE ((wo_ordtype='W')
AND (wo_ordid=pWoid)));
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.releasewo(integer, boolean) OWNER TO admin;
--
-- Name: releasewonumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION releasewonumber(integer) RETURNS boolean
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT releaseNumber('WoNumber', $1) > 0;
$_$;
ALTER FUNCTION public.releasewonumber(integer) OWNER TO admin;
--
-- Name: relocateinventory(integer, integer, integer, numeric, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION relocateinventory(integer, integer, integer, numeric, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN relocateInventory($1, $2, $3, $4, $5, CURRENT_TIMESTAMP);
END;
$_$;
ALTER FUNCTION public.relocateinventory(integer, integer, integer, numeric, text) OWNER TO admin;
--
-- Name: relocateinventory(integer, integer, integer, numeric, text, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION relocateinventory(integer, integer, integer, numeric, text, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSourceItemlocid ALIAS FOR $1;
pTargetLocationid ALIAS FOR $2;
pItemsiteid ALIAS FOR $3;
pQty ALIAS FOR $4;
pComments ALIAS FOR $5;
_GlDistTS TIMESTAMP WITH TIME ZONE := $6;
_targetItemlocid INTEGER;
_invhistid INTEGER;
_p RECORD;
_qty NUMERIC;
_itemlocSeries INTEGER := NEXTVAL('itemloc_series_seq');
BEGIN
IF ((_GlDistTS IS NULL) OR (CAST(_GlDistTS AS date)=CURRENT_DATE)) THEN
_GlDistTS := CURRENT_TIMESTAMP;
END IF;
-- Make sure the passed itemsite points to a real item
IF ( ( SELECT (item_type IN ('R', 'F') OR itemsite_costmethod = 'J')
FROM itemsite, item
WHERE ( (itemsite_item_id=item_id)
AND (itemsite_id=pItemsiteid) ) ) ) THEN
RETURN 0;
END IF;
-- Cache some parameters
SELECT itemloc_ls_id,
itemloc_itemsite_id AS itemsiteid,
itemloc_expiration,
itemloc_warrpurc,
itemloc_qty,
sourceloc.location_netable AS sourcenet,
targetloc.location_netable AS targetnet INTO _p
FROM itemloc, location AS sourceloc, location AS targetloc
WHERE ( (itemloc_location_id=sourceloc.location_id)
AND (targetloc.location_id=pTargetLocationid)
AND (itemloc_id=pSourceItemlocid) );
-- Check to make sure the qty being transfered exists
IF (_p.itemloc_qty < pQty) THEN
RETURN -1;
END IF;
-- Create the RL transaction
SELECT NEXTVAL('invhist_invhist_id_seq') INTO _invhistid;
INSERT INTO invhist
( invhist_id, invhist_itemsite_id,
invhist_transtype, invhist_invqty,
invhist_qoh_before, invhist_qoh_after,
invhist_comments, invhist_transdate,
invhist_invuom, invhist_unitcost, invhist_costmethod,
invhist_value_before, invhist_value_after, invhist_series)
SELECT _invhistid, itemsite_id,
'RL', 0,
itemsite_qtyonhand, itemsite_qtyonhand,
pComments, _GlDistTS,
uom_name,
CASE WHEN (itemsite_costmethod='A') THEN avgcost(itemsite_id)
ELSE stdCost(item_id)
END, itemsite_costmethod,
itemsite_value, itemsite_value, _itemlocSeries
FROM item, itemsite, uom
WHERE ((itemsite_item_id=item_id)
AND (item_inv_uom_id=uom_id)
AND (itemsite_controlmethod <> 'N')
AND (itemsite_id=pItemsiteid));
-- Relocate the inventory from the source and record the transactions
INSERT INTO invdetail
( invdetail_invhist_id, invdetail_location_id, invdetail_ls_id,
invdetail_qty, invdetail_qty_before, invdetail_qty_after,
invdetail_expiration, invdetail_warrpurc )
SELECT _invhistid, itemloc_location_id, itemloc_ls_id,
(pQty * -1), itemloc_qty, (itemloc_qty - pQty),
itemloc_expiration, itemloc_warrpurc
FROM itemloc
WHERE (itemloc_id=pSourceItemlocid);
UPDATE itemloc
SET itemloc_qty=(itemloc_qty - pQty)
FROM itemsite
WHERE ( (itemloc_itemsite_id=itemsite_id)
AND (NOT itemsite_freeze)
AND (itemloc_id=pSourceItemlocid) );
-- Check to see if there is anything left at the source Itemloc and delete if not
DELETE FROM itemloc
WHERE ( (itemloc_qty=0)
AND (itemloc_id=pSourceItemlocid) );
-- Check to see if any of the current Lot/Serial #/Expiration exists at the target location
SELECT itemloc_id INTO _targetItemlocid
FROM itemloc
WHERE ( (COALESCE(itemloc_ls_id, -1)=COALESCE(_p.itemloc_ls_id,-1))
AND (COALESCE(itemloc_expiration,endOfTime())=COALESCE(_p.itemloc_expiration,endOfTime()))
AND (COALESCE(itemloc_warrpurc,endOfTime())=COALESCE(_p.itemloc_warrpurc,endOfTime()))
AND (itemloc_itemsite_id=pItemsiteid)
AND (itemloc_location_id=pTargetLocationid) );
IF (NOT FOUND) THEN
SELECT NEXTVAL('itemloc_itemloc_id_seq') INTO _targetItemlocid;
INSERT INTO itemloc
( itemloc_id, itemloc_itemsite_id, itemloc_location_id,
itemloc_ls_id, itemloc_expiration, itemloc_warrpurc, itemloc_qty )
VALUES
( _targetItemlocid, pItemsiteid, pTargetLocationid,
_p.itemloc_ls_id, _p.itemloc_expiration, _p.itemloc_warrpurc, 0 );
END IF;
-- Relocate the inventory to the resultant target and record the transactions
INSERT INTO invdetail
( invdetail_invhist_id, invdetail_location_id, invdetail_ls_id,
invdetail_qty, invdetail_qty_before, invdetail_qty_after,
invdetail_expiration, invdetail_warrpurc )
SELECT _invhistid, pTargetLocationid, _p.itemloc_ls_id,
pQty, itemloc_qty, (itemloc_qty + pQty),
_p.itemloc_expiration, _p.itemloc_warrpurc
FROM itemloc
WHERE (itemloc_id=_targetItemlocid);
UPDATE itemloc
SET itemloc_qty=(itemloc_qty + pQty)
FROM itemsite
WHERE ( (itemloc_itemsite_id=itemsite_id)
AND (NOT itemsite_freeze)
AND (itemloc_id=_targetItemlocid) );
UPDATE invhist
SET invhist_hasdetail=TRUE
WHERE (invhist_id=_invhistid);
-- Post in incomming or outgoing NN transaction if required
IF (_p.sourcenet <> _p.targetnet) THEN
IF (_p.targetnet) THEN
_qty = (pQty * -1);
ELSE
_qty = pQty;
END IF;
INSERT INTO invhist
( invhist_itemsite_id,
invhist_transtype, invhist_invqty,
invhist_qoh_before, invhist_qoh_after,
invhist_docnumber, invhist_comments, invhist_transdate,
invhist_invuom, invhist_unitcost, invhist_costmethod,
invhist_value_before, invhist_value_after, invhist_series)
SELECT itemsite_id,
'NN', (_qty * -1),
itemsite_qtyonhand, (itemsite_qtyonhand - _qty),
'', '', _GlDistTS,
uom_name,
CASE WHEN (itemsite_costmethod='A') THEN avgcost(itemsite_id)
ELSE stdCost(item_id)
END, itemsite_costmethod,
itemsite_value, itemsite_value, _itemlocSeries
FROM item, itemsite, uom
WHERE ( (itemsite_item_id=item_id)
ANd (item_inv_uom_id=uom_id)
AND (itemsite_controlmethod <> 'N')
AND (itemsite_id=_p.itemsiteid) );
UPDATE itemsite
SET itemsite_qtyonhand = (itemsite_qtyonhand - _qty),
itemsite_nnqoh = (itemsite_nnqoh + _qty)
WHERE (itemsite_id=_p.itemsiteid);
END IF;
-- Check to see if there is anything left at the target Itemloc and delete if not
-- Could be zero if relocate increased a negative quantity to zero
DELETE FROM itemloc
WHERE ( (itemloc_qty=0)
AND (itemloc_id=_targetItemlocid) );
-- Return the invhist_id
RETURN _invhistid;
END;
$_$;
ALTER FUNCTION public.relocateinventory(integer, integer, integer, numeric, text, timestamp with time zone) OWNER TO admin;
--
-- Name: reorderdate(integer, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION reorderdate(integer, integer, boolean) RETURNS date
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pLookAhead ALIAS FOR $2;
pIncludePlanned ALIAS FOR $3;
_runningAvailability NUMERIC;
_reorderLevel NUMERIC;
_availability RECORD;
BEGIN
-- Make sure that we know how to handle the passed part
IF ( SELECT (NOT (item_type IN ('M', 'P')))
FROM item, itemsite
WHERE ( (itemsite_item_id=item_id)
AND (itemsite_id=pItemsiteid) ) ) THEN
RETURN NULL;
END IF;
-- Load the initial QOH
SELECT itemsite_qtyonhand INTO _runningAvailability
FROM itemsite
WHERE (itemsite_id=pItemsiteid);
-- Grab the Reorder Level, if any
IF ( ( SELECT itemsite_useparams
FROM itemsite
WHERE (itemsite_id=pItemsiteid) ) ) THEN
SELECT itemsite_reorderlevel INTO _reorderLevel
FROM itemsite
WHERE (itemsite_id=pItemsiteid);
ELSE
_reorderLevel := 0;
END IF;
-- If we are already below the Reorder Level then we should order ASAP
IF (_runningAvailability <= _reorderLevel) THEN
RETURN CURRENT_DATE;
END IF;
-- Grab all of the availability trigger points
FOR _availability IN SELECT 1 AS seq,
wo_duedate AS orderdate,
(noNeg(wo_qtyord - wo_qtyrcv)) AS balance
FROM wo
WHERE ((wo_status IN ('O', 'E', 'R', 'I'))
AND (wo_duedate <= (CURRENT_DATE + pLookAhead))
AND (wo_itemsite_id=pItemsiteid))
UNION SELECT 2 AS seq,
womatl_duedate AS orderdate,
(noNeg(itemuomtouom(itemsite_item_id, womatl_uom_id, NULL, womatl_qtyreq - womatl_qtyiss)) * -1) AS balance
FROM womatl, wo, itemsite
WHERE ((wo_status IN ('O', 'E', 'R', 'I'))
AND (womatl_wo_id=wo_id)
AND (womatl_itemsite_id=itemsite_id)
AND (womatl_duedate <= (CURRENT_DATE + pLookahead))
AND (womatl_itemsite_id=pItemsiteid))
UNION SELECT 1 AS seq,
poitem_duedate AS orderdate,
(noNeg(poitem_qty_ordered - poitem_qty_received) * poitem_invvenduomratio) AS balance
FROM pohead, poitem
WHERE ((poitem_pohead_id=pohead_id)
AND (poitem_status = 'O')
AND (poitem_duedate <= (CURRENT_DATE + pLookAhead))
AND (poitem_itemsite_id=pItemsiteid))
UNION SELECT 2 AS seq,
coitem_scheddate AS orderdate,
(noNeg(coitem_qtyord - coitem_qtyshipped + coitem_qtyreturned) * -1) AS balance
FROM coitem, cohead
WHERE ((coitem_status = 'O')
AND (coitem_cohead_id=cohead_id)
AND (coitem_scheddate <= (CURRENT_DATE + pLookAhead))
AND (coitem_itemsite_id=pItemsiteid))
UNION SELECT 2 AS seq,
planord_startdate AS orderdate,
(planreq_qty * -1) AS balance
FROM planreq, planord
WHERE ( (pIncludePlanned)
AND (planreq_source='P')
AND (planreq_source_id=planord_id)
AND (planord_startdate <= (CURRENT_DATE + pLookAhead))
AND (planord_itemsite_id=pItemsiteid) )
UNION SELECT 1 AS seq,
planord_duedate AS orderdate,
planord_qty AS balance
FROM planord
WHERE ( (pIncludePlanned)
AND (planord_duedate <= (CURRENT_DATE + pLookAhead))
AND (planord_itemsite_id=pItemsiteid) )
ORDER BY orderdate, seq LOOP
-- Calculate the new projected availability
_runningAvailability := (_runningAvailability + _availability.balance);
-- Check to see if the project availability drop below the reorder level
IF (_runningAvailability < _reorderLevel) THEN
RETURN _availability.orderdate;
END IF;
END LOOP;
-- The reorder level was not reached within the look ahead period
RETURN NULL;
END;
$_$;
ALTER FUNCTION public.reorderdate(integer, integer, boolean) OWNER TO admin;
--
-- Name: replaceallvoidedapchecks(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION replaceallvoidedapchecks(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'replaceAllVoidedAPChecks() is deprecated - use replaceAllVoidedChecks() instead';
RETURN replaceAllVoidedChecks($1);
END;
$_$;
ALTER FUNCTION public.replaceallvoidedapchecks(integer) OWNER TO admin;
--
-- Name: replaceallvoidedchecks(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION replaceallvoidedchecks(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBankaccntid ALIAS FOR $1;
_returnValue INTEGER := 0;
BEGIN
SELECT MIN(replaceVoidedCheck(checkhead_id)) INTO _returnValue
FROM checkhead
WHERE ( (checkhead_void)
AND (NOT checkhead_posted)
AND (NOT checkhead_replaced)
AND (NOT checkhead_deleted)
AND (checkhead_bankaccnt_id=pBankaccntid) );
RETURN _returnValue;
END;
$_$;
ALTER FUNCTION public.replaceallvoidedchecks(integer) OWNER TO admin;
--
-- Name: replacevoidedapcheck(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION replacevoidedapcheck(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'replaceVoidedAPCheck() is deprecated - use replaceVoidedCheck()';
RETURN replaceVoidedCheck($1);
END;
$_$;
ALTER FUNCTION public.replacevoidedapcheck(integer) OWNER TO admin;
--
-- Name: replacevoidedcheck(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION replacevoidedcheck(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCheckid ALIAS FOR $1;
_newCheckid INTEGER;
BEGIN
IF ( ( SELECT ( (NOT checkhead_void) OR checkhead_posted OR checkhead_replaced )
FROM checkhead
WHERE (checkhead_id=pCheckid) ) ) THEN
RETURN -1;
END IF;
-- has someone created a new check for one of the items while this was void?
IF EXISTS (SELECT dup.checkitem_id
FROM checkitem orig, checkitem dup, checkhead AS duphead
WHERE ((COALESCE(orig.checkitem_aropen_id,-1)=COALESCE(dup.checkitem_aropen_id,-1))
AND (COALESCE(orig.checkitem_apopen_id,-1)=COALESCE(dup.checkitem_apopen_id,-1))
AND (orig.checkitem_checkhead_id!=dup.checkitem_checkhead_id)
AND (dup.checkitem_checkhead_id=duphead.checkhead_id)
AND (NOT duphead.checkhead_void)
AND (orig.checkitem_checkhead_id=pCheckid))) THEN
RETURN -2;
END IF;
SELECT NEXTVAL('checkhead_checkhead_id_seq') INTO _newCheckid;
INSERT INTO checkhead
( checkhead_id, checkhead_recip_id, checkhead_recip_type,
checkhead_bankaccnt_id, checkhead_checkdate,
checkhead_number, checkhead_amount,
checkhead_for, checkhead_journalnumber,
checkhead_notes,
checkhead_misc, checkhead_expcat_id, checkhead_curr_id )
SELECT _newCheckid, checkhead_recip_id, checkhead_recip_type,
checkhead_bankaccnt_id, checkhead_checkdate,
-1, -- fetchNextCheckNumber(checkhead_bankaccnt_id),
checkhead_amount,
checkhead_for, checkhead_journalnumber,
checkhead_notes || '
Replaces voided check ' || checkhead_number,
checkhead_misc, checkhead_expcat_id, checkhead_curr_id
FROM checkhead
WHERE (checkhead_id=pCheckid);
INSERT INTO checkitem
( checkitem_checkhead_id, checkitem_amount, checkitem_discount,
checkitem_ponumber, checkitem_vouchernumber, checkitem_invcnumber,
checkitem_apopen_id, checkitem_aropen_id,
checkitem_docdate, checkitem_curr_id, checkitem_curr_rate )
SELECT _newCheckid, checkitem_amount, checkitem_discount,
checkitem_ponumber, checkitem_vouchernumber, checkitem_invcnumber,
checkitem_apopen_id, checkitem_aropen_id,
checkitem_docdate, checkitem_curr_id, checkitem_curr_rate
FROM checkitem
WHERE (checkitem_checkhead_id=pCheckid);
UPDATE checkhead
SET checkhead_replaced=TRUE
WHERE (checkhead_id=pCheckid);
RETURN _newCheckid;
END;
$_$;
ALTER FUNCTION public.replacevoidedcheck(integer) OWNER TO admin;
--
-- Name: reprioritizewo(integer, integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION reprioritizewo(integer, integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
pPriority ALIAS FOR $2;
pChangeChildren ALIAS FOR $3;
_status CHAR(1);
_result INTEGER;
BEGIN
SELECT wo_status INTO _status
FROM wo
WHERE (wo_id=pWoid);
IF (NOT (_status IN ('O', 'E','R','I'))) THEN
return -1;
END IF;
UPDATE wo
SET wo_priority=pPriority
WHERE (wo_id=pWoid);
IF ( (_status IN ('E','R','I')) AND (pChangeChildren) ) THEN
SELECT COALESCE(MIN(reprioritizeWo(wo_id, pPriority, TRUE)), 1) INTO _result
FROM wo
WHERE ( (wo_ordtype='W')
AND (wo_ordid=pWoid) );
ELSE
_result = 1;
END IF;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.reprioritizewo(integer, integer, boolean) OWNER TO admin;
--
-- Name: resetdbobjperms(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION resetdbobjperms(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pObjname ALIAS FOR $1;
BEGIN
EXECUTE 'ALTER TABLE ' || pObjname || ' OWNER TO ' || getEffectiveXtUser() || ';';
EXECUTE 'REVOKE ALL ON ' || pObjname || ' FROM PUBLIC;';
EXECUTE 'GRANT ALL ON ' || pObjname || ' TO GROUP xtrole;';
RETURN 1;
END;
$_$;
ALTER FUNCTION public.resetdbobjperms(text) OWNER TO admin;
--
-- Name: resetdbobjperms(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION resetdbobjperms() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_count INTEGER := 0;
BEGIN
SELECT SUM(resetDBObjPerms(nspname || '.' || relname)) INTO _count
FROM pg_catalog.pg_class, pg_catalog.pg_namespace
WHERE (relkind IN ('r', 'S', 'v')
AND (relnamespace=pg_namespace.oid)
AND (nspname IN ('public', 'api')));
RETURN _count;
END;
$$;
ALTER FUNCTION public.resetdbobjperms() OWNER TO admin;
--
-- Name: resetlowlevelcode(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION resetlowlevelcode(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemId ALIAS FOR $1;
_result INTEGER;
_counterNum INTEGER := 1;
_feedBackNum INTEGER := 1;
_r RECORD;
BEGIN
DELETE FROM costUpdate;
IF pItemId = -1 THEN -- -1 is an invalid item_id => do them all
INSERT INTO costUpdate ( costUpdate_item_id, costUpdate_item_type )
SELECT item_id, item_type
FROM item;
-- Recalculate the Item Lowlevel codes
WHILE _feedBackNum > 0 LOOP
SELECT updateLowlevel(_counterNum) INTO _feedBackNum;
_counterNum := _counterNum + 1;
END LOOP;
ELSE
INSERT INTO costUpdate ( costUpdate_item_id, costUpdate_item_type )
SELECT item_id, item_type
FROM item
WHERE (item_id=pItemId);
FOR _r IN SELECT item_id, bomdata_bomwork_level, item_type
FROM item,
indentedBOM(pItemId, getActiveRevId('BOM',pItemId),0,0)
WHERE (bomdata_item_id=item_id)
ORDER BY bomdata_bomwork_level LOOP
-- this only works because of the ORDER BY in the loop SELECT
UPDATE costUpdate
SET costupdate_lowlevel_code = _r.bomdata_bomwork_level
WHERE (costupdate_item_id=_r.item_id);
IF (NOT FOUND) THEN
INSERT INTO costUpdate (
costUpdate_item_id, costUpdate_lowlevel_code, costUpdate_item_type
) VALUES (
_r.item_id, _r.bomdata_bomwork_level, _r.item_type
);
END IF;
END LOOP;
END IF;
SELECT count(*) INTO _result
FROM costUpdate;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.resetlowlevelcode(integer) OWNER TO admin;
--
-- Name: resetqohbalance(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION resetqohbalance(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN resetQOHBalance($1, CURRENT_TIMESTAMP);
END;
$_$;
ALTER FUNCTION public.resetqohbalance(integer) OWNER TO admin;
--
-- Name: resetqohbalance(integer, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION resetqohbalance(integer, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pGlDistTS ALIAS FOR $2;
_invhistid INTEGER;
_itemlocSeries INTEGER;
BEGIN
IF ( ( SELECT ( (itemsite_controlmethod IN ('L', 'S')) OR
(item_type = 'R') OR
(itemsite_costmethod = 'J') OR
(itemsite_loccntrl) OR
(itemsite_qtyonhand > 0) )
FROM itemsite, item
WHERE ( (itemsite_item_id=item_id)
AND (itemsite_id=pItemsiteid) ) ) ) THEN
RETURN 0;
END IF;
_itemlocSeries := NEXTVAL('itemloc_series_seq');
SELECT postInvTrans( itemsite_id, 'AD', (itemsite_qtyonhand * -1),
'I/M', '', '', 'RESET',
'Reset QOH Balance to 0',
costcat_asset_accnt_id, costcat_adjustment_accnt_id,
_itemlocSeries, pGlDistTS ) INTO _invhistid
FROM itemsite, costcat
WHERE ( (itemsite_costcat_id=costcat_id)
AND (itemsite_id=pItemsiteid) );
PERFORM postItemLocSeries(_itemlocSeries);
RETURN _invhistid;
END;
$_$;
ALTER FUNCTION public.resetqohbalance(integer, timestamp with time zone) OWNER TO admin;
--
-- Name: resolvecosaccount(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION resolvecosaccount(integer, integer) RETURNS integer
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN resolveCOSAccount($1, $2, -1, -1);
END;
$_$;
ALTER FUNCTION public.resolvecosaccount(integer, integer) OWNER TO admin;
--
-- Name: resolvecosaccount(integer, integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION resolvecosaccount(pitemsiteid integer, pcustid integer, psaletypeid integer, pshipzoneid integer) RETURNS integer
LANGUAGE plpgsql STABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_salesaccntid INTEGER;
_accntid INTEGER;
BEGIN
SELECT findSalesAccnt(pItemsiteid, 'IS', pCustid, pSaletypeid, pShipzoneid) INTO _salesaccntid;
IF (_salesaccntid = -1) THEN
SELECT getUnassignedAccntId() INTO _accntid;
ELSE
SELECT salesaccnt_cos_accnt_id INTO _accntid
FROM salesaccnt
WHERE (salesaccnt_id=_salesaccntid);
END IF;
RETURN _accntid;
END;
$$;
ALTER FUNCTION public.resolvecosaccount(pitemsiteid integer, pcustid integer, psaletypeid integer, pshipzoneid integer) OWNER TO admin;
--
-- Name: resolvecowaccount(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION resolvecowaccount(integer, integer) RETURNS integer
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN resolveCOWAccount($1, $2, -1, -1);
END;
$_$;
ALTER FUNCTION public.resolvecowaccount(integer, integer) OWNER TO admin;
--
-- Name: resolvecowaccount(integer, integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION resolvecowaccount(pitemsiteid integer, pcustid integer, psaletypeid integer, pshipzoneid integer) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_salesaccntid INTEGER;
_accntid INTEGER;
BEGIN
SELECT findSalesAccnt(pItemsiteid, 'IS', pCustid, pSaletypeid, pShipzoneid) INTO _salesaccntid;
IF (_salesaccntid = -1) THEN
SELECT getUnassignedAccntId() INTO _accntid;
ELSE
SELECT salesaccnt_cow_accnt_id INTO _accntid
FROM salesaccnt
WHERE (salesaccnt_id=_salesaccntid);
END IF;
RETURN _accntid;
END;
$$;
ALTER FUNCTION public.resolvecowaccount(pitemsiteid integer, pcustid integer, psaletypeid integer, pshipzoneid integer) OWNER TO admin;
--
-- Name: resolvecreditaccount(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION resolvecreditaccount(integer, integer) RETURNS integer
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN resolveCreditAccount($1, $2, -1, -1);
END;
$_$;
ALTER FUNCTION public.resolvecreditaccount(integer, integer) OWNER TO admin;
--
-- Name: resolvecreditaccount(integer, integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION resolvecreditaccount(pitemsiteid integer, pcustid integer, psaletypeid integer, pshipzoneid integer) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_salesaccntid INTEGER;
_accntid INTEGER;
BEGIN
SELECT findSalesAccnt(pItemsiteid, 'IS', pCustid, pSaletypeid, pShipzoneid) INTO _salesaccntid;
IF (_salesaccntid = -1) THEN
SELECT getUnassignedAccntId() INTO _accntid;
ELSE
SELECT salesaccnt_credit_accnt_id INTO _accntid
FROM salesaccnt
WHERE (salesaccnt_id=_salesaccntid);
END IF;
RETURN _accntid;
END;
$$;
ALTER FUNCTION public.resolvecreditaccount(pitemsiteid integer, pcustid integer, psaletypeid integer, pshipzoneid integer) OWNER TO admin;
--
-- Name: resolvesalesaccount(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION resolvesalesaccount(integer, integer) RETURNS integer
LANGUAGE plpgsql STABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN resolveSalesAccount($1, $2, -1, -1);
END;
$_$;
ALTER FUNCTION public.resolvesalesaccount(integer, integer) OWNER TO admin;
--
-- Name: resolvesalesaccount(integer, integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION resolvesalesaccount(pitemsiteid integer, pcustid integer, psaletypeid integer, pshipzoneid integer) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_salesaccntid INTEGER;
_accntid INTEGER;
BEGIN
SELECT findSalesAccnt(pItemsiteid, 'IS', pCustid, pSaletypeid, pShipzoneid) INTO _salesaccntid;
IF (_salesaccntid = -1) THEN
SELECT getUnassignedAccntId() INTO _accntid;
ELSE
SELECT salesaccnt_sales_accnt_id INTO _accntid
FROM salesaccnt
WHERE (salesaccnt_id=_salesaccntid);
END IF;
RETURN _accntid;
END;
$$;
ALTER FUNCTION public.resolvesalesaccount(pitemsiteid integer, pcustid integer, psaletypeid integer, pshipzoneid integer) OWNER TO admin;
--
-- Name: restoresaleshistory(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION restoresaleshistory(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAsohistid ALIAS FOR $1;
BEGIN
INSERT INTO cohist ( cohist_id,
cohist_cust_id,
cohist_itemsite_id,
cohist_shipdate,
cohist_invcdate,
cohist_duedate,
cohist_promisedate,
cohist_ordernumber,
cohist_invcnumber,
cohist_qtyshipped,
cohist_unitprice,
cohist_unitcost,
cohist_billtoname,
cohist_billtoaddress1,
cohist_billtoaddress2,
cohist_billtoaddress3,
cohist_billtocity,
cohist_billtostate,
cohist_billtozip,
cohist_shiptoname,
cohist_shiptoaddress1,
cohist_shiptoaddress2,
cohist_shiptoaddress3,
cohist_shiptocity,
cohist_shiptostate,
cohist_shiptozip,
cohist_shipto_id,
cohist_shipvia,
cohist_salesrep_id,
cohist_misc_type,
cohist_misc_descrip,
cohist_misc_id,
cohist_commission,
cohist_commissionpaid,
cohist_doctype,
cohist_orderdate,
cohist_imported,
cohist_ponumber,
cohist_curr_id,
cohist_taxtype_id,
cohist_taxzone_id )
SELECT asohist_id,
CASE asohist_cust_id WHEN -1 THEN NULL ELSE asohist_cust_id END,
asohist_itemsite_id,
asohist_shipdate,
asohist_invcdate,
asohist_duedate,
asohist_promisedate,
asohist_ordernumber,
asohist_invcnumber,
asohist_qtyshipped,
asohist_unitprice,
asohist_unitcost,
asohist_billtoname,
asohist_billtoaddress1,
asohist_billtoaddress2,
asohist_billtoaddress3,
asohist_billtocity,
asohist_billtostate,
asohist_billtozip,
asohist_shiptoname,
asohist_shiptoaddress1,
asohist_shiptoaddress2,
asohist_shiptoaddress3,
asohist_shiptocity,
asohist_shiptostate,
asohist_shiptozip,
asohist_shipto_id,
asohist_shipvia,
CASE asohist_salesrep_id WHEN -1 THEN NULL ELSE asohist_salesrep_id END,
asohist_misc_type,
asohist_misc_descrip,
asohist_misc_id,
asohist_commission,
asohist_commissionpaid,
asohist_doctype,
asohist_orderdate,
asohist_imported,
asohist_ponumber,
asohist_curr_id,
asohist_taxtype_id,
asohist_taxzone_id
FROM asohist
WHERE (asohist_id=pAsohistid);
INSERT INTO cohisttax ( taxhist_id,
taxhist_parent_id,
taxhist_taxtype_id,
taxhist_tax_id,
taxhist_basis,
taxhist_basis_tax_id,
taxhist_sequence,
taxhist_percent,
taxhist_amount,
taxhist_tax,
taxhist_docdate,
taxhist_distdate,
taxhist_curr_id,
taxhist_curr_rate,
taxhist_journalnumber )
SELECT taxhist_id,
taxhist_parent_id,
taxhist_taxtype_id,
taxhist_tax_id,
taxhist_basis,
taxhist_basis_tax_id,
taxhist_sequence,
taxhist_percent,
taxhist_amount,
taxhist_tax,
taxhist_docdate,
taxhist_distdate,
taxhist_curr_id,
taxhist_curr_rate,
taxhist_journalnumber
FROM asohisttax
WHERE (taxhist_parent_id=pAsohistid);
DELETE FROM asohisttax
WHERE (taxhist_parent_id=pAsohistid);
DELETE FROM asohist
WHERE (asohist_id=pAsohistid);
RETURN pAsohistid;
END;
$_$;
ALTER FUNCTION public.restoresaleshistory(integer) OWNER TO admin;
--
-- Name: returncompleteshipment(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION returncompleteshipment(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN returnCompleteShipment($1, 0, CURRENT_TIMESTAMP);
END;
$_$;
ALTER FUNCTION public.returncompleteshipment(integer) OWNER TO admin;
--
-- Name: returncompleteshipment(integer, integer, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION returncompleteshipment(integer, integer, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pshipheadid ALIAS FOR $1;
_itemlocSeries INTEGER := $2;
_timestamp TIMESTAMP WITH TIME ZONE := $3;
_r RECORD;
_result RECORD;
_shiphead_number TEXT := '';
_count INTEGER := 0;
_countsum INTEGER := 0;
BEGIN
FOR _r IN SELECT shipitem_id
FROM shipitem, shiphead
WHERE ( (shipitem_shiphead_id=shiphead_id)
AND (NOT shiphead_shipped)
AND (shiphead_id=pshipheadid) ) LOOP
_itemlocSeries := returnShipmentTransaction(_r.shipitem_id, _itemlocSeries, _timestamp);
END LOOP;
FOR _result IN SELECT shiphead_number
FROM shiphead
WHERE ( (shiphead_id=pshipheadid) ) LOOP
_shiphead_number := _result.shiphead_number;
END LOOP;
SELECT COUNT(*) INTO _count
FROM shipdata
WHERE(shipdata_shiphead_number=_shiphead_number);
SELECT COUNT(*) INTO _countsum
FROM shipdatasum
WHERE(shipdatasum_shiphead_number=_shiphead_number);
IF (_count > 0) THEN
DELETE FROM shipdata
WHERE(shipdata_shiphead_number=_shiphead_number);
END IF;
IF (_countsum > 0) THEN
DELETE FROM shipdatasum
WHERE(shipdatasum_shiphead_number=_shiphead_number);
END IF;
DELETE FROM pack
WHERE(pack_shiphead_id=pshipheadid);
DELETE FROM shiphead
WHERE (shiphead_id=pshipheadid);
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.returncompleteshipment(integer, integer, timestamp with time zone) OWNER TO admin;
--
-- Name: returnitemshipments(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION returnitemshipments(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN returnItemShipments('SO', $1, $2, CURRENT_TIMESTAMP);
END;
$_$;
ALTER FUNCTION public.returnitemshipments(integer, integer) OWNER TO admin;
--
-- Name: returnitemshipments(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION returnitemshipments(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN returnItemShipments('SO', $1, 0, CURRENT_TIMESTAMP);
END;
$_$;
ALTER FUNCTION public.returnitemshipments(integer) OWNER TO admin;
--
-- Name: returnitemshipments(text, integer, integer, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION returnitemshipments(text, integer, integer, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pordertype ALIAS FOR $1;
pitemid ALIAS FOR $2;
_itemlocSeries INTEGER := $3;
_timestamp TIMESTAMP WITH TIME ZONE := $4;
_invhistid INTEGER;
_r RECORD;
BEGIN
IF (COALESCE(_itemlocSeries,0) = 0 ) THEN
_itemlocSeries := NEXTVAL('itemloc_series_seq');
END IF;
FOR _r IN
SELECT shipitem_id
FROM shipitem
JOIN shiphead ON (shiphead_id=shipitem_shiphead_id)
WHERE ((NOT shiphead_shipped)
AND (shiphead_order_type=pordertype)
AND (shipitem_orderitem_id=pitemid))
LOOP
SELECT returnShipmentTransaction(_r.shipitem_id, _itemlocSeries, _timestamp) INTO _itemlocSeries;
IF (_itemlocSeries < 0) THEN
RETURN _itemlocSeries;
END IF;
END LOOP;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.returnitemshipments(text, integer, integer, timestamp with time zone) OWNER TO admin;
--
-- Name: returnshipmenttransaction(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION returnshipmenttransaction(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN returnShipmentTransaction($1, 0, CURRENT_TIMESTAMP);
END;
$_$;
ALTER FUNCTION public.returnshipmenttransaction(integer) OWNER TO admin;
--
-- Name: returnshipmenttransaction(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION returnshipmenttransaction(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN returnShipmentTransaction($1, $2, CURRENT_TIMESTAMP);
END;
$_$;
ALTER FUNCTION public.returnshipmenttransaction(integer, integer) OWNER TO admin;
--
-- Name: returnshipmenttransaction(integer, integer, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION returnshipmenttransaction(integer, integer, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pShipitemId ALIAS FOR $1;
pItemlocSeries ALIAS FOR $2;
pTimestamp ALIAS FOR $3;
_itemlocSeries INTEGER;
_invhistid INTEGER;
_itemlocrsrvid INTEGER;
_coheadid INTEGER;
_rows INTEGER;
_r RECORD;
_rsrv RECORD;
BEGIN
IF (COALESCE(pItemlocSeries, 0) = 0 ) THEN
_itemlocSeries := NEXTVAL('itemloc_series_seq');
ELSE
_itemlocSeries := pItemlocSeries;
END IF;
-- Find the shipment transaction record
SELECT shipitem.*,
shiphead_id, shiphead_number, shiphead_order_type, invhist_series,
itemsite_loccntrl, itemsite_costmethod, itemsite_controlmethod,
cohead_prj_id AS prj_id
INTO _r
FROM shipitem
JOIN shiphead ON (shiphead_id=shipitem_shiphead_id)
JOIN invhist ON (invhist_id=shipitem_invhist_id)
JOIN itemsite ON (itemsite_id=invhist_itemsite_id)
LEFT OUTER JOIN cohead ON ((shiphead_order_type = 'SO') AND (shiphead_order_id = cohead_id))
WHERE ((NOT shiphead_shipped)
AND (shipitem_id=pShipitemId));
GET DIAGNOSTICS _rows = ROW_COUNT;
IF (_rows = 0 ) THEN
-- Was it a non-controlled sales order item?
SELECT shipitem.*,
shiphead_id, shiphead_number, shiphead_order_type,
itemsite_loccntrl, itemsite_costmethod, itemsite_controlmethod,
cohead_prj_id AS prj_id
INTO _r
FROM shipitem
JOIN shiphead ON (shiphead_id=shipitem_shiphead_id)
JOIN coitem ON (shipitem_orderitem_id=coitem_id)
JOIN cohead ON (cohead_id=coitem_cohead_id)
JOIN itemsite ON (itemsite_id=coitem_itemsite_id)
WHERE ((NOT shiphead_shipped)
AND (shipitem_id=pShipitemId)
AND (shiphead_order_type = 'SO'));
END IF;
GET DIAGNOSTICS _rows = ROW_COUNT;
IF (_rows = 0 AND fetchmetricbool('MultiWhs') ) THEN
-- Was it a non-controlled transfer order item?
SELECT shipitem.*,
shiphead_id, shiphead_number, shiphead_order_type,
itemsite_loccntrl, itemsite_costmethod, itemsite_controlmethod,
NULL AS prj_id
INTO _r
FROM shipitem
JOIN shiphead ON (shiphead_id=shipitem_shiphead_id)
JOIN toitem ON (shipitem_orderitem_id=toitem_id)
JOIN itemsite ON (itemsite_id=coitem_itemsite_id)
WHERE ((NOT shiphead_shipped)
AND (shipitem_id=pShipitemId)
AND (shiphead_order_type = 'TO'));
END IF;
IF (_rows > 0 ) THEN
IF (_r.shiphead_order_type = 'SO') THEN
-- Handle inventory transaction
IF (_r.itemsite_controlmethod != 'N' OR _r.itemsite_costmethod = 'J') THEN
SELECT postInvTrans( itemsite_id, 'RS', (_r.shipitem_qty * coitem_qty_invuomratio),
'S/R', _r.shiphead_order_type, formatSoNumber(_r.shipitem_orderitem_id),
shiphead_number, 'Return from Shipping',
costcat_asset_accnt_id, getPrjAccntId(_r.prj_id, costcat_shipasset_accnt_id),
_itemlocSeries, pTimestamp, _r.shipitem_value, _r.shipitem_invhist_id ) INTO _invhistid
FROM coitem, itemsite, costcat, shiphead, shipitem
WHERE ((coitem_itemsite_id=itemsite_id)
AND (itemsite_costcat_id=costcat_id)
AND (coitem_id=_r.shipitem_orderitem_id)
AND (shiphead_order_type=_r.shiphead_order_type)
AND (shiphead_id=shipitem_shiphead_id)
AND (shipitem_orderitem_id=_r.shipitem_orderitem_id));
-- We know the distribution so post this through so the any w/o activity knows about it
PERFORM postItemlocseries(_itemlocSeries);
END IF;
IF (_r.itemsite_costmethod = 'J') THEN
-- Reopen the work order
UPDATE wo SET wo_status = 'I' WHERE ((wo_ordtype='S') AND (wo_ordid=_r.shipitem_orderitem_id));
-- Job cost, so correct Production Posting referencing original receipt for reverse info.
PERFORM correctProduction(wo_id, invhist_invqty, false, _itemlocSeries, pTimestamp, invhist_id)
FROM wo, invhist
WHERE ((wo_ordtype = 'S')
AND (wo_ordid = _r.shipitem_orderitem_id)
AND (invhist_series=_r.invhist_series)
AND (invhist_transtype='RM'));
-- Return eligble material
PERFORM returnWoMaterial(womatlpost_womatl_id, _itemlocSeries, pTimestamp, womatlpost_invhist_id)
FROM womatlpost, invhist m, invhist s
WHERE ((womatlpost_invhist_id=m.invhist_id)
AND (m.invhist_series=s.invhist_series)
AND (m.invhist_transtype='IM')
AND (s.invhist_id=_r.shipitem_invhist_id));
END IF; -- end Job Costing
ELSIF (_r.shiphead_order_type = 'TO') THEN
SELECT postInvTrans(itemsite_id, 'RS', _r.shipitem_qty,
'S/R', _r.shiphead_order_type, formatToNumber(toitem_id),
tohead_number, 'Return from Shipping',
costcat_asset_accnt_id, costcat_shipasset_accnt_id,
_itemlocSeries, pTimestamp, _r.shipitem_value, _r.shipitem_invhist_id ) INTO _invhistid
FROM toitem, tohead, itemsite, costcat
WHERE ((toitem_item_id=itemsite_item_id)
AND (toitem_tohead_id=tohead_id)
AND (tohead_src_warehous_id=itemsite_warehous_id)
AND (itemsite_costcat_id=costcat_id)
AND (toitem_id=_r.shipitem_orderitem_id));
ELSE
-- Don't know what kind of order this is
RETURN -11;
END IF;
UPDATE shiphead
SET shiphead_sfstatus='D'
WHERE ((shiphead_id=_r.shiphead_id)
AND (shiphead_sfstatus='P'));
-- Handle reservation if applicable
IF (fetchmetricbool('EnableSOReservations')) THEN
UPDATE coitem
SET coitem_qtyreserved = (coitem_qtyreserved + shipitemrsrv_qty)
FROM shipitemrsrv
WHERE ((coitem_id=_r.shipitem_orderitem_id)
AND (shipitemrsrv_shipitem_id=_r.shipitem_id));
-- Handle location reservations if applicable
FOR _rsrv IN
SELECT *
FROM shipitemlocrsrv
WHERE (shipitemlocrsrv_shipitem_id=_r.shipitem_id)
LOOP
-- See if a reservation record still exists
SELECT itemlocrsrv_id, itemlocrsrv_qty INTO _itemlocrsrvid
FROM itemlocrsrv JOIN itemloc ON (itemlocrsrv_itemloc_id=itemloc_id)
WHERE ((itemlocrsrv_source = 'SO')
AND (itemlocrsrv_source_id = _r.shipitem_orderitem_id )
AND (itemloc_itemsite_id=_rsrv.shipitemlocrsrv_itemsite_id)
AND (itemloc_location_id=_rsrv.shipitemlocrsrv_location_id)
AND (COALESCE(itemloc_ls_id, -1)=COALESCE(_rsrv.shipitemlocrsrv_ls_id, -1))
AND (COALESCE(itemloc_expiration, endOfTime())=COALESCE(_rsrv.shipitemlocrsrv_expiration, endOfTime()))
AND (COALESCE(itemloc_warrpurc, endoftime())=COALESCE(_rsrv.shipitemlocrsrv_warrpurc, endoftime())) );
GET DIAGNOSTICS _rows = ROW_COUNT;
IF (_rows > 0 ) THEN
-- Update existing
UPDATE itemlocrsrv
SET itemlocrsrv_qty = (itemlocrsrv_qty + _rsrv.shipitemlocrsrv_qty)
WHERE (itemlocrsrv_id=_itemlocrsvrid);
ELSE
-- Recreate record
INSERT INTO itemlocrsrv
SELECT nextval('itemlocrsrv_itemlocrsrv_id_seq'), 'SO', _r.shipitem_orderitem_id,
itemloc_id, _rsrv.shipitemlocrsrv_qty
FROM itemloc
WHERE ((itemloc_itemsite_id=_rsrv.shipitemlocrsrv_itemsite_id)
AND (itemloc_location_id=_rsrv.shipitemlocrsrv_location_id)
AND (COALESCE(itemloc_ls_id, -1)=COALESCE(_rsrv.shipitemlocrsrv_ls_id, -1))
AND (COALESCE(itemloc_expiration, endOfTime())=COALESCE(_rsrv.shipitemlocrsrv_expiration, endOfTime()))
AND (COALESCE(itemloc_warrpurc, endoftime())=COALESCE(_rsrv.shipitemlocrsrv_warrpurc, endoftime())) );
END IF;
END LOOP;
END IF;
DELETE FROM shipitem WHERE (shipitem_id = _r.shipitem_id );
-- Clean up if this is the last shipitem on the shipment
IF (NOT EXISTS(SELECT shipitem_shiphead_id
FROM shipitem
WHERE (shipitem_shiphead_id=_r.shiphead_id))) THEN
DELETE FROM shipdata
WHERE(shipdata_shiphead_number=_r.shiphead_number);
DELETE FROM shipdatasum
WHERE(shipdatasum_shiphead_number=_r.shiphead_number);
DELETE FROM pack
WHERE(pack_shiphead_id=_r.shiphead_id);
DELETE FROM shiphead
WHERE (shiphead_id=_r.shiphead_id);
END IF;
END IF;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.returnshipmenttransaction(integer, integer, timestamp with time zone) OWNER TO admin;
--
-- Name: returnwomaterial(integer, numeric, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION returnwomaterial(integer, numeric, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWomatlid ALIAS FOR $1;
pQty ALIAS FOR $2;
pGlDistTS ALIAS FOR $3;
_itemlocSeries INTEGER;
BEGIN
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
RETURN returnWoMaterial(pWomatlid, pQty, _itemlocSeries, pGlDistTS);
END;
$_$;
ALTER FUNCTION public.returnwomaterial(integer, numeric, timestamp with time zone) OWNER TO admin;
--
-- Name: returnwomaterial(integer, integer, timestamp with time zone, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION returnwomaterial(integer, integer, timestamp with time zone, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWomatlid ALIAS FOR $1;
pItemlocSeries ALIAS FOR $2;
pGlDistTS ALIAS FOR $3;
pInvhistId ALIAS FOR $4;
_woNumber TEXT;
_invhistid INTEGER;
_itemlocSeries INTEGER;
_invqty NUMERIC;
_womatlqty NUMERIC;
_cost NUMERIC := 0;
_rows INTEGER;
BEGIN
_itemlocSeries := 0;
SELECT invhist_invqty, invhist_invqty * invhist_unitcost INTO _invqty, _cost
FROM invhist
WHERE (invhist_id=pInvhistId);
GET DIAGNOSTICS _rows = ROW_COUNT;
IF (_rows = 0) THEN
RAISE EXCEPTION 'No transaction found for invhist_id %', pInvhistId;
END IF;
SELECT itemuomtouom(itemsite_item_id, NULL, womatl_uom_id, _invqty)
INTO _womatlqty
FROM womatl, itemsite
WHERE((womatl_itemsite_id=itemsite_id)
AND (womatl_id=pWomatlid));
GET DIAGNOSTICS _rows = ROW_COUNT;
IF (_rows = 0) THEN
_womatlqty := _invqty;
END IF;
IF ( SELECT (
CASE WHEN (womatl_qtyreq >= 0) THEN
womatl_qtyiss < _womatlqty
ELSE
womatl_qtyiss > _womatlqty
END )
FROM womatl
WHERE ( womatl_id=pWomatlid ) ) THEN
RETURN pItemlocSeries;
END IF;
SELECT formatWoNumber(womatl_wo_id) INTO _woNumber
FROM womatl
WHERE (womatl_id=pWomatlid);
IF (pItemlocSeries = 0) THEN
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
ELSE
_itemlocSeries = pItemlocSeries;
END IF;
-- Post the transaction
SELECT postInvTrans( ci.itemsite_id, 'IM', (_invqty * -1),
'W/O', 'WO', _woNumber, '',
('Return ' || item_number || ' from Work Order'),
getPrjAccntId(wo_prj_id, pc.costcat_wip_accnt_id), cc.costcat_asset_accnt_id, _itemlocSeries, pGlDistTS,
-- Cost will be ignored by Standard Cost items sites
_cost, pInvhistId) INTO _invhistid
FROM womatl, wo,
itemsite AS ci, costcat AS cc,
itemsite AS pi, costcat AS pc,
item
WHERE((womatl_itemsite_id=ci.itemsite_id)
AND (ci.itemsite_costcat_id=cc.costcat_id)
AND (womatl_wo_id=wo_id)
AND (wo_itemsite_id=pi.itemsite_id)
AND (pi.itemsite_costcat_id=pc.costcat_id)
AND (ci.itemsite_item_id=item_id)
AND (womatl_id=pWomatlid) );
-- Create linkage to the transaction created
INSERT INTO womatlpost (womatlpost_womatl_id,womatlpost_invhist_id)
VALUES (pWomatlid,_invhistid);
-- Decrease the parent W/O's WIP value by the value of the returned components
UPDATE wo
SET wo_wipvalue = (wo_wipvalue - (CASE WHEN(itemsite_costmethod IN ('A','J'))
THEN _cost
WHEN(itemsite_costmethod='S')
THEN stdcost(itemsite_item_id) * _invqty
ELSE 0.0 END )),
wo_postedvalue = (wo_postedvalue - (CASE WHEN(itemsite_costmethod IN ('A','J'))
THEN _cost
WHEN(itemsite_costmethod='S')
THEN stdcost(itemsite_item_id) * _invqty
ELSE 0.0 END ))
FROM womatl, itemsite
WHERE ( (wo_id=womatl_wo_id)
AND (womatl_itemsite_id=itemsite_id)
AND (womatl_id=pWomatlid) );
UPDATE womatl
SET womatl_qtyiss = (womatl_qtyiss - _womatlqty),
womatl_lastreturn = CURRENT_DATE
WHERE (womatl_id=pWomatlid);
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.returnwomaterial(integer, integer, timestamp with time zone, integer) OWNER TO admin;
--
-- Name: FUNCTION returnwomaterial(integer, integer, timestamp with time zone, integer); Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON FUNCTION returnwomaterial(integer, integer, timestamp with time zone, integer) IS 'Returns material by reversing a specific historical transaction';
--
-- Name: returnwomaterial(integer, numeric, integer, timestamp with time zone, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION returnwomaterial(integer, numeric, integer, timestamp with time zone, boolean DEFAULT false) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWomatlid ALIAS FOR $1;
pQty ALIAS FOR $2;
pItemlocSeries ALIAS FOR $3;
pGlDistTS ALIAS FOR $4;
pReqStdCost ALIAS FOR $5;
_woNumber TEXT;
_invhistid INTEGER;
_itemlocSeries INTEGER;
_qty NUMERIC;
_cost NUMERIC := 0;
BEGIN
_itemlocSeries := 0;
IF ( SELECT (
CASE WHEN (womatl_qtyreq >= 0) THEN
womatl_qtyiss < pQty
ELSE
womatl_qtyiss > pQty
END )
FROM womatl
WHERE ( womatl_id=pWomatlid ) ) THEN
RETURN pItemlocSeries;
END IF;
SELECT itemuomtouom(itemsite_item_id, womatl_uom_id, NULL, pQty)
INTO _qty
FROM womatl, itemsite
WHERE((womatl_itemsite_id=itemsite_id)
AND (womatl_id=pWomatlid));
IF (NOT FOUND) THEN
_qty := pQty;
END IF;
SELECT formatWoNumber(womatl_wo_id) INTO _woNumber
FROM womatl
WHERE (womatl_id=pWomatlid);
IF (pItemlocSeries = 0) THEN
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
ELSE
_itemlocSeries = pItemlocSeries;
END IF;
-- Get the cost average
IF (pReqStdCost) THEN
SELECT stdcost(itemsite_item_id) * _qty INTO _cost
FROM womatl, itemsite
WHERE((womatl_itemsite_id=itemsite_id)
AND (womatl_id=pWomatlid));
ELSE
SELECT SUM(invhist_value_before - invhist_value_after) / SUM(invhist_qoh_before - invhist_qoh_after) * _qty INTO _cost
FROM invhist, womatlpost, womatl
WHERE((womatlpost_womatl_id=womatl_id)
AND (womatlpost_invhist_id=invhist_id)
AND (invhist_qoh_before > invhist_qoh_after)
AND (womatl_id=pWomatlId));
END IF;
_cost := COALESCE(_cost, 0); -- make sure it's not a null value
-- Post the transaction
SELECT postInvTrans( ci.itemsite_id, 'IM', (_qty * -1),
'W/O', 'WO', _woNumber, '',
('Return ' || item_number || ' from Work Order'),
getPrjAccntId(wo_prj_id, pc.costcat_wip_accnt_id), cc.costcat_asset_accnt_id, _itemlocSeries, pGlDistTS,
-- Cost will be ignored by Standard Cost items sites
_cost) INTO _invhistid
FROM womatl, wo,
itemsite AS ci, costcat AS cc,
itemsite AS pi, costcat AS pc,
item
WHERE((womatl_itemsite_id=ci.itemsite_id)
AND (ci.itemsite_costcat_id=cc.costcat_id)
AND (womatl_wo_id=wo_id)
AND (wo_itemsite_id=pi.itemsite_id)
AND (pi.itemsite_costcat_id=pc.costcat_id)
AND (ci.itemsite_item_id=item_id)
AND (womatl_id=pWomatlid) );
-- Create linkage to the transaction created
IF (_invhistid != -1) THEN
INSERT INTO womatlpost (womatlpost_womatl_id,womatlpost_invhist_id)
VALUES (pWomatlid,_invhistid);
END IF;
-- Decrease the parent W/O's WIP value by the value of the returned components
UPDATE wo
SET wo_wipvalue = (wo_wipvalue - (CASE WHEN(itemsite_costmethod IN ('A','J'))
THEN _cost
WHEN(itemsite_costmethod='S')
THEN stdcost(itemsite_item_id) * _qty
ELSE 0.0 END )),
wo_postedvalue = (wo_postedvalue - (CASE WHEN(itemsite_costmethod IN ('A','J'))
THEN _cost
WHEN(itemsite_costmethod='S')
THEN stdcost(itemsite_item_id) * _qty
ELSE 0.0 END ))
FROM womatl, itemsite
WHERE ( (wo_id=womatl_wo_id)
AND (womatl_itemsite_id=itemsite_id)
AND (womatl_id=pWomatlid) );
UPDATE womatl
SET womatl_qtyiss = (womatl_qtyiss - pQty),
womatl_lastreturn = CURRENT_DATE
WHERE (womatl_id=pWomatlid);
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.returnwomaterial(integer, numeric, integer, timestamp with time zone, boolean) OWNER TO admin;
--
-- Name: returnwomaterialbatch(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION returnwomaterialbatch(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoid ALIAS FOR $1;
_itemlocSeries INTEGER;
_woid INTEGER;
_r RECORD;
BEGIN
SELECT wo_id INTO _woid
FROM wo
WHERE ( (wo_status IN ('E','I'))
AND (wo_id=pWoid) );
IF (FOUND) THEN
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
FOR _r IN SELECT womatl_id,
CASE WHEN wo_qtyord >= 0 THEN
womatl_qtyiss
ELSE
((womatl_qtyreq - womatl_qtyiss) * -1)
END AS qty
FROM wo, womatl, itemsite
WHERE ((wo_id=womatl_wo_id)
AND (womatl_itemsite_id=itemsite_id)
AND ( (wo_qtyord < 0) OR (womatl_issuemethod IN ('S','M')) )
AND (womatl_wo_id=pWoid)) LOOP
IF (_r.qty != 0) THEN
PERFORM returnWoMaterial(_r.womatl_id, _r.qty, _itemlocSeries, now());
END IF;
END LOOP;
-- Reset the W/O Status to E
UPDATE wo
SET wo_status='E'
WHERE (wo_id=pWoid);
RETURN _itemlocSeries;
ELSE
RETURN -1;
END IF;
END;
$_$;
ALTER FUNCTION public.returnwomaterialbatch(integer) OWNER TO admin;
--
-- Name: reversecashreceipt(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION reversecashreceipt(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCashrcptid ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
_p RECORD;
_r RECORD;
_postToAR NUMERIC;
_postToMisc NUMERIC;
_posted_base NUMERIC := 0;
_posted NUMERIC := 0;
_sequence INTEGER;
_aropenid INTEGER;
_arMemoNumber TEXT;
_arAccntid INTEGER;
_closed BOOLEAN;
_debitAccntid INTEGER;
_exchGain NUMERIC;
_comment TEXT;
BEGIN
_posted := 0;
_posted_base := 0;
SELECT fetchGLSequence() INTO _sequence;
SELECT accnt_id INTO _arAccntid
FROM cashrcpt, accnt, salescat
WHERE ((cashrcpt_salescat_id=salescat_id)
AND (salescat_ar_accnt_id=accnt_id)
AND (cashrcpt_id=pCashrcptid));
IF (NOT FOUND) THEN
SELECT accnt_id INTO _arAccntid
FROM cashrcpt, accnt
WHERE ( (findARAccount(cashrcpt_cust_id)=accnt_id)
AND (cashrcpt_id=pCashrcptid) );
IF (NOT FOUND) THEN
RETURN -5;
END IF;
END IF;
SELECT cashrcpt_cust_id, ('Reverse Cash Receipt posting for ' || cust_number||'-'||cust_name) AS custnote,
cashrcpt_fundstype, cashrcpt_number, cashrcpt_docnumber,
cashrcpt_distdate, cashrcpt_amount, cashrcpt_discount,
(cashrcpt_amount / cashrcpt_curr_rate) AS cashrcpt_amount_base,
(cashrcpt_discount / cashrcpt_curr_rate) AS cashrcpt_discount_base,
cashrcpt_notes,
cashrcpt_bankaccnt_id AS bankaccnt_id,
accnt_id AS prepaid_accnt_id,
cashrcpt_usecustdeposit,
cashrcpt_curr_id, cashrcpt_curr_rate INTO _p
FROM accnt, cashrcpt LEFT OUTER JOIN custinfo ON (cashrcpt_cust_id=cust_id)
WHERE ( (findPrepaidAccount(cashrcpt_cust_id)=accnt_id)
AND (cashrcpt_id=pCashrcptid) );
IF (NOT FOUND) THEN
RETURN -7;
END IF;
IF (_p.cashrcpt_fundstype IN ('A', 'D', 'M', 'V')) THEN
IF NOT EXISTS(SELECT ccpay_id
FROM ccpay
WHERE ((ccpay_order_number=CAST(pCashrcptid AS TEXT))
AND (ccpay_status IN ('C', 'A')))) THEN
RETURN -8;
END IF;
_debitAccntid := findPrepaidAccount(_p.cashrcpt_cust_id);
ELSE
SELECT accnt_id INTO _debitAccntid
FROM cashrcpt, bankaccnt, accnt
WHERE ( (cashrcpt_bankaccnt_id=bankaccnt_id)
AND (bankaccnt_accnt_id=accnt_id)
AND (cashrcpt_id=pCashrcptid) );
IF (NOT FOUND) THEN
RETURN -6;
END IF;
END IF;
-- Determine the amount to post to A/R Open Items
SELECT COALESCE(SUM(cashrcptitem_amount),0) INTO _postToAR
FROM cashrcptitem JOIN aropen ON (aropen_id=cashrcptitem_aropen_id)
WHERE ((cashrcptitem_cashrcpt_id=pCashrcptid)
AND (cashrcptitem_applied));
IF (NOT FOUND) THEN
_postToAR := 0;
END IF;
-- Determine the amount to post to Misc. Distributions
SELECT COALESCE(SUM(cashrcptmisc_amount),0) INTO _postToMisc
FROM cashrcptmisc
WHERE (cashrcptmisc_cashrcpt_id=pCashrcptid);
IF (NOT FOUND) THEN
_postToMisc := 0;
END IF;
-- Check to see if the C/R is over applied
IF ((_postToAR + _postToMisc) > _p.cashrcpt_amount) THEN
RETURN -1;
END IF;
-- Check to see if the C/R is positive amount
IF (_p.cashrcpt_amount <= 0) THEN
RETURN -2;
END IF;
-- Distribute A/R Applications
FOR _r IN SELECT aropen_id, aropen_doctype, aropen_docnumber, aropen_docdate,
aropen_duedate, aropen_curr_id, aropen_curr_rate,
round(aropen_amount - aropen_paid, 2) <=
round(aropen_paid +
currToCurr(_p.cashrcpt_curr_id, aropen_curr_id,abs(cashrcptitem_amount + cashrcptitem_discount),_p.cashrcpt_distdate),2)
AS closed,
cashrcptitem_id, cashrcptitem_amount, cashrcptitem_discount,
(cashrcptitem_amount / _p.cashrcpt_curr_rate) AS cashrcptitem_amount_base,
(cashrcptitem_discount / _p.cashrcpt_curr_rate) AS cashrcptitem_discount_base,
round(aropen_paid -
currToCurr(_p.cashrcpt_curr_id, aropen_curr_id,abs(cashrcptitem_amount),_p.cashrcpt_distdate),2) AS new_paid,
round(currToCurr(_p.cashrcpt_curr_id, aropen_curr_id,abs(cashrcptitem_discount),_p.cashrcpt_distdate),2) AS new_discount
FROM cashrcptitem JOIN aropen ON (cashrcptitem_aropen_id=aropen_id)
WHERE ((cashrcptitem_cashrcpt_id=pCashrcptid)
AND (cashrcptitem_applied)) LOOP
-- Handle discount
IF (_r.cashrcptitem_discount_base > 0) THEN
PERFORM reverseCashReceiptDisc(_r.cashrcptitem_id, pJournalNumber);
END IF;
-- Update the aropen item to post the paid amount
UPDATE aropen
SET aropen_paid = _r.new_paid - _r.new_discount,
aropen_open = TRUE,
aropen_closedate = NULL
WHERE (aropen_id=_r.aropen_id);
-- Cache the running amount posted
_posted_base := _posted_base + _r.cashrcptitem_amount_base;
_posted := _posted + _r.cashrcptitem_amount;
-- Record the cashrcpt application
IF (_r.aropen_doctype IN ('I','D')) THEN
INSERT INTO arapply
( arapply_cust_id,
arapply_source_aropen_id, arapply_source_doctype, arapply_source_docnumber,
arapply_target_aropen_id, arapply_target_doctype, arapply_target_docnumber,
arapply_fundstype, arapply_refnumber, arapply_reftype, arapply_ref_id,
arapply_applied, arapply_closed,
arapply_postdate, arapply_distdate, arapply_journalnumber, arapply_username,
arapply_curr_id
)
VALUES
( _p.cashrcpt_cust_id,
-1, 'K', _p.cashrcpt_number,
_r.aropen_id, _r.aropen_doctype, _r.aropen_docnumber,
_p.cashrcpt_fundstype, _p.cashrcpt_docnumber, 'CRA', _r.cashrcptitem_id,
(round(_r.cashrcptitem_amount, 2) * -1.0), _r.closed,
CURRENT_DATE, _p.cashrcpt_distdate, pJournalNumber, getEffectiveXtUser(), _p.cashrcpt_curr_id );
ELSE
INSERT INTO arapply
( arapply_cust_id,
arapply_source_aropen_id, arapply_source_doctype, arapply_source_docnumber,
arapply_target_aropen_id, arapply_target_doctype, arapply_target_docnumber,
arapply_fundstype, arapply_refnumber, arapply_reftype, arapply_ref_id,
arapply_applied, arapply_closed, arapply_postdate, arapply_distdate,
arapply_journalnumber, arapply_username, arapply_curr_id )
VALUES
( _p.cashrcpt_cust_id,
_r.aropen_id, _r.aropen_doctype, _r.aropen_docnumber,
-1, 'R', _p.cashrcpt_number,
'', '', 'CRA', _r.cashrcptitem_id,
(round(abs(_r.cashrcptitem_amount), 2) * -1.0), _r.closed,
CURRENT_DATE, _p.cashrcpt_distdate, pJournalNumber, getEffectiveXtUser(), _p.cashrcpt_curr_id );
END IF;
_exchGain := arCurrGain(_r.aropen_id,_p.cashrcpt_curr_id, abs(_r.cashrcptitem_amount),
_p.cashrcpt_distdate);
PERFORM insertIntoGLSeries( _sequence, 'A/R', 'CR',
(_r.aropen_doctype || '-' || _r.aropen_docnumber),
CASE WHEN _r.aropen_doctype != 'R' THEN _arAccntid
ELSE findDeferredAccount(_p.cashrcpt_cust_id) END,
(round(_r.cashrcptitem_amount_base + _exchGain, 2) * -1.0),
_p.cashrcpt_distdate, _p.custnote );
IF (_exchGain <> 0) THEN
PERFORM insertIntoGLSeries(_sequence, 'A/R', 'CR',
_r.aropen_doctype || '-' || _r.aropen_docnumber,
getGainLossAccntId(
CASE WHEN _r.aropen_doctype != 'R' THEN _arAccntid
ELSE findDeferredAccount(_p.cashrcpt_cust_id) END
), round(_exchGain, 2),
_p.cashrcpt_distdate, _p.custnote);
END IF;
END LOOP;
-- Distribute Misc. Applications
FOR _r IN SELECT cashrcptmisc_id, cashrcptmisc_accnt_id, cashrcptmisc_amount,
(cashrcptmisc_amount / _p.cashrcpt_curr_rate) AS cashrcptmisc_amount_base,
cashrcptmisc_notes
FROM cashrcptmisc
WHERE (cashrcptmisc_cashrcpt_id=pCashrcptid) LOOP
-- Cache the running amount posted
_posted_base := (_posted_base + _r.cashrcptmisc_amount_base);
_posted := (_posted + _r.cashrcptmisc_amount);
-- Record the cashrcpt application
INSERT INTO arapply
( arapply_cust_id,
arapply_source_aropen_id, arapply_source_doctype, arapply_source_docnumber,
arapply_target_aropen_id, arapply_target_doctype, arapply_target_docnumber,
arapply_fundstype, arapply_refnumber,
arapply_applied, arapply_closed,
arapply_postdate, arapply_distdate, arapply_journalnumber, arapply_username,
arapply_curr_id, arapply_reftype, arapply_ref_id )
VALUES
( _p.cashrcpt_cust_id,
-1, 'K', '',
-1, 'Misc.', '',
_p.cashrcpt_fundstype, _p.cashrcpt_docnumber,
(round(_r.cashrcptmisc_amount, 2) * -1.0), TRUE,
CURRENT_DATE, _p.cashrcpt_distdate, pJournalNumber, getEffectiveXtUser(),
_p.cashrcpt_curr_id, 'CRD', _r.cashrcptmisc_id );
PERFORM insertIntoGLSeries( _sequence, 'A/R', 'CR', _r.cashrcptmisc_notes,
_r.cashrcptmisc_accnt_id,
(round(_r.cashrcptmisc_amount_base, 2) * -1.0),
_p.cashrcpt_distdate, _p.custnote );
END LOOP;
-- Post any remaining Cash to an A/R Debit Memo
-- this credit memo may absorb an occasional currency exchange rounding error
IF (round(_posted_base, 2) < round(_p.cashrcpt_amount_base, 2)) THEN
_comment := ('Unapplied from ' || _p.cashrcpt_fundstype || '-' || _p.cashrcpt_docnumber);
PERFORM insertIntoGLSeries( _sequence, 'A/R', 'CR',
_comment,
_p.prepaid_accnt_id,
((round(_p.cashrcpt_amount_base, 2) - round(_posted_base, 2)) * -1.0),
_p.cashrcpt_distdate, _p.custnote );
SELECT fetchArMemoNumber() INTO _arMemoNumber;
-- Post A/R Debit Memo
SELECT createARDebitMemo(NULL, _p.cashrcpt_cust_id, pJournalNumber, _arMemoNumber, '',
_p.cashrcpt_distdate, (_p.cashrcpt_amount - _posted),
_comment, -1, -1, -1, _p.cashrcpt_distdate, -1, NULL, 0,
_p.cashrcpt_curr_id) INTO _aropenid;
-- Create Cash Receipt Item to capture posting
INSERT INTO cashrcptitem
( cashrcptitem_cashrcpt_id, cashrcptitem_aropen_id, cashrcptitem_amount )
VALUES
( pCashrcptid, _aropenid, ((_p.cashrcpt_amount - _posted) * 1.0) );
ELSIF (round(_posted_base, 2) > round(_p.cashrcpt_amount_base, 2)) THEN
PERFORM insertIntoGLSeries(_sequence, 'A/R', 'CR',
'Currency Exchange Rounding - ' || _p.cashrcpt_docnumber,
getGainLossAccntId(_debitAccntid),
((round(_posted_base, 2) - round((_p.cashrcpt_amount_base + _p.cashrcpt_discount_base), 2)) * 1.0),
_p.cashrcpt_distdate, _p.custnote);
END IF;
-- Debit Cash
PERFORM insertIntoGLSeries( _sequence, 'A/R', 'CR',
(_p.cashrcpt_fundstype || '-' || _p.cashrcpt_docnumber),
_debitAccntid, round(_p.cashrcpt_amount_base, 2),
_p.cashrcpt_distdate,
_p.custnote );
PERFORM postGLSeries(_sequence, pJournalNumber);
-- Update and void the posted cashrcpt
UPDATE cashrcpt SET cashrcpt_posted=FALSE,
cashrcpt_posteddate=NULL,
cashrcpt_postedby=NULL,
cashrcpt_void=TRUE
WHERE (cashrcpt_id=pCashrcptid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.reversecashreceipt(integer, integer) OWNER TO admin;
--
-- Name: reversecashreceiptdisc(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION reversecashreceiptdisc(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCashrcptItemId ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
_r RECORD;
_t RECORD;
_v RECORD;
_ardiscountid INTEGER;
_arMemoNumber TEXT;
_arAccntid INTEGER;
_discountAccntid INTEGER;
_comment TEXT;
_discprcnt NUMERIC;
_check INTEGER;
BEGIN
-- Fetch base records for processing
SELECT aropen_id, aropen_doctype, aropen_amount,
cashrcptitem_discount,
cashrcpt_cust_id, cashrcpt_distdate, cashrcpt_applydate,
cashrcpt_curr_id, cashrcpt_fundstype, cashrcpt_docnumber,
round(currToCurr(cashrcpt_curr_id, aropen_curr_id, cashrcptitem_discount, cashrcpt_distdate),2) AS aropen_discount
INTO _r
FROM cashrcptitem
JOIN cashrcpt ON (cashrcptitem_cashrcpt_id=cashrcpt_id)
JOIN aropen ON ( (aropen_id=cashrcptitem_aropen_id) AND (aropen_doctype IN ('I', 'D')) )
WHERE (cashrcptitem_id=pCashrcptItemId);
-- Get discount account
_discountAccntid := findardiscountaccount(_r.cashrcpt_cust_id);
IF (_r.cashrcptitem_discount > 0) THEN
-- Determine discount percentage
_discprcnt := _r.aropen_discount / _r.aropen_amount;
SELECT fetchArMemoNumber() INTO _arMemoNumber;
_comment := 'Discount Credit Reversal from ' || _r.cashrcpt_fundstype || '-' || _r.cashrcpt_docnumber;
-- Create misc debit memo record
_ardiscountid := nextval('aropen_aropen_id_seq');
INSERT INTO aropen (
aropen_id, aropen_docdate, aropen_duedate, aropen_doctype,
aropen_docnumber, aropen_curr_id, aropen_posted, aropen_amount )
VALUES (
_ardiscountid, _r.cashrcpt_distdate, _r.cashrcpt_distdate, 'D',
_arMemoNumber, _r.cashrcpt_curr_id, false,_r.cashrcptitem_discount);
IF (fetchMetricBool('CreditTaxDiscount')) THEN
-- proportional tax credits calculated and implemented for the debit memo generated by the discount
IF (_r.aropen_doctype = 'I') THEN
-- Tax for invoices
SELECT aropen_cobmisc_id AS invcheadid,
invchead_curr_id,
invchead_invcdate INTO _t
FROM aropen
LEFT OUTER JOIN invchead ON (aropen_cobmisc_id = invchead_id)
LEFT OUTER JOIN invcitem ON (invchead_id = invcitem_invchead_id)
WHERE aropen_id = _r.aropen_id;
FOR _v IN SELECT tax_sales_accnt_id,
tax_id,
round(sum(taxdetail_tax), 2) AS tax,
currToBase(_t.invchead_curr_id, round(sum(taxdetail_tax), 2), _t.invchead_invcdate) AS taxbasevalue
FROM tax
JOIN calculateTaxDetailSummary('I', _t.invcheadid, 'T') ON (taxdetail_tax_id=tax_id)
GROUP BY tax_id, tax_sales_accnt_id
LOOP
INSERT INTO aropentax(
taxhist_parent_id, taxhist_taxtype_id, taxhist_tax_id,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_basis)
VALUES (
_ardiscountid, getadjustmenttaxtypeid(), _v.tax_id,
0.00, 0.00, (round((_v.tax * _discprcnt), 2)),
_r.cashrcpt_distdate, 0.00);
END LOOP;
ELSIF (_r.aropen_doctype = 'D') THEN
-- Tax for debit memos
INSERT INTO aropentax(
taxhist_parent_id, taxhist_taxtype_id, taxhist_tax_id,
taxhist_percent, taxhist_amount, taxhist_tax,
taxhist_docdate, taxhist_basis)
SELECT
_ardiscountid, taxhist_taxtype_id, taxhist_tax_id,
0.00, 0.00, (round((taxhist_tax * _discprcnt), 2)),
_r.cashrcpt_distdate, 0.00
FROM aropentax
WHERE (taxhist_parent_id=_r.aropen_id);
END IF;
END IF; -- End taxes
-- Create debit memo for discount
SELECT createARDebitMemo(_ardiscountid, _r.cashrcpt_cust_id, pJournalNumber, _arMemoNumber, '',
_r.cashrcpt_distdate, _r.cashrcptitem_discount,
_comment, -1, -1, _discountAccntid, _r.cashrcpt_distdate,
-1, NULL, 0, _r.cashrcpt_curr_id) INTO _ardiscountid;
END IF; -- End handle Discount
RETURN 1;
END;
$_$;
ALTER FUNCTION public.reversecashreceiptdisc(integer, integer) OWNER TO admin;
--
-- Name: reverseglseries(integer, date, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION reverseglseries(integer, date, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSequence ALIAS FOR $1;
pDistDate ALIAS FOR $2;
pNotes ALIAS FOR $3;
_sequence INTEGER := fetchGLSequence();
_journal INTEGER;
BEGIN
IF (SELECT COUNT(gltrans_sequence) > 0 FROM gltrans WHERE gltrans_sequence = pSequence) THEN
SELECT fetchJournalNumber(jrnluse_use) INTO _journal
FROM gltrans
JOIN jrnluse ON (gltrans_journalnumber=jrnluse_number)
WHERE (gltrans_sequence=pSequence)
LIMIT 1;
INSERT INTO gltrans (gltrans_created, gltrans_posted, gltrans_exported,
gltrans_date, gltrans_sequence, gltrans_accnt_id,
gltrans_source, gltrans_docnumber, gltrans_misc_id,
gltrans_amount, gltrans_notes, gltrans_journalnumber,
gltrans_doctype)
SELECT CURRENT_TIMESTAMP, FALSE, FALSE,
pDistDate, _sequence, gltrans_accnt_id,
gltrans_source, gltrans_docnumber, gltrans_misc_id,
(gltrans_amount * -1), pNotes, _journal,
gltrans_doctype
FROM gltrans
WHERE (gltrans_sequence=pSequence);
PERFORM postIntoTrialBalance(_sequence);
ELSE
SELECT fetchJournalNumber(jrnluse_use) INTO _journal
FROM sltrans
JOIN jrnluse ON (sltrans_journalnumber=jrnluse_number)
WHERE (sltrans_sequence=pSequence)
LIMIT 1;
INSERT INTO sltrans (sltrans_created, sltrans_posted,
sltrans_date, sltrans_sequence, sltrans_accnt_id,
sltrans_source, sltrans_docnumber, sltrans_misc_id,
sltrans_amount, sltrans_notes, sltrans_journalnumber,
sltrans_doctype)
SELECT CURRENT_TIMESTAMP, FALSE,
pDistDate, _sequence, sltrans_accnt_id,
sltrans_source, sltrans_docnumber, sltrans_misc_id,
(sltrans_amount * -1), pNotes, _journal,
sltrans_doctype
FROM sltrans
WHERE (sltrans_sequence=pSequence);
END IF;
RETURN _journal;
END;
$_$;
ALTER FUNCTION public.reverseglseries(integer, date, text) OWNER TO admin;
--
-- Name: revokeallmodulecmnttypesource(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION revokeallmodulecmnttypesource(integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCmnttypeid ALIAS FOR $1;
pModuleName ALIAS FOR $2;
BEGIN
DELETE FROM cmnttypesource
WHERE (cmnttypesource_id IN ( SELECT cmnttypesource_id
FROM cmnttypesource, source
WHERE ( (cmnttypesource_source_id=source_id)
AND (cmnttypesource_cmnttype_id=pCmnttypeid)
AND (source_module=pModuleName) ) ) );
RETURN 1;
END;
$_$;
ALTER FUNCTION public.revokeallmodulecmnttypesource(integer, text) OWNER TO admin;
--
-- Name: revokeallmodulepriv(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION revokeallmodulepriv(text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUsername ALIAS FOR $1;
pModuleName ALIAS FOR $2;
BEGIN
DELETE FROM usrpriv
WHERE (usrpriv_id IN ( SELECT usrpriv_id
FROM usrpriv, priv
WHERE ( (usrpriv_priv_id=priv_id)
AND (usrpriv_username=pUsername)
AND (priv_module=pModuleName) ) ) );
NOTIFY "usrprivUpdated";
RETURN 1;
END;
$_$;
ALTER FUNCTION public.revokeallmodulepriv(text, text) OWNER TO admin;
--
-- Name: revokeallmoduleprivgroup(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION revokeallmoduleprivgroup(integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pGrpid ALIAS FOR $1;
pModuleName ALIAS FOR $2;
BEGIN
DELETE FROM grppriv
WHERE (grppriv_id IN ( SELECT grppriv_id
FROM grppriv, priv
WHERE ( (grppriv_priv_id=priv_id)
AND (grppriv_grp_id=pGrpid)
AND (priv_module=pModuleName) ) ) );
RETURN 1;
END;
$_$;
ALTER FUNCTION public.revokeallmoduleprivgroup(integer, text) OWNER TO admin;
--
-- Name: revokecmnttypesource(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION revokecmnttypesource(integer, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCmnttypeid ALIAS FOR $1;
pSourceid ALIAS FOR $2;
BEGIN
DELETE FROM cmnttypesource
WHERE ( (cmnttypesource_cmnttype_id=pCmnttypeid)
AND (cmnttypesource_source_id=pSourceid) );
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.revokecmnttypesource(integer, integer) OWNER TO admin;
--
-- Name: revokegroup(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION revokegroup(text, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUsername ALIAS FOR $1;
pGrpid ALIAS FOR $2;
BEGIN
DELETE FROM usrgrp
WHERE ( (usrgrp_username=pUsername)
AND (usrgrp_grp_id=pGrpid) );
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.revokegroup(text, integer) OWNER TO admin;
--
-- Name: revokepriv(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION revokepriv(text, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUsername ALIAS FOR $1;
pPrivid ALIAS FOR $2;
BEGIN
DELETE FROM usrpriv
WHERE ( (usrpriv_username=pUsername)
AND (usrpriv_priv_id=pPrivid) );
NOTIFY "usrprivUpdated";
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.revokepriv(text, integer) OWNER TO admin;
--
-- Name: revokepriv(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION revokepriv(text, text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUsername ALIAS FOR $1;
pPrivname ALIAS FOR $2;
BEGIN
DELETE FROM usrpriv
WHERE ( (usrpriv_username=pUsername)
AND (usrpriv_priv_id IN (SELECT priv_id
FROM priv
WHERE priv_name=pPrivname) ));
NOTIFY "usrprivUpdated";
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.revokepriv(text, text) OWNER TO admin;
--
-- Name: revokeprivgroup(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION revokeprivgroup(integer, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pGrpid ALIAS FOR $1;
pPrivid ALIAS FOR $2;
BEGIN
DELETE FROM grppriv
WHERE ( (grppriv_grp_id=pGrpid)
AND (grppriv_priv_id=pPrivid) );
NOTIFY "usrprivUpdated";
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.revokeprivgroup(integer, integer) OWNER TO admin;
--
-- Name: rollupactualcost(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION rollupactualcost(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
BEGIN
RETURN rollUpSorACost(pitemid, TRUE);
END;
$_$;
ALTER FUNCTION public.rollupactualcost(integer) OWNER TO admin;
--
-- Name: rollupsoracost(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION rollupsoracost(integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pActual ALIAS FOR $2;
_counter INTEGER;
_setid INTEGER;
_consumers RECORD;
BEGIN
_counter := 0;
SELECT indentedWhereUsed(pItemid) INTO _setid;
FOR _consumers IN SELECT bomwork_item_id
FROM bomwork
WHERE (bomwork_set_id=_setid)
ORDER BY bomwork_level LOOP
PERFORM updateSorACost( _consumers.bomwork_item_id, costelem_type, TRUE,
lowerCost(_consumers.bomwork_item_id,
costelem_type, pActual),
pActual )
FROM costelem
WHERE (costelem_sys);
PERFORM updateLowerUserCosts(_consumers.bomwork_item_id, pActual);
_counter := _counter + 1;
END LOOP;
PERFORM deleteBOMWorkset(_setid);
RETURN _counter;
END;
$_$;
ALTER FUNCTION public.rollupsoracost(integer, boolean) OWNER TO admin;
--
-- Name: rollupstandardcost(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION rollupstandardcost(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
BEGIN
RETURN rollUpSorACost(pItemid, FALSE);
END;
$_$;
ALTER FUNCTION public.rollupstandardcost(integer) OWNER TO admin;
--
-- Name: roundcost(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION roundcost(pcost numeric) RETURNS numeric
LANGUAGE plpgsql IMMUTABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_scale INTEGER;
BEGIN
IF (pCost IS NULL) THEN
RETURN NULL;
END IF;
SELECT locale_cost_scale INTO _scale
FROM locale
WHERE (locale_id=getUsrLocaleId());
RETURN ROUND(pCost, _scale);
END;
$$;
ALTER FUNCTION public.roundcost(pcost numeric) OWNER TO admin;
--
-- Name: roundlocale(boolean, numeric, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION roundlocale(pfractional boolean, pqty numeric, plocale text) RETURNS numeric
LANGUAGE plpgsql IMMUTABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_r RECORD;
_scale INTEGER;
BEGIN
IF (pFractional) THEN
SELECT * INTO _r
FROM locale
WHERE (locale_id=getUsrLocaleId());
_scale := CASE pLocale WHEN 'qtyper' THEN _r.locale_qtyper_scale
WHEN 'cost' THEN _r.locale_cost_scale
ELSE _r.locale_qty_scale
END;
RETURN ROUND(pQty, _scale);
ELSE
IF (TRUNC(pQty) < pQty) THEN
RETURN (TRUNC(pQty) + 1);
ELSE
RETURN TRUNC(pQty);
END IF;
END IF;
END;
$$;
ALTER FUNCTION public.roundlocale(pfractional boolean, pqty numeric, plocale text) OWNER TO admin;
--
-- Name: roundqty(boolean, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION roundqty(pfractional boolean, pqty numeric) RETURNS numeric
LANGUAGE plpgsql IMMUTABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_scale INTEGER;
BEGIN
SELECT locale_qty_scale INTO _scale
FROM locale
WHERE (locale_id=getUsrLocaleId());
IF (pFractional) THEN
RETURN ROUND(pQty, _scale);
ELSE
IF (TRUNC(pQty) < ROUND(pQty, _scale)) THEN
RETURN (TRUNC(pQty) + 1);
ELSE
RETURN TRUNC(pQty);
END IF;
END IF;
END;
$$;
ALTER FUNCTION public.roundqty(pfractional boolean, pqty numeric) OWNER TO admin;
--
-- Name: roundsale(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION roundsale(psale numeric) RETURNS numeric
LANGUAGE plpgsql IMMUTABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_scale INTEGER;
BEGIN
IF (pSale IS NULL) THEN
RETURN NULL;
END IF;
SELECT locale_salesprice_scale INTO _scale
FROM locale
WHERE (locale_id=getUsrLocaleId());
RETURN ROUND(pSale, _scale);
END;
$$;
ALTER FUNCTION public.roundsale(psale numeric) OWNER TO admin;
--
-- Name: roundup(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION roundup(numeric) RETURNS numeric
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pValue ALIAS FOR $1;
_checkValue integer;
BEGIN
_checkValue := pValue::integer;
IF (_checkValue::numeric < pValue) THEN
RETURN (_checkValue + 1)::numeric;
ELSE
RETURN _checkValue::numeric;
END IF;
END;
$_$;
ALTER FUNCTION public.roundup(numeric) OWNER TO admin;
--
-- Name: saveaddr(integer, text, text, text, text, text, text, text, text, boolean, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION saveaddr(integer, text, text, text, text, text, text, text, text, boolean, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAddrId ALIAS FOR $1;
pNumber ALIAS FOR $2;
pAddr1 ALIAS FOR $3;
pAddr2 ALIAS FOR $4;
pAddr3 ALIAS FOR $5;
pCity ALIAS FOR $6;
pState ALIAS FOR $7;
pPostalCode ALIAS FOR $8;
pCountry ALIAS FOR $9;
pActive ALIAS FOR $10;
pNotes ALIAS FOR $11;
pFlag ALIAS FOR $12;
_addrId INTEGER;
_addrNumber INTEGER;
_flag TEXT;
_p RECORD;
_cnt INTEGER;
_notes TEXT;
BEGIN
--Validate
IF ((pFlag IS NULL) OR (pFlag = '') OR (pFlag = 'CHECK') OR (pFlag = 'CHANGEONE') OR (pFlag = 'CHANGEALL')) THEN
IF (pFlag='') THEN
_flag := 'CHECK';
ELSE
_flag := COALESCE(pFlag,'CHECK');
END IF;
ELSE
RAISE EXCEPTION 'Invalid Flag (%). Valid flags are CHECK, CHANGEONE or CHANGEALL', pFlag;
END IF;
_notes := COALESCE(pNotes,'');
--If there is nothing here, get out
IF ( (pNumber = '' OR pNumber IS NULL)
AND (pAddr1 = '' OR pAddr1 IS NULL)
AND (pAddr2 = '' OR pAddr2 IS NULL)
AND (pAddr3 = '' OR pAddr3 IS NULL)
AND (pCity = '' OR pCity IS NULL)
AND (pState = '' OR pState IS NULL)
AND (pPostalCode = '' OR pPostalCode IS NULL)
AND (pCountry = '' OR pCountry IS NULL) ) THEN
RETURN NULL;
END IF;
_addrId := COALESCE(pAddrId,-1);
--If we have an ID see if anything has changed, if not get out
IF (_addrId >= 0) THEN
SELECT * FROM addr INTO _p
WHERE ((pAddrId=addr_id)
AND (COALESCE(pNumber,addr_number)=addr_number)
AND (COALESCE(pAddr1, '')=COALESCE(addr_line1, ''))
AND (COALESCE(pAddr2, '')=COALESCE(addr_line2, ''))
AND (COALESCE(pAddr3, '')=COALESCE(addr_line3, ''))
AND (COALESCE(pCity, '')=COALESCE(addr_city, ''))
AND (COALESCE(pState, '')=COALESCE(addr_state, ''))
AND (COALESCE(pPostalCode, '')=COALESCE(addr_postalcode, ''))
AND (COALESCE(pCountry, '')=COALESCE(addr_country, ''))
AND (pActive=addr_active)
AND (_notes=COALESCE(addr_notes,'')));
IF (FOUND) THEN
RETURN _addrId;
END IF;
END IF;
--Check to see if duplicate address exists
SELECT addr_id, addr_notes INTO _p
FROM addr
WHERE ((_addrId <> addr_id)
AND (COALESCE(UPPER(addr_line1),'') = COALESCE(UPPER(pAddr1),''))
AND (COALESCE(UPPER(addr_line2),'') = COALESCE(UPPER(pAddr2),''))
AND (COALESCE(UPPER(addr_line3),'') = COALESCE(UPPER(pAddr3),''))
AND (COALESCE(UPPER(addr_city),'') = COALESCE(UPPER(pCity),''))
AND (COALESCE(UPPER(addr_state),'') = COALESCE(UPPER(pState),''))
AND (COALESCE(UPPER(addr_postalcode),'') = COALESCE(UPPER(pPostalcode),''))
AND (COALESCE(UPPER(addr_country),'') = COALESCE(UPPER(pCountry),'')));
IF (FOUND) THEN
--Note: To prevent overwriting of existing notes, the application
--needs to load any existing notes for a matching address before altering them.
IF (_notes <> _p.addr_notes) THEN
UPDATE addr
SET addr_notes=addr_notes || '
' || _notes
WHERE addr_id=_p.addr_id;
END IF;
RETURN _p.addr_id; --A matching address exits
END IF;
IF (_addrId < 0) THEN
_flag := 'CHANGEONE';
END IF;
IF (_flag = 'CHECK') THEN
IF addrUseCount(_addrId) > 1 THEN
RETURN -2;
ELSIF (SELECT COUNT(addr_id)=0 FROM addr WHERE (addr_id=_addrId)) THEN
_flag := 'CHANGEONE';
ELSE
_flag := 'CHANGEALL';
END IF;
END IF;
IF (_flag = 'CHANGEALL') THEN
_addrNumber := pNumber;
IF (_addrNumber IS NULL) THEN
SELECT addr_number INTO _addrNumber
FROM addr
WHERE(addr_id = _addrId);
IF (_addrNumber IS NULL) THEN
_addrNumber := fetchNextNumber('AddressNumber');
END IF;
END IF;
UPDATE addr SET
addr_line1 = pAddr1, addr_line2 = pAddr2, addr_line3 = pAddr3,
addr_city = pCity, addr_state = pState,
addr_postalcode = pPostalcode, addr_country = pCountry,
addr_active = pActive, addr_notes = pNotes
WHERE addr_id = _addrId;
RETURN _addrId;
ELSE
SELECT NEXTVAL('addr_addr_id_seq') INTO _addrId;
IF (_flag = 'CHANGEONE') THEN
_addrNumber := fetchNextNumber('AddressNumber');
ELSE
_addrNumber := COALESCE(pNumber::text,fetchNextNumber('AddressNumber'));
END IF;
INSERT INTO addr ( addr_id, addr_number,
addr_line1, addr_line2, addr_line3,
addr_city, addr_state, addr_postalcode, addr_country,
addr_active, addr_notes
) VALUES ( _addrId, _addrNumber,
pAddr1, pAddr2, pAddr3,
pCity, pState, pPostalcode, pCountry,
pActive, _notes);
RETURN _addrId;
END IF;
END;
$_$;
ALTER FUNCTION public.saveaddr(integer, text, text, text, text, text, text, text, text, boolean, text, text) OWNER TO admin;
--
-- Name: saveaddr(integer, text, text, text, text, text, text, text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION saveaddr(integer, text, text, text, text, text, text, text, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAddrId ALIAS FOR $1;
pNumber ALIAS FOR $2;
pAddr1 ALIAS FOR $3;
pAddr2 ALIAS FOR $4;
pAddr3 ALIAS FOR $5;
pCity ALIAS FOR $6;
pState ALIAS FOR $7;
pPostalCode ALIAS FOR $8;
pCountry ALIAS FOR $9;
pFlag ALIAS FOR $10;
_returnVal INTEGER;
BEGIN
SELECT saveAddr(pAddrId,pNumber, pAddr1,pAddr2,pAddr3,pCity,pState,pPostalCode,pCountry,true,'',pFlag) INTO _returnVal;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.saveaddr(integer, text, text, text, text, text, text, text, text, text) OWNER TO admin;
--
-- Name: savealarm(integer, text, date, time without time zone, integer, text, boolean, text, boolean, text, boolean, text, text, integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION savealarm(integer, text, date, time without time zone, integer, text, boolean, text, boolean, text, boolean, text, text, integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAlarmId ALIAS FOR $1;
pAlarmNumber ALIAS FOR $2;
pDate ALIAS FOR $3;
pTime ALIAS FOR $4;
pOffset ALIAS FOR $5;
pQualifier ALIAS FOR $6;
pEvent ALIAS FOR $7;
pEventRecipient ALIAS FOR $8;
pEmail ALIAS FOR $9;
pEmailRecipient ALIAS FOR $10;
pSysmsg ALIAS FOR $11;
pSysmsgRecipient ALIAS FOR $12;
pSource ALIAS FOR $13;
pSourceId ALIAS FOR $14;
pFlag ALIAS FOR $15;
_alarmId INTEGER;
_alarmNumber TEXT;
_alarmTime TIMESTAMP;
_alarmInterval INTERVAL;
_alarmTrigger TIMESTAMP;
_isNew BOOLEAN;
_flag TEXT;
_alarmCount INTEGER := 0;
_debug BOOLEAN := false;
BEGIN
IF (_debug) THEN
RAISE NOTICE 'pAlarmId = %', pAlarmId;
RAISE NOTICE 'pAlarmNumber = %', pAlarmNumber;
RAISE NOTICE 'pDate = %', pDate;
RAISE NOTICE 'pTime = %', pTime;
RAISE NOTICE 'pOffset = %', pOffset;
RAISE NOTICE 'pQualifier = %', pQualifier;
RAISE NOTICE 'pEvent = %', pEvent;
RAISE NOTICE 'pEventRecipient = %', pEventRecipient;
RAISE NOTICE 'pEmail = %', pEmail;
RAISE NOTICE 'pEmailRecipient = %', pEmailRecipient;
RAISE NOTICE 'pSysmsg = %', pSysmsg;
RAISE NOTICE 'pSysmsgRecipient = %', pSysmsgRecipient;
RAISE NOTICE 'pSource = %', pSource;
RAISE NOTICE 'pSourceId = %', pSourceId;
RAISE NOTICE 'pFlag = %', pFlag;
END IF;
--Validate
IF ((pFlag IS NULL) OR (pFlag = '') OR (pFlag = 'CHECK') OR (pFlag = 'CHANGEONE') OR (pFlag = 'CHANGEALL')) THEN
IF (pFlag='') THEN
_flag := 'CHECK';
ELSE
_flag := COALESCE(pFlag,'CHECK');
END IF;
ELSE
RAISE EXCEPTION 'Invalid Flag (%). Valid flags are CHECK, CHANGEONE or CHANGEALL', pFlag;
END IF;
--If there is nothing here get out
IF ( (pAlarmId IS NULL OR pAlarmId = -1)
AND (pOffset IS NULL)
AND (pSourceId IS NULL)
AND (COALESCE(pQualifier, '') = '')
AND (COALESCE(pEventRecipient, '') = '')
AND (COALESCE(pEmailRecipient, '') = '')
AND (COALESCE(pSysmsgRecipient, '') = '')
AND (COALESCE(pSource, '') = '') ) THEN
RETURN NULL;
END IF;
IF (pAlarmId IS NULL OR pAlarmId = -1) THEN
_isNew := true;
_alarmId := nextval('alarm_alarm_id_seq');
_alarmNumber := fetchNextNumber('AlarmNumber');
ELSE
SELECT COUNT(alarm_id) INTO _alarmCount
FROM alarm
WHERE ((alarm_id=pAlarmId)
AND (alarm_source=pSource)
AND (alarm_source_id=pSourceId));
-- ask whether new or update if name changes
-- but only if this isn't a new record with a pre-allocated id
IF (_alarmCount < 1 AND _flag = 'CHECK') THEN
IF (EXISTS(SELECT alarm_id
FROM alarm
WHERE (alarm_id=pAlarmId))) THEN
RETURN -10;
ELSE
_isNew := true;
_alarmNumber := fetchNextNumber('AlarmNumber');
END IF;
ELSIF (_flag = 'CHANGEONE') THEN
_isNew := true;
_alarmId := nextval('alarm_alarm_id_seq');
_alarmNumber := fetchNextNumber('AlarmNumber');
END IF;
END IF;
_alarmNumber := COALESCE(_alarmNumber,pAlarmNumber,fetchNextNumber('AlarmNumber'));
_alarmTime := COALESCE(pDate, CURRENT_DATE) + COALESCE(pTime, CURRENT_TIME);
IF (COALESCE(pOffset, 0) > 0) THEN
_alarmInterval := CASE WHEN (pQualifier IN ('MB', 'MA')) THEN CAST(pOffset AS TEXT) || ' minutes'
WHEN (pQualifier IN ('HB', 'HA')) THEN CAST(pOffset AS TEXT) || ' hours'
WHEN (pQualifier IN ('DB', 'DA')) THEN CAST(pOffset AS TEXT) || ' days'
ELSE ''
END;
_alarmTrigger := CASE WHEN (pQualifier IN ('MB', 'HB', 'DB')) THEN _alarmTime - _alarmInterval
WHEN (pQualifier IN ('MA', 'HA', 'DA')) THEN _alarmTime + _alarmInterval
ELSE _alarmTime
END;
ELSE
_alarmTrigger := _alarmTime;
END IF;
IF (_isNew) THEN
_alarmId := COALESCE(_alarmId,pAlarmId,nextval('alarm_alarm_id_seq'));
INSERT INTO alarm (
alarm_id,alarm_number,
alarm_event, alarm_email, alarm_sysmsg, alarm_trigger,
alarm_time, alarm_time_offset, alarm_time_qualifier,
alarm_creator, alarm_event_recipient, alarm_email_recipient, alarm_sysmsg_recipient,
alarm_source, alarm_source_id )
VALUES (
_alarmId, _alarmNumber,
pEvent, pEmail, pSysmsg, _alarmTrigger,
_alarmTime, pOffset, pQualifier,
getEffectiveXtUser(), pEventRecipient, pEmailRecipient, pSysmsgRecipient,
pSource, pSourceId );
RETURN _alarmId;
ELSE
UPDATE alarm SET
alarm_number=_alarmNumber,
alarm_event=COALESCE(pEvent, alarm_event),
alarm_email=COALESCE(pEmail, alarm_event),
alarm_sysmsg=COALESCE(pSysmsg, alarm_event),
alarm_trigger=_alarmTrigger,
alarm_time=_alarmTime,
alarm_time_offset=COALESCE(pOffset, alarm_time_offset),
alarm_time_qualifier=COALESCE(pQualifier, alarm_time_qualifier),
alarm_event_recipient=COALESCE(pEventRecipient, alarm_event_recipient),
alarm_email_recipient=COALESCE(pEmailRecipient, alarm_email_recipient),
alarm_sysmsg_recipient=COALESCE(pSysmsgRecipient, alarm_sysmsg_recipient)
WHERE (alarm_id=pAlarmId);
RETURN pAlarmId;
END IF;
END;
$_$;
ALTER FUNCTION public.savealarm(integer, text, date, time without time zone, integer, text, boolean, text, boolean, text, boolean, text, text, integer, text) OWNER TO admin;
--
-- Name: savebomhead(integer, text, date, text, numeric, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION savebomhead(integer, text, date, text, numeric, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pRevision ALIAS FOR $2;
pRevisionDate ALIAS FOR $3;
pDocumentNumber ALIAS FOR $4;
pBatchSize ALIAS FOR $5;
pRequiredQtyPer ALIAS FOR $6;
_seq INTEGER;
_p RECORD;
_revid INTEGER;
BEGIN
IF (NOT fetchMetricBool('RevControl')) THEN -- Deal with BOM if Rev Control Turned off
SELECT bomhead_id INTO _seq
FROM bomhead
WHERE (bomhead_item_id=pItemid);
IF (NOT FOUND) THEN -- No bomhead exists
_seq := NEXTVAL('bomhead_bomhead_id_seq');
INSERT INTO bomhead
(bomhead_id,bomhead_item_id,bomhead_docnum,bomhead_revision,
bomhead_revisiondate,bomhead_batchsize,bomhead_requiredqtyper,bomhead_rev_id)
VALUES
(_seq,pItemid, pDocumentNumber, pRevision, pRevisionDate, pBatchSize, pRequiredQtyPer,-1);
ELSE
UPDATE bomhead SET
bomhead_revision = pRevision,
bomhead_revisiondate = pRevisionDate,
bomhead_docnum = pDocumentNumber,
bomhead_batchsize = pBatchSize,
bomhead_requiredqtyper = pRequiredQtyPer
WHERE (bomhead_id=_seq);
END IF;
RETURN _seq;
ELSE -- Deal with Revision Control
IF (COALESCE(pRevision,'') = '' AND getActiveRevId('BOM',pItemid) != -1) THEN
RAISE EXCEPTION 'Revision Control records exist for item. You must provide a new or existing revision number.';
END IF;
SELECT * INTO _p
FROM bomhead
LEFT OUTER JOIN rev ON (bomhead_rev_id=rev_id),
item
WHERE ((bomhead_item_id=pItemid)
AND (COALESCE(bomhead_revision,'')=COALESCE(pRevision,''))
AND (bomhead_item_id=item_id));
IF (NOT FOUND) THEN -- This is a new bomhead record
IF LENGTH(pRevision) > 0 THEN -- We need to create a revision record
SELECT createbomrev(pItemid, pRevision) INTO _revid;
UPDATE bomhead SET
bomhead_revisiondate = pRevisiondate,
bomhead_docnum = pDocumentNumber,
bomhead_batchsize = pBatchsize,
bomhead_requiredqtyper = pRequiredqtyper
WHERE (bomhead_rev_id=_revid);
SELECT bomhead_id INTO _seq
FROM bomhead
WHERE (bomhead_rev_id=_revid);
RETURN _seq;
ELSE -- Just create a regular bom header record
_seq := NEXTVAL('bomhead_bomhead_id_seq');
INSERT INTO bomhead
(bomhead_id,bomhead_item_id,bomhead_docnum,bomhead_revision,
bomhead_revisiondate,bomhead_batchsize,bomhead_requiredqtyper,bomhead_rev_id)
VALUES
(_seq,pItemid, pDocumentNumber, pRevision, pRevisionDate, pBatchSize, pRequiredQtyPer,-1);
RETURN _seq;
END IF;
ELSE -- We need to update a record
IF (_p.rev_status = 'I') THEN
RAISE EXCEPTION 'Revision % for % is inactive. Update not allowed.', _p.rev_number, _p.item_number;
ELSIF (COALESCE(pRevision,'') = COALESCE(_p.bomhead_revision,'')) THEN -- No change, just update
UPDATE bomhead SET
bomhead_revisiondate = pRevisiondate,
bomhead_docnum = pDocumentNumber,
bomhead_batchsize = pBatchSize,
bomhead_requiredqtyper = pRequiredqtyper
WHERE (bomhead_id=_p.bomhead_id);
RETURN _p.bomhead_id;
ELSE -- Need a new revision
SELECT createbomrev(pItemid, pRevision) INTO _revid;
UPDATE bomhead SET
bomhead_revisiondate = pRevisiondate,
bomhead_docnum = pDocumentNumber,
bomhead_batchsize = pBatchSize,
bomhead_requiredqtyper = pRequiredqtyper
WHERE (bomhead_rev_id=_revid);
SELECT bomhead_id INTO _seq
FROM bomhead
WHERE (bomhead_rev_id=_revid);
RETURN _seq;
END IF;
END IF;
END IF;
RETURN _seq;
END;
$_$;
ALTER FUNCTION public.savebomhead(integer, text, date, text, numeric, numeric) OWNER TO admin;
--
-- Name: savecntct(integer, text, integer, integer, text, text, text, text, text, text, boolean, text, text, text, text, text, text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION savecntct(pcntctid integer, pcontactnumber text, pcrmacctid integer, paddrid integer, phonorific text, pfirstname text, pmiddlename text, plastname text, psuffix text, pinitials text, pactive boolean, pphone text, pphone2 text, pfax text, pemail text, pwebaddr text, pnotes text, ptitle text, pflag text) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
SELECT saveCntct( pCntctId, pContactNumber, pCrmAcctId, pAddrId, pHonorific, pFirstName, pMiddleName, pLastName, pSuffix, pInitials,
pActive, pPhone, pPhone2, pFax, pEmail, pWebAddr, pNotes, pTitle, pFlag, NULL) INTO _returnVal;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.savecntct(pcntctid integer, pcontactnumber text, pcrmacctid integer, paddrid integer, phonorific text, pfirstname text, pmiddlename text, plastname text, psuffix text, pinitials text, pactive boolean, pphone text, pphone2 text, pfax text, pemail text, pwebaddr text, pnotes text, ptitle text, pflag text) OWNER TO admin;
--
-- Name: savecntct(integer, text, integer, text, text, text, text, text, text, text, text, text, text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION savecntct(pcntctid integer, pcontactnumber text, paddrid integer, phonorific text, pfirstname text, pmiddlename text, plastname text, psuffix text, pphone text, pphone2 text, pfax text, pemail text, pwebaddr text, ptitle text, pflag text) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_returnVal INTEGER;
BEGIN
SELECT saveCntct(pCntctId,pContactNumber,NULL,pAddrId,pHonorific,pFirstName,pMiddleName,pLastName,pSuffix,NULL,
NULL,pPhone,pPhone2,pFax,pEmail,pWebAddr,NULL,pTitle,pFlag, NULL) INTO _returnVal;
RETURN _returnVal;
END;
$$;
ALTER FUNCTION public.savecntct(pcntctid integer, pcontactnumber text, paddrid integer, phonorific text, pfirstname text, pmiddlename text, plastname text, psuffix text, pphone text, pphone2 text, pfax text, pemail text, pwebaddr text, ptitle text, pflag text) OWNER TO admin;
--
-- Name: savecntct(integer, text, integer, integer, text, text, text, text, text, text, boolean, text, text, text, text, text, text, text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION savecntct(pcntctid integer, pcontactnumber text, pcrmacctid integer, paddrid integer, phonorific text, pfirstname text, pmiddlename text, plastname text, psuffix text, pinitials text, pactive boolean, pphone text, pphone2 text, pfax text, pemail text, pwebaddr text, pnotes text, ptitle text, pflag text, pownerusername text) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_cntctId INTEGER;
_cntctNumber TEXT;
_isNew BOOLEAN;
_flag TEXT;
_contactCount INTEGER := 0;
BEGIN
--Validate
IF ((pFlag IS NULL) OR (pFlag = '') OR (pFlag = 'CHECK') OR (pFlag = 'CHANGEONE') OR (pFlag = 'CHANGEALL')) THEN
IF (pFlag='') THEN
_flag := 'CHECK';
ELSE
_flag := COALESCE(pFlag,'CHECK');
END IF;
ELSE
RAISE EXCEPTION 'Invalid Flag (%). Valid flags are CHECK, CHANGEONE or CHANGEALL', pFlag;
END IF;
--If there is nothing here get out
IF ( (pCntctId IS NULL OR pCntctId = -1)
AND (pAddrId IS NULL)
AND (COALESCE(pFirstName, '') = '')
AND (COALESCE(pMiddleName, '') = '')
AND (COALESCE(pLastName, '') = '')
AND (COALESCE(pSuffix, '') = '')
AND (COALESCE(pHonorific, '') = '')
AND (COALESCE(pInitials, '') = '')
AND (COALESCE(pPhone, '') = '')
AND (COALESCE(pPhone2, '') = '')
AND (COALESCE(pFax, '') = '')
AND (COALESCE(pEmail, '') = '')
AND (COALESCE(pWebAddr, '') = '')
AND (COALESCE(pNotes, '') = '')
AND (COALESCE(pTitle, '') = '') ) THEN
RETURN NULL;
END IF;
IF (pCntctId IS NULL OR pCntctId = -1) THEN
_isNew := true;
_cntctId := nextval('cntct_cntct_id_seq');
_cntctNumber := COALESCE(pContactNumber,fetchNextNumber('ContactNumber'));
ELSE
SELECT COUNT(cntct_id) INTO _contactCount
FROM cntct
WHERE ((cntct_id=pCntctId)
AND (cntct_first_name=pFirstName)
AND (cntct_last_name=pLastName));
-- ask whether new or update if name changes
-- but only if this isn't a new record with a pre-allocated id
IF (_contactCount < 1 AND _flag = 'CHECK') THEN
IF (EXISTS(SELECT cntct_id
FROM cntct
WHERE (cntct_id=pCntctId))) THEN
RETURN -10;
ELSE
_isNew := true;
_cntctNumber := fetchNextNumber('ContactNumber');
END IF;
ELSIF (_flag = 'CHANGEONE') THEN
_isNew := true;
_cntctId := nextval('cntct_cntct_id_seq');
_cntctNumber := fetchNextNumber('ContactNumber');
ELSIF (_flag = 'CHANGEALL') THEN
_isNew := false;
END IF;
END IF;
IF (pContactNumber = '') THEN
_cntctNumber := fetchNextNumber('ContactNumber');
ELSE
_cntctNumber := COALESCE(_cntctNumber,pContactNumber,fetchNextNumber('ContactNumber'));
END IF;
IF (_isNew) THEN
_cntctId := COALESCE(_cntctId,pCntctId,nextval('cntct_cntct_id_seq'));
INSERT INTO cntct (
cntct_id,cntct_number,
cntct_crmacct_id,cntct_addr_id,cntct_first_name,
cntct_last_name,cntct_honorific,cntct_initials,
cntct_active,cntct_phone,cntct_phone2,
cntct_fax,cntct_email,cntct_webaddr,
cntct_notes,cntct_title,cntct_middle,cntct_suffix, cntct_owner_username )
VALUES (
_cntctId, COALESCE(_cntctNumber,fetchNextNumber('ContactNumber')) ,pCrmAcctId,pAddrId,
pFirstName,pLastName,pHonorific,
pInitials,COALESCE(pActive,true),pPhone,pPhone2,pFax,
pEmail,pWebAddr,pNotes,pTitle,pMiddleName,pSuffix,pOwnerUsername );
RETURN _cntctId;
ELSE
UPDATE cntct SET
cntct_number=COALESCE(_cntctNumber,fetchNextNumber('ContactNumber')),
cntct_crmacct_id=COALESCE(pCrmAcctId,cntct_crmacct_id),
cntct_addr_id=COALESCE(pAddrId,cntct_addr_id),
cntct_first_name=COALESCE(pFirstName,cntct_first_name),
cntct_last_name=COALESCE(pLastName,cntct_last_name),
cntct_honorific=COALESCE(pHonorific,cntct_honorific),
cntct_initials=COALESCE(pInitials,cntct_initials),
cntct_active=COALESCE(pActive,cntct_active),
cntct_phone=COALESCE(pPhone,cntct_phone),
cntct_phone2=COALESCE(pPhone2,cntct_phone2),
cntct_fax=COALESCE(pFax,cntct_fax),
cntct_email=COALESCE(pEmail,cntct_email),
cntct_webaddr=COALESCE(pWebAddr,cntct_webaddr),
cntct_notes=COALESCE(pNotes,cntct_notes),
cntct_title=COALESCE(pTitle,cntct_title),
cntct_middle=COALESCE(pMiddleName,cntct_middle),
cntct_suffix=COALESCE(pSuffix,cntct_suffix),
cntct_owner_username=COALESCE(pOwnerUsername, cntct_owner_username)
WHERE (cntct_id=pCntctId);
RETURN pCntctId;
END IF;
END;
$$;
ALTER FUNCTION public.savecntct(pcntctid integer, pcontactnumber text, pcrmacctid integer, paddrid integer, phonorific text, pfirstname text, pmiddlename text, plastname text, psuffix text, pinitials text, pactive boolean, pphone text, pphone2 text, pfax text, pemail text, pwebaddr text, pnotes text, ptitle text, pflag text, pownerusername text) OWNER TO admin;
--
-- Name: saveimageass(text, integer, character, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION saveimageass(text, integer, character, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSource ALIAS FOR $1;
pSourceId ALIAS FOR $2;
pPurpose ALIAS FOR $3;
pImageid ALIAS FOR $4;
_imageassId INTEGER = 0;
BEGIN
-- See if this link already exists
SELECT imageass_id INTO _imageassId
FROM imageass
WHERE ((imageass_source_id=pSourceId)
AND (imageass_source=pSource)
AND (imageass_image_id=pImageId)
AND (imageass_purpose=pPurpose));
IF (FOUND) THEN
RETURN _imageassId;
END IF;
-- See if a record with this purpose already exists (item only)
IF (pSource = 'I' AND pPurpose != 'M') THEN
SELECT imageass_id INTO _imageassId
FROM imageass
WHERE ((imageass_source_id=pSourceId)
AND (imageass_source=pSource)
AND (imageass_purpose=pPurpose));
END IF;
IF (_imageassId > 0) THEN
UPDATE imageass SET
imageass_image_id=pImageId
WHERE (imageass_id=_imageassId);
ELSE
_imageassId := NEXTVAL('imageass_imageass_id_seq');
INSERT INTO imageass VALUES (_imageassId,pSourceId,pSource,pImageid,CASE WHEN pSource='I' THEN pPurpose ELSE 'M' END);
END IF;
RETURN _imageassId;
END;
$_$;
ALTER FUNCTION public.saveimageass(text, integer, character, integer) OWNER TO admin;
--
-- Name: saveipsitem(integer, integer, integer, numeric, numeric, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION saveipsitem(integer, integer, integer, numeric, numeric, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pIpsItemId ALIAS FOR $1;
pIpsHeadId ALIAS FOR $2;
pItemId ALIAS FOR $3;
pQtyBreak ALIAS FOR $4;
pPrice ALIAS FOR $5;
pQtyUomId ALIAS FOR $6;
pPriceUomId ALIAS FOR $7;
_ipsitemid INTEGER;
_new BOOLEAN;
BEGIN
-- Validation
IF (SELECT COUNT(item_id)=0 FROM item WHERE (item_id=pItemId)) THEN
RAISE EXCEPTION 'You must provide a valid Item';
ELSIF (COALESCE(pQtyBreak,0) < 0) THEN
RAISE EXCEPTION 'Quantity can not be a negative value';
ELSIF (COALESCE(pPrice,0) < 0) THEN
RAISE EXCEPTION 'Price must be a negative value';
ELSIF ((pQtyUomId IS NOT NULL) AND (SELECT COUNT(item_id)=0 FROM
(SELECT item_id
FROM item
WHERE ((item_id=pItemId)
AND (item_inv_uom_id=pQtyUomId))
UNION
SELECT item_id
FROM item,itemuomconv,itemuom,uomtype
WHERE ((item_id=pItemId)
AND (itemuomconv_item_id=item_id)
AND (itemuomconv_from_uom_id=pQtyUomId)
AND (itemuom_itemuomconv_id=itemuomconv_id)
AND (itemuom_uomtype_id=uomtype_id)
AND (uomtype_name='Selling'))
UNION
SELECT item_id
FROM item,itemuomconv,itemuom,uomtype
WHERE ((item_id=pItemId)
AND (itemuomconv_item_id=item_id)
AND (itemuomconv_to_uom_id=pQtyUomId)
AND (itemuom_itemuomconv_id=itemuomconv_id)
AND (itemuom_uomtype_id=uomtype_id)
AND (uomtype_name='Selling'))) AS data)) THEN
RAISE EXCEPTION 'Qty UOM Must be a valid Selling UOM for the Item';
ELSIF ((pPriceUomId IS NOT NULL) AND (SELECT COUNT(item_id)=0 FROM
(SELECT item_id
FROM item
WHERE ((item_id=pItemId)
AND (item_inv_uom_id=pPriceUomId))
UNION
SELECT item_id
FROM item,itemuomconv,itemuom,uomtype
WHERE ((item_id=pItemId)
AND (itemuomconv_item_id=item_id)
AND (itemuomconv_from_uom_id=pPriceUomId)
AND (itemuom_itemuomconv_id=itemuomconv_id)
AND (itemuom_uomtype_id=uomtype_id)
AND (uomtype_name='Selling'))
UNION
SELECT item_id
FROM item,itemuomconv,itemuom,uomtype
WHERE ((item_id=pItemId)
AND (itemuomconv_item_id=item_id)
AND (itemuomconv_to_uom_id=pPriceUomId)
AND (itemuom_itemuomconv_id=itemuomconv_id)
AND (itemuom_uomtype_id=uomtype_id)
AND (uomtype_name='Selling'))) AS data)) THEN
RAISE EXCEPTION 'Price UOM Must be a valid Selling UOM for the Item';
END IF;
_new := TRUE;
IF (pIpsItemId IS NOT NULL) THEN
SELECT ipsitem_id INTO _ipsitemid
FROM ipsitem
WHERE (ipsitem_id=pIpsItemId);
IF (FOUND) THEN
_new := FALSE;
ELSE
RAISE EXCEPTION 'Pricing Schedule Item not found.';
END IF;
ELSE
SELECT ipsitem_id INTO _ipsitemid
FROM ipsitem
WHERE ((ipsitem_ipshead_id = pIpsheadId)
AND (ipsitem_item_id = pItemId)
AND (ipsitem_qtybreak = pQtyBreak)
AND (ipsitem_qty_uom_id = COALESCE(pQtyUomId,(SELECT item_inv_uom_id FROM item WHERE item_id = pItemId)))
AND (ipsitem_price_uom_id =
CASE
WHEN (pQtyUomId = (SELECT item_inv_uom_id FROM item WHERE item_id = pItemId)) THEN
COALESCE(pPriceUomId,pQtyUomId,(SELECT item_inv_uom_id FROM item WHERE item_id = pItemId))
ELSE
COALESCE(pQtyUomId,(SELECT item_inv_uom_id FROM item WHERE item_id = pItemId))
END));
END IF;
IF (FOUND) THEN
_new := false;
ELSE
_ipsitemid := nextval('ipsitem_ipsitem_id_seq');
END IF;
IF (_new) THEN
INSERT INTO ipsitem (
ipsitem_id,
ipsitem_ipshead_id,
ipsitem_item_id,
ipsitem_qtybreak,
ipsitem_price,
ipsitem_qty_uom_id,
ipsitem_price_uom_id,
ipsitem_discntprcnt,
ipsitem_fixedamtdiscount)
VALUES (
_ipsitemid,
pIpsheadId,
pItemId,
pQtyBreak,
pPrice,
COALESCE(pQtyUomId,(SELECT item_inv_uom_id FROM item WHERE item_id = pItemId)),
CASE
WHEN (pQtyUomId = (SELECT item_inv_uom_id FROM item WHERE item_id = pItemId)) THEN
COALESCE(pPriceUomId,pQtyUomId,(SELECT item_inv_uom_id FROM item WHERE item_id = pItemId))
ELSE
COALESCE(pQtyUomId,(SELECT item_inv_uom_id FROM item WHERE item_id = pItemId))
END,
0.0,
0.0);
ELSE
UPDATE ipsitem SET
ipsitem_qtybreak = pQtyBreak,
ipsitem_price = pPrice,
ipsitem_qty_uom_id = COALESCE(pQtyUomId,(SELECT item_inv_uom_id FROM item WHERE item_id = pItemId)),
ipsitem_price_uom_id =
CASE
WHEN (pQtyUomId = (SELECT item_inv_uom_id FROM item WHERE item_id = pItemId)) THEN
COALESCE(pPriceUomId,pQtyUomId,(SELECT item_inv_uom_id FROM item WHERE item_id = pItemId))
ELSE
COALESCE(pQtyUomId,(SELECT item_inv_uom_id FROM item WHERE item_id = pItemId))
END
WHERE (ipsitem_id=_ipsitemid);
END IF;
RETURN _ipsitemid;
END;
$_$;
ALTER FUNCTION public.saveipsitem(integer, integer, integer, numeric, numeric, integer, integer) OWNER TO admin;
--
-- Name: saveipsitem(integer, integer, integer, numeric, numeric, integer, integer, numeric, numeric, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION saveipsitem(pipsitemid integer, pipsheadid integer, pitemid integer, pqtybreak numeric, pprice numeric, pqtyuomid integer, ppriceuomid integer, ppercent numeric, pfixedamt numeric, ptype text) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_ipsitemid INTEGER;
_new BOOLEAN;
BEGIN
-- Validation
IF (SELECT COUNT(item_id)=0 FROM item WHERE (item_id=pItemId)) THEN
RAISE EXCEPTION 'You must provide a valid Item';
ELSIF (COALESCE(pQtyBreak,0) < 0) THEN
RAISE EXCEPTION 'Quantity can not be a negative value';
ELSIF (COALESCE(pPrice,0) < 0) THEN
RAISE EXCEPTION 'Price must be a negative value';
ELSIF ((pQtyUomId IS NOT NULL) AND (SELECT COUNT(item_id)=0 FROM
(SELECT item_id
FROM item
WHERE ((item_id=pItemId)
AND (item_inv_uom_id=pQtyUomId))
UNION
SELECT item_id
FROM item,itemuomconv,itemuom,uomtype
WHERE ((item_id=pItemId)
AND (itemuomconv_item_id=item_id)
AND (itemuomconv_from_uom_id=pQtyUomId)
AND (itemuom_itemuomconv_id=itemuomconv_id)
AND (itemuom_uomtype_id=uomtype_id)
AND (uomtype_name='Selling'))
UNION
SELECT item_id
FROM item,itemuomconv,itemuom,uomtype
WHERE ((item_id=pItemId)
AND (itemuomconv_item_id=item_id)
AND (itemuomconv_to_uom_id=pQtyUomId)
AND (itemuom_itemuomconv_id=itemuomconv_id)
AND (itemuom_uomtype_id=uomtype_id)
AND (uomtype_name='Selling'))) AS data)) THEN
RAISE EXCEPTION 'Qty UOM Must be a valid Selling UOM for the Item';
ELSIF ((pPriceUomId IS NOT NULL) AND (SELECT COUNT(item_id)=0 FROM
(SELECT item_id
FROM item
WHERE ((item_id=pItemId)
AND (item_inv_uom_id=pPriceUomId))
UNION
SELECT item_id
FROM item,itemuomconv,itemuom,uomtype
WHERE ((item_id=pItemId)
AND (itemuomconv_item_id=item_id)
AND (itemuomconv_from_uom_id=pPriceUomId)
AND (itemuom_itemuomconv_id=itemuomconv_id)
AND (itemuom_uomtype_id=uomtype_id)
AND (uomtype_name='Selling'))
UNION
SELECT item_id
FROM item,itemuomconv,itemuom,uomtype
WHERE ((item_id=pItemId)
AND (itemuomconv_item_id=item_id)
AND (itemuomconv_to_uom_id=pPriceUomId)
AND (itemuom_itemuomconv_id=itemuomconv_id)
AND (itemuom_uomtype_id=uomtype_id)
AND (uomtype_name='Selling'))) AS data)) THEN
RAISE EXCEPTION 'Price UOM Must be a valid Selling UOM for the Item';
END IF;
_new := TRUE;
IF (pIpsItemId IS NOT NULL) THEN
SELECT ipsitem_id INTO _ipsitemid
FROM ipsiteminfo
WHERE (ipsitem_id=pIpsItemId);
IF (FOUND) THEN
_new := FALSE;
ELSE
RAISE EXCEPTION 'Pricing Schedule Item not found.';
END IF;
ELSE
SELECT ipsitem_id INTO _ipsitemid
FROM ipsiteminfo
WHERE ((ipsitem_ipshead_id = pIpsheadId)
AND (ipsitem_item_id = pItemId)
AND (ipsitem_qtybreak = pQtyBreak)
AND (ipsitem_qty_uom_id = COALESCE(pQtyUomId,(SELECT item_inv_uom_id FROM item WHERE item_id = pItemId)))
AND (ipsitem_price_uom_id =
CASE
WHEN (pQtyUomId = (SELECT item_inv_uom_id FROM item WHERE item_id = pItemId)) THEN
COALESCE(pPriceUomId,pQtyUomId,(SELECT item_inv_uom_id FROM item WHERE item_id = pItemId))
ELSE
COALESCE(pQtyUomId,(SELECT item_inv_uom_id FROM item WHERE item_id = pItemId))
END));
END IF;
IF (FOUND) THEN
_new := false;
END IF;
IF (_new) THEN
INSERT INTO ipsiteminfo (
ipsitem_ipshead_id,
ipsitem_item_id,
ipsitem_qtybreak,
ipsitem_price,
ipsitem_qty_uom_id,
ipsitem_price_uom_id,
ipsitem_discntprcnt,
ipsitem_fixedamtdiscount,
ipsitem_type)
VALUES (
pIpsheadId,
pItemId,
pQtyBreak,
pPrice,
COALESCE(pQtyUomId,(SELECT item_inv_uom_id FROM item WHERE item_id = pItemId)),
CASE
WHEN (pQtyUomId = (SELECT item_inv_uom_id FROM item WHERE item_id = pItemId)) THEN
COALESCE(pPriceUomId,pQtyUomId,(SELECT item_inv_uom_id FROM item WHERE item_id = pItemId))
ELSE
COALESCE(pQtyUomId,(SELECT item_inv_uom_id FROM item WHERE item_id = pItemId))
END,
pPercent,
pFixedAmt,
pType)
RETURNING ipsitem_id INTO _ipsitemid;
ELSE
UPDATE ipsiteminfo SET
ipsitem_qtybreak = pQtyBreak,
ipsitem_price = pPrice,
ipsitem_qty_uom_id = COALESCE(pQtyUomId,(SELECT item_inv_uom_id FROM item WHERE item_id = pItemId)),
ipsitem_price_uom_id =
CASE
WHEN (pQtyUomId = (SELECT item_inv_uom_id FROM item WHERE item_id = pItemId)) THEN
COALESCE(pPriceUomId,pQtyUomId,(SELECT item_inv_uom_id FROM item WHERE item_id = pItemId))
ELSE
COALESCE(pQtyUomId,(SELECT item_inv_uom_id FROM item WHERE item_id = pItemId))
END,
ipsitem_discntprcnt=pPercent,
ipsitem_fixedamtdiscount=pFixedAmt,
ipsitem_type=pType
WHERE (ipsitem_id=_ipsitemid);
END IF;
RETURN _ipsitemid;
END;
$$;
ALTER FUNCTION public.saveipsitem(pipsitemid integer, pipsheadid integer, pitemid integer, pqtybreak numeric, pprice numeric, pqtyuomid integer, ppriceuomid integer, ppercent numeric, pfixedamt numeric, ptype text) OWNER TO admin;
--
-- Name: saveipsprodcat(integer, integer, integer, numeric, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION saveipsprodcat(integer, integer, integer, numeric, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
DECLARE
pIpsProdcatId ALIAS FOR $1;
pIpsHeadId ALIAS FOR $2;
pProdCatId ALIAS FOR $3;
pQtyBreak ALIAS FOR $4;
pDiscount ALIAS FOR $5;
_ipsprodcatid INTEGER;
_new BOOLEAN;
BEGIN
-- Validation
IF (SELECT COUNT(*)=0 FROM prodcat WHERE (prodcat_id=pProdcatId)) THEN
RAISE EXCEPTION 'You must provide a valid Product Category';
ELSIF (COALESCE(pQtyBreak,0) < 0) THEN
RAISE EXCEPTION 'Quantity can not be a negative value';
ELSIF (COALESCE(pDiscount,0) < 0) THEN
RAISE EXCEPTION 'Discount must be a negative value';
END IF;
_new := TRUE;
IF (pIpsProdcatId IS NOT NULL) THEN
SELECT ipsprodcat_id INTO _ipsprodcatid
FROM ipsprodcat
WHERE (ipsprodcat_id=pIpsprodcatId);
IF (FOUND) THEN
_new := FALSE;
ELSE
RAISE EXCEPTION 'Pricing Schedule Product Category not found';
END IF;
ELSE
SELECT ipsprodcat_id INTO _ipsprodcatid
FROM ipsprodcat
WHERE ((ipsprodcat_ipshead_id=pIpsheadId)
AND (ipsprodcat_prodcat_id=pProdcatId)
AND (ipsprodcat_qtybreak=pQtyBreak));
IF (FOUND) THEN
_new := false;
ELSE
_ipsprodcatid := nextval('ipsprodcat_ipsprodcat_id_seq');
END IF;
END IF;
IF (_new) THEN
INSERT INTO ipsprodcat (
ipsprodcat_id,
ipsprodcat_ipshead_id,
ipsprodcat_prodcat_id,
ipsprodcat_qtybreak,
ipsprodcat_discntprcnt)
VALUES (
_ipsprodcatid,
pIpsheadId,
pProdcatId,
pQtyBreak,
pDiscount * .01);
ELSE
UPDATE ipsprodcat SET
ipsprodcat_qtybreak = pQtyBreak,
ipsprodcat_discntprcnt = pDiscount * .01
WHERE (ipsprodcat_id=_ipsprodcatid);
END IF;
RETURN _ipsprodcatid;
END;
$_$;
ALTER FUNCTION public.saveipsprodcat(integer, integer, integer, numeric, numeric) OWNER TO admin;
--
-- Name: saveipsprodcat(integer, integer, integer, numeric, numeric, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION saveipsprodcat(integer, integer, integer, numeric, numeric, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pIpsProdcatId ALIAS FOR $1;
pIpsHeadId ALIAS FOR $2;
pProdCatId ALIAS FOR $3;
pQtyBreak ALIAS FOR $4;
pDiscount ALIAS FOR $5;
pFixedAmtDiscount ALIAS FOR $6;
_ipsprodcatid INTEGER;
_new BOOLEAN;
BEGIN
-- Validation
IF (SELECT COUNT(*)=0 FROM prodcat WHERE (prodcat_id=pProdcatId)) THEN
RAISE EXCEPTION 'You must provide a valid Product Category';
ELSIF (COALESCE(pQtyBreak,0) < 0) THEN
RAISE EXCEPTION 'Quantity can not be a negative value';
ELSIF (COALESCE(pDiscount,0) < 0) THEN
RAISE EXCEPTION 'Discount must be a negative value';
END IF;
_new := TRUE;
IF (pIpsProdcatId IS NOT NULL) THEN
SELECT ipsprodcat_id INTO _ipsprodcatid
FROM ipsprodcat
WHERE (ipsprodcat_id=pIpsprodcatId);
IF (FOUND) THEN
_new := FALSE;
ELSE
RAISE EXCEPTION 'Pricing Schedule Product Category not found';
END IF;
ELSE
SELECT ipsprodcat_id INTO _ipsprodcatid
FROM ipsprodcat
WHERE ((ipsprodcat_ipshead_id=pIpsheadId)
AND (ipsprodcat_prodcat_id=pProdcatId)
AND (ipsprodcat_qtybreak=pQtyBreak));
IF (FOUND) THEN
_new := false;
ELSE
_ipsprodcatid := nextval('ipsprodcat_ipsprodcat_id_seq');
END IF;
END IF;
IF (_new) THEN
INSERT INTO ipsprodcat (
ipsprodcat_id,
ipsprodcat_ipshead_id,
ipsprodcat_prodcat_id,
ipsprodcat_qtybreak,
ipsprodcat_discntprcnt,
ipsprodcat_fixedamtdiscount)
VALUES (
_ipsprodcatid,
pIpsheadId,
pProdcatId,
pQtyBreak,
pDiscount * .01,
pFixedAmtDiscount);
ELSE
UPDATE ipsprodcat SET
ipsprodcat_qtybreak = pQtyBreak,
ipsprodcat_discntprcnt = pDiscount * .01,
ipsprodcat_fixedamtdiscount = pFixedAmtDiscount
WHERE (ipsprodcat_id=_ipsprodcatid);
END IF;
RETURN _ipsprodcatid;
END;
$_$;
ALTER FUNCTION public.saveipsprodcat(integer, integer, integer, numeric, numeric, numeric) OWNER TO admin;
--
-- Name: saveipsprodcat(integer, integer, integer, numeric, numeric, numeric, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION saveipsprodcat(pipsprodcatid integer, pipsheadid integer, pprodcatid integer, pqtybreak numeric, pdiscount numeric, pfixedamtdiscount numeric, ptype text) RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_ipsitemid INTEGER;
_new BOOLEAN;
BEGIN
-- Validation
IF (SELECT COUNT(*)=0 FROM prodcat WHERE (prodcat_id=pProdcatId)) THEN
RAISE EXCEPTION 'You must provide a valid Product Category';
ELSIF (COALESCE(pQtyBreak,0) < 0) THEN
RAISE EXCEPTION 'Quantity can not be a negative value';
ELSIF (COALESCE(pDiscount,0) < 0) THEN
RAISE EXCEPTION 'Discount must be a negative value';
END IF;
_new := TRUE;
IF (pIpsProdcatId IS NOT NULL) THEN
SELECT ipsitem_id INTO _ipsitemid
FROM ipsiteminfo
WHERE (ipsprodcat_id=pIpsprodcatId);
IF (FOUND) THEN
_new := FALSE;
ELSE
RAISE EXCEPTION 'Pricing Schedule Product Category not found';
END IF;
ELSE
SELECT ipsitem_id INTO _ipsitemid
FROM ipsiteminfo
WHERE ((ipsitem_ipshead_id=pIpsheadId)
AND (ipsitem_prodcat_id=pProdcatId)
AND (ipsitem_qtybreak=pQtyBreak));
IF (FOUND) THEN
_new := false;
ELSE
_ipsitemid := nextval('ipsitem_ipsitem_id_seq');
END IF;
END IF;
IF (_new) THEN
INSERT INTO ipsiteminfo (
ipsitem_id,
ipsitem_ipshead_id,
ipsitem_prodcat_id,
ipsitem_qtybreak,
ipsitem_price,
ipsitem_discntprcnt,
ipsitem_fixedamtdiscount,
ipsitem_type)
VALUES (
_ipsitemid,
pIpsheadId,
pProdcatId,
pQtyBreak,
0.0,
pDiscount * .01,
pFixedAmtDiscount,
pType);
ELSE
UPDATE ipsiteminfo SET
ipsitem_qtybreak = pQtyBreak,
ipsitem_discntprcnt = pDiscount * .01,
ipsitem_fixedamtdiscount = pFixedAmtDiscount,
ipsitem_type = pType
WHERE (ipsitem_id=_ipsitemid);
END IF;
RETURN _ipsitemid;
END;
$$;
ALTER FUNCTION public.saveipsprodcat(pipsprodcatid integer, pipsheadid integer, pprodcatid integer, pqtybreak numeric, pdiscount numeric, pfixedamtdiscount numeric, ptype text) OWNER TO admin;
--
-- Name: saveitemimage(integer, character, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION saveitemimage(integer, character, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pPurpose ALIAS FOR $2;
pImageid ALIAS FOR $3;
_itemimageId INTEGER;
BEGIN
-- See if a record with this purpose already exists
SELECT imageass_id INTO _itemimageId
FROM imageass
WHERE ( (imageass_source='I')
AND (imageass_source_id=pItemid)
AND (imageass_purpose=pPurpose) );
IF (FOUND) THEN
UPDATE imageass SET imageass_image_id=pImageId
WHERE (imageass_id=_itemimageId);
ELSE
_itemimageId := NEXTVAL('imageass_imageass_id_seq');
INSERT INTO imageass VALUES (_itemimageId,pItemid,'I',pImageid,pPurpose);
END IF;
RETURN _itemimageId;
END;
$_$;
ALTER FUNCTION public.saveitemimage(integer, character, integer) OWNER TO admin;
--
-- Name: saveitemuomconv(integer, integer, numeric, integer, numeric, boolean, integer[]); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION saveitemuomconv(integer, integer, numeric, integer, numeric, boolean, integer[]) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemId ALIAS FOR $1;
pFromUomId ALIAS FOR $2;
pFromValue ALIAS FOR $3;
pToUomId ALIAS FOR $4;
pToValue ALIAS FOR $5;
pFractional ALIAS FOR $6;
pUomTypes ALIAS FOR $7;
_p RECORD;
_fromUomId INTEGER;
_fromValue NUMERIC;
_toUomId INTEGER;
_toValue NUMERIC;
_fractional BOOLEAN;
_seq INTEGER;
_i INTEGER;
_uomtype TEXT;
BEGIN
-- Make sure we have some itemtypes
IF (pUomTypes IS NULL) OR (ARRAY_UPPER(pUomTypes,1) = 0) THEN
RAISE EXCEPTION 'You must include at least one item type.';
END IF;
-- If this is a global UOM, over-ride with global data.
SELECT * INTO _p
FROM uomconv
WHERE ((((uomconv_from_uom_id=pFromUomId)
AND (uomconv_to_uom_id=pToUomId))
OR ((uomconv_from_uom_id=pToUomId)
AND (uomconv_to_uom_id=pFromUomId))));
IF (FOUND) THEN
_fromUomId := _p.uomconv_from_uom_id;
_toUomId := _p.uomconv_to_uom_id;
_fromValue := _p.uomconv_from_value;
_toValue := _p.uomconv_to_value;
_fractional := _p.uomconv_fractional;
RAISE NOTICE 'Defaulted to global Unit of Measure conversion ratios.';
ELSE
_fromUomId := pFromUomId;
_fromValue := pFromValue;
_toUomId := pToUomId;
_toValue := pToValue;
_fractional := pFractional;
END IF;
-- See if an item conversion exists going the other way
SELECT f.uom_name AS f_uom, t.uom_name as t_uom INTO _p
FROM itemuomconv,uom f, uom t
WHERE ((itemuomconv_item_id=pItemId)
AND (itemuomconv_from_uom_id=_toUomId)
AND (itemuomconv_to_uom_id=_fromUomId)
AND (f.uom_id=itemuomconv_from_uom_id)
AND (t.uom_id=itemuomconv_to_uom_id));
IF (FOUND) THEN
RAISE EXCEPTION 'Unit of measure conversion already exists going from % to %.',_p.f_uom,_p.t_uom;
END IF;
-- See if an item conversion record exists
SELECT * INTO _p
FROM itemuomconv
WHERE ((itemuomconv_item_id=pItemId)
AND (itemuomconv_from_uom_id=_fromUomId)
AND (itemuomconv_to_uom_id=_toUomId));
-- Update if found
IF (FOUND) THEN
UPDATE itemuomconv SET
itemuomconv_from_value=_fromValue,
itemuomconv_to_value=_toValue,
itemuomconv_fractional=_fractional
WHERE (itemuomconv_id=_p.itemuomconv_id);
_seq := _p.itemuomconv_id;
--Delete old type list
DELETE FROM itemuom WHERE itemuom_itemuomconv_id=_p.itemuomconv_id;
ELSE
-- Otherwise create a new one
SELECT NEXTVAL('itemuomconv_itemuomconv_id_seq') INTO _seq;
INSERT INTO itemuomconv VALUES
(_seq, pItemId,_fromUomId,_fromValue,_toUomId,_toValue,_fractional);
END IF;
-- Build new type list
FOR _i IN 1..ARRAY_UPPER(pUomTypes,1)
LOOP
SELECT uomtype_name INTO _uomtype
FROM itemuomconv, itemuom, uomtype
WHERE ((itemuom_uomtype_id=uomtype_id)
AND (itemuomconv_id=itemuom_itemuomconv_id)
AND (itemuomconv_item_id=pItemId)
AND (uomtype_name != 'Selling')
AND (itemuom_uomtype_id=pUomTypes[_i]));
IF (FOUND) THEN
RAISE EXCEPTION 'Unit of Measure Type % is already used on this item',_uomtype;
ELSE
INSERT INTO itemuom (itemuom_itemuomconv_id,itemuom_uomtype_id)
VALUES (_seq,pUomTypes[_i]);
END IF;
END LOOP;
RETURN _seq;
END;
$_$;
ALTER FUNCTION public.saveitemuomconv(integer, integer, numeric, integer, numeric, boolean, integer[]) OWNER TO admin;
--
-- Name: savemetasql(text, text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION savemetasql(text, text, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN saveMetasql($1, $2, $3, $4, true, NULL, 0);
END;
$_$;
ALTER FUNCTION public.savemetasql(text, text, text, text) OWNER TO admin;
--
-- Name: savemetasql(text, text, text, text, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION savemetasql(text, text, text, text, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN saveMetasql($1, $2, $3, $4, $5, NULL, 0);
END;
$_$;
ALTER FUNCTION public.savemetasql(text, text, text, text, boolean) OWNER TO admin;
--
-- Name: savemetasql(text, text, text, text, boolean, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION savemetasql(text, text, text, text, boolean, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN saveMetasql($1, $2, $3, $4, $5, $6, 0);
END;
$_$;
ALTER FUNCTION public.savemetasql(text, text, text, text, boolean, text) OWNER TO admin;
--
-- Name: savemetasql(text, text, text, text, boolean, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION savemetasql(text, text, text, text, boolean, text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pGroup ALIAS FOR $1;
pName ALIAS FOR $2;
pNotes ALIAS FOR $3;
pQuery ALIAS FOR $4;
pSystem ALIAS FOR $5;
pSchema ALIAS FOR $6;
pGrade ALIAS FOR $7;
_metasqlid INTEGER;
_debug BOOL := false;
_grade INTEGER;
_insertstr TEXT;
_table TEXT;
BEGIN
--See if Query already exists
SELECT metasql_id INTO _metasqlid
FROM metasql
WHERE ((metasql_group=pGroup)
AND (metasql_name=pName)
AND (metasql_grade=pGrade));
IF (FOUND) THEN
IF (_debug) THEN RAISE NOTICE 'update metasql'; END IF;
UPDATE metasql SET
metasql_group=pGroup,
metasql_name=pName,
metasql_notes=pNotes,
metasql_query=pQuery
WHERE (metasql_id=_metasqlid);
ELSE
IF (COALESCE(pSchema, 'public') = 'public' OR
TRIM(pSchema) = '') THEN
_table := 'metasql';
ELSE
_table := pSchema || '.pkgmetasql';
END IF;
IF (pGrade IS NULL) THEN
SELECT MAX(metasql_grade) + 1 INTO _grade
FROM metasql
WHERE ((metasql_group=pGroup)
AND (metasql_name=pName));
ELSE
_grade := pGrade;
END IF;
_insertstr := 'INSERT INTO ' || _table ||
' (metasql_group, metasql_name, metasql_notes, ' ||
' metasql_query, metasql_grade) VALUES (' ||
COALESCE(quote_literal(pGroup),'NULL') || ',' || COALESCE(quote_literal(pName), 'NULL') || ',' ||
COALESCE(quote_literal(pNotes), 'NULL') || ',' || COALESCE(quote_literal(pQuery), 'NULL') ||',' ||
COALESCE(quote_literal(_grade), 'NULL') || ') RETURNING metasql_id;' ;
IF (_debug) THEN RAISE NOTICE '%', _insertstr; END IF;
EXECUTE _insertstr INTO _metasqlid;
END IF;
RETURN _metasqlid;
END;
$_$;
ALTER FUNCTION public.savemetasql(text, text, text, text, boolean, text, integer) OWNER TO admin;
--
-- Name: scraps(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION scraps(text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTransType ALIAS FOR $1;
BEGIN
IF (pTransType IN ('SI', 'SM', 'EX')) THEN
RETURN TRUE;
ELSE
RETURN FALSE;
END IF;
END;
$_$;
ALTER FUNCTION public.scraps(text) OWNER TO admin;
--
-- Name: scrapwomaterial(integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION scrapwomaterial(integer, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN scrapWoMaterial($1, $2, CURRENT_TIMESTAMP);
END;
$_$;
ALTER FUNCTION public.scrapwomaterial(integer, numeric) OWNER TO admin;
--
-- Name: scrapwomaterial(integer, numeric, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION scrapwomaterial(integer, numeric, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWomatlid ALIAS FOR $1;
pQty ALIAS FOR $2;
pGlDistTS ALIAS FOR $3;
_costmethod CHAR(1);
_scrapValue NUMERIC;
_r RECORD;
BEGIN
-- Validate
IF (pQty <= 0) THEN
RAISE EXCEPTION 'Scrap quantity must be a positive number';
ELSIF ( ( SELECT (womatl_qtyiss < pQty)
FROM womatl
WHERE (womatl_id=pWomatlid) ) ) THEN
RAISE EXCEPTION 'You may not scrap more material than has been issued';
END IF;
-- Get the wip G/L account
SELECT costcat_wip_accnt_id
INTO _r
FROM womatl, wo, itemsite, costcat
WHERE((womatl_wo_id=wo_id)
AND (wo_itemsite_id=itemsite_id)
AND (itemsite_costcat_id=costcat_id)
AND (womatl_id=pWomatlid));
-- Calculate scrap value
SELECT itemsite_costmethod INTO _costmethod
FROM womatl
JOIN itemsite ON (womatl_itemsite_id=itemsite_id)
WHERE (womatl_id=pWomatlid);
IF (_costmethod = 'S') THEN
SELECT ROUND((stdCost(itemsite_item_id) * itemuomtouom(itemsite_item_id, womatl_uom_id, NULL, pQty)),2)
INTO _scrapValue
FROM womatl
JOIN itemsite ON (womatl_itemsite_id=itemsite_id)
WHERE (womatl_id=pWomatlid);
ELSIF (_costmethod = 'A') THEN
SELECT ROUND((SUM(invhist_invqty * invhist_unitcost)-womatl_scrapvalue)/
(CASE WHEN (SUM(invhist_invqty)-itemuomtouom(itemsite_item_id, womatl_uom_id, NULL, womatl_qtywipscrap) = 0) THEN
1
ELSE
SUM(invhist_invqty)-itemuomtouom(itemsite_item_id, womatl_uom_id, NULL, womatl_qtywipscrap)
END),2) * itemuomtouom(itemsite_item_id, womatl_uom_id, NULL, pQty)
INTO _scrapValue
FROM womatl
JOIN womatlpost ON (womatl_id=womatlpost_womatl_id)
JOIN invhist ON (womatlpost_invhist_id=invhist_id)
JOIN itemsite ON (womatl_itemsite_id=itemsite_id)
WHERE (womatl_id=pWomatlid)
GROUP BY itemsite_item_id,womatl_uom_id,womatl_qtywipscrap,womatl_scrapvalue;
ELSE
RAISE EXCEPTION 'Cost method not supported to scrap this item';
END IF;
-- Distribute to G/L
PERFORM insertGLTransaction( 'W/O', 'WO', formatWoNumber(womatl_wo_id),
('Scrap ' || item_number || ' from Work Order'),
getPrjAccntId(wo_prj_id, _r.costcat_wip_accnt_id), getPrjAccntId(wo_prj_id, costcat_mfgscrap_accnt_id), -1,
_scrapValue, date(pGlDistTS) )
FROM wo, womatl, itemsite, item, costcat
WHERE ( (wo_id=womatl_wo_id)
AND (womatl_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (itemsite_costcat_id=costcat_id)
AND (womatl_id=pWomatlid) );
UPDATE womatl
SET womatl_qtywipscrap=(womatl_qtywipscrap + pQty),
womatl_scrapvalue = womatl_scrapvalue + _scrapValue,
womatl_qtyiss=(womatl_qtyiss - pQty)
WHERE (womatl_id=pWomatlid);
UPDATE wo
SET wo_wipvalue = wo_wipvalue-_scrapValue,
wo_postedvalue = wo_postedvalue-_scrapValue
FROM womatl
WHERE ((womatl_id=pWomatlid)
AND (wo_id=womatl_wo_id));
RETURN pWomatlid;
END;
$_$;
ALTER FUNCTION public.scrapwomaterial(integer, numeric, timestamp with time zone) OWNER TO admin;
--
-- Name: selectbalanceforbilling(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION selectbalanceforbilling(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoheadid ALIAS FOR $1;
_returnval BOOLEAN := TRUE;
_doSelect BOOLEAN;
_result INTEGER;
_soitem RECORD;
BEGIN
FOR _soitem IN
-- Get the shipments for this SO. Kits are not shipped
SELECT cust_partialship, coitem_id,
coitem_linenumber, 'NOTK' AS item_type,
SUM(shipitem_qty) AS qty,
( (SUM(shipitem_qty) >= (coitem_qtyord - coitem_qtyshipped + coitem_qtyreturned + SUM(shipitem_qty))) OR
(NOT cust_partialship) ) AS toclose
FROM cohead JOIN custinfo ON (cust_id=cohead_cust_id)
JOIN coitem ON (coitem_cohead_id=cohead_id)
JOIN shipitem ON ( (shipitem_orderitem_id=coitem_id) AND (NOT shipitem_invoiced) )
JOIN shiphead ON ( (shiphead_id=shipitem_shiphead_id) AND (shiphead_order_type='SO') AND (shiphead_shipped) )
WHERE (cohead_id=pSoheadid)
GROUP BY cust_partialship, coitem_id, item_type,
coitem_linenumber, coitem_qtyord,
coitem_qtyshipped, coitem_qtyreturned
UNION
-- Get the Kits for this SO
SELECT cust_partialship, coitem_id,
coitem_linenumber, 'K' AS item_type,
coitem_qtyord AS qty,
TRUE AS toclose
FROM cohead JOIN custinfo ON (cust_id=cohead_cust_id)
JOIN coitem ON (coitem_cohead_id=cohead_id AND coitem_status='O')
JOIN itemsite ON (itemsite_id=coitem_itemsite_id)
JOIN item ON ( (item_id=itemsite_item_id) AND (item_type='K') )
WHERE (cohead_id=pSoheadid)
LOOP
_doSelect := true;
IF(_soitem.item_type = 'K') THEN
-- see if all the sub items are shipped
SELECT coitem_id
INTO _result
FROM coitem
WHERE((coitem_cohead_id=pSoheadid)
AND (coitem_linenumber=_soitem.coitem_linenumber)
AND (coitem_subnumber > 0)
AND ((coitem_qtyord - coitem_qtyshipped + coitem_qtyreturned) > 0))
LIMIT 1;
IF( FOUND ) THEN
_doSelect := false;
END IF;
END IF;
IF (_doSelect) THEN
-- do as much as we can but still report errors if they occur
IF (selectForBilling(_soitem.coitem_id, _soitem.qty, _soitem.toclose) < 0) THEN
_returnval := FALSE;
END IF;
END IF;
END LOOP;
RETURN _returnval;
END;
$_$;
ALTER FUNCTION public.selectbalanceforbilling(integer) OWNER TO admin;
--
-- Name: selectdiscountitemsforpayment(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION selectdiscountitemsforpayment(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
pBankaccntid ALIAS FOR $2;
_currid INTEGER;
_r RECORD;
BEGIN
SELECT bankaccnt_curr_id INTO _currid
FROM bankaccnt
WHERE (bankaccnt_id=pBankaccntid);
FOR _r IN SELECT apopen_id
FROM apopen, terms
WHERE((CURRENT_DATE <= determineDiscountDate(apopen_terms_id, apopen_docdate))
AND (terms_discprcnt > 0.0)
AND (apopen_terms_id=terms_id)
AND (apopen_open)
AND (apopen_status = 'O')
AND (apopen_doctype IN ('V', 'D'))
AND (apopen_vend_id=pVendid)
AND (apopen_curr_id=_currid) ) LOOP
PERFORM selectPayment(_r.apopen_id, pBankaccntid);
END LOOP;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.selectdiscountitemsforpayment(integer, integer) OWNER TO admin;
--
-- Name: selectdueitemsforpayment(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION selectdueitemsforpayment(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pVendid ALIAS FOR $1;
pBankaccntid ALIAS FOR $2;
_currid INTEGER;
BEGIN
SELECT bankaccnt_curr_id INTO _currid
FROM bankaccnt
WHERE (bankaccnt_id=pBankaccntid);
PERFORM selectPayment(apopen_id, pBankaccntid)
FROM apopen
WHERE((apopen_open)
AND (apopen_vend_id=pVendid)
AND (apopen_duedate <= CURRENT_DATE)
AND (apopen_status = 'O')
AND (apopen_doctype IN ('V', 'D'))
AND (apopen_curr_id=_currid) );
RETURN 1;
END;
$_$;
ALTER FUNCTION public.selectdueitemsforpayment(integer, integer) OWNER TO admin;
--
-- Name: selectforbilling(integer, numeric, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION selectforbilling(integer, numeric, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoitemid ALIAS FOR $1;
pQty ALIAS FOR $2;
pClose ALIAS FOR $3;
_itemid INTEGER := NULL;
_taxzoneid INTEGER := NULL;
_taxid INTEGER := NULL;
_taxtypeid INTEGER := NULL;
BEGIN
SELECT cobmisc_taxzone_id, item_id, coitem_taxtype_id
INTO _taxzoneid, _itemid, _taxtypeid
FROM cobmisc, coitem, itemsite, item
WHERE ((cobmisc_cohead_id = coitem_cohead_id)
AND (NOT cobmisc_posted)
AND (coitem_itemsite_id = itemsite_id)
AND (itemsite_item_id = item_id)
AND (coitem_id = pSoitemid) )
LIMIT 1;
RETURN selectforbilling(pSoitemid, pQty, pClose, _taxtypeid);
END;
$_$;
ALTER FUNCTION public.selectforbilling(integer, numeric, boolean) OWNER TO admin;
--
-- Name: selectforbilling(integer, numeric, boolean, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION selectforbilling(integer, numeric, boolean, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoitemid ALIAS FOR $1;
pQty ALIAS FOR $2;
pClose ALIAS FOR $3;
ptaxtypeid ALIAS FOR $4;
_cobillid INTEGER;
_r RECORD;
BEGIN
-- Get some information
SELECT cobmisc_id, cobmisc_taxzone_id, coitem_id, coitem_price,
coitem_price_invuomratio AS invpricerat, coitem_qty_invuomratio, item_id
INTO _r
FROM cobmisc, coitem, itemsite, item, site()
WHERE ((cobmisc_cohead_id = coitem_cohead_id)
AND (NOT cobmisc_posted)
AND (coitem_itemsite_id = itemsite_id)
AND (itemsite_item_id = item_id)
AND (coitem_id = pSoitemid)
AND (itemsite_warehous_id = warehous_id) )
LIMIT 1;
-- check to make sure the qty to bill for is not less than
-- the total un-invoiced shipped amount
IF ((SELECT (pQty < SUM(shipitem_qty))
FROM shipitem, shiphead, coitem
WHERE ( (shipitem_shiphead_id=shiphead_id)
AND (shiphead_order_type='SO')
AND (shiphead_order_id=coitem_cohead_id)
AND (shipitem_orderitem_id=coitem_id)
AND (shiphead_shipped)
AND (NOT shipitem_invoiced)
AND (coitem_id=pSoitemid) ) ) ) THEN
RETURN -1;
END IF;
SELECT cobill_id INTO _cobillid
FROM cobill, cobmisc, coitem
WHERE ((cobill_cobmisc_id = cobmisc_id)
AND (cobmisc_cohead_id = coitem_cohead_id)
AND (cobill_coitem_id = coitem_id)
AND (NOT cobmisc_posted)
AND (coitem_id = pSoitemid));
IF (FOUND) THEN
UPDATE cobill
SET cobill_selectdate = CURRENT_DATE,
cobill_select_username = getEffectiveXtUser(),
cobill_qty = pQty,
cobill_toclose = pClose,
cobill_taxtype_id = ptaxtypeid
WHERE (cobill_id=_cobillid);
ELSE
SELECT NEXTVAL('cobill_cobill_id_seq') INTO _cobillid;
INSERT INTO cobill
(cobill_id, cobill_coitem_id, cobill_cobmisc_id,
cobill_selectdate, cobill_select_username,
cobill_qty, cobill_toclose,
cobill_taxtype_id)
VALUES
(_cobillid, _r.coitem_id, _r.cobmisc_id,
CURRENT_DATE, getEffectiveXtUser(),
pQty, pClose,
ptaxtypeid);
END IF;
RETURN _cobillid;
END;
$_$;
ALTER FUNCTION public.selectforbilling(integer, numeric, boolean, integer) OWNER TO admin;
--
-- Name: selectpayment(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION selectpayment(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pApopenid ALIAS FOR $1;
pBankaccntid ALIAS FOR $2;
_p RECORD;
_apselectid INTEGER;
_amount NUMERIC;
_discount NUMERIC;
BEGIN
SELECT apopen_amount, apopen_paid,
apopen_doctype, apopen_docdate,
apopen_curr_id,
apopen_amount - apopen_paid
- COALESCE((SELECT SUM(currToCurr(checkitem_curr_id,
apopen_curr_id,
checkitem_amount + checkitem_discount,
checkhead_checkdate))
FROM checkitem, checkhead
WHERE((checkitem_checkhead_id=checkhead_id)
AND (checkitem_apopen_id=apopen_id)
AND (NOT checkhead_deleted)
AND (NOT checkhead_replaced)
AND (NOT checkhead_posted)) ),0) AS balance,
noNeg(COALESCE(apopen_discountable_amount, 0) *
CASE WHEN (CURRENT_DATE <= determineDiscountDate(apopen_terms_id, apopen_docdate)) THEN terms_discprcnt
ELSE 0.0 END - discount_applied) AS discount_available
INTO _p
FROM apopen LEFT OUTER JOIN terms ON (apopen_terms_id=terms_id),
(SELECT COALESCE(SUM(apapply_amount),0) AS discount_applied
FROM apapply, apopen
WHERE((apapply_target_apopen_id=pApopenid)
AND (apapply_source_apopen_id=apopen_id)
AND (apopen_discount)) ) AS data
WHERE(apopen_id=pApopenid);
IF(NOT FOUND OR (NOT _p.apopen_doctype IN ('V','D'))) THEN
RETURN -1;
END IF;
_discount := round(_p.discount_available, 2);
_amount := noNeg(round(_p.balance, 2) - _discount);
IF (round(_p.balance,2) < (_discount + _amount)) THEN
RETURN -2;
END IF;
IF (_amount > 0) THEN
SELECT apselect_id INTO _apselectid
FROM apselect
WHERE (apselect_apopen_id=pApopenid);
IF (FOUND) THEN
UPDATE apselect
SET apselect_amount=_amount,
apselect_discount=_discount,
apselect_curr_id = _p.apopen_curr_id
WHERE(apselect_id=_apselectid);
ELSE
SELECT NEXTVAL('apselect_apselect_id_seq') INTO _apselectid;
INSERT INTO apselect
( apselect_id, apselect_apopen_id,
apselect_amount, apselect_discount,
apselect_bankaccnt_id,
apselect_curr_id, apselect_date )
VALUES
( _apselectid, pApopenid,
_amount, _discount,
pBankaccntid,
_p.apopen_curr_id, _p.apopen_docdate );
END IF;
ELSE
_apselectid := 0;
END IF;
RETURN _apselectid;
END;
$_$;
ALTER FUNCTION public.selectpayment(integer, integer) OWNER TO admin;
--
-- Name: selectuninvoicedshipment(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION selectuninvoicedshipment(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pShipheadid ALIAS FOR $1;
_cobmiscid INTEGER;
_coheadid INTEGER;
_r RECORD;
_cobillid INTEGER;
BEGIN
-- make a cobmisc head if it doesn't already exist for this cohead
SELECT shiphead_order_id, createBillingHeader(shiphead_order_id)
INTO _coheadid, _cobmiscid
FROM shiphead
JOIN shipitem ON (shipitem_shiphead_id=shiphead_id)
WHERE (shiphead_shipped
AND NOT shipitem_invoiced
AND (shiphead_id=pShipheadid));
-- Grab all of the uninvoiced shipitem records
FOR _r IN SELECT cohead_id, coitem_id, SUM(shipitem_qty) AS qty,
coitem_price, coitem_price_invuomratio AS invpricerat, coitem_qty_invuomratio, item_id,
( ((coitem_qtyord - coitem_qtyshipped + coitem_qtyreturned) <= 0)
OR (NOT cust_partialship) ) AS toclose, coitem_taxtype_id
FROM shiphead, shipitem, coitem, cohead, custinfo, itemsite, item
WHERE ( (shipitem_shiphead_id=shiphead_id)
AND (shipitem_orderitem_id=coitem_id)
AND (coitem_cohead_id=cohead_id)
AND (shiphead_shipped)
AND (NOT shipitem_invoiced)
AND (coitem_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (cohead_cust_id=cust_id)
AND (item_type != 'K')
AND (cohead_id=_coheadid)
AND (shiphead_id=pShipheadid) )
GROUP BY cohead_id, coitem_id, cust_partialship, coitem_taxtype_id,
coitem_qtyord, coitem_qtyshipped, coitem_qtyreturned,
coitem_price, invpricerat, coitem_qty_invuomratio, item_id
UNION
SELECT cohead_id, coitem_id, coitem_qtyord AS qty,
coitem_price, coitem_price_invuomratio AS invpricerat, coitem_qty_invuomratio, item_id,
true AS toclose, coitem_taxtype_id
FROM shiphead, cohead, custinfo, itemsite, item, coitem AS kit
WHERE((shiphead_order_id=cohead_id)
AND (coitem_cohead_id=cohead_id)
AND (coitem_status='O')
AND (shiphead_shipped)
AND (coitem_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (cohead_cust_id=cust_id)
AND (item_type = 'K')
AND (cohead_id=_coheadid)
AND (shiphead_id=pShipheadid)
AND (coitem_linenumber NOT IN
(SELECT sub.coitem_linenumber
FROM coitem AS sub
WHERE sub.coitem_cohead_id=cohead_id -- cohead for kit
AND sub.coitem_linenumber=kit.coitem_linenumber
AND sub.coitem_subnumber > 0
AND ((sub.coitem_qtyord - sub.coitem_qtyshipped + sub.coitem_qtyreturned) > 0)
LIMIT 1)
))
GROUP BY cohead_id, coitem_id, cust_partialship, coitem_taxtype_id,
coitem_qtyord, coitem_qtyshipped, coitem_qtyreturned,
coitem_price, invpricerat, coitem_qty_invuomratio, item_id, coitem_linenumber
LOOP
SELECT cobill_id INTO _cobillid
FROM cobill, cobmisc, coitem
WHERE ((cobill_cobmisc_id=cobmisc_id)
AND (cobmisc_cohead_id=coitem_cohead_id)
AND (cobill_coitem_id=coitem_id)
AND (NOT cobmisc_posted)
AND (cobill_cobmisc_id=_cobmiscid)
AND (coitem_id=_r.coitem_id))
LIMIT 1;
IF (FOUND) THEN
UPDATE cobill
SET cobill_selectdate = CURRENT_DATE,
cobill_select_username = getEffectiveXtUser(),
cobill_qty = cobill_qty + _r.qty,
cobill_toclose = _r.toclose,
cobill_taxtype_id = _r.coitem_taxtype_id
WHERE (cobill_id=_cobillid);
ELSE
-- Now insert the cobill line
INSERT INTO cobill
( cobill_cobmisc_id, cobill_coitem_id,
cobill_selectdate, cobill_select_username,
cobill_qty, cobill_toclose,
cobill_taxtype_id )
VALUES
( _cobmiscid, _r.coitem_id,
CURRENT_DATE, getEffectiveXtUser(),
_r.qty, _r.toclose,
_r.coitem_taxtype_id );
END IF;
END LOOP;
RETURN _cobmiscid;
END;
$_$;
ALTER FUNCTION public.selectuninvoicedshipment(integer) OWNER TO admin;
--
-- Name: selectuninvoicedshipments(integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION selectuninvoicedshipments(integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWarehousid ALIAS FOR $1;
pCusttype ALIAS FOR $2;
_r RECORD;
_recordCounter INTEGER := 0;
BEGIN
-- Grab all of the uninvoiced shipitem records
FOR _r IN SELECT DISTINCT shiphead_id
FROM shiphead, shipitem, coitem, itemsite, cohead, custinfo, custtype
WHERE ( (shiphead_order_type='SO')
AND (shipitem_shiphead_id=shiphead_id)
AND (shipitem_orderitem_id=coitem_id)
AND (coitem_itemsite_id=itemsite_id)
AND (coitem_status <> 'C')
AND (coitem_cohead_id=cohead_id)
AND (cohead_cust_id=cust_id)
AND (cust_custtype_id=custtype_id)
AND ( (pWarehousid = -1) OR (itemsite_warehous_id=pWarehousid) )
AND (custtype_code ~ pCusttype)
AND (shiphead_shipped)
AND (NOT shipitem_invoiced)
AND (coitem_id NOT IN ( SELECT cobill_coitem_id
FROM cobmisc, cobill
WHERE ((cobill_cobmisc_id=cobmisc_id)
AND (NOT cobmisc_posted) ) ) ) ) LOOP
PERFORM selectUninvoicedShipment(_r.shiphead_id);
_recordCounter := _recordCounter + 1;
END LOOP;
RETURN _recordCounter;
END;
$_$;
ALTER FUNCTION public.selectuninvoicedshipments(integer, text) OWNER TO admin;
--
-- Name: selectuninvoicedshipments(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION selectuninvoicedshipments(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWarehousid ALIAS FOR $1;
_r RECORD;
_recordCounter INTEGER := 0;
BEGIN
-- Grab all of the uninvoiced shipitem records
FOR _r IN SELECT DISTINCT shiphead_id
FROM shiphead, shipitem, coitem, itemsite
WHERE ( (shiphead_order_type='SO')
AND (shipitem_shiphead_id=shiphead_id)
AND (shipitem_orderitem_id=coitem_id)
AND (coitem_itemsite_id=itemsite_id)
AND (coitem_status <> 'C')
AND ( (pWarehousid = -1) OR (itemsite_warehous_id=pWarehousid) )
AND (shiphead_shipped)
AND (NOT shipitem_invoiced)
AND (coitem_id NOT IN ( SELECT cobill_coitem_id
FROM cobmisc, cobill
WHERE ((cobill_cobmisc_id=cobmisc_id)
AND (NOT cobmisc_posted) ) ) ) ) LOOP
PERFORM selectUninvoicedShipment(_r.shiphead_id);
_recordCounter := _recordCounter + 1;
END LOOP;
RETURN _recordCounter;
END;
$_$;
ALTER FUNCTION public.selectuninvoicedshipments(integer) OWNER TO admin;
--
-- Name: selectuninvoicedshipments(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION selectuninvoicedshipments(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWarehousid ALIAS FOR $1;
pCusttypeid ALIAS FOR $2;
_r RECORD;
_recordCounter INTEGER := 0;
BEGIN
-- Grab all of the uninvoiced shipitem records
FOR _r IN SELECT DISTINCT shiphead_id
FROM shiphead, shipitem, coitem, itemsite, cohead, custinfo
WHERE ( (shiphead_order_type='SO')
AND (shipitem_shiphead_id=shiphead_id)
AND (shipitem_orderitem_id=coitem_id)
AND (coitem_itemsite_id=itemsite_id)
AND (coitem_status <> 'C')
AND (coitem_cohead_id=cohead_id)
AND (cohead_cust_id=cust_id)
AND (cust_custtype_id=pCusttypeid)
AND ( (pWarehousid = -1) OR (itemsite_warehous_id=pWarehousid) )
AND (shiphead_shipped)
AND (NOT shipitem_invoiced)
AND (coitem_id NOT IN ( SELECT cobill_coitem_id
FROM cobmisc, cobill
WHERE ((cobill_cobmisc_id=cobmisc_id)
AND (NOT cobmisc_posted) ) ) ) ) LOOP
PERFORM selectUninvoicedShipment(_r.shiphead_id);
_recordCounter := _recordCounter + 1;
END LOOP;
RETURN _recordCounter;
END;
$_$;
ALTER FUNCTION public.selectuninvoicedshipments(integer, integer) OWNER TO admin;
--
-- Name: setapjournalnumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setapjournalnumber() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_journalNumber INTEGER;
_r RECORD;
BEGIN
-- Fetch the next Journal Number
SELECT fetchJournalNumber('A/P') INTO _journalNumber;
-- Walk through all of the A/P Open Items
FOR _r IN SELECT apopen_id, apopen_docnumber
FROM apopen
WHERE (NOT apopen_posted) LOOP
-- Set the Journal Number for all of the G/L Transactions
-- for the A/P Open Item
UPDATE gltrans
SET gltrans_journalnumber=_journalNumber
WHERE ( (gltrans_source='P/O')
AND (gltrans_doctype IN ('VO'))
AND (gltrans_docnumber=_r.apopen_docnumber)
AND (NOT gltrans_exported) );
-- Set the Journal Number for the A/P Open Item
UPDATE apopen
SET apopen_journalnumber=_journalNumber
WHERE (apopen_id=_r.apopen_id);
END LOOP;
RETURN _journalNumber;
END;
$$;
ALTER FUNCTION public.setapjournalnumber() OWNER TO admin;
--
-- Name: setarjournalnumber(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setarjournalnumber() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_journalNumber INTEGER;
_r RECORD;
BEGIN
-- Fetch the next Journal Number
SELECT fetchJournalNumber('A/R') INTO _journalNumber;
-- Walk through all of the A/R Open Items
FOR _r IN SELECT aropen_id, aropen_docnumber
FROM aropen
WHERE (NOT aropen_posted) LOOP
-- Set the Journal Number for all of the G/L Transactions
-- for the A/R Open Item
UPDATE gltrans
SET gltrans_journalnumber=_journalNumber
WHERE ( (gltrans_source='S/O')
AND (gltrans_doctype IN ('CM', 'IN'))
AND (gltrans_docnumber=_r.aropen_docnumber)
AND (NOT gltrans_exported) );
-- Set the Journal Number for the A/R Open Item
UPDATE aropen
SET aropen_journalnumber=_journalNumber
WHERE (aropen_id=_r.aropen_id);
END LOOP;
RETURN _journalNumber;
END;
$$;
ALTER FUNCTION public.setarjournalnumber() OWNER TO admin;
--
-- Name: setbudget(integer, integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setbudget(integer, integer, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPeriodid ALIAS FOR $1;
pAccntid ALIAS FOR $2;
pAmount ALIAS FOR $3;
BEGIN
RETURN setBudget(1, pPeriodid, pAccntid, pAmount);
END;
$_$;
ALTER FUNCTION public.setbudget(integer, integer, numeric) OWNER TO admin;
--
-- Name: setbudget(integer, integer, integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setbudget(integer, integer, integer, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBudgheadid ALIAS FOR $1;
pPeriodid ALIAS FOR $2;
pAccntid ALIAS FOR $3;
pAmount ALIAS FOR $4;
_budgetid INTEGER;
BEGIN
SELECT budgitem_id INTO _budgetid
FROM budgitem
WHERE ((budgitem_period_id=pPeriodid)
AND (budgitem_budghead_id=pBudgheadid)
AND (budgitem_accnt_id=pAccntid));
IF (FOUND) THEN
UPDATE budgitem
SET budgitem_amount = pAmount
WHERE (budgitem_id=_budgetid);
ELSE
SELECT nextval('budgitem_budgitem_id_seq') INTO _budgetid;
INSERT INTO budgitem
(budgitem_id, budgitem_budghead_id, budgitem_period_id, budgitem_accnt_id, budgitem_amount)
VALUES(_budgetid, pBudgheadid, pPeriodid, pAccntid, pAmount);
END IF;
RETURN _budgetid;
END;
$_$;
ALTER FUNCTION public.setbudget(integer, integer, integer, numeric) OWNER TO admin;
--
-- Name: setbytea(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setbytea(text) RETURNS bytea
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pMetricName ALIAS FOR $1;
_value bytea;
BEGIN
_value := decode(pMetricName, 'escape');
RETURN _value;
END;
$_$;
ALTER FUNCTION public.setbytea(text) OWNER TO admin;
--
-- Name: setbytea(bytea); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setbytea(bytea) RETURNS bytea
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pMetricName ALIAS FOR $1;
_value bytea;
BEGIN
_value := pMetricName;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.setbytea(bytea) OWNER TO admin;
--
-- Name: setccbankaccnt(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setccbankaccnt(text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pccardtype ALIAS FOR $1;
pbankaccntid ALIAS FOR $2;
_ccbankid INTEGER;
_numfound INTEGER;
BEGIN
RAISE DEBUG 'setCCBankAccount(%, %) entered', pccardtype, pbankaccntid;
UPDATE ccbank SET ccbank_bankaccnt_id=pbankaccntid
WHERE ccbank_ccard_type=pccardtype
RETURNING ccbank_id INTO _ccbankid;
GET DIAGNOSTICS _numfound = ROW_COUNT;
IF (_numfound <= 0) THEN
INSERT INTO ccbank (ccbank_ccard_type, ccbank_bankaccnt_id)
VALUES (pccardtype, pbankaccntid)
RETURNING _ccbankid;
END IF;
RETURN _ccbankid;
END;
$_$;
ALTER FUNCTION public.setccbankaccnt(text, integer) OWNER TO admin;
--
-- Name: seteffectivextuser(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION seteffectivextuser(text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUsername ALIAS FOR $1;
BEGIN
PERFORM initEffectiveXtUser();
PERFORM *
FROM effective_user
WHERE effective_key = 'username';
IF FOUND THEN
UPDATE effective_user
SET effective_value = pUsername
WHERE effective_key = 'username';
ELSE
INSERT INTO effective_user (effective_key, effective_value)
VALUES('username', pUsername);
END IF;
RETURN true;
END;
$_$;
ALTER FUNCTION public.seteffectivextuser(text) OWNER TO admin;
--
-- Name: setgljournalnumber(date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setgljournalnumber(date, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pStartDate ALIAS FOR $1;
pEndDate ALIAS FOR $2;
_journalNumber INTEGER;
BEGIN
-- Fetch the next Journal Number
SELECT fetchJournalNumber('G/L') INTO _journalNumber;
-- Set the Journal Number for all of the unposted G/L Transactions
-- in the passed date range.
UPDATE gltrans
SET gltrans_journalnumber=_journalNumber
WHERE ( (NOT gltrans_exported)
AND (gltrans_date BETWEEN pStartDate and pEndDate) );
RETURN _journalNumber;
END;
$_$;
ALTER FUNCTION public.setgljournalnumber(date, date) OWNER TO admin;
--
-- Name: setmetric(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setmetric(text, text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pMetricName ALIAS FOR $1;
pMetricValue ALIAS FOR $2;
_metricid INTEGER;
BEGIN
SELECT metric_id INTO _metricid
FROM metric
WHERE (metric_name=pMetricName);
IF (FOUND) THEN
UPDATE metric
SET metric_value=pMetricValue
WHERE (metric_id=_metricid);
ELSE
INSERT INTO metric
(metric_name, metric_value)
VALUES (pMetricName, pMetricValue);
END IF;
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.setmetric(text, text) OWNER TO admin;
--
-- Name: setmetricenc(text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setmetricenc(text, text, text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pMetricName ALIAS FOR $1;
pMetricValue ALIAS FOR $2;
pMetricEnc ALIAS FOR $3;
_metricid INTEGER;
_value bytea;
_key bytea;
BEGIN
_value = decode(pMetricValue, 'escape');
_key = decode(pMetricEnc, 'escape');
SELECT metricenc_id INTO _metricid
FROM metricenc
WHERE (metricenc_name=pMetricName);
IF (FOUND) THEN
UPDATE metricenc
SET metricenc_value=encrypt(_value, _key, 'bf')
WHERE (metricenc_id=_metricid);
ELSE
INSERT INTO metricenc
(metricenc_name, metricenc_value)
VALUES (pMetricName, encrypt(_value, _key, 'bf'));
END IF;
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.setmetricenc(text, text, text) OWNER TO admin;
--
-- Name: setnextapmemonumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setnextapmemonumber(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNumber ALIAS FOR $1;
_orderseqid INTEGER;
BEGIN
SELECT orderseq_id INTO _orderseqid
FROM orderseq
WHERE (orderseq_name='APMemoNumber');
IF (FOUND) THEN
UPDATE orderseq
SET orderseq_number=pNumber
WHERE (orderseq_id=_orderseqid);
ELSE
INSERT INTO orderseq
(orderseq_name, orderseq_number)
VALUES
('APMemoNumber', pNumber);
END IF;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.setnextapmemonumber(integer) OWNER TO admin;
--
-- Name: setnextarmemonumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setnextarmemonumber(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNumber ALIAS FOR $1;
_orderseqid INTEGER;
BEGIN
SELECT orderseq_id INTO _orderseqid
FROM orderseq
WHERE (orderseq_name='ARMemoNumber');
IF (FOUND) THEN
UPDATE orderseq
SET orderseq_number=pNumber
WHERE (orderseq_id=_orderseqid);
ELSE
INSERT INTO orderseq
(orderseq_name, orderseq_number)
VALUES
('ARMemoNumber', pNumber);
END IF;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.setnextarmemonumber(integer) OWNER TO admin;
--
-- Name: setnextcashrcptnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setnextcashrcptnumber(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNumber ALIAS FOR $1;
_orderseqid INTEGER;
BEGIN
SELECT orderseq_id INTO _orderseqid
FROM orderseq
WHERE (orderseq_name='CashRcptNumber');
IF (FOUND) THEN
UPDATE orderseq
SET orderseq_number=pNumber
WHERE (orderseq_id=_orderseqid);
ELSE
INSERT INTO orderseq
(orderseq_name, orderseq_number)
VALUES
('CashRcptNumber', pNumber);
END IF;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.setnextcashrcptnumber(integer) OWNER TO admin;
--
-- Name: setnextchecknumber(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setnextchecknumber(integer, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBankaccntid ALIAS FOR $1;
pNextCheckNumber ALIAS FOR $2;
BEGIN
UPDATE bankaccnt
SET bankaccnt_nextchknum=pNextCheckNumber
WHERE (bankaccnt_id=pBankaccntid);
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.setnextchecknumber(integer, integer) OWNER TO admin;
--
-- Name: setnextcmnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setnextcmnumber(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNumber ALIAS FOR $1;
_orderseqid INTEGER;
BEGIN
SELECT orderseq_id INTO _orderseqid
FROM orderseq
WHERE (orderseq_name='CmNumber');
IF (NOT FOUND) THEN
SELECT NEXTVAL('orderseq_orderseq_id_seq') INTO _orderseqid;
INSERT INTO orderseq (orderseq_id, orderseq_name, orderseq_number)
VALUES (_orderseqid, 'CmNumber', pNumber);
ELSE
UPDATE orderseq
SET orderseq_number=pNumber
WHERE (orderseq_name='CmNumber');
END IF;
RETURN _orderseqid;
END;
$_$;
ALTER FUNCTION public.setnextcmnumber(integer) OWNER TO admin;
--
-- Name: setnextcrmaccountnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setnextcrmaccountnumber(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNumber ALIAS FOR $1;
_orderseqid INTEGER;
BEGIN
SELECT orderseq_id INTO _orderseqid
FROM orderseq
WHERE (orderseq_name='CRMAccountNumber');
IF (NOT FOUND) THEN
SELECT NEXTVAL('orderseq_orderseq_id_seq') INTO _orderseqid;
INSERT INTO orderseq (orderseq_id, orderseq_name, orderseq_number)
VALUES (_orderseqid, 'CRMAccountNumber', pNumber);
ELSE
UPDATE orderseq
SET orderseq_number=pNumber
WHERE (orderseq_name='CRMAccountNumber');
END IF;
RETURN _orderseqid;
END;
$_$;
ALTER FUNCTION public.setnextcrmaccountnumber(integer) OWNER TO admin;
--
-- Name: setnextincidentnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setnextincidentnumber(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNumber ALIAS FOR $1;
_orderseqid INTEGER;
BEGIN
SELECT orderseq_id INTO _orderseqid
FROM orderseq
WHERE (orderseq_name='IncidentNumber');
IF (NOT FOUND) THEN
SELECT NEXTVAL('orderseq_orderseq_id_seq') INTO _orderseqid;
INSERT INTO orderseq (orderseq_id, orderseq_name, orderseq_number)
VALUES (_orderseqid, 'IncidentNumber', pNumber);
ELSE
UPDATE orderseq
SET orderseq_number=pNumber
WHERE (orderseq_name='IncidentNumber');
END IF;
RETURN _orderseqid;
END;
$_$;
ALTER FUNCTION public.setnextincidentnumber(integer) OWNER TO admin;
--
-- Name: setnextinvcnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setnextinvcnumber(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNumber ALIAS FOR $1;
_orderseqid INTEGER;
BEGIN
SELECT orderseq_id INTO _orderseqid
FROM orderseq
WHERE (orderseq_name='InvcNumber');
IF (NOT FOUND) THEN
SELECT NEXTVAL('orderseq_orderseq_id_seq') INTO _orderseqid;
INSERT INTO orderseq (orderseq_id, orderseq_name, orderseq_number)
VALUES (_orderseqid, 'InvcNumber', pNumber);
ELSE
UPDATE orderseq
SET orderseq_number=pNumber
WHERE (orderseq_name='InvcNumber');
END IF;
RETURN _orderseqid;
END;
$_$;
ALTER FUNCTION public.setnextinvcnumber(integer) OWNER TO admin;
--
-- Name: setnextnumber(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setnextnumber(text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
psequence ALIAS FOR $1;
pnumber ALIAS FOR $2;
_orderseqid INTEGER;
BEGIN
SELECT orderseq_id INTO _orderseqid
FROM orderseq
WHERE (orderseq_name=psequence);
IF (NOT FOUND) THEN
INSERT INTO orderseq (orderseq_name, orderseq_number,
orderseq_table, orderseq_numcol)
VALUES (psequence, pnumber,
CASE WHEN (psequence='APMemoNumber') THEN 'apopen'
WHEN (psequence='ARMemoNumber') THEN 'aropen'
WHEN (psequence='CmNumber') THEN 'cmhead'
WHEN (psequence='IncidentNumber') THEN 'incdt'
WHEN (psequence='InvcNumber') THEN 'invchead'
WHEN (psequence='JournalNumber') THEN 'gltrans'
WHEN (psequence='PlanNumber') THEN 'planord'
WHEN (psequence='PoNumber') THEN 'pohead'
WHEN (psequence='PrNumber') THEN 'pr'
WHEN (psequence='QuNumber') THEN 'quhead'
WHEN (psequence='ShipmentNumber') THEN 'shiphead'
WHEN (psequence='SoNumber') THEN 'cohead'
WHEN (psequence='ToNumber') THEN 'tohead'
WHEN (psequence='VcNumber') THEN 'vohead'
WHEN (psequence='WoNumber') THEN 'wo'
ELSE ''
END,
CASE WHEN (psequence='APMemoNumber') THEN 'apopen_docnumber'
WHEN (psequence='ARMemoNumber') THEN 'aropen_docnumber'
WHEN (psequence='CmNumber') THEN 'cmhead_number'
WHEN (psequence='IncidentNumber') THEN 'incdt_number'
WHEN (psequence='InvcNumber') THEN 'invchead_invcnumber'
WHEN (psequence='JournalNumber') THEN 'gltrans_journalnumber'
WHEN (psequence='PlanNumber') THEN 'planord_number'
WHEN (psequence='PoNumber') THEN 'pohead_number'
WHEN (psequence='PrNumber') THEN 'pr_number'
WHEN (psequence='QuNumber') THEN 'quhead_number'
WHEN (psequence='ShipmentNumber') THEN 'shiphead_number'
WHEN (psequence='SoNumber') THEN 'cohead_number'
WHEN (psequence='ToNumber') THEN 'tohead_number'
WHEN (psequence='VcNumber') THEN 'vohead_number'
WHEN (psequence='WoNumber') THEN 'wo_number'
ELSE ''
END
);
ELSE
UPDATE orderseq
SET orderseq_number=pnumber
WHERE (orderseq_name=psequence);
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.setnextnumber(text, integer) OWNER TO admin;
--
-- Name: setnextponumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setnextponumber(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNumber ALIAS FOR $1;
_orderseqid INTEGER;
BEGIN
SELECT orderseq_id INTO _orderseqid
FROM orderseq
WHERE (orderseq_name='PoNumber');
IF (NOT FOUND) THEN
SELECT NEXTVAL('orderseq_orderseq_id_seq') INTO _orderseqid;
INSERT INTO orderseq (orderseq_id, orderseq_name, orderseq_number)
VALUES (_orderseqid, 'PoNumber', pNumber);
ELSE
UPDATE orderseq
SET orderseq_number=pNumber
WHERE (orderseq_name='PoNumber');
END IF;
RETURN _orderseqid;
END;
$_$;
ALTER FUNCTION public.setnextponumber(integer) OWNER TO admin;
--
-- Name: setnextprnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setnextprnumber(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNumber ALIAS FOR $1;
_orderseqid INTEGER;
BEGIN
SELECT orderseq_id INTO _orderseqid
FROM orderseq
WHERE (orderseq_name='PrNumber');
IF (NOT FOUND) THEN
SELECT NEXTVAL('orderseq_orderseq_id_seq') INTO _orderseqid;
INSERT INTO orderseq (orderseq_id, orderseq_name, orderseq_number)
VALUES (_orderseqid, 'PrNumber', pNumber);
ELSE
UPDATE orderseq
SET orderseq_number=pNumber
WHERE (orderseq_name='PrNumber');
END IF;
RETURN _orderseqid;
END;
$_$;
ALTER FUNCTION public.setnextprnumber(integer) OWNER TO admin;
--
-- Name: setnextqunumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setnextqunumber(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pQuNumber ALIAS FOR $1;
_orderseqid INTEGER;
BEGIN
SELECT orderseq_id INTO _orderseqid
FROM orderseq
WHERE (orderseq_name='QuNumber');
IF (NOT FOUND) THEN
SELECT NEXTVAL('orderseq_orderseq_id_seq') INTO _orderseqid;
INSERT INTO orderseq (orderseq_id, orderseq_name, orderseq_number)
VALUES (_orderseqid, 'QuNumber', pQuNumber);
ELSE
UPDATE orderseq
SET orderseq_number=pQuNumber
WHERE (orderseq_name='QuNumber');
END IF;
RETURN _orderseqid;
END;
$_$;
ALTER FUNCTION public.setnextqunumber(integer) OWNER TO admin;
--
-- Name: setnextshipmentnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setnextshipmentnumber(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pShipmentNumber ALIAS FOR $1;
_orderseqid INTEGER;
BEGIN
SELECT orderseq_id INTO _orderseqid
FROM orderseq
WHERE (orderseq_name='ShipmentNumber');
IF (NOT FOUND) THEN
SELECT NEXTVAL('orderseq_orderseq_id_seq') INTO _orderseqid;
INSERT INTO orderseq (orderseq_id, orderseq_name, orderseq_number)
VALUES (_orderseqid, 'ShipmentNumber', pShipmentNumber);
ELSE
UPDATE orderseq
SET orderseq_number=pShipmentNumber
WHERE (orderseq_name='ShipmentNumber');
END IF;
RETURN _orderseqid;
END;
$_$;
ALTER FUNCTION public.setnextshipmentnumber(integer) OWNER TO admin;
--
-- Name: setnextsonumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setnextsonumber(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSoNumber ALIAS FOR $1;
_orderseqid INTEGER;
BEGIN
SELECT orderseq_id INTO _orderseqid
FROM orderseq
WHERE (orderseq_name='SoNumber');
IF (NOT FOUND) THEN
SELECT NEXTVAL('orderseq_orderseq_id_seq') INTO _orderseqid;
INSERT INTO orderseq (orderseq_id, orderseq_name, orderseq_number)
VALUES (_orderseqid, 'SoNumber', pSoNumber);
ELSE
UPDATE orderseq
SET orderseq_number=pSoNumber
WHERE (orderseq_name='SoNumber');
END IF;
RETURN _orderseqid;
END;
$_$;
ALTER FUNCTION public.setnextsonumber(integer) OWNER TO admin;
--
-- Name: setnextvcnumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setnextvcnumber(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNumber ALIAS FOR $1;
_orderseqid INTEGER;
BEGIN
SELECT orderseq_id INTO _orderseqid
FROM orderseq
WHERE (orderseq_name='VcNumber');
IF (NOT FOUND) THEN
SELECT NEXTVAL('orderseq_orderseq_id_seq') INTO _orderseqid;
INSERT INTO orderseq (orderseq_id, orderseq_name, orderseq_number)
VALUES (_orderseqid, 'VcNumber', pNumber);
ELSE
UPDATE orderseq
SET orderseq_number=pNumber
WHERE (orderseq_name='VcNumber');
END IF;
RETURN _orderseqid;
END;
$_$;
ALTER FUNCTION public.setnextvcnumber(integer) OWNER TO admin;
--
-- Name: setnextwonumber(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setnextwonumber(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pWoNumber ALIAS FOR $1;
_orderseqid INTEGER;
BEGIN
SELECT orderseq_id INTO _orderseqid
FROM orderseq
WHERE (orderseq_name='WoNumber');
IF (NOT FOUND) THEN
SELECT NEXTVAL('orderseq_orderseq_id_seq') INTO _orderseqid;
INSERT INTO orderseq (orderseq_id, orderseq_name, orderseq_number)
VALUES (_orderseqid, 'WoNumber', pWoNumber);
ELSE
UPDATE orderseq
SET orderseq_number=pWoNumber
WHERE (orderseq_name='WoNumber');
END IF;
RETURN _orderseqid;
END;
$_$;
ALTER FUNCTION public.setnextwonumber(integer) OWNER TO admin;
--
-- Name: setusercancreateusers(text, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setusercancreateusers(pusername text, pcreateuser boolean) RETURNS boolean
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
IF (pCreateUser) THEN
EXECUTE 'ALTER USER "' || pUsername || '" CREATEROLE;';
ELSE
EXECUTE 'ALTER USER "' || pUsername || '" NOCREATEROLE;';
END IF;
RETURN TRUE;
END;
$$;
ALTER FUNCTION public.setusercancreateusers(pusername text, pcreateuser boolean) OWNER TO admin;
--
-- Name: setuserpreference(text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setuserpreference(text, text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPrefName ALIAS FOR $1;
pPrefValue ALIAS FOR $2;
BEGIN
RETURN setUserPreferences(getEffectiveXtUser(), pPrefName, pPrefValue);
END;
$_$;
ALTER FUNCTION public.setuserpreference(text, text) OWNER TO admin;
--
-- Name: setuserpreference(text, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION setuserpreference(text, text, text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUsername ALIAS FOR $1;
pPrefName ALIAS FOR $2;
pPrefValue ALIAS FOR $3;
_usrprefid INTEGER;
BEGIN
SELECT usrpref_id INTO _usrprefid
FROM usrpref
WHERE ( (usrpref_username=pUsername)
AND (usrpref_name=pPrefName) );
IF (FOUND) THEN
UPDATE usrpref
SET usrpref_value=pPrefValue
WHERE (usrpref_id=_usrprefid);
ELSE
INSERT INTO usrpref
(usrpref_username, usrpref_name, usrpref_value)
VALUES
(pUsername, pPrefName, pPrefValue);
END IF;
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.setuserpreference(text, text, text) OWNER TO admin;
--
-- Name: shipments(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION shipments(text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTransType ALIAS FOR $1;
BEGIN
IF (pTransType IN ('SC', 'SV', 'SH', 'RS', 'TS')) THEN
RETURN TRUE;
ELSE
RETURN FALSE;
END IF;
END;
$_$;
ALTER FUNCTION public.shipments(text) OWNER TO admin;
--
-- Name: shipshipment(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION shipshipment(integer) RETURNS integer
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT shipShipment($1, CURRENT_TIMESTAMP);
$_$;
ALTER FUNCTION public.shipshipment(integer) OWNER TO admin;
--
-- Name: shipshipment(integer, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION shipshipment(integer, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pshipheadid ALIAS FOR $1;
_timestamp TIMESTAMP WITH TIME ZONE := $2;
_billedQty NUMERIC;
_c RECORD;
_coholdtype TEXT;
_gldate DATE;
_invhistid INTEGER;
_itemlocSeries INTEGER;
_lineitemsToClose INTEGER[];
_newQty NUMERIC;
_result INTEGER;
_s RECORD;
_shipcomplete BOOLEAN;
_shiphead RECORD;
_ti RECORD;
_to RECORD;
_variance NUMERIC;
_k RECORD;
BEGIN
IF (_timestamp IS NULL) THEN
_timestamp := CURRENT_TIMESTAMP;
END IF;
_gldate := _timestamp::DATE;
SELECT * INTO _shiphead
FROM shiphead WHERE (shiphead_id=pshipheadid);
IF (NOT FOUND) THEN
RETURN -50;
END IF;
IF (_shiphead.shiphead_order_type = 'SO') THEN
SELECT cohead_shipcomplete, cohead_holdtype INTO _shipcomplete, _coholdtype
FROM cohead, shiphead
WHERE ((shiphead_order_id=cohead_id)
AND (NOT shiphead_shipped)
AND (shiphead_order_type=_shiphead.shiphead_order_type)
AND (shiphead_id=pshipheadid));
IF (_coholdtype = 'C') THEN
RETURN -12;
ELSIF (_coholdtype = 'P') THEN
RETURN -13;
ELSIF (_coholdtype = 'R') THEN
RETURN -14;
ELSIF (_coholdtype = 'S') THEN
RETURN -15;
END IF;
---Must Ship Kit components (coitem_subnumber <> 0 complete---------------
IF ((
-- Test to see if order's customer accepts backorders and partials
-- If not then test for shipping kit components complete
SELECT cohead_number
FROM shiphead, cohead, custinfo
WHERE
(shiphead_order_id = cohead_id) AND
(cohead_cust_id = cust_id) AND
(shiphead_order_type = 'SO') AND
(cust_partialship) AND
(cust_backorder) AND
(shiphead_id = pshipheadid)
) IS NULL) THEN
FOR _k IN SELECT (coitem_qtyord -
(COALESCE(SUM(shipitem_qty),0) +
(coitem_qtyshipped - coitem_qtyreturned))) AS remain
FROM (coitem LEFT OUTER JOIN (itemsite JOIN item ON (itemsite_item_id=item_id)) ON (coitem_itemsite_id=itemsite_id)) LEFT OUTER JOIN
shipitem ON (shipitem_orderitem_id=coitem_id
AND shipitem_shiphead_id=pshipheadid)
WHERE ((coitem_status NOT IN ('C','X'))
AND (item_type != 'K')
AND (coitem_cohead_id=_shiphead.shiphead_order_id)
AND (coitem_subnumber <> 0)
)
GROUP BY coitem_id, coitem_qtyshipped, coitem_qtyord,
coitem_qtyreturned LOOP
IF (_k.remain > 0) THEN
RAISE EXCEPTION 'Kit component item not shipped complete. Kits must be shipped and shipped complete or closed on the order.';
END IF;
END LOOP;
END IF;
---End--------------------------------------------------------------------
IF ( _shipcomplete ) THEN
FOR _c IN SELECT (coitem_qtyord -
(COALESCE(SUM(shipitem_qty),0) +
(coitem_qtyshipped - coitem_qtyreturned))) AS remain
FROM (coitem LEFT OUTER JOIN (itemsite JOIN item ON (itemsite_item_id=item_id)) ON (coitem_itemsite_id=itemsite_id)) LEFT OUTER JOIN
shipitem ON (shipitem_orderitem_id=coitem_id
AND shipitem_shiphead_id=pshipheadid)
WHERE ((coitem_status<>'X')
AND (item_type != 'K')
AND (coitem_cohead_id=_shiphead.shiphead_order_id))
GROUP BY coitem_id, coitem_qtyshipped, coitem_qtyord,
coitem_qtyreturned LOOP
IF (_c.remain > 0) THEN
RETURN -99;
END IF;
END LOOP;
END IF;
FOR _c IN SELECT coitem_id, cohead_number, cohead_cust_id, cohead_billtoname, cohead_prj_id,
cohead_saletype_id, cohead_shipzone_id,
itemsite_id, itemsite_item_id,
coitem_qty_invuomratio,
coitem_warranty, coitem_cos_accnt_id,
SUM(shipitem_qty) AS _qty,
SUM(shipitem_value) AS _value
FROM coitem, cohead, shiphead, shipitem, itemsite
WHERE ( (coitem_cohead_id=cohead_id)
AND (coitem_itemsite_id=itemsite_id)
AND (shiphead_order_id=cohead_id)
AND (shipitem_shiphead_id=shiphead_id)
AND (shipitem_orderitem_id=coitem_id)
AND (NOT shiphead_shipped)
AND (shiphead_id=pshipheadid) )
GROUP BY coitem_id, coitem_qty_invuomratio, cohead_number, cohead_cust_id, cohead_billtoname,
itemsite_id, itemsite_item_id, coitem_warranty, coitem_cos_accnt_id, cohead_prj_id, cohead_saletype_id, cohead_shipzone_id
LOOP
IF _c._value > 0 THEN
-- Distribute to G/L, credit Shipping Asset, debit COS
SELECT MIN(insertGLTransaction( 'S/R', 'SH', _shiphead.shiphead_number,
('Ship Order ' || _c.cohead_number || ' for Customer ' || _c.cohead_billtoname),
getPrjAccntId(_c.cohead_prj_id, costcat_shipasset_accnt_id),
CASE WHEN (COALESCE(_c.coitem_cos_accnt_id, -1) != -1)
THEN getPrjAccntId(_c.cohead_prj_id, _c.coitem_cos_accnt_id)
WHEN (_c.coitem_warranty=TRUE)
THEN getPrjAccntId(_c.cohead_prj_id, resolveCOWAccount(itemsite_id, _c.cohead_cust_id, _c.cohead_saletype_id, _c.cohead_shipzone_id))
ELSE getPrjAccntId(_c.cohead_prj_id, resolveCOSAccount(itemsite_id, _c.cohead_cust_id, _c.cohead_saletype_id, _c.cohead_shipzone_id))
END,
-1, _c._value, _gldate )) INTO _result
FROM itemsite, costcat
WHERE ( (itemsite_costcat_id=costcat_id)
AND (itemsite_id=_c.itemsite_id) );
IF (_result < 0 AND _result != -3) THEN -- ignore -3 as it just means it's not posting a 0 value
RETURN _result;
END IF;
END IF;
UPDATE coitem
SET coitem_qtyshipped = (coitem_qtyshipped + _c._qty)
WHERE (coitem_id=_c.coitem_id);
-- check to see if we have more invoiced than shipped items
-- if we do we will need to mark some of these records as invoiced
SELECT noNeg(( SELECT COALESCE(SUM(cobill_qty), 0.0)
FROM cobill, cobmisc, coitem
WHERE ( (cobill_cobmisc_id=cobmisc_id)
AND (cobmisc_cohead_id=coitem_cohead_id)
AND (cobill_coitem_id=coitem_id)
AND (cobmisc_posted)
AND (coitem_id=_c.coitem_id) )
) - ( SELECT COALESCE(SUM(shipitem_qty), 0.0)
FROM shipitem, shiphead, coitem
WHERE ( (shipitem_shiphead_id=shiphead_id)
AND (shiphead_order_id=coitem_cohead_id)
AND (shipitem_orderitem_id=coitem_id)
AND (shiphead_order_type=_shiphead.shiphead_order_type)
AND (shiphead_shipped)
AND (coitem_id=_c.coitem_id) )
) ) INTO _billedQty;
IF (_billedQty > 0.0) THEN
FOR _s IN SELECT shipitem_id, shipitem_qty
FROM shipitem, shiphead
WHERE ( (shipitem_shiphead_id=shiphead_id)
AND (shipitem_orderitem_id=_c.coitem_id)
AND (shiphead_order_type=_shiphead.shiphead_order_type)
AND (NOT shiphead_shipped)
AND (shiphead_id=pshipheadid) )
ORDER BY shipitem_qty LOOP
IF (_billedQty > 0.0) THEN
IF (_billedQty >= _s.shipitem_qty) THEN
UPDATE shipitem SET shipitem_invoiced=TRUE WHERE shipitem_id=_s.shipitem_id;
-- must wait to close coitems until after shiphead_shipped -> true
_lineitemsToClose := _lineitemsToClose || _c.coitem_id;
ELSE
_newQty := _s.shipitem_qty - _billedQty;
UPDATE shipitem SET shipitem_invoiced=TRUE, shipitem_qty=_billedQty WHERE shipitem_id=_s.shipitem_id;
INSERT INTO shipitem ( shipitem_orderitem_id, shipitem_shipdate,
shipitem_qty, shipitem_transdate, shipitem_invoiced,
shipitem_shiphead_id, shipitem_trans_username)
SELECT shipitem_orderitem_id, shipitem_shipdate,
_newQty, shipitem_transdate, FALSE,
shipitem_shiphead_id, shipitem_trans_username
FROM shipitem
WHERE (shipitem_id=_s.shipitem_id);
END IF;
_billedQty := _billedQty - _s.shipitem_qty;
END IF;
END LOOP;
END IF;
END LOOP;
ELSEIF (_shiphead.shiphead_order_type = 'TO') THEN
IF (_shiphead.shiphead_shipped) THEN
RETURN -8;
END IF;
SELECT tohead.* INTO _to
FROM tohead
WHERE (tohead_id=_shiphead.shiphead_order_id);
IF ( _to.tohead_shipcomplete ) THEN
-- use sufficientInventory...()?
FOR _ti IN SELECT (toitem_qty_ordered -
(COALESCE(SUM(shipitem_qty),0) + toitem_qty_shipped)) AS remain
FROM toitem LEFT OUTER JOIN
shipitem ON (shipitem_orderitem_id=toitem_id)
WHERE ((toitem_status<>'X')
AND (toitem_tohead_id=_shiphead.shiphead_order_id))
GROUP BY toitem_qty_shipped, toitem_qty_ordered LOOP
IF (_ti.remain > 0) THEN
RETURN -99;
END IF;
END LOOP;
END IF;
FOR _ti IN SELECT toitem_id, toitem_item_id, SUM(shipitem_qty) AS qty, SUM(shipitem_value) AS value
FROM toitem, shipitem
WHERE ((toitem_tohead_id=_to.tohead_id)
AND (shipitem_orderitem_id=toitem_id)
AND (shipitem_shiphead_id=pshipheadid))
GROUP BY toitem_id, toitem_item_id LOOP
IF (NOT EXISTS(SELECT itemsite_id
FROM itemsite
WHERE ((itemsite_item_id=_ti.toitem_item_id)
AND (itemsite_warehous_id = _to.tohead_trns_warehous_id))
)) THEN
RETURN -6;
END IF;
_itemlocSeries := NEXTVAL('itemloc_series_seq');
SELECT postInvTrans(si.itemsite_id, 'TS', _ti.qty,
'I/M', _shiphead.shiphead_order_type,
formatToNumber(_ti.toitem_id), _to.tohead_number,
'Ship from Src to Transit Warehouse',
tc.costcat_asset_accnt_id,
sc.costcat_shipasset_accnt_id,
_itemlocSeries, _timestamp, _ti.value) INTO _invhistid
FROM itemsite AS ti, costcat AS tc,
itemsite AS si, costcat AS sc
WHERE ( (ti.itemsite_costcat_id=tc.costcat_id)
AND (si.itemsite_costcat_id=sc.costcat_id)
AND (ti.itemsite_item_id=_ti.toitem_item_id)
AND (si.itemsite_item_id=_ti.toitem_item_id)
AND (ti.itemsite_warehous_id=_to.tohead_trns_warehous_id)
AND (si.itemsite_warehous_id=_to.tohead_src_warehous_id) );
--We do not need to distribute lot/serial info for transit, post trans and discard dist detail
PERFORM postIntoTrialBalance(itemlocpost_glseq) FROM itemlocpost WHERE (itemlocpost_itemlocseries=_itemlocSeries);
PERFORM postInvHist(_invhistid);
DELETE FROM itemlocdist WHERE (itemlocdist_series=_itemlocSeries);
DELETE FROM itemlocpost WHERE (itemlocpost_itemlocSeries=_itemlocSeries);
IF (_result < 0) THEN
RETURN _result;
END IF;
-- record inventory history and qoh changes at transit warehouse but
-- there is only one g/l account to touch
SELECT postInvTrans(ti.itemsite_id, 'TR', _ti.qty,
'I/M', _shiphead.shiphead_order_type,
formatToNumber(_ti.toitem_id), _to.tohead_number,
'Receive into Transit from Src Warehouse',
tc.costcat_asset_accnt_id,
tc.costcat_asset_accnt_id,
_itemlocSeries, _timestamp,
_ti.value) INTO _invhistid
FROM itemsite AS ti, costcat AS tc
WHERE ((ti.itemsite_costcat_id=tc.costcat_id)
AND (ti.itemsite_item_id=_ti.toitem_item_id)
AND (ti.itemsite_warehous_id=_to.tohead_trns_warehous_id));
--We do not need to distribute lot/serial info for transit, post trans and discard dist detail
PERFORM postIntoTrialBalance(itemlocpost_glseq) FROM itemlocpost WHERE (itemlocpost_itemlocseries=_itemlocSeries);
PERFORM postInvHist(_invhistid);
DELETE FROM itemlocdist WHERE (itemlocdist_series=_itemlocSeries);
DELETE FROM itemlocpost WHERE (itemlocpost_itemlocSeries=_itemlocSeries);
--See if there was a change in values during the transfer, if so record the variance
SELECT (invhist_invqty * invhist_unitcost - _ti.value) INTO _variance
FROM invhist
WHERE (invhist_id=_invhistid);
IF (_variance > 0) THEN
PERFORM insertGLTransaction( 'S/R', _shiphead.shiphead_order_type, _to.tohead_number,
'Transfer Order - Transfer Variance',
tc.costcat_invcost_accnt_id, tc.costcat_asset_accnt_id, _invhistid,
_variance,
CAST(_timestamp AS DATE) )
FROM itemsite AS ti, costcat AS tc
WHERE ( (ti.itemsite_costcat_id=tc.costcat_id)
AND (ti.itemsite_item_id=_ti.toitem_item_id)
AND (ti.itemsite_warehous_id=_to.tohead_trns_warehous_id) );
END IF;
IF (_result < 0) THEN
RETURN _result;
END IF;
UPDATE shipitem SET shipitem_shipdate=_timestamp, shipitem_shipped=TRUE
WHERE ((shipitem_orderitem_id=_ti.toitem_id)
AND (shipitem_shiphead_id=pshipheadid));
UPDATE toitem
SET toitem_qty_shipped = (toitem_qty_shipped + _ti.qty)
WHERE (toitem_id=_ti.toitem_id);
END LOOP;
END IF;
UPDATE shiphead
SET shiphead_shipped=TRUE, shiphead_shipdate=_gldate
WHERE (shiphead_id=pshipheadid);
-- now try to close line items that are fully shipped and invoiced
IF (_shiphead.shiphead_order_type = 'SO') THEN
UPDATE coitem SET coitem_status='C'
WHERE ((coitem_id = ANY (_lineitemsToClose))
AND (coitem_qtyshipped >= coitem_qtyord));
END IF;
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.shipshipment(integer, timestamp with time zone) OWNER TO admin;
--
-- Name: singlecharacteristicstostring(text, integer, text, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION singlecharacteristicstostring(text, integer, text, text, integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTargetType ALIAS FOR $1;
pTargetId ALIAS FOR $2;
pValKeySep ALIAS FOR $3;
pPairSep ALIAS FOR $4;
pCharId ALIAS FOR $5;
_string TEXT := '';
_extra BOOLEAN := false;
_r RECORD;
BEGIN
FOR _r IN SELECT char_name, charass_value
FROM charass, char
WHERE ((charass_char_id=char_id)
AND (charass_char_id=pCharId)
AND (charass_target_type=pTargetType)
AND (charass_target_id=pTargetId)) LOOP
IF(_extra) THEN
_string := _string || pPairSep;
END IF;
_extra := true;
_string := _string || _r.char_name || pValKeySep || _r.charass_value;
END LOOP;
RETURN _string;
END;
$_$;
ALTER FUNCTION public.singlecharacteristicstostring(text, integer, text, text, integer) OWNER TO admin;
--
-- Name: singlelevelbom(integer, integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION singlelevelbom(integer, integer, integer, integer) RETURNS SETOF bomdata
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pRevisionid ALIAS FOR $2;
pExpiredDays ALIAS FOR $3;
pFutureDays ALIAS FOR $4;
_row bomdata%ROWTYPE;
_bomworksetid INTEGER;
_x RECORD;
_check CHAR(1);
_inactive BOOLEAN;
_batchsize NUMERIC;
BEGIN
_inactive := FALSE;
IF (pRevisionid != -1) THEN
--Is this a deactivated revision?
SELECT rev_status INTO _check
FROM rev
WHERE ((rev_id=pRevisionid)
AND (rev_status='I'));
IF (FOUND) THEN
_inactive := TRUE;
END IF;
END IF;
-- Get the batch quantity
SELECT COALESCE( (
SELECT bomhead_batchsize
FROM bomhead
WHERE ((bomhead_item_id=pItemId)
AND (bomhead_rev_id=pRevisionid))),1) INTO _batchsize;
IF NOT (_inactive) THEN
FOR _x IN
SELECT bomitem_id, bomitem_seqnumber, bomitem_seqnumber AS f_bomitem_seqnumber,
item_id, item_number, uom_name,
item_descrip1, item_descrip2,
(item_descrip1 || ' ' || item_descrip2) AS itemdescription,
(itemuomtouomratio(bomitem_item_id, bomitem_uom_id, NULL) * bomitem_qtyfxd) AS qtyfxd,
(itemuomtouomratio(bomitem_item_id, bomitem_uom_id, NULL) * bomitem_qtyper) AS qtyper,
bomitem_scrap, bomitem_createwo,
CASE WHEN (bomitem_issuemethod='S') THEN 'Push'
WHEN (bomitem_issuemethod='L') THEN 'Pull'
WHEN (bomitem_issuemethod='M') THEN 'Mixed'
ELSE 'Special'
END AS issuemethod,
bomitem_effective, bomitem_expires,
CASE WHEN (bomitem_expires <= CURRENT_DATE) THEN TRUE
ELSE FALSE
END AS expired,
CASE WHEN (bomitem_effective > CURRENT_DATE) THEN TRUE
ELSE FALSE
END AS future,
actcost(bomitem_item_id, bomitem_id) AS actunitcost,
stdcost(bomitem_item_id, bomitem_id) AS stdunitcost,
CASE WHEN item_type NOT IN ('R','T') THEN
itemuomtouom(bomitem_item_id, bomitem_uom_id, NULL,
(bomitem_qtyfxd/_batchsize + bomitem_qtyper) * (1 + bomitem_scrap), 'qtyper') * actcost(bomitem_item_id, bomitem_id)
ELSE 0.0 END AS actextendedcost,
CASE WHEN item_type NOT IN ('R','T') THEN
itemuomtouom(bomitem_item_id, bomitem_uom_id, NULL,
(bomitem_qtyfxd/_batchsize + bomitem_qtyper) * (1 + bomitem_scrap), 'qtyper') * stdcost(bomitem_item_id, bomitem_id)
ELSE 0.0 END AS stdextendedcost,
bomitem_char_id, bomitem_value, bomitem_notes, bomitem_ref
FROM bomitem(pItemid,pRevisionid), item, uom
WHERE ( (item_inv_uom_id=uom_id)
AND (bomitem_item_id=item_id)
AND (bomitem_expires > (CURRENT_DATE - pExpiredDays))
AND (bomitem_effective <= (CURRENT_DATE + pFutureDays)) )
UNION
SELECT -1, -1, NULL, -1, costelem_type AS bomdata_item_number, '',
'', '',
'',
NULL,
NULL,
NULL, NULL,
NULL,
NULL, NULL,
false,false,
currToBase(itemcost_curr_id, itemcost_actcost, CURRENT_DATE) AS actunitcost,
itemcost_stdcost AS stdunitcost,
currToBase(itemcost_curr_id, itemcost_actcost, CURRENT_DATE) AS actextendedcost,
itemcost_stdcost AS stdextendedcost,
NULL, NULL, NULL, NULL
FROM itemcost, costelem
WHERE ( (itemcost_costelem_id=costelem_id)
AND (NOT itemcost_lowlevel)
AND (itemcost_item_id=pItemid) )
ORDER BY bomitem_seqnumber, bomitem_effective, item_number
LOOP
_row.bomdata_bomitem_id := _x.bomitem_id;
_row.bomdata_bomwork_seqnumber := _x.f_bomitem_seqnumber;
_row.bomdata_item_id := _x.item_id;
_row.bomdata_item_number := _x.item_number;
_row.bomdata_uom_name := _x.uom_name;
_row.bomdata_item_descrip1 := _x.item_descrip1;
_row.bomdata_item_descrip2 := _x.item_descrip2;
_row.bomdata_itemdescription := _x.itemdescription;
_row.bomdata_batchsize := _batchsize;
_row.bomdata_qtyfxd := _x.qtyfxd;
_row.bomdata_qtyper := _x.qtyper;
_row.bomdata_scrap := _x.bomitem_scrap;
_row.bomdata_createchild := _x.bomitem_createwo;
_row.bomdata_issuemethod := _x.issuemethod;
_row.bomdata_effective := _x.bomitem_effective;
_row.bomdata_expires := _x.bomitem_expires;
_row.bomdata_expired := _x.expired;
_row.bomdata_future := _x.future;
_row.bomdata_actunitcost := _x.actunitcost;
_row.bomdata_stdunitcost := _x.stdunitcost;
_row.bomdata_actextendedcost := _x.actextendedcost;
_row.bomdata_stdextendedcost := _x.stdextendedcost;
_row.bomdata_char_id := _x.bomitem_char_id;
_row.bomdata_value := _x.bomitem_value;
_row.bomdata_notes := _x.bomitem_notes;
_row.bomdata_ref := _x.bomitem_ref;
RETURN NEXT _row;
END LOOP;
ELSE
-- Use historical snapshot for inactive revisions
FOR _x IN
SELECT bomitem_id, bomitem_seqnumber, bomitem_seqnumber AS f_bomitem_seqnumber,
item_id, item_number, uom_name,
item_descrip1, item_descrip2,
(item_descrip1 || ' ' || item_descrip2) AS itemdescription,
(itemuomtouomratio(bomitem_item_id, bomitem_uom_id, NULL) * bomitem_qtyfxd) AS qtyfxd,
(itemuomtouomratio(bomitem_item_id, bomitem_uom_id, NULL) * bomitem_qtyper) AS qtyper,
bomitem_scrap, bomitem_createwo,
CASE WHEN (bomitem_issuemethod='S') THEN 'Push'
WHEN (bomitem_issuemethod='L') THEN 'Pull'
WHEN (bomitem_issuemethod='M') THEN 'Mixed'
ELSE 'Special'
END AS issuemethod,
bomitem_effective, bomitem_expires,
CASE WHEN (bomitem_expires <= CURRENT_DATE) THEN TRUE
ELSE FALSE
END AS expired,
CASE WHEN (bomitem_effective > CURRENT_DATE) THEN TRUE
ELSE FALSE
END AS future,
actcost(bomitem_item_id) AS actunitcost,
stdcost(bomitem_item_id) AS stdunitcost,
CASE WHEN item_type NOT IN ('R','T') THEN
itemuomtouom(bomitem_item_id, bomitem_uom_id, NULL,
(bomitem_qtyfxd/_batchsize + bomitem_qtyper) * (1 + bomitem_scrap), 'qtyper') * actcost(bomitem_item_id)
ELSE 0.0 END AS actextendedcost,
CASE WHEN item_type NOT IN ('R','T') THEN
itemuomtouom(bomitem_item_id, bomitem_uom_id, NULL,
(bomitem_qtyfxd/_batchsize + bomitem_qtyper) * (1 + bomitem_scrap), 'qtyper') * stdcost(bomitem_item_id)
ELSE 0.0 END AS stdextendedcost,
bomitem_char_id, bomitem_value, bomitem_notes, bomitem_ref
FROM bomitem(pItemid,pRevisionid), item, uom
WHERE ( (item_inv_uom_id=uom_id)
AND (bomitem_item_id=item_id)
AND (bomitem_expires > (CURRENT_DATE - pExpiredDays))
AND (bomitem_effective <= (CURRENT_DATE + pFutureDays)) )
UNION
SELECT -1, -1, NULL, -1, costelem_type AS bomdata_item_number, '',
'', '',
'',
NULL,
NULL,
NULL, NULL,
NULL,
NULL, NULL,
false,false,
bomhist_actunitcost AS actunitcost,
bomhist_stdunitcost AS stdunitcost,
bomhist_actunitcost AS actextendedcost,
bomhist_stdunitcost AS stdextendedcost,
NULL, NULL, NULL, NULL
FROM bomhist, costelem
WHERE ( (bomhist_item_id=costelem_id)
AND (bomhist_item_type='E')
AND (bomhist_rev_id=pRevisionid) )
ORDER BY bomitem_seqnumber, bomitem_effective, item_number
LOOP
_row.bomdata_bomitem_id := _x.bomitem_id;
_row.bomdata_bomwork_seqnumber := _x.f_bomitem_seqnumber;
_row.bomdata_item_id := _x.item_id;
_row.bomdata_item_number := _x.item_number;
_row.bomdata_uom_name := _x.uom_name;
_row.bomdata_item_descrip1 := _x.item_descrip1;
_row.bomdata_item_descrip2 := _x.item_descrip2;
_row.bomdata_itemdescription := _x.itemdescription;
_row.bomdata_batchsize := _batchsize;
_row.bomdata_qtyfxd := _x.qtyfxd;
_row.bomdata_qtyper := _x.qtyper;
_row.bomdata_scrap := _x.bomitem_scrap;
_row.bomdata_createchild := _x.bomitem_createwo;
_row.bomdata_issuemethod := _x.issuemethod;
_row.bomdata_effective := _x.bomitem_effective;
_row.bomdata_expires := _x.bomitem_expires;
_row.bomdata_expired := _x.expired;
_row.bomdata_future := _x.future;
_row.bomdata_actunitcost := _x.actunitcost;
_row.bomdata_stdunitcost := _x.stdunitcost;
_row.bomdata_actextendedcost := _x.actextendedcost;
_row.bomdata_stdextendedcost := _x.stdextendedcost;
_row.bomdata_char_id := _x.bomitem_char_id;
_row.bomdata_value := _x.bomitem_value;
_row.bomdata_notes := _x.bomitem_notes;
_row.bomdata_ref := _x.bomitem_ref;
RETURN NEXT _row;
END LOOP;
END IF;
RETURN;
END;
$_$;
ALTER FUNCTION public.singlelevelbom(integer, integer, integer, integer) OWNER TO admin;
--
-- Name: site(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION site() RETURNS SETOF whsinfo
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_row whsinfo%ROWTYPE;
_r RECORD;
BEGIN
IF ( (fetchMetricBool('MultiWhs')) AND
(SELECT (COUNT(usrpref_id)=1)
FROM usrpref
WHERE ((usrpref_name='selectedSites')
AND (usrpref_value='t')
AND (usrpref_username=getEffectiveXtUser()))) ) THEN
FOR _r IN SELECT *
FROM whsinfo,usrsite
WHERE ((warehous_id=usrsite_warehous_id)
AND (usrsite_username=getEffectiveXtUser()))
LOOP
_row.warehous_id:=_r.warehous_id;
_row.warehous_code:=_r.warehous_code;
_row.warehous_descrip:=_r.warehous_descrip;
_row.warehous_fob:=_r.warehous_fob;
_row.warehous_active:=_r.warehous_active;
_row.warehous_counttag_prefix:=_r.warehous_counttag_prefix;
_row.warehous_counttag_number:=_r.warehous_counttag_number;
_row.warehous_bol_prefix:=_r.warehous_bol_prefix;
_row.warehous_bol_number:=_r.warehous_bol_number;
_row.warehous_shipping:=_r.warehous_shipping;
_row.warehous_useslips:=_r.warehous_useslips;
_row.warehous_usezones:=_r.warehous_usezones;
_row.warehous_aislesize:=_r.warehous_aislesize;
_row.warehous_racksize:=_r.warehous_racksize;
_row.warehous_binsize:=_r.warehous_binsize;
_row.warehous_binalpha:=_r.warehous_binalpha;
_row.warehous_locationsize:=_r.warehous_locationsize;
_row.warehous_locationalpha:=_r.warehous_locationalpha;
_row.warehous_enforcearbl:=_r.warehous_enforcearbl;
_row.warehous_default_accnt_id:=_r.warehous_default_accnt_id;
_row.warehous_shipping_commission:=_r.warehous_shipping_commission;
_row.warehous_cntct_id:=_r.warehous_cntct_id;
_row.warehous_addr_id:=_r.warehous_addr_id;
_row.warehous_taxzone_id:=_r.warehous_taxzone_id;
_row.warehous_transit:=_r.warehous_transit;
_row.warehous_shipform_id:=_r.warehous_shipform_id;
_row.warehous_shipvia_id:=_r.warehous_shipvia_id;
_row.warehous_shipcomments:=_r.warehous_shipcomments;
_row.warehous_costcat_id:=_r.warehous_costcat_id;
_row.warehous_sitetype_id:=_r.warehous_sitetype_id;
RETURN NEXT _row;
END LOOP;
ELSE
FOR _r IN SELECT *
FROM whsinfo
LOOP
_row.warehous_id:=_r.warehous_id;
_row.warehous_code:=_r.warehous_code;
_row.warehous_descrip:=_r.warehous_descrip;
_row.warehous_fob:=_r.warehous_fob;
_row.warehous_active:=_r.warehous_active;
_row.warehous_counttag_prefix:=_r.warehous_counttag_prefix;
_row.warehous_counttag_number:=_r.warehous_counttag_number;
_row.warehous_bol_prefix:=_r.warehous_bol_prefix;
_row.warehous_bol_number:=_r.warehous_bol_number;
_row.warehous_shipping:=_r.warehous_shipping;
_row.warehous_useslips:=_r.warehous_useslips;
_row.warehous_usezones:=_r.warehous_usezones;
_row.warehous_aislesize:=_r.warehous_aislesize;
_row.warehous_racksize:=_r.warehous_racksize;
_row.warehous_binsize:=_r.warehous_binsize;
_row.warehous_binalpha:=_r.warehous_binalpha;
_row.warehous_locationsize:=_r.warehous_locationsize;
_row.warehous_locationalpha:=_r.warehous_locationalpha;
_row.warehous_enforcearbl:=_r.warehous_enforcearbl;
_row.warehous_default_accnt_id:=_r.warehous_default_accnt_id;
_row.warehous_shipping_commission:=_r.warehous_shipping_commission;
_row.warehous_cntct_id:=_r.warehous_cntct_id;
_row.warehous_addr_id:=_r.warehous_addr_id;
_row.warehous_taxzone_id:=_r.warehous_taxzone_id;
_row.warehous_transit:=_r.warehous_transit;
_row.warehous_shipform_id:=_r.warehous_shipform_id;
_row.warehous_shipvia_id:=_r.warehous_shipvia_id;
_row.warehous_shipcomments:=_r.warehous_shipcomments;
_row.warehous_costcat_id:=_r.warehous_costcat_id;
_row.warehous_sitetype_id:=_r.warehous_sitetype_id;
RETURN NEXT _row;
END LOOP;
END IF;
RETURN;
END;
$$;
ALTER FUNCTION public.site() OWNER TO admin;
--
-- Name: snoozemessage(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION snoozemessage(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pMsgid ALIAS FOR $1;
snooze INTERVAL := '10 minutes';
BEGIN
UPDATE msg
SET msg_scheduled=(msg_scheduled + snooze)
WHERE (msg_id=pMsgid);
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.snoozemessage(integer) OWNER TO admin;
--
-- Name: spellamount(numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION spellamount(numeric) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN spellAmount($1, baseCurrId());
END;
$_$;
ALTER FUNCTION public.spellamount(numeric) OWNER TO admin;
--
-- Name: spellamount(numeric, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION spellamount(numeric, integer) RETURNS text
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pN ALIAS FOR $1;
pCurrId ALIAS FOR $2;
_t text;
_dollars text;
_cents text;
_l integer;
_p integer;
_words text;
_word text;
_hundreds char;
_tens char;
_ones char;
_fractionalPartName text;
_curr curr_symbol%ROWTYPE;
BEGIN
_t := ltrim(to_char(pN, '999999999990D99'),' ');
IF strpos(_t, '.') > 0 THEN
_dollars := split_part(_t, '.', 1);
_cents := split_part(_t, '.', 2);
ELSIF strpos(_t, ',') > 0 THEN
_dollars := split_part(_t, ',', 1);
_cents := split_part(_t, ',', 2);
END IF;
_p := 0;
_l := length(_dollars);
_words := '';
WHILE (_p < _l) LOOP
IF((_l - _p - 2) < 1) THEN
_hundreds := '0';
ELSE
_hundreds := substr(_dollars, _l - _p - 2, 1);
END IF;
IF((_l - _p - 1) < 1) THEN
_tens := '0';
ELSE
_tens := substr(_dollars, _l - _p - 1, 1);
END IF;
IF((_l - _p) < 1) THEN
_ones := '0';
ELSE
_ones := substr(_dollars, _l - _p, 1);
END IF;
IF(_hundreds != '0' OR _tens != '0' OR _ones != '0') THEN
IF (_p = 3) THEN
_words := 'thousand ' || _words;
ELSIF (_p = 6) THEN
_words := 'million ' || _words;
ELSIF (_p = 9) THEN
_words := 'billion ' || _words;
END IF;
_word := '';
IF(_tens = '1') THEN
IF(_ones = '0') THEN
_word := 'ten';
ELSIF(_ones = '1') THEN
_word := 'eleven';
ELSIF(_ones = '2') THEN
_word := 'twelve';
ELSIF(_ones = '3') THEN
_word := 'thirteen';
ELSIF(_ones = '4') THEN
_word := 'fourteen';
ELSIF(_ones = '5') THEN
_word := 'fifteen';
ELSIF(_ones = '6') THEN
_word := 'sixteen';
ELSIF(_ones = '7') THEN
_word := 'seventeen';
ELSIF(_ones = '8') THEN
_word := 'eighteen';
ELSIF(_ones = '9') THEN
_word := 'nineteen';
ELSE
_word := 'ERROR';
END IF;
ELSE
IF(_ones = '1') THEN
_word := 'one';
ELSIF(_ones = '2') THEN
_word := 'two';
ELSIF(_ones = '3') THEN
_word := 'three';
ELSIF(_ones = '4') THEN
_word := 'four';
ELSIF(_ones = '5') THEN
_word := 'five';
ELSIF(_ones = '6') THEN
_word := 'six';
ELSIF(_ones = '7') THEN
_word := 'seven';
ELSIF(_ones = '8') THEN
_word := 'eight';
ELSIF(_ones = '9') THEN
_word := 'nine';
ELSIF(_ones != '0') THEN
_word := 'ERROR';
END IF;
if(_tens != '0') THEN
_word := '-' || _word;
END IF;
IF(_tens = '2') THEN
_word := 'twenty' || _word;
ELSIF(_tens = '3') THEN
_word := 'thirty' || _word;
ELSIF(_tens = '4') THEN
_word := 'forty' || _word;
ELSIF(_tens = '5') THEN
_word := 'fifty' || _word;
ELSIF(_tens = '6') THEN
_word := 'sixty' || _word;
ELSIF(_tens = '7') THEN
_word := 'seventy' || _word;
ELSIF(_tens = '8') THEN
_word := 'eighty' || _word;
ELSIF(_tens = '9') THEN
_word := 'ninety' || _word;
ELSIF(_tens != '0' AND _tens != '1') THEN
_word := 'ERROR' || _word;
END IF;
END IF;
if(_word != '') THEN
_words := _word || ' ' || _words;
END IF;
_word := '';
IF(_hundreds = '1') THEN
_word := 'one hundred';
ELSIF(_hundreds = '2') THEN
_word := 'two hundred';
ELSIF(_hundreds = '3') THEN
_word := 'three hundred';
ELSIF(_hundreds = '4') THEN
_word := 'four hundred';
ELSIF(_hundreds = '5') THEN
_word := 'five hundred';
ELSIF(_hundreds = '6') THEN
_word := 'six hundred';
ELSIF(_hundreds = '7') THEN
_word := 'seven hundred';
ELSIF(_hundreds = '8') THEN
_word := 'eight hundred';
ELSIF(_hundreds = '9') THEN
_word := 'nine hundred';
ELSIF(_hundreds != '0') THEN
_words := 'ERROR';
END IF;
if(_word != '') THEN
_words := _word || ' ' || _words;
END IF;
END IF;
_p := _p + 3;
END LOOP;
_words := rtrim(_words, ' ');
IF(_words = '') THEN
_words := 'zero';
END IF;
SELECT * INTO _curr
FROM curr_symbol
WHERE curr_id = pCurrId;
IF(_words = 'one') AND TRIM(_curr.curr_name) ~ '.*s' THEN
_word := rtrim(_curr.curr_name, ' s');
ELSE
_word := trim(_curr.curr_name);
END IF;
IF _curr.curr_abbr = 'USD' OR _curr.curr_abbr = 'CAD' THEN
IF (_cents = '1') THEN
_fractionalPartName = ' cent';
ELSE
_fractionalPartName = ' cents';
END IF;
ELSE
_fractionalPartName = ' / 100 ';
END IF;
RETURN _words || ' ' || _word || ' and ' || _cents || _fractionalPartName;
END;
$_$;
ALTER FUNCTION public.spellamount(numeric, integer) OWNER TO admin;
--
-- Name: splitreceipt(integer, numeric, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION splitreceipt(integer, numeric, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
precvid ALIAS FOR $1;
pqty ALIAS FOR $2;
pfreight ALIAS FOR $3;
_check RECORD;
_seq INTEGER;
BEGIN
-- validate
IF (COALESCE(pQty,0) <= 0) THEN
RETURN -7;
END IF;
SELECT * INTO _check
FROM recv
WHERE (recv_id=precvid);
IF (FOUND) THEN
IF (_check.recv_order_type != 'PO') THEN
RETURN -1;
ELSIF ( NOT _check.recv_posted) THEN
RETURN -2;
ELSIF ( (_check.recv_invoiced)
OR (_check.recv_vohead_id IS NOT NULL)
OR (_check.recv_voitem_id IS NOT NULL) ) THEN
RETURN -3;
ELSIF (pqty >= _check.recv_qty) THEN
RETURN -4;
ELSIF (COALESCE(pfreight,0) > _check.recv_freight) THEN
RETURN -5;
END IF;
ELSE
RETURN -6;
END IF;
-- Create new receipt record
_seq := nextval('recv_recv_id_seq');
INSERT INTO recv
SELECT _seq, recv_order_type,recv_order_number,
recv_orderitem_id, recv_agent_username, recv_itemsite_id, recv_vend_id,
recv_vend_item_number, recv_vend_item_descrip, recv_vend_uom,
recv_purchcost, recv_purchcost_curr_id, recv_duedate, pqty,
recv_recvcost, recv_recvcost_curr_id, COALESCE(pfreight,0), recv_freight_curr_id, recv_date,
ROUND(recv_value/recv_qty * pqty, 2), TRUE, FALSE, NULL, NULL,
recv_trans_usr_name, recv_notes, recv_gldistdate, precvid
FROM recv
WHERE (recv_id=precvid);
-- Update qty and value of old record
UPDATE recv SET
recv_qty = recv_qty-pqty,
recv_value = recv_value - ROUND(recv_value/recv_qty * pqty, 2),
recv_freight = recv_freight - COALESCE(pfreight,0)
WHERE (recv_id=precvid);
RETURN _seq;
END;
$_$;
ALTER FUNCTION public.splitreceipt(integer, numeric, numeric) OWNER TO admin;
--
-- Name: splitrecurrence(integer, text, timestamp with time zone); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION splitrecurrence(integer, text, timestamp with time zone) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pParentid ALIAS FOR $1;
pType TEXT := UPPER($2);
pDatetime TIMESTAMP WITH TIME ZONE := COALESCE($3, CURRENT_TIMESTAMP);
_count INTEGER;
_newrecurid INTEGER;
_newparentid INTEGER;
_newparentstmt TEXT;
_rt RECORD;
_updchildstmt TEXT;
BEGIN
IF (pParentid IS NULL) THEN
RETURN -11;
END IF;
SELECT * INTO _rt FROM recurtype WHERE (UPPER(recurtype_type)=pType);
GET DIAGNOSTICS _count = ROW_COUNT;
IF (_count <= 0) THEN
RETURN -10;
END IF;
_newparentstmt := 'SELECT [table]_id FROM [fulltable]'
|| ' WHERE (([table]_recurring_[table]_id=$1)'
|| ' AND NOT ([done])'
|| ' AND ([schedcol]>=''$2''))'
|| ' ORDER BY [schedcol]'
|| ' LIMIT 1;';
_newparentstmt := REPLACE(_newparentstmt, '[fulltable]', _rt.recurtype_table);
_newparentstmt := REPLACE(_newparentstmt, '[table]',
REGEXP_REPLACE(_rt.recurtype_table, E'.*\\.', ''));
_newparentstmt := REPLACE(_newparentstmt, '[done]', _rt.recurtype_donecheck);
_newparentstmt := REPLACE(_newparentstmt, '[schedcol]', _rt.recurtype_schedcol);
_updchildstmt := 'UPDATE [fulltable] SET [table]_recurring_[table]_id=$1'
|| ' WHERE (([table]_recurring_[table]_id=$2)'
|| ' AND NOT ([done])'
|| ' AND ([schedcol] > ''$3''));';
_updchildstmt := REPLACE(_updchildstmt, '[fulltable]', _rt.recurtype_table);
_updchildstmt := REPLACE(_updchildstmt, '[table]',
REGEXP_REPLACE(_rt.recurtype_table, E'.*\\.', ''));
_updchildstmt := REPLACE(_updchildstmt, '[done]', _rt.recurtype_donecheck);
_updchildstmt := REPLACE(_updchildstmt, '[schedcol]', _rt.recurtype_schedcol);
-- 8.4+: EXECUTE _newparentstmt INTO _newparentid USING pParentid, pDatetime;
EXECUTE REPLACE(REPLACE(_newparentstmt, '$1', pParentid::TEXT),
'$2', pDatetime::TEXT)
INTO _newparentid;
-- if nothing to split
IF (_newparentid = pParentid OR _newparentid IS NULL) THEN
SELECT recur_id INTO _newrecurid
FROM recur
WHERE ((recur_parent_id=pParentid)
AND (recur_parent_type=pType));
ELSE
INSERT INTO recur (recur_parent_id, recur_parent_type, recur_period,
recur_freq, recur_start, recur_end,
recur_max, recur_data
) SELECT _newparentid, pType, recur_period,
recur_freq, pDatetime, recur_end,
recur_max, recur_data
FROM recur
WHERE ((recur_parent_id=pParentid)
AND (recur_parent_type=pType))
RETURNING recur_id INTO _newrecurid;
UPDATE recur SET recur_end=pDatetime
WHERE ((recur_parent_id=pParentid)
AND (recur_parent_type=pType));
-- 8.4+: EXECUTE _updchildstmt USING _newparentid, pParentid, pDatetime;
EXECUTE REPLACE(REPLACE(REPLACE(_updchildstmt, '$1', _newparentid::TEXT),
'$2', pParentid::TEXT),
'$3', pDatetime::TEXT);
END IF;
RETURN _newrecurid;
END;
$_$;
ALTER FUNCTION public.splitrecurrence(integer, text, timestamp with time zone) OWNER TO admin;
--
-- Name: startoftime(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION startoftime() RETURNS date
LANGUAGE sql IMMUTABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT DATE('1970-01-01') AS return;
$$;
ALTER FUNCTION public.startoftime() OWNER TO admin;
--
-- Name: stdcost(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION stdcost(integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN stdCost($1, NULL);
END;
$_$;
ALTER FUNCTION public.stdcost(integer) OWNER TO admin;
--
-- Name: stdcost(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION stdcost(integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pBomitemid ALIAS FOR $2;
_cost NUMERIC;
BEGIN
SELECT SUM(COALESCE(bomitemcost_stdcost, itemcost_stdcost)) INTO _cost
FROM itemcost
LEFT OUTER JOIN bomitemcost ON (bomitemcost_bomitem_id=pBomitemid AND bomitemcost_costelem_id=itemcost_costelem_id)
WHERE (itemcost_item_id=pItemid);
IF (_cost IS NULL) THEN
RETURN 0;
ELSE
RETURN _cost;
END IF;
END;
$_$;
ALTER FUNCTION public.stdcost(integer, integer) OWNER TO admin;
--
-- Name: sufficientinventorytoshipitem(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION sufficientinventorytoshipitem(text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pordertype ALIAS FOR $1;
porderitemid ALIAS FOR $2;
BEGIN
RETURN sufficientInventoryToShipItem(pordertype, porderitemid, NULL);
END;
$_$;
ALTER FUNCTION public.sufficientinventorytoshipitem(text, integer) OWNER TO admin;
--
-- Name: sufficientinventorytoshipitem(text, integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION sufficientinventorytoshipitem(text, integer, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pordertype ALIAS FOR $1;
porderitemid ALIAS FOR $2;
pqty ALIAS FOR $3;
_returnVal INTEGER;
_isqtyavail BOOLEAN;
BEGIN
IF (porderitemid IS NULL) THEN
RETURN -1;
END IF;
IF (pordertype = 'SO') THEN
IF ( SELECT fetchMetricBool('EnableSOReservations') ) THEN
IF (SELECT (itemsite_costmethod = 'J')
FROM coitem JOIN itemsite ON (coitem_itemsite_id=itemsite_id)
WHERE (coitem_id=porderitemid)) THEN
RETURN 0;
END IF;
SELECT (((COALESCE(pqty, roundQty(item_fractional,
noNeg(coitem_qtyord - coitem_qtyshipped +
coitem_qtyreturned - qtyAtShipping(pordertype, coitem_id)
))) - coitem_qtyreserved) * coitem_qty_invuomratio
) <= itemsite_qtyonhand)
AND
(((COALESCE(pqty, roundQty(item_fractional,
noNeg(coitem_qtyord - coitem_qtyshipped +
coitem_qtyreturned - qtyAtShipping(pordertype, coitem_id)
))) - coitem_qtyreserved) * coitem_qty_invuomratio
) <= qtyunreserved(itemsite_id))
INTO _isqtyavail
FROM coitem, itemsite, item
WHERE ((coitem_itemsite_id=itemsite_id)
AND (coitem_status <> 'X')
AND (NOT ((item_type IN ('R','J')) OR (itemsite_controlmethod = 'N')))
AND (itemsite_item_id=item_id)
AND (coitem_id=porderitemid));
ELSE
SELECT (COALESCE(pqty, roundQty(item_fractional,
noNeg(coitem_qtyord - coitem_qtyshipped +
coitem_qtyreturned - qtyAtShipping(pordertype, coitem_id) - coitem_qtyreserved
) * coitem_qty_invuomratio
)
) <= itemsite_qtyonhand)
INTO _isqtyavail
FROM coitem, itemsite, item
WHERE ((coitem_itemsite_id=itemsite_id)
AND (coitem_status <> 'X')
AND (NOT ((item_type IN ('R','J')) OR (itemsite_controlmethod = 'N')))
AND (itemsite_item_id=item_id)
AND (coitem_id=porderitemid));
END IF;
ELSEIF (pordertype = 'TO') THEN
SELECT (COALESCE(pqty, roundQty(item_fractional,
noNeg(toitem_qty_ordered - toitem_qty_shipped -
qtyAtShipping(pordertype, toitem_id)
)
)
) <= itemsite_qtyonhand) INTO _isqtyavail
FROM toitem, tohead, itemsite, item
WHERE ((toitem_tohead_id=tohead_id)
AND (tohead_src_warehous_id=itemsite_warehous_id)
AND (toitem_item_id=itemsite_item_id)
AND (itemsite_warehous_id=tohead_src_warehous_id)
AND (itemsite_item_id=item_id)
AND (toitem_status <> 'X')
AND (NOT ((item_type IN ('R','J')) OR (itemsite_controlmethod = 'N')))
AND (toitem_id=porderitemid));
ELSE
RETURN -11;
END IF;
IF (NOT _isqtyavail) THEN
RETURN -2;
END IF;
IF (pordertype = 'SO') THEN
SELECT (COALESCE((SELECT SUM(itemloc_qty)
FROM itemloc
WHERE (itemloc_itemsite_id=itemsite_id)), 0.0) >= roundQty(item_fractional,
COALESCE(pQty, noNeg( coitem_qtyord - coitem_qtyshipped + coitem_qtyreturned -
qtyAtShipping(pordertype, coitem_id) )) * coitem_qty_invuomratio
)) INTO _isqtyavail
FROM coitem, itemsite, item
WHERE ((coitem_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (NOT ((item_type ='R') OR (itemsite_controlmethod = 'N')))
AND ((itemsite_controlmethod IN ('L', 'S')) OR (itemsite_loccntrl))
AND (coitem_id=porderitemid));
ELSEIF (pordertype = 'TO') THEN
SELECT (COALESCE((SELECT SUM(itemloc_qty)
FROM itemloc
WHERE (itemloc_itemsite_id=itemsite_id)), 0.0) >= roundQty(item_fractional,
noNeg( toitem_qty_ordered - toitem_qty_shipped -
qtyAtShipping(pordertype, toitem_id) )
)) INTO _isqtyavail
FROM toitem, tohead, itemsite, item
WHERE ((toitem_tohead_id=tohead_id)
AND (tohead_src_warehous_id=itemsite_warehous_id)
AND (toitem_item_id=itemsite_item_id)
AND (itemsite_item_id=item_id)
AND (toitem_status <> 'X')
AND (NOT ((item_type ='R') OR (itemsite_costmethod = 'J') OR (itemsite_controlmethod = 'N')))
AND ((itemsite_controlmethod IN ('L', 'S')) OR (itemsite_loccntrl))
AND (toitem_id=porderitemid));
END IF;
IF (NOT _isqtyavail) THEN
RETURN -3;
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.sufficientinventorytoshipitem(text, integer, numeric) OWNER TO admin;
--
-- Name: sufficientinventorytoshiporder(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION sufficientinventorytoshiporder(text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pordertype ALIAS FOR $1;
porderid ALIAS FOR $2;
_s RECORD;
_returnVal INTEGER := 0;
BEGIN
IF (pordertype = 'SO') THEN
FOR _s IN SELECT coitem_id
FROM coitem
JOIN itemsite ON (coitem_itemsite_id=itemsite_id)
WHERE((coitem_cohead_id=porderid)
AND (itemsite_costmethod != 'J')) LOOP
_returnVal := sufficientInventoryToShipItem(pordertype, _s.coitem_id);
EXIT WHEN (_returnVal < 0);
END LOOP;
ELSEIF (pordertype = 'TO') THEN
FOR _s IN SELECT toitem_id
FROM toitem
WHERE(toitem_tohead_id=porderid) LOOP
_returnVal := sufficientInventoryToShipItem(pordertype, _s.toitem_id);
EXIT WHEN (_returnVal < 0);
END LOOP;
END IF;
RETURN _returnVal;
END;
$_$;
ALTER FUNCTION public.sufficientinventorytoshiporder(text, integer) OWNER TO admin;
--
-- Name: summarizedbom(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summarizedbom(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
_revid INTEGER;
BEGIN
SELECT getActiveRevId('BOM',pItemid) INTO _revid;
RETURN summarizedBOM(pItemid, _revid);
END;
$_$;
ALTER FUNCTION public.summarizedbom(integer) OWNER TO admin;
--
-- Name: summarizedbom(integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summarizedbom(integer, integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pExpired ALIAS FOR $2;
pFuture ALIAS FOR $3;
_revid INTEGER;
BEGIN
SELECT getActiveRevId('BOM',pItemid) INTO _revid;
RETURN summarizedBOM(pItemid, _revid, pExpired, pFuture);
END;
$_$;
ALTER FUNCTION public.summarizedbom(integer, integer, integer) OWNER TO admin;
--
-- Name: summarizedbom(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summarizedbom(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pRevisionid ALIAS FOR $2;
_bomworkid INTEGER;
_indexid INTEGER;
_r RECORD;
BEGIN
-- Check on the temporary workspace
-- PERFORM maintainBOMWorkspace();
-- Grab a new index for this bomwork set
SELECT NEXTVAL('misc_index_seq') INTO _indexid;
-- Step through all of the components of the passed pItemid
FOR _r IN SELECT bomitem.*,
item_id,
(itemuomtouomratio(bomitem_item_id, bomitem_uom_id, NULL)
* bomitem_qtyfxd) AS qtyfxd,
(itemuomtouomratio(bomitem_item_id, bomitem_uom_id, NULL)
* bomitem_qtyper) AS qtyper,
stdcost(item_id, bomitem_id) AS standardcost,
actcost(item_id, bomitem_id) AS actualcost
FROM bomitem(pItemid, pRevisionid), item
WHERE (bomitem_item_id=item_id) LOOP
-- Insert the component and bomitem parameters
SELECT NEXTVAL('bomwork_bomwork_id_seq') INTO _bomworkid;
INSERT INTO bomwork
( bomwork_id, bomwork_set_id, bomwork_parent_id, bomwork_level,
bomwork_parent_seqnumber, bomwork_seqnumber,
bomwork_item_id, bomwork_createwo, bomwork_qtyreq,
bomwork_qtyfxd, bomwork_qtyper, bomwork_scrap, bomwork_issuemethod,
bomwork_effective, bomwork_expires,
bomwork_stdunitcost, bomwork_actunitcost )
VALUES
( _bomworkid, _indexid, -1, 1,
0, _r.bomitem_seqnumber,
_r.item_id, _r.bomitem_createwo, (_r.qtyfxd + _r.qtyper),
_r.qtyfxd, _r.qtyper, _r.bomitem_scrap, _r.bomitem_issuemethod,
_r.bomitem_effective, _r.bomitem_expires,
_r.standardcost, _r.actualcost,
_r.bomitem_char_id, _r.bomitem_value, _r.bomitem_notes, _r.bomitem_ref,
_r.bomitem_id, _r.bomitem_ecn );
-- Explode the components of the current component
PERFORM explodeBOM(_r.item_id, _bomworkid, 1);
END LOOP;
-- Return a key to the result
RETURN _indexid;
END;
$_$;
ALTER FUNCTION public.summarizedbom(integer, integer) OWNER TO admin;
--
-- Name: summarizedbom(integer, integer, integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summarizedbom(integer, integer, integer, integer) RETURNS SETOF bomdata
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pRevisionid ALIAS FOR $2;
pExpiredDays INTEGER := COALESCE($3, 0);
pFutureDays INTEGER := COALESCE($4, 0);
_row bomdata%ROWTYPE;
_bomworksetid INTEGER;
_x RECORD;
_check CHAR(1);
_inactive BOOLEAN := FALSE;
_batchsize NUMERIC;
BEGIN
IF (pRevisionid != -1) THEN
--Is this a deactivated revision?
SELECT rev_status INTO _check
FROM rev
WHERE ((rev_id=pRevisionid)
AND (rev_status='I'));
IF (FOUND) THEN
_inactive := TRUE;
END IF;
END IF;
-- Get the batch quantity
SELECT COALESCE( (
SELECT bomhead_batchsize
FROM bomhead
WHERE ((bomhead_item_id=pItemId)
AND (bomhead_rev_id=pRevisionid))),1) INTO _batchsize;
IF NOT (_inactive) THEN
--We can explode this out based on current data
SELECT indentedBOM(pItemid, pRevisionid) INTO _bomworksetid;
FOR _x IN
SELECT item_number, uom_name,
item_descrip1, item_descrip2,
(item_descrip1 || ' ' || item_descrip2) AS itemdescription,
SUM(bomwork_qtyreq) AS qtyreq,
SUM(bomwork_qtyfxd * (1 + bomwork_scrap)) AS qtyfxd,
SUM(bomwork_qtyper * (1 + bomwork_scrap)) AS qtyper,
MAX(bomwork_actunitcost) AS actunitcost,
MAX(bomwork_stdunitcost) AS stdunitcost,
CASE WHEN item_type NOT IN ('R','T') THEN
SUM(bomwork_actunitcost * bomwork_qtyreq)
ELSE 0 END AS actextendedcost,
CASE WHEN item_type NOT IN ('R','T') THEN
SUM(bomwork_stdunitcost * bomwork_qtyreq)
ELSE 0 END AS stdextendedcost,
bomwork_effective,
bomwork_expires,
bomwork_effective > CURRENT_DATE AS future,
bomwork_expires <= CURRENT_DATE AS expired
FROM ( SELECT item_number, item_type, uom_name,
item_descrip1, item_descrip2,
bomwork_qtyreq, bomwork_qtyfxd,
bomwork_qtyper, bomwork_scrap,
bomwork_actunitcost, bomwork_stdunitcost,
CASE WHEN (bomwork_effective > CURRENT_DATE) THEN (CURRENT_DATE + 1)
ELSE CURRENT_DATE END AS bomwork_effective,
CASE WHEN (bomwork_expires <= CURRENT_DATE) THEN (CURRENT_DATE - 1)
ELSE (CURRENT_DATE + 1) END AS bomwork_expires
FROM bomwork, item, uom
WHERE ( (bomwork_item_id=item_id)
AND (item_inv_uom_id=uom_id)
AND (bomwork_set_id=_bomworksetid) )
AND (bomwork_expires > (CURRENT_DATE - pExpiredDays))
AND (bomwork_effective <= (CURRENT_DATE + pFutureDays)) ) AS data
GROUP BY item_number, uom_name, item_type,
item_descrip1, item_descrip2,
bomwork_effective, bomwork_expires
ORDER BY item_number
LOOP
_row.bomdata_item_number := _x.item_number;
_row.bomdata_uom_name := _x.uom_name;
_row.bomdata_item_descrip1 := _x.item_descrip1;
_row.bomdata_item_descrip2 := _x.item_descrip2;
_row.bomdata_itemdescription := _x.itemdescription;
_row.bomdata_qtyreq := _x.qtyreq;
_row.bomdata_qtyfxd := _x.qtyfxd;
_row.bomdata_qtyper := _x.qtyper;
_row.bomdata_actunitcost := _x.actunitcost;
_row.bomdata_stdunitcost := _x.stdunitcost;
_row.bomdata_actextendedcost := _x.actextendedcost;
_row.bomdata_stdextendedcost := _x.stdextendedcost;
_row.bomdata_effective := _x.bomwork_effective;
_row.bomdata_expires := _x.bomwork_expires;
_row.bomdata_future := _x.future;
_row.bomdata_expired := _x.expired;
RETURN NEXT _row;
END LOOP;
PERFORM deleteBOMWorkset(_bomworksetid);
ELSE
-- Use historical snapshot for inactive revisions
FOR _x IN
SELECT item_number, uom_name,
item_descrip1, item_descrip2,
(item_descrip1 || ' ' || item_descrip2) AS itemdescription,
SUM(bomhist_qtyreq * (1 + bomhist_scrap)) AS qtyreq,
SUM(bomhist_qtyfxd * (1 + bomhist_scrap)) AS qtyfxd,
SUM(bomhist_qtyper * (1 + bomhist_scrap)) AS qtyper,
MAX(bomhist_actunitcost) AS actunitcost,
MAX(bomhist_stdunitcost) AS stdunitcost,
CASE WHEN item_type NOT IN ('R','T') THEN
MAX(bomhist_actunitcost) * SUM((bomhist_qtyfxd/_batchsize + bomhist_qtyper) * (1 + bomhist_scrap))
ELSE 0 END AS actextendedcost,
CASE WHEN item_type NOT IN ('R','T') THEN
MAX(bomhist_stdunitcost) * SUM((bomhist_qtyfxd/_batchsize + bomhist_qtyper) * (1 + bomhist_scrap))
ELSE 0 END AS stdextendedcost
FROM bomhist, item, uom
WHERE ( (bomhist_item_id=item_id)
AND (item_inv_uom_id=uom_id)
AND (bomhist_rev_id=pRevisionid) )
AND (bomhist_expires > (CURRENT_DATE - pExpiredDays))
AND (bomhist_effective <= (CURRENT_DATE + pFutureDays))
GROUP BY item_number, uom_name, item_type,
item_descrip1, item_descrip2
ORDER BY item_number
LOOP
_row.bomdata_item_number := _x.item_number;
_row.bomdata_uom_name := _x.uom_name;
_row.bomdata_item_descrip1 := _x.item_descrip1;
_row.bomdata_item_descrip2 := _x.item_descrip2;
_row.bomdata_itemdescription := _x.itemdescription;
_row.bomdata_qtyreq := _x.qtyreq;
_row.bomdata_qtyfxd := _x.qtyfxd;
_row.bomdata_qtyper := _x.qtyper;
_row.bomdata_actunitcost := _x.actunitcost;
_row.bomdata_stdunitcost := _x.stdunitcost;
_row.bomdata_actextendedcost := _x.actextendedcost;
_row.bomdata_stdextendedcost := _x.stdextendedcost;
RETURN NEXT _row;
END LOOP;
END IF;
RETURN;
END;
$_$;
ALTER FUNCTION public.summarizedbom(integer, integer, integer, integer) OWNER TO admin;
--
-- Name: summarizetransactions(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summarizetransactions(integer, date, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
_startDate DATE;
_endDate DATE;
_invhist RECORD;
_itemuom TEXT;
_transCounter INTEGER;
_itemlocSeries INTEGER;
BEGIN
-- Cache the uom_name
SELECT uom_name INTO _itemuom
FROM itemsite, item, uom
WHERE ((itemsite_item_id=item_id)
AND (item_inv_uom_id=uom_id)
AND (itemsite_id=pItemsiteid));
-- Can't summarize into the future...
IF (pEndDate > CURRENT_DATE) THEN
_endDate := CURRENT_DATE;
ELSE
_endDate := pEndDate;
END IF;
-- Verify date bounds
IF (pStartDate > pEndDate) THEN
_startDate := pEndDate;
ELSE
_startDate := pStartDate;
END IF;
-- Verify that history is not referenced elsewhere
SELECT invhist_id INTO _transCounter
FROM invhist JOIN womatlpost ON (womatlpost_invhist_id=invhist_id)
WHERE ((invhist_itemsite_id=pItemsiteid)
AND (invhist_transdate::DATE BETWEEN _startDate AND _endDate))
LIMIT 1;
IF (FOUND) THEN
RETURN 0;
END IF;
SELECT invhist_id INTO _transCounter
FROM invhist JOIN shipitem ON (shipitem_invhist_id=invhist_id)
WHERE ((invhist_itemsite_id=pItemsiteid)
AND (invhist_transdate::DATE BETWEEN _startDate AND _endDate))
LIMIT 1;
IF (FOUND) THEN
RETURN 0;
END IF;
_transCounter := 0;
_itemlocSeries := NEXTVAL('itemloc_series_seq');
FOR _invhist IN SELECT invhist_transtype, invhist_costmethod, SUM(invhist_invqty) AS qty
FROM invhist
WHERE ((invhist_itemsite_id=pItemsiteid)
AND (invhist_transdate::DATE BETWEEN _startDate AND _endDate))
GROUP BY invhist_transtype, invhist_costmethod LOOP
DELETE FROM invhist
WHERE ((invhist_transdate::DATE BETWEEN _startDate AND _endDate)
AND (invhist_transtype=_invhist.invhist_transtype)
AND (invhist_itemsite_id=pItemsiteid));
INSERT INTO invhist
( invhist_itemsite_id, invhist_transdate, invhist_transtype,
invhist_invqty, invhist_qoh_before, invhist_qoh_after,
invhist_invuom, invhist_user, invhist_ordnumber,
invhist_costmethod, invhist_value_before, invhist_value_after,
invhist_series )
VALUES
( pItemsiteid, _endDate, _invhist.invhist_transtype,
_invhist.qty, 0, 0,
_itemuom, getEffectiveXtUser(), 'Summary',
_invhist.invhist_costmethod, 0, 0,
_itemlocSeries );
_transCounter := (_transCounter + 1);
END LOOP;
RETURN _transCounter;
END;
$_$;
ALTER FUNCTION public.summarizetransactions(integer, date, date) OWNER TO admin;
--
-- Name: summdemand(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summdemand(integer, date, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
_value NUMERIC;
BEGIN
SELECT SUM(wo_qtyord - wo_qtyrcv) INTO _value
FROM wo
WHERE ( (wo_itemsite_id=pItemsiteid)
AND (wo_status IN ('R', 'I'))
AND (wo_startdate::DATE BETWEEN pStartDate AND pEndDate) );
IF (_value IS NULL) THEN
_value := 0;
END IF;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.summdemand(integer, date, date) OWNER TO admin;
--
-- Name: summdemand(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summdemand(integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pCalitemid ALIAS FOR $2;
_value NUMERIC;
BEGIN
SELECT summDemand(pItemsiteid, findPeriodStart(pCalitemid), findPeriodEnd(pCalitemid)) INTO _value;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.summdemand(integer, integer) OWNER TO admin;
--
-- Name: summprod(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summprod(integer, date, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
_value NUMERIC;
BEGIN
SELECT SUM(invhist_invqty) INTO _value
FROM invhist
WHERE ( (invhist_itemsite_id=pItemsiteid)
AND (invhist_transtype IN ('RM', 'RB'))
AND (invhist_transdate::DATE BETWEEN pStartDate AND pEndDate) );
IF (_value IS NULL) THEN
_value := 0;
END IF;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.summprod(integer, date, date) OWNER TO admin;
--
-- Name: summprod(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summprod(integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pCalitemid ALIAS FOR $2;
_value NUMERIC;
BEGIN
SELECT summProd(pItemsiteid, findPeriodStart(pCalitemid), findPeriodEnd(pCalitemid)) INTO _value;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.summprod(integer, integer) OWNER TO admin;
--
-- Name: summtransa(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summtransa(integer, date, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
_value NUMERIC;
BEGIN
SELECT SUM(invhist_invqty) INTO _value
FROM invhist
WHERE ((invhist_transdate::DATE BETWEEN pStartDate AND pEndDate)
AND (invhist_transtype IN ('AD', 'CC'))
AND (invhist_itemsite_id=pItemsiteid));
IF (_value IS NULL) THEN
_value := 0;
END IF;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.summtransa(integer, date, date) OWNER TO admin;
--
-- Name: summtransa(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summtransa(integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pCalitemid ALIAS FOR $2;
_value NUMERIC;
BEGIN
SELECT summTransA(pItemsiteid, findPeriodStart(pCalitemid), findPeriodEnd(pCalitemid)) INTO _value;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.summtransa(integer, integer) OWNER TO admin;
--
-- Name: summtransc(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summtransc(integer, date, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDAte ALIAS FOR $3;
_value NUMERIC;
BEGIN
SELECT SUM(invhist_invqty) INTO _value
FROM invhist
WHERE ((invhist_transdate::DATE BETWEEN pStartDate AND pEndDate)
AND (invhist_transtype IN ('SI'))
AND (invhist_itemsite_id=pItemsiteid));
IF (_value IS NULL) THEN
_value := 0;
END IF;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.summtransc(integer, date, date) OWNER TO admin;
--
-- Name: summtransc(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summtransc(integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pCalitemid ALIAS FOR $2;
_value NUMERIC;
BEGIN
SELECT summTransC(pItemsiteid, findPeriodStart(pCalitemid), findPeriodEnd(pCalitemid)) INTO _value;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.summtransc(integer, integer) OWNER TO admin;
--
-- Name: summtransi(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summtransi(integer, date, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
_value NUMERIC;
BEGIN
SELECT SUM(invhist_invqty) INTO _value
FROM invhist
WHERE ((invhist_transdate::DATE BETWEEN pStartDate AND pEndDate)
AND (invhist_transtype IN ('IM', 'IC'))
AND (invhist_itemsite_id=pItemsiteid));
IF (_value IS NULL) THEN
_value := 0;
END IF;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.summtransi(integer, date, date) OWNER TO admin;
--
-- Name: summtransi(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summtransi(integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pCalitemid ALIAS FOR $2;
_value NUMERIC;
BEGIN
SELECT summTransI(pItemsiteid, findPeriodStart(pCalitemid), findPeriodEnd(pCalitemid)) INTO _value;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.summtransi(integer, integer) OWNER TO admin;
--
-- Name: summtransr(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summtransr(integer, date, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
_value NUMERIC;
BEGIN
SELECT SUM(invhist_invqty) INTO _value
FROM invhist
WHERE ((invhist_transdate::DATE BETWEEN pStartDate AND pEndDate)
AND (invhist_transtype IN ('RM', 'RP', 'RX'))
AND (invhist_itemsite_id=pItemsiteid) );
IF (_value IS NULL) THEN
_value := 0;
END IF;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.summtransr(integer, date, date) OWNER TO admin;
--
-- Name: summtransr(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summtransr(integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pCalitemid ALIAS FOR $2;
_value NUMERIC;
BEGIN
SELECT summTransR(pItemsiteid, findPeriodStart(pCalitemid), findPeriodEnd(pCalitemid)) INTO _value;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.summtransr(integer, integer) OWNER TO admin;
--
-- Name: summtranss(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summtranss(pitemsiteid integer, pstartdate date, penddate date) RETURNS numeric
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_value NUMERIC;
BEGIN
SELECT SUM( CASE WHEN (invhist_transtype = 'RS') THEN (invhist_invqty * -1)
ELSE (invhist_invqty)
END ) INTO _value
FROM invhist
WHERE ( (invhist_transdate::DATE BETWEEN pStartDate AND pEndDate)
AND (invhist_transtype IN ('SC', 'SH', 'SV', 'RS'))
AND (invhist_ordtype != 'TO')
AND (invhist_itemsite_id=pItemsiteid) );
IF (_value IS NULL) THEN
_value := 0;
END IF;
RETURN _value;
END;
$$;
ALTER FUNCTION public.summtranss(pitemsiteid integer, pstartdate date, penddate date) OWNER TO admin;
--
-- Name: summtranss(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summtranss(pitemsiteid integer, pcalitemid integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pCalitemid ALIAS FOR $2;
_value NUMERIC;
BEGIN
SELECT summTransS(pItemsiteid, findPeriodStart(pCalitemid), findPeriodEnd(pCalitemid)) INTO _value;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.summtranss(pitemsiteid integer, pcalitemid integer) OWNER TO admin;
--
-- Name: summtranst(integer, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summtranst(integer, date, date) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pStartDate ALIAS FOR $2;
pEndDate ALIAS FOR $3;
_value NUMERIC;
BEGIN
SELECT SUM( CASE WHEN (invhist_transtype = 'TS') THEN (invhist_invqty * -1)
ELSE (invhist_invqty)
END ) INTO _value
FROM invhist
WHERE ( (invhist_transdate::DATE BETWEEN pStartDate AND pEndDate)
AND (invhist_transtype IN ('TS', 'TR', 'TW'))
AND (invhist_itemsite_id=pItemsiteid) );
IF (_value IS NULL) THEN
_value := 0;
END IF;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.summtranst(integer, date, date) OWNER TO admin;
--
-- Name: summtranst(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION summtranst(integer, integer) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pCalitemid ALIAS FOR $2;
_value NUMERIC;
BEGIN
SELECT summTransT(pItemsiteid, findPeriodStart(pCalitemid), findPeriodEnd(pCalitemid)) INTO _value;
RETURN _value;
END;
$_$;
ALTER FUNCTION public.summtranst(integer, integer) OWNER TO admin;
--
-- Name: taxassignments(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION taxassignments(integer, integer) RETURNS SETOF taxassign
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTaxZoneId ALIAS FOR $1;
pTaxTypeId ALIAS FOR $2;
_row taxassign%ROWTYPE;
_qry text;
_x RECORD;
_y RECORD;
_z RECORD;
BEGIN
_qry = 'SELECT DISTINCT COALESCE(taxass_taxzone_id, -1) AS taxass_taxzone_id, COALESCE(taxass_taxtype_id, -1) AS taxass_taxtype_id, ';
_qry = _qry || 'taxzone_code, taxtype_name FROM taxass LEFT OUTER JOIN taxzone ON (taxass_taxzone_id=taxzone_id) ';
_qry = _qry || 'LEFT OUTER JOIN taxtype ON (taxass_taxtype_id=taxtype_id) ';
IF ((pTaxZoneId > 0) OR (pTaxTypeId > 0)) THEN
_qry := _qry || ' WHERE ';
IF (pTaxZoneId > 0) THEN
_qry := _qry || ' (taxass_taxzone_id = ' || pTaxZoneId ||')';
IF (pTaxTypeId > 0) THEN
_qry := _qry || ' AND ';
END IF;
END IF;
IF (pTaxTypeId > 0) THEN
_qry := _qry || ' (taxass_taxtype_id = ' || pTaxTypeId || ')';
END IF;
END IF;
--This first query gets all the distinct tax zone and type groupings as if it were its own table.
--This allows us to have a level 0 record as pictured in Tax Assignments window that code assignements will
--Subordinate to.
FOR _x IN EXECUTE _qry
LOOP
--Map values to _row here
_row.taxassign_taxzone_id = _x.taxass_taxzone_id;
_row.taxassign_taxtype_id = _x.taxass_taxtype_id;
_row.taxassign_level = 0;
_row.taxassign_zone_code = _x.taxzone_code;
_row.taxassign_type_descrip = _x.taxtype_name;
_row.taxassign_taxclass_code = '';
_row.taxassign_taxclass_sequence = NULL;
RETURN NEXT _row; --so we get a level tax zone/type 0 record.
-- Now get all the tax code assignments that belong to this Zone and Type pair
FOR _y IN
SELECT taxass_id, COALESCE(taxzone_id, -1) AS taxzone_id, tax_id,
tax_code, tax_descrip, COALESCE(taxtype_id, -1) AS taxtype_id, taxzone_code,
taxtype_descrip, taxclass_code,
COALESCE(taxclass_sequence, 0) AS taxclass_sequence
FROM taxass JOIN tax
LEFT OUTER JOIN taxclass ON (tax_taxclass_id = taxclass_id)
ON (taxass_tax_id = tax_id)
LEFT OUTER JOIN taxzone ON (taxass_taxzone_id = taxzone_id)
LEFT OUTER JOIN taxtype ON (taxass_taxtype_id = taxtype_id)
WHERE COALESCE(taxass_taxzone_id, -1) = _x.taxass_taxzone_id
AND COALESCE(taxass_taxtype_id, -1) = _x.taxass_taxtype_id
LOOP
--Map results to _row
_row.taxassign_taxzone_id = _y.taxzone_id;
_row.taxassign_taxtype_id = _y.taxtype_id;
_row.taxassign_level = 1;
_row.taxassign_zone_code = _y.tax_code;
_row.taxassign_type_descrip = _y.tax_descrip;
_row.taxassign_taxclass_code = _y.taxclass_code;
_row.taxassign_taxclass_sequence = _y.taxclass_sequence;
RETURN NEXT _row; --to get code detail record;
FOR _z IN SELECT * FROM getsubtax(_y.tax_id, 1) --a new recursive function described above
LOOP
--Map results to _row
_row.taxassign_taxzone_id = _y.taxzone_id;
_row.taxassign_taxtype_id = _y.taxtype_id;
_row.taxassign_level = _z.subtax_taxcode_level;
_row.taxassign_zone_code = _z.subtax_taxcode_code;
_row.taxassign_type_descrip = _z.subtax_taxcode_descrip;
_row.taxassign_taxclass_code = _y.taxclass_code;
_row.taxassign_taxclass_sequence = _y.taxclass_sequence;
RETURN NEXT _row;
END LOOP;
END LOOP;
END LOOP;
END;
$_$;
ALTER FUNCTION public.taxassignments(integer, integer) OWNER TO admin;
--
-- Name: thawaccountingperiod(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION thawaccountingperiod(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pPeriodid ALIAS FOR $1;
_r RECORD;
BEGIN
-- Check to make sure that the period is frozen
IF ( ( SELECT (NOT period_freeze)
FROM period
WHERE (period_id=pPeriodid) ) ) THEN
RETURN -2;
END IF;
-- Check to make sure that the period is not closed
IF ( ( SELECT (period_closed)
FROM period
WHERE (period_id=pPeriodid) ) ) THEN
RETURN -1;
END IF;
-- Reset the period_freeze flag
UPDATE period
SET period_freeze=FALSE
WHERE (period_id=pPeriodid);
-- Post any unposted G/L Transactions into the period
FOR _r IN SELECT DISTINCT gltrans_sequence
FROM gltrans, accnt, period
WHERE ( (gltrans_accnt_id=accnt_id)
AND (NOT gltrans_posted)
AND (gltrans_date BETWEEN period_start AND period_end)
AND (period_id=pPeriodid) ) LOOP
PERFORM postIntoTrialBalance(_r.gltrans_sequence);
END LOOP;
RETURN pPeriodid;
END;
$_$;
ALTER FUNCTION public.thawaccountingperiod(integer) OWNER TO admin;
--
-- Name: thawitemsite(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION thawitemsite(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
_qoh NUMERIC := 0;
_netable_qoh NUMERIC := 0;
_nonnetable_qoh NUMERIC := 0;
_value NUMERIC := 0;
_itemlocid INTEGER;
_itemloc RECORD;
_invhist RECORD;
_coarse RECORD;
_fine RECORD;
BEGIN
IF ( SELECT itemsite_freeze
FROM itemsite
WHERE (itemsite_id=pItemsiteid) ) THEN
SELECT invhist_id INTO _invhist
FROM invhist
WHERE ( (invhist_itemsite_id=pItemsiteid)
AND (NOT invhist_posted) )
LIMIT 1;
IF (NOT FOUND) THEN
UPDATE itemsite
SET itemsite_freeze=FALSE
WHERE (itemsite_id=pItemsiteid);
END IF;
-- Run through any invdetail if this itemsite is still MLC and/or Lot/Serial
IF ( SELECT ( (itemsite_loccntrl) OR
(itemsite_controlmethod IN ('L', 'S')) )
FROM itemsite
WHERE (itemsite_id=pItemsiteid) ) THEN
-- Grab all of the itemsite/location/lot/serial combinations
-- that have unposted detail
FOR _coarse IN SELECT DISTINCT invdetail_location_id, invdetail_ls_id,
invdetail_expiration, invdetail_warrpurc
FROM invhist, invdetail
WHERE ( (invdetail_invhist_id=invhist_id)
AND (NOT invhist_posted)
AND (invhist_itemsite_id=pItemsiteid) )
ORDER BY invdetail_location_id, invdetail_ls_id LOOP
-- Cache the initial qty of the itemloc specified by the
-- itemsite/location/lot/serial
SELECT itemloc_id, itemloc_qty, COALESCE(location_netable, TRUE) AS location_netable
INTO _itemloc
FROM itemloc LEFT OUTER JOIN location ON (location_id=itemloc_location_id)
WHERE ( (itemloc_itemsite_id=pItemsiteid)
AND (itemloc_location_id=_coarse.invdetail_location_id)
AND (COALESCE(itemloc_ls_id,-1)=COALESCE(_coarse.invdetail_ls_id,-1))
AND (COALESCE(itemloc_expiration,endOfTime())=COALESCE(_coarse.invdetail_expiration,endOfTime()))
AND (COALESCE(itemloc_warrpurc,endOfTime())=COALESCE(_coarse.invdetail_warrpurc,endOfTime())) );
-- If the itemloc in question cannot be found, create it
IF (NOT FOUND) THEN
SELECT NEXTVAL('itemloc_itemloc_id_seq') INTO _itemlocid;
INSERT INTO itemloc
( itemloc_id, itemloc_itemsite_id,
itemloc_location_id, itemloc_ls_id,
itemloc_qty, itemloc_expiration )
VALUES
( _itemlocid, pItemsiteid,
_coarse.invdetail_location_id, _coarse.invdetail_ls_id,
0, endOfTime() );
_qoh := 0.0;
_netable_qoh := 0.0;
_nonnetable_qoh := 0.0;
ELSE
_itemlocid := _itemloc.itemloc_id;
_qoh := _itemloc.itemloc_qty;
IF (_itemloc.location_netable) THEN
_netable_qoh := _itemloc.itemloc_qty;
ELSE
_nonnetable_qoh := _itemloc.itemloc_qty;
END IF;
END IF;
-- Now step through each unposted invdetail record for a given
-- itemsite/location/lot/serial
FOR _fine IN SELECT invdetail_id, invdetail_qty
FROM invhist, invdetail
WHERE ( (invdetail_invhist_id=invhist_id)
AND (NOT invhist_posted)
AND (invhist_itemsite_id=pItemsiteid)
AND (invdetail_location_id=_coarse.invdetail_location_id)
AND (COALESCE(invdetail_ls_id,-1)=COALESCE(_coarse.invdetail_ls_id,-1))
AND (COALESCE(invdetail_expiration,endOfTime())=COALESCE(_coarse.invdetail_expiration,endOfTime()))
AND (COALESCE(invdetail_warrpurc,endOfTime())=COALESCE(_coarse.invdetail_warrpurc,endOfTime())) )
ORDER BY invhist_transdate LOOP
-- Update the running qoh fields in the detail record
UPDATE invdetail
SET invdetail_qty_before = _qoh,
invdetail_qty_after = (_qoh + invdetail_qty)
WHERE (invdetail_id=_fine.invdetail_id);
-- Update the running qoh
_qoh = (_qoh + _fine.invdetail_qty);
IF (_itemloc.location_netable) THEN
_netable_qoh := (_netable_qoh + _fine.invdetail_qty);
ELSE
_nonnetable_qoh := (_nonnetable_qoh + _fine.invdetail_qty);
END IF;
END LOOP;
-- If the running qoh end up at 0, delete the itemloc in question
IF (_qoh = 0) THEN
DELETE FROM itemloc
WHERE (itemloc_id=_itemlocid);
-- Otherwise, update the itemloc in question with the resultant qty
ELSE
UPDATE itemloc
SET itemloc_qty=_qoh
WHERE (itemloc_id=_itemlocid);
END IF;
END LOOP;
END IF;
-- Cache the inital qoh of the itemsite
SELECT itemsite_qtyonhand, itemsite_value INTO _qoh, _value
FROM itemsite
WHERE (itemsite_id=pItemsiteid);
-- We have to un-freeze the itemsite before update-ing its QOH
-- so that that itemsite trigger won't block the QOH update.
-- Also so the invhist trigger won't block the posted update.
UPDATE itemsite
SET itemsite_freeze=FALSE
WHERE (itemsite_id=pItemsiteid);
FOR _invhist IN SELECT invhist_id,
invhist_qoh_before, invhist_qoh_after,
invhist_value_before, invhist_value_after
FROM invhist
WHERE((invhist_itemsite_id=pItemsiteid)
AND (NOT invhist_posted))
ORDER BY invhist_transdate LOOP
UPDATE invhist
SET invhist_qoh_before = _qoh,
invhist_qoh_after = ( _qoh +
_invhist.invhist_qoh_after -
_invhist.invhist_qoh_before ),
invhist_value_before = _value,
invhist_value_after = ( _value +
_invhist.invhist_value_after -
_invhist.invhist_value_before ),
invhist_posted = TRUE
WHERE (invhist_id=_invhist.invhist_id);
_qoh := (_qoh + (_invhist.invhist_qoh_after - _invhist.invhist_qoh_before));
_value := (_value + (_invhist.invhist_value_after - _invhist.invhist_value_before));
END LOOP;
-- _qoh can be used for the netable qoh because of the negative NN transactions
UPDATE itemsite
SET itemsite_qtyonhand = _qoh,
itemsite_nnqoh = _nonnetable_qoh,
itemsite_value = CASE WHEN ((itemsite_costmethod='A') AND (_value < 0.0)) THEN 0.0
ELSE _value END
WHERE(itemsite_id=pItemsiteid);
END IF;
RETURN pItemsiteid;
END;
$_$;
ALTER FUNCTION public.thawitemsite(integer) OWNER TO admin;
--
-- Name: todoitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE todoitem (
todoitem_id integer NOT NULL,
todoitem_name text NOT NULL,
todoitem_description text,
todoitem_incdt_id integer,
todoitem_creator_username text DEFAULT geteffectivextuser() NOT NULL,
todoitem_status character(1),
todoitem_active boolean DEFAULT true NOT NULL,
todoitem_start_date date,
todoitem_due_date date,
todoitem_assigned_date date,
todoitem_completed_date date,
todoitem_seq integer DEFAULT 0 NOT NULL,
todoitem_notes text,
todoitem_crmacct_id integer,
todoitem_ophead_id integer,
todoitem_owner_username text,
todoitem_priority_id integer,
todoitem_username text,
todoitem_recurring_todoitem_id integer,
todoitem_cntct_id integer
);
ALTER TABLE public.todoitem OWNER TO admin;
--
-- Name: TABLE todoitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE todoitem IS 'To-Do List items.';
--
-- Name: COLUMN todoitem.todoitem_recurring_todoitem_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN todoitem.todoitem_recurring_todoitem_id IS 'The first todoitem record in the series if this is a recurring To-Do item. If the todoitem_recurring_todoitem_id is the same as the todoitem_id, this record is the first in the series.';
--
-- Name: todoitem(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION todoitem() RETURNS SETOF todoitem
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_row todoitem%ROWTYPE;
_priv TEXT;
_grant BOOLEAN;
BEGIN
-- This query will give us the most permissive privilege the user has been granted
SELECT privilege, granted INTO _priv, _grant
FROM privgranted
WHERE privilege IN ('MaintainAllToDoItems','ViewAllToDoItems','MaintainPersonalToDoItems','ViewPersonalToDoItems')
ORDER BY granted DESC, sequence
LIMIT 1;
-- If have an 'All' privilege return all results
IF (_priv ~ 'All' AND _grant) THEN
FOR _row IN
SELECT * FROM todoitem
LOOP
RETURN NEXT _row;
END LOOP;
-- Otherwise if have any other grant, must be personal privilege.
ELSIF (_grant) THEN
FOR _row IN
SELECT * FROM todoitem
WHERE getEffectiveXtUser() IN (todoitem_owner_username, todoitem_username)
LOOP
RETURN NEXT _row;
END LOOP;
END IF;
RETURN;
END;
$$;
ALTER FUNCTION public.todoitem() OWNER TO admin;
--
-- Name: FUNCTION todoitem(); Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON FUNCTION todoitem() IS 'A table function that returns To Do Items results according to privilege settings.';
--
-- Name: todoitemmove(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION todoitemmove(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
ptodoItemId ALIAS FOR $1;
pHowFar ALIAS FOR $2; -- -1 moves toward front of list, +1 toward back
_howFar INTEGER := pHowFar;
_username TEXT;
_currseq INTEGER;
BEGIN
SELECT todoitem_username, todoitem_seq INTO _username, _currseq
FROM todoitem
WHERE todoitem_id = ptodoItemId;
IF NOT FOUND THEN
RETURN -1;
END IF;
IF (_currseq + pHowFar <= 0) THEN
_howFar = 1 - _currseq; -- move to beginning
END IF;
UPDATE todoitem
SET todoitem_seq=todoitem_seq - _howFar
WHERE todoitem_seq >= _currseq + _howFar
AND todoitem_id != ptodoItemId
AND todoitem_username = _username
AND todoitem_status != 'C';
UPDATE todoitem
SET todoitem_seq=_currseq + _howFar
WHERE todoitem_id = ptodoItemId;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.todoitemmove(integer, integer) OWNER TO admin;
--
-- Name: todoitemmovedown(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION todoitemmovedown(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
ptodoItemId ALIAS FOR $1;
BEGIN
RETURN todoItemMove(ptodoItemId, 1); -- move toward end of list
END;
$_$;
ALTER FUNCTION public.todoitemmovedown(integer) OWNER TO admin;
--
-- Name: todoitemmoveup(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION todoitemmoveup(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
ptodoItemId ALIAS FOR $1;
BEGIN
RETURN todoItemMove(ptodoItemId, -1); -- move toward front of list
END;
$_$;
ALTER FUNCTION public.todoitemmoveup(integer) OWNER TO admin;
--
-- Name: togglebankreccleared(integer, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION togglebankreccleared(integer, text, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
DECLARE
pBankrecid ALIAS FOR $1;
pSource ALIAS FOR $2;
pSourceid ALIAS FOR $3;
_cleared BOOLEAN;
_r RECORD;
BEGIN
SELECT bankrecitem_id, bankrecitem_cleared INTO _r
FROM bankrecitem
WHERE ( (bankrecitem_bankrec_id=pBankrecid)
AND (bankrecitem_source=pSource)
AND (bankrecitem_source_id=pSourceid) );
IF ( NOT FOUND ) THEN
_cleared := TRUE;
INSERT INTO bankrecitem
(bankrecitem_bankrec_id, bankrecitem_source,
bankrecitem_source_id, bankrecitem_cleared)
VALUES
(pBankrecid, pSource, pSourceid, _cleared);
ELSE
_cleared := (NOT _r.bankrecitem_cleared);
UPDATE bankrecitem
SET bankrecitem_cleared=_cleared
WHERE (bankrecitem_id=_r.bankrecitem_id);
END IF;
RETURN _cleared;
END;
$_$;
ALTER FUNCTION public.togglebankreccleared(integer, text, integer) OWNER TO admin;
--
-- Name: togglebankreccleared(integer, text, integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION togglebankreccleared(integer, text, integer, numeric) RETURNS boolean
LANGUAGE plpgsql
AS $_$
DECLARE
pBankrecid ALIAS FOR $1;
pSource ALIAS FOR $2;
pSourceid ALIAS FOR $3;
pCurrrate ALIAS FOR $4;
_cleared BOOLEAN;
_r RECORD;
BEGIN
SELECT bankrecitem_id, bankrecitem_cleared INTO _r
FROM bankrecitem
WHERE ( (bankrecitem_bankrec_id=pBankrecid)
AND (bankrecitem_source=pSource)
AND (bankrecitem_source_id=pSourceid) );
IF ( NOT FOUND ) THEN
_cleared := TRUE;
INSERT INTO bankrecitem
(bankrecitem_bankrec_id, bankrecitem_source,
bankrecitem_source_id, bankrecitem_cleared,
bankrecitem_curr_rate)
VALUES
(pBankrecid, pSource,
pSourceid, _cleared,
pCurrrate);
ELSE
_cleared := (NOT _r.bankrecitem_cleared);
UPDATE bankrecitem
SET bankrecitem_cleared=_cleared,
bankrecitem_curr_rate=pCurrrate
WHERE (bankrecitem_id=_r.bankrecitem_id);
END IF;
RETURN _cleared;
END;
$_$;
ALTER FUNCTION public.togglebankreccleared(integer, text, integer, numeric) OWNER TO admin;
--
-- Name: togglebankreccleared(integer, text, integer, numeric, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION togglebankreccleared(integer, text, integer, numeric, numeric) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBankrecid ALIAS FOR $1;
pSource ALIAS FOR $2;
pSourceid ALIAS FOR $3;
pCurrrate ALIAS FOR $4;
pAmount ALIAS FOR $5;
_cleared BOOLEAN;
_r RECORD;
BEGIN
SELECT bankrecitem_id, bankrecitem_cleared INTO _r
FROM bankrecitem
WHERE ( (bankrecitem_bankrec_id=pBankrecid)
AND (bankrecitem_source=pSource)
AND (bankrecitem_source_id=pSourceid) );
IF ( NOT FOUND ) THEN
_cleared := TRUE;
INSERT INTO bankrecitem
(bankrecitem_bankrec_id, bankrecitem_source,
bankrecitem_source_id, bankrecitem_cleared,
bankrecitem_curr_rate, bankrecitem_amount)
VALUES
(pBankrecid, pSource,
pSourceid, _cleared,
pCurrrate, pAmount);
ELSE
_cleared := FALSE;
DELETE FROM bankrecitem
WHERE bankrecitem_id = _r.bankrecitem_id;
END IF;
RETURN _cleared;
END;
$_$;
ALTER FUNCTION public.togglebankreccleared(integer, text, integer, numeric, numeric) OWNER TO admin;
--
-- Name: togglebomitemcost(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION togglebomitemcost(integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pBomitemid ALIAS FOR $1;
pEnabled ALIAS FOR $2;
BEGIN
IF (pEnabled) THEN
INSERT INTO bomitemcost
(bomitemcost_bomitem_id, bomitemcost_costelem_id,
bomitemcost_lowlevel, bomitemcost_stdcost,
bomitemcost_posted, bomitemcost_actcost,
bomitemcost_updated, bomitemcost_curr_id)
SELECT
bomitem_id, itemcost_costelem_id,
itemcost_lowlevel, itemcost_stdcost,
itemcost_posted, itemcost_actcost,
itemcost_updated, itemcost_curr_id
FROM bomitem JOIN itemcost ON (itemcost_item_id=bomitem_item_id)
WHERE (bomitem_id=pBomitemid);
ELSE
DELETE FROM bomitemcost
WHERE (bomitemcost_bomitem_id=pBomitemid);
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.togglebomitemcost(integer, boolean) OWNER TO admin;
--
-- Name: tonumeric(text, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION tonumeric(text, numeric) RETURNS numeric
LANGUAGE plpgsql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pText ALIAS FOR $1;
pDefault ALIAS FOR $2;
BEGIN
IF (isNumeric(pText)) THEN
RETURN TO_NUMBER(pText, '999999999999');
ELSE
RETURN pDefault;
END IF;
END;
$_$;
ALTER FUNCTION public.tonumeric(text, numeric) OWNER TO admin;
--
-- Name: transitwhs(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION transitwhs() RETURNS integer
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_id INTEGER;
BEGIN
_id = fetchMetricValue('TransitWarehouse');
IF (_id IS NOT NULL
AND EXISTS(SELECT warehous_id FROM whsinfo WHERE (warehous_id=_id)) ) THEN
RETURN _id;
END IF;
SELECT warehous_id INTO _id FROM whsinfo WHERE warehous_transit;
IF (NOT FOUND) THEN
_id := NEXTVAL('warehous_warehous_id_seq');
INSERT INTO whsinfo (
warehous_id,
warehous_code,
warehous_descrip,
--warehous_fob,
warehous_active,
--warehous_counttag_prefix,
--warehous_counttag_number,
--warehous_bol_prefix,
--warehous_bol_number,
warehous_shipping,
warehous_useslips,
warehous_usezones,
--warehous_aislesize,
--warehous_aislealpha,
--warehous_racksize,
--warehous_rackalpha,
--warehous_binsize,
--warehous_binalpha,
--warehous_locationsize,
--warehous_locationalpha,
warehous_enforcearbl,
warehous_default_accnt_id,
--warehous_shipping_commission,
--warehous_cntct_id,
--warehous_addr_id,
warehous_taxzone_id
) VALUES (
_id,
'TRANSIT',
'Intermediate Warehouse for Inter-Warehouse Transfers',
--text,
TRUE,
--text,
--integer,
--text,
--integer,
TRUE,
FALSE,
FALSE,
--integer,
--boolean,
--integer,
--boolean,
--integer,
--boolean,
--integer,
--boolean,
FALSE,
fetchMetricValue('UnassignedAccount'),
--numeric(8,4) default 0.00,
--integer,
--integer,
NULL
);
END IF;
PERFORM setMetric('TransitWarehouse', _id);
RETURN _id;
END;
$$;
ALTER FUNCTION public.transitwhs() OWNER TO admin;
--
-- Name: transtype(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION transtype(text, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTransType ALIAS FOR $1;
pTargetType ALIAS FOR $2;
BEGIN
IF (pTargetType = 255) THEN
RETURN TRUE;
ELSIF (pTargetType = 1) THEN
RETURN receipts(pTransType);
ELSIF (pTargetType = 2) THEN
RETURN issues(pTransType);
ELSIF (pTargetType = 4) THEN
RETURN shipments(pTransType);
ELSIF (pTargetType = 8) THEN
RETURN adjustments(pTransType);
ELSIF (pTargetType = 16) THEN
RETURN transfers(pTransType);
ELSIF (pTargetType = 32) THEN
RETURN scraps(pTransType);
ELSE
RETURN TRUE;
END IF;
END;
$_$;
ALTER FUNCTION public.transtype(text, integer) OWNER TO admin;
--
-- Name: trylock(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION trylock(integer, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pKey1 ALIAS FOR $1;
pKey2 ALIAS FOR $2;
_pid integer;
BEGIN
/* The standard try lock ignores locks made by the current user in same
session. Check for ANY lock on this id, whether by this user or not */
SELECT pid INTO _pid
FROM pg_locks
WHERE ((classid=pKey1)
AND (objid=pKey2)
AND (objsubid=2));
IF (FOUND) THEN
RETURN false;
ELSE
RETURN pg_try_advisory_lock(pKey1,pKey2);
END IF;
END;
$_$;
ALTER FUNCTION public.trylock(integer, integer) OWNER TO admin;
--
-- Name: undomerge(text, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION undomerge(text, text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSchema ALIAS FOR $1;
pTable ALIAS FOR $2;
pId ALIAS FOR $3;
_qry TEXT;
_r RECORD;
_result INTEGER;
BEGIN
FOR _r IN
SELECT *
FROM mrgundo
WHERE mrgundo_base_schema = pSchema
AND mrgundo_base_table = pTable
AND mrgundo_base_id = pId
AND mrgundo_col IS NOT NULL -- NULL mrgundo_col signals a row to delete on purge
LOOP
IF (_r.mrgundo_value IS NULL) THEN
_qry := 'UPDATE ' || quote_ident(_r.mrgundo_schema) ||
'.' || quote_ident(_r.mrgundo_table) ||
' SET ' || quote_ident(_r.mrgundo_col) || '= NULL
WHERE (' || _r.mrgundo_pkey_col || '=' || _r.mrgundo_pkey_id || ');';
ELSE
_qry := 'UPDATE ' || quote_ident(_r.mrgundo_schema) ||
'.' || quote_ident(_r.mrgundo_table) ||
' SET ' || quote_ident(_r.mrgundo_col) ||
'= CAST(' || quote_literal(_r.mrgundo_value) || ' AS '
|| quote_ident(_r.mrgundo_type) || ')
WHERE (' || _r.mrgundo_pkey_col || '=' || _r.mrgundo_pkey_id || ');';
END IF;
EXECUTE _qry;
END LOOP;
DELETE FROM mrgundo
WHERE mrgundo_base_schema = pSchema
AND mrgundo_base_table = pTable
AND mrgundo_base_id = pId;
GET DIAGNOSTICS _result = ROW_COUNT;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.undomerge(text, text, integer) OWNER TO admin;
--
-- Name: uomusedforitem(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION uomusedforitem(integer) RETURNS SETOF uom
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pitemid ALIAS FOR $1;
_row uom%ROWTYPE;
BEGIN
FOR _row IN SELECT DISTINCT *
FROM uom
WHERE uom_id IN (
SELECT bomitem_uom_id AS uom_id
FROM bomitem
WHERE (bomitem_item_id=pitemid)
UNION
SELECT cmitem_qty_uom_id
FROM cmitem, itemsite
WHERE ((cmitem_itemsite_id=itemsite_id)
AND (itemsite_item_id=pitemid))
UNION
SELECT cmitem_price_uom_id
FROM cmitem, itemsite
WHERE ((cmitem_itemsite_id=itemsite_id)
AND (itemsite_item_id=pitemid))
UNION
SELECT coitem_qty_uom_id
FROM coitem, itemsite
WHERE ((coitem_itemsite_id=itemsite_id)
AND (itemsite_item_id=pitemid))
UNION
SELECT coitem_price_uom_id
FROM coitem, itemsite
WHERE ((coitem_itemsite_id=itemsite_id)
AND (itemsite_item_id=pitemid))
UNION
SELECT invcitem_qty_uom_id
FROM invcitem
WHERE ((invcitem_item_id=pitemid))
UNION
SELECT invcitem_price_uom_id
FROM invcitem
WHERE ((invcitem_item_id=pitemid))
UNION
SELECT ipsitem_qty_uom_id
FROM ipsiteminfo
WHERE (ipsitem_item_id=pitemid)
UNION
SELECT ipsitem_price_uom_id
FROM ipsiteminfo
WHERE (ipsitem_item_id=pitemid)
UNION
SELECT quitem_qty_uom_id
FROM quitem, itemsite
WHERE ((quitem_itemsite_id=itemsite_id)
AND (itemsite_item_id=pitemid))
UNION
SELECT quitem_price_uom_id
FROM quitem, itemsite
WHERE ((quitem_itemsite_id=itemsite_id)
AND (itemsite_item_id=pitemid))
UNION
SELECT womatl_uom_id
FROM womatl, itemsite
WHERE ((womatl_itemsite_id=itemsite_id)
AND (itemsite_item_id=pitemid))
) LOOP
RETURN NEXT _row;
END LOOP;
IF (fetchmetricbool('MultiWhs')) THEN
FOR _row IN SELECT DISTINCT *
FROM uom
WHERE uom_id IN (
SELECT rahist_uom_id
FROM rahist, itemsite
WHERE ((rahist_itemsite_id=itemsite_id)
AND (itemsite_item_id=pitemid))
) LOOP
RETURN NEXT _row;
END LOOP;
END IF;
RETURN;
END;
$_$;
ALTER FUNCTION public.uomusedforitem(integer) OWNER TO admin;
--
-- Name: updateabcclass(text, numeric, numeric, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updateabcclass(text, numeric, numeric, date, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pClassCodePattern ALIAS FOR $1;
pACutoff ALIAS FOR $2;
pBCutoff ALIAS FOR $3;
pStartDate ALIAS FOR $4;
pEndDate ALIAS FOR $5;
_result INTEGER;
BEGIN
SELECT updateABCClass(pClassCodePattern, -1, pACutoff, pBCutoff, pStartDate, pEndDate) INTO _result;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.updateabcclass(text, numeric, numeric, date, date) OWNER TO admin;
--
-- Name: updateabcclass(text, integer, numeric, numeric, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updateabcclass(text, integer, numeric, numeric, date, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pClassCodePattern ALIAS FOR $1;
pWarehousid ALIAS FOR $2;
pACutoff ALIAS FOR $3;
pBCutoff ALIAS FOR $4;
pStartDate ALIAS FOR $5;
pEndDate ALIAS FOR $6;
_updateCount INTEGER;
_totalValue NUMERIC;
_cumulativeValue NUMERIC;
_itemsite RECORD;
BEGIN
SELECT COUNT(*) INTO _updateCount
FROM itemsite, item, classcode
WHERE ( (itemsite_item_id=item_id)
AND (item_classcode_id=classcode_id)
AND (itemsite_autoabcclass)
AND (classcode_code ~ pClassCodePattern)
AND ((itemsite_warehous_id=pWarehousid) OR (pWarehousid=-1)) );
IF (_updateCount IS NULL) THEN
RETURN 0;
ELSE
UPDATE itemsite
SET itemsite_abcclass='T'
FROM item, classcode
WHERE ( (itemsite_item_id=item_id)
AND (item_classcode_id=classcode_id)
AND (itemsite_autoabcclass)
AND (classcode_code ~ pClassCodePattern)
AND ((itemsite_warehous_id=pWarehousid) OR (pWarehousid=-1)) );
SELECT SUM(ABS(invhist_qoh_before - invhist_qoh_after) * invhist_unitcost) INTO _totalValue
FROM invhist, itemsite, item, classcode
WHERE ( (invhist_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (item_classcode_id=classcode_id)
AND (invhist_analyze)
AND (invhist_transtype ~ '^[IR]')
AND (itemsite_autoabcclass)
AND (classcode_code ~ pClassCodePattern)
AND (invhist_transdate::DATE BETWEEN pStartDate AND pEndDate)
AND ((itemsite_warehous_id=pWarehousid) OR (pWarehousid=-1)) );
IF ( (_totalValue IS NULL) OR (_totalValue = 0) ) THEN
UPDATE itemsite
SET itemsite_abcclass='A'
WHERE (itemsite_abcclass='T');
ELSE
_cumulativeValue := 0;
FOR _itemsite IN SELECT itemsite_id, item_number,
SUM(ABS(invhist_qoh_before - invhist_qoh_after) * invhist_unitcost) AS value
FROM invhist, itemsite, item, classcode
WHERE ( (invhist_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (item_classcode_id=classcode_id)
AND (invhist_analyze)
AND (invhist_transtype ~ '^[IR]')
AND (itemsite_autoabcclass)
AND (classcode_code ~ pClassCodePattern)
AND (invhist_transdate::DATE BETWEEN pStartDate AND pEndDate)
AND ((itemsite_warehous_id=pWarehousid) OR (pWarehousid=-1)) )
GROUP BY itemsite_id, item_number
ORDER BY value DESC LOOP
IF (_itemsite.value IS NOT NULL) THEN
_cumulativeValue := _cumulativeValue + _itemsite.value;
END IF;
IF ((_cumulativeValue / _totalValue) <= pACutoff) THEN
UPDATE itemsite
SET itemsite_abcclass='A'
WHERE (itemsite_id=_itemsite.itemsite_id);
ELSE
IF ((_cumulativeValue / _totalValue) <= pBCutoff) THEN
UPDATE itemsite
SET itemsite_abcclass='B'
WHERE (itemsite_id=_itemsite.itemsite_id);
ELSE
UPDATE itemsite
SET itemsite_abcclass='C'
WHERE (itemsite_id=_itemsite.itemsite_id);
END IF;
END IF;
END LOOP;
UPDATE itemsite
SET itemsite_abcclass='C'
WHERE (itemsite_abcclass='T');
END IF;
END IF;
RETURN _updateCount;
END;
$_$;
ALTER FUNCTION public.updateabcclass(text, integer, numeric, numeric, date, date) OWNER TO admin;
--
-- Name: updateabcclass(integer, numeric, numeric, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updateabcclass(integer, numeric, numeric, date, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pClasscodeid ALIAS FOR $1;
pACutoff ALIAS FOR $2;
pBCutoff ALIAS FOR $3;
pStartDate ALIAS FOR $4;
pEndDate ALIAS FOR $5;
_result INTEGER;
BEGIN
SELECT updateABCClass(pClassCodeid, -1, pACutoff, pBCutoff, pStartDate, pEndDate) INTO _result;
RETURN _result;
END;
$_$;
ALTER FUNCTION public.updateabcclass(integer, numeric, numeric, date, date) OWNER TO admin;
--
-- Name: updateabcclass(integer, integer, numeric, numeric, date, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updateabcclass(integer, integer, numeric, numeric, date, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pClasscodeid ALIAS FOR $1;
pWarehousid ALIAS FOR $2;
pACutoff ALIAS FOR $3;
pBCutoff ALIAS FOR $4;
pStartDate ALIAS FOR $5;
pEndDate ALIAS FOR $6;
_updateCount INTEGER;
_totalValue NUMERIC;
_cumulativeValue NUMERIC;
_itemsite RECORD;
BEGIN
SELECT COUNT(*) INTO _updateCount
FROM itemsite, item
WHERE ( (itemsite_item_id=item_id)
AND ((item_classcode_id=pClasscodeid) OR (pClasscodeid=-1))
AND ((itemsite_warehous_id=pWarehousid) OR (pWarehousid=-1)) );
IF (_updateCount IS NULL) THEN
_updateCount := 0;
ELSE
UPDATE itemsite
SET itemsite_abcclass='T'
FROM item
WHERE ( (itemsite_item_id=item_id)
AND ((item_classcode_id=pClasscodeid) OR (pClasscodeid=-1))
AND ((itemsite_warehous_id=pWarehousid) OR (pWarehousid=-1)) );
SELECT SUM(ABS(invhist_qoh_before - invhist_qoh_after) * invhist_unitcost) INTO _totalValue
FROM invhist, itemsite, item
WHERE ( (invhist_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (invhist_analyze)
AND (invhist_transtype ~ '^[IR]')
AND ((item_classcode_id=pClasscodeid) OR (pClasscodeid=-1))
AND (invhist_transdate::DATE BETWEEN pStartDate AND pEndDate)
AND ((itemsite_warehous_id=pWarehousid) OR (pWarehousid=-1)) );
IF ( (_totalValue IS NULL) OR (_totalValue = 0) ) THEN
UPDATE itemsite
SET itemsite_abcclass='A'
WHERE (itemsite_abcclass='T');
ELSE
_cumulativeValue := 0;
FOR _itemsite IN SELECT itemsite_id, item_number,
SUM(ABS(invhist_qoh_before - invhist_qoh_after) * invhist_unitcost) AS value
FROM invhist, itemsite, item
WHERE ( (invhist_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (invhist_analyze)
AND (invhist_transtype ~ '^[IR]')
AND ((item_classcode_id=pClasscodeid) OR (pClasscodeid=-1))
AND (invhist_transdate::DATE BETWEEN pStartDate AND pEndDate)
AND ((itemsite_warehous_id=pWarehousid) OR (pWarehousid=-1)) )
GROUP BY itemsite_id, item_number
ORDER BY value DESC LOOP
IF (_itemsite.value IS NOT NULL) THEN
_cumulativeValue := _cumulativeValue + _itemsite.value;
END IF;
IF ((_cumulativeValue / _totalValue) <= pACutoff) THEN
UPDATE itemsite
SET itemsite_abcclass='A'
WHERE (itemsite_id=_itemsite.itemsite_id);
ELSE
IF ((_cumulativeValue / _totalValue) <= pBCutoff) THEN
UPDATE itemsite
SET itemsite_abcclass='B'
WHERE (itemsite_id=_itemsite.itemsite_id);
ELSE
UPDATE itemsite
SET itemsite_abcclass='C'
WHERE (itemsite_id=_itemsite.itemsite_id);
END IF;
END IF;
END LOOP;
UPDATE itemsite
SET itemsite_abcclass='C'
WHERE (itemsite_abcclass='T');
END IF;
END IF;
RETURN _updateCount;
END;
$_$;
ALTER FUNCTION public.updateabcclass(integer, integer, numeric, numeric, date, date) OWNER TO admin;
--
-- Name: updatecharassignment(text, integer, integer, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatecharassignment(text, integer, integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTargetType ALIAS FOR $1;
pTargetId ALIAS FOR $2;
pCharId ALIAS FOR $3;
pValue ALIAS FOR $4;
_charassid INTEGER;
BEGIN
SELECT updateCharAssignment(pTargetType, pTargetId, pCharId, pValue, 0) INTO _charassid;
RETURN _charassid;
END;
$_$;
ALTER FUNCTION public.updatecharassignment(text, integer, integer, text) OWNER TO admin;
--
-- Name: updatecharassignment(text, integer, integer, text, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatecharassignment(text, integer, integer, text, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTargetType ALIAS FOR $1;
pTargetId ALIAS FOR $2;
pCharId ALIAS FOR $3;
pValue ALIAS FOR $4;
pPrice ALIAS FOR $5;
_charassid INTEGER;
_charassprice NUMERIC;
_explodedJob BOOLEAN = FALSE;
_value TEXT;
BEGIN
-- Check for Valid Assignment
IF (pTargetType='SI') THEN
SELECT (item_config AND wo_status != 'O') INTO _explodedJob
FROM coitem,itemsite,item,wo
WHERE ((coitem_id=pTargetId)
AND (itemsite_id=coitem_itemsite_id)
AND (item_id=itemsite_item_id)
AND (wo_ordtype='S')
AND (wo_ordid=coitem_id));
END IF;
SELECT charass_id,charass_value INTO _charassid, _value
FROM charass
WHERE ((charass_target_type=pTargetType)
AND (charass_target_id=pTargetId)
AND (charass_char_id=pCharId) )
LIMIT 1;
IF (FOUND) THEN
IF (_explodedJob AND pValue != _value) THEN
RAISE EXCEPTION 'Characteristic may not be updated for Configured Item with exploded Work Order.';
ELSIF(COALESCE(pValue, '')!='') THEN
UPDATE charass
SET charass_value = pValue,
charass_price = pPrice
WHERE (charass_id=_charassid);
ELSE
DELETE
FROM charass
WHERE (charass_id=_charassid);
_charassid := 0;
END IF;
ELSE
IF ( (_explodedJob) AND (COALESCE(pValue, '')!='') ) THEN
RAISE EXCEPTION 'Characteristics may not be updated for Configured Item with exploded Work Order.';
ELSIF(COALESCE(pValue, '')!='') THEN
SELECT nextval('charass_charass_id_seq') INTO _charassid;
INSERT INTO charass
(charass_id, charass_target_type, charass_target_id,
charass_char_id, charass_value, charass_price)
VALUES(_charassid, pTargetType, pTargetId,
pCharId, pValue, pPrice);
ELSE
_charassid := 0;
END IF;
END IF;
RETURN _charassid;
END;
$_$;
ALTER FUNCTION public.updatecharassignment(text, integer, integer, text, numeric) OWNER TO admin;
--
-- Name: updatecost(integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatecost(integer, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemcostid ALIAS FOR $1;
pCost ALIAS FOR $2;
BEGIN
RETURN updateCost(pItemcostid, pCost, baseCurrId());
END;
$_$;
ALTER FUNCTION public.updatecost(integer, numeric) OWNER TO admin;
--
-- Name: updatecost(integer, text, boolean, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatecost(integer, text, boolean, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
returnVal INTEGER;
BEGIN
SELECT updateCost($1, $2, $3, $4, baseCurrId()) INTO returnVal;
RETURN returnVal;
END;
$_$;
ALTER FUNCTION public.updatecost(integer, text, boolean, numeric) OWNER TO admin;
--
-- Name: updatecost(integer, integer, boolean, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatecost(integer, integer, boolean, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
returnVal INTEGER;
BEGIN
SELECT updateCost($1, $2, $3, $4, baseCurrId()) INTO returnVal;
RETURN returnVal;
END;
$_$;
ALTER FUNCTION public.updatecost(integer, integer, boolean, numeric) OWNER TO admin;
--
-- Name: updatecost(integer, numeric, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatecost(integer, numeric, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemcostid ALIAS FOR $1;
pCost ALIAS FOR $2;
pCurrId ALIAS FOR $3;
BEGIN
IF ( ( SELECT (itemcost_stdcost > 0)
FROM itemcost
WHERE (itemcost_id=pItemcostid) ) OR
(pCost > 0) ) THEN
UPDATE itemcost
SET itemcost_actcost=pCost, itemcost_updated=CURRENT_DATE,
itemcost_curr_id=pCurrId
WHERE (itemcost_id=pItemcostid);
RETURN pItemcostid;
ELSE
DELETE FROM itemcost
WHERE (itemcost_id=pItemcostid);
RETURN -1;
END IF;
END;
$_$;
ALTER FUNCTION public.updatecost(integer, numeric, integer) OWNER TO admin;
--
-- Name: updatecost(integer, text, boolean, numeric, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatecost(integer, text, boolean, numeric, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pCosttype ALIAS FOR $2;
pLevel ALIAS FOR $3;
pCost ALIAS FOR $4;
pCurrid ALIAS FOR $5;
_cost NUMERIC;
_currId INTEGER;
_p RECORD;
_itemcostid INTEGER;
BEGIN
IF (pCost IS NULL) THEN
_cost = 0;
ELSE
_cost = pCost;
END IF;
IF (pCurrId IS NULL) THEN
_currId := baseCurrID();
ELSE
_currId := pCurrId;
END IF;
SELECT itemcost_id, itemcost_stdcost INTO _p
FROM itemcost, costelem
WHERE ( (itemcost_costelem_id=costelem_id)
AND (itemcost_item_id=pItemid)
AND (itemcost_lowlevel=pLevel)
AND (costelem_type=pCosttype) );
IF (NOT FOUND) THEN
IF (_cost > 0) THEN
SELECT NEXTVAL('itemcost_itemcost_id_seq') INTO _itemcostid;
INSERT INTO itemcost
( itemcost_id, itemcost_item_id, itemcost_costelem_id, itemcost_lowlevel,
itemcost_stdcost, itemcost_posted, itemcost_actcost, itemcost_updated,
itemcost_curr_id )
SELECT _itemcostid, pItemid, costelem_id, pLevel,
0, startOfTime(), _cost, CURRENT_DATE,
_currId
FROM costelem
WHERE (costelem_type=pCosttype);
RETURN _itemcostid;
ELSE
RETURN -1;
END IF;
ELSIF ( (_p.itemcost_stdcost > 0) OR (_cost > 0) ) THEN
UPDATE itemcost
SET itemcost_actcost=_cost,
itemcost_curr_id = _currId,
itemcost_updated=CURRENT_DATE
WHERE (itemcost_id=_p.itemcost_id);
RETURN _p.itemcost_id;
ELSE
DELETE FROM itemcost
WHERE (itemcost_id=_p.itemcost_id);
RETURN -1;
END IF;
END;
$_$;
ALTER FUNCTION public.updatecost(integer, text, boolean, numeric, integer) OWNER TO admin;
--
-- Name: updatecost(integer, integer, boolean, numeric, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatecost(integer, integer, boolean, numeric, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pCostelemid ALIAS FOR $2;
pLevel ALIAS FOR $3;
pCost ALIAS FOR $4;
pCurrid ALIAS FOR $5;
_cost NUMERIC;
_currId INTEGER;
_p RECORD;
_itemcostid INTEGER;
BEGIN
IF (pCost IS NULL) THEN
_cost = 0;
ELSE
_cost = pCost;
END IF;
IF (pCurrId IS NULL) THEN
_currId := baseCurrID();
ELSE
_currId := pCurrId;
END IF;
SELECT itemcost_id, itemcost_stdcost INTO _p
FROM itemcost
WHERE ((itemcost_costelem_id=pCostelemid)
AND (itemcost_item_id=pItemid)
AND (itemcost_lowlevel=pLevel) );
IF (NOT FOUND) THEN
IF (_cost > 0) THEN
SELECT NEXTVAL('itemcost_itemcost_id_seq') INTO _itemcostid;
INSERT INTO itemcost
( itemcost_id, itemcost_item_id, itemcost_costelem_id, itemcost_lowlevel,
itemcost_stdcost, itemcost_posted, itemcost_actcost, itemcost_updated,
itemcost_curr_id )
SELECT _itemcostid, pItemid, costelem_id, pLevel,
0, startOfTime(), _cost, CURRENT_DATE,
_currId
FROM costelem
WHERE (costelem_id=pCostelemid);
RETURN _itemcostid;
ELSE
RETURN -1;
END IF;
ELSIF ( (_p.itemcost_stdcost > 0) OR (_cost > 0) ) THEN
UPDATE itemcost
SET itemcost_actcost=_cost,
itemcost_curr_id = _currId,
itemcost_updated=CURRENT_DATE
WHERE (itemcost_id=_p.itemcost_id);
RETURN _p.itemcost_id;
ELSE
DELETE FROM itemcost
WHERE (itemcost_id=_p.itemcost_id);
RETURN -1;
END IF;
END;
$_$;
ALTER FUNCTION public.updatecost(integer, integer, boolean, numeric, integer) OWNER TO admin;
--
-- Name: updatecreditmemoline(api.creditmemoline, api.creditmemoline); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatecreditmemoline(api.creditmemoline, api.creditmemoline) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNew ALIAS FOR $1;
pOld ALIAS FOR $2;
_check INTEGER;
_r RECORD;
BEGIN
SELECT cmitem_id INTO _check
FROM cmitem
WHERE ( (cmitem_cmhead_id=getCmheadId(pOld.memo_number, FALSE)) AND (cmitem_linenumber=pOld.line_number) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Credit Memo # % Line Number # not found', pOld.memo_number, pOld.line_number;
END IF;
UPDATE cmitem
SET cmitem_itemsite_id=COALESCE(itemsite_id, -1),
cmitem_qtycredit=pNew.qty_to_credit,
cmitem_qtyreturned=pNew.qty_returned,
cmitem_unitprice=pNew.net_unit_price,
cmitem_comments=pNew.notes,
cmitem_rsncode_id=getRsnId(pNew.reason_code),
cmitem_taxtype_id=taxtype_id,
cmitem_qty_uom_id=COALESCE(getUomId(pNew.qty_uom), item_inv_uom_id),
cmitem_qty_invuomratio=CASE WHEN item_id IS NOT NULL THEN itemuomtouomratio(item_id, COALESCE(getUomId(pNew.qty_uom),item_inv_uom_id),item_inv_uom_id)
ELSE 1
END,
cmitem_price_uom_id=COALESCE(getUomId(pNew.price_uom),item_price_uom_id),
cmitem_price_invuomratio=CASE WHEN item_id IS NOT NULL THEN itemuomtouomratio(item_id, COALESCE(getUomId(pNew.price_uom),item_price_uom_id),item_price_uom_id)
ELSE 1
END
FROM cmhead LEFT OUTER JOIN item ON (item_id=getItemId(pNew.item_number))
LEFT OUTER JOIN itemsite ON (itemsite_item_id=item_id AND
itemsite_warehous_id=getWarehousId(pNew.recv_site, 'ALL'))
LEFT OUTER JOIN taxtype ON (taxtype_id=CASE WHEN pNew.tax_type IS NULL THEN getItemTaxType(item_id,cmhead_taxzone_id)
WHEN pNew.tax_type = 'None' THEN NULL
ELSE getTaxTypeId(pNew.tax_type)
END)
WHERE cmitem_cmhead_id=cmhead_id
AND cmhead_number=pOld.memo_number
AND cmitem_linenumber=pOld.line_number
AND cmhead_posted=FALSE;
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.updatecreditmemoline(api.creditmemoline, api.creditmemoline) OWNER TO admin;
--
-- Name: updatecustomprivs(); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatecustomprivs() RETURNS boolean
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_r RECORD;
BEGIN
FOR _r IN SELECT priv_id
FROM priv
WHERE ((priv_name IN (SELECT priv_name
FROM priv
WHERE (priv_module='Custom')
EXCEPT
SELECT ('Custom'||cmd_privname)
FROM cmd))
AND (priv_module='Custom')) LOOP
-- TODO: something here
DELETE FROM grppriv WHERE grppriv_priv_id=_r.priv_id;
DELETE FROM usrpriv WHERE usrpriv_priv_id=_r.priv_id;
DELETE FROM priv WHERE priv_id=_r.priv_id;
END LOOP;
FOR _r IN SELECT ('Custom'||cmd_privname) AS privname
FROM cmd
EXCEPT
SELECT priv_name
FROM priv
WHERE (priv_module='Custom') LOOP
-- TODO: something here
INSERT INTO priv (priv_module, priv_name, priv_descrip)
VALUES ('Custom', _r.privname, 'Auto Generated Custom Priv.');
END LOOP;
RETURN TRUE;
END;
$$;
ALTER FUNCTION public.updatecustomprivs() OWNER TO admin;
--
-- Name: updateinvoicelineitem(api.invoiceline, api.invoiceline); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updateinvoicelineitem(api.invoiceline, api.invoiceline) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pNew ALIAS FOR $1;
pOld ALIAS FOR $2;
_r RECORD;
BEGIN
UPDATE invcitem SET
invcitem_linenumber=pNew.line_number,
invcitem_item_id=COALESCE(item_id, -1),
invcitem_custpn=pNew.customer_part_number,
invcitem_number=(CASE WHEN item_id IS NULL THEN pNew.misc_item_number ELSE NULL END),
invcitem_warehous_id=(CASE WHEN invcitem_warehous_id IS NULL THEN COALESCE(getwarehousid(pNew.site,'ALL'),-1) ELSE NULL END),
invcitem_descrip=(CASE WHEN item_id IS NULL THEN pNew.misc_item_description ELSE NULL END),
invcitem_ordered=pNew.qty_ordered,
invcitem_billed=COALESCE(pNew.qty_billed, 0),
invcitem_updateinv=COALESCE(pNew.update_inventory,FALSE),
invcitem_price=COALESCE(pNew.net_unit_price,itemPrice(item_id,invchead_cust_id,
invchead_shipto_id,pNew.qty_ordered,invchead_curr_id,invchead_orderdate)),
invcitem_notes=COALESCE(pNew.notes,''),
invcitem_salescat_id=CASE
WHEN item_id IS NULL THEN
(SELECT salescat_id FROM salescat WHERE salescat_name = pNew.sales_category)
ELSE NULL
END,
invcitem_taxtype_id=taxtype_id,
invcitem_qty_uom_id=CASE
WHEN item_id IS NOT NULL THEN
COALESCE((SELECT uom_id FROM uom WHERE (uom_name=pNew.qty_uom)), item_price_uom_id)
ELSE NULL
END,
invcitem_qty_invuomratio=CASE
WHEN item_id IS NOT NULL THEN
itemuomtouomratio(item_id,
COALESCE((SELECT uom_id FROM uom WHERE uom_name=pNew.qty_uom),item_price_uom_id),
item_price_uom_id
)
ELSE 1
END,
invcitem_price_uom_id=CASE
WHEN item_id IS NOT NULL THEN
COALESCE((SELECT uom_id FROM uom WHERE uom_name=pNew.price_uom),item_price_uom_id)
ELSE NULL
END,
invcitem_price_invuomratio=CASE
WHEN item_id IS NOT NULL THEN
itemuomtouomratio(item_id,
COALESCE((SELECT uom_id FROM uom WHERE uom_name=pNew.price_uom),item_price_uom_id),
item_price_uom_id
)
ELSE 1
END,
invcitem_rev_accnt_id=getGlAccntId(alternate_rev_account)
FROM invchead
LEFT OUTER JOIN item ON (item_id=getItemId(pNew.item_number))
LEFT OUTER JOIN taxtype ON (taxtype_id=CASE
WHEN pNew.tax_type IS NULL THEN getItemTaxType(item_id,invchead_taxzone_id)
WHEN pNew.tax_type = 'None' THEN NULL
ELSE (SELECT taxtype_id FROM taxtype WHERE taxtype_name=pNew.tax_type)
END)
WHERE invcitem_invchead_id=invchead_id
AND invcitem_linenumber=pOld.line_number
AND invchead_invcnumber=pOld.invoice_number
AND invchead_posted=FALSE;
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.updateinvoicelineitem(api.invoiceline, api.invoiceline) OWNER TO admin;
--
-- Name: updateitemcost(integer, integer, integer, numeric, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updateitemcost(integer, integer, integer, numeric, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemId ALIAS FOR $1;
pCostElemId ALIAS FOR $2;
pCurrId ALIAS FOR $3;
pCost ALIAS FOR $4;
pPostToStandard ALIAS FOR $5;
_itemcost_id INTEGER;
_update_return INTEGER;
_postcost_return BOOLEAN;
--This function is used with the api.itemcost View for updating
--the itemcost table
BEGIN
SELECT itemcost_id INTO _itemcost_id
FROM itemcost
WHERE ( (itemcost_item_id = pItemId) AND (itemcost_costelem_id = pCostElemId) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'itemcost % not found for. ', pItemId || ' & ' || pCostElemId;
END IF;
IF (pCost IS NULL OR pCost < 0) THEN
RAISE EXCEPTION 'itemcost Actual Cost Invalid ', pCost;
END IF;
IF (pCost > 0) THEN
UPDATE itemcost
SET itemcost_actcost=pCost,
itemcost_curr_id = pCurrId
WHERE (itemcost_id=_itemcost_id);
--Only Post Cost to standard if the parameter is set to true
IF (pPostToStandard) THEN
IF (NOT checkPrivilege('PostStandardCosts')) THEN
RAISE EXCEPTION 'You do not have privileges to poststandard itemcosts. Set api.itemcost post_to_standard to false';
END IF;
SELECT postcost(_itemcost_id) INTO _postcost_return;
IF (NOT _postcost_return) THEN
RETURN -2;
END IF;
END IF;
ELSE
RETURN -1;
END IF;
RETURN _itemcost_id;
END;
$_$;
ALTER FUNCTION public.updateitemcost(integer, integer, integer, numeric, boolean) OWNER TO admin;
--
-- Name: updateitemsiteleadtime(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updateitemsiteleadtime(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pPad ALIAS FOR $2;
_p RECORD;
_materialLeadTime INTEGER;
_productionLeadTime INTEGER;
_leadTime INTEGER;
BEGIN
SELECT item_type, itemsite_wosupply INTO _p
FROM item, itemsite
WHERE ( (itemsite_item_id=item_id)
AND (itemsite_id=pitemsiteid) );
IF ( (_p.item_type IN ('M', 'P')) ) THEN
IF (_p.item_type = 'M') THEN
SELECT COALESCE(MAX(component.itemsite_leadtime), 0) INTO _materialLeadTime
FROM bomitem, itemsite AS parent, itemsite AS component
WHERE ( (bomitem_parent_item_id=parent.itemsite_item_id)
AND (bomitem_rev_id=getActiveRevId('BOM',bomitem_parent_item_id))
AND (bomitem_item_id=component.itemsite_item_id)
AND (parent.itemsite_warehous_id=component.itemsite_warehous_id)
AND (parent.itemsite_id=pItemsiteid) );
SELECT COALESCE(MAX(booitem_execday), 0) INTO _productionLeadTime
FROM xtmfg.booitem, itemsite
WHERE ( (booitem_item_id=itemsite_item_id)
AND (booitem_rev_id=getActiveRevId('BOO',booitem_item_id))
AND (itemsite_id=pItemsiteid) );
_leadTime := (_materialLeadTime + _productionLeadTime + pPad);
ELSIF (_p.item_type IN ('P')) THEN
SELECT COALESCE(MAX(itemsrc_leadtime), 0) INTO _leadTime
FROM itemsrc, itemsite
WHERE ( (itemsite_item_id=itemsrc_item_id)
AND (itemsite_id=pItemsiteid) );
_leadTime := (_leadTime + pPad);
END IF;
ELSE
_leadTime = pPad;
END IF;
UPDATE itemsite
SET itemsite_leadtime=_leadTime
WHERE (itemsite_id=pItemsiteid);
RETURN _leadTime;
END;
$_$;
ALTER FUNCTION public.updateitemsiteleadtime(integer, integer) OWNER TO admin;
--
-- Name: updatelistprice(integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatelistprice(integer, numeric) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pUpdateBy ALIAS FOR $2;
BEGIN
UPDATE item
SET item_listprice = (item_listprice * pUpdateBy)
WHERE (item_id=pItemid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.updatelistprice(integer, numeric) OWNER TO admin;
--
-- Name: updatelowerusercosts(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatelowerusercosts(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
BEGIN
RETURN updateLowerUserCosts(pItemid, TRUE);
END;
$_$;
ALTER FUNCTION public.updatelowerusercosts(integer) OWNER TO admin;
--
-- Name: updatelowerusercosts(integer, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatelowerusercosts(integer, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pUpdateActual ALIAS FOR $2;
_bomitem RECORD;
_type CHAR(1);
BEGIN
SELECT item_type INTO _type
FROM item
WHERE (item_id=pItemid);
IF (_type IN ('M', 'F', 'B', 'T')) THEN
FOR _bomitem IN SELECT DISTINCT costelem_type
FROM ( SELECT COALESCE(bc.costelem_type, ic.costelem_type) AS costelem_type
FROM bomitem(pItemid)
JOIN item ON (item_id=bomitem_item_id AND item_type <> 'T')
JOIN itemcost ON (itemcost_item_id=bomitem_item_id)
JOIN costelem ic ON (ic.costelem_id=itemcost_costelem_id AND NOT ic.costelem_sys)
LEFT OUTER JOIN bomitemcost ON (bomitemcost_bomitem_id=bomitem_id)
LEFT OUTER JOIN costelem bc ON (bc.costelem_id=bomitemcost_costelem_id AND NOT bc.costelem_sys)
WHERE ( CURRENT_DATE BETWEEN bomitem_effective AND (bomitem_expires - 1) )
UNION SELECT costelem_type
FROM itemcost, costelem
WHERE ( (itemcost_costelem_id=costelem_id)
AND (itemcost_item_id=pItemid) ) ) AS data LOOP
PERFORM updateSorACost( pItemid, _bomitem.costelem_type,
TRUE, lowerCost(pItemid, _bomitem.costelem_type, pUpdateActual),
pUpdateActual);
END LOOP;
ELSIF (_type = 'C') THEN
FOR _bomitem IN SELECT DISTINCT costelem_type
FROM ( SELECT costelem_type
FROM itemcost, costelem,
xtmfg.bbomitem
WHERE ( (bbomitem_item_id=pItemid)
AND ( CURRENT_DATE BETWEEN bbomitem_effective
AND (bbomitem_expires - 1) )
AND (NOT costelem_sys)
AND (bbomitem_item_id=itemcost_item_id)
AND (itemcost_costelem_id=costelem_id) )
UNION SELECT costelem_type
FROM itemcost, costelem,
xtmfg.bbomitem AS t,
xtmfg.bbomitem AS s
WHERE ( (t.bbomitem_item_id=pItemid)
AND ( CURRENT_DATE BETWEEN s.bbomitem_effective
AND (s.bbomitem_expires - 1) )
AND ( CURRENT_DATE BETWEEN t.bbomitem_effective
AND (t.bbomitem_expires - 1) )
AND (s.bbomitem_parent_item_id=t.bbomitem_parent_item_id)
AND (NOT costelem_sys)
AND (s.bbomitem_item_id=itemcost_item_id)
AND (itemcost_costelem_id=costelem_id) ) ) AS data LOOP
PERFORM updateSorACost( pItemid, _bomitem.costelem_type,
TRUE, lowerCost(pItemid, _bomitem.costelem_type, pUpdateActual),
pUpdateActual);
END LOOP;
END IF;
RETURN 1;
END;
$_$;
ALTER FUNCTION public.updatelowerusercosts(integer, boolean) OWNER TO admin;
--
-- Name: updatelowlevel(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatelowlevel(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pLowlevel ALIAS FOR $1;
_num_back INTEGER;
BEGIN
UPDATE costUpdate SET costUpdate_lowlevel_code = (pLowlevel + 1)
WHERE costUpdate_item_id IN (
SELECT bomitem_item_id
FROM bomitem JOIN costUpdate ON (bomitem_parent_item_id = costUpdate_item_id)
WHERE ((costUpdate_lowlevel_code = pLowlevel)
AND (bomitem_rev_id=getActiveRevId('BOM',bomitem_parent_item_id))
AND (CURRENT_DATE BETWEEN bomitem_effective
AND (bomitem_expires - 1))))
AND costUpdate_lowlevel_code >= pLowlevel;
GET DIAGNOSTICS _num_back = ROW_COUNT;
RETURN _num_back;
END;
$_$;
ALTER FUNCTION public.updatelowlevel(integer) OWNER TO admin;
--
-- Name: updateoutlevel(integer, integer, integer[]); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updateoutlevel(integer, integer, integer[]) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pDays ALIAS FOR $2;
pPeriods ALIAS FOR $3;
_cursor INTEGER;
_periodid INTEGER;
_usage NUMERIC;
_totalUsage NUMERIC;
_totalDays INTEGER;
_outLevel NUMERIC;
_averageUsage NUMERIC;
BEGIN
_cursor := 1;
_totalUsage := 0;
_totalDays := 0;
_periodid = pPeriods[_cursor];
WHILE (_periodid IS NOT NULL) LOOP
SELECT COALESCE(SUM(invhist_invqty), 0) INTO _usage
FROM invhist
WHERE ( (invhist_itemsite_id=pItemsiteid)
AND ( invhist_transdate::DATE BETWEEN findPeriodStart(_periodid)
AND findPeriodEnd(_periodid) )
AND (invhist_transtype IN ('SH', 'IM')) );
_totalUsage := (_totalUsage + _usage);
_totalDays := ( _totalDays + ( findPeriodEnd(_periodid) -
findPeriodStart(_periodid) + 1 ) );
_cursor := (_cursor + 1);
_periodid = pPeriods[_cursor];
END LOOP;
IF (_totalDays > 0) THEN
_outLevel := round(_totalUsage / _totalDays * pDays);
IF (_outLevel > 0) THEN
UPDATE itemsite
SET itemsite_ordertoqty = _outLevel
WHERE (itemsite_id=pItemsiteid);
ELSE
UPDATE itemsite
SET itemsite_ordertoqty = 0
WHERE (itemsite_id=pItemsiteid);
END IF;
RETURN TRUE;
ELSE
RETURN FALSE;
END IF;
END;
$_$;
ALTER FUNCTION public.updateoutlevel(integer, integer, integer[]) OWNER TO admin;
--
-- Name: updateprice(integer, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updateprice(integer, numeric) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pIpsitemid ALIAS FOR $1;
pUpdateBy ALIAS FOR $2;
BEGIN
RETURN updatePrice(pIpsitemid, 'P', pUpdateBy);
END;
$_$;
ALTER FUNCTION public.updateprice(integer, numeric) OWNER TO admin;
--
-- Name: updateprice(integer, character, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updateprice(integer, character, numeric) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pIpsitemid ALIAS FOR $1;
pUpdateType ALIAS FOR $2;
pUpdateBy ALIAS FOR $3;
BEGIN
IF (pUpdateType IN('V')) THEN
UPDATE ipsitem
SET ipsitem_price = (ipsitem_price + pUpdateBy)
WHERE (ipsitem_id=pIpsitemid);
RETURN 1;
ELSE
UPDATE ipsitem
SET ipsitem_price = (ipsitem_price * pUpdateBy)
WHERE (ipsitem_id=pIpsitemid);
RETURN 1;
END IF;
END;
$_$;
ALTER FUNCTION public.updateprice(integer, character, numeric) OWNER TO admin;
--
-- Name: updatepricesbypricingschedule(integer, character, numeric, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatepricesbypricingschedule(pipsheadid integer, pupdatetype character, pupdateby numeric, pupdatecharprices boolean) RETURNS numeric
LANGUAGE plpgsql
AS $$
DECLARE
_percentMultiplier NUMERIC;
_currencyDecimals INTEGER;
_itemRows INTEGER :=0;
_charRows INTEGER :=0;
BEGIN
IF NOT (checkPrivilege('MaintainPricingSchedules')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Price Schedules.';
END IF;
-- Get the current user's currency precision
SELECT COALESCE(locale_curr_scale, 2) INTO _currencyDecimals
FROM locale, usr
WHERE usr_locale_id = locale_id AND usr_username = CURRENT_USER;
IF (pUpdateType = 'V') THEN
UPDATE ipsitem
SET ipsitem_price = noNeg(ROUND( (ipsitem_price + pUpdateBy), _currencyDecimals))
WHERE (ipsitem_ipshead_id = pIpsHeadId);
GET DIAGNOSTICS _itemRows = ROW_COUNT;
ELSE
_percentMultiplier := (1.0 + (pUpdateBy / 100.0));
UPDATE ipsitem
SET ipsitem_price = noNeg(ROUND( (ipsitem_price * _percentMultiplier), _currencyDecimals))
WHERE (ipsitem_ipshead_id = pIpsHeadId);
GET DIAGNOSTICS _itemRows = ROW_COUNT;
IF (pUpdateCharPrices) THEN
UPDATE ipsitemchar
SET ipsitemchar_price = noNeg(ROUND( (ipsitemchar_price * _percentMultiplier), _currencyDecimals))
FROM ipsitem
WHERE ipsitemchar_ipsitem_id = ipsitem_id AND ipsitem_ipshead_id = pIpsHeadId;
GET DIAGNOSTICS _charRows = ROW_COUNT;
END IF;
END IF;
RETURN _itemRows + _charRows;
END;
$$;
ALTER FUNCTION public.updatepricesbypricingschedule(pipsheadid integer, pupdatetype character, pupdateby numeric, pupdatecharprices boolean) OWNER TO admin;
--
-- Name: updatepricesbyproductcategory(integer, text, character, numeric, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatepricesbyproductcategory(pprodcatid integer, pprodcatpattern text, pupdatetype character, pupdateby numeric, pupdatecharprices boolean) RETURNS numeric
LANGUAGE plpgsql
AS $$
DECLARE
_percentMultiplier NUMERIC;
_currencyDecimals INTEGER;
_itemRows INTEGER :=0;
_charRows INTEGER :=0;
BEGIN
IF NOT (checkPrivilege('MaintainPricingSchedules')) THEN
RAISE EXCEPTION 'You do not have privileges to maintain Price Schedules.';
END IF;
-- Get the current user's currency precision
SELECT COALESCE(locale_curr_scale, 2) INTO _currencyDecimals
FROM locale, usr
WHERE usr_locale_id = locale_id AND usr_username = CURRENT_USER;
_percentMultiplier := (1.0 + (pUpdateBy / 100.0));
IF (pUpdateType = 'V') THEN
IF (pProdCatId IS NOT NULL) THEN
-- Specified category id
UPDATE ipsitem
SET ipsitem_price = noNeg(ROUND( (ipsitem_price + pUpdateBy), _currencyDecimals ))
FROM item
WHERE
ipsitem_item_id = item_id
AND item_prodcat_id = pProdCatId;
ELSIF (pProdCatPattern IS NOT NULL) THEN
-- Pattern match category
UPDATE ipsitem
SET ipsitem_price = noNeg(ROUND( (ipsitem_price + pUpdateBy), _currencyDecimals ))
FROM item
WHERE
ipsitem_item_id = item_id
AND item_prodcat_id IN (
SELECT prodcat_id FROM prodcat
WHERE (prodcat_code ~ pProdCatPattern)
);
ELSE
-- All categories
UPDATE ipsitem
SET ipsitem_price = noNeg(ROUND( (ipsitem_price + pUpdateBy), _currencyDecimals ));
END IF;
GET DIAGNOSTICS _itemRows = ROW_COUNT;
ELSE
IF (pProdCatId IS NOT NULL) THEN
-- Specified category id
UPDATE ipsitem
SET ipsitem_price = noNeg(ROUND( (ipsitem_price * _percentMultiplier), _currencyDecimals ))
FROM item
WHERE
ipsitem_item_id = item_id
AND item_prodcat_id = pProdCatId;
GET DIAGNOSTICS _itemRows = ROW_COUNT;
IF(pUpdateCharPrices) THEN
UPDATE ipsitemchar
SET ipsitemchar_price = noNeg(ROUND( (ipsitemchar_price * _percentMultiplier), _currencyDecimals ))
FROM ipsitem, item
WHERE
item_prodcat_id = pProdCatId
AND ipsitem_item_id = item_id
AND ipsitemchar_ipsitem_id = ipsitem_id;
GET DIAGNOSTICS _charRows = ROW_COUNT;
END IF;
ELSIF (pProdCatPattern IS NOT NULL) THEN
-- Pattern match category
UPDATE ipsitem
SET ipsitem_price = noNeg(ROUND( (ipsitem_price * _percentMultiplier), _currencyDecimals ))
FROM item
WHERE
item_prodcat_id IN (
SELECT prodcat_id FROM prodcat
WHERE (prodcat_code ~ pProdCatPattern )
)
AND ipsitem_item_id = item_id;
GET DIAGNOSTICS _itemRows = ROW_COUNT;
IF(pUpdateCharPrices) THEN
UPDATE ipsitemchar
SET ipsitemchar_price = noNeg(ROUND( (ipsitemchar_price * _percentMultiplier), _currencyDecimals ))
FROM ipsitem, item
WHERE
item_prodcat_id IN (
SELECT prodcat_id FROM prodcat
WHERE (prodcat_code ~ pProdCatPattern )
)
AND ipsitem_item_id = item_id
AND ipsitemchar_ipsitem_id = ipsitem_id;
GET DIAGNOSTICS _charRows = ROW_COUNT;
END IF;
ELSE
-- All categories
UPDATE ipsitem
SET ipsitem_price = noNeg(ROUND( (ipsitem_price * _percentMultiplier), _currencyDecimals ));
GET DIAGNOSTICS _itemRows = ROW_COUNT;
IF(pUpdateCharPrices) THEN
UPDATE ipsitemchar
SET ipsitemchar_price = noNeg(ROUND( (ipsitemchar_price * _percentMultiplier), _currencyDecimals ));
GET DIAGNOSTICS _charRows = ROW_COUNT;
END IF;
END IF;
END IF;
RETURN _itemRows + _charRows;
END;
$$;
ALTER FUNCTION public.updatepricesbyproductcategory(pprodcatid integer, pprodcatpattern text, pupdatetype character, pupdateby numeric, pupdatecharprices boolean) OWNER TO admin;
--
-- Name: updatereorderlevel(integer, integer, integer[]); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatereorderlevel(integer, integer, integer[]) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pDays ALIAS FOR $2;
pPeriods ALIAS FOR $3;
_cursor INTEGER;
_periodid INTEGER;
_usage NUMERIC;
_totalUsage NUMERIC;
_totalDays INTEGER;
_reorderLevel INTEGER;
_averageUsage NUMERIC;
_result TEXT;
BEGIN
_cursor := 1;
_totalUsage := 0;
_totalDays := 0;
_periodid = pPeriods[_cursor];
WHILE (_periodid IS NOT NULL) LOOP
SELECT COALESCE(SUM(invhist_invqty), 0) INTO _usage
FROM invhist
WHERE ( (invhist_itemsite_id=pItemsiteid)
AND ( invhist_transdate::DATE BETWEEN findPeriodStart(_periodid)
AND findPeriodEnd(_periodid) )
AND (invhist_transtype IN ('SH', 'IM')) );
_totalUsage := (_totalUsage + _usage);
_totalDays := ( _totalDays + ( findPeriodEnd(_periodid) -
findPeriodStart(_periodid) + 1 ) );
_cursor := (_cursor + 1);
_periodid = pPeriods[_cursor];
END LOOP;
IF (_totalDays > 0) THEN
_reorderLevel := round(_totalUsage / _totalDays * pDays);
SELECT itemsite_stocked INTO _result from itemsite WHERE (itemsite_id=pItemsiteid);
IF (_reorderLevel = 0 AND _result='t') THEN
_reorderLevel := 1;
END IF;
IF (_reorderLevel > 0) THEN
UPDATE itemsite
SET itemsite_reorderlevel = _reorderLevel
WHERE (itemsite_id=pItemsiteid);
ELSE
UPDATE itemsite
SET itemsite_reorderlevel = 0
WHERE (itemsite_id=pItemsiteid);
END IF;
RETURN TRUE;
ELSE
RETURN FALSE;
END IF;
END;
$_$;
ALTER FUNCTION public.updatereorderlevel(integer, integer, integer[]) OWNER TO admin;
--
-- Name: updatereorderlevel(integer[], integer, boolean, integer[]); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatereorderlevel(integer[], integer, boolean, integer[]) RETURNS SETOF reordlvl
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteids ALIAS FOR $1;
pDays ALIAS FOR $2;
pAddLeadtime ALIAS FOR $3;
pPeriodIds ALIAS FOR $4;
_icursor INTEGER := 1;
_pcursor INTEGER := 1;
_totalUsage NUMERIC := 0;
_totalDays INTEGER := 0;
_reorderLevel INTEGER := 0;
_result TEXT;
_usage NUMERIC;
_averageUsage NUMERIC;
_row reordlvl %ROWTYPE;
BEGIN
-- Validate
IF (pItemsiteIds[1] IS NULL OR pPeriodIds[1] IS NULL) THEN
RETURN;
END IF;
-- Calculate total days
FOR _pcursor IN 1..ARRAY_UPPER(pPeriodIds,1)
LOOP
_totalDays := ( _totalDays + ( findPeriodEnd(pPeriodIds[_pcursor]) -
findPeriodStart(pPeriodIds[_pcursor]) + 1 ) );
END LOOP;
-- Loop through each itemsite id
FOR _icursor IN 1..ARRAY_UPPER(pItemsiteIds,1)
LOOP
-- Get itemsite data
SELECT itemsite_id,
item_id,
warehous_code,
item_number,
item_descrip1,
itemsite_leadtime,
0,
itemsite_reorderlevel,
0,
0,
0
INTO _row
FROM itemsite
JOIN item ON (itemsite_item_id=item_id)
JOIN whsinfo ON (itemsite_warehous_id=warehous_id)
WHERE (itemsite_id=pItemsiteIds[_icursor]);
IF (FOUND) THEN
IF (pAddLeadtime) THEN
_row.reordlvl_daysofstock := pDays + _row.reordlvl_leadtime;
ELSE
_row.reordlvl_daysofstock := pDays;
END IF;
-- Loop through each period id
FOR _pcursor IN 1..ARRAY_UPPER(pPeriodIds,1)
LOOP
-- Sum days and usage shipping and inventory transactions
SELECT COALESCE(SUM(invhist_invqty), 0) INTO _usage
FROM invhist
WHERE ( (invhist_itemsite_id=pItemsiteIds[_icursor])
AND ( invhist_transdate::DATE BETWEEN findPeriodStart(pPeriodIds[_pcursor])
AND findPeriodEnd(pPeriodIds[_pcursor]) )
AND (invhist_transtype IN ('SH', 'IM')) );
_totalUsage := (_totalUsage + _usage);
END LOOP;
-- Calculate reorder level
IF (_totalDays > 0) THEN
_reorderLevel := round(_totalUsage / _totalDays * _row.reordlvl_daysofstock);
END IF;
IF (_reorderLevel <= 0) THEN
_reorderLevel := 0;
END IF;
SELECT itemsite_stocked INTO _result from itemsite WHERE (itemsite_id=pItemsiteIds[_icursor]);
IF (_reorderLevel = 0 AND _result='t') THEN
_reorderLevel := 1;
END IF;
-- Set values
_row.reordlvl_total_days := _totalDays;
_row.reordlvl_total_usage := _totalUsage;
_row.reordlvl_calc_level := _reorderLevel;
-- Return result
RETURN NEXT _row;
END IF;
_usage := 0;
_averageUsage := 0;
_totalUsage := 0;
_reorderLevel := 0;
END LOOP;
RETURN;
END;
$_$;
ALTER FUNCTION public.updatereorderlevel(integer[], integer, boolean, integer[]) OWNER TO admin;
--
-- Name: updateretainedearnings(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updateretainedearnings(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pYearPeriodid ALIAS FOR $1;
_r RECORD;
_n RECORD;
_c RECORD;
_beginningPeriodid INTEGER;
_trialbalid INTEGER;
_accntid INTEGER;
_totalProfitLoss NUMERIC;
_periodid INTEGER;
_forwardupdate INTEGER;
BEGIN
-- First thing we need to do is to get the yearperiod
SELECT * INTO _r FROM yearperiod where yearperiod_id = pYearPeriodid;
IF (NOT FOUND) THEN
RETURN -6;
END IF;
-- Now we need to find the next yearperiod
SELECT * INTO _n FROM yearperiod WHERE yearperiod_start = _r.yearperiod_end + interval '1 day';
IF (NOT FOUND) THEN
RETURN -4;
END IF;
-- Now we have to find where to stick the end of year data
SELECT period_id INTO _periodid FROM period WHERE period_start = _n.yearperiod_start;
IF (NOT FOUND) THEN
RETURN -8;
END IF;
-- Loop through companies and process each one
IF (coalesce(fetchMetricValue('GLCompanySize'),0) = 0) THEN
-- Process for installs not using company segment
-- Now we need to get the default account number for year end closing
SELECT CAST ( metric_value AS integer ) INTO _accntid FROM metric WHERE metric_name = 'YearEndEquityAccount';
IF (NOT FOUND) THEN
RETURN -7;
END IF;
-- So far so good. Now we need to calculate the profit-loss for the year that we are closing
SELECT SUM(gltrans_amount) INTO _totalProfitLoss
FROM gltrans, accnt
WHERE ( (gltrans_accnt_id = accnt_id)
AND (accnt_type IN ( 'R', 'E' ) )
AND (gltrans_posted)
AND (NOT gltrans_deleted)
AND (gltrans_date between _r.yearperiod_start and _r.yearperiod_end ) );
IF (_totalProfitLoss IS NULL) THEN
_totalProfitLoss := 0;
END IF;
-- Get the trailbal_id
SELECT trialbal_id INTO _trialbalid
FROM trialbal
WHERE ( (trialbal_period_id = _periodid )
AND (trialbal_accnt_id = _accntid) );
IF (NOT FOUND) THEN
RETURN -9;
END IF;
-- Lets do the update for the trialbal
UPDATE trialbal
SET trialbal_beginning = trialbal_beginning - trialbal_yearend + _totalProfitLoss,
trialbal_ending = trialbal_beginning - trialbal_yearend - trialbal_debits + trialbal_credits + _totalProfitLoss,
trialbal_yearend = _totalProfitLoss
WHERE trialbal_id = _trialbalid;
-- Now the forward update
SELECT forwardupdatetrialbalance(_trialbalid) INTO _forwardupdate;
ELSE -- Process for a multi-company set up
FOR _c IN
SELECT company_number, company_yearend_accnt_id
FROM company
LOOP
-- Calculate the profit-loss for the year that we are closing
SELECT SUM(gltrans_amount) INTO _totalProfitLoss
FROM gltrans, accnt
WHERE ( (gltrans_accnt_id = accnt_id)
AND (accnt_type IN ( 'R', 'E' ) )
AND (gltrans_posted)
AND (NOT gltrans_deleted)
AND (accnt_company = _c.company_number)
AND (gltrans_date between _r.yearperiod_start and _r.yearperiod_end ) );
IF(_totalProfitLoss IS NULL) THEN
_totalProfitLoss := 0;
END IF;
-- Get the trailbal_id
SELECT trialbal_id INTO _trialbalid
FROM trialbal
JOIN accnt ON (trialbal_accnt_id=accnt_id)
WHERE ( (trialbal_period_id = _periodid )
AND (trialbal_accnt_id = _c.company_yearend_accnt_id) );
IF (NOT FOUND) THEN
-- Create a trial balance record
SELECT NEXTVAL('trialbal_trialbal_id_seq') INTO _trialbalid;
INSERT INTO trialbal
( trialbal_id, trialbal_accnt_id, trialbal_period_id,
trialbal_beginning, trialbal_dirty,
trialbal_ending,
trialbal_credits,
trialbal_debits,
trialbal_yearend )
VALUES
( _trialbalid, _c.company_yearend_accnt_id, _periodid,
_totalProfitLoss, TRUE,
_totalProfitLoss,
0,
0,
_totalProfitLoss );
ELSE
-- Lets do the update for the trialbal
UPDATE trialbal
SET trialbal_beginning = trialbal_beginning - trialbal_yearend + _totalProfitLoss,
trialbal_ending = trialbal_beginning - trialbal_yearend - trialbal_debits + trialbal_credits + _totalProfitLoss,
trialbal_yearend = _totalProfitLoss
WHERE trialbal_id = _trialbalid;
END IF;
-- Now the forward update
SELECT forwardupdatetrialbalance(_trialbalid) INTO _forwardupdate;
END LOOP;
END IF;
RETURN 0;
END;
$_$;
ALTER FUNCTION public.updateretainedearnings(integer) OWNER TO admin;
--
-- Name: updatesoracost(integer, text, boolean, numeric, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatesoracost(integer, text, boolean, numeric, boolean) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pCosttype ALIAS FOR $2;
pLevel ALIAS FOR $3;
pCost ALIAS FOR $4;
pUpdateActual ALIAS FOR $5;
BEGIN
IF (pUpdateActual) THEN
RETURN updateCost(pItemid, pCosttype, pLevel, pCost);
ELSE
RETURN updateStdCost(pItemid, pCosttype, pLevel, pCost);
END IF;
END;
$_$;
ALTER FUNCTION public.updatesoracost(integer, text, boolean, numeric, boolean) OWNER TO admin;
--
-- Name: updatestdcost(integer, numeric, numeric, text, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatestdcost(integer, numeric, numeric, text, text) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemcostid ALIAS FOR $1;
pNewcost ALIAS FOR $2;
pOldcost ALIAS FOR $3;
pDocNumber ALIAS FOR $4;
pNotes ALIAS FOR $5;
_itemcostid INTEGER;
_r RECORD;
_newcost NUMERIC;
_oldcost NUMERIC;
BEGIN
IF (pNewcost IS NULL) THEN
_newcost := 0;
ELSE
_newcost := pNewcost;
END IF;
IF (pOldcost IS NULL) THEN
_oldcost := 0;
ELSE
_oldcost := pOldcost;
END IF;
IF (_newcost > 0) THEN
UPDATE itemcost
SET itemcost_stdcost=_newcost,
itemcost_posted=CURRENT_DATE
WHERE (itemcost_id=pItemcostid);
END IF;
-- Distribute to G/L, debit Inventory Asset, credit Inventory Cost Variance
FOR _r IN SELECT itemsite_id, (itemsite_qtyonhand + itemsite_nnqoh) AS totalQty,
costcat_invcost_accnt_id, costcat_asset_accnt_id,
itemsite_costmethod
FROM itemcost, itemsite, costcat
WHERE ( (itemsite_item_id=itemcost_item_id)
AND (itemsite_costcat_id=costcat_id)
AND (itemsite_costmethod != 'A')
AND ((itemsite_qtyonhand + itemsite_nnqoh) <> 0)
AND (itemcost_id=pItemcostid) ) LOOP
-- IF (_newcost <> _oldcost) THEN
-- RAISE NOTICE 'itemcost_id = %, Qty = %, Old Cost = %, New Cost = %', pItemcostid, _r.totalQty, _oldcost, _newcost;
-- END IF;
PERFORM insertGLTransaction( 'P/D', '', pDocNumber, pNotes,
_r.costcat_invcost_accnt_id, _r.costcat_asset_accnt_id, _r.itemsite_id,
((_newcost - _oldcost) * _r.totalQty),
CURRENT_DATE );
-- Update Itemsite Value if not Average Cost
IF (_r.itemsite_costmethod <> 'A') THEN
-- RAISE NOTICE 'itemsite_id = %, Qty = %, New Cost = %', _r.itemsite_id, _r.totalQty, _newcost;
UPDATE itemsite SET itemsite_value=(_r.totalQty * stdCost(itemsite_item_id))
WHERE (itemsite_id=_r.itemsite_id);
END IF;
END LOOP;
IF (_newcost = 0) THEN
DELETE FROM itemcost
WHERE (itemcost_id=pItemcostid);
RETURN FALSE;
END IF;
IF ( SELECT metric_value
FROM metric
WHERE ((metric_name = 'EnableAsOfQOH')
AND (metric_value = 't'))) THEN
IF (pNewcost IS NOT NULL) THEN
_newcost := pNewcost;
END IF;
IF (pOldcost IS NULL) THEN
_oldcost := 0;
ELSE
_oldcost := pOldcost;
END IF;
-- Distribute to G/L, debit Inventory Asset, credit Inventory Cost Variance
PERFORM postValueIntoInvBalance(
itemsite_id,
current_date,
asofinvqty(itemsite_id,current_date),
asofinvnn(itemsite_id,current_date),
_oldcost,
_newcost)
FROM itemsite
JOIN item ON (itemsite_item_id=item_id)
JOIN itemcost ON (itemcost_item_id=item_id)
WHERE((itemsite_costmethod = 'S')
AND (itemcost_id=pItemcostid));
END IF;
RETURN TRUE;
END;
$_$;
ALTER FUNCTION public.updatestdcost(integer, numeric, numeric, text, text) OWNER TO admin;
--
-- Name: updatestdcost(integer, text, boolean, numeric); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatestdcost(integer, text, boolean, numeric) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemid ALIAS FOR $1;
pCostType ALIAS FOR $2;
pLevel ALIAS FOR $3;
pCost ALIAS FOR $4;
_newCost NUMERIC;
_oldCost NUMERIC := 0;
_itemcostid INTEGER;
_updateRet BOOLEAN;
_itemNumber TEXT;
BEGIN
IF (pCost IS NULL) THEN
_newCost = 0;
ELSE
_newCost = pCost;
END IF;
SELECT itemcost_id, itemcost_stdCost, item_number
INTO _itemcostid, _oldCost, _itemNumber
FROM itemcost, costelem, item
WHERE ((itemcost_costelem_id=costelem_id)
AND (itemcost_item_id=item_id)
AND (item_id=pItemid)
AND (itemcost_lowlevel=pLevel)
AND (costelem_type=pCosttype));
-- RAISE NOTICE 'updateStdCost(%, %, %, %) has itemcost_id % and stdcost %',
-- pItemid, pCostType, plevel, _newCost, _itemcostid, _oldCost;
IF (NOT FOUND) AND (_newCost > 0) THEN
SELECT NEXTVAL('itemcost_itemcost_id_seq') INTO _itemcostid;
RAISE NOTICE 'updateStdCost() inserting itemcost_id %', _itemcostid;
INSERT INTO itemcost
(itemcost_id, itemcost_item_id, itemcost_costelem_id,
itemcost_lowlevel, itemcost_stdcost, itemcost_posted,
itemcost_actcost, itemcost_updated)
SELECT
_itemcostid, pItemid, costelem_id,
pLevel, _newCost, CURRENT_DATE,
0, CURRENT_DATE
FROM costelem
WHERE (costelem_type=pCosttype);
END IF;
IF (_itemcostid IS NOT NULL) THEN
SELECT updateStdCost(_itemcostid, _newCost, _oldCost, 'Post Cost',
('Set Standard Cost - ' || pCosttype || ' for item ' || _itemNumber)) INTO _updateRet;
IF (_updateRet) THEN
RETURN _itemcostid;
END IF;
END IF;
RETURN -1;
END;
$_$;
ALTER FUNCTION public.updatestdcost(integer, text, boolean, numeric) OWNER TO admin;
--
-- Name: updatetodoitem(integer, text, text, text, integer, integer, integer, date, date, character, date, date, integer, text, boolean, text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatetodoitem(integer, text, text, text, integer, integer, integer, date, date, character, date, date, integer, text, boolean, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN updateTodoItem($1, $2, $3, $4, $5, $6, $7, $8, $9, $10, $11, $12, $13, $14, $15, $16, NULL);
END;
$_$;
ALTER FUNCTION public.updatetodoitem(integer, text, text, text, integer, integer, integer, date, date, character, date, date, integer, text, boolean, text) OWNER TO admin;
--
-- Name: updatetodoitem(integer, text, text, text, integer, integer, integer, date, date, character, date, date, integer, text, boolean, text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION updatetodoitem(integer, text, text, text, integer, integer, integer, date, date, character, date, date, integer, text, boolean, text, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
ptodoitemid ALIAS FOR $1;
pusername ALIAS FOR $2;
pname ALIAS FOR $3;
pdesc ALIAS FOR $4;
pincdtid ALIAS FOR $5;
pcrmacctid ALIAS FOR $6;
pOpheadid ALIAS FOR $7;
pstarted ALIAS FOR $8;
pdue ALIAS FOR $9;
pstatus ALIAS FOR $10;
passigned ALIAS FOR $11;
pcompleted ALIAS FOR $12;
ppriority ALIAS FOR $13;
pnotes ALIAS FOR $14;
pactive ALIAS FOR $15;
powner ALIAS FOR $16;
pcntctid ALIAS FOR $17;
_priority INTEGER := ppriority;
_status CHARACTER(1) := pstatus;
_incdtid INTEGER := pincdtid;
_crmacctid INTEGER := pcrmacctid;
_opheadid INTEGER := pOpheadid;
_assigned DATE := passigned;
_active BOOL := pactive;
_result INTEGER;
BEGIN
IF (pusername IS NULL OR pusername = '') THEN
RETURN -1;
END IF;
IF (pname IS NULL OR pname = '') THEN
RETURN -2;
END IF;
IF (pdue IS NULL) THEN
RETURN -3;
END IF;
IF (ptodoitemid IS NULL OR ptodoitemid <= 0) THEN
RETURN -10;
END IF;
IF (pcompleted IS NOT NULL) THEN
_status := 'C';
ELSIF (pstatus IS NULL AND pstarted IS NOT NULL) THEN
_status := 'I';
ELSIF (pstatus IS NULL) THEN
_status := 'N';
END IF;
IF (_incdtid <= 0) THEN
_incdtid := NULL;
END IF;
IF (_crmacctid <= 0) THEN
_crmacctid := NULL;
END IF;
IF (_opheadid <= 0) THEN
_opheadid := NULL;
END IF;
IF (_priority <= 0) THEN
_priority := NULL;
END IF;
IF (_assigned IS NULL) THEN
_assigned := CURRENT_DATE;
END IF;
IF (_active IS NULL) THEN
_active := TRUE;
END IF;
UPDATE todoitem SET
todoitem_username=pusername, todoitem_name=pname, todoitem_description=pdesc,
todoitem_incdt_id=_incdtid, todoitem_status=_status,
todoitem_active=_active, todoitem_start_date=pstarted,
todoitem_due_date=pdue, todoitem_assigned_date=_assigned,
todoitem_completed_date=pcompleted, todoitem_priority_id=_priority,
todoitem_notes=pnotes, todoitem_crmacct_id=_crmacctid,
todoitem_ophead_id=_opheadid, todoitem_owner_username=powner,
todoitem_cntct_id=pcntctid
WHERE (todoitem_id=ptodoitemid);
RETURN ptodoitemid;
END;
$_$;
ALTER FUNCTION public.updatetodoitem(integer, text, text, text, integer, integer, integer, date, date, character, date, date, integer, text, boolean, text, integer) OWNER TO admin;
--
-- Name: usedefaultlocation(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION usedefaultlocation(integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
_p RECORD;
BEGIN
SELECT itemsite_location_id,
LENGTH(itemsite_location) AS locationlength INTO _p
FROM itemsite
WHERE (itemsite_id=pItemsiteid);
IF (NOT FOUND) THEN
RETURN FALSE;
ELSIF (_p.itemsite_location_id <> -1) THEN
RETURN TRUE;
ELSIF (_p.locationlength > 0) THEN
RETURN TRUE;
ELSE
RETURN FALSE;
END IF;
END;
$_$;
ALTER FUNCTION public.usedefaultlocation(integer) OWNER TO admin;
--
-- Name: usercancreateusers(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION usercancreateusers(text) RETURNS boolean
LANGUAGE sql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT rolcreaterole OR rolsuper
FROM pg_roles
WHERE rolname=($1);
$_$;
ALTER FUNCTION public.usercancreateusers(text) OWNER TO admin;
--
-- Name: usercanlogin(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION usercanlogin(pusername text) RETURNS boolean
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_isactive BOOLEAN;
_mode TEXT;
BEGIN
IF (isDBA(pUsername) OR userCanCreateUsers(pUsername)) THEN
RETURN TRUE;
ELSIF (pg_has_role(pUsername, 'xtrole', 'member')) THEN
_mode := COALESCE(fetchMetricText('AllowedUserLogins'), '');
IF (_mode = 'AdminOnly') THEN
RETURN FALSE; -- administrators were checked above
END IF;
IF (_mode NOT IN ('AdminOnly','ActiveOnly','Any')) THEN
_mode := 'ActiveOnly';
END IF;
SELECT (usrpref_value = 't') INTO _isactive
FROM usrpref
WHERE usrpref_username = pUsername
AND usrpref_name = 'active';
IF (_isactive OR _mode = 'Any') THEN
RETURN TRUE;
END IF;
END IF;
RETURN FALSE;
END;
$$;
ALTER FUNCTION public.usercanlogin(pusername text) OWNER TO admin;
--
-- Name: userid(text); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION userid(text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pUsername ALIAS FOR $1;
_userId INTEGER;
BEGIN
SELECT usesysid INTO _userId
FROM pg_user
WHERE (usename=pUsername);
IF (FOUND) THEN
RETURN _userId;
ELSE
RETURN -1;
END IF;
END;
$_$;
ALTER FUNCTION public.userid(text) OWNER TO admin;
--
-- Name: validateorderqty(integer, numeric, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION validateorderqty(integer, numeric, boolean) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pItemsiteid ALIAS FOR $1;
pQty ALIAS FOR $2;
pManual ALIAS FOR $3;
_p RECORD;
_qty NUMERIC;
BEGIN
_qty := pQty;
SELECT itemsite_useparams,
CASE WHEN (itemsite_useparams) THEN itemsite_useparamsmanual ELSE FALSE END AS itemsite_useparamsmanual,
CASE WHEN (itemsite_useparams) THEN itemsite_minordqty ELSE 0.0 END AS itemsite_minordqty,
CASE WHEN (itemsite_useparams) THEN itemsite_multordqty ELSE 0.0 END AS itemsite_multordqty,
item_fractional, item_type INTO _p
FROM itemsite, item
WHERE ( (itemsite_item_id=item_id)
AND (itemsite_id=pItemsiteid) );
IF ( (pManual AND (_p.itemsite_useparamsmanual)) OR
((NOT pManual) AND (_p.itemsite_useparams)) ) THEN
IF (_qty < _p.itemsite_minordqty) THEN
_qty := _p.itemsite_minordqty;
END IF;
IF ( (_p.itemsite_multordqty > 0) AND ((_qty % _p.itemsite_multordqty) > 0) ) THEN
_qty := ((TRUNC(_qty / _p.itemsite_multordqty) * _p.itemsite_multordqty) + _p.itemsite_multordqty);
END IF;
END IF;
_qty := roundQty(_p.item_fractional, _qty);
RETURN _qty;
END;
$_$;
ALTER FUNCTION public.validateorderqty(integer, numeric, boolean) OWNER TO admin;
--
-- Name: validlocation(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION validlocation(integer, integer) RETURNS boolean
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pLocationid ALIAS FOR $1;
pItemsiteid ALIAS FOR $2;
_p RECORD;
BEGIN
SELECT location_restrict INTO _p
FROM location, itemsite
WHERE ( (location_warehous_id=itemsite_warehous_id)
AND (itemsite_id=pItemsiteid)
AND (location_id=pLocationid) );
IF (FOUND) THEN
IF (_p.location_restrict) THEN
SELECT locitem_id INTO _p
FROM locitem, itemsite
WHERE ( (locitem_item_id=itemsite_item_id)
AND (itemsite_id=pItemsiteid)
AND (locitem_location_id=pLocationid) );
IF (FOUND) THEN
RETURN TRUE;
END IF;
ELSE
RETURN TRUE;
END IF;
ELSE
RETURN FALSE;
END IF;
RETURN FALSE;
END;
$_$;
ALTER FUNCTION public.validlocation(integer, integer) OWNER TO admin;
--
-- Name: valueatshipping(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION valueatshipping(plineitemid integer) RETURNS numeric
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RETURN valueAtShipping('SO', plineitemid);
END;
$$;
ALTER FUNCTION public.valueatshipping(plineitemid integer) OWNER TO admin;
--
-- Name: valueatshipping(text, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION valueatshipping(pordertype text, plineitemid integer) RETURNS numeric
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_value NUMERIC := 0.0;
BEGIN
IF (pordertype NOT IN ('SO', 'TO')) THEN
RAISE EXCEPTION '% is not a valid order type', pordertype;
END IF;
SELECT COALESCE(SUM(shipitem_value), 0.0) INTO _value
FROM shipitem JOIN shiphead ON (shipitem_shiphead_id=shiphead_id)
WHERE ( (NOT shiphead_shipped)
AND (shiphead_order_type=pordertype)
AND (shipitem_orderitem_id=plineitemid) );
RETURN _value;
END;
$$;
ALTER FUNCTION public.valueatshipping(pordertype text, plineitemid integer) OWNER TO admin;
--
-- Name: voidapcheck(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION voidapcheck(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'voidAPCheck() is deprecated - use voidCheck() instead';
RETURN voidCheck($1);
END;
$_$;
ALTER FUNCTION public.voidapcheck(integer) OWNER TO admin;
--
-- Name: voidapopenvoucher(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION voidapopenvoucher(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pApopenid ALIAS FOR $1;
BEGIN
RETURN voidApopenVoucher(pApopenid, fetchJournalNumber('AP-VO'));
END;
$_$;
ALTER FUNCTION public.voidapopenvoucher(integer) OWNER TO admin;
--
-- Name: voidapopenvoucher(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION voidapopenvoucher(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pApopenid ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
_apopenid INTEGER;
_apcreditapplyid INTEGER;
_reference TEXT;
_result INTEGER;
_sequence INTEGER;
_totalAmount_base NUMERIC;
_totalAmount NUMERIC;
_itemAmount_base NUMERIC;
_itemAmount NUMERIC;
_test INTEGER;
_a RECORD;
_d RECORD;
_g RECORD;
_p RECORD;
_n RECORD;
_r RECORD;
_costx RECORD;
_pExplain BOOLEAN;
_pLowLevel BOOLEAN;
_exchGainFreight NUMERIC;
_firstExchDateFreight DATE;
_tmpTotal NUMERIC;
_glDate DATE;
BEGIN
_totalAmount_base := 0;
_totalAmount := 0;
SELECT fetchGLSequence() INTO _sequence;
-- Cache APOpen Information
SELECT apopen.* INTO _n
FROM apopen
WHERE ( (apopen_doctype='V')
AND (apopen_id=pApopenid) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot Void Voucher #% as apopen not found', pApopenid;
END IF;
-- Cache Voucher Infomation
SELECT vohead.*,
vend_number || '-' || vend_name || ' ' || vohead_reference
AS glnotes,
COALESCE(pohead_orderdate, vohead_docdate) AS pohead_orderdate,
COALESCE(pohead_curr_id, vohead_curr_id) AS pohead_curr_id INTO _p
FROM vohead JOIN vendinfo ON (vend_id=vohead_vend_id)
LEFT OUTER JOIN pohead ON (vohead_pohead_id = pohead_id)
WHERE (vohead_number=_n.apopen_docnumber);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot Void Voucher #% as vohead not found', _n.apopen_docnumber;
END IF;
_glDate := COALESCE(_p.vohead_gldistdate, _p.vohead_distdate);
-- there is no currency gain/loss on items, see issue 3892,
-- but there might be on freight, which is first encountered at p/o receipt
SELECT recv_date::DATE INTO _firstExchDateFreight
FROM recv
WHERE (recv_vohead_id = _p.vohead_id);
-- Start by handling taxes
FOR _r IN SELECT tax_sales_accnt_id,
round(sum(taxdetail_tax),2) AS tax,
currToBase(_p.vohead_curr_id, round(sum(taxdetail_tax),2), _p.vohead_docdate) AS taxbasevalue
FROM tax
JOIN calculateTaxDetailSummary('VO', _p.vohead_id, 'T') ON (taxdetail_tax_id=tax_id)
GROUP BY tax_id, tax_sales_accnt_id LOOP
PERFORM insertIntoGLSeries( _sequence, 'A/P', 'VO', _p.vohead_number,
_r.tax_sales_accnt_id,
(_r.taxbasevalue * -1),
_glDate, _p.glnotes );
_totalAmount_base := (_totalAmount_base - _r.taxbasevalue);
_totalAmount := (_totalAmount - _r.tax);
END LOOP;
-- Loop through the vodist records for the passed vohead that
-- are posted against a P/O Item
FOR _g IN SELECT DISTINCT poitem_id, voitem_qty, poitem_expcat_id,
poitem_invvenduomratio,
COALESCE(itemsite_id, -1) AS itemsiteid,
COALESCE(itemsite_costcat_id, -1) AS costcatid,
COALESCE(itemsite_item_id, -1) AS itemsite_item_id,
(SELECT SUM(value)
FROM (
SELECT SUM(recv_value) AS value
FROM recv
WHERE (recv_voitem_id=voitem_id)
UNION
SELECT SUM(poreject_value)*-1 AS value
FROM poreject
WHERE (poreject_voitem_id=voitem_id)) as data)
AS value_base,
(poitem_freight_vouchered / poitem_qty_vouchered) * voitem_qty AS vouchered_freight,
currToBase(_p.pohead_curr_id, (poitem_freight_vouchered / poitem_qty_vouchered) * voitem_qty, _firstExchDateFreight ) AS vouchered_freight_base,
voitem_freight,
currToBase(_p.vohead_curr_id, voitem_freight,
_p.vohead_distdate) AS voitem_freight_base
FROM vodist, voitem,
poitem LEFT OUTER JOIN itemsite ON (poitem_itemsite_id=itemsite_id)
WHERE ( (vodist_poitem_id=poitem_id)
AND (voitem_poitem_id=poitem_id)
AND (voitem_vohead_id=vodist_vohead_id)
AND (vodist_vohead_id=_p.vohead_id)) LOOP
-- Grab the G/L Accounts
IF (_g.costcatid = -1) THEN
SELECT pp.accnt_id AS pp_accnt_id,
lb.accnt_id AS lb_accnt_id INTO _a
FROM expcat, accnt AS pp, accnt AS lb
WHERE ( (expcat_purchprice_accnt_id=pp.accnt_id)
AND (expcat_liability_accnt_id=lb.accnt_id)
AND (expcat_id=_g.poitem_expcat_id) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot Void Voucher #% due to unassigned G/L Accounts.', _p.vohead_number;
END IF;
ELSE
SELECT pp.accnt_id AS pp_accnt_id,
lb.accnt_id AS lb_accnt_id INTO _a
FROM costcat, accnt AS pp, accnt AS lb
WHERE ( (costcat_purchprice_accnt_id=pp.accnt_id)
AND (costcat_liability_accnt_id=lb.accnt_id)
AND (costcat_id=_g.costcatid) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot Void Voucher #% due to unassigned G/L Accounts.', _p.vohead_number;
END IF;
END IF;
-- Clear the Item Amount accumulator
_itemAmount_base := 0;
_itemAmount := 0;
-- Figure out the total posted value for this line item
FOR _d IN SELECT vodist_id, vodist_amount,
_p.vohead_curr_id, vodist_costelem_id,
currToBase(_p.vohead_curr_id, vodist_amount,
_p.vohead_distdate) AS vodist_amount_base
FROM vodist
WHERE ( (vodist_vohead_id=_p.vohead_id)
AND (vodist_poitem_id=_g.poitem_id) ) LOOP
_pExplain := TRUE;
SELECT * INTO _costx
FROM itemcost
WHERE ( (itemcost_item_id = _g.itemsite_item_id)
AND (itemcost_costelem_id = _d.vodist_costelem_id) );
IF (FOUND) THEN
_pExplain := _costx.itemcost_lowlevel;
END IF;
-- Add the Distribution Amount to the Item Amount
_itemAmount_base := _itemAmount_base + ROUND(_d.vodist_amount_base, 2);
_itemAmount := _itemAmount + _d.vodist_amount;
END LOOP;
-- Distribute from the clearing account
PERFORM insertIntoGLSeries( _sequence, 'A/P', 'VO', text(_p.vohead_number),
_a.lb_accnt_id,
round(_g.value_base + _g.vouchered_freight_base, 2),
_glDate, _p.glnotes );
-- Attribute the correct portion to currency gain/loss
_exchGainFreight := 0;
SELECT currGain(_p.pohead_curr_id, _g.vouchered_freight,
_firstExchDateFreight, _p.vohead_distdate )
INTO _exchGainFreight;
IF (round(_exchGainFreight, 2) <> 0) THEN
PERFORM insertIntoGLSeries(_sequence, 'A/P', 'VO',
text(_p.vohead_number),
getGainLossAccntId(_a.lb_accnt_id), round(_exchGainFreight, 2) * -1,
_glDate, _p.glnotes);
END IF;
-- Distribute the remaining variance to the Purchase Price Variance account
IF (round(_itemAmount_base, 2) <> round(_g.value_base, 2)) THEN
_tmpTotal := round(_itemAmount_base, 2) - round(_g.value_base, 2);
PERFORM insertIntoGLSeries( _sequence, 'A/P', 'VO', text(_p.vohead_number),
_a.pp_accnt_id,
_tmpTotal,
_glDate, _p.glnotes );
END IF;
-- Distribute the remaining freight variance to the Purchase Price Variance account
IF (round(_g.voitem_freight_base + _exchGainFreight, 2) <> round(_g.vouchered_freight_base, 2)) THEN
_tmpTotal := round(_g.voitem_freight_base + _exchGainFreight, 2) - round(_g.vouchered_freight_base, 2);
PERFORM insertIntoGLSeries( _sequence, 'A/P', 'VO', text(_p.vohead_number),
_a.pp_accnt_id,
_tmpTotal,
_glDate, _p.glnotes );
END IF;
-- Add the distribution amount to the total amount to distribute
_totalAmount_base := (_totalAmount_base + _itemAmount_base + _g.voitem_freight_base);
_totalAmount := (_totalAmount + _itemAmount + _g.voitem_freight);
-- Reverse the posting for all the Tagged Receivings for this P/O Item
UPDATE recv
SET recv_invoiced=FALSE,
recv_recvcost_curr_id=basecurrid(),
recv_recvcost=0,
recv_vohead_id=NULL,
recv_voitem_id=NULL
FROM poitem
WHERE ( (recv_orderitem_id=poitem_id)
AND (recv_order_type='PO')
AND (recv_orderitem_id=_g.poitem_id)
AND (recv_vohead_id=_p.vohead_id) );
-- Reverse the posting for all the Tagged Rejections for this P/O Item
UPDATE poreject
SET poreject_invoiced=FALSE,
poreject_vohead_id=NULL,
poreject_voitem_id=NULL
WHERE ( (poreject_poitem_id=_g.poitem_id)
AND (poreject_vohead_id=_p.vohead_id) );
-- Update the qty and freight vouchered fields
UPDATE poitem
SET poitem_qty_vouchered = (poitem_qty_vouchered - _g.voitem_qty),
poitem_freight_vouchered = (poitem_freight_vouchered - _g.voitem_freight)
WHERE (poitem_id=_g.poitem_id);
END LOOP;
-- Loop through the vodist records for the passed vohead that
-- are not posted against a P/O Item
-- Skip the tax distributions
FOR _d IN SELECT vodist_id,
currToBase(_p.vohead_curr_id, vodist_amount,
_p.vohead_distdate) AS vodist_amount_base,
vodist_amount,
vodist_accnt_id, vodist_expcat_id
FROM vodist
WHERE ( (vodist_vohead_id=_p.vohead_id)
AND (vodist_poitem_id=-1)
AND (vodist_tax_id=-1) ) LOOP
-- Distribute from the misc. account
IF (_d.vodist_accnt_id = -1) THEN
PERFORM insertIntoGLSeries( _sequence, 'A/P', 'VO', text(_p.vohead_number),
expcat_exp_accnt_id,
round(_d.vodist_amount_base, 2),
_glDate, _p.glnotes )
FROM expcat
WHERE (expcat_id=_d.vodist_expcat_id);
ELSE
PERFORM insertIntoGLSeries( _sequence, 'A/P', 'VO', text(_p.vohead_number),
_d.vodist_accnt_id,
round(_d.vodist_amount_base, 2),
_glDate, _p.glnotes );
END IF;
-- Add the Distribution Amount to the Total Amount
_totalAmount_base := _totalAmount_base + ROUND(_d.vodist_amount_base, 2);
_totalAmount := _totalAmount + _d.vodist_amount;
END LOOP;
SELECT insertIntoGLSeries( _sequence, 'A/P', 'VO', text(vohead_number),
accnt_id, round(_totalAmount_base, 2) * -1,
_glDate, _p.glnotes ) INTO _test
FROM vohead LEFT OUTER JOIN accnt ON (accnt_id=findAPAccount(vohead_vend_id))
WHERE ( (findAPAccount(vohead_vend_id)=0 OR accnt_id > 0) -- G/L interface might be disabled
AND (vohead_id=_p.vohead_id) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot Void Voucher #% due to an unassigned A/P Account.', _p.vohead_number;
END IF;
PERFORM postGLSeries(_sequence, pJournalNumber);
-- Create the A/P Open Item
SELECT NEXTVAL('apopen_apopen_id_seq') INTO _apopenid;
_reference := ('Void Voucher #' || _n.apopen_docnumber);
INSERT INTO apopen
( apopen_id, apopen_username, apopen_journalnumber,
apopen_vend_id, apopen_docnumber, apopen_doctype, apopen_ponumber,
apopen_docdate, apopen_duedate, apopen_distdate, apopen_terms_id, apopen_curr_id,
apopen_amount, apopen_paid, apopen_open, apopen_notes, apopen_discount, apopen_curr_rate )
SELECT _apopenid, getEffectiveXtUser(), pJournalnumber,
apopen_vend_id, apopen_docnumber, 'C', apopen_ponumber,
CURRENT_DATE, CURRENT_DATE, CURRENT_DATE, -1, apopen_curr_id,
apopen_amount - apopen_paid, 0, TRUE, _reference, TRUE, apopen_curr_rate
FROM apopen
WHERE (apopen_id=_n.apopen_id);
SELECT apcreditapply_id INTO _apcreditapplyid
FROM apcreditapply
WHERE ( (apcreditapply_source_apopen_id=_apopenid)
AND (apcreditapply_target_apopen_id=_n.apopen_id) );
IF (FOUND) THEN
UPDATE apcreditapply
SET apcreditapply_amount=_n.apopen_amount-_n.apopen_paid
WHERE (apcreditapply_id=_apcreditapplyid);
ELSE
SELECT nextval('apcreditapply_apcreditapply_id_seq') INTO _apcreditapplyid;
INSERT INTO apcreditapply
( apcreditapply_id, apcreditapply_source_apopen_id,
apcreditapply_target_apopen_id, apcreditapply_amount,
apcreditapply_curr_id )
VALUES ( _apcreditapplyid, _apopenid, _n.apopen_id, _n.apopen_amount-_n.apopen_paid, _n.apopen_curr_id );
END IF;
SELECT postAPCreditMemoApplication(_apopenid) INTO _result;
IF (_result < 0) THEN
RAISE EXCEPTION 'Credit application failed with result %.', _result;
END IF;
-- Reopen all of the P/O Items that were closed by this Voucher
UPDATE poitem
SET poitem_status='O'
FROM voitem
WHERE ( (voitem_poitem_id=poitem_id)
AND (voitem_close)
AND (voitem_vohead_id=_p.vohead_id) );
-- Reopen the P/O
UPDATE pohead
SET pohead_status='O'
WHERE (pohead_id=_p.vohead_pohead_id);
-- Mark as voided
UPDATE apopen
SET apopen_void=TRUE
WHERE (apopen_id=_n.apopen_id);
RETURN pJournalNumber;
END;
$_$;
ALTER FUNCTION public.voidapopenvoucher(integer, integer) OWNER TO admin;
--
-- Name: voidcheck(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION voidcheck(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCheckid ALIAS FOR $1;
BEGIN
IF ( SELECT (checkhead_void OR checkhead_posted OR checkhead_replaced)
FROM checkhead
WHERE (checkhead_id=pCheckid) ) THEN
RETURN -1;
END IF;
UPDATE checkhead
SET checkhead_void=TRUE
WHERE (checkhead_id=pCheckid);
RETURN 1;
END;
$_$;
ALTER FUNCTION public.voidcheck(integer) OWNER TO admin;
--
-- Name: voidcreditmemo(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION voidcreditmemo(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCmheadid ALIAS FOR $1;
_r RECORD;
_p RECORD;
_n RECORD;
_glSequence INTEGER := 0;
_glJournal INTEGER := 0;
_itemlocSeries INTEGER := 0;
_invhistid INTEGER;
_test INTEGER;
_amount NUMERIC;
_roundedBase NUMERIC;
_totalAmount NUMERIC := 0;
_totalRoundedBase NUMERIC := 0;
_commissionDue NUMERIC := 0;
_toApply NUMERIC;
_toClose BOOLEAN;
_glDate DATE;
_taxBaseValue NUMERIC := 0;
BEGIN
-- Cache C/M information
SELECT cmhead.*,
findARAccount(cmhead_cust_id) AS ar_accnt_id,
( SELECT COALESCE(SUM(taxhist_tax), 0)
FROM cmheadtax
WHERE ( (taxhist_parent_id = cmhead_id)
AND (taxhist_taxtype_id = getAdjustmentTaxtypeId()) ) ) AS adjtax
INTO _p
FROM cmhead
WHERE (cmhead_id=pCmheadid);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot Void Credit Memo as cmhead not found';
END IF;
IF (NOT _p.cmhead_posted) THEN
RETURN -10;
END IF;
-- Cache AROpen Information
SELECT aropen.* INTO _n
FROM aropen
WHERE ( (aropen_doctype='C')
AND (aropen_docnumber=_p.cmhead_number) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot Void Credit Memo as aropen not found';
END IF;
-- Check for ARApplications
SELECT arapply_id INTO _test
FROM arapply
WHERE (arapply_target_aropen_id=_n.aropen_id)
OR (arapply_source_aropen_id=_n.aropen_id)
LIMIT 1;
IF (FOUND) THEN
RETURN -20;
END IF;
_glDate := COALESCE(_p.cmhead_gldistdate, _p.cmhead_docdate);
SELECT fetchGLSequence() INTO _glSequence;
SELECT fetchJournalNumber('AR-IN') INTO _glJournal;
-- Start by handling taxes (reverse sense)
FOR _r IN SELECT tax_sales_accnt_id,
round(sum(taxdetail_tax),2) AS tax,
currToBase(_p.cmhead_curr_id, round(sum(taxdetail_tax),2), _p.cmhead_docdate) AS taxbasevalue
FROM tax
JOIN calculateTaxDetailSummary('CM', _p.cmhead_id, 'T') ON (taxdetail_tax_id=tax_id)
GROUP BY tax_id, tax_sales_accnt_id LOOP
PERFORM insertIntoGLSeries( _glSequence, 'A/R', 'CM', _p.cmhead_number,
_r.tax_sales_accnt_id,
(_r.taxbasevalue * -1.0),
_glDate, ('Void-' || _p.cmhead_billtoname) );
_totalAmount := _totalAmount + _r.tax * -1;
_totalRoundedBase := _totalRoundedBase + _r.taxbasevalue * -1;
END LOOP;
-- Process line items
FOR _r IN SELECT *
FROM creditmemoitem
WHERE ( (cmitem_cmhead_id=_p.cmhead_id)
AND (cmitem_qtycredit <> 0 ) ) LOOP
IF (_r.extprice <> 0) THEN
-- Debit the Sales Account for the current cmitem (reverse sense)
_roundedBase := round(currToBase(_p.cmhead_curr_id, _r.extprice, _p.cmhead_docdate), 2);
SELECT insertIntoGLSeries( _glSequence, 'A/R', 'CM', _p.cmhead_number,
CASE WHEN _p.cmhead_rahead_id IS NULL THEN
getPrjAccntId(_p.cmhead_prj_id, salesaccnt_credit_accnt_id)
ELSE
getPrjAccntId(_p.cmhead_prj_id, salesaccnt_returns_accnt_id)
END,
_roundedBase,
_glDate, ('Void-' || _p.cmhead_billtoname) ) INTO _test
FROM salesaccnt
WHERE (salesaccnt_id=findSalesAccnt(_r.cmitem_itemsite_id, 'IS', _p.cmhead_cust_id,
_p.cmhead_saletype_id, _p.cmhead_shipzone_id));
IF (NOT FOUND) THEN
PERFORM deleteGLSeries(_glSequence);
RETURN -11;
END IF;
END IF;
_totalAmount := _totalAmount + round(_r.extprice, 2);
_totalRoundedBase := _totalRoundedBase + _roundedBase;
END LOOP;
-- Credit the Misc. Account for Miscellaneous Charges (reverse sense)
IF (_p.cmhead_misc <> 0) THEN
_roundedBase := round(currToBase(_p.cmhead_curr_id, _p.cmhead_misc, _p.cmhead_docdate), 2);
SELECT insertIntoGLSeries( _glSequence, 'A/R', 'CM', _p.cmhead_number,
getPrjAccntId(_p.cmhead_prj_id, accnt_id),
_roundedBase,
_glDate, ('Void-' ||_p.cmhead_billtoname) ) INTO _test
FROM accnt
WHERE (accnt_id=_p.cmhead_misc_accnt_id);
-- If the Misc. Charges Account was not found then punt
IF (NOT FOUND) THEN
PERFORM deleteGLSeries(_glSequence);
RETURN _test;
END IF;
-- Cache the Misc. Amount distributed
_totalAmount := _totalAmount + _p.cmhead_misc;
_totalRoundedBase := _totalRoundedBase + _roundedBase;
END IF;
-- Debit the Freight Account (reverse sense)
IF (_p.cmhead_freight <> 0) THEN
_roundedBase := round(currToBase(_p.cmhead_curr_id, _p.cmhead_freight, _p.cmhead_docdate), 2);
SELECT insertIntoGLSeries( _glSequence, 'A/R', 'CM', _p.cmhead_number,
getPrjAccntId(_p.cmhead_prj_id, accnt_id),
_roundedBase,
_glDate, ('Void-' || _p.cmhead_billtoname) ) INTO _test
FROM accnt
WHERE (accnt_id=findFreightAccount(_p.cmhead_cust_id));
-- If the Freight Charges Account was not found then punt
IF (NOT FOUND) THEN
PERFORM deleteGLSeries(_glSequence);
RETURN _test;
END IF;
-- Cache the Amount Distributed to Freight
_totalAmount := _totalAmount + _p.cmhead_freight;
_totalRoundedBase := _totalRoundedBase + _roundedBase;
END IF;
_totalAmount := _totalAmount;
-- Credit the A/R for the total Amount (reverse sense)
IF (_totalAmount <> 0) THEN
IF (_p.ar_accnt_id != -1) THEN
SELECT insertIntoGLSeries( _glSequence, 'A/R', 'CM', _p.cmhead_number,
_p.ar_accnt_id,
(_totalRoundedBase * -1.0),
_glDate, ('Void-' || _p.cmhead_billtoname) ) INTO _test;
ELSE
PERFORM deleteGLSeries(_glSequence);
RETURN _test;
END IF;
END IF;
-- Commit the GLSeries;
SELECT postGLSeries(_glSequence, _glJournal) INTO _test;
IF (_test < 0) THEN
PERFORM deleteGLSeries(_glSequence);
RETURN _test;
END IF;
-- Delete sales history
DELETE FROM cohisttax
WHERE (taxhist_parent_id IN (SELECT cohist_id
FROM cohist
WHERE (cohist_doctype='C' AND cohist_ordernumber=_p.cmhead_number)));
DELETE FROM cohist
WHERE (cohist_doctype='C' AND cohist_ordernumber=_p.cmhead_number);
-- Delete the Invoice aropen item
DELETE FROM aropen
WHERE (aropen_doctype='C' AND aropen_docnumber=_p.cmhead_number);
-- Handle the Inventory and G/L Transactions for any returned Inventory where cmitem_updateinv is true (reverse sense)
FOR _r IN SELECT cmitem_itemsite_id AS itemsite_id, cmitem_id,
(cmitem_qtyreturned * cmitem_qty_invuomratio) AS qty,
cmhead_number, cmhead_cust_id AS cust_id, item_number,
cmhead_prj_id AS prj_id, cmhead_saletype_id AS saletype_id,
cmhead_shipzone_id AS shipzone_id
FROM cmhead, cmitem, itemsite, item
WHERE ( (cmitem_cmhead_id=cmhead_id)
AND (cmitem_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (cmitem_qtyreturned <> 0)
AND (cmitem_updateinv)
AND (cmhead_id=_p.cmhead_id) ) LOOP
-- Return credited stock to inventory
IF (_itemlocSeries = 0) THEN
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
END IF;
SELECT postInvTrans( itemsite_id, 'RS', (_r.qty * -1),
'S/O', 'CM', _r.cmhead_number, '',
('Credit Voided ' || _r.item_number),
costcat_asset_accnt_id,
getPrjAccntId(_r.prj_id, resolveCOSAccount(itemsite_id, _r.cust_id, _r.saletype_id, _r.shipzone_id)),
_itemlocSeries, _glDate) INTO _invhistid
FROM itemsite, costcat
WHERE ( (itemsite_costcat_id=costcat_id)
AND (itemsite_id=_r.itemsite_id) );
END LOOP;
-- Update coitem to reflect the returned qty where cmitem_updateinv is true (reverse sense)
FOR _r IN SELECT cmitem_qtyreturned, cmitem_itemsite_id, cohead_id
FROM cmitem, cmhead, invchead, cohead
WHERE ( (cmitem_cmhead_id=cmhead_id)
AND (cmhead_invcnumber=invchead_invcnumber)
AND (invchead_ordernumber=cohead_number)
AND (cmitem_qtyreturned <> 0)
AND (cmitem_updateinv)
AND (cmhead_id=_p.cmhead_id) ) LOOP
UPDATE coitem
SET coitem_qtyreturned = (coitem_qtyreturned + (_r.cmitem_qtyreturned * -1.0))
WHERE coitem_id IN ( SELECT coitem_id
FROM coitem
WHERE ( (coitem_cohead_id=_r.cohead_id)
AND (coitem_itemsite_id = _r.cmitem_itemsite_id) )
LIMIT 1 );
END LOOP;
-- Mark the cmhead as voided
UPDATE cmhead
SET cmhead_void=TRUE
WHERE (cmhead_id=_p.cmhead_id);
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.voidcreditmemo(integer) OWNER TO admin;
--
-- Name: voidinvoice(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION voidinvoice(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pInvcheadid ALIAS FOR $1;
_glSequence INTEGER := 0;
_glJournal INTEGER := 0;
_itemlocSeries INTEGER := 0;
_aropenid INTEGER := 0;
_invhistid INTEGER := 0;
_amount NUMERIC;
_roundedBase NUMERIC;
_r RECORD;
_p RECORD;
_n RECORD;
_test INTEGER;
_totalAmount NUMERIC := 0;
_totalRoundedBase NUMERIC := 0;
_totalAmountBase NUMERIC := 0;
_appliedAmount NUMERIC := 0;
_commissionDue NUMERIC := 0;
_tmpAccntId INTEGER;
_tmpCurrId INTEGER;
_firstExchDate DATE;
_glDate DATE;
_exchGain NUMERIC := 0;
BEGIN
-- Cache Invoice information
SELECT invchead.*,
findFreightAccount(invchead_cust_id) AS freightaccntid,
findARAccount(invchead_cust_id) AS araccntid,
aropen_id,
( SELECT COALESCE(SUM(taxhist_tax), 0)
FROM invcheadtax
WHERE ( (taxhist_parent_id = invchead_id)
AND (taxhist_taxtype_id = getFreightTaxtypeId()) ) ) AS freighttax,
( SELECT COALESCE(SUM(taxhist_tax), 0)
FROM invcheadtax
WHERE ( (taxhist_parent_id = invchead_id)
AND (taxhist_taxtype_id = getAdjustmentTaxtypeId()) ) ) AS adjtax
INTO _p
FROM invchead JOIN aropen ON (aropen_doctype='I' AND aropen_docnumber=invchead_invcnumber)
WHERE (invchead_id=pInvcheadid);
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot Void Invoice as invchead not found';
END IF;
IF (NOT _p.invchead_posted) THEN
RETURN -10;
END IF;
-- Cache AROpen Information
SELECT aropen.* INTO _n
FROM aropen
WHERE ( (aropen_doctype='I')
AND (aropen_docnumber=_p.invchead_invcnumber) );
IF (NOT FOUND) THEN
RAISE EXCEPTION 'Cannot Void Invoice as aropen not found';
END IF;
-- Check for ARApplications
SELECT arapply_id INTO _test
FROM arapply
WHERE (arapply_target_aropen_id=_n.aropen_id)
LIMIT 1;
IF (FOUND) THEN
RETURN -20;
END IF;
SELECT fetchGLSequence() INTO _glSequence;
SELECT fetchJournalNumber('AR-IN') INTO _glJournal;
_glDate := COALESCE(_p.invchead_gldistdate, _p.invchead_invcdate);
-- the 1st MC iteration used the cohead_orderdate so we could get curr exch
-- gain/loss between the sales and invoice dates, but see issue 3892. leave
-- this condition TRUE until we make this configurable or decide not to.
IF TRUE THEN
_firstExchDate := _p.invchead_invcdate;
ELSE
-- can we save a select by using: _firstExchDate := _p.invchead_orderdate;
SELECT cohead_orderdate INTO _firstExchDate
FROM cohead
WHERE (cohead_number = _p.invchead_ordernumber);
END IF;
-- Start by handling taxes (reverse sense)
FOR _r IN SELECT tax_sales_accnt_id,
round(sum(taxdetail_tax),2) AS tax,
currToBase(_p.invchead_curr_id, round(sum(taxdetail_tax),2), _firstExchDate) AS taxbasevalue
FROM tax
JOIN calculateTaxDetailSummary('I', _p.invchead_id, 'T') ON (taxdetail_tax_id=tax_id)
GROUP BY tax_id, tax_sales_accnt_id LOOP
PERFORM insertIntoGLSeries( _glSequence, 'A/R', 'IN', _p.invchead_invcnumber,
_r.tax_sales_accnt_id,
(_r.taxbasevalue * -1.0),
_glDate, ('Void-' || _p.invchead_billto_name) );
_totalAmount := _totalAmount + _r.tax;
_totalRoundedBase := _totalRoundedBase + _r.taxbasevalue;
END LOOP;
-- March through the Non-Misc. Invcitems
FOR _r IN SELECT *
FROM invoiceitem
WHERE ( (invcitem_invchead_id = _p.invchead_id)
AND (invcitem_item_id <> -1) ) LOOP
-- Cache the amount due for this line
_amount := _r.extprice;
IF (_amount > 0) THEN
-- Credit the Sales Account for the invcitem item (reverse sense)
IF (_r.itemsite_id IS NULL) THEN
SELECT getPrjAccntId(_p.invchead_prj_id, salesaccnt_sales_accnt_id)
INTO _tmpAccntId
FROM salesaccnt
WHERE (salesaccnt_id=findSalesAccnt(_r.invcitem_item_id, 'I', _p.invchead_cust_id,
_p.invchead_saletype_id, _p.invchead_shipzone_id));
ELSE
SELECT getPrjAccntId(_p.invchead_prj_id, salesaccnt_sales_accnt_id)
INTO _tmpAccntId
FROM salesaccnt
WHERE (salesaccnt_id=findSalesAccnt(_r.itemsite_id, 'IS', _p.invchead_cust_id,
_p.invchead_saletype_id, _p.invchead_shipzone_id));
END IF;
-- If the Sales Account Assignment was not found then punt
IF (NOT FOUND) THEN
PERFORM deleteGLSeries(_glSequence);
RETURN -11;
END IF;
_roundedBase := round(currToBase(_p.invchead_curr_id, _amount, _firstExchDate), 2);
SELECT insertIntoGLSeries( _glSequence, 'A/R', 'IN', _p.invchead_invcnumber,
_tmpAccntId,
(_roundedBase * -1.0),
_glDate, ('Void-' || _p.invchead_billto_name) ) INTO _test;
_totalAmount := (_totalAmount + _amount);
_totalRoundedBase := _totalRoundedBase + _roundedBase;
_commissionDue := (_commissionDue + (_amount * _p.invchead_commission));
END IF;
_totalAmount := _totalAmount;
_totalRoundedBase := _totalRoundedBase;
END LOOP;
-- March through the Misc. Invcitems
FOR _r IN SELECT *
FROM invoiceitem JOIN salescat ON (salescat_id = invcitem_salescat_id)
WHERE ( (invcitem_item_id = -1)
AND (invcitem_invchead_id=_p.invchead_id) ) LOOP
-- Cache the amount due for this line and the commission due for such
_amount := _r.extprice;
IF (_amount > 0) THEN
-- Credit the Sales Account for the invcitem item (reverse sense)
_roundedBase = round(currToBase(_p.invchead_curr_id, _amount,
_firstExchDate), 2);
SELECT insertIntoGLSeries( _glSequence, 'A/R', 'IN', _p.invchead_invcnumber,
getPrjAccntId(_p.invchead_prj_id, _r.salescat_sales_accnt_id),
(_roundedBase * -1.0),
_glDate, ('Void-' || _p.invchead_billto_name) ) INTO _test;
IF (_test < 0) THEN
PERFORM deleteGLSeries(_glSequence);
RETURN _test;
END IF;
_totalAmount := (_totalAmount + _amount);
_totalRoundedBase := _totalRoundedBase + _roundedBase;
_commissionDue := (_commissionDue + (_amount * _p.invchead_commission));
END IF;
END LOOP;
-- Credit the Freight Account for Freight Charges (reverse sense)
IF (_p.invchead_freight <> 0) THEN
IF (_p.freightaccntid <> -1) THEN
_roundedBase = round(currToBase(_p.invchead_curr_id, _p.invchead_freight,
_firstExchDate), 2);
SELECT insertIntoGLSeries( _glSequence, 'A/R', 'IN', _p.invchead_invcnumber,
getPrjAccntId(_p.invchead_prj_id,_p.freightaccntid),
(_roundedBase * -1.0),
_glDate, ('Void-' || _p.invchead_billto_name) ) INTO _test;
-- Cache the Freight Amount distributed
_totalAmount := (_totalAmount + _p.invchead_freight);
_totalRoundedBase := _totalRoundedBase + _roundedBase;
ELSE
_test := -14;
END IF;
-- If the Freight Account was not found then punt
IF (_test < 0) THEN
PERFORM deleteGLSeries(_glSequence);
RETURN _test;
END IF;
END IF;
-- Credit the Misc. Account for Miscellaneous Charges (reverse sense)
IF (_p.invchead_misc_amount <> 0) THEN
_roundedBase := round(currToBase(_p.invchead_curr_id, _p.invchead_misc_amount,
_firstExchDate), 2);
SELECT insertIntoGLSeries( _glSequence, 'A/R', 'IN', _p.invchead_invcnumber,
getPrjAccntId(_p.invchead_prj_id, _p.invchead_misc_accnt_id),
(_roundedBase * -1.0),
_glDate, ('Void-' || _p.invchead_billto_name) ) INTO _test;
-- If the Misc. Charges Account was not found then punt
IF (_test < 0) THEN
PERFORM deleteGLSeries(_glSequence);
RETURN _test;
END IF;
-- Cache the Misc. Amount distributed
_totalAmount := (_totalAmount + _p.invchead_misc_amount);
_totalRoundedBase := _totalRoundedBase + _roundedBase;
END IF;
-- ToDo: handle rounding errors (reverse sense)
_exchGain := currGain(_p.invchead_curr_id, _totalAmount,
_firstExchDate, _glDate);
IF (_exchGain <> 0) THEN
SELECT insertIntoGLSeries( _glSequence, 'A/R', 'IN', _p.invchead_invcnumber,
getGainLossAccntId(_p.araccntid),
round(_exchGain, 2),
_glDate, ('Void-' || _p.invchead_billto_name) ) INTO _test ;
IF (_test < 0) THEN
PERFORM deleteGLSeries(_glSequence);
RETURN _test;
END IF;
END IF;
-- Debit A/R for the total Amount (reverse sense)
IF (_totalRoundedBase <> 0) THEN
IF (_p.araccntid != -1) THEN
SELECT insertIntoGLSeries( _glSequence, 'A/R', 'IN', _p.invchead_invcnumber,
_p.araccntid,
round(_totalRoundedBase, 2),
_glDate, ('Void-' || _p.invchead_billto_name) ) INTO _test;
ELSE
PERFORM deleteGLSeries(_glSequence);
RETURN _test;
END IF;
END IF;
-- Commit the GLSeries;
SELECT postGLSeries(_glSequence, _glJournal) INTO _test;
IF (_test < 0) THEN
PERFORM deleteGLSeries(_glSequence);
RETURN _test;
END IF;
-- Delete sales history
DELETE FROM cohisttax
WHERE (taxhist_parent_id IN (SELECT cohist_id
FROM cohist
WHERE (cohist_doctype='I' AND cohist_invcnumber=_p.invchead_invcnumber)));
DELETE FROM cohist
WHERE (cohist_doctype='I' AND cohist_invcnumber=_p.invchead_invcnumber);
-- Create the Credit aropen item
SELECT nextval('aropen_aropen_id_seq') INTO _aropenid;
INSERT INTO aropen
( aropen_id, aropen_username, aropen_journalnumber,
aropen_open, aropen_posted,
aropen_cust_id, aropen_ponumber,
aropen_docnumber, aropen_applyto, aropen_doctype,
aropen_docdate, aropen_duedate, aropen_distdate, aropen_terms_id,
aropen_amount, aropen_paid,
aropen_salesrep_id, aropen_commission_due, aropen_commission_paid,
aropen_ordernumber, aropen_notes, aropen_cobmisc_id,
aropen_curr_id )
VALUES
( _aropenid, getEffectiveXtUser(), _glJournal,
TRUE, FALSE,
_p.invchead_cust_id, _p.invchead_ponumber,
_p.invchead_invcnumber, _p.invchead_invcnumber, 'C',
_p.invchead_invcdate, determineDueDate(_p.invchead_terms_id, _p.invchead_invcdate), _glDate, _p.invchead_terms_id,
round(_totalAmount, 2), round(_totalAmount, 2),
_p.invchead_salesrep_id, _commissionDue, FALSE,
_p.invchead_ordernumber::text, _p.invchead_notes, pInvcheadid,
_p.invchead_curr_id );
-- Alter the Invoice A/R Open Item to reflect the application
UPDATE aropen
SET aropen_paid = round(_totalAmount, 2)
WHERE (aropen_id=_p.aropen_id);
-- Record the application
INSERT INTO arapply
( arapply_cust_id,
arapply_source_aropen_id, arapply_source_doctype, arapply_source_docnumber,
arapply_target_aropen_id, arapply_target_doctype, arapply_target_docnumber,
arapply_fundstype, arapply_refnumber,
arapply_applied, arapply_closed,
arapply_postdate, arapply_distdate, arapply_journalnumber, arapply_curr_id )
VALUES
( _p.invchead_cust_id,
_aropenid, 'C', _p.invchead_invcnumber,
_p.aropen_id, 'I', _p.invchead_invcnumber,
'', '',
round(_totalAmount, 2), TRUE,
CURRENT_DATE, _p.invchead_invcdate, 0, _p.invchead_curr_id );
-- Handle the Inventory and G/L Transactions for any billed Inventory where invcitem_updateinv is true (reverse sense)
FOR _r IN SELECT itemsite_id AS itemsite_id, invcitem_id,
(invcitem_billed * invcitem_qty_invuomratio) AS qty,
invchead_invcnumber, invchead_cust_id AS cust_id, item_number,
invchead_prj_id AS prj_id, invchead_saletype_id AS saletype_id,
invchead_shipzone_id AS shipzone_id
FROM invchead JOIN invcitem ON ( (invcitem_invchead_id=invchead_id) AND
(invcitem_billed <> 0) AND
(invcitem_updateinv) )
JOIN itemsite ON ( (itemsite_item_id=invcitem_item_id) AND
(itemsite_warehous_id=invcitem_warehous_id) )
JOIN item ON (item_id=invcitem_item_id)
WHERE (invchead_id=_p.invchead_id) LOOP
-- Issue billed stock from inventory
IF (_itemlocSeries = 0) THEN
SELECT NEXTVAL('itemloc_series_seq') INTO _itemlocSeries;
END IF;
SELECT postInvTrans( itemsite_id, 'SH', (_r.qty * -1.0),
'S/O', 'IN', _r.invchead_invcnumber, '',
('Invoice Voided ' || _r.item_number),
getPrjAccntId(_r.prj_id, resolveCOSAccount(itemsite_id, _r.cust_id, _r.saletype_id, _r.shipzone_id)),
costcat_asset_accnt_id, _itemlocSeries, _glDate) INTO _invhistid
FROM itemsite, costcat
WHERE ( (itemsite_costcat_id=costcat_id)
AND (itemsite_id=_r.itemsite_id) );
END LOOP;
-- Reopen Billing
UPDATE shipitem
SET shipitem_invoiced=FALSE,
shipitem_invcitem_id=NULL
WHERE (shipitem_invcitem_id IN (SELECT invcitem_id
FROM invcitem
WHERE (invcitem_invchead_id=_p.invchead_id)));
UPDATE cobill
SET cobill_invcnum=NULL,
cobill_invcitem_id=NULL
WHERE (cobill_invcitem_id IN (SELECT invcitem_id
FROM invcitem
WHERE (invcitem_invchead_id=_p.invchead_id)));
UPDATE cobmisc
SET cobmisc_posted=FALSE,
cobmisc_invcnumber=NULL,
cobmisc_invchead_id=NULL
WHERE (cobmisc_invchead_id=_p.invchead_id);
-- Mark the invoice as voided
UPDATE invchead
SET invchead_void=TRUE,
invchead_notes=(invchead_notes || 'Voided on ' || current_date || ' by ' || getEffectiveXtUser())
WHERE (invchead_id=_p.invchead_id);
RETURN _itemlocSeries;
END;
$_$;
ALTER FUNCTION public.voidinvoice(integer) OWNER TO admin;
--
-- Name: voidpostedapcheck(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION voidpostedapcheck(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'voidPostedAPCheck() is deprecated - use voidPostedCheck() instead';
RETURN voidPostedCheck($1, fetchJournalNumber('AP-CK'), CURRENT_DATE);
END;
$_$;
ALTER FUNCTION public.voidpostedapcheck(integer) OWNER TO admin;
--
-- Name: voidpostedapcheck(integer, integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION voidpostedapcheck(integer, integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'voidPostedAPCheck() is deprecated - use voidPostedCheck() instead';
RETURN voidPostedCheck($1, $2, CURRENT_DATE);
END;
$_$;
ALTER FUNCTION public.voidpostedapcheck(integer, integer) OWNER TO admin;
--
-- Name: voidpostedapcheck(integer, integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION voidpostedapcheck(integer, integer, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
BEGIN
RAISE NOTICE 'voidPostedAPCheck() is deprecated - use voidPostedCheck() instead';
RETURN voidPostedCheck($1, $2, $3);
END;
$_$;
ALTER FUNCTION public.voidpostedapcheck(integer, integer, date) OWNER TO admin;
--
-- Name: voidpostedcheck(integer, integer, date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION voidpostedcheck(integer, integer, date) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pCheckid ALIAS FOR $1;
pJournalNumber ALIAS FOR $2;
pVoidDate ALIAS FOR $3;
_amount_base NUMERIC := 0;
_result INTEGER;
_apopenid INTEGER;
_credit_glaccnt INTEGER;
_docnumber TEXT;
_exchGain NUMERIC := 0;
_exchGainTmp NUMERIC := 0;
_gltransNote TEXT;
_p RECORD;
_r RECORD;
_sequence INTEGER;
_amount_check NUMERIC := 0;
BEGIN
SELECT fetchGLSequence() INTO _sequence;
SELECT checkhead.*,
checkhead_amount / checkhead_curr_rate AS checkhead_amount_base,
bankaccnt_accnt_id AS bankaccntid,
findPrepaidAccount(checkhead_recip_id) AS prepaidaccntid,
checkrecip.* INTO _p
FROM bankaccnt, checkhead LEFT OUTER JOIN
checkrecip ON ((checkrecip_type=checkhead_recip_type)
AND (checkrecip_id=checkhead_recip_id))
WHERE ((checkhead_bankaccnt_id=bankaccnt_id)
AND (checkhead_id=pCheckid));
IF (NOT _p.checkhead_posted) THEN
RETURN -10;
END IF;
IF (_p.checkrecip_id IS NULL) THEN -- outer join failed
RETURN -11;
END IF;
-- Cannot void if already reconciled
SELECT trans_id INTO _result
FROM ( SELECT gltrans_id AS trans_id
FROM gltrans
WHERE ((gltrans_doctype='CK')
AND (gltrans_misc_id=_p.checkhead_id)
AND (gltrans_rec))
UNION ALL
SELECT sltrans_id AS trans_id
FROM sltrans
WHERE ((sltrans_doctype='CK')
AND (sltrans_misc_id=_p.checkhead_id)
AND (sltrans_rec)) ) AS data;
IF (FOUND) THEN
RETURN -14;
END IF;
_gltransNote := 'Void Posted Check #' || _p.checkhead_number || ' ' ||
_p.checkrecip_number || '-' || _p.checkrecip_name;
IF (_p.checkhead_misc) THEN
IF (COALESCE(_p.checkhead_expcat_id, -1) < 0) THEN
IF (_p.checkhead_recip_type = 'V') THEN
PERFORM createAPDebitMemo(_p.checkhead_recip_id, pJournalNumber,
CAST(fetchAPMemoNumber() AS text), '',
pVoidDate, _p.checkhead_amount,
_gltransNote || ' '|| _p.checkhead_notes,
-1, pVoidDate, -1, _p.checkhead_curr_id );
_credit_glaccnt := findAPPrepaidAccount(_p.checkhead_recip_id);
ELSIF (_p.checkhead_recip_type = 'C') THEN
PERFORM createARCreditMemo(NULL, _p.checkhead_recip_id,
fetchARMemoNumber(), '',
pVoidDate, _p.checkhead_amount,
_gltransNote || ' '|| _p.checkhead_notes,
-1, -1, -1, pVoidDate, -1, NULL, 0.0,
pJournalNumber, _p.checkhead_curr_id );
_credit_glaccnt := _p.prepaidaccntid;
ELSIF (_p.checkhead_recip_type = 'T') THEN
-- TODO: should we create a debit memo for the tax authority? how?
_credit_glaccnt := _p.checkrecip_accnt_id;
END IF; -- recip type
ELSE
SELECT expcat_exp_accnt_id INTO _credit_glaccnt
FROM expcat
WHERE (expcat_id=_p.checkhead_expcat_id);
IF (NOT FOUND) THEN
RETURN -12;
END IF;
END IF;
IF (COALESCE(_credit_glaccnt, -1) < 0) THEN
RETURN -13;
END IF;
PERFORM insertIntoGLSeries( _sequence, _p.checkrecip_gltrans_source, 'CK',
text(_p.checkhead_number),
_credit_glaccnt,
round(_p.checkhead_amount_base, 2),
pVoidDate, _gltransNote, pCheckid);
_amount_base := _p.checkhead_amount_base;
ELSE
FOR _r IN SELECT checkitem_amount, checkitem_discount,
CASE WHEN (checkitem_apopen_id IS NOT NULL) THEN
checkitem_amount / apopen_curr_rate
ELSE
currToBase(checkitem_curr_id,
checkitem_amount,
COALESCE(checkitem_docdate, _p.checkhead_checkdate))
END AS checkitem_amount_base,
checkitem_amount / checkitem_curr_rate AS amount_check,
apopen_id, apopen_doctype, apopen_docnumber, apopen_curr_rate, apopen_docdate,
aropen_id, aropen_doctype, aropen_docnumber,
checkitem_curr_id, checkitem_curr_rate,
COALESCE(checkitem_docdate, _p.checkhead_checkdate) AS docdate
FROM (checkitem LEFT OUTER JOIN
apopen ON (checkitem_apopen_id=apopen_id)) LEFT OUTER JOIN
aropen ON (checkitem_aropen_id=aropen_id)
WHERE (checkitem_checkhead_id=pcheckid) LOOP
_exchGainTmp := 0;
IF (_r.apopen_id IS NOT NULL) THEN
-- undo the APDiscount Credit Memo if a discount was taken
IF(_r.checkitem_discount > 0) THEN
SELECT NEXTVAL('apopen_apopen_id_seq') INTO _apopenid;
SELECT fetchAPMemoNumber() INTO _docnumber;
INSERT INTO apopen
( apopen_id, apopen_username, apopen_journalnumber,
apopen_vend_id, apopen_docnumber, apopen_doctype, apopen_ponumber,
apopen_docdate, apopen_duedate, apopen_distdate, apopen_terms_id,
apopen_amount, apopen_paid, apopen_open,
apopen_notes,
apopen_accnt_id, apopen_curr_id, apopen_discount, apopen_curr_rate,
apopen_closedate )
VALUES
( _apopenid, getEffectiveXtUser(), pJournalNumber,
_p.checkhead_recip_id, _docnumber, 'D', '',
pVoidDate, pVoidDate, pVoidDate, -1,
_r.checkitem_discount, _r.checkitem_discount, FALSE,
('Reverse Posted Discount ' || _r.apopen_doctype || ' ' ||
_r.apopen_docnumber),
-1, _p.checkhead_curr_id, TRUE, _r.apopen_curr_rate,
current_date );
PERFORM insertIntoGLSeries( _sequence, _p.checkrecip_gltrans_source,
'DS', _r.apopen_docnumber,
findAPDiscountAccount(_p.checkhead_recip_id),
round(_r.checkitem_discount / _r.apopen_curr_rate, 2) * -1,
pVoidDate, _gltransNote, pCheckid);
PERFORM insertIntoGLSeries( _sequence, _p.checkrecip_gltrans_source,
'DS', _r.apopen_docnumber,
findAPAccount(_p.checkhead_recip_id),
round(_r.checkitem_discount / _r.apopen_curr_rate, 2),
pVoidDate, _gltransNote, pCheckid);
-- Post the application
INSERT INTO apapply
( apapply_vend_id, apapply_postdate, apapply_username,
apapply_source_apopen_id, apapply_source_doctype, apapply_source_docnumber,
apapply_target_apopen_id, apapply_target_doctype, apapply_target_docnumber,
apapply_journalnumber, apapply_amount, apapply_curr_id )
VALUES
( _p.checkhead_recip_id, pVoidDate, getEffectiveXtUser(),
_apopenid, 'D', _docnumber,
_r.apopen_id, _r.apopen_doctype, _r.apopen_docnumber,
pJournalNumber, (_r.checkitem_discount * -1), _r.checkitem_curr_id );
END IF; -- discount was taken
UPDATE apopen
SET apopen_paid = round(apopen_paid -
(_r.checkitem_amount + noNeg(_r.checkitem_discount)), 2),
apopen_open = round(apopen_amount, 2) >
round(apopen_paid -
(_r.checkitem_amount + noNeg(_r.checkitem_discount)), 2),
apopen_closedate = CASE WHEN (round(apopen_amount, 2) >
round(apopen_paid -
(_r.checkitem_amount + noNeg(_r.checkitem_discount)))) THEN NULL ELSE apopen_closedate END
WHERE (apopen_id=_r.apopen_id);
-- Post the application
INSERT INTO apapply
( apapply_vend_id, apapply_postdate, apapply_username,
apapply_source_apopen_id, apapply_source_doctype, apapply_source_docnumber,
apapply_target_apopen_id, apapply_target_doctype, apapply_target_docnumber,
apapply_journalnumber, apapply_amount, apapply_curr_id )
VALUES
( _p.checkhead_recip_id, pVoidDate, getEffectiveXtUser(),
-1, 'K', _p.checkhead_number,
_r.apopen_id, _r.apopen_doctype, _r.apopen_docnumber,
pJournalNumber, (_r.checkitem_amount * -1), _r.checkitem_curr_id );
END IF; -- if check item's apopen_id is not null
IF (_r.aropen_id IS NOT NULL) THEN
UPDATE aropen
SET aropen_paid = round(aropen_paid -_r.checkitem_amount, 2),
aropen_open = round(aropen_amount, 2) >
round(aropen_paid - _r.checkitem_amount, 2)
WHERE (aropen_id=_r.aropen_id);
-- Post the application
INSERT INTO arapply
( arapply_cust_id, arapply_postdate, arapply_distdate, arapply_username,
arapply_source_aropen_id, arapply_source_doctype, arapply_source_docnumber,
arapply_target_aropen_id, arapply_target_doctype, arapply_target_docnumber,
arapply_journalnumber, arapply_applied, arapply_curr_id )
VALUES
( _p.checkhead_recip_id, pVoidDate, pVoidDate, getEffectiveXtUser(),
-1, 'K', _p.checkhead_number,
_r.aropen_id, _r.aropen_doctype, _r.aropen_docnumber,
pJournalNumber, (_r.checkitem_amount * -1), _r.checkitem_curr_id );
END IF; -- if check item's aropen_id is not null
-- calculate currency gain/loss
IF (_r.apopen_id IS NOT NULL) THEN
IF (_p.checkhead_curr_id = _r.checkitem_curr_id) THEN
IF (_r.apopen_docdate > _p.checkhead_checkdate) THEN
_exchGainTmp := ((_r.checkitem_amount/_p.checkhead_curr_rate) - (_r.checkitem_amount / _r.apopen_curr_rate)) * -1;
ELSE
_exchGainTmp := ((_r.checkitem_amount / _r.apopen_curr_rate) - (_r.checkitem_amount/_p.checkhead_curr_rate));
END IF;
ELSE
-- unusual condition where bank overridden and different currency from voucher
IF (_r.apopen_docdate > _p.checkhead_checkdate) THEN
_exchGainTmp := ((_r.checkitem_amount/_r.checkitem_curr_rate) - (_r.checkitem_amount / _r.apopen_curr_rate)) * -1;
ELSE
_exchGainTmp := ((_r.checkitem_amount / _r.apopen_curr_rate) - (_r.checkitem_amount/_r.checkitem_curr_rate));
END IF;
END IF;
ELSE
SELECT arCurrGain(_r.aropen_id,_r.checkitem_curr_id, _r.checkitem_amount,
_p.checkhead_checkdate)
INTO _exchGainTmp;
END IF;
_exchGain := _exchGain + _exchGainTmp;
PERFORM insertIntoGLSeries( _sequence, _p.checkrecip_gltrans_source,
'CK', text(_p.checkhead_number),
_p.checkrecip_accnt_id,
round(_r.checkitem_amount_base, 2),
pVoidDate, _gltransNote, pCheckid);
IF (_exchGainTmp <> 0) THEN
PERFORM insertIntoGLSeries( _sequence, _p.checkrecip_gltrans_source,
'CK', text(_p.checkhead_number),
getGainLossAccntId(_p.checkrecip_accnt_id),
round(_exchGainTmp, 2) * -1,
pVoidDate, _gltransNote, pCheckid);
END IF;
_amount_check := (_amount_check + _r.amount_check);
_amount_base := (_amount_base + _r.checkitem_amount_base);
END LOOP;
IF( (_amount_check - _p.checkhead_amount) <> 0.0 ) THEN
_exchGainTmp := (_amount_check - _p.checkhead_amount) / _p.checkhead_curr_rate;
_exchGain := _exchGain + _exchGainTmp;
END IF;
-- ensure that the check balances, attribute rounding errors to gain/loss
IF round(_amount_base, 2) - round(_exchGain, 2) <> round(_p.checkhead_amount_base, 2) THEN
IF round(_amount_base - _exchGain, 2) = round(_p.checkhead_amount_base, 2) THEN
PERFORM insertIntoGLSeries( _sequence, _p.checkrecip_gltrans_source,
'CK',
text(_p.checkhead_number), getGainLossAccntId(_p.bankaccntid),
(round(_amount_base, 2) -
round(_exchGain, 2) -
round(_p.checkhead_amount_base, 2)) * -1,
pVoidDate, _gltransNote, pCheckid);
ELSE
RAISE EXCEPTION 'checkhead_id % does not balance (% - % <> %)', pCheckid,
_amount_base, _exchGain, _p.checkhead_amount_base;
END IF;
END IF;
END IF;
PERFORM insertIntoGLSeries( _sequence, _p.checkrecip_gltrans_source, 'CK',
text(_p.checkhead_number),
_p.bankaccntid,
round(_p.checkhead_amount_base, 2) * -1,
pVoidDate, _gltransNote, pCheckid);
PERFORM postGLSeries(_sequence, pJournalNumber);
UPDATE gltrans
SET gltrans_misc_id=pCheckid
WHERE gltrans_sequence=_sequence;
UPDATE checkhead
SET checkhead_posted=false,
checkhead_void=true,
checkhead_journalnumber=pJournalNumber
WHERE (checkhead_id=pCheckid);
RETURN pJournalNumber;
END;
$_$;
ALTER FUNCTION public.voidpostedcheck(integer, integer, date) OWNER TO admin;
--
-- Name: woeffectivedate(date); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION woeffectivedate(date) RETURNS date
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pStartDate ALIAS FOR $1;
BEGIN
IF (explodeWoEffective() = 'E') THEN
RETURN CURRENT_DATE;
ELSE
RETURN pStartDate;
END IF;
END;
$_$;
ALTER FUNCTION public.woeffectivedate(date) OWNER TO admin;
--
-- Name: woinvavail(integer, boolean, boolean, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION woinvavail(integer, boolean, boolean, boolean, boolean) RETURNS SETOF woinvav
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pwoid ALIAS FOR $1;
pshowchildindent ALIAS FOR $2;
pshowchildsum ALIAS FOR $3;
pshowshortage ALIAS FOR $4;
pshowlowinventory ALIAS FOR $5;
_row woinvav%ROWTYPE;
_subrow woinvav%ROWTYPE;
_wonumber TEXT;
_x RECORD;
_subx RECORD;
_qry TEXT;
BEGIN
IF(pshowchildindent) THEN
--get top level order
FOR _x IN
SELECT wo_id,
itemsite_id,
item_type,
wo_number,
wo_subnumber,
item_number,
item_descrip1,
item_descrip2,
uom_name,
qoh,
wobalance,
allocated,
ordered,
reorderlevel,
(qoh + ordered - wobalance) AS woavail,
(qoh + ordered - allocated) AS totalavail
FROM(SELECT wo_id,
itemsite_id,
item_type,
wo_number,
wo_subnumber,
item_number,
item_descrip1,
item_descrip2,
uom_name,
noNeg(itemsite_qtyonhand) AS qoh,
noNeg(wo_qtyord - wo_qtyrcv) AS wobalance,
qtyAllocated(itemsite_id, wo_duedate) AS allocated,
qtyOrdered(itemsite_id, wo_duedate) AS ordered,
CASE WHEN(itemsite_useparams) THEN itemsite_reorderlevel ELSE 0.0 END AS reorderlevel
FROM wo, itemsite, item, uom
WHERE ((wo_id = pwoid)
AND (itemsite_id = wo_itemsite_id)
AND (itemsite_item_id=item_id)
AND (item_inv_uom_id=uom_id))
ORDER BY wo_number, wo_subnumber) AS data
LOOP
_row.woinvav_itemsite_id := _x.itemsite_id;
_row.woinvav_womatl_id := -1;
_row.woinvav_type := _x.item_type;
_row.woinvav_item_wo_number := _x.wo_number || '-' || _x.wo_subnumber;
_row.woinvav_descrip := _x.item_descrip1 || ' ' || _x.item_descrip2;
_row.woinvav_uomname := _x.uom_name;
_row.woinvav_qoh := _x.qoh;
_row.woinvav_balance := _x.wobalance;
_row.woinvav_allocated := _x.allocated;
_row.woinvav_ordered := _x.ordered;
_row.woinvav_woavail := _x.woavail;
_row.woinvav_totalavail := _x.totalavail;
_row.woinvav_reorderlevel := _x.reorderlevel;
_row.woinvav_level := 0;
RETURN NEXT _row;
--get materials for this level
FOR _subx IN
SELECT * FROM woinvavailmatl(_x.wo_id, 1, pshowshortage, pshowlowinventory)
LOOP
RETURN NEXT _subx;
END LOOP;
FOR _subx IN
SELECT * FROM woinvavail(_x.wo_id, 1, pshowshortage, pshowlowinventory)
LOOP
RETURN NEXT _subx;
END LOOP;
END LOOP;
ELSE
SELECT wo_number FROM wo WHERE wo_id=pwoid LIMIT 1 INTO _wonumber;
--display a single level sum of work order requirements
_qry := 'SELECT wo_id,
itemsite_id,
womatl_id,
item_type,
wo_number,
item_number,
item_descrip1,
item_descrip2,
uom_name,
qoh,
wobalance,
allocated,
ordered,
reorderlevel,
(qoh + ordered - wobalance) AS woavail,
(qoh + ordered - allocated) AS totalavail
FROM (SELECT wo_id,
itemsite_id,
womatl_id,
item_type,
wo_number,
item_number,
item_descrip1,
item_descrip2,
uom_name,
noNeg(itemsite_qtyonhand) AS qoh,
noNeg(itemuomtouom(itemsite_item_id, womatl_uom_id, NULL, womatl_qtyreq - womatl_qtyiss)) AS wobalance,
qtyAllocated(itemsite_id, womatl_duedate) AS allocated,
qtyOrdered(itemsite_id, womatl_duedate) AS ordered,
CASE WHEN(itemsite_useparams) THEN itemsite_reorderlevel ELSE 0.0 END AS reorderlevel
FROM wo, womatl, itemsite, item, uom
WHERE (womatl_wo_id=wo_id)
AND (womatl_itemsite_id=itemsite_id)
AND (itemsite_item_id=item_id)
AND (item_inv_uom_id=uom_id) ';
IF(pshowchildsum) THEN
_qry := _qry || ' AND (wo_number=' || _wonumber || ')';
ELSE
_qry := _qry || ' AND (womatl_wo_id=' || pwoid || ')';
END IF;
_qry := _qry || ' ORDER BY item_number) AS data ';
IF(pshowshortage) THEN
_qry := _qry || ' WHERE (((qoh + ordered - allocated) < 0) OR ((qoh + ordered - wobalance) < 0)) ';
END IF;
IF(pshowlowinventory AND NOT pshowshortage) THEN
_qry := _qry || ' WHERE (((qoh - allocated) < 0) OR ((qoh - wobalance) < 0)) ';
END IF;
FOR _x IN
EXECUTE _qry
LOOP
_row.woinvav_itemsite_id := _x.itemsite_id;
_row.woinvav_womatl_id := _x.womatl_id;
_row.woinvav_type := _x.item_type;
_row.woinvav_item_wo_number := _x.item_number;
_row.woinvav_descrip := _x.item_descrip1 || ' ' || _x.item_descrip2;
_row.woinvav_uomname := _x.uom_name;
_row.woinvav_qoh := _x.qoh;
_row.woinvav_balance := _x.wobalance;
_row.woinvav_allocated := _x.allocated;
_row.woinvav_ordered := _x.ordered;
_row.woinvav_woavail := _x.woavail;
_row.woinvav_totalavail := _x.totalavail;
_row.woinvav_reorderlevel := _x.reorderlevel;
_row.woinvav_level := 0;
RETURN NEXT _row;
END LOOP;
END IF;
RETURN;
END;
$_$;
ALTER FUNCTION public.woinvavail(integer, boolean, boolean, boolean, boolean) OWNER TO admin;
--
-- Name: woinvavail(integer, integer, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION woinvavail(integer, integer, boolean, boolean) RETURNS SETOF woinvav
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pwoid ALIAS FOR $1;
plevel ALIAS FOR $2;
pshowshortage ALIAS FOR $3;
pshowlowinventory ALIAS FOR $4;
_row woinvav%ROWTYPE;
_x RECORD;
_subx RECORD;
_index INTEGER;
_level INTEGER;
_qry TEXT;
BEGIN
FOR _x IN
SELECT wo_id,
itemsite_id,
item_type,
wo_number,
wo_subnumber,
item_number,
item_descrip1,
item_descrip2,
uom_name,
qoh,
wobalance,
allocated,
ordered,
reorderlevel,
(qoh + ordered - wobalance) AS woavail,
(qoh + ordered - allocated) AS totalavail
FROM(SELECT wo_id,
itemsite_id,
item_type,
wo_number,
wo_subnumber,
item_number,
item_descrip1,
item_descrip2,
uom_name,
noNeg(itemsite_qtyonhand) AS qoh,
noNeg(wo_qtyord - wo_qtyrcv) AS wobalance,
qtyAllocated(itemsite_id, wo_duedate) AS allocated,
qtyOrdered(itemsite_id, wo_duedate) AS ordered,
CASE WHEN(itemsite_useparams) THEN itemsite_reorderlevel ELSE 0.0 END AS reorderlevel
FROM wo, itemsite, item, uom
WHERE ((wo_ordid = pwoid)
AND NOT (wo_status = 'C')
AND (itemsite_id = wo_itemsite_id)
AND (itemsite_item_id=item_id)
AND (item_inv_uom_id=uom_id))
ORDER BY wo_number, wo_subnumber) AS data
LOOP
_row.woinvav_itemsite_id := _x.itemsite_id;
_row.woinvav_womatl_id := -1;
_row.woinvav_type := _x.item_type;
_row.woinvav_item_wo_number := _x.wo_number || '-' || _x.wo_subnumber;
_row.woinvav_descrip := _x.item_descrip1 || ' ' || _x.item_descrip2;
_row.woinvav_uomname := _x.uom_name;
_row.woinvav_qoh := _x.qoh;
_row.woinvav_balance := _x.wobalance;
_row.woinvav_allocated := _x.allocated;
_row.woinvav_ordered := _x.ordered;
_row.woinvav_woavail := _x.woavail;
_row.woinvav_totalavail := _x.totalavail;
_row.woinvav_reorderlevel := _x.reorderlevel;
_row.woinvav_level := plevel;
RETURN NEXT _row;
--get materials for this level
FOR _subx IN
SELECT * FROM woinvavailmatl(_x.wo_id, plevel + 1, pshowshortage, pshowlowinventory)
LOOP
RETURN NEXT _subx;
END LOOP;
--get next level wo
FOR _subx IN
SELECT * FROM woinvavail(_x.wo_id, plevel + 1, pshowshortage, pshowlowinventory)
LOOP
RETURN NEXT _subx;
END LOOP;
END LOOP;
RETURN;
END;
$_$;
ALTER FUNCTION public.woinvavail(integer, integer, boolean, boolean) OWNER TO admin;
--
-- Name: woinvavailmatl(integer, integer, boolean, boolean); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION woinvavailmatl(integer, integer, boolean, boolean) RETURNS SETOF woinvav
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pwoid ALIAS FOR $1;
plevel ALIAS FOR $2;
pshowshortage ALIAS FOR $3;
pshowlowinventory ALIAS FOR $4;
_subrow woinvav%ROWTYPE;
_subx RECORD;
_qry TEXT;
BEGIN
_qry := 'SELECT itemsite_id,
womatl_id,
item_type,
wo_number,
wo_subnumber,
womatl_ref,
womatl_notes,
item_number,
item_descrip1,
item_descrip2,
uom_name,
qoh,
wobalance,
allocated,
ordered,
(qoh + ordered - wobalance) AS woavail,
(qoh + ordered - allocated) AS totalavail,
reorderlevel
FROM(SELECT itemsite_id,
womatl_id,
item_type,
wo_number,
wo_subnumber,
womatl_ref,
womatl_notes,
item_number,
item_descrip1,
item_descrip2,
uom_name,
noNeg(itemsite_qtyonhand) AS qoh,
noNeg(itemuomtouom(itemsite_item_id, womatl_uom_id, NULL, womatl_qtyreq - womatl_qtyiss)) AS wobalance,
qtyAllocated(itemsite_id, womatl_duedate) AS allocated,
qtyOrdered(itemsite_id, womatl_duedate) AS ordered,
CASE WHEN(itemsite_useparams) THEN itemsite_reorderlevel ELSE 0.0 END AS reorderlevel
FROM womatl, wo, itemsite, item, uom
WHERE ((wo_id = womatl_wo_id)
AND (womatl_itemsite_id = itemsite_id)
AND (itemsite_item_id=item_id)
AND (womatl_uom_id=uom_id)
AND (NOT womatl_createwo OR womatl_createwo IS NULL))';
_qry := _qry || ' AND (wo_id=' || pwoid || ') ORDER BY item_number) AS data';
IF(pshowshortage) THEN
_qry := _qry || ' WHERE (((qoh + ordered - allocated) < 0) OR ((qoh + ordered - wobalance) < 0)) ';
END IF;
IF(pshowlowinventory AND NOT pshowshortage) THEN
_qry := _qry || ' WHERE (((qoh - allocated) < 0) OR ((qoh - wobalance) < 0)) ';
END IF;
FOR _subx IN
EXECUTE _qry
LOOP
_subrow.woinvav_itemsite_id := _subx.itemsite_id;
_subrow.woinvav_womatl_id := _subx.womatl_id;
_subrow.woinvav_type := _subx.item_type;
_subrow.woinvav_item_wo_number := _subx.item_number;
_subrow.woinvav_descrip := _subx.item_descrip1 || ' ' || _subx.item_descrip2;
_subrow.woinvav_uomname := _subx.uom_name;
_subrow.woinvav_qoh := _subx.qoh;
_subrow.woinvav_balance := _subx.wobalance;
_subrow.woinvav_allocated := _subx.allocated;
_subrow.woinvav_ordered := _subx.ordered;
_subrow.woinvav_woavail := _subx.woavail;
_subrow.woinvav_totalavail := _subx.totalavail;
_subrow.woinvav_reorderlevel := _subx.reorderlevel;
_subrow.woinvav_level := plevel;
RETURN NEXT _subrow;
END LOOP;
RETURN;
END;
$_$;
ALTER FUNCTION public.woinvavailmatl(integer, integer, boolean, boolean) OWNER TO admin;
--
-- Name: wostarted(integer); Type: FUNCTION; Schema: public; Owner: admin
--
CREATE FUNCTION wostarted(pwoid integer) RETURNS boolean
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_result BOOLEAN := FALSE;
BEGIN
-- is it really this simple?
SELECT (wo_wipvalue > 0) INTO _result
FROM wo
WHERE wo_id=pWoid;
RETURN COALESCE(_result, FALSE);
END;
$$;
ALTER FUNCTION public.wostarted(pwoid integer) OWNER TO admin;
SET search_path = te, pg_catalog;
--
-- Name: calcrate(numeric, character); Type: FUNCTION; Schema: te; Owner: admin
--
CREATE FUNCTION calcrate(numeric, character) RETURNS numeric
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pAmount ALIAS FOR $1;
pPeriod ALIAS FOR $2;
_state integer;
_count integer;
BEGIN
-- Convert amount to hourly rate
IF (pPeriod = 'H') THEN -- hourly
RETURN round(pAmount,2);
ELSIF (pPeriod = 'D') THEN -- daily
RETURN round(pAmount / 8, 2);
ELSIF (pPeriod = 'W') THEN -- weekly
RETURN round(pAmount / 40, 2);
ELSIF (pPeriod = 'BW') THEN -- bi-weekly
RETURN round(pAmount / 80, 2);
ELSIF (pPeriod = 'M') THEN -- monthly
RETURN round(pAmount / 160, 2);
ELSIF (pPeriod = 'Y') THEN -- annually
RETURN round(pAmount / 2080, 2);
ELSE
RAISE EXCEPTION 'Unknown period type passed: %', pPeriod;
END IF;
END;
$_$;
ALTER FUNCTION te.calcrate(numeric, character) OWNER TO admin;
--
-- Name: copyitem(integer, text); Type: FUNCTION; Schema: te; Owner: admin
--
CREATE FUNCTION copyitem(integer, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pSItemid ALIAS FOR $1;
pTItemNumber ALIAS FOR $2;
_itemid INTEGER;
_r RECORD;
_id INTEGER;
BEGIN
_itemid := public.copyItem(pSItemid, pTItemNumber);
INSERT INTO te.teexp
SELECT _itemid, teexp_expcat_id, teexp_accnt_id
FROM te.teexp src
WHERE (src.teexp_id=pSItemid);
RETURN _itemid;
END;
$_$;
ALTER FUNCTION te.copyitem(integer, text) OWNER TO admin;
--
-- Name: invoicesheets(integer[]); Type: FUNCTION; Schema: te; Owner: admin
--
CREATE FUNCTION invoicesheets(integer[]) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pHeadIDs ALIAS FOR $1;
_invcnum text;
_invcheadid integer;
_invcitemid integer;
_s record;
_t record;
_linenum integer;
BEGIN
-- Loop through time sheet items with matching criteria and make invoices
FOR _s in SELECT DISTINCT
teitem_cust_id,
teitem_po,
prj_id,
teitem_curr_id
FROM te.tehead
JOIN te.teitem ON (teitem_tehead_id=tehead_id AND teitem_billable)
JOIN prjtask ON (teitem_prjtask_id=prjtask_id)
JOIN prj ON (prjtask_prj_id=prj_id)
WHERE ((tehead_id IN (SELECT * FROM te.unnest(pHeadIDs) ) )
AND (teitem_billable)
AND (teitem_invcitem_id IS NULL))
-- loop thru records and create invoices by customer, by PO for the provided headid
LOOP
--select nextval('invchead_invchead_id_seq') into _invcid;
_invcnum := CAST(fetchInvcNumber() AS TEXT);
_invcheadid := nextval('invchead_invchead_id_seq');
_linenum := 1;
INSERT INTO invchead
SELECT _invcheadid, cust_id, -1, '', current_date, false, false, _invcnum,
current_date, current_date, _s.teitem_po, '', '', cust_name, COALESCE(addr_line1,''),
COALESCE(addr_line2,''), COALESCE(addr_line3,''), COALESCE(addr_city,''),
COALESCE(addr_state,''), COALESCE(addr_postalcode,''), cntct_phone,
'', '', '', '', '', '', '', '', cust_salesrep_id, salesrep_commission, cust_terms_id,
0, 0, '', -1, 0, '', '', COALESCE(addr_country,''), '', _s.prj_id,
_s.teitem_curr_id, current_date, false, null, null, null, null, null, cust_taxzone_id
FROM custinfo
JOIN salesrep ON (cust_salesrep_id=salesrep_id)
LEFT OUTER JOIN cntct ON (cust_cntct_id=cntct_id)
LEFT OUTER JOIN addr ON (cntct_addr_id=addr_id)
WHERE (cust_id=_s.teitem_cust_id);
-- loop thru all lines of the sheet
FOR _t IN SELECT
teitem_id,
teitem_linenumber,
tehead_warehous_id,
teitem_type,
tehead_emp_id,
cust_taxzone_id,
item_number,
teitem_cust_id,
teitem_po,
teitem_item_id,
teitem_qty,
teitem_uom_id,
teitem_rate,
teitem_notes
FROM te.teitem
JOIN te.tehead ON (teitem_tehead_id = tehead_id)
JOIN custinfo ON (cust_id = teitem_cust_id)
JOIN item ON (item_id = teitem_item_id)
JOIN prjtask ON (teitem_prjtask_id=prjtask_id)
JOIN prj ON (prjtask_prj_id=prj_id)
WHERE ((tehead_id IN (SELECT * FROM te.unnest(pHeadIDs) ) )
AND (teitem_billable)
AND (teitem_invcitem_id IS NULL)
AND (item_id = teitem_item_id)
AND (teitem_cust_id = _s.teitem_cust_id)
AND (teitem_po = _s.teitem_po)
AND (prj_id = _s.prj_id)
AND (teitem_curr_id = _s.teitem_curr_id))
ORDER BY teitem_linenumber
LOOP
_invcitemid := nextval('invcitem_invcitem_id_seq');
INSERT INTO invcitem
SELECT
_invcitemid, _invcheadid, _linenum, _t.teitem_item_id,
_t.tehead_warehous_id, '', '', '', _t.teitem_qty, _t.teitem_qty, _t.teitem_rate,
_t.teitem_rate, _t.teitem_notes, -1, getItemTaxType(item_id, _t.cust_taxzone_id),
_t.teitem_uom_id, itemuomtouomratio(item_id, _t.teitem_uom_id, item_inv_uom_id),
_t.teitem_uom_id, itemuomtouomratio(item_id, _t.teitem_uom_id, item_inv_uom_id),
null
FROM item
WHERE (item_id=_t.teitem_item_id);
_linenum := _linenum + 1;
-- Update the time sheet item record
UPDATE te.teitem SET teitem_invcitem_id = _invcitemid WHERE (teitem_id = _t.teitem_id);
END LOOP;
END LOOP;
RETURN 1;
END;
$_$;
ALTER FUNCTION te.invoicesheets(integer[]) OWNER TO admin;
--
-- Name: postsheet(integer, text, text); Type: FUNCTION; Schema: te; Owner: admin
--
CREATE FUNCTION postsheet(integer, text, text) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTeheadId ALIAS FOR $1;
pPhrase1 ALIAS FOR $2;
pPhrase2 ALIAS FOR $3;
_r record;
_notes TEXT;
_value NUMERIC;
_olaccntid INTEGER;
_expaccntid INTEGER;
_count INTEGER;
BEGIN
-- Validate: No posting for contractors
IF (SELECT (count(teemp_id) > 0)
FROM te.tehead
JOIN te.teemp ON (tehead_emp_id=teemp_emp_id)
WHERE ((tehead_id=pTeheadId)
AND (teemp_contractor))) THEN
RAISE EXCEPTION 'Time and Expense Sheets can not be posted for contractors. Voucher instead.';
END IF;
-- Get labor and overhead account
SELECT accnt_id INTO _olaccntid
FROM accnt
WHERE (accnt_id=fetchmetricvalue('PrjLaborAndOverhead'));
GET DIAGNOSTICS _count = ROW_COUNT;
IF (_count = 0) THEN
RAISE EXCEPTION 'No valid Project Labor and Overhead Account Defined';
END IF;
-- Get applicable time sheets
FOR _r IN
SELECT tehead_number,
teitem_id, teitem_linenumber, teitem_type, teitem_notes,
item_descrip1, teitem_qty,
teexp_expcat_id, teexp_accnt_id,
emp_code, emp_wage, emp_wage_period,
prj_id, prj_number
FROM te.tehead
JOIN te.teitem ON (teitem_tehead_id=tehead_id)
JOIN item ON (teitem_item_id=item_id)
JOIN te.teexp ON (teitem_item_id=teexp_id)
JOIN emp ON (tehead_emp_id=emp_id)
JOIN prjtask ON (prjtask_id=teitem_prjtask_id)
JOIN prj ON (prj_id=prjtask_prj_id)
WHERE ((tehead_id = pTeheadId)
AND (NOT teitem_posted)
AND (teitem_vodist_id IS NULL)
AND (teitem_type = 'T'))
LOOP
-- Determine value
_value := te.calcRate(_r.emp_wage, _r.emp_wage_period) * _r.teitem_qty;
-- Determine G/L account to post to
IF (_r.teexp_accnt_id > 1) THEN
_expaccntid := getPrjAccntId(_r.prj_id, _r.teexp_accnt_id);
ELSE
SELECT getPrjAccntId(_r.prj_id, expcat_exp_accnt_id) INTO _expaccntid
FROM expcat
WHERE (expcat_id=_r.teexp_expcat_id);
END IF;
-- Execute the posting
_notes := (pPhrase1 || _r.item_descrip1 || '/' || _r.emp_code || pPhrase2 || ' ' || _r.prj_number);
PERFORM insertGLTransaction( 'T/E', 'TE', _r.tehead_number, _notes,
_olaccntid, _expaccntid, -1,
_value, current_date );
-- Update the time sheet item
UPDATE te.teitem SET
teitem_posted = true,
teitem_postedvalue = teitem_postedvalue + _value
WHERE (teitem_id=_r.teitem_id);
END LOOP;
RETURN 1;
END;
$_$;
ALTER FUNCTION te.postsheet(integer, text, text) OWNER TO admin;
--
-- Name: sheetstate(integer, character); Type: FUNCTION; Schema: te; Owner: admin
--
CREATE FUNCTION sheetstate(integer, character) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pTeheadId ALIAS FOR $1;
pType ALIAS FOR $2;
_state INTEGER := -1;
BEGIN
-- Check and return the process state of the sheet
-- 1 = All processed
-- 0 = Processing required
-- -1 = Not Applicable
IF (pType = 'I') THEN
SELECT MIN(CASE teitem_invcitem_id IS NULL WHEN TRUE THEN 0 ELSE 1 END) INTO _state
FROM te.teitem
WHERE ((teitem_tehead_id=pTeheadId)
AND (teitem_billable)
AND (teitem_qty >= 0));
ELSIF (pType = 'V') THEN
-- todo: why outer join then check teitem_type and vend_id is not null?
SELECT MIN(CASE teitem_vodist_id IS NULL WHEN TRUE THEN 0 ELSE 1 END) INTO _state
FROM te.tehead
JOIN emp ON (tehead_emp_id=emp_id)
LEFT OUTER JOIN te.teemp ON (emp_id=teemp_emp_id)
LEFT OUTER JOIN te.teitem ON (teitem_tehead_id=tehead_id)
LEFT OUTER JOIN vendinfo ON (UPPER(emp_number)=UPPER(vend_number))
WHERE ((teitem_tehead_id=pTeheadId)
AND ((teitem_type = 'E' AND NOT teitem_prepaid)
OR (teitem_type = 'T' AND COALESCE(teemp_contractor,false)))
AND (vend_id IS NOT NULL)
AND (teitem_qty > 0));
ELSIF (pType = 'P') THEN
SELECT MIN(CASE teitem_posted WHEN FALSE THEN 0 ELSE 1 END) INTO _state
FROM te.teitem
JOIN te.tehead ON (teitem_tehead_id=tehead_id)
JOIN te.teemp ON (tehead_emp_id=teemp_emp_id)
WHERE ((teitem_tehead_id=pTeheadId)
AND (teitem_type = 'T')
AND (NOT teemp_contractor));
ELSE
-- TODO: either make ErrorReporter::error find this or use xtuple
RAISE EXCEPTION 'Unknown process type % [xtte: sheetstate, -2, %]',
pType, pType;
END IF;
RETURN _state;
END;
$_$;
ALTER FUNCTION te.sheetstate(integer, character) OWNER TO admin;
--
-- Name: triggertehead(); Type: FUNCTION; Schema: te; Owner: admin
--
CREATE FUNCTION triggertehead() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_r RECORD;
_sense INTEGER := 0;
BEGIN
-- Determine whether we are adding or subtracting totals
IF (TG_OP = 'UPDATE') THEN
IF (OLD.tehead_status = 'O' AND NEW.tehead_status = 'A') THEN
-- Approving so add
_sense := 1;
ELSIF (OLD.tehead_status = 'A' AND NEW.tehead_status = 'O') THEN
-- Unapproving so subtract
_sense := -1;
END IF;
END IF;
IF (_sense != 0) THEN
-- Loop thru all lines of the sheet and update project
FOR _r in
SELECT teitem_prjtask_id, teitem_type, teitem_qty, teitem_total
FROM te.teitem
WHERE teitem_tehead_id = NEW.tehead_id
LOOP
IF (_r.teitem_type = 'T') THEN
UPDATE prjtask SET
prjtask_hours_actual = prjtask_hours_actual + _r.teitem_qty * _sense
WHERE prjtask_id = _r.teitem_prjtask_id;
ELSE
UPDATE prjtask SET
prjtask_exp_actual = prjtask_exp_actual + _r.teitem_total * _sense
WHERE prjtask_id = _r.teitem_prjtask_id;
END IF;
END LOOP;
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION te.triggertehead() OWNER TO admin;
--
-- Name: triggerteitem(); Type: FUNCTION; Schema: te; Owner: admin
--
CREATE FUNCTION triggerteitem() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_r RECORD;
_status CHAR(1) := 'O';
BEGIN
-- Validate whether we can take this action
IF (TG_OP = 'UPDATE') THEN
IF ((OLD.teitem_type != NEW.teitem_type)
OR (OLD.teitem_workdate != NEW.teitem_workdate)
OR (OLD.teitem_cust_id != NEW.teitem_cust_id)
OR (OLD.teitem_po != NEW.teitem_po)
OR (OLD.teitem_item_id != NEW.teitem_item_id)
OR (OLD.teitem_qty != NEW.teitem_qty)
OR (OLD.teitem_rate != NEW.teitem_rate)
OR (OLD.teitem_total != NEW.teitem_total)
OR (OLD.teitem_billable != NEW.teitem_billable)
OR (OLD.teitem_prepaid != NEW.teitem_prepaid)
OR (OLD.teitem_notes != NEW.teitem_notes)) THEN
SELECT tehead_status INTO _status FROM te.tehead WHERE tehead_id=NEW.teitem_tehead_id;
END IF;
ELSIF (TG_OP = 'INSERT') THEN
SELECT tehead_status INTO _status FROM te.tehead WHERE tehead_id=NEW.teitem_tehead_id;
ELSE -- Must be delete
SELECT tehead_status INTO _status FROM te.tehead WHERE tehead_id=OLD.teitem_tehead_id;
END IF;
IF (_status != 'O') THEN
RAISE EXCEPTION 'Time and Expense Sheets may only be edited or deleted when the status is Open';
END IF;
_status := 'C';
-- Update header status, default is to close if all processing complete
IF (TG_OP = 'UPDATE') THEN
IF ((COALESCE(OLD.teitem_invcitem_id,-1) != COALESCE(NEW.teitem_invcitem_id,-1))
OR (COALESCE(OLD.teitem_vodist_id,-1) != COALESCE(NEW.teitem_vodist_id,-1))
OR (OLD.teitem_posted != NEW.teitem_posted)) THEN
SELECT
te.sheetstate(NEW.teitem_tehead_id, 'I') AS invoiced,
te.sheetstate(NEW.teitem_tehead_id, 'V') AS vouchered,
te.sheetstate(NEW.teitem_tehead_id, 'P') AS posted
INTO _r;
IF (_r.invoiced = 0 OR _r.vouchered = 0 OR _r.posted = 0) THEN
_status := 'A'; -- Something is still open, so approved
END IF;
UPDATE te.tehead SET tehead_status = _status WHERE (tehead_id=NEW.teitem_tehead_id);
END IF;
END IF;
-- Update header with last use info
IF (TG_OP = 'DELETE') THEN
UPDATE te.tehead SET
tehead_lastupdated=('now'::text)::timestamp(6) with time zone
WHERE (tehead_id=OLD.teitem_tehead_id);
ELSE
UPDATE te.tehead SET
tehead_lastupdated=('now'::text)::timestamp(6) with time zone,
tehead_username=current_user
WHERE (tehead_id=NEW.teitem_tehead_id);
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION te.triggerteitem() OWNER TO admin;
--
-- Name: triggerteprj(); Type: FUNCTION; Schema: te; Owner: admin
--
CREATE FUNCTION triggerteprj() RETURNS trigger
LANGUAGE plpgsql
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_update BOOLEAN := false;
BEGIN
IF (TG_OP = 'INSERT') THEN
_update = true;
ELSIF (TG_OP = 'UPDATE') THEN
IF (COALESCE(OLD.teprj_cust_id,-1) != COALESCE(NEW.teprj_cust_id,-1)) THEN
_update = true;
END IF;
END IF;
IF (_update) THEN
UPDATE te.teprjtask SET teprjtask_cust_id=NEW.teprj_cust_id
FROM prjtask
WHERE ((teprjtask_prjtask_id=prjtask_id)
AND (prjtask_prj_id=NEW.teprj_prj_id));
END IF;
RETURN NEW;
END;
$$;
ALTER FUNCTION te.triggerteprj() OWNER TO admin;
--
-- Name: unnest(anyarray); Type: FUNCTION; Schema: te; Owner: admin
--
CREATE FUNCTION unnest(anyarray) RETURNS SETOF anyelement
LANGUAGE sql IMMUTABLE
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
SELECT $1[i] FROM
generate_series(array_lower($1,1),
array_upper($1,1)) i;
$_$;
ALTER FUNCTION te.unnest(anyarray) OWNER TO admin;
--
-- Name: vouchersheet(integer); Type: FUNCTION; Schema: te; Owner: admin
--
CREATE FUNCTION vouchersheet(integer) RETURNS integer
LANGUAGE plpgsql
AS $_$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
pHeadID ALIAS FOR $1;
_distamt NUMERIC;
_glaccnt INTEGER;
_notes TEXT;
_s RECORD;
_total NUMERIC := 0;
_v RECORD;
_vodistid INTEGER;
_voheadid INTEGER;
BEGIN
FOR _v IN
-- distinct filters duplicate rows returned because of the teitem join
-- TODO: can we push the teitem down into the loop and avoid the distinct?
SELECT DISTINCT
tehead_id, tehead_number, tehead_weekending, tehead_notes,
teitem_curr_id,
emp_wage, emp_wage_period,
vend_id, vend_taxzone_id, vend_terms_id, vend_number, vend_1099,
COALESCE(teemp_contractor, false) AS isContractor
FROM te.tehead
JOIN te.teitem ON (teitem_tehead_id=tehead_id)
JOIN emp ON (tehead_emp_id=emp_id)
JOIN vendinfo ON (UPPER(emp_number)=UPPER(vend_number))
LEFT OUTER JOIN te.teemp ON (emp_id=teemp_emp_id)
WHERE ((tehead_id = pHeadID)
AND (teitem_prepaid = false)
AND (teitem_vodist_id IS NULL)
AND (teitem_type = 'E' OR (COALESCE(teemp_contractor,false) AND (teitem_empcost > 0 OR emp_wage > 0 )))) LOOP
INSERT INTO vohead (vohead_id, vohead_number, vohead_vend_id,
vohead_distdate, vohead_docdate,
vohead_duedate,
vohead_terms_id, vohead_taxzone_id, vohead_invcnumber,
vohead_reference, vohead_amount, vohead_1099,
vohead_curr_id, vohead_notes, vohead_posted,
vohead_misc, vohead_pohead_id)
VALUES (DEFAULT, fetchVoNumber(), _v.vend_id,
_v.tehead_weekending, _v.tehead_weekending,
determineDueDate(_v.vend_terms_id, _v.tehead_weekending),
_v.vend_terms_id, _v.vend_taxzone_id, 'N/A',
('T&E Sheet ' || _v.tehead_number), 0, _v.vend_1099,
_v.teitem_curr_id, _v.tehead_notes, false,
true, -1)
RETURNING vohead_id INTO _voheadid;
FOR _s IN
SELECT teitem_id, teitem_linenumber, teitem_workdate, teitem_type,
item_number, teitem_item_id, teitem_qty, prjtask_prj_id,
CASE
WHEN teitem_empcost > 0 THEN teitem_empcost
ELSE te.calcRate(_v.emp_wage, _v.emp_wage_period)
END AS rate,
teitem_total, teitem_type,
teexp_expcat_id, teexp_accnt_id
FROM te.teitem
JOIN te.teexp ON (teitem_item_id=teexp_id)
JOIN item ON (teitem_item_id=item_id)
JOIN prjtask ON (teitem_prjtask_id=prjtask_id)
WHERE ((teitem_tehead_id = _v.tehead_id)
AND (teitem_curr_id = _v.teitem_curr_id)
AND (teitem_prepaid = false)
AND (teitem_vodist_id IS NULL)
AND (teitem_type = 'E' OR (_v.isContractor AND (teitem_empcost > 0 OR _v.emp_wage > 0 ))))
-- Loop thru records and create vouchers by supplier for the provided headid
LOOP
-- insert vodist records here
_vodistid = nextval('vodist_vodist_id_seq');
-- Map expense directly to account so we can get project account mapping if applicable
IF (_s.teexp_accnt_id > 1) THEN
_glaccnt := getPrjAccntId(_s.prjtask_prj_id, _s.teexp_accnt_id);
ELSE
SELECT getPrjAccntId(_s.prjtask_prj_id, expcat_exp_accnt_id) INTO _glaccnt
FROM expcat
WHERE (expcat_id=_s.teexp_expcat_id);
END IF;
IF (_s.teitem_type = 'T') THEN -- Time sheet record
_notes := formatdate(_s.teitem_workdate) || E'\t' || _s.item_number ||
E'\t' || formatQty(_s.teitem_qty) || ' hours' || E'\t';
_distamt := _s.rate * _s.teitem_qty;
ELSE -- Expense record
_notes := formatdate(_s.teitem_workdate) || E'\t' || _s.item_number ||
E'\t' || E'\t';
_distamt := _s.teitem_total;
END IF;
INSERT INTO vodist (vodist_id, vodist_vohead_id, vodist_poitem_id,
vodist_costelem_id, vodist_accnt_id, vodist_amount,
vodist_expcat_id, vodist_notes)
VALUES (_vodistid, _voheadid, -1,
-1, _glaccnt, _distamt,
-1, _notes);
_total := _total + _distamt;
-- Update the te.teitem record with the relationship
UPDATE te.teitem SET teitem_vodist_id = _vodistid WHERE teitem_id = _s.teitem_id;
END LOOP;
UPDATE vohead SET vohead_amount = _total WHERE (vohead_id=_voheadid);
_total := 0;
END LOOP;
RETURN 1;
END;
$_$;
ALTER FUNCTION te.vouchersheet(integer) OWNER TO admin;
SET search_path = xtdesktop, pg_catalog;
--
-- Name: fetchwelcomehtml(); Type: FUNCTION; Schema: xtdesktop; Owner: admin
--
CREATE FUNCTION fetchwelcomehtml() RETURNS text
LANGUAGE plpgsql IMMUTABLE
AS $$
-- Copyright (c) 1999-2012 by OpenMFG LLC, d/b/a xTuple.
-- See www.xtuple.com/CPAL for the full text of the software license.
DECLARE
_html TEXT;
BEGIN
_html := '
Welcome to xTuple
You are not connected to the internet
at this time
';
RETURN _html;
END;
$$;
ALTER FUNCTION xtdesktop.fetchwelcomehtml() OWNER TO admin;
SET search_path = public, pg_catalog;
--
-- Name: concatagg(text); Type: AGGREGATE; Schema: public; Owner: admin
--
CREATE AGGREGATE concatagg(text) (
SFUNC = concataggsfunc,
STYPE = text,
INITCOND = ''
);
ALTER AGGREGATE public.concatagg(text) OWNER TO admin;
--
-- Name: first(anyelement); Type: AGGREGATE; Schema: public; Owner: admin
--
CREATE AGGREGATE first(anyelement) (
SFUNC = first_agg,
STYPE = anyelement
);
ALTER AGGREGATE public.first(anyelement) OWNER TO admin;
--
-- Name: last(anyelement); Type: AGGREGATE; Schema: public; Owner: admin
--
CREATE AGGREGATE last(anyelement) (
SFUNC = last_agg,
STYPE = anyelement
);
ALTER AGGREGATE public.last(anyelement) OWNER TO admin;
--
-- Name: addr; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE addr (
addr_id integer NOT NULL,
addr_active boolean DEFAULT true,
addr_line1 text DEFAULT ''::text,
addr_line2 text DEFAULT ''::text,
addr_line3 text DEFAULT ''::text,
addr_city text DEFAULT ''::text,
addr_state text DEFAULT ''::text,
addr_postalcode text DEFAULT ''::text,
addr_country text DEFAULT ''::text,
addr_notes text DEFAULT ''::text,
addr_number text NOT NULL,
CONSTRAINT addr_addr_number_check CHECK ((addr_number <> ''::text))
);
ALTER TABLE public.addr OWNER TO admin;
--
-- Name: TABLE addr; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE addr IS 'Postal Address';
SET search_path = api, pg_catalog;
--
-- Name: account; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW account AS
SELECT (c.crmacct_number)::character varying AS account_number, p.crmacct_number AS parent_account, c.crmacct_name AS account_name, c.crmacct_active AS active, CASE WHEN (c.crmacct_type = 'O'::bpchar) THEN 'Organization'::text ELSE 'Individual'::text END AS type, pc.cntct_number AS primary_contact_number, pc.cntct_honorific AS primary_contact_honorific, pc.cntct_first_name AS primary_contact_first, pc.cntct_middle AS primary_contact_middle, pc.cntct_last_name AS primary_contact_last, pc.cntct_suffix AS primary_contact_suffix, pc.cntct_title AS primary_contact_job_title, pc.cntct_phone AS primary_contact_voice, pc.cntct_fax AS primary_contact_fax, pc.cntct_email AS primary_contact_email, ''::text AS primary_contact_change, m.addr_number AS primary_contact_address_number, m.addr_line1 AS primary_contact_address1, m.addr_line2 AS primary_contact_address2, m.addr_line3 AS primary_contact_address3, m.addr_city AS primary_contact_city, m.addr_state AS primary_contact_state, m.addr_postalcode AS primary_contact_postalcode, m.addr_country AS primary_contact_country, ''::text AS primary_contact_address_change, sc.cntct_number AS secondary_contact_number, sc.cntct_honorific AS secondary_contact_honorific, sc.cntct_first_name AS secondary_contact_first, sc.cntct_middle AS secondary_contact_middle, sc.cntct_last_name AS secondary_contact_last, sc.cntct_suffix AS secondary_contact_suffix, sc.cntct_title AS secondary_contact_job_title, sc.cntct_phone AS secondary_contact_voice, sc.cntct_fax AS secondary_contact_fax, sc.cntct_email AS secondary_contact_email, sc.cntct_webaddr AS secondary_contact_web, ''::text AS secondary_contact_change, s.addr_number AS secondary_contact_address_number, s.addr_line1 AS secondary_contact_address1, s.addr_line2 AS secondary_contact_address2, s.addr_line3 AS secondary_contact_address3, s.addr_city AS secondary_contact_city, s.addr_state AS secondary_contact_state, s.addr_postalcode AS secondary_contact_postalcode, s.addr_country AS secondary_contact_country, ''::text AS secondary_contact_address_change, c.crmacct_notes AS notes FROM (((((public.crmacct c LEFT JOIN public.crmacct p ON ((c.crmacct_id = p.crmacct_parent_id))) LEFT JOIN public.cntct pc ON ((c.crmacct_cntct_id_1 = pc.cntct_id))) LEFT JOIN public.addr m ON ((pc.cntct_addr_id = m.addr_id))) LEFT JOIN public.cntct sc ON ((c.crmacct_cntct_id_2 = sc.cntct_id))) LEFT JOIN public.addr s ON ((sc.cntct_addr_id = s.addr_id)));
ALTER TABLE api.account OWNER TO admin;
--
-- Name: VIEW account; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW account IS 'Account';
SET search_path = public, pg_catalog;
--
-- Name: char; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE "char" (
char_id integer NOT NULL,
char_name text NOT NULL,
char_items boolean,
char_options boolean,
char_attributes boolean,
char_lotserial boolean,
char_notes text,
char_customers boolean,
char_crmaccounts boolean,
char_addresses boolean,
char_contacts boolean,
char_opportunity boolean,
char_employees boolean DEFAULT false,
char_mask text,
char_validator text,
char_incidents boolean DEFAULT false,
char_type integer DEFAULT 0 NOT NULL,
char_order integer DEFAULT 0 NOT NULL,
char_search boolean DEFAULT true NOT NULL,
CONSTRAINT char_char_name_check CHECK ((char_name <> ''::text))
);
ALTER TABLE public."char" OWNER TO admin;
--
-- Name: TABLE "char"; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE "char" IS 'Characteristic information';
--
-- Name: charass; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE charass (
charass_id integer NOT NULL,
charass_target_type text,
charass_target_id integer,
charass_char_id integer,
charass_value text,
charass_default boolean DEFAULT false NOT NULL,
charass_price numeric(16,4) DEFAULT 0 NOT NULL
);
ALTER TABLE public.charass OWNER TO admin;
--
-- Name: TABLE charass; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE charass IS 'Characteristic assignment information';
SET search_path = api, pg_catalog;
--
-- Name: accountchar; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW accountchar AS
SELECT (crmacct.crmacct_number)::character varying AS account_number, ("char".char_name)::character varying AS characteristic, charass.charass_value AS value FROM public.crmacct, public."char", public.charass WHERE ((('CRMACCT'::text = charass.charass_target_type) AND (crmacct.crmacct_id = charass.charass_target_id)) AND (charass.charass_char_id = "char".char_id));
ALTER TABLE api.accountchar OWNER TO admin;
--
-- Name: VIEW accountchar; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW accountchar IS 'Account Characteristics';
SET search_path = public, pg_catalog;
--
-- Name: cmnttype; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cmnttype (
cmnttype_id integer NOT NULL,
cmnttype_name text NOT NULL,
cmnttype_descrip text NOT NULL,
cmnttype_usedin text,
cmnttype_sys boolean DEFAULT false NOT NULL,
cmnttype_editable boolean DEFAULT false NOT NULL,
cmnttype_order integer,
CONSTRAINT cmnttype_cmnttype_name_check CHECK ((cmnttype_name <> ''::text))
);
ALTER TABLE public.cmnttype OWNER TO admin;
--
-- Name: TABLE cmnttype; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE cmnttype IS 'Comment Type information';
--
-- Name: comment; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE comment (
comment_id integer DEFAULT nextval(('"comment_comment_id_seq"'::text)::regclass) NOT NULL,
comment_source_id integer,
comment_date timestamp with time zone,
comment_user text,
comment_text text,
comment_cmnttype_id integer,
comment_source text,
comment_public boolean
);
ALTER TABLE public.comment OWNER TO admin;
--
-- Name: TABLE comment; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE comment IS 'Comment information';
SET search_path = api, pg_catalog;
--
-- Name: accountcomment; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW accountcomment AS
SELECT (crmacct.crmacct_number)::character varying AS account_number, cmnttype.cmnttype_name AS type, comment.comment_date AS date, comment.comment_user AS username, comment.comment_text AS text FROM public.crmacct, public.cmnttype, public.comment WHERE (((comment.comment_source = 'CRMA'::text) AND (comment.comment_source_id = crmacct.crmacct_id)) AND (comment.comment_cmnttype_id = cmnttype.cmnttype_id));
ALTER TABLE api.accountcomment OWNER TO admin;
--
-- Name: VIEW accountcomment; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW accountcomment IS 'Account Comment';
SET search_path = public, pg_catalog;
--
-- Name: docass; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE docass (
docass_id integer NOT NULL,
docass_source_id integer NOT NULL,
docass_source_type text NOT NULL,
docass_target_id integer NOT NULL,
docass_target_type text DEFAULT 'URL'::text NOT NULL,
docass_purpose character(1) DEFAULT 'S'::bpchar NOT NULL,
CONSTRAINT docass_docass_purpose_check CHECK (((((((((docass_purpose = 'I'::bpchar) OR (docass_purpose = 'E'::bpchar)) OR (docass_purpose = 'M'::bpchar)) OR (docass_purpose = 'P'::bpchar)) OR (docass_purpose = 'A'::bpchar)) OR (docass_purpose = 'C'::bpchar)) OR (docass_purpose = 'S'::bpchar)) OR (docass_purpose = 'D'::bpchar)))
);
ALTER TABLE public.docass OWNER TO admin;
--
-- Name: TABLE docass; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE docass IS 'Document Assignement References';
--
-- Name: file; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE file (
file_id integer NOT NULL,
file_title text NOT NULL,
file_stream bytea,
file_descrip text NOT NULL
);
ALTER TABLE public.file OWNER TO admin;
--
-- Name: urlinfo; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE urlinfo (
url_id integer NOT NULL,
url_title text NOT NULL,
url_url text NOT NULL
);
ALTER TABLE public.urlinfo OWNER TO admin;
--
-- Name: url; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW url AS
SELECT docass.docass_id AS url_id, docass.docass_source_id AS url_source_id, docass.docass_source_type AS url_source, file.file_title AS url_title, file.file_descrip AS url_url, file.file_stream AS url_stream FROM (file JOIN docass ON (((docass.docass_target_id = file.file_id) AND (docass.docass_target_type = 'FILE'::text)))) UNION ALL SELECT docass.docass_id AS url_id, docass.docass_source_id AS url_source_id, docass.docass_source_type AS url_source, urlinfo.url_title, urlinfo.url_url, NULL::unknown AS url_stream FROM (urlinfo JOIN docass ON (((docass.docass_target_id = urlinfo.url_id) AND (docass.docass_target_type = 'URL'::text))));
ALTER TABLE public.url OWNER TO admin;
SET search_path = api, pg_catalog;
--
-- Name: accountfile; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW accountfile AS
SELECT crmacct.crmacct_number AS account_number, url.url_title AS title, url.url_url AS url FROM public.crmacct, public.url WHERE ((crmacct.crmacct_id = url.url_source_id) AND (url.url_source = 'CRMA'::text));
ALTER TABLE api.accountfile OWNER TO admin;
--
-- Name: VIEW accountfile; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW accountfile IS 'Account File';
SET search_path = public, pg_catalog;
--
-- Name: docass_docass_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE docass_docass_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.docass_docass_id_seq OWNER TO admin;
--
-- Name: docass_docass_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE docass_docass_id_seq OWNED BY docass.docass_id;
--
-- Name: docass_docass_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('docass_docass_id_seq', 1, true);
--
-- Name: image; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE image (
image_id integer DEFAULT nextval(('"image_image_id_seq"'::text)::regclass) NOT NULL,
image_name text,
image_descrip text,
image_data text
);
ALTER TABLE public.image OWNER TO admin;
--
-- Name: TABLE image; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE image IS 'Image information';
--
-- Name: imageass; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE imageass (
imageass_id integer DEFAULT nextval('docass_docass_id_seq'::regclass) NOT NULL,
imageass_source_id integer NOT NULL,
imageass_source text NOT NULL,
imageass_image_id integer NOT NULL,
imageass_purpose character(1) NOT NULL,
CONSTRAINT imageass_imageass_purpose_check CHECK (((((((((imageass_purpose = 'I'::bpchar) OR (imageass_purpose = 'E'::bpchar)) OR (imageass_purpose = 'M'::bpchar)) OR (imageass_purpose = 'P'::bpchar)) OR (imageass_purpose = 'A'::bpchar)) OR (imageass_purpose = 'C'::bpchar)) OR (imageass_purpose = 'D'::bpchar)) OR (imageass_purpose = 'S'::bpchar)))
);
ALTER TABLE public.imageass OWNER TO admin;
--
-- Name: TABLE imageass; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE imageass IS 'Image Assignement References';
SET search_path = api, pg_catalog;
--
-- Name: accountimage; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW accountimage AS
SELECT crmacct.crmacct_number AS account_number, image.image_name FROM public.crmacct, public.imageass, public.image WHERE (((crmacct.crmacct_id = imageass.imageass_source_id) AND (imageass.imageass_source = 'CRMA'::text)) AND (imageass.imageass_image_id = image.image_id));
ALTER TABLE api.accountimage OWNER TO admin;
--
-- Name: VIEW accountimage; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW accountimage IS 'Account Image';
--
-- Name: address; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW address AS
SELECT (addr.addr_number)::character varying AS address_number, addr.addr_line1 AS address1, addr.addr_line2 AS address2, addr.addr_line3 AS address3, addr.addr_city AS city, addr.addr_state AS state, addr.addr_postalcode AS postal_code, addr.addr_country AS country, addr.addr_active AS active, addr.addr_notes AS notes, ''::text AS change FROM public.addr;
ALTER TABLE api.address OWNER TO admin;
--
-- Name: VIEW address; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW address IS 'Address';
--
-- Name: addresschar; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW addresschar AS
SELECT (addr.addr_number)::character varying AS address_number, ("char".char_name)::character varying AS characteristic, charass.charass_value AS value FROM public.addr, public."char", public.charass WHERE ((('ADDR'::text = charass.charass_target_type) AND (addr.addr_id = charass.charass_target_id)) AND (charass.charass_char_id = "char".char_id));
ALTER TABLE api.addresschar OWNER TO admin;
--
-- Name: VIEW addresschar; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW addresschar IS 'Address Characteristics';
--
-- Name: addresscomment; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW addresscomment AS
SELECT (addr.addr_number)::character varying AS address_number, cmnttype.cmnttype_name AS type, comment.comment_date AS date, comment.comment_user AS username, comment.comment_text AS text FROM public.addr, public.cmnttype, public.comment WHERE (((comment.comment_source = 'ADDR'::text) AND (comment.comment_source_id = addr.addr_id)) AND (comment.comment_cmnttype_id = cmnttype.cmnttype_id));
ALTER TABLE api.addresscomment OWNER TO admin;
--
-- Name: VIEW addresscomment; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW addresscomment IS 'Address Comment';
SET search_path = public, pg_catalog;
--
-- Name: bomhead; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE bomhead (
bomhead_id integer DEFAULT nextval(('"bomhead_bomhead_id_seq"'::text)::regclass) NOT NULL,
bomhead_item_id integer NOT NULL,
bomhead_serial integer,
bomhead_docnum text,
bomhead_revision text,
bomhead_revisiondate date,
bomhead_batchsize numeric(18,6),
bomhead_requiredqtyper numeric(20,8),
bomhead_rev_id integer DEFAULT (-1),
CONSTRAINT bomhead_bomhead_batchsize_check CHECK ((bomhead_batchsize > (0)::numeric))
);
ALTER TABLE public.bomhead OWNER TO admin;
--
-- Name: TABLE bomhead; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE bomhead IS 'Bill of Materials (BOM) header information';
SET search_path = api, pg_catalog;
--
-- Name: bom; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW bom AS
SELECT (item.item_number)::character varying AS item_number, (bomhead.bomhead_revision)::character varying AS revision, bomhead.bomhead_docnum AS document_number, bomhead.bomhead_revisiondate AS revision_date, bomhead.bomhead_batchsize AS batch_size, bomhead.bomhead_requiredqtyper AS total_qty_per FROM public.bomhead, public.item WHERE (bomhead.bomhead_item_id = item.item_id);
ALTER TABLE api.bom OWNER TO admin;
--
-- Name: VIEW bom; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW bom IS 'Bill of Material Header';
--
-- Name: bomitem; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW bomitem AS
SELECT bomitem.bomitem_id AS id, (p.item_number)::character varying AS bom_item_number, (bomhead.bomhead_revision)::character varying AS bom_revision, bomitem.bomitem_seqnumber AS sequence_number, i.item_number, CASE WHEN (bomitem.bomitem_effective = public.startoftime()) THEN 'Always'::text ELSE public.formatdate(bomitem.bomitem_effective) END AS effective, CASE WHEN (bomitem.bomitem_expires = public.endoftime()) THEN 'Never'::text ELSE public.formatdate(bomitem.bomitem_expires) END AS expires, bomitem.bomitem_qtyper AS qty_per, uom.uom_name AS issue_uom, bomitem.bomitem_scrap AS scrap, bomitem.bomitem_createwo AS create_child_wo, CASE WHEN (bomitem.bomitem_issuemethod = 'M'::bpchar) THEN 'Mixed'::text WHEN (bomitem.bomitem_issuemethod = 'L'::bpchar) THEN 'Pull'::text WHEN (bomitem.bomitem_issuemethod = 'S'::bpchar) THEN 'Push'::text ELSE NULL::text END AS issue_method, public.formatbooseq(p.item_id, bomitem.bomitem_booitem_seq_id) AS used_at, bomitem.bomitem_schedatwooper AS schedule_at_wo_operation, bomitem.bomitem_ecn AS ecn_number, bomitem.bomitem_notes AS notes, bomitem.bomitem_ref AS reference, CASE WHEN (bomitem.bomitem_subtype = 'N'::bpchar) THEN 'No'::text WHEN (bomitem.bomitem_subtype = 'I'::bpchar) THEN 'Item-Defined'::text WHEN (bomitem.bomitem_subtype = 'B'::bpchar) THEN 'BOM-Defined'::text ELSE NULL::text END AS substitutions, "char".char_name AS characteristic, bomitem.bomitem_value AS value FROM ((public.bomitem LEFT JOIN public.bomhead ON (((bomitem.bomitem_parent_item_id = bomhead.bomhead_item_id) AND (bomitem.bomitem_rev_id = bomhead.bomhead_rev_id)))) LEFT JOIN public."char" ON ((bomitem.bomitem_char_id = "char".char_id))), public.item p, public.item i, public.uom WHERE (((bomitem.bomitem_parent_item_id = p.item_id) AND (bomitem.bomitem_item_id = i.item_id)) AND (bomitem.bomitem_uom_id = uom.uom_id)) ORDER BY p.item_number, bomitem.bomitem_seqnumber;
ALTER TABLE api.bomitem OWNER TO admin;
--
-- Name: VIEW bomitem; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW bomitem IS 'Bill of Material Item';
--
-- Name: bomitemcomment; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW bomitemcomment AS
SELECT bomitem.bomitem_id, cmnttype.cmnttype_name AS type, comment.comment_date AS date, comment.comment_user AS username, comment.comment_text AS text FROM (public.bomitem LEFT JOIN public.bomhead ON (((bomitem.bomitem_parent_item_id = bomhead.bomhead_item_id) AND (bomitem.bomitem_rev_id = bomhead.bomhead_rev_id)))), public.item, public.cmnttype, public.comment WHERE ((((comment.comment_source = 'BMI'::text) AND (comment.comment_source_id = bomitem.bomitem_id)) AND (comment.comment_cmnttype_id = cmnttype.cmnttype_id)) AND (bomitem.bomitem_parent_item_id = item.item_id)) ORDER BY item.item_number, bomhead.bomhead_revision, bomitem.bomitem_seqnumber, comment.comment_date;
ALTER TABLE api.bomitemcomment OWNER TO admin;
--
-- Name: VIEW bomitemcomment; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW bomitemcomment IS 'Bill of Material Comment';
SET search_path = public, pg_catalog;
--
-- Name: bomitemsub; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE bomitemsub (
bomitemsub_id integer NOT NULL,
bomitemsub_bomitem_id integer NOT NULL,
bomitemsub_item_id integer NOT NULL,
bomitemsub_uomratio numeric(20,10) NOT NULL,
bomitemsub_rank integer NOT NULL
);
ALTER TABLE public.bomitemsub OWNER TO admin;
--
-- Name: TABLE bomitemsub; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE bomitemsub IS 'Bill of Materials (BOM) defined Substitutions information';
SET search_path = api, pg_catalog;
--
-- Name: bomitemsubstitute; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW bomitemsubstitute AS
SELECT bomitem.bomitem_id, (p.item_number)::character varying AS bom_item_number, (bomhead.bomhead_revision)::character varying AS bom_revision, bomitem.bomitem_seqnumber AS sequence_number, (s.item_number)::character varying AS substitute_item_number, bomitemsub.bomitemsub_uomratio AS sub_parent_uom_ratio, bomitemsub.bomitemsub_rank AS ranking FROM public.item p, public.item s, (public.bomitem LEFT JOIN public.bomhead ON (((bomitem.bomitem_parent_item_id = bomhead.bomhead_item_id) AND (bomitem.bomitem_rev_id = bomhead.bomhead_rev_id)))), public.bomitemsub WHERE (((p.item_id = bomitem.bomitem_parent_item_id) AND (s.item_id = bomitemsub.bomitemsub_item_id)) AND (bomitemsub.bomitemsub_bomitem_id = bomitem.bomitem_id));
ALTER TABLE api.bomitemsubstitute OWNER TO admin;
--
-- Name: VIEW bomitemsubstitute; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW bomitemsubstitute IS 'Bill of Material Item Substitute';
SET search_path = public, pg_catalog;
--
-- Name: budghead; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE budghead (
budghead_id integer NOT NULL,
budghead_name text NOT NULL,
budghead_descrip text,
CONSTRAINT budghead_budghead_name_check CHECK ((budghead_name <> ''::text))
);
ALTER TABLE public.budghead OWNER TO admin;
SET search_path = api, pg_catalog;
--
-- Name: budget; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW budget AS
SELECT budghead.budghead_name AS name, budghead.budghead_descrip AS description FROM public.budghead ORDER BY budghead.budghead_name;
ALTER TABLE api.budget OWNER TO admin;
--
-- Name: VIEW budget; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW budget IS 'Budget Header';
SET search_path = public, pg_catalog;
--
-- Name: accnt; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE accnt (
accnt_id integer DEFAULT nextval(('accnt_accnt_id_seq'::text)::regclass) NOT NULL,
accnt_number text,
accnt_descrip text,
accnt_comments text,
accnt_profit text,
accnt_sub text,
accnt_type character(1) NOT NULL,
accnt_extref text,
accnt_company text,
accnt_forwardupdate boolean,
accnt_subaccnttype_code text,
accnt_curr_id integer DEFAULT basecurrid(),
accnt_active boolean DEFAULT true NOT NULL,
accnt_name text,
CONSTRAINT accnt_accnt_type_check CHECK ((accnt_type = ANY (ARRAY['A'::bpchar, 'E'::bpchar, 'L'::bpchar, 'Q'::bpchar, 'R'::bpchar])))
);
ALTER TABLE public.accnt OWNER TO admin;
--
-- Name: TABLE accnt; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE accnt IS 'General Ledger (G/L) Account Number information';
--
-- Name: budgitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE budgitem (
budgitem_id integer NOT NULL,
budgitem_budghead_id integer NOT NULL,
budgitem_period_id integer NOT NULL,
budgitem_accnt_id integer NOT NULL,
budgitem_amount numeric(20,4) NOT NULL
);
ALTER TABLE public.budgitem OWNER TO admin;
--
-- Name: period; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE period (
period_id integer NOT NULL,
period_start date,
period_end date,
period_closed boolean,
period_freeze boolean,
period_initial boolean DEFAULT false,
period_name text,
period_yearperiod_id integer,
period_quarter integer,
period_number integer NOT NULL
);
ALTER TABLE public.period OWNER TO admin;
--
-- Name: TABLE period; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE period IS 'Accounting Period information';
SET search_path = api, pg_catalog;
--
-- Name: budgetentry; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW budgetentry AS
SELECT budghead.budghead_name AS name, public.formatglaccount(accnt.accnt_id) AS account, period.period_start, budgitem.budgitem_amount AS amount FROM public.budgitem, public.budghead, public.period, public.accnt WHERE (((budgitem.budgitem_budghead_id = budghead.budghead_id) AND (budgitem.budgitem_period_id = period.period_id)) AND (budgitem.budgitem_accnt_id = accnt.accnt_id)) ORDER BY budghead.budghead_name, period.period_start, public.formatglaccount(accnt.accnt_id);
ALTER TABLE api.budgetentry OWNER TO admin;
--
-- Name: VIEW budgetentry; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW budgetentry IS 'Budget Entry';
SET search_path = public, pg_catalog;
--
-- Name: bankaccnt; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE bankaccnt (
bankaccnt_id integer NOT NULL,
bankaccnt_name text NOT NULL,
bankaccnt_descrip text,
bankaccnt_bankname text,
bankaccnt_accntnumber text,
bankaccnt_ar boolean,
bankaccnt_ap boolean,
bankaccnt_nextchknum integer,
bankaccnt_type character(1),
bankaccnt_accnt_id integer,
bankaccnt_check_form_id integer,
bankaccnt_userec boolean,
bankaccnt_rec_accnt_id integer,
bankaccnt_curr_id integer DEFAULT basecurrid(),
bankaccnt_notes text,
bankaccnt_routing text DEFAULT ''::text NOT NULL,
bankaccnt_ach_enabled boolean DEFAULT false NOT NULL,
bankaccnt_ach_origin text DEFAULT ''::text NOT NULL,
bankaccnt_ach_genchecknum boolean DEFAULT false NOT NULL,
bankaccnt_ach_leadtime integer,
bankaccnt_ach_lastdate date,
bankaccnt_ach_lastfileid character(1),
bankaccnt_ach_origintype text,
bankaccnt_ach_originname text,
bankaccnt_ach_desttype text,
bankaccnt_ach_fed_dest text,
bankaccnt_ach_destname text,
bankaccnt_ach_dest text,
CONSTRAINT bankaccnt_bankaccnt_name_check CHECK ((bankaccnt_name <> ''::text))
);
ALTER TABLE public.bankaccnt OWNER TO admin;
--
-- Name: TABLE bankaccnt; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE bankaccnt IS 'Bank Account information';
--
-- Name: cashrcpt; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cashrcpt (
cashrcpt_id integer NOT NULL,
cashrcpt_cust_id integer NOT NULL,
cashrcpt_amount numeric(20,2) NOT NULL,
cashrcpt_fundstype character(1) NOT NULL,
cashrcpt_docnumber text,
cashrcpt_bankaccnt_id integer NOT NULL,
cashrcpt_notes text,
cashrcpt_distdate date DEFAULT ('now'::text)::date,
cashrcpt_salescat_id integer DEFAULT (-1),
cashrcpt_curr_id integer DEFAULT basecurrid(),
cashrcpt_usecustdeposit boolean DEFAULT false NOT NULL,
cashrcpt_void boolean DEFAULT false NOT NULL,
cashrcpt_number text NOT NULL,
cashrcpt_docdate date,
cashrcpt_posted boolean DEFAULT false NOT NULL,
cashrcpt_posteddate date,
cashrcpt_postedby text,
cashrcpt_applydate date,
cashrcpt_discount numeric(20,2) DEFAULT 0.00 NOT NULL,
cashrcpt_curr_rate numeric NOT NULL,
CONSTRAINT cashrcpt_cashrcpt_number_check CHECK ((cashrcpt_number <> ''::text))
);
ALTER TABLE public.cashrcpt OWNER TO admin;
--
-- Name: TABLE cashrcpt; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE cashrcpt IS 'Temporary table for storing Cash Receipt information before Cash Receipts are posted';
SET search_path = api, pg_catalog;
--
-- Name: cashreceipt; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW cashreceipt AS
SELECT (custinfo.cust_number)::character varying AS customer_number, CASE WHEN (cashrcpt.cashrcpt_fundstype = 'C'::bpchar) THEN 'Check'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'T'::bpchar) THEN 'Certified Check'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'M'::bpchar) THEN 'Master Card'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'V'::bpchar) THEN 'Visa'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'A'::bpchar) THEN 'American Express'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'D'::bpchar) THEN 'Discover Card'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'R'::bpchar) THEN 'Other Credit Card'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'K'::bpchar) THEN 'Cash'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'W'::bpchar) THEN 'Wire Transfer'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'O'::bpchar) THEN 'Other'::character varying ELSE NULL::character varying END AS funds_type, (cashrcpt.cashrcpt_docnumber)::character varying AS check_document_number, custinfo.cust_name AS customer_name, m.addr_line1 AS customer_address, curr_symbol.curr_abbr AS currency, cashrcpt.cashrcpt_amount AS amount_received, bankaccnt.bankaccnt_name AS post_to, public.formatdate(cashrcpt.cashrcpt_distdate) AS distribution_date, CASE WHEN cashrcpt.cashrcpt_usecustdeposit THEN 'Customer Deposit'::text ELSE 'Credit Memo'::text END AS apply_balance_as, salescat.salescat_name AS sales_category, cashrcpt.cashrcpt_notes AS notes FROM ((((((public.cashrcpt LEFT JOIN public.custinfo ON ((custinfo.cust_id = cashrcpt.cashrcpt_cust_id))) LEFT JOIN public.cntct mc ON ((custinfo.cust_cntct_id = mc.cntct_id))) LEFT JOIN public.addr m ON ((mc.cntct_addr_id = m.addr_id))) LEFT JOIN public.curr_symbol ON ((curr_symbol.curr_id = cashrcpt.cashrcpt_curr_id))) LEFT JOIN public.bankaccnt ON ((bankaccnt.bankaccnt_id = cashrcpt.cashrcpt_bankaccnt_id))) LEFT JOIN public.salescat ON ((salescat.salescat_id = cashrcpt.cashrcpt_salescat_id)));
ALTER TABLE api.cashreceipt OWNER TO admin;
--
-- Name: VIEW cashreceipt; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW cashreceipt IS '
This view can be used as an interface to import Cash Receipt data directly
into the system. Required fields will be checked and default values will be
populated';
SET search_path = public, pg_catalog;
--
-- Name: cashrcptitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cashrcptitem (
cashrcptitem_id integer NOT NULL,
cashrcptitem_cashrcpt_id integer NOT NULL,
cashrcptitem_aropen_id integer NOT NULL,
cashrcptitem_amount numeric(20,2) NOT NULL,
cashrcptitem_discount numeric(20,2) DEFAULT 0.00 NOT NULL,
cashrcptitem_applied boolean DEFAULT true
);
ALTER TABLE public.cashrcptitem OWNER TO admin;
--
-- Name: TABLE cashrcptitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE cashrcptitem IS 'Temporary table for storing information about applications of Cash Receipts before Cash Receipts are posted';
SET search_path = api, pg_catalog;
--
-- Name: cashreceiptapply; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW cashreceiptapply AS
SELECT (custinfo.cust_number)::character varying AS customer_number, CASE WHEN (cashrcpt.cashrcpt_fundstype = 'C'::bpchar) THEN 'Check'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'T'::bpchar) THEN 'Certified Check'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'M'::bpchar) THEN 'Master Card'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'V'::bpchar) THEN 'Visa'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'A'::bpchar) THEN 'American Express'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'D'::bpchar) THEN 'Discover Card'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'R'::bpchar) THEN 'Other Credit Card'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'K'::bpchar) THEN 'Cash'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'W'::bpchar) THEN 'Wire Transfer'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'O'::bpchar) THEN 'Other'::character varying ELSE NULL::character varying END AS funds_type, (cashrcpt.cashrcpt_docnumber)::character varying AS check_document_number, (aropen.aropen_doctype)::character varying AS doc_type, (aropen.aropen_docnumber)::character varying AS doc_number, custinfo.cust_name AS customer_name, m.addr_line1 AS customer_address, public.formatdate(aropen.aropen_docdate) AS doc_date, public.formatdate(aropen.aropen_duedate) AS due_date, curr_symbol.curr_abbr AS currency, aropen.aropen_amount AS open_amount, cashrcptitem.cashrcptitem_amount AS amount_to_apply, cashrcptitem.cashrcptitem_discount FROM ((((((public.cashrcptitem LEFT JOIN public.cashrcpt ON ((cashrcpt.cashrcpt_id = cashrcptitem.cashrcptitem_cashrcpt_id))) LEFT JOIN public.custinfo ON ((custinfo.cust_id = cashrcpt.cashrcpt_cust_id))) LEFT JOIN public.cntct mc ON ((custinfo.cust_cntct_id = mc.cntct_id))) LEFT JOIN public.addr m ON ((mc.cntct_addr_id = m.addr_id))) LEFT JOIN public.curr_symbol ON ((curr_symbol.curr_id = cashrcpt.cashrcpt_curr_id))) LEFT JOIN public.aropen ON ((aropen.aropen_id = cashrcptitem.cashrcptitem_aropen_id)));
ALTER TABLE api.cashreceiptapply OWNER TO admin;
--
-- Name: VIEW cashreceiptapply; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW cashreceiptapply IS '
This view can be used as an interface to import Cash Receipt Application data directly
into the system. Required fields will be checked and default values will be
populated';
SET search_path = public, pg_catalog;
--
-- Name: cashrcptmisc; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cashrcptmisc (
cashrcptmisc_id integer NOT NULL,
cashrcptmisc_cashrcpt_id integer NOT NULL,
cashrcptmisc_accnt_id integer NOT NULL,
cashrcptmisc_amount numeric(20,2) NOT NULL,
cashrcptmisc_notes text
);
ALTER TABLE public.cashrcptmisc OWNER TO admin;
--
-- Name: TABLE cashrcptmisc; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE cashrcptmisc IS 'Cash Receipt Miscellaneous Application information';
SET search_path = api, pg_catalog;
--
-- Name: cashreceiptapplymisc; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW cashreceiptapplymisc AS
SELECT (custinfo.cust_number)::character varying AS customer_number, CASE WHEN (cashrcpt.cashrcpt_fundstype = 'C'::bpchar) THEN 'Check'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'T'::bpchar) THEN 'Certified Check'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'M'::bpchar) THEN 'Master Card'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'V'::bpchar) THEN 'Visa'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'A'::bpchar) THEN 'American Express'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'D'::bpchar) THEN 'Discover Card'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'R'::bpchar) THEN 'Other Credit Card'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'K'::bpchar) THEN 'Cash'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'W'::bpchar) THEN 'Wire Transfer'::character varying WHEN (cashrcpt.cashrcpt_fundstype = 'O'::bpchar) THEN 'Other'::character varying ELSE NULL::character varying END AS funds_type, (cashrcpt.cashrcpt_docnumber)::character varying AS check_document_number, (public.formatglaccount(accnt.accnt_id))::character varying AS account, custinfo.cust_name AS customer_name, m.addr_line1 AS customer_address, accnt.accnt_descrip AS account_description, curr_symbol.curr_abbr AS currency, cashrcptmisc.cashrcptmisc_amount AS amount_to_distribute, cashrcptmisc.cashrcptmisc_notes AS notes FROM ((((((public.cashrcptmisc LEFT JOIN public.cashrcpt ON ((cashrcpt.cashrcpt_id = cashrcptmisc.cashrcptmisc_cashrcpt_id))) LEFT JOIN public.custinfo ON ((custinfo.cust_id = cashrcpt.cashrcpt_cust_id))) LEFT JOIN public.cntct mc ON ((custinfo.cust_cntct_id = mc.cntct_id))) LEFT JOIN public.addr m ON ((mc.cntct_addr_id = m.addr_id))) LEFT JOIN public.curr_symbol ON ((curr_symbol.curr_id = cashrcpt.cashrcpt_curr_id))) LEFT JOIN public.accnt ON ((accnt.accnt_id = cashrcptmisc.cashrcptmisc_accnt_id)));
ALTER TABLE api.cashreceiptapplymisc OWNER TO admin;
--
-- Name: VIEW cashreceiptapplymisc; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW cashreceiptapplymisc IS '
This view can be used as an interface to import Cash Receipt Miscellaneous Application
data directly into the system. Required fields will be checked and default values
will be populated';
--
-- Name: contact; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW contact AS
SELECT (cntct.cntct_number)::character varying AS contact_number, cntct.cntct_honorific AS honorific, cntct.cntct_first_name AS first, cntct.cntct_middle AS middle, cntct.cntct_last_name AS last, cntct.cntct_suffix AS suffix, cntct.cntct_initials AS initials, crmacct.crmacct_number AS crm_account, cntct.cntct_active AS active, cntct.cntct_title AS job_title, cntct.cntct_phone AS voice, cntct.cntct_phone2 AS alternate, cntct.cntct_fax AS fax, cntct.cntct_email AS email, cntct.cntct_webaddr AS web, ''::text AS contact_change, addr.addr_number AS address_number, addr.addr_line1 AS address1, addr.addr_line2 AS address2, addr.addr_line3 AS address3, addr.addr_city AS city, addr.addr_state AS state, addr.addr_postalcode AS postal_code, addr.addr_country AS country, cntct.cntct_notes AS notes, ''::text AS address_change FROM ((public.cntct LEFT JOIN public.addr ON ((cntct.cntct_addr_id = addr.addr_id))) LEFT JOIN public.crmacct ON ((cntct.cntct_crmacct_id = crmacct.crmacct_id)));
ALTER TABLE api.contact OWNER TO admin;
--
-- Name: VIEW contact; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW contact IS 'Contact';
--
-- Name: contactchar; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW contactchar AS
SELECT cntct.cntct_number AS contact_number, ("char".char_name)::character varying AS characteristic, charass.charass_value AS value FROM public.cntct, public."char", public.charass WHERE ((('CNTCT'::text = charass.charass_target_type) AND (cntct.cntct_id = charass.charass_target_id)) AND (charass.charass_char_id = "char".char_id));
ALTER TABLE api.contactchar OWNER TO admin;
--
-- Name: VIEW contactchar; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW contactchar IS 'Contact Characteristics';
--
-- Name: contactcomment; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW contactcomment AS
SELECT cntct.cntct_number AS contact_number, cmnttype.cmnttype_name AS type, comment.comment_date AS date, comment.comment_user AS username, comment.comment_text AS text FROM public.cntct, public.cmnttype, public.comment WHERE (((comment.comment_source = 'T'::text) AND (comment.comment_source_id = cntct.cntct_id)) AND (comment.comment_cmnttype_id = cmnttype.cmnttype_id));
ALTER TABLE api.contactcomment OWNER TO admin;
--
-- Name: VIEW contactcomment; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW contactcomment IS 'Contact Comment';
--
-- Name: custchar; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW custchar AS
SELECT (custinfo.cust_number)::character varying AS customer_number, ("char".char_name)::character varying AS characteristic, charass.charass_value AS value FROM public.custinfo, public."char", public.charass WHERE ((('C'::text = charass.charass_target_type) AND (custinfo.cust_id = charass.charass_target_id)) AND (charass.charass_char_id = "char".char_id));
ALTER TABLE api.custchar OWNER TO admin;
--
-- Name: VIEW custchar; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW custchar IS 'Customer Characteristics';
--
-- Name: custcomment; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW custcomment AS
SELECT (custinfo.cust_number)::character varying AS customer_number, cmnttype.cmnttype_name AS type, comment.comment_date AS date, comment.comment_user AS username, comment.comment_text AS text FROM public.custinfo, public.cmnttype, public.comment WHERE (((comment.comment_source = 'C'::text) AND (comment.comment_source_id = custinfo.cust_id)) AND (comment.comment_cmnttype_id = cmnttype.cmnttype_id));
ALTER TABLE api.custcomment OWNER TO admin;
--
-- Name: VIEW custcomment; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW custcomment IS 'Customer Comment';
SET search_path = public, pg_catalog;
--
-- Name: ccard; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE ccard (
ccard_id integer NOT NULL,
ccard_seq integer DEFAULT 10 NOT NULL,
ccard_cust_id integer NOT NULL,
ccard_active boolean DEFAULT true,
ccard_name bytea,
ccard_address1 bytea,
ccard_address2 bytea,
ccard_city bytea,
ccard_state bytea,
ccard_zip bytea,
ccard_country bytea,
ccard_number bytea,
ccard_debit boolean DEFAULT false,
ccard_month_expired bytea,
ccard_year_expired bytea,
ccard_type character(1) NOT NULL,
ccard_date_added timestamp without time zone DEFAULT ('now'::text)::timestamp(6) with time zone NOT NULL,
ccard_lastupdated timestamp without time zone DEFAULT ('now'::text)::timestamp(6) with time zone NOT NULL,
ccard_added_by_username text DEFAULT geteffectivextuser() NOT NULL,
ccard_last_updated_by_username text DEFAULT geteffectivextuser() NOT NULL
);
ALTER TABLE public.ccard OWNER TO admin;
--
-- Name: TABLE ccard; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE ccard IS 'Credit Card Information - all bytea data is encrypted';
SET search_path = api, pg_catalog;
--
-- Name: custcreditcard; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW custcreditcard AS
SELECT (custinfo.cust_number)::character varying AS customer_number, CASE WHEN (ccard.ccard_type = 'V'::bpchar) THEN 'Visa'::text WHEN (ccard.ccard_type = 'M'::bpchar) THEN 'Master Card'::text WHEN (ccard.ccard_type = 'A'::bpchar) THEN 'American Express'::text WHEN (ccard.ccard_type = 'D'::bpchar) THEN 'Discover'::text ELSE 'Not Supported'::text END AS credit_card_type, ccard.ccard_active AS active, ccard.ccard_number AS credit_card_number, ccard.ccard_name AS name, ccard.ccard_address1 AS street_address1, ccard.ccard_address2 AS street_address2, ccard.ccard_city AS city, ccard.ccard_state AS state, ccard.ccard_zip AS postal_code, ccard.ccard_country AS country, ccard.ccard_month_expired AS expiration_month, ccard.ccard_year_expired AS expiration_year, ''::text AS key FROM public.ccard, public.custinfo WHERE (ccard.ccard_cust_id = custinfo.cust_id);
ALTER TABLE api.custcreditcard OWNER TO admin;
--
-- Name: VIEW custcreditcard; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW custcreditcard IS 'Customer Credit Cards.';
SET search_path = public, pg_catalog;
--
-- Name: custtype; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE custtype (
custtype_id integer DEFAULT nextval(('custtype_custtype_id_seq'::text)::regclass) NOT NULL,
custtype_code text NOT NULL,
custtype_descrip text NOT NULL,
custtype_char boolean DEFAULT false NOT NULL,
CONSTRAINT custtype_custtype_code_check CHECK ((custtype_code <> ''::text))
);
ALTER TABLE public.custtype OWNER TO admin;
--
-- Name: TABLE custtype; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE custtype IS 'Customer Type information';
--
-- Name: shipchrg; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE shipchrg (
shipchrg_id integer NOT NULL,
shipchrg_name text NOT NULL,
shipchrg_descrip text,
shipchrg_custfreight boolean,
shipchrg_handling character(1),
CONSTRAINT shipchrg_shipchrg_name_check CHECK ((shipchrg_name <> ''::text))
);
ALTER TABLE public.shipchrg OWNER TO admin;
--
-- Name: TABLE shipchrg; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE shipchrg IS 'Shipping Charge information';
--
-- Name: shipform; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE shipform (
shipform_id integer DEFAULT nextval(('"shipform_shipform_id_seq"'::text)::regclass) NOT NULL,
shipform_name text NOT NULL,
shipform_report_id integer,
shipform_report_name text,
CONSTRAINT shipform_shipform_name_check CHECK ((shipform_name <> ''::text))
);
ALTER TABLE public.shipform OWNER TO admin;
--
-- Name: TABLE shipform; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE shipform IS 'Shipping Form information';
--
-- Name: COLUMN shipform.shipform_report_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN shipform.shipform_report_id IS 'Obsolete -- reference shipform_report_name instead.';
SET search_path = api, pg_catalog;
--
-- Name: customer; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW customer AS
SELECT (custinfo.cust_number)::character varying AS customer_number, custtype.custtype_code AS customer_type, custinfo.cust_name AS customer_name, custinfo.cust_active AS active, salesrep.salesrep_number AS sales_rep, (custinfo.cust_commprcnt * (100)::numeric) AS commission, custinfo.cust_shipvia AS ship_via, shipform.shipform_name AS ship_form, shipchrg.shipchrg_name AS shipping_charges, custinfo.cust_backorder AS accepts_backorders, custinfo.cust_partialship AS accepts_partial_shipments, custinfo.cust_ffshipto AS allow_free_form_shipto, custinfo.cust_ffbillto AS allow_free_form_billto, whsinfo.warehous_code AS preferred_selling_site, taxzone.taxzone_code AS default_tax_zone, terms.terms_code AS default_terms, CASE WHEN (custinfo.cust_balmethod = 'B'::bpchar) THEN 'Balance Forward'::text ELSE 'Open Item'::text END AS balance_method, custinfo.cust_discntprcnt AS default_discount, dc.curr_abbr AS default_currency, clc.curr_abbr AS credit_limit_currency, custinfo.cust_creditlmt AS credit_limit, CASE WHEN (COALESCE(custinfo.cust_gracedays, 0) > 0) THEN custinfo.cust_gracedays ELSE NULL::integer END AS alternate_grace_days, custinfo.cust_creditrating AS credit_rating, CASE WHEN (custinfo.cust_creditstatus = 'G'::bpchar) THEN 'In Good Standing'::text WHEN (custinfo.cust_creditstatus = 'W'::bpchar) THEN 'On Credit Warning'::text ELSE 'On Credit Hold'::text END AS credit_status, custinfo.cust_autoupdatestatus AS credit_status_exceed_warn, custinfo.cust_autoholdorders AS credit_status_exceed_hold, custinfo.cust_usespos AS uses_purchase_orders, custinfo.cust_blanketpos AS uses_blanket_pos, mc.cntct_number AS billing_contact_number, mc.cntct_honorific AS billing_contact_honorific, mc.cntct_first_name AS billing_contact_first, mc.cntct_middle AS billing_contact_middle, mc.cntct_last_name AS billing_contact_last, mc.cntct_suffix AS billing_contact_suffix, mc.cntct_title AS billing_contact_job_title, mc.cntct_phone AS billing_contact_voice, mc.cntct_phone2 AS billing_contact_alternate, mc.cntct_fax AS billing_contact_fax, mc.cntct_email AS billing_contact_email, mc.cntct_webaddr AS billing_contact_web, ''::text AS billing_contact_change, m.addr_number AS billing_contact_address_number, m.addr_line1 AS billing_contact_address1, m.addr_line2 AS billing_contact_address2, m.addr_line3 AS billing_contact_address3, m.addr_city AS billing_contact_city, m.addr_state AS billing_contact_state, m.addr_postalcode AS billing_contact_postalcode, m.addr_country AS billing_contact_country, ''::text AS billing_contact_address_change, cc.cntct_number AS correspond_contact_number, cc.cntct_honorific AS correspond_contact_honorific, cc.cntct_first_name AS correspond_contact_first, cc.cntct_middle AS correspond_contact_middle, cc.cntct_last_name AS correspond_contact_last, cc.cntct_suffix AS correspond_contact_suffix, cc.cntct_title AS correspond_contact_job_title, cc.cntct_phone AS correspond_contact_voice, cc.cntct_phone2 AS correspond_contact_alternate, cc.cntct_fax AS correspond_contact_fax, cc.cntct_email AS correspond_contact_email, cc.cntct_webaddr AS correspond_contact_web, ''::text AS correspond_contact_change, c.addr_number AS correspond_contact_address_number, c.addr_line1 AS correspond_contact_address1, c.addr_line2 AS correspond_contact_address2, c.addr_line3 AS correspond_contact_address3, c.addr_city AS correspond_contact_city, c.addr_state AS correspond_contact_state, c.addr_postalcode AS correspond_contact_postalcode, c.addr_country AS correspond_contact_country, ''::text AS correspond_contact_address_change, custinfo.cust_comments AS notes FROM ((((((((public.custinfo LEFT JOIN public.shipchrg ON ((custinfo.cust_shipchrg_id = shipchrg.shipchrg_id))) LEFT JOIN public.whsinfo ON ((custinfo.cust_preferred_warehous_id = whsinfo.warehous_id))) LEFT JOIN public.cntct mc ON ((custinfo.cust_cntct_id = mc.cntct_id))) LEFT JOIN public.addr m ON ((mc.cntct_addr_id = m.addr_id))) LEFT JOIN public.cntct cc ON ((custinfo.cust_corrcntct_id = cc.cntct_id))) LEFT JOIN public.addr c ON ((cc.cntct_addr_id = c.addr_id))) LEFT JOIN public.taxzone ON ((custinfo.cust_taxzone_id = taxzone.taxzone_id))) LEFT JOIN public.shipform ON ((custinfo.cust_shipform_id = shipform.shipform_id))), public.custtype, public.salesrep, public.curr_symbol dc, public.curr_symbol clc, public.terms WHERE (((((custinfo.cust_custtype_id = custtype.custtype_id) AND (custinfo.cust_salesrep_id = salesrep.salesrep_id)) AND (custinfo.cust_curr_id = dc.curr_id)) AND (custinfo.cust_creditlmt_curr_id = clc.curr_id)) AND (custinfo.cust_terms_id = terms.terms_id));
ALTER TABLE api.customer OWNER TO admin;
--
-- Name: VIEW customer; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW customer IS 'Customer';
SET search_path = public, pg_catalog;
--
-- Name: taxauth; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE taxauth (
taxauth_id integer NOT NULL,
taxauth_code text NOT NULL,
taxauth_name text,
taxauth_extref text,
taxauth_addr_id integer,
taxauth_curr_id integer,
taxauth_county text,
taxauth_accnt_id integer,
CONSTRAINT taxauth_taxauth_code_check CHECK ((taxauth_code <> ''::text))
);
ALTER TABLE public.taxauth OWNER TO admin;
--
-- Name: TABLE taxauth; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE taxauth IS 'The Tax Authority table.';
--
-- Name: COLUMN taxauth.taxauth_curr_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxauth.taxauth_curr_id IS 'The required currency for recording tax information as. NULL means no preference.';
--
-- Name: taxreg; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE taxreg (
taxreg_id integer NOT NULL,
taxreg_rel_id integer NOT NULL,
taxreg_rel_type character(1),
taxreg_taxauth_id integer,
taxreg_number text NOT NULL,
taxreg_taxzone_id integer,
taxreg_effective date DEFAULT startoftime(),
taxreg_expires date DEFAULT endoftime(),
taxreg_notes text DEFAULT ''::text,
CONSTRAINT taxreg_taxreg_number_check CHECK ((taxreg_number <> ''::text))
);
ALTER TABLE public.taxreg OWNER TO admin;
--
-- Name: TABLE taxreg; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE taxreg IS 'Stores Tax Registration numbers related to objects and a given tax authority. The rel_id specifies the object id and teh rel_type specifies the object type. See column comment for additional detail on types.';
--
-- Name: COLUMN taxreg.taxreg_rel_type; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxreg.taxreg_rel_type IS 'The type of relation this record is for. Known values are C=Customer, V=Vendor, NULL=This Manufacturer in which case taxreg_rel_id is meaningless and should be -1.';
SET search_path = api, pg_catalog;
--
-- Name: customertaxreg; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW customertaxreg AS
SELECT (custinfo.cust_number)::character varying AS customer_number, (COALESCE(taxzone.taxzone_code, 'Any'::text))::character varying AS tax_zone, (taxauth.taxauth_code)::character varying AS tax_authority, taxreg.taxreg_number AS registration_number, CASE WHEN (taxreg.taxreg_effective = public.startoftime()) THEN 'Always'::text ELSE public.formatdate(taxreg.taxreg_effective) END AS start_date, CASE WHEN (taxreg.taxreg_expires = public.endoftime()) THEN 'Never'::text ELSE public.formatdate(taxreg.taxreg_expires) END AS end_date, taxreg.taxreg_notes AS notes FROM (((public.taxreg LEFT JOIN public.custinfo ON ((custinfo.cust_id = taxreg.taxreg_rel_id))) LEFT JOIN public.taxauth ON ((taxauth.taxauth_id = taxreg.taxreg_taxauth_id))) LEFT JOIN public.taxzone ON ((taxzone.taxzone_id = taxreg.taxreg_taxzone_id))) WHERE (taxreg.taxreg_rel_type = 'C'::bpchar) ORDER BY custinfo.cust_number, taxreg.taxreg_number;
ALTER TABLE api.customertaxreg OWNER TO admin;
--
-- Name: VIEW customertaxreg; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW customertaxreg IS 'Customer Tax Registrations';
--
-- Name: customertype; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW customertype AS
SELECT (custtype.custtype_code)::character varying AS code, custtype.custtype_descrip AS description, custtype.custtype_char AS enable_characteristics_profile FROM public.custtype ORDER BY custtype.custtype_code;
ALTER TABLE api.customertype OWNER TO admin;
--
-- Name: VIEW customertype; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW customertype IS 'Customer Type';
--
-- Name: customertypechar; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW customertypechar AS
SELECT (custtype.custtype_code)::character varying AS customer_type, ("char".char_name)::character varying AS characteristic, charass.charass_value AS value, charass.charass_default AS is_default FROM public.custtype, public."char", public.charass WHERE ((('CT'::text = charass.charass_target_type) AND (custtype.custtype_id = charass.charass_target_id)) AND (charass.charass_char_id = "char".char_id));
ALTER TABLE api.customertypechar OWNER TO admin;
--
-- Name: VIEW customertypechar; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW customertypechar IS 'Customer Type Characteristics';
--
-- Name: custshipto; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW custshipto AS
SELECT (custinfo.cust_number)::character varying AS customer_number, (shiptoinfo.shipto_num)::character varying AS shipto_number, shiptoinfo.shipto_active AS active, shiptoinfo.shipto_name AS name, shiptoinfo.shipto_default AS default_flag, addr.addr_number AS address_number, addr.addr_line1 AS address1, addr.addr_line2 AS address2, addr.addr_line3 AS address3, addr.addr_city AS city, addr.addr_state AS state, addr.addr_postalcode AS postal_code, addr.addr_country AS country, ''::text AS address_change, cntct.cntct_number AS contact_number, cntct.cntct_honorific AS honorific, cntct.cntct_first_name AS first, cntct.cntct_middle AS middle, cntct.cntct_last_name AS last, cntct.cntct_suffix AS suffix, cntct.cntct_title AS job_title, cntct.cntct_phone AS phone, cntct.cntct_fax AS fax, cntct.cntct_email AS email, ''::text AS contact_change, salesrep.salesrep_number AS sales_rep, (shiptoinfo.shipto_commission * 100.0) AS commission, shipzone.shipzone_name AS zone, taxzone.taxzone_code AS tax_zone, shiptoinfo.shipto_shipvia AS ship_via, shipform.shipform_name AS ship_form, shipchrg.shipchrg_name AS shipping_charges, CASE WHEN (shiptoinfo.shipto_ediprofile_id = (-1)) THEN 'No EDI'::text WHEN (shiptoinfo.shipto_ediprofile_id = (-2)) THEN 'Use Customer Master'::text ELSE public.getediprofilename(shiptoinfo.shipto_ediprofile_id) END AS edi_profile, shiptoinfo.shipto_comments AS general_notes, shiptoinfo.shipto_shipcomments AS shipping_notes FROM public.custinfo, ((((((public.shiptoinfo LEFT JOIN public.shipchrg ON ((shiptoinfo.shipto_shipchrg_id = shipchrg.shipchrg_id))) LEFT JOIN public.cntct ON ((shiptoinfo.shipto_cntct_id = cntct.cntct_id))) LEFT JOIN public.addr ON ((shiptoinfo.shipto_addr_id = addr.addr_id))) LEFT JOIN public.taxzone ON ((shiptoinfo.shipto_taxzone_id = taxzone.taxzone_id))) LEFT JOIN public.shipzone ON ((shiptoinfo.shipto_shipzone_id = shipzone.shipzone_id))) LEFT JOIN public.salesrep ON ((shiptoinfo.shipto_salesrep_id = salesrep.salesrep_id))), public.shipform WHERE ((custinfo.cust_id = shiptoinfo.shipto_cust_id) AND (custinfo.cust_shipform_id = shipform.shipform_id));
ALTER TABLE api.custshipto OWNER TO admin;
--
-- Name: VIEW custshipto; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW custshipto IS 'Customer Shipto Address';
--
-- Name: custtax; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW custtax AS
SELECT (custinfo.cust_number)::character varying AS customer_number, (taxauth.taxauth_code)::character varying AS tax_authority, taxreg.taxreg_number AS registration_number FROM public.custinfo, public.taxauth, public.taxreg WHERE (((taxreg.taxreg_rel_type = 'C'::bpchar) AND (taxreg.taxreg_rel_id = custinfo.cust_id)) AND (taxreg.taxreg_taxauth_id = taxauth.taxauth_id));
ALTER TABLE api.custtax OWNER TO admin;
--
-- Name: VIEW custtax; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW custtax IS 'Customer Tax Registration';
SET search_path = public, pg_catalog;
--
-- Name: dept; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE dept (
dept_id integer NOT NULL,
dept_number text NOT NULL,
dept_name text NOT NULL,
CONSTRAINT dept_dept_number_check CHECK ((dept_number <> ''::text))
);
ALTER TABLE public.dept OWNER TO admin;
--
-- Name: TABLE dept; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE dept IS 'List of Departments';
--
-- Name: emp; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE emp (
emp_id integer NOT NULL,
emp_code text NOT NULL,
emp_number text NOT NULL,
emp_active boolean DEFAULT true NOT NULL,
emp_cntct_id integer,
emp_warehous_id integer,
emp_mgr_emp_id integer,
emp_wage_type text NOT NULL,
emp_wage numeric,
emp_wage_curr_id integer DEFAULT basecurrid(),
emp_wage_period text NOT NULL,
emp_dept_id integer,
emp_shift_id integer,
emp_notes text,
emp_image_id integer,
emp_username text,
emp_extrate numeric,
emp_extrate_period text NOT NULL,
emp_startdate date DEFAULT ('now'::text)::date,
emp_name text NOT NULL,
CONSTRAINT emp_check CHECK (((((COALESCE(emp_wage_type, ''::text) = ''::text) OR (COALESCE(emp_wage_type, ''::text) = 'H'::text)) OR (COALESCE(emp_wage_type, ''::text) = 'S'::text)) AND ((COALESCE(emp_wage, (0)::numeric) = (0)::numeric) OR ((COALESCE(emp_wage_type, ''::text) <> ''::text) AND (emp_wage IS NOT NULL))))),
CONSTRAINT emp_emp_code_check CHECK ((emp_code <> ''::text)),
CONSTRAINT emp_emp_number_check CHECK ((emp_number <> ''::text)),
CONSTRAINT emp_emp_wage_period_check CHECK ((((((((COALESCE(emp_wage_period, ''::text) = ''::text) OR (COALESCE(emp_wage_period, ''::text) = 'H'::text)) OR (COALESCE(emp_wage_period, ''::text) = 'D'::text)) OR (COALESCE(emp_wage_period, ''::text) = 'W'::text)) OR (COALESCE(emp_wage_period, ''::text) = 'BW'::text)) OR (COALESCE(emp_wage_period, ''::text) = 'M'::text)) OR (COALESCE(emp_wage_period, ''::text) = 'Y'::text)))
);
ALTER TABLE public.emp OWNER TO admin;
--
-- Name: TABLE emp; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE emp IS 'Employee table describing the basic properties of an employee. Employees need not be system users.';
--
-- Name: COLUMN emp.emp_code; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN emp.emp_code IS 'Short, human-readable name for employee. This value is kept synchronized with usr_username and salesrep_number, and so is unique across all three tables emp, usr, and salesrep.';
--
-- Name: COLUMN emp.emp_number; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN emp.emp_number IS 'Official employee number. This might be used for ID badges, payroll accounting, or other purposes.';
--
-- Name: COLUMN emp.emp_mgr_emp_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN emp.emp_mgr_emp_id IS 'Internal ID of this employee''s manager/supervisor.';
--
-- Name: COLUMN emp.emp_wage_type; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN emp.emp_wage_type IS 'The nature of the wage or employment agreement. ''H'' indicates this employee is paid on an hourly basis (or some other period) while ''S'' indicates this employee is salaried.';
--
-- Name: COLUMN emp.emp_wage_period; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN emp.emp_wage_period IS 'The periodicity of wage payment: ''H'' for hourly, ''D'' for daily, ''W'' for weekly, ''BW'' for biweekly, ''M'' for monthly, ''Y'' for yearly.';
--
-- Name: COLUMN emp.emp_username; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN emp.emp_username IS 'DEPRECATED - the relationship between Employee and User is now maintained through the crmacct table.';
--
-- Name: COLUMN emp.emp_extrate_period; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN emp.emp_extrate_period IS 'The periodicity of external rate payment: ''H'' for hourly, ''D'' for daily, ''W'' for weekly, ''BW'' for biweekly, ''M'' for monthly, ''Y'' for yearly.';
--
-- Name: shift; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE shift (
shift_id integer NOT NULL,
shift_number text NOT NULL,
shift_name text NOT NULL,
CONSTRAINT shift_shift_number_check CHECK ((shift_number <> ''::text))
);
ALTER TABLE public.shift OWNER TO admin;
--
-- Name: TABLE shift; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE shift IS 'List of work Shifts';
SET search_path = api, pg_catalog;
--
-- Name: employee; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW employee AS
SELECT (e.emp_code)::character varying AS code, (e.emp_number)::character varying AS number, e.emp_active AS active, e.emp_startdate AS start_date, cntct.cntct_number AS contact_number, cntct.cntct_honorific AS honorific, cntct.cntct_first_name AS first, cntct.cntct_middle AS middle, cntct.cntct_last_name AS last, cntct.cntct_suffix AS suffix, cntct.cntct_title AS job_title, cntct.cntct_phone AS voice, cntct.cntct_phone2 AS alternate, cntct.cntct_fax AS fax, cntct.cntct_email AS email, cntct.cntct_webaddr AS web, ''::text AS contact_change, addr.addr_number AS address_number, addr.addr_line1 AS address1, addr.addr_line2 AS address2, addr.addr_line3 AS address3, addr.addr_city AS city, addr.addr_state AS state, addr.addr_postalcode AS postalcode, addr.addr_country AS country, ''::text AS address_change, whsinfo.warehous_code AS site, m.emp_code AS manager_code, CASE WHEN (e.emp_wage_type = 'H'::text) THEN 'Hourly'::text WHEN (e.emp_wage_type = 'S'::text) THEN 'Salaried'::text WHEN (e.emp_wage_type IS NULL) THEN NULL::text ELSE 'Error'::text END AS wage_type, e.emp_wage AS wage, curr_symbol.curr_abbr AS wage_currency, CASE WHEN (e.emp_wage_period = 'H'::text) THEN 'Hour'::text WHEN (e.emp_wage_period = 'D'::text) THEN 'Day'::text WHEN (e.emp_wage_period = 'W'::text) THEN 'Week'::text WHEN (e.emp_wage_period = 'BW'::text) THEN 'Biweek'::text WHEN (e.emp_wage_period = 'M'::text) THEN 'Month'::text WHEN (e.emp_wage_period = 'Y'::text) THEN 'Year'::text WHEN (e.emp_wage_period IS NULL) THEN NULL::text ELSE 'Error'::text END AS wage_period, dept.dept_number AS department, shift.shift_number AS shift, (crmacct.crmacct_usr_username IS NOT NULL) AS is_user, (salesrep.salesrep_id IS NOT NULL) AS is_salesrep, (vendinfo.vend_id IS NOT NULL) AS is_vendor, e.emp_notes AS notes, image.image_name AS image, e.emp_extrate AS rate, curr_symbol.curr_abbr AS billing_currency, CASE WHEN (e.emp_extrate_period = 'H'::text) THEN 'Hour'::text WHEN (e.emp_extrate_period = 'D'::text) THEN 'Day'::text WHEN (e.emp_extrate_period = 'W'::text) THEN 'Week'::text WHEN (e.emp_extrate_period = 'BW'::text) THEN 'Biweek'::text WHEN (e.emp_extrate_period = 'M'::text) THEN 'Month'::text WHEN (e.emp_extrate_period = 'Y'::text) THEN 'Year'::text WHEN (e.emp_extrate_period IS NULL) THEN NULL::text ELSE 'Error'::text END AS billing_period FROM (((((((((((public.emp e JOIN public.crmacct ON ((e.emp_id = crmacct.crmacct_emp_id))) LEFT JOIN public.cntct ON ((e.emp_cntct_id = cntct.cntct_id))) LEFT JOIN public.addr ON ((cntct.cntct_addr_id = addr.addr_id))) LEFT JOIN public.whsinfo ON ((e.emp_warehous_id = whsinfo.warehous_id))) LEFT JOIN public.emp m ON ((e.emp_mgr_emp_id = m.emp_id))) LEFT JOIN public.dept ON ((e.emp_dept_id = dept.dept_id))) LEFT JOIN public.shift ON ((e.emp_shift_id = shift.shift_id))) LEFT JOIN public.salesrep ON ((crmacct.crmacct_salesrep_id = salesrep.salesrep_id))) LEFT JOIN public.vendinfo ON ((crmacct.crmacct_vend_id = vendinfo.vend_id))) LEFT JOIN public.image ON ((e.emp_image_id = image.image_id))) JOIN public.curr_symbol ON ((e.emp_wage_curr_id = curr_symbol.curr_id)));
ALTER TABLE api.employee OWNER TO admin;
--
-- Name: VIEW employee; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW employee IS 'Employee';
--
-- Name: employeechar; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW employeechar AS
SELECT (emp.emp_code)::character varying AS employee_code, ("char".char_name)::character varying AS characteristic, charass.charass_value AS value FROM public.emp, public."char", public.charass WHERE ((('EMP'::text = charass.charass_target_type) AND (emp.emp_id = charass.charass_target_id)) AND (charass.charass_char_id = "char".char_id));
ALTER TABLE api.employeechar OWNER TO admin;
--
-- Name: VIEW employeechar; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW employeechar IS 'Employee Characteristics';
--
-- Name: employeecomment; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW employeecomment AS
SELECT (emp.emp_code)::character varying AS code, (cmnttype.cmnttype_name)::character varying AS type, comment.comment_date AS date, comment.comment_user AS username, comment.comment_text AS text FROM public.emp, public.cmnttype, public.comment WHERE (((comment.comment_source = 'EMP'::text) AND (comment.comment_source_id = emp.emp_id)) AND (comment.comment_cmnttype_id = cmnttype.cmnttype_id));
ALTER TABLE api.employeecomment OWNER TO admin;
--
-- Name: VIEW employeecomment; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW employeecomment IS 'Employee Comment';
SET search_path = public, pg_catalog;
--
-- Name: shipdata; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE shipdata (
shipdata_cohead_number text NOT NULL,
shipdata_cosmisc_tracknum text NOT NULL,
shipdata_cosmisc_packnum_tracknum text NOT NULL,
shipdata_weight numeric(16,4),
shipdata_base_freight numeric(16,4),
shipdata_total_freight numeric(16,4),
shipdata_shipper text DEFAULT 'UPS'::text,
shipdata_billing_option text,
shipdata_package_type text,
shipdata_void_ind character(1) NOT NULL,
shipdata_lastupdated timestamp without time zone DEFAULT ('now'::text)::timestamp(6) with time zone NOT NULL,
shipdata_shiphead_number text,
shipdata_base_freight_curr_id integer DEFAULT basecurrid(),
shipdata_total_freight_curr_id integer DEFAULT basecurrid()
);
ALTER TABLE public.shipdata OWNER TO admin;
--
-- Name: TABLE shipdata; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE shipdata IS 'Shipping Interface information - note that the shipdata_cohead_nember is text and not int. That is due to ODBC chopping off during the transfer';
SET search_path = api, pg_catalog;
--
-- Name: extshipmaint; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW extshipmaint AS
SELECT (shipdata.shipdata_cohead_number)::character varying AS so_number, (shipdata.shipdata_shiphead_number)::character varying AS shipment_number, (shipdata.shipdata_shipper)::character varying AS shipper, (shipdata.shipdata_cosmisc_packnum_tracknum)::character varying AS package_tracking_number, shipdata.shipdata_void_ind AS void, shipdata.shipdata_billing_option AS billing_option, shipdata.shipdata_weight AS weight, shipdata.shipdata_base_freight AS base_freight, base.curr_abbr AS base_freight_currency, shipdata.shipdata_total_freight AS total_freight, total.curr_abbr AS total_freight_currency, shipdata.shipdata_package_type AS package_type, shipdata.shipdata_cosmisc_tracknum AS tracking_number, shipdata.shipdata_lastupdated AS last_updated FROM public.shipdata, public.curr_symbol base, public.curr_symbol total WHERE ((shipdata.shipdata_base_freight_curr_id = base.curr_id) AND (shipdata.shipdata_total_freight_curr_id = total.curr_id)) ORDER BY shipdata.shipdata_cohead_number, shipdata.shipdata_shiphead_number;
ALTER TABLE api.extshipmaint OWNER TO admin;
--
-- Name: VIEW extshipmaint; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW extshipmaint IS 'External Shipping Maintenance';
SET search_path = public, pg_catalog;
--
-- Name: freightclass; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE freightclass (
freightclass_id integer NOT NULL,
freightclass_code text NOT NULL,
freightclass_descrip text,
CONSTRAINT freightclass_freightclass_code_check CHECK ((freightclass_code <> ''::text))
);
ALTER TABLE public.freightclass OWNER TO admin;
--
-- Name: TABLE freightclass; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE freightclass IS 'This table is the freight price schedules.';
--
-- Name: ipsfreight; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE ipsfreight (
ipsfreight_id integer NOT NULL,
ipsfreight_ipshead_id integer NOT NULL,
ipsfreight_qtybreak numeric DEFAULT 0 NOT NULL,
ipsfreight_price numeric DEFAULT 0 NOT NULL,
ipsfreight_type character(1) NOT NULL,
ipsfreight_warehous_id integer,
ipsfreight_shipzone_id integer,
ipsfreight_freightclass_id integer,
ipsfreight_shipvia text
);
ALTER TABLE public.ipsfreight OWNER TO admin;
--
-- Name: ipshead; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE ipshead (
ipshead_id integer DEFAULT nextval(('"ipshead_ipshead_id_seq"'::text)::regclass) NOT NULL,
ipshead_name text NOT NULL,
ipshead_descrip text,
ipshead_effective date,
ipshead_expires date,
ipshead_curr_id integer DEFAULT basecurrid() NOT NULL,
ipshead_updated date,
CONSTRAINT ipshead_ipshead_name_check CHECK ((ipshead_name <> ''::text))
);
ALTER TABLE public.ipshead OWNER TO admin;
--
-- Name: TABLE ipshead; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE ipshead IS 'Pricing Schedule header information';
SET search_path = api, pg_catalog;
--
-- Name: freightpricingscheduleitem; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW freightpricingscheduleitem AS
SELECT (ipshead.ipshead_name)::character varying AS pricing_schedule, ipsfreight.ipsfreight_qtybreak AS qty_break, (qtyuom.uom_name)::character varying AS qty_uom, ipsfreight.ipsfreight_price AS price, CASE WHEN (ipsfreight.ipsfreight_type = 'F'::bpchar) THEN 'Flat Rate'::text ELSE 'Price Per UOM'::text END AS price_type, COALESCE(whsinfo.warehous_code, 'Any'::text) AS from_site, COALESCE(shipzone.shipzone_name, 'Any'::text) AS to_shipzone, COALESCE(ipsfreight.ipsfreight_shipvia, 'Any'::text) AS ship_via, COALESCE(freightclass.freightclass_code, 'Any'::text) AS freight_class FROM (((((public.ipsfreight JOIN public.ipshead ON ((ipsfreight.ipsfreight_ipshead_id = ipshead.ipshead_id))) LEFT JOIN public.uom qtyuom ON (qtyuom.uom_item_weight)) LEFT JOIN public.whsinfo ON ((whsinfo.warehous_id = ipsfreight.ipsfreight_warehous_id))) LEFT JOIN public.shipzone ON ((shipzone.shipzone_id = ipsfreight.ipsfreight_shipzone_id))) LEFT JOIN public.freightclass ON ((freightclass.freightclass_id = ipsfreight.ipsfreight_freightclass_id)));
ALTER TABLE api.freightpricingscheduleitem OWNER TO admin;
--
-- Name: VIEW freightpricingscheduleitem; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW freightpricingscheduleitem IS 'Freight Pricing Schedule Item';
--
-- Name: glaccount; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW glaccount AS
SELECT (accnt.accnt_company)::character varying AS company, (accnt.accnt_profit)::character varying AS profit_center, (accnt.accnt_number)::character varying AS account_number, (accnt.accnt_sub)::character varying AS sub_account, accnt.accnt_descrip AS description, accnt.accnt_extref AS ext_reference, CASE WHEN (accnt.accnt_type = 'A'::bpchar) THEN 'Asset'::text WHEN (accnt.accnt_type = 'L'::bpchar) THEN 'Liability'::text WHEN (accnt.accnt_type = 'E'::bpchar) THEN 'Expense'::text WHEN (accnt.accnt_type = 'R'::bpchar) THEN 'Revenue'::text WHEN (accnt.accnt_type = 'Q'::bpchar) THEN 'Equity'::text ELSE '?'::text END AS type, accnt.accnt_subaccnttype_code AS sub_type, accnt.accnt_forwardupdate AS forward_update_trial_balances, accnt.accnt_comments AS notes FROM public.accnt ORDER BY accnt.accnt_company, accnt.accnt_profit, accnt.accnt_number, accnt.accnt_sub;
ALTER TABLE api.glaccount OWNER TO admin;
--
-- Name: VIEW glaccount; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW glaccount IS 'GL Account';
SET search_path = public, pg_catalog;
--
-- Name: incdtcat; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE incdtcat (
incdtcat_id integer NOT NULL,
incdtcat_name text NOT NULL,
incdtcat_order integer,
incdtcat_descrip text,
incdtcat_ediprofile_id integer,
CONSTRAINT incdtcat_incdtcat_name_check CHECK ((incdtcat_name <> ''::text))
);
ALTER TABLE public.incdtcat OWNER TO admin;
--
-- Name: TABLE incdtcat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE incdtcat IS 'Incident Category table';
--
-- Name: incdtpriority; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE incdtpriority (
incdtpriority_id integer NOT NULL,
incdtpriority_name text NOT NULL,
incdtpriority_order integer,
incdtpriority_descrip text,
CONSTRAINT incdtpriority_incdtpriority_name_check CHECK ((incdtpriority_name <> ''::text))
);
ALTER TABLE public.incdtpriority OWNER TO admin;
--
-- Name: TABLE incdtpriority; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE incdtpriority IS 'Incident Priority table';
--
-- Name: incdtresolution; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE incdtresolution (
incdtresolution_id integer NOT NULL,
incdtresolution_name text NOT NULL,
incdtresolution_order integer,
incdtresolution_descrip text,
CONSTRAINT incdtresolution_incdtresolution_name_check CHECK ((incdtresolution_name <> ''::text))
);
ALTER TABLE public.incdtresolution OWNER TO admin;
--
-- Name: TABLE incdtresolution; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE incdtresolution IS 'Incident Resolution table';
--
-- Name: incdtseverity; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE incdtseverity (
incdtseverity_id integer NOT NULL,
incdtseverity_name text NOT NULL,
incdtseverity_order integer,
incdtseverity_descrip text,
CONSTRAINT incdtseverity_incdtseverity_name_check CHECK ((incdtseverity_name <> ''::text))
);
ALTER TABLE public.incdtseverity OWNER TO admin;
--
-- Name: TABLE incdtseverity; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE incdtseverity IS 'Incident Severity table';
SET search_path = api, pg_catalog;
--
-- Name: incident; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW incident AS
SELECT incdt.incdt_number AS incident_number, incdtcat.incdtcat_name AS category, incdt.incdt_summary AS description, crmacct.crmacct_number AS crm_account, incdt.incdt_assigned_username AS assigned_to, CASE WHEN (incdt.incdt_status = 'N'::bpchar) THEN 'New'::text WHEN (incdt.incdt_status = 'F'::bpchar) THEN 'Feedback'::text WHEN (incdt.incdt_status = 'C'::bpchar) THEN 'Confirmed'::text WHEN (incdt.incdt_status = 'A'::bpchar) THEN 'Assigned'::text WHEN (incdt.incdt_status = 'R'::bpchar) THEN 'Resolved'::text WHEN (incdt.incdt_status = 'L'::bpchar) THEN 'Closed'::text ELSE '?'::text END AS status, incdtseverity.incdtseverity_name AS severity, incdtpriority.incdtpriority_name AS priority, incdtresolution.incdtresolution_name AS resolution, cntct.cntct_number AS contact_number, cntct.cntct_honorific AS honorific, cntct.cntct_first_name AS first, cntct.cntct_middle AS middle, cntct.cntct_last_name AS last, cntct.cntct_suffix AS suffix, cntct.cntct_title AS job_title, cntct.cntct_phone AS phone, cntct.cntct_fax AS fax, cntct.cntct_email AS email, ''::text AS contact_change, incdt.incdt_descrip AS notes, item.item_number, incdt.incdt_lotserial AS lot_serial_number, CASE WHEN (aropen.aropen_doctype = 'C'::bpchar) THEN 'C/M'::text WHEN (aropen.aropen_doctype = 'D'::bpchar) THEN 'D/M'::text WHEN (aropen.aropen_doctype = 'I'::bpchar) THEN 'Invoice'::text WHEN (aropen.aropen_doctype = 'R'::bpchar) THEN 'C/D'::text ELSE ''::text END AS ar_doc_type, aropen.aropen_docnumber AS ar_doc_number FROM ((((((((public.incdt LEFT JOIN public.incdtcat ON ((incdtcat.incdtcat_id = incdt.incdt_incdtcat_id))) LEFT JOIN public.crmacct ON ((crmacct.crmacct_id = incdt.incdt_crmacct_id))) LEFT JOIN public.incdtseverity ON ((incdtseverity.incdtseverity_id = incdt.incdt_incdtseverity_id))) LEFT JOIN public.incdtpriority ON ((incdtpriority.incdtpriority_id = incdt.incdt_incdtpriority_id))) LEFT JOIN public.incdtresolution ON ((incdtresolution.incdtresolution_id = incdt.incdt_incdtresolution_id))) LEFT JOIN public.cntct ON ((cntct.cntct_id = incdt.incdt_cntct_id))) LEFT JOIN public.item ON ((item.item_id = incdt.incdt_item_id))) LEFT JOIN public.aropen ON ((aropen.aropen_id = incdt.incdt_aropen_id)));
ALTER TABLE api.incident OWNER TO admin;
--
-- Name: VIEW incident; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW incident IS 'Incident';
--
-- Name: incidentchar; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW incidentchar AS
SELECT incdt.incdt_number AS incident_number, ("char".char_name)::character varying AS characteristic, charass.charass_value AS value FROM public.incdt, public."char", public.charass WHERE ((('INCDT'::text = charass.charass_target_type) AND (incdt.incdt_id = charass.charass_target_id)) AND (charass.charass_char_id = "char".char_id));
ALTER TABLE api.incidentchar OWNER TO admin;
--
-- Name: VIEW incidentchar; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW incidentchar IS 'Incident Characteristics';
--
-- Name: incidentcomment; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW incidentcomment AS
SELECT incdt.incdt_number AS incident_number, cmnttype.cmnttype_name AS type, comment.comment_date AS date, comment.comment_user AS username, comment.comment_text AS text, comment.comment_public AS public FROM public.incdt, public.cmnttype, public.comment WHERE (((comment.comment_source = 'INCDT'::text) AND (comment.comment_source_id = incdt.incdt_id)) AND (comment.comment_cmnttype_id = cmnttype.cmnttype_id));
ALTER TABLE api.incidentcomment OWNER TO admin;
--
-- Name: VIEW incidentcomment; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW incidentcomment IS 'Incident Comment';
--
-- Name: incidentfile; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW incidentfile AS
SELECT incdt.incdt_number AS incident_number, url.url_title AS title, url.url_url AS url FROM public.incdt, public.url WHERE ((incdt.incdt_id = url.url_source_id) AND (url.url_source = 'INCDT'::text));
ALTER TABLE api.incidentfile OWNER TO admin;
--
-- Name: VIEW incidentfile; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW incidentfile IS 'Incident File';
--
-- Name: incidentimage; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW incidentimage AS
SELECT incdt.incdt_number AS incident_number, image.image_name FROM public.incdt, public.imageass, public.image WHERE (((incdt.incdt_id = imageass.imageass_source_id) AND (imageass.imageass_source = 'INCDT'::text)) AND (imageass.imageass_image_id = image.image_id));
ALTER TABLE api.incidentimage OWNER TO admin;
--
-- Name: VIEW incidentimage; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW incidentimage IS 'Incident Image';
SET search_path = public, pg_catalog;
--
-- Name: classcode; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE classcode (
classcode_id integer DEFAULT nextval(('classcode_classcode_id_seq'::text)::regclass) NOT NULL,
classcode_code text NOT NULL,
classcode_descrip text,
classcode_mfg boolean,
classcode_creator text,
classcode_created timestamp without time zone,
classcode_modifier text,
classcode_modified timestamp without time zone,
classcode_type text,
CONSTRAINT classcode_classcode_code_check CHECK ((classcode_code <> ''::text))
);
ALTER TABLE public.classcode OWNER TO admin;
--
-- Name: TABLE classcode; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE classcode IS 'Class Code information';
--
-- Name: prodcat; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE prodcat (
prodcat_id integer DEFAULT nextval(('prodcat_prodcat_id_seq'::text)::regclass) NOT NULL,
prodcat_code text NOT NULL,
prodcat_descrip text,
CONSTRAINT prodcat_prodcat_code_check CHECK ((prodcat_code <> ''::text))
);
ALTER TABLE public.prodcat OWNER TO admin;
--
-- Name: TABLE prodcat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE prodcat IS 'Product Category information';
SET search_path = api, pg_catalog;
--
-- Name: item; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW item AS
SELECT (item.item_number)::character varying AS item_number, item.item_active AS active, item.item_descrip1 AS description1, item.item_descrip2 AS description2, CASE WHEN (item.item_type = 'P'::bpchar) THEN 'Purchased'::text WHEN (item.item_type = 'M'::bpchar) THEN 'Manufactured'::text WHEN (item.item_type = 'J'::bpchar) THEN 'Job'::text WHEN (item.item_type = 'K'::bpchar) THEN 'Kit'::text WHEN (item.item_type = 'F'::bpchar) THEN 'Phantom'::text WHEN (item.item_type = 'R'::bpchar) THEN 'Reference'::text WHEN (item.item_type = 'S'::bpchar) THEN 'Costing'::text WHEN (item.item_type = 'T'::bpchar) THEN 'Tooling'::text WHEN (item.item_type = 'O'::bpchar) THEN 'Outside Process'::text WHEN (item.item_type = 'L'::bpchar) THEN 'Planning'::text WHEN (item.item_type = 'B'::bpchar) THEN 'Breeder'::text WHEN (item.item_type = 'C'::bpchar) THEN 'Co-Product'::text WHEN (item.item_type = 'Y'::bpchar) THEN 'By-Product'::text ELSE NULL::text END AS item_type, item.item_maxcost AS maximum_desired_cost, classcode.classcode_code AS class_code, i.uom_name AS inventory_uom, item.item_picklist AS pick_list_item, item.item_fractional AS fractional, item.item_config AS configured, item.item_sold AS item_is_sold, prodcat.prodcat_code AS product_category, item.item_exclusive AS exclusive, item.item_listprice AS list_price, item.item_listcost AS list_cost, p.uom_name AS list_price_uom, item.item_upccode AS upc_code, item.item_prodweight AS product_weight, item.item_packweight AS packaging_weight, item.item_comments AS notes, item.item_extdescrip AS ext_description FROM (public.item LEFT JOIN public.prodcat ON ((item.item_prodcat_id = prodcat.prodcat_id))), public.classcode, public.uom i, public.uom p WHERE (((item.item_classcode_id = classcode.classcode_id) AND (item.item_inv_uom_id = i.uom_id)) AND (item.item_price_uom_id = p.uom_id)) ORDER BY (item.item_number)::character varying;
ALTER TABLE api.item OWNER TO admin;
--
-- Name: VIEW item; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW item IS 'Item';
SET search_path = public, pg_catalog;
--
-- Name: itemalias; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE itemalias (
itemalias_id integer DEFAULT nextval(('"itemalias_itemalias_id_seq"'::text)::regclass) NOT NULL,
itemalias_item_id integer NOT NULL,
itemalias_number text NOT NULL,
itemalias_comments text,
itemalias_usedescrip boolean NOT NULL,
itemalias_descrip1 text,
itemalias_descrip2 text,
CONSTRAINT itemalias_itemalias_number_check CHECK ((itemalias_number <> ''::text))
);
ALTER TABLE public.itemalias OWNER TO admin;
--
-- Name: TABLE itemalias; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE itemalias IS 'Item Alias information';
SET search_path = api, pg_catalog;
--
-- Name: itemalias; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW itemalias AS
SELECT (item.item_number)::character varying AS item_number, itemalias.itemalias_number AS alias_number, itemalias.itemalias_usedescrip AS use_description, itemalias.itemalias_descrip1 AS description1, itemalias.itemalias_descrip2 AS description2, itemalias.itemalias_comments AS comments FROM public.item, public.itemalias WHERE (item.item_id = itemalias.itemalias_item_id);
ALTER TABLE api.itemalias OWNER TO admin;
--
-- Name: VIEW itemalias; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW itemalias IS 'Item Alias';
--
-- Name: itemchar; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW itemchar AS
SELECT (item.item_number)::character varying AS item_number, ("char".char_name)::character varying AS characteristic, charass.charass_value AS value, charass.charass_default AS is_default FROM public.item, public."char", public.charass WHERE ((('I'::text = charass.charass_target_type) AND (item.item_id = charass.charass_target_id)) AND (charass.charass_char_id = "char".char_id));
ALTER TABLE api.itemchar OWNER TO admin;
--
-- Name: VIEW itemchar; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW itemchar IS 'Item Characteristic';
--
-- Name: itemcomment; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW itemcomment AS
SELECT (item.item_number)::character varying AS item_number, cmnttype.cmnttype_name AS type, comment.comment_date AS date, comment.comment_user AS username, comment.comment_text AS text FROM public.item, public.cmnttype, public.comment WHERE (((comment.comment_source = 'I'::text) AND (comment.comment_source_id = item.item_id)) AND (comment.comment_cmnttype_id = cmnttype.cmnttype_id));
ALTER TABLE api.itemcomment OWNER TO admin;
--
-- Name: VIEW itemcomment; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW itemcomment IS 'Item Comments';
SET search_path = public, pg_catalog;
--
-- Name: costelem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE costelem (
costelem_id integer DEFAULT nextval(('costelem_costelem_id_seq'::text)::regclass) NOT NULL,
costelem_type text NOT NULL,
costelem_sys boolean,
costelem_po boolean,
costelem_active boolean,
costelem_exp_accnt_id integer,
costelem_cost_item_id integer,
CONSTRAINT costelem_costelem_type_check CHECK ((costelem_type <> ''::text))
);
ALTER TABLE public.costelem OWNER TO admin;
--
-- Name: TABLE costelem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE costelem IS 'Costing Element information';
--
-- Name: itemcost; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE itemcost (
itemcost_id integer DEFAULT nextval(('itemcost_itemcost_id_seq'::text)::regclass) NOT NULL,
itemcost_item_id integer NOT NULL,
itemcost_costelem_id integer NOT NULL,
itemcost_lowlevel boolean DEFAULT false NOT NULL,
itemcost_stdcost numeric(16,6) DEFAULT 0 NOT NULL,
itemcost_posted date,
itemcost_actcost numeric(16,6) DEFAULT 0 NOT NULL,
itemcost_updated date,
itemcost_curr_id integer DEFAULT basecurrid() NOT NULL
);
ALTER TABLE public.itemcost OWNER TO admin;
--
-- Name: TABLE itemcost; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE itemcost IS 'Item Cost information';
SET search_path = api, pg_catalog;
--
-- Name: itemcost; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW itemcost AS
SELECT (item.item_number)::character varying(100) AS item_number, (costelem.costelem_type)::character varying(100) AS costing_element, itemcost.itemcost_actcost AS actual_cost, curr_symbol.curr_abbr AS currency, false AS post_to_standard FROM (((public.itemcost LEFT JOIN public.item ON ((itemcost.itemcost_item_id = item.item_id))) LEFT JOIN public.costelem ON ((itemcost.itemcost_costelem_id = costelem.costelem_id))) LEFT JOIN public.curr_symbol ON ((itemcost.itemcost_curr_id = curr_symbol.curr_id))) ORDER BY (item.item_number)::character varying(100), (costelem.costelem_type)::character varying(100);
ALTER TABLE api.itemcost OWNER TO admin;
--
-- Name: VIEW itemcost; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW itemcost IS 'Item Cost';
--
-- Name: itemfile; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW itemfile AS
SELECT (item.item_number)::character varying AS item_number, url.url_title AS title, url.url_url AS url FROM public.item, public.url WHERE ((item.item_id = url.url_source_id) AND (url.url_source = 'I'::text));
ALTER TABLE api.itemfile OWNER TO admin;
--
-- Name: VIEW itemfile; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW itemfile IS 'Item File';
--
-- Name: itemimage; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW itemimage AS
SELECT (item.item_number)::character varying AS item_number, CASE WHEN (imageass.imageass_purpose = 'P'::bpchar) THEN 'Product Description'::text WHEN (imageass.imageass_purpose = 'I'::bpchar) THEN 'Inventory Description'::text WHEN (imageass.imageass_purpose = 'E'::bpchar) THEN 'Engineering Reference'::text WHEN (imageass.imageass_purpose = 'M'::bpchar) THEN 'Miscellaneous'::text ELSE 'Other'::text END AS purpose, image.image_name FROM public.item, public.imageass, public.image WHERE (((item.item_id = imageass.imageass_source_id) AND (imageass.imageass_source = 'I'::text)) AND (imageass.imageass_image_id = image.image_id));
ALTER TABLE api.itemimage OWNER TO admin;
--
-- Name: VIEW itemimage; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW itemimage IS 'Item Image';
SET search_path = public, pg_catalog;
--
-- Name: costcat; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE costcat (
costcat_id integer DEFAULT nextval(('costcat_costcat_id_seq'::text)::regclass) NOT NULL,
costcat_code text NOT NULL,
costcat_descrip text,
costcat_asset_accnt_id integer,
costcat_liability_accnt_id integer,
costcat_adjustment_accnt_id integer,
costcat_matusage_accnt_id integer,
costcat_purchprice_accnt_id integer,
costcat_laboroverhead_accnt_id integer,
costcat_scrap_accnt_id integer,
costcat_invcost_accnt_id integer,
costcat_wip_accnt_id integer,
costcat_shipasset_accnt_id integer,
costcat_mfgscrap_accnt_id integer,
costcat_transform_accnt_id integer,
costcat_freight_accnt_id integer,
costcat_toliability_accnt_id integer,
costcat_exp_accnt_id integer,
CONSTRAINT costcat_costcat_code_check CHECK ((costcat_code <> ''::text))
);
ALTER TABLE public.costcat OWNER TO admin;
--
-- Name: TABLE costcat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE costcat IS 'Cost Category information';
--
-- Name: location; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE location (
location_id integer DEFAULT nextval(('location_location_id_seq'::text)::regclass) NOT NULL,
location_warehous_id integer NOT NULL,
location_name text NOT NULL,
location_descrip text,
location_restrict boolean,
location_netable boolean,
location_whsezone_id integer,
location_aisle text,
location_rack text,
location_bin text
);
ALTER TABLE public.location OWNER TO admin;
--
-- Name: TABLE location; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE location IS 'Warehouse Location information';
--
-- Name: plancode; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE plancode (
plancode_id integer DEFAULT nextval(('plancode_plancode_id_seq'::text)::regclass) NOT NULL,
plancode_code text NOT NULL,
plancode_name text,
plancode_mpsexplosion character(1),
plancode_consumefcst boolean,
plancode_mrpexcp_resched boolean,
plancode_mrpexcp_delete boolean,
CONSTRAINT plancode_plancode_code_check CHECK ((plancode_code <> ''::text))
);
ALTER TABLE public.plancode OWNER TO admin;
--
-- Name: TABLE plancode; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE plancode IS 'Planner Code information';
SET search_path = api, pg_catalog;
--
-- Name: itemsite; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW itemsite AS
SELECT (item.item_number)::character varying AS item_number, (whsinfo.warehous_code)::character varying AS site, itemsite.itemsite_active AS active, itemsite.itemsite_wosupply AS wo_supplied_at_site, itemsite.itemsite_createwo AS create_wos, itemsite.itemsite_posupply AS po_supplied_at_site, itemsite.itemsite_createpr AS create_prs, itemsite.itemsite_createsopr AS create_soprs, itemsite.itemsite_createsopo AS create_sopos, itemsite.itemsite_dropship AS dropship, itemsite.itemsite_sold AS sold_from_site, itemsite.itemsite_soldranking AS ranking, CASE WHEN (itemsite.itemsite_costmethod = 'N'::bpchar) THEN 'None'::text WHEN (itemsite.itemsite_costmethod = 'A'::bpchar) THEN 'Average'::text WHEN (itemsite.itemsite_costmethod = 'S'::bpchar) THEN 'Standard'::text WHEN (itemsite.itemsite_costmethod = 'J'::bpchar) THEN 'Job'::text ELSE NULL::text END AS cost_method, CASE WHEN (itemsite.itemsite_controlmethod = 'N'::bpchar) THEN 'None'::text WHEN (itemsite.itemsite_controlmethod = 'R'::bpchar) THEN 'Regular'::text WHEN (itemsite.itemsite_controlmethod = 'S'::bpchar) THEN 'Serial #'::text WHEN (itemsite.itemsite_controlmethod = 'L'::bpchar) THEN 'Lot #'::text ELSE NULL::text END AS control_method, plancode.plancode_code AS planner_code, costcat.costcat_code AS cost_category, itemsite.itemsite_stocked AS stocked, itemsite.itemsite_abcclass AS abc_class, itemsite.itemsite_autoabcclass AS allow_automatic_updates, itemsite.itemsite_cyclecountfreq AS cycl_cnt_freq, itemsite.itemsite_eventfence AS event_fence, itemsite.itemsite_loccntrl AS multiple_location_control, public.formatlocationname(itemsite.itemsite_location_id) AS location, itemsite.itemsite_location AS user_defined_location, itemsite.itemsite_location_comments AS location_comment, itemsite.itemsite_disallowblankwip AS disallow_blank_wip_locations, itemsite.itemsite_useparams AS enforce_order_parameters, itemsite.itemsite_reorderlevel AS reorder_level, itemsite.itemsite_ordertoqty AS order_up_to, itemsite.itemsite_minordqty AS minimum_order, itemsite.itemsite_maxordqty AS maximum_order, itemsite.itemsite_multordqty AS order_multiple, itemsite.itemsite_useparamsmanual AS enforce_on_manual_orders, CASE WHEN (itemsite.itemsite_planning_type = 'N'::bpchar) THEN 'None'::text WHEN (itemsite.itemsite_planning_type = 'M'::bpchar) THEN 'MRP'::text WHEN (itemsite.itemsite_planning_type = 'S'::bpchar) THEN 'MPS'::text ELSE NULL::text END AS planning_system, itemsite.itemsite_ordergroup AS group_mps_mrp_orders, itemsite.itemsite_ordergroup_first AS first_group, itemsite.itemsite_mps_timefence AS mps_time_fence, itemsite.itemsite_leadtime AS lead_time, itemsite.itemsite_safetystock AS safety_stock, COALESCE((SELECT whsinfo.warehous_code FROM (public.itemsite supplysite JOIN public.whsinfo ON ((whsinfo.warehous_id = supplysite.itemsite_warehous_id))) WHERE (supplysite.itemsite_id = itemsite.itemsite_supply_itemsite_id)), 'None'::text) AS supplied_from_site, itemsite.itemsite_notes AS notes, itemsite.itemsite_perishable AS perishable, itemsite.itemsite_warrpurc AS require_warranty, itemsite.itemsite_autoreg AS auto_register FROM public.item, (public.itemsite LEFT JOIN public.location ON ((itemsite.itemsite_location_id = location.location_id))), public.plancode, public.costcat, public.whsinfo WHERE ((((item.item_id = itemsite.itemsite_item_id) AND (itemsite.itemsite_plancode_id = plancode.plancode_id)) AND (itemsite.itemsite_costcat_id = costcat.costcat_id)) AND (itemsite.itemsite_warehous_id = whsinfo.warehous_id));
ALTER TABLE api.itemsite OWNER TO admin;
--
-- Name: VIEW itemsite; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW itemsite IS 'Item Site';
--
-- Name: itemsitecomment; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW itemsitecomment AS
SELECT (item.item_number)::character varying AS item_number, (whsinfo.warehous_code)::character varying AS site, cmnttype.cmnttype_name AS type, comment.comment_date AS date, comment.comment_user AS username, comment.comment_text AS text FROM public.itemsite, public.item, public.whsinfo, public.cmnttype, public.comment WHERE ((itemsite.itemsite_item_id = item.item_id) AND ((((itemsite.itemsite_warehous_id = whsinfo.warehous_id) AND (comment.comment_source = 'IS'::text)) AND (comment.comment_source_id = itemsite.itemsite_id)) AND (comment.comment_cmnttype_id = cmnttype.cmnttype_id)));
ALTER TABLE api.itemsitecomment OWNER TO admin;
--
-- Name: VIEW itemsitecomment; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW itemsitecomment IS 'Item Site Comments';
SET search_path = public, pg_catalog;
--
-- Name: contrct; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE contrct (
contrct_id integer NOT NULL,
contrct_number text NOT NULL,
contrct_vend_id integer NOT NULL,
contrct_descrip text,
contrct_effective date NOT NULL,
contrct_expires date NOT NULL,
contrct_note text
);
ALTER TABLE public.contrct OWNER TO admin;
--
-- Name: TABLE contrct; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE contrct IS 'Grouping of Item Sources for a Vendor with common effective and expiration dates.';
--
-- Name: COLUMN contrct.contrct_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN contrct.contrct_id IS 'Sequence identifier for contract.';
--
-- Name: COLUMN contrct.contrct_number; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN contrct.contrct_number IS 'User defined identifier for contract.';
--
-- Name: COLUMN contrct.contrct_vend_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN contrct.contrct_vend_id IS 'Vendor associated with contract.';
--
-- Name: COLUMN contrct.contrct_descrip; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN contrct.contrct_descrip IS 'Description for contract.';
--
-- Name: COLUMN contrct.contrct_effective; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN contrct.contrct_effective IS 'Effective date for contract. Constraint for overlap.';
--
-- Name: COLUMN contrct.contrct_expires; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN contrct.contrct_expires IS 'Expiration date for contract. Constraint for overlap.';
--
-- Name: COLUMN contrct.contrct_note; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN contrct.contrct_note IS 'Notes for contract.';
--
-- Name: itemsrc; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE itemsrc (
itemsrc_id integer DEFAULT nextval(('"itemsrc_itemsrc_id_seq"'::text)::regclass) NOT NULL,
itemsrc_item_id integer NOT NULL,
itemsrc_vend_id integer NOT NULL,
itemsrc_vend_item_number text,
itemsrc_vend_item_descrip text,
itemsrc_comments text,
itemsrc_vend_uom text NOT NULL,
itemsrc_invvendoruomratio numeric(20,10) NOT NULL,
itemsrc_minordqty numeric(18,6) NOT NULL,
itemsrc_multordqty numeric(18,6) NOT NULL,
itemsrc_leadtime integer NOT NULL,
itemsrc_ranking integer NOT NULL,
itemsrc_active boolean NOT NULL,
itemsrc_manuf_name text DEFAULT ''::text NOT NULL,
itemsrc_manuf_item_number text DEFAULT ''::text NOT NULL,
itemsrc_manuf_item_descrip text,
itemsrc_default boolean,
itemsrc_upccode text,
itemsrc_effective date DEFAULT startoftime() NOT NULL,
itemsrc_expires date DEFAULT endoftime() NOT NULL,
itemsrc_contrct_id integer
);
ALTER TABLE public.itemsrc OWNER TO admin;
--
-- Name: TABLE itemsrc; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE itemsrc IS 'Item Source information';
--
-- Name: COLUMN itemsrc.itemsrc_effective; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN itemsrc.itemsrc_effective IS 'Effective date for item source. Constraint for overlap.';
--
-- Name: COLUMN itemsrc.itemsrc_expires; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN itemsrc.itemsrc_expires IS 'Expiration date for item source. Constraint for overlap.';
--
-- Name: COLUMN itemsrc.itemsrc_contrct_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN itemsrc.itemsrc_contrct_id IS 'Associated contract for item source. Inherits effective, expiration dates.';
SET search_path = api, pg_catalog;
--
-- Name: itemsource; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW itemsource AS
SELECT (item.item_number)::character varying AS item_number, (vendinfo.vend_number)::character varying AS vendor, itemsrc.itemsrc_vend_item_number AS vendor_item_number, itemsrc.itemsrc_active AS active, itemsrc.itemsrc_default, itemsrc.itemsrc_vend_uom AS vendor_uom, itemsrc.itemsrc_invvendoruomratio AS inventory_vendor_uom_ratio, itemsrc.itemsrc_minordqty AS minimum_order, itemsrc.itemsrc_multordqty AS order_multiple, itemsrc.itemsrc_ranking AS vendor_ranking, itemsrc.itemsrc_leadtime AS lead_time, itemsrc.itemsrc_comments AS notes, itemsrc.itemsrc_vend_item_descrip AS vendor_description, itemsrc.itemsrc_manuf_name AS manufacturer_name, itemsrc.itemsrc_manuf_item_number AS manufacturer_item_number, itemsrc.itemsrc_manuf_item_descrip AS manufacturer_description, itemsrc.itemsrc_upccode AS bar_code, contrct.contrct_number AS contract_number, itemsrc.itemsrc_effective AS effective_date, itemsrc.itemsrc_expires AS expires_date FROM (((public.itemsrc LEFT JOIN public.item ON ((itemsrc.itemsrc_item_id = item.item_id))) LEFT JOIN public.vendinfo ON ((itemsrc.itemsrc_vend_id = vendinfo.vend_id))) LEFT JOIN public.contrct ON ((itemsrc.itemsrc_contrct_id = contrct.contrct_id))) ORDER BY (item.item_number)::character varying(100), (vendinfo.vend_number)::character varying(100);
ALTER TABLE api.itemsource OWNER TO admin;
--
-- Name: VIEW itemsource; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW itemsource IS 'Item Source';
SET search_path = public, pg_catalog;
--
-- Name: itemsrcp; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE itemsrcp (
itemsrcp_id integer DEFAULT nextval(('itemsrcp_itemsrcp_id_seq'::text)::regclass) NOT NULL,
itemsrcp_itemsrc_id integer NOT NULL,
itemsrcp_qtybreak numeric(18,6) NOT NULL,
itemsrcp_price numeric(16,6),
itemsrcp_updated date,
itemsrcp_curr_id integer DEFAULT basecurrid() NOT NULL,
itemsrcp_dropship boolean DEFAULT false NOT NULL,
itemsrcp_warehous_id integer DEFAULT (-1) NOT NULL,
itemsrcp_type character(1) NOT NULL,
itemsrcp_discntprcnt numeric(16,6),
itemsrcp_fixedamtdiscount numeric(16,6),
CONSTRAINT valid_itemsrcp_type CHECK ((itemsrcp_type = ANY (ARRAY['N'::bpchar, 'D'::bpchar])))
);
ALTER TABLE public.itemsrcp OWNER TO admin;
--
-- Name: TABLE itemsrcp; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE itemsrcp IS 'Item Source Price information';
--
-- Name: COLUMN itemsrcp.itemsrcp_dropship; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN itemsrcp.itemsrcp_dropship IS 'Used to determine if item source price applies only to drop ship purchase orders.';
--
-- Name: COLUMN itemsrcp.itemsrcp_warehous_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN itemsrcp.itemsrcp_warehous_id IS 'Used to determine if item source price applies only to specific site on purchase orders.';
--
-- Name: COLUMN itemsrcp.itemsrcp_type; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN itemsrcp.itemsrcp_type IS 'Pricing type for item source price. Valid values are N-nominal and D-discount.';
--
-- Name: COLUMN itemsrcp.itemsrcp_discntprcnt; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN itemsrcp.itemsrcp_discntprcnt IS 'Discount percent for item source price.';
--
-- Name: COLUMN itemsrcp.itemsrcp_fixedamtdiscount; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN itemsrcp.itemsrcp_fixedamtdiscount IS 'Fixed amount discount for item source price.';
SET search_path = api, pg_catalog;
--
-- Name: itemsourceprice; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW itemsourceprice AS
SELECT (item.item_number)::character varying AS item_number, (vendinfo.vend_number)::character varying AS vendor, itemsrcp.itemsrcp_qtybreak AS qty_break, CASE WHEN (itemsrcp.itemsrcp_type = 'N'::bpchar) THEN 'Nominal'::text ELSE 'Discount'::text END AS pricing_type, CASE WHEN (itemsrcp.itemsrcp_warehous_id = (-1)) THEN 'All'::text ELSE whsinfo.warehous_code END AS pricing_site, itemsrcp.itemsrcp_dropship AS dropship_only, itemsrcp.itemsrcp_price AS price_per_unit, curr_symbol.curr_abbr AS currency, (itemsrcp.itemsrcp_discntprcnt * 100.0) AS discount_percent, itemsrcp.itemsrcp_fixedamtdiscount AS discount_fixed_amount FROM (((((public.itemsrcp LEFT JOIN public.itemsrc ON ((itemsrc.itemsrc_id = itemsrcp.itemsrcp_itemsrc_id))) LEFT JOIN public.item ON ((itemsrc.itemsrc_item_id = item.item_id))) LEFT JOIN public.vendinfo ON ((itemsrc.itemsrc_vend_id = vendinfo.vend_id))) LEFT JOIN public.curr_symbol ON ((itemsrcp.itemsrcp_curr_id = curr_symbol.curr_id))) LEFT JOIN public.whsinfo ON ((itemsrcp.itemsrcp_warehous_id = whsinfo.warehous_id))) ORDER BY (item.item_number)::character varying(100), (vendinfo.vend_number)::character varying(100);
ALTER TABLE api.itemsourceprice OWNER TO admin;
--
-- Name: VIEW itemsourceprice; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW itemsourceprice IS 'Item Source Price';
SET search_path = public, pg_catalog;
--
-- Name: itemsub; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE itemsub (
itemsub_id integer DEFAULT nextval(('itemsub_itemsub_id_seq'::text)::regclass) NOT NULL,
itemsub_parent_item_id integer NOT NULL,
itemsub_sub_item_id integer NOT NULL,
itemsub_uomratio numeric(20,10) NOT NULL,
itemsub_rank integer NOT NULL
);
ALTER TABLE public.itemsub OWNER TO admin;
--
-- Name: TABLE itemsub; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE itemsub IS 'Item Substitutes information';
SET search_path = api, pg_catalog;
--
-- Name: itemsubstitute; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW itemsubstitute AS
SELECT (p.item_number)::character varying AS root_item_number, (s.item_number)::character varying AS substitute_item_number, itemsub.itemsub_uomratio AS sub_parent_uom_ratio, itemsub.itemsub_rank AS ranking FROM public.item p, public.item s, public.itemsub WHERE ((p.item_id = itemsub.itemsub_parent_item_id) AND (s.item_id = itemsub.itemsub_sub_item_id));
ALTER TABLE api.itemsubstitute OWNER TO admin;
--
-- Name: VIEW itemsubstitute; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW itemsubstitute IS 'Item Substitute';
SET search_path = public, pg_catalog;
--
-- Name: itemtax; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE itemtax (
itemtax_id integer NOT NULL,
itemtax_item_id integer NOT NULL,
itemtax_taxtype_id integer NOT NULL,
itemtax_taxzone_id integer
);
ALTER TABLE public.itemtax OWNER TO admin;
--
-- Name: TABLE itemtax; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE itemtax IS 'This table associates tax types in a specified tax authority for the given item.';
SET search_path = api, pg_catalog;
--
-- Name: itemtaxtype; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW itemtaxtype AS
SELECT (item.item_number)::character varying AS item_number, CASE WHEN (taxzone.taxzone_id IS NULL) THEN 'Any'::character varying ELSE (taxzone.taxzone_code)::character varying END AS tax_zone, taxtype.taxtype_name AS tax_type FROM public.item, (public.itemtax LEFT JOIN public.taxzone ON ((itemtax.itemtax_taxzone_id = taxzone.taxzone_id))), public.taxtype WHERE ((item.item_id = itemtax.itemtax_item_id) AND (itemtax.itemtax_taxtype_id = taxtype.taxtype_id));
ALTER TABLE api.itemtaxtype OWNER TO admin;
--
-- Name: VIEW itemtaxtype; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW itemtaxtype IS 'Item Tax Type';
SET search_path = public, pg_catalog;
--
-- Name: itemuomconv; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE itemuomconv (
itemuomconv_id integer NOT NULL,
itemuomconv_item_id integer NOT NULL,
itemuomconv_from_uom_id integer NOT NULL,
itemuomconv_from_value numeric(20,10) NOT NULL,
itemuomconv_to_uom_id integer NOT NULL,
itemuomconv_to_value numeric(20,10) NOT NULL,
itemuomconv_fractional boolean DEFAULT false NOT NULL,
CONSTRAINT itemuomconv_uom CHECK ((itemuomconv_from_uom_id <> itemuomconv_to_uom_id))
);
ALTER TABLE public.itemuomconv OWNER TO admin;
--
-- Name: TABLE itemuomconv; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE itemuomconv IS 'UOM conversion information. From Unit to To Unit with a value per.';
SET search_path = api, pg_catalog;
--
-- Name: itemuomconversion; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW itemuomconversion AS
SELECT (item.item_number)::character varying AS item_number, (f.uom_name)::character varying AS uom, itemuomconv.itemuomconv_from_value AS uom_value, p.uom_name AS per_uom, itemuomconv.itemuomconv_to_value AS per_uom_value, itemuomconv.itemuomconv_fractional AS fractional, public.fetchitemuomconvtypes(itemuomconv.itemuomconv_id) AS selected_types FROM public.item, public.itemuomconv, public.uom f, public.uom p WHERE (((item.item_id = itemuomconv.itemuomconv_item_id) AND (itemuomconv.itemuomconv_from_uom_id = f.uom_id)) AND (itemuomconv.itemuomconv_to_uom_id = p.uom_id));
ALTER TABLE api.itemuomconversion OWNER TO admin;
--
-- Name: VIEW itemuomconversion; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW itemuomconversion IS 'Item Unit of Measure Conversion';
SET search_path = public, pg_catalog;
--
-- Name: gltrans; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE gltrans (
gltrans_id integer DEFAULT nextval(('"gltrans_gltrans_id_seq"'::text)::regclass) NOT NULL,
gltrans_exported boolean,
gltrans_created timestamp with time zone,
gltrans_date date NOT NULL,
gltrans_sequence integer,
gltrans_accnt_id integer NOT NULL,
gltrans_source text,
gltrans_docnumber text,
gltrans_misc_id integer,
gltrans_amount numeric(20,2) NOT NULL,
gltrans_notes text,
gltrans_journalnumber integer,
gltrans_posted boolean NOT NULL,
gltrans_doctype text,
gltrans_rec boolean DEFAULT false NOT NULL,
gltrans_username text DEFAULT geteffectivextuser() NOT NULL,
gltrans_deleted boolean DEFAULT false
);
ALTER TABLE public.gltrans OWNER TO admin;
--
-- Name: TABLE gltrans; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE gltrans IS 'General Ledger (G/L) transaction information';
SET search_path = api, pg_catalog;
--
-- Name: journalentry; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW journalentry AS
SELECT curr_symbol.curr_abbr AS currency, c.gltrans_amount AS amount, c.gltrans_date AS dist_date, c.gltrans_docnumber AS doc_number, public.formatglaccount(da.accnt_id) AS debit, public.formatglaccount(ca.accnt_id) AS credit, c.gltrans_notes AS notes FROM public.gltrans d, public.gltrans c, public.accnt da, public.accnt ca, public.curr_symbol WHERE ((((((((d.gltrans_sequence = c.gltrans_sequence) AND (d.gltrans_accnt_id = da.accnt_id)) AND (c.gltrans_accnt_id = ca.accnt_id)) AND (d.gltrans_amount < (0)::numeric)) AND (c.gltrans_amount > (0)::numeric)) AND (d.gltrans_doctype = 'JE'::text)) AND (c.gltrans_doctype = 'JE'::text)) AND (curr_symbol.curr_id = public.basecurrid())) ORDER BY d.gltrans_date DESC;
ALTER TABLE api.journalentry OWNER TO admin;
--
-- Name: VIEW journalentry; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW journalentry IS 'Journal Entry';
SET search_path = public, pg_catalog;
--
-- Name: whsezone; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE whsezone (
whsezone_id integer NOT NULL,
whsezone_warehous_id integer NOT NULL,
whsezone_name text NOT NULL,
whsezone_descrip text
);
ALTER TABLE public.whsezone OWNER TO admin;
--
-- Name: TABLE whsezone; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE whsezone IS 'Warehouse Zone information';
SET search_path = api, pg_catalog;
--
-- Name: location; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW location AS
SELECT (whsinfo.warehous_code)::character varying AS site, (location.location_aisle)::character varying AS aisle, (location.location_rack)::character varying AS rack, (location.location_bin)::character varying AS bin, (location.location_name)::character varying AS location, whsezone.whsezone_name AS zone, location.location_netable AS netable, location.location_restrict AS restricted, location.location_descrip AS description FROM ((public.location LEFT JOIN public.whsinfo ON ((whsinfo.warehous_id = location.location_warehous_id))) LEFT JOIN public.whsezone ON ((whsezone.whsezone_id = location.location_whsezone_id)));
ALTER TABLE api.location OWNER TO admin;
--
-- Name: VIEW location; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW location IS 'Location';
--
-- Name: misccounttag; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW misccounttag AS
SELECT 'This view is for inserts only'::text AS site, 'This view is for inserts only'::text AS item_number, (0)::numeric AS quantity, 'This view is for inserts only'::text AS comment;
ALTER TABLE api.misccounttag OWNER TO admin;
--
-- Name: VIEW misccounttag; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW misccounttag IS 'Miscellaneous Count Tag';
--
-- Name: pricingschedule; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW pricingschedule AS
SELECT (ipshead.ipshead_name)::character varying AS name, ipshead.ipshead_descrip AS description, public.formatdate(ipshead.ipshead_effective, 'Always'::text) AS effective, public.formatdate(ipshead.ipshead_expires, 'Never'::text) AS expires, curr_symbol.curr_abbr AS currency FROM public.ipshead, public.curr_symbol WHERE (curr_symbol.curr_id = ipshead.ipshead_curr_id);
ALTER TABLE api.pricingschedule OWNER TO admin;
--
-- Name: VIEW pricingschedule; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW pricingschedule IS 'Pricing Schedule';
SET search_path = public, pg_catalog;
--
-- Name: ipsass; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE ipsass (
ipsass_id integer NOT NULL,
ipsass_ipshead_id integer NOT NULL,
ipsass_cust_id integer,
ipsass_custtype_id integer,
ipsass_custtype_pattern text,
ipsass_shipto_id integer DEFAULT (-1),
ipsass_shipto_pattern text
);
ALTER TABLE public.ipsass OWNER TO admin;
--
-- Name: TABLE ipsass; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE ipsass IS 'Pricing Schedule assignment information';
SET search_path = api, pg_catalog;
--
-- Name: pricingscheduleassign; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW pricingscheduleassign AS
SELECT (COALESCE(custinfo.cust_number, 'Any'::text))::character varying AS customer_number, (COALESCE(shiptoinfo.shipto_num, 'Any'::text))::character varying AS customer_shipto, (COALESCE(ipsass.ipsass_shipto_pattern, 'N/A'::text))::character varying AS customer_shipto_pattern, (COALESCE(custtype.custtype_code, 'N/A'::text))::character varying AS customer_type, (COALESCE(ipsass.ipsass_custtype_pattern, 'N/A'::text))::character varying AS customer_type_pattern, (ipshead.ipshead_name)::character varying AS pricing_schedule FROM ((((public.ipshead JOIN public.ipsass ON ((ipshead.ipshead_id = ipsass.ipsass_ipshead_id))) LEFT JOIN public.custinfo ON ((ipsass.ipsass_cust_id = custinfo.cust_id))) LEFT JOIN public.custtype ON ((ipsass.ipsass_custtype_id = custtype.custtype_id))) LEFT JOIN public.shiptoinfo ON ((ipsass.ipsass_shipto_id = shiptoinfo.shipto_id))) ORDER BY (COALESCE(custinfo.cust_number, 'Any'::text))::character varying, (COALESCE(shiptoinfo.shipto_num, 'Any'::text))::character varying, (COALESCE(custtype.custtype_code, 'N/A'::text))::character varying, (COALESCE(ipsass.ipsass_custtype_pattern, 'N/A'::text))::character varying, (ipshead.ipshead_name)::character varying;
ALTER TABLE api.pricingscheduleassign OWNER TO admin;
--
-- Name: VIEW pricingscheduleassign; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW pricingscheduleassign IS 'Pricing Schedule Assignments';
SET search_path = public, pg_catalog;
--
-- Name: ipsiteminfo; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE ipsiteminfo (
ipsitem_id integer DEFAULT nextval(('"ipsitem_ipsitem_id_seq"'::text)::regclass) NOT NULL,
ipsitem_ipshead_id integer,
ipsitem_item_id integer,
ipsitem_qtybreak numeric(18,6) NOT NULL,
ipsitem_price numeric(16,4) NOT NULL,
ipsitem_qty_uom_id integer,
ipsitem_price_uom_id integer,
ipsitem_discntprcnt numeric(10,6) DEFAULT 0.00 NOT NULL,
ipsitem_fixedamtdiscount numeric(16,4) DEFAULT 0.00 NOT NULL,
ipsitem_prodcat_id integer,
ipsitem_type character(1) NOT NULL,
ipsitem_warehous_id integer,
CONSTRAINT valid_ipsitem_type CHECK ((ipsitem_type = ANY (ARRAY['N'::bpchar, 'D'::bpchar, 'M'::bpchar])))
);
ALTER TABLE public.ipsiteminfo OWNER TO admin;
--
-- Name: TABLE ipsiteminfo; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE ipsiteminfo IS 'Pricing Schedule Item information';
--
-- Name: COLUMN ipsiteminfo.ipsitem_prodcat_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ipsiteminfo.ipsitem_prodcat_id IS 'Product category for pricing schedule item.';
--
-- Name: COLUMN ipsiteminfo.ipsitem_type; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ipsiteminfo.ipsitem_type IS 'Pricing type for pricing schedule item. Valid values are N-nominal, D-discount, and M-markup';
--
-- Name: COLUMN ipsiteminfo.ipsitem_warehous_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ipsiteminfo.ipsitem_warehous_id IS 'Site for pricing schedule item which enables pricing by site.';
SET search_path = api, pg_catalog;
--
-- Name: pricingscheduleitem; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW pricingscheduleitem AS
SELECT (ipshead.ipshead_name)::character varying AS pricing_schedule, CASE WHEN (COALESCE(ipsiteminfo.ipsitem_item_id, (-1)) > 0) THEN 'Item'::character varying ELSE 'Product Category'::character varying END AS type, (COALESCE(item.item_number, ''::text))::character varying AS item_number, (COALESCE(prodcat.prodcat_code, ''::text))::character varying AS product_category, ipsiteminfo.ipsitem_qtybreak AS qty_break, (qtyuom.uom_name)::character varying AS qty_uom, (priceuom.uom_name)::character varying AS price_uom, ipsiteminfo.ipsitem_price AS price, ipsiteminfo.ipsitem_discntprcnt AS percent, ipsiteminfo.ipsitem_fixedamtdiscount AS fixedamt, CASE WHEN (ipsiteminfo.ipsitem_type = 'N'::bpchar) THEN 'Nominal'::character varying WHEN (ipsiteminfo.ipsitem_type = 'D'::bpchar) THEN 'Discount'::character varying WHEN (ipsiteminfo.ipsitem_type = 'M'::bpchar) THEN 'Markup'::character varying ELSE NULL::character varying END AS pricing_type FROM (((((public.ipsiteminfo JOIN public.ipshead ON ((ipsiteminfo.ipsitem_ipshead_id = ipshead.ipshead_id))) LEFT JOIN public.item ON ((ipsiteminfo.ipsitem_item_id = item.item_id))) LEFT JOIN public.prodcat ON ((ipsiteminfo.ipsitem_prodcat_id = prodcat.prodcat_id))) LEFT JOIN public.uom qtyuom ON ((ipsiteminfo.ipsitem_qty_uom_id = qtyuom.uom_id))) LEFT JOIN public.uom priceuom ON ((ipsiteminfo.ipsitem_price_uom_id = priceuom.uom_id)));
ALTER TABLE api.pricingscheduleitem OWNER TO admin;
--
-- Name: VIEW pricingscheduleitem; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW pricingscheduleitem IS 'Pricing Schedule Item';
SET search_path = public, pg_catalog;
--
-- Name: ipsitemchar; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE ipsitemchar (
ipsitemchar_id integer NOT NULL,
ipsitemchar_ipsitem_id integer NOT NULL,
ipsitemchar_char_id integer NOT NULL,
ipsitemchar_value text NOT NULL,
ipsitemchar_price numeric(16,4)
);
ALTER TABLE public.ipsitemchar OWNER TO admin;
--
-- Name: TABLE ipsitemchar; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE ipsitemchar IS 'Item Price Schedule Characteristic Prices.';
SET search_path = api, pg_catalog;
--
-- Name: pricingscheduleitemchar; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW pricingscheduleitemchar AS
SELECT (ipshead.ipshead_name)::character varying AS pricing_schedule, (item.item_number)::character varying AS item_number, ipsiteminfo.ipsitem_qtybreak AS qty_break, (qtyuom.uom_name)::character varying AS qty_uom, (priceuom.uom_name)::character varying AS price_uom, ("char".char_name)::character varying AS characteristic, (ipsitemchar.ipsitemchar_value)::character varying AS value, ipsitemchar.ipsitemchar_price AS price FROM public.ipshead, public.ipsiteminfo, public.ipsitemchar, public.item, public."char", public.uom qtyuom, public.uom priceuom WHERE ((((((ipshead.ipshead_id = ipsiteminfo.ipsitem_ipshead_id) AND (ipsiteminfo.ipsitem_id = ipsitemchar.ipsitemchar_ipsitem_id)) AND (ipsiteminfo.ipsitem_item_id = item.item_id)) AND (ipsiteminfo.ipsitem_qty_uom_id = qtyuom.uom_id)) AND (ipsiteminfo.ipsitem_price_uom_id = priceuom.uom_id)) AND (ipsitemchar.ipsitemchar_char_id = "char".char_id));
ALTER TABLE api.pricingscheduleitemchar OWNER TO admin;
--
-- Name: VIEW pricingscheduleitemchar; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW pricingscheduleitemchar IS 'Pricing Schedule Item Characteristics';
--
-- Name: project; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW project AS
SELECT prj.prj_number AS number, prj.prj_name AS name, prj.prj_descrip AS description, prj.prj_owner_username AS owner, prj.prj_username AS assigned_to, prj.prj_so AS sales_orders, prj.prj_wo AS work_orders, prj.prj_po AS purchase_orders, CASE WHEN (prj.prj_status = 'P'::bpchar) THEN 'Concept'::text WHEN (prj.prj_status = 'O'::bpchar) THEN 'In-Process'::text WHEN (prj.prj_status = 'C'::bpchar) THEN 'Closed'::text ELSE 'Error'::text END AS status, prj.prj_due_date AS due, prj.prj_assigned_date AS assigned, prj.prj_start_date AS started, prj.prj_completed_date AS completed FROM public.prj;
ALTER TABLE api.project OWNER TO admin;
--
-- Name: VIEW project; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW project IS 'Project';
--
-- Name: projectcomment; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW projectcomment AS
SELECT (prj.prj_number)::character varying AS project_number, cmnttype.cmnttype_name AS type, comment.comment_date AS date, comment.comment_user AS username, comment.comment_text AS text FROM public.prj, public.cmnttype, public.comment WHERE (((comment.comment_source = 'J'::text) AND (comment.comment_source_id = prj.prj_id)) AND (comment.comment_cmnttype_id = cmnttype.cmnttype_id));
ALTER TABLE api.projectcomment OWNER TO admin;
--
-- Name: VIEW projectcomment; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW projectcomment IS 'Project Comment';
SET search_path = public, pg_catalog;
--
-- Name: cust_cust_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cust_cust_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.cust_cust_id_seq OWNER TO admin;
--
-- Name: cust_cust_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cust_cust_id_seq', 96, true);
--
-- Name: prospect; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE prospect (
prospect_id integer DEFAULT nextval('cust_cust_id_seq'::regclass) NOT NULL,
prospect_active boolean DEFAULT true NOT NULL,
prospect_number text NOT NULL,
prospect_name text NOT NULL,
prospect_cntct_id integer,
prospect_comments text,
prospect_created date DEFAULT ('now'::text)::date NOT NULL,
prospect_salesrep_id integer,
prospect_warehous_id integer,
prospect_taxzone_id integer,
CONSTRAINT prospect_prospect_number_check CHECK ((prospect_number <> ''::text))
);
ALTER TABLE public.prospect OWNER TO admin;
--
-- Name: TABLE prospect; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE prospect IS 'Prospect Information';
SET search_path = api, pg_catalog;
--
-- Name: prospect; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW prospect AS
SELECT (prospect.prospect_number)::character varying AS prospect_number, prospect.prospect_name, prospect.prospect_active AS active, salesrep.salesrep_number AS sales_rep, whsinfo.warehous_code AS site_code, taxzone.taxzone_code AS default_tax_zone, prospect.prospect_comments AS notes, cntct.cntct_number AS contact_number, cntct.cntct_honorific AS contact_honorific, cntct.cntct_first_name AS contact_first, cntct.cntct_middle AS contact_middle, cntct.cntct_last_name AS contact_last, cntct.cntct_suffix AS contact_suffix, cntct.cntct_title AS contact_job_title, cntct.cntct_phone AS contact_voice, cntct.cntct_phone2 AS contact_alternate, cntct.cntct_fax AS contact_fax, cntct.cntct_email AS contact_email, cntct.cntct_webaddr AS contact_web, ''::text AS contact_change, addr.addr_number AS contact_address_number, addr.addr_line1 AS contact_address1, addr.addr_line2 AS contact_address2, addr.addr_line3 AS contact_address3, addr.addr_city AS contact_city, addr.addr_state AS contact_state, addr.addr_postalcode AS contact_postalcode, addr.addr_country AS contact_country, ''::text AS contact_address_change FROM (((((public.prospect LEFT JOIN public.cntct ON ((prospect.prospect_cntct_id = cntct.cntct_id))) LEFT JOIN public.addr ON ((cntct.cntct_addr_id = addr.addr_id))) LEFT JOIN public.taxzone ON ((prospect.prospect_taxzone_id = taxzone.taxzone_id))) LEFT JOIN public.salesrep ON ((prospect.prospect_salesrep_id = salesrep.salesrep_id))) LEFT JOIN public.whsinfo ON ((prospect.prospect_warehous_id = whsinfo.warehous_id)));
ALTER TABLE api.prospect OWNER TO admin;
--
-- Name: VIEW prospect; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW prospect IS 'Prospect';
SET search_path = public, pg_catalog;
--
-- Name: expcat; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE expcat (
expcat_id integer NOT NULL,
expcat_code text NOT NULL,
expcat_descrip text,
expcat_exp_accnt_id integer,
expcat_liability_accnt_id integer,
expcat_active boolean,
expcat_purchprice_accnt_id integer,
expcat_freight_accnt_id integer,
CONSTRAINT expcat_expcat_code_check CHECK ((expcat_code <> ''::text))
);
ALTER TABLE public.expcat OWNER TO admin;
--
-- Name: TABLE expcat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE expcat IS 'Expense Category information';
--
-- Name: womatl; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE womatl (
womatl_id integer DEFAULT nextval(('womatl_womatl_id_seq'::text)::regclass) NOT NULL,
womatl_wo_id integer,
womatl_itemsite_id integer,
womatl_qtyper numeric(20,8) NOT NULL,
womatl_scrap numeric(8,4) NOT NULL,
womatl_qtyreq numeric(18,6) NOT NULL,
womatl_qtyiss numeric(18,6) NOT NULL,
womatl_qtywipscrap numeric(18,6) NOT NULL,
womatl_lastissue date,
womatl_lastreturn date,
womatl_cost numeric(16,6),
womatl_picklist boolean,
womatl_status character(1),
womatl_imported boolean DEFAULT false,
womatl_createwo boolean,
womatl_issuemethod character(1),
womatl_wooper_id integer,
womatl_bomitem_id integer,
womatl_duedate date,
womatl_schedatwooper boolean,
womatl_uom_id integer NOT NULL,
womatl_notes text,
womatl_ref text,
womatl_scrapvalue numeric(16,6) DEFAULT 0,
womatl_qtyfxd numeric(20,8) DEFAULT 0 NOT NULL,
womatl_issuewo boolean DEFAULT false NOT NULL
);
ALTER TABLE public.womatl OWNER TO admin;
--
-- Name: TABLE womatl; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE womatl IS 'Work Order Material Requirements information';
--
-- Name: COLUMN womatl.womatl_qtyfxd; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN womatl.womatl_qtyfxd IS 'The fixed quantity required';
SET search_path = api, pg_catalog;
--
-- Name: purchaseline; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW purchaseline AS
SELECT (pohead.pohead_number)::character varying AS order_number, poitem.poitem_linenumber AS line_number, item.item_number, whsinfo.warehous_code AS site, expcat.expcat_code AS expense_category, poitem.poitem_qty_ordered AS qty_ordered, poitem.poitem_unitprice AS unit_price, poitem.poitem_freight AS freight, poitem.poitem_duedate AS due_date, prj.prj_number AS project_number, poitem.poitem_vend_item_number AS vend_item_number, poitem.poitem_vend_item_descrip AS vendor_description, poitem.poitem_manuf_name AS manufacturer_name, poitem.poitem_manuf_item_number AS manufacturer_item_number, poitem.poitem_manuf_item_descrip AS manufacturer_description, poitem.poitem_comments AS notes, public.formatrevnumber('BOM'::text, poitem.poitem_bom_rev_id) AS bill_of_materials_revision, public.formatrevnumber('BOO'::text, poitem.poitem_boo_rev_id) AS bill_of_operations_revision, public.formatsonumber(coitem.coitem_id) AS sales_order_number, public.formatwonumber(womatl.womatl_wo_id) AS work_order_number FROM ((((((((public.pohead JOIN public.poitem ON ((pohead.pohead_id = poitem.poitem_pohead_id))) LEFT JOIN public.prj ON ((poitem.poitem_prj_id = prj.prj_id))) LEFT JOIN public.expcat ON ((poitem.poitem_expcat_id = expcat.expcat_id))) LEFT JOIN public.itemsite ON ((poitem.poitem_itemsite_id = itemsite.itemsite_id))) LEFT JOIN public.item ON ((itemsite.itemsite_item_id = item.item_id))) LEFT JOIN public.whsinfo ON ((itemsite.itemsite_warehous_id = whsinfo.warehous_id))) LEFT JOIN public.coitem ON (((coitem.coitem_id = poitem.poitem_order_id) AND (poitem.poitem_order_type = 'S'::bpchar)))) LEFT JOIN public.womatl ON (((womatl.womatl_id = poitem.poitem_order_id) AND (poitem.poitem_order_type = 'W'::bpchar)))) ORDER BY pohead.pohead_number, poitem.poitem_linenumber;
ALTER TABLE api.purchaseline OWNER TO admin;
--
-- Name: VIEW purchaseline; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW purchaseline IS 'Purchase Order Line';
--
-- Name: purchaselinechar; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW purchaselinechar AS
SELECT (data.order_number)::character varying AS order_number, data.line_number, data.characteristic, COALESCE(pi.charass_value, i3.charass_value) AS value FROM (((((SELECT DISTINCT "char".char_id, poitem.poitem_id, poitem.poitem_itemsite_id, pohead.pohead_number AS order_number, poitem.poitem_linenumber AS line_number, "char".char_name AS characteristic FROM public.pohead, public.poitem, public.itemsite, public.item, public.charass, public."char" WHERE ((((((pohead.pohead_id = poitem.poitem_pohead_id) AND (poitem.poitem_itemsite_id = itemsite.itemsite_id)) AND (itemsite.itemsite_item_id = item.item_id)) AND (charass.charass_char_id = "char".char_id)) AND (charass.charass_target_type = 'I'::text)) AND (charass.charass_target_id = item.item_id))) data LEFT JOIN public.charass pi ON ((((data.poitem_id = pi.charass_target_id) AND ('PI'::text = pi.charass_target_type)) AND (pi.charass_char_id = data.char_id)))) LEFT JOIN public.itemsite i1 ON ((data.poitem_itemsite_id = i1.itemsite_id))) LEFT JOIN public.item i2 ON ((i1.itemsite_item_id = i2.item_id))) LEFT JOIN public.charass i3 ON (((((i2.item_id = i3.charass_target_id) AND ('I'::text = i3.charass_target_type)) AND (i3.charass_char_id = data.char_id)) AND i3.charass_default))) ORDER BY (data.order_number)::character varying, data.line_number, data.characteristic;
ALTER TABLE api.purchaselinechar OWNER TO admin;
--
-- Name: VIEW purchaselinechar; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW purchaselinechar IS 'Purchase Order Line Item Characteristic';
--
-- Name: purchaselinecomment; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW purchaselinecomment AS
SELECT (pohead.pohead_number)::character varying AS order_number, poitem.poitem_linenumber AS line_number, cmnttype.cmnttype_name AS type, comment.comment_date AS date, comment.comment_user AS username, comment.comment_text AS text FROM public.pohead, public.poitem, public.cmnttype, public.comment WHERE ((((pohead.pohead_id = poitem.poitem_pohead_id) AND (comment.comment_source = 'PI'::text)) AND (comment.comment_source_id = poitem.poitem_id)) AND (comment.comment_cmnttype_id = cmnttype.cmnttype_id)) ORDER BY pohead.pohead_number, poitem.poitem_linenumber, comment.comment_date DESC;
ALTER TABLE api.purchaselinecomment OWNER TO admin;
--
-- Name: VIEW purchaselinecomment; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW purchaselinecomment IS 'Purchase Order Line Item Comment';
SET search_path = public, pg_catalog;
--
-- Name: tax; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE tax (
tax_id integer DEFAULT nextval(('"tax_tax_id_seq"'::text)::regclass) NOT NULL,
tax_code text NOT NULL,
tax_descrip text,
tax_sales_accnt_id integer,
tax_taxclass_id integer,
tax_taxauth_id integer,
tax_basis_tax_id integer,
CONSTRAINT tax_tax_code_check CHECK ((tax_code <> ''::text))
);
ALTER TABLE public.tax OWNER TO admin;
--
-- Name: TABLE tax; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE tax IS 'Tax information';
--
-- Name: COLUMN tax.tax_sales_accnt_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN tax.tax_sales_accnt_id IS 'Deprecated column - DO NOT USE';
--
-- Name: vendaddrinfo; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE vendaddrinfo (
vendaddr_id integer DEFAULT nextval(('vendaddr_vendaddr_id_seq'::text)::regclass) NOT NULL,
vendaddr_vend_id integer,
vendaddr_code text,
vendaddr_name text,
vendaddr_comments text,
vendaddr_cntct_id integer,
vendaddr_addr_id integer,
vendaddr_taxzone_id integer
);
ALTER TABLE public.vendaddrinfo OWNER TO admin;
--
-- Name: TABLE vendaddrinfo; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE vendaddrinfo IS 'Vendor Address information';
SET search_path = api, pg_catalog;
--
-- Name: purchaseorder; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW purchaseorder AS
SELECT (pohead.pohead_number)::character varying AS order_number, pohead.pohead_orderdate AS order_date, terms.terms_code AS terms, taxzone.taxzone_code AS tax_zone, whsinfo.warehous_code AS receiving_site, pohead.pohead_agent_username AS purchasing_agent, vendinfo.vend_number AS vendor_number, COALESCE(ua.vendaddr_code, 'MAIN'::text) AS alt_address, pohead.pohead_fob AS fob, pohead.pohead_shipvia AS ship_via, curr_symbol.curr_abbr AS currency, (SELECT COALESCE(sum(data.tax), 0.00) AS tax FROM (SELECT round(sum(calculatetaxdetailsummary.taxdetail_tax), 2) AS tax FROM (public.tax JOIN public.calculatetaxdetailsummary('PO'::text, pohead.pohead_id, 'T'::text) calculatetaxdetailsummary(taxdetail_tax_id, taxdetail_tax_code, taxdetail_tax_descrip, taxdetail_tax_basis_tax_id, taxdetail_taxrate_percent, taxdetail_taxrate_amount, taxdetail_level, taxdetail_taxclass_id, taxdetail_taxclass_code, taxdetail_taxclass_sequence, taxdetail_tax, taxdetail_curr_id, taxdetail_curr_abbr) ON ((calculatetaxdetailsummary.taxdetail_tax_id = tax.tax_id))) GROUP BY tax.tax_id) data) AS tax, pohead.pohead_freight AS freight, pohead.pohead_comments AS notes, pohead.pohead_dropship AS dropship, vc.cntct_number AS vend_contact_number, pohead.pohead_vend_cntct_honorific AS vend_cntct_honorific, pohead.pohead_vend_cntct_first_name AS vend_cntct_first_name, pohead.pohead_vend_cntct_middle AS vend_cntct_middle, pohead.pohead_vend_cntct_last_name AS vend_cntct_last_name, pohead.pohead_vend_cntct_suffix AS vend_cntct_suffix, pohead.pohead_vend_cntct_phone AS vend_cntct_phone, pohead.pohead_vend_cntct_title AS vend_cntct_title, pohead.pohead_vend_cntct_fax AS vend_cntct_fax, pohead.pohead_vend_cntct_email AS vend_cntct_email, pohead.pohead_vendaddress1 AS vendaddress1, pohead.pohead_vendaddress2 AS vendaddress2, pohead.pohead_vendaddress3 AS vendaddress3, pohead.pohead_vendcity AS vendcity, pohead.pohead_vendstate AS vendstate, pohead.pohead_vendzipcode AS vendzipcode, pohead.pohead_vendcountry AS vendcountry, sc.cntct_number AS shipto_contact_number, pohead.pohead_shipto_cntct_honorific AS shipto_cntct_honorific, pohead.pohead_shipto_cntct_first_name AS shipto_cntct_first_name, pohead.pohead_shipto_cntct_middle AS shipto_cntct_middle, pohead.pohead_shipto_cntct_last_name AS shipto_cntct_last_name, pohead.pohead_shipto_cntct_suffix AS shipto_cntct_suffix, pohead.pohead_shipto_cntct_phone AS shipto_cntct_phone, pohead.pohead_shipto_cntct_title AS shipto_cntct_title, pohead.pohead_shipto_cntct_fax AS shipto_cntct_fax, pohead.pohead_shipto_cntct_email AS shipto_cntct_email, addr.addr_number AS shiptoaddress_number, pohead.pohead_shiptoaddress1 AS shiptoaddress1, pohead.pohead_shiptoaddress2 AS shiptoaddress2, pohead.pohead_shiptoaddress3 AS shiptoaddress3, pohead.pohead_shiptocity AS shiptocity, pohead.pohead_shiptostate AS shiptostate, pohead.pohead_shiptozipcode AS shiptozipcode, pohead.pohead_shiptocountry AS shiptocountry, cohead.cohead_number AS sales_order_number FROM ((((((((((public.pohead LEFT JOIN public.cntct vc ON ((pohead.pohead_vend_cntct_id = vc.cntct_id))) LEFT JOIN public.cntct sc ON ((pohead.pohead_shipto_cntct_id = sc.cntct_id))) LEFT JOIN public.addr ON ((pohead.pohead_shiptoaddress_id = addr.addr_id))) LEFT JOIN public.terms ON ((pohead.pohead_terms_id = terms.terms_id))) LEFT JOIN public.taxzone ON ((pohead.pohead_taxzone_id = taxzone.taxzone_id))) LEFT JOIN public.whsinfo ON ((pohead.pohead_warehous_id = whsinfo.warehous_id))) LEFT JOIN public.vendaddrinfo ua ON ((pohead.pohead_vendaddr_id = ua.vendaddr_id))) LEFT JOIN public.cohead ON ((pohead.pohead_cohead_id = cohead.cohead_id))) JOIN public.vendinfo ON ((pohead.pohead_vend_id = vendinfo.vend_id))) JOIN public.curr_symbol ON ((pohead.pohead_curr_id = curr_symbol.curr_id))) ORDER BY pohead.pohead_number;
ALTER TABLE api.purchaseorder OWNER TO admin;
--
-- Name: VIEW purchaseorder; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW purchaseorder IS 'Purchase Order';
--
-- Name: purchaseordercomment; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW purchaseordercomment AS
SELECT (pohead.pohead_number)::character varying AS order_number, cmnttype.cmnttype_name AS type, comment.comment_date AS date, comment.comment_user AS username, comment.comment_text AS text FROM public.pohead, public.cmnttype, public.comment WHERE (((comment.comment_source = 'P'::text) AND (comment.comment_source_id = pohead.pohead_id)) AND (comment.comment_cmnttype_id = cmnttype.cmnttype_id));
ALTER TABLE api.purchaseordercomment OWNER TO admin;
--
-- Name: VIEW purchaseordercomment; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW purchaseordercomment IS 'Purchase Order Comment';
SET search_path = public, pg_catalog;
--
-- Name: quhead; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE quhead (
quhead_id integer DEFAULT nextval(('"quhead_quhead_id_seq"'::text)::regclass) NOT NULL,
quhead_number text NOT NULL,
quhead_cust_id integer NOT NULL,
quhead_quotedate date,
quhead_shipto_id integer,
quhead_shiptoname text,
quhead_shiptoaddress1 text,
quhead_shiptoaddress2 text,
quhead_shiptoaddress3 text,
quhead_shiptocity text,
quhead_shiptostate text,
quhead_shiptozipcode text,
quhead_shiptophone text,
quhead_salesrep_id integer,
quhead_terms_id integer,
quhead_freight numeric(16,4),
quhead_ordercomments text,
quhead_shipcomments text,
quhead_billtoname text,
quhead_billtoaddress1 text,
quhead_billtoaddress2 text,
quhead_billtoaddress3 text,
quhead_billtocity text,
quhead_billtostate text,
quhead_billtozip text,
quhead_commission numeric(16,4),
quhead_custponumber text,
quhead_fob text,
quhead_shipvia text,
quhead_warehous_id integer,
quhead_packdate date,
quhead_prj_id integer,
quhead_misc numeric(16,4) DEFAULT 0 NOT NULL,
quhead_misc_accnt_id integer,
quhead_misc_descrip text,
quhead_billtocountry text,
quhead_shiptocountry text,
quhead_curr_id integer DEFAULT basecurrid(),
quhead_imported boolean DEFAULT false,
quhead_expire date,
quhead_calcfreight boolean DEFAULT false NOT NULL,
quhead_shipto_cntct_id integer,
quhead_shipto_cntct_honorific text,
quhead_shipto_cntct_first_name text,
quhead_shipto_cntct_middle text,
quhead_shipto_cntct_last_name text,
quhead_shipto_cntct_suffix text,
quhead_shipto_cntct_phone text,
quhead_shipto_cntct_title text,
quhead_shipto_cntct_fax text,
quhead_shipto_cntct_email text,
quhead_billto_cntct_id integer,
quhead_billto_cntct_honorific text,
quhead_billto_cntct_first_name text,
quhead_billto_cntct_middle text,
quhead_billto_cntct_last_name text,
quhead_billto_cntct_suffix text,
quhead_billto_cntct_phone text,
quhead_billto_cntct_title text,
quhead_billto_cntct_fax text,
quhead_billto_cntct_email text,
quhead_taxzone_id integer,
quhead_taxtype_id integer,
quhead_ophead_id integer,
quhead_status text,
quhead_saletype_id integer,
quhead_shipzone_id integer,
CONSTRAINT quhead_check CHECK ((((quhead_misc = (0)::numeric) AND (quhead_misc_accnt_id IS NULL)) OR ((quhead_misc <> (0)::numeric) AND (quhead_misc_accnt_id IS NOT NULL)))),
CONSTRAINT quhead_quhead_number_check CHECK ((quhead_number <> ''::text)),
CONSTRAINT quhead_quhead_status_check CHECK ((((quhead_status = 'O'::text) OR (quhead_status = 'C'::text)) OR (quhead_status = 'X'::text)))
);
ALTER TABLE public.quhead OWNER TO admin;
--
-- Name: TABLE quhead; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE quhead IS 'Quote header information';
--
-- Name: COLUMN quhead.quhead_saletype_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN quhead.quhead_saletype_id IS 'Associated sale type for quote.';
--
-- Name: COLUMN quhead.quhead_shipzone_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN quhead.quhead_shipzone_id IS 'Associated shipping zone for quote.';
SET search_path = api, pg_catalog;
--
-- Name: quote; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW quote AS
SELECT (quhead.quhead_number)::character varying AS quote_number, whsinfo.warehous_code AS site, quhead.quhead_quotedate AS quote_date, quhead.quhead_packdate AS pack_date, saletype.saletype_code AS sale_type, salesrep.salesrep_number AS sales_rep, quhead.quhead_commission AS commission, taxzone.taxzone_code AS tax_zone, taxtype.taxtype_name AS tax_type, terms.terms_code AS terms, prj.prj_number AS project_number, COALESCE(custinfo.cust_number, prospect.prospect_number) AS customer_number, quhead.quhead_billtoname AS billto_name, quhead.quhead_billtoaddress1 AS billto_address1, quhead.quhead_billtoaddress2 AS billto_address2, quhead.quhead_billtoaddress3 AS billto_address3, quhead.quhead_billtocity AS billto_city, quhead.quhead_billtostate AS billto_state, quhead.quhead_billtozip AS billto_postal_code, quhead.quhead_billtocountry AS billto_country, shiptoinfo.shipto_num AS shipto_number, quhead.quhead_shiptoname AS shipto_name, quhead.quhead_shiptophone AS shipto_phone, quhead.quhead_shiptoaddress1 AS shipto_address1, quhead.quhead_shiptoaddress2 AS shipto_address2, quhead.quhead_shiptoaddress3 AS shipto_address3, quhead.quhead_shiptocity AS shipto_city, quhead.quhead_shiptostate AS shipto_state, quhead.quhead_shiptozipcode AS shipto_postal_code, quhead.quhead_shiptocountry AS shipto_country, shipzone.shipzone_name AS shipto_shipzone, quhead.quhead_custponumber AS cust_po_number, quhead.quhead_fob AS fob, quhead.quhead_shipvia AS ship_via, curr_symbol.curr_abbr AS currency, quhead.quhead_misc_descrip AS misc_charge_description, CASE WHEN (quhead.quhead_misc_accnt_id IS NULL) THEN NULL::text ELSE public.formatglaccount(quhead.quhead_misc_accnt_id) END AS misc_account_number, quhead.quhead_misc AS misc_charge, quhead.quhead_freight AS freight, quhead.quhead_ordercomments AS order_notes, quhead.quhead_shipcomments AS shipping_notes, false AS add_to_packing_list_batch, quhead.quhead_expire AS expire_date, CASE WHEN (quhead.quhead_status = 'C'::text) THEN 'Converted'::text ELSE 'Open'::text END AS status FROM public.curr_symbol, (((((((((((public.quhead LEFT JOIN public.whsinfo ON ((quhead.quhead_warehous_id = whsinfo.warehous_id))) LEFT JOIN public.prj ON ((quhead.quhead_prj_id = prj.prj_id))) LEFT JOIN public.shiptoinfo ON ((quhead.quhead_shipto_id = shiptoinfo.shipto_id))) LEFT JOIN public.taxzone ON ((quhead.quhead_taxzone_id = taxzone.taxzone_id))) LEFT JOIN public.taxtype ON ((quhead.quhead_taxtype_id = taxtype.taxtype_id))) LEFT JOIN public.custinfo ON ((quhead.quhead_cust_id = custinfo.cust_id))) LEFT JOIN public.prospect ON ((quhead.quhead_cust_id = prospect.prospect_id))) LEFT JOIN public.salesrep ON ((quhead.quhead_salesrep_id = salesrep.salesrep_id))) LEFT JOIN public.terms ON ((quhead.quhead_terms_id = terms.terms_id))) LEFT JOIN public.saletype ON ((quhead.quhead_saletype_id = saletype.saletype_id))) LEFT JOIN public.shipzone ON ((quhead.quhead_shipzone_id = shipzone.shipzone_id))) WHERE (quhead.quhead_curr_id = curr_symbol.curr_id);
ALTER TABLE api.quote OWNER TO admin;
--
-- Name: VIEW quote; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW quote IS 'Quote';
--
-- Name: quotecomment; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW quotecomment AS
SELECT quhead.quhead_number AS quote_number, cmnttype.cmnttype_name AS type, comment.comment_date AS date, comment.comment_user AS username, comment.comment_text AS text FROM public.quhead, public.cmnttype, public.comment WHERE (((comment.comment_source = 'Q'::text) AND (comment.comment_source_id = quhead.quhead_id)) AND (comment.comment_cmnttype_id = cmnttype.cmnttype_id));
ALTER TABLE api.quotecomment OWNER TO admin;
--
-- Name: VIEW quotecomment; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW quotecomment IS 'Quote Comment';
SET search_path = public, pg_catalog;
--
-- Name: quitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE quitem (
quitem_id integer DEFAULT nextval(('"quitem_quitem_id_seq"'::text)::regclass) NOT NULL,
quitem_quhead_id integer,
quitem_linenumber integer,
quitem_itemsite_id integer,
quitem_scheddate date,
quitem_qtyord numeric(18,6),
quitem_unitcost numeric(16,6),
quitem_price numeric(16,4),
quitem_custprice numeric(16,4),
quitem_memo text,
quitem_custpn text,
quitem_createorder boolean,
quitem_order_warehous_id integer,
quitem_item_id integer,
quitem_prcost numeric(16,6),
quitem_imported boolean DEFAULT false,
quitem_qty_uom_id integer NOT NULL,
quitem_qty_invuomratio numeric(20,10) NOT NULL,
quitem_price_uom_id integer NOT NULL,
quitem_price_invuomratio numeric(20,10) NOT NULL,
quitem_promdate date,
quitem_taxtype_id integer,
quitem_dropship boolean DEFAULT false,
quitem_itemsrc_id integer,
quitem_pricemode character(1) DEFAULT 'D'::bpchar NOT NULL,
CONSTRAINT valid_quitem_pricemode CHECK ((quitem_pricemode = ANY (ARRAY['D'::bpchar, 'M'::bpchar])))
);
ALTER TABLE public.quitem OWNER TO admin;
--
-- Name: TABLE quitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE quitem IS 'Quote Line Item information';
--
-- Name: COLUMN quitem.quitem_pricemode; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN quitem.quitem_pricemode IS 'Pricing mode for quote item. Valid values are D-discount, and M-markup';
SET search_path = api, pg_catalog;
--
-- Name: quoteline; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW quoteline AS
SELECT quhead.quhead_number AS quote_number, quitem.quitem_linenumber AS line_number, l.item_number, quitem.quitem_custpn AS customer_pn, i.warehous_code AS sold_from_site, quitem.quitem_qtyord AS qty_ordered, q.uom_name AS qty_uom, quitem.quitem_price AS net_unit_price, p.uom_name AS price_uom, quitem.quitem_scheddate AS scheduled_date, COALESCE((SELECT taxtype.taxtype_name FROM public.taxtype WHERE (taxtype.taxtype_id = public.getitemtaxtype(l.item_id, quhead.quhead_taxzone_id))), 'None'::text) AS tax_type, CASE WHEN (quitem.quitem_price = (0)::numeric) THEN '100'::text WHEN (quitem.quitem_custprice = (0)::numeric) THEN 'N/A'::text ELSE (round((((1)::numeric - (quitem.quitem_price / quitem.quitem_custprice)) * (100)::numeric), 4))::text END AS discount_pct_from_list, quitem.quitem_createorder AS create_order, s.warehous_code AS supplying_site, quitem.quitem_prcost AS overwrite_po_price, quitem.quitem_memo AS notes FROM public.quhead, public.uom q, public.uom p, (public.quitem LEFT JOIN public.whsinfo s ON ((quitem.quitem_order_warehous_id = s.warehous_id))), public.itemsite il, public.item l, public.whsinfo i WHERE ((((((quhead.quhead_id = quitem.quitem_quhead_id) AND (quitem.quitem_itemsite_id = il.itemsite_id)) AND (il.itemsite_item_id = l.item_id)) AND (il.itemsite_warehous_id = i.warehous_id)) AND (quitem.quitem_qty_uom_id = q.uom_id)) AND (quitem.quitem_price_uom_id = p.uom_id)) ORDER BY quhead.quhead_number, quitem.quitem_linenumber;
ALTER TABLE api.quoteline OWNER TO admin;
--
-- Name: VIEW quoteline; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW quoteline IS 'Quote Line Item';
--
-- Name: quotelinechar; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW quotelinechar AS
SELECT DISTINCT quhead.quhead_number AS quote_number, quitem.quitem_linenumber AS line_number, "char".char_name AS characteristic, COALESCE((SELECT b.charass_value FROM public.charass b WHERE (((b.charass_target_type = 'QI'::text) AND (b.charass_target_id = quitem.quitem_id)) AND (b.charass_char_id = "char".char_id))), (SELECT c.charass_value FROM public.charass c WHERE ((((c.charass_target_type = 'I'::text) AND (c.charass_target_id = item.item_id)) AND c.charass_default) AND (c.charass_char_id = "char".char_id)) LIMIT 1)) AS value FROM public.quhead, public.quitem, public.itemsite, public.item, public.charass a, public."char" WHERE ((((((quhead.quhead_id = quitem.quitem_quhead_id) AND (quitem.quitem_itemsite_id = itemsite.itemsite_id)) AND (itemsite.itemsite_item_id = item.item_id)) AND (a.charass_char_id = "char".char_id)) AND (a.charass_target_type = 'I'::text)) AND (a.charass_target_id = item.item_id)) ORDER BY quhead.quhead_number, quitem.quitem_linenumber, "char".char_name;
ALTER TABLE api.quotelinechar OWNER TO admin;
--
-- Name: VIEW quotelinechar; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW quotelinechar IS 'Quote Line Item Characteristics';
--
-- Name: quotelinecomment; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW quotelinecomment AS
SELECT quhead.quhead_number AS quote_number, quitem.quitem_linenumber AS line_number, cmnttype.cmnttype_name AS type, comment.comment_date AS date, comment.comment_user AS username, comment.comment_text AS text FROM public.quhead, public.quitem, public.cmnttype, public.comment WHERE ((((quhead.quhead_id = quitem.quitem_quhead_id) AND (comment.comment_source = 'QI'::text)) AND (comment.comment_source_id = quitem.quitem_id)) AND (comment.comment_cmnttype_id = cmnttype.cmnttype_id)) ORDER BY quhead.quhead_number, quitem.quitem_linenumber, comment.comment_date DESC;
ALTER TABLE api.quotelinecomment OWNER TO admin;
--
-- Name: VIEW quotelinecomment; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW quotelinecomment IS 'Quote Line Item Comment';
SET search_path = public, pg_catalog;
--
-- Name: aropenalloc; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE aropenalloc (
aropenalloc_aropen_id integer NOT NULL,
aropenalloc_doctype character(1) NOT NULL,
aropenalloc_doc_id integer NOT NULL,
aropenalloc_amount numeric(20,2) DEFAULT 0.00 NOT NULL,
aropenalloc_curr_id integer DEFAULT basecurrid()
);
ALTER TABLE public.aropenalloc OWNER TO admin;
SET search_path = api, pg_catalog;
--
-- Name: salescredit; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW salescredit AS
SELECT custinfo.cust_number AS customer_number, aropen.aropen_docnumber AS cm_number, cohead.cohead_number AS so_number, (aropenalloc.aropenalloc_amount)::numeric(16,4) AS amount, curr.curr_abbr AS currency FROM ((((public.aropenalloc LEFT JOIN public.aropen ON ((aropen.aropen_id = aropenalloc.aropenalloc_aropen_id))) LEFT JOIN public.custinfo ON ((custinfo.cust_id = aropen.aropen_cust_id))) LEFT JOIN public.cohead ON (((aropenalloc.aropenalloc_doctype = 'S'::bpchar) AND (cohead.cohead_id = aropenalloc.aropenalloc_doc_id)))) LEFT JOIN public.curr_symbol curr ON ((curr.curr_id = aropenalloc.aropenalloc_curr_id))) WHERE (aropenalloc.aropenalloc_doctype = 'S'::bpchar);
ALTER TABLE api.salescredit OWNER TO admin;
--
-- Name: VIEW salescredit; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW salescredit IS 'Payments (credit memos) pre-applied to sales orders';
SET search_path = public, pg_catalog;
--
-- Name: cohist; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cohist (
cohist_id integer DEFAULT nextval(('cohist_cohist_id_seq'::text)::regclass) NOT NULL,
cohist_cust_id integer,
cohist_itemsite_id integer,
cohist_shipdate date,
cohist_shipvia text,
cohist_ordernumber text,
cohist_orderdate date,
cohist_invcnumber text,
cohist_invcdate date,
cohist_qtyshipped numeric(18,6),
cohist_unitprice numeric(16,4),
cohist_shipto_id integer,
cohist_salesrep_id integer,
cohist_duedate date,
cohist_imported boolean DEFAULT false,
cohist_billtoname text,
cohist_billtoaddress1 text,
cohist_billtoaddress2 text,
cohist_billtoaddress3 text,
cohist_billtocity text,
cohist_billtostate text,
cohist_billtozip text,
cohist_shiptoname text,
cohist_shiptoaddress1 text,
cohist_shiptoaddress2 text,
cohist_shiptoaddress3 text,
cohist_shiptocity text,
cohist_shiptostate text,
cohist_shiptozip text,
cohist_commission numeric(16,4),
cohist_commissionpaid boolean,
cohist_unitcost numeric(18,6),
cohist_misc_type character(1),
cohist_misc_descrip text,
cohist_misc_id integer,
cohist_doctype text,
cohist_promisedate date,
cohist_ponumber text,
cohist_curr_id integer DEFAULT basecurrid(),
cohist_sequence integer,
cohist_taxtype_id integer,
cohist_taxzone_id integer,
cohist_cohead_ccpay_id integer,
cohist_saletype_id integer,
cohist_shipzone_id integer
);
ALTER TABLE public.cohist OWNER TO admin;
--
-- Name: TABLE cohist; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE cohist IS 'Sales Order history';
--
-- Name: COLUMN cohist.cohist_cohead_ccpay_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN cohist.cohist_cohead_ccpay_id IS 'Credit card payments made at sales order time (as opposed to invoice time) need special treatment. This field allows checking for this case.';
--
-- Name: COLUMN cohist.cohist_saletype_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN cohist.cohist_saletype_id IS 'Associated sale type for sales history.';
--
-- Name: COLUMN cohist.cohist_shipzone_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN cohist.cohist_shipzone_id IS 'Associated shipping zone for sales history.';
--
-- Name: taxhist; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE taxhist (
taxhist_id integer NOT NULL,
taxhist_parent_id integer NOT NULL,
taxhist_taxtype_id integer,
taxhist_tax_id integer NOT NULL,
taxhist_basis numeric(16,2) NOT NULL,
taxhist_basis_tax_id integer,
taxhist_sequence integer,
taxhist_percent numeric(10,6) NOT NULL,
taxhist_amount numeric(16,2) NOT NULL,
taxhist_tax numeric(16,6) NOT NULL,
taxhist_docdate date NOT NULL,
taxhist_distdate date,
taxhist_curr_id integer,
taxhist_curr_rate numeric,
taxhist_journalnumber integer
);
ALTER TABLE public.taxhist OWNER TO admin;
--
-- Name: TABLE taxhist; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE taxhist IS 'A table type to record tax transaction history. Inherited by other tables that actually record history. As the parent, queries can be run against it that will join all child tables. ';
--
-- Name: COLUMN taxhist.taxhist_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxhist.taxhist_id IS 'Primary key';
--
-- Name: COLUMN taxhist.taxhist_parent_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxhist.taxhist_parent_id IS 'Source parent id.';
--
-- Name: COLUMN taxhist.taxhist_taxtype_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxhist.taxhist_taxtype_id IS 'Tax type id';
--
-- Name: COLUMN taxhist.taxhist_tax_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxhist.taxhist_tax_id IS 'Tax code id.';
--
-- Name: COLUMN taxhist.taxhist_basis; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxhist.taxhist_basis IS 'Base price amount on which the tax calculation is based.';
--
-- Name: COLUMN taxhist.taxhist_basis_tax_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxhist.taxhist_basis_tax_id IS 'Tax rate calculation basis. If null, then the amount of the parent document, otherwise calculated on the result amount of the tax code id referenced.';
--
-- Name: COLUMN taxhist.taxhist_amount; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxhist.taxhist_amount IS 'Flat tax amount.';
--
-- Name: COLUMN taxhist.taxhist_tax; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxhist.taxhist_tax IS 'Calculated tax amount.';
--
-- Name: COLUMN taxhist.taxhist_docdate; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxhist.taxhist_docdate IS 'The date of the parent document.';
--
-- Name: COLUMN taxhist.taxhist_distdate; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxhist.taxhist_distdate IS 'The G/L distribution date of the parent document.';
--
-- Name: taxhist_taxhist_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE taxhist_taxhist_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.taxhist_taxhist_id_seq OWNER TO admin;
--
-- Name: taxhist_taxhist_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE taxhist_taxhist_id_seq OWNED BY taxhist.taxhist_id;
--
-- Name: taxhist_taxhist_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('taxhist_taxhist_id_seq', 1, false);
--
-- Name: cohisttax; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cohisttax (
)
INHERITS (taxhist);
ALTER TABLE public.cohisttax OWNER TO admin;
SET search_path = api, pg_catalog;
--
-- Name: saleshistory; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW saleshistory AS
SELECT custinfo.cust_number AS customer_number, item.item_number, whsinfo.warehous_code AS site_code, cohist.cohist_shipdate AS ship_date, cohist.cohist_shipvia AS ship_via, cohist.cohist_ordernumber AS order_number, cohist.cohist_ponumber AS purchase_order_number, cohist.cohist_orderdate AS order_date, cohist.cohist_invcnumber AS invoice_number, cohist.cohist_invcdate AS invoice_date, cohist.cohist_qtyshipped AS quantity_shipped, cohist.cohist_unitprice AS unit_price, shiptoinfo.shipto_num AS shipto_number, salesrep.salesrep_number AS sales_rep, cohist.cohist_duedate AS due_date, cohist.cohist_promisedate AS promise_date, cohist.cohist_imported AS imported, cohist.cohist_billtoname AS billto_name, cohist.cohist_billtoaddress1 AS billto_address1, cohist.cohist_billtoaddress2 AS billto_address2, cohist.cohist_billtoaddress3 AS billto_address3, cohist.cohist_billtocity AS billto_city, cohist.cohist_billtostate AS billto_state, cohist.cohist_billtozip AS billto_zip, cohist.cohist_shiptoname AS shipto_name, cohist.cohist_shiptoaddress1 AS shipto_address1, cohist.cohist_shiptoaddress2 AS shipto_address2, cohist.cohist_shiptoaddress3 AS shipto_address3, cohist.cohist_shiptocity AS shipto_city, cohist.cohist_shiptostate AS shipto_state, cohist.cohist_shiptozip AS shipto_zip, cohist.cohist_commission AS commission, cohist.cohist_commissionpaid AS commission_paid, cohist.cohist_unitcost AS unit_cost, CASE WHEN (cohist.cohist_misc_type IS NULL) THEN ''::text WHEN (cohist.cohist_misc_type = 'M'::bpchar) THEN 'Misc. Charge'::text WHEN (cohist.cohist_misc_type = 'F'::bpchar) THEN 'Freight'::text ELSE 'Unknown'::text END AS misc_type, cohist.cohist_misc_descrip AS misc_description, CASE WHEN (cohist.cohist_misc_id IS NULL) THEN ''::text WHEN (cohist.cohist_misc_type = 'M'::bpchar) THEN public.formatglaccount(cohist.cohist_misc_id) ELSE 'Unknown'::text END AS misc_info, taxzone.taxzone_code AS tax_zone, taxtype.taxtype_name AS tax_type, CASE WHEN (cohist.cohist_doctype = 'I'::text) THEN 'Invoice'::text WHEN (cohist.cohist_doctype = 'C'::text) THEN 'Credit Memo'::text ELSE 'Unknown'::text END AS document_type, curr_symbol.curr_abbr AS currency, cohist.cohist_sequence AS gl_sequence, (SELECT sum(cohisttax.taxhist_tax) AS sum FROM public.cohisttax WHERE (cohisttax.taxhist_parent_id = cohist.cohist_id)) AS tax FROM (((((((((public.cohist LEFT JOIN public.custinfo ON ((cohist.cohist_cust_id = custinfo.cust_id))) LEFT JOIN public.shiptoinfo ON ((cohist.cohist_shipto_id = shiptoinfo.shipto_id))) LEFT JOIN public.taxzone ON ((cohist.cohist_taxzone_id = taxzone.taxzone_id))) LEFT JOIN public.taxtype ON ((cohist.cohist_taxtype_id = taxtype.taxtype_id))) LEFT JOIN public.salesrep ON ((cohist.cohist_salesrep_id = salesrep.salesrep_id))) LEFT JOIN public.itemsite ON ((cohist.cohist_itemsite_id = itemsite.itemsite_id))) LEFT JOIN public.item ON ((itemsite.itemsite_item_id = item.item_id))) LEFT JOIN public.whsinfo ON ((itemsite.itemsite_warehous_id = whsinfo.warehous_id))) LEFT JOIN public.curr_symbol ON ((cohist.cohist_curr_id = curr_symbol.curr_id)));
ALTER TABLE api.saleshistory OWNER TO admin;
--
-- Name: VIEW saleshistory; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW saleshistory IS 'Sales History';
--
-- Name: saleslinechar; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW saleslinechar AS
SELECT (data.order_number)::character varying AS order_number, data.line_number, data.characteristic, COALESCE(si.charass_value, i3.charass_value) AS value, (COALESCE(si.charass_price, public.itemcharprice(data.item_id, data.char_id, COALESCE(si.charass_value, i3.charass_value), data.cohead_cust_id, data.cohead_shipto_id, data.coitem_qtyord, data.cohead_curr_id, data.cohead_orderdate), (0)::numeric))::numeric(16,4) AS price FROM (((((SELECT DISTINCT cohead.cohead_cust_id, cohead.cohead_shipto_id, cohead.cohead_curr_id, cohead.cohead_orderdate, coitem.coitem_id, coitem.coitem_itemsite_id, coitem.coitem_qtyord, "char".char_id, item.item_id, cohead.cohead_number AS order_number, CASE WHEN (coitem.coitem_subnumber = 0) THEN ((coitem.coitem_linenumber)::character varying)::text ELSE ((((coitem.coitem_linenumber)::character varying)::text || ('.'::character varying)::text) || ((coitem.coitem_subnumber)::character varying)::text) END AS line_number, "char".char_name AS characteristic FROM public.cohead, public.coitem, public.itemsite, public.item, public.charass, public."char" WHERE ((((((cohead.cohead_id = coitem.coitem_cohead_id) AND (coitem.coitem_itemsite_id = itemsite.itemsite_id)) AND (itemsite.itemsite_item_id = item.item_id)) AND (charass.charass_char_id = "char".char_id)) AND (charass.charass_target_type = 'I'::text)) AND (charass.charass_target_id = item.item_id))) data LEFT JOIN public.charass si ON ((((data.coitem_id = si.charass_target_id) AND ('SI'::text = si.charass_target_type)) AND (si.charass_char_id = data.char_id)))) LEFT JOIN public.itemsite i1 ON ((data.coitem_itemsite_id = i1.itemsite_id))) LEFT JOIN public.item i2 ON ((i1.itemsite_item_id = i2.item_id))) LEFT JOIN public.charass i3 ON (((((i2.item_id = i3.charass_target_id) AND ('I'::text = i3.charass_target_type)) AND (i3.charass_char_id = data.char_id)) AND i3.charass_default))) ORDER BY (data.order_number)::character varying, data.line_number, data.characteristic;
ALTER TABLE api.saleslinechar OWNER TO admin;
--
-- Name: VIEW saleslinechar; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW saleslinechar IS 'Sales Order Line Item Characteristic';
--
-- Name: saleslinecomment; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW saleslinecomment AS
SELECT (cohead.cohead_number)::character varying AS order_number, CASE WHEN (coitem.coitem_subnumber = 0) THEN ((coitem.coitem_linenumber)::character varying)::text ELSE ((((coitem.coitem_linenumber)::character varying)::text || ('.'::character varying)::text) || ((coitem.coitem_subnumber)::character varying)::text) END AS line_number, cmnttype.cmnttype_name AS type, comment.comment_date AS date, comment.comment_user AS username, comment.comment_text AS text FROM public.cohead, public.coitem, public.cmnttype, public.comment WHERE ((((cohead.cohead_id = coitem.coitem_cohead_id) AND (comment.comment_source = 'SI'::text)) AND (comment.comment_source_id = coitem.coitem_id)) AND (comment.comment_cmnttype_id = cmnttype.cmnttype_id)) ORDER BY cohead.cohead_number, coitem.coitem_linenumber, comment.comment_date DESC;
ALTER TABLE api.saleslinecomment OWNER TO admin;
--
-- Name: VIEW saleslinecomment; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW saleslinecomment IS 'Sales Order Line Item Comment';
--
-- Name: salesorder; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW salesorder AS
SELECT (cohead.cohead_number)::character varying AS order_number, whsinfo.warehous_code AS site, cohead.cohead_orderdate AS order_date, cohead.cohead_packdate AS pack_date, saletype.saletype_code AS sale_type, salesrep.salesrep_number AS sales_rep, cohead.cohead_commission AS commission, COALESCE(taxzone.taxzone_code, 'None'::text) AS tax_zone, terms.terms_code AS terms, prj.prj_number AS project_number, custinfo.cust_number AS customer_number, bc.cntct_number AS billto_contact_number, cohead.cohead_billto_cntct_honorific AS billto_contact_name, cohead.cohead_billto_cntct_first_name AS billto_contact_first, cohead.cohead_billto_cntct_middle AS billto_contact_middle, cohead.cohead_billto_cntct_last_name AS billto_contact_last, cohead.cohead_billto_cntct_suffix AS billto_contact_suffix, cohead.cohead_billto_cntct_phone AS billto_contact_phone, cohead.cohead_billto_cntct_title AS billto_contact_title, cohead.cohead_billto_cntct_fax AS billto_contct_fax, cohead.cohead_billto_cntct_email AS billto_contact_email, cohead.cohead_billtoname AS billto_name, cohead.cohead_billtoaddress1 AS billto_address1, cohead.cohead_billtoaddress2 AS billto_address2, cohead.cohead_billtoaddress3 AS billto_address3, cohead.cohead_billtocity AS billto_city, cohead.cohead_billtostate AS billto_state, cohead.cohead_billtozipcode AS billto_postal_code, cohead.cohead_billtocountry AS billto_country, shiptoinfo.shipto_num AS shipto_number, sc.cntct_number AS shipto_contact_number, cohead.cohead_shipto_cntct_honorific AS shipto_contact_honorific, cohead.cohead_shipto_cntct_first_name AS shipto_contact_first, cohead.cohead_shipto_cntct_middle AS shipto_contact_middle, cohead.cohead_shipto_cntct_last_name AS shipto_contact_last, cohead.cohead_shipto_cntct_suffix AS shipto_contact_suffix, cohead.cohead_shipto_cntct_phone AS shipto_contact_phone, cohead.cohead_shipto_cntct_title AS shipto_contact_title, cohead.cohead_shipto_cntct_fax AS shipto_contact_fax, cohead.cohead_shipto_cntct_email AS shipto_contact_email, cohead.cohead_shiptoname AS shipto_name, cohead.cohead_shiptophone AS shipto_phone, cohead.cohead_shiptoaddress1 AS shipto_address1, cohead.cohead_shiptoaddress2 AS shipto_address2, cohead.cohead_shiptoaddress3 AS shipto_address3, cohead.cohead_shiptocity AS shipto_city, cohead.cohead_shiptostate AS shipto_state, cohead.cohead_shiptozipcode AS shipto_postal_code, cohead.cohead_shiptocountry AS shipto_country, shipzone.shipzone_name AS shipto_shipzone, cohead.cohead_custponumber AS cust_po_number, cohead.cohead_fob AS fob, cohead.cohead_shipvia AS ship_via, CASE WHEN (cohead.cohead_holdtype = 'N'::bpchar) THEN 'None'::text WHEN (cohead.cohead_holdtype = 'C'::bpchar) THEN 'Credit'::text WHEN (cohead.cohead_holdtype = 'S'::bpchar) THEN 'Shipping'::text WHEN (cohead.cohead_holdtype = 'P'::bpchar) THEN 'Packing'::text WHEN (cohead.cohead_holdtype = 'R'::bpchar) THEN 'Return'::text ELSE 'Error'::text END AS hold_type, shipchrg.shipchrg_name AS shipping_chgs, shipform.shipform_name AS shipping_form, cohead.cohead_shipcomplete AS ship_complete, curr_symbol.curr_abbr AS currency, cohead.cohead_misc_descrip AS misc_charge_description, CASE WHEN (cohead.cohead_misc_accnt_id IS NULL) THEN NULL::text ELSE public.formatglaccount(cohead.cohead_misc_accnt_id) END AS misc_account_number, cohead.cohead_misc AS misc_charge, cohead.cohead_freight AS freight, cohead.cohead_calcfreight AS calculate_freight, cohead.cohead_ordercomments AS order_notes, cohead.cohead_shipcomments AS shipping_notes, false AS add_to_packing_list_batch FROM (((((((((public.cohead LEFT JOIN public.cntct bc ON ((cohead.cohead_billto_cntct_id = bc.cntct_id))) LEFT JOIN public.cntct sc ON ((cohead.cohead_shipto_cntct_id = sc.cntct_id))) LEFT JOIN public.whsinfo ON ((cohead.cohead_warehous_id = whsinfo.warehous_id))) LEFT JOIN public.prj ON ((cohead.cohead_prj_id = prj.prj_id))) LEFT JOIN public.shiptoinfo ON ((cohead.cohead_shipto_id = shiptoinfo.shipto_id))) LEFT JOIN public.shipchrg ON ((cohead.cohead_shipchrg_id = shipchrg.shipchrg_id))) LEFT JOIN public.taxzone ON ((cohead.cohead_taxzone_id = taxzone.taxzone_id))) LEFT JOIN public.saletype ON ((cohead.cohead_saletype_id = saletype.saletype_id))) LEFT JOIN public.shipzone ON ((cohead.cohead_shipzone_id = shipzone.shipzone_id))), public.custinfo, public.shipform, public.salesrep, public.terms, public.curr_symbol WHERE (((((cohead.cohead_cust_id = custinfo.cust_id) AND (cohead.cohead_shipform_id = shipform.shipform_id)) AND (cohead.cohead_salesrep_id = salesrep.salesrep_id)) AND (cohead.cohead_terms_id = terms.terms_id)) AND (cohead.cohead_curr_id = curr_symbol.curr_id));
ALTER TABLE api.salesorder OWNER TO admin;
--
-- Name: VIEW salesorder; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW salesorder IS 'Sales Order';
--
-- Name: salesordercomment; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW salesordercomment AS
SELECT (cohead.cohead_number)::character varying AS order_number, cmnttype.cmnttype_name AS type, comment.comment_date AS date, comment.comment_user AS username, comment.comment_text AS text FROM public.cohead, public.cmnttype, public.comment WHERE (((comment.comment_source = 'S'::text) AND (comment.comment_source_id = cohead.cohead_id)) AND (comment.comment_cmnttype_id = cmnttype.cmnttype_id));
ALTER TABLE api.salesordercomment OWNER TO admin;
--
-- Name: VIEW salesordercomment; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW salesordercomment IS 'Sales Order Comment';
--
-- Name: salesrep; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW salesrep AS
SELECT (salesrep.salesrep_number)::character varying AS number, salesrep.salesrep_active AS active, salesrep.salesrep_name AS name, (salesrep.salesrep_commission * (100)::numeric) AS commission_percent, emp.emp_number AS employee FROM (public.salesrep LEFT JOIN public.emp ON ((emp.emp_id = salesrep.salesrep_emp_id))) ORDER BY salesrep.salesrep_number;
ALTER TABLE api.salesrep OWNER TO admin;
--
-- Name: VIEW salesrep; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW salesrep IS 'Sales Rep';
SET search_path = public, pg_catalog;
--
-- Name: shipvia; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE shipvia (
shipvia_id integer DEFAULT nextval(('shipvia_shipvia_id_seq'::text)::regclass) NOT NULL,
shipvia_code text NOT NULL,
shipvia_descrip text,
CONSTRAINT shipvia_shipvia_code_check CHECK ((shipvia_code <> ''::text))
);
ALTER TABLE public.shipvia OWNER TO admin;
--
-- Name: TABLE shipvia; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE shipvia IS 'Ship Via information';
--
-- Name: sitetype; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE sitetype (
sitetype_id integer NOT NULL,
sitetype_name text NOT NULL,
sitetype_descrip text,
CONSTRAINT sitetype_sitetype_name_check CHECK ((sitetype_name <> ''::text))
);
ALTER TABLE public.sitetype OWNER TO admin;
--
-- Name: TABLE sitetype; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE sitetype IS 'This table is the different types of sites.';
SET search_path = api, pg_catalog;
--
-- Name: site; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW site AS
SELECT (whsinfo.warehous_code)::character varying AS code, st.sitetype_name AS type, whsinfo.warehous_active AS active, whsinfo.warehous_descrip AS description, m.addr_number AS address_number, m.addr_line1 AS address1, m.addr_line2 AS address2, m.addr_line3 AS address3, m.addr_city AS city, m.addr_state AS state, m.addr_postalcode AS postal_code, m.addr_country AS country, ''::text AS address_change, c.cntct_number AS contact_number, c.cntct_honorific AS honorific, c.cntct_first_name AS first, c.cntct_middle AS middle, c.cntct_last_name AS last, c.cntct_suffix AS suffix, c.cntct_title AS job_title, c.cntct_phone AS phone, c.cntct_fax AS fax, c.cntct_email AS email, ''::text AS contact_change, public.formatglaccount(a.accnt_id) AS post_unassigned_transactions_to, a.accnt_descrip AS post_unassigned_transactions_to_description, whsinfo.warehous_transit AS transit_type, CASE WHEN whsinfo.warehous_transit THEN false ELSE true END AS inventory_type, CASE WHEN whsinfo.warehous_transit THEN ''::text ELSE whsinfo.warehous_bol_prefix END AS next_bill_of_lading_prefix, CASE WHEN whsinfo.warehous_transit THEN 0 ELSE whsinfo.warehous_bol_number END AS next_bill_of_lading_number, CASE WHEN whsinfo.warehous_transit THEN false ELSE whsinfo.warehous_shipping END AS shipping_site, CASE WHEN whsinfo.warehous_transit THEN ''::text ELSE whsinfo.warehous_counttag_prefix END AS next_count_tag_prefix, CASE WHEN whsinfo.warehous_transit THEN 0 ELSE whsinfo.warehous_counttag_number END AS next_count_tag_number, CASE WHEN whsinfo.warehous_transit THEN false ELSE whsinfo.warehous_useslips END AS force_the_use_of_count_slips, CASE WHEN whsinfo.warehous_transit THEN false ELSE whsinfo.warehous_usezones END AS force_the_use_of_zones, CASE WHEN whsinfo.warehous_transit THEN 0 ELSE whsinfo.warehous_sequence END AS scheduling_sequence, CASE WHEN whsinfo.warehous_transit THEN (0)::numeric ELSE (whsinfo.warehous_shipping_commission * 100.0) END AS shipping_commission, CASE WHEN whsinfo.warehous_transit THEN ''::text ELSE t.taxzone_code END AS tax_zone, CASE WHEN whsinfo.warehous_transit THEN ''::text ELSE whsinfo.warehous_fob END AS default_fob, CASE WHEN whsinfo.warehous_transit THEN s.shipvia_code ELSE ''::text END AS default_ship_via, CASE WHEN whsinfo.warehous_transit THEN f.shipform_name ELSE ''::text END AS default_shipping_form, CASE WHEN whsinfo.warehous_transit THEN cc.costcat_code ELSE ''::text END AS default_cost_category, CASE WHEN whsinfo.warehous_transit THEN whsinfo.warehous_shipcomments ELSE ''::text END AS shipping_comments, CASE WHEN whsinfo.warehous_transit THEN false ELSE whsinfo.warehous_enforcearbl END AS enforce_arbl_naming_convention, CASE WHEN whsinfo.warehous_transit THEN 0 WHEN whsinfo.warehous_enforcearbl THEN whsinfo.warehous_aislesize ELSE 0 END AS aisle_size, CASE WHEN whsinfo.warehous_transit THEN false WHEN (whsinfo.warehous_enforcearbl AND whsinfo.warehous_aislealpha) THEN true ELSE false END AS aisle_allow_alpha_characters, CASE WHEN whsinfo.warehous_transit THEN 0 WHEN whsinfo.warehous_enforcearbl THEN whsinfo.warehous_racksize ELSE 0 END AS rack_size, CASE WHEN whsinfo.warehous_transit THEN false WHEN (whsinfo.warehous_enforcearbl AND whsinfo.warehous_rackalpha) THEN true ELSE false END AS rack_allow_alpha_characters, CASE WHEN whsinfo.warehous_transit THEN 0 WHEN whsinfo.warehous_enforcearbl THEN whsinfo.warehous_binsize ELSE 0 END AS bin_size, CASE WHEN whsinfo.warehous_transit THEN false WHEN (whsinfo.warehous_enforcearbl AND whsinfo.warehous_binalpha) THEN true ELSE false END AS bin_allow_alpha_characters, CASE WHEN whsinfo.warehous_transit THEN 0 WHEN whsinfo.warehous_enforcearbl THEN whsinfo.warehous_locationsize ELSE 0 END AS location_size, CASE WHEN whsinfo.warehous_transit THEN false WHEN (whsinfo.warehous_enforcearbl AND whsinfo.warehous_locationalpha) THEN true ELSE false END AS location_allow_alpha_characters FROM ((((((((public.whsinfo LEFT JOIN public.addr m ON ((whsinfo.warehous_addr_id = m.addr_id))) LEFT JOIN public.cntct c ON ((whsinfo.warehous_cntct_id = c.cntct_id))) LEFT JOIN public.accnt a ON ((whsinfo.warehous_default_accnt_id = a.accnt_id))) LEFT JOIN public.taxzone t ON ((whsinfo.warehous_taxzone_id = t.taxzone_id))) LEFT JOIN public.shipvia s ON ((whsinfo.warehous_shipvia_id = s.shipvia_id))) LEFT JOIN public.shipform f ON ((whsinfo.warehous_shipform_id = f.shipform_id))) LEFT JOIN public.costcat cc ON ((whsinfo.warehous_costcat_id = cc.costcat_id))) LEFT JOIN public.sitetype st ON ((whsinfo.warehous_sitetype_id = st.sitetype_id))) ORDER BY whsinfo.warehous_code;
ALTER TABLE api.site OWNER TO admin;
--
-- Name: VIEW site; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW site IS 'Site';
--
-- Name: sitezone; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW sitezone AS
SELECT (whsinfo.warehous_code)::character varying AS site, (whsezone.whsezone_name)::character varying AS name, whsezone.whsezone_descrip AS description FROM (public.whsezone LEFT JOIN public.whsinfo ON ((whsinfo.warehous_id = whsezone.whsezone_warehous_id)));
ALTER TABLE api.sitezone OWNER TO admin;
--
-- Name: VIEW sitezone; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW sitezone IS 'Site Zone';
--
-- Name: task; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW task AS
SELECT prj.prj_number AS project_number, prjtask.prjtask_number AS number, CASE WHEN (prjtask.prjtask_status = 'P'::bpchar) THEN 'Concept'::text WHEN (prjtask.prjtask_status = 'O'::bpchar) THEN 'In-Process'::text WHEN (prjtask.prjtask_status = 'C'::bpchar) THEN 'Closed'::text ELSE 'Error'::text END AS status, prjtask.prjtask_name AS name, prjtask.prjtask_descrip AS description, prjtask.prjtask_owner_username AS owner, prjtask.prjtask_username AS assigned_to, prjtask.prjtask_hours_budget AS hours_budgeted, prjtask.prjtask_hours_actual AS hours_actual, prjtask.prjtask_exp_budget AS expenses_budgeted, prjtask.prjtask_exp_actual AS expenses_actual, prjtask.prjtask_due_date AS due, prjtask.prjtask_assigned_date AS assigned, prjtask.prjtask_start_date AS started, prjtask.prjtask_completed_date AS completed FROM (public.prjtask JOIN public.prj ON ((prj.prj_id = prjtask.prjtask_prj_id)));
ALTER TABLE api.task OWNER TO admin;
--
-- Name: VIEW task; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW task IS 'Task';
--
-- Name: taskcomment; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW taskcomment AS
SELECT (prj.prj_number)::character varying AS project_number, (prjtask.prjtask_number)::character varying AS task_number, cmnttype.cmnttype_name AS type, comment.comment_date AS date, comment.comment_user AS username, comment.comment_text AS text FROM public.prj, public.prjtask, public.cmnttype, public.comment WHERE ((((comment.comment_source = 'TA'::text) AND (prj.prj_id = prjtask.prjtask_prj_id)) AND (comment.comment_source_id = prjtask.prjtask_id)) AND (comment.comment_cmnttype_id = cmnttype.cmnttype_id));
ALTER TABLE api.taskcomment OWNER TO admin;
--
-- Name: VIEW taskcomment; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW taskcomment IS 'Task Comment';
--
-- Name: todo; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW todo AS
SELECT todoitem.todoitem_id AS task_number, todoitem.todoitem_owner_username AS owner, todoitem.todoitem_username AS assigned_to, todoitem.todoitem_name AS task_name, incdtpriority.incdtpriority_name AS priority, incdt.incdt_number AS incident, ophead.ophead_name AS opportunity, crmacct.crmacct_number AS account, public.formatdate(todoitem.todoitem_due_date) AS date_due, public.formatdate(todoitem.todoitem_assigned_date) AS date_assigned, public.formatdate(todoitem.todoitem_start_date) AS date_started, public.formatdate(todoitem.todoitem_completed_date) AS date_completed, CASE WHEN (todoitem.todoitem_status = 'P'::bpchar) THEN 'Pending Input'::text WHEN (todoitem.todoitem_status = 'D'::bpchar) THEN 'Deferred'::text ELSE 'Neither'::text END AS status, todoitem.todoitem_active AS active, todoitem.todoitem_description AS description, todoitem.todoitem_notes AS notes FROM ((((public.todoitem LEFT JOIN public.incdt ON ((incdt.incdt_id = todoitem.todoitem_incdt_id))) LEFT JOIN public.ophead ON ((ophead.ophead_id = todoitem.todoitem_ophead_id))) LEFT JOIN public.crmacct ON ((crmacct.crmacct_id = todoitem.todoitem_crmacct_id))) LEFT JOIN public.incdtpriority ON ((incdtpriority.incdtpriority_id = todoitem.todoitem_priority_id)));
ALTER TABLE api.todo OWNER TO admin;
--
-- Name: VIEW todo; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW todo IS 'To-Do List';
SET search_path = public, pg_catalog;
--
-- Name: vendtype; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE vendtype (
vendtype_id integer NOT NULL,
vendtype_code text NOT NULL,
vendtype_descrip text,
CONSTRAINT vendtype_vendtype_code_check CHECK ((vendtype_code <> ''::text))
);
ALTER TABLE public.vendtype OWNER TO admin;
--
-- Name: TABLE vendtype; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE vendtype IS 'Vendor Type information';
SET search_path = api, pg_catalog;
--
-- Name: vendor; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW vendor AS
SELECT (vendinfo.vend_number)::character varying AS vendor_number, vendtype.vendtype_code AS vendor_type, vendinfo.vend_name AS vendor_name, vendinfo.vend_active AS active, vendinfo.vend_accntnum AS account_number, addr.addr_number AS address_number, addr.addr_line1 AS address1, addr.addr_line2 AS address2, addr.addr_line3 AS address3, addr.addr_city AS city, addr.addr_state AS state, addr.addr_postalcode AS postalcode, addr.addr_country AS country, ''::text AS address_change, terms.terms_code AS default_terms, vendinfo.vend_shipvia AS ship_via, curr_symbol.curr_abbr AS default_currency, CASE WHEN (vendinfo.vend_fobsource = 'W'::bpchar) THEN 'Receiving Site'::text ELSE vendinfo.vend_fob END AS default_fob, vendinfo.vend_po AS sells_purchase_order_items, vendinfo.vend_restrictpurch AS may_only_sell_item_source, vendinfo.vend_qualified AS qualified, vendinfo.vend_match AS matching_vo_po_amounts, vendinfo.vend_1099 AS receives_1099, taxzone.taxzone_code AS default_tax_zone, CASE WHEN (accnt.accnt_id IS NULL) THEN 'N/A'::text ELSE public.formatglaccount(accnt.accnt_id) END AS default_dist_gl_account, CASE WHEN (expcat.expcat_id IS NULL) THEN 'N/A'::text ELSE expcat.expcat_code END AS default_dist_expense_category, CASE WHEN (tax.tax_id IS NULL) THEN 'N/A'::text ELSE tax.tax_code END AS default_dist_tax_code, c1.cntct_number AS contact1_number, c1.cntct_honorific AS contact1_honorific, c1.cntct_first_name AS contact1_first, c1.cntct_middle AS contact1_middle, c1.cntct_last_name AS contact1_last, c1.cntct_suffix AS contact1_suffix, c1.cntct_title AS contact1_job_title, c1.cntct_phone AS contact1_voice, c1.cntct_phone2 AS contact1_alternate, c1.cntct_fax AS contact1_fax, c1.cntct_email AS contact1_email, c1.cntct_webaddr AS contact1_web, ''::text AS contact1_change, c2.cntct_number AS contact2_number, c2.cntct_honorific AS contact2_honorific, c2.cntct_first_name AS contact2_first, c2.cntct_middle AS contact2_middle, c2.cntct_last_name AS contact2_last, c2.cntct_suffix AS contact2_suffix, c2.cntct_title AS contact2_job_title, c2.cntct_phone AS contact2_voice, c2.cntct_phone2 AS contact2_alternate, c2.cntct_fax AS contact2_fax, c2.cntct_email AS contact2_email, c2.cntct_webaddr AS contact2_web, ''::text AS contact2_change, vendinfo.vend_comments AS notes, vendinfo.vend_pocomments AS po_comments, vendinfo.vend_emailpodelivery AS allow_email_po_delivery, vendinfo.vend_ediemail AS po_edi_email, vendinfo.vend_edicc AS po_edi_cc, vendinfo.vend_edisubject AS po_edi_subject, vendinfo.vend_edifilename AS po_edi_filename, vendinfo.vend_ediemailbody AS po_edi_emailbody FROM ((((((((((public.vendinfo LEFT JOIN public.addr ON ((vendinfo.vend_addr_id = addr.addr_id))) LEFT JOIN public.cntct c1 ON ((vendinfo.vend_cntct1_id = c1.cntct_id))) LEFT JOIN public.cntct c2 ON ((vendinfo.vend_cntct2_id = c2.cntct_id))) LEFT JOIN public.taxzone ON ((vendinfo.vend_taxzone_id = taxzone.taxzone_id))) LEFT JOIN public.curr_symbol ON ((vendinfo.vend_curr_id = curr_symbol.curr_id))) LEFT JOIN public.terms ON ((vendinfo.vend_terms_id = terms.terms_id))) LEFT JOIN public.vendtype ON ((vendinfo.vend_vendtype_id = vendtype.vendtype_id))) LEFT JOIN public.accnt ON ((vendinfo.vend_accnt_id = accnt.accnt_id))) LEFT JOIN public.expcat ON ((vendinfo.vend_expcat_id = expcat.expcat_id))) LEFT JOIN public.tax ON ((vendinfo.vend_tax_id = tax.tax_id))) ORDER BY vendinfo.vend_number;
ALTER TABLE api.vendor OWNER TO admin;
--
-- Name: VIEW vendor; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW vendor IS 'vendor';
--
-- Name: vendoraddress; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW vendoraddress AS
SELECT (vendinfo.vend_number)::character varying AS vendor_number, vendinfo.vend_name AS vendor_name, (vendaddrinfo.vendaddr_code)::character varying AS vendor_address_number, vendaddrinfo.vendaddr_name AS vendor_address_name, addr.addr_number AS address_number, addr.addr_line1 AS address1, addr.addr_line2 AS address2, addr.addr_line3 AS address3, addr.addr_city AS city, addr.addr_state AS state, addr.addr_postalcode AS postalcode, addr.addr_country AS country, ''::text AS address_change, cntct.cntct_number AS contact_number, cntct.cntct_honorific AS contact_honorific, cntct.cntct_first_name AS contact_first, cntct.cntct_middle AS contact_middle, cntct.cntct_last_name AS contact_last, cntct.cntct_suffix AS contact_suffix, cntct.cntct_title AS contact_job_title, cntct.cntct_phone AS contact_voice, cntct.cntct_phone2 AS contact_alternate, cntct.cntct_fax AS contact_fax, cntct.cntct_email AS contact_email, cntct.cntct_webaddr AS contact_web, ''::text AS contact_change, vendaddrinfo.vendaddr_comments AS notes FROM (((public.vendaddrinfo LEFT JOIN public.vendinfo ON ((vendinfo.vend_id = vendaddrinfo.vendaddr_vend_id))) LEFT JOIN public.addr ON ((vendaddrinfo.vendaddr_addr_id = addr.addr_id))) LEFT JOIN public.cntct ON ((vendaddrinfo.vendaddr_cntct_id = cntct.cntct_id))) ORDER BY vendaddrinfo.vendaddr_code;
ALTER TABLE api.vendoraddress OWNER TO admin;
--
-- Name: VIEW vendoraddress; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW vendoraddress IS 'vendor address';
--
-- Name: vendortype; Type: VIEW; Schema: api; Owner: admin
--
CREATE VIEW vendortype AS
SELECT (vendtype.vendtype_code)::character varying AS code, vendtype.vendtype_descrip AS description FROM public.vendtype ORDER BY vendtype.vendtype_code;
ALTER TABLE api.vendortype OWNER TO admin;
--
-- Name: VIEW vendortype; Type: COMMENT; Schema: api; Owner: admin
--
COMMENT ON VIEW vendortype IS 'Vendor Type';
SET search_path = public, pg_catalog;
--
-- Name: cmd; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cmd (
cmd_id integer NOT NULL,
cmd_module text NOT NULL,
cmd_title text NOT NULL,
cmd_descrip text,
cmd_privname text,
cmd_executable text NOT NULL,
cmd_name text
);
ALTER TABLE public.cmd OWNER TO admin;
--
-- Name: TABLE cmd; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE cmd IS 'Custom menu command table.';
--
-- Name: cmd_cmd_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cmd_cmd_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.cmd_cmd_id_seq OWNER TO admin;
--
-- Name: cmd_cmd_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE cmd_cmd_id_seq OWNED BY cmd.cmd_id;
--
-- Name: cmd_cmd_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cmd_cmd_id_seq', 6, true);
--
-- Name: cmd_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE cmd ALTER COLUMN cmd_id SET DEFAULT nextval('cmd_cmd_id_seq'::regclass);
SET search_path = fixcountry, pg_catalog;
--
-- Name: pkgcmd; Type: TABLE; Schema: fixcountry; Owner: admin; Tablespace:
--
CREATE TABLE pkgcmd (
cmd_id integer DEFAULT nextval('public.cmd_cmd_id_seq'::regclass)
)
INHERITS (public.cmd);
ALTER TABLE fixcountry.pkgcmd OWNER TO admin;
SET search_path = public, pg_catalog;
--
-- Name: cmdarg; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cmdarg (
cmdarg_id integer NOT NULL,
cmdarg_cmd_id integer NOT NULL,
cmdarg_order integer NOT NULL,
cmdarg_arg text NOT NULL
);
ALTER TABLE public.cmdarg OWNER TO admin;
--
-- Name: TABLE cmdarg; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE cmdarg IS 'Command argument for custom menu command table.';
--
-- Name: cmdarg_cmdarg_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cmdarg_cmdarg_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.cmdarg_cmdarg_id_seq OWNER TO admin;
--
-- Name: cmdarg_cmdarg_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE cmdarg_cmdarg_id_seq OWNED BY cmdarg.cmdarg_id;
--
-- Name: cmdarg_cmdarg_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cmdarg_cmdarg_id_seq', 6, true);
--
-- Name: cmdarg_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE cmdarg ALTER COLUMN cmdarg_id SET DEFAULT nextval('cmdarg_cmdarg_id_seq'::regclass);
SET search_path = fixcountry, pg_catalog;
--
-- Name: pkgcmdarg; Type: TABLE; Schema: fixcountry; Owner: admin; Tablespace:
--
CREATE TABLE pkgcmdarg (
cmdarg_id integer DEFAULT nextval('public.cmdarg_cmdarg_id_seq'::regclass)
)
INHERITS (public.cmdarg);
ALTER TABLE fixcountry.pkgcmdarg OWNER TO admin;
SET search_path = public, pg_catalog;
--
-- Name: image_image_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE image_image_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.image_image_id_seq OWNER TO admin;
--
-- Name: image_image_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('image_image_id_seq', 6631, true);
SET search_path = fixcountry, pg_catalog;
--
-- Name: pkgimage; Type: TABLE; Schema: fixcountry; Owner: admin; Tablespace:
--
CREATE TABLE pkgimage (
image_id integer DEFAULT nextval('public.image_image_id_seq'::regclass)
)
INHERITS (public.image);
ALTER TABLE fixcountry.pkgimage OWNER TO admin;
SET search_path = public, pg_catalog;
--
-- Name: metasql; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE metasql (
metasql_id integer NOT NULL,
metasql_group text,
metasql_name text,
metasql_notes text,
metasql_query text,
metasql_lastuser text,
metasql_lastupdate date,
metasql_grade integer DEFAULT 0 NOT NULL
);
ALTER TABLE public.metasql OWNER TO admin;
--
-- Name: TABLE metasql; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE metasql IS 'MetaSQL Table';
--
-- Name: metasql_metasql_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE metasql_metasql_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.metasql_metasql_id_seq OWNER TO admin;
--
-- Name: metasql_metasql_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE metasql_metasql_id_seq OWNED BY metasql.metasql_id;
--
-- Name: metasql_metasql_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('metasql_metasql_id_seq', 479, true);
--
-- Name: metasql_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE metasql ALTER COLUMN metasql_id SET DEFAULT nextval('metasql_metasql_id_seq'::regclass);
SET search_path = fixcountry, pg_catalog;
--
-- Name: pkgmetasql; Type: TABLE; Schema: fixcountry; Owner: admin; Tablespace:
--
CREATE TABLE pkgmetasql (
metasql_id integer DEFAULT nextval('public.metasql_metasql_id_seq'::regclass)
)
INHERITS (public.metasql);
ALTER TABLE fixcountry.pkgmetasql OWNER TO admin;
SET search_path = public, pg_catalog;
--
-- Name: priv; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE priv (
priv_id integer DEFAULT nextval(('priv_priv_id_seq'::text)::regclass) NOT NULL,
priv_module text,
priv_name text,
priv_descrip text,
priv_seq integer
);
ALTER TABLE public.priv OWNER TO admin;
--
-- Name: TABLE priv; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE priv IS 'System Privilege information';
--
-- Name: priv_priv_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE priv_priv_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.priv_priv_id_seq OWNER TO admin;
--
-- Name: priv_priv_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('priv_priv_id_seq', 644, true);
SET search_path = fixcountry, pg_catalog;
--
-- Name: pkgpriv; Type: TABLE; Schema: fixcountry; Owner: admin; Tablespace:
--
CREATE TABLE pkgpriv (
priv_id integer DEFAULT nextval('public.priv_priv_id_seq'::regclass)
)
INHERITS (public.priv);
ALTER TABLE fixcountry.pkgpriv OWNER TO admin;
SET search_path = public, pg_catalog;
--
-- Name: report; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE report (
report_id integer DEFAULT nextval(('report_report_id_seq'::text)::regclass) NOT NULL,
report_name text,
report_sys boolean,
report_source text,
report_descrip text,
report_grade integer NOT NULL,
report_loaddate timestamp without time zone
);
ALTER TABLE public.report OWNER TO admin;
--
-- Name: TABLE report; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE report IS 'Report definition information';
--
-- Name: report_report_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE report_report_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.report_report_id_seq OWNER TO admin;
--
-- Name: report_report_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('report_report_id_seq', 478, true);
SET search_path = fixcountry, pg_catalog;
--
-- Name: pkgreport; Type: TABLE; Schema: fixcountry; Owner: admin; Tablespace:
--
CREATE TABLE pkgreport (
report_id integer DEFAULT nextval('public.report_report_id_seq'::regclass)
)
INHERITS (public.report);
ALTER TABLE fixcountry.pkgreport OWNER TO admin;
SET search_path = public, pg_catalog;
--
-- Name: script; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE script (
script_id integer NOT NULL,
script_name text NOT NULL,
script_order integer NOT NULL,
script_enabled boolean DEFAULT false NOT NULL,
script_source text NOT NULL,
script_notes text
);
ALTER TABLE public.script OWNER TO admin;
--
-- Name: script_script_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE script_script_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.script_script_id_seq OWNER TO admin;
--
-- Name: script_script_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE script_script_id_seq OWNED BY script.script_id;
--
-- Name: script_script_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('script_script_id_seq', 132, true);
--
-- Name: script_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE script ALTER COLUMN script_id SET DEFAULT nextval('script_script_id_seq'::regclass);
SET search_path = fixcountry, pg_catalog;
--
-- Name: pkgscript; Type: TABLE; Schema: fixcountry; Owner: admin; Tablespace:
--
CREATE TABLE pkgscript (
script_id integer DEFAULT nextval('public.script_script_id_seq'::regclass)
)
INHERITS (public.script);
ALTER TABLE fixcountry.pkgscript OWNER TO admin;
SET search_path = public, pg_catalog;
--
-- Name: uiform; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE uiform (
uiform_id integer NOT NULL,
uiform_name text NOT NULL,
uiform_order integer NOT NULL,
uiform_enabled boolean DEFAULT false NOT NULL,
uiform_source text NOT NULL,
uiform_notes text
);
ALTER TABLE public.uiform OWNER TO admin;
--
-- Name: uiform_uiform_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE uiform_uiform_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.uiform_uiform_id_seq OWNER TO admin;
--
-- Name: uiform_uiform_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE uiform_uiform_id_seq OWNED BY uiform.uiform_id;
--
-- Name: uiform_uiform_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('uiform_uiform_id_seq', 64, true);
--
-- Name: uiform_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE uiform ALTER COLUMN uiform_id SET DEFAULT nextval('uiform_uiform_id_seq'::regclass);
SET search_path = fixcountry, pg_catalog;
--
-- Name: pkguiform; Type: TABLE; Schema: fixcountry; Owner: admin; Tablespace:
--
CREATE TABLE pkguiform (
uiform_id integer DEFAULT nextval('public.uiform_uiform_id_seq'::regclass)
)
INHERITS (public.uiform);
ALTER TABLE fixcountry.pkguiform OWNER TO admin;
SET search_path = public, pg_catalog;
--
-- Name: acalitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE acalitem (
acalitem_id integer DEFAULT nextval(('"xcalitem_xcalitem_id_seq"'::text)::regclass) NOT NULL,
acalitem_calhead_id integer,
acalitem_periodstart date,
acalitem_periodlength integer,
acalitem_name text
);
ALTER TABLE public.acalitem OWNER TO admin;
--
-- Name: TABLE acalitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE acalitem IS 'Absolute Calendar Item information';
--
-- Name: accnt_accnt_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE accnt_accnt_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.accnt_accnt_id_seq OWNER TO admin;
--
-- Name: accnt_accnt_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('accnt_accnt_id_seq', 136, true);
--
-- Name: addr_addr_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE addr_addr_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.addr_addr_id_seq OWNER TO admin;
--
-- Name: addr_addr_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE addr_addr_id_seq OWNED BY addr.addr_id;
--
-- Name: addr_addr_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('addr_addr_id_seq', 3, true);
--
-- Name: address; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW address AS
SELECT addresses.addr_id, addresses.addr_active, addresses.addr_line1, addresses.addr_line2, addresses.addr_line3, addresses.addr_city, addresses.addr_state, addresses.addr_postalcode, addresses.addr_country, addresses.addr_notes, addresses.addr_number, addresses.crmacct_id, addresses.crmacct_number, addresses.crmacct_name FROM ((((SELECT base.addr_id, base.addr_active, base.addr_line1, base.addr_line2, base.addr_line3, base.addr_city, base.addr_state, base.addr_postalcode, base.addr_country, base.addr_notes, base.addr_number, base.crmacct_id, base.crmacct_number, base.crmacct_name FROM ((((SELECT addr.addr_id, addr.addr_active, addr.addr_line1, addr.addr_line2, addr.addr_line3, addr.addr_city, addr.addr_state, addr.addr_postalcode, addr.addr_country, addr.addr_notes, addr.addr_number, COALESCE(crmacct.crmacct_id, (-1)) AS crmacct_id, crmacct.crmacct_number, crmacct.crmacct_name FROM ((addr LEFT JOIN cntct ON ((cntct.cntct_addr_id = addr.addr_id))) LEFT JOIN crmacct ON ((crmacct.crmacct_id = cntct.cntct_crmacct_id))) EXCEPT SELECT addr.addr_id, addr.addr_active, addr.addr_line1, addr.addr_line2, addr.addr_line3, addr.addr_city, addr.addr_state, addr.addr_postalcode, addr.addr_country, addr.addr_notes, addr.addr_number, (-1), NULL::unknown, NULL::unknown FROM ((addr JOIN vendinfo ON ((vendinfo.vend_addr_id = addr.addr_id))) JOIN crmacct ON ((vendinfo.vend_id = crmacct.crmacct_vend_id)))) EXCEPT SELECT addr.addr_id, addr.addr_active, addr.addr_line1, addr.addr_line2, addr.addr_line3, addr.addr_city, addr.addr_state, addr.addr_postalcode, addr.addr_country, addr.addr_notes, addr.addr_number, (-1), NULL::unknown, NULL::unknown FROM ((addr JOIN vendaddrinfo ON ((vendaddrinfo.vendaddr_addr_id = addr.addr_id))) JOIN crmacct ON ((vendaddrinfo.vendaddr_vend_id = crmacct.crmacct_vend_id)))) EXCEPT SELECT addr.addr_id, addr.addr_active, addr.addr_line1, addr.addr_line2, addr.addr_line3, addr.addr_city, addr.addr_state, addr.addr_postalcode, addr.addr_country, addr.addr_notes, addr.addr_number, (-1), NULL::unknown, NULL::unknown FROM ((addr JOIN taxauth ON ((taxauth.taxauth_addr_id = addr.addr_id))) JOIN crmacct ON ((taxauth.taxauth_id = crmacct.crmacct_taxauth_id)))) EXCEPT SELECT addr.addr_id, addr.addr_active, addr.addr_line1, addr.addr_line2, addr.addr_line3, addr.addr_city, addr.addr_state, addr.addr_postalcode, addr.addr_country, addr.addr_notes, addr.addr_number, (-1), NULL::unknown, NULL::unknown FROM ((addr JOIN shiptoinfo ON ((shiptoinfo.shipto_addr_id = addr.addr_id))) JOIN crmacct ON ((shiptoinfo.shipto_cust_id = crmacct.crmacct_cust_id)))) base UNION SELECT addr.addr_id, addr.addr_active, addr.addr_line1, addr.addr_line2, addr.addr_line3, addr.addr_city, addr.addr_state, addr.addr_postalcode, addr.addr_country, addr.addr_notes, addr.addr_number, crmacct.crmacct_id, crmacct.crmacct_number, crmacct.crmacct_name FROM ((addr JOIN vendinfo ON ((vendinfo.vend_addr_id = addr.addr_id))) JOIN crmacct ON ((vendinfo.vend_id = crmacct.crmacct_vend_id)))) UNION SELECT addr.addr_id, addr.addr_active, addr.addr_line1, addr.addr_line2, addr.addr_line3, addr.addr_city, addr.addr_state, addr.addr_postalcode, addr.addr_country, addr.addr_notes, addr.addr_number, crmacct.crmacct_id, crmacct.crmacct_number, crmacct.crmacct_name FROM ((addr JOIN vendaddrinfo ON ((vendaddrinfo.vendaddr_addr_id = addr.addr_id))) JOIN crmacct ON ((vendaddrinfo.vendaddr_vend_id = crmacct.crmacct_vend_id)))) UNION SELECT addr.addr_id, addr.addr_active, addr.addr_line1, addr.addr_line2, addr.addr_line3, addr.addr_city, addr.addr_state, addr.addr_postalcode, addr.addr_country, addr.addr_notes, addr.addr_number, crmacct.crmacct_id, crmacct.crmacct_number, crmacct.crmacct_name FROM ((addr JOIN taxauth ON ((taxauth.taxauth_addr_id = addr.addr_id))) JOIN crmacct ON ((taxauth.taxauth_id = crmacct.crmacct_taxauth_id)))) UNION SELECT addr.addr_id, addr.addr_active, addr.addr_line1, addr.addr_line2, addr.addr_line3, addr.addr_city, addr.addr_state, addr.addr_postalcode, addr.addr_country, addr.addr_notes, addr.addr_number, crmacct.crmacct_id, crmacct.crmacct_number, crmacct.crmacct_name FROM ((addr JOIN shiptoinfo ON ((shiptoinfo.shipto_addr_id = addr.addr_id))) JOIN crmacct ON ((shiptoinfo.shipto_cust_id = crmacct.crmacct_cust_id)))) addresses ORDER BY addresses.addr_country, addresses.addr_state, addresses.addr_postalcode, addresses.addr_line1, addresses.addr_line2, addresses.addr_line3;
ALTER TABLE public.address OWNER TO admin;
--
-- Name: alarm; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE alarm (
alarm_id integer NOT NULL,
alarm_number text NOT NULL,
alarm_event boolean DEFAULT false NOT NULL,
alarm_email boolean DEFAULT false NOT NULL,
alarm_sysmsg boolean DEFAULT false NOT NULL,
alarm_trigger timestamp with time zone,
alarm_time timestamp with time zone,
alarm_time_offset integer,
alarm_time_qualifier text,
alarm_creator text,
alarm_event_recipient text,
alarm_email_recipient text,
alarm_sysmsg_recipient text,
alarm_source text,
alarm_source_id integer
);
ALTER TABLE public.alarm OWNER TO admin;
--
-- Name: TABLE alarm; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE alarm IS 'This table is the open alarms.';
--
-- Name: alarm_alarm_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE alarm_alarm_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.alarm_alarm_id_seq OWNER TO admin;
--
-- Name: alarm_alarm_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE alarm_alarm_id_seq OWNED BY alarm.alarm_id;
--
-- Name: alarm_alarm_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('alarm_alarm_id_seq', 1, false);
--
-- Name: apaccnt; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE apaccnt (
apaccnt_id integer NOT NULL,
apaccnt_vendtype_id integer,
apaccnt_vendtype text,
apaccnt_ap_accnt_id integer NOT NULL,
apaccnt_prepaid_accnt_id integer,
apaccnt_discount_accnt_id integer
);
ALTER TABLE public.apaccnt OWNER TO admin;
--
-- Name: TABLE apaccnt; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE apaccnt IS 'Accounts Payable (A/P) Account assignment information';
--
-- Name: apaccnt_apaccnt_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE apaccnt_apaccnt_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.apaccnt_apaccnt_id_seq OWNER TO admin;
--
-- Name: apaccnt_apaccnt_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE apaccnt_apaccnt_id_seq OWNED BY apaccnt.apaccnt_id;
--
-- Name: apaccnt_apaccnt_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('apaccnt_apaccnt_id_seq', 20, true);
--
-- Name: apapply; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE apapply (
apapply_id integer NOT NULL,
apapply_vend_id integer,
apapply_postdate date,
apapply_username text,
apapply_source_apopen_id integer,
apapply_source_doctype text,
apapply_source_docnumber text,
apapply_target_apopen_id integer,
apapply_target_doctype text,
apapply_target_docnumber text,
apapply_journalnumber integer,
apapply_amount numeric(20,2),
apapply_curr_id integer DEFAULT basecurrid(),
apapply_target_paid numeric(20,2),
apapply_checkhead_id integer
);
ALTER TABLE public.apapply OWNER TO admin;
--
-- Name: TABLE apapply; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE apapply IS 'Applications (e.g., Payments, A/P Credit Memos) made to Accounts Payable (A/P) Documents';
--
-- Name: COLUMN apapply.apapply_source_apopen_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN apapply.apapply_source_apopen_id IS 'If apapply_source_doctype is "C" (credit memo) then apapply_source_apopen_id acts as a foreign key to the apopen table. If the source doctype is "K" (check) then the apapply_source_apopen_id acts as a foreign key to the checkhead table. If the apapply_source_apopen_id is -1 then the internal id of the source document is not known (always the case for checks posted before release 3.2.0BETA).';
--
-- Name: apapply_apapply_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE apapply_apapply_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.apapply_apapply_id_seq OWNER TO admin;
--
-- Name: apapply_apapply_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE apapply_apapply_id_seq OWNED BY apapply.apapply_id;
--
-- Name: apapply_apapply_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('apapply_apapply_id_seq', 1, false);
--
-- Name: checkhead; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE checkhead (
checkhead_id integer NOT NULL,
checkhead_recip_id integer NOT NULL,
checkhead_recip_type text NOT NULL,
checkhead_bankaccnt_id integer NOT NULL,
checkhead_printed boolean DEFAULT false NOT NULL,
checkhead_checkdate date NOT NULL,
checkhead_number integer NOT NULL,
checkhead_amount numeric(20,2) NOT NULL,
checkhead_void boolean DEFAULT false NOT NULL,
checkhead_replaced boolean DEFAULT false NOT NULL,
checkhead_posted boolean DEFAULT false NOT NULL,
checkhead_rec boolean DEFAULT false NOT NULL,
checkhead_misc boolean DEFAULT false NOT NULL,
checkhead_expcat_id integer,
checkhead_for text NOT NULL,
checkhead_notes text NOT NULL,
checkhead_journalnumber integer,
checkhead_curr_id integer DEFAULT basecurrid() NOT NULL,
checkhead_deleted boolean DEFAULT false NOT NULL,
checkhead_ach_batch text,
checkhead_curr_rate numeric NOT NULL,
CONSTRAINT checkhead_checkhead_amount_check CHECK ((checkhead_amount > (0)::numeric)),
CONSTRAINT checkhead_checkhead_recip_type_check CHECK ((((checkhead_recip_type = 'C'::text) OR (checkhead_recip_type = 'V'::text)) OR (checkhead_recip_type = 'T'::text)))
);
ALTER TABLE public.checkhead OWNER TO admin;
--
-- Name: TABLE checkhead; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE checkhead IS 'Accounts Payable Check Information';
--
-- Name: apchk; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW apchk AS
SELECT checkhead.checkhead_id AS apchk_id, checkhead.checkhead_recip_id AS apchk_vend_id, checkhead.checkhead_bankaccnt_id AS apchk_bankaccnt_id, checkhead.checkhead_printed AS apchk_printed, checkhead.checkhead_checkdate AS apchk_checkdate, checkhead.checkhead_number AS apchk_number, checkhead.checkhead_amount AS apchk_amount, checkhead.checkhead_void AS apchk_void, checkhead.checkhead_replaced AS apchk_replaced, checkhead.checkhead_posted AS apchk_posted, checkhead.checkhead_rec AS apchk_rec, checkhead.checkhead_misc AS apchk_misc, checkhead.checkhead_expcat_id AS apchk_expcat_id, checkhead.checkhead_for AS apchk_for, checkhead.checkhead_notes AS apchk_notes, checkhead.checkhead_journalnumber AS apchk_journalnumber, checkhead.checkhead_curr_id AS apchk_curr_id, checkhead.checkhead_deleted AS apchk_deleted FROM checkhead WHERE (checkhead.checkhead_recip_type = 'V'::text);
ALTER TABLE public.apchk OWNER TO admin;
--
-- Name: checkitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE checkitem (
checkitem_id integer NOT NULL,
checkitem_checkhead_id integer NOT NULL,
checkitem_amount numeric(20,2) DEFAULT 0.0 NOT NULL,
checkitem_discount numeric(20,2) DEFAULT 0.0 NOT NULL,
checkitem_ponumber text,
checkitem_vouchernumber text,
checkitem_invcnumber text,
checkitem_apopen_id integer,
checkitem_aropen_id integer,
checkitem_docdate date,
checkitem_curr_id integer DEFAULT basecurrid() NOT NULL,
checkitem_cmnumber text,
checkitem_ranumber text,
checkitem_curr_rate numeric,
CONSTRAINT checkitem_check CHECK ((NOT ((checkitem_apopen_id IS NOT NULL) AND (checkitem_aropen_id IS NOT NULL))))
);
ALTER TABLE public.checkitem OWNER TO admin;
--
-- Name: TABLE checkitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE checkitem IS 'Accounts Payable Check Line Item Information';
--
-- Name: apchkitem; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW apchkitem AS
SELECT checkitem.checkitem_id AS apchkitem_id, checkitem.checkitem_checkhead_id AS apchkitem_apchk_id, checkitem.checkitem_vouchernumber AS apchkitem_vouchernumber, checkitem.checkitem_ponumber AS apchkitem_ponumber, checkitem.checkitem_amount AS apchkitem_amount, checkitem.checkitem_invcnumber AS apchkitem_invcnumber, checkitem.checkitem_apopen_id AS apchkitem_apopen_id, checkitem.checkitem_docdate AS apchkitem_docdate, checkitem.checkitem_curr_id AS apchkitem_curr_id, checkitem.checkitem_discount AS apchkitem_discount FROM checkhead, checkitem WHERE ((checkitem.checkitem_checkhead_id = checkhead.checkhead_id) AND (checkhead.checkhead_recip_type = 'V'::text));
ALTER TABLE public.apchkitem OWNER TO admin;
--
-- Name: apcreditapply; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE apcreditapply (
apcreditapply_id integer NOT NULL,
apcreditapply_source_apopen_id integer,
apcreditapply_target_apopen_id integer,
apcreditapply_amount numeric(20,2),
apcreditapply_curr_id integer DEFAULT basecurrid()
);
ALTER TABLE public.apcreditapply OWNER TO admin;
--
-- Name: TABLE apcreditapply; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE apcreditapply IS 'Temporary table for storing details of Accounts Payable (A/P) Credit Memo applications before those applications are posted';
--
-- Name: apcreditapply_apcreditapply_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE apcreditapply_apcreditapply_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.apcreditapply_apcreditapply_id_seq OWNER TO admin;
--
-- Name: apcreditapply_apcreditapply_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE apcreditapply_apcreditapply_id_seq OWNED BY apcreditapply.apcreditapply_id;
--
-- Name: apcreditapply_apcreditapply_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('apcreditapply_apcreditapply_id_seq', 1, false);
--
-- Name: apmemo; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW apmemo AS
SELECT apopen.apopen_id, apopen.apopen_docnumber FROM apopen WHERE (apopen.apopen_doctype = ANY (ARRAY['D'::bpchar, 'C'::bpchar]));
ALTER TABLE public.apmemo OWNER TO admin;
--
-- Name: apopen_apopen_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE apopen_apopen_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.apopen_apopen_id_seq OWNER TO admin;
--
-- Name: apopen_apopen_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('apopen_apopen_id_seq', 70, true);
--
-- Name: apopentax; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE apopentax (
)
INHERITS (taxhist);
ALTER TABLE public.apopentax OWNER TO admin;
--
-- Name: apselect; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE apselect (
apselect_id integer NOT NULL,
apselect_apopen_id integer NOT NULL,
apselect_amount numeric(20,2) NOT NULL,
apselect_bankaccnt_id integer,
apselect_curr_id integer DEFAULT basecurrid(),
apselect_date date,
apselect_discount numeric(20,2) DEFAULT 0.0 NOT NULL
);
ALTER TABLE public.apselect OWNER TO admin;
--
-- Name: TABLE apselect; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE apselect IS 'Temporary table for storing details of Accounts Payable (A/P) Payment selections';
--
-- Name: apselect_apselect_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE apselect_apselect_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.apselect_apselect_id_seq OWNER TO admin;
--
-- Name: apselect_apselect_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE apselect_apselect_id_seq OWNED BY apselect.apselect_id;
--
-- Name: apselect_apselect_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('apselect_apselect_id_seq', 501, true);
--
-- Name: araccnt; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE araccnt (
araccnt_id integer DEFAULT nextval(('araccnt_araccnt_id_seq'::text)::regclass) NOT NULL,
araccnt_custtype_id integer,
araccnt_custtype text,
araccnt_freight_accnt_id integer,
araccnt_ar_accnt_id integer,
araccnt_prepaid_accnt_id integer,
araccnt_deferred_accnt_id integer,
araccnt_discount_accnt_id integer
);
ALTER TABLE public.araccnt OWNER TO admin;
--
-- Name: TABLE araccnt; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE araccnt IS 'Accounts Receivable (A/R) Account assignment information';
--
-- Name: araccnt_araccnt_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE araccnt_araccnt_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.araccnt_araccnt_id_seq OWNER TO admin;
--
-- Name: araccnt_araccnt_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('araccnt_araccnt_id_seq', 39, true);
--
-- Name: arapply; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE arapply (
arapply_id integer NOT NULL,
arapply_postdate date,
arapply_cust_id integer,
arapply_source_doctype text,
arapply_source_docnumber text,
arapply_target_doctype text,
arapply_target_docnumber text,
arapply_fundstype text,
arapply_refnumber text,
arapply_applied numeric(20,2),
arapply_closed boolean,
arapply_journalnumber text,
arapply_source_aropen_id integer,
arapply_target_aropen_id integer,
arapply_username text,
arapply_curr_id integer DEFAULT basecurrid(),
arapply_distdate date NOT NULL,
arapply_target_paid numeric(20,2),
arapply_reftype text,
arapply_ref_id integer
);
ALTER TABLE public.arapply OWNER TO admin;
--
-- Name: TABLE arapply; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE arapply IS 'Applications (e.g., Cash Receipts, A/R Credit Memos) made to Accounts Receivable (A/R) Documents';
--
-- Name: arapply_arapply_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE arapply_arapply_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.arapply_arapply_id_seq OWNER TO admin;
--
-- Name: arapply_arapply_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE arapply_arapply_id_seq OWNED BY arapply.arapply_id;
--
-- Name: arapply_arapply_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('arapply_arapply_id_seq', 1, false);
--
-- Name: cashrcptitem_cashrcptitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cashrcptitem_cashrcptitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.cashrcptitem_cashrcptitem_id_seq OWNER TO admin;
--
-- Name: cashrcptitem_cashrcptitem_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE cashrcptitem_cashrcptitem_id_seq OWNED BY cashrcptitem.cashrcptitem_id;
--
-- Name: cashrcptitem_cashrcptitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cashrcptitem_cashrcptitem_id_seq', 170, true);
--
-- Name: arcreditapply; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE arcreditapply (
arcreditapply_id integer DEFAULT nextval('cashrcptitem_cashrcptitem_id_seq'::regclass) NOT NULL,
arcreditapply_source_aropen_id integer,
arcreditapply_target_aropen_id integer,
arcreditapply_amount numeric(20,2),
arcreditapply_curr_id integer DEFAULT basecurrid(),
arcreditapply_reftype text,
arcreditapply_ref_id integer
);
ALTER TABLE public.arcreditapply OWNER TO admin;
--
-- Name: TABLE arcreditapply; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE arcreditapply IS 'Temporary table for storing details of Accounts Receivable (A/R) Credit Memo applications before those applications are posted';
--
-- Name: arcreditapply_arcreditapply_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE arcreditapply_arcreditapply_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.arcreditapply_arcreditapply_id_seq OWNER TO admin;
--
-- Name: arcreditapply_arcreditapply_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE arcreditapply_arcreditapply_id_seq OWNED BY arcreditapply.arcreditapply_id;
--
-- Name: arcreditapply_arcreditapply_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('arcreditapply_arcreditapply_id_seq', 1, false);
--
-- Name: armemo; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW armemo AS
SELECT aropen.aropen_id, aropen.aropen_docnumber FROM aropen WHERE (aropen.aropen_doctype = ANY (ARRAY['D'::bpchar, 'C'::bpchar, 'R'::bpchar])) UNION SELECT cmhead.cmhead_id AS aropen_id, cmhead.cmhead_number AS aropen_docnumber FROM cmhead;
ALTER TABLE public.armemo OWNER TO admin;
--
-- Name: aropen_aropen_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE aropen_aropen_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.aropen_aropen_id_seq OWNER TO admin;
--
-- Name: aropen_aropen_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('aropen_aropen_id_seq', 292, true);
--
-- Name: aropentax; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE aropentax (
)
INHERITS (taxhist);
ALTER TABLE public.aropentax OWNER TO admin;
--
-- Name: asohist; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE asohist (
asohist_id integer NOT NULL,
asohist_cust_id integer,
asohist_itemsite_id integer,
asohist_shipdate date,
asohist_invcdate date,
asohist_duedate date,
asohist_promisedate date,
asohist_ordernumber text,
asohist_invcnumber text,
asohist_qtyshipped numeric(18,6),
asohist_unitprice numeric(16,4),
asohist_unitcost numeric(16,6),
asohist_billtoname text,
asohist_billtoaddress1 text,
asohist_billtoaddress2 text,
asohist_billtoaddress3 text,
asohist_billtocity text,
asohist_billtostate text,
asohist_billtozip text,
asohist_shiptoname text,
asohist_shiptoaddress1 text,
asohist_shiptoaddress2 text,
asohist_shiptoaddress3 text,
asohist_shiptocity text,
asohist_shiptostate text,
asohist_shiptozip text,
asohist_shipto_id integer,
asohist_shipvia text,
asohist_salesrep_id integer,
asohist_misc_type character(1),
asohist_misc_descrip text,
asohist_misc_id integer,
asohist_commission numeric(16,4),
asohist_commissionpaid boolean,
asohist_doctype text,
asohist_orderdate date,
asohist_imported boolean,
asohist_ponumber text,
asohist_curr_id integer DEFAULT basecurrid(),
asohist_taxtype_id integer,
asohist_taxzone_id integer
);
ALTER TABLE public.asohist OWNER TO admin;
--
-- Name: TABLE asohist; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE asohist IS 'Archived Sales history';
--
-- Name: asohist_asohist_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE asohist_asohist_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.asohist_asohist_id_seq OWNER TO admin;
--
-- Name: asohist_asohist_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE asohist_asohist_id_seq OWNED BY asohist.asohist_id;
--
-- Name: asohist_asohist_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('asohist_asohist_id_seq', 1, false);
--
-- Name: asohisttax; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE asohisttax (
)
INHERITS (taxhist);
ALTER TABLE public.asohisttax OWNER TO admin;
--
-- Name: atlasmap; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE atlasmap (
atlasmap_id integer NOT NULL,
atlasmap_name text NOT NULL,
atlasmap_filter text NOT NULL,
atlasmap_filtertype text NOT NULL,
atlasmap_atlas text NOT NULL,
atlasmap_map text NOT NULL,
atlasmap_headerline boolean DEFAULT false NOT NULL,
CONSTRAINT atlasmap_atlasmap_name_check CHECK ((atlasmap_name <> ''::text))
);
ALTER TABLE public.atlasmap OWNER TO admin;
--
-- Name: TABLE atlasmap; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE atlasmap IS 'Describes heuristics for finding a CSVImp atlas for a given CSV file. When looking for a CSV Atlas to use when importing a CSV file, the first atlasmap record found that matches the CSV file is used to select the Atlas file and Map in that Atlas to import the CSV file.';
--
-- Name: COLUMN atlasmap.atlasmap_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN atlasmap.atlasmap_id IS 'The internal id of this CSVImp atlas mapping.';
--
-- Name: COLUMN atlasmap.atlasmap_name; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN atlasmap.atlasmap_name IS 'The human-readable name of this atlas mapping.';
--
-- Name: COLUMN atlasmap.atlasmap_filter; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN atlasmap.atlasmap_filter IS 'A regular expression that should match the CSV file. Which part of the file that matches is determined by the filter type.';
--
-- Name: COLUMN atlasmap.atlasmap_filtertype; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN atlasmap.atlasmap_filtertype IS 'A description of what aspect of the CSV file the filter should be compared with. Handled values are: ''filename'' - the filter is matched against the name of the file; and ''firstline'' - the filter is matched against the first line of the file contents.';
--
-- Name: COLUMN atlasmap.atlasmap_atlas; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN atlasmap.atlasmap_atlas IS 'The name of the CSVImp Atlas file. This should be a simple pathname, not an absolute or relative name if possible. The full path will be determined by concatenating the operating-system-specific CSV Atlas default directory with the value here unless this is an absolute pathname.';
--
-- Name: COLUMN atlasmap.atlasmap_map; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN atlasmap.atlasmap_map IS 'The name of the Map inside the Atlas to use if the filter and filter type match the CVS file.';
--
-- Name: COLUMN atlasmap.atlasmap_headerline; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN atlasmap.atlasmap_headerline IS 'An indicator of whether the first line of the CSV file should be treated as a header line or as data.';
--
-- Name: atlasmap_atlasmap_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE atlasmap_atlasmap_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.atlasmap_atlasmap_id_seq OWNER TO admin;
--
-- Name: atlasmap_atlasmap_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE atlasmap_atlasmap_id_seq OWNED BY atlasmap.atlasmap_id;
--
-- Name: atlasmap_atlasmap_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('atlasmap_atlasmap_id_seq', 1, false);
--
-- Name: backup_usr; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE backup_usr (
usr_id integer,
usr_username text,
usr_propername text,
usr_passwd text,
usr_locale_id integer,
usr_initials text,
usr_agent boolean,
usr_active boolean,
usr_email text,
usr_dept_id integer,
usr_shift_id integer,
usr_window text
);
ALTER TABLE public.backup_usr OWNER TO admin;
--
-- Name: bankaccnt_bankaccnt_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE bankaccnt_bankaccnt_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.bankaccnt_bankaccnt_id_seq OWNER TO admin;
--
-- Name: bankaccnt_bankaccnt_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE bankaccnt_bankaccnt_id_seq OWNED BY bankaccnt.bankaccnt_id;
--
-- Name: bankaccnt_bankaccnt_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('bankaccnt_bankaccnt_id_seq', 13, true);
--
-- Name: bankadj; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE bankadj (
bankadj_id integer NOT NULL,
bankadj_bankaccnt_id integer NOT NULL,
bankadj_bankadjtype_id integer NOT NULL,
bankadj_created timestamp without time zone DEFAULT now() NOT NULL,
bankadj_username text DEFAULT geteffectivextuser() NOT NULL,
bankadj_date date NOT NULL,
bankadj_docnumber text,
bankadj_amount numeric(10,2) NOT NULL,
bankadj_notes text,
bankadj_sequence integer,
bankadj_posted boolean DEFAULT false NOT NULL,
bankadj_curr_id integer DEFAULT basecurrid(),
bankadj_curr_rate numeric
);
ALTER TABLE public.bankadj OWNER TO admin;
--
-- Name: TABLE bankadj; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE bankadj IS 'Bank Adjustments information';
--
-- Name: bankadj_bankadj_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE bankadj_bankadj_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.bankadj_bankadj_id_seq OWNER TO admin;
--
-- Name: bankadj_bankadj_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE bankadj_bankadj_id_seq OWNED BY bankadj.bankadj_id;
--
-- Name: bankadj_bankadj_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('bankadj_bankadj_id_seq', 1, false);
--
-- Name: bankadjtype; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE bankadjtype (
bankadjtype_id integer NOT NULL,
bankadjtype_name text NOT NULL,
bankadjtype_descrip text,
bankadjtype_accnt_id integer NOT NULL,
bankadjtype_iscredit boolean DEFAULT false NOT NULL,
CONSTRAINT bankadjtype_bankadjtype_name_check CHECK ((bankadjtype_name <> ''::text))
);
ALTER TABLE public.bankadjtype OWNER TO admin;
--
-- Name: TABLE bankadjtype; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE bankadjtype IS 'Bank Adjustment Types information';
--
-- Name: bankadjtype_bankadjtype_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE bankadjtype_bankadjtype_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.bankadjtype_bankadjtype_id_seq OWNER TO admin;
--
-- Name: bankadjtype_bankadjtype_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE bankadjtype_bankadjtype_id_seq OWNED BY bankadjtype.bankadjtype_id;
--
-- Name: bankadjtype_bankadjtype_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('bankadjtype_bankadjtype_id_seq', 1, false);
--
-- Name: bankrec; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE bankrec (
bankrec_id integer NOT NULL,
bankrec_created timestamp without time zone DEFAULT ('now'::text)::timestamp(6) with time zone NOT NULL,
bankrec_username text DEFAULT geteffectivextuser() NOT NULL,
bankrec_bankaccnt_id integer,
bankrec_opendate date,
bankrec_enddate date,
bankrec_openbal numeric(20,2),
bankrec_endbal numeric(20,2),
bankrec_posted boolean DEFAULT false,
bankrec_postdate timestamp without time zone
);
ALTER TABLE public.bankrec OWNER TO admin;
--
-- Name: TABLE bankrec; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE bankrec IS 'Bank Reconciliation posting history';
--
-- Name: bankrec_bankrec_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE bankrec_bankrec_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.bankrec_bankrec_id_seq OWNER TO admin;
--
-- Name: bankrec_bankrec_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE bankrec_bankrec_id_seq OWNED BY bankrec.bankrec_id;
--
-- Name: bankrec_bankrec_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('bankrec_bankrec_id_seq', 1, false);
--
-- Name: bankrecitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE bankrecitem (
bankrecitem_id integer NOT NULL,
bankrecitem_bankrec_id integer NOT NULL,
bankrecitem_source text NOT NULL,
bankrecitem_source_id integer NOT NULL,
bankrecitem_cleared boolean DEFAULT false,
bankrecitem_curr_rate numeric,
bankrecitem_amount numeric
);
ALTER TABLE public.bankrecitem OWNER TO admin;
--
-- Name: TABLE bankrecitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE bankrecitem IS 'Posted Bank Reconciliation Line Item information';
--
-- Name: bankrecitem_bankrecitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE bankrecitem_bankrecitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.bankrecitem_bankrecitem_id_seq OWNER TO admin;
--
-- Name: bankrecitem_bankrecitem_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE bankrecitem_bankrecitem_id_seq OWNED BY bankrecitem.bankrecitem_id;
--
-- Name: bankrecitem_bankrecitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('bankrecitem_bankrecitem_id_seq', 1, false);
--
-- Name: bomhead_bomhead_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE bomhead_bomhead_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.bomhead_bomhead_id_seq OWNER TO admin;
--
-- Name: bomhead_bomhead_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('bomhead_bomhead_id_seq', 54, true);
--
-- Name: bomitem_bomitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE bomitem_bomitem_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.bomitem_bomitem_id_seq OWNER TO admin;
--
-- Name: bomitem_bomitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('bomitem_bomitem_id_seq', 167, true);
--
-- Name: bomitemcost; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE bomitemcost (
bomitemcost_id integer NOT NULL,
bomitemcost_bomitem_id integer NOT NULL,
bomitemcost_costelem_id integer NOT NULL,
bomitemcost_lowlevel boolean DEFAULT false NOT NULL,
bomitemcost_stdcost numeric(16,6) DEFAULT 0 NOT NULL,
bomitemcost_posted date,
bomitemcost_actcost numeric(16,6) DEFAULT 0 NOT NULL,
bomitemcost_updated date,
bomitemcost_curr_id integer DEFAULT basecurrid() NOT NULL
);
ALTER TABLE public.bomitemcost OWNER TO admin;
--
-- Name: TABLE bomitemcost; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE bomitemcost IS 'Bomitem Cost information';
--
-- Name: bomitemcost_bomitemcost_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE bomitemcost_bomitemcost_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.bomitemcost_bomitemcost_id_seq OWNER TO admin;
--
-- Name: bomitemcost_bomitemcost_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE bomitemcost_bomitemcost_id_seq OWNED BY bomitemcost.bomitemcost_id;
--
-- Name: bomitemcost_bomitemcost_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('bomitemcost_bomitemcost_id_seq', 1, false);
--
-- Name: bomitemsub_bomitemsub_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE bomitemsub_bomitemsub_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.bomitemsub_bomitemsub_id_seq OWNER TO admin;
--
-- Name: bomitemsub_bomitemsub_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE bomitemsub_bomitemsub_id_seq OWNED BY bomitemsub.bomitemsub_id;
--
-- Name: bomitemsub_bomitemsub_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('bomitemsub_bomitemsub_id_seq', 1, false);
--
-- Name: bomwork; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE bomwork (
bomwork_id integer NOT NULL,
bomwork_set_id integer,
bomwork_seqnumber integer,
bomwork_item_id integer,
bomwork_item_type character(1),
bomwork_qtyper numeric(20,8),
bomwork_scrap numeric(20,10),
bomwork_status character(1),
bomwork_level integer,
bomwork_parent_id integer,
bomwork_effective date,
bomwork_expires date,
bomwork_stdunitcost numeric(16,6),
bomwork_actunitcost numeric(16,6),
bomwork_parent_seqnumber integer,
bomwork_createwo boolean,
bomwork_issuemethod character(1),
bomwork_char_id integer,
bomwork_value text,
bomwork_notes text,
bomwork_ref text,
bomwork_bomitem_id integer,
bomwork_ecn text,
bomwork_qtyfxd numeric(20,8) DEFAULT 0 NOT NULL,
bomwork_qtyreq numeric(20,8) DEFAULT 0 NOT NULL
);
ALTER TABLE public.bomwork OWNER TO admin;
--
-- Name: TABLE bomwork; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE bomwork IS 'Temporary table for storing information requested by Bill of Materials (BOM) displays and reports';
--
-- Name: COLUMN bomwork.bomwork_qtyfxd; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN bomwork.bomwork_qtyfxd IS 'The fixed quantity required';
--
-- Name: COLUMN bomwork.bomwork_qtyreq; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN bomwork.bomwork_qtyreq IS 'The total quantity required';
--
-- Name: bomwork_bomwork_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE bomwork_bomwork_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.bomwork_bomwork_id_seq OWNER TO admin;
--
-- Name: bomwork_bomwork_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE bomwork_bomwork_id_seq OWNED BY bomwork.bomwork_id;
--
-- Name: bomwork_bomwork_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('bomwork_bomwork_id_seq', 1, false);
--
-- Name: budget; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW budget AS
SELECT budgitem.budgitem_id AS budget_id, budgitem.budgitem_period_id AS budget_period_id, budgitem.budgitem_accnt_id AS budget_accnt_id, budgitem.budgitem_amount AS budget_amount FROM budgitem;
ALTER TABLE public.budget OWNER TO admin;
--
-- Name: budghead_budghead_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE budghead_budghead_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.budghead_budghead_id_seq OWNER TO admin;
--
-- Name: budghead_budghead_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE budghead_budghead_id_seq OWNED BY budghead.budghead_id;
--
-- Name: budghead_budghead_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('budghead_budghead_id_seq', 2, true);
--
-- Name: budgitem_budgitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE budgitem_budgitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.budgitem_budgitem_id_seq OWNER TO admin;
--
-- Name: budgitem_budgitem_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE budgitem_budgitem_id_seq OWNED BY budgitem.budgitem_id;
--
-- Name: budgitem_budgitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('budgitem_budgitem_id_seq', 1, true);
--
-- Name: calhead; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE calhead (
calhead_id integer DEFAULT nextval(('"calhead_calhead_id_seq"'::text)::regclass) NOT NULL,
calhead_type character(1),
calhead_name text NOT NULL,
calhead_descrip text,
calhead_origin character(1),
CONSTRAINT calhead_calhead_name_check CHECK ((calhead_name <> ''::text))
);
ALTER TABLE public.calhead OWNER TO admin;
--
-- Name: TABLE calhead; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE calhead IS 'Calendar header information';
--
-- Name: calhead_calhead_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE calhead_calhead_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.calhead_calhead_id_seq OWNER TO admin;
--
-- Name: calhead_calhead_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('calhead_calhead_id_seq', 48, true);
--
-- Name: carrier_carrier_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE carrier_carrier_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.carrier_carrier_id_seq OWNER TO admin;
--
-- Name: carrier_carrier_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('carrier_carrier_id_seq', 15, true);
--
-- Name: cashrcpt_cashrcpt_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cashrcpt_cashrcpt_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.cashrcpt_cashrcpt_id_seq OWNER TO admin;
--
-- Name: cashrcpt_cashrcpt_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE cashrcpt_cashrcpt_id_seq OWNED BY cashrcpt.cashrcpt_id;
--
-- Name: cashrcpt_cashrcpt_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cashrcpt_cashrcpt_id_seq', 112, true);
--
-- Name: cashrcptmisc_cashrcptmisc_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cashrcptmisc_cashrcptmisc_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.cashrcptmisc_cashrcptmisc_id_seq OWNER TO admin;
--
-- Name: cashrcptmisc_cashrcptmisc_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE cashrcptmisc_cashrcptmisc_id_seq OWNED BY cashrcptmisc.cashrcptmisc_id;
--
-- Name: cashrcptmisc_cashrcptmisc_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cashrcptmisc_cashrcptmisc_id_seq', 26, true);
--
-- Name: ccard_ccard_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE ccard_ccard_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.ccard_ccard_id_seq OWNER TO admin;
--
-- Name: ccard_ccard_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE ccard_ccard_id_seq OWNED BY ccard.ccard_id;
--
-- Name: ccard_ccard_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('ccard_ccard_id_seq', 1, false);
--
-- Name: ccardaud; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE ccardaud (
ccardaud_id integer NOT NULL,
ccardaud_ccard_id integer,
ccardaud_ccard_seq_old integer,
ccardaud_ccard_seq_new integer,
ccardaud_ccard_cust_id_old integer,
ccardaud_ccard_cust_id_new integer,
ccardaud_ccard_active_old boolean,
ccardaud_ccard_active_new boolean,
ccardaud_ccard_name_old bytea,
ccardaud_ccard_name_new bytea,
ccardaud_ccard_address1_old bytea,
ccardaud_ccard_address1_new bytea,
ccardaud_ccard_address2_old bytea,
ccardaud_ccard_address2_new bytea,
ccardaud_ccard_city_old bytea,
ccardaud_ccard_city_new bytea,
ccardaud_ccard_state_old bytea,
ccardaud_ccard_state_new bytea,
ccardaud_ccard_zip_old bytea,
ccardaud_ccard_zip_new bytea,
ccardaud_ccard_country_old bytea,
ccardaud_ccard_country_new bytea,
ccardaud_ccard_number_old bytea,
ccardaud_ccard_number_new bytea,
ccardaud_ccard_debit_old boolean,
ccardaud_ccard_debit_new boolean,
ccardaud_ccard_month_expired_old bytea,
ccardaud_ccard_month_expired_new bytea,
ccardaud_ccard_year_expired_old bytea,
ccardaud_ccard_year_expired_new bytea,
ccardaud_ccard_type_old character(1),
ccardaud_ccard_type_new character(1),
ccardaud_ccard_last_updated timestamp without time zone DEFAULT ('now'::text)::timestamp(6) with time zone NOT NULL,
ccardaud_ccard_last_updated_by_username text DEFAULT geteffectivextuser() NOT NULL
);
ALTER TABLE public.ccardaud OWNER TO admin;
--
-- Name: TABLE ccardaud; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE ccardaud IS 'Credit Card Information tracking data';
--
-- Name: ccardaud_ccardaud_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE ccardaud_ccardaud_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.ccardaud_ccardaud_id_seq OWNER TO admin;
--
-- Name: ccardaud_ccardaud_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE ccardaud_ccardaud_id_seq OWNED BY ccardaud.ccardaud_id;
--
-- Name: ccardaud_ccardaud_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('ccardaud_ccardaud_id_seq', 1, false);
--
-- Name: ccbank; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE ccbank (
ccbank_id integer NOT NULL,
ccbank_ccard_type text NOT NULL,
ccbank_bankaccnt_id integer,
CONSTRAINT ccbank_ccbank_ccard_type_check CHECK ((ccbank_ccard_type = ANY (ARRAY['A'::text, 'D'::text, 'M'::text, 'P'::text, 'V'::text])))
);
ALTER TABLE public.ccbank OWNER TO admin;
--
-- Name: ccbank_ccbank_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE ccbank_ccbank_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.ccbank_ccbank_id_seq OWNER TO admin;
--
-- Name: ccbank_ccbank_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE ccbank_ccbank_id_seq OWNED BY ccbank.ccbank_id;
--
-- Name: ccbank_ccbank_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('ccbank_ccbank_id_seq', 5, true);
--
-- Name: ccpay; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE ccpay (
ccpay_id integer NOT NULL,
ccpay_ccard_id integer,
ccpay_cust_id integer,
ccpay_amount numeric(20,2) DEFAULT 0.00 NOT NULL,
ccpay_auth boolean DEFAULT true NOT NULL,
ccpay_status character(1) NOT NULL,
ccpay_type character(1) NOT NULL,
ccpay_auth_charge character(1) NOT NULL,
ccpay_order_number text,
ccpay_order_number_seq integer,
ccpay_r_avs text,
ccpay_r_ordernum text,
ccpay_r_error text,
ccpay_r_approved text,
ccpay_r_code text,
ccpay_r_message text,
ccpay_yp_r_time timestamp without time zone,
ccpay_r_ref text,
ccpay_yp_r_tdate text,
ccpay_r_tax text,
ccpay_r_shipping text,
ccpay_yp_r_score integer,
ccpay_transaction_datetime timestamp without time zone DEFAULT ('now'::text)::timestamp(6) with time zone NOT NULL,
ccpay_by_username text DEFAULT geteffectivextuser() NOT NULL,
ccpay_curr_id integer DEFAULT basecurrid(),
ccpay_ccpay_id integer
);
ALTER TABLE public.ccpay OWNER TO admin;
--
-- Name: TABLE ccpay; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE ccpay IS 'Track Credit Card PAYments, although really this table tracs communications with Credit Card processing companies. Records in this table may progress from preauthorizations through captures to credits, or they may simply remain in their original state if there is no further processing.';
--
-- Name: COLUMN ccpay.ccpay_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_id IS 'Internal ID of this ccpay record.';
--
-- Name: COLUMN ccpay.ccpay_ccard_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_ccard_id IS 'Internal ID of the Credit Card used for this transaction.';
--
-- Name: COLUMN ccpay.ccpay_cust_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_cust_id IS 'Internal ID of the Customer owning the Credit Card';
--
-- Name: COLUMN ccpay.ccpay_amount; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_amount IS 'Actual amount of this transaction.';
--
-- Name: COLUMN ccpay.ccpay_auth; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_auth IS 'Boolean indicator of whether this transaction started out as a pre-authorization or not.';
--
-- Name: COLUMN ccpay.ccpay_status; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_status IS 'The status of the last attempted transaction for this record. Values include A = Authorized, C = Charged, D = Declined or otherwise rejected, V = Voided, X = Error.';
--
-- Name: COLUMN ccpay.ccpay_type; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_type IS 'The most recent type of transaction attempted with this record. Values include A = Authorize, C = Capture or Charge, R = cRedit, V = reVerse or Void.';
--
-- Name: COLUMN ccpay.ccpay_auth_charge; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_auth_charge IS 'The original type of transaction attempted with this record. Values are the same as for ccpay_type.';
--
-- Name: COLUMN ccpay.ccpay_order_number; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_order_number IS 'The original xTuple ERP order for which this credit card transaction applies. This will usually be either a Sales Order number or Credit Memo number.';
--
-- Name: COLUMN ccpay.ccpay_order_number_seq; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_order_number_seq IS 'A sequence number to differentiate between different transactions for the same ccpay_order_number. For example, if a Customer makes a down payment and a final payment for a single order, there will be two distinct ccpay records with the same ccpay_order_number but different ccpay_order_number_seq values (1 and 2, respectively).';
--
-- Name: COLUMN ccpay.ccpay_r_avs; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_r_avs IS 'The Address Verification System code returned by the credit card processing company.';
--
-- Name: COLUMN ccpay.ccpay_r_ordernum; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_r_ordernum IS 'A transaction ID returned by the credit card processing company to be used when referring to this transaction later. It may be used for voiding, crediting, or capturing previous transactions.';
--
-- Name: COLUMN ccpay.ccpay_r_error; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_r_error IS 'Error message, if any, describing why this record failed to be processed properly.';
--
-- Name: COLUMN ccpay.ccpay_r_approved; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_r_approved IS 'English text stating whether the transaction was approved, declined, hit an error, or was held for review. Specific values differ depending on the credit card processor.';
--
-- Name: COLUMN ccpay.ccpay_r_code; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_r_code IS 'The transaction Approval code returned by the credit card processor. Specific values differ depending on the credit card processor.';
--
-- Name: COLUMN ccpay.ccpay_r_message; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_r_message IS 'Additional text that describes the status of the transaction. This may be empty.';
--
-- Name: COLUMN ccpay.ccpay_yp_r_time; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_yp_r_time IS 'The time the transaction was posted according to the credit card processing company. May be blank.';
--
-- Name: COLUMN ccpay.ccpay_r_ref; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_r_ref IS 'An additional reference number assigned to this transaction by the credit card processing company.';
--
-- Name: COLUMN ccpay.ccpay_yp_r_tdate; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_yp_r_tdate IS 'The date the transaction was posted according to the credit card processing company. May be blank.';
--
-- Name: COLUMN ccpay.ccpay_r_tax; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_r_tax IS '[ deprecated ]';
--
-- Name: COLUMN ccpay.ccpay_r_shipping; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_r_shipping IS '[ deprecated ]';
--
-- Name: COLUMN ccpay.ccpay_yp_r_score; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_yp_r_score IS 'A potential fraud score returned by the credit card company. May be blank.';
--
-- Name: COLUMN ccpay.ccpay_transaction_datetime; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_transaction_datetime IS 'The date and time this record was created, unless explicitly set by the application.';
--
-- Name: COLUMN ccpay.ccpay_by_username; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_by_username IS 'The user who created this record, unless explicitly set by the application.';
--
-- Name: COLUMN ccpay.ccpay_curr_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_curr_id IS 'The internal ID of the currency of the ccpay_amount.';
--
-- Name: COLUMN ccpay.ccpay_ccpay_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN ccpay.ccpay_ccpay_id IS 'Foreign key to another ccpay record. This will have a value if a new ccpay record is created to record a Refund for part or all of another ccpay record.';
--
-- Name: ccpay_ccpay_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE ccpay_ccpay_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.ccpay_ccpay_id_seq OWNER TO admin;
--
-- Name: ccpay_ccpay_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE ccpay_ccpay_id_seq OWNED BY ccpay.ccpay_id;
--
-- Name: ccpay_ccpay_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('ccpay_ccpay_id_seq', 1, false);
--
-- Name: char_char_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE char_char_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.char_char_id_seq OWNER TO admin;
--
-- Name: char_char_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE char_char_id_seq OWNED BY "char".char_id;
--
-- Name: char_char_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('char_char_id_seq', 15, true);
--
-- Name: charass_charass_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE charass_charass_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.charass_charass_id_seq OWNER TO admin;
--
-- Name: charass_charass_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE charass_charass_id_seq OWNED BY charass.charass_id;
--
-- Name: charass_charass_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('charass_charass_id_seq', 1, false);
--
-- Name: charopt; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE charopt (
charopt_id integer NOT NULL,
charopt_char_id integer,
charopt_value text NOT NULL,
charopt_order integer DEFAULT 0 NOT NULL
);
ALTER TABLE public.charopt OWNER TO admin;
--
-- Name: TABLE charopt; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE charopt IS 'Stores list options for characteristics';
--
-- Name: COLUMN charopt.charopt_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN charopt.charopt_id IS 'Primary key';
--
-- Name: COLUMN charopt.charopt_char_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN charopt.charopt_char_id IS 'Reference to char table';
--
-- Name: COLUMN charopt.charopt_value; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN charopt.charopt_value IS 'Option value';
--
-- Name: COLUMN charopt.charopt_order; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN charopt.charopt_order IS 'Option sort order';
--
-- Name: charopt_charopt_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE charopt_charopt_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.charopt_charopt_id_seq OWNER TO admin;
--
-- Name: charopt_charopt_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE charopt_charopt_id_seq OWNED BY charopt.charopt_id;
--
-- Name: charopt_charopt_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('charopt_charopt_id_seq', 3, true);
--
-- Name: checkhead_checkhead_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE checkhead_checkhead_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.checkhead_checkhead_id_seq OWNER TO admin;
--
-- Name: checkhead_checkhead_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE checkhead_checkhead_id_seq OWNED BY checkhead.checkhead_id;
--
-- Name: checkhead_checkhead_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('checkhead_checkhead_id_seq', 1, false);
--
-- Name: checkitem_checkitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE checkitem_checkitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.checkitem_checkitem_id_seq OWNER TO admin;
--
-- Name: checkitem_checkitem_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE checkitem_checkitem_id_seq OWNED BY checkitem.checkitem_id;
--
-- Name: checkitem_checkitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('checkitem_checkitem_id_seq', 1, false);
--
-- Name: checkrecip; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW checkrecip AS
(SELECT custinfo.cust_id AS checkrecip_id, 'C' AS checkrecip_type, custinfo.cust_number AS checkrecip_number, custinfo.cust_name AS checkrecip_name, 'A/R' AS checkrecip_gltrans_source, findaraccount(custinfo.cust_id) AS checkrecip_accnt_id, cntct.cntct_addr_id AS checkrecip_addr_id FROM (custinfo LEFT JOIN cntct ON ((custinfo.cust_cntct_id = cntct.cntct_id))) UNION ALL SELECT taxauth.taxauth_id AS checkrecip_id, 'T' AS checkrecip_type, taxauth.taxauth_code AS checkrecip_number, taxauth.taxauth_name AS checkrecip_name, 'G/L' AS checkrecip_gltrans_source, taxauth.taxauth_accnt_id AS checkrecip_accnt_id, taxauth.taxauth_addr_id AS checkrecip_addr_id FROM taxauth) UNION ALL SELECT vendinfo.vend_id AS checkrecip_id, 'V' AS checkrecip_type, vendinfo.vend_number AS checkrecip_number, vendinfo.vend_name AS checkrecip_name, 'A/P' AS checkrecip_gltrans_source, findapaccount(vendinfo.vend_id) AS checkrecip_accnt_id, vendaddrinfo.vendaddr_addr_id AS checkrecip_addr_id FROM (vendinfo LEFT JOIN vendaddrinfo ON (((vendinfo.vend_id = vendaddrinfo.vendaddr_vend_id) AND (upper(vendaddrinfo.vendaddr_code) = 'REMIT'::text))));
ALTER TABLE public.checkrecip OWNER TO admin;
--
-- Name: classcode_classcode_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE classcode_classcode_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.classcode_classcode_id_seq OWNER TO admin;
--
-- Name: classcode_classcode_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('classcode_classcode_id_seq', 36, true);
--
-- Name: cmhead_cmhead_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cmhead_cmhead_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.cmhead_cmhead_id_seq OWNER TO admin;
--
-- Name: cmhead_cmhead_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cmhead_cmhead_id_seq', 206, true);
--
-- Name: cmheadtax; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cmheadtax (
)
INHERITS (taxhist);
ALTER TABLE public.cmheadtax OWNER TO admin;
--
-- Name: cmitem_cmitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cmitem_cmitem_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.cmitem_cmitem_id_seq OWNER TO admin;
--
-- Name: cmitem_cmitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cmitem_cmitem_id_seq', 83, true);
--
-- Name: cmitemtax; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cmitemtax (
)
INHERITS (taxhist);
ALTER TABLE public.cmitemtax OWNER TO admin;
--
-- Name: cmnttype_cmnttype_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cmnttype_cmnttype_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.cmnttype_cmnttype_id_seq OWNER TO admin;
--
-- Name: cmnttype_cmnttype_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE cmnttype_cmnttype_id_seq OWNED BY cmnttype.cmnttype_id;
--
-- Name: cmnttype_cmnttype_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cmnttype_cmnttype_id_seq', 3, true);
--
-- Name: cmnttypesource; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cmnttypesource (
cmnttypesource_id integer NOT NULL,
cmnttypesource_cmnttype_id integer,
cmnttypesource_source_id integer
);
ALTER TABLE public.cmnttypesource OWNER TO admin;
--
-- Name: TABLE cmnttypesource; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE cmnttypesource IS 'Comment Type/Source association';
--
-- Name: cmnttypesource_cmnttypesource_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cmnttypesource_cmnttypesource_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.cmnttypesource_cmnttypesource_id_seq OWNER TO admin;
--
-- Name: cmnttypesource_cmnttypesource_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE cmnttypesource_cmnttypesource_id_seq OWNED BY cmnttypesource.cmnttypesource_id;
--
-- Name: cmnttypesource_cmnttypesource_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cmnttypesource_cmnttypesource_id_seq', 76, true);
--
-- Name: cntct_cntct_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cntct_cntct_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.cntct_cntct_id_seq OWNER TO admin;
--
-- Name: cntct_cntct_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE cntct_cntct_id_seq OWNED BY cntct.cntct_id;
--
-- Name: cntct_cntct_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cntct_cntct_id_seq', 2, true);
--
-- Name: cntctaddr; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cntctaddr (
cntctaddr_id integer NOT NULL,
cntctaddr_cntct_id integer,
cntctaddr_primary boolean NOT NULL,
cntctaddr_addr_id integer NOT NULL,
cntctaddr_type character(2) NOT NULL
);
ALTER TABLE public.cntctaddr OWNER TO admin;
--
-- Name: cntctaddr_cntctaddr_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cntctaddr_cntctaddr_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.cntctaddr_cntctaddr_id_seq OWNER TO admin;
--
-- Name: cntctaddr_cntctaddr_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE cntctaddr_cntctaddr_id_seq OWNED BY cntctaddr.cntctaddr_id;
--
-- Name: cntctaddr_cntctaddr_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cntctaddr_cntctaddr_id_seq', 1, false);
--
-- Name: cntctdata; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cntctdata (
cntctdata_id integer NOT NULL,
cntctdata_cntct_id integer,
cntctdata_primary boolean NOT NULL,
cntctdata_text text NOT NULL,
cntctdata_type character(2) NOT NULL
);
ALTER TABLE public.cntctdata OWNER TO admin;
--
-- Name: cntctdata_cntctdata_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cntctdata_cntctdata_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.cntctdata_cntctdata_id_seq OWNER TO admin;
--
-- Name: cntctdata_cntctdata_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE cntctdata_cntctdata_id_seq OWNED BY cntctdata.cntctdata_id;
--
-- Name: cntctdata_cntctdata_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cntctdata_cntctdata_id_seq', 1, false);
--
-- Name: cntcteml; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cntcteml (
cntcteml_id integer NOT NULL,
cntcteml_cntct_id integer,
cntcteml_primary boolean DEFAULT false NOT NULL,
cntcteml_email text NOT NULL
);
ALTER TABLE public.cntcteml OWNER TO admin;
--
-- Name: TABLE cntcteml; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE cntcteml IS 'Stores email addresses for contacts';
--
-- Name: COLUMN cntcteml.cntcteml_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN cntcteml.cntcteml_id IS 'Primary key';
--
-- Name: COLUMN cntcteml.cntcteml_cntct_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN cntcteml.cntcteml_cntct_id IS 'Reference to contact table';
--
-- Name: COLUMN cntcteml.cntcteml_primary; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN cntcteml.cntcteml_primary IS 'Flags whether this is the primary email address';
--
-- Name: COLUMN cntcteml.cntcteml_email; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN cntcteml.cntcteml_email IS 'Alternate information';
--
-- Name: cntcteml_cntcteml_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cntcteml_cntcteml_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.cntcteml_cntcteml_id_seq OWNER TO admin;
--
-- Name: cntcteml_cntcteml_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE cntcteml_cntcteml_id_seq OWNED BY cntcteml.cntcteml_id;
--
-- Name: cntcteml_cntcteml_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cntcteml_cntcteml_id_seq', 1, false);
--
-- Name: cntctmrgd; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cntctmrgd (
cntctmrgd_cntct_id integer NOT NULL,
cntctmrgd_error boolean DEFAULT false
);
ALTER TABLE public.cntctmrgd OWNER TO admin;
--
-- Name: cntctsel; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cntctsel (
cntctsel_cntct_id integer NOT NULL,
cntctsel_target boolean,
cntctsel_mrg_crmacct_id boolean DEFAULT false,
cntctsel_mrg_addr_id boolean DEFAULT false,
cntctsel_mrg_first_name boolean DEFAULT false,
cntctsel_mrg_last_name boolean DEFAULT false,
cntctsel_mrg_honorific boolean DEFAULT false,
cntctsel_mrg_initials boolean DEFAULT false,
cntctsel_mrg_phone boolean DEFAULT false,
cntctsel_mrg_phone2 boolean DEFAULT false,
cntctsel_mrg_fax boolean DEFAULT false,
cntctsel_mrg_email boolean DEFAULT false,
cntctsel_mrg_webaddr boolean DEFAULT false,
cntctsel_mrg_notes boolean DEFAULT false,
cntctsel_mrg_title boolean DEFAULT false,
cntctsel_mrg_middle boolean DEFAULT false,
cntctsel_mrg_suffix boolean DEFAULT false,
cntctsel_mrg_owner_username boolean DEFAULT false
);
ALTER TABLE public.cntctsel OWNER TO admin;
--
-- Name: cntslip_cntslip_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cntslip_cntslip_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.cntslip_cntslip_id_seq OWNER TO admin;
--
-- Name: cntslip_cntslip_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cntslip_cntslip_id_seq', 97, true);
--
-- Name: cobill; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cobill (
cobill_id integer DEFAULT nextval(('cobill_cobill_id_seq'::text)::regclass) NOT NULL,
cobill_coitem_id integer,
cobill_selectdate timestamp with time zone,
cobill_qty numeric(18,6),
cobill_invcnum integer,
cobill_toclose boolean,
cobill_cobmisc_id integer,
cobill_select_username text,
cobill_invcitem_id integer,
cobill_taxtype_id integer
);
ALTER TABLE public.cobill OWNER TO admin;
--
-- Name: TABLE cobill; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE cobill IS 'Billing Selection Line Item information';
--
-- Name: cobill_cobill_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cobill_cobill_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.cobill_cobill_id_seq OWNER TO admin;
--
-- Name: cobill_cobill_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cobill_cobill_id_seq', 528, true);
--
-- Name: cobilltax; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cobilltax (
)
INHERITS (taxhist);
ALTER TABLE public.cobilltax OWNER TO admin;
--
-- Name: cobmisc; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cobmisc (
cobmisc_id integer DEFAULT nextval(('cobmisc_cobmisc_id_seq'::text)::regclass) NOT NULL,
cobmisc_cohead_id integer,
cobmisc_shipvia text,
cobmisc_freight numeric(16,4),
cobmisc_misc numeric(16,4),
cobmisc_payment numeric(16,4),
cobmisc_paymentref text,
cobmisc_notes text,
cobmisc_shipdate date,
cobmisc_invcnumber integer,
cobmisc_invcdate date,
cobmisc_posted boolean,
cobmisc_misc_accnt_id integer,
cobmisc_misc_descrip text,
cobmisc_closeorder boolean,
cobmisc_curr_id integer DEFAULT basecurrid(),
cobmisc_invchead_id integer,
cobmisc_taxzone_id integer,
cobmisc_taxtype_id integer
);
ALTER TABLE public.cobmisc OWNER TO admin;
--
-- Name: TABLE cobmisc; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE cobmisc IS 'General information about Billing Selections';
--
-- Name: cobmisc_cobmisc_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cobmisc_cobmisc_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.cobmisc_cobmisc_id_seq OWNER TO admin;
--
-- Name: cobmisc_cobmisc_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cobmisc_cobmisc_id_seq', 204, true);
--
-- Name: cobmisctax; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE cobmisctax (
)
INHERITS (taxhist);
ALTER TABLE public.cobmisctax OWNER TO admin;
--
-- Name: cohead_cohead_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cohead_cohead_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.cohead_cohead_id_seq OWNER TO admin;
--
-- Name: cohead_cohead_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cohead_cohead_id_seq', 2952, true);
--
-- Name: cohist_cohist_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cohist_cohist_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.cohist_cohist_id_seq OWNER TO admin;
--
-- Name: cohist_cohist_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cohist_cohist_id_seq', 493, true);
--
-- Name: coitem_coitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE coitem_coitem_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.coitem_coitem_id_seq OWNER TO admin;
--
-- Name: coitem_coitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('coitem_coitem_id_seq', 564, true);
--
-- Name: comment_comment_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE comment_comment_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.comment_comment_id_seq OWNER TO admin;
--
-- Name: comment_comment_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('comment_comment_id_seq', 63, true);
--
-- Name: company; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE company (
company_id integer NOT NULL,
company_number text NOT NULL,
company_descrip text,
company_external boolean DEFAULT false NOT NULL,
company_server text,
company_port integer,
company_database text,
company_curr_id integer,
company_yearend_accnt_id integer,
company_gainloss_accnt_id integer,
company_dscrp_accnt_id integer,
company_unrlzgainloss_accnt_id integer,
CONSTRAINT company_company_number_check CHECK ((company_number <> ''::text))
);
ALTER TABLE public.company OWNER TO admin;
--
-- Name: TABLE company; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE company IS 'Company information';
--
-- Name: company_company_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE company_company_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.company_company_id_seq OWNER TO admin;
--
-- Name: company_company_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE company_company_id_seq OWNED BY company.company_id;
--
-- Name: company_company_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('company_company_id_seq', 1, true);
--
-- Name: contrct_contrct_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE contrct_contrct_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.contrct_contrct_id_seq OWNER TO admin;
--
-- Name: contrct_contrct_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE contrct_contrct_id_seq OWNED BY contrct.contrct_id;
--
-- Name: contrct_contrct_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('contrct_contrct_id_seq', 1, false);
--
-- Name: shiphead; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE shiphead (
shiphead_id integer NOT NULL,
shiphead_order_id integer NOT NULL,
shiphead_order_type text NOT NULL,
shiphead_number text NOT NULL,
shiphead_shipvia text,
shiphead_freight numeric(16,4) DEFAULT 0.0 NOT NULL,
shiphead_freight_curr_id integer DEFAULT basecurrid() NOT NULL,
shiphead_notes text,
shiphead_shipped boolean DEFAULT false NOT NULL,
shiphead_shipdate date,
shiphead_shipchrg_id integer,
shiphead_shipform_id integer,
shiphead_sfstatus character(1) NOT NULL,
shiphead_tracknum text,
CONSTRAINT shiphead_shiphead_number_check CHECK ((shiphead_number <> ''::text)),
CONSTRAINT shiphead_shiphead_order_type_check CHECK (((shiphead_order_type = 'SO'::text) OR (shiphead_order_type = 'TO'::text))),
CONSTRAINT shiphead_shiphead_sfstatus_check CHECK ((((shiphead_sfstatus = 'D'::bpchar) OR (shiphead_sfstatus = 'N'::bpchar)) OR (shiphead_sfstatus = 'P'::bpchar)))
);
ALTER TABLE public.shiphead OWNER TO admin;
--
-- Name: TABLE shiphead; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE shiphead IS 'General information about Shipments';
--
-- Name: shipitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE shipitem (
shipitem_id integer NOT NULL,
shipitem_orderitem_id integer NOT NULL,
shipitem_shiphead_id integer NOT NULL,
shipitem_qty numeric(18,6) NOT NULL,
shipitem_shipped boolean DEFAULT false NOT NULL,
shipitem_shipdate timestamp with time zone,
shipitem_transdate timestamp with time zone,
shipitem_trans_username text,
shipitem_invoiced boolean DEFAULT false NOT NULL,
shipitem_invcitem_id integer,
shipitem_value numeric(18,6),
shipitem_invhist_id integer
);
ALTER TABLE public.shipitem OWNER TO admin;
--
-- Name: TABLE shipitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE shipitem IS 'Information about Shipment Line Items';
--
-- Name: coship; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW coship AS
SELECT shipitem.shipitem_id AS coship_id, shipitem.shipitem_orderitem_id AS coship_coitem_id, shipitem.shipitem_shipdate AS coship_shipdate, shipitem.shipitem_qty AS coship_qty, shipitem.shipitem_transdate AS coship_transdate, shipitem.shipitem_shipped AS coship_shipped, shipitem.shipitem_invoiced AS coship_invoiced, shipitem.shipitem_shiphead_id AS coship_cosmisc_id, shipitem.shipitem_trans_username AS coship_trans_username, shipitem.shipitem_invcitem_id AS coship_invcitem_id FROM shipitem, shiphead WHERE ((shipitem.shipitem_shiphead_id = shiphead.shiphead_id) AND (shiphead.shiphead_order_type = 'SO'::text));
ALTER TABLE public.coship OWNER TO admin;
--
-- Name: coship_coship_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE coship_coship_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.coship_coship_id_seq OWNER TO admin;
--
-- Name: coship_coship_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('coship_coship_id_seq', 441, true);
--
-- Name: cosmisc; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW cosmisc AS
SELECT shiphead.shiphead_id AS cosmisc_id, shiphead.shiphead_order_id AS cosmisc_cohead_id, shiphead.shiphead_shipvia AS cosmisc_shipvia, shiphead.shiphead_freight AS cosmisc_freight, shiphead.shiphead_notes AS cosmisc_notes, shiphead.shiphead_shipdate AS cosmisc_shipdate, shiphead.shiphead_shipchrg_id AS cosmisc_shipchrg_id, shiphead.shiphead_shipform_id AS cosmisc_shipform_id, shiphead.shiphead_shipped AS cosmisc_shipped, shiphead.shiphead_sfstatus AS cosmisc_sfstatus, shiphead.shiphead_tracknum AS cosmisc_tracknum, shiphead.shiphead_number AS cosmisc_number FROM shiphead WHERE (shiphead.shiphead_order_type = 'SO'::text);
ALTER TABLE public.cosmisc OWNER TO admin;
--
-- Name: cosmisc_cosmisc_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cosmisc_cosmisc_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.cosmisc_cosmisc_id_seq OWNER TO admin;
--
-- Name: cosmisc_cosmisc_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cosmisc_cosmisc_id_seq', 202, true);
--
-- Name: cosrc_cosrc_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cosrc_cosrc_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.cosrc_cosrc_id_seq OWNER TO admin;
--
-- Name: cosrc_cosrc_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cosrc_cosrc_id_seq', 1, false);
--
-- Name: costcat_costcat_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE costcat_costcat_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.costcat_costcat_id_seq OWNER TO admin;
--
-- Name: costcat_costcat_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('costcat_costcat_id_seq', 30, true);
--
-- Name: costelem_costelem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE costelem_costelem_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.costelem_costelem_id_seq OWNER TO admin;
--
-- Name: costelem_costelem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('costelem_costelem_id_seq', 23, true);
--
-- Name: costhist; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE costhist (
costhist_id integer DEFAULT nextval(('"costhist_costhist_id_seq"'::text)::regclass) NOT NULL,
costhist_item_id integer,
costhist_costelem_id integer,
costhist_type character(1),
costhist_date timestamp with time zone,
costhist_oldcost numeric(16,6),
costhist_newcost numeric(16,6),
costhist_lowlevel boolean,
costhist_oldcurr_id integer DEFAULT basecurrid(),
costhist_newcurr_id integer DEFAULT basecurrid(),
costhist_username text
);
ALTER TABLE public.costhist OWNER TO admin;
--
-- Name: TABLE costhist; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE costhist IS 'Item Cost history';
--
-- Name: costhist_costhist_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE costhist_costhist_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.costhist_costhist_id_seq OWNER TO admin;
--
-- Name: costhist_costhist_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('costhist_costhist_id_seq', 992, true);
--
-- Name: costupdate; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE costupdate (
costupdate_item_id integer,
costupdate_lowlevel_code integer DEFAULT 1 NOT NULL,
costupdate_item_type character(1)
);
ALTER TABLE public.costupdate OWNER TO admin;
--
-- Name: TABLE costupdate; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE costupdate IS 'Scratch area for sequencing the updating of item costs';
--
-- Name: country; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE country (
country_id integer NOT NULL,
country_abbr character(2),
country_name text,
country_curr_abbr character(3),
country_curr_name text,
country_curr_number character(3),
country_curr_symbol character varying(9),
country_qt_number integer,
CONSTRAINT country_country_abbr_check CHECK ((country_abbr <> ''::bpchar)),
CONSTRAINT country_country_name_check CHECK ((country_name <> ''::text))
);
ALTER TABLE public.country OWNER TO admin;
--
-- Name: TABLE country; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE country IS 'Basic information and properties about countries.';
--
-- Name: country_country_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE country_country_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.country_country_id_seq OWNER TO admin;
--
-- Name: country_country_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE country_country_id_seq OWNED BY country.country_id;
--
-- Name: country_country_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('country_country_id_seq', 242, true);
--
-- Name: salesaccnt; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE salesaccnt (
salesaccnt_id integer DEFAULT nextval(('"salesaccnt_salesaccnt_id_seq"'::text)::regclass) NOT NULL,
salesaccnt_custtype_id integer,
salesaccnt_prodcat_id integer,
salesaccnt_warehous_id integer,
salesaccnt_sales_accnt_id integer,
salesaccnt_credit_accnt_id integer,
salesaccnt_cos_accnt_id integer,
salesaccnt_custtype text,
salesaccnt_prodcat text,
salesaccnt_returns_accnt_id integer,
salesaccnt_cor_accnt_id integer,
salesaccnt_cow_accnt_id integer,
salesaccnt_saletype_id integer,
salesaccnt_shipzone_id integer
);
ALTER TABLE public.salesaccnt OWNER TO admin;
--
-- Name: TABLE salesaccnt; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE salesaccnt IS 'Sales Account assignment information';
--
-- Name: COLUMN salesaccnt.salesaccnt_saletype_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN salesaccnt.salesaccnt_saletype_id IS 'Associated sale type for sales account.';
--
-- Name: COLUMN salesaccnt.salesaccnt_shipzone_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN salesaccnt.salesaccnt_shipzone_id IS 'Associated shipping zone for sales account.';
--
-- Name: creditmemoeditlist; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW creditmemoeditlist AS
((((SELECT cmhead.cmhead_id AS orderid, (-2) AS itemid, ('C/M-'::text || formatcreditmemonumber(cmhead.cmhead_id)) AS documentnumber, custinfo.cust_number, cmhead.cmhead_billtoname AS billtoname, cmhead.cmhead_number AS ordernumber, (-1) AS linenumber, '' AS item, '' AS itemdescrip, '' AS iteminvuom, '' AS qtytobill, '' AS price, formatmoney((((calccmheadamt(cmhead.cmhead_id) + cmhead.cmhead_freight) + cmhead.cmhead_misc) + calccmheadtax(cmhead.cmhead_id))) AS extprice, 'Credit' AS sence, COALESCE((SELECT formatglaccountlong(accnt.accnt_id) AS formatglaccountlong FROM accnt WHERE (accnt.accnt_id = findaraccount(custinfo.cust_id))), 'Not Assigned'::text) AS account FROM custinfo, cmhead WHERE ((((cmhead.cmhead_cust_id = custinfo.cust_id) AND (cmhead.cmhead_cust_id = custinfo.cust_id)) AND (NOT cmhead.cmhead_posted)) AND (NOT cmhead.cmhead_hold)) UNION SELECT cmhead.cmhead_id AS orderid, (-1) AS itemid, '' AS documentnumber, '' AS cust_number, '' AS billtoname, cmhead.cmhead_number AS ordernumber, (-1) AS linenumber, 'Freight' AS item, 'Freight Charge' AS itemdescrip, '' AS iteminvuom, '' AS qtytobill, formatmoney(cmhead.cmhead_freight) AS price, formatmoney(cmhead.cmhead_freight) AS extprice, 'Debit' AS sence, CASE WHEN (accnt.accnt_id IS NULL) THEN 'Not Assigned'::text ELSE formatglaccountlong(accnt.accnt_id) END AS account FROM (cmhead LEFT JOIN accnt ON ((accnt.accnt_id = findfreightaccount(cmhead.cmhead_cust_id)))) WHERE (((NOT cmhead.cmhead_posted) AND (NOT cmhead.cmhead_hold)) AND (cmhead.cmhead_freight <> (0)::numeric))) UNION SELECT cmhead.cmhead_id AS orderid, (-1) AS itemid, '' AS documentnumber, '' AS cust_number, '' AS billtoname, cmhead.cmhead_number AS ordernumber, (-1) AS linenumber, 'Misc. Charge' AS item, cmhead.cmhead_misc_descrip AS itemdescrip, '' AS iteminvuom, '' AS qtytobill, formatmoney(cmhead.cmhead_misc) AS price, formatmoney(cmhead.cmhead_misc) AS extprice, 'Debit' AS sence, formatglaccountlong(cmhead.cmhead_misc_accnt_id) AS account FROM cmhead WHERE (((NOT cmhead.cmhead_posted) AND (NOT cmhead.cmhead_hold)) AND (cmhead.cmhead_misc <> (0)::numeric))) UNION SELECT cmhead.cmhead_id AS orderid, (-1) AS itemid, '' AS documentnumber, '' AS cust_number, '' AS billtoname, cmhead.cmhead_number AS ordernumber, (-1) AS linenumber, 'Sales Tax' AS item, tax.tax_descrip AS itemdescrip, '' AS iteminvuom, '' AS qtytobill, formatmoney((cmheadtax.taxhist_tax * (-1.0))) AS price, formatmoney((cmheadtax.taxhist_tax * (-1.0))) AS extprice, 'Debit' AS sence, CASE WHEN (accnt.accnt_id IS NULL) THEN 'Not Assigned'::text ELSE ((formatglaccountlong(accnt.accnt_id) || ' - '::text) || accnt.accnt_descrip) END AS account FROM (((cmhead JOIN cmheadtax ON ((cmheadtax.taxhist_parent_id = cmhead.cmhead_id))) JOIN tax ON ((tax.tax_id = cmheadtax.taxhist_tax_id))) LEFT JOIN accnt ON ((accnt.accnt_id = tax.tax_sales_accnt_id))) WHERE ((NOT cmhead.cmhead_posted) AND (NOT cmhead.cmhead_hold))) UNION SELECT cmhead.cmhead_id AS orderid, (-1) AS itemid, '' AS documentnumber, '' AS cust_number, '' AS billtoname, cmhead.cmhead_number AS ordernumber, (-1) AS linenumber, 'Sales Tax' AS item, tax.tax_descrip AS itemdescrip, '' AS iteminvuom, '' AS qtytobill, formatmoney((cmitemtax.taxhist_tax * (-1.0))) AS price, formatmoney((cmitemtax.taxhist_tax * (-1.0))) AS extprice, 'Debit' AS sence, CASE WHEN (accnt.accnt_id IS NULL) THEN 'Not Assigned'::text ELSE ((formatglaccountlong(accnt.accnt_id) || ' - '::text) || accnt.accnt_descrip) END AS account FROM ((((cmhead JOIN cmitem ON ((cmitem.cmitem_cmhead_id = cmhead.cmhead_id))) JOIN cmitemtax ON ((cmitemtax.taxhist_parent_id = cmitem.cmitem_id))) JOIN tax ON ((tax.tax_id = cmitemtax.taxhist_tax_id))) LEFT JOIN accnt ON ((accnt.accnt_id = tax.tax_sales_accnt_id))) WHERE ((NOT cmhead.cmhead_posted) AND (NOT cmhead.cmhead_hold))) UNION SELECT cmhead.cmhead_id AS orderid, cmitem.cmitem_id AS itemid, '' AS documentnumber, '' AS cust_number, '' AS billtoname, cmhead.cmhead_number AS ordernumber, cmitem.cmitem_linenumber AS linenumber, item.item_number AS item, item.item_descrip1 AS itemdescrip, uom.uom_name AS iteminvuom, formatqty(COALESCE((cmitem.cmitem_qtycredit * cmitem.cmitem_qty_invuomratio), (0)::numeric)) AS qtytobill, formatprice(COALESCE((cmitem.cmitem_unitprice / cmitem.cmitem_price_invuomratio), (0)::numeric)) AS price, formatmoney(COALESCE(round(((cmitem.cmitem_qtycredit * cmitem.cmitem_qty_invuomratio) * (cmitem.cmitem_unitprice / cmitem.cmitem_price_invuomratio)), 2), (0)::numeric)) AS extprice, 'Debit' AS sence, COALESCE((SELECT formatglaccountlong(accnt.accnt_id) AS formatglaccountlong FROM accnt, salesaccnt WHERE ((salesaccnt.salesaccnt_sales_accnt_id = accnt.accnt_id) AND (salesaccnt.salesaccnt_id = findsalesaccnt(cmitem.cmitem_itemsite_id, 'IS'::text, cmhead.cmhead_cust_id, cmhead.cmhead_saletype_id, cmhead.cmhead_shipzone_id)))), 'Not Assigned'::text) AS account FROM item, itemsite, cmhead, cmitem, uom WHERE ((((((cmitem.cmitem_cmhead_id = cmhead.cmhead_id) AND (cmitem.cmitem_itemsite_id = itemsite.itemsite_id)) AND (itemsite.itemsite_item_id = item.item_id)) AND (item.item_inv_uom_id = uom.uom_id)) AND (NOT cmhead.cmhead_posted)) AND (NOT cmhead.cmhead_hold)) ORDER BY 6, 7;
ALTER TABLE public.creditmemoeditlist OWNER TO admin;
--
-- Name: creditmemoitem; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW creditmemoitem AS
SELECT cmitem.cmitem_id, cmitem.cmitem_cmhead_id, cmitem.cmitem_linenumber, cmitem.cmitem_itemsite_id, cmitem.cmitem_qtycredit, cmitem.cmitem_qtyreturned, cmitem.cmitem_unitprice, cmitem.cmitem_comments, cmitem.cmitem_rsncode_id, cmitem.cmitem_taxtype_id, cmitem.cmitem_qty_uom_id, cmitem.cmitem_qty_invuomratio, cmitem.cmitem_price_uom_id, cmitem.cmitem_price_invuomratio, cmitem.cmitem_raitem_id, cmitem.cmitem_updateinv, itemsite.itemsite_item_id AS item_id, COALESCE((cmitem.cmitem_qtycredit * cmitem.cmitem_qty_invuomratio), (0)::numeric) AS qty, COALESCE((cmitem.cmitem_unitprice / cmitem.cmitem_price_invuomratio), (0)::numeric) AS unitprice, COALESCE(round(((cmitem.cmitem_qtycredit * cmitem.cmitem_qty_invuomratio) * (cmitem.cmitem_unitprice / cmitem.cmitem_price_invuomratio)), 2), (0)::numeric) AS extprice, currtobase(cmhead.cmhead_curr_id, COALESCE(round(((cmitem.cmitem_qtycredit * cmitem.cmitem_qty_invuomratio) * (cmitem.cmitem_unitprice / cmitem.cmitem_price_invuomratio)), 2), (0)::numeric), cmhead.cmhead_docdate) AS baseextprice, (SELECT COALESCE(sum(cmitemtax.taxhist_tax), (0)::numeric) AS "coalesce" FROM cmitemtax WHERE (cmitemtax.taxhist_parent_id = cmitem.cmitem_id)) AS tax, CASE WHEN (itemsite.itemsite_costmethod = 'A'::bpchar) THEN avgcost(itemsite.itemsite_id) ELSE stdcost(itemsite.itemsite_item_id) END AS unitcost FROM ((cmitem JOIN cmhead ON ((cmhead.cmhead_id = cmitem.cmitem_cmhead_id))) LEFT JOIN itemsite ON ((itemsite.itemsite_id = cmitem.cmitem_itemsite_id)));
ALTER TABLE public.creditmemoitem OWNER TO admin;
--
-- Name: VIEW creditmemoitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON VIEW creditmemoitem IS 'Single point for credit memo item (cmitem) calculations.';
--
-- Name: crmacct_crmacct_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE crmacct_crmacct_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.crmacct_crmacct_id_seq OWNER TO admin;
--
-- Name: crmacct_crmacct_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE crmacct_crmacct_id_seq OWNED BY crmacct.crmacct_id;
--
-- Name: crmacct_crmacct_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('crmacct_crmacct_id_seq', 26, true);
--
-- Name: crmacctsel; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE crmacctsel (
crmacctsel_src_crmacct_id integer NOT NULL,
crmacctsel_dest_crmacct_id integer,
crmacctsel_mrg_crmacct_active boolean DEFAULT false NOT NULL,
crmacctsel_mrg_crmacct_cntct_id_1 boolean DEFAULT false NOT NULL,
crmacctsel_mrg_crmacct_cntct_id_2 boolean DEFAULT false NOT NULL,
crmacctsel_mrg_crmacct_competitor_id boolean DEFAULT false NOT NULL,
crmacctsel_mrg_crmacct_cust_id boolean DEFAULT false NOT NULL,
crmacctsel_mrg_crmacct_emp_id boolean DEFAULT false NOT NULL,
crmacctsel_mrg_crmacct_name boolean DEFAULT false NOT NULL,
crmacctsel_mrg_crmacct_notes boolean DEFAULT false NOT NULL,
crmacctsel_mrg_crmacct_owner_username boolean DEFAULT false NOT NULL,
crmacctsel_mrg_crmacct_parent_id boolean DEFAULT false NOT NULL,
crmacctsel_mrg_crmacct_partner_id boolean DEFAULT false NOT NULL,
crmacctsel_mrg_crmacct_prospect_id boolean DEFAULT false NOT NULL,
crmacctsel_mrg_crmacct_salesrep_id boolean DEFAULT false NOT NULL,
crmacctsel_mrg_crmacct_taxauth_id boolean DEFAULT false NOT NULL,
crmacctsel_mrg_crmacct_type boolean DEFAULT false NOT NULL,
crmacctsel_mrg_crmacct_usr_username boolean DEFAULT false NOT NULL,
crmacctsel_mrg_crmacct_vend_id boolean DEFAULT false NOT NULL,
crmacctsel_mrg_crmacct_number boolean DEFAULT false NOT NULL
);
ALTER TABLE public.crmacctsel OWNER TO admin;
--
-- Name: TABLE crmacctsel; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE crmacctsel IS 'This table records the proposed conditions of a CRM Account merge. When this merge is performed, the BOOLEAN columns in this table indicate which values in the crmacct table will be copied to the target record. Data in this table are temporary and will be removed by a purge.';
--
-- Name: COLUMN crmacctsel.crmacctsel_src_crmacct_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacctsel.crmacctsel_src_crmacct_id IS 'This is the internal ID of the CRM Account record the data will come from during the merge.';
--
-- Name: COLUMN crmacctsel.crmacctsel_dest_crmacct_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN crmacctsel.crmacctsel_dest_crmacct_id IS 'This is the internal ID of the CRM Account record the data will go to during the merge. If crmacctsel_src_crmacct_id = crmacctsel_dest_crmacct_id, they indicate which crmacct record is the destination of the merge, meaning this is the record that will remain in the database after the merge has been completed and the intermediate data have been purged.';
--
-- Name: curr_rate; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE curr_rate (
curr_rate_id integer NOT NULL,
curr_id integer NOT NULL,
curr_rate numeric(16,8) NOT NULL,
curr_effective date NOT NULL,
curr_expires date NOT NULL,
CONSTRAINT curr_rate_curr_rate_check CHECK ((curr_rate > (0)::numeric))
);
ALTER TABLE public.curr_rate OWNER TO admin;
--
-- Name: TABLE curr_rate; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE curr_rate IS 'Exchange Rates Between Base and Foreign Currencies';
--
-- Name: curr_rate_curr_rate_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE curr_rate_curr_rate_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.curr_rate_curr_rate_id_seq OWNER TO admin;
--
-- Name: curr_rate_curr_rate_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE curr_rate_curr_rate_id_seq OWNED BY curr_rate.curr_rate_id;
--
-- Name: curr_rate_curr_rate_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('curr_rate_curr_rate_id_seq', 1, true);
--
-- Name: curr_symbol_curr_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE curr_symbol_curr_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.curr_symbol_curr_id_seq OWNER TO admin;
--
-- Name: curr_symbol_curr_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE curr_symbol_curr_id_seq OWNED BY curr_symbol.curr_id;
--
-- Name: curr_symbol_curr_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('curr_symbol_curr_id_seq', 1, true);
--
-- Name: cust; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW cust AS
SELECT custinfo.cust_id, custinfo.cust_active, custinfo.cust_custtype_id, custinfo.cust_salesrep_id, custinfo.cust_commprcnt, custinfo.cust_name, m.addr_line1 AS cust_address1, m.addr_line2 AS cust_address2, m.addr_line3 AS cust_address3, m.addr_city AS cust_city, m.addr_state AS cust_state, m.addr_postalcode AS cust_zipcode, btrim(((mc.cntct_first_name || ' '::text) || mc.cntct_last_name)) AS cust_contact, mc.cntct_phone AS cust_phone, mc.cntct_fax AS cust_fax, mc.cntct_email AS cust_email, c.addr_line1 AS cust_corraddress1, c.addr_line2 AS cust_corraddress2, c.addr_line3 AS cust_corraddress3, c.addr_city AS cust_corrcity, c.addr_state AS cust_corrstate, c.addr_postalcode AS cust_corrzipcode, btrim(((cc.cntct_first_name || ' '::text) || cc.cntct_last_name)) AS cust_corrcontact, cc.cntct_phone AS cust_corrphone, cc.cntct_fax AS cust_corrfax, cc.cntct_email AS cust_corremail, custinfo.cust_creditlmt, custinfo.cust_creditrating, custinfo.cust_financecharge, custinfo.cust_backorder, custinfo.cust_partialship, custinfo.cust_terms_id, custinfo.cust_discntprcnt, custinfo.cust_taxzone_id, custinfo.cust_balmethod, custinfo.cust_ffshipto, custinfo.cust_shipform_id, custinfo.cust_shipvia, custinfo.cust_blanketpos, custinfo.cust_shipchrg_id, custinfo.cust_creditstatus, custinfo.cust_comments, custinfo.cust_ffbillto, m.addr_country AS cust_country, c.addr_country AS cust_corrcountry, custinfo.cust_usespos, custinfo.cust_number, custinfo.cust_dateadded, custinfo.cust_exported, custinfo.cust_emaildelivery, custinfo.cust_ediemail, custinfo.cust_edisubject, custinfo.cust_edifilename, custinfo.cust_ediemailbody, custinfo.cust_autoupdatestatus, custinfo.cust_autoholdorders, custinfo.cust_edicc, custinfo.cust_ediprofile_id, custinfo.cust_preferred_warehous_id, custinfo.cust_curr_id, custinfo.cust_creditlmt_curr_id FROM ((((custinfo LEFT JOIN cntct mc ON ((custinfo.cust_cntct_id = mc.cntct_id))) LEFT JOIN addr m ON ((mc.cntct_addr_id = m.addr_id))) LEFT JOIN cntct cc ON ((custinfo.cust_corrcntct_id = cc.cntct_id))) LEFT JOIN addr c ON ((cc.cntct_addr_id = c.addr_id)));
ALTER TABLE public.cust OWNER TO admin;
--
-- Name: cust_serial_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE cust_serial_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.cust_serial_seq OWNER TO admin;
--
-- Name: cust_serial_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('cust_serial_seq', 1, false);
--
-- Name: custform; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE custform (
custform_id integer DEFAULT nextval(('"custform_custform_id_seq"'::text)::regclass) NOT NULL,
custform_custtype_id integer,
custform_custtype text,
custform_invoice_report_id integer,
custform_creditmemo_report_id integer,
custform_quote_report_id integer,
custform_packinglist_report_id integer,
custform_statement_report_id integer,
custform_sopicklist_report_id integer,
custform_invoice_report_name text,
custform_creditmemo_report_name text,
custform_quote_report_name text,
custform_packinglist_report_name text,
custform_statement_report_name text,
custform_sopicklist_report_name text
);
ALTER TABLE public.custform OWNER TO admin;
--
-- Name: TABLE custform; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE custform IS 'Customer Form assignment information';
--
-- Name: COLUMN custform.custform_invoice_report_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custform.custform_invoice_report_id IS 'Obsolete -- reference custform_invoice_report_name instead.';
--
-- Name: COLUMN custform.custform_creditmemo_report_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custform.custform_creditmemo_report_id IS 'Obsolete -- reference custform_creditmemo_report_name instead.';
--
-- Name: COLUMN custform.custform_quote_report_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custform.custform_quote_report_id IS 'Obsolete -- reference custform_quote_report_name instead.';
--
-- Name: COLUMN custform.custform_packinglist_report_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custform.custform_packinglist_report_id IS 'Obsolete -- reference custform_packinglist_report_name instead.';
--
-- Name: COLUMN custform.custform_statement_report_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custform.custform_statement_report_id IS 'Obsolete -- reference custform_statement_report_name instead.';
--
-- Name: COLUMN custform.custform_sopicklist_report_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN custform.custform_sopicklist_report_id IS 'Obsolete -- reference custform_sopicklist_report_name instead.';
--
-- Name: custform_custform_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE custform_custform_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.custform_custform_id_seq OWNER TO admin;
--
-- Name: custform_custform_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('custform_custform_id_seq', 8, true);
--
-- Name: custgrp; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE custgrp (
custgrp_id integer DEFAULT nextval(('"custgrp_custgrp_id_seq"'::text)::regclass) NOT NULL,
custgrp_name text NOT NULL,
custgrp_descrip text,
CONSTRAINT custgrp_custgrp_name_check CHECK ((custgrp_name <> ''::text))
);
ALTER TABLE public.custgrp OWNER TO admin;
--
-- Name: TABLE custgrp; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE custgrp IS 'Customer Group information';
--
-- Name: custgrp_custgrp_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE custgrp_custgrp_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.custgrp_custgrp_id_seq OWNER TO admin;
--
-- Name: custgrp_custgrp_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('custgrp_custgrp_id_seq', 24, true);
--
-- Name: custgrpitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE custgrpitem (
custgrpitem_id integer DEFAULT nextval(('"custgrpitem_custgrpitem_id_seq"'::text)::regclass) NOT NULL,
custgrpitem_custgrp_id integer,
custgrpitem_cust_id integer
);
ALTER TABLE public.custgrpitem OWNER TO admin;
--
-- Name: TABLE custgrpitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE custgrpitem IS 'Customer Group Item information';
--
-- Name: custgrpitem_custgrpitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE custgrpitem_custgrpitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.custgrpitem_custgrpitem_id_seq OWNER TO admin;
--
-- Name: custgrpitem_custgrpitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('custgrpitem_custgrpitem_id_seq', 47, true);
--
-- Name: custtype_custtype_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE custtype_custtype_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.custtype_custtype_id_seq OWNER TO admin;
--
-- Name: custtype_custtype_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('custtype_custtype_id_seq', 18, true);
--
-- Name: dept_dept_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE dept_dept_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.dept_dept_id_seq OWNER TO admin;
--
-- Name: dept_dept_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE dept_dept_id_seq OWNED BY dept.dept_id;
--
-- Name: dept_dept_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('dept_dept_id_seq', 2, true);
--
-- Name: destination; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE destination (
destination_id integer DEFAULT nextval(('"destination_destination_id_seq"'::text)::regclass) NOT NULL,
destination_name text,
destination_city text,
destination_state text,
destination_comments text
);
ALTER TABLE public.destination OWNER TO admin;
--
-- Name: TABLE destination; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE destination IS 'Destination information';
--
-- Name: destination_destination_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE destination_destination_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.destination_destination_id_seq OWNER TO admin;
--
-- Name: destination_destination_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('destination_destination_id_seq', 12, true);
--
-- Name: wo; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE wo (
wo_id integer DEFAULT nextval(('wo_wo_id_seq'::text)::regclass) NOT NULL,
wo_number integer,
wo_subnumber integer,
wo_status character(1),
wo_itemsite_id integer,
wo_startdate date,
wo_duedate date,
wo_ordtype character(1),
wo_ordid integer,
wo_qtyord numeric(18,6),
wo_qtyrcv numeric(18,6),
wo_adhoc boolean,
wo_itemcfg_series integer,
wo_imported boolean,
wo_wipvalue numeric(16,6) DEFAULT 0,
wo_postedvalue numeric(16,6) DEFAULT 0,
wo_prodnotes text,
wo_prj_id integer,
wo_priority integer DEFAULT 1 NOT NULL,
wo_brdvalue numeric(16,6) DEFAULT 0,
wo_bom_rev_id integer DEFAULT (-1),
wo_boo_rev_id integer DEFAULT (-1),
wo_cosmethod character(1),
wo_womatl_id integer,
wo_username text DEFAULT geteffectivextuser(),
CONSTRAINT chk_wo_cosmethod CHECK ((((wo_cosmethod = NULL::bpchar) OR (wo_cosmethod = 'D'::bpchar)) OR (wo_cosmethod = 'P'::bpchar)))
);
ALTER TABLE public.wo OWNER TO admin;
--
-- Name: TABLE wo; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE wo IS 'Work Order information';
--
-- Name: docinfo; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW docinfo AS
(((((((((((((((((((((((((((((SELECT imageass.imageass_id AS id, (image.image_id)::text AS target_number, 'IMG' AS target_type, imageass.imageass_image_id AS target_id, imageass.imageass_source AS source_type, imageass.imageass_source_id AS source_id, image.image_name AS name, image.image_descrip AS description, imageass.imageass_purpose AS purpose FROM imageass, image WHERE (imageass.imageass_image_id = image.image_id) UNION ALL SELECT url.url_id AS id, (url.url_id)::text AS target_number, 'URL' AS target_type, url.url_id AS target_id, url.url_source AS source_type, url.url_source_id AS source_id, url.url_title AS name, url.url_url AS description, 'S' AS purpose FROM url WHERE (url.url_stream IS NULL)) UNION ALL SELECT url.url_id AS id, (url.url_id)::text AS target_number, 'FILE' AS target_type, url.url_id AS target_id, url.url_source AS source_type, url.url_source_id AS source_id, url.url_title AS name, url.url_url AS description, 'S' AS purpose FROM url WHERE (url.url_stream IS NOT NULL)) UNION ALL SELECT docass.docass_id AS id, (incdt.incdt_number)::text AS target_number, docass.docass_target_type AS target_type, docass.docass_target_id AS target_id, docass.docass_source_type AS source_type, docass.docass_source_id AS source_id, incdt.incdt_summary AS name, firstline(incdt.incdt_descrip) AS description, docass.docass_purpose AS purpose FROM docass, incdt WHERE ((docass.docass_target_type = 'INCDT'::text) AND (docass.docass_target_id = incdt.incdt_id))) UNION ALL SELECT docass.docass_id AS id, (incdt.incdt_number)::text AS target_number, docass.docass_source_type AS target_type, docass.docass_source_id AS target_id, docass.docass_target_type AS source_type, docass.docass_target_id AS source_id, incdt.incdt_summary AS name, firstline(incdt.incdt_descrip) AS description, CASE WHEN (docass.docass_purpose = 'A'::bpchar) THEN 'C'::bpchar WHEN (docass.docass_purpose = 'C'::bpchar) THEN 'A'::bpchar ELSE docass.docass_purpose END AS purpose FROM docass, incdt WHERE ((docass.docass_source_type = 'INCDT'::text) AND (docass.docass_source_id = incdt.incdt_id))) UNION ALL SELECT docass.docass_id AS id, (todoitem.todoitem_id)::text AS target_number, docass.docass_target_type AS target_type, docass.docass_target_id AS target_id, docass.docass_source_type AS source_type, docass.docass_source_id AS source_id, todoitem.todoitem_name AS name, firstline(todoitem.todoitem_description) AS description, docass.docass_purpose AS purpose FROM docass, todoitem WHERE ((docass.docass_target_type = 'TODO'::text) AND (docass.docass_target_id = todoitem.todoitem_id))) UNION ALL SELECT docass.docass_id AS id, (todoitem.todoitem_id)::text AS target_number, docass.docass_source_type AS target_type, docass.docass_source_id AS target_id, docass.docass_target_type AS source_type, docass.docass_target_id AS source_id, todoitem.todoitem_name AS name, firstline(todoitem.todoitem_description) AS description, CASE WHEN (docass.docass_purpose = 'A'::bpchar) THEN 'C'::bpchar WHEN (docass.docass_purpose = 'C'::bpchar) THEN 'A'::bpchar ELSE docass.docass_purpose END AS purpose FROM docass, todoitem WHERE ((docass.docass_source_type = 'TODO'::text) AND (docass.docass_source_id = todoitem.todoitem_id))) UNION ALL SELECT docass.docass_id AS id, prj.prj_number AS target_number, docass.docass_target_type AS target_type, docass.docass_target_id AS target_id, docass.docass_source_type AS source_type, docass.docass_source_id AS source_id, prj.prj_name AS name, firstline(prj.prj_descrip) AS description, docass.docass_purpose AS purpose FROM docass, prj WHERE ((docass.docass_target_type = 'J'::text) AND (docass.docass_target_id = prj.prj_id))) UNION ALL SELECT docass.docass_id AS id, prj.prj_number AS target_number, docass.docass_source_type AS target_type, docass.docass_source_id AS target_id, docass.docass_target_type AS source_type, docass.docass_target_id AS source_id, prj.prj_name AS name, firstline(prj.prj_descrip) AS description, CASE WHEN (docass.docass_purpose = 'A'::bpchar) THEN 'C'::bpchar WHEN (docass.docass_purpose = 'C'::bpchar) THEN 'A'::bpchar ELSE docass.docass_purpose END AS purpose FROM docass, prj WHERE ((docass.docass_source_type = 'J'::text) AND (docass.docass_source_id = prj.prj_id))) UNION ALL SELECT docass.docass_id AS id, item.item_number AS target_number, docass.docass_target_type AS target_type, docass.docass_target_id AS target_id, docass.docass_source_type AS source_type, docass.docass_source_id AS source_id, firstline(item.item_descrip1) AS name, firstline(item.item_descrip2) AS description, docass.docass_purpose AS purpose FROM docass, item WHERE ((docass.docass_target_type = 'I'::text) AND (docass.docass_target_id = item.item_id))) UNION ALL SELECT docass.docass_id AS id, item.item_number AS target_number, docass.docass_source_type AS target_type, docass.docass_source_id AS target_id, docass.docass_target_type AS source_type, docass.docass_target_id AS source_id, firstline(item.item_descrip1) AS name, firstline(item.item_descrip2) AS description, CASE WHEN (docass.docass_purpose = 'A'::bpchar) THEN 'C'::bpchar WHEN (docass.docass_purpose = 'C'::bpchar) THEN 'A'::bpchar ELSE docass.docass_purpose END AS purpose FROM docass, item WHERE ((docass.docass_source_type = 'I'::text) AND (docass.docass_source_id = item.item_id))) UNION ALL SELECT docass.docass_id AS id, crmacct.crmacct_number AS target_number, docass.docass_target_type AS target_type, docass.docass_target_id AS target_id, docass.docass_source_type AS source_type, docass.docass_source_id AS source_id, crmacct.crmacct_name AS name, firstline(crmacct.crmacct_notes) AS description, docass.docass_purpose AS purpose FROM docass, crmacct WHERE ((docass.docass_target_type = 'CRMA'::text) AND (docass.docass_target_id = crmacct.crmacct_id))) UNION ALL SELECT docass.docass_id AS id, crmacct.crmacct_number AS target_number, docass.docass_source_type AS target_type, docass.docass_source_id AS target_id, docass.docass_target_type AS source_type, docass.docass_target_id AS source_id, crmacct.crmacct_name AS name, firstline(crmacct.crmacct_notes) AS description, CASE WHEN (docass.docass_purpose = 'A'::bpchar) THEN 'C'::bpchar WHEN (docass.docass_purpose = 'C'::bpchar) THEN 'A'::bpchar ELSE docass.docass_purpose END AS purpose FROM docass, crmacct WHERE ((docass.docass_source_type = 'CRMA'::text) AND (docass.docass_source_id = crmacct.crmacct_id))) UNION SELECT docass.docass_id AS id, custinfo.cust_number AS target_number, docass.docass_target_type AS target_type, docass.docass_target_id AS target_id, docass.docass_source_type AS source_type, docass.docass_source_id AS source_id, custinfo.cust_name AS name, firstline(custinfo.cust_comments) AS description, docass.docass_purpose AS purpose FROM docass, custinfo WHERE ((docass.docass_target_type = 'C'::text) AND (docass.docass_target_id = custinfo.cust_id))) UNION ALL SELECT docass.docass_id AS id, custinfo.cust_number AS target_number, docass.docass_source_type AS target_type, docass.docass_source_id AS target_id, docass.docass_target_type AS source_type, docass.docass_target_id AS source_id, custinfo.cust_name AS name, firstline(custinfo.cust_comments) AS description, CASE WHEN (docass.docass_purpose = 'A'::bpchar) THEN 'C'::bpchar WHEN (docass.docass_purpose = 'C'::bpchar) THEN 'A'::bpchar ELSE docass.docass_purpose END AS purpose FROM docass, custinfo WHERE ((docass.docass_source_type = 'C'::text) AND (docass.docass_source_id = custinfo.cust_id))) UNION ALL SELECT docass.docass_id AS id, vendinfo.vend_number AS target_number, docass.docass_target_type AS target_type, docass.docass_target_id AS target_id, docass.docass_source_type AS source_type, docass.docass_source_id AS source_id, vendinfo.vend_name AS name, firstline(vendinfo.vend_comments) AS description, docass.docass_purpose AS purpose FROM docass, vendinfo WHERE ((docass.docass_target_type = 'V'::text) AND (docass.docass_target_id = vendinfo.vend_id))) UNION ALL SELECT docass.docass_id AS id, vendinfo.vend_number AS target_number, docass.docass_source_type AS target_type, docass.docass_source_id AS target_id, docass.docass_target_type AS source_type, docass.docass_target_id AS source_id, vendinfo.vend_name AS name, firstline(vendinfo.vend_comments) AS description, CASE WHEN (docass.docass_purpose = 'A'::bpchar) THEN 'C'::bpchar WHEN (docass.docass_purpose = 'C'::bpchar) THEN 'A'::bpchar ELSE docass.docass_purpose END AS purpose FROM docass, vendinfo WHERE ((docass.docass_source_type = 'V'::text) AND (docass.docass_source_id = vendinfo.vend_id))) UNION ALL SELECT docass.docass_id AS id, cntct.cntct_number AS target_number, docass.docass_target_type AS target_type, docass.docass_target_id AS target_id, docass.docass_source_type AS source_type, docass.docass_source_id AS source_id, cntct.cntct_name AS name, cntct.cntct_title AS description, docass.docass_purpose AS purpose FROM docass, cntct WHERE ((docass.docass_target_type = 'T'::text) AND (docass.docass_target_id = cntct.cntct_id))) UNION ALL SELECT docass.docass_id AS id, cntct.cntct_number AS target_number, docass.docass_source_type AS target_type, docass.docass_source_id AS target_id, docass.docass_target_type AS source_type, docass.docass_target_id AS source_id, cntct.cntct_name AS name, cntct.cntct_title AS description, CASE WHEN (docass.docass_purpose = 'A'::bpchar) THEN 'C'::bpchar WHEN (docass.docass_purpose = 'C'::bpchar) THEN 'A'::bpchar ELSE docass.docass_purpose END AS purpose FROM docass, cntct WHERE ((docass.docass_source_type = 'T'::text) AND (docass.docass_source_id = cntct.cntct_id))) UNION ALL SELECT docass.docass_id AS id, (ophead.ophead_id)::text AS target_number, docass.docass_target_type AS target_type, docass.docass_target_id AS target_id, docass.docass_source_type AS source_type, docass.docass_source_id AS source_id, ophead.ophead_name AS name, firstline(ophead.ophead_notes) AS description, docass.docass_purpose AS purpose FROM docass, ophead WHERE ((docass.docass_target_type = 'OPP'::text) AND (docass.docass_target_id = ophead.ophead_id))) UNION ALL SELECT docass.docass_id AS id, (ophead.ophead_id)::text AS target_number, docass.docass_source_type AS target_type, docass.docass_source_id AS target_id, docass.docass_target_type AS source_type, docass.docass_target_id AS source_id, ophead.ophead_name AS name, firstline(ophead.ophead_notes) AS description, CASE WHEN (docass.docass_purpose = 'A'::bpchar) THEN 'C'::bpchar WHEN (docass.docass_purpose = 'C'::bpchar) THEN 'A'::bpchar ELSE docass.docass_purpose END AS purpose FROM docass, ophead WHERE ((docass.docass_source_type = 'OPP'::text) AND (docass.docass_source_id = ophead.ophead_id))) UNION ALL SELECT docass.docass_id AS id, quhead.quhead_number AS target_number, docass.docass_target_type AS target_type, docass.docass_target_id AS target_id, docass.docass_source_type AS source_type, docass.docass_source_id AS source_id, custinfo.cust_name AS name, firstline(quhead.quhead_ordercomments) AS description, docass.docass_purpose AS purpose FROM docass, quhead, custinfo WHERE (((docass.docass_target_type = 'Q'::text) AND (docass.docass_target_id = quhead.quhead_id)) AND (custinfo.cust_id = quhead.quhead_cust_id))) UNION ALL SELECT docass.docass_id AS id, quhead.quhead_number AS target_number, docass.docass_source_type AS target_type, docass.docass_source_id AS target_id, docass.docass_target_type AS source_type, docass.docass_target_id AS source_id, custinfo.cust_name AS name, firstline(quhead.quhead_ordercomments) AS description, CASE WHEN (docass.docass_purpose = 'A'::bpchar) THEN 'C'::bpchar WHEN (docass.docass_purpose = 'C'::bpchar) THEN 'A'::bpchar ELSE docass.docass_purpose END AS purpose FROM docass, quhead, custinfo WHERE (((docass.docass_source_type = 'Q'::text) AND (docass.docass_source_id = quhead.quhead_id)) AND (custinfo.cust_id = quhead.quhead_cust_id))) UNION ALL SELECT docass.docass_id AS id, cohead.cohead_number AS target_number, docass.docass_target_type AS target_type, docass.docass_target_id AS target_id, docass.docass_source_type AS source_type, docass.docass_source_id AS source_id, custinfo.cust_name AS name, firstline(cohead.cohead_ordercomments) AS description, docass.docass_purpose AS purpose FROM docass, cohead, custinfo WHERE (((docass.docass_target_type = 'S'::text) AND (docass.docass_target_id = cohead.cohead_id)) AND (custinfo.cust_id = cohead.cohead_cust_id))) UNION ALL SELECT docass.docass_id AS id, cohead.cohead_number AS target_number, docass.docass_source_type AS target_type, docass.docass_source_id AS target_id, docass.docass_target_type AS source_type, docass.docass_target_id AS source_id, custinfo.cust_name AS name, firstline(cohead.cohead_ordercomments) AS description, CASE WHEN (docass.docass_purpose = 'A'::bpchar) THEN 'C'::bpchar WHEN (docass.docass_purpose = 'C'::bpchar) THEN 'A'::bpchar ELSE docass.docass_purpose END AS purpose FROM docass, cohead, custinfo WHERE (((docass.docass_source_type = 'S'::text) AND (docass.docass_source_id = cohead.cohead_id)) AND (custinfo.cust_id = cohead.cohead_cust_id))) UNION ALL SELECT docass.docass_id AS id, pohead.pohead_number AS target_number, docass.docass_target_type AS target_type, docass.docass_target_id AS target_id, docass.docass_source_type AS source_type, docass.docass_source_id AS source_id, vendinfo.vend_name AS name, firstline(pohead.pohead_comments) AS description, docass.docass_purpose AS purpose FROM docass, pohead, vendinfo WHERE (((docass.docass_target_type = 'P'::text) AND (docass.docass_target_id = pohead.pohead_id)) AND (vendinfo.vend_id = pohead.pohead_vend_id))) UNION ALL SELECT docass.docass_id AS id, pohead.pohead_number AS target_number, docass.docass_source_type AS target_type, docass.docass_source_id AS target_id, docass.docass_target_type AS source_type, docass.docass_target_id AS source_id, vendinfo.vend_name AS name, firstline(pohead.pohead_comments) AS description, CASE WHEN (docass.docass_purpose = 'A'::bpchar) THEN 'C'::bpchar WHEN (docass.docass_purpose = 'C'::bpchar) THEN 'A'::bpchar ELSE docass.docass_purpose END AS purpose FROM docass, pohead, vendinfo WHERE (((docass.docass_source_type = 'P'::text) AND (docass.docass_source_id = pohead.pohead_id)) AND (vendinfo.vend_id = pohead.pohead_vend_id))) UNION ALL SELECT docass.docass_id AS id, formatwonumber(wo.wo_id) AS target_number, docass.docass_target_type AS target_type, docass.docass_target_id AS target_id, docass.docass_source_type AS source_type, docass.docass_source_id AS source_id, item.item_descrip1 AS name, item.item_descrip2 AS description, docass.docass_purpose AS purpose FROM docass, wo, itemsite, item WHERE ((((docass.docass_target_type = 'W'::text) AND (docass.docass_target_id = wo.wo_id)) AND (wo.wo_itemsite_id = itemsite.itemsite_id)) AND (itemsite.itemsite_item_id = item.item_id))) UNION ALL SELECT docass.docass_id AS id, formatwonumber(wo.wo_id) AS target_number, docass.docass_source_type AS target_type, docass.docass_source_id AS target_id, docass.docass_target_type AS source_type, docass.docass_target_id AS source_id, item.item_descrip1 AS name, item.item_descrip2 AS description, CASE WHEN (docass.docass_purpose = 'A'::bpchar) THEN 'C'::bpchar WHEN (docass.docass_purpose = 'C'::bpchar) THEN 'A'::bpchar ELSE docass.docass_purpose END AS purpose FROM docass, wo, itemsite, item WHERE ((((docass.docass_source_type = 'W'::text) AND (docass.docass_source_id = wo.wo_id)) AND (wo.wo_itemsite_id = itemsite.itemsite_id)) AND (itemsite.itemsite_item_id = item.item_id))) UNION ALL SELECT docass.docass_id AS id, emp.emp_number AS target_number, docass.docass_target_type AS target_type, docass.docass_target_id AS target_id, docass.docass_source_type AS source_type, docass.docass_source_id AS source_id, cntct.cntct_name AS name, cntct.cntct_title AS description, docass.docass_purpose AS purpose FROM docass, (emp LEFT JOIN cntct ON ((emp.emp_cntct_id = cntct.cntct_id))) WHERE ((docass.docass_target_type = 'EMP'::text) AND (docass.docass_target_id = emp.emp_id))) UNION ALL SELECT docass.docass_id AS id, emp.emp_number AS target_number, docass.docass_source_type AS target_type, docass.docass_source_id AS target_id, docass.docass_target_type AS source_type, docass.docass_target_id AS source_id, cntct.cntct_name AS name, cntct.cntct_title AS description, CASE WHEN (docass.docass_purpose = 'A'::bpchar) THEN 'C'::bpchar WHEN (docass.docass_purpose = 'C'::bpchar) THEN 'A'::bpchar ELSE docass.docass_purpose END AS purpose FROM docass, (emp LEFT JOIN cntct ON ((emp.emp_cntct_id = cntct.cntct_id))) WHERE ((docass.docass_source_type = 'EMP'::text) AND (docass.docass_source_id = emp.emp_id));
ALTER TABLE public.docinfo OWNER TO admin;
--
-- Name: emp_emp_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE emp_emp_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.emp_emp_id_seq OWNER TO admin;
--
-- Name: emp_emp_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE emp_emp_id_seq OWNED BY emp.emp_id;
--
-- Name: emp_emp_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('emp_emp_id_seq', 2, true);
--
-- Name: empgrp; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE empgrp (
empgrp_id integer NOT NULL,
empgrp_name text NOT NULL,
empgrp_descrip text NOT NULL,
CONSTRAINT empgrp_empgrp_name_check CHECK ((empgrp_name <> ''::text))
);
ALTER TABLE public.empgrp OWNER TO admin;
--
-- Name: empgrp_empgrp_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE empgrp_empgrp_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.empgrp_empgrp_id_seq OWNER TO admin;
--
-- Name: empgrp_empgrp_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE empgrp_empgrp_id_seq OWNED BY empgrp.empgrp_id;
--
-- Name: empgrp_empgrp_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('empgrp_empgrp_id_seq', 1, false);
--
-- Name: empgrpitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE empgrpitem (
empgrpitem_id integer NOT NULL,
empgrpitem_empgrp_id integer NOT NULL,
empgrpitem_emp_id integer NOT NULL
);
ALTER TABLE public.empgrpitem OWNER TO admin;
--
-- Name: empgrpitem_empgrpitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE empgrpitem_empgrpitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.empgrpitem_empgrpitem_id_seq OWNER TO admin;
--
-- Name: empgrpitem_empgrpitem_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE empgrpitem_empgrpitem_id_seq OWNED BY empgrpitem.empgrpitem_id;
--
-- Name: empgrpitem_empgrpitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('empgrpitem_empgrpitem_id_seq', 1, false);
--
-- Name: evntlog; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE evntlog (
evntlog_id integer DEFAULT nextval(('evntlog_evntlog_id_seq'::text)::regclass) NOT NULL,
evntlog_evnttime timestamp with time zone,
evntlog_evnttype_id integer,
evntlog_ord_id integer,
evntlog_dispatched timestamp with time zone,
evntlog_action text,
evntlog_warehous_id integer,
evntlog_number text,
evntlog_newvalue numeric(20,10),
evntlog_oldvalue numeric(20,10),
evntlog_newdate date,
evntlog_olddate date,
evntlog_ordtype character(2),
evntlog_username text
);
ALTER TABLE public.evntlog OWNER TO admin;
--
-- Name: TABLE evntlog; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE evntlog IS 'Event Notification history';
--
-- Name: evntlog_evntlog_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE evntlog_evntlog_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.evntlog_evntlog_id_seq OWNER TO admin;
--
-- Name: evntlog_evntlog_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('evntlog_evntlog_id_seq', 262, true);
--
-- Name: evntnot; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE evntnot (
evntnot_id integer DEFAULT nextval(('evntnot_evntnot_id_seq'::text)::regclass) NOT NULL,
evntnot_evnttype_id integer,
evntnot_warehous_id integer,
evntnot_username text
);
ALTER TABLE public.evntnot OWNER TO admin;
--
-- Name: TABLE evntnot; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE evntnot IS 'Temporary table for storing information about user Event Notification selections';
--
-- Name: evntnot_evntnot_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE evntnot_evntnot_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.evntnot_evntnot_id_seq OWNER TO admin;
--
-- Name: evntnot_evntnot_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('evntnot_evntnot_id_seq', 819, true);
--
-- Name: evnttype; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE evnttype (
evnttype_id integer DEFAULT nextval(('evnttype_evnttype_id_seq'::text)::regclass) NOT NULL,
evnttype_name text NOT NULL,
evnttype_descrip text,
evnttype_module text,
CONSTRAINT evnttype_evnttype_name_check CHECK ((evnttype_name <> ''::text))
);
ALTER TABLE public.evnttype OWNER TO admin;
--
-- Name: TABLE evnttype; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE evnttype IS 'Event Type information';
--
-- Name: evnttype_evnttype_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE evnttype_evnttype_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.evnttype_evnttype_id_seq OWNER TO admin;
--
-- Name: evnttype_evnttype_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('evnttype_evnttype_id_seq', 45, true);
--
-- Name: expcat_expcat_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE expcat_expcat_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.expcat_expcat_id_seq OWNER TO admin;
--
-- Name: expcat_expcat_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE expcat_expcat_id_seq OWNED BY expcat.expcat_id;
--
-- Name: expcat_expcat_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('expcat_expcat_id_seq', 19, true);
--
-- Name: file_file_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE file_file_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.file_file_id_seq OWNER TO admin;
--
-- Name: file_file_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE file_file_id_seq OWNED BY file.file_id;
--
-- Name: file_file_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('file_file_id_seq', 1, false);
--
-- Name: filter; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE filter (
filter_id integer NOT NULL,
filter_screen text NOT NULL,
filter_value text NOT NULL,
filter_username text,
filter_name text NOT NULL,
filter_selected boolean DEFAULT false
);
ALTER TABLE public.filter OWNER TO admin;
--
-- Name: filter_filter_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE filter_filter_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.filter_filter_id_seq OWNER TO admin;
--
-- Name: filter_filter_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE filter_filter_id_seq OWNED BY filter.filter_id;
--
-- Name: filter_filter_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('filter_filter_id_seq', 1, false);
--
-- Name: flhead; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE flhead (
flhead_id integer NOT NULL,
flhead_name text NOT NULL,
flhead_descrip text,
flhead_showtotal boolean DEFAULT false NOT NULL,
flhead_showstart boolean DEFAULT true NOT NULL,
flhead_showend boolean DEFAULT true NOT NULL,
flhead_showdelta boolean DEFAULT true NOT NULL,
flhead_showbudget boolean DEFAULT true NOT NULL,
flhead_showdiff boolean DEFAULT false NOT NULL,
flhead_showcustom boolean DEFAULT false NOT NULL,
flhead_custom_label text,
flhead_usealttotal boolean DEFAULT false NOT NULL,
flhead_alttotal text,
flhead_usealtbegin boolean DEFAULT false NOT NULL,
flhead_altbegin text,
flhead_usealtend boolean DEFAULT false NOT NULL,
flhead_altend text,
flhead_usealtdebits boolean DEFAULT false NOT NULL,
flhead_altdebits text,
flhead_usealtcredits boolean DEFAULT false NOT NULL,
flhead_altcredits text,
flhead_usealtbudget boolean DEFAULT false NOT NULL,
flhead_altbudget text,
flhead_usealtdiff boolean DEFAULT false NOT NULL,
flhead_altdiff text,
flhead_type character(1) DEFAULT 'A'::bpchar NOT NULL,
flhead_active boolean DEFAULT true NOT NULL,
flhead_sys boolean DEFAULT false,
flhead_notes text DEFAULT ''::text,
CONSTRAINT flhead_flhead_name_check CHECK ((flhead_name <> ''::text))
);
ALTER TABLE public.flhead OWNER TO admin;
--
-- Name: TABLE flhead; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE flhead IS 'Financial Layout header information';
--
-- Name: flitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE flitem (
flitem_id integer NOT NULL,
flitem_flhead_id integer,
flitem_flgrp_id integer,
flitem_order integer,
flitem_accnt_id integer,
flitem_showstart boolean,
flitem_showend boolean,
flitem_showdelta boolean,
flitem_showbudget boolean DEFAULT false NOT NULL,
flitem_subtract boolean DEFAULT false NOT NULL,
flitem_showstartprcnt boolean DEFAULT false NOT NULL,
flitem_showendprcnt boolean DEFAULT false NOT NULL,
flitem_showdeltaprcnt boolean DEFAULT false NOT NULL,
flitem_showbudgetprcnt boolean DEFAULT false NOT NULL,
flitem_prcnt_flgrp_id integer DEFAULT (-1) NOT NULL,
flitem_showdiff boolean DEFAULT false NOT NULL,
flitem_showdiffprcnt boolean DEFAULT false NOT NULL,
flitem_showcustom boolean DEFAULT false NOT NULL,
flitem_showcustomprcnt boolean DEFAULT false NOT NULL,
flitem_custom_source character(1),
flitem_company text,
flitem_profit text,
flitem_number text,
flitem_sub text,
flitem_type character(1),
flitem_subaccnttype_code text
);
ALTER TABLE public.flitem OWNER TO admin;
--
-- Name: TABLE flitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE flitem IS 'Financial Layout Account information';
--
-- Name: flaccnt; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW flaccnt AS
SELECT flhead.flhead_type, flitem.flitem_id, flitem.flitem_flhead_id, flitem.flitem_flgrp_id, flitem.flitem_order, flitem.flitem_accnt_id, flitem.flitem_showstart, flitem.flitem_showend, flitem.flitem_showdelta, flitem.flitem_showbudget, flitem.flitem_subtract, flitem.flitem_showstartprcnt, flitem.flitem_showendprcnt, flitem.flitem_showdeltaprcnt, flitem.flitem_showbudgetprcnt, flitem.flitem_prcnt_flgrp_id, flitem.flitem_showdiff, flitem.flitem_showdiffprcnt, flitem.flitem_showcustom, flitem.flitem_showcustomprcnt, flitem.flitem_custom_source, flitem.flitem_company, flitem.flitem_profit, flitem.flitem_number, flitem.flitem_sub, flitem.flitem_type, flitem.flitem_subaccnttype_code, accnt.accnt_id, accnt.accnt_type, accnt.accnt_company, accnt.accnt_profit, accnt.accnt_number, accnt.accnt_sub, (-1) AS prj_id FROM ((flhead JOIN flitem ON ((flhead.flhead_id = flitem.flitem_flhead_id))) JOIN accnt ON ((flitem.flitem_accnt_id = accnt.accnt_id))) UNION ALL SELECT flhead.flhead_type, flitem.flitem_id, flitem.flitem_flhead_id, flitem.flitem_flgrp_id, flitem.flitem_order, flitem.flitem_accnt_id, flitem.flitem_showstart, flitem.flitem_showend, flitem.flitem_showdelta, flitem.flitem_showbudget, flitem.flitem_subtract, flitem.flitem_showstartprcnt, flitem.flitem_showendprcnt, flitem.flitem_showdeltaprcnt, flitem.flitem_showbudgetprcnt, flitem.flitem_prcnt_flgrp_id, flitem.flitem_showdiff, flitem.flitem_showdiffprcnt, flitem.flitem_showcustom, flitem.flitem_showcustomprcnt, flitem.flitem_custom_source, flitem.flitem_company, flitem.flitem_profit, flitem.flitem_number, flitem.flitem_sub, flitem.flitem_type, flitem.flitem_subaccnttype_code, accnt.accnt_id, accnt.accnt_type, accnt.accnt_company, accnt.accnt_profit, accnt.accnt_number, accnt.accnt_sub, (-1) AS prj_id FROM (flhead JOIN flitem ON ((flhead.flhead_id = flitem.flitem_flhead_id))), accnt WHERE (((((((flitem.flitem_accnt_id = (-1)) AND ((flitem.flitem_type = ''::bpchar) OR (accnt.accnt_type = flitem.flitem_type))) AND ((flitem.flitem_company = 'All'::text) OR (accnt.accnt_company = flitem.flitem_company))) AND ((flitem.flitem_profit = 'All'::text) OR (accnt.accnt_profit = flitem.flitem_profit))) AND ((flitem.flitem_number = 'All'::text) OR (accnt.accnt_number = flitem.flitem_number))) AND ((flitem.flitem_sub = 'All'::text) OR (accnt.accnt_sub = flitem.flitem_sub))) AND ((flitem.flitem_subaccnttype_code = 'All'::text) OR (accnt.accnt_subaccnttype_code = flitem.flitem_subaccnttype_code))) ORDER BY 30, 31, 32, 33;
ALTER TABLE public.flaccnt OWNER TO admin;
--
-- Name: flcol; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE flcol (
flcol_id integer NOT NULL,
flcol_flhead_id integer NOT NULL,
flcol_name text,
flcol_descrip text,
flcol_report_id integer,
flcol_month boolean,
flcol_quarter boolean,
flcol_year boolean,
flcol_showdb boolean,
flcol_prcnt boolean,
flcol_priortype character(1),
flcol_priormonth boolean,
flcol_priorquarter boolean,
flcol_prioryear character(1),
flcol_priorprcnt boolean,
flcol_priordiff boolean,
flcol_priordiffprcnt boolean,
flcol_budget boolean,
flcol_budgetprcnt boolean,
flcol_budgetdiff boolean,
flcol_budgetdiffprcnt boolean
);
ALTER TABLE public.flcol OWNER TO admin;
--
-- Name: flcol_flcol_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE flcol_flcol_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.flcol_flcol_id_seq OWNER TO admin;
--
-- Name: flcol_flcol_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE flcol_flcol_id_seq OWNED BY flcol.flcol_id;
--
-- Name: flcol_flcol_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('flcol_flcol_id_seq', 24, true);
--
-- Name: flgrp; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE flgrp (
flgrp_id integer NOT NULL,
flgrp_flhead_id integer,
flgrp_flgrp_id integer,
flgrp_order integer,
flgrp_name text,
flgrp_descrip text,
flgrp_subtotal boolean DEFAULT false NOT NULL,
flgrp_summarize boolean DEFAULT false NOT NULL,
flgrp_subtract boolean DEFAULT false NOT NULL,
flgrp_showstart boolean DEFAULT true NOT NULL,
flgrp_showend boolean DEFAULT true NOT NULL,
flgrp_showdelta boolean DEFAULT true NOT NULL,
flgrp_showbudget boolean DEFAULT true NOT NULL,
flgrp_showstartprcnt boolean DEFAULT false NOT NULL,
flgrp_showendprcnt boolean DEFAULT false NOT NULL,
flgrp_showdeltaprcnt boolean DEFAULT false NOT NULL,
flgrp_showbudgetprcnt boolean DEFAULT false NOT NULL,
flgrp_prcnt_flgrp_id integer DEFAULT (-1) NOT NULL,
flgrp_showdiff boolean DEFAULT false NOT NULL,
flgrp_showdiffprcnt boolean DEFAULT false NOT NULL,
flgrp_showcustom boolean DEFAULT false NOT NULL,
flgrp_showcustomprcnt boolean DEFAULT false NOT NULL,
flgrp_usealtsubtotal boolean DEFAULT false NOT NULL,
flgrp_altsubtotal text
);
ALTER TABLE public.flgrp OWNER TO admin;
--
-- Name: TABLE flgrp; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE flgrp IS 'Financial Layout Group information';
--
-- Name: flgrp_flgrp_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE flgrp_flgrp_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.flgrp_flgrp_id_seq OWNER TO admin;
--
-- Name: flgrp_flgrp_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE flgrp_flgrp_id_seq OWNED BY flgrp.flgrp_id;
--
-- Name: flgrp_flgrp_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('flgrp_flgrp_id_seq', 111, true);
--
-- Name: flhead_flhead_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE flhead_flhead_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.flhead_flhead_id_seq OWNER TO admin;
--
-- Name: flhead_flhead_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE flhead_flhead_id_seq OWNED BY flhead.flhead_id;
--
-- Name: flhead_flhead_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('flhead_flhead_id_seq', 16, true);
--
-- Name: flitem_flitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE flitem_flitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.flitem_flitem_id_seq OWNER TO admin;
--
-- Name: flitem_flitem_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE flitem_flitem_id_seq OWNED BY flitem.flitem_id;
--
-- Name: flitem_flitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('flitem_flitem_id_seq', 255, true);
--
-- Name: flnotes; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE flnotes (
flnotes_id integer NOT NULL,
flnotes_flhead_id integer,
flnotes_period_id integer,
flnotes_notes text DEFAULT ''::text
);
ALTER TABLE public.flnotes OWNER TO admin;
--
-- Name: flnotes_flnotes_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE flnotes_flnotes_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.flnotes_flnotes_id_seq OWNER TO admin;
--
-- Name: flnotes_flnotes_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE flnotes_flnotes_id_seq OWNED BY flnotes.flnotes_id;
--
-- Name: flnotes_flnotes_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('flnotes_flnotes_id_seq', 1, false);
--
-- Name: flrpt; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE flrpt (
flrpt_flhead_id integer NOT NULL,
flrpt_period_id integer NOT NULL,
flrpt_username text NOT NULL,
flrpt_order integer NOT NULL,
flrpt_level integer NOT NULL,
flrpt_type text NOT NULL,
flrpt_type_id integer NOT NULL,
flrpt_beginning numeric,
flrpt_ending numeric,
flrpt_debits numeric,
flrpt_credits numeric,
flrpt_budget numeric,
flrpt_beginningprcnt numeric,
flrpt_endingprcnt numeric,
flrpt_debitsprcnt numeric,
flrpt_creditsprcnt numeric,
flrpt_budgetprcnt numeric,
flrpt_parent_id integer,
flrpt_diff numeric,
flrpt_diffprcnt numeric,
flrpt_custom numeric,
flrpt_customprcnt numeric,
flrpt_altname text,
flrpt_accnt_id integer,
flrpt_interval character(1),
flrpt_id integer NOT NULL
);
ALTER TABLE public.flrpt OWNER TO admin;
--
-- Name: TABLE flrpt; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE flrpt IS 'Scratch table where financial reporting information is processed before being displayed.';
--
-- Name: flrpt_flrpt_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE flrpt_flrpt_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.flrpt_flrpt_id_seq OWNER TO admin;
--
-- Name: flrpt_flrpt_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE flrpt_flrpt_id_seq OWNED BY flrpt.flrpt_id;
--
-- Name: flrpt_flrpt_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('flrpt_flrpt_id_seq', 2378, true);
--
-- Name: flspec; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE flspec (
flspec_id integer NOT NULL,
flspec_flhead_id integer NOT NULL,
flspec_flgrp_id integer NOT NULL,
flspec_order integer NOT NULL,
flspec_name text,
flspec_type text,
flspec_showstart boolean DEFAULT true NOT NULL,
flspec_showend boolean DEFAULT true NOT NULL,
flspec_showdelta boolean DEFAULT true NOT NULL,
flspec_showbudget boolean DEFAULT false NOT NULL,
flspec_subtract boolean DEFAULT false NOT NULL,
flspec_showstartprcnt boolean DEFAULT false NOT NULL,
flspec_showendprcnt boolean DEFAULT false NOT NULL,
flspec_showdeltaprcnt boolean DEFAULT false NOT NULL,
flspec_showbudgetprcnt boolean DEFAULT false NOT NULL,
flspec_showdiff boolean DEFAULT false NOT NULL,
flspec_showdiffprcnt boolean DEFAULT false NOT NULL,
flspec_prcnt_flgrp_id integer DEFAULT (-1) NOT NULL,
flspec_showcustom boolean DEFAULT false NOT NULL,
flspec_showcustomprcnt boolean DEFAULT false NOT NULL,
flspec_custom_source character(1)
);
ALTER TABLE public.flspec OWNER TO admin;
--
-- Name: TABLE flspec; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE flspec IS 'Financial Layout Special entries.';
--
-- Name: flspec_flspec_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE flspec_flspec_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.flspec_flspec_id_seq OWNER TO admin;
--
-- Name: flspec_flspec_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE flspec_flspec_id_seq OWNED BY flspec.flspec_id;
--
-- Name: flspec_flspec_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('flspec_flspec_id_seq', 1, false);
--
-- Name: form; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE form (
form_id integer DEFAULT nextval(('"form_form_id_seq"'::text)::regclass) NOT NULL,
form_name text NOT NULL,
form_descrip text,
form_report_id integer,
form_key character varying(4),
form_report_name text,
CONSTRAINT form_form_name_check CHECK ((form_name <> ''::text))
);
ALTER TABLE public.form OWNER TO admin;
--
-- Name: TABLE form; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE form IS 'Form information';
--
-- Name: COLUMN form.form_report_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN form.form_report_id IS 'Obsolete -- reference form_report_name instead.';
--
-- Name: form_form_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE form_form_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.form_form_id_seq OWNER TO admin;
--
-- Name: form_form_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('form_form_id_seq', 22, true);
--
-- Name: freightclass_freightclass_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE freightclass_freightclass_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.freightclass_freightclass_id_seq OWNER TO admin;
--
-- Name: freightclass_freightclass_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE freightclass_freightclass_id_seq OWNED BY freightclass.freightclass_id;
--
-- Name: freightclass_freightclass_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('freightclass_freightclass_id_seq', 1, false);
--
-- Name: glseries; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE glseries (
glseries_id integer DEFAULT nextval(('"glseries_glseries_id_seq"'::text)::regclass) NOT NULL,
glseries_sequence integer,
glseries_doctype character(2),
glseries_docnumber text,
glseries_accnt_id integer,
glseries_amount numeric(20,2),
glseries_source text,
glseries_distdate date,
glseries_notes text,
glseries_misc_id integer
);
ALTER TABLE public.glseries OWNER TO admin;
--
-- Name: TABLE glseries; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE glseries IS 'Temporary table for storing information about General Ledger (G/L) Series Entries before Series Entries are posted';
--
-- Name: glseries_glseries_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE glseries_glseries_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.glseries_glseries_id_seq OWNER TO admin;
--
-- Name: glseries_glseries_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('glseries_glseries_id_seq', 1563, true);
--
-- Name: gltrans_gltrans_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE gltrans_gltrans_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.gltrans_gltrans_id_seq OWNER TO admin;
--
-- Name: gltrans_gltrans_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('gltrans_gltrans_id_seq', 7008, true);
--
-- Name: gltrans_sequence_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE gltrans_sequence_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.gltrans_sequence_seq OWNER TO admin;
--
-- Name: gltrans_sequence_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('gltrans_sequence_seq', 3583, true);
--
-- Name: grp; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE grp (
grp_id integer NOT NULL,
grp_name text NOT NULL,
grp_descrip text,
CONSTRAINT grp_grp_name_check CHECK ((grp_name <> ''::text))
);
ALTER TABLE public.grp OWNER TO admin;
--
-- Name: TABLE grp; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE grp IS 'This table is the basic group information.';
--
-- Name: grp_grp_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE grp_grp_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.grp_grp_id_seq OWNER TO admin;
--
-- Name: grp_grp_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE grp_grp_id_seq OWNED BY grp.grp_id;
--
-- Name: grp_grp_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('grp_grp_id_seq', 1, true);
--
-- Name: grppriv; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE grppriv (
grppriv_id integer NOT NULL,
grppriv_grp_id integer NOT NULL,
grppriv_priv_id integer NOT NULL
);
ALTER TABLE public.grppriv OWNER TO admin;
--
-- Name: TABLE grppriv; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE grppriv IS 'This is a specific priv for a specific group.';
--
-- Name: grppriv_grppriv_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE grppriv_grppriv_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.grppriv_grppriv_id_seq OWNER TO admin;
--
-- Name: grppriv_grppriv_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE grppriv_grppriv_id_seq OWNED BY grppriv.grppriv_id;
--
-- Name: grppriv_grppriv_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('grppriv_grppriv_id_seq', 374, true);
--
-- Name: hnfc; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE hnfc (
hnfc_id integer NOT NULL,
hnfc_code text NOT NULL,
CONSTRAINT hnfc_hnfc_code_check CHECK ((hnfc_code <> ''::text))
);
ALTER TABLE public.hnfc OWNER TO admin;
--
-- Name: TABLE hnfc; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE hnfc IS 'List of personal titles/honorifics used in cntct table.';
--
-- Name: hnfc_hnfc_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE hnfc_hnfc_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.hnfc_hnfc_id_seq OWNER TO admin;
--
-- Name: hnfc_hnfc_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE hnfc_hnfc_id_seq OWNED BY hnfc.hnfc_id;
--
-- Name: hnfc_hnfc_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('hnfc_hnfc_id_seq', 5, true);
--
-- Name: incdt_incdt_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE incdt_incdt_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.incdt_incdt_id_seq OWNER TO admin;
--
-- Name: incdt_incdt_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE incdt_incdt_id_seq OWNED BY incdt.incdt_id;
--
-- Name: incdt_incdt_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('incdt_incdt_id_seq', 1, false);
--
-- Name: incdtcat_incdtcat_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE incdtcat_incdtcat_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.incdtcat_incdtcat_id_seq OWNER TO admin;
--
-- Name: incdtcat_incdtcat_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE incdtcat_incdtcat_id_seq OWNED BY incdtcat.incdtcat_id;
--
-- Name: incdtcat_incdtcat_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('incdtcat_incdtcat_id_seq', 1, true);
--
-- Name: incdthist; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE incdthist (
incdthist_id integer NOT NULL,
incdthist_incdt_id integer NOT NULL,
incdthist_change character(1),
incdthist_target_id integer,
incdthist_timestamp timestamp without time zone DEFAULT now() NOT NULL,
incdthist_username text DEFAULT geteffectivextuser() NOT NULL,
incdthist_descrip text
);
ALTER TABLE public.incdthist OWNER TO admin;
--
-- Name: TABLE incdthist; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE incdthist IS 'Incident history changes';
--
-- Name: incdthist_incdthist_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE incdthist_incdthist_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.incdthist_incdthist_id_seq OWNER TO admin;
--
-- Name: incdthist_incdthist_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE incdthist_incdthist_id_seq OWNED BY incdthist.incdthist_id;
--
-- Name: incdthist_incdthist_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('incdthist_incdthist_id_seq', 1, false);
--
-- Name: incdtpriority_incdtpriority_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE incdtpriority_incdtpriority_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.incdtpriority_incdtpriority_id_seq OWNER TO admin;
--
-- Name: incdtpriority_incdtpriority_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE incdtpriority_incdtpriority_id_seq OWNED BY incdtpriority.incdtpriority_id;
--
-- Name: incdtpriority_incdtpriority_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('incdtpriority_incdtpriority_id_seq', 5, true);
--
-- Name: incdtresolution_incdtresolution_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE incdtresolution_incdtresolution_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.incdtresolution_incdtresolution_id_seq OWNER TO admin;
--
-- Name: incdtresolution_incdtresolution_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE incdtresolution_incdtresolution_id_seq OWNED BY incdtresolution.incdtresolution_id;
--
-- Name: incdtresolution_incdtresolution_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('incdtresolution_incdtresolution_id_seq', 4, true);
--
-- Name: incdtseverity_incdtseverity_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE incdtseverity_incdtseverity_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.incdtseverity_incdtseverity_id_seq OWNER TO admin;
--
-- Name: incdtseverity_incdtseverity_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE incdtseverity_incdtseverity_id_seq OWNED BY incdtseverity.incdtseverity_id;
--
-- Name: incdtseverity_incdtseverity_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('incdtseverity_incdtseverity_id_seq', 5, true);
--
-- Name: invbal_invbal_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE invbal_invbal_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.invbal_invbal_id_seq OWNER TO admin;
--
-- Name: invbal_invbal_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE invbal_invbal_id_seq OWNED BY invbal.invbal_id;
--
-- Name: invbal_invbal_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('invbal_invbal_id_seq', 1, false);
--
-- Name: invc_invc_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE invc_invc_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.invc_invc_id_seq OWNER TO admin;
--
-- Name: invc_invc_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('invc_invc_id_seq', 1, false);
--
-- Name: invchead_invchead_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE invchead_invchead_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.invchead_invchead_id_seq OWNER TO admin;
--
-- Name: invchead_invchead_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE invchead_invchead_id_seq OWNED BY invchead.invchead_id;
--
-- Name: invchead_invchead_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('invchead_invchead_id_seq', 2, true);
--
-- Name: invcheadtax; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE invcheadtax (
)
INHERITS (taxhist);
ALTER TABLE public.invcheadtax OWNER TO admin;
--
-- Name: invcitem_invcitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE invcitem_invcitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.invcitem_invcitem_id_seq OWNER TO admin;
--
-- Name: invcitem_invcitem_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE invcitem_invcitem_id_seq OWNED BY invcitem.invcitem_id;
--
-- Name: invcitem_invcitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('invcitem_invcitem_id_seq', 1, false);
--
-- Name: invcitemtax; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE invcitemtax (
)
INHERITS (taxhist);
ALTER TABLE public.invcitemtax OWNER TO admin;
--
-- Name: invcnt_invcnt_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE invcnt_invcnt_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.invcnt_invcnt_id_seq OWNER TO admin;
--
-- Name: invcnt_invcnt_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('invcnt_invcnt_id_seq', 213, true);
--
-- Name: invdetail; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE invdetail (
invdetail_id integer DEFAULT nextval(('"invdetail_invdetail_id_seq"'::text)::regclass) NOT NULL,
invdetail_transtype character(2),
invdetail_invhist_id integer,
invdetail_location_id integer,
invdetail_qty numeric(18,6),
invdetail_comments text,
invdetail_qty_before numeric(18,6),
invdetail_qty_after numeric(18,6),
invdetail_invcitem_id integer,
invdetail_expiration date,
invdetail_warrpurc date,
invdetail_ls_id integer
);
ALTER TABLE public.invdetail OWNER TO admin;
--
-- Name: TABLE invdetail; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE invdetail IS 'Detailed Inventory transaction information for Lot/Serial and Multiple Location Control (MLC) Items';
--
-- Name: invdetail_invdetail_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE invdetail_invdetail_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.invdetail_invdetail_id_seq OWNER TO admin;
--
-- Name: invdetail_invdetail_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('invdetail_invdetail_id_seq', 1326, true);
--
-- Name: invhist; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE invhist (
invhist_id integer DEFAULT nextval(('invhist_invhist_id_seq'::text)::regclass) NOT NULL,
invhist_itemsite_id integer,
invhist_transdate timestamp with time zone DEFAULT ('now'::text)::timestamp(6) with time zone,
invhist_transtype character(2),
invhist_invqty numeric(18,6),
invhist_invuom text,
invhist_ordnumber text,
invhist_docnumber text,
invhist_qoh_before numeric(18,6),
invhist_qoh_after numeric(18,6),
invhist_unitcost numeric(16,6),
invhist_acct_id integer,
invhist_xfer_warehous_id integer,
invhist_comments text,
invhist_posted boolean DEFAULT true,
invhist_imported boolean,
invhist_hasdetail boolean DEFAULT false,
invhist_ordtype text,
invhist_analyze boolean DEFAULT true,
invhist_user text DEFAULT geteffectivextuser(),
invhist_created timestamp with time zone DEFAULT now() NOT NULL,
invhist_costmethod character(1) NOT NULL,
invhist_value_before numeric(12,2) NOT NULL,
invhist_value_after numeric(12,2) NOT NULL,
invhist_series integer
);
ALTER TABLE public.invhist OWNER TO admin;
--
-- Name: TABLE invhist; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE invhist IS 'Inventory transaction history';
--
-- Name: invhist_invhist_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE invhist_invhist_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.invhist_invhist_id_seq OWNER TO admin;
--
-- Name: invhist_invhist_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('invhist_invhist_id_seq', 2859, true);
--
-- Name: invhistexpcat; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE invhistexpcat (
invhistexpcat_id integer NOT NULL,
invhistexpcat_invhist_id integer NOT NULL,
invhistexpcat_expcat_id integer NOT NULL
);
ALTER TABLE public.invhistexpcat OWNER TO admin;
--
-- Name: TABLE invhistexpcat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE invhistexpcat IS 'Track the relationship between an EX transaction in the invhist table and the corresponding Expense Category.';
--
-- Name: invhistexpcat_invhistexpcat_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE invhistexpcat_invhistexpcat_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.invhistexpcat_invhistexpcat_id_seq OWNER TO admin;
--
-- Name: invhistexpcat_invhistexpcat_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE invhistexpcat_invhistexpcat_id_seq OWNED BY invhistexpcat.invhistexpcat_id;
--
-- Name: invhistexpcat_invhistexpcat_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('invhistexpcat_invhistexpcat_id_seq', 1, false);
--
-- Name: invoiceitem; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW invoiceitem AS
SELECT invcitem.invcitem_id, invcitem.invcitem_invchead_id, invcitem.invcitem_linenumber, invcitem.invcitem_item_id, invcitem.invcitem_warehous_id, invcitem.invcitem_custpn, invcitem.invcitem_number, invcitem.invcitem_descrip, invcitem.invcitem_ordered, invcitem.invcitem_billed, invcitem.invcitem_custprice, invcitem.invcitem_price, invcitem.invcitem_notes, invcitem.invcitem_salescat_id, invcitem.invcitem_taxtype_id, invcitem.invcitem_qty_uom_id, invcitem.invcitem_qty_invuomratio, invcitem.invcitem_price_uom_id, invcitem.invcitem_price_invuomratio, invcitem.invcitem_coitem_id, invcitem.invcitem_updateinv, invcitem.invcitem_rev_accnt_id, itemsite.itemsite_id, cohead.cohead_number, COALESCE((invcitem.invcitem_billed * invcitem.invcitem_qty_invuomratio), (0)::numeric) AS qty, COALESCE((invcitem.invcitem_price / invcitem.invcitem_price_invuomratio), (0)::numeric) AS unitprice, COALESCE(round(((invcitem.invcitem_billed * invcitem.invcitem_qty_invuomratio) * (invcitem.invcitem_price / invcitem.invcitem_price_invuomratio)), 2), (0)::numeric) AS extprice, currtobase(invchead.invchead_curr_id, COALESCE(round(((invcitem.invcitem_billed * invcitem.invcitem_qty_invuomratio) * (invcitem.invcitem_price / invcitem.invcitem_price_invuomratio)), 2), (0)::numeric), invchead.invchead_invcdate) AS baseextprice, (SELECT COALESCE(sum(invcitemtax.taxhist_tax), (0)::numeric) AS "coalesce" FROM invcitemtax WHERE (invcitemtax.taxhist_parent_id = invcitem.invcitem_id)) AS tax, ((SELECT COALESCE(sum(shipitem.shipitem_value), (itemcost(itemsite.itemsite_id) * invcitem.invcitem_billed), (0)::numeric) AS "coalesce" FROM shipitem WHERE (shipitem.shipitem_invcitem_id = invcitem.invcitem_id)) / CASE WHEN (invcitem.invcitem_billed <> (0)::numeric) THEN (invcitem.invcitem_billed * invcitem.invcitem_qty_invuomratio) ELSE (1)::numeric END) AS unitcost FROM ((((invcitem JOIN invchead ON ((invchead.invchead_id = invcitem.invcitem_invchead_id))) LEFT JOIN coitem ON ((coitem.coitem_id = invcitem.invcitem_coitem_id))) LEFT JOIN cohead ON ((cohead.cohead_id = coitem.coitem_cohead_id))) LEFT JOIN itemsite ON (((itemsite.itemsite_item_id = invcitem.invcitem_item_id) AND (itemsite.itemsite_warehous_id = invcitem.invcitem_warehous_id))));
ALTER TABLE public.invoiceitem OWNER TO admin;
--
-- Name: VIEW invoiceitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON VIEW invoiceitem IS 'Single point for invoice item (invcitem) calculations.';
--
-- Name: ipsass_ipsass_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE ipsass_ipsass_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.ipsass_ipsass_id_seq OWNER TO admin;
--
-- Name: ipsass_ipsass_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE ipsass_ipsass_id_seq OWNED BY ipsass.ipsass_id;
--
-- Name: ipsass_ipsass_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('ipsass_ipsass_id_seq', 1, false);
--
-- Name: ipsctyp_ipsctyp_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE ipsctyp_ipsctyp_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.ipsctyp_ipsctyp_id_seq OWNER TO admin;
--
-- Name: ipsctyp_ipsctyp_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('ipsctyp_ipsctyp_id_seq', 16, true);
--
-- Name: ipscust_ipscust_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE ipscust_ipscust_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.ipscust_ipscust_id_seq OWNER TO admin;
--
-- Name: ipscust_ipscust_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('ipscust_ipscust_id_seq', 21, true);
--
-- Name: ipsfreight_ipsfreight_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE ipsfreight_ipsfreight_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.ipsfreight_ipsfreight_id_seq OWNER TO admin;
--
-- Name: ipsfreight_ipsfreight_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE ipsfreight_ipsfreight_id_seq OWNED BY ipsfreight.ipsfreight_id;
--
-- Name: ipsfreight_ipsfreight_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('ipsfreight_ipsfreight_id_seq', 1, false);
--
-- Name: ipshead_ipshead_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE ipshead_ipshead_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.ipshead_ipshead_id_seq OWNER TO admin;
--
-- Name: ipshead_ipshead_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('ipshead_ipshead_id_seq', 58, true);
--
-- Name: ipsitem_ipsitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE ipsitem_ipsitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.ipsitem_ipsitem_id_seq OWNER TO admin;
--
-- Name: ipsitem_ipsitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('ipsitem_ipsitem_id_seq', 75, true);
--
-- Name: ipsitemchar_ipsitemchar_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE ipsitemchar_ipsitemchar_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.ipsitemchar_ipsitemchar_id_seq OWNER TO admin;
--
-- Name: ipsitemchar_ipsitemchar_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE ipsitemchar_ipsitemchar_id_seq OWNED BY ipsitemchar.ipsitemchar_id;
--
-- Name: ipsitemchar_ipsitemchar_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('ipsitemchar_ipsitemchar_id_seq', 1, false);
--
-- Name: ipsprice; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW ipsprice AS
SELECT ipsiteminfo.ipsitem_id AS ipsprice_id, 'I' AS ipsprice_source, ipsiteminfo.ipsitem_ipshead_id AS ipsprice_ipshead_id, ipsiteminfo.ipsitem_item_id AS ipsprice_item_id, itemuomtouom(ipsiteminfo.ipsitem_item_id, ipsiteminfo.ipsitem_qty_uom_id, NULL::integer, ipsiteminfo.ipsitem_qtybreak) AS ipsprice_qtybreak, CASE WHEN (ipsiteminfo.ipsitem_type = 'N'::bpchar) THEN ((ipsiteminfo.ipsitem_price * itemuomtouomratio(ipsiteminfo.ipsitem_item_id, NULL::integer, ipsiteminfo.ipsitem_price_uom_id)) * iteminvpricerat(ipsiteminfo.ipsitem_item_id)) WHEN (ipsiteminfo.ipsitem_type = 'D'::bpchar) THEN ((item.item_listprice - (item.item_listprice * ipsiteminfo.ipsitem_discntprcnt)) - ipsiteminfo.ipsitem_fixedamtdiscount) WHEN (ipsiteminfo.ipsitem_type = 'M'::bpchar) THEN ((item.item_listcost + (item.item_listcost * ipsiteminfo.ipsitem_discntprcnt)) + ipsiteminfo.ipsitem_fixedamtdiscount) ELSE NULL::numeric END AS ipsprice_price, ipsiteminfo.ipsitem_qtybreak AS ipsprice_uomqtybreak, ipsiteminfo.ipsitem_qty_uom_id AS ipsprice_uomqtybreak_uom_id, CASE WHEN (ipsiteminfo.ipsitem_type = 'N'::bpchar) THEN ipsiteminfo.ipsitem_price WHEN (ipsiteminfo.ipsitem_type = 'D'::bpchar) THEN ((item.item_listprice - (item.item_listprice * ipsiteminfo.ipsitem_discntprcnt)) - ipsiteminfo.ipsitem_fixedamtdiscount) WHEN (ipsiteminfo.ipsitem_type = 'M'::bpchar) THEN ((item.item_listcost + (item.item_listcost * ipsiteminfo.ipsitem_discntprcnt)) + ipsiteminfo.ipsitem_fixedamtdiscount) ELSE NULL::numeric END AS ipsprice_uomprice, ipsiteminfo.ipsitem_price_uom_id AS ipsprice_uomprice_uom_id, ipsiteminfo.ipsitem_discntprcnt AS ipsprice_discountpercent, ipsiteminfo.ipsitem_fixedamtdiscount AS ipsprice_discountfixed, ipsiteminfo.ipsitem_type AS ipsprice_type FROM (ipsiteminfo JOIN item ON ((item.item_id = ipsiteminfo.ipsitem_item_id))) UNION SELECT ipsiteminfo.ipsitem_id AS ipsprice_id, 'P' AS ipsprice_source, ipsiteminfo.ipsitem_ipshead_id AS ipsprice_ipshead_id, item.item_id AS ipsprice_item_id, ipsiteminfo.ipsitem_qtybreak AS ipsprice_qtybreak, CASE WHEN (ipsiteminfo.ipsitem_type = 'D'::bpchar) THEN ((item.item_listprice - (item.item_listprice * ipsiteminfo.ipsitem_discntprcnt)) - ipsiteminfo.ipsitem_fixedamtdiscount) WHEN (ipsiteminfo.ipsitem_type = 'M'::bpchar) THEN ((item.item_listcost + (item.item_listcost * ipsiteminfo.ipsitem_discntprcnt)) + ipsiteminfo.ipsitem_fixedamtdiscount) ELSE NULL::numeric END AS ipsprice_price, ipsiteminfo.ipsitem_qtybreak AS ipsprice_uomqtybreak, item.item_inv_uom_id AS ipsprice_uomqtybreak_uom_id, CASE WHEN (ipsiteminfo.ipsitem_type = 'D'::bpchar) THEN ((item.item_listprice - (item.item_listprice * ipsiteminfo.ipsitem_discntprcnt)) - ipsiteminfo.ipsitem_fixedamtdiscount) WHEN (ipsiteminfo.ipsitem_type = 'M'::bpchar) THEN ((item.item_listcost + (item.item_listcost * ipsiteminfo.ipsitem_discntprcnt)) + ipsiteminfo.ipsitem_fixedamtdiscount) ELSE NULL::numeric END AS ipsprice_uomprice, item.item_price_uom_id AS ipsprice_uomprice_uom_id, ipsiteminfo.ipsitem_discntprcnt AS ipsprice_discountpercent, ipsiteminfo.ipsitem_fixedamtdiscount AS ipsprice_discountfixed, ipsiteminfo.ipsitem_type AS ipsprice_type FROM (ipsiteminfo JOIN item ON ((ipsiteminfo.ipsitem_prodcat_id = item.item_prodcat_id)));
ALTER TABLE public.ipsprice OWNER TO admin;
--
-- Name: ipsprodcat_bak; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE ipsprodcat_bak (
ipsprodcat_id integer NOT NULL,
ipsprodcat_ipshead_id integer NOT NULL,
ipsprodcat_prodcat_id integer NOT NULL,
ipsprodcat_qtybreak numeric(18,6) NOT NULL,
ipsprodcat_discntprcnt numeric(10,6) NOT NULL,
ipsprodcat_fixedamtdiscount numeric(16,4) DEFAULT 0.00 NOT NULL
);
ALTER TABLE public.ipsprodcat_bak OWNER TO admin;
--
-- Name: TABLE ipsprodcat_bak; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE ipsprodcat_bak IS 'Pricing Schedule Product Category information.';
--
-- Name: ipsprodcat_ipsprodcat_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE ipsprodcat_ipsprodcat_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.ipsprodcat_ipsprodcat_id_seq OWNER TO admin;
--
-- Name: ipsprodcat_ipsprodcat_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE ipsprodcat_ipsprodcat_id_seq OWNED BY ipsprodcat_bak.ipsprodcat_id;
--
-- Name: ipsprodcat_ipsprodcat_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('ipsprodcat_ipsprodcat_id_seq', 1, false);
--
-- Name: item_item_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE item_item_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.item_item_id_seq OWNER TO admin;
--
-- Name: item_item_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('item_item_id_seq', 300, true);
--
-- Name: itemalias_itemalias_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemalias_itemalias_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemalias_itemalias_id_seq OWNER TO admin;
--
-- Name: itemalias_itemalias_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemalias_itemalias_id_seq', 15, true);
--
-- Name: itematr_itematr_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itematr_itematr_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.itematr_itematr_id_seq OWNER TO admin;
--
-- Name: itematr_itematr_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itematr_itematr_id_seq', 29, true);
--
-- Name: itemcost_itemcost_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemcost_itemcost_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemcost_itemcost_id_seq OWNER TO admin;
--
-- Name: itemcost_itemcost_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemcost_itemcost_id_seq', 299, true);
--
-- Name: itemfrez_itemfrez_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemfrez_itemfrez_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemfrez_itemfrez_seq OWNER TO admin;
--
-- Name: itemfrez_itemfrez_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemfrez_itemfrez_seq', 1, false);
--
-- Name: itemgrp; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE itemgrp (
itemgrp_id integer DEFAULT nextval(('"itemgrp_itemgrp_id_seq"'::text)::regclass) NOT NULL,
itemgrp_name text NOT NULL,
itemgrp_descrip text,
CONSTRAINT itemgrp_itemgrp_name_check CHECK ((itemgrp_name <> ''::text))
);
ALTER TABLE public.itemgrp OWNER TO admin;
--
-- Name: TABLE itemgrp; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE itemgrp IS 'Item Group information';
--
-- Name: itemgrp_itemgrp_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemgrp_itemgrp_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemgrp_itemgrp_id_seq OWNER TO admin;
--
-- Name: itemgrp_itemgrp_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemgrp_itemgrp_id_seq', 19, true);
--
-- Name: itemgrpitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE itemgrpitem (
itemgrpitem_id integer DEFAULT nextval(('"itemgrpitem_itemgrpitem_id_seq"'::text)::regclass) NOT NULL,
itemgrpitem_itemgrp_id integer,
itemgrpitem_item_id integer
);
ALTER TABLE public.itemgrpitem OWNER TO admin;
--
-- Name: TABLE itemgrpitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE itemgrpitem IS 'Item Group Item information';
--
-- Name: itemgrpitem_itemgrpitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemgrpitem_itemgrpitem_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemgrpitem_itemgrpitem_id_seq OWNER TO admin;
--
-- Name: itemgrpitem_itemgrpitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemgrpitem_itemgrpitem_id_seq', 112, true);
--
-- Name: itemimage; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW itemimage AS
SELECT imageass.imageass_id AS itemimage_id, imageass.imageass_source_id AS itemimage_item_id, imageass.imageass_image_id AS itemimage_image_id, imageass.imageass_purpose AS itemimage_purpose FROM imageass WHERE (imageass.imageass_source = 'I'::text);
ALTER TABLE public.itemimage OWNER TO admin;
--
-- Name: VIEW itemimage; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON VIEW itemimage IS 'Itemimage view for legacy support. Use of itemimage is deprecated. Use imageass table for future development';
--
-- Name: itemimage_itemimage_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemimage_itemimage_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemimage_itemimage_id_seq OWNER TO admin;
--
-- Name: itemimage_itemimage_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemimage_itemimage_id_seq', 20, true);
--
-- Name: itemloc; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE itemloc (
itemloc_id integer DEFAULT nextval(('"itemloc_itemloc_id_seq"'::text)::regclass) NOT NULL,
itemloc_itemsite_id integer NOT NULL,
itemloc_location_id integer NOT NULL,
itemloc_qty numeric(18,6) NOT NULL,
itemloc_expiration date NOT NULL,
itemloc_consolflag boolean,
itemloc_ls_id integer,
itemloc_warrpurc date
);
ALTER TABLE public.itemloc OWNER TO admin;
--
-- Name: TABLE itemloc; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE itemloc IS 'Detailed Location information for Lot/Serial and Multiple Location Control (MLC) Items';
--
-- Name: itemloc_itemloc_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemloc_itemloc_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemloc_itemloc_id_seq OWNER TO admin;
--
-- Name: itemloc_itemloc_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemloc_itemloc_id_seq', 511, true);
--
-- Name: itemloc_series_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemloc_series_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemloc_series_seq OWNER TO admin;
--
-- Name: itemloc_series_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemloc_series_seq', 1022, true);
--
-- Name: itemlocdist; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE itemlocdist (
itemlocdist_id integer DEFAULT nextval(('"itemlocdist_itemlocdist_id_seq"'::text)::regclass) NOT NULL,
itemlocdist_itemlocdist_id integer,
itemlocdist_source_type character(1),
itemlocdist_source_id integer,
itemlocdist_qty numeric(18,6),
itemlocdist_series integer,
itemlocdist_invhist_id integer,
itemlocdist_itemsite_id integer,
itemlocdist_reqlotserial boolean DEFAULT false,
itemlocdist_flush boolean DEFAULT false,
itemlocdist_expiration date,
itemlocdist_distlotserial boolean,
itemlocdist_warranty date,
itemlocdist_ls_id integer,
itemlocdist_order_type text,
itemlocdist_order_id integer
);
ALTER TABLE public.itemlocdist OWNER TO admin;
--
-- Name: TABLE itemlocdist; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE itemlocdist IS 'Temporary table for storing information about Inventory distributions involving Lot/Serial and Multiple Location Control (MLC) Items';
--
-- Name: itemlocdist_itemlocdist_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemlocdist_itemlocdist_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemlocdist_itemlocdist_id_seq OWNER TO admin;
--
-- Name: itemlocdist_itemlocdist_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemlocdist_itemlocdist_id_seq', 2133, true);
--
-- Name: itemlocpost; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE itemlocpost (
itemlocpost_id integer NOT NULL,
itemlocpost_itemlocseries integer,
itemlocpost_glseq integer
);
ALTER TABLE public.itemlocpost OWNER TO admin;
--
-- Name: TABLE itemlocpost; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE itemlocpost IS 'Temporary table for storing information about Inventory distribution G/L postings involving Lot/Serial and Multiple Location Control (MLC) Items';
--
-- Name: itemlocpost_itemlocpost_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemlocpost_itemlocpost_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemlocpost_itemlocpost_id_seq OWNER TO admin;
--
-- Name: itemlocpost_itemlocpost_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE itemlocpost_itemlocpost_id_seq OWNED BY itemlocpost.itemlocpost_id;
--
-- Name: itemlocpost_itemlocpost_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemlocpost_itemlocpost_id_seq', 1, false);
--
-- Name: itemopn_itemopn_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemopn_itemopn_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemopn_itemopn_id_seq OWNER TO admin;
--
-- Name: itemopn_itemopn_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemopn_itemopn_id_seq', 39, true);
--
-- Name: itemsite_itemsite_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemsite_itemsite_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemsite_itemsite_id_seq OWNER TO admin;
--
-- Name: itemsite_itemsite_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemsite_itemsite_id_seq', 292, true);
--
-- Name: itemsrc_itemsrc_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemsrc_itemsrc_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemsrc_itemsrc_id_seq OWNER TO admin;
--
-- Name: itemsrc_itemsrc_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemsrc_itemsrc_id_seq', 83, true);
--
-- Name: itemsrcp_itemsrcp_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemsrcp_itemsrcp_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemsrcp_itemsrcp_id_seq OWNER TO admin;
--
-- Name: itemsrcp_itemsrcp_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemsrcp_itemsrcp_id_seq', 84, true);
--
-- Name: itemsub_itemsub_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemsub_itemsub_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemsub_itemsub_id_seq OWNER TO admin;
--
-- Name: itemsub_itemsub_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemsub_itemsub_id_seq', 16, true);
--
-- Name: itemtax_itemtax_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemtax_itemtax_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemtax_itemtax_id_seq OWNER TO admin;
--
-- Name: itemtax_itemtax_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE itemtax_itemtax_id_seq OWNED BY itemtax.itemtax_id;
--
-- Name: itemtax_itemtax_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemtax_itemtax_id_seq', 1, false);
--
-- Name: itemtrans; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE itemtrans (
itemtrans_id integer NOT NULL,
itemtrans_source_item_id integer,
itemtrans_target_item_id integer
);
ALTER TABLE public.itemtrans OWNER TO admin;
--
-- Name: TABLE itemtrans; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE itemtrans IS 'Item Transformation information';
--
-- Name: itemtrans_itemtrans_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemtrans_itemtrans_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemtrans_itemtrans_id_seq OWNER TO admin;
--
-- Name: itemtrans_itemtrans_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE itemtrans_itemtrans_id_seq OWNED BY itemtrans.itemtrans_id;
--
-- Name: itemtrans_itemtrans_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemtrans_itemtrans_id_seq', 1, false);
--
-- Name: itemuom; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE itemuom (
itemuom_id integer NOT NULL,
itemuom_itemuomconv_id integer NOT NULL,
itemuom_uomtype_id integer NOT NULL
);
ALTER TABLE public.itemuom OWNER TO admin;
--
-- Name: TABLE itemuom; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE itemuom IS 'A UOM type relation for a specific conversion.';
--
-- Name: itemuom_itemuom_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemuom_itemuom_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemuom_itemuom_id_seq OWNER TO admin;
--
-- Name: itemuom_itemuom_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE itemuom_itemuom_id_seq OWNED BY itemuom.itemuom_id;
--
-- Name: itemuom_itemuom_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemuom_itemuom_id_seq', 1, false);
--
-- Name: itemuomconv_itemuomconv_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE itemuomconv_itemuomconv_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.itemuomconv_itemuomconv_id_seq OWNER TO admin;
--
-- Name: itemuomconv_itemuomconv_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE itemuomconv_itemuomconv_id_seq OWNED BY itemuomconv.itemuomconv_id;
--
-- Name: itemuomconv_itemuomconv_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('itemuomconv_itemuomconv_id_seq', 1, false);
--
-- Name: journal_number_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE journal_number_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.journal_number_seq OWNER TO admin;
--
-- Name: journal_number_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('journal_number_seq', 2274, true);
--
-- Name: jrnluse; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE jrnluse (
jrnluse_id integer DEFAULT nextval(('"jrnluse_jrnluse_id_seq"'::text)::regclass) NOT NULL,
jrnluse_date timestamp without time zone,
jrnluse_number integer,
jrnluse_use text
);
ALTER TABLE public.jrnluse OWNER TO admin;
--
-- Name: TABLE jrnluse; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE jrnluse IS 'Journal entry and use information';
--
-- Name: jrnluse_jrnluse_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE jrnluse_jrnluse_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.jrnluse_jrnluse_id_seq OWNER TO admin;
--
-- Name: jrnluse_jrnluse_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('jrnluse_jrnluse_id_seq', 280, true);
--
-- Name: labeldef; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE labeldef (
labeldef_id integer NOT NULL,
labeldef_name text NOT NULL,
labeldef_papersize text NOT NULL,
labeldef_columns integer NOT NULL,
labeldef_rows integer NOT NULL,
labeldef_width integer NOT NULL,
labeldef_height integer NOT NULL,
labeldef_start_offset_x integer NOT NULL,
labeldef_start_offset_y integer NOT NULL,
labeldef_horizontal_gap integer NOT NULL,
labeldef_vertical_gap integer NOT NULL
);
ALTER TABLE public.labeldef OWNER TO admin;
--
-- Name: labeldef_labeldef_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE labeldef_labeldef_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.labeldef_labeldef_id_seq OWNER TO admin;
--
-- Name: labeldef_labeldef_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE labeldef_labeldef_id_seq OWNED BY labeldef.labeldef_id;
--
-- Name: labeldef_labeldef_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('labeldef_labeldef_id_seq', 4, true);
--
-- Name: labelform; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE labelform (
labelform_id integer DEFAULT nextval(('"labelform_labelform_id_seq"'::text)::regclass) NOT NULL,
labelform_name text NOT NULL,
labelform_report_id integer,
labelform_perpage integer,
labelform_report_name text,
CONSTRAINT labelform_labelform_name_check CHECK ((labelform_name <> ''::text))
);
ALTER TABLE public.labelform OWNER TO admin;
--
-- Name: TABLE labelform; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE labelform IS 'Label Form information';
--
-- Name: COLUMN labelform.labelform_report_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN labelform.labelform_report_id IS 'Obsolete -- reference labelform_report_name instead.';
--
-- Name: labelform_labelform_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE labelform_labelform_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.labelform_labelform_id_seq OWNER TO admin;
--
-- Name: labelform_labelform_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('labelform_labelform_id_seq', 6, true);
--
-- Name: lang; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE lang (
lang_id integer NOT NULL,
lang_qt_number integer,
lang_abbr3 text,
lang_abbr2 text,
lang_name text NOT NULL
);
ALTER TABLE public.lang OWNER TO admin;
--
-- Name: TABLE lang; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE lang IS 'Table mapping ISO 639-1 and 639-2 language codes to Qt''s enum QLocale::Language integer values. See http://www.loc.gov/standards/iso639-2/php/code_list.php and the QLocale documentation..';
--
-- Name: COLUMN lang.lang_abbr3; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN lang.lang_abbr3 IS 'ISO 639-2 code for language. Where there is a choice between bibliographic (B) and terminology (T) usage, this value is the T code';
--
-- Name: COLUMN lang.lang_abbr2; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN lang.lang_abbr2 IS 'ISO 639-1 code for language';
--
-- Name: COLUMN lang.lang_name; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN lang.lang_name IS 'Name of a human language, taken from the ISO 639-2 documentation';
--
-- Name: lang_lang_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE lang_lang_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.lang_lang_id_seq OWNER TO admin;
--
-- Name: lang_lang_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE lang_lang_id_seq OWNED BY lang.lang_id;
--
-- Name: lang_lang_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('lang_lang_id_seq', 499, true);
--
-- Name: locale; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE locale (
locale_id integer DEFAULT nextval(('locale_locale_id_seq'::text)::regclass) NOT NULL,
locale_code text NOT NULL,
locale_descrip text,
locale_lang_file text,
locale_dateformat text,
locale_currformat text,
locale_qtyformat text,
locale_comments text,
locale_qtyperformat text,
locale_salespriceformat text,
locale_extpriceformat text,
locale_timeformat text,
locale_timestampformat text,
local_costformat text,
locale_costformat text,
locale_purchpriceformat text,
locale_uomratioformat text,
locale_intervalformat text,
locale_lang_id integer,
locale_country_id integer,
locale_error_color text,
locale_warning_color text,
locale_emphasis_color text,
locale_altemphasis_color text,
locale_expired_color text,
locale_future_color text,
locale_curr_scale integer,
locale_salesprice_scale integer,
locale_purchprice_scale integer,
locale_extprice_scale integer,
locale_cost_scale integer,
locale_qty_scale integer,
locale_qtyper_scale integer,
locale_uomratio_scale integer,
locale_percent_scale integer DEFAULT 2,
locale_weight_scale integer DEFAULT 2 NOT NULL,
CONSTRAINT locale_locale_code_check CHECK ((locale_code <> ''::text))
);
ALTER TABLE public.locale OWNER TO admin;
--
-- Name: TABLE locale; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE locale IS 'The locale table holds information required to show data to the user in a localized format. Colors are either names documented by the WWW Consortium or RGB colors. Format for RGB colors is #RGB, #RRGGBB, or #RRRGGGBBB, where the letters R, G, and B stand for hexidecimal digits.';
--
-- Name: COLUMN locale.locale_lang_file; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_lang_file IS 'Deprecated';
--
-- Name: COLUMN locale.locale_dateformat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_dateformat IS 'Deprecated';
--
-- Name: COLUMN locale.locale_currformat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_currformat IS 'Deprecated';
--
-- Name: COLUMN locale.locale_qtyformat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_qtyformat IS 'Deprecated';
--
-- Name: COLUMN locale.locale_qtyperformat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_qtyperformat IS 'Deprecated';
--
-- Name: COLUMN locale.locale_salespriceformat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_salespriceformat IS 'Deprecated';
--
-- Name: COLUMN locale.locale_extpriceformat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_extpriceformat IS 'Deprecated';
--
-- Name: COLUMN locale.locale_timeformat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_timeformat IS 'Deprecated';
--
-- Name: COLUMN locale.locale_timestampformat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_timestampformat IS 'Deprecated';
--
-- Name: COLUMN locale.local_costformat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.local_costformat IS 'Deprecated';
--
-- Name: COLUMN locale.locale_costformat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_costformat IS 'Deprecated';
--
-- Name: COLUMN locale.locale_purchpriceformat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_purchpriceformat IS 'Deprecated';
--
-- Name: COLUMN locale.locale_uomratioformat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_uomratioformat IS 'Deprecated';
--
-- Name: COLUMN locale.locale_intervalformat; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_intervalformat IS 'Deprecated';
--
-- Name: COLUMN locale.locale_error_color; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_error_color IS 'Color to use to mark data that require immediate attention.';
--
-- Name: COLUMN locale.locale_warning_color; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_warning_color IS 'Color to use to mark data that require attention soon.';
--
-- Name: COLUMN locale.locale_emphasis_color; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_emphasis_color IS 'Color to use to mark data that need to stand out but are not in error.';
--
-- Name: COLUMN locale.locale_altemphasis_color; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_altemphasis_color IS 'Color to use to mark data that need to stand out and be differentiated from other emphasized data.';
--
-- Name: COLUMN locale.locale_expired_color; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_expired_color IS 'Color to use to mark data that are no longer current.';
--
-- Name: COLUMN locale.locale_future_color; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_future_color IS 'Color to use to mark data that will not be effective until some point in the future.';
--
-- Name: COLUMN locale.locale_curr_scale; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_curr_scale IS 'Number of decimal places to show when displaying Currency values.';
--
-- Name: COLUMN locale.locale_salesprice_scale; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_salesprice_scale IS 'Number of decimal places to show when displaying Sales Prices.';
--
-- Name: COLUMN locale.locale_purchprice_scale; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_purchprice_scale IS 'Number of decimal places to show when displaying Purchase Prices.';
--
-- Name: COLUMN locale.locale_extprice_scale; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_extprice_scale IS 'Number of decimal places to show when displaying Extended Prices.';
--
-- Name: COLUMN locale.locale_cost_scale; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_cost_scale IS 'Number of decimal places to show when displaying Costs.';
--
-- Name: COLUMN locale.locale_qty_scale; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_qty_scale IS 'Number of decimal places to show when displaying Quantities.';
--
-- Name: COLUMN locale.locale_qtyper_scale; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_qtyper_scale IS 'Number of decimal places to show when displaying Quantities Per.';
--
-- Name: COLUMN locale.locale_uomratio_scale; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN locale.locale_uomratio_scale IS 'Number of decimal places to show when displaying UOM Ratios.';
--
-- Name: locale_locale_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE locale_locale_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.locale_locale_id_seq OWNER TO admin;
--
-- Name: locale_locale_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('locale_locale_id_seq', 29, true);
--
-- Name: location_location_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE location_location_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.location_location_id_seq OWNER TO admin;
--
-- Name: location_location_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('location_location_id_seq', 121, true);
--
-- Name: locitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE locitem (
locitem_id integer DEFAULT nextval(('"locitem_locitem_id_seq"'::text)::regclass) NOT NULL,
locitem_location_id integer,
locitem_item_id integer
);
ALTER TABLE public.locitem OWNER TO admin;
--
-- Name: TABLE locitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE locitem IS 'Restricted Warehouse Location Allowable Items information';
--
-- Name: locitem_locitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE locitem_locitem_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.locitem_locitem_id_seq OWNER TO admin;
--
-- Name: locitem_locitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('locitem_locitem_id_seq', 21, true);
--
-- Name: log_log_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE log_log_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.log_log_id_seq OWNER TO admin;
--
-- Name: log_log_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('log_log_id_seq', 747, true);
--
-- Name: metric; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE metric (
metric_id integer DEFAULT nextval(('metric_metric_id_seq'::text)::regclass) NOT NULL,
metric_name text NOT NULL,
metric_value text,
metric_module text,
CONSTRAINT metric_metric_name_check CHECK ((metric_name <> ''::text))
);
ALTER TABLE public.metric OWNER TO admin;
--
-- Name: TABLE metric; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE metric IS 'Application-wide settings information';
--
-- Name: metric_metric_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE metric_metric_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.metric_metric_id_seq OWNER TO admin;
--
-- Name: metric_metric_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('metric_metric_id_seq', 300, true);
--
-- Name: metricenc; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE metricenc (
metricenc_id integer NOT NULL,
metricenc_name text NOT NULL,
metricenc_value bytea,
metricenc_module text,
CONSTRAINT metricenc_metricenc_name_check CHECK ((metricenc_name <> ''::text))
);
ALTER TABLE public.metricenc OWNER TO admin;
--
-- Name: TABLE metricenc; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE metricenc IS 'Application-wide settings information encrypted data';
--
-- Name: metricenc_metricenc_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE metricenc_metricenc_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.metricenc_metricenc_id_seq OWNER TO admin;
--
-- Name: metricenc_metricenc_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE metricenc_metricenc_id_seq OWNED BY metricenc.metricenc_id;
--
-- Name: metricenc_metricenc_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('metricenc_metricenc_id_seq', 1, false);
--
-- Name: misc_index_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE misc_index_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.misc_index_seq OWNER TO admin;
--
-- Name: misc_index_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('misc_index_seq', 1166, true);
--
-- Name: mrghist; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE mrghist (
mrghist_cntct_id integer NOT NULL,
mrghist_table text NOT NULL,
mrghist_pkey_col text NOT NULL,
mrghist_pkey_id integer NOT NULL,
mrghist_cntct_col text NOT NULL
);
ALTER TABLE public.mrghist OWNER TO admin;
--
-- Name: mrgundo; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE mrgundo (
mrgundo_base_schema text,
mrgundo_base_table text,
mrgundo_base_id integer,
mrgundo_schema text,
mrgundo_table text,
mrgundo_pkey_col text,
mrgundo_pkey_id integer,
mrgundo_col text,
mrgundo_value text,
mrgundo_type text
);
ALTER TABLE public.mrgundo OWNER TO admin;
--
-- Name: TABLE mrgundo; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE mrgundo IS 'This table keeps track of the original values of changes made while merging two records. It is a generalization of mrghist and trgthist, which are specific to merging contacts. The schema, table, and pkey_id columns uniquely identify the record that was changed while the _base_ columns identify the merge target. The _base_ columns are required to allow finding all of the records that pertain to a particular merge (e.g. find changes to the comment table that pertain to a crmacct merge).';
--
-- Name: COLUMN mrgundo.mrgundo_base_schema; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN mrgundo.mrgundo_base_schema IS 'The schema in which the merge target resides.';
--
-- Name: COLUMN mrgundo.mrgundo_base_table; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN mrgundo.mrgundo_base_table IS 'The table in which the merge target resides.';
--
-- Name: COLUMN mrgundo.mrgundo_base_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN mrgundo.mrgundo_base_id IS 'The internal id of the merge target record.';
--
-- Name: COLUMN mrgundo.mrgundo_schema; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN mrgundo.mrgundo_schema IS 'The name of the schema in which the modified table resides.';
--
-- Name: COLUMN mrgundo.mrgundo_table; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN mrgundo.mrgundo_table IS 'The name of the table that was modified during a merge.';
--
-- Name: COLUMN mrgundo.mrgundo_pkey_col; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN mrgundo.mrgundo_pkey_col IS 'The name of the primary key column in the modified table. This could be derived during the undo processing but it is simpler just to store it during the merge.';
--
-- Name: COLUMN mrgundo.mrgundo_pkey_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN mrgundo.mrgundo_pkey_id IS 'The primary key of the modified record.';
--
-- Name: COLUMN mrgundo.mrgundo_col; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN mrgundo.mrgundo_col IS 'The column that was modified.';
--
-- Name: COLUMN mrgundo.mrgundo_value; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN mrgundo.mrgundo_value IS 'The value of the column before the change.';
--
-- Name: COLUMN mrgundo.mrgundo_type; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN mrgundo.mrgundo_type IS 'The data type of the modified column. This could be derived during the undo processing but it is simpler just to store it during the merge.';
--
-- Name: msg; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE msg (
msg_id integer DEFAULT nextval(('"msg_msg_id_seq"'::text)::regclass) NOT NULL,
msg_posted timestamp with time zone,
msg_scheduled timestamp with time zone,
msg_text text,
msg_expires timestamp with time zone,
msg_username text
);
ALTER TABLE public.msg OWNER TO admin;
--
-- Name: TABLE msg; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE msg IS 'System Message information';
--
-- Name: msg_msg_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE msg_msg_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.msg_msg_id_seq OWNER TO admin;
--
-- Name: msg_msg_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('msg_msg_id_seq', 16, true);
--
-- Name: msguser; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE msguser (
msguser_id integer DEFAULT nextval(('"msguser_msguser_id_seq"'::text)::regclass) NOT NULL,
msguser_msg_id integer,
msguser_viewed timestamp with time zone,
msguser_username text
);
ALTER TABLE public.msguser OWNER TO admin;
--
-- Name: TABLE msguser; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE msguser IS 'System Message user information';
--
-- Name: msguser_msguser_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE msguser_msguser_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.msguser_msguser_id_seq OWNER TO admin;
--
-- Name: msguser_msguser_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('msguser_msguser_id_seq', 12, true);
--
-- Name: nvend_nvend_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE nvend_nvend_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.nvend_nvend_id_seq OWNER TO admin;
--
-- Name: nvend_nvend_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('nvend_nvend_id_seq', 1, false);
--
-- Name: obsolete_tax; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE obsolete_tax (
tax_id integer DEFAULT nextval(('"tax_tax_id_seq"'::text)::regclass) NOT NULL,
tax_code text,
tax_descrip text,
tax_ratea numeric(8,4),
tax_sales_accnt_id integer,
tax_freight boolean DEFAULT false NOT NULL,
tax_cumulative boolean DEFAULT false NOT NULL,
tax_rateb numeric(8,4),
tax_salesb_accnt_id integer,
tax_ratec numeric(8,4),
tax_salesc_accnt_id integer
);
ALTER TABLE public.obsolete_tax OWNER TO admin;
--
-- Name: TABLE obsolete_tax; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE obsolete_tax IS 'Tax information. Obsolete table structure.';
--
-- Name: COLUMN obsolete_tax.tax_freight; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN obsolete_tax.tax_freight IS 'Deprecated in 2.1 and moved to taxsel table where taxtype is the system defined Freight.';
--
-- Name: ophead_ophead_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE ophead_ophead_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.ophead_ophead_id_seq OWNER TO admin;
--
-- Name: ophead_ophead_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE ophead_ophead_id_seq OWNED BY ophead.ophead_id;
--
-- Name: ophead_ophead_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('ophead_ophead_id_seq', 1, true);
--
-- Name: opsource; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE opsource (
opsource_id integer NOT NULL,
opsource_name text NOT NULL,
opsource_descrip text,
CONSTRAINT opsource_opsource_name_check CHECK ((opsource_name <> ''::text))
);
ALTER TABLE public.opsource OWNER TO admin;
--
-- Name: TABLE opsource; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE opsource IS 'Opportunity Lead Source values.';
--
-- Name: opsource_opsource_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE opsource_opsource_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.opsource_opsource_id_seq OWNER TO admin;
--
-- Name: opsource_opsource_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE opsource_opsource_id_seq OWNED BY opsource.opsource_id;
--
-- Name: opsource_opsource_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('opsource_opsource_id_seq', 1, false);
--
-- Name: opstage; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE opstage (
opstage_id integer NOT NULL,
opstage_name text NOT NULL,
opstage_descrip text,
opstage_order integer DEFAULT 0 NOT NULL,
opstage_opinactive boolean DEFAULT false,
CONSTRAINT opstage_opstage_name_check CHECK ((opstage_name <> ''::text))
);
ALTER TABLE public.opstage OWNER TO admin;
--
-- Name: TABLE opstage; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE opstage IS 'Opportunity stage values.';
--
-- Name: opstage_opstage_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE opstage_opstage_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.opstage_opstage_id_seq OWNER TO admin;
--
-- Name: opstage_opstage_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE opstage_opstage_id_seq OWNED BY opstage.opstage_id;
--
-- Name: opstage_opstage_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('opstage_opstage_id_seq', 1, false);
--
-- Name: optype; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE optype (
optype_id integer NOT NULL,
optype_name text NOT NULL,
optype_descrip text,
CONSTRAINT optype_optype_name_check CHECK ((optype_name <> ''::text))
);
ALTER TABLE public.optype OWNER TO admin;
--
-- Name: TABLE optype; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE optype IS 'Opportunity Type values.';
--
-- Name: optype_optype_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE optype_optype_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.optype_optype_id_seq OWNER TO admin;
--
-- Name: optype_optype_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE optype_optype_id_seq OWNED BY optype.optype_id;
--
-- Name: optype_optype_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('optype_optype_id_seq', 1, false);
--
-- Name: orderhead; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW orderhead AS
SELECT DISTINCT data.orderhead_id, data.orderhead_type, data.orderhead_number, data.orderhead_status, data.orderhead_orderdate, data.orderhead_linecount, data.orderhead_from_id, data.orderhead_from, data.orderhead_to_id, data.orderhead_to, data.orderhead_curr_id, data.orderhead_agent_username, data.orderhead_shipvia FROM (SELECT pohead.pohead_id AS orderhead_id, 'PO'::text AS orderhead_type, pohead.pohead_number AS orderhead_number, pohead.pohead_status AS orderhead_status, pohead.pohead_orderdate AS orderhead_orderdate, (SELECT count(*) AS count FROM poitem WHERE (poitem.poitem_pohead_id = pohead.pohead_id)) AS orderhead_linecount, pohead.pohead_vend_id AS orderhead_from_id, vendinfo.vend_name AS orderhead_from, NULL::integer AS orderhead_to_id, ''::text AS orderhead_to, pohead.pohead_curr_id AS orderhead_curr_id, pohead.pohead_agent_username AS orderhead_agent_username, pohead.pohead_shipvia AS orderhead_shipvia FROM (pohead LEFT JOIN vendinfo ON ((pohead.pohead_vend_id = vendinfo.vend_id))) UNION ALL SELECT cohead.cohead_id AS orderhead_id, 'SO'::text AS orderhead_type, cohead.cohead_number AS orderhead_number, cohead.cohead_status AS orderhead_status, cohead.cohead_orderdate AS orderhead_orderdate, (SELECT count(*) AS count FROM coitem WHERE (coitem.coitem_cohead_id = cohead.cohead_id)) AS orderhead_linecount, NULL::unknown AS orderhead_from_id, ''::text AS orderhead_from, cohead.cohead_cust_id AS orderhead_to_id, CASE WHEN (length(cohead.cohead_shiptoname) > 0) THEN cohead.cohead_shiptoname ELSE cohead.cohead_billtoname END AS orderhead_to, cohead.cohead_curr_id AS orderhead_curr_id, ''::text AS orderhead_agent_username, cohead.cohead_shipvia AS orderhead_shipvia FROM cohead) data;
ALTER TABLE public.orderhead OWNER TO admin;
--
-- Name: VIEW orderhead; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON VIEW orderhead IS 'Union of all orders for use by widgets and stored procedures which process multiple types of order';
--
-- Name: orderitem; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW orderitem AS
(SELECT poitem.poitem_id AS orderitem_id, 'PO' AS orderitem_orderhead_type, poitem.poitem_pohead_id AS orderitem_orderhead_id, poitem.poitem_linenumber AS orderitem_linenumber, poitem.poitem_status AS orderitem_status, poitem.poitem_itemsite_id AS orderitem_itemsite_id, poitem.poitem_duedate AS orderitem_scheddate, poitem.poitem_qty_ordered AS orderitem_qty_ordered, poitem.poitem_qty_returned AS orderitem_qty_shipped, poitem.poitem_qty_received AS orderitem_qty_received, uom.uom_id AS orderitem_qty_uom_id, poitem.poitem_invvenduomratio AS orderitem_qty_invuomratio, poitem.poitem_unitprice AS orderitem_unitcost, pohead.pohead_curr_id AS orderitem_unitcost_curr_id, poitem.poitem_freight AS orderitem_freight, poitem.poitem_freight_received AS orderitem_freight_received, pohead.pohead_curr_id AS orderitem_freight_curr_id FROM ((poitem LEFT JOIN pohead ON ((poitem.poitem_pohead_id = pohead.pohead_id))) LEFT JOIN uom ON ((uom.uom_name = poitem.poitem_vend_uom))) UNION ALL SELECT coitem.coitem_id AS orderitem_id, 'SO' AS orderitem_orderhead_type, coitem.coitem_cohead_id AS orderitem_orderhead_id, coitem.coitem_linenumber AS orderitem_linenumber, coitem.coitem_status AS orderitem_status, coitem.coitem_itemsite_id AS orderitem_itemsite_id, coitem.coitem_scheddate AS orderitem_scheddate, coitem.coitem_qtyord AS orderitem_qty_ordered, coitem.coitem_qtyshipped AS orderitem_qty_shipped, coitem.coitem_qtyreturned AS orderitem_qty_received, coitem.coitem_qty_uom_id AS orderitem_qty_uom_id, coitem.coitem_qty_invuomratio AS orderitem_qty_invuomratio, coitem.coitem_unitcost AS orderitem_unitcost, basecurrid() AS orderitem_unitcost_curr_id, NULL::unknown AS orderitem_freight, NULL::unknown AS orderitem_freight_received, basecurrid() AS orderitem_freight_curr_id FROM coitem) UNION ALL SELECT quitem.quitem_id AS orderitem_id, 'QU' AS orderitem_orderhead_type, quitem.quitem_quhead_id AS orderitem_orderhead_id, quitem.quitem_linenumber AS orderitem_linenumber, 'O' AS orderitem_status, quitem.quitem_itemsite_id AS orderitem_itemsite_id, quitem.quitem_scheddate AS orderitem_scheddate, quitem.quitem_qtyord AS orderitem_qty_ordered, 0 AS orderitem_qty_shipped, 0 AS orderitem_qty_received, quitem.quitem_qty_uom_id AS orderitem_qty_uom_id, quitem.quitem_qty_invuomratio AS orderitem_qty_invuomratio, quitem.quitem_unitcost AS orderitem_unitcost, basecurrid() AS orderitem_unitcost_curr_id, NULL::unknown AS orderitem_freight, NULL::unknown AS orderitem_freight_received, basecurrid() AS orderitem_freight_curr_id FROM quitem;
ALTER TABLE public.orderitem OWNER TO admin;
--
-- Name: VIEW orderitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON VIEW orderitem IS 'Union of all order line items for use by widgets and stored procedures which process multiple types of order';
--
-- Name: orderseq; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE orderseq (
orderseq_id integer DEFAULT nextval(('orderseq_orderseq_id_seq'::text)::regclass) NOT NULL,
orderseq_name text NOT NULL,
orderseq_number integer,
orderseq_table text,
orderseq_numcol text,
orderseq_seqiss seqiss[],
CONSTRAINT orderseq_orderseq_name_check CHECK ((orderseq_name <> ''::text))
);
ALTER TABLE public.orderseq OWNER TO admin;
--
-- Name: TABLE orderseq; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE orderseq IS 'Configuration information for common numbering sequences';
--
-- Name: orderseq_orderseq_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE orderseq_orderseq_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.orderseq_orderseq_id_seq OWNER TO admin;
--
-- Name: orderseq_orderseq_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('orderseq_orderseq_id_seq', 23, true);
--
-- Name: pack; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE pack (
pack_id integer NOT NULL,
pack_head_id integer NOT NULL,
pack_head_type text NOT NULL,
pack_shiphead_id integer,
pack_printed boolean DEFAULT false NOT NULL,
CONSTRAINT pack_pack_head_type_check CHECK (((pack_head_type = 'SO'::text) OR (pack_head_type = 'TO'::text)))
);
ALTER TABLE public.pack OWNER TO admin;
--
-- Name: TABLE pack; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE pack IS 'Temporary table for storing information about Orders added to the Packing List Batch';
--
-- Name: pack_pack_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE pack_pack_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.pack_pack_id_seq OWNER TO admin;
--
-- Name: pack_pack_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE pack_pack_id_seq OWNED BY pack.pack_id;
--
-- Name: pack_pack_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('pack_pack_id_seq', 1, true);
--
-- Name: payaropen; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE payaropen (
payaropen_ccpay_id integer NOT NULL,
payaropen_aropen_id integer NOT NULL,
payaropen_amount numeric(20,2) DEFAULT 0.00 NOT NULL,
payaropen_curr_id integer DEFAULT basecurrid()
);
ALTER TABLE public.payaropen OWNER TO admin;
--
-- Name: TABLE payaropen; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE payaropen IS 'Credit Card payment to credit memo join table';
--
-- Name: payco; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE payco (
payco_ccpay_id integer NOT NULL,
payco_cohead_id integer NOT NULL,
payco_amount numeric(20,2) DEFAULT 0.00 NOT NULL,
payco_curr_id integer DEFAULT basecurrid()
);
ALTER TABLE public.payco OWNER TO admin;
--
-- Name: TABLE payco; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE payco IS 'Credit Card payment to sales order join table';
--
-- Name: period_period_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE period_period_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.period_period_id_seq OWNER TO admin;
--
-- Name: period_period_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE period_period_id_seq OWNED BY period.period_id;
--
-- Name: period_period_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('period_period_id_seq', 123, true);
--
-- Name: pkgdep; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE pkgdep (
pkgdep_id integer NOT NULL,
pkgdep_pkghead_id integer NOT NULL,
pkgdep_parent_pkghead_id integer NOT NULL
);
ALTER TABLE public.pkgdep OWNER TO admin;
--
-- Name: TABLE pkgdep; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE pkgdep IS 'Package Dependencies list describing which packages are dependent on which other packages.';
--
-- Name: COLUMN pkgdep.pkgdep_pkghead_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN pkgdep.pkgdep_pkghead_id IS 'This is the internal ID of a package which requires at least one other package to be installed first to operate successfully';
--
-- Name: COLUMN pkgdep.pkgdep_parent_pkghead_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN pkgdep.pkgdep_parent_pkghead_id IS 'This is the internal ID of a package which must be installed for the package pointed to by pkgdep_pkghead_id to operate successfully.';
--
-- Name: pkgdep_pkgdep_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE pkgdep_pkgdep_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.pkgdep_pkgdep_id_seq OWNER TO admin;
--
-- Name: pkgdep_pkgdep_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE pkgdep_pkgdep_id_seq OWNED BY pkgdep.pkgdep_id;
--
-- Name: pkgdep_pkgdep_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('pkgdep_pkgdep_id_seq', 1, true);
--
-- Name: pkghead; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE pkghead (
pkghead_id integer NOT NULL,
pkghead_name text NOT NULL,
pkghead_descrip text,
pkghead_version text NOT NULL,
pkghead_developer text NOT NULL,
pkghead_notes text,
pkghead_created timestamp with time zone,
pkghead_updated timestamp with time zone,
pkghead_indev boolean DEFAULT false NOT NULL,
CONSTRAINT pkghead_pkghead_name_check CHECK ((pkghead_name <> ''::text))
);
ALTER TABLE public.pkghead OWNER TO admin;
--
-- Name: TABLE pkghead; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE pkghead IS 'Information about non-core Packages added to the database';
--
-- Name: COLUMN pkghead.pkghead_indev; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN pkghead.pkghead_indev IS 'Flag indicating whether the contents of this package may be modified in-place - this package is /in dev/elopment.';
--
-- Name: pkghead_pkghead_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE pkghead_pkghead_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.pkghead_pkghead_id_seq OWNER TO admin;
--
-- Name: pkghead_pkghead_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE pkghead_pkghead_id_seq OWNED BY pkghead.pkghead_id;
--
-- Name: pkghead_pkghead_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('pkghead_pkghead_id_seq', 7, true);
--
-- Name: pkgitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE pkgitem (
pkgitem_id integer NOT NULL,
pkgitem_pkghead_id integer,
pkgitem_type text,
pkgitem_item_id integer NOT NULL,
pkgitem_name text NOT NULL,
pkgitem_descrip text,
CONSTRAINT pkgitem_pkgitem_type_check CHECK (((((((((((((pkgitem_type = 'C'::text) OR (pkgitem_type = 'D'::text)) OR (pkgitem_type = 'F'::text)) OR (pkgitem_type = 'G'::text)) OR (pkgitem_type = 'I'::text)) OR (pkgitem_type = 'M'::text)) OR (pkgitem_type = 'P'::text)) OR (pkgitem_type = 'R'::text)) OR (pkgitem_type = 'S'::text)) OR (pkgitem_type = 'T'::text)) OR (pkgitem_type = 'U'::text)) OR (pkgitem_type = 'V'::text)))
);
ALTER TABLE public.pkgitem OWNER TO admin;
--
-- Name: TABLE pkgitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE pkgitem IS 'Deprecated - the pkgitem table is no longer used to track package contents. It has been replaced by direct queries to the database schema and component tables. This table will be removed when all users have switched to Updater 2.2.0 or later.';
--
-- Name: pkgitem_pkgitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE pkgitem_pkgitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.pkgitem_pkgitem_id_seq OWNER TO admin;
--
-- Name: pkgitem_pkgitem_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE pkgitem_pkgitem_id_seq OWNED BY pkgitem.pkgitem_id;
--
-- Name: pkgitem_pkgitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('pkgitem_pkgitem_id_seq', 1, false);
--
-- Name: plancode_plancode_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE plancode_plancode_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.plancode_plancode_id_seq OWNER TO admin;
--
-- Name: plancode_plancode_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('plancode_plancode_id_seq', 26, true);
--
-- Name: planord_planord_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE planord_planord_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.planord_planord_id_seq OWNER TO admin;
--
-- Name: planord_planord_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('planord_planord_id_seq', 1022, true);
--
-- Name: pohead_pohead_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE pohead_pohead_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.pohead_pohead_id_seq OWNER TO admin;
--
-- Name: pohead_pohead_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('pohead_pohead_id_seq', 344, true);
--
-- Name: poitem_poitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE poitem_poitem_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.poitem_poitem_id_seq OWNER TO admin;
--
-- Name: poitem_poitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('poitem_poitem_id_seq', 426, true);
--
-- Name: recv; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE recv (
recv_id integer NOT NULL,
recv_order_type text NOT NULL,
recv_order_number text NOT NULL,
recv_orderitem_id integer NOT NULL,
recv_agent_username text,
recv_itemsite_id integer,
recv_vend_id integer,
recv_vend_item_number text,
recv_vend_item_descrip text,
recv_vend_uom text,
recv_purchcost numeric(16,6),
recv_purchcost_curr_id integer,
recv_duedate date,
recv_qty numeric(18,6),
recv_recvcost numeric(16,6),
recv_recvcost_curr_id integer,
recv_freight numeric(16,4),
recv_freight_curr_id integer,
recv_date timestamp with time zone,
recv_value numeric(18,6),
recv_posted boolean DEFAULT false NOT NULL,
recv_invoiced boolean DEFAULT false NOT NULL,
recv_vohead_id integer,
recv_voitem_id integer,
recv_trans_usr_name text DEFAULT geteffectivextuser() NOT NULL,
recv_notes text,
recv_gldistdate date,
recv_splitfrom_id integer,
recv_rlsd_duedate date,
CONSTRAINT recv_recv_order_type_check CHECK ((((recv_order_type = 'PO'::text) OR (recv_order_type = 'RA'::text)) OR (recv_order_type = 'TO'::text)))
);
ALTER TABLE public.recv OWNER TO admin;
--
-- Name: TABLE recv; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE recv IS 'Information about Received Orders.';
--
-- Name: porecv; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW porecv AS
SELECT recv.recv_id AS porecv_id, recv.recv_date AS porecv_date, recv.recv_rlsd_duedate AS porecv_rlsd_duedate, pohead.pohead_orderdate AS porecv_orderdate, pohead.pohead_released AS porecv_released, recv.recv_order_number AS porecv_ponumber, recv.recv_itemsite_id AS porecv_itemsite_id, recv.recv_vend_id AS porecv_vend_id, item.item_number AS porecv_item_number, recv.recv_vend_item_number AS porecv_vend_item_number, COALESCE(item.item_descrip1, recv.recv_vend_item_descrip) AS porecv_vend_item_descrip, recv.recv_vend_uom AS porecv_vend_uom, recv.recv_qty AS porecv_qty, recv.recv_posted AS porecv_posted, recv.recv_invoiced AS porecv_invoiced, (pg_user.usesysid)::integer AS porecv_trans_usr_id, recv.recv_orderitem_id AS porecv_poitem_id, NULL::integer AS porecv_linenumber, recv.recv_purchcost AS porecv_purchcost, recv.recv_vohead_id AS porecv_vohead_id, recv.recv_recvcost AS porecv_recvcost, recv.recv_duedate AS porecv_duedate, recv.recv_agent_username AS porecv_agent_username, recv.recv_notes AS porecv_notes, recv.recv_freight AS porecv_freight, recv.recv_freight_curr_id AS porecv_curr_id, recv.recv_gldistdate AS porecv_gldistdate, recv.recv_voitem_id AS porecv_voitem_id, recv.recv_value AS porecv_value FROM ((((recv LEFT JOIN pg_user ON ((recv.recv_trans_usr_name = (pg_user.usename)::text))) LEFT JOIN pohead ON ((recv.recv_order_number = pohead.pohead_number))) LEFT JOIN itemsite ON ((recv.recv_itemsite_id = itemsite.itemsite_id))) LEFT JOIN item ON ((itemsite.itemsite_item_id = item.item_id))) WHERE (recv.recv_order_type = 'PO'::text);
ALTER TABLE public.porecv OWNER TO admin;
--
-- Name: porecv_porecv_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE porecv_porecv_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.porecv_porecv_id_seq OWNER TO admin;
--
-- Name: porecv_porecv_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('porecv_porecv_id_seq', 127, true);
--
-- Name: poreject; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE poreject (
poreject_id integer DEFAULT nextval(('"poreject_poreject_id_seq"'::text)::regclass) NOT NULL,
poreject_date timestamp with time zone,
poreject_ponumber text,
poreject_itemsite_id integer,
poreject_vend_id integer,
poreject_vend_item_number text,
poreject_vend_item_descrip text,
poreject_vend_uom text,
poreject_qty numeric(18,6),
poreject_posted boolean,
poreject_rjctcode_id integer,
poreject_poitem_id integer,
poreject_invoiced boolean,
poreject_vohead_id integer,
poreject_agent_username text,
poreject_voitem_id integer,
poreject_value numeric(18,6),
poreject_trans_username text,
poreject_recv_id integer
);
ALTER TABLE public.poreject OWNER TO admin;
--
-- Name: TABLE poreject; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE poreject IS 'The poreject table describes Purchase Order Items that were returned to Vendors.';
--
-- Name: COLUMN poreject.poreject_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN poreject.poreject_id IS 'This is the internal id of this poreject record';
--
-- Name: COLUMN poreject.poreject_date; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN poreject.poreject_date IS 'This is the date and time the return was entered into the database';
--
-- Name: COLUMN poreject.poreject_ponumber; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN poreject.poreject_ponumber IS 'This is the number of the original Purchase Order of this item';
--
-- Name: COLUMN poreject.poreject_itemsite_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN poreject.poreject_itemsite_id IS 'This is the Item Site into which the item had been received';
--
-- Name: COLUMN poreject.poreject_vend_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN poreject.poreject_vend_id IS 'This is the Vendor from which the item had been purchased';
--
-- Name: COLUMN poreject.poreject_vend_item_number; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN poreject.poreject_vend_item_number IS 'This is the Vendor''s item number for this item';
--
-- Name: COLUMN poreject.poreject_vend_item_descrip; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN poreject.poreject_vend_item_descrip IS 'This is the Vendor''s description of this item';
--
-- Name: COLUMN poreject.poreject_vend_uom; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN poreject.poreject_vend_uom IS 'This is the Unit of Measure in which the Vendor sold this item';
--
-- Name: COLUMN poreject.poreject_qty; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN poreject.poreject_qty IS 'This is the quantity of the item that was returned';
--
-- Name: COLUMN poreject.poreject_posted; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN poreject.poreject_posted IS 'This indicates whether or not the return has been recorded in the General Ledger, Inventory History, and Purchase Order Item';
--
-- Name: COLUMN poreject.poreject_rjctcode_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN poreject.poreject_rjctcode_id IS 'This indicates the reason for the return';
--
-- Name: COLUMN poreject.poreject_poitem_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN poreject.poreject_poitem_id IS 'This is the internal id of the original Purchase Order Item';
--
-- Name: COLUMN poreject.poreject_invoiced; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN poreject.poreject_invoiced IS 'This indicates whether the Credit Memo associated with the return has been posted';
--
-- Name: COLUMN poreject.poreject_vohead_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN poreject.poreject_vohead_id IS 'This is the Voucher associated with the Purchase Order Item';
--
-- Name: COLUMN poreject.poreject_agent_username; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN poreject.poreject_agent_username IS 'This is the Purchase Order Agent responsible for the original Purchase Order';
--
-- Name: COLUMN poreject.poreject_voitem_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN poreject.poreject_voitem_id IS 'This is the Voucher Item associated with the Purchase Order Item';
--
-- Name: COLUMN poreject.poreject_value; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN poreject.poreject_value IS 'This is the value (in base currency) of the return at the time it was posted to the General Ledger';
--
-- Name: COLUMN poreject.poreject_trans_username; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN poreject.poreject_trans_username IS 'This is the user who recorded the return';
--
-- Name: poreject_poreject_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE poreject_poreject_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.poreject_poreject_id_seq OWNER TO admin;
--
-- Name: poreject_poreject_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('poreject_poreject_id_seq', 41, true);
--
-- Name: potype; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE potype (
potype_id integer NOT NULL,
potype_name text,
potype_descrip text
);
ALTER TABLE public.potype OWNER TO admin;
--
-- Name: TABLE potype; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE potype IS 'Purchase Order Type information';
--
-- Name: potype_potype_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE potype_potype_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.potype_potype_id_seq OWNER TO admin;
--
-- Name: potype_potype_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE potype_potype_id_seq OWNED BY potype.potype_id;
--
-- Name: potype_potype_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('potype_potype_id_seq', 1, false);
--
-- Name: pr; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE pr (
pr_id integer DEFAULT nextval(('"pr_pr_id_seq"'::text)::regclass) NOT NULL,
pr_number integer,
pr_subnumber integer,
pr_status character(1),
pr_order_type character(1),
pr_order_id integer,
pr_poitem_id integer,
pr_duedate date,
pr_itemsite_id integer,
pr_qtyreq numeric(18,6),
pr_prj_id integer,
pr_releasenote text,
pr_createdate timestamp without time zone DEFAULT now()
);
ALTER TABLE public.pr OWNER TO admin;
--
-- Name: TABLE pr; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE pr IS 'Purchase Request information';
--
-- Name: pr_pr_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE pr_pr_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.pr_pr_id_seq OWNER TO admin;
--
-- Name: pr_pr_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('pr_pr_id_seq', 185, true);
--
-- Name: prftcntr; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE prftcntr (
prftcntr_id integer NOT NULL,
prftcntr_number text NOT NULL,
prftcntr_descrip text,
CONSTRAINT prftcntr_prftcntr_number_check CHECK ((prftcntr_number <> ''::text))
);
ALTER TABLE public.prftcntr OWNER TO admin;
--
-- Name: TABLE prftcntr; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE prftcntr IS 'Profit Center information';
--
-- Name: prftcntr_prftcntr_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE prftcntr_prftcntr_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.prftcntr_prftcntr_id_seq OWNER TO admin;
--
-- Name: prftcntr_prftcntr_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE prftcntr_prftcntr_id_seq OWNED BY prftcntr.prftcntr_id;
--
-- Name: prftcntr_prftcntr_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('prftcntr_prftcntr_id_seq', 1, true);
--
-- Name: usrgrp; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE usrgrp (
usrgrp_id integer NOT NULL,
usrgrp_grp_id integer NOT NULL,
usrgrp_username text NOT NULL
);
ALTER TABLE public.usrgrp OWNER TO admin;
--
-- Name: TABLE usrgrp; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE usrgrp IS 'This is which group a user belongs to.';
--
-- Name: usrpriv; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE usrpriv (
usrpriv_id integer DEFAULT nextval(('usrpriv_usrpriv_id_seq'::text)::regclass) NOT NULL,
usrpriv_priv_id integer,
usrpriv_username text
);
ALTER TABLE public.usrpriv OWNER TO admin;
--
-- Name: TABLE usrpriv; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE usrpriv IS 'User Privileges information';
--
-- Name: privgranted; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW privgranted AS
SELECT priv.priv_name AS privilege, (COALESCE(usrpriv.usrpriv_priv_id, grppriv.grppriv_priv_id, (-1)) > 0) AS granted, priv.priv_seq AS sequence FROM ((priv LEFT JOIN usrpriv ON (((priv.priv_id = usrpriv.usrpriv_priv_id) AND (usrpriv.usrpriv_username = geteffectivextuser())))) LEFT JOIN (SELECT DISTINCT grppriv.grppriv_priv_id FROM (grppriv JOIN usrgrp ON (((grppriv.grppriv_grp_id = usrgrp.usrgrp_grp_id) AND (usrgrp.usrgrp_username = geteffectivextuser()))))) grppriv ON ((grppriv.grppriv_priv_id = priv.priv_id)));
ALTER TABLE public.privgranted OWNER TO admin;
--
-- Name: prj_prj_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE prj_prj_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.prj_prj_id_seq OWNER TO admin;
--
-- Name: prj_prj_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE prj_prj_id_seq OWNED BY prj.prj_id;
--
-- Name: prj_prj_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('prj_prj_id_seq', 1, true);
--
-- Name: prjtask_prjtask_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE prjtask_prjtask_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.prjtask_prjtask_id_seq OWNER TO admin;
--
-- Name: prjtask_prjtask_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE prjtask_prjtask_id_seq OWNED BY prjtask.prjtask_id;
--
-- Name: prjtask_prjtask_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('prjtask_prjtask_id_seq', 1, false);
--
-- Name: prjtaskuser; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE prjtaskuser (
prjtaskuser_id integer NOT NULL,
prjtaskuser_prjtask_id integer,
prjtaskuser_username text
);
ALTER TABLE public.prjtaskuser OWNER TO admin;
--
-- Name: TABLE prjtaskuser; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE prjtaskuser IS 'Project Task user information';
--
-- Name: prjtaskuser_prjtaskuser_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE prjtaskuser_prjtaskuser_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.prjtaskuser_prjtaskuser_id_seq OWNER TO admin;
--
-- Name: prjtaskuser_prjtaskuser_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE prjtaskuser_prjtaskuser_id_seq OWNED BY prjtaskuser.prjtaskuser_id;
--
-- Name: prjtaskuser_prjtaskuser_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('prjtaskuser_prjtaskuser_id_seq', 1, false);
--
-- Name: prodcat_prodcat_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE prodcat_prodcat_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.prodcat_prodcat_id_seq OWNER TO admin;
--
-- Name: prodcat_prodcat_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('prodcat_prodcat_id_seq', 30, true);
--
-- Name: qryhead; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE qryhead (
qryhead_id integer NOT NULL,
qryhead_name text NOT NULL,
qryhead_descrip text,
qryhead_notes text,
qryhead_username text DEFAULT geteffectivextuser() NOT NULL,
qryhead_updated date DEFAULT ('now'::text)::date NOT NULL,
CONSTRAINT qryhead_qryhead_name_check CHECK ((qryhead_name <> ''::text))
);
ALTER TABLE public.qryhead OWNER TO admin;
--
-- Name: TABLE qryhead; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE qryhead IS 'A header record for a set of queries to be run sequentially. One use is for data export.';
--
-- Name: COLUMN qryhead.qryhead_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN qryhead.qryhead_id IS 'The primary key, holding an internal value used to cross-reference this table.';
--
-- Name: COLUMN qryhead.qryhead_name; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN qryhead.qryhead_name IS 'The user-assigned short name for this set of queries.';
--
-- Name: COLUMN qryhead.qryhead_descrip; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN qryhead.qryhead_descrip IS 'A long description of the purpose of this set of queries.';
--
-- Name: COLUMN qryhead.qryhead_notes; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN qryhead.qryhead_notes IS 'General information about this queryset.';
--
-- Name: COLUMN qryhead.qryhead_username; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN qryhead.qryhead_username IS 'The name of the user who last modified this qryhead record.';
--
-- Name: COLUMN qryhead.qryhead_updated; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN qryhead.qryhead_updated IS 'The date this qryhead was last modified.';
--
-- Name: qryhead_qryhead_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE qryhead_qryhead_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.qryhead_qryhead_id_seq OWNER TO admin;
--
-- Name: qryhead_qryhead_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE qryhead_qryhead_id_seq OWNED BY qryhead.qryhead_id;
--
-- Name: qryhead_qryhead_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('qryhead_qryhead_id_seq', 1, false);
--
-- Name: qryitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE qryitem (
qryitem_id integer NOT NULL,
qryitem_qryhead_id integer NOT NULL,
qryitem_name text NOT NULL,
qryitem_order integer NOT NULL,
qryitem_src text NOT NULL,
qryitem_group text,
qryitem_detail text NOT NULL,
qryitem_notes text DEFAULT ''::text NOT NULL,
qryitem_username text DEFAULT geteffectivextuser() NOT NULL,
qryitem_updated date DEFAULT ('now'::text)::date NOT NULL,
CONSTRAINT qryitem_qryitem_detail_check CHECK ((btrim(qryitem_detail) <> ''::text)),
CONSTRAINT qryitem_qryitem_src_check CHECK ((qryitem_src = ANY (ARRAY['REL'::text, 'MQL'::text, 'CUSTOM'::text])))
);
ALTER TABLE public.qryitem OWNER TO admin;
--
-- Name: TABLE qryitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE qryitem IS 'The description of a query to be run as part of a set (see qryhead).';
--
-- Name: COLUMN qryitem.qryitem_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN qryitem.qryitem_id IS 'The primary key, holding an internal value used to cross-reference this table.';
--
-- Name: COLUMN qryitem.qryitem_qryhead_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN qryitem.qryitem_qryhead_id IS 'The primary key of the query set to which this individual query belongs.';
--
-- Name: COLUMN qryitem.qryitem_order; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN qryitem.qryitem_order IS 'The order in which query items within a query set should be run.';
--
-- Name: COLUMN qryitem.qryitem_src; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN qryitem.qryitem_src IS 'The source of the query. If the qryitem_src is "REL" then the qryitem_group and _detail name a particular table or view and all rows will be returned. If the source is "MQL" then the qryitem_group and _detail name a pre-defined MetaSQL query in the metasql table. If the source is "CUSTOM" then the qryitem_detail contains the full MetaSQL text of the query to run.';
--
-- Name: COLUMN qryitem.qryitem_group; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN qryitem.qryitem_group IS 'Information to help find the query to run. If the qryitem_src is "REL" then this is the schema in which to find the table or view to query and all rows will be returned (the qryitem_detail names the table or view). If the qryitem_src is "MQL" then this is the group of the query in the metasql table to run (the name is in qryitem_detail). If the qryitem_src IS "CUSTOM" then this ignored.';
--
-- Name: COLUMN qryitem.qryitem_detail; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN qryitem.qryitem_detail IS 'The particular query to run. If the qryitem_src is "REL" then this is the name of the table or view to query and all rows will be returned. If the qryitem_src is "MQL" then this is the name of the query in the metasql table to run. If the qryitem_src IS "CUSTOM" then this is the actual MetaSQL query text to be parsed and run.';
--
-- Name: COLUMN qryitem.qryitem_notes; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN qryitem.qryitem_notes IS 'General information about this query.';
--
-- Name: COLUMN qryitem.qryitem_username; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN qryitem.qryitem_username IS 'The name of the user who last modified this qryitem record.';
--
-- Name: COLUMN qryitem.qryitem_updated; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN qryitem.qryitem_updated IS 'The date this qryitem was last modified.';
--
-- Name: qryitem_qryitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE qryitem_qryitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.qryitem_qryitem_id_seq OWNER TO admin;
--
-- Name: qryitem_qryitem_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE qryitem_qryitem_id_seq OWNED BY qryitem.qryitem_id;
--
-- Name: qryitem_qryitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('qryitem_qryitem_id_seq', 1, false);
--
-- Name: quhead_quhead_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE quhead_quhead_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.quhead_quhead_id_seq OWNER TO admin;
--
-- Name: quhead_quhead_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('quhead_quhead_id_seq', 86, true);
--
-- Name: quitem_quitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE quitem_quitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.quitem_quitem_id_seq OWNER TO admin;
--
-- Name: quitem_quitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('quitem_quitem_id_seq', 89, true);
--
-- Name: rcalitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE rcalitem (
rcalitem_id integer DEFAULT nextval(('"xcalitem_xcalitem_id_seq"'::text)::regclass) NOT NULL,
rcalitem_calhead_id integer,
rcalitem_offsettype character(1),
rcalitem_offsetcount integer,
rcalitem_periodtype character(1),
rcalitem_periodcount integer,
rcalitem_name text
);
ALTER TABLE public.rcalitem OWNER TO admin;
--
-- Name: TABLE rcalitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE rcalitem IS 'Relative Calendar Item information';
--
-- Name: recur; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE recur (
recur_id integer NOT NULL,
recur_parent_id integer NOT NULL,
recur_parent_type text NOT NULL,
recur_period text NOT NULL,
recur_freq integer DEFAULT 1 NOT NULL,
recur_start timestamp with time zone DEFAULT now(),
recur_end timestamp with time zone,
recur_max integer,
recur_data text,
CONSTRAINT recur_recur_period_check CHECK ((recur_period = ANY (ARRAY['m'::text, 'H'::text, 'D'::text, 'W'::text, 'M'::text, 'Y'::text, 'C'::text])))
);
ALTER TABLE public.recur OWNER TO admin;
--
-- Name: TABLE recur; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE recur IS 'Track recurring events and objects.';
--
-- Name: COLUMN recur.recur_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN recur.recur_id IS 'Internal ID of this recurrence record.';
--
-- Name: COLUMN recur.recur_parent_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN recur.recur_parent_id IS 'The internal ID of the event/object that recurs.';
--
-- Name: COLUMN recur.recur_parent_type; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN recur.recur_parent_type IS 'The table in which the parent event or object is stored.';
--
-- Name: COLUMN recur.recur_period; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN recur.recur_period IS 'With recur_freq, how often this event recurs. Values are "m" for every minute, "H" for every hour, "D" for daily, "W" for weekly, "M" for monthly, "Y" for yearly, and "C" for customized or complex.';
--
-- Name: COLUMN recur.recur_freq; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN recur.recur_freq IS 'With recur_period, how often this event recurs. Values are integers counts of recur_periods. For example, if recur_freq = 2 and recur_period = w then the event recurs every 2 weeks.';
--
-- Name: COLUMN recur.recur_start; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN recur.recur_start IS 'The first date/time when the event should occur.';
--
-- Name: COLUMN recur.recur_end; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN recur.recur_end IS 'The last date/time when the event should occur. NULL means there is no end date/time and the event should recur forever.';
--
-- Name: COLUMN recur.recur_max; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN recur.recur_max IS 'The maximum number of recurrence events to create at one time. If this is NULL then when new events are created, a system-wide default will limit the number.';
--
-- Name: COLUMN recur.recur_data; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN recur.recur_data IS 'Not yet used and format still undetermined. Additional data to describe how to apply the period and frequency, particularly when period = "C".';
--
-- Name: recur_recur_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE recur_recur_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.recur_recur_id_seq OWNER TO admin;
--
-- Name: recur_recur_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE recur_recur_id_seq OWNED BY recur.recur_id;
--
-- Name: recur_recur_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('recur_recur_id_seq', 1, false);
--
-- Name: recurtype; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE recurtype (
recurtype_id integer NOT NULL,
recurtype_type text NOT NULL,
recurtype_table text NOT NULL,
recurtype_donecheck text NOT NULL,
recurtype_schedcol text NOT NULL,
recurtype_limit text,
recurtype_copyfunc text NOT NULL,
recurtype_copyargs text[] NOT NULL,
recurtype_delfunc text
);
ALTER TABLE public.recurtype OWNER TO admin;
--
-- Name: TABLE recurtype; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE recurtype IS 'Describes the properties of recurring items/events in way that can be used by stored procedures to maintain the recurrence.';
--
-- Name: COLUMN recurtype.recurtype_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN recurtype.recurtype_id IS 'The internal id of this recurrence description.';
--
-- Name: COLUMN recurtype.recurtype_type; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN recurtype.recurtype_type IS 'A code value used by the RecurrenceWidget and the code that uses it to describe the item/event that will recur. Examples include "INCDT" for CRM Incidents and "J" for Projects.';
--
-- Name: COLUMN recurtype.recurtype_table; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN recurtype.recurtype_table IS 'The table that holds the item/event that will recur.';
--
-- Name: COLUMN recurtype.recurtype_donecheck; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN recurtype.recurtype_donecheck IS 'A boolean expression that returns TRUE if an individual item/event record in the recurtype_table has already been completed.';
--
-- Name: COLUMN recurtype.recurtype_schedcol; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN recurtype.recurtype_schedcol IS 'The name of the column in the recurtype_table holding the date or timestamp by which the item is scheduled to be completed or at which the event is supposed to occur.';
--
-- Name: COLUMN recurtype.recurtype_limit; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN recurtype.recurtype_limit IS 'A boolean expression that returns TRUE if the current user should see the row in the recurtype_table. NULL indicates there is no specific limitation. For example, the maintainance of recurring TODO items should restricted to those items belonging to the user unless s/he has been granted the privilege to modify other people''s todo lists.';
--
-- Name: COLUMN recurtype.recurtype_copyfunc; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN recurtype.recurtype_copyfunc IS 'The name of the function to copy an existing item/event record. The copy function is expected to take at least 2 arguments: the id of the item to copy and the new date/timestamp. If the function accepts more than 2, it must be able to accept NULL values for the 3rd and following arguments.';
--
-- Name: COLUMN recurtype.recurtype_copyargs; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN recurtype.recurtype_copyargs IS 'An abbreviated argument list for the copy function. This is used to determine whether the second argument must be cast to a date or a timestamp, and to figure out how many additional arguments to pass.';
--
-- Name: COLUMN recurtype.recurtype_delfunc; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN recurtype.recurtype_delfunc IS 'The name of the function to delete an existing item/event record. The function is expected to take exactly one argument: the id of the item to delete. NULL indicates there is no delete function and that an SQL DELETE statement can be used. In this case, the id column name will be built as the recurtype_table concatenated with the "_id" suffix.';
--
-- Name: recurtype_recurtype_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE recurtype_recurtype_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.recurtype_recurtype_id_seq OWNER TO admin;
--
-- Name: recurtype_recurtype_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE recurtype_recurtype_id_seq OWNED BY recurtype.recurtype_id;
--
-- Name: recurtype_recurtype_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('recurtype_recurtype_id_seq', 5, true);
--
-- Name: recv_recv_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE recv_recv_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.recv_recv_id_seq OWNER TO admin;
--
-- Name: recv_recv_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE recv_recv_id_seq OWNED BY recv.recv_id;
--
-- Name: recv_recv_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('recv_recv_id_seq', 1, true);
--
-- Name: remitto; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW remitto AS
SELECT (SELECT metric.metric_value FROM metric WHERE (metric.metric_name = 'remitto_name'::text)) AS remitto_name, (SELECT metric.metric_value FROM metric WHERE (metric.metric_name = 'remitto_address1'::text)) AS remitto_address1, (SELECT metric.metric_value FROM metric WHERE (metric.metric_name = 'remitto_address2'::text)) AS remitto_address2, (SELECT metric.metric_value FROM metric WHERE (metric.metric_name = 'remitto_address3'::text)) AS remitto_address3, (((((SELECT metric.metric_value FROM metric WHERE (metric.metric_name = 'remitto_city'::text)) || ' '::text) || (SELECT metric.metric_value FROM metric WHERE (metric.metric_name = 'remitto_state'::text))) || ' '::text) || (SELECT metric.metric_value FROM metric WHERE (metric.metric_name = 'remitto_zipcode'::text))) AS remitto_citystatezip, (SELECT metric.metric_value FROM metric WHERE (metric.metric_name = 'remitto_country'::text)) AS remitto_country, (SELECT metric.metric_value FROM metric WHERE (metric.metric_name = 'remitto_phone'::text)) AS remitto_phone;
ALTER TABLE public.remitto OWNER TO admin;
--
-- Name: rjctcode; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE rjctcode (
rjctcode_id integer DEFAULT nextval(('"rjctcode_rjctcode_id_seq"'::text)::regclass) NOT NULL,
rjctcode_code text NOT NULL,
rjctcode_descrip text,
CONSTRAINT rjctcode_rjctcode_code_check CHECK ((rjctcode_code <> ''::text))
);
ALTER TABLE public.rjctcode OWNER TO admin;
--
-- Name: TABLE rjctcode; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE rjctcode IS 'Reject Code information';
--
-- Name: rjctcode_rjctcode_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE rjctcode_rjctcode_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.rjctcode_rjctcode_id_seq OWNER TO admin;
--
-- Name: rjctcode_rjctcode_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('rjctcode_rjctcode_id_seq', 18, true);
--
-- Name: rsncode_rsncode_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE rsncode_rsncode_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.rsncode_rsncode_id_seq OWNER TO admin;
--
-- Name: rsncode_rsncode_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE rsncode_rsncode_id_seq OWNED BY rsncode.rsncode_id;
--
-- Name: rsncode_rsncode_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('rsncode_rsncode_id_seq', 4, true);
--
-- Name: sale; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE sale (
sale_id integer DEFAULT nextval(('"sale_sale_id_seq"'::text)::regclass) NOT NULL,
sale_name text NOT NULL,
sale_descrip text,
sale_ipshead_id integer,
sale_startdate date,
sale_enddate date,
CONSTRAINT sale_sale_name_check CHECK ((sale_name <> ''::text))
);
ALTER TABLE public.sale OWNER TO admin;
--
-- Name: TABLE sale; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE sale IS 'Sale information';
--
-- Name: sale_sale_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE sale_sale_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.sale_sale_id_seq OWNER TO admin;
--
-- Name: sale_sale_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('sale_sale_id_seq', 12, true);
--
-- Name: salesaccnt_salesaccnt_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE salesaccnt_salesaccnt_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.salesaccnt_salesaccnt_id_seq OWNER TO admin;
--
-- Name: salesaccnt_salesaccnt_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('salesaccnt_salesaccnt_id_seq', 32, true);
--
-- Name: salescat_salescat_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE salescat_salescat_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.salescat_salescat_id_seq OWNER TO admin;
--
-- Name: salescat_salescat_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE salescat_salescat_id_seq OWNED BY salescat.salescat_id;
--
-- Name: salescat_salescat_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('salescat_salescat_id_seq', 2, true);
--
-- Name: saleshistory; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW saleshistory AS
SELECT cohist.cohist_id, cohist.cohist_cust_id, cohist.cohist_itemsite_id, cohist.cohist_shipdate, cohist.cohist_shipvia, cohist.cohist_ordernumber, cohist.cohist_orderdate, cohist.cohist_invcnumber, cohist.cohist_invcdate, cohist.cohist_qtyshipped, cohist.cohist_unitprice, cohist.cohist_shipto_id, cohist.cohist_salesrep_id, cohist.cohist_duedate, cohist.cohist_imported, cohist.cohist_billtoname, cohist.cohist_billtoaddress1, cohist.cohist_billtoaddress2, cohist.cohist_billtoaddress3, cohist.cohist_billtocity, cohist.cohist_billtostate, cohist.cohist_billtozip, cohist.cohist_shiptoname, cohist.cohist_shiptoaddress1, cohist.cohist_shiptoaddress2, cohist.cohist_shiptoaddress3, cohist.cohist_shiptocity, cohist.cohist_shiptostate, cohist.cohist_shiptozip, cohist.cohist_commission, cohist.cohist_commissionpaid, cohist.cohist_unitcost, cohist.cohist_misc_type, cohist.cohist_misc_descrip, cohist.cohist_misc_id, cohist.cohist_doctype, cohist.cohist_promisedate, cohist.cohist_ponumber, cohist.cohist_curr_id, cohist.cohist_sequence, cohist.cohist_taxtype_id, cohist.cohist_taxzone_id, cohist.cohist_cohead_ccpay_id, cohist.cohist_saletype_id, cohist.cohist_shipzone_id, CASE WHEN (cohist.cohist_invcnumber = '-1'::text) THEN 'Credit'::text ELSE cohist.cohist_invcnumber END AS invoicenumber, custinfo.cust_id, custinfo.cust_number, custinfo.cust_name, custinfo.cust_curr_id, custinfo.cust_custtype_id, custtype.custtype_code, custtype.custtype_descrip, salesrep.salesrep_number, salesrep.salesrep_name, shipzone.shipzone_id, shipzone.shipzone_name, shipzone.shipzone_descrip, itemsite.itemsite_warehous_id, itemsite.itemsite_item_id, item.item_id, item.item_number, item.item_descrip1, ((item.item_descrip1 || ' '::text) || item.item_descrip2) AS itemdescription, item.item_prodcat_id, site.warehous_code, site.warehous_descrip, prodcat.prodcat_code, currtobase(cohist.cohist_curr_id, cohist.cohist_commission, cohist.cohist_invcdate) AS basecommission, currtobase(cohist.cohist_curr_id, cohist.cohist_unitprice, cohist.cohist_invcdate) AS baseunitprice, currtocurr(cohist.cohist_curr_id, custinfo.cust_curr_id, cohist.cohist_unitprice, cohist.cohist_invcdate) AS custunitprice, round((cohist.cohist_qtyshipped * cohist.cohist_unitprice), 2) AS extprice, round((cohist.cohist_qtyshipped * currtobase(cohist.cohist_curr_id, cohist.cohist_unitprice, cohist.cohist_invcdate)), 2) AS baseextprice, round((cohist.cohist_qtyshipped * currtocurr(cohist.cohist_curr_id, custinfo.cust_curr_id, cohist.cohist_unitprice, cohist.cohist_invcdate)), 2) AS custextprice, round((cohist.cohist_qtyshipped * cohist.cohist_unitcost), 4) AS extcost, currconcat(cohist.cohist_curr_id) AS currabbr, 'Return'::text AS cohist_invcdate_xtnullrole, 'qty'::text AS cohist_qtyshipped_xtnumericrole, 'salesprice'::text AS cohist_unitprice_xtnumericrole, 'salesprice'::text AS baseunitprice_xtnumericrole, 'curr'::text AS custunitprice_xtnumericrole, 'curr'::text AS custextprice_xtnumericrole, 'curr'::text AS extprice_xtnumericrole, 'curr'::text AS baseextprice_xtnumericrole, 'cost'::text AS cohist_unitcost_xtnumericrole, 'curr'::text AS extcost_xtnumericrole, 'curr'::text AS cohist_commission_xtnumericrole, 'curr'::text AS basecommission_xtnumericrole, 0 AS cohist_qtyshipped_xttotalrole, 0 AS custextprice_xttotalrole, 0 AS baseextprice_xttotalrole, 0 AS extcost_xttotalrole, 0 AS basecommission_xttotalrole FROM (((((((((cohist JOIN custinfo ON ((custinfo.cust_id = cohist.cohist_cust_id))) JOIN custtype ON ((custtype.custtype_id = custinfo.cust_custtype_id))) JOIN salesrep ON ((salesrep.salesrep_id = cohist.cohist_salesrep_id))) JOIN itemsite ON ((itemsite.itemsite_id = cohist.cohist_itemsite_id))) JOIN site() site(warehous_id, warehous_code, warehous_descrip, warehous_fob, warehous_active, warehous_counttag_prefix, warehous_counttag_number, warehous_bol_prefix, warehous_bol_number, warehous_shipping, warehous_useslips, warehous_usezones, warehous_aislesize, warehous_aislealpha, warehous_racksize, warehous_rackalpha, warehous_binsize, warehous_binalpha, warehous_locationsize, warehous_locationalpha, warehous_enforcearbl, warehous_default_accnt_id, warehous_shipping_commission, warehous_cntct_id, warehous_addr_id, warehous_transit, warehous_shipform_id, warehous_shipvia_id, warehous_shipcomments, warehous_costcat_id, warehous_sitetype_id, warehous_taxzone_id, warehous_sequence) ON ((site.warehous_id = itemsite.itemsite_warehous_id))) JOIN item ON ((item.item_id = itemsite.itemsite_item_id))) JOIN prodcat ON ((prodcat.prodcat_id = item.item_prodcat_id))) LEFT JOIN shiptoinfo ON ((shiptoinfo.shipto_id = cohist.cohist_shipto_id))) LEFT JOIN shipzone ON ((shipzone.shipzone_id = shiptoinfo.shipto_shipzone_id)));
ALTER TABLE public.saleshistory OWNER TO admin;
--
-- Name: VIEW saleshistory; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON VIEW saleshistory IS 'Single point for sales history calculations.';
--
-- Name: saleshistorymisc; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW saleshistorymisc AS
SELECT cohist.cohist_id, cohist.cohist_cust_id, cohist.cohist_itemsite_id, cohist.cohist_shipdate, cohist.cohist_shipvia, cohist.cohist_ordernumber, cohist.cohist_orderdate, cohist.cohist_invcnumber, cohist.cohist_invcdate, cohist.cohist_qtyshipped, cohist.cohist_unitprice, cohist.cohist_shipto_id, cohist.cohist_salesrep_id, cohist.cohist_duedate, cohist.cohist_imported, cohist.cohist_billtoname, cohist.cohist_billtoaddress1, cohist.cohist_billtoaddress2, cohist.cohist_billtoaddress3, cohist.cohist_billtocity, cohist.cohist_billtostate, cohist.cohist_billtozip, cohist.cohist_shiptoname, cohist.cohist_shiptoaddress1, cohist.cohist_shiptoaddress2, cohist.cohist_shiptoaddress3, cohist.cohist_shiptocity, cohist.cohist_shiptostate, cohist.cohist_shiptozip, cohist.cohist_commission, cohist.cohist_commissionpaid, cohist.cohist_unitcost, cohist.cohist_misc_type, cohist.cohist_misc_descrip, cohist.cohist_misc_id, cohist.cohist_doctype, cohist.cohist_promisedate, cohist.cohist_ponumber, cohist.cohist_curr_id, cohist.cohist_sequence, cohist.cohist_taxtype_id, cohist.cohist_taxzone_id, cohist.cohist_cohead_ccpay_id, cohist.cohist_saletype_id, cohist.cohist_shipzone_id, CASE WHEN (cohist.cohist_invcnumber = '-1'::text) THEN 'Credit'::text ELSE cohist.cohist_invcnumber END AS invoicenumber, custinfo.cust_id, custinfo.cust_number, custinfo.cust_name, custinfo.cust_curr_id, custinfo.cust_custtype_id, custtype.custtype_code, salesrep.salesrep_number, salesrep.salesrep_name, shipzone.shipzone_id, shipzone.shipzone_name, itemsite.itemsite_warehous_id, itemsite.itemsite_item_id, item.item_number, item.item_descrip1, ((item.item_descrip1 || ' '::text) || item.item_descrip2) AS itemdescription, item.item_prodcat_id, site.warehous_code, prodcat.prodcat_code, currtobase(cohist.cohist_curr_id, cohist.cohist_commission, cohist.cohist_invcdate) AS basecommission, currtobase(cohist.cohist_curr_id, cohist.cohist_unitprice, cohist.cohist_invcdate) AS baseunitprice, currtocurr(cohist.cohist_curr_id, custinfo.cust_curr_id, cohist.cohist_unitprice, cohist.cohist_invcdate) AS custunitprice, round((cohist.cohist_qtyshipped * cohist.cohist_unitprice), 2) AS extprice, round((cohist.cohist_qtyshipped * currtobase(cohist.cohist_curr_id, cohist.cohist_unitprice, cohist.cohist_invcdate)), 2) AS baseextprice, round((cohist.cohist_qtyshipped * currtocurr(cohist.cohist_curr_id, custinfo.cust_curr_id, cohist.cohist_unitprice, cohist.cohist_invcdate)), 2) AS custextprice, round((cohist.cohist_qtyshipped * cohist.cohist_unitcost), 4) AS extcost, currconcat(cohist.cohist_curr_id) AS currabbr, 'Return'::text AS cohist_invcdate_xtnullrole, 'qty'::text AS cohist_qtyshipped_xtnumericrole, 'salesprice'::text AS cohist_unitprice_xtnumericrole, 'salesprice'::text AS baseunitprice_xtnumericrole, 'curr'::text AS custunitprice_xtnumericrole, 'curr'::text AS custextprice_xtnumericrole, 'curr'::text AS extprice_xtnumericrole, 'curr'::text AS baseextprice_xtnumericrole, 'cost'::text AS cohist_unitcost_xtnumericrole, 'curr'::text AS extcost_xtnumericrole, 'curr'::text AS cohist_commission_xtnumericrole, 'curr'::text AS basecommission_xtnumericrole, 0 AS cohist_qtyshipped_xttotalrole, 0 AS custextprice_xttotalrole, 0 AS baseextprice_xttotalrole, 0 AS extcost_xttotalrole, 0 AS basecommission_xttotalrole FROM (((((((((cohist JOIN custinfo ON ((custinfo.cust_id = cohist.cohist_cust_id))) JOIN custtype ON ((custtype.custtype_id = custinfo.cust_custtype_id))) JOIN salesrep ON ((salesrep.salesrep_id = cohist.cohist_salesrep_id))) LEFT JOIN itemsite ON ((itemsite.itemsite_id = cohist.cohist_itemsite_id))) LEFT JOIN site() site(warehous_id, warehous_code, warehous_descrip, warehous_fob, warehous_active, warehous_counttag_prefix, warehous_counttag_number, warehous_bol_prefix, warehous_bol_number, warehous_shipping, warehous_useslips, warehous_usezones, warehous_aislesize, warehous_aislealpha, warehous_racksize, warehous_rackalpha, warehous_binsize, warehous_binalpha, warehous_locationsize, warehous_locationalpha, warehous_enforcearbl, warehous_default_accnt_id, warehous_shipping_commission, warehous_cntct_id, warehous_addr_id, warehous_transit, warehous_shipform_id, warehous_shipvia_id, warehous_shipcomments, warehous_costcat_id, warehous_sitetype_id, warehous_taxzone_id, warehous_sequence) ON ((site.warehous_id = itemsite.itemsite_warehous_id))) LEFT JOIN item ON ((item.item_id = itemsite.itemsite_item_id))) LEFT JOIN prodcat ON ((prodcat.prodcat_id = item.item_prodcat_id))) LEFT JOIN shiptoinfo ON ((shiptoinfo.shipto_id = cohist.cohist_shipto_id))) LEFT JOIN shipzone ON ((shipzone.shipzone_id = shiptoinfo.shipto_shipzone_id)));
ALTER TABLE public.saleshistorymisc OWNER TO admin;
--
-- Name: VIEW saleshistorymisc; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON VIEW saleshistorymisc IS 'Single point for sales history (including misc. items) calculations.';
--
-- Name: salesrep_salesrep_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE salesrep_salesrep_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.salesrep_salesrep_id_seq OWNER TO admin;
--
-- Name: salesrep_salesrep_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('salesrep_salesrep_id_seq', 29, true);
--
-- Name: saletype_saletype_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE saletype_saletype_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.saletype_saletype_id_seq OWNER TO admin;
--
-- Name: saletype_saletype_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE saletype_saletype_id_seq OWNED BY saletype.saletype_id;
--
-- Name: saletype_saletype_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('saletype_saletype_id_seq', 3, true);
--
-- Name: schemaord; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE schemaord (
schemaord_id integer NOT NULL,
schemaord_name text NOT NULL,
schemaord_order integer NOT NULL,
CONSTRAINT schemaord_schemaord_name_check CHECK ((length(schemaord_name) > 0)),
CONSTRAINT schemaord_schemaord_name_check1 CHECK ((schemaord_name <> ''::text))
);
ALTER TABLE public.schemaord OWNER TO admin;
--
-- Name: TABLE schemaord; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE schemaord IS 'Set the order in which db schemas will appear in the search path after login';
--
-- Name: schemaord_schemaord_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE schemaord_schemaord_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.schemaord_schemaord_id_seq OWNER TO admin;
--
-- Name: schemaord_schemaord_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE schemaord_schemaord_id_seq OWNED BY schemaord.schemaord_id;
--
-- Name: schemaord_schemaord_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('schemaord_schemaord_id_seq', 1, false);
--
-- Name: sequence; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE sequence (
sequence_value integer
);
ALTER TABLE public.sequence OWNER TO admin;
--
-- Name: TABLE sequence; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE sequence IS 'Pre-populated list of sequence numbers (1-1000) used for printing Labels and other uses';
--
-- Name: shift_shift_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE shift_shift_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.shift_shift_id_seq OWNER TO admin;
--
-- Name: shift_shift_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE shift_shift_id_seq OWNED BY shift.shift_id;
--
-- Name: shift_shift_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('shift_shift_id_seq', 1, true);
--
-- Name: shipchrg_shipchrg_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE shipchrg_shipchrg_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.shipchrg_shipchrg_id_seq OWNER TO admin;
--
-- Name: shipchrg_shipchrg_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE shipchrg_shipchrg_id_seq OWNED BY shipchrg.shipchrg_id;
--
-- Name: shipchrg_shipchrg_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('shipchrg_shipchrg_id_seq', 5, true);
--
-- Name: shipdatasum; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE shipdatasum (
shipdatasum_cohead_number text NOT NULL,
shipdatasum_cosmisc_tracknum text NOT NULL,
shipdatasum_cosmisc_packnum_tracknum text NOT NULL,
shipdatasum_weight numeric(16,4),
shipdatasum_base_freight numeric(16,4),
shipdatasum_total_freight numeric(16,4),
shipdatasum_shipper text DEFAULT 'UPS'::text,
shipdatasum_billing_option text,
shipdatasum_package_type text,
shipdatasum_lastupdated timestamp without time zone DEFAULT ('now'::text)::timestamp(6) with time zone NOT NULL,
shipdatasum_shipped boolean DEFAULT false,
shipdatasum_shiphead_number text,
shipdatasum_base_freight_curr_id integer DEFAULT basecurrid(),
shipdatasum_total_freight_curr_id integer DEFAULT basecurrid()
);
ALTER TABLE public.shipdatasum OWNER TO admin;
--
-- Name: TABLE shipdatasum; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE shipdatasum IS 'Shipping Interface information.';
--
-- Name: shipform_shipform_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE shipform_shipform_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.shipform_shipform_id_seq OWNER TO admin;
--
-- Name: shipform_shipform_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('shipform_shipform_id_seq', 12, true);
--
-- Name: shiphead_shiphead_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE shiphead_shiphead_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.shiphead_shiphead_id_seq OWNER TO admin;
--
-- Name: shiphead_shiphead_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE shiphead_shiphead_id_seq OWNED BY shiphead.shiphead_id;
--
-- Name: shiphead_shiphead_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('shiphead_shiphead_id_seq', 1, false);
--
-- Name: shipitem_shipitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE shipitem_shipitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.shipitem_shipitem_id_seq OWNER TO admin;
--
-- Name: shipitem_shipitem_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE shipitem_shipitem_id_seq OWNED BY shipitem.shipitem_id;
--
-- Name: shipitem_shipitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('shipitem_shipitem_id_seq', 1, false);
--
-- Name: shipment_number_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE shipment_number_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.shipment_number_seq OWNER TO admin;
--
-- Name: shipment_number_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('shipment_number_seq', 80000, true);
--
-- Name: shipto; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW shipto AS
SELECT shiptoinfo.shipto_id, shiptoinfo.shipto_cust_id, shiptoinfo.shipto_name, m.addr_line1 AS shipto_address1, m.addr_line2 AS shipto_address2, m.addr_line3 AS shipto_address3, m.addr_city AS shipto_city, m.addr_state AS shipto_state, m.addr_postalcode AS shipto_zipcode, shiptoinfo.shipto_taxzone_id, shiptoinfo.shipto_salesrep_id, c1.cntct_phone AS shipto_phone, shiptoinfo.shipto_comments, shiptoinfo.shipto_shipcomments, btrim(((c1.cntct_first_name || ' '::text) || c1.cntct_last_name)) AS shipto_contact, c1.cntct_fax AS shipto_fax, c1.cntct_email AS shipto_email, shiptoinfo.shipto_shipzone_id, shiptoinfo.shipto_shipvia, shiptoinfo.shipto_commission, shiptoinfo.shipto_shipform_id, shiptoinfo.shipto_shipchrg_id, shiptoinfo.shipto_active, shiptoinfo.shipto_default, shiptoinfo.shipto_num, shiptoinfo.shipto_ediprofile_id, m.addr_country AS shipto_country FROM ((shiptoinfo LEFT JOIN cntct c1 ON ((shiptoinfo.shipto_cntct_id = c1.cntct_id))) LEFT JOIN addr m ON ((shiptoinfo.shipto_addr_id = m.addr_id)));
ALTER TABLE public.shipto OWNER TO admin;
--
-- Name: shipto_shipto_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE shipto_shipto_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.shipto_shipto_id_seq OWNER TO admin;
--
-- Name: shipto_shipto_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('shipto_shipto_id_seq', 30, true);
--
-- Name: shipvia_shipvia_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE shipvia_shipvia_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.shipvia_shipvia_id_seq OWNER TO admin;
--
-- Name: shipvia_shipvia_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('shipvia_shipvia_id_seq', 24, true);
--
-- Name: shipzone_shipzone_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE shipzone_shipzone_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.shipzone_shipzone_id_seq OWNER TO admin;
--
-- Name: shipzone_shipzone_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('shipzone_shipzone_id_seq', 45, true);
--
-- Name: sitetype_sitetype_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE sitetype_sitetype_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.sitetype_sitetype_id_seq OWNER TO admin;
--
-- Name: sitetype_sitetype_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE sitetype_sitetype_id_seq OWNED BY sitetype.sitetype_id;
--
-- Name: sitetype_sitetype_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('sitetype_sitetype_id_seq', 1, true);
--
-- Name: sltrans; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE sltrans (
sltrans_id integer DEFAULT nextval('gltrans_gltrans_id_seq'::regclass) NOT NULL,
sltrans_created timestamp with time zone,
sltrans_date date NOT NULL,
sltrans_sequence integer,
sltrans_accnt_id integer NOT NULL,
sltrans_source text,
sltrans_docnumber text,
sltrans_misc_id integer,
sltrans_amount numeric(20,2) NOT NULL,
sltrans_notes text,
sltrans_journalnumber integer,
sltrans_posted boolean NOT NULL,
sltrans_doctype text,
sltrans_username text DEFAULT geteffectivextuser() NOT NULL,
sltrans_gltrans_journalnumber integer,
sltrans_rec boolean DEFAULT false NOT NULL
);
ALTER TABLE public.sltrans OWNER TO admin;
--
-- Name: TABLE sltrans; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE sltrans IS 'Journal transaction information';
--
-- Name: sltrans_backup; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE sltrans_backup (
sltrans_old_id integer,
sltrans_new_id integer
);
ALTER TABLE public.sltrans_backup OWNER TO admin;
--
-- Name: TABLE sltrans_backup; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE sltrans_backup IS 'backup cross references of old and new ids for sltrans 4.0 upgrade.';
--
-- Name: sopack; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW sopack AS
SELECT pack.pack_id AS sopack_id, pack.pack_head_id AS sopack_sohead_id, pack.pack_printed AS sopack_printed, pack.pack_shiphead_id AS sopack_cosmisc_id FROM pack WHERE (pack.pack_head_type = 'SO'::text);
ALTER TABLE public.sopack OWNER TO admin;
--
-- Name: sopack_sopack_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE sopack_sopack_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.sopack_sopack_id_seq OWNER TO admin;
--
-- Name: sopack_sopack_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('sopack_sopack_id_seq', 60, true);
--
-- Name: source; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE source (
source_id integer NOT NULL,
source_module text,
source_name text NOT NULL,
source_descrip text,
CONSTRAINT source_source_name_check CHECK ((source_name <> ''::text))
);
ALTER TABLE public.source OWNER TO admin;
--
-- Name: TABLE source; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE source IS 'Tax class information';
--
-- Name: COLUMN source.source_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN source.source_id IS 'Primary key';
--
-- Name: COLUMN source.source_module; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN source.source_module IS 'Application module';
--
-- Name: COLUMN source.source_name; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN source.source_name IS 'Name';
--
-- Name: COLUMN source.source_descrip; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN source.source_descrip IS 'Description';
--
-- Name: source_source_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE source_source_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.source_source_id_seq OWNER TO admin;
--
-- Name: source_source_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE source_source_id_seq OWNED BY source.source_id;
--
-- Name: source_source_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('source_source_id_seq', 38, true);
--
-- Name: state; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE state (
state_id integer NOT NULL,
state_name text NOT NULL,
state_abbr text,
state_country_id integer,
CONSTRAINT state_state_name_check CHECK ((state_name <> ''::text))
);
ALTER TABLE public.state OWNER TO admin;
--
-- Name: TABLE state; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE state IS 'List of states, provinces, and territories associated with various countries.';
--
-- Name: state_state_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE state_state_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.state_state_id_seq OWNER TO admin;
--
-- Name: state_state_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE state_state_id_seq OWNED BY state.state_id;
--
-- Name: state_state_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('state_state_id_seq', 158, true);
--
-- Name: status; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE status (
status_id integer NOT NULL,
status_type text NOT NULL,
status_code character(1) NOT NULL,
status_name text,
status_seq integer,
status_color text DEFAULT 'white'::text
);
ALTER TABLE public.status OWNER TO admin;
--
-- Name: status_status_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE status_status_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.status_status_id_seq OWNER TO admin;
--
-- Name: status_status_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE status_status_id_seq OWNED BY status.status_id;
--
-- Name: status_status_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('status_status_id_seq', 6, true);
--
-- Name: stdjrnl; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE stdjrnl (
stdjrnl_id integer NOT NULL,
stdjrnl_name text NOT NULL,
stdjrnl_descrip text,
stdjrnl_notes text,
CONSTRAINT stdjrnl_stdjrnl_name_check CHECK ((stdjrnl_name <> ''::text))
);
ALTER TABLE public.stdjrnl OWNER TO admin;
--
-- Name: TABLE stdjrnl; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE stdjrnl IS 'Standard Journal information';
--
-- Name: stdjrnl_stdjrnl_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE stdjrnl_stdjrnl_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.stdjrnl_stdjrnl_id_seq OWNER TO admin;
--
-- Name: stdjrnl_stdjrnl_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE stdjrnl_stdjrnl_id_seq OWNED BY stdjrnl.stdjrnl_id;
--
-- Name: stdjrnl_stdjrnl_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('stdjrnl_stdjrnl_id_seq', 30, true);
--
-- Name: stdjrnlgrp; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE stdjrnlgrp (
stdjrnlgrp_id integer NOT NULL,
stdjrnlgrp_name text NOT NULL,
stdjrnlgrp_descrip text,
CONSTRAINT stdjrnlgrp_stdjrnlgrp_name_check CHECK ((stdjrnlgrp_name <> ''::text))
);
ALTER TABLE public.stdjrnlgrp OWNER TO admin;
--
-- Name: TABLE stdjrnlgrp; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE stdjrnlgrp IS 'Standard Journal Group information';
--
-- Name: stdjrnlgrp_stdjrnlgrp_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE stdjrnlgrp_stdjrnlgrp_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.stdjrnlgrp_stdjrnlgrp_id_seq OWNER TO admin;
--
-- Name: stdjrnlgrp_stdjrnlgrp_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE stdjrnlgrp_stdjrnlgrp_id_seq OWNED BY stdjrnlgrp.stdjrnlgrp_id;
--
-- Name: stdjrnlgrp_stdjrnlgrp_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('stdjrnlgrp_stdjrnlgrp_id_seq', 12, true);
--
-- Name: stdjrnlgrpitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE stdjrnlgrpitem (
stdjrnlgrpitem_id integer NOT NULL,
stdjrnlgrpitem_stdjrnl_id integer,
stdjrnlgrpitem_toapply integer,
stdjrnlgrpitem_applied integer,
stdjrnlgrpitem_effective date,
stdjrnlgrpitem_expires date,
stdjrnlgrpitem_stdjrnlgrp_id integer
);
ALTER TABLE public.stdjrnlgrpitem OWNER TO admin;
--
-- Name: TABLE stdjrnlgrpitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE stdjrnlgrpitem IS 'Standard Journal Group Item information';
--
-- Name: stdjrnlgrpitem_stdjrnlgrpitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE stdjrnlgrpitem_stdjrnlgrpitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.stdjrnlgrpitem_stdjrnlgrpitem_id_seq OWNER TO admin;
--
-- Name: stdjrnlgrpitem_stdjrnlgrpitem_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE stdjrnlgrpitem_stdjrnlgrpitem_id_seq OWNED BY stdjrnlgrpitem.stdjrnlgrpitem_id;
--
-- Name: stdjrnlgrpitem_stdjrnlgrpitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('stdjrnlgrpitem_stdjrnlgrpitem_id_seq', 18, true);
--
-- Name: stdjrnlitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE stdjrnlitem (
stdjrnlitem_id integer NOT NULL,
stdjrnlitem_stdjrnl_id integer NOT NULL,
stdjrnlitem_accnt_id integer NOT NULL,
stdjrnlitem_amount numeric(20,2) NOT NULL,
stdjrnlitem_notes text
);
ALTER TABLE public.stdjrnlitem OWNER TO admin;
--
-- Name: TABLE stdjrnlitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE stdjrnlitem IS 'Standard Journal Item information';
--
-- Name: stdjrnlitem_stdjrnlitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE stdjrnlitem_stdjrnlitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.stdjrnlitem_stdjrnlitem_id_seq OWNER TO admin;
--
-- Name: stdjrnlitem_stdjrnlitem_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE stdjrnlitem_stdjrnlitem_id_seq OWNED BY stdjrnlitem.stdjrnlitem_id;
--
-- Name: stdjrnlitem_stdjrnlitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('stdjrnlitem_stdjrnlitem_id_seq', 28, true);
--
-- Name: subaccnt; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE subaccnt (
subaccnt_id integer NOT NULL,
subaccnt_number text NOT NULL,
subaccnt_descrip text,
CONSTRAINT subaccnt_subaccnt_number_check CHECK ((subaccnt_number <> ''::text))
);
ALTER TABLE public.subaccnt OWNER TO admin;
--
-- Name: TABLE subaccnt; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE subaccnt IS 'Subaccount information';
--
-- Name: subaccnt_subaccnt_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE subaccnt_subaccnt_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.subaccnt_subaccnt_id_seq OWNER TO admin;
--
-- Name: subaccnt_subaccnt_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE subaccnt_subaccnt_id_seq OWNED BY subaccnt.subaccnt_id;
--
-- Name: subaccnt_subaccnt_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('subaccnt_subaccnt_id_seq', 1, true);
--
-- Name: subaccnttype; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE subaccnttype (
subaccnttype_id integer NOT NULL,
subaccnttype_accnt_type character(1) NOT NULL,
subaccnttype_code text NOT NULL,
subaccnttype_descrip text
);
ALTER TABLE public.subaccnttype OWNER TO admin;
--
-- Name: TABLE subaccnttype; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE subaccnttype IS 'User defined Sub Account Types.';
--
-- Name: subaccnttype_subaccnttype_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE subaccnttype_subaccnttype_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.subaccnttype_subaccnttype_id_seq OWNER TO admin;
--
-- Name: subaccnttype_subaccnttype_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE subaccnttype_subaccnttype_id_seq OWNED BY subaccnttype.subaccnttype_id;
--
-- Name: subaccnttype_subaccnttype_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('subaccnttype_subaccnttype_id_seq', 19, true);
--
-- Name: tax_tax_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE tax_tax_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.tax_tax_id_seq OWNER TO admin;
--
-- Name: tax_tax_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('tax_tax_id_seq', 13, true);
--
-- Name: taxass; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE taxass (
taxass_id integer NOT NULL,
taxass_taxzone_id integer,
taxass_taxtype_id integer,
taxass_tax_id integer NOT NULL
);
ALTER TABLE public.taxass OWNER TO admin;
--
-- Name: TABLE taxass; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE taxass IS 'The tax assignment table associates different tax zones and tax types to a given set of tax codes.';
--
-- Name: COLUMN taxass.taxass_taxzone_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxass.taxass_taxzone_id IS 'The id of the tax zone. If NULL any tax zone will apply.';
--
-- Name: COLUMN taxass.taxass_taxtype_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxass.taxass_taxtype_id IS 'The id of the tax type. If NULL any tax type will apply.';
--
-- Name: COLUMN taxass.taxass_tax_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxass.taxass_tax_id IS 'The id of the tax code.';
--
-- Name: taxass_taxass_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE taxass_taxass_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.taxass_taxass_id_seq OWNER TO admin;
--
-- Name: taxass_taxass_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE taxass_taxass_id_seq OWNED BY taxass.taxass_id;
--
-- Name: taxass_taxass_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('taxass_taxass_id_seq', 1, false);
--
-- Name: taxauth_taxauth_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE taxauth_taxauth_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.taxauth_taxauth_id_seq OWNER TO admin;
--
-- Name: taxauth_taxauth_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE taxauth_taxauth_id_seq OWNED BY taxauth.taxauth_id;
--
-- Name: taxauth_taxauth_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('taxauth_taxauth_id_seq', 1, true);
--
-- Name: taxclass; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE taxclass (
taxclass_id integer NOT NULL,
taxclass_code text NOT NULL,
taxclass_descrip text,
taxclass_sequence integer,
CONSTRAINT taxclass_taxclass_code_check CHECK ((taxclass_code <> ''::text))
);
ALTER TABLE public.taxclass OWNER TO admin;
--
-- Name: TABLE taxclass; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE taxclass IS 'Tax class information';
--
-- Name: COLUMN taxclass.taxclass_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxclass.taxclass_id IS 'Primary key';
--
-- Name: COLUMN taxclass.taxclass_code; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxclass.taxclass_code IS 'Code';
--
-- Name: COLUMN taxclass.taxclass_descrip; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxclass.taxclass_descrip IS 'Description';
--
-- Name: COLUMN taxclass.taxclass_sequence; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxclass.taxclass_sequence IS 'Group sequence';
--
-- Name: taxclass_taxclass_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE taxclass_taxclass_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.taxclass_taxclass_id_seq OWNER TO admin;
--
-- Name: taxclass_taxclass_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE taxclass_taxclass_id_seq OWNED BY taxclass.taxclass_id;
--
-- Name: taxclass_taxclass_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('taxclass_taxclass_id_seq', 3, true);
--
-- Name: taxrate; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE taxrate (
taxrate_id integer NOT NULL,
taxrate_tax_id integer NOT NULL,
taxrate_percent numeric(10,6) NOT NULL,
taxrate_curr_id integer,
taxrate_amount numeric(16,2) NOT NULL,
taxrate_effective date,
taxrate_expires date
);
ALTER TABLE public.taxrate OWNER TO admin;
--
-- Name: TABLE taxrate; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE taxrate IS 'Tax rates.';
--
-- Name: COLUMN taxrate.taxrate_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxrate.taxrate_id IS 'Primary key.';
--
-- Name: COLUMN taxrate.taxrate_tax_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxrate.taxrate_tax_id IS 'The id of the parent tax code.';
--
-- Name: COLUMN taxrate.taxrate_percent; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxrate.taxrate_percent IS 'Tax rate percentage.';
--
-- Name: COLUMN taxrate.taxrate_curr_id; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxrate.taxrate_curr_id IS 'The currency id of the flat rate amount.';
--
-- Name: COLUMN taxrate.taxrate_amount; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxrate.taxrate_amount IS 'Flat tax rate amount.';
--
-- Name: COLUMN taxrate.taxrate_effective; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxrate.taxrate_effective IS 'The effective date of the tax rate. NULL value means always.';
--
-- Name: COLUMN taxrate.taxrate_expires; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN taxrate.taxrate_expires IS 'The expire date of the tax rate. NULL value means never.';
--
-- Name: taxrate_taxrate_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE taxrate_taxrate_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.taxrate_taxrate_id_seq OWNER TO admin;
--
-- Name: taxrate_taxrate_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE taxrate_taxrate_id_seq OWNED BY taxrate.taxrate_id;
--
-- Name: taxrate_taxrate_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('taxrate_taxrate_id_seq', 1, true);
--
-- Name: taxreg_taxreg_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE taxreg_taxreg_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.taxreg_taxreg_id_seq OWNER TO admin;
--
-- Name: taxreg_taxreg_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE taxreg_taxreg_id_seq OWNED BY taxreg.taxreg_id;
--
-- Name: taxreg_taxreg_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('taxreg_taxreg_id_seq', 1, false);
--
-- Name: taxtype_taxtype_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE taxtype_taxtype_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.taxtype_taxtype_id_seq OWNER TO admin;
--
-- Name: taxtype_taxtype_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE taxtype_taxtype_id_seq OWNED BY taxtype.taxtype_id;
--
-- Name: taxtype_taxtype_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('taxtype_taxtype_id_seq', 3, true);
--
-- Name: taxzone_taxzone_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE taxzone_taxzone_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.taxzone_taxzone_id_seq OWNER TO admin;
--
-- Name: taxzone_taxzone_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE taxzone_taxzone_id_seq OWNED BY taxzone.taxzone_id;
--
-- Name: taxzone_taxzone_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('taxzone_taxzone_id_seq', 2, true);
--
-- Name: terms_terms_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE terms_terms_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.terms_terms_id_seq OWNER TO admin;
--
-- Name: terms_terms_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('terms_terms_id_seq', 43, true);
--
-- Name: todoitem_todoitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE todoitem_todoitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.todoitem_todoitem_id_seq OWNER TO admin;
--
-- Name: todoitem_todoitem_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE todoitem_todoitem_id_seq OWNED BY todoitem.todoitem_id;
--
-- Name: todoitem_todoitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('todoitem_todoitem_id_seq', 1, false);
--
-- Name: trgthist; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE trgthist (
trgthist_src_cntct_id integer NOT NULL,
trgthist_trgt_cntct_id integer NOT NULL,
trgthist_col text NOT NULL,
trgthist_value text NOT NULL
);
ALTER TABLE public.trgthist OWNER TO admin;
--
-- Name: trialbal; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE trialbal (
trialbal_id integer NOT NULL,
trialbal_period_id integer,
trialbal_accnt_id integer,
trialbal_beginning numeric(20,2),
trialbal_ending numeric(20,2),
trialbal_credits numeric(20,2),
trialbal_debits numeric(20,2),
trialbal_dirty boolean,
trialbal_yearend numeric(20,2) DEFAULT 0.00 NOT NULL
);
ALTER TABLE public.trialbal OWNER TO admin;
--
-- Name: TABLE trialbal; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE trialbal IS 'Trial Balance information';
--
-- Name: trialbal_trialbal_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE trialbal_trialbal_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.trialbal_trialbal_id_seq OWNER TO admin;
--
-- Name: trialbal_trialbal_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE trialbal_trialbal_id_seq OWNED BY trialbal.trialbal_id;
--
-- Name: trialbal_trialbal_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('trialbal_trialbal_id_seq', 9147, true);
--
-- Name: uom_uom_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE uom_uom_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.uom_uom_id_seq OWNER TO admin;
--
-- Name: uom_uom_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE uom_uom_id_seq OWNED BY uom.uom_id;
--
-- Name: uom_uom_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('uom_uom_id_seq', 8, true);
--
-- Name: uomconv; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE uomconv (
uomconv_id integer NOT NULL,
uomconv_from_uom_id integer NOT NULL,
uomconv_from_value numeric(20,10) NOT NULL,
uomconv_to_uom_id integer NOT NULL,
uomconv_to_value numeric(20,10) NOT NULL,
uomconv_fractional boolean DEFAULT false NOT NULL
);
ALTER TABLE public.uomconv OWNER TO admin;
--
-- Name: TABLE uomconv; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE uomconv IS 'UOM conversion information. From Unit to To Unit with a value per ratio.';
--
-- Name: uomconv_uomconv_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE uomconv_uomconv_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.uomconv_uomconv_id_seq OWNER TO admin;
--
-- Name: uomconv_uomconv_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE uomconv_uomconv_id_seq OWNED BY uomconv.uomconv_id;
--
-- Name: uomconv_uomconv_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('uomconv_uomconv_id_seq', 1, true);
--
-- Name: uomtype; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE uomtype (
uomtype_id integer NOT NULL,
uomtype_name text NOT NULL,
uomtype_descrip text,
uomtype_multiple boolean DEFAULT false NOT NULL,
CONSTRAINT uomtype_uomtype_name_check CHECK ((uomtype_name <> ''::text))
);
ALTER TABLE public.uomtype OWNER TO admin;
--
-- Name: TABLE uomtype; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE uomtype IS 'UOM Type values.';
--
-- Name: uomtype_uomtype_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE uomtype_uomtype_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.uomtype_uomtype_id_seq OWNER TO admin;
--
-- Name: uomtype_uomtype_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE uomtype_uomtype_id_seq OWNED BY uomtype.uomtype_id;
--
-- Name: uomtype_uomtype_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('uomtype_uomtype_id_seq', 4, true);
--
-- Name: urlinfo_url_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE urlinfo_url_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.urlinfo_url_id_seq OWNER TO admin;
--
-- Name: urlinfo_url_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE urlinfo_url_id_seq OWNED BY urlinfo.url_id;
--
-- Name: urlinfo_url_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('urlinfo_url_id_seq', 1, false);
--
-- Name: usrpref; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE usrpref (
usrpref_id integer DEFAULT nextval(('usrpref_usrpref_id_seq'::text)::regclass) NOT NULL,
usrpref_name text,
usrpref_value text,
usrpref_username text
);
ALTER TABLE public.usrpref OWNER TO admin;
--
-- Name: TABLE usrpref; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE usrpref IS 'User Preferences information';
--
-- Name: usr; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW usr AS
SELECT (pg_user.usesysid)::integer AS usr_id, (pg_user.usename)::text AS usr_username, COALESCE((SELECT usrpref.usrpref_value FROM usrpref WHERE ((usrpref.usrpref_username = (pg_user.usename)::text) AND (usrpref.usrpref_name = 'propername'::text))), ''::text) AS usr_propername, NULL::text AS usr_passwd, COALESCE((SELECT (usrpref.usrpref_value)::integer AS usrpref_value FROM usrpref WHERE ((usrpref.usrpref_username = (pg_user.usename)::text) AND (usrpref.usrpref_name = 'locale_id'::text))), COALESCE((SELECT locale.locale_id FROM locale WHERE (lower(locale.locale_code) = 'default'::text) LIMIT 1), (SELECT locale.locale_id FROM locale ORDER BY locale.locale_id LIMIT 1))) AS usr_locale_id, COALESCE((SELECT usrpref.usrpref_value FROM usrpref WHERE ((usrpref.usrpref_username = (pg_user.usename)::text) AND (usrpref.usrpref_name = 'initials'::text))), ''::text) AS usr_initials, COALESCE((SELECT CASE WHEN (usrpref.usrpref_value = 't'::text) THEN true ELSE false END AS "case" FROM usrpref WHERE ((usrpref.usrpref_username = (pg_user.usename)::text) AND (usrpref.usrpref_name = 'agent'::text))), false) AS usr_agent, COALESCE((SELECT CASE WHEN (usrpref.usrpref_value = 't'::text) THEN true ELSE false END AS "case" FROM usrpref WHERE ((usrpref.usrpref_username = (pg_user.usename)::text) AND (usrpref.usrpref_name = 'active'::text))), usercanlogin((pg_user.usename)::text)) AS usr_active, COALESCE((SELECT usrpref.usrpref_value FROM usrpref WHERE ((usrpref.usrpref_username = (pg_user.usename)::text) AND (usrpref.usrpref_name = 'email'::text))), ''::text) AS usr_email, COALESCE((SELECT usrpref.usrpref_value FROM usrpref WHERE ((usrpref.usrpref_username = (pg_user.usename)::text) AND (usrpref.usrpref_name = 'window'::text))), ''::text) AS usr_window FROM pg_user;
ALTER TABLE public.usr OWNER TO admin;
--
-- Name: usr_bak; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE usr_bak (
usr_id integer DEFAULT nextval(('usr_usr_id_seq'::text)::regclass) NOT NULL,
usr_username text NOT NULL,
usr_propername text,
usr_passwd text,
usr_locale_id integer NOT NULL,
usr_initials text,
usr_agent boolean NOT NULL,
usr_active boolean NOT NULL,
usr_email text,
usr_window text
);
ALTER TABLE public.usr_bak OWNER TO admin;
--
-- Name: TABLE usr_bak; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE usr_bak IS 'User information';
--
-- Name: usr_usr_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE usr_usr_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.usr_usr_id_seq OWNER TO admin;
--
-- Name: usr_usr_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('usr_usr_id_seq', 9, true);
--
-- Name: usrgrp_usrgrp_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE usrgrp_usrgrp_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.usrgrp_usrgrp_id_seq OWNER TO admin;
--
-- Name: usrgrp_usrgrp_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE usrgrp_usrgrp_id_seq OWNED BY usrgrp.usrgrp_id;
--
-- Name: usrgrp_usrgrp_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('usrgrp_usrgrp_id_seq', 1, true);
--
-- Name: usrpref_usrpref_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE usrpref_usrpref_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.usrpref_usrpref_id_seq OWNER TO admin;
--
-- Name: usrpref_usrpref_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('usrpref_usrpref_id_seq', 421, true);
--
-- Name: usrpriv_usrpriv_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE usrpriv_usrpriv_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.usrpriv_usrpriv_id_seq OWNER TO admin;
--
-- Name: usrpriv_usrpriv_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('usrpriv_usrpriv_id_seq', 2879, true);
--
-- Name: vend; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW vend AS
SELECT vendinfo.vend_id, vendinfo.vend_name, m.addr_line1 AS vend_address1, m.addr_line2 AS vend_address2, m.addr_line3 AS vend_address3, m.addr_city AS vend_city, m.addr_state AS vend_state, m.addr_postalcode AS vend_zip, btrim(((c1.cntct_first_name || ' '::text) || c1.cntct_last_name)) AS vend_contact1, c1.cntct_phone AS vend_phone1, btrim(((c2.cntct_first_name || ' '::text) || c2.cntct_last_name)) AS vend_contact2, c2.cntct_phone AS vend_phone2, vendinfo.vend_lastpurchdate, vendinfo.vend_active, vendinfo.vend_po, vendinfo.vend_comments, vendinfo.vend_pocomments, vendinfo.vend_number, c1.cntct_fax AS vend_fax1, c2.cntct_fax AS vend_fax2, c1.cntct_email AS vend_email1, c2.cntct_email AS vend_email2, vendinfo.vend_1099, vendinfo.vend_exported, vendinfo.vend_fobsource, vendinfo.vend_fob, vendinfo.vend_terms_id, vendinfo.vend_shipvia, vendinfo.vend_vendtype_id, vendinfo.vend_qualified, vendinfo.vend_ediemail, vendinfo.vend_ediemailbody, vendinfo.vend_edisubject, vendinfo.vend_edifilename, vendinfo.vend_accntnum, vendinfo.vend_emailpodelivery, vendinfo.vend_restrictpurch, vendinfo.vend_edicc, m.addr_country AS vend_country, vendinfo.vend_curr_id, vendinfo.vend_taxzone_id FROM (((vendinfo LEFT JOIN cntct c1 ON ((vendinfo.vend_cntct1_id = c1.cntct_id))) LEFT JOIN addr m ON ((vendinfo.vend_addr_id = m.addr_id))) LEFT JOIN cntct c2 ON ((vendinfo.vend_cntct2_id = c2.cntct_id)));
ALTER TABLE public.vend OWNER TO admin;
--
-- Name: vend_vend_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE vend_vend_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.vend_vend_id_seq OWNER TO admin;
--
-- Name: vend_vend_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('vend_vend_id_seq', 78, true);
--
-- Name: vendaddr; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW vendaddr AS
SELECT vendaddrinfo.vendaddr_id, vendaddrinfo.vendaddr_vend_id, vendaddrinfo.vendaddr_code, vendaddrinfo.vendaddr_name, m.addr_line1 AS vendaddr_address1, m.addr_line2 AS vendaddr_address2, m.addr_line3 AS vendaddr_address3, btrim(((c1.cntct_first_name || ' '::text) || c1.cntct_last_name)) AS vendaddr_contact1, c1.cntct_phone AS vendaddr_phone1, c1.cntct_fax AS vendaddr_fax1, m.addr_city AS vendaddr_city, m.addr_state AS vendaddr_state, m.addr_postalcode AS vendaddr_zipcode, m.addr_country AS vendaddr_country FROM ((vendaddrinfo LEFT JOIN cntct c1 ON ((vendaddrinfo.vendaddr_cntct_id = c1.cntct_id))) LEFT JOIN addr m ON ((vendaddrinfo.vendaddr_addr_id = m.addr_id)));
ALTER TABLE public.vendaddr OWNER TO admin;
--
-- Name: vendaddr_vendaddr_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE vendaddr_vendaddr_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.vendaddr_vendaddr_id_seq OWNER TO admin;
--
-- Name: vendaddr_vendaddr_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('vendaddr_vendaddr_id_seq', 33, true);
--
-- Name: vendtype_vendtype_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE vendtype_vendtype_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.vendtype_vendtype_id_seq OWNER TO admin;
--
-- Name: vendtype_vendtype_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE vendtype_vendtype_id_seq OWNED BY vendtype.vendtype_id;
--
-- Name: vendtype_vendtype_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('vendtype_vendtype_id_seq', 20, true);
--
-- Name: vodist; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE vodist (
vodist_id integer DEFAULT nextval(('"vodist_vodist_id_seq"'::text)::regclass) NOT NULL,
vodist_poitem_id integer,
vodist_vohead_id integer,
vodist_costelem_id integer,
vodist_accnt_id integer,
vodist_amount numeric(18,6),
vodist_qty numeric(18,6),
vodist_expcat_id integer DEFAULT (-1),
vodist_tax_id integer DEFAULT (-1),
vodist_discountable boolean DEFAULT true NOT NULL,
vodist_notes text
);
ALTER TABLE public.vodist OWNER TO admin;
--
-- Name: TABLE vodist; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE vodist IS 'Voucher distribution information';
--
-- Name: vodist_vodist_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE vodist_vodist_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.vodist_vodist_id_seq OWNER TO admin;
--
-- Name: vodist_vodist_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('vodist_vodist_id_seq', 117, true);
--
-- Name: vohead; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE vohead (
vohead_id integer DEFAULT nextval(('vohead_vohead_id_seq'::text)::regclass) NOT NULL,
vohead_number text NOT NULL,
vohead_pohead_id integer,
vohead_posted boolean,
vohead_duedate date,
vohead_invcnumber text,
vohead_amount numeric(16,4),
vohead_docdate date,
vohead_1099 boolean,
vohead_distdate date,
vohead_reference text,
vohead_terms_id integer,
vohead_vend_id integer,
vohead_curr_id integer DEFAULT basecurrid(),
vohead_adjtaxtype_id integer,
vohead_freighttaxtype_id integer,
vohead_gldistdate date,
vohead_misc boolean,
vohead_taxzone_id integer,
vohead_taxtype_id integer,
vohead_notes text,
vohead_recurring_vohead_id integer,
CONSTRAINT vohead_vohead_number_check CHECK ((vohead_number <> ''::text))
);
ALTER TABLE public.vohead OWNER TO admin;
--
-- Name: TABLE vohead; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE vohead IS 'Voucher header information';
--
-- Name: vohead_vohead_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE vohead_vohead_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.vohead_vohead_id_seq OWNER TO admin;
--
-- Name: vohead_vohead_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('vohead_vohead_id_seq', 174, true);
--
-- Name: voheadtax; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE voheadtax (
)
INHERITS (taxhist);
ALTER TABLE public.voheadtax OWNER TO admin;
--
-- Name: voitem; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE voitem (
voitem_id integer DEFAULT nextval(('"voitem_voitem_id_seq"'::text)::regclass) NOT NULL,
voitem_vohead_id integer,
voitem_poitem_id integer,
voitem_close boolean,
voitem_qty numeric(18,6),
voitem_freight numeric(16,4) DEFAULT 0.0 NOT NULL,
voitem_taxtype_id integer
);
ALTER TABLE public.voitem OWNER TO admin;
--
-- Name: TABLE voitem; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE voitem IS 'Voucher Line Item information';
--
-- Name: voitem_voitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE voitem_voitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.voitem_voitem_id_seq OWNER TO admin;
--
-- Name: voitem_voitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('voitem_voitem_id_seq', 110, true);
--
-- Name: voitemtax; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE voitemtax (
)
INHERITS (taxhist);
ALTER TABLE public.voitemtax OWNER TO admin;
--
-- Name: warehous; Type: VIEW; Schema: public; Owner: admin
--
CREATE VIEW warehous AS
SELECT whsinfo.warehous_id, whsinfo.warehous_code, whsinfo.warehous_descrip, m.addr_line1 AS warehous_addr1, m.addr_line2 AS warehous_addr2, m.addr_line3 AS warehous_addr3, m.addr_city AS warehous_addr4, m.addr_city AS warehous_city, m.addr_state AS warehous_state, m.addr_postalcode AS warehous_zip, m.addr_country AS warehous_country, whsinfo.warehous_fob, whsinfo.warehous_active, whsinfo.warehous_sitetype_id, whsinfo.warehous_counttag_prefix, whsinfo.warehous_counttag_number, whsinfo.warehous_bol_prefix, whsinfo.warehous_bol_number, whsinfo.warehous_shipping, whsinfo.warehous_useslips, whsinfo.warehous_usezones, whsinfo.warehous_aislesize, whsinfo.warehous_aislealpha, whsinfo.warehous_racksize, whsinfo.warehous_rackalpha, whsinfo.warehous_binsize, whsinfo.warehous_binalpha, whsinfo.warehous_locationsize, whsinfo.warehous_locationalpha, whsinfo.warehous_enforcearbl, whsinfo.warehous_default_accnt_id, whsinfo.warehous_shipping_commission FROM ((whsinfo LEFT JOIN cntct c1 ON ((whsinfo.warehous_cntct_id = c1.cntct_id))) LEFT JOIN addr m ON ((whsinfo.warehous_addr_id = m.addr_id)));
ALTER TABLE public.warehous OWNER TO admin;
--
-- Name: warehous_warehous_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE warehous_warehous_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.warehous_warehous_id_seq OWNER TO admin;
--
-- Name: warehous_warehous_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('warehous_warehous_id_seq', 35, true);
--
-- Name: whsezone_whsezone_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE whsezone_whsezone_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.whsezone_whsezone_id_seq OWNER TO admin;
--
-- Name: whsezone_whsezone_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE whsezone_whsezone_id_seq OWNED BY whsezone.whsezone_id;
--
-- Name: whsezone_whsezone_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('whsezone_whsezone_id_seq', 6, true);
--
-- Name: wo_wo_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE wo_wo_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.wo_wo_id_seq OWNER TO admin;
--
-- Name: wo_wo_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('wo_wo_id_seq', 445, true);
--
-- Name: womatl_womatl_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE womatl_womatl_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.womatl_womatl_id_seq OWNER TO admin;
--
-- Name: womatl_womatl_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('womatl_womatl_id_seq', 1292, true);
--
-- Name: womatlpost; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE womatlpost (
womatlpost_id integer NOT NULL,
womatlpost_womatl_id integer,
womatlpost_invhist_id integer
);
ALTER TABLE public.womatlpost OWNER TO admin;
--
-- Name: TABLE womatlpost; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE womatlpost IS 'Table to tie work order to work order material transactions for efficient queries';
--
-- Name: womatlpost_womatlpost_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE womatlpost_womatlpost_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.womatlpost_womatlpost_id_seq OWNER TO admin;
--
-- Name: womatlpost_womatlpost_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE womatlpost_womatlpost_id_seq OWNED BY womatlpost.womatlpost_id;
--
-- Name: womatlpost_womatlpost_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('womatlpost_womatlpost_id_seq', 1, false);
--
-- Name: womatlvar; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE womatlvar (
womatlvar_id integer DEFAULT nextval(('"womatlvar_womatlvar_id_seq"'::text)::regclass) NOT NULL,
womatlvar_number integer,
womatlvar_subnumber integer,
womatlvar_posted date,
womatlvar_parent_itemsite_id integer,
womatlvar_component_itemsite_id integer,
womatlvar_qtyord numeric(18,6),
womatlvar_qtyrcv numeric(18,6),
womatlvar_qtyiss numeric(18,6),
womatlvar_qtyper numeric(18,6),
womatlvar_scrap numeric(18,6),
womatlvar_wipscrap numeric(18,6),
womatlvar_bomitem_id integer,
womatlvar_ref text,
womatlvar_notes text,
womatlvar_qtyfxd numeric(20,8) DEFAULT 0 NOT NULL
);
ALTER TABLE public.womatlvar OWNER TO admin;
--
-- Name: TABLE womatlvar; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE womatlvar IS 'Work Order Material Requirements Variance information';
--
-- Name: COLUMN womatlvar.womatlvar_qtyfxd; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON COLUMN womatlvar.womatlvar_qtyfxd IS 'The fixed quantity required';
--
-- Name: womatlvar_womatlvar_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE womatlvar_womatlvar_id_seq
START WITH 1
INCREMENT BY 1
MAXVALUE 2147483647
NO MINVALUE
CACHE 1;
ALTER TABLE public.womatlvar_womatlvar_id_seq OWNER TO admin;
--
-- Name: womatlvar_womatlvar_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('womatlvar_womatlvar_id_seq', 44, true);
--
-- Name: xcalitem_xcalitem_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE xcalitem_xcalitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.xcalitem_xcalitem_id_seq OWNER TO admin;
--
-- Name: xcalitem_xcalitem_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('xcalitem_xcalitem_id_seq', 145, true);
--
-- Name: xsltmap; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE xsltmap (
xsltmap_id integer NOT NULL,
xsltmap_name text NOT NULL,
xsltmap_doctype text NOT NULL,
xsltmap_system text NOT NULL,
xsltmap_import text NOT NULL,
xsltmap_export text DEFAULT ''::text NOT NULL,
CONSTRAINT xsltmap_check CHECK (((xsltmap_doctype <> ''::text) OR (xsltmap_system <> ''::text))),
CONSTRAINT xsltmap_xsltmap_importexport_check CHECK (((xsltmap_import <> ''::text) OR (xsltmap_export <> ''::text))),
CONSTRAINT xsltmap_xsltmap_name_check CHECK ((xsltmap_name <> ''::text))
);
ALTER TABLE public.xsltmap OWNER TO admin;
--
-- Name: TABLE xsltmap; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE xsltmap IS 'Mapping of XML System identifiers to XSLT transformation files';
--
-- Name: xsltmap_xsltmap_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE xsltmap_xsltmap_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.xsltmap_xsltmap_id_seq OWNER TO admin;
--
-- Name: xsltmap_xsltmap_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE xsltmap_xsltmap_id_seq OWNED BY xsltmap.xsltmap_id;
--
-- Name: xsltmap_xsltmap_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('xsltmap_xsltmap_id_seq', 1, true);
--
-- Name: yearperiod; Type: TABLE; Schema: public; Owner: admin; Tablespace:
--
CREATE TABLE yearperiod (
yearperiod_id integer NOT NULL,
yearperiod_start date NOT NULL,
yearperiod_end date NOT NULL,
yearperiod_closed boolean DEFAULT false NOT NULL
);
ALTER TABLE public.yearperiod OWNER TO admin;
--
-- Name: TABLE yearperiod; Type: COMMENT; Schema: public; Owner: admin
--
COMMENT ON TABLE yearperiod IS 'Accounting Year Periods information';
--
-- Name: yearperiod_yearperiod_id_seq; Type: SEQUENCE; Schema: public; Owner: admin
--
CREATE SEQUENCE yearperiod_yearperiod_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE public.yearperiod_yearperiod_id_seq OWNER TO admin;
--
-- Name: yearperiod_yearperiod_id_seq; Type: SEQUENCE OWNED BY; Schema: public; Owner: admin
--
ALTER SEQUENCE yearperiod_yearperiod_id_seq OWNED BY yearperiod.yearperiod_id;
--
-- Name: yearperiod_yearperiod_id_seq; Type: SEQUENCE SET; Schema: public; Owner: admin
--
SELECT pg_catalog.setval('yearperiod_yearperiod_id_seq', 9, true);
SET search_path = te, pg_catalog;
--
-- Name: pkgcmd; Type: TABLE; Schema: te; Owner: admin; Tablespace:
--
CREATE TABLE pkgcmd (
cmd_id integer DEFAULT nextval('public.cmd_cmd_id_seq'::regclass)
)
INHERITS (public.cmd);
ALTER TABLE te.pkgcmd OWNER TO admin;
--
-- Name: pkgcmdarg; Type: TABLE; Schema: te; Owner: admin; Tablespace:
--
CREATE TABLE pkgcmdarg (
cmdarg_id integer DEFAULT nextval('public.cmdarg_cmdarg_id_seq'::regclass)
)
INHERITS (public.cmdarg);
ALTER TABLE te.pkgcmdarg OWNER TO admin;
--
-- Name: pkgimage; Type: TABLE; Schema: te; Owner: admin; Tablespace:
--
CREATE TABLE pkgimage (
image_id integer DEFAULT nextval('public.image_image_id_seq'::regclass)
)
INHERITS (public.image);
ALTER TABLE te.pkgimage OWNER TO admin;
--
-- Name: pkgmetasql; Type: TABLE; Schema: te; Owner: admin; Tablespace:
--
CREATE TABLE pkgmetasql (
metasql_id integer DEFAULT nextval('public.metasql_metasql_id_seq'::regclass)
)
INHERITS (public.metasql);
ALTER TABLE te.pkgmetasql OWNER TO admin;
--
-- Name: pkgpriv; Type: TABLE; Schema: te; Owner: admin; Tablespace:
--
CREATE TABLE pkgpriv (
priv_id integer DEFAULT nextval('public.priv_priv_id_seq'::regclass)
)
INHERITS (public.priv);
ALTER TABLE te.pkgpriv OWNER TO admin;
--
-- Name: pkgreport; Type: TABLE; Schema: te; Owner: admin; Tablespace:
--
CREATE TABLE pkgreport (
report_id integer DEFAULT nextval('public.report_report_id_seq'::regclass)
)
INHERITS (public.report);
ALTER TABLE te.pkgreport OWNER TO admin;
--
-- Name: pkgscript; Type: TABLE; Schema: te; Owner: admin; Tablespace:
--
CREATE TABLE pkgscript (
script_id integer DEFAULT nextval('public.script_script_id_seq'::regclass)
)
INHERITS (public.script);
ALTER TABLE te.pkgscript OWNER TO admin;
--
-- Name: pkguiform; Type: TABLE; Schema: te; Owner: admin; Tablespace:
--
CREATE TABLE pkguiform (
uiform_id integer DEFAULT nextval('public.uiform_uiform_id_seq'::regclass)
)
INHERITS (public.uiform);
ALTER TABLE te.pkguiform OWNER TO admin;
--
-- Name: tecustrate; Type: TABLE; Schema: te; Owner: admin; Tablespace:
--
CREATE TABLE tecustrate (
tecustrate_cust_id integer NOT NULL,
tecustrate_rate numeric(16,4) NOT NULL,
tecustrate_id integer NOT NULL,
tecustrate_curr_id integer DEFAULT public.basecurrid() NOT NULL
);
ALTER TABLE te.tecustrate OWNER TO admin;
--
-- Name: TABLE tecustrate; Type: COMMENT; Schema: te; Owner: admin
--
COMMENT ON TABLE tecustrate IS 'Default Customer Billing rate for Time/Expense';
--
-- Name: tecustrate_tecustrate_id_seq; Type: SEQUENCE; Schema: te; Owner: admin
--
CREATE SEQUENCE tecustrate_tecustrate_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE te.tecustrate_tecustrate_id_seq OWNER TO admin;
--
-- Name: tecustrate_tecustrate_id_seq; Type: SEQUENCE OWNED BY; Schema: te; Owner: admin
--
ALTER SEQUENCE tecustrate_tecustrate_id_seq OWNED BY tecustrate.tecustrate_id;
--
-- Name: tecustrate_tecustrate_id_seq; Type: SEQUENCE SET; Schema: te; Owner: admin
--
SELECT pg_catalog.setval('tecustrate_tecustrate_id_seq', 1, false);
--
-- Name: teemp; Type: TABLE; Schema: te; Owner: admin; Tablespace:
--
CREATE TABLE teemp (
teemp_id integer NOT NULL,
teemp_emp_id integer,
teemp_contractor boolean DEFAULT false
);
ALTER TABLE te.teemp OWNER TO admin;
--
-- Name: teemp_teemp_id_seq; Type: SEQUENCE; Schema: te; Owner: admin
--
CREATE SEQUENCE teemp_teemp_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE te.teemp_teemp_id_seq OWNER TO admin;
--
-- Name: teemp_teemp_id_seq; Type: SEQUENCE OWNED BY; Schema: te; Owner: admin
--
ALTER SEQUENCE teemp_teemp_id_seq OWNED BY teemp.teemp_id;
--
-- Name: teemp_teemp_id_seq; Type: SEQUENCE SET; Schema: te; Owner: admin
--
SELECT pg_catalog.setval('teemp_teemp_id_seq', 1, false);
--
-- Name: teexp; Type: TABLE; Schema: te; Owner: admin; Tablespace:
--
CREATE TABLE teexp (
teexp_id integer NOT NULL,
teexp_expcat_id integer,
teexp_accnt_id integer
);
ALTER TABLE te.teexp OWNER TO admin;
--
-- Name: TABLE teexp; Type: COMMENT; Schema: te; Owner: admin
--
COMMENT ON TABLE teexp IS 'Expense/Item';
--
-- Name: timesheet_seq; Type: SEQUENCE; Schema: te; Owner: admin
--
CREATE SEQUENCE timesheet_seq
START WITH 1000
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE te.timesheet_seq OWNER TO admin;
--
-- Name: timesheet_seq; Type: SEQUENCE SET; Schema: te; Owner: admin
--
SELECT pg_catalog.setval('timesheet_seq', 1000, false);
--
-- Name: tehead; Type: TABLE; Schema: te; Owner: admin; Tablespace:
--
CREATE TABLE tehead (
tehead_id integer NOT NULL,
tehead_number text DEFAULT nextval('timesheet_seq'::regclass),
tehead_weekending date,
tehead_lastupdated timestamp without time zone DEFAULT now() NOT NULL,
tehead_notes text,
tehead_status character(1) DEFAULT 'O'::bpchar NOT NULL,
tehead_emp_id integer,
tehead_warehous_id integer NOT NULL,
tehead_username text DEFAULT "current_user"() NOT NULL,
CONSTRAINT tehead_tehead_status_check CHECK ((tehead_status = ANY (ARRAY['O'::bpchar, 'A'::bpchar, 'C'::bpchar])))
);
ALTER TABLE te.tehead OWNER TO admin;
--
-- Name: TABLE tehead; Type: COMMENT; Schema: te; Owner: admin
--
COMMENT ON TABLE tehead IS 'time/expense header';
--
-- Name: tehead_tehead_id_seq; Type: SEQUENCE; Schema: te; Owner: admin
--
CREATE SEQUENCE tehead_tehead_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE te.tehead_tehead_id_seq OWNER TO admin;
--
-- Name: tehead_tehead_id_seq; Type: SEQUENCE OWNED BY; Schema: te; Owner: admin
--
ALTER SEQUENCE tehead_tehead_id_seq OWNED BY tehead.tehead_id;
--
-- Name: tehead_tehead_id_seq; Type: SEQUENCE SET; Schema: te; Owner: admin
--
SELECT pg_catalog.setval('tehead_tehead_id_seq', 1, false);
--
-- Name: teitem; Type: TABLE; Schema: te; Owner: admin; Tablespace:
--
CREATE TABLE teitem (
teitem_id integer NOT NULL,
teitem_tehead_id integer,
teitem_linenumber integer NOT NULL,
teitem_type character(1) NOT NULL,
teitem_workdate date,
teitem_cust_id integer,
teitem_vend_id integer,
teitem_po text,
teitem_item_id integer NOT NULL,
teitem_qty numeric NOT NULL,
teitem_rate numeric NOT NULL,
teitem_total numeric NOT NULL,
teitem_prjtask_id numeric,
teitem_lastupdated timestamp without time zone DEFAULT ('now'::text)::timestamp(6) with time zone NOT NULL,
teitem_billable boolean,
teitem_prepaid boolean,
teitem_notes text,
teitem_posted boolean DEFAULT false,
teitem_curr_id integer DEFAULT public.basecurrid() NOT NULL,
teitem_uom_id integer,
teitem_invcitem_id integer,
teitem_vodist_id integer,
teitem_postedvalue numeric DEFAULT 0 NOT NULL,
teitem_empcost numeric
);
ALTER TABLE te.teitem OWNER TO admin;
--
-- Name: TABLE teitem; Type: COMMENT; Schema: te; Owner: admin
--
COMMENT ON TABLE teitem IS 'time/expense detail';
--
-- Name: COLUMN teitem.teitem_type; Type: COMMENT; Schema: te; Owner: admin
--
COMMENT ON COLUMN teitem.teitem_type IS 'T or E';
--
-- Name: COLUMN teitem.teitem_vend_id; Type: COMMENT; Schema: te; Owner: admin
--
COMMENT ON COLUMN teitem.teitem_vend_id IS 'future use - for payment of vendor for expenses';
--
-- Name: COLUMN teitem.teitem_prepaid; Type: COMMENT; Schema: te; Owner: admin
--
COMMENT ON COLUMN teitem.teitem_prepaid IS 'Used for expenses only. CC paid expenses would be prepaid.';
--
-- Name: teitem_teitem_id_seq; Type: SEQUENCE; Schema: te; Owner: admin
--
CREATE SEQUENCE teitem_teitem_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE te.teitem_teitem_id_seq OWNER TO admin;
--
-- Name: teitem_teitem_id_seq; Type: SEQUENCE OWNED BY; Schema: te; Owner: admin
--
ALTER SEQUENCE teitem_teitem_id_seq OWNED BY teitem.teitem_id;
--
-- Name: teitem_teitem_id_seq; Type: SEQUENCE SET; Schema: te; Owner: admin
--
SELECT pg_catalog.setval('teitem_teitem_id_seq', 1, false);
--
-- Name: teprj; Type: TABLE; Schema: te; Owner: admin; Tablespace:
--
CREATE TABLE teprj (
teprj_id integer NOT NULL,
teprj_prj_id integer,
teprj_cust_id integer,
teprj_rate numeric,
teprj_curr_id integer
);
ALTER TABLE te.teprj OWNER TO admin;
--
-- Name: TABLE teprj; Type: COMMENT; Schema: te; Owner: admin
--
COMMENT ON TABLE teprj IS 't/e information for projects';
--
-- Name: teprj_teprj_id_seq; Type: SEQUENCE; Schema: te; Owner: admin
--
CREATE SEQUENCE teprj_teprj_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE te.teprj_teprj_id_seq OWNER TO admin;
--
-- Name: teprj_teprj_id_seq; Type: SEQUENCE OWNED BY; Schema: te; Owner: admin
--
ALTER SEQUENCE teprj_teprj_id_seq OWNED BY teprj.teprj_id;
--
-- Name: teprj_teprj_id_seq; Type: SEQUENCE SET; Schema: te; Owner: admin
--
SELECT pg_catalog.setval('teprj_teprj_id_seq', 1, false);
--
-- Name: teprjtask; Type: TABLE; Schema: te; Owner: admin; Tablespace:
--
CREATE TABLE teprjtask (
teprjtask_id integer NOT NULL,
teprjtask_cust_id integer,
teprjtask_rate numeric,
teprjtask_item_id integer,
teprjtask_prjtask_id integer,
teprjtask_curr_id integer DEFAULT public.basecurrid()
);
ALTER TABLE te.teprjtask OWNER TO admin;
--
-- Name: TABLE teprjtask; Type: COMMENT; Schema: te; Owner: admin
--
COMMENT ON TABLE teprjtask IS 't/e information for tasks';
--
-- Name: teprjtask_teprjtask_id_seq; Type: SEQUENCE; Schema: te; Owner: admin
--
CREATE SEQUENCE teprjtask_teprjtask_id_seq
START WITH 1
INCREMENT BY 1
NO MAXVALUE
NO MINVALUE
CACHE 1;
ALTER TABLE te.teprjtask_teprjtask_id_seq OWNER TO admin;
--
-- Name: teprjtask_teprjtask_id_seq; Type: SEQUENCE OWNED BY; Schema: te; Owner: admin
--
ALTER SEQUENCE teprjtask_teprjtask_id_seq OWNED BY teprjtask.teprjtask_id;
--
-- Name: teprjtask_teprjtask_id_seq; Type: SEQUENCE SET; Schema: te; Owner: admin
--
SELECT pg_catalog.setval('teprjtask_teprjtask_id_seq', 1, false);
SET search_path = xtdesktop, pg_catalog;
--
-- Name: pkgcmd; Type: TABLE; Schema: xtdesktop; Owner: admin; Tablespace:
--
CREATE TABLE pkgcmd (
cmd_id integer DEFAULT nextval('public.cmd_cmd_id_seq'::regclass)
)
INHERITS (public.cmd);
ALTER TABLE xtdesktop.pkgcmd OWNER TO admin;
--
-- Name: pkgcmdarg; Type: TABLE; Schema: xtdesktop; Owner: admin; Tablespace:
--
CREATE TABLE pkgcmdarg (
cmdarg_id integer DEFAULT nextval('public.cmdarg_cmdarg_id_seq'::regclass)
)
INHERITS (public.cmdarg);
ALTER TABLE xtdesktop.pkgcmdarg OWNER TO admin;
--
-- Name: pkgimage; Type: TABLE; Schema: xtdesktop; Owner: admin; Tablespace:
--
CREATE TABLE pkgimage (
image_id integer DEFAULT nextval('public.image_image_id_seq'::regclass)
)
INHERITS (public.image);
ALTER TABLE xtdesktop.pkgimage OWNER TO admin;
--
-- Name: pkgmetasql; Type: TABLE; Schema: xtdesktop; Owner: admin; Tablespace:
--
CREATE TABLE pkgmetasql (
metasql_id integer DEFAULT nextval('public.metasql_metasql_id_seq'::regclass)
)
INHERITS (public.metasql);
ALTER TABLE xtdesktop.pkgmetasql OWNER TO admin;
--
-- Name: pkgpriv; Type: TABLE; Schema: xtdesktop; Owner: admin; Tablespace:
--
CREATE TABLE pkgpriv (
priv_id integer DEFAULT nextval('public.priv_priv_id_seq'::regclass)
)
INHERITS (public.priv);
ALTER TABLE xtdesktop.pkgpriv OWNER TO admin;
--
-- Name: pkgreport; Type: TABLE; Schema: xtdesktop; Owner: admin; Tablespace:
--
CREATE TABLE pkgreport (
report_id integer DEFAULT nextval('public.report_report_id_seq'::regclass)
)
INHERITS (public.report);
ALTER TABLE xtdesktop.pkgreport OWNER TO admin;
--
-- Name: pkgscript; Type: TABLE; Schema: xtdesktop; Owner: admin; Tablespace:
--
CREATE TABLE pkgscript (
script_id integer DEFAULT nextval('public.script_script_id_seq'::regclass)
)
INHERITS (public.script);
ALTER TABLE xtdesktop.pkgscript OWNER TO admin;
--
-- Name: pkguiform; Type: TABLE; Schema: xtdesktop; Owner: admin; Tablespace:
--
CREATE TABLE pkguiform (
uiform_id integer DEFAULT nextval('public.uiform_uiform_id_seq'::regclass)
)
INHERITS (public.uiform);
ALTER TABLE xtdesktop.pkguiform OWNER TO admin;
SET search_path = public, pg_catalog;
--
-- Name: addr_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE addr ALTER COLUMN addr_id SET DEFAULT nextval('addr_addr_id_seq'::regclass);
--
-- Name: alarm_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE alarm ALTER COLUMN alarm_id SET DEFAULT nextval('alarm_alarm_id_seq'::regclass);
--
-- Name: apaccnt_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE apaccnt ALTER COLUMN apaccnt_id SET DEFAULT nextval('apaccnt_apaccnt_id_seq'::regclass);
--
-- Name: apapply_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE apapply ALTER COLUMN apapply_id SET DEFAULT nextval('apapply_apapply_id_seq'::regclass);
--
-- Name: apcreditapply_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE apcreditapply ALTER COLUMN apcreditapply_id SET DEFAULT nextval('apcreditapply_apcreditapply_id_seq'::regclass);
--
-- Name: apselect_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE apselect ALTER COLUMN apselect_id SET DEFAULT nextval('apselect_apselect_id_seq'::regclass);
--
-- Name: arapply_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE arapply ALTER COLUMN arapply_id SET DEFAULT nextval('arapply_arapply_id_seq'::regclass);
--
-- Name: asohist_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE asohist ALTER COLUMN asohist_id SET DEFAULT nextval('asohist_asohist_id_seq'::regclass);
--
-- Name: atlasmap_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE atlasmap ALTER COLUMN atlasmap_id SET DEFAULT nextval('atlasmap_atlasmap_id_seq'::regclass);
--
-- Name: bankaccnt_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE bankaccnt ALTER COLUMN bankaccnt_id SET DEFAULT nextval('bankaccnt_bankaccnt_id_seq'::regclass);
--
-- Name: bankadj_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE bankadj ALTER COLUMN bankadj_id SET DEFAULT nextval('bankadj_bankadj_id_seq'::regclass);
--
-- Name: bankadjtype_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE bankadjtype ALTER COLUMN bankadjtype_id SET DEFAULT nextval('bankadjtype_bankadjtype_id_seq'::regclass);
--
-- Name: bankrec_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE bankrec ALTER COLUMN bankrec_id SET DEFAULT nextval('bankrec_bankrec_id_seq'::regclass);
--
-- Name: bankrecitem_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE bankrecitem ALTER COLUMN bankrecitem_id SET DEFAULT nextval('bankrecitem_bankrecitem_id_seq'::regclass);
--
-- Name: bomitemcost_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE bomitemcost ALTER COLUMN bomitemcost_id SET DEFAULT nextval('bomitemcost_bomitemcost_id_seq'::regclass);
--
-- Name: bomitemsub_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE bomitemsub ALTER COLUMN bomitemsub_id SET DEFAULT nextval('bomitemsub_bomitemsub_id_seq'::regclass);
--
-- Name: bomwork_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE bomwork ALTER COLUMN bomwork_id SET DEFAULT nextval('bomwork_bomwork_id_seq'::regclass);
--
-- Name: budghead_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE budghead ALTER COLUMN budghead_id SET DEFAULT nextval('budghead_budghead_id_seq'::regclass);
--
-- Name: budgitem_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE budgitem ALTER COLUMN budgitem_id SET DEFAULT nextval('budgitem_budgitem_id_seq'::regclass);
--
-- Name: cashrcpt_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE cashrcpt ALTER COLUMN cashrcpt_id SET DEFAULT nextval('cashrcpt_cashrcpt_id_seq'::regclass);
--
-- Name: cashrcptitem_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE cashrcptitem ALTER COLUMN cashrcptitem_id SET DEFAULT nextval('cashrcptitem_cashrcptitem_id_seq'::regclass);
--
-- Name: cashrcptmisc_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE cashrcptmisc ALTER COLUMN cashrcptmisc_id SET DEFAULT nextval('cashrcptmisc_cashrcptmisc_id_seq'::regclass);
--
-- Name: ccard_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE ccard ALTER COLUMN ccard_id SET DEFAULT nextval('ccard_ccard_id_seq'::regclass);
--
-- Name: ccardaud_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE ccardaud ALTER COLUMN ccardaud_id SET DEFAULT nextval('ccardaud_ccardaud_id_seq'::regclass);
--
-- Name: ccbank_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE ccbank ALTER COLUMN ccbank_id SET DEFAULT nextval('ccbank_ccbank_id_seq'::regclass);
--
-- Name: ccpay_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE ccpay ALTER COLUMN ccpay_id SET DEFAULT nextval('ccpay_ccpay_id_seq'::regclass);
--
-- Name: char_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE "char" ALTER COLUMN char_id SET DEFAULT nextval('char_char_id_seq'::regclass);
--
-- Name: charass_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE charass ALTER COLUMN charass_id SET DEFAULT nextval('charass_charass_id_seq'::regclass);
--
-- Name: charopt_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE charopt ALTER COLUMN charopt_id SET DEFAULT nextval('charopt_charopt_id_seq'::regclass);
--
-- Name: checkhead_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE checkhead ALTER COLUMN checkhead_id SET DEFAULT nextval('checkhead_checkhead_id_seq'::regclass);
--
-- Name: checkitem_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE checkitem ALTER COLUMN checkitem_id SET DEFAULT nextval('checkitem_checkitem_id_seq'::regclass);
--
-- Name: cmnttype_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE cmnttype ALTER COLUMN cmnttype_id SET DEFAULT nextval('cmnttype_cmnttype_id_seq'::regclass);
--
-- Name: cmnttypesource_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE cmnttypesource ALTER COLUMN cmnttypesource_id SET DEFAULT nextval('cmnttypesource_cmnttypesource_id_seq'::regclass);
--
-- Name: cntct_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE cntct ALTER COLUMN cntct_id SET DEFAULT nextval('cntct_cntct_id_seq'::regclass);
--
-- Name: cntctaddr_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE cntctaddr ALTER COLUMN cntctaddr_id SET DEFAULT nextval('cntctaddr_cntctaddr_id_seq'::regclass);
--
-- Name: cntctdata_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE cntctdata ALTER COLUMN cntctdata_id SET DEFAULT nextval('cntctdata_cntctdata_id_seq'::regclass);
--
-- Name: cntcteml_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE cntcteml ALTER COLUMN cntcteml_id SET DEFAULT nextval('cntcteml_cntcteml_id_seq'::regclass);
--
-- Name: company_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE company ALTER COLUMN company_id SET DEFAULT nextval('company_company_id_seq'::regclass);
--
-- Name: contrct_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE contrct ALTER COLUMN contrct_id SET DEFAULT nextval('contrct_contrct_id_seq'::regclass);
--
-- Name: country_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE country ALTER COLUMN country_id SET DEFAULT nextval('country_country_id_seq'::regclass);
--
-- Name: crmacct_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE crmacct ALTER COLUMN crmacct_id SET DEFAULT nextval('crmacct_crmacct_id_seq'::regclass);
--
-- Name: curr_rate_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE curr_rate ALTER COLUMN curr_rate_id SET DEFAULT nextval('curr_rate_curr_rate_id_seq'::regclass);
--
-- Name: curr_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE curr_symbol ALTER COLUMN curr_id SET DEFAULT nextval('curr_symbol_curr_id_seq'::regclass);
--
-- Name: dept_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE dept ALTER COLUMN dept_id SET DEFAULT nextval('dept_dept_id_seq'::regclass);
--
-- Name: docass_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE docass ALTER COLUMN docass_id SET DEFAULT nextval('docass_docass_id_seq'::regclass);
--
-- Name: emp_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE emp ALTER COLUMN emp_id SET DEFAULT nextval('emp_emp_id_seq'::regclass);
--
-- Name: empgrp_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE empgrp ALTER COLUMN empgrp_id SET DEFAULT nextval('empgrp_empgrp_id_seq'::regclass);
--
-- Name: empgrpitem_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE empgrpitem ALTER COLUMN empgrpitem_id SET DEFAULT nextval('empgrpitem_empgrpitem_id_seq'::regclass);
--
-- Name: expcat_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE expcat ALTER COLUMN expcat_id SET DEFAULT nextval('expcat_expcat_id_seq'::regclass);
--
-- Name: file_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE file ALTER COLUMN file_id SET DEFAULT nextval('file_file_id_seq'::regclass);
--
-- Name: filter_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE filter ALTER COLUMN filter_id SET DEFAULT nextval('filter_filter_id_seq'::regclass);
--
-- Name: flcol_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE flcol ALTER COLUMN flcol_id SET DEFAULT nextval('flcol_flcol_id_seq'::regclass);
--
-- Name: flgrp_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE flgrp ALTER COLUMN flgrp_id SET DEFAULT nextval('flgrp_flgrp_id_seq'::regclass);
--
-- Name: flhead_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE flhead ALTER COLUMN flhead_id SET DEFAULT nextval('flhead_flhead_id_seq'::regclass);
--
-- Name: flitem_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE flitem ALTER COLUMN flitem_id SET DEFAULT nextval('flitem_flitem_id_seq'::regclass);
--
-- Name: flnotes_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE flnotes ALTER COLUMN flnotes_id SET DEFAULT nextval('flnotes_flnotes_id_seq'::regclass);
--
-- Name: flrpt_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE flrpt ALTER COLUMN flrpt_id SET DEFAULT nextval('flrpt_flrpt_id_seq'::regclass);
--
-- Name: flspec_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE flspec ALTER COLUMN flspec_id SET DEFAULT nextval('flspec_flspec_id_seq'::regclass);
--
-- Name: freightclass_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE freightclass ALTER COLUMN freightclass_id SET DEFAULT nextval('freightclass_freightclass_id_seq'::regclass);
--
-- Name: grp_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE grp ALTER COLUMN grp_id SET DEFAULT nextval('grp_grp_id_seq'::regclass);
--
-- Name: grppriv_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE grppriv ALTER COLUMN grppriv_id SET DEFAULT nextval('grppriv_grppriv_id_seq'::regclass);
--
-- Name: hnfc_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE hnfc ALTER COLUMN hnfc_id SET DEFAULT nextval('hnfc_hnfc_id_seq'::regclass);
--
-- Name: incdt_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE incdt ALTER COLUMN incdt_id SET DEFAULT nextval('incdt_incdt_id_seq'::regclass);
--
-- Name: incdtcat_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE incdtcat ALTER COLUMN incdtcat_id SET DEFAULT nextval('incdtcat_incdtcat_id_seq'::regclass);
--
-- Name: incdthist_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE incdthist ALTER COLUMN incdthist_id SET DEFAULT nextval('incdthist_incdthist_id_seq'::regclass);
--
-- Name: incdtpriority_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE incdtpriority ALTER COLUMN incdtpriority_id SET DEFAULT nextval('incdtpriority_incdtpriority_id_seq'::regclass);
--
-- Name: incdtresolution_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE incdtresolution ALTER COLUMN incdtresolution_id SET DEFAULT nextval('incdtresolution_incdtresolution_id_seq'::regclass);
--
-- Name: incdtseverity_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE incdtseverity ALTER COLUMN incdtseverity_id SET DEFAULT nextval('incdtseverity_incdtseverity_id_seq'::regclass);
--
-- Name: invbal_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE invbal ALTER COLUMN invbal_id SET DEFAULT nextval('invbal_invbal_id_seq'::regclass);
--
-- Name: invchead_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE invchead ALTER COLUMN invchead_id SET DEFAULT nextval('invchead_invchead_id_seq'::regclass);
--
-- Name: invcitem_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE invcitem ALTER COLUMN invcitem_id SET DEFAULT nextval('invcitem_invcitem_id_seq'::regclass);
--
-- Name: invhistexpcat_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE invhistexpcat ALTER COLUMN invhistexpcat_id SET DEFAULT nextval('invhistexpcat_invhistexpcat_id_seq'::regclass);
--
-- Name: ipsass_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE ipsass ALTER COLUMN ipsass_id SET DEFAULT nextval('ipsass_ipsass_id_seq'::regclass);
--
-- Name: ipsfreight_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE ipsfreight ALTER COLUMN ipsfreight_id SET DEFAULT nextval('ipsfreight_ipsfreight_id_seq'::regclass);
--
-- Name: ipsitemchar_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE ipsitemchar ALTER COLUMN ipsitemchar_id SET DEFAULT nextval('ipsitemchar_ipsitemchar_id_seq'::regclass);
--
-- Name: ipsprodcat_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE ipsprodcat_bak ALTER COLUMN ipsprodcat_id SET DEFAULT nextval('ipsprodcat_ipsprodcat_id_seq'::regclass);
--
-- Name: itemlocpost_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE itemlocpost ALTER COLUMN itemlocpost_id SET DEFAULT nextval('itemlocpost_itemlocpost_id_seq'::regclass);
--
-- Name: itemtax_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE itemtax ALTER COLUMN itemtax_id SET DEFAULT nextval('itemtax_itemtax_id_seq'::regclass);
--
-- Name: itemtrans_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE itemtrans ALTER COLUMN itemtrans_id SET DEFAULT nextval('itemtrans_itemtrans_id_seq'::regclass);
--
-- Name: itemuom_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE itemuom ALTER COLUMN itemuom_id SET DEFAULT nextval('itemuom_itemuom_id_seq'::regclass);
--
-- Name: itemuomconv_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE itemuomconv ALTER COLUMN itemuomconv_id SET DEFAULT nextval('itemuomconv_itemuomconv_id_seq'::regclass);
--
-- Name: labeldef_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE labeldef ALTER COLUMN labeldef_id SET DEFAULT nextval('labeldef_labeldef_id_seq'::regclass);
--
-- Name: lang_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE lang ALTER COLUMN lang_id SET DEFAULT nextval('lang_lang_id_seq'::regclass);
--
-- Name: metricenc_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE metricenc ALTER COLUMN metricenc_id SET DEFAULT nextval('metricenc_metricenc_id_seq'::regclass);
--
-- Name: ophead_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE ophead ALTER COLUMN ophead_id SET DEFAULT nextval('ophead_ophead_id_seq'::regclass);
--
-- Name: opsource_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE opsource ALTER COLUMN opsource_id SET DEFAULT nextval('opsource_opsource_id_seq'::regclass);
--
-- Name: opstage_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE opstage ALTER COLUMN opstage_id SET DEFAULT nextval('opstage_opstage_id_seq'::regclass);
--
-- Name: optype_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE optype ALTER COLUMN optype_id SET DEFAULT nextval('optype_optype_id_seq'::regclass);
--
-- Name: pack_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE pack ALTER COLUMN pack_id SET DEFAULT nextval('pack_pack_id_seq'::regclass);
--
-- Name: period_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE period ALTER COLUMN period_id SET DEFAULT nextval('period_period_id_seq'::regclass);
--
-- Name: pkgdep_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE pkgdep ALTER COLUMN pkgdep_id SET DEFAULT nextval('pkgdep_pkgdep_id_seq'::regclass);
--
-- Name: pkghead_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE pkghead ALTER COLUMN pkghead_id SET DEFAULT nextval('pkghead_pkghead_id_seq'::regclass);
--
-- Name: pkgitem_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE pkgitem ALTER COLUMN pkgitem_id SET DEFAULT nextval('pkgitem_pkgitem_id_seq'::regclass);
--
-- Name: potype_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE potype ALTER COLUMN potype_id SET DEFAULT nextval('potype_potype_id_seq'::regclass);
--
-- Name: prftcntr_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE prftcntr ALTER COLUMN prftcntr_id SET DEFAULT nextval('prftcntr_prftcntr_id_seq'::regclass);
--
-- Name: prj_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE prj ALTER COLUMN prj_id SET DEFAULT nextval('prj_prj_id_seq'::regclass);
--
-- Name: prjtask_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE prjtask ALTER COLUMN prjtask_id SET DEFAULT nextval('prjtask_prjtask_id_seq'::regclass);
--
-- Name: prjtaskuser_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE prjtaskuser ALTER COLUMN prjtaskuser_id SET DEFAULT nextval('prjtaskuser_prjtaskuser_id_seq'::regclass);
--
-- Name: qryhead_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE qryhead ALTER COLUMN qryhead_id SET DEFAULT nextval('qryhead_qryhead_id_seq'::regclass);
--
-- Name: qryitem_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE qryitem ALTER COLUMN qryitem_id SET DEFAULT nextval('qryitem_qryitem_id_seq'::regclass);
--
-- Name: recur_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE recur ALTER COLUMN recur_id SET DEFAULT nextval('recur_recur_id_seq'::regclass);
--
-- Name: recurtype_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE recurtype ALTER COLUMN recurtype_id SET DEFAULT nextval('recurtype_recurtype_id_seq'::regclass);
--
-- Name: recv_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE recv ALTER COLUMN recv_id SET DEFAULT nextval('recv_recv_id_seq'::regclass);
--
-- Name: rsncode_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE rsncode ALTER COLUMN rsncode_id SET DEFAULT nextval('rsncode_rsncode_id_seq'::regclass);
--
-- Name: salescat_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE salescat ALTER COLUMN salescat_id SET DEFAULT nextval('salescat_salescat_id_seq'::regclass);
--
-- Name: saletype_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE saletype ALTER COLUMN saletype_id SET DEFAULT nextval('saletype_saletype_id_seq'::regclass);
--
-- Name: schemaord_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE schemaord ALTER COLUMN schemaord_id SET DEFAULT nextval('schemaord_schemaord_id_seq'::regclass);
--
-- Name: shift_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE shift ALTER COLUMN shift_id SET DEFAULT nextval('shift_shift_id_seq'::regclass);
--
-- Name: shipchrg_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE shipchrg ALTER COLUMN shipchrg_id SET DEFAULT nextval('shipchrg_shipchrg_id_seq'::regclass);
--
-- Name: shiphead_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE shiphead ALTER COLUMN shiphead_id SET DEFAULT nextval('shiphead_shiphead_id_seq'::regclass);
--
-- Name: shipitem_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE shipitem ALTER COLUMN shipitem_id SET DEFAULT nextval('shipitem_shipitem_id_seq'::regclass);
--
-- Name: sitetype_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE sitetype ALTER COLUMN sitetype_id SET DEFAULT nextval('sitetype_sitetype_id_seq'::regclass);
--
-- Name: source_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE source ALTER COLUMN source_id SET DEFAULT nextval('source_source_id_seq'::regclass);
--
-- Name: state_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE state ALTER COLUMN state_id SET DEFAULT nextval('state_state_id_seq'::regclass);
--
-- Name: status_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE status ALTER COLUMN status_id SET DEFAULT nextval('status_status_id_seq'::regclass);
--
-- Name: stdjrnl_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE stdjrnl ALTER COLUMN stdjrnl_id SET DEFAULT nextval('stdjrnl_stdjrnl_id_seq'::regclass);
--
-- Name: stdjrnlgrp_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE stdjrnlgrp ALTER COLUMN stdjrnlgrp_id SET DEFAULT nextval('stdjrnlgrp_stdjrnlgrp_id_seq'::regclass);
--
-- Name: stdjrnlgrpitem_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE stdjrnlgrpitem ALTER COLUMN stdjrnlgrpitem_id SET DEFAULT nextval('stdjrnlgrpitem_stdjrnlgrpitem_id_seq'::regclass);
--
-- Name: stdjrnlitem_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE stdjrnlitem ALTER COLUMN stdjrnlitem_id SET DEFAULT nextval('stdjrnlitem_stdjrnlitem_id_seq'::regclass);
--
-- Name: subaccnt_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE subaccnt ALTER COLUMN subaccnt_id SET DEFAULT nextval('subaccnt_subaccnt_id_seq'::regclass);
--
-- Name: subaccnttype_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE subaccnttype ALTER COLUMN subaccnttype_id SET DEFAULT nextval('subaccnttype_subaccnttype_id_seq'::regclass);
--
-- Name: taxass_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE taxass ALTER COLUMN taxass_id SET DEFAULT nextval('taxass_taxass_id_seq'::regclass);
--
-- Name: taxauth_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE taxauth ALTER COLUMN taxauth_id SET DEFAULT nextval('taxauth_taxauth_id_seq'::regclass);
--
-- Name: taxclass_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE taxclass ALTER COLUMN taxclass_id SET DEFAULT nextval('taxclass_taxclass_id_seq'::regclass);
--
-- Name: taxhist_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE taxhist ALTER COLUMN taxhist_id SET DEFAULT nextval('taxhist_taxhist_id_seq'::regclass);
--
-- Name: taxrate_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE taxrate ALTER COLUMN taxrate_id SET DEFAULT nextval('taxrate_taxrate_id_seq'::regclass);
--
-- Name: taxreg_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE taxreg ALTER COLUMN taxreg_id SET DEFAULT nextval('taxreg_taxreg_id_seq'::regclass);
--
-- Name: taxtype_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE taxtype ALTER COLUMN taxtype_id SET DEFAULT nextval('taxtype_taxtype_id_seq'::regclass);
--
-- Name: taxzone_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE taxzone ALTER COLUMN taxzone_id SET DEFAULT nextval('taxzone_taxzone_id_seq'::regclass);
--
-- Name: todoitem_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE todoitem ALTER COLUMN todoitem_id SET DEFAULT nextval('todoitem_todoitem_id_seq'::regclass);
--
-- Name: trialbal_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE trialbal ALTER COLUMN trialbal_id SET DEFAULT nextval('trialbal_trialbal_id_seq'::regclass);
--
-- Name: uom_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE uom ALTER COLUMN uom_id SET DEFAULT nextval('uom_uom_id_seq'::regclass);
--
-- Name: uomconv_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE uomconv ALTER COLUMN uomconv_id SET DEFAULT nextval('uomconv_uomconv_id_seq'::regclass);
--
-- Name: uomtype_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE uomtype ALTER COLUMN uomtype_id SET DEFAULT nextval('uomtype_uomtype_id_seq'::regclass);
--
-- Name: url_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE urlinfo ALTER COLUMN url_id SET DEFAULT nextval('urlinfo_url_id_seq'::regclass);
--
-- Name: usrgrp_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE usrgrp ALTER COLUMN usrgrp_id SET DEFAULT nextval('usrgrp_usrgrp_id_seq'::regclass);
--
-- Name: vendtype_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE vendtype ALTER COLUMN vendtype_id SET DEFAULT nextval('vendtype_vendtype_id_seq'::regclass);
--
-- Name: whsezone_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE whsezone ALTER COLUMN whsezone_id SET DEFAULT nextval('whsezone_whsezone_id_seq'::regclass);
--
-- Name: womatlpost_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE womatlpost ALTER COLUMN womatlpost_id SET DEFAULT nextval('womatlpost_womatlpost_id_seq'::regclass);
--
-- Name: xsltmap_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE xsltmap ALTER COLUMN xsltmap_id SET DEFAULT nextval('xsltmap_xsltmap_id_seq'::regclass);
--
-- Name: yearperiod_id; Type: DEFAULT; Schema: public; Owner: admin
--
ALTER TABLE yearperiod ALTER COLUMN yearperiod_id SET DEFAULT nextval('yearperiod_yearperiod_id_seq'::regclass);
SET search_path = te, pg_catalog;
--
-- Name: tecustrate_id; Type: DEFAULT; Schema: te; Owner: admin
--
ALTER TABLE tecustrate ALTER COLUMN tecustrate_id SET DEFAULT nextval('tecustrate_tecustrate_id_seq'::regclass);
--
-- Name: teemp_id; Type: DEFAULT; Schema: te; Owner: admin
--
ALTER TABLE teemp ALTER COLUMN teemp_id SET DEFAULT nextval('teemp_teemp_id_seq'::regclass);
--
-- Name: tehead_id; Type: DEFAULT; Schema: te; Owner: admin
--
ALTER TABLE tehead ALTER COLUMN tehead_id SET DEFAULT nextval('tehead_tehead_id_seq'::regclass);
--
-- Name: teitem_id; Type: DEFAULT; Schema: te; Owner: admin
--
ALTER TABLE teitem ALTER COLUMN teitem_id SET DEFAULT nextval('teitem_teitem_id_seq'::regclass);
--
-- Name: teprj_id; Type: DEFAULT; Schema: te; Owner: admin
--
ALTER TABLE teprj ALTER COLUMN teprj_id SET DEFAULT nextval('teprj_teprj_id_seq'::regclass);
--
-- Name: teprjtask_id; Type: DEFAULT; Schema: te; Owner: admin
--
ALTER TABLE teprjtask ALTER COLUMN teprjtask_id SET DEFAULT nextval('teprjtask_teprjtask_id_seq'::regclass);
SET search_path = fixcountry, pg_catalog;
--
-- Data for Name: pkgcmd; Type: TABLE DATA; Schema: fixcountry; Owner: admin
--
COPY pkgcmd (cmd_id, cmd_module, cmd_title, cmd_descrip, cmd_privname, cmd_executable, cmd_name) FROM stdin;
\.
--
-- Data for Name: pkgcmdarg; Type: TABLE DATA; Schema: fixcountry; Owner: admin
--
COPY pkgcmdarg (cmdarg_id, cmdarg_cmd_id, cmdarg_order, cmdarg_arg) FROM stdin;
\.
--
-- Data for Name: pkgimage; Type: TABLE DATA; Schema: fixcountry; Owner: admin
--
COPY pkgimage (image_id, image_name, image_descrip, image_data) FROM stdin;
\.
--
-- Data for Name: pkgmetasql; Type: TABLE DATA; Schema: fixcountry; Owner: admin
--
COPY pkgmetasql (metasql_id, metasql_group, metasql_name, metasql_notes, metasql_query, metasql_lastuser, metasql_lastupdate, metasql_grade) FROM stdin;
449 fixcountry strictcountrycheck select details about countries used throughout the database that do not match country.country_name a copy of crm_strictcountrycheck to avoid problems later if someone disables or removes the fixCountry package -- Group: fixcountry\n-- Name: strictcountrycheck\n-- Notes: select details about countries used throughout the database\n-- that do not match country.country_name\n-- a copy of crm_strictcountrycheck to avoid problems later if\n-- someone disables or removes the fixCountry package\n\nSELECT SUM(counter) AS counter FROM (\n\n SELECT COUNT(*) AS counter\n addr_id, 'Address' AS type, addr_number AS number, addr_country AS country, '' AS detail\n \n FROM addr\n WHERE addr_country != ''\n AND addr_country NOT IN (SELECT country_name\n FROM country\n WHERE country_name IS NOT NULL)\n UNION ALL\n SELECT COUNT(*)\n cmhead_id, 'Credit Memo', cmhead_number, cmhead_billtocountry, 'Bill-To'\n \n FROM cmhead\n WHERE cmhead_billtocountry != ''\n AND cmhead_billtocountry NOT IN (SELECT country_name\n FROM country\n WHERE country_name IS NOT NULL)\n AND (NOT cmhead_posted) \n UNION ALL\n SELECT COUNT(*)\n cmhead_id, 'Credit Memo', cmhead_number, cmhead_billtocountry, 'Ship-To'\n \n FROM cmhead\n WHERE cmhead_shipto_country != ''\n AND cmhead_shipto_country NOT IN (SELECT country_name\n FROM country\n WHERE country_name IS NOT NULL)\n AND (NOT cmhead_posted) \n UNION ALL\n SELECT COUNT(*)\n invchead_id, 'Invoice', invchead_invcnumber, invchead_billto_country, 'Bill-To'\n \n FROM invchead\n WHERE invchead_billto_country != ''\n AND invchead_billto_country NOT IN (SELECT country_name\n FROM country\n WHERE country_name IS NOT NULL)\n AND (NOT invchead_posted) \n UNION ALL\n SELECT COUNT(*)\n invchead_id, 'Invoice', invchead_invcnumber, invchead_shipto_country, 'Ship-To'\n \n FROM invchead\n WHERE invchead_shipto_country != ''\n AND invchead_shipto_country NOT IN (SELECT country_name\n FROM country\n WHERE country_name IS NOT NULL)\n AND (NOT invchead_posted) \n UNION ALL\n SELECT COUNT(*)\n quhead_id, 'Quote', CAST(quhead_number AS TEXT), quhead_billtocountry, 'Bill-To'\n \n FROM quhead\n WHERE quhead_billtocountry != ''\n AND quhead_billtocountry NOT IN (SELECT country_name\n FROM country\n WHERE country_name IS NOT NULL)\n AND (quhead_expire>=CURRENT_DATE) \n UNION ALL\n SELECT COUNT(*)\n quhead_id, 'Quote', CAST(quhead_number AS TEXT), quhead_shiptocountry, 'Ship-To'\n \n FROM quhead\n WHERE quhead_shiptocountry != ''\n AND quhead_shiptocountry NOT IN (SELECT country_name\n FROM country\n WHERE country_name IS NOT NULL)\n AND (quhead_expire>=CURRENT_DATE) \n UNION ALL\n SELECT COUNT(*)\n cohead_id, 'Sales Order', cohead_number, cohead_billtocountry, 'Bill-To'\n \n FROM cohead\n WHERE cohead_billtocountry != ''\n AND cohead_billtocountry NOT IN (SELECT country_name\n FROM country\n WHERE country_name IS NOT NULL)\n \n AND cohead_id IN (SELECT coitem_cohead_id\n FROM coitem\n WHERE COALESCE(coitem_status, 'O')='O')\n \n UNION ALL\n SELECT COUNT(*)\n cohead_id, 'Sales Order', cohead_number, cohead_shiptocountry, 'Ship-To'\n \n FROM cohead\n WHERE cohead_shiptocountry != ''\n AND cohead_shiptocountry NOT IN (SELECT country_name\n FROM country\n WHERE country_name IS NOT NULL)\n \n AND cohead_id IN (SELECT coitem_cohead_id\n FROM coitem\n WHERE COALESCE(coitem_status, 'O')='O')\n \n\n\n) AS dummy;\n\n \N \N 0
\.
--
-- Data for Name: pkgpriv; Type: TABLE DATA; Schema: fixcountry; Owner: admin
--
COPY pkgpriv (priv_id, priv_module, priv_name, priv_descrip, priv_seq) FROM stdin;
\.
--
-- Data for Name: pkgreport; Type: TABLE DATA; Schema: fixcountry; Owner: admin
--
COPY pkgreport (report_id, report_name, report_sys, report_source, report_descrip, report_grade, report_loaddate) FROM stdin;
\.
--
-- Data for Name: pkgscript; Type: TABLE DATA; Schema: fixcountry; Owner: admin
--
COPY pkgscript (script_id, script_name, script_order, script_enabled, script_source, script_notes) FROM stdin;
124 initMenu 0 t function sFixCountries()\n{\n try {\n var newdlg = toolbox.openWindow("fixCountries", 0, Qt.Window, Qt.NonModal);\n } catch(e) { print("sFixCountries exception: " + e); }\n}\n\nvar _crmutilsmenu = mainwindow.findChild("menu.crm.utilities");\nvar fixCountriesAction = _crmutilsmenu.addAction(\n qsTr("Fix Countries before setting Strict Countries option"));\nfixCountriesAction.enabled = privileges.value("MaintainAddresses") &&\n privileges.value("MaintainCreditMemos") &&\n privileges.value("MaintainMiscInvoices")&&\n privileges.value("MaintainSalesOrders") &&\n privileges.value("MaintainQuotes");\n\nfixCountriesAction.triggered.connect(sFixCountries);\n
125 fixCountries 0 t var _addCountry = mywindow.findChild("_addCountry");\nvar _edit = mywindow.findChild("_edit");\nvar _fixAbbr = mywindow.findChild("_fixAbbr");\nvar _fixBulk = mywindow.findChild("_fixBulk");\nvar _fixCase = mywindow.findChild("_fixCase");\nvar _list = mywindow.findChild("_list");\nvar _query = mywindow.findChild("_query");\nvar _showAll = mywindow.findChild("_showAll");\n\n_list.addColumn("Record Type", -1, Qt.AlignLeft, true, "type");\n_list.addColumn("Number", -1, Qt.AlignLeft, true, "number");\n_list.addColumn("Country", -1, Qt.AlignLeft, true, "country");\n_list.addColumn("Details", -1, Qt.AlignLeft, true, "detail");\n\nfunction sAddCountry()\n{\n try {\n var params = new Object;;\n params.mode = "new";\n\n var newdlg = toolbox.openWindow("country", mywindow, Qt.Dialog, Qt.WindowModal);\n toolbox.lastWindow().set(params);\n newdlg.exec();\n } catch (e) { print("sAddCountry exception: " + e); }\n}\n\nfunction openEditorWindow(pwindow, pidname, pparent)\n{\n try {\n var params = new Object;\n params[pidname] = _list.id();\n if (pidname == 'quhead_id')\n params.mode = "editQuote";\n else\n params.mode = "edit";\n\n var newdlg = toolbox.openWindow(pwindow, pparent, Qt.Dialog, Qt.WindowModal);\n toolbox.lastWindow().set(params);\n newdlg.exec();\n } catch(e) { print("openEditorWindow exception (" + e.lineNumber + "): " + e); }\n}\n\nfunction sEdit()\n{\n try {\n var currentItem = _list.currentItem();\n\n switch (currentItem.text(0))\n {\n case 'Address':\n openEditorWindow("address", "addr_id", mywindow);\n break;\n\n case 'Credit Memo':\n openEditorWindow("creditMemo", "cmhead_id", 0);\n break;\n\n case 'Invoice':\n openEditorWindow("invoice", "invchead_id", mywindow);\n break;\n\n case 'Quote':\n openEditorWindow("salesOrder", "quhead_id", 0);\n break;\n\n case 'Sales Order':\n openEditorWindow("salesOrder", "sohead_id", 0);\n break;\n }\n sFillList();\n } catch (e) { print("sEdit() exception: " + e); }\n}\n\nfunction sFixBulk()\n{\n print("sFixBulk() entered");\n try {\n var params = new Object;\n if (_showAll.checked)\n params.showAll = true;\n\n var newdlg = toolbox.openWindow("bulkFixCountry", mywindow,\n Qt.WindowModal, Qt.Dialog);\n toolbox.lastWindow().set(params);\n\n sFillList();\n } catch (e) { print("sFixBulk() exception: " + e); }\n}\n\nfunction sFixCase()\n{\n try {\n if (QMessageBox.question(mywindow, qsTr("Are you sure?"),\n qsTr("
Are you sure that you want to change all "\n + "countries that appear to be correct except "\n + "for upper- and lower-case differences in a "\n + "batch?
(This change will obey the status "\n + "of the 'Show closed records' check box."),\n QMessageBox.Yes, QMessageBox.No) == QMessageBox.No)\n return;\n\n var params = new Object;\n if (_showAll.checked)\n params.showAll = true;\n\n var qry = toolbox.executeQuery(\n "UPDATE addr SET addr_country = country_name"\n + " FROM country "\n + " WHERE addr_country != ''"\n + " AND UPPER(addr_country) = UPPER(country_name)"\n + " AND addr_country != country_name;", params);\n if (qry.lastError().type != 0)\n throw new Error("Error updating Address: " + qry.lastError().text);\n\n qry = toolbox.executeQuery(\n "UPDATE cmhead SET cmhead_billtocountry = country_name"\n + " FROM country "\n + " WHERE cmhead_billtocountry != ''"\n + " AND UPPER(cmhead_billtocountry) = UPPER(country_name)"\n + " AND cmhead_billtocountry != country_name"\n + ' '\n + " AND NOT cmhead_posted"\n + " ", params);\n if (qry.lastError().type != 0)\n throw new Error("Error updating Credit Memo (Bill-To): " + qry.lastError().text);\n\n qry = toolbox.executeQuery(\n "UPDATE cmhead SET cmhead_shipto_country = country_name"\n + " FROM country "\n + " WHERE cmhead_shipto_country != ''"\n + " AND UPPER(cmhead_shipto_country) = UPPER(country_name)"\n + " AND cmhead_shipto_country != country_name"\n + ' '\n + " AND NOT cmhead_posted"\n + " ", params);\n if (qry.lastError().type != 0)\n throw new Error("Error updating Credit Memo (Ship-To): " + qry.lastError().text);\n\n qry = toolbox.executeQuery(\n "UPDATE invchead SET invchead_billto_country = country_name"\n + " FROM country "\n + " WHERE invchead_billto_country != ''"\n + " AND UPPER(invchead_billto_country) = UPPER(country_name)"\n + " AND invchead_billto_country != country_name"\n + ' '\n + " AND NOT invchead_posted"\n + " ", params);\n if (qry.lastError().type != 0)\n throw new Error("Error updating Invoice (Bill-To): " + qry.lastError().text);\n\n qry = toolbox.executeQuery(\n "UPDATE invchead SET invchead_shipto_country = country_name"\n + " FROM country "\n + " WHERE invchead_shipto_country != ''"\n + " AND UPPER(invchead_shipto_country) = UPPER(country_name)"\n + " AND invchead_shipto_country != country_name"\n + ' '\n + " AND NOT invchead_posted"\n + " ", params);\n if (qry.lastError().type != 0)\n throw new Error("Error updating Invoice (Ship-To): " + qry.lastError().text);\n\n qry = toolbox.executeQuery(\n "UPDATE quhead SET quhead_billtocountry = country_name"\n + " FROM country"\n + " WHERE quhead_billtocountry != ''"\n + " AND UPPER(quhead_billtocountry) = UPPER(country_name)"\n + " AND quhead_billtocountry != country_name"\n + ' '\n + " AND quhead_expire >= CURRENT_DATE"\n + " ", params);\n if (qry.lastError().type != 0)\n throw new Error("Error updating Quote (Bill-To): " + qry.lastError().text);\n\n qry = toolbox.executeQuery(\n "UPDATE quhead SET quhead_shiptocountry = country_name"\n + " FROM country"\n + " WHERE quhead_shiptocountry != ''"\n + " AND UPPER(quhead_shiptocountry) = UPPER(country_name)"\n + " AND quhead_shiptocountry != country_name"\n + ' '\n + " AND quhead_expire >= CURRENT_DATE"\n + " ", params);\n if (qry.lastError().type != 0)\n throw new Error("Error updating Quote (Ship-To): " + qry.lastError().text);\n\n qry = toolbox.executeQuery(\n "UPDATE cohead SET cohead_billtocountry = country_name"\n + ' FROM country , coitem'\n + " WHERE cohead_billtocountry != ''"\n + " AND UPPER(cohead_billtocountry) = UPPER(country_name)"\n + " AND cohead_billtocountry != country_name"\n + ' '\n + " AND cohead_id=coitem_cohead_id AND COALESCE(coitem_status, 'O')='O'"\n + " ", params);\n if (qry.lastError().type != 0)\n throw new Error("Error updating Sales Order (Bill-To): " + qry.lastError().text);\n\n qry = toolbox.executeQuery(\n "UPDATE cohead SET cohead_shiptocountry = country_name"\n + ' FROM country , coitem'\n + " WHERE cohead_shiptocountry != ''"\n + " AND UPPER(cohead_shiptocountry) = UPPER(country_name)"\n + " AND cohead_shiptocountry != country_name"\n + ' '\n + " AND cohead_id=coitem_cohead_id AND COALESCE(coitem_status, 'O')='O'"\n + " ", params);\n if (qry.lastError().type != 0)\n throw new Error("Error updating Sales Order (Ship-To): " + qry.lastError().text);\n\n } catch (e) { QMessageBox.critical(mywindow, "sFixCase() exception", e); }\n\n sFillList();\n}\n\nfunction sFixAbbr()\n{\n try {\n if (QMessageBox.question(mywindow, qsTr("Are you sure?"),\n qsTr("
Are you sure that you want to replace all "\n + "country abbreviations to the corresponding "\n + "full country names?
(This change will obey "\n + "the status of the 'Show closed records' "\n + "check box."),\n QMessageBox.Yes, QMessageBox.No) == QMessageBox.No)\n return;\n\n var params = new Object;\n if (_showAll.checked)\n params.showAll = true;\n\n var qry = toolbox.executeQuery(\n "UPDATE addr SET addr_country = country_name"\n + " FROM country "\n + " WHERE addr_country != ''"\n + " AND UPPER(addr_country) = UPPER(country_abbr);", params);\n if (qry.lastError().type != 0)\n throw new Error("Error updating Address: " + qry.lastError().text);\n\n qry = toolbox.executeQuery(\n "UPDATE cmhead SET cmhead_billtocountry = country_name"\n + " FROM country "\n + " WHERE cmhead_billtocountry != ''"\n + " AND UPPER(cmhead_billtocountry) = UPPER(country_abbr)"\n + ' '\n + " AND NOT cmhead_posted"\n + " ", params);\n if (qry.lastError().type != 0)\n throw new Error("Error updating Credit Memo (Bill-To): " + qry.lastError().text);\n\n qry = toolbox.executeQuery(\n "UPDATE cmhead SET cmhead_shipto_country = country_name"\n + " FROM country "\n + " WHERE cmhead_shipto_country != ''"\n + " AND UPPER(cmhead_shipto_country) = UPPER(country_abbr)"\n + ' '\n + " AND NOT cmhead_posted"\n + " ", params);\n if (qry.lastError().type != 0)\n throw new Error("Error updating Credit Memo (Ship-To): " + qry.lastError().text);\n\n qry = toolbox.executeQuery(\n "UPDATE invchead SET invchead_billto_country = country_name"\n + " FROM country "\n + " WHERE invchead_billto_country != ''"\n + " AND UPPER(invchead_billto_country) = UPPER(country_abbr)"\n + ' '\n + " AND NOT invchead_posted"\n + " ", params);\n if (qry.lastError().type != 0)\n throw new Error("Error updating Invoice (Bill-To): " + qry.lastError().text);\n\n qry = toolbox.executeQuery(\n "UPDATE invchead SET invchead_shipto_country = country_name"\n + " FROM country "\n + " WHERE invchead_shipto_country != ''"\n + " AND UPPER(invchead_shipto_country) = UPPER(country_abbr)"\n + ' '\n + " AND NOT invchead_posted"\n + " ", params);\n if (qry.lastError().type != 0)\n throw new Error("Error updating Invoice (Ship-To): " + qry.lastError().text);\n\n qry = toolbox.executeQuery(\n "UPDATE quhead SET quhead_billtocountry = country_name"\n + " FROM country"\n + " WHERE quhead_billtocountry != ''"\n + " AND UPPER(quhead_billtocountry) = UPPER(country_abbr)"\n + ' '\n + " AND quhead_expire >= CURRENT_DATE"\n + " ", params);\n if (qry.lastError().type != 0)\n throw new Error("Error updating Quote (Bill-To): " + qry.lastError().text);\n\n qry = toolbox.executeQuery(\n "UPDATE quhead SET quhead_shiptocountry = country_name"\n + " FROM country"\n + " WHERE quhead_shiptocountry != ''"\n + " AND UPPER(quhead_shiptocountry) = UPPER(country_abbr)"\n + ' '\n + " AND quhead_expire >= CURRENT_DATE"\n + " ", params);\n if (qry.lastError().type != 0)\n throw new Error("Error updating Quote (Ship-To): " + qry.lastError().text);\n\n qry = toolbox.executeQuery(\n "UPDATE cohead SET cohead_billtocountry = country_name"\n + ' FROM country , coitem'\n + " WHERE cohead_billtocountry != ''"\n + " AND UPPER(cohead_billtocountry) = UPPER(country_abbr)"\n + ' '\n + " AND cohead_id=coitem_cohead_id AND COALESCE(coitem_status, 'O')='O'"\n + " ", params);\n if (qry.lastError().type != 0)\n throw new Error("Error updating Sales Order (Bill-To): " + qry.lastError().text);\n\n qry = toolbox.executeQuery(\n "UPDATE cohead SET cohead_shiptocountry = country_name"\n + ' FROM country , coitem'\n + " WHERE cohead_shiptocountry != ''"\n + " AND UPPER(cohead_shiptocountry) = UPPER(country_abbr)"\n + ' '\n + " AND cohead_id=coitem_cohead_id AND COALESCE(coitem_status, 'O')='O'"\n + " ", params);\n if (qry.lastError().type != 0)\n throw new Error("Error updating Sales Order (Ship-To): " + qry.lastError().text);\n\n } catch (e)\n {\n QMessageBox.critical(mywindow, "sFixAbbr() exception", e);\n }\n sFillList();\n}\n\nfunction sFillList()\n{\n try {\n var params = new Object;\n if (_showAll.checked)\n params.showAll = true;\n\n var qry = toolbox.executeDbQuery('fixcountry', 'strictcountrycheck', params);\n _list.populate(qry);\n if (qry.lastError().type != 0)\n {\n QMessageBox.critical(mywindow, qsTr("Database Error"),\n qry.lastError().text);\n return;\n }\n } catch (e) { print("sFillList exception: " + e); }\n}\n\n_addCountry.clicked.connect(sAddCountry);\n_edit.clicked.connect(sEdit);\n_fixAbbr.clicked.connect(sFixAbbr);\n_fixBulk.clicked.connect(sFixBulk);\n_fixCase.clicked.connect(sFixCase);\n_query.clicked.connect(sFillList);\n_showAll.toggled.connect(sFillList);\n\nsFillList();\n\nif (QMessageBox.question(mywindow, qsTr("Backed Up?"),\n qsTr("
';\n\n }\n\n // DRAW the date format selector at bottom left. Another potential GanttChart parameter to hide/show this selector\n vLeftTable += '' +\n '