Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Version 4.1.9

Browse Source 
Tareas #713: Poder ver el precio neto y dto al igual que en las facturas en los albaranes preguntando
    Errores #532: Que el alabran salga 100% zoom
    Errores #712: Error al mandari imprimir un albarán con importes no los imprime, el previsualizar si funciona bien


git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@139 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2011-10-31 16:17:02 +00:00
parent c03fa7301e
commit 6749bcadb4
35 changed files with 282 additions and 253 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +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">4</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">8</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">4.1.8.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">4.1.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></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">4</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">9</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">4.1.9.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">4.1.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 4,1,8,0
PRODUCTVERSION 4,1,8,0
FILEVERSION 4,1,9,0
PRODUCTVERSION 4,1,9,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "4.1.8.0\0"
VALUE "FileVersion", "4.1.9.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "4.1.8.0\0"
VALUE "ProductVersion", "4.1.9.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

23
Source/Informes/1/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

23
Source/Informes/2/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

BIN
Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dpk
View File

Binary file not shown.

8
Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dproj
View File

@ -49,14 +49,14 @@
<DelphiCompile Include="AlbaranesCliente_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Albaranes de proveedor\Model\AlbaranesCliente_data.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Model\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Model\Articulos_controller.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Model\Contactos_controller.dcp" />
<DCCReference Include="uAlbaranesClienteController.pas" />
<DCCReference Include="uAlbaranesClienteReportController.pas" />
<DCCReference Include="uArticulosAlbaranClienteController.pas" />
<DCCReference Include="uDetallesAlbaranClienteController.pas" />
<DCCReference Include="View\AlbaranesCliente_data.dcp" />
<DCCReference Include="View\AlbaranesCliente_model.dcp" />
<DCCReference Include="View\Articulos_controller.dcp" />
<DCCReference Include="View\Contactos_controller.dcp" />
<DCCReference Include="View\uIDialogListaAlbaranesClienteEnvioEMail.pas" />
<DCCReference Include="View\uIEditorAlbaranCliente.pas" />
<DCCReference Include="View\uIEditorAlbaranDevCliente.pas" />

7
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
View File

@ -229,7 +229,8 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetRptAlbaranes(AListaID);
AStream := FDataModule.GetRptAlbaranes(AListaID, VerImprimirPrecios, VerImprimirRefProveedor, VerImprimirObservaciones, VerImprimirIncidencias);
try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then
@ -237,6 +238,10 @@ begin
try
AEditor.Controller := Self;
AEditor.ListaID := AListaID;
AEditor.VerPrecios := VerImprimirPrecios;
AEditor.VerRefProveedor := VerImprimirRefProveedor;
AEditor.VerPrecios := VerImprimirObservaciones;
AEditor.VerRefProveedor := VerImprimirIncidencias;
AEditor.Title := 'Albarán - ' + AppFactuGES.EmpresaActiva.NOMBRE;
AEditor.LoadFromStream(AStream);
AEditor.TablaImpresion := nme_AlbaranesCliente;

12
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{14DE36A6-6267-4FEF-9D03-91E337C4602E}';
RID_AlbaranesCliente = '{9D1A3BBF-BC06-4825-86E7-68E320A7C34A}';
RID_AlbaranesCliente_Detalles = '{0E595562-8280-4291-A4AA-045E2B28A195}';
RID_ListaAnosAlbaranes = '{97E74705-E58C-4C35-8BD8-4FB92B071A41}';
RID_AlbaranesCliente = '{C7D38181-D27A-4E22-8F3C-A75AC30C5415}';
RID_AlbaranesCliente_Detalles = '{CD08D967-9833-4D28-85E1-44C419A73C09}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -165,7 +165,7 @@ const
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{F8651CA9-7AA5-49D3-9B88-D00550F83AC8}']
['{7BF69765-6C17-4529-8B77-AE37159DABE2}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -200,7 +200,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{B0B8190A-97CB-4B5E-9FBE-B1C6BB0335DC}']
['{BD3E70CF-6C9E-4DEF-B2C5-111B4354674D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -811,7 +811,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{DCF15520-3EF3-45FE-B9D1-A4228A0485B4}']
['{C04F5C39-EDA5-480C-8A9D-AE3C282D097D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);

12
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{73BEA046-51D4-4B2C-AB1A-5C1862B754E7}';
RID_AlbaranesClienteDelta = '{2A0822ED-223A-48D9-A3DA-63062ED57B5F}';
RID_AlbaranesCliente_DetallesDelta = '{F64591E6-7183-4BD7-811D-A91F8746DB07}';
RID_ListaAnosAlbaranesDelta = '{9E9C7882-2EDF-423A-8B9F-22368EA2C950}';
RID_AlbaranesClienteDelta = '{C0D2EB08-F338-466A-BF04-1A86B1F4DB68}';
RID_AlbaranesCliente_DetallesDelta = '{A979524D-4C7B-4853-9AE2-EF0FEB0F920B}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{73BEA046-51D4-4B2C-AB1A-5C1862B754E7}']
['{9E9C7882-2EDF-423A-8B9F-22368EA2C950}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{2A0822ED-223A-48D9-A3DA-63062ED57B5F}']
['{C0D2EB08-F338-466A-BF04-1A86B1F4DB68}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -662,7 +662,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{F64591E6-7183-4BD7-811D-A91F8746DB07}']
['{A979524D-4C7B-4853-9AE2-EF0FEB0F920B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;

297
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
View File

@ -809,7 +809,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item
Name = 'ID_ALBARAN'
DataType = datInteger
Value = ''
Value = '123'
end>
Statements = <
item
@ -818,13 +818,13 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
SQL =
'SELECT DET.ID, DET.ID_ALBARAN,'#10' DET.POSICION, DET.TIPO_DET' +
'ALLE,'#10' ARTICULOS.REFERENCIA, F_RTFTOTEXT(DET.CONCEPTO) as ' +
'CONCEPTO, DET.CANTIDAD,'#10' DET.IMPORTE_UNIDAD - (DET.IMPORTE' +
'_UNIDAD * (COALESCE(DET.DESCUENTO,0) / 100)) as IMPORTE_UNIDAD, ' +
'DET.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA_PROV as REFERENCI' +
'A_PROVEEDOR'#10'FROM ALBARANES_CLIENTE_DETALLES DET'#10'LEFT OUTER JOIN ' +
'ARTICULOS ON (DET.ID_ARTICULO = ARTICULOS.ID)'#10#10'WHERE DET.ID_ALBA' +
'RAN = :ID_ALBARAN AND {Where}'#10'ORDER BY DET.ID_ALBARAN, DET.POSIC' +
'ION;'#10
'CONCEPTO, DET.CANTIDAD,'#10' DET.IMPORTE_UNIDAD,'#10' DET.DE' +
'SCUENTO,'#10'/* DET.IMPORTE_UNIDAD - (DET.IMPORTE_UNIDAD * (CO' +
'ALESCE(DET.DESCUENTO,0) / 100)) as IMPORTE_NETO,*/'#10' DET.IM' +
'PORTE_TOTAL,'#10' ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROV' +
'EEDOR'#10'FROM ALBARANES_CLIENTE_DETALLES DET'#10'LEFT OUTER JOIN ARTICU' +
'LOS ON (DET.ID_ARTICULO = ARTICULOS.ID)'#10#10'WHERE DET.ID_ALBARAN = ' +
':ID_ALBARAN AND {Where}'#10'ORDER BY DET.ID_ALBARAN, DET.POSICION;'#10
StatementType = stSQL
ColumnMappings = <
item
@ -868,6 +868,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end>
end>
Name = 'Informe_Detalles'
@ -905,6 +909,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
@ -1807,136 +1815,183 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000
ReportOptions.LastChange = 40644.654743692130000000
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 40842.791316122700000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'procedure Chart1OnBeforePrint(Sender: TfrxComponent);'
'var'
' Pagina: Variant;'
''
''
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena: String;'
'begin'
' '
' if (<Ano1> <> 0) then'
' begin '
' DatosEmpresa.Lines.Clear;'
' if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
' if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
' TLineSeries(Chart1.Series[0]).Title := '#39'Servidos '#39' + VarToS' +
'tr(<Ano1>);'
' TLineSeries(Chart1.Series[2]).Title := '#39'Incidencias '#39' + Var' +
'ToStr(<Ano1>);'
' TLineSeries(Chart1.Series[4]).Title := '#39'Fuera de fecha '#39' + ' +
'VarToStr(<Ano1>);'
' TLineSeries(Chart1.Series[6]).Title := '#39#211'rdenes dev. '#39' + Va' +
'rToStr(<Ano1>);'
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX_EMPRESA' +
'">;'
' DatosEmpresa.Lines.Add(Cadena);'
'end;'
''
'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
'begin'
' NombreEmpresa.Lines.Clear;'
' NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
'end;'
''
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
'var'
' ACadena : String;'
'begin'
' ACadena := '#39#39';'
' DireccionEnvio.Lines.Clear;'
''
' ACadena := '#39#39';'
''
' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
' if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' ACadena := ACadena + <frxDBCabecera."POBLACION">;'
''
' if (ACadena <> '#39#39') then'
' DireccionEnvio.Lines.Add(ACadena);'
''
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
'end;'
''
'procedure Memo2OnBeforePrint(Sender: TfrxComponent);'
'begin'
' Memo2.Lines.Clear;'
' if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
' Memo2.Lines.Add('#39'ORDEN DE DEVOLUCI'#211'N'#39')'
' else'
' Memo2.Lines.Add('#39'ALBAR'#193'N DE CLIENTE'#39')'
'end;'
''
'procedure Memo5OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
' begin'
' Memo5.Lines.Clear;'
' Memo5.Lines.Add('#39'N'#186' orden:'#39');'
' end;'
' '
' if (<Ano2> > 0) then'
'end;'
''
'procedure Memo9OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
' begin'
' Memo9.Lines.Clear;'
' Memo9.Lines.Add('#39'Fecha orden:'#39');'
' end;'
'end;'
''
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if not Engine.FinalPass then'
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
''
' if Engine.FinalPass then'
' Set('#39'Pagina'#39', (<Pagina> + 1));'
'end;'
''
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
'begin'
' Set('#39'Pagina'#39', 0);'
' Set('#39'TotalPaginas'#39', 0);'
'end;'
''
'procedure Picture1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if <ShowLogotipo> then'
' begin '
' Picture1.Visible := True; '
' Picture2.Visible := True; '
' Picture3.Visible := True; '
' Picture4.Visible := True; '
' Picture5.Visible := True; '
' Picture6.Visible := True; '
' Memo25.Visible := True;'
' NombreEmpresa.Visible := False;'
' TLineSeries(Chart1.Series[1]).Title := '#39'Servidos '#39' + VarToS' +
'tr(<Ano2>);'
' TLineSeries(Chart1.Series[3]).Title := '#39'Incidencias '#39' + Var' +
'ToStr(<Ano2>);'
' TLineSeries(Chart1.Series[5]).Title := '#39'Fuera de fecha '#39' + ' +
'VarToStr(<Ano2>);'
' TLineSeries(Chart1.Series[7]).Title := '#39#211'rdenes dev. '#39' + Va' +
'rToStr(<Ano2>);'
' DatosEmpresa.Visible := False; ' +
' '
' end'
' else'
' begin '
' Chart1.Series[1].Active := False;'
' Chart1.Series[3].Active := False;'
' Chart1.Series[5].Active := False;'
' Chart1.Series[7].Active := False; '
' end;'
''
' if (<Serie> <> 0) then'
' begin'
'//Solo Servidos '
' if (<Serie> = 1) then'
' begin'
' Chart1.Series[0].Active := True;'
' Chart1.Series[1].Active := True;'
' Chart1.Series[2].Active := False;'
' Chart1.Series[3].Active := False;'
' Chart1.Series[4].Active := False;'
' Chart1.Series[5].Active := False;'
' Chart1.Series[6].Active := False;'
' Chart1.Series[7].Active := False;'
' end'
'//Solo Incidencias ' +
' '
' else if (<Serie> = 2) then'
' begin'
' Chart1.Series[0].Active := False;'
' Chart1.Series[1].Active := False;'
' Chart1.Series[2].Active := True;'
' Chart1.Series[3].Active := True;'
' Chart1.Series[4].Active := False;'
' Chart1.Series[5].Active := False;'
' Chart1.Series[6].Active := False;'
' Chart1.Series[7].Active := False;'
' end'
'//Solo Fuera de Fecha ' +
' '
' else if (<Serie> = 3) then'
' begin'
' Chart1.Series[0].Active := False;'
' Chart1.Series[1].Active := False;'
' Chart1.Series[2].Active := False;'
' Chart1.Series[3].Active := False;'
' Chart1.Series[4].Active := True;'
' Chart1.Series[5].Active := True;'
' Chart1.Series[6].Active := False;'
' Chart1.Series[7].Active := False;'
' end '
'//Solo Ordenes de devolucion ' +
' ' +
' '
' else if (<Serie> = 4) then'
' begin'
' Chart1.Series[0].Active := False;'
' Chart1.Series[1].Active := False;'
' Chart1.Series[2].Active := False;'
' Chart1.Series[3].Active := False;'
' Chart1.Series[4].Active := False;'
' Chart1.Series[5].Active := False;'
' Chart1.Series[6].Active := True;'
' Chart1.Series[7].Active := True;'
' end; '
' '
' end;'
' Picture1.Visible := False;'
' Picture2.Visible := False;'
' Picture3.Visible := False;'
' Picture4.Visible := False;'
' Picture5.Visible := False;'
' Picture6.Visible := False;'
' Memo25.Visible := False;'
' NombreEmpresa.Visible := True;'
' DatosEmpresa.Visible := True; '
' end'
'end;'
''
'procedure Memo16OnBeforePrint(Sender: TfrxComponent);'
'var'
' Valor:Double; '
'procedure Memo26OnBeforePrint(Sender: TfrxComponent);'
'begin'
'{ '
' Valor := SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOT' +
'AL1">) * 100; '
' if <VerObservaciones> and (<frxDBCabecera."OBSERVACIONES"> <> ' +
#39#39') then'
' if (SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL">)' +
' = 0) then'
' Valor := 100 - Valor '
' Memo26.Visible := True ' +
' '
' else'
' Valor := 100 - (Valor/SUM(<frxDBInformeListadoFacturasGrafC' +
'omp."IMPORTE_TOTAL">)); '
' Memo26.Visible := False '
'end;'
''
' memo16.lines.add(FormatFloat('#39'#,##0.00 %'#39',Valor));'
'} '
'procedure Memo27OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if <VerIncidencias> and (<frxDBCabecera."INCIDENCIAS"> <> '#39#39') ' +
'then'
' Memo27.Visible := True ' +
' '
' else'
' Memo27.Visible := False '
'end;'
''
'procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);'
'begin'
' if <VerPrecios> then'
' begin '
' eImporteUnidad.Visible := True; '
' lImporteUnidad.Visible := True; '
' eImporteTotal.Visible := True; '
' lImporteTotal.Visible := True; '
' ImporteUnidad.Visible := True; '
' ImporteTotal.Visible := True; '
' end'
' else'
' begin '
' eImporteUnidad.Visible := False; '
' lImporteUnidad.Visible := False; '
' eImporteTotal.Visible := False; '
' lImporteTotal.Visible := False; '
' ImporteUnidad.Visible := False; '
' ImporteTotal.Visible := False;'
' eConcepto.Width := eConcepto.Width + ImporteTotal.Width + I' +
'mporteUnidad.Width + 10;'
' Concepto.Width := Concepto.Width + ImporteTotal.Width + Imp' +
'orteUnidad.Width; '
' end '
'end;'
''
'begin'
'end. ')
''
'end.')
ShowProgress = False
StoreInDFM = False
OnGetValue = frxReportGetValue
@ -2376,6 +2431,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
@ -2391,7 +2450,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item
Name = 'ID_ALBARAN'
DataType = datInteger
Value = ''
Value = '123'
end>
MasterParamsMappings.Strings = (
'ID_ALBARAN=ID')

38
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -840,16 +840,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datSmallInt
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
@ -902,9 +892,9 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'IA, :PERSONA_CONTACTO,'#10' :TELEFONO, :IMPORTE_NETO, :IMPORTE_P' +
'ORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :IVA' +
', :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10' :INCIDENCIA' +
'S, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION,'#10' ' +
':USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_ENVIO,'#10' ' +
' :FECHA_RECEPCION, :ID_ALBARAN_DEV)'#10#10
'S, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP,'#10' ' +
' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_ENVI' +
'O,'#10' :FECHA_RECEPCION, :ID_ALBARAN_DEV)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1073,16 +1063,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datSmallInt
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
@ -1138,12 +1118,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' ' +
' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' OBSERVACIONES = :OBSERVA' +
'CIONES, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' INCIDENCIAS_ACTIVA' +
'S = :INCIDENCIAS_ACTIVAS, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FE' +
'CHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO = :USUARIO,' +
' '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' FECHA_PREVISTA_ENVIO ' +
'= :FECHA_PREVISTA_ENVIO, '#10' FECHA_ENVIO = :FECHA_ENVIO, '#10' F' +
'ECHA_RECEPCION = :FECHA_RECEPCION,'#10' ID_ALBARAN_DEV = :ID_ALBA' +
'RAN_DEV'#10' WHERE'#10' (ID = :OLD_ID)'#10
'S = :INCIDENCIAS_ACTIVAS, '#10' FECHA_MODIFICACION = CURRENT_TIME' +
'STAMP,'#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PA' +
'GO, '#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO, '#10' FECH' +
'A_ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION,' +
#10' ID_ALBARAN_DEV = :ID_ALBARAN_DEV'#10' WHERE'#10' (ID = :OLD_ID)' +
#10
StatementType = stSQL
ColumnMappings = <>
end>

12
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{DCE523D3-B15A-40EE-9B47-9361FE439404}';
RID_AlbaranesProveedor = '{6B6C4CC5-85E7-44E7-A12E-09502AE76066}';
RID_AlbaranesProveedor_Detalles = '{462A059B-E769-4C13-BD57-CA2DF45B5A7C}';
RID_ListaAnosAlbaranes = '{98D7B136-B7B5-4752-A6A7-FA4DA78F9F91}';
RID_AlbaranesProveedor = '{3D378181-80D9-4ACB-8CDD-405C735C9E64}';
RID_AlbaranesProveedor_Detalles = '{21C597CD-B3DF-4B1F-9FD9-5C28713E211D}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -159,7 +159,7 @@ const
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{62EAAFE2-3068-4D25-A37E-6158C88B9DC9}']
['{F9DF0229-A5B1-42A1-9FC4-EF535631B1C1}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -194,7 +194,7 @@ type
{ IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{3744DF7C-2532-421F-81C9-A36DB6E45B39}']
['{6E9B6CFF-35D0-4A6E-A176-9B569D453557}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -757,7 +757,7 @@ type
{ IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{BECB0B29-05CC-4C96-94D3-698989CE1793}']
['{8D8878BC-70B7-4059-AE14-3CD914908425}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);

12
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{EF015A95-C6D1-401E-A6A6-86F2CA9666B7}';
RID_AlbaranesProveedorDelta = '{FECA98BD-AD60-4D59-BA3F-A8DC611C07E9}';
RID_AlbaranesProveedor_DetallesDelta = '{A4442F40-9AF5-4666-B9C7-8C453A7518C3}';
RID_ListaAnosAlbaranesDelta = '{DB9DEA01-7FC2-4E0F-B54E-413F1154998B}';
RID_AlbaranesProveedorDelta = '{9A475349-808C-47EC-BC60-A25DB945FA9D}';
RID_AlbaranesProveedor_DetallesDelta = '{A4C8326F-19C5-4746-BDB7-71A170AF14E0}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{EF015A95-C6D1-401E-A6A6-86F2CA9666B7}']
['{DB9DEA01-7FC2-4E0F-B54E-413F1154998B}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{FECA98BD-AD60-4D59-BA3F-A8DC611C07E9}']
['{9A475349-808C-47EC-BC60-A25DB945FA9D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -614,7 +614,7 @@ type
{ IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{A4442F40-9AF5-4666-B9C7-8C453A7518C3}']
['{A4C8326F-19C5-4746-BDB7-71A170AF14E0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;

37
Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
View File

@ -823,16 +823,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DataType = datSmallInt
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
@ -887,9 +877,9 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' ' +
' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :IMPORTE_' +
'TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' :INCIDENCIAS_AC' +
'TIVAS,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' ' +
' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' :IMPO' +
'RTE_PORTE,'#10' :ID_ALBARAN_DEV);'#10
'TIVAS,'#10' CURRENT_TIMESTAMP,'#10' CURRENT_TIMESTAMP,'#10' :USUARI' +
'O,'#10' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' :' +
'IMPORTE_PORTE,'#10' :ID_ALBARAN_DEV);'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1061,16 +1051,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DataType = datSmallInt
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
@ -1125,12 +1105,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'PORTE_DESCUENTO,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,' +
#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES = :OBSERV' +
'ACIONES,'#10' INCIDENCIAS = :INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS' +
' = :INCIDENCIAS_ACTIVAS,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA' +
'_MODIFICACION = :FECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ' +
' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' +
' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PO' +
'RTE,'#10' ID_ALBARAN_DEV = :ID_ALBARAN_DEV'#10' WHERE'#10' (ID = :OLD_I' +
'D);'#10
' = :INCIDENCIAS_ACTIVAS,'#10' FECHA_MODIFICACION = CURRENT_TIMEST' +
'AMP,'#10' USUARIO = :USUARIO,'#10' ID_ALMACEN = :ID_ALMACEN,'#10' I' +
'D_FORMA_PAGO = :ID_FORMA_PAGO,'#10' IMPORTE_NETO = :IMPORTE_NETO,' +
#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' ID_ALBARAN_DEV = :ID_AL' +
'BARAN_DEV'#10' WHERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL
ColumnMappings = <>
end>

2
Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\uDataModuleInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\InfMargenArticulo_data.res */
/* c:\temp\dtf338.tmp */
/* c:\temp\dtfD3.tmp */

2
Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Model\InfMargenArticulo_model.res */
/* c:\temp\dtf336.tmp */
/* c:\temp\dtfD1.tmp */

2
Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc
View File

@ -16,4 +16,4 @@ END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uViewInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uEditorInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.res */
/* c:\temp\dtf33C.tmp */
/* c:\temp\dtfD7.tmp */

2
Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\uDataModuleInfVentasArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.res */
/* c:\temp\dtf32E.tmp */
/* c:\temp\dtfC9.tmp */

2
Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Model\InfVentasArticulo_model.res */
/* c:\temp\dtf32C.tmp */
/* c:\temp\dtfC7.tmp */

2
Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc
View File

@ -19,4 +19,4 @@ END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uViewInfVentasAlbArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uEditorInfVentasAlbArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.res */
/* c:\temp\dtf332.tmp */
/* c:\temp\dtfCD.tmp */

2
Source/Modulos/Informes base/Controller/InformesBase_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informes base\Controller\InformesBase_controller.res */
/* c:\temp\dtf322.tmp */
/* c:\temp\dtfBD.tmp */

2
Source/Modulos/Informes base/Data/Informes_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Informes base\Data\uDataModuleInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Data\Informes_data.res */
/* c:\temp\dtf31E.tmp */
/* c:\temp\dtfB9.tmp */

2
Source/Modulos/Informes base/Model/Informes_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informes base\Model\Informes_model.res */
/* c:\temp\dtf31C.tmp */
/* c:\temp\dtfB7.tmp */

2
Source/Modulos/Informes base/Views/Informes_view.drc
View File

@ -15,4 +15,4 @@ END
/* C:\Codigo\Source\Modulos\Informes base\Views\uViewInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Views\uEditorInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Views\Informes_view.res */
/* c:\temp\dtf326.tmp */
/* c:\temp\dtfC1.tmp */

2
Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.RES */
/* c:\temp\dtf370.tmp */
/* c:\temp\dtf10B.tmp */

2
Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.RES */
/* c:\temp\dtf36E.tmp */
/* c:\temp\dtf109.tmp */

2
Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.RES */
/* c:\temp\dtf36C.tmp */
/* c:\temp\dtf107.tmp */

2
Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.RES */
/* c:\temp\dtf3D4.tmp */
/* c:\temp\dtf16F.tmp */

2
Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
View File

@ -26,4 +26,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorDireccionEntregaPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.RES */
/* c:\temp\dtf3D2.tmp */
/* c:\temp\dtf16D.tmp */

2
Source/Modulos/Tienda web/Data/TiendaWeb_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Tienda web\Data\uDataModuleTiendaWeb.dfm */
/* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.res */
/* c:\temp\dtf386.tmp */
/* c:\temp\dtf121.tmp */

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -35,7 +35,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 Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">8</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">4.1.8.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">4.1.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 03 de octubre de 2011 16:13</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">9</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">4.1.9.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">4.1.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 03 de octubre de 2011 17:23</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 4,1,8,0
PRODUCTVERSION 4,1,8,0
FILEVERSION 4,1,9,0
PRODUCTVERSION 4,1,9,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "4.1.8.0\0"
VALUE "ProductVersion", "4.1.8.0\0"
VALUE "CompileDate", "lunes, 03 de octubre de 2011 17:23\0"
VALUE "FileVersion", "4.1.9.0\0"
VALUE "ProductVersion", "4.1.9.0\0"
VALUE "CompileDate", "lunes, 31 de octubre de 2011 11:24\0"
END
END
BLOCK "VarFileInfo"