diff --git a/migration/i7.1z/oracle/202008061811_IDEMPIERE-4398.sql b/migration/i7.1z/oracle/202008061811_IDEMPIERE-4398.sql
new file mode 100644
index 0000000000..090981bda4
--- /dev/null
+++ b/migration/i7.1z/oracle/202008061811_IDEMPIERE-4398.sql
@@ -0,0 +1,49 @@
+SET SQLBLANKLINES ON
+SET DEFINE OFF
+
+-- IDEMPIERE-4398 Database inconsistency with dictionary for types CHAR
+-- Aug 6, 2020, 6:04:11 PM CEST
+ALTER TABLE AD_OrgInfo MODIFY DUNS VARCHAR2(11 CHAR)
+;
+
+-- Aug 6, 2020, 6:04:51 PM CEST
+ALTER TABLE C_BPartner MODIFY DUNS VARCHAR2(11 CHAR) DEFAULT NULL 
+;
+
+-- Aug 6, 2020, 6:05:10 PM CEST
+ALTER TABLE C_BPartner MODIFY NAICS VARCHAR2(6 CHAR) DEFAULT NULL 
+;
+
+-- Aug 6, 2020, 6:07:03 PM CEST
+ALTER TABLE GL_JournalGenerator MODIFY GenerateGLJournal VARCHAR2(10) DEFAULT NULL 
+;
+
+-- Aug 6, 2020, 6:07:58 PM CEST
+UPDATE AD_Column SET FieldLength=1,Updated=TO_DATE('2020-08-06 18:07:58','YYYY-MM-DD HH24:MI:SS'),UpdatedBy=100 WHERE AD_Column_ID=200509
+;
+
+UPDATE gl_journalgenerator SET generategljournal=trim(generategljournal);
+
+-- Aug 6, 2020, 6:08:00 PM CEST
+ALTER TABLE GL_JournalGenerator MODIFY GenerateGLJournal CHAR(1) DEFAULT NULL 
+;
+
+-- Aug 6, 2020, 6:08:38 PM CEST
+ALTER TABLE I_BPartner MODIFY DUNS VARCHAR2(11 CHAR) DEFAULT NULL 
+;
+
+-- Aug 6, 2020, 6:08:50 PM CEST
+ALTER TABLE I_BPartner MODIFY NAICS VARCHAR2(6 CHAR) DEFAULT NULL 
+;
+
+-- Aug 6, 2020, 6:09:14 PM CEST
+ALTER TABLE M_Product_PO MODIFY Manufacturer VARCHAR2(30 CHAR) DEFAULT NULL 
+;
+
+-- Aug 6, 2020, 6:09:31 PM CEST
+ALTER TABLE M_Product_PO MODIFY VendorCategory VARCHAR2(30 CHAR) DEFAULT NULL 
+;
+
+SELECT register_migration_script('202008061811_IDEMPIERE-4398.sql') FROM dual
+;
+
diff --git a/migration/i7.1z/postgresql/202008061811_IDEMPIERE-4398.sql b/migration/i7.1z/postgresql/202008061811_IDEMPIERE-4398.sql
new file mode 100644
index 0000000000..361cd04b70
--- /dev/null
+++ b/migration/i7.1z/postgresql/202008061811_IDEMPIERE-4398.sql
@@ -0,0 +1,46 @@
+-- IDEMPIERE-4398 Database inconsistency with dictionary for types CHAR
+-- Aug 6, 2020, 6:04:11 PM CEST
+INSERT INTO t_alter_column values('ad_orginfo','DUNS','VARCHAR(11)',null,null)
+;
+
+-- Aug 6, 2020, 6:04:51 PM CEST
+INSERT INTO t_alter_column values('c_bpartner','DUNS','VARCHAR(11)',null,'NULL')
+;
+
+-- Aug 6, 2020, 6:05:10 PM CEST
+INSERT INTO t_alter_column values('c_bpartner','NAICS','VARCHAR(6)',null,'NULL')
+;
+
+-- Aug 6, 2020, 6:07:03 PM CEST
+INSERT INTO t_alter_column values('gl_journalgenerator','GenerateGLJournal','VARCHAR(10)',null,'NULL')
+;
+
+-- Aug 6, 2020, 6:07:58 PM CEST
+UPDATE AD_Column SET FieldLength=1,Updated=TO_TIMESTAMP('2020-08-06 18:07:58','YYYY-MM-DD HH24:MI:SS'),UpdatedBy=100 WHERE AD_Column_ID=200509
+;
+
+UPDATE gl_journalgenerator SET generategljournal=trim(generategljournal);
+
+-- Aug 6, 2020, 6:08:00 PM CEST
+INSERT INTO t_alter_column values('gl_journalgenerator','GenerateGLJournal','CHAR(1)',null,'NULL')
+;
+
+-- Aug 6, 2020, 6:08:38 PM CEST
+INSERT INTO t_alter_column values('i_bpartner','DUNS','VARCHAR(11)',null,'NULL')
+;
+
+-- Aug 6, 2020, 6:08:50 PM CEST
+INSERT INTO t_alter_column values('i_bpartner','NAICS','VARCHAR(6)',null,'NULL')
+;
+
+-- Aug 6, 2020, 6:09:14 PM CEST
+INSERT INTO t_alter_column values('m_product_po','Manufacturer','VARCHAR(30)',null,'NULL')
+;
+
+-- Aug 6, 2020, 6:09:31 PM CEST
+INSERT INTO t_alter_column values('m_product_po','VendorCategory','VARCHAR(30)',null,'NULL')
+;
+
+SELECT register_migration_script('202008061811_IDEMPIERE-4398.sql') FROM dual
+;
+