Your account has been activated. Please check your email to set your password.

OK

Great! Your password has been set up. Now you can log in.

OK

Please check your email to reset your password.

OK
main-section-ill

A network of IT solution providers, who migrate their products from Oracle Forms to Java.

Support from the creators of the migrator.

separator

Selected
partners:

Demo - Compare before and after

Re_Forms 21 vs Oracle Forms Architecture

Presentation
Execution enviornment
Database
Development
diagram diagram ESTIMATE MY MIGRATION

Developer tools - Re_Forms21 Studio

slide slide slide slide slide

Re_Forms21 Studio - XML editorOpen image in new tab

slide

Re_Forms21 Studio - Java editor Open image in new tab

slide

Re_Forms21 Studio - data designer Open image in new tab

slide

Re_Forms21 Studio - UI designer Open image in new tab

slide

Re_Forms21 Studio - SQL editor Open image in new tab

slide

Re_Forms21 Studio - XML editor

Re_Forms21 Studio - Java editor

Re_Forms21 Studio - data designer

Re_Forms21 Studio - UI designer

Re_Forms21 Studio - SQL editor

Loading..

Code - Compare before and after

PL/SQL







PACKAGE EMP_PKG IS
  PROCEDURE fill_job_name;
END;


PACKAGE BODY EMP_PKG IS
  
  
  
  PROCEDURE fill_job_name IS
    CURSOR lookup_job IS
      SELECT job_title
      FROM jobs
      WHERE job_id = :EMP_BLOCK.JOB_ID;
  BEGIN
    OPEN lookup_job;
    FETCH lookup_job INTO :EMP_BLOCK.JOB_NAME;
    CLOSE lookup_job;
  END;







END;


TRIGGER "WHEN-NEW-FORM-INSTANCE" IS
BEGIN


  Execute_Query;


END "WHEN-NEW-FORM-INSTANCE";


TRIGGER "POST-QUERY" ON EMP_BLOCK IS
BEGIN
  EMP_PKG.fill_job_name;
END "POST-QUERY";




Java

@FormController("EXAMPLE1")
public class Example1Form{

  @Inject EmpPkg emp_pkg;
 

  public static abstract class EmpPkg {
    public abstract void fill_job_name();
  }
 

  @Package
  public class EmpPkgBody extends EmpPkg {
    
    
    public void fill_job_name() {
      SqlCursor <?> lookup_job = cursorFor(
        "SELECT job_title FROM jobs WHERE
        job_id = :EMP_BLOCK.JOB_ID"

      );
      try {
        open(lookup_job);
        fetchInto(lookup_job) ,
        nameIn("EMP_BLOCK.JOB_NAME"));
      } finally {
        if (lookup_job.isOpen()) {
          close(lookup_job);
        }
      }
    }
    
    
  }
  
  
  @WhenNewFormInstance
  public void form_WHEN_NEW_FORM_INSTANCE() {
    
    
    executeQuery();
    
    
  }
  
  
  @PostQuery("EMP_BLOCK")
  public void block_EMP_BLOCK_POST_QUERY() {
    emp_pkg.fill_job_name();
  }
  
  
}

ESTIMATE MY MIGRATION

Files to download

Piotr Niedźwiecki

Business Solutions Director

+48 668 221 322 solutions@7bulls.com

Piotr Niedźwiecki

Contact us to learn more about the partner network.

7bulls logo
7bulls.com Sp. z o.o.
Aleja Armii Ludowej 26, 00‑609 Warsaw
tel.
+48 22 583 10 60

Among others, we have provided key solutions for:

Conforama Empik Toyota mBank CrediteAgricole Orange RaboBank Cyfrowy Polsat