TTfvsCatalogoExportarForm

Descripción

El objeto TTfvsCatalogoExportarForm (Exportar catálogo) permite exportar los cambios hechos al catálogo a una carpeta para ser importados en otras bases de datos usando el TTfvsCatalogoImportarForm (ver DEV REGISTRO).

La pantalla es:

Exportar catálogo.

En el form tenemos que indicar:

• En qué carpeta guardar los archivos con las transacciones, en este caso la carpeta es C:\pragmaclient\Devlog.
• El sistema indicará cuál es el último archivoencontrado en esa carpeta.
• Debemos informar desde qué fecha queremos exportar las transacciones, es conveniente siempre hacerlo varis días hacia atrás (lo que ya se exportó previamente no se volverá a exportar).

La barra de progreso mostrará el avance de la exportación.

Identidad

• Ancestro: TfvsForm
• Carpeta: C:\DevelopPrx\explorer
• Archivo: fvsCatalogoExportarForm.pas

Declaración

type

 TTfvsCatalogoExportarForm = class(TTfvsForm)
   Panel1: TPanel;
   StatusBar1: TStatusBar;
   Panel4: TPanel;
   Panel5: TPanel;
   Panel3: TPanel;
   ProgressBar1: TProgressBar;
   Panel2: TPanel;
   Panel6: TPanel;
   Panel7: TPanel;
   Edit_SeleccionarCarpeta: TEdit;
   Panel8: TPanel;
   Button_SeleccionarCarpeta: TButton;
   Bevel1: TBevel;
   Panel9: TPanel;
   Panel10: TPanel;
   Panel11: TPanel;
   Panel12: TPanel;
   Panel13: TPanel;
   Panel14: TPanel;
   Edit_UltimoIdentificador: TEdit;
   ComboBox_Identificadores: TComboBox;
   Bevel2: TBevel;
   Panel15: TPanel;
   Button_Exportar: TButton;
   procedure FormShow(Sender: TObject); //override;
   procedure Button_ExportarClick(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
   procedure Button_SeleccionarCarpetaClick(Sender: TObject);
   procedure Edit_SeleccionarCarpetaChange(Sender: TObject);
   procedure Edit_SeleccionarCarpetaEnter(Sender: TObject);
   procedure ComboBox_IdentificadoresChange(Sender: TObject);
 private
   Fdevlog_component: Tfva_dropbox_bandeja_devlog;
   FFolderName: String;
   FFolderNameOk: Boolean;
   FRecordCount: Integer;
   FRefreshing: Boolean;
 protected
   function    DesdeIdentificador: String;

   procedure   show_progress(a_index: Integer; a_count: Integer);
   procedure   SetFolderNameOk(aValue: Boolean);
   procedure   SetRecordCount(aValue: Integer);

   property    devlog_component: Tfva_dropbox_bandeja_devlog read Fdevlog_component write Fdevlog_component;
   property    FolderName: String read FFolderName write FFolderName;
   property    FolderNameOk: Boolean read FFolderNameOk write SetFolderNameOk;
   property    RecordCount: Integer read FRecordCount write SetRecordCount;
   property    Refreshing: Boolean read FRefreshing write FRefreshing;
 public
 end;

Implementación

procedure Button_ExportarClick(Sender: TObject)

Exporta las transacciones leyendo desde:

• La tabla Log de desarrollo (prxdevlog) es la cabecera de cada transacción.
• La tabla Log de desarrollo, detalle (prxdevlogD) guarda el detalle de cada transacción.

Uso

Solo se usa desde TfvsClassCatalogos.menuCatalogoExportarClick.