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.ProjectType>VCLApplication</Borland.ProjectType>
<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 "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.1.4\0"
VALUE "ProductVersion", "2.1.5\0"
END
END
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'
ClientHeight = 666
ClientWidth = 640
ExplicitTop = -136
ExplicitWidth = 648
ExplicitHeight = 693
ExplicitHeight = 700
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -132,16 +131,16 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Width = 640
ExplicitWidth = 640
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
ExplicitWidth = 457
Width = 457
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
ExplicitWidth = 240
Width = 240
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 295
ExplicitLeft = 295
Left = 367
ExplicitLeft = 367
ExplicitWidth = 244
Width = 244
end

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

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

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

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

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

@ -148,8 +148,8 @@ end;
procedure TfEditorRemesaCliente.ImprimirInterno;
begin
inherited;
FController.Print(FRemesaCliente);
// inherited;
// FController.Print(FRemesaCliente);
end;
procedure TfEditorRemesaCliente.JvFormStorageRestorePlacement(Sender: TObject);
@ -189,8 +189,8 @@ end;
procedure TfEditorRemesaCliente.PrevisualizarInterno;
begin
inherited;
FController.Preview(FRemesaCliente);
// inherited;
// FController.Preview(FRemesaCliente);
end;
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
ExplicitWidth = 785
inherited tbxMain: TTBXToolbar
ExplicitWidth = 561
ExplicitWidth = 403
object TBXSeparatorItem17: TTBXSeparatorItem [12]
end
end
@ -83,10 +83,10 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
ImageIndex = 24
end
inherited actPrevisualizar: TAction
Visible = True
Enabled = False
end
inherited actImprimir: TAction
Visible = True
Enabled = False
end
inherited actDuplicar: TAction
Visible = False

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

@ -97,6 +97,7 @@ var
ARemesasCliente: IBizRemesaCliente;
AllItems: Boolean;
begin
{
ARemesasCliente := Nil;
AllItems := False;
@ -130,6 +131,7 @@ begin
end;
end;
end;
}
end;
function TfEditorRemesasCliente.GetController: IRemesasClienteController;
@ -164,6 +166,7 @@ var
ARemesasCliente: IBizRemesaCliente;
AllItems: Boolean;
begin
{
ARemesasCliente := Nil;
AllItems := False;
@ -197,6 +200,7 @@ begin
end;
end;
end;
}
end;
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
Width = 690
Caption = 'Remesa de pago'
ExplicitWidth = 676
ExplicitWidth = 690
inherited Image1: TImage
Left = 663
Picture.Data = {
@ -47,9 +47,9 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
end
inherited TBXDock: TTBXDock
Width = 690
ExplicitWidth = 676
ExplicitWidth = 690
inherited tbxMain: TTBXToolbar
ExplicitWidth = 488
ExplicitWidth = 330
inherited TBXItem2: TTBXItem
Visible = False
end
@ -79,12 +79,6 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
inherited TBXItem21: TTBXItem
Visible = False
end
inherited TBXItem22: TTBXItem
Visible = False
end
inherited TBXItem9: TTBXItem
Visible = False
end
end
inherited TBXSubmenuItem1: TTBXSubmenuItem
inherited TBXItem32: TTBXItem
@ -106,21 +100,23 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
end
end
inherited pgPaginas: TPageControl
Width = 690
Height = 463
Width = 684
Height = 457
MultiLine = True
ExplicitWidth = 690
ExplicitHeight = 463
ExplicitLeft = 3
ExplicitTop = 79
ExplicitWidth = 684
ExplicitHeight = 457
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 682
ExplicitHeight = 435
ExplicitWidth = 676
ExplicitHeight = 429
inline frViewRecibosRemesaProveedor1: TfrViewRecibosRemesaProveedor
Left = 0
Top = 155
Width = 682
Height = 280
Width = 676
Height = 274
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -131,13 +127,13 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
TabOrder = 0
ReadOnly = False
ExplicitTop = 155
ExplicitWidth = 682
ExplicitHeight = 280
ExplicitWidth = 676
ExplicitHeight = 274
inherited cxGrid: TcxGrid
Width = 682
Height = 255
ExplicitWidth = 668
ExplicitHeight = 199
Width = 676
Height = 249
ExplicitWidth = 676
ExplicitHeight = 249
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@ -149,26 +145,14 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
end
end
inherited ToolBar1: TToolBar
Width = 682
ExplicitWidth = 668
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
Width = 676
ExplicitWidth = 676
end
end
inline frViewRemesaProveedor1: TfrViewRemesaProveedor
Left = 0
Top = 0
Width = 682
Width = 676
Height = 155
Align = alTop
Font.Charset = DEFAULT_CHARSET
@ -179,12 +163,12 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ParentFont = False
TabOrder = 1
ReadOnly = False
ExplicitWidth = 682
ExplicitWidth = 676
ExplicitHeight = 155
inherited dxLayoutControlRemesaProveedor: TdxLayoutControl
Width = 682
Width = 676
Height = 155
ExplicitWidth = 682
ExplicitWidth = 676
ExplicitHeight = 155
inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 164
@ -195,8 +179,8 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Width = 108
end
inherited edtFechaRemesa: TcxDBDateEdit
Left = 426
ExplicitLeft = 426
Left = 423
ExplicitLeft = 423
ExplicitWidth = 170
Width = 170
end
@ -215,8 +199,8 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
item
Width = 200
end>
ExplicitTop = 519
ExplicitWidth = 676
ExplicitTop = 585
ExplicitWidth = 690
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
@ -232,12 +216,12 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ParentFont = False
TabOrder = 4
ReadOnly = False
ExplicitTop = 473
ExplicitWidth = 676
ExplicitTop = 539
ExplicitWidth = 690
ExplicitHeight = 46
inherited dxLayoutControl1: TdxLayoutControl
Width = 690
ExplicitWidth = 676
ExplicitWidth = 690
inherited Bevel1: TBevel
Left = 92
Top = 91
@ -412,6 +396,14 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
inherited EditorActionList: TActionList [5]
Left = 96
Top = 168
inherited actPrevisualizar: TAction
Enabled = False
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
object actVolcarDisco: TAction
Category = 'Acciones'
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'
ClientWidth = 820
ExplicitWidth = 828
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -44,7 +43,7 @@ inherited fEditorRemesasProveedor: TfEditorRemesasProveedor
Width = 820
ExplicitWidth = 820
inherited tbxMain: TTBXToolbar
ExplicitWidth = 561
ExplicitWidth = 403
object TBXSeparatorItem17: TTBXSeparatorItem [12]
end
end
@ -80,10 +79,10 @@ inherited fEditorRemesasProveedor: TfEditorRemesasProveedor
ImageIndex = 24
end
inherited actPrevisualizar: TAction
Visible = True
Enabled = False
end
inherited actImprimir: TAction
Visible = True
Enabled = False
end
inherited actDuplicar: TAction
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.ProjectType/>
<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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

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