ACTION DEFAULTS
   ACTION CargaTablas(TEXT="Cargar",IMAGE="diropen",COMMENT="Carga las tablas de la base de datos fuente",                      ACCELERATOR=Control-O)
   ACTION Export(TEXT="Export",IMAGE="disk",COMMENT="Exporta Tablas y Datos",                          ACCELERATOR=Control-S)
   ACTION close(TEXT="Cerrar",IMAGE="quit",COMMENT="Salir Herramienta",                               ACCELERATOR=Alt-F4)
 
END

TOPMENU
  GROUP Tablas (TEXT="Cargar")
    COMMAND cargar
    COMMAND export
    
    SEPARATOR
    COMMAND cerrar
  END
  
LAYOUT(VERSION="1.02",TEXT="Schema manager",STYLE="dbstyle")
GROUP (TEXT="Table")
GRID
{
Base Datos a importar: [db                            ]

<t TABLAS                                                                   >
[cn           |cno                  |t1      |cn1 ]
[cn           |cno                  |t1      |cn1 ]
[cn           |cno                  |t1      |cn1 ]
[cn           |cno                  |t1      |cn1 ]
[cn           |cno                  |t1      |cn1 ]
[cn           |cno                  |t1      |cn1 ]
[cn           |cno                  |t1      |cn1 ]
[cn           |cno                  |t1      |cn1 ]
[cn           |cno                  |t1      |cn1 ]
[cn           |cno                  |t1      |cn1 ]


}
END -- grid
END
ATTRIBUTES
EDIT  db = FORMONLY.db1, REQUIRED;
EDIT cn = FORMONLY.nombre_origen, COLOR=BLUE,  TITLE="TABLAS ORIGEN",
  COMMENT="Name of database table";
EDIT t1 = FORMONLY.tabid;

EDIT cno = FORMONLY.nombre_destino, COLOR=BLUE,TITLE="TABLAS DESTINO",
  COMMENT="Name of database table";
  
CHECKBOX cn1 = FORMONLY.aplica,
  TITLE="Apl",
  UNHIDABLE, NOT NULL, REQUIRED,
  COMMENT="Exportar",NOT NULL,
  VALUECHECKED="SI", VALUEUNCHECKED="NO";
END


INSTRUCTIONS

SCREEN RECORD stablas(
   FORMONLY.nombre_origen,
   FORMONLY.nombre_destino,
   FORMONLY.tabid,
   FORMONLY.aplica
   
);