// **************************************************************************
// **************************************************************************
// Script: PERSPAYR.SQC
// 
// Related SPRs: 14497 and 144607
//
// Description: This script adds missing General Ledger Accounts for Control 
//   Account for Payroll in a company generated with a PERSONAL COA.  This 
//   assumes the user has not already added these GL Accounts!!!
//
// (C) Copyright 1996 by NEBS Software, Inc.  All Rights Reserved
// 
// **************************************************************************
// **************************************************************************

// Prompt the user to backup or bailout
Ask "General Ledger Accounts for Employer Social Security Expense and Employer Medicare Expense will be added now. If you have not backed up your company database, you should exit this script. Continue?";

input into GLACCT(GL_ACCTDEP,GL_ACCTNAM,GL_ACCTNO,GL_BSOID,GL_INACFLG,GL_ISOID,GL_NORMBAL,GL_OID,GL_TYPE,);
'00','Employer Social Security Exp','6010',7031,'0',7014,1,7087,'5'
'00','Employer Medicare Expense','6015',7031,'0',7014,1,7088,'5'
END

Ask "Contol Accounts for Employer Social Security Expense and Employer Medicare Expense will be added now. If you have not backed up your company database, you should exit this script. Continue?";
input into CTLACCT(CA_GLOID,CA_OID,CA_TYPE,);
7087,1012,13,
7088,1013,14,
END

COMMIT;
