Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se activa el duplicar de facturas de proveedor, y se desactiva el imprimir y previsualizar de remesas

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@182 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-03-25 19:46:06 +00:00
parent c9e2512299
commit d839192d51
15 changed files with 95 additions and 1029 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

932
Build/Build.fbp5
View File

File diff suppressed because it is too large Load Diff

6
Source/Cliente/FactuGES.dproj
View File

@ -53,11 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.4</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.5</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>

2
Source/Cliente/FactuGES.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.1.5.0\0" VALUE "FileVersion", "2.1.5.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.1.4\0" VALUE "ProductVersion", "2.1.5\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

15
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm
View File

@ -2,9 +2,8 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Caption = 'Lista de facturas de proveedor' Caption = 'Lista de facturas de proveedor'
ClientHeight = 666 ClientHeight = 666
ClientWidth = 640 ClientWidth = 640
ExplicitTop = -136
ExplicitWidth = 648 ExplicitWidth = 648
ExplicitHeight = 693 ExplicitHeight = 700
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -132,16 +131,16 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Width = 640 Width = 640
ExplicitWidth = 640 ExplicitWidth = 640
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 ExplicitWidth = 457
Width = 273 Width = 457
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121 ExplicitWidth = 240
Width = 121 Width = 240
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 295 Left = 367
ExplicitLeft = 295 ExplicitLeft = 367
ExplicitWidth = 244 ExplicitWidth = 244
Width = 244 Width = 244
end end

20
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas
View File

@ -139,8 +139,6 @@ procedure TfEditorFacturasProveedor.DuplicarInterno;
var var
AFactura : IBizFacturaProveedor; AFactura : IBizFacturaProveedor;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
AFactura := FController.Duplicar(FFacturas); AFactura := FController.Duplicar(FFacturas);
try try
@ -148,7 +146,6 @@ AppFactuGES.ShowCapado;
finally finally
actRefrescar.Execute; actRefrescar.Execute;
end; end;
}
end; end;
procedure TfEditorFacturasProveedor.EliminarInterno; procedure TfEditorFacturasProveedor.EliminarInterno;
@ -233,12 +230,16 @@ begin
end; end;
procedure TfEditorFacturasProveedor.ImprimirInterno; procedure TfEditorFacturasProveedor.ImprimirInterno;
var {var
Respuesta : Integer; Respuesta : Integer;
AFacturas: IBizFacturaProveedor; AFacturas: IBizFacturaProveedor;
AllItems: Boolean; AllItems: Boolean;}
begin begin
AppFactuGES.ShowCapado;
//Solo se podrá imprimir la lista de facturas de proveedor visibles de momento
inherited;
{ {
AFacturas := Nil; AFacturas := Nil;
AllItems := False; AllItems := False;
@ -335,12 +336,17 @@ begin
end; end;
procedure TfEditorFacturasProveedor.PrevisualizarInterno; procedure TfEditorFacturasProveedor.PrevisualizarInterno;
{
var var
Respuesta : Integer; Respuesta : Integer;
AFacturas: IBizFacturaProveedor; AFacturas: IBizFacturaProveedor;
AllItems: Boolean; AllItems: Boolean;
}
begin begin
AppFactuGES.ShowCapado;
//Solo se podrá imprimir la lista de facturas de proveedor visibles de momento
inherited;
{ {
AFacturas := Nil; AFacturas := Nil;
AllItems := False; AllItems := False;

24
Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm
View File

@ -49,7 +49,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 724 Width = 724
ExplicitWidth = 724 ExplicitWidth = 724
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 598 ExplicitWidth = 440
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -79,12 +79,6 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
inherited TBXItem21: TTBXItem inherited TBXItem21: TTBXItem
Visible = False Visible = False
end end
inherited TBXItem22: TTBXItem
Visible = False
end
inherited TBXItem9: TTBXItem
Visible = False
end
end end
inherited TBXSubmenuItem1: TTBXSubmenuItem inherited TBXSubmenuItem1: TTBXSubmenuItem
inherited TBXItem32: TTBXItem inherited TBXItem32: TTBXItem
@ -109,7 +103,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 718 Width = 718
Height = 580 Height = 580
MultiLine = True MultiLine = True
ExplicitLeft = -2 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
ExplicitWidth = 718 ExplicitWidth = 718
ExplicitHeight = 580 ExplicitHeight = 580
@ -208,16 +202,16 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 200 ExplicitTop = 210
ExplicitWidth = 710 ExplicitWidth = 710
ExplicitHeight = 352 ExplicitHeight = 342
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Left = 15 Left = 15
Width = 680 Width = 680
Height = 302 Height = 302
ExplicitLeft = 15 ExplicitLeft = 15
ExplicitWidth = 680 ExplicitWidth = 680
ExplicitHeight = 312 ExplicitHeight = 302
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -444,6 +438,14 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
inherited EditorActionList: TActionList [5] inherited EditorActionList: TActionList [5]
Left = 96 Left = 96
Top = 168 Top = 168
inherited actPrevisualizar: TAction
Enabled = False
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
object actVolcarDisco: TAction object actVolcarDisco: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Volcar a disco...' Caption = 'Volcar a disco...'

8
Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas
View File

@ -148,8 +148,8 @@ end;
procedure TfEditorRemesaCliente.ImprimirInterno; procedure TfEditorRemesaCliente.ImprimirInterno;
begin begin
inherited; // inherited;
FController.Print(FRemesaCliente); // FController.Print(FRemesaCliente);
end; end;
procedure TfEditorRemesaCliente.JvFormStorageRestorePlacement(Sender: TObject); procedure TfEditorRemesaCliente.JvFormStorageRestorePlacement(Sender: TObject);
@ -189,8 +189,8 @@ end;
procedure TfEditorRemesaCliente.PrevisualizarInterno; procedure TfEditorRemesaCliente.PrevisualizarInterno;
begin begin
inherited; // inherited;
FController.Preview(FRemesaCliente); // FController.Preview(FRemesaCliente);
end; end;
procedure TfEditorRemesaCliente.SetRemesaCliente(const Value: IBizRemesaCliente); procedure TfEditorRemesaCliente.SetRemesaCliente(const Value: IBizRemesaCliente);

6
Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.dfm
View File

@ -45,7 +45,7 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
Width = 785 Width = 785
ExplicitWidth = 785 ExplicitWidth = 785
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 561 ExplicitWidth = 403
object TBXSeparatorItem17: TTBXSeparatorItem [12] object TBXSeparatorItem17: TTBXSeparatorItem [12]
end end
end end
@ -83,10 +83,10 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
ImageIndex = 24 ImageIndex = 24
end end
inherited actPrevisualizar: TAction inherited actPrevisualizar: TAction
Visible = True Enabled = False
end end
inherited actImprimir: TAction inherited actImprimir: TAction
Visible = True Enabled = False
end end
inherited actDuplicar: TAction inherited actDuplicar: TAction
Visible = False Visible = False

4
Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas
View File

@ -97,6 +97,7 @@ var
ARemesasCliente: IBizRemesaCliente; ARemesasCliente: IBizRemesaCliente;
AllItems: Boolean; AllItems: Boolean;
begin begin
{
ARemesasCliente := Nil; ARemesasCliente := Nil;
AllItems := False; AllItems := False;
@ -130,6 +131,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
function TfEditorRemesasCliente.GetController: IRemesasClienteController; function TfEditorRemesasCliente.GetController: IRemesasClienteController;
@ -164,6 +166,7 @@ var
ARemesasCliente: IBizRemesaCliente; ARemesasCliente: IBizRemesaCliente;
AllItems: Boolean; AllItems: Boolean;
begin begin
{
ARemesasCliente := Nil; ARemesasCliente := Nil;
AllItems := False; AllItems := False;
@ -197,6 +200,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorRemesasCliente.SetRemesasCliente(const Value: IBizRemesaCliente); procedure TfEditorRemesasCliente.SetRemesasCliente(const Value: IBizRemesaCliente);

88
Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.dfm
View File

@ -15,7 +15,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 690 Width = 690
Caption = 'Remesa de pago' Caption = 'Remesa de pago'
ExplicitWidth = 676 ExplicitWidth = 690
inherited Image1: TImage inherited Image1: TImage
Left = 663 Left = 663
Picture.Data = { Picture.Data = {
@ -47,9 +47,9 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 690 Width = 690
ExplicitWidth = 676 ExplicitWidth = 690
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 330
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -79,12 +79,6 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
inherited TBXItem21: TTBXItem inherited TBXItem21: TTBXItem
Visible = False Visible = False
end end
inherited TBXItem22: TTBXItem
Visible = False
end
inherited TBXItem9: TTBXItem
Visible = False
end
end end
inherited TBXSubmenuItem1: TTBXSubmenuItem inherited TBXSubmenuItem1: TTBXSubmenuItem
inherited TBXItem32: TTBXItem inherited TBXItem32: TTBXItem
@ -106,21 +100,23 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 690 Width = 684
Height = 463 Height = 457
MultiLine = True MultiLine = True
ExplicitWidth = 690 ExplicitLeft = 3
ExplicitHeight = 463 ExplicitTop = 79
ExplicitWidth = 684
ExplicitHeight = 457
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 682 ExplicitWidth = 676
ExplicitHeight = 435 ExplicitHeight = 429
inline frViewRecibosRemesaProveedor1: TfrViewRecibosRemesaProveedor inline frViewRecibosRemesaProveedor1: TfrViewRecibosRemesaProveedor
Left = 0 Left = 0
Top = 155 Top = 155
Width = 682 Width = 676
Height = 280 Height = 274
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -131,13 +127,13 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitTop = 155 ExplicitTop = 155
ExplicitWidth = 682 ExplicitWidth = 676
ExplicitHeight = 280 ExplicitHeight = 274
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 682 Width = 676
Height = 255 Height = 249
ExplicitWidth = 668 ExplicitWidth = 676
ExplicitHeight = 199 ExplicitHeight = 249
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -149,26 +145,14 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
end end
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 682 Width = 676
ExplicitWidth = 668 ExplicitWidth = 676
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
inline frViewRemesaProveedor1: TfrViewRemesaProveedor inline frViewRemesaProveedor1: TfrViewRemesaProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 682 Width = 676
Height = 155 Height = 155
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -179,12 +163,12 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitWidth = 682 ExplicitWidth = 676
ExplicitHeight = 155 ExplicitHeight = 155
inherited dxLayoutControlRemesaProveedor: TdxLayoutControl inherited dxLayoutControlRemesaProveedor: TdxLayoutControl
Width = 682 Width = 676
Height = 155 Height = 155
ExplicitWidth = 682 ExplicitWidth = 676
ExplicitHeight = 155 ExplicitHeight = 155
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 164 ExplicitWidth = 164
@ -195,8 +179,8 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Width = 108 Width = 108
end end
inherited edtFechaRemesa: TcxDBDateEdit inherited edtFechaRemesa: TcxDBDateEdit
Left = 426 Left = 423
ExplicitLeft = 426 ExplicitLeft = 423
ExplicitWidth = 170 ExplicitWidth = 170
Width = 170 Width = 170
end end
@ -215,8 +199,8 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 519 ExplicitTop = 585
ExplicitWidth = 676 ExplicitWidth = 690
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
@ -232,12 +216,12 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitTop = 473 ExplicitTop = 539
ExplicitWidth = 676 ExplicitWidth = 690
ExplicitHeight = 46 ExplicitHeight = 46
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 690 Width = 690
ExplicitWidth = 676 ExplicitWidth = 690
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 92 Left = 92
Top = 91 Top = 91
@ -412,6 +396,14 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
inherited EditorActionList: TActionList [5] inherited EditorActionList: TActionList [5]
Left = 96 Left = 96
Top = 168 Top = 168
inherited actPrevisualizar: TAction
Enabled = False
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
object actVolcarDisco: TAction object actVolcarDisco: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Volcar a disco...' Caption = 'Volcar a disco...'

7
Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.dfm
View File

@ -4,7 +4,6 @@ inherited fEditorRemesasProveedor: TfEditorRemesasProveedor
Caption = 'Lista de remesas de pago' Caption = 'Lista de remesas de pago'
ClientWidth = 820 ClientWidth = 820
ExplicitWidth = 828 ExplicitWidth = 828
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -44,7 +43,7 @@ inherited fEditorRemesasProveedor: TfEditorRemesasProveedor
Width = 820 Width = 820
ExplicitWidth = 820 ExplicitWidth = 820
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 561 ExplicitWidth = 403
object TBXSeparatorItem17: TTBXSeparatorItem [12] object TBXSeparatorItem17: TTBXSeparatorItem [12]
end end
end end
@ -80,10 +79,10 @@ inherited fEditorRemesasProveedor: TfEditorRemesasProveedor
ImageIndex = 24 ImageIndex = 24
end end
inherited actPrevisualizar: TAction inherited actPrevisualizar: TAction
Visible = True Enabled = False
end end
inherited actImprimir: TAction inherited actImprimir: TAction
Visible = True Enabled = False
end end
inherited actDuplicar: TAction inherited actDuplicar: TAction
Visible = False Visible = False

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.1.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.1.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 25 de marzo de 2008 19:25</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,0,0,0 FILEVERSION 1,1,0,0
PRODUCTVERSION 1,0,0,0 PRODUCTVERSION 1,1,0,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "1.0.0.0\0" VALUE "FileVersion", "1.1.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.1.0.0\0"
VALUE "CompileDate", "martes, 25 de marzo de 2008 19:25\0" VALUE "CompileDate", "martes, 25 de marzo de 2008 20:38\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"