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="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">2</VersionInfo>
<VersionInfo Name="MinorVer">3</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
@ -162,13 +162,13 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</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="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></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> <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"
1 VERSIONINFO
FILEVERSION 3,2,0,0
PRODUCTVERSION 3,2,0,0
FILEVERSION 3,3,0,0
PRODUCTVERSION 3,3,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,9 +13,9 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductVersion", "3.1.0.0\0"
VALUE "ProductVersion", "3.3.0.0\0"
END
END
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 ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente;
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false): Boolean;
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false);
function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false): Boolean;
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@ -147,8 +147,8 @@ type
AFechaRecibido : TDateTime = 0;
DoPost: Boolean = True) : Boolean;
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false): Boolean;
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false);
function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false): Boolean;
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@ -1092,7 +1092,7 @@ begin
end;
end;
procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false);
procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false);
var
AReportController : IAlbaranesClienteReportController;
ID_Albaranes: TStringList;
@ -1119,7 +1119,7 @@ begin
else
ID_Albaranes.Add(IntToStr(AAlbaran.ID));
AReportController.Preview(ID_Albaranes.CommaText);
AReportController.Preview(ID_Albaranes.CommaText, ConObservacionesIncidencias);
finally
AReportController := NIL;
@ -1127,7 +1127,7 @@ begin
end;
end;
function TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false): Boolean;
function TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false): Boolean;
var
AReportController : IAlbaranesClienteReportController;
ID_Albaranes: TStringList;
@ -1155,7 +1155,7 @@ begin
else
ID_Albaranes.Add(IntToStr(AAlbaran.ID));
Result := AReportController.Print(ID_Albaranes.CommaText);
Result := AReportController.Print(ID_Albaranes.CommaText, ConObservacionesIncidencias);
finally
AReportController := NIL;

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

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

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

@ -38,9 +38,9 @@ type
function NewItem : IBizAlbaranCliente;
// 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 GetRptPDF(const AID: Integer; const ShowLogotipo: Boolean = False): Binary;
function GetRptPDF(const AID: Integer; const ShowLogotipo: Boolean = False): Binary;
end;
implementation
@ -77,9 +77,9 @@ begin
Result := (RORemoteService as IsrvAlbaranesCliente).GetNextAutoInc(aGeneratorName)
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
Result := (RORemoteService as IsrvAlbaranesCliente).GenerateReport(AID, ShowLogotipo)
Result := (RORemoteService as IsrvAlbaranesCliente).GenerateReport(AID, ShowLogotipo, ConObservacionesIncidencias)
end;
function TDataModuleAlbaranesCliente.GetRptPDF(const AID: Integer;

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

@ -8,7 +8,7 @@ uses
type
IDataModuleAlbaranesClienteReport = interface
['{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 GetRptPDF(const AID: Integer; const ShowLogotipo: Boolean = False): Binary;
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' +
'_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' V_ALBARANES_CLIENTE.TELEF' +
'ONO,'#10' V_ALBARANES_CLIENTE.CALLE,'#10' V_ALBARANES_CLIENTE.OBSERVAC' +
'IONES,'#10' V_ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' V_ALBARANES_CLIENT' +
'E.FECHA_PREVISTA_ENVIO,'#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' ' +
' EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS R' +
'AZON_SOCIAL_EMPRESA,'#10' EMPRESAS.CALLE AS CALLE_EMPRESA,'#10' EMPRES' +
'AS.CODIGO_POSTAL AS CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.POBLACION ' +
'AS POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA AS PROVINCIA_EMPRESA,' +
#10' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS ' +
'FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.E' +
'MAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_E' +
'MPRESA'#10'FROM'#10' V_ALBARANES_CLIENTE'#10' LEFT OUTER JOIN V_CLIENTES' +
' ON (V_CLIENTES.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTE' +
'R JOIN EMPRESAS ON (EMPRESAS.ID = V_ALBARANES_CLIENTE.ID_EMPRESA' +
')'#10'WHERE V_ALBARANES_CLIENTE.ID = :ID'
'IONES,'#10' V_ALBARANES_CLIENTE.INCIDENCIAS,'#10' V_ALBARANES_CLIENTE.' +
'IMPORTE_TOTAL,'#10' V_ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' EMP' +
'RESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EM' +
'PRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPRES' +
'AS.CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL AS CODIGO_PO' +
'STAL_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLACION_EMPRESA,'#10' EMPRE' +
'SAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TEL' +
'EFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL' +
'_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' ' +
'EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' V_ALBARANES_C' +
'LIENTE'#10' LEFT OUTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_ALBARA' +
'NES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.' +
'ID = V_ALBARANES_CLIENTE.ID_EMPRESA)'#10'WHERE V_ALBARANES_CLIENTE.I' +
'D = :ID'
StatementType = stSQL
ColumnMappings = <
item
@ -248,6 +249,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item
DatasetField = 'PROVINCIA_EMPRESA'
TableField = 'PROVINCIA_EMPRESA'
end
item
DatasetField = 'INCIDENCIAS'
TableField = 'INCIDENCIAS'
end>
end>
Name = 'Informe_Cabecera'
@ -450,6 +455,17 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Lookup = False
LookupCache = False
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
@ -1330,9 +1346,26 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 39286.749813368060000000
ReportOptions.LastChange = 39752.715049039350000000
ScriptLanguage = 'PascalScript'
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);'
'begin'
@ -1340,46 +1373,99 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
' NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
'end;'
''
'procedure TelefonosEmpresaOnBeforePrint(Sender: TfrxComponent);'
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena: String;'
' ACadena : String;'
'begin'
' TelefonosEmpresa.Lines.Clear;'
' ACadena := '#39#39';'
' DireccionEnvio.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_EMPRE' +
'SA">;'
' TelefonosEmpresa.Lines.Add(Cadena);'
' 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 DireccionEmpresaOnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena: String;'
'procedure Memo2OnBeforePrint(Sender: TfrxComponent);'
'begin'
' DireccionEmpresa.Lines.Clear;'
''
' if (<frxDBCabecera."CALLE_EMPRESA"> <> '#39#39') then'
' DireccionEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">)' +
';'
''
' 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">);'
' 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;'
'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'
''
@ -1387,6 +1473,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
ShowProgress = False
StoreInDFM = False
OnGetValue = frxReportGetValue
OnStartReport = 'frxReportOnStartReport'
Left = 169
Top = 16
end

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

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

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

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

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

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

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

@ -230,7 +230,10 @@ end;
procedure TfEditorAlbaranCliente.ImprimirInterno;
begin
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;
procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject);
@ -324,7 +327,10 @@ end;
procedure TfEditorAlbaranCliente.PrevisualizarInterno;
begin
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;
procedure TfEditorAlbaranCliente.RecalcularPortePorUnidad;

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

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

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

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

2
Source/Servicios/FactuGES.RODL
View File

@ -312,6 +312,8 @@
</Parameter>
<Parameter Name="ShowLogotipo" DataType="Boolean" Flag="In" >
</Parameter>
<Parameter Name="ConObservacionesIncidencias" DataType="Boolean" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<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)
['{6E910718-9AB0-47BB-9875-B0DE66A68D7A}']
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 GenerarReportPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
end;
@ -442,7 +442,7 @@ type
function __GetInterfaceName:string; override;
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 GenerarReportPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
end;
@ -1770,7 +1770,7 @@ begin
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
__request, __response : TMemoryStream;
begin
@ -1782,6 +1782,7 @@ begin
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
__Message.Write('ID', TypeInfo(String), ID, []);
__Message.Write('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
__Message.Write('ConObservacionesIncidencias', TypeInfo(Boolean), ConObservacionesIncidencias, []);
__Message.Finalize;
__Message.WriteToStream(__request);

6
Source/Servicios/FactuGES_Invk.pas
View File

@ -812,10 +812,11 @@ begin
end;
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
ID: String;
ShowLogotipo: Boolean;
ConObservacionesIncidencias: Boolean;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -823,8 +824,9 @@ begin
try
__Message.Read('ID', TypeInfo(String), ID, []);
__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.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>
<PersonalityInfo>
<Option>
@ -153,8 +153,8 @@
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">9</VersionInfo>
<VersionInfo Name="MinorVer">1</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
@ -167,18 +167,19 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</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="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></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="CompileDate">martes, 30 de septiembre de 2008 19:31</VersionInfoKeys></VersionInfoKeys> <Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<VersionInfoKeys Name="CompileDate">viernes, 31 de octubre de 2008 12:56</VersionInfoKeys></VersionInfoKeys>
<Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<ModelSupport>False</ModelSupport>
<!-- EurekaLog First Line
[Exception Log]

202
Source/Servidor/FactuGES_Server.drc
View File

@ -912,12 +912,12 @@
#define IdResourceStrings_RSMIMEMIMETypeEmpty 65181
#define IdResourceStrings_RSMIMEMIMEExtAlreadyExists 65182
#define IdResourceStrings_RSStatusResolving 65183
#define uRORes_err_InvalidVarArrayDimCount 65184
#define uRORes_err_MessageNotAssigned 65185
#define ComConst_SOleError 65186
#define ComConst_SNoMethod 65187
#define ComConst_SVarNotObject 65188
#define ComConst_STooManyParams 65189
#define uRODECConst_sFMT_HEXL 65184
#define uRODECConst_sFMT_MIME64 65185
#define uRODECConst_sFMT_UU 65186
#define uRODECConst_sFMT_XX 65187
#define uRODECConst_sInvalidKeySize 65188
#define uRODECConst_sNotInitialized 65189
#define IdResourceStrings_RSCannotAllocateSocket 65190
#define IdResourceStrings_RSConnectionClosedGracefully 65191
#define IdResourceStrings_RSCouldNotBindSocket 65192
@ -928,70 +928,70 @@
#define IdResourceStrings_RSThreadClassNotSpecified 65197
#define IdResourceStrings_RSFileNotFound 65198
#define IdResourceStrings_RSOnlyOneAntiFreeze 65199
#define uRORes_err_UnhandledException 65200
#define uRORes_err_ChannelBusy 65201
#define uRORes_err_ArrayIndexOutOfBounds 65202
#define uRORes_err_InvalidHeader 65203
#define uRORes_err_UnknownClassInStream 65204
#define uRORes_err_UnexpectedClassInStream 65205
#define uRORes_err_SessionNotFound 65206
#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65207
#define uRORes_err_TooManySessions 65208
#define uRORes_err_DOMElementIsNIL 65209
#define uRORes_err_CannotLoadXMLDocument 65210
#define uRORes_err_ErrorCreatingMsXmlDoc 65211
#define uRORes_err_NoXMLParsersAvailable 65212
#define uRORes_err_IDispatchMarshalingNotSupported 65213
#define uRORes_err_UnsupportedVariantType 65214
#define uRORes_err_VariantIsNotArray 65215
#define uRORes_str_ExceptionReraisedFromServer 65216
#define uRORes_err_AssignError 65217
#define uRORes_err_InvalidRequestStream 65218
#define uRORes_err_NILMessage 65219
#define uRORes_err_UnspecifiedInterface 65220
#define uRORes_err_UnspecifiedMessage 65221
#define uRORes_err_UnknownMethod 65222
#define uRORes_err_ClassFactoryDidNotReturnInstance 65223
#define uRORes_err_TypeNotSupported 65224
#define uRORes_err_ClassFactoryNotFound 65225
#define uRORes_err_IROMessageNotSupported 65226
#define uRORes_err_ClassAlreadyRegistered 65227
#define uRORes_err_UnknownProxyInterface 65228
#define uRORes_err_DispatcherAlreadyAssigned 65229
#define uRORes_err_CannotFindMessageDispatcher 65230
#define uRORes_err_ServerOnlySupportsOneDispatcher 65231
#define uRORes_err_InvalidType 65232
#define uRORes_err_InvalidStream 65233
#define uRORes_err_InvalidParamFlag 65234
#define uRORes_err_InvalidStringLength 65235
#define uRORes_str_InvalidClassTypeInStream 65236
#define uRORes_err_UnexpectedEndOfStream 65237
#define uRORes_err_RodlDuplicateName 65238
#define uRORes_err_RodlNoDataTypeSpecified 65239
#define uRORes_err_RodlNoEnumValues 65240
#define uRORes_err_RodlNoStructElementsDefined 65241
#define uRORes_err_RodlNoOperationsDefined 65242
#define uRORes_err_RodlUsedFileDoesNotExist 65243
#define uRORes_err_RodlInvalidDataType 65244
#define uRORes_err_RodlStructCannotBeNested 65245
#define uRORes_err_RodlInvalidAncestorType 65246
#define uRORes_str_ExceptionOnServer 65247
#define uRORes_err_NoXMLParsersAvailable 65200
#define uRORes_err_IDispatchMarshalingNotSupported 65201
#define uRORes_err_UnsupportedVariantType 65202
#define uRORes_err_VariantIsNotArray 65203
#define uRORes_err_InvalidVarArrayDimCount 65204
#define uRORes_err_MessageNotAssigned 65205
#define ComConst_SOleError 65206
#define ComConst_SNoMethod 65207
#define ComConst_SVarNotObject 65208
#define ComConst_STooManyParams 65209
#define uRODECConst_sProtectionCircular 65210
#define uRODECConst_sStringFormatExists 65211
#define uRODECConst_sInvalidStringFormat 65212
#define uRODECConst_sInvalidFormatString 65213
#define uRODECConst_sFMT_COPY 65214
#define uRODECConst_sFMT_HEX 65215
#define uRORes_err_UnknownProxyInterface 65216
#define uRORes_err_DispatcherAlreadyAssigned 65217
#define uRORes_err_CannotFindMessageDispatcher 65218
#define uRORes_err_ServerOnlySupportsOneDispatcher 65219
#define uRORes_err_UnhandledException 65220
#define uRORes_err_ChannelBusy 65221
#define uRORes_err_ArrayIndexOutOfBounds 65222
#define uRORes_err_InvalidHeader 65223
#define uRORes_err_UnknownClassInStream 65224
#define uRORes_err_UnexpectedClassInStream 65225
#define uRORes_err_SessionNotFound 65226
#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65227
#define uRORes_err_TooManySessions 65228
#define uRORes_err_DOMElementIsNIL 65229
#define uRORes_err_CannotLoadXMLDocument 65230
#define uRORes_err_ErrorCreatingMsXmlDoc 65231
#define uRORes_err_RodlInvalidDataType 65232
#define uRORes_err_RodlStructCannotBeNested 65233
#define uRORes_err_RodlInvalidAncestorType 65234
#define uRORes_str_ExceptionOnServer 65235
#define uRORes_str_ExceptionReraisedFromServer 65236
#define uRORes_err_AssignError 65237
#define uRORes_err_InvalidRequestStream 65238
#define uRORes_err_NILMessage 65239
#define uRORes_err_UnspecifiedInterface 65240
#define uRORes_err_UnspecifiedMessage 65241
#define uRORes_err_UnknownMethod 65242
#define uRORes_err_ClassFactoryDidNotReturnInstance 65243
#define uRORes_err_TypeNotSupported 65244
#define uRORes_err_ClassFactoryNotFound 65245
#define uRORes_err_IROMessageNotSupported 65246
#define uRORes_err_ClassAlreadyRegistered 65247
#define Consts_SUTF8Encoding 65248
#define Consts_SUTF7Encoding 65249
#define Consts_SPageControlNotSet 65250
#define uRODECConst_sProtectionCircular 65251
#define uRODECConst_sStringFormatExists 65252
#define uRODECConst_sInvalidStringFormat 65253
#define uRODECConst_sInvalidFormatString 65254
#define uRODECConst_sFMT_COPY 65255
#define uRODECConst_sFMT_HEX 65256
#define uRODECConst_sFMT_HEXL 65257
#define uRODECConst_sFMT_MIME64 65258
#define uRODECConst_sFMT_UU 65259
#define uRODECConst_sFMT_XX 65260
#define uRODECConst_sInvalidKeySize 65261
#define uRODECConst_sNotInitialized 65262
#define uRORes_err_InvalidIndex 65263
#define uRORes_err_InvalidIndex 65251
#define uRORes_err_InvalidType 65252
#define uRORes_err_InvalidStream 65253
#define uRORes_err_InvalidParamFlag 65254
#define uRORes_err_InvalidStringLength 65255
#define uRORes_str_InvalidClassTypeInStream 65256
#define uRORes_err_UnexpectedEndOfStream 65257
#define uRORes_err_RodlDuplicateName 65258
#define uRORes_err_RodlNoDataTypeSpecified 65259
#define uRORes_err_RodlNoEnumValues 65260
#define uRORes_err_RodlNoStructElementsDefined 65261
#define uRORes_err_RodlNoOperationsDefined 65262
#define uRORes_err_RodlUsedFileDoesNotExist 65263
#define Consts_SPictureLabel 65264
#define Consts_SPictureDesc 65265
#define Consts_SPreviewLabel 65266
@ -2170,12 +2170,12 @@ BEGIN
IdResourceStrings_RSMIMEMIMETypeEmpty, "Mimetype is empty"
IdResourceStrings_RSMIMEMIMEExtAlreadyExists, "Extension already exits"
IdResourceStrings_RSStatusResolving, "Resolving hostname %s."
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_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."
IdResourceStrings_RSCannotAllocateSocket, "Cannot allocate socket."
IdResourceStrings_RSConnectionClosedGracefully, "Connection Closed Gracefully."
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_RSFileNotFound, "File \"%s\" not found"
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_ChannelBusy, "Channel is busy. Try again later."
uRORes_err_ArrayIndexOutOfBounds, "Array index out of bounds (%d)."
@ -2198,10 +2218,10 @@ BEGIN
uRORes_err_DOMElementIsNIL, "DOMElement is NIL"
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_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_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"
uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s"
uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"."
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_IROMessageNotSupported, "Class \"%s\" does not support IROMessage"
uRORes_err_ClassAlreadyRegistered, "Class \"%s\" is already registered"
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"
Consts_SUTF8Encoding, "UTF-8"
Consts_SUTF7Encoding, "UTF-7"
Consts_SPageControlNotSet, "PageControl must first be assigned"
uRORes_err_InvalidIndex, "Invalid index %d"
uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\""
uRORes_err_InvalidStream, "Invalid stream"
uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\""
@ -2230,26 +2250,6 @@ BEGIN
uRORes_err_RodlNoStructElementsDefined, "Struct 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_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_SPictureDesc, " (%dx%d)"
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"
1 VERSIONINFO
FILEVERSION 3,0,9,0
PRODUCTVERSION 3,0,9,0
FILEVERSION 3,1,0,0
PRODUCTVERSION 3,1,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductVersion", "3.0.9.0\0"
VALUE "CompileDate", "viernes, 31 de octubre de 2008 12:56\0"
VALUE "ProductVersion", "3.1.0.0\0"
VALUE "CompileDate", "viernes, 31 de octubre de 2008 18:34\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.