*       *********************************************************
*       *                                                         
*       * 2011.01.25          ACCOUNTING.MPR            11:19:03  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2011 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _34u0o99tn OF _MSYSMENU PROMPT "File Setup" COLOR SCHEME 3 ;
	KEY ALT+F, "" ;
	SKIP FOR AL001 = 0
DEFINE PAD _34u0o99to OF _MSYSMENU PROMPT "Transactions" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _34u0o99tp OF _MSYSMENU PROMPT "Posting" COLOR SCHEME 3 ;
	KEY ALT+P, ""
DEFINE PAD _34u0o99tq OF _MSYSMENU PROMPT "Reports" COLOR SCHEME 3 ;
	KEY ALT+R, ""
DEFINE PAD _34u0o99tr OF _MSYSMENU PROMPT "Utilities" COLOR SCHEME 3 ;
	KEY ALT+U, ""
DEFINE PAD _34u0o99ts OF _MSYSMENU PROMPT "System Configuration" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _34u0o99tt OF _MSYSMENU PROMPT "Log Off" COLOR SCHEME 3 ;
	KEY ALT+L, ""
DEFINE PAD _34u0o99tu OF _MSYSMENU PROMPT "Help" COLOR SCHEME 3 ;
	KEY ALT+H, ""
DEFINE PAD _34u0o99tv OF _MSYSMENU PROMPT "Quit" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
ON PAD _34u0o99tn OF _MSYSMENU ACTIVATE POPUP filesetup
ON PAD _34u0o99to OF _MSYSMENU ACTIVATE POPUP transactio
ON PAD _34u0o99tp OF _MSYSMENU ACTIVATE POPUP posting
ON PAD _34u0o99tq OF _MSYSMENU ACTIVATE POPUP reports
ON PAD _34u0o99tr OF _MSYSMENU ACTIVATE POPUP utilities
ON PAD _34u0o99ts OF _MSYSMENU ACTIVATE POPUP systemconf
ON SELECTION PAD _34u0o99tt OF _MSYSMENU DO FORM FORMS\RELOGIN
ON PAD _34u0o99tu OF _MSYSMENU ACTIVATE POPUP help
ON SELECTION PAD _34u0o99tv OF _MSYSMENU ;
	DO _34u0o99tw ;
	IN LOCFILE("ACCOUNTING_SERVER_CLIENT\ACCOUNTING" ,"MPX;MPR|FXP;PRG" ,"WHERE is ACCOUNTING?")

DEFINE POPUP filesetup MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF filesetup PROMPT "\<Chart of Accounts" ;
	SKIP FOR FS001 = 0 ;
	PICTURE "graph\icon\setup.ico"
DEFINE BAR 2 OF filesetup PROMPT "General \<Libraries" ;
	SKIP FOR FS002 = 0
DEFINE BAR 3 OF filesetup PROMPT "\<Group Code" ;
	SKIP FOR AL002 = 0
DEFINE BAR 4 OF filesetup PROMPT "\<Industry" ;
	SKIP FOR FS003 = 0
DEFINE BAR 5 OF filesetup PROMPT "Ca\<tegory Code" ;
	SKIP FOR FS004 = 0
DEFINE BAR 6 OF filesetup PROMPT "\<Beginning Balances" ;
	SKIP FOR AL003 = 0
DEFINE BAR 7 OF filesetup PROMPT "Book \<Template" ;
	SKIP FOR FS005 = 0
DEFINE BAR 8 OF filesetup PROMPT "\<Particulars Template" ;
	SKIP FOR FS006 = 0
DEFINE BAR 9 OF filesetup PROMPT "Ban\<k Codes" ;
	SKIP FOR FS007 = 0
DEFINE BAR 10 OF filesetup PROMPT "\<Transaction Setup" ;
	SKIP FOR AL005 = 0
DEFINE BAR 11 OF filesetup PROMPT "\-"
DEFINE BAR 12 OF filesetup PROMPT "Currency File Setup" ;
	SKIP FOR AL007 = 0
DEFINE BAR 13 OF filesetup PROMPT "Additional File Setup" ;
	SKIP FOR AL008 = 0
DEFINE BAR 14 OF filesetup PROMPT "Tax File Setup" ;
	SKIP FOR AL013 = 0
ON SELECTION BAR 1 OF filesetup DO FORM FORMS\FILESETUP\CHARTOFACCOUNTS
ON SELECTION BAR 2 OF filesetup DO FORM FORMS\GENLIB
ON BAR 3 OF filesetup ACTIVATE POPUP groupcode
ON SELECTION BAR 4 OF filesetup DO FORM FORMS\INDUSTRY
ON SELECTION BAR 5 OF filesetup DO FORM FORMS\CATEGORY
ON BAR 6 OF filesetup ACTIVATE POPUP beginningb
ON SELECTION BAR 7 OF filesetup do form forms\booktemp
ON SELECTION BAR 8 OF filesetup do form forms\partictemp
ON SELECTION BAR 9 OF filesetup do form forms\bank
ON BAR 10 OF filesetup ACTIVATE POPUP newitem
ON BAR 12 OF filesetup ACTIVATE POPUP currencyfi
ON BAR 13 OF filesetup ACTIVATE POPUP additional
ON BAR 14 OF filesetup ACTIVATE POPUP taxfileset

DEFINE POPUP groupcode MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF groupcode PROMPT "Group Code" ;
	SKIP FOR FS008 = 0
DEFINE BAR 2 OF groupcode PROMPT "Group Project Relationship" ;
	SKIP FOR FS009 = 0
ON SELECTION BAR 1 OF groupcode DO FORM FORMS\GROUP
ON SELECTION BAR 2 OF groupcode DO FORM FORMS\OTHERS\GROUPPROJECT

DEFINE POPUP beginningb MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF beginningb PROMPT "\<GL Beginning Balances" ;
	SKIP FOR FS010 = 0
DEFINE BAR 2 OF beginningb PROMPT "Beginning Balances Schedule" ;
	SKIP FOR AL004 = 0
DEFINE BAR 3 OF beginningb PROMPT "Taxes Beginning Balances" ;
	SKIP FOR AL006 = 0
DEFINE BAR 4 OF beginningb PROMPT "\<Fixed Asset Beginning Balance" ;
	SKIP FOR FS011 = 0
DEFINE BAR 5 OF beginningb PROMPT "Prepayment Lapsing \<Beginning Balance" ;
	SKIP FOR FS012 = 0
DEFINE BAR 6 OF beginningb PROMPT "\-"
DEFINE BAR 7 OF beginningb PROMPT "Bank Recon Beginning Balance (DIT / OC)" ;
	SKIP FOR FS013 = 0
DEFINE BAR 8 OF beginningb PROMPT "Bank Recon Beginning Balance Per Currency (DIT / OC)" ;
	SKIP FOR FS013 = 0
DEFINE BAR 9 OF beginningb PROMPT "\-"
DEFINE BAR 10 OF beginningb PROMPT "Bank Recon and Cash Position Beginning Balance ( Per Book Amount)" ;
	SKIP FOR FS014 = 0
ON SELECTION BAR 1 OF beginningb DO FORM FORMS\FILESETUP\GLBEGINNINGBALANCE
ON BAR 2 OF beginningb ACTIVATE POPUP _2ec0o6ra7
ON BAR 3 OF beginningb ACTIVATE POPUP taxesbegin
ON SELECTION BAR 4 OF beginningb do form forms\begbalsetup\fixassetbeg
ON SELECTION BAR 5 OF beginningb do form forms\begbalsetup\prepaidbeg
ON SELECTION BAR 7 OF beginningb do form forms\bankreconbegbal
ON SELECTION BAR 8 OF beginningb do form forms\bankreconbegbalpercurr
ON SELECTION BAR 10 OF beginningb do form forms\filesetup\bankbegreconandcashpo

DEFINE POPUP _2ec0o6ra7 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _2ec0o6ra7 PROMPT "A\<R Beginning Balances" ;
	SKIP FOR FS015 = 0
DEFINE BAR 2 OF _2ec0o6ra7 PROMPT "A\<P Beginning Balances" ;
	SKIP FOR FS016 = 0
DEFINE BAR 3 OF _2ec0o6ra7 PROMPT "\<Other Account Beginning Balances"
ON SELECTION BAR 1 OF _2ec0o6ra7 DO FORM FORMS\BEGBALSETUP\ARBEGBAL
ON SELECTION BAR 2 OF _2ec0o6ra7 DO FORM FORMS\BEGBALSETUP\APBEGBAL
ON BAR 3 OF _2ec0o6ra7 ACTIVATE POPUP _2ec0ob3a9

DEFINE POPUP _2ec0ob3a9 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _2ec0ob3a9 PROMPT "Asset and \<Expense Type" ;
	SKIP FOR FS017 = 0
DEFINE BAR 2 OF _2ec0ob3a9 PROMPT "\<Liabilities, Income and Capital Type" ;
	SKIP FOR FS018 = 0
ON SELECTION BAR 1 OF _2ec0ob3a9 do form forms\begbalsetup\othracctlaebegbal
ON SELECTION BAR 2 OF _2ec0ob3a9 do form forms\begbalsetup\othracctlicbegbal

DEFINE POPUP taxesbegin MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF taxesbegin PROMPT "Final Tax Beginning Balance" ;
	SKIP FOR FS019 = 0
DEFINE BAR 2 OF taxesbegin PROMPT "Expanded Withholding Tax Beginning Balance" ;
	SKIP FOR FS020 = 0
DEFINE BAR 3 OF taxesbegin PROMPT "Input Vat Beginning Balance" ;
	SKIP FOR FS021 = 0
DEFINE BAR 4 OF taxesbegin PROMPT "Output Vat Beginning Balance" ;
	SKIP FOR FS022 = 0
ON SELECTION BAR 1 OF taxesbegin do form forms\begbalsetup\finaltaxbegbal
ON SELECTION BAR 2 OF taxesbegin do form forms\begbalsetup\expandedbegbal
ON SELECTION BAR 3 OF taxesbegin do form forms\begbalsetup\inputbeg
ON SELECTION BAR 4 OF taxesbegin do form forms\begbalsetup\outputbeg

DEFINE POPUP newitem MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF newitem PROMPT "\<Invoice Entry Setup" ;
	SKIP FOR FS023 = 0
DEFINE BAR 2 OF newitem PROMPT "\<Official Receipt Entry Setup" ;
	SKIP FOR FS024 = 0
DEFINE BAR 3 OF newitem PROMPT "\<Check Voucher Entry Setup" ;
	SKIP FOR FS025 = 0
DEFINE BAR 4 OF newitem PROMPT "\<Account Payable Entry Setup" ;
	SKIP FOR FS026 = 0
DEFINE BAR 5 OF newitem PROMPT "\-"
DEFINE BAR 6 OF newitem PROMPT "\<Budget Setup" ;
	SKIP FOR FS027 = 0
DEFINE BAR 7 OF newitem PROMPT "\<Payroll Automatic Entry Setup" ;
	SKIP FOR FS028 = 0
ON SELECTION BAR 1 OF newitem DO FORM FORMS\IBVOUCH\VOUCHERIBSETUP
ON SELECTION BAR 2 OF newitem DO FORM FORMS\ORSETUP
ON SELECTION BAR 3 OF newitem DO FORM FORMS\CVSETUP
ON SELECTION BAR 4 OF newitem DO FORM FORMS\APVOUCH\VOUCHERAPAUTOSETUP
ON SELECTION BAR 6 OF newitem DO FORM FORMS\BUDGET
ON SELECTION BAR 7 OF newitem DO FORM FORMS\PAYROLLENTRY

DEFINE POPUP currencyfi MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF currencyfi PROMPT "Currency Setup" ;
	SKIP FOR FS029 = 0
DEFINE BAR 2 OF currencyfi PROMPT "Currency Rate Setup" ;
	SKIP FOR FS030 = 0
ON SELECTION BAR 1 OF currencyfi do form forms\currency
ON SELECTION BAR 2 OF currencyfi do form forms\currencyrate

DEFINE POPUP additional MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF additional PROMPT "Setup For Customized Invoice" ;
	SKIP FOR AL009 = 0
DEFINE BAR 2 OF additional PROMPT "Project Code Setup" ;
	SKIP FOR FS040 = 0 OR (PROJDEPT = 0 OR PROJDEPT = 2)
DEFINE BAR 3 OF additional PROMPT "Department Code Setup" ;
	SKIP FOR FS041 = 0 OR (PROJDEPT = 0 OR PROJDEPT = 1)
DEFINE BAR 4 OF additional PROMPT "Allocation Code Setup" ;
	SKIP FOR FS042 = 0
DEFINE BAR 5 OF additional PROMPT "Location Setup ( Fixed Asset and Prepaid)" ;
	SKIP FOR FS043 = 0
DEFINE BAR 6 OF additional PROMPT "Fixed Asset Code Setup" ;
	SKIP FOR FS044 = 0
DEFINE BAR 7 OF additional PROMPT "Prepayment Code Setup" ;
	SKIP FOR FS045 = 0
DEFINE BAR 8 OF additional PROMPT "Cash Flow Account Code Setup" ;
	SKIP FOR FS046 = 0
DEFINE BAR 9 OF additional PROMPT "Account for HisRate" ;
	SKIP FOR FS047 = 0
ON BAR 1 OF additional ACTIVATE POPUP setupforcu
ON SELECTION BAR 2 OF additional do form forms\project
ON SELECTION BAR 3 OF additional do form forms\department
ON SELECTION BAR 4 OF additional do form forms\filesetup\allocation
ON SELECTION BAR 5 OF additional do form forms\location
ON SELECTION BAR 6 OF additional do form forms\setupfixasset
ON SELECTION BAR 7 OF additional do form forms\setupprepayment
ON SELECTION BAR 8 OF additional do form forms\cashflowaccountsetup
ON SELECTION BAR 9 OF additional do form forms\others\setupacctwithfixedrateforfs

DEFINE POPUP setupforcu MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF setupforcu PROMPT "Manufacturing" ;
	SKIP FOR AL010 = 0
DEFINE BAR 2 OF setupforcu PROMPT "Transportation" ;
	SKIP FOR AL011 = 0
DEFINE BAR 3 OF setupforcu PROMPT "Licensing" ;
	SKIP FOR AL012 = 0
ON BAR 1 OF setupforcu ACTIVATE POPUP manufactur
ON BAR 2 OF setupforcu ACTIVATE POPUP transporta
ON BAR 3 OF setupforcu ACTIVATE POPUP shipperset

DEFINE POPUP manufactur MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF manufactur PROMPT "Part Raw Material Setup" ;
	SKIP FOR FS031 = 0
DEFINE BAR 2 OF manufactur PROMPT "Shipper Setup" ;
	SKIP FOR FS032 = 0
DEFINE BAR 3 OF manufactur PROMPT "Part Category Setup" ;
	SKIP FOR FS033 = 0
DEFINE BAR 4 OF manufactur PROMPT "Part Number Setup" ;
	SKIP FOR FS034 = 0
DEFINE BAR 5 OF manufactur PROMPT "Entry Per General Libraries"
ON SELECTION BAR 1 OF manufactur do form forms\partmaterial
ON SELECTION BAR 2 OF manufactur do form forms\ibvouch\withsalesorder\voucheribshipper
ON SELECTION BAR 3 OF manufactur do form forms\partcat
ON SELECTION BAR 4 OF manufactur do form forms\partno
ON SELECTION BAR 5 OF manufactur do form forms\genagentclientautoentry

DEFINE POPUP transporta MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF transporta PROMPT "Vehicle Setup" ;
	SKIP FOR FS035 = 0
DEFINE BAR 2 OF transporta PROMPT "Job Description Setup" ;
	SKIP FOR FS036 = 0
ON SELECTION BAR 1 OF transporta do form forms\hearsesetup
ON SELECTION BAR 2 OF transporta do form forms\jobdesc

DEFINE POPUP shipperset MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF shipperset PROMPT "List of Articles" ;
	SKIP FOR FS037 = 0
DEFINE BAR 2 OF shipperset PROMPT "List of Principals" ;
	SKIP FOR FS038 = 0
DEFINE BAR 3 OF shipperset PROMPT "List of Territories" ;
	SKIP FOR FS039 = 0
ON SELECTION BAR 1 OF shipperset do form forms\ibvouch\licensing\listofarticles
ON SELECTION BAR 2 OF shipperset do form forms\ibvouch\licensing\listofprincipals
ON SELECTION BAR 3 OF shipperset do form forms\ibvouch\licensing\listofteritorries

DEFINE POPUP taxfileset MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF taxfileset PROMPT "Final Tax Withheld Library" ;
	SKIP FOR FS048 = 0
DEFINE BAR 2 OF taxfileset PROMPT "Expanded Tax Withheld Library" ;
	SKIP FOR FS049 = 0
DEFINE BAR 3 OF taxfileset PROMPT "Input / Output Vat Rate Setup" ;
	SKIP FOR FS050 = 0
ON SELECTION BAR 1 OF taxfileset do form forms\finalinctaxwheldsetup
ON SELECTION BAR 2 OF taxfileset do form forms\expandedtaxwheldsetup
ON SELECTION BAR 3 OF taxfileset do form forms\filesetup\taxratesetup

DEFINE POPUP transactio MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF transactio PROMPT "\<Vouchers/Invoices/ORs" ;
	SKIP FOR AL014 = 0
DEFINE BAR 2 OF transactio PROMPT "\<Journalization" ;
	SKIP FOR TR008 = 0
ON BAR 1 OF transactio ACTIVATE POPUP vouchersin	
USE _accountingdatapath +'INVSETUPHEAD' AGAIN IN 0 ALIAS MYINVSETUPHEAD
SELECT * FROM MYINVSETUPHEAD WHERE INV_TYPE = 8 OR INV_TYPE = 9 OR INV_TYPE = 10 OR INV_TYPE = 12 INTO CURSOR MYINV
SELECT MYINV
GO TOP
IF EOF()&&normal
	USE _accountingdatapath +'LABELVOUCH' AGAIN IN 0 ALIAS LABELVOUCH

	DEFINE POPUP vouchersin MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF vouchersin PROMPT "\<"+LABELVOUCH.IBLABTXT1 ;
		SKIP FOR TR001 = 0
	DEFINE BAR 2 OF vouchersin PROMPT "\<"+LABELVOUCH.CRLABTXT1 ;
		SKIP FOR TR002 = 0
	DEFINE BAR 3 OF vouchersin PROMPT "\<"+LABELVOUCH.CDLABTXT1 ;
		SKIP FOR TR003 = 0
	DEFINE BAR 4 OF vouchersin PROMPT "\<"+LABELVOUCH.JBLABTXT1 ;
		SKIP FOR TR004 = 0
	DEFINE BAR 5 OF vouchersin PROMPT "\<"+LABELVOUCH.APLABTXT1 ;
		SKIP FOR TR005 = 0
	DEFINE BAR 6 OF vouchersin PROMPT "\<"+LABELVOUCH.PCLABTXT1 ;
		SKIP FOR TR006 = 0
	DEFINE BAR 7 OF vouchersin PROMPT "\<"+LABELVOUCH.DCLABTXT1 ;
		SKIP FOR TR007 = 0
	ON SELECTION BAR 1 OF vouchersin DO FORM FORMS\IBVOUCH\VOUCHERIBMAIN
	ON SELECTION BAR 2 OF vouchersin DO FORM FORMS\CRVOUCH\VOUCHERCR
	ON SELECTION BAR 3 OF vouchersin DO FORM FORMS\CVOUCH\VOUCHERCD
	ON SELECTION BAR 4 OF vouchersin DO FORM FORMS\JBVOUCH\VOUCHERJB
	ON SELECTION BAR 5 OF vouchersin DO FORM FORMS\APVOUCH\VOUCHERAP
	ON SELECTION BAR 6 OF vouchersin DO FORM FORMS\PCVOUCH\VOUCHERPC
	ON SELECTION BAR 7 OF vouchersin DO FORM FORMS\DMCM\VOUCHERDC
	SELECT LABELVOUCH
	USE		
ELSE&&customized
	DO CASE
		CASE MYINVSETUPHEAD.INV_TYPE = 8&&PROJECT MANAGEMENT
			USE _accountingdatapath +'LABELVOUCH' AGAIN IN 0 ALIAS LABELVOUCH

			DEFINE POPUP vouchersin MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF vouchersin PROMPT "\<"+LABELVOUCH.IBLABTXT1 ;
				SKIP FOR TR001 = 0
			DEFINE BAR 2 OF vouchersin PROMPT "\<"+LABELVOUCH.CRLABTXT1 ;
				SKIP FOR TR002 = 0
			DEFINE BAR 3 OF vouchersin PROMPT "\<"+LABELVOUCH.CDLABTXT1 ;
				SKIP FOR TR003 = 0
			DEFINE BAR 4 OF vouchersin PROMPT "\<"+LABELVOUCH.JBLABTXT1 ;
				SKIP FOR TR004 = 0
			DEFINE BAR 5 OF vouchersin PROMPT "\<"+LABELVOUCH.APLABTXT1 ;
				SKIP FOR TR005 = 0
			DEFINE BAR 6 OF vouchersin PROMPT "\<"+LABELVOUCH.PCLABTXT1 ;
				SKIP FOR TR006 = 0
			DEFINE BAR 7 OF vouchersin PROMPT "\<"+LABELVOUCH.DCLABTXT1 ;
				SKIP FOR TR007 = 0
			ON BAR 1 OF vouchersin ACTIVATE POPUP ibvouchdet	
			ON SELECTION BAR 2 OF vouchersin DO FORM FORMS\CRVOUCH\VOUCHERCR
			ON SELECTION BAR 3 OF vouchersin DO FORM FORMS\CVOUCH\VOUCHERCD
			ON SELECTION BAR 4 OF vouchersin DO FORM FORMS\JBVOUCH\VOUCHERJB
			ON BAR 5 OF vouchersin ACTIVATE POPUP apvouchdet				
			ON SELECTION BAR 6 OF vouchersin DO FORM FORMS\PCVOUCH\VOUCHERPC
			ON SELECTION BAR 7 OF vouchersin DO FORM FORMS\DMCM\VOUCHERDC
			SELECT LABELVOUCH
			USE		
			DEFINE POPUP ibvouchdet MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF ibvouchdet PROMPT "\<Project Management"
			DEFINE BAR 2 OF ibvouchdet PROMPT "\<Invoicing" 
			DEFINE BAR 3 OF ibvouchdet PROMPT "\<Project Management Report" 
			ON SELECTION BAR 1 OF IBVOUCHDET DO FORM FORMS\IBVOUCH\CONSTRUCTIONS\VOUCHERIBCONSPROJECTMANAGEMENT
			ON SELECTION BAR 2 OF IBVOUCHDET DO FORM FORMS\IBVOUCH\VOUCHERIBMAIN
			ON SELECTION BAR 3 OF IBVOUCHDET DO FORM FORMS\IBVOUCH\CONSTRUCTIONS\VOUCHERIBCONSPRINTING
			DEFINE POPUP apvouchdet MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF apvouchdet PROMPT "\<Sub Contract Management" 
			DEFINE BAR 2 OF apvouchdet PROMPT "\<Accounts Payable"
			DEFINE BAR 3 OF apvouchdet PROMPT "Sub \<Contract Management Report"
			DEFINE BAR 4 OF apvouchdet PROMPT "\<Upload Sub Contract P.O. "
			ON SELECTION BAR 1 OF APVOUCHDET DO FORM FORMS\APVOUCH\CONSTRUCTIONS\VOUCHERAPCONSPROJECTSUBCONTRACT
			ON SELECTION BAR 2 OF APVOUCHDET DO FORM FORMS\APVOUCH\CONSTRUCTIONS\VOUCHERAPCONS
			ON SELECTION BAR 3 OF APVOUCHDET DO FORM FORMS\APVOUCH\CONSTRUCTIONS\VOUCHERAPCONSPRINTING
			ON SELECTION BAR 4 OF APVOUCHDET DO FORM FORMS\APVOUCH\CONSTRUCTIONS\VOUCHERAPWITHPOUPLOAD
		CASE MYINVSETUPHEAD.INV_TYPE = 9&&SALES ORDER
			USE _accountingdatapath +'LABELVOUCH' AGAIN IN 0 ALIAS LABELVOUCH

			DEFINE POPUP vouchersin MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF vouchersin PROMPT "\<"+LABELVOUCH.IBLABTXT1 ;
				SKIP FOR TR001 = 0
			DEFINE BAR 2 OF vouchersin PROMPT "\<"+LABELVOUCH.CRLABTXT1 ;
				SKIP FOR TR002 = 0
			DEFINE BAR 3 OF vouchersin PROMPT "\<"+LABELVOUCH.CDLABTXT1 ;
				SKIP FOR TR003 = 0
			DEFINE BAR 4 OF vouchersin PROMPT "\<"+LABELVOUCH.JBLABTXT1 ;
				SKIP FOR TR004 = 0
			DEFINE BAR 5 OF vouchersin PROMPT "\<"+LABELVOUCH.APLABTXT1 ;
				SKIP FOR TR005 = 0
			DEFINE BAR 6 OF vouchersin PROMPT "\<"+LABELVOUCH.PCLABTXT1 ;
				SKIP FOR TR006 = 0
			DEFINE BAR 7 OF vouchersin PROMPT "\<"+LABELVOUCH.DCLABTXT1 ;
				SKIP FOR TR007 = 0
			ON BAR 1 OF vouchersin ACTIVATE POPUP ibvouchdet	
			ON SELECTION BAR 2 OF vouchersin DO FORM FORMS\CRVOUCH\VOUCHERCR
			ON SELECTION BAR 3 OF vouchersin DO FORM FORMS\CVOUCH\VOUCHERCD
			ON SELECTION BAR 4 OF vouchersin DO FORM FORMS\JBVOUCH\VOUCHERJB
			ON SELECTION BAR 5 OF vouchersin DO FORM FORMS\APVOUCH\VOUCHERAP
			ON SELECTION BAR 6 OF vouchersin DO FORM FORMS\PCVOUCH\VOUCHERPC
			ON SELECTION BAR 7 OF vouchersin DO FORM FORMS\DMCM\VOUCHERDC
			SELECT LABELVOUCH
			USE		
			DEFINE POPUP ibvouchdet MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF ibvouchdet PROMPT "\<Invoice Sales Order"
			DEFINE BAR 2 OF ibvouchdet PROMPT "\<Invoicing" 
			ON SELECTION BAR 1 OF IBVOUCHDET DO FORM FORMS\IBVOUCH\WITHSALESORDER\VOUCHERIBSALESORDER
			ON SELECTION BAR 2 OF IBVOUCHDET DO FORM FORMS\IBVOUCH\VOUCHERIBMAIN
		CASE MYINVSETUPHEAD.INV_TYPE = 10&&LICENSING
			USE _accountingdatapath +'LABELVOUCH' AGAIN IN 0 ALIAS LABELVOUCH

			DEFINE POPUP vouchersin MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF vouchersin PROMPT "\<"+LABELVOUCH.IBLABTXT1 ;
				SKIP FOR TR001 = 0
			DEFINE BAR 2 OF vouchersin PROMPT "\<"+LABELVOUCH.CRLABTXT1 ;
				SKIP FOR TR002 = 0
			DEFINE BAR 3 OF vouchersin PROMPT "\<"+LABELVOUCH.CDLABTXT1 ;
				SKIP FOR TR003 = 0
			DEFINE BAR 4 OF vouchersin PROMPT "\<"+LABELVOUCH.JBLABTXT1 ;
				SKIP FOR TR004 = 0
			DEFINE BAR 5 OF vouchersin PROMPT "\<"+LABELVOUCH.APLABTXT1 ;
				SKIP FOR TR005 = 0
			DEFINE BAR 6 OF vouchersin PROMPT "\<"+LABELVOUCH.PCLABTXT1 ;
				SKIP FOR TR006 = 0
			DEFINE BAR 7 OF vouchersin PROMPT "\<"+LABELVOUCH.DCLABTXT1 ;
				SKIP FOR TR007 = 0
			ON BAR 1 OF vouchersin ACTIVATE POPUP ibvouchdet	
			ON SELECTION BAR 2 OF vouchersin DO FORM FORMS\CRVOUCH\VOUCHERCR
			ON SELECTION BAR 3 OF vouchersin DO FORM FORMS\CVOUCH\VOUCHERCD
			ON SELECTION BAR 4 OF vouchersin DO FORM FORMS\JBVOUCH\VOUCHERJB
			ON SELECTION BAR 5 OF vouchersin DO FORM FORMS\APVOUCH\VOUCHERAP
			ON SELECTION BAR 6 OF vouchersin DO FORM FORMS\PCVOUCH\VOUCHERPC
			ON SELECTION BAR 7 OF vouchersin DO FORM FORMS\DMCM\VOUCHERDC
			SELECT LABELVOUCH
			USE		
			DEFINE POPUP ibvouchdet MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF ibvouchdet PROMPT "\<Contract"
			DEFINE BAR 2 OF ibvouchdet PROMPT "\<Invoicing" 
			ON SELECTION BAR 1 OF IBVOUCHDET DO FORM FORMS\IBVOUCH\LICENSING\CONTRACT
			ON SELECTION BAR 2 OF IBVOUCHDET DO FORM FORMS\IBVOUCH\VOUCHERIBMAIN
		CASE MYINVSETUPHEAD.INV_TYPE = 12&&INVOICED WITH DR 
			USE _accountingdatapath +'LABELVOUCH' AGAIN IN 0 ALIAS LABELVOUCH

			DEFINE POPUP vouchersin MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF vouchersin PROMPT "\<"+LABELVOUCH.IBLABTXT1 ;
				SKIP FOR TR001 = 0
			DEFINE BAR 2 OF vouchersin PROMPT "\<"+LABELVOUCH.CRLABTXT1 ;
				SKIP FOR TR002 = 0
			DEFINE BAR 3 OF vouchersin PROMPT "\<"+LABELVOUCH.CDLABTXT1 ;
				SKIP FOR TR003 = 0
			DEFINE BAR 4 OF vouchersin PROMPT "\<"+LABELVOUCH.JBLABTXT1 ;
				SKIP FOR TR004 = 0
			DEFINE BAR 5 OF vouchersin PROMPT "\<"+LABELVOUCH.APLABTXT1 ;
				SKIP FOR TR005 = 0
			DEFINE BAR 6 OF vouchersin PROMPT "\<"+LABELVOUCH.PCLABTXT1 ;
				SKIP FOR TR006 = 0
			DEFINE BAR 7 OF vouchersin PROMPT "\<"+LABELVOUCH.DCLABTXT1 ;
				SKIP FOR TR007 = 0
			ON BAR 1 OF vouchersin ACTIVATE POPUP ibvouchdet	
			ON SELECTION BAR 2 OF vouchersin DO FORM FORMS\CRVOUCH\VOUCHERCR
			ON SELECTION BAR 3 OF vouchersin DO FORM FORMS\CVOUCH\VOUCHERCD
			ON SELECTION BAR 4 OF vouchersin DO FORM FORMS\JBVOUCH\VOUCHERJB
			ON SELECTION BAR 5 OF vouchersin DO FORM FORMS\APVOUCH\VOUCHERAP
			ON SELECTION BAR 6 OF vouchersin DO FORM FORMS\PCVOUCH\VOUCHERPC
			ON SELECTION BAR 7 OF vouchersin DO FORM FORMS\DMCM\VOUCHERDC
			SELECT LABELVOUCH
			USE		
			DEFINE POPUP ibvouchdet MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF ibvouchdet PROMPT "\<Delivery Receipt"
			DEFINE BAR 2 OF ibvouchdet PROMPT "\<Invoicing" 
			ON SELECTION BAR 1 OF IBVOUCHDET DO FORM FORMS\IBVOUCH\withdr\voucheribdr
			ON SELECTION BAR 2 OF IBVOUCHDET DO FORM FORMS\IBVOUCH\VOUCHERIBMAIN 	
	ENDCASE
ENDIF 
SELECT MYINVSETUPHEAD
USE
SELECT MYINV
ON BAR 1 OF transactio ACTIVATE POPUP vouchersin	
USE _accountingdatapath +'INVSETUPHEAD' AGAIN IN 0 ALIAS MYINVSETUPHEAD
SELECT * FROM MYINVSETUPHEAD WHERE INV_TYPE = 8 OR INV_TYPE = 9 OR INV_TYPE = 10 OR INV_TYPE = 12 INTO CURSOR MYINV
SELECT MYINV
GO TOP
IF EOF()&&normal
	USE _accountingdatapath +'LABELVOUCH' AGAIN IN 0 ALIAS LABELVOUCH

	DEFINE POPUP vouchersin MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF vouchersin PROMPT "\<"+LABELVOUCH.IBLABTXT1 ;
		SKIP FOR TR001 = 0
	DEFINE BAR 2 OF vouchersin PROMPT "\<"+LABELVOUCH.CRLABTXT1 ;
		SKIP FOR TR002 = 0
	DEFINE BAR 3 OF vouchersin PROMPT "\<"+LABELVOUCH.CDLABTXT1 ;
		SKIP FOR TR003 = 0
	DEFINE BAR 4 OF vouchersin PROMPT "\<"+LABELVOUCH.JBLABTXT1 ;
		SKIP FOR TR004 = 0
	DEFINE BAR 5 OF vouchersin PROMPT "\<"+LABELVOUCH.APLABTXT1 ;
		SKIP FOR TR005 = 0
	DEFINE BAR 6 OF vouchersin PROMPT "\<"+LABELVOUCH.PCLABTXT1 ;
		SKIP FOR TR006 = 0
	DEFINE BAR 7 OF vouchersin PROMPT "\<"+LABELVOUCH.DCLABTXT1 ;
		SKIP FOR TR007 = 0
	ON SELECTION BAR 1 OF vouchersin DO FORM FORMS\IBVOUCH\VOUCHERIBMAIN
	ON SELECTION BAR 2 OF vouchersin DO FORM FORMS\CRVOUCH\VOUCHERCR
	ON SELECTION BAR 3 OF vouchersin DO FORM FORMS\CVOUCH\VOUCHERCD
	ON SELECTION BAR 4 OF vouchersin DO FORM FORMS\JBVOUCH\VOUCHERJB
	ON SELECTION BAR 5 OF vouchersin DO FORM FORMS\APVOUCH\VOUCHERAP
	ON SELECTION BAR 6 OF vouchersin DO FORM FORMS\PCVOUCH\VOUCHERPC
	ON SELECTION BAR 7 OF vouchersin DO FORM FORMS\DMCM\VOUCHERDC
	SELECT LABELVOUCH
	USE		
ELSE&&customized
	DO CASE
		CASE MYINVSETUPHEAD.INV_TYPE = 8&&PROJECT MANAGEMENT
			USE _accountingdatapath +'LABELVOUCH' AGAIN IN 0 ALIAS LABELVOUCH

			DEFINE POPUP vouchersin MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF vouchersin PROMPT "\<"+LABELVOUCH.IBLABTXT1 ;
				SKIP FOR TR001 = 0
			DEFINE BAR 2 OF vouchersin PROMPT "\<"+LABELVOUCH.CRLABTXT1 ;
				SKIP FOR TR002 = 0
			DEFINE BAR 3 OF vouchersin PROMPT "\<"+LABELVOUCH.CDLABTXT1 ;
				SKIP FOR TR003 = 0
			DEFINE BAR 4 OF vouchersin PROMPT "\<"+LABELVOUCH.JBLABTXT1 ;
				SKIP FOR TR004 = 0
			DEFINE BAR 5 OF vouchersin PROMPT "\<"+LABELVOUCH.APLABTXT1 ;
				SKIP FOR TR005 = 0
			DEFINE BAR 6 OF vouchersin PROMPT "\<"+LABELVOUCH.PCLABTXT1 ;
				SKIP FOR TR006 = 0
			DEFINE BAR 7 OF vouchersin PROMPT "\<"+LABELVOUCH.DCLABTXT1 ;
				SKIP FOR TR007 = 0
			ON BAR 1 OF vouchersin ACTIVATE POPUP ibvouchdet	
			ON SELECTION BAR 2 OF vouchersin DO FORM FORMS\CRVOUCH\VOUCHERCR
			ON SELECTION BAR 3 OF vouchersin DO FORM FORMS\CVOUCH\VOUCHERCD
			ON SELECTION BAR 4 OF vouchersin DO FORM FORMS\JBVOUCH\VOUCHERJB
			ON BAR 5 OF vouchersin ACTIVATE POPUP apvouchdet				
			ON SELECTION BAR 6 OF vouchersin DO FORM FORMS\PCVOUCH\VOUCHERPC
			ON SELECTION BAR 7 OF vouchersin DO FORM FORMS\DMCM\VOUCHERDC
			SELECT LABELVOUCH
			USE		
			DEFINE POPUP ibvouchdet MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF ibvouchdet PROMPT "\<Project Management"
			DEFINE BAR 2 OF ibvouchdet PROMPT "\<Invoicing" 
			DEFINE BAR 3 OF ibvouchdet PROMPT "\<Project Management Report" 
			ON SELECTION BAR 1 OF IBVOUCHDET DO FORM FORMS\IBVOUCH\CONSTRUCTIONS\VOUCHERIBCONSPROJECTMANAGEMENT
			ON SELECTION BAR 2 OF IBVOUCHDET DO FORM FORMS\IBVOUCH\VOUCHERIBMAIN
			ON SELECTION BAR 3 OF IBVOUCHDET DO FORM FORMS\IBVOUCH\CONSTRUCTIONS\VOUCHERIBCONSPRINTING
			DEFINE POPUP apvouchdet MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF apvouchdet PROMPT "\<Sub Contract Management" 
			DEFINE BAR 2 OF apvouchdet PROMPT "\<Accounts Payable"
			DEFINE BAR 3 OF apvouchdet PROMPT "Sub \<Contract Management Report"
			DEFINE BAR 4 OF apvouchdet PROMPT "\<Upload Sub Contract P.O. "
			ON SELECTION BAR 1 OF APVOUCHDET DO FORM FORMS\APVOUCH\CONSTRUCTIONS\VOUCHERAPCONSPROJECTSUBCONTRACT
			ON SELECTION BAR 2 OF APVOUCHDET DO FORM FORMS\APVOUCH\CONSTRUCTIONS\VOUCHERAPCONS
			ON SELECTION BAR 3 OF APVOUCHDET DO FORM FORMS\APVOUCH\CONSTRUCTIONS\VOUCHERAPCONSPRINTING
			ON SELECTION BAR 4 OF APVOUCHDET DO FORM FORMS\APVOUCH\CONSTRUCTIONS\VOUCHERAPWITHPOUPLOAD
		CASE MYINVSETUPHEAD.INV_TYPE = 9&&SALES ORDER
			USE _accountingdatapath +'LABELVOUCH' AGAIN IN 0 ALIAS LABELVOUCH

			DEFINE POPUP vouchersin MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF vouchersin PROMPT "\<"+LABELVOUCH.IBLABTXT1 ;
				SKIP FOR TR001 = 0
			DEFINE BAR 2 OF vouchersin PROMPT "\<"+LABELVOUCH.CRLABTXT1 ;
				SKIP FOR TR002 = 0
			DEFINE BAR 3 OF vouchersin PROMPT "\<"+LABELVOUCH.CDLABTXT1 ;
				SKIP FOR TR003 = 0
			DEFINE BAR 4 OF vouchersin PROMPT "\<"+LABELVOUCH.JBLABTXT1 ;
				SKIP FOR TR004 = 0
			DEFINE BAR 5 OF vouchersin PROMPT "\<"+LABELVOUCH.APLABTXT1 ;
				SKIP FOR TR005 = 0
			DEFINE BAR 6 OF vouchersin PROMPT "\<"+LABELVOUCH.PCLABTXT1 ;
				SKIP FOR TR006 = 0
			DEFINE BAR 7 OF vouchersin PROMPT "\<"+LABELVOUCH.DCLABTXT1 ;
				SKIP FOR TR007 = 0
			ON BAR 1 OF vouchersin ACTIVATE POPUP ibvouchdet	
			ON SELECTION BAR 2 OF vouchersin DO FORM FORMS\CRVOUCH\VOUCHERCR
			ON SELECTION BAR 3 OF vouchersin DO FORM FORMS\CVOUCH\VOUCHERCD
			ON SELECTION BAR 4 OF vouchersin DO FORM FORMS\JBVOUCH\VOUCHERJB
			ON SELECTION BAR 5 OF vouchersin DO FORM FORMS\APVOUCH\VOUCHERAP
			ON SELECTION BAR 6 OF vouchersin DO FORM FORMS\PCVOUCH\VOUCHERPC
			ON SELECTION BAR 7 OF vouchersin DO FORM FORMS\DMCM\VOUCHERDC
			SELECT LABELVOUCH
			USE		
			DEFINE POPUP ibvouchdet MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF ibvouchdet PROMPT "\<Invoice Sales Order"
			DEFINE BAR 2 OF ibvouchdet PROMPT "\<Invoicing" 
			ON SELECTION BAR 1 OF IBVOUCHDET DO FORM FORMS\IBVOUCH\WITHSALESORDER\VOUCHERIBSALESORDER
			ON SELECTION BAR 2 OF IBVOUCHDET DO FORM FORMS\IBVOUCH\VOUCHERIBMAIN
		CASE MYINVSETUPHEAD.INV_TYPE = 10&&LICENSING
			USE _accountingdatapath +'LABELVOUCH' AGAIN IN 0 ALIAS LABELVOUCH

			DEFINE POPUP vouchersin MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF vouchersin PROMPT "\<"+LABELVOUCH.IBLABTXT1 ;
				SKIP FOR TR001 = 0
			DEFINE BAR 2 OF vouchersin PROMPT "\<"+LABELVOUCH.CRLABTXT1 ;
				SKIP FOR TR002 = 0
			DEFINE BAR 3 OF vouchersin PROMPT "\<"+LABELVOUCH.CDLABTXT1 ;
				SKIP FOR TR003 = 0
			DEFINE BAR 4 OF vouchersin PROMPT "\<"+LABELVOUCH.JBLABTXT1 ;
				SKIP FOR TR004 = 0
			DEFINE BAR 5 OF vouchersin PROMPT "\<"+LABELVOUCH.APLABTXT1 ;
				SKIP FOR TR005 = 0
			DEFINE BAR 6 OF vouchersin PROMPT "\<"+LABELVOUCH.PCLABTXT1 ;
				SKIP FOR TR006 = 0
			DEFINE BAR 7 OF vouchersin PROMPT "\<"+LABELVOUCH.DCLABTXT1 ;
				SKIP FOR TR007 = 0
			ON BAR 1 OF vouchersin ACTIVATE POPUP ibvouchdet	
			ON SELECTION BAR 2 OF vouchersin DO FORM FORMS\CRVOUCH\VOUCHERCR
			ON SELECTION BAR 3 OF vouchersin DO FORM FORMS\CVOUCH\VOUCHERCD
			ON SELECTION BAR 4 OF vouchersin DO FORM FORMS\JBVOUCH\VOUCHERJB
			ON SELECTION BAR 5 OF vouchersin DO FORM FORMS\APVOUCH\VOUCHERAP
			ON SELECTION BAR 6 OF vouchersin DO FORM FORMS\PCVOUCH\VOUCHERPC
			ON SELECTION BAR 7 OF vouchersin DO FORM FORMS\DMCM\VOUCHERDC
			SELECT LABELVOUCH
			USE		
			DEFINE POPUP ibvouchdet MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF ibvouchdet PROMPT "\<Contract"
			DEFINE BAR 2 OF ibvouchdet PROMPT "\<Invoicing" 
			ON SELECTION BAR 1 OF IBVOUCHDET DO FORM FORMS\IBVOUCH\LICENSING\CONTRACT
			ON SELECTION BAR 2 OF IBVOUCHDET DO FORM FORMS\IBVOUCH\VOUCHERIBMAIN
		CASE MYINVSETUPHEAD.INV_TYPE = 12&&INVOICED WITH DR 
			USE _accountingdatapath +'LABELVOUCH' AGAIN IN 0 ALIAS LABELVOUCH

			DEFINE POPUP vouchersin MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF vouchersin PROMPT "\<"+LABELVOUCH.IBLABTXT1 ;
				SKIP FOR TR001 = 0
			DEFINE BAR 2 OF vouchersin PROMPT "\<"+LABELVOUCH.CRLABTXT1 ;
				SKIP FOR TR002 = 0
			DEFINE BAR 3 OF vouchersin PROMPT "\<"+LABELVOUCH.CDLABTXT1 ;
				SKIP FOR TR003 = 0
			DEFINE BAR 4 OF vouchersin PROMPT "\<"+LABELVOUCH.JBLABTXT1 ;
				SKIP FOR TR004 = 0
			DEFINE BAR 5 OF vouchersin PROMPT "\<"+LABELVOUCH.APLABTXT1 ;
				SKIP FOR TR005 = 0
			DEFINE BAR 6 OF vouchersin PROMPT "\<"+LABELVOUCH.PCLABTXT1 ;
				SKIP FOR TR006 = 0
			DEFINE BAR 7 OF vouchersin PROMPT "\<"+LABELVOUCH.DCLABTXT1 ;
				SKIP FOR TR007 = 0
			ON BAR 1 OF vouchersin ACTIVATE POPUP ibvouchdet	
			ON SELECTION BAR 2 OF vouchersin DO FORM FORMS\CRVOUCH\VOUCHERCR
			ON SELECTION BAR 3 OF vouchersin DO FORM FORMS\CVOUCH\VOUCHERCD
			ON SELECTION BAR 4 OF vouchersin DO FORM FORMS\JBVOUCH\VOUCHERJB
			ON SELECTION BAR 5 OF vouchersin DO FORM FORMS\APVOUCH\VOUCHERAP
			ON SELECTION BAR 6 OF vouchersin DO FORM FORMS\PCVOUCH\VOUCHERPC
			ON SELECTION BAR 7 OF vouchersin DO FORM FORMS\DMCM\VOUCHERDC
			SELECT LABELVOUCH
			USE		
			DEFINE POPUP ibvouchdet MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF ibvouchdet PROMPT "\<Delivery Receipt"
			DEFINE BAR 2 OF ibvouchdet PROMPT "\<Invoicing" 
			ON SELECTION BAR 1 OF IBVOUCHDET DO FORM FORMS\IBVOUCH\withdr\voucheribdr
			ON SELECTION BAR 2 OF IBVOUCHDET DO FORM FORMS\IBVOUCH\VOUCHERIBMAIN 	
	ENDCASE
ENDIF 
SELECT MYINVSETUPHEAD
USE
SELECT MYINV
ON SELECTION BAR 2 OF transactio do form forms\jbooksmulti

DEFINE POPUP posting MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF posting PROMPT "\<GL Posting" ;
	SKIP FOR PO001 = 0
DEFINE BAR 2 OF posting PROMPT "A\<R Posting" ;
	SKIP FOR PO002 = 0
DEFINE BAR 3 OF posting PROMPT "A\<P Posting" ;
	SKIP FOR PO003 = 0
DEFINE BAR 4 OF posting PROMPT "\<ALL Posting" ;
	SKIP FOR PO004 = 0
ON SELECTION BAR 1 OF posting DO FORM FORMS\GLPOST2
ON SELECTION BAR 2 OF posting DO FORM FORMS\ARPOST2
ON SELECTION BAR 3 OF posting DO FORM FORMS\APPOST2
ON SELECTION BAR 4 OF posting DO FORM FORMS\ALLPOSTING

DEFINE POPUP reports MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF reports PROMPT "\<General Ledger Reports" ;
	SKIP FOR AL015 = 0
DEFINE BAR 2 OF reports PROMPT "Accounts \<Receivable Reports" ;
	SKIP FOR AL019 = 0
DEFINE BAR 3 OF reports PROMPT "Accounts \<Payable Reports" ;
	SKIP FOR AL025 = 0
DEFINE BAR 4 OF reports PROMPT "Other Accounts Reports"
DEFINE BAR 5 OF reports PROMPT "\<All Books" ;
	SKIP FOR AL031 = 0
DEFINE BAR 6 OF reports PROMPT "\<Input/Output Vat" ;
	SKIP FOR AL032 = 0
DEFINE BAR 7 OF reports PROMPT "\<Print Check" ;
	SKIP FOR AL033 = 0
DEFINE BAR 8 OF reports PROMPT "\-"
DEFINE BAR 9 OF reports PROMPT "Multi Currency Voucher Reports" ;
	SKIP FOR AL034 = 0
DEFINE BAR 10 OF reports PROMPT "Additional Reports" ;
	SKIP FOR AL035 = 0
DEFINE BAR 11 OF reports PROMPT "Other Reports" ;
	SKIP FOR AL036 = 0
ON BAR 1 OF reports ACTIVATE POPUP generalled
ON BAR 2 OF reports ACTIVATE POPUP accountsre
ON BAR 3 OF reports ACTIVATE POPUP accountspa
ON BAR 4 OF reports ACTIVATE POPUP _2go0v17rg
ON BAR 5 OF reports ACTIVATE POPUP allbooks
ON BAR 6 OF reports ACTIVATE POPUP inputoutpu
ON BAR 7 OF reports ACTIVATE POPUP printcheck
ON BAR 9 OF reports ACTIVATE POPUP multimulti
ON BAR 10 OF reports ACTIVATE POPUP _12s0n54g2
ON BAR 11 OF reports ACTIVATE POPUP otherrepor

DEFINE POPUP generalled MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF generalled PROMPT "Financial Reports" ;
	SKIP FOR AL016 = 0
DEFINE BAR 2 OF generalled PROMPT "GL Beginning Balance List" ;
	SKIP FOR RP019 = 0
DEFINE BAR 3 OF generalled PROMPT "Net Summary of Books" ;
	SKIP FOR RP020 = 0
DEFINE BAR 4 OF generalled PROMPT "Summary of Books By Totals" ;
	SKIP FOR RP021 = 0
DEFINE BAR 5 OF generalled PROMPT "Account Analysis" ;
	SKIP FOR AL017 = 0
DEFINE BAR 6 OF generalled PROMPT "Net General Ledger Reports" ;
	SKIP FOR RP024 = 0
DEFINE BAR 7 OF generalled PROMPT "General Ledger Reports By Totals" ;
	SKIP FOR RP025 = 0
DEFINE BAR 8 OF generalled PROMPT "Abstract Ledger"
DEFINE BAR 9 OF generalled PROMPT "Other Accounts Ledger/Aging Summary" ;
	SKIP FOR AL018 = 0
ON BAR 1 OF generalled ACTIVATE POPUP financialr
ON SELECTION BAR 2 OF generalled DO FORM FORMS\GLREPORTS\LISTGL
ON SELECTION BAR 3 OF generalled DO FORM FORMS\GLREPORTS\SUMMARYOFBOOKS
ON SELECTION BAR 4 OF generalled DO FORM FORMS\GLREPORTS\SUMMARYOFBOOKS1
ON BAR 5 OF generalled ACTIVATE POPUP accountana
ON SELECTION BAR 6 OF generalled DO FORM FORMS\GLREPORTS\GENLEDGERNET
ON SELECTION BAR 7 OF generalled DO FORM FORMS\GLREPORTS\GENLEDGERTOT
ON SELECTION BAR 8 OF generalled DO FORM FORMS\OTHERS\ABSTRACTLEDGER
ON BAR 9 OF generalled ACTIVATE POPUP otheraccou

DEFINE POPUP financialr MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF financialr PROMPT "Trial Balance" ;
	SKIP FOR RP001 = 0
DEFINE BAR 2 OF financialr PROMPT "Basic Income Statement" ;
	SKIP FOR RP002 = 0
DEFINE BAR 3 OF financialr PROMPT "Basic Balance Sheet" ;
	SKIP FOR RP003 = 0
DEFINE BAR 4 OF financialr PROMPT "Comparative Income Statement" ;
	SKIP FOR RP004 = 0
DEFINE BAR 5 OF financialr PROMPT "Bank Reconcilation"
DEFINE BAR 6 OF financialr PROMPT "Graph Analysis" ;
	SKIP FOR RP009 = 0
DEFINE BAR 7 OF financialr PROMPT "Percentage Analysis" ;
	SKIP FOR RP010 = 0
DEFINE BAR 8 OF financialr PROMPT "Daily Cash Position Report" ;
	SKIP FOR RP011 = 0
DEFINE BAR 9 OF financialr PROMPT "Cash Flow Report" ;
	SKIP FOR RP012 = 0
DEFINE BAR 10 OF financialr PROMPT "\-"
DEFINE BAR 11 OF financialr PROMPT "Income Statement/Spread Sheet/Budget" ;
	SKIP FOR RP013 = 0
DEFINE BAR 12 OF financialr PROMPT "Balance Sheet" ;
	SKIP FOR RP014 = 0
DEFINE BAR 13 OF financialr PROMPT "\-"
DEFINE BAR 14 OF financialr PROMPT "Multi Currency FS"
ON SELECTION BAR 1 OF financialr DO FORM FORMS\GLREPORTS\TRIALBALANCE
ON SELECTION BAR 2 OF financialr DO FORM FORMS\GLREPORTS\INCOMESTATE
ON SELECTION BAR 3 OF financialr DO FORM FORMS\GLREPORTS\BALANCESHEET
ON SELECTION BAR 4 OF financialr DO FORM FORMS\GLREPORTS\INCOMESTATEMENTCOMPARATIVE
ON BAR 5 OF financialr ACTIVATE POPUP bankreconc
ON SELECTION BAR 6 OF financialr DO FORM FORMS\GLREPORTS\GRAPHANALYSIS
ON SELECTION BAR 7 OF financialr DO FORM FORMS\GLREPORTS\PERCENTAGEANALYSIS
ON SELECTION BAR 8 OF financialr DO FORM FORMS\DAILYCASHPOS
ON BAR 9 OF financialr ACTIVATE POPUP cashflowre
ON SELECTION BAR 11 OF financialr DO FORM FORMS\GLREPORTS\INCOMESTATESPREADSHEET
ON SELECTION BAR 12 OF financialr DO FORM FORMS\GLREPORTS\BALANCESHEETSPREAD
ON BAR 14 OF financialr ACTIVATE POPUP multicurre

DEFINE POPUP bankreconc MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF bankreconc PROMPT "Bank Reconcilation Summary" ;
	SKIP FOR RP005 = 0
DEFINE BAR 2 OF bankreconc PROMPT "Bank Reconcilation Reports" ;
	SKIP FOR RP006 = 0
DEFINE BAR 3 OF bankreconc PROMPT "\-"
DEFINE BAR 4 OF bankreconc PROMPT "Bank Reconcilation Summary Per Currency" ;
	SKIP FOR RP007 = 0
DEFINE BAR 5 OF bankreconc PROMPT "Bank Reconcilation Reports Per Currency" ;
	SKIP FOR RP008 = 0
ON SELECTION BAR 1 OF bankreconc DO FORM FORMS\BANKRECONNEW
ON SELECTION BAR 2 OF bankreconc DO FORM FORMS\BANKRECONREPORT
ON SELECTION BAR 4 OF bankreconc DO FORM FORMS\BANKRECONPERCURR
ON SELECTION BAR 5 OF bankreconc DO FORM FORMS\BANKRECONREPORTPERCURR

DEFINE POPUP cashflowre MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF cashflowre PROMPT "Cash Flow"
DEFINE BAR 2 OF cashflowre PROMPT "Cash Flow Based on Allocation"
ON SELECTION BAR 1 OF cashflowre DO FORM FORMS\CASHFLOW
ON SELECTION BAR 2 OF cashflowre DO FORM FORMS\OTHERS\CASHFLOWWITHALLOCATION

DEFINE POPUP multicurre MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF multicurre PROMPT "Basic Income Statement" ;
	SKIP FOR RP015 = 0
DEFINE BAR 2 OF multicurre PROMPT "Basic Balance Sheet" ;
	SKIP FOR RP016 = 0
DEFINE BAR 3 OF multicurre PROMPT "Income Statement" ;
	SKIP FOR RP017 = 0
DEFINE BAR 4 OF multicurre PROMPT "Balance Sheet" ;
	SKIP FOR RP018 = 0
ON SELECTION BAR 1 OF multicurre DO FORM FORMS\GLREPORTS\INCOMESTATEMULTI
ON SELECTION BAR 2 OF multicurre DO FORM FORMS\GLREPORTS\BALANCESHEETMULTI
ON SELECTION BAR 3 OF multicurre DO FORM FORMS\FSACTUALSPREAD7MULTI
ON SELECTION BAR 4 OF multicurre DO FORM FORMS\FSACTUALSPREAD7AMULTI

DEFINE POPUP accountana MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF accountana PROMPT "Standard Account Analysis" ;
	SKIP FOR RP022 = 0
DEFINE BAR 2 OF accountana PROMPT "Comparative Account Analysis" ;
	SKIP FOR RP023 = 0
ON SELECTION BAR 1 OF accountana DO FORM FORMS\GLREPORTS\ACCOUNTANALYSISWITHPROJDEPT
ON SELECTION BAR 2 OF accountana DO FORM FORMS\GLREPORTS\comparativeACCOUNTANALYSIS

DEFINE POPUP otheraccou MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF otheraccou PROMPT "Expense Analysis" ;
	SKIP FOR RP026 = 0
DEFINE BAR 2 OF otheraccou PROMPT "\-"
DEFINE BAR 3 OF otheraccou PROMPT "Expense Ledger" ;
	SKIP FOR RP027 = 0
DEFINE BAR 4 OF otheraccou PROMPT "Income Ledger" ;
	SKIP FOR RP028 = 0
DEFINE BAR 5 OF otheraccou PROMPT "Bank Ledger" ;
	SKIP FOR RP029 = 0
DEFINE BAR 6 OF otheraccou PROMPT "\-"
DEFINE BAR 7 OF otheraccou PROMPT "Expense Aging Summary" ;
	SKIP FOR RP030 = 0
DEFINE BAR 8 OF otheraccou PROMPT "Income Aging Summary" ;
	SKIP FOR RP031 = 0
DEFINE BAR 9 OF otheraccou PROMPT "Bank Aging Summary" ;
	SKIP FOR RP032 = 0
ON SELECTION BAR 1 OF otheraccou do form forms\glreports\expenseanalysis
ON SELECTION BAR 3 OF otheraccou do form forms\glreports\subsidiaryexpense
ON SELECTION BAR 4 OF otheraccou do form forms\glreports\subsidiaryincome
ON SELECTION BAR 5 OF otheraccou do form forms\glreports\subsidiarybank
ON SELECTION BAR 7 OF otheraccou do form forms\others\agingsumexpmultiwithprojdept
ON SELECTION BAR 8 OF otheraccou do form forms\others\agingsumincmultiwithprojdept
ON SELECTION BAR 9 OF otheraccou do form forms\others\agingsumbankmultiwithprojdept

DEFINE POPUP accountsre MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF accountsre PROMPT "AR Beginning Balance List" ;
	SKIP FOR AL020 = 0
DEFINE BAR 2 OF accountsre PROMPT "Detailed Aging Reports" ;
	SKIP FOR RP035 = 0
DEFINE BAR 3 OF accountsre PROMPT "Subsidiary Ledger Report" ;
	SKIP FOR AL021 = 0
DEFINE BAR 4 OF accountsre PROMPT "Statement of Accounts" ;
	SKIP FOR RP038 = 0
DEFINE BAR 5 OF accountsre PROMPT "Billings and Collections" ;
	SKIP FOR AL022 = 0
DEFINE BAR 6 OF accountsre PROMPT "Reports for Audit" ;
	SKIP FOR AL023 = 0
DEFINE BAR 7 OF accountsre PROMPT "Summary Reports" ;
	SKIP FOR AL024 = 0
DEFINE BAR 8 OF accountsre PROMPT "\-"
DEFINE BAR 9 OF accountsre PROMPT "List of Overdue Accounts" ;
	SKIP FOR RP049 = 0
DEFINE BAR 10 OF accountsre PROMPT "Detailed List of Overdue Accounts"
ON BAR 1 OF accountsre ACTIVATE POPUP arbeginnin
ON SELECTION BAR 2 OF accountsre DO FORM FORMS\ARREPORTS\detailagingarmultiwithprojdept
ON BAR 3 OF accountsre ACTIVATE POPUP subsidiary
ON BAR 4 OF accountsre ACTIVATE POPUP statemento
ON BAR 5 OF accountsre ACTIVATE POPUP billingsan
ON BAR 6 OF accountsre ACTIVATE POPUP reportsfor
ON BAR 7 OF accountsre ACTIVATE POPUP summaryrep
ON SELECTION BAR 9 OF accountsre DO FORM FORMS\ARREPORTS\OVERDUEARMULTI
ON SELECTION BAR 10 OF accountsre DO FORM FORMS\ARREPORTS\DETOVERDUEAR

DEFINE POPUP arbeginnin MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF arbeginnin PROMPT "AR Beginning Balance LIst" ;
	SKIP FOR RP033= 0
DEFINE BAR 2 OF arbeginnin PROMPT "Aging For AR Beginning Balance" ;
	SKIP FOR RP034 = 0
ON SELECTION BAR 1 OF arbeginnin DO FORM FORMS\ARREPORTS\listofarbegbaldetailed
ON SELECTION BAR 2 OF arbeginnin DO FORM FORMS\ARREPORTS\agingsumarmultiwithprojdeptbeg

DEFINE POPUP subsidiary MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF subsidiary PROMPT "Subsidiary Ledger" ;
	SKIP FOR RP036 = 0
DEFINE BAR 2 OF subsidiary PROMPT "Subsidiary Ledger Outstanding" ;
	SKIP FOR RP037 = 0
ON SELECTION BAR 1 OF subsidiary DO FORM FORMS\ARREPORTS\ARSUBSIDIARYLEDGER
ON SELECTION BAR 2 OF subsidiary DO FORM FORMS\ARREPORTS\ARSUBSIDIARYLEDGEROUTSTANDING

DEFINE POPUP statemento MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF statemento PROMPT "Statement of Account"
DEFINE BAR 2 OF statemento PROMPT "Statement of Account (with series)"
ON SELECTION BAR 1 OF statemento DO FORM FORMS\ARREPORTS\SOAMULTIWITHPROJDEPT
ON SELECTION BAR 2 OF statemento DO FORM FORMS\ARREPORTS\SOAMULTIWITHPROJDEPTwithseries

DEFINE POPUP billingsan MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF billingsan PROMPT "List of Billings" ;
	SKIP FOR RP039 = 0
DEFINE BAR 2 OF billingsan PROMPT "List of Collections" ;
	SKIP FOR RP040 = 0
ON SELECTION BAR 1 OF billingsan DO FORM FORMS\ARREPORTS\LISTOFBILLING
ON SELECTION BAR 2 OF billingsan DO FORM FORMS\ARREPORTS\LISTOFCOLLECTION

DEFINE POPUP reportsfor MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF reportsfor PROMPT "List of Overpayments" ;
	SKIP FOR RP041 = 0
DEFINE BAR 2 OF reportsfor PROMPT "Aging Vs. Billings and Collection Report" ;
	SKIP FOR RP042 = 0
DEFINE BAR 3 OF reportsfor PROMPT "List of Billings and Collection" ;
	SKIP FOR RP043 = 0
ON SELECTION BAR 1 OF reportsfor DO FORM FORMS\ARREPORTS\LISTOFOVERPAYMULTI
ON SELECTION BAR 2 OF reportsfor DO FORM FORMS\ARREPORTS\agingvsbilandcol
ON SELECTION BAR 3 OF reportsfor DO FORM FORMS\ARREPORTS\LISTOFBILLANDCOLL

DEFINE POPUP summaryrep MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF summaryrep PROMPT "Aging Summary Report" ;
	SKIP FOR RP044 = 0
DEFINE BAR 2 OF summaryrep PROMPT "Summary of Accounts Receivable" ;
	SKIP FOR RP045= 0
DEFINE BAR 3 OF summaryrep PROMPT "Summary of Billings" ;
	SKIP FOR RP046 = 0
DEFINE BAR 4 OF summaryrep PROMPT "Summary of Collections" ;
	SKIP FOR RP047 = 0
DEFINE BAR 5 OF summaryrep PROMPT "Summary of Billings and Collections" ;
	SKIP FOR RP048 = 0
ON SELECTION BAR 1 OF summaryrep DO FORM FORMS\ARREPORTS\agingsumarmultiwithprojdept
ON SELECTION BAR 2 OF summaryrep DO FORM FORMS\ARREPORTS\SUMMARYOFAR
ON SELECTION BAR 3 OF summaryrep DO FORM FORMS\ARREPORTS\SUMMARYOFBILLINGS
ON SELECTION BAR 4 OF summaryrep DO FORM FORMS\ARREPORTS\SUMMARYOFCOLLECTIONS
ON SELECTION BAR 5 OF summaryrep DO FORM FORMS\ARREPORTS\summaryofbillandcoll

DEFINE POPUP accountspa MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF accountspa PROMPT "AP \<Beginning Balance List" ;
	SKIP FOR AL026 = 0
DEFINE BAR 2 OF accountspa PROMPT "\<Detailed Aging Reports" ;
	SKIP FOR RP052 = 0 
DEFINE BAR 3 OF accountspa PROMPT "Subsidiary \<Ledger" ;
	SKIP FOR AL027 = 0
DEFINE BAR 4 OF accountspa PROMPT "\<List of Payables and Payments" ;
	SKIP FOR AL028 = 0
DEFINE BAR 5 OF accountspa PROMPT "Reports for \<Audit" ;
	SKIP FOR AL029 = 0
DEFINE BAR 6 OF accountspa PROMPT "\<Summary Reports" ;
	SKIP FOR AL030 = 0
DEFINE BAR 7 OF accountspa PROMPT "\-"
DEFINE BAR 8 OF accountspa PROMPT "List of \<Overdue Accounts" ;
	SKIP FOR RP065 = 0
DEFINE BAR 9 OF accountspa PROMPT "Detailed List of Overdue Accounts"
ON BAR 1 OF accountspa ACTIVATE POPUP apbeginnin
ON SELECTION BAR 2 OF accountspa DO FORM FORMS\APREPORTS\detailagingapmultiwithprojdept
ON BAR 3 OF accountspa ACTIVATE POPUP _2du0ygusb
ON BAR 4 OF accountspa ACTIVATE POPUP listofpaya
ON BAR 5 OF accountspa ACTIVATE POPUP _0ve15s6s5
ON BAR 6 OF accountspa ACTIVATE POPUP _0ve15s6s6
ON SELECTION BAR 8 OF accountspa DO FORM FORMS\APREPORTS\OVERDUEAPMULTI
ON SELECTION BAR 9 OF accountspa DO FORM FORMS\APREPORTS\DETOVERDUEAP

DEFINE POPUP apbeginnin MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF apbeginnin PROMPT "AP Beginning Balance List" ;
	SKIP FOR RP050 = 0
DEFINE BAR 2 OF apbeginnin PROMPT "Aging For AP Beginning Balances" ;
	SKIP FOR RP051 = 0
ON SELECTION BAR 1 OF apbeginnin DO FORM FORMS\APREPORTS\listofapbegbaldetailed
ON SELECTION BAR 2 OF apbeginnin DO FORM FORMS\APREPORTS\agingsumapmultiwithprojdeptbeg

DEFINE POPUP _2du0ygusb MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _2du0ygusb PROMPT "Subsidiary Ledger" ;
	SKIP FOR RP053 = 0
DEFINE BAR 2 OF _2du0ygusb PROMPT "Subsidiary Ledger Outstanding" ;
	SKIP FOR RP054 = 0
ON SELECTION BAR 1 OF _2du0ygusb DO FORM FORMS\APREPORTS\APSUBSIDIARYLEDGER
ON SELECTION BAR 2 OF _2du0ygusb DO FORM FORMS\APREPORTS\APSUBSIDIARYLEDGEROUTSTANDING

DEFINE POPUP listofpaya MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF listofpaya PROMPT "List of Payables" ;
	SKIP FOR RP055 = 0
DEFINE BAR 2 OF listofpaya PROMPT "List of Payments" ;
	SKIP FOR RP056 = 0
ON SELECTION BAR 1 OF listofpaya DO FORM FORMS\APREPORTS\LISTOFPAYABLE
ON SELECTION BAR 2 OF listofpaya DO FORM FORMS\APREPORTS\LISTOFPAYMENTS

DEFINE POPUP _0ve15s6s5 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0ve15s6s5 PROMPT "List of \<Overpayments" ;
	SKIP FOR RP057 = 0
DEFINE BAR 2 OF _0ve15s6s5 PROMPT "Aging \<Vs. Payables and Payments Report" ;
	SKIP FOR RP058 = 0
DEFINE BAR 3 OF _0ve15s6s5 PROMPT "\<List of Payables and Payments" ;
	SKIP FOR RP059 = 0
ON SELECTION BAR 1 OF _0ve15s6s5 DO FORM FORMS\APREPORTS\LISTOFOVERPAYAPMULTI
ON SELECTION BAR 2 OF _0ve15s6s5 DO FORM FORMS\APREPORTS\agingvspayaandpaym
ON SELECTION BAR 3 OF _0ve15s6s5 DO FORM FORMS\APREPORTS\LISTOFPAYAANDPAYM

DEFINE POPUP _0ve15s6s6 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0ve15s6s6 PROMPT "Aging Summary \<Report" ;
	SKIP FOR RP060 = 0
DEFINE BAR 2 OF _0ve15s6s6 PROMPT "Summary of \<Accounts Payable" ;
	SKIP FOR RP061 = 0
DEFINE BAR 3 OF _0ve15s6s6 PROMPT "Summary of \<Payables" ;
	SKIP FOR RP062 = 0
DEFINE BAR 4 OF _0ve15s6s6 PROMPT "Summary \<of Payments" ;
	SKIP FOR RP063 = 0
DEFINE BAR 5 OF _0ve15s6s6 PROMPT "Summar\<y of Payables and Payments" ;
	SKIP FOR RP064 = 0
ON SELECTION BAR 1 OF _0ve15s6s6 DO FORM FORMS\APREPORTS\agingsumapmultiwithprojdept
ON SELECTION BAR 2 OF _0ve15s6s6 DO FORM FORMS\APREPORTS\SUMMARYOFAP
ON SELECTION BAR 3 OF _0ve15s6s6 DO FORM FORMS\APREPORTS\SUMMARYOFPAYABLES
ON SELECTION BAR 4 OF _0ve15s6s6 DO FORM FORMS\APREPORTS\SUMMARYOFPAYMENTS
ON SELECTION BAR 5 OF _0ve15s6s6 DO FORM FORMS\APREPORTS\summaryofpayaandpaym

DEFINE POPUP _2go0v17rg MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _2go0v17rg PROMPT "Asset and Expense"
DEFINE BAR 2 OF _2go0v17rg PROMPT "Liabilities, Income and Capital"
ON BAR 1 OF _2go0v17rg ACTIVATE POPUP assetandex
ON BAR 2 OF _2go0v17rg ACTIVATE POPUP liabilitie

DEFINE POPUP assetandex MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF assetandex PROMPT "Detailed Aging"
DEFINE BAR 2 OF assetandex PROMPT "Aging Summary"
DEFINE BAR 3 OF assetandex PROMPT "Subsidiary Ledger"
ON SELECTION BAR 1 OF assetandex do form forms\others\detailagingaeothersmultiwithprojdept
ON SELECTION BAR 2 OF assetandex do form forms\others\agingsumaeothersmultiwithprojdept
ON SELECTION BAR 3 OF assetandex do form forms\others\subsidiaryledgeraeothers

DEFINE POPUP liabilitie MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF liabilitie PROMPT "Detailed Aging"
DEFINE BAR 2 OF liabilitie PROMPT "Aging Summary"
DEFINE BAR 3 OF liabilitie PROMPT "Subsidiary Ledger"
ON SELECTION BAR 1 OF liabilitie do form forms\others\detailaginglicothersmultiwithprojdept
ON SELECTION BAR 2 OF liabilitie do form forms\others\agingsumlicothersmultiwithprojdept
ON SELECTION BAR 3 OF liabilitie do form forms\others\subsidiaryledgerlicothers

DEFINE POPUP allbooks MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF allbooks PROMPT "\<Accounts Payable Voucher" ;
	SKIP FOR AL041 = 0
DEFINE BAR 2 OF allbooks PROMPT "\<Official Receipt" ;
	SKIP FOR AL042 = 0
DEFINE BAR 3 OF allbooks PROMPT "\<Invoice" ;
	SKIP FOR AL043 = 0
DEFINE BAR 4 OF allbooks PROMPT "\<Check Voucher" ;
	SKIP FOR AL044 = 0
DEFINE BAR 5 OF allbooks PROMPT "\<Journal Voucher" ;
	SKIP FOR AL045 = 0
DEFINE BAR 6 OF allbooks PROMPT "\<Debit / Credit Memo" ;
	SKIP FOR AL046 = 0
DEFINE BAR 7 OF allbooks PROMPT "\<Petty Cash Voucher" ;
	SKIP FOR AL047 = 0
DEFINE BAR 8 OF allbooks PROMPT "\-"
DEFINE BAR 9 OF allbooks PROMPT "Daily Exchange Rate" ;
	SKIP FOR RP078 = 0
ON BAR 1 OF allbooks ACTIVATE POPUP _2250onumd
ON BAR 2 OF allbooks ACTIVATE POPUP officialre
ON BAR 3 OF allbooks ACTIVATE POPUP invoice
ON BAR 4 OF allbooks ACTIVATE POPUP check
ON BAR 5 OF allbooks ACTIVATE POPUP journalvou
ON BAR 6 OF allbooks ACTIVATE POPUP debitcredi
ON BAR 7 OF allbooks ACTIVATE POPUP pettycashv
ON SELECTION BAR 9 OF allbooks do form forms\dxr

DEFINE POPUP _2250onumd MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _2250onumd PROMPT "Accounts Payable Account(/s) Export to Excel" ;
	SKIP FOR RP066 = 0
ON SELECTION BAR 1 OF _2250onumd do form forms\apvouch\voucherapexcel

DEFINE POPUP officialre MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF officialre PROMPT "Official Receipt Account(/s) Export to Excel" ;
	SKIP FOR RP067 = 0
ON SELECTION BAR 1 OF officialre do form forms\crvouch\vouchercrexcel

DEFINE POPUP invoice MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF invoice PROMPT "Invoicing Account(/s) Export to Excel" ;
	SKIP FOR RP068 = 0
DEFINE BAR 2 OF invoice PROMPT "Invoicing Detailed Particular(/s) in Excel" ;
	SKIP FOR RP069 = 0
DEFINE BAR 3 OF invoice PROMPT "Monthly Sales Report" ;
	SKIP FOR RP070 = 0
DEFINE BAR 4 OF invoice PROMPT "Daily Sales Report" ;
	SKIP FOR RP071 = 0
ON SELECTION BAR 1 OF invoice do form forms\ibvouch\voucheribexcel
ON SELECTION BAR 2 OF invoice do form forms\ibvouch\voucheribexcelpart
ON SELECTION BAR 3 OF invoice do form forms\ibvouch\voucheribexcelmsales
ON SELECTION BAR 4 OF invoice do form forms\ibvouch\voucheribexceldsales

DEFINE POPUP check MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF check PROMPT "Check Voucher Account(/s) Export to Excel" ;
	SKIP FOR RP072 = 0
ON SELECTION BAR 1 OF check do form forms\cvouch\vouchercdexcel

DEFINE POPUP journalvou MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF journalvou PROMPT "Journal Voucher Account(/s) Export to Excel" ;
	SKIP FOR RP073 = 0
ON SELECTION BAR 1 OF journalvou do form forms\jbvouch\voucherjbexcel

DEFINE POPUP debitcredi MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF debitcredi PROMPT "Debit / Credit Memo Account(/s) Export to Excel" ;
	SKIP FOR RP074 = 0
DEFINE BAR 2 OF debitcredi PROMPT "Debit / Credit Memo Account(/s) Export to Excel (PDS Converion)" ;
	SKIP FOR RP075 = 0
ON SELECTION BAR 1 OF debitcredi do form forms\dmcm\voucherdcexcel
ON SELECTION BAR 2 OF debitcredi do form forms\dmcm\voucherdcexcelpds

DEFINE POPUP pettycashv MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF pettycashv PROMPT "Replenishment Report" ;
	SKIP FOR RP076 = 0
DEFINE BAR 2 OF pettycashv PROMPT "Petty Cash Voucher Account(/s) Export to Excel" ;
	SKIP FOR RP077 = 0
DEFINE BAR 3 OF pettycashv PROMPT "Cash Monitoring Report"
ON SELECTION BAR 1 OF pettycashv DO FORM FORMS\OTHERS\REPLENISHMENT
ON SELECTION BAR 2 OF pettycashv do form forms\pcvouch\voucherpcexcel
ON SELECTION BAR 3 OF pettycashv do form forms\others\pezaexcelreport

DEFINE POPUP inputoutpu MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF inputoutpu PROMPT "List of \<Input Vat" ;
	SKIP FOR RP079 = 0
DEFINE BAR 2 OF inputoutpu PROMPT "List of \<Output Vat" ;
	SKIP FOR RP080 = 0
DEFINE BAR 3 OF inputoutpu PROMPT "\-"
DEFINE BAR 4 OF inputoutpu PROMPT "Zero / Exempt Sales"
DEFINE BAR 5 OF inputoutpu PROMPT "Zero / Exempt Purchases"
DEFINE BAR 6 OF inputoutpu PROMPT "\-"
DEFINE BAR 7 OF inputoutpu PROMPT "Input Vat Diskette" ;
	SKIP FOR RP081 = 0
DEFINE BAR 8 OF inputoutpu PROMPT "Output Vat Diskette" ;
	SKIP FOR RP082 = 0
ON SELECTION BAR 1 OF inputoutpu do form forms\inputvatprint
ON SELECTION BAR 2 OF inputoutpu do form forms\outputvatprint
ON SELECTION BAR 4 OF inputoutpu do form forms\outputvatexemptandzerorated
ON SELECTION BAR 5 OF inputoutpu do form forms\inputvatexemptandzerorated
ON SELECTION BAR 7 OF inputoutpu do form forms\Inputrelief
ON SELECTION BAR 8 OF inputoutpu do form forms\Outputrelief

DEFINE POPUP printcheck MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF printcheck PROMPT "Print \<List of Check" ;
	SKIP FOR RP083 = 0
DEFINE BAR 2 OF printcheck PROMPT "Bank Account Summary Report"
ON SELECTION BAR 1 OF printcheck do form forms\printchkorchk
ON SELECTION BAR 2 OF printcheck do form forms\others\bankaccountsummary

DEFINE POPUP multimulti MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF multimulti PROMPT "OR Report" ;
	SKIP FOR RP084 = 0
DEFINE BAR 2 OF multimulti PROMPT "Check Voucher Report" ;
	SKIP FOR RP085 = 0
DEFINE BAR 3 OF multimulti PROMPT "AP Voucher Report" ;
	SKIP FOR RP086 = 0
DEFINE BAR 4 OF multimulti PROMPT "IB Voucher Report" ;
	SKIP FOR RP087 = 0
DEFINE BAR 5 OF multimulti PROMPT "JB Voucher Report" ;
	SKIP FOR RP088 = 0
DEFINE BAR 6 OF multimulti PROMPT "PC Voucher Report" ;
	SKIP FOR RP089 = 0
DEFINE BAR 7 OF multimulti PROMPT "Debit Credit Memo Voucher Report" ;
	SKIP FOR RP090 = 0
ON SELECTION BAR 1 OF multimulti do form forms\multireportcr
ON SELECTION BAR 2 OF multimulti do form forms\multireportcv
ON SELECTION BAR 3 OF multimulti do form forms\multireportap
ON SELECTION BAR 4 OF multimulti do form forms\multireportib
ON SELECTION BAR 5 OF multimulti do form forms\multireportjv
ON SELECTION BAR 6 OF multimulti do form forms\multireportpc
ON SELECTION BAR 7 OF multimulti do form forms\multireportdc

DEFINE POPUP _12s0n54g2 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _12s0n54g2 PROMPT "\<Fixed Asset Account Reports" ;
	SKIP FOR RP091 = 0
DEFINE BAR 2 OF _12s0n54g2 PROMPT "\<Prepaid Accounts Reports" ;
	SKIP FOR AL048 = 0
DEFINE BAR 3 OF _12s0n54g2 PROMPT "\<Monthly Final Tax/Alphalist Report" ;
	SKIP FOR RP096 = 0
DEFINE BAR 4 OF _12s0n54g2 PROMPT "\<Monthly Expanded Tax List/Alphalist Report" ;
	SKIP FOR RP097 = 0
DEFINE BAR 5 OF _12s0n54g2 PROMPT "\<Forex Summary" ;
	SKIP FOR RP098 = 0
DEFINE BAR 6 OF _12s0n54g2 PROMPT "\-"
DEFINE BAR 7 OF _12s0n54g2 PROMPT "\<Summary of Daily Transactions" ;
	SKIP FOR RP099 = 0
DEFINE BAR 8 OF _12s0n54g2 PROMPT "Summary of Sales and \<Collection"
DEFINE BAR 9 OF _12s0n54g2 PROMPT "Summary of Payables and Payments"
ON SELECTION BAR 1 OF _12s0n54g2 DO FORM FORMS\ADDITIONAL\assetaccountreports
ON BAR 2 OF _12s0n54g2 ACTIVATE POPUP prepaidacc
ON SELECTION BAR 3 OF _12s0n54g2 do form forms\finaltaxreport
ON SELECTION BAR 4 OF _12s0n54g2 do form forms\expandedtaxreport
ON SELECTION BAR 5 OF _12s0n54g2 do form forms\forexsum
ON SELECTION BAR 7 OF _12s0n54g2 do form forms\summaryofdailytransaction
ON SELECTION BAR 8 OF _12s0n54g2 do form forms\others\summaryofsalesandcollection
ON SELECTION BAR 9 OF _12s0n54g2 do form forms\others\summaryofpayablesandpayment

DEFINE POPUP prepaidacc MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF prepaidacc PROMPT "\<Prepayment Lapsing Report" ;
	SKIP FOR RP092 = 0
DEFINE BAR 2 OF prepaidacc PROMPT "List of Prepaid Accounts" ;
	SKIP FOR RP093 = 0
DEFINE BAR 3 OF prepaidacc PROMPT "p\<Repaid Subsidiary" ;
	SKIP FOR RP094 = 0
DEFINE BAR 4 OF prepaidacc PROMPT "List of Lapsed Prepayments" ;
	SKIP FOR RP095 = 0
ON SELECTION BAR 1 OF prepaidacc DO FORM FORMS\ADDITIONAL\PREPAIDLAPSING1NEW
ON SELECTION BAR 2 OF prepaidacc DO FORM FORMS\ADDITIONAL\prepaidaccountreports
ON SELECTION BAR 3 OF prepaidacc DO FORM FORMS\ADDITIONAL\prepaidsubsidiary
ON SELECTION BAR 4 OF prepaidacc DO FORM FORMS\ADDITIONAL\summaryofexpense

DEFINE POPUP otherrepor MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF otherrepor PROMPT "Printing of Books" ;
	SKIP FOR RP100 = 0
DEFINE BAR 2 OF otherrepor PROMPT "Printing of Schedules" ;
	SKIP FOR RP101 = 0
DEFINE BAR 3 OF otherrepor PROMPT "Printing of Due Transaction" ;
	SKIP FOR RP102 = 0
ON SELECTION BAR 1 OF otherrepor DO FORM FORMS\OTHERS\PRINTINGOFBOOKS
ON SELECTION BAR 2 OF otherrepor DO FORM FORMS\OTHERS\PRINTINGOFSCHEDULES
ON SELECTION BAR 3 OF otherrepor DO FORM FORMS\OTHERS\PRINTINGOFDUETRANS

DEFINE POPUP utilities MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF utilities PROMPT "File \<Sort" ;
	SKIP FOR UT001 = 0 ;
	PICTURE "graph\icon\reindex.ico"
DEFINE BAR 2 OF utilities PROMPT "File \<Backup" ;
	SKIP FOR UT002 = 0 ;
	PICTURE "graph\icon\backup.ico"
DEFINE BAR 3 OF utilities PROMPT "File \<Pack" ;
	SKIP FOR UT003 = 0
DEFINE BAR 4 OF utilities PROMPT "\<Browser" ;
	SKIP FOR UT004 = 0
DEFINE BAR 5 OF utilities PROMPT "\<Closing of Nominal Accounts" ;
	SKIP FOR UT005 = 0
DEFINE BAR 6 OF utilities PROMPT "\<Monthly Elimination of Income and Expense Account" ;
	SKIP FOR UT006 = 0
DEFINE BAR 7 OF utilities PROMPT "\<Restatement of Accounts" ;
	SKIP FOR UT007 = 0
ON SELECTION BAR 1 OF utilities DO FORM FORMS\SORT
ON SELECTION BAR 2 OF utilities DO FORM FORMS\UTILITY\BACKUP
ON SELECTION BAR 3 OF utilities DO FORM FORMS\FILEPACK
ON SELECTION BAR 4 OF utilities do FORM FORMS\BROWSER
ON SELECTION BAR 5 OF utilities do form forms\closing
ON SELECTION BAR 6 OF utilities do form forms\eliminationofaccounts
ON SELECTION BAR 7 OF utilities do form forms\reestatementofaccounts

DEFINE POPUP systemconf MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF systemconf PROMPT "\<Company Configuration" ;
	SKIP FOR SC001 = 0
DEFINE BAR 2 OF systemconf PROMPT "\<Set Default Filter" ;
	SKIP FOR SC002 = 0
DEFINE BAR 3 OF systemconf PROMPT "\<User Security" ;
	SKIP FOR AL037 = 0 ;
	PICTURE "graph\icon\passwordrecovery.ico"
DEFINE BAR 4 OF systemconf PROMPT "\<Books Configuration" ;
	SKIP FOR AL038 = 0
DEFINE BAR 5 OF systemconf PROMPT "\<Transaction Locking" ;
	SKIP FOR SC010 = 0 ;
	PICTURE "graph\icon\useracces.jpg"
DEFINE BAR 6 OF systemconf PROMPT "\<Recompute" ;
	SKIP FOR SC011 = 0
DEFINE BAR 7 OF systemconf PROMPT "\<Date Settings" ;
	SKIP FOR SC012 = 0
DEFINE BAR 8 OF systemconf PROMPT "\<Aging Range" ;
	SKIP FOR SC013 = 0
DEFINE BAR 9 OF systemconf PROMPT "\<Path" ;
	SKIP FOR SC014 = 0
ON SELECTION BAR 1 OF systemconf do FORM FORMS\SYSCONFIG
ON SELECTION BAR 2 OF systemconf do form  forms\changefilter
ON BAR 3 OF systemconf ACTIVATE POPUP usersecuri
ON BAR 4 OF systemconf ACTIVATE POPUP booksconfi
ON SELECTION BAR 5 OF systemconf do form forms\utility\monthlockingnew
ON BAR 6 OF systemconf ACTIVATE POPUP recompute
ON SELECTION BAR 7 OF systemconf do form forms\dateset
ON SELECTION BAR 8 OF systemconf do form forms\agingrangenew
ON SELECTION BAR 9 OF systemconf do form forms\path

DEFINE POPUP usersecuri MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF usersecuri PROMPT "\<User Configuration" ;
	SKIP FOR SC003 = 0 ;
	PICTURE "graph\icon\useraccess.ico"
DEFINE BAR 2 OF usersecuri PROMPT "Change User \<Password" ;
	SKIP FOR SC004 = 0 ;
	PICTURE "graph\icon\changepassword.ico"
DEFINE BAR 3 OF usersecuri PROMPT "User Profile" ;
	SKIP FOR SC015 = 0
ON SELECTION BAR 1 OF usersecuri DO FORM FORMS\usersetup
ON SELECTION BAR 2 OF usersecuri DO FORM FORMS\PASSWORDCHANGE
ON SELECTION BAR 3 OF usersecuri do form forms\userprofile

DEFINE POPUP booksconfi MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF booksconfi PROMPT "\<Book Codes" ;
	SKIP FOR SC005 = 0
DEFINE BAR 2 OF booksconfi PROMPT "\<Journal Book Codes" ;
	SKIP FOR SC006 = 0
DEFINE BAR 3 OF booksconfi PROMPT "\<Filter Codes" ;
	SKIP FOR SC007 = 0
DEFINE BAR 4 OF booksconfi PROMPT "\<Multiple Account Code Setup" ;
	SKIP FOR SC008 = 0
DEFINE BAR 5 OF booksconfi PROMPT "\<Multiple Client Setup" ;
	SKIP FOR SC009 = 0
ON SELECTION BAR 1 OF booksconfi do form forms\book
ON SELECTION BAR 2 OF booksconfi do form forms\journal
ON SELECTION BAR 3 OF booksconfi do form forms\filter
ON SELECTION BAR 4 OF booksconfi do form forms\multiplecode
ON SELECTION BAR 5 OF booksconfi do form forms\multiplegenref

DEFINE POPUP recompute MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF recompute PROMPT "Recompute All"
DEFINE BAR 2 OF recompute PROMPT "Recompute Per Reference"
ON SELECTION BAR 1 OF recompute do form forms\recomputekarenmulti
ON SELECTION BAR 2 OF recompute do form forms\recomputekarenmultirange

DEFINE POPUP help MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF help PROMPT "About" ;
	PICTURE "graph\icon\about.ico"
ON SELECTION BAR 1 OF help do form forms\about


*       *********************************************************
*       *                                                         
*       * _34U0O99TW  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ACCOUNTING.MPR,            Record:  358     
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     Quit                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _34u0o99tw
DO SETS
SET MULTILOCKS ON

use _accountingdatapath +'AUDITTRAIL\&TBLNAME' AGAIN IN 0 ALIAS AUDITTRAIL
=CURSORSETPROP('BUFFERING',5,'AUDITTRAIL')

AUDITTRAIL('Login\Logout','Logout','T','')

=FCLOSE(m_LOGINFILE1)
erase &m_LOGINFILE

QUIT

