diff --git a/base/src/org/compiere/process/DunningRunCreate.java b/base/src/org/compiere/process/DunningRunCreate.java index a09c365daa..781f9e981d 100644 --- a/base/src/org/compiere/process/DunningRunCreate.java +++ b/base/src/org/compiere/process/DunningRunCreate.java @@ -46,6 +46,7 @@ public class DunningRunCreate extends SvrProcess private int p_C_BPartner_ID = 0; private int p_C_BP_Group_ID = 0; private int p_C_DunningRun_ID = 0; + private int p_AD_Org_ID = 0; private MDunningRun m_run = null; private MDunningLevel m_level = null; @@ -75,6 +76,8 @@ public class DunningRunCreate extends SvrProcess p_C_BPartner_ID = para[i].getParameterAsInt(); else if (name.equals("C_BP_Group_ID")) p_C_BP_Group_ID = para[i].getParameterAsInt(); + else if (name.equals("AD_Org_ID")) + p_AD_Org_ID = para[i].getParameterAsInt(); else log.log(Level.SEVERE, "Unknown Parameter: " + name); } @@ -149,6 +152,8 @@ public class DunningRunCreate extends SvrProcess sql += " AND i.IsSOTrx='Y'"; if (!p_IsAllCurrencies) sql += " AND i.C_Currency_ID=" + p_C_Currency_ID; + if ( p_AD_Org_ID != 0 ) + sql += " AND i.AD_Org_ID=" + p_AD_Org_ID; // log.info(sql); String sql2=null; @@ -326,6 +331,8 @@ public class DunningRunCreate extends SvrProcess + "WHERE p.C_BPartner_ID=bp.C_BPartner_ID AND bp.C_BP_Group_ID=?)"; // ##3 if (p_OnlySOTrx) sql += " AND IsReceipt='Y'"; + if ( p_AD_Org_ID != 0 ) + sql += " AND i.AD_Org_ID=" + p_AD_Org_ID; int count = 0; PreparedStatement pstmt = null; diff --git a/migration/352a-trunk/351_FR2391399_dunning_run_org_filter.sql b/migration/352a-trunk/351_FR2391399_dunning_run_org_filter.sql new file mode 100644 index 0000000000..e3ab5e46cd --- /dev/null +++ b/migration/352a-trunk/351_FR2391399_dunning_run_org_filter.sql @@ -0,0 +1,10 @@ +-- 5/12/2008 11:49:33 +-- Dunning run create requires AD_Org +INSERT INTO AD_Process_Para (AD_Client_ID,AD_Element_ID,AD_Org_ID,AD_Process_ID,AD_Process_Para_ID,AD_Reference_ID,AD_Val_Rule_ID,ColumnName,Created,CreatedBy,DefaultValue,Description,EntityType,FieldLength,IsActive,IsCentrallyMaintained,IsMandatory,IsRange,Name,SeqNo,Updated,UpdatedBy) VALUES (0,113,0,289,53261,19,104,'AD_Org_ID',TO_DATE('2008-12-05 11:49:31','YYYY-MM-DD HH24:MI:SS'),100,'0',NULL,'D',12,'Y','Y','Y','N','Organization',5,TO_DATE('2008-12-05 11:49:31','YYYY-MM-DD HH24:MI:SS'),100) +; + +-- 5/12/2008 11:49:34 +-- Dunning run create requires AD_Org +INSERT INTO AD_Process_Para_Trl (AD_Language,AD_Process_Para_ID, Description,Help,Name, IsTranslated,AD_Client_ID,AD_Org_ID,Created,Createdby,Updated,UpdatedBy) SELECT l.AD_Language,t.AD_Process_Para_ID, t.Description,t.Help,t.Name, 'N',t.AD_Client_ID,t.AD_Org_ID,t.Created,t.Createdby,t.Updated,t.UpdatedBy FROM AD_Language l, AD_Process_Para t WHERE l.IsActive='Y' AND l.IsSystemLanguage='Y' AND l.IsBaseLanguage='N' AND t.AD_Process_Para_ID=53261 AND EXISTS (SELECT * FROM AD_Process_Para_Trl tt WHERE tt.AD_Language!=l.AD_Language OR tt.AD_Process_Para_ID!=t.AD_Process_Para_ID) +; + diff --git a/migration/352a-trunk/postgresql/351_FR2391399_dunning_run_org_filter.sql b/migration/352a-trunk/postgresql/351_FR2391399_dunning_run_org_filter.sql new file mode 100644 index 0000000000..060935ad48 --- /dev/null +++ b/migration/352a-trunk/postgresql/351_FR2391399_dunning_run_org_filter.sql @@ -0,0 +1,10 @@ +-- 5/12/2008 11:49:34 +-- Dunning run create requires AD_Org +INSERT INTO AD_Process_Para (AD_Client_ID,AD_Element_ID,AD_Org_ID,AD_Process_ID,AD_Process_Para_ID,AD_Reference_ID,AD_Val_Rule_ID,ColumnName,Created,CreatedBy,DefaultValue,Description,EntityType,FieldLength,IsActive,IsCentrallyMaintained,IsMandatory,IsRange,Name,SeqNo,Updated,UpdatedBy) VALUES (0,113,0,289,53261,19,104,'AD_Org_ID',TO_TIMESTAMP('2008-12-05 11:49:31','YYYY-MM-DD HH24:MI:SS'),100,'0',NULL,'D',12,'Y','Y','Y','N','Organization',5,TO_TIMESTAMP('2008-12-05 11:49:31','YYYY-MM-DD HH24:MI:SS'),100) +; + +-- 5/12/2008 11:49:34 +-- Dunning run create requires AD_Org +INSERT INTO AD_Process_Para_Trl (AD_Language,AD_Process_Para_ID, Description,Help,Name, IsTranslated,AD_Client_ID,AD_Org_ID,Created,Createdby,Updated,UpdatedBy) SELECT l.AD_Language,t.AD_Process_Para_ID, t.Description,t.Help,t.Name, 'N',t.AD_Client_ID,t.AD_Org_ID,t.Created,t.Createdby,t.Updated,t.UpdatedBy FROM AD_Language l, AD_Process_Para t WHERE l.IsActive='Y' AND l.IsSystemLanguage='Y' AND l.IsBaseLanguage='N' AND t.AD_Process_Para_ID=53261 AND EXISTS (SELECT * FROM AD_Process_Para_Trl tt WHERE tt.AD_Language!=l.AD_Language OR tt.AD_Process_Para_ID!=t.AD_Process_Para_ID) +; +