In Visual Studio 2008, merge modules are no longer used for crystal reports controls.

 To add…

I spend an amount of time advising people to 'read the manual' when they write in with questions. The eConnect docs are not perfect, but you should…

-- =============================================
-- Written by 4Penny.net
-- 941-747-3669
-- 9/21/2010 tested in GP9
-- =============================================


IF EXISTS (SELECT name ,*
           FROM   sysobjects 
           WHERE  name = N'FP_SOPPayment_INS' 
           AND    type = 'P')
    DROP PROCEDURE FP_SOPPayment_INS
GO


CREATE PROCEDURE FP_SOPPayment_INS
--  FP_SOPPayment_INS '13498',230.36,6,'','','040322sgray','steve','inv00423238','3','visa','123','456'
 
@CUSTNMBR varchar(15),
@PaymentAmount numeric(19,2),
@PYMTTYPE int,
@CHEKNMBR varchar(21),
@BACHNUMB varchar(15),
@USERID varchar(100),
@SOPNUMBE varchar(21),
@SOPTYPE int,
@CARDNAME varchar(15) , 
@RCTNCCRD varchar(21) , 
@AUTHCODE varchar(15) ,
@CHEKBKID as varchar(15)


AS
set nocount on
--get the next payment number
--============================================================================
--INCREMENT THE NEXT ORDER NUMBER
--============================================================================…

 -- =============================================
-- Written by 4Penny.net
-- 941-747-3669
-- =============================================


IF EXISTS (SELECT name 
    FROM   sysobjects 
    WHERE  name = N'FP_SOP10102_UPD' 
    AND    type = 'P')
    DROP PROCEDURE FP_SOP10102_UPD
GO


CREATE PROCEDURE FP_SOP10102_UPD


 


--  FP_SOP10102_UPD 'INV00423058',3
--select * from sop10102 where sopnumbe = 'inv00423058'



@sopnumbe varchar(21),
@SopType int


AS
set nocount on


--============================================================================
--erase the old distribution lines
--============================================================================
delete sop10102 
 where sopnumbe = @sopnumbe and soptype = @soptype


--gather the freight account number
declare @freightAcct as int
select 
  @freightAcct = actindx
 from sy01100 with (nolock)
 where series = 3
  and seqnumbr = 1800


 


--============================================================================
--create the distribution lines
--============================================================================
--gather all the data in one place for the header info
select 
  case when soptype =  4 then extdcost else 0 end as invCredit,
  case when soptype <> 4 then extdcost else 0 end as invDebit,
  case when soptype =  4 then extdcost else 0 end as cogsDebit,
  case when soptype <> 4 then extdcost else 0 end as cogsCredit,
  case when soptype =  4 then docamnt else 0 end as docamntDebit,
  case when soptype <> 4 then docamnt else 0 end as…

-- =============================================
-- Written by 4Penny.net
-- 941-747-3669
-- 9/21/2010
-- Tested on GP 9
-- =============================================


IF EXISTS (SELECT name ,*
           FROM   sysobjects 
           WHERE  name = N'FP_RMCashReceipt_INS' 
           AND    type = 'P')
    DROP PROCEDURE FP_RMCashReceipt_INS
GO


CREATE PROCEDURE FP_RMCashReceipt_INS
--  FP_RMCashReceipt_INS '10005',5,1,'','','031214sgray','steve1'
 
@CUSTNMBR varchar(15),
@PaymentAmount numeric(19,5),
@CSHRCTYP int,
@CRCARDID varchar(15),
@CHEKNMBR varchar(21),
@BACHNUMB varchar(15),
@USERID varchar(20),
@SOPNUMBE varchar(21), /* optional, include if exists */
@SOPTYPE SMALLINT,
@CHEKBKID varchar(15)



AS
set nocount on


declare @docnumbr varchar(21)
declare @intPos int
declare @vchrDocnumbrBegin varchar(21)
declare @vchrDocnumbrEnd varchar(21)
declare @vchrDocnumbrNew varchar(21)
declare @intTemp int


--don't allot fractional payments
set @PaymentAmount = round(@PaymentAmount,2)


--============================================================================
--get the next payment number
--INCREMENT THE NEXT ORDER NUMBER
--============================================================================
declare @rmdtypal int
set @rmdtypal = 9 --payment
exec FP_RMGetNextDocNumber @rmdtypal, @docnumbr output


--====================================================================
--get a date reference without the time portion
--====================================================================
declare @dtDate datetime
set @dtDate = convert(varchar(10),getdate(),101)


--====================================================================
--insert into the payment table
--====================================================================
insert into rm10201 (BACHNUMB , BCHSOURC , DOCNUMBR , CUSTNMBR , RMDTYPAL, DOCDATE, CSHRCTYP  , CHEKNMBR, CHEKBKID  , CRCARDID , DISAMCHK, CURNCYID, NDSTAMNT, TRXDSCRN, ONHOLD, POSTED, NOTEINDX, LSTEDTDT, LSTUSRED, ORTRXAMT      , CURTRXAM      , WROFAMNT, DISTKNAM, DISAVTKN, PPSAMDED, GSTDSAMT, RMTREMSG, RMDPEMSG,…

-- =============================================
-- update the batch table
-- Written by 4Penny.net
-- 941-747-3669
-- 9/21/2010 
-- tested in GP 9
-- does not work for all modules and series
-- =============================================


IF EXISTS (SELECT name 
           FROM   sysobjects 
           WHERE  name = N'FP_SY00500_UPD' 
           AND    type = 'P')
    DROP PROCEDURE FP_SY00500_UPD
GO


CREATE PROCEDURE FP_SY00500_UPD
-- test:
-- FP_SY00500_UPD '4Penny','RM_Cash', 'cmgunter',3,'ST OPERATING'


--select * from rm10201
 


@BACHNUMB varchar(15),
@bchsourc varchar(15),
@USERID varchar(15) ,
@SERIES int ,
@CHEKBKID VARCHAR(15)


AS
SET NOCOUNT ON


declare @currDocAmount as money
declare @intDocCount as int
declare @dtDate as datetime


set @dtDate = convert(varchar(10), getdate(),101)


--============================================================================
-- create the batch, if necessary
--============================================================================
if not exists (select dex_row_id from sy00500 with (nolock) where bachnumb = @BACHNUMB and bchsourc = @bchsourc) BEGIN
        insert into sy00500 (GLPOSTDT,  BCHSOURC  ,BACHNUMB ,  SERIES ,  MKDTOPST,  NUMOFTRX,  RECPSTGS,  DELBACH,  MSCBDINC,  BACHFREQ,  RCLPSTDT  ,  NOFPSTGS,  BCHCOMNT,  BRKDNALL,  CHKSPRTD,  RVRSBACH,  USERID  , CHEKBKID ,  BCHTOTAL,  BCHEMSG1,  BCHEMSG2,  BACHDATE  ,  BCHSTRG1,  BCHSTRG2,  POSTTOGL,  MODIFDT,  CREATDDT,  NOTEINDX,  CURNCYID,  BCHSTTUS,  CNTRLTRX, …

-- =============================================
-- Get the next RM document number
-- =============================================
-- 9/21/2010 Steve Gray
-- Tested in GP 9


IF EXISTS (SELECT name 
           FROM   sysobjects 
           WHERE  name = N'FP_RMGetNextDocNumber' 
           AND    type = 'P')
    DROP PROCEDURE FP_RMGetNextDocNumber
GO


CREATE PROCEDURE FP_RMGetNextDocNumber 
/*
To Test:


declare @docnumbr varchar(21),
        @RMDTYPAL int
        
select…

-- =============================================
-- Get the next SOP number
-- =============================================
-- 9/21/2010 Steve Gray
-- tested against GP9


IF EXISTS (SELECT name 
           FROM   sysobjects 
           WHERE  name = N'FP_SOPGetNextDocNumber' 
           AND    type = 'P')
    DROP PROCEDURE FP_SOPGetNextDocNumber
GO


CREATE PROCEDURE FP_SOPGetNextDocNumber 
/*
To Test:


declare @DOCID varchar(15),
        @sopnumbe varchar(21),
        @soptype int
        
select @DOCID = 'stdord',
        @sopnumbe = '',
        @soptype = 2


execute FP_SOPGetNextDocNumber @DOCID, @sopnumbe = @sopnumbe output, @soptype = @soptype output
select @@trancount,@sopnumbe,@soptype


*/
@DOCID varchar(15),
@SOPNUMBE varchar(21) output,
@SOPTYPE int output


AS
        
declare @intPos int
declare @vchrSopnumbeBegin varchar(21)
declare @vchrSopnumbeEnd varchar(21)
declare @vchrSopnumbeNew varchar(21)
declare @vchrTemp varchar(21)
declare @intTemp int
declare @intRowCount int



-- turn off the rowcount display
set nocount on



--get a new sop number
declare @blnOKtoExit bit
…