Remesas de cliente
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@62 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
parent
07bdfb0a79
commit
9d2c9364a9
@ -0,0 +1,316 @@
|
|||||||
|
object fEditorExportacionNorma32: TfEditorExportacionNorma32
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
ActiveControl = edtCodEntidad
|
||||||
|
BorderStyle = bsDialog
|
||||||
|
Caption = 'Volcado de remesas a disco (Norma 32)'
|
||||||
|
ClientHeight = 366
|
||||||
|
ClientWidth = 389
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
Position = poMainFormCenter
|
||||||
|
OnCreate = FormCreate
|
||||||
|
DesignSize = (
|
||||||
|
389
|
||||||
|
366)
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 144
|
||||||
|
Width = 90
|
||||||
|
Height = 13
|
||||||
|
Margins.Bottom = 0
|
||||||
|
Caption = 'Entidad receptora:'
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 171
|
||||||
|
Width = 42
|
||||||
|
Height = 13
|
||||||
|
Margins.Bottom = 0
|
||||||
|
Caption = 'Agencia:'
|
||||||
|
end
|
||||||
|
object Bevel1: TBevel
|
||||||
|
Left = 8
|
||||||
|
Top = 321
|
||||||
|
Width = 373
|
||||||
|
Height = 3
|
||||||
|
Anchors = [akLeft, akRight, akBottom]
|
||||||
|
Shape = bsBottomLine
|
||||||
|
ExplicitTop = 328
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 264
|
||||||
|
Width = 71
|
||||||
|
Height = 13
|
||||||
|
Margins.Bottom = 0
|
||||||
|
Caption = 'Guardar como:'
|
||||||
|
end
|
||||||
|
object Bevel2: TBevel
|
||||||
|
Left = 24
|
||||||
|
Top = 245
|
||||||
|
Width = 349
|
||||||
|
Height = 3
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Shape = bsBottomLine
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 202
|
||||||
|
Top = 144
|
||||||
|
Width = 48
|
||||||
|
Height = 13
|
||||||
|
Margins.Bottom = 0
|
||||||
|
Caption = '(4 d'#237'gitos)'
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 202
|
||||||
|
Top = 171
|
||||||
|
Width = 48
|
||||||
|
Height = 13
|
||||||
|
Margins.Bottom = 0
|
||||||
|
Caption = '(4 d'#237'gitos)'
|
||||||
|
end
|
||||||
|
object Label7: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 90
|
||||||
|
Width = 65
|
||||||
|
Height = 13
|
||||||
|
Margins.Bottom = 0
|
||||||
|
Caption = 'Identificador:'
|
||||||
|
end
|
||||||
|
object Label8: TLabel
|
||||||
|
Left = 301
|
||||||
|
Top = 90
|
||||||
|
Width = 54
|
||||||
|
Height = 13
|
||||||
|
Margins.Bottom = 0
|
||||||
|
Caption = '(15 d'#237'gitos)'
|
||||||
|
end
|
||||||
|
object Label9: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 117
|
||||||
|
Width = 69
|
||||||
|
Height = 13
|
||||||
|
Margins.Bottom = 0
|
||||||
|
Caption = 'C'#243'digo I.N.E.:'
|
||||||
|
end
|
||||||
|
object Label10: TLabel
|
||||||
|
Left = 301
|
||||||
|
Top = 117
|
||||||
|
Width = 48
|
||||||
|
Height = 13
|
||||||
|
Margins.Bottom = 0
|
||||||
|
Caption = '(9 d'#237'gitos)'
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 201
|
||||||
|
Width = 78
|
||||||
|
Height = 13
|
||||||
|
Margins.Bottom = 0
|
||||||
|
Caption = 'Fecha de cargo:'
|
||||||
|
end
|
||||||
|
object edtCodEntidad: TcxMaskEdit
|
||||||
|
Left = 120
|
||||||
|
Top = 141
|
||||||
|
Properties.BeepOnError = True
|
||||||
|
Properties.MaxLength = 4
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 2
|
||||||
|
Text = ' '
|
||||||
|
Width = 73
|
||||||
|
end
|
||||||
|
object edtCodAgencia: TcxMaskEdit
|
||||||
|
Left = 120
|
||||||
|
Top = 168
|
||||||
|
Properties.BeepOnError = True
|
||||||
|
Properties.MaxLength = 4
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 3
|
||||||
|
Text = ' '
|
||||||
|
Width = 73
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 301
|
||||||
|
Top = 330
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Anchors = [akLeft, akRight, akBottom]
|
||||||
|
Cancel = True
|
||||||
|
Caption = '&Cancelar'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 7
|
||||||
|
OnClick = CancelBtnClick
|
||||||
|
end
|
||||||
|
object OKBtn: TButton
|
||||||
|
Left = 202
|
||||||
|
Top = 330
|
||||||
|
Width = 85
|
||||||
|
Height = 25
|
||||||
|
Action = actVolcar
|
||||||
|
Anchors = [akLeft, akRight, akBottom]
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object JvFilenameEdit1: TJvFilenameEdit
|
||||||
|
Left = 24
|
||||||
|
Top = 283
|
||||||
|
Width = 349
|
||||||
|
Height = 21
|
||||||
|
Flat = False
|
||||||
|
ParentFlat = False
|
||||||
|
Filter = 'Ficheros de norma 32 (*.C32)|*.C32'
|
||||||
|
DialogOptions = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
|
||||||
|
DialogTitle = 'Volcar a disco la remesa'
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object edtCodigoIdentif: TcxMaskEdit
|
||||||
|
Left = 120
|
||||||
|
Top = 87
|
||||||
|
Properties.BeepOnError = True
|
||||||
|
Properties.MaxLength = 15
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 0
|
||||||
|
Text = ' '
|
||||||
|
Width = 167
|
||||||
|
end
|
||||||
|
object edtINE: TcxMaskEdit
|
||||||
|
Left = 120
|
||||||
|
Top = 114
|
||||||
|
Properties.BeepOnError = True
|
||||||
|
Properties.MaxLength = 9
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 1
|
||||||
|
Text = ' '
|
||||||
|
Width = 167
|
||||||
|
end
|
||||||
|
object edtFechaCargo: TcxDateEdit
|
||||||
|
Left = 120
|
||||||
|
Top = 198
|
||||||
|
Properties.DateButtons = [btnToday]
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.SaveTime = False
|
||||||
|
Properties.ShowTime = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 4
|
||||||
|
Width = 167
|
||||||
|
end
|
||||||
|
object pnlHeader: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 389
|
||||||
|
Height = 64
|
||||||
|
Align = alTop
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Color = clWhite
|
||||||
|
Padding.Left = 25
|
||||||
|
Padding.Top = 8
|
||||||
|
Padding.Right = 25
|
||||||
|
Padding.Bottom = 8
|
||||||
|
ParentBackground = False
|
||||||
|
TabOrder = 8
|
||||||
|
object lblTitle: TLabel
|
||||||
|
AlignWithMargins = True
|
||||||
|
Left = 25
|
||||||
|
Top = 8
|
||||||
|
Width = 339
|
||||||
|
Height = 13
|
||||||
|
Margins.Left = 0
|
||||||
|
Margins.Top = 0
|
||||||
|
Margins.Right = 0
|
||||||
|
Margins.Bottom = 8
|
||||||
|
Align = alTop
|
||||||
|
Caption = 'Volcado de remesas a disco'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
ExplicitWidth = 155
|
||||||
|
end
|
||||||
|
object lblComments: TLabel
|
||||||
|
AlignWithMargins = True
|
||||||
|
Left = 50
|
||||||
|
Top = 29
|
||||||
|
Width = 314
|
||||||
|
Height = 24
|
||||||
|
Margins.Left = 25
|
||||||
|
Margins.Top = 0
|
||||||
|
Margins.Right = 0
|
||||||
|
Align = alClient
|
||||||
|
Caption = 'Introduzca los siguientes datos para realizar el volcado'
|
||||||
|
ExplicitWidth = 263
|
||||||
|
ExplicitHeight = 13
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object JvFormStorage: TJvFormStorage
|
||||||
|
AppStorage = JvAppRegistryStorage
|
||||||
|
AppStoragePath = 'fEditorBase\'
|
||||||
|
VersionCheck = fpvcNocheck
|
||||||
|
StoredProps.Strings = (
|
||||||
|
'edtCodigoIdentif.Text'
|
||||||
|
'edtINE.Text')
|
||||||
|
StoredValues = <>
|
||||||
|
Left = 80
|
||||||
|
Top = 32
|
||||||
|
end
|
||||||
|
object JvAppRegistryStorage: TJvAppRegistryStorage
|
||||||
|
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
|
||||||
|
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
|
||||||
|
Root = 'Software\FactuGES'
|
||||||
|
SubStorages = <>
|
||||||
|
Left = 112
|
||||||
|
Top = 32
|
||||||
|
end
|
||||||
|
object ActionList1: TActionList
|
||||||
|
Left = 144
|
||||||
|
Top = 32
|
||||||
|
object actVolcar: TAction
|
||||||
|
Caption = 'Volcar a disco'
|
||||||
|
OnExecute = actVolcarExecute
|
||||||
|
OnUpdate = actVolcarUpdate
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,231 @@
|
|||||||
|
unit uEditorExportacionNorma32;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, ExtCtrls, StdCtrls, pngimage, cxControls, cxContainer, cxEdit,
|
||||||
|
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar,
|
||||||
|
uIEditorExportacionNorma32, JvExControls, JvComponent, JvgWizardHeader,
|
||||||
|
JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement,
|
||||||
|
JvDialogs, Mask, JvExMask, JvToolEdit, ActnList, cxGraphics, cxLookAndFeels,
|
||||||
|
cxLookAndFeelPainters;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorExportacionNorma32 = class(TForm, IEditorExportacionNorma32)
|
||||||
|
OKBtn: TButton;
|
||||||
|
CancelBtn: TButton;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
edtCodEntidad: TcxMaskEdit;
|
||||||
|
edtCodAgencia: TcxMaskEdit;
|
||||||
|
Bevel1: TBevel;
|
||||||
|
JvFormStorage: TJvFormStorage;
|
||||||
|
JvAppRegistryStorage: TJvAppRegistryStorage;
|
||||||
|
Label1: TLabel;
|
||||||
|
Bevel2: TBevel;
|
||||||
|
JvFilenameEdit1: TJvFilenameEdit;
|
||||||
|
ActionList1: TActionList;
|
||||||
|
actVolcar: TAction;
|
||||||
|
Label5: TLabel;
|
||||||
|
Label6: TLabel;
|
||||||
|
Label7: TLabel;
|
||||||
|
edtCodigoIdentif: TcxMaskEdit;
|
||||||
|
Label8: TLabel;
|
||||||
|
Label9: TLabel;
|
||||||
|
edtINE: TcxMaskEdit;
|
||||||
|
Label10: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
edtFechaCargo: TcxDateEdit;
|
||||||
|
pnlHeader: TPanel;
|
||||||
|
lblTitle: TLabel;
|
||||||
|
lblComments: TLabel;
|
||||||
|
procedure OKBtnClick(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure CancelBtnClick(Sender: TObject);
|
||||||
|
procedure actVolcarUpdate(Sender: TObject);
|
||||||
|
procedure actVolcarExecute(Sender: TObject);
|
||||||
|
private
|
||||||
|
FFichero : String;
|
||||||
|
protected
|
||||||
|
procedure SetCodigoEntidad(const AValue: Integer);
|
||||||
|
function GetCodigoEntidad : Integer;
|
||||||
|
|
||||||
|
procedure SetCodigoAgencia(const AValue: Integer);
|
||||||
|
function GetCodigoAgencia : Integer;
|
||||||
|
|
||||||
|
function GetCodigoINE: String;
|
||||||
|
procedure SetCodigoINE(const Value: String);
|
||||||
|
|
||||||
|
procedure SetCodigoIdentif(const Value: String);
|
||||||
|
function GetCodigoIdentif: String;
|
||||||
|
|
||||||
|
procedure SetFechaCargo(const AValue: TDateTime);
|
||||||
|
function GetFechaCargo : TDateTime;
|
||||||
|
|
||||||
|
procedure SetFichero(const AValue: String);
|
||||||
|
function GetFichero : String;
|
||||||
|
public
|
||||||
|
property CodigoEntidad : Integer read GetCodigoEntidad write SetCodigoEntidad;
|
||||||
|
property CodigoAgencia : Integer read GetCodigoAgencia write SetCodigoAgencia;
|
||||||
|
property CodigoIdentif : String read GetCodigoIdentif write SetCodigoIdentif;
|
||||||
|
property CodigoINE : String read GetCodigoINE write SetCodigoINE;
|
||||||
|
property FechaCargo : TDateTime read GetFechaCargo write SetFechaCargo;
|
||||||
|
property Fichero : String read GetFichero write SetFichero;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
uDialogUtils;
|
||||||
|
|
||||||
|
{ TfEditorExportacionNorma32 }
|
||||||
|
|
||||||
|
procedure TfEditorExportacionNorma32.actVolcarExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FFichero := JvFilenameEdit1.FileName;
|
||||||
|
ModalResult := mrOk;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorExportacionNorma32.actVolcarUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
(Sender as TAction).Enabled :=
|
||||||
|
(Length(edtCodEntidad.Text) = 4) and
|
||||||
|
(Length(edtCodAgencia.Text) = 4) and
|
||||||
|
(Length(JvFilenameEdit1.Text) > 0)
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorExportacionNorma32.CancelBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorExportacionNorma32.FormCreate(Sender: TObject);
|
||||||
|
var
|
||||||
|
APath : String;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
with JvFormStorage do
|
||||||
|
begin
|
||||||
|
if Pos('_', Self.Name) = 0 then
|
||||||
|
APath := Self.Name
|
||||||
|
else
|
||||||
|
APath := Copy(Self.Name, 0, (Pos('_', Self.Name)-1));
|
||||||
|
AppStoragePath := APath;
|
||||||
|
end;
|
||||||
|
edtFechaCargo.Date := Now;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorExportacionNorma32.GetCodigoAgencia: Integer;
|
||||||
|
begin
|
||||||
|
Result := StrToInt(edtCodAgencia.Text);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorExportacionNorma32.GetCodigoEntidad: Integer;
|
||||||
|
begin
|
||||||
|
Result := StrToInt(edtCodEntidad.Text);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorExportacionNorma32.GetCodigoINE: String;
|
||||||
|
begin
|
||||||
|
Result := edtINE.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorExportacionNorma32.GetFechaCargo: TDateTime;
|
||||||
|
begin
|
||||||
|
Result := edtFechaCargo.Date;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorExportacionNorma32.GetFichero: String;
|
||||||
|
begin
|
||||||
|
Result := FFichero;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorExportacionNorma32.GetCodigoIdentif: String;
|
||||||
|
begin
|
||||||
|
Result := edtCodigoIdentif.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorExportacionNorma32.OKBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
ASaveDialog : TSaveDialog; // Save dialog variable
|
||||||
|
AArchivo : string;
|
||||||
|
ARuta : String;
|
||||||
|
begin
|
||||||
|
AArchivo := FFichero;
|
||||||
|
ARuta := ExtractFilePath(Application.ExeName);
|
||||||
|
|
||||||
|
// ASaveDialog := TSaveDialog.Create(nil);
|
||||||
|
// try
|
||||||
|
// ASaveDialog.Title := 'Volcar a disco la remesa';
|
||||||
|
// ASaveDialog.FileName := FFichero;
|
||||||
|
//
|
||||||
|
// ASaveDialog.InitialDir := GetCurrentDir;
|
||||||
|
//
|
||||||
|
// ASaveDialog.Filter := 'Ficheros de norma 19 (*.C19)|*.C19';
|
||||||
|
// ASaveDialog.DefaultExt := 'C19';
|
||||||
|
// ASaveDialog.FilterIndex := 1;
|
||||||
|
//
|
||||||
|
// try
|
||||||
|
// if ASaveDialog.Execute then
|
||||||
|
// begin
|
||||||
|
// FFichero := ASaveDialog.FileName;
|
||||||
|
// ModalResult := mrOk
|
||||||
|
// end
|
||||||
|
// else begin
|
||||||
|
// ModalResult := mrCancel;
|
||||||
|
// end;
|
||||||
|
// except
|
||||||
|
// on e: exception do
|
||||||
|
// ShowErrorMessage('error', 'error', e);
|
||||||
|
// end;
|
||||||
|
// finally
|
||||||
|
// FreeAndNIL(ASaveDialog);
|
||||||
|
// end;
|
||||||
|
|
||||||
|
{ if SaveFileDialog(Application.Handle, 'C19', 'Ficheros de norma 19 (*.C19)|*.C19',
|
||||||
|
'c:\', 'Volcar a disco la remesa', FFichero) then}
|
||||||
|
if SaveFileDialog(Application.Handle, 'C19', 'Ficheros de norma 19 (*.C19)|*.C19',
|
||||||
|
ARuta, 'Volcar a disco la remesa', AArchivo) then
|
||||||
|
ModalResult := mrOk
|
||||||
|
else
|
||||||
|
ModalResult := mrCancel;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorExportacionNorma32.SetCodigoAgencia(const AValue: Integer);
|
||||||
|
begin
|
||||||
|
edtCodAgencia.Text := IntToStr(AValue);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorExportacionNorma32.SetCodigoEntidad(const AValue: Integer);
|
||||||
|
begin
|
||||||
|
edtCodEntidad.Text := IntToStr(AValue);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorExportacionNorma32.SetCodigoINE(const Value: String);
|
||||||
|
begin
|
||||||
|
edtINE.Text := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorExportacionNorma32.SetFechaCargo(const AValue: TDateTime);
|
||||||
|
begin
|
||||||
|
edtFechaCargo.Date := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorExportacionNorma32.SetFichero(const AValue: String);
|
||||||
|
begin
|
||||||
|
FFichero := AValue;
|
||||||
|
JvFilenameEdit1.InitialDir := ExtractFilePath(Application.ExeName);
|
||||||
|
JvFilenameEdit1.FileName := JvFilenameEdit1.InitialDir + PathDelim + FFichero;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorExportacionNorma32.SetCodigoIdentif(const Value: String);
|
||||||
|
begin
|
||||||
|
edtCodigoIdentif.Text := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
Reference in New Issue
Block a user