/**
*
*    Updates the credit limit information for a specific XLedger customer.  This is used by the
*    AR Credit and Collections module.  This info is not passed back to XLedger since XLedger
*    does not have this type of information but is stored in MoversSuite.
*
*    Do NOT call this SP directly.  Instead, call ARCUpdateCustomerCreditLimit_Synonym and then that
*    synonym knows to call this SP or another one based upon that system's active accounting
*    system type.
*/

create procedure [dbo].[ARCUpdateCustomerCreditLimit_Legacy]
    @inCustomerNumber varchar(15),
    @inAccountingCustomerId int,
    @inAccountingCustomerCreditLimitTypeId int,
    @inCreditLimitAmount money
as
begin
    set nocount on

    update RM00101 set
        CRLMTTYP = AccountingCustomerCreditLimitType.GPCreditLimitTypeCode,
        CRLMTAMT = @inCreditLimitAmount
    from RM00101_Synonym as RM00101
    inner join AccountingCustomerCreditLimitType on AccountingCustomerCreditLimitType.AccountingCustomerCreditLimitTypeId = @inAccountingCustomerCreditLimitTypeId
    where RM00101.CUSTNMBR = @inCustomerNumber

    update GPCustomer set
        AccountingCustomerCreditLimitTypeFid = @inAccountingCustomerCreditLimitTypeId,
        CreditLimitType = AccountingCustomerCreditLimitType.TypeName,
        CreditLimit = @inCreditLimitAmount
    from GPCustomer
    inner join AccountingCustomerCreditLimitType on AccountingCustomerCreditLimitType.AccountingCustomerCreditLimitTypeId = @inAccountingCustomerCreditLimitTypeId
    where GPCustomer.CustomerNumber = @inCustomerNumber
end
GO
GRANT EXECUTE ON  [dbo].[ARCUpdateCustomerCreditLimit_Legacy] TO [MssExec]
GO