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

Subida a produccion de envio automatico de documentos por correo electronico, y cambio en albaranes de cliente para detectar los bloqueados, y que se puedan imprimir o no las observaciones e incidencias de los albaranes de cliente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@302 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2008-10-31 19:32:21 +00:00
parent 61996caa03
commit 2c68928503
25 changed files with 350 additions and 226 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

BIN
Source/Base/Base.res
View File

Binary file not shown.

6
Source/Cliente/FactuGES.bdsproj
View File

@ -148,7 +148,7 @@
<VersionInfo Name="IncludeVerInfo">True</VersionInfo> <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo> <VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo> <VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">2</VersionInfo> <VersionInfo Name="MinorVer">3</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo> <VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo> <VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo> <VersionInfo Name="Debug">False</VersionInfo>
@ -162,13 +162,13 @@
<VersionInfoKeys> <VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys> <VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys> <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.2.0.0</VersionInfoKeys> <VersionInfoKeys Name="FileVersion">3.3.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys> <VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys> <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.1.0.0</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion">3.3.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys> <Excluded_Packages> </VersionInfoKeys> <Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico" MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 3,2,0,0 FILEVERSION 3,3,0,0
PRODUCTVERSION 3,2,0,0 PRODUCTVERSION 3,3,0,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,9 +13,9 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "3.2.0.0\0" VALUE "FileVersion", "3.3.0.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductVersion", "3.1.0.0\0" VALUE "ProductVersion", "3.3.0.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

16
Source/Informes/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

16
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -44,8 +44,8 @@ type
function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente; Const ViewGrid: IViewGridBase = Nil) : IBizAlbaranCliente; function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente; Const ViewGrid: IViewGridBase = Nil) : IBizAlbaranCliente;
function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente; function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente;
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false); procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false);
function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false): Boolean; function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false): Boolean;
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@ -147,8 +147,8 @@ type
AFechaRecibido : TDateTime = 0; AFechaRecibido : TDateTime = 0;
DoPost: Boolean = True) : Boolean; DoPost: Boolean = True) : Boolean;
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false); procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false);
function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false): Boolean; function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false): Boolean;
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@ -1092,7 +1092,7 @@ begin
end; end;
end; end;
procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false); procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false);
var var
AReportController : IAlbaranesClienteReportController; AReportController : IAlbaranesClienteReportController;
ID_Albaranes: TStringList; ID_Albaranes: TStringList;
@ -1119,7 +1119,7 @@ begin
else else
ID_Albaranes.Add(IntToStr(AAlbaran.ID)); ID_Albaranes.Add(IntToStr(AAlbaran.ID));
AReportController.Preview(ID_Albaranes.CommaText); AReportController.Preview(ID_Albaranes.CommaText, ConObservacionesIncidencias);
finally finally
AReportController := NIL; AReportController := NIL;
@ -1127,7 +1127,7 @@ begin
end; end;
end; end;
function TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false): Boolean; function TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false): Boolean;
var var
AReportController : IAlbaranesClienteReportController; AReportController : IAlbaranesClienteReportController;
ID_Albaranes: TStringList; ID_Albaranes: TStringList;
@ -1155,7 +1155,7 @@ begin
else else
ID_Albaranes.Add(IntToStr(AAlbaran.ID)); ID_Albaranes.Add(IntToStr(AAlbaran.ID));
Result := AReportController.Print(ID_Albaranes.CommaText); Result := AReportController.Print(ID_Albaranes.CommaText, ConObservacionesIncidencias);
finally finally
AReportController := NIL; AReportController := NIL;

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

@ -10,8 +10,8 @@ uses
type type
IAlbaranesClienteReportController = interface IAlbaranesClienteReportController = interface
['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}'] ['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}']
procedure Preview(const AID : String); procedure Preview(const AID : String; ConObservacionesIncidencias: Boolean = false);
function Print(const AID : String): Boolean; function Print(const AID : String; ConObservacionesIncidencias: Boolean = false): Boolean;
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean); procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean); procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
@ -26,8 +26,8 @@ type
constructor Create; constructor Create;
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AID : String); procedure Preview(const AID : String; ConObservacionesIncidencias: Boolean = false);
function Print(const AID : String): Boolean; function Print(const AID : String; ConObservacionesIncidencias: Boolean = false): Boolean;
procedure EtiquetasPreview(const AID : integer; const withRefCliente: Boolean); procedure EtiquetasPreview(const AID : integer; const withRefCliente: Boolean);
procedure EtiquetasPrint(const AID : integer; const withRefCliente: Boolean); procedure EtiquetasPrint(const AID : integer; const withRefCliente: Boolean);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
@ -131,7 +131,7 @@ begin
end; end;
end; end;
procedure TAlbaranesClienteReportController.Preview(const AID : String); procedure TAlbaranesClienteReportController.Preview(const AID : String; ConObservacionesIncidencias: Boolean = false);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorAlbaranesClientePreview; AEditor : IEditorAlbaranesClientePreview;
@ -140,7 +140,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetReport(AID); //Lista de seleccionados (Array de integers) AStream := FDataModule.GetReport(AID, ConObservacionesIncidencias); //Lista de seleccionados (Array de integers)
try try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor); CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
@ -155,7 +155,7 @@ begin
AEditor.Preview; AEditor.Preview;
end; end;
function TAlbaranesClienteReportController.Print(const AID : String): Boolean; function TAlbaranesClienteReportController.Print(const AID : String; ConObservacionesIncidencias: Boolean = false): Boolean;
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorAlbaranesClientePreview; AEditor : IEditorAlbaranesClientePreview;
@ -165,7 +165,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetReport(AID); AStream := FDataModule.GetReport(AID, ConObservacionesIncidencias);
try try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor); CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);

8
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas
View File

@ -38,9 +38,9 @@ type
function NewItem : IBizAlbaranCliente; function NewItem : IBizAlbaranCliente;
// Report // Report
function GetReport(const AID: String; const ShowLogotipo: Boolean = False): Binary; function GetReport(const AID: String; const ConObservacionesIncidencias: Boolean = False; const ShowLogotipo: Boolean = False): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary; function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
function GetRptPDF(const AID: Integer; const ShowLogotipo: Boolean = False): Binary; function GetRptPDF(const AID: Integer; const ShowLogotipo: Boolean = False): Binary;
end; end;
implementation implementation
@ -77,9 +77,9 @@ begin
Result := (RORemoteService as IsrvAlbaranesCliente).GetNextAutoInc(aGeneratorName) Result := (RORemoteService as IsrvAlbaranesCliente).GetNextAutoInc(aGeneratorName)
end; end;
function TDataModuleAlbaranesCliente.GetReport(const AID: String; const ShowLogotipo: Boolean = False): Binary; function TDataModuleAlbaranesCliente.GetReport(const AID: String; const ConObservacionesIncidencias: Boolean = False; const ShowLogotipo: Boolean = False): Binary;
begin begin
Result := (RORemoteService as IsrvAlbaranesCliente).GenerateReport(AID, ShowLogotipo) Result := (RORemoteService as IsrvAlbaranesCliente).GenerateReport(AID, ShowLogotipo, ConObservacionesIncidencias)
end; end;
function TDataModuleAlbaranesCliente.GetRptPDF(const AID: Integer; function TDataModuleAlbaranesCliente.GetRptPDF(const AID: Integer;

2
Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas
View File

@ -8,7 +8,7 @@ uses
type type
IDataModuleAlbaranesClienteReport = interface IDataModuleAlbaranesClienteReport = interface
['{42C55204-5AB9-403E-8385-1A62B02D8234}'] ['{42C55204-5AB9-403E-8385-1A62B02D8234}']
function GetReport(const AID: String; const ShowLogotipo: Boolean = False): Binary; function GetReport(const AID: String; const ConObservacionesIncidencias: Boolean = False; const ShowLogotipo: Boolean = False): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary; function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
function GetRptPDF(const AID: Integer; const ShowLogotipo: Boolean = False): Binary; function GetRptPDF(const AID: Integer; const ShowLogotipo: Boolean = False): Binary;
end; end;

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

@ -110,19 +110,20 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
'LBARANES_CLIENTE.POBLACION,'#10' V_ALBARANES_CLIENTE.PROVINCIA,'#10' V' + 'LBARANES_CLIENTE.POBLACION,'#10' V_ALBARANES_CLIENTE.PROVINCIA,'#10' V' +
'_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' V_ALBARANES_CLIENTE.TELEF' + '_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' V_ALBARANES_CLIENTE.TELEF' +
'ONO,'#10' V_ALBARANES_CLIENTE.CALLE,'#10' V_ALBARANES_CLIENTE.OBSERVAC' + 'ONO,'#10' V_ALBARANES_CLIENTE.CALLE,'#10' V_ALBARANES_CLIENTE.OBSERVAC' +
'IONES,'#10' V_ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' V_ALBARANES_CLIENT' + 'IONES,'#10' V_ALBARANES_CLIENTE.INCIDENCIAS,'#10' V_ALBARANES_CLIENTE.' +
'E.FECHA_PREVISTA_ENVIO,'#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' ' + 'IMPORTE_TOTAL,'#10' V_ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' EMP' +
' EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS R' + 'RESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EM' +
'AZON_SOCIAL_EMPRESA,'#10' EMPRESAS.CALLE AS CALLE_EMPRESA,'#10' EMPRES' + 'PRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPRES' +
'AS.CODIGO_POSTAL AS CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.POBLACION ' + 'AS.CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL AS CODIGO_PO' +
'AS POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA AS PROVINCIA_EMPRESA,' + 'STAL_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLACION_EMPRESA,'#10' EMPRE' +
#10' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS ' + 'SAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TEL' +
'FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.E' + 'EFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL' +
'MAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_E' + '_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' ' +
'MPRESA'#10'FROM'#10' V_ALBARANES_CLIENTE'#10' LEFT OUTER JOIN V_CLIENTES' + 'EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' V_ALBARANES_C' +
' ON (V_CLIENTES.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTE' + 'LIENTE'#10' LEFT OUTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_ALBARA' +
'R JOIN EMPRESAS ON (EMPRESAS.ID = V_ALBARANES_CLIENTE.ID_EMPRESA' + 'NES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.' +
')'#10'WHERE V_ALBARANES_CLIENTE.ID = :ID' 'ID = V_ALBARANES_CLIENTE.ID_EMPRESA)'#10'WHERE V_ALBARANES_CLIENTE.I' +
'D = :ID'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -248,6 +249,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item item
DatasetField = 'PROVINCIA_EMPRESA' DatasetField = 'PROVINCIA_EMPRESA'
TableField = 'PROVINCIA_EMPRESA' TableField = 'PROVINCIA_EMPRESA'
end
item
DatasetField = 'INCIDENCIAS'
TableField = 'INCIDENCIAS'
end> end>
end> end>
Name = 'Informe_Cabecera' Name = 'Informe_Cabecera'
@ -450,6 +455,17 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'INCIDENCIAS'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
@ -1330,9 +1346,26 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 39286.749813368060000000 ReportOptions.LastChange = 39752.715049039350000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = ( ScriptText.Strings = (
'var'
' Pagina: Variant;'
''
''
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena: String;'
'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'
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX_EMPRESA' +
'">;'
' DatosEmpresa.Lines.Add(Cadena);'
'end;'
'' ''
'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);' 'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
'begin' 'begin'
@ -1340,46 +1373,99 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
' NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);' ' NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
'end;' 'end;'
'' ''
'procedure TelefonosEmpresaOnBeforePrint(Sender: TfrxComponent);' 'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
'var' 'var'
' Cadena: String;' ' ACadena : String;'
'begin' 'begin'
' TelefonosEmpresa.Lines.Clear;' ' ACadena := '#39#39';'
' DireccionEnvio.Lines.Clear;'
'' ''
' if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then' ' ACadena := '#39#39';'
' Cadena := '#39'tlf: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;' ''
' if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then' ' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
' Cadena := Cadena + '#39' / fax: '#39' + <frxDBCabecera."FAX_EMPRE' + ' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
'SA">;' ' if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' TelefonosEmpresa.Lines.Add(Cadena);' ' 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;' 'end;'
'' ''
'procedure DireccionEmpresaOnBeforePrint(Sender: TfrxComponent);' 'procedure Memo2OnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena: String;'
'begin' 'begin'
' DireccionEmpresa.Lines.Clear;' ' Memo2.Lines.Clear;'
'' ' if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
' if (<frxDBCabecera."CALLE_EMPRESA"> <> '#39#39') then' ' Memo2.Lines.Add('#39'ORDEN DE DEVOLUCI'#211'N'#39')'
' else'
' DireccionEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">)' + ' Memo2.Lines.Add('#39'ALBAR'#193'N DE CLIENTE'#39')'
';'
''
' if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '#39#39') then'
' Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">;'
' if (<frxDBCabecera."POBLACION_EMPRESA"> <> '#39#39') then'
' Cadena := Cadena + '#39', '#39' + <frxDBCabecera."POBLACION_EMPRE' +
'SA">;'
' DireccionEmpresa.Lines.Add(Cadena);'
''
' if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '#39#39') then'
' DireccionEmpresa.Lines.Add(<frxDBCabecera."PROVINCIA_EMPRES' +
'A">);'
'end;' '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;'
'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;'
' DatosEmpresa.Visible := False; ' +
' '
' end'
' else'
' begin '
' 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;'
'' ''
'begin' 'begin'
'' ''
@ -1387,6 +1473,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
OnGetValue = frxReportGetValue OnGetValue = frxReportGetValue
OnStartReport = 'frxReportOnStartReport'
Left = 169 Left = 169
Top = 16 Top = 16
end end

18
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
View File

@ -25,21 +25,22 @@ type
frxChartObject1: TfrxChartObject; frxChartObject1: TfrxChartObject;
frxDBCabecera: TfrxDBDataset; frxDBCabecera: TfrxDBDataset;
frxDBDetalles: TfrxDBDataset; frxDBDetalles: TfrxDBDataset;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
frxReport: TfrxReport; frxReport: TfrxReport;
frxPDFExport1: TfrxPDFExport; frxPDFExport1: TfrxPDFExport;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
procedure frxReportGetValue(const VarName: string; var Value: Variant); procedure frxReportGetValue(const VarName: string; var Value: Variant);
private private
FConnection: IDAConnection; FConnection: IDAConnection;
FShowLogotipo: Boolean; FShowLogotipo: Boolean;
FConObservacionesIncidencias: Boolean;
//Genera cada uno de los albaranes a imprimir //Genera cada uno de los albaranes a imprimir
procedure _GenerarAlbaran(const ID: integer); overload; procedure _GenerarAlbaran(const ID: integer); overload;
public public
function GenerarAlbaran(const AID : String; const AConLogotipo: Boolean = False): Binary; overload; function GenerarAlbaran(const AID : String; const AConLogotipo: Boolean; const ConObservacionesIncidencias: Boolean): Binary; overload;
function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary; function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary;
function GenerarReportEnPDF(const ListaID : TIntegerArray; const AConLogotipo: Boolean = False): Binary; function GenerarReportEnPDF(const ListaID : TIntegerArray; const AConLogotipo: Boolean): Binary;
end; end;
implementation implementation
@ -66,11 +67,12 @@ procedure TRptAlbaranesCliente.DataModuleCreate(Sender: TObject);
begin begin
schReport.ConnectionManager := dmServer.ConnectionManager; schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion; FConnection := dmServer.DarNuevaConexion;
FShowLogotipo := False; FShowLogotipo := False;
FConObservacionesIncidencias := False;
frxReport.EngineOptions.NewSilentMode := simReThrow; frxReport.EngineOptions.NewSilentMode := simReThrow;
end; end;
function TRptAlbaranesCliente.GenerarAlbaran(const AID: String; const AConLogotipo: Boolean = False): Binary; function TRptAlbaranesCliente.GenerarAlbaran(const AID: String; const AConLogotipo: Boolean; const ConObservacionesIncidencias: Boolean): Binary;
var var
ID_Albaranes: TStringList; ID_Albaranes: TStringList;
i: Integer; i: Integer;
@ -78,6 +80,7 @@ begin
Result := Binary.Create; Result := Binary.Create;
try try
FShowLogotipo := AConLogotipo; FShowLogotipo := AConLogotipo;
FConObservacionesIncidencias := ConObservacionesIncidencias;
ID_Albaranes := TStringList.Create; ID_Albaranes := TStringList.Create;
ID_Albaranes.CommaText := AID; ID_Albaranes.CommaText := AID;
@ -94,6 +97,9 @@ procedure TRptAlbaranesCliente.frxReportGetValue(const VarName: string; var Valu
begin begin
if VarName = 'ShowLogotipo' then if VarName = 'ShowLogotipo' then
Value := FShowLogotipo; Value := FShowLogotipo;
if VarName = 'ConObservacionesIncidencias' then
Value := FConObservacionesIncidencias;
end; end;
procedure TRptAlbaranesCliente._GenerarAlbaran(const ID: integer); procedure TRptAlbaranesCliente._GenerarAlbaran(const ID: integer);

11
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
View File

@ -38,9 +38,9 @@ type
protected protected
{ IsrvAlbaranesCliente methods } { IsrvAlbaranesCliente methods }
function GetNextAutoInc(const GeneratorName: String): Integer; function GetNextAutoInc(const GeneratorName: String): Integer;
function GenerateReport(const ID: String; const ShowLogotipo: Boolean): Binary; function GenerateReport(const ID: String; const ShowLogotipo: Boolean = False; const ConObservacionesIncidencias: Boolean = False): Binary;
function GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary; function GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
function GenerarReportPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; function GenerarReportPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean = False): Binary;
end; end;
implementation implementation
@ -83,8 +83,7 @@ begin
bpAlbaranesCliente.BusinessRulesID := BIZ_SERVER_ALBARAN_CLIENTE; bpAlbaranesCliente.BusinessRulesID := BIZ_SERVER_ALBARAN_CLIENTE;
end; end;
function TsrvAlbaranesCliente.GenerarReportPDF(const ListaID: TIntegerArray; function TsrvAlbaranesCliente.GenerarReportPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean = False): Binary;
const ShowLogotipo: Boolean): Binary;
var var
AReportGenerator : TRptAlbaranesCliente; AReportGenerator : TRptAlbaranesCliente;
begin begin
@ -108,13 +107,13 @@ begin
end; end;
end; end;
function TsrvAlbaranesCliente.GenerateReport(const ID: String; const ShowLogotipo: Boolean): Binary; function TsrvAlbaranesCliente.GenerateReport(const ID: String; const ShowLogotipo: Boolean = False; const ConObservacionesIncidencias: Boolean = False): Binary;
var var
AReportGenerator : TRptAlbaranesCliente; AReportGenerator : TRptAlbaranesCliente;
begin begin
AReportGenerator := TRptAlbaranesCliente.Create(nil); AReportGenerator := TRptAlbaranesCliente.Create(nil);
try try
Result := AReportGenerator.GenerarAlbaran(ID, ShowLogotipo); Result := AReportGenerator.GenerarAlbaran(ID, ShowLogotipo, ConObservacionesIncidencias);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -200,10 +200,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0

10
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -230,7 +230,10 @@ end;
procedure TfEditorAlbaranCliente.ImprimirInterno; procedure TfEditorAlbaranCliente.ImprimirInterno;
begin begin
inherited; inherited;
FController.Print(FAlbaran); if (ShowConfirmMessage('¿Desea imprimir las observaciones e incidencias del albarán?', '') = IDYES) then
FController.Print(FAlbaran, False, True)
else
FController.Print(FAlbaran);
end; end;
procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject); procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject);
@ -324,7 +327,10 @@ end;
procedure TfEditorAlbaranCliente.PrevisualizarInterno; procedure TfEditorAlbaranCliente.PrevisualizarInterno;
begin begin
inherited; inherited;
FController.Preview(FAlbaran); if (ShowConfirmMessage('¿Desea previsualizar las observaciones e incidencias del albarán?', '') = IDYES) then
FController.Preview(FAlbaran, False, True)
else
FController.Preview(FAlbaran);
end; end;
procedure TfEditorAlbaranCliente.RecalcularPortePorUnidad; procedure TfEditorAlbaranCliente.RecalcularPortePorUnidad;

16
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
View File

@ -2070,6 +2070,12 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
Value = 100 Value = 100
Default = True Default = True
end end
item
Caption =
'Imprimir el albaran/es seleccionado/s (Con observaciones e incid' +
'encias)'
Value = 101
end
item item
Caption = 'Imprimir la lista de albaranes actual' Caption = 'Imprimir la lista de albaranes actual'
Value = 200 Value = 200
@ -2307,7 +2313,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
0007C0000007C000000700000007000000070000000700000007C000000FC000 0007C0000007C000000700000007000000070000000700000007C000000FC000
001F8000003F800000FFF8FFFFFF} 001F8000003F800000FFF8FFFFFF}
Width = 500 Width = 650
Left = 264 Left = 264
Top = 112 Top = 112
end end
@ -2381,6 +2387,12 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
Value = 100 Value = 100
Default = True Default = True
end end
item
Caption =
'Previsualizar el albaran/es seleccionado/s (Con observaciones e ' +
'incidencias)'
Value = 101
end
item item
Caption = 'Previsualizar la lista de albaranes actual' Caption = 'Previsualizar la lista de albaranes actual'
Value = 200 Value = 200
@ -2618,7 +2630,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
0007C0000007C000000700000007000000070000000700000007C000000FC000 0007C0000007C000000700000007000000070000000700000007C000000FC000
001F8000003F800000FFF8FFFFFF} 001F8000003F800000FFF8FFFFFF}
Width = 500 Width = 650
Left = 232 Left = 232
Top = 112 Top = 112
end end

20
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -430,7 +430,7 @@ begin
200 : begin // Lista de elementos visibles 200 : begin // Lista de elementos visibles
inherited; inherited;
end; end;
100 : begin // Elemento Seleccionado 100, 101 : begin // Elemento Seleccionado
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
@ -440,8 +440,14 @@ begin
AAlbaranes := Albaranes; AAlbaranes := Albaranes;
if Assigned(AAlbaranes) then if Assigned(AAlbaranes) then
if FController.Print(AAlbaranes, AllItems) then begin
RefrescarInterno; //Con observaciones e incidencias
if JsImprimirDialog.CustomButtonResult = 101 then
FController.Print(AAlbaranes, AllItems, True)
else
FController.Print(AAlbaranes, AllItems);
RefrescarInterno;
end;
end; end;
end; end;
end; end;
@ -515,7 +521,7 @@ begin
200 : begin // Lista de elementos visibles 200 : begin // Lista de elementos visibles
inherited; inherited;
end; end;
100 : begin // Elemento Seleccionado 100, 101 : begin // Elemento Seleccionado
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
@ -525,7 +531,11 @@ begin
AAlbaranes := Albaranes; AAlbaranes := Albaranes;
if Assigned(AAlbaranes) then if Assigned(AAlbaranes) then
FController.Preview(AAlbaranes, AllItems); //Con observaciones e incidencias
if JsPrevisualizarDialog.CustomButtonResult = 101 then
FController.Preview(AAlbaranes, AllItems, True)
else
FController.Preview(AAlbaranes, AllItems);
end; end;
end; end;
end; end;

2
Source/Servicios/FactuGES.RODL
View File

@ -312,6 +312,8 @@
</Parameter> </Parameter>
<Parameter Name="ShowLogotipo" DataType="Boolean" Flag="In" > <Parameter Name="ShowLogotipo" DataType="Boolean" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="ConObservacionesIncidencias" DataType="Boolean" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
<Operation Name="GenerateEtiquetas" UID="{260CD213-F125-422B-9BD1-401729460DF0}"> <Operation Name="GenerateEtiquetas" UID="{260CD213-F125-422B-9BD1-401729460DF0}">

7
Source/Servicios/FactuGES_Intf.pas
View File

@ -426,7 +426,7 @@ type
IsrvAlbaranesCliente = interface(IDARemoteService) IsrvAlbaranesCliente = interface(IDARemoteService)
['{6E910718-9AB0-47BB-9875-B0DE66A68D7A}'] ['{6E910718-9AB0-47BB-9875-B0DE66A68D7A}']
function GetNextAutoInc(const GeneratorName: String): Integer; function GetNextAutoInc(const GeneratorName: String): Integer;
function GenerateReport(const ID: String; const ShowLogotipo: Boolean): Binary; function GenerateReport(const ID: String; const ShowLogotipo: Boolean; const ConObservacionesIncidencias: Boolean): Binary;
function GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary; function GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
function GenerarReportPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; function GenerarReportPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
end; end;
@ -442,7 +442,7 @@ type
function __GetInterfaceName:string; override; function __GetInterfaceName:string; override;
function GetNextAutoInc(const GeneratorName: String): Integer; function GetNextAutoInc(const GeneratorName: String): Integer;
function GenerateReport(const ID: String; const ShowLogotipo: Boolean): Binary; function GenerateReport(const ID: String; const ShowLogotipo: Boolean; const ConObservacionesIncidencias: Boolean): Binary;
function GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary; function GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
function GenerarReportPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; function GenerarReportPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
end; end;
@ -1770,7 +1770,7 @@ begin
end end
end; end;
function TsrvAlbaranesCliente_Proxy.GenerateReport(const ID: String; const ShowLogotipo: Boolean): Binary; function TsrvAlbaranesCliente_Proxy.GenerateReport(const ID: String; const ShowLogotipo: Boolean; const ConObservacionesIncidencias: Boolean): Binary;
var var
__request, __response : TMemoryStream; __request, __response : TMemoryStream;
begin begin
@ -1782,6 +1782,7 @@ begin
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport'); __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
__Message.Write('ID', TypeInfo(String), ID, []); __Message.Write('ID', TypeInfo(String), ID, []);
__Message.Write('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []); __Message.Write('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
__Message.Write('ConObservacionesIncidencias', TypeInfo(Boolean), ConObservacionesIncidencias, []);
__Message.Finalize; __Message.Finalize;
__Message.WriteToStream(__request); __Message.WriteToStream(__request);

6
Source/Servicios/FactuGES_Invk.pas
View File

@ -812,10 +812,11 @@ begin
end; end;
procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReport(const ID: String; const ShowLogotipo: Boolean): Binary; } { function GenerateReport(const ID: String; const ShowLogotipo: Boolean; const ConObservacionesIncidencias: Boolean): Binary; }
var var
ID: String; ID: String;
ShowLogotipo: Boolean; ShowLogotipo: Boolean;
ConObservacionesIncidencias: Boolean;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -823,8 +824,9 @@ begin
try try
__Message.Read('ID', TypeInfo(String), ID, []); __Message.Read('ID', TypeInfo(String), ID, []);
__Message.Read('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []); __Message.Read('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
__Message.Read('ConObservacionesIncidencias', TypeInfo(Boolean), ConObservacionesIncidencias, []);
lResult := (__Instance as IsrvAlbaranesCliente).GenerateReport(ID, ShowLogotipo); lResult := (__Instance as IsrvAlbaranesCliente).GenerateReport(ID, ShowLogotipo, ConObservacionesIncidencias);
__Message.Initialize(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerateReportResponse'); __Message.Initialize(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerateReportResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

19
Source/Servidor/FactuGES_Server.bdsproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<PersonalityInfo> <PersonalityInfo>
<Option> <Option>
@ -153,8 +153,8 @@
<VersionInfo Name="IncludeVerInfo">True</VersionInfo> <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo> <VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo> <VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo> <VersionInfo Name="MinorVer">1</VersionInfo>
<VersionInfo Name="Release">9</VersionInfo> <VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo> <VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo> <VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo> <VersionInfo Name="PreRelease">False</VersionInfo>
@ -167,18 +167,19 @@
<VersionInfoKeys> <VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys> <VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys> <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.0.9.0</VersionInfoKeys> <VersionInfoKeys Name="FileVersion">3.1.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys> <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys> <VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.0.9.0</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion">3.1.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys>
<VersionInfoKeys Name="CompileDate">martes, 30 de septiembre de 2008 19:31</VersionInfoKeys></VersionInfoKeys> <Excluded_Packages> <VersionInfoKeys Name="CompileDate">viernes, 31 de octubre de 2008 12:56</VersionInfoKeys></VersionInfoKeys>
<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>
</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>
</Delphi.Personality> </Excluded_Packages>
</Delphi.Personality>
<ModelSupport>False</ModelSupport> <ModelSupport>False</ModelSupport>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

202
Source/Servidor/FactuGES_Server.drc
View File

@ -912,12 +912,12 @@
#define IdResourceStrings_RSMIMEMIMETypeEmpty 65181 #define IdResourceStrings_RSMIMEMIMETypeEmpty 65181
#define IdResourceStrings_RSMIMEMIMEExtAlreadyExists 65182 #define IdResourceStrings_RSMIMEMIMEExtAlreadyExists 65182
#define IdResourceStrings_RSStatusResolving 65183 #define IdResourceStrings_RSStatusResolving 65183
#define uRORes_err_InvalidVarArrayDimCount 65184 #define uRODECConst_sFMT_HEXL 65184
#define uRORes_err_MessageNotAssigned 65185 #define uRODECConst_sFMT_MIME64 65185
#define ComConst_SOleError 65186 #define uRODECConst_sFMT_UU 65186
#define ComConst_SNoMethod 65187 #define uRODECConst_sFMT_XX 65187
#define ComConst_SVarNotObject 65188 #define uRODECConst_sInvalidKeySize 65188
#define ComConst_STooManyParams 65189 #define uRODECConst_sNotInitialized 65189
#define IdResourceStrings_RSCannotAllocateSocket 65190 #define IdResourceStrings_RSCannotAllocateSocket 65190
#define IdResourceStrings_RSConnectionClosedGracefully 65191 #define IdResourceStrings_RSConnectionClosedGracefully 65191
#define IdResourceStrings_RSCouldNotBindSocket 65192 #define IdResourceStrings_RSCouldNotBindSocket 65192
@ -928,70 +928,70 @@
#define IdResourceStrings_RSThreadClassNotSpecified 65197 #define IdResourceStrings_RSThreadClassNotSpecified 65197
#define IdResourceStrings_RSFileNotFound 65198 #define IdResourceStrings_RSFileNotFound 65198
#define IdResourceStrings_RSOnlyOneAntiFreeze 65199 #define IdResourceStrings_RSOnlyOneAntiFreeze 65199
#define uRORes_err_UnhandledException 65200 #define uRORes_err_NoXMLParsersAvailable 65200
#define uRORes_err_ChannelBusy 65201 #define uRORes_err_IDispatchMarshalingNotSupported 65201
#define uRORes_err_ArrayIndexOutOfBounds 65202 #define uRORes_err_UnsupportedVariantType 65202
#define uRORes_err_InvalidHeader 65203 #define uRORes_err_VariantIsNotArray 65203
#define uRORes_err_UnknownClassInStream 65204 #define uRORes_err_InvalidVarArrayDimCount 65204
#define uRORes_err_UnexpectedClassInStream 65205 #define uRORes_err_MessageNotAssigned 65205
#define uRORes_err_SessionNotFound 65206 #define ComConst_SOleError 65206
#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65207 #define ComConst_SNoMethod 65207
#define uRORes_err_TooManySessions 65208 #define ComConst_SVarNotObject 65208
#define uRORes_err_DOMElementIsNIL 65209 #define ComConst_STooManyParams 65209
#define uRORes_err_CannotLoadXMLDocument 65210 #define uRODECConst_sProtectionCircular 65210
#define uRORes_err_ErrorCreatingMsXmlDoc 65211 #define uRODECConst_sStringFormatExists 65211
#define uRORes_err_NoXMLParsersAvailable 65212 #define uRODECConst_sInvalidStringFormat 65212
#define uRORes_err_IDispatchMarshalingNotSupported 65213 #define uRODECConst_sInvalidFormatString 65213
#define uRORes_err_UnsupportedVariantType 65214 #define uRODECConst_sFMT_COPY 65214
#define uRORes_err_VariantIsNotArray 65215 #define uRODECConst_sFMT_HEX 65215
#define uRORes_str_ExceptionReraisedFromServer 65216 #define uRORes_err_UnknownProxyInterface 65216
#define uRORes_err_AssignError 65217 #define uRORes_err_DispatcherAlreadyAssigned 65217
#define uRORes_err_InvalidRequestStream 65218 #define uRORes_err_CannotFindMessageDispatcher 65218
#define uRORes_err_NILMessage 65219 #define uRORes_err_ServerOnlySupportsOneDispatcher 65219
#define uRORes_err_UnspecifiedInterface 65220 #define uRORes_err_UnhandledException 65220
#define uRORes_err_UnspecifiedMessage 65221 #define uRORes_err_ChannelBusy 65221
#define uRORes_err_UnknownMethod 65222 #define uRORes_err_ArrayIndexOutOfBounds 65222
#define uRORes_err_ClassFactoryDidNotReturnInstance 65223 #define uRORes_err_InvalidHeader 65223
#define uRORes_err_TypeNotSupported 65224 #define uRORes_err_UnknownClassInStream 65224
#define uRORes_err_ClassFactoryNotFound 65225 #define uRORes_err_UnexpectedClassInStream 65225
#define uRORes_err_IROMessageNotSupported 65226 #define uRORes_err_SessionNotFound 65226
#define uRORes_err_ClassAlreadyRegistered 65227 #define uRORes_err_ChannelDoesntSupportIROMetadataReader 65227
#define uRORes_err_UnknownProxyInterface 65228 #define uRORes_err_TooManySessions 65228
#define uRORes_err_DispatcherAlreadyAssigned 65229 #define uRORes_err_DOMElementIsNIL 65229
#define uRORes_err_CannotFindMessageDispatcher 65230 #define uRORes_err_CannotLoadXMLDocument 65230
#define uRORes_err_ServerOnlySupportsOneDispatcher 65231 #define uRORes_err_ErrorCreatingMsXmlDoc 65231
#define uRORes_err_InvalidType 65232 #define uRORes_err_RodlInvalidDataType 65232
#define uRORes_err_InvalidStream 65233 #define uRORes_err_RodlStructCannotBeNested 65233
#define uRORes_err_InvalidParamFlag 65234 #define uRORes_err_RodlInvalidAncestorType 65234
#define uRORes_err_InvalidStringLength 65235 #define uRORes_str_ExceptionOnServer 65235
#define uRORes_str_InvalidClassTypeInStream 65236 #define uRORes_str_ExceptionReraisedFromServer 65236
#define uRORes_err_UnexpectedEndOfStream 65237 #define uRORes_err_AssignError 65237
#define uRORes_err_RodlDuplicateName 65238 #define uRORes_err_InvalidRequestStream 65238
#define uRORes_err_RodlNoDataTypeSpecified 65239 #define uRORes_err_NILMessage 65239
#define uRORes_err_RodlNoEnumValues 65240 #define uRORes_err_UnspecifiedInterface 65240
#define uRORes_err_RodlNoStructElementsDefined 65241 #define uRORes_err_UnspecifiedMessage 65241
#define uRORes_err_RodlNoOperationsDefined 65242 #define uRORes_err_UnknownMethod 65242
#define uRORes_err_RodlUsedFileDoesNotExist 65243 #define uRORes_err_ClassFactoryDidNotReturnInstance 65243
#define uRORes_err_RodlInvalidDataType 65244 #define uRORes_err_TypeNotSupported 65244
#define uRORes_err_RodlStructCannotBeNested 65245 #define uRORes_err_ClassFactoryNotFound 65245
#define uRORes_err_RodlInvalidAncestorType 65246 #define uRORes_err_IROMessageNotSupported 65246
#define uRORes_str_ExceptionOnServer 65247 #define uRORes_err_ClassAlreadyRegistered 65247
#define Consts_SUTF8Encoding 65248 #define Consts_SUTF8Encoding 65248
#define Consts_SUTF7Encoding 65249 #define Consts_SUTF7Encoding 65249
#define Consts_SPageControlNotSet 65250 #define Consts_SPageControlNotSet 65250
#define uRODECConst_sProtectionCircular 65251 #define uRORes_err_InvalidIndex 65251
#define uRODECConst_sStringFormatExists 65252 #define uRORes_err_InvalidType 65252
#define uRODECConst_sInvalidStringFormat 65253 #define uRORes_err_InvalidStream 65253
#define uRODECConst_sInvalidFormatString 65254 #define uRORes_err_InvalidParamFlag 65254
#define uRODECConst_sFMT_COPY 65255 #define uRORes_err_InvalidStringLength 65255
#define uRODECConst_sFMT_HEX 65256 #define uRORes_str_InvalidClassTypeInStream 65256
#define uRODECConst_sFMT_HEXL 65257 #define uRORes_err_UnexpectedEndOfStream 65257
#define uRODECConst_sFMT_MIME64 65258 #define uRORes_err_RodlDuplicateName 65258
#define uRODECConst_sFMT_UU 65259 #define uRORes_err_RodlNoDataTypeSpecified 65259
#define uRODECConst_sFMT_XX 65260 #define uRORes_err_RodlNoEnumValues 65260
#define uRODECConst_sInvalidKeySize 65261 #define uRORes_err_RodlNoStructElementsDefined 65261
#define uRODECConst_sNotInitialized 65262 #define uRORes_err_RodlNoOperationsDefined 65262
#define uRORes_err_InvalidIndex 65263 #define uRORes_err_RodlUsedFileDoesNotExist 65263
#define Consts_SPictureLabel 65264 #define Consts_SPictureLabel 65264
#define Consts_SPictureDesc 65265 #define Consts_SPictureDesc 65265
#define Consts_SPreviewLabel 65266 #define Consts_SPreviewLabel 65266
@ -2170,12 +2170,12 @@ BEGIN
IdResourceStrings_RSMIMEMIMETypeEmpty, "Mimetype is empty" IdResourceStrings_RSMIMEMIMETypeEmpty, "Mimetype is empty"
IdResourceStrings_RSMIMEMIMEExtAlreadyExists, "Extension already exits" IdResourceStrings_RSMIMEMIMEExtAlreadyExists, "Extension already exits"
IdResourceStrings_RSStatusResolving, "Resolving hostname %s." IdResourceStrings_RSStatusResolving, "Resolving hostname %s."
uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d" uRODECConst_sFMT_HEXL, "Hexadecimal lowercase"
uRORes_err_MessageNotAssigned, "Message is NIL" uRODECConst_sFMT_MIME64, "MIME Base 64"
ComConst_SOleError, "OLE error %.8x" uRODECConst_sFMT_UU, "UU Coding"
ComConst_SNoMethod, "Method '%s' not supported by automation object" uRODECConst_sFMT_XX, "XX Coding"
ComConst_SVarNotObject, "Variant does not reference an automation object" uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes"
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters" uRODECConst_sNotInitialized, "%s is not initialized call Init() or InitKey() before."
IdResourceStrings_RSCannotAllocateSocket, "Cannot allocate socket." IdResourceStrings_RSCannotAllocateSocket, "Cannot allocate socket."
IdResourceStrings_RSConnectionClosedGracefully, "Connection Closed Gracefully." IdResourceStrings_RSConnectionClosedGracefully, "Connection Closed Gracefully."
IdResourceStrings_RSCouldNotBindSocket, "Could not bind socket. Address and port are already in use." IdResourceStrings_RSCouldNotBindSocket, "Could not bind socket. Address and port are already in use."
@ -2186,6 +2186,26 @@ BEGIN
IdResourceStrings_RSThreadClassNotSpecified, "Thread Class Not Specified." IdResourceStrings_RSThreadClassNotSpecified, "Thread Class Not Specified."
IdResourceStrings_RSFileNotFound, "File \"%s\" not found" IdResourceStrings_RSFileNotFound, "File \"%s\" not found"
IdResourceStrings_RSOnlyOneAntiFreeze, "Only one TIdAntiFreeze can exist per application." IdResourceStrings_RSOnlyOneAntiFreeze, "Only one TIdAntiFreeze can exist per application."
uRORes_err_NoXMLParsersAvailable, "MSXML is not installed"
uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported."
uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\""
uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d"
uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d"
uRORes_err_MessageNotAssigned, "Message is NIL"
ComConst_SOleError, "OLE error %.8x"
ComConst_SNoMethod, "Method '%s' not supported by automation object"
ComConst_SVarNotObject, "Variant does not reference an automation object"
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid."
uRODECConst_sStringFormatExists, "String Format \"%d\" not exists."
uRODECConst_sInvalidStringFormat, "Input is not an valid %s Format."
uRODECConst_sInvalidFormatString, "Input can not be convert to %s Format."
uRODECConst_sFMT_COPY, "copy Input to Output"
uRODECConst_sFMT_HEX, "Hexadecimal"
uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\""
uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned"
uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for for the requested path?"
uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher"
uRORes_err_UnhandledException, "Unhandled exception" uRORes_err_UnhandledException, "Unhandled exception"
uRORes_err_ChannelBusy, "Channel is busy. Try again later." uRORes_err_ChannelBusy, "Channel is busy. Try again later."
uRORes_err_ArrayIndexOutOfBounds, "Array index out of bounds (%d)." uRORes_err_ArrayIndexOutOfBounds, "Array index out of bounds (%d)."
@ -2198,10 +2218,10 @@ BEGIN
uRORes_err_DOMElementIsNIL, "DOMElement is NIL" uRORes_err_DOMElementIsNIL, "DOMElement is NIL"
uRORes_err_CannotLoadXMLDocument, "Cannot load XML document.\rReason: %s\rLine: %d\rPosition: %d" uRORes_err_CannotLoadXMLDocument, "Cannot load XML document.\rReason: %s\rLine: %d\rPosition: %d"
uRORes_err_ErrorCreatingMsXmlDoc, "Error creating MSXML Document class\r\r%s: %s" uRORes_err_ErrorCreatingMsXmlDoc, "Error creating MSXML Document class\r\r%s: %s"
uRORes_err_NoXMLParsersAvailable, "MSXML is not installed" uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"."
uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported." uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves."
uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\"" uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"."
uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d" uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s"
uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s" uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s"
uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"." uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"."
uRORes_err_InvalidRequestStream, "Invalid request stream (%d bytes)" uRORes_err_InvalidRequestStream, "Invalid request stream (%d bytes)"
@ -2214,10 +2234,10 @@ BEGIN
uRORes_err_ClassFactoryNotFound, "Class factory for interface %s not found" uRORes_err_ClassFactoryNotFound, "Class factory for interface %s not found"
uRORes_err_IROMessageNotSupported, "Class \"%s\" does not support IROMessage" uRORes_err_IROMessageNotSupported, "Class \"%s\" does not support IROMessage"
uRORes_err_ClassAlreadyRegistered, "Class \"%s\" is already registered" uRORes_err_ClassAlreadyRegistered, "Class \"%s\" is already registered"
uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\"" Consts_SUTF8Encoding, "UTF-8"
uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned" Consts_SUTF7Encoding, "UTF-7"
uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for for the requested path?" Consts_SPageControlNotSet, "PageControl must first be assigned"
uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher" uRORes_err_InvalidIndex, "Invalid index %d"
uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\"" uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\""
uRORes_err_InvalidStream, "Invalid stream" uRORes_err_InvalidStream, "Invalid stream"
uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\"" uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\""
@ -2230,26 +2250,6 @@ BEGIN
uRORes_err_RodlNoStructElementsDefined, "Struct does not contain any elements." uRORes_err_RodlNoStructElementsDefined, "Struct does not contain any elements."
uRORes_err_RodlNoOperationsDefined, "Service interface does not contain any elements." uRORes_err_RodlNoOperationsDefined, "Service interface does not contain any elements."
uRORes_err_RodlUsedFileDoesNotExist, "The referenced RODL file \"%s\" could not be found." uRORes_err_RodlUsedFileDoesNotExist, "The referenced RODL file \"%s\" could not be found."
uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"."
uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves."
uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"."
uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s"
Consts_SUTF8Encoding, "UTF-8"
Consts_SUTF7Encoding, "UTF-7"
Consts_SPageControlNotSet, "PageControl must first be assigned"
uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid."
uRODECConst_sStringFormatExists, "String Format \"%d\" not exists."
uRODECConst_sInvalidStringFormat, "Input is not an valid %s Format."
uRODECConst_sInvalidFormatString, "Input can not be convert to %s Format."
uRODECConst_sFMT_COPY, "copy Input to Output"
uRODECConst_sFMT_HEX, "Hexadecimal"
uRODECConst_sFMT_HEXL, "Hexadecimal lowercase"
uRODECConst_sFMT_MIME64, "MIME Base 64"
uRODECConst_sFMT_UU, "UU Coding"
uRODECConst_sFMT_XX, "XX Coding"
uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes"
uRODECConst_sNotInitialized, "%s is not initialized call Init() or InitKey() before."
uRORes_err_InvalidIndex, "Invalid index %d"
Consts_SPictureLabel, "Picture:" Consts_SPictureLabel, "Picture:"
Consts_SPictureDesc, " (%dx%d)" Consts_SPictureDesc, " (%dx%d)"
Consts_SPreviewLabel, "Preview" Consts_SPreviewLabel, "Preview"

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.ico" MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 3,0,9,0 FILEVERSION 3,1,0,0
PRODUCTVERSION 3,0,9,0 PRODUCTVERSION 3,1,0,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "3.0.9.0\0" VALUE "FileVersion", "3.1.0.0\0"
VALUE "ProductName", "FactuGES Server\0" VALUE "ProductName", "FactuGES Server\0"
VALUE "ProductVersion", "3.0.9.0\0" VALUE "ProductVersion", "3.1.0.0\0"
VALUE "CompileDate", "viernes, 31 de octubre de 2008 12:56\0" VALUE "CompileDate", "viernes, 31 de octubre de 2008 18:34\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.