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

Primera subida de control de impresión para todos los documentos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@268 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
David Arranz 2008-07-10 15:47:16 +00:00
parent 27e40864a2
commit a501958189
33 changed files with 1168 additions and 394 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.

3
Source/Base/Base.bdsproj
View File

@ -170,7 +170,8 @@
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys> <Excluded_Packages>
</VersionInfoKeys>
<Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxComnD10.bpl">ExpressCommonLibrary by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxEditorsD10.bpl">ExpressEditors Library 5 by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxDataD10.bpl">ExpressDataController by Developer Express Inc.</Excluded_Packages>

6
Source/Base/Base.dpk
View File

@ -78,7 +78,8 @@ requires
jsDialog100,
indy,
JvDlgsD10R,
JvNetD10R;
JvNetD10R,
dxGDIPlusD10;
contains
uDataTableUtils in 'Utiles\uDataTableUtils.pas',
@ -101,6 +102,7 @@ contains
uPasswordUtils in 'Utiles\uPasswordUtils.pas',
uInfoProjectUtils in 'Utiles\uInfoProjectUtils.pas',
uInformeRegistryUtils in 'ClassRegistry\uInformeRegistryUtils.pas',
uStringsUtils in 'Utiles\uStringsUtils.pas';
uStringsUtils in 'Utiles\uStringsUtils.pas',
uDataModuleImpresiones in '..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas' {dmImpresiones: TDataModule};
end.

BIN
Source/Base/Base.res
View File

Binary file not shown.

16
Source/Base/GUIBase/uEditorPreview.dfm
View File

@ -5,17 +5,15 @@ inherited fEditorPreview: TfEditorPreview
WindowState = wsMaximized
OnDestroy = FormDestroy
OnResize = FormResize
ExplicitWidth = 658
ExplicitHeight = 492
ExplicitWidth = 803
ExplicitHeight = 485
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 75
Visible = False
ExplicitTop = 75
ExplicitWidth = 650
inherited Image1: TImage
Left = 623
ExplicitLeft = 623
end
end
@ -27,7 +25,7 @@ inherited fEditorPreview: TfEditorPreview
DefaultDock = TBXDock
Visible = False
ExplicitTop = 49
ExplicitWidth = 242
ExplicitWidth = 248
end
inherited tbxMenu: TTBXToolbar
DockPos = -24
@ -175,8 +173,6 @@ inherited fEditorPreview: TfEditorPreview
item
Width = 50
end>
ExplicitTop = 439
ExplicitWidth = 650
end
inherited EditorActionList: TActionList
Top = 104
@ -847,13 +843,14 @@ inherited fEditorPreview: TfEditorPreview
Bitmap = {}
end
object frxReport1: TfrxReport
Version = '3.23.7'
Version = '4.3'
DotMatrixReport = False
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 38658.858023541660000000
ReportOptions.LastChange = 38658.858023541660000000
ScriptLanguage = 'PascalScript'
@ -864,9 +861,6 @@ inherited fEditorPreview: TfEditorPreview
StoreInDFM = False
Left = 16
Top = 200
Datasets = <>
Variables = <>
Style = <>
end
object frxBarCodeObject1: TfrxBarCodeObject
Left = 16

54
Source/Base/GUIBase/uEditorPreview.pas
View File

@ -20,7 +20,14 @@ type
procedure LoadFromStream(AStream : TStream);
function ExportToFile : String;
procedure Print;
procedure Preview;
procedure Preview;
function GetTablaImpresion: String;
function GetIdTablaImpresion: String;
procedure SetTablaImpresion (Value: String);
procedure SetIdTablaImpresion (Value: String);
property TablaImpresion: String read GetTablaImpresion write SetTablaImpresion;
property IdTablaImpresion: String read GetIdTablaImpresion write SetIdTablaImpresion;
end;
TfEditorPreview = class(TfEditorBase, IEditorPreview)
@ -102,13 +109,25 @@ type
FPreview : TfrViewPreview;
procedure OnPageChanged(Sender: TfrxPreview; PageNo: Integer);
procedure UpdateZoom;
procedure OnPrint(Sender: Tobject);
protected
FTablaImpresion: String;
FIdTablaImpresion: String;
function GetTablaImpresion: String;
function GetIdTablaImpresion: String;
procedure SetTablaImpresion (Value: String);
procedure SetIdTablaImpresion (Value: String);
function GetReport: TfrxReport; virtual;
public
property TablaImpresion: String read GetTablaImpresion write SetTablaImpresion;
property IdTablaImpresion: String read GetIdTablaImpresion write SetIdTablaImpresion;
constructor Create(AOwner: TComponent); override;
property Report: TfrxReport read GetReport;
procedure Print;
procedure Preview;
procedure Preview;
procedure LoadFromStream(AStream : TStream);
function ExportToFile : String;
end;
@ -118,18 +137,28 @@ implementation
uses
frxRes, frxUtils, frxPrinter,
uCustomEditor, uSistemaFunc;
uCustomEditor, uSistemaFunc, uDataModuleImpresiones;
{$R *.dfm}
{ TfEditorBase1 }
function TfEditorPreview.GetIdTablaImpresion: String;
begin
Result := FIdTablaImpresion;
end;
function TfEditorPreview.GetReport: TfrxReport;
begin
Result := frxReport1;
end;
function TfEditorPreview.GetTablaImpresion: String;
begin
Result := FTablaImpresion;
end;
procedure TfEditorPreview.FormShow(Sender: TObject);
begin
inherited;
@ -284,6 +313,11 @@ begin
[PageNo, Sender.PageCount]);
end;
procedure TfEditorPreview.OnPrint(Sender: Tobject);
begin
dmImpresiones.AnadirMarcaImpresion(TablaImpresion, IdTablaImpresion);
end;
constructor TfEditorPreview.Create(AOwner: TComponent);
begin
inherited;
@ -304,6 +338,8 @@ begin
FPreview := TfrViewPreview.Create(Self);
Report.Preview := FPreview.Preview;
FPreview.Preview.OnPageChanged := OnPageChanged;
FTablaImpresion := '-1';
FIdTablaImpresion := '-1';
end;
procedure TfEditorPreview.Preview;
@ -313,6 +349,8 @@ end;
procedure TfEditorPreview.Print;
begin
FPreview.Preview.Report.OnPrintReport := onprint;
if not frxPrinters.HasPhysicalPrinters then
frxErrorMsg(frxResources.Get('clNoPrinters'))
else
@ -320,6 +358,16 @@ begin
Enabled := True;
end;
procedure TfEditorPreview.SetIdTablaImpresion(Value: String);
begin
FIdTablaImpresion := Value;
end;
procedure TfEditorPreview.SetTablaImpresion(Value: String);
begin
FTablaImpresion := Value;
end;
function TfEditorPreview.ExportToFile: String;
var
AFile : String;

5
Source/Base/uDataModuleBase.pas
View File

@ -38,7 +38,8 @@ implementation
uses
uDataModuleConexion, Dialogs, TBX, TBXThemes, Forms, Windows,
JclFileUtils, cxControls, SysUtils, uDataModuleConfiguracion;
JclFileUtils, cxControls, SysUtils, uDataModuleConfiguracion,
uDataModuleImpresiones;
{
*********************************** TdmBase ************************************
@ -47,6 +48,7 @@ procedure TdmBase.DAClientDataModuleCreate(Sender: TObject);
begin
dmConexion := TdmConexion.Create(NIL);
dmConfiguracion := TdmConfiguracion.Create(NIL);
dmImpresiones := TDataModuleImpresiones.Create(NIL);
TBXSwitcher.OnThemeChange := OnTBXThemeChange;
TBXSetTheme('Office2003');
@ -114,6 +116,7 @@ procedure TdmBase.DataModuleDestroy(Sender: TObject);
begin
FreeANDNIL(dmConfiguracion);
FreeAndNil(dmConexion);
FreeAndNil(dmImpresiones);
end;
initialization

2
Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.bdsproj
View File

@ -172,7 +172,7 @@
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
</Delphi.Personality>
<!-- EurekaLog First Line
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=519
Activate=1

9
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas
View File

@ -32,7 +32,8 @@ implementation
uses
uROTypes, uEditorRegistryUtils, uIEditorFacturasClientePreview,
uEditorPreview, uDataModuleFacturasCliente, uEditorBase, cxControls;
uEditorPreview, uDataModuleFacturasCliente, uEditorBase, cxControls,
schFacturasClienteClient_Intf;
{ TFacturasClienteReportController }
@ -99,7 +100,11 @@ begin
end;
if Assigned(AEditor) then
AEditor.Print
begin
AEditor.TablaImpresion := nme_FacturasCliente;
AEditor.IdTablaImpresion := AFacturaID;
AEditor.Print;
end;
end;
end.

13
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -455,6 +455,17 @@ object DataModuleFacturasCliente: TDataModuleFacturasCliente
Lookup = False
LookupCache = False
end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
@ -858,7 +869,7 @@ object DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'User'
ParamType = fIn
DataType = rtString
Value = 'Administrador'
Value = 'Luis'
end
item
Name = 'Password'

60
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -9,11 +9,11 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_DarReferencia = '{19462EB6-165A-476C-9823-5B2B47A082F8}';
RID_FacturasCliente = '{8DDD5076-A7FE-4649-BD84-36A382C2DB9F}';
RID_FacturasCliente_Detalles = '{C3991952-23C1-47BE-9530-07D295DBFF68}';
RID_FacturasCliente_Detalles_Refresh = '{B6449FD9-7ECA-4803-88B5-43887E1AE8F9}';
RID_FacturasCliente_Refresh = '{88BDA112-E109-4894-A64B-83C094E54A14}';
RID_DarReferencia = '{EA572FA1-0901-4EF3-938E-2362AC640EB4}';
RID_FacturasCliente = '{29F1AA5F-3116-4524-9211-1FBD4E374821}';
RID_FacturasCliente_Detalles = '{800AB71B-4277-426A-9227-90DEB5691D1B}';
RID_FacturasCliente_Detalles_Refresh = '{86962468-04E7-46A8-9092-2CB67A9C8386}';
RID_FacturasCliente_Refresh = '{5867B671-2351-490B-9C7F-8FD8FF52F453}';
{ Data table names }
nme_DarReferencia = 'DarReferencia';
@ -62,6 +62,7 @@ const
fld_FacturasClienteID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
fld_FacturasClienteREFERENCIA_COMISION = 'REFERENCIA_COMISION';
fld_FacturasClienteID_AGENTE = 'ID_AGENTE';
fld_FacturasClienteNUM_COPIAS = 'NUM_COPIAS';
fld_FacturasClienteFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
{ FacturasCliente field indexes }
@ -98,7 +99,8 @@ const
idx_FacturasClienteID_COMISION_LIQUIDADA = 30;
idx_FacturasClienteREFERENCIA_COMISION = 31;
idx_FacturasClienteID_AGENTE = 32;
idx_FacturasClienteFECHA_VENCIMIENTO = 33;
idx_FacturasClienteNUM_COPIAS = 33;
idx_FacturasClienteFECHA_VENCIMIENTO = 34;
{ FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID';
@ -198,6 +200,7 @@ const
fld_FacturasCliente_RefreshID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
fld_FacturasCliente_RefreshREFERENCIA_COMISION = 'REFERENCIA_COMISION';
fld_FacturasCliente_RefreshID_AGENTE = 'ID_AGENTE';
fld_FacturasCliente_RefreshNUM_COPIAS = 'NUM_COPIAS';
fld_FacturasCliente_RefreshFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
{ FacturasCliente_Refresh field indexes }
@ -234,12 +237,13 @@ const
idx_FacturasCliente_RefreshID_COMISION_LIQUIDADA = 30;
idx_FacturasCliente_RefreshREFERENCIA_COMISION = 31;
idx_FacturasCliente_RefreshID_AGENTE = 32;
idx_FacturasCliente_RefreshFECHA_VENCIMIENTO = 33;
idx_FacturasCliente_RefreshNUM_COPIAS = 33;
idx_FacturasCliente_RefreshFECHA_VENCIMIENTO = 34;
type
{ IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable)
['{4A9A147C-F0D4-4D12-A078-E1628935D51C}']
['{3256D6AA-181E-4AA4-8C6B-80AB1640194C}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
@ -268,7 +272,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{97F07602-AA17-43F5-B602-DF2652E5E44D}']
['{1E620AC4-0A78-4423-B993-C73C1C37956E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -336,6 +340,8 @@ type
procedure SetREFERENCIA_COMISIONValue(const aValue: String);
function GetID_AGENTEValue: Integer;
procedure SetID_AGENTEValue(const aValue: Integer);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
function GetFECHA_VENCIMIENTOValue: DateTime;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
@ -374,6 +380,7 @@ type
property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
end;
@ -448,6 +455,8 @@ type
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
function GetID_AGENTEValue: Integer; virtual;
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
@ -485,6 +494,7 @@ type
property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
public
@ -495,7 +505,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{D4170DB7-FDD7-4E30-B782-BD714997C91F}']
['{719659FD-6739-411F-A273-E73CE5721675}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -602,7 +612,7 @@ type
{ IFacturasCliente_Detalles_Refresh }
IFacturasCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
['{6DE35809-3133-4554-9B41-CFD14D4D76E4}']
['{927E98B8-EC45-41CF-A4D0-33B5B3F70DD9}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -709,7 +719,7 @@ type
{ IFacturasCliente_Refresh }
IFacturasCliente_Refresh = interface(IDAStronglyTypedDataTable)
['{9012F341-ADE0-4953-B0D9-6D9F2C1AD246}']
['{7034A9EF-11B0-479C-810E-4635F48B903D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -777,6 +787,8 @@ type
procedure SetREFERENCIA_COMISIONValue(const aValue: String);
function GetID_AGENTEValue: Integer;
procedure SetID_AGENTEValue(const aValue: Integer);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
function GetFECHA_VENCIMIENTOValue: DateTime;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
@ -815,6 +827,7 @@ type
property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
end;
@ -889,6 +902,8 @@ type
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
function GetID_AGENTEValue: Integer; virtual;
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
@ -926,6 +941,7 @@ type
property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
public
@ -1302,6 +1318,16 @@ begin
DataTable.Fields[idx_FacturasClienteID_AGENTE].AsInteger := aValue;
end;
function TFacturasClienteDataTableRules.GetNUM_COPIASValue: Integer;
begin
result := DataTable.Fields[idx_FacturasClienteNUM_COPIAS].AsInteger;
end;
procedure TFacturasClienteDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasClienteNUM_COPIAS].AsInteger := aValue;
end;
function TFacturasClienteDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
begin
result := DataTable.Fields[idx_FacturasClienteFECHA_VENCIMIENTO].AsDateTime;
@ -1959,6 +1985,16 @@ begin
DataTable.Fields[idx_FacturasCliente_RefreshID_AGENTE].AsInteger := aValue;
end;
function TFacturasCliente_RefreshDataTableRules.GetNUM_COPIASValue: Integer;
begin
result := DataTable.Fields[idx_FacturasCliente_RefreshNUM_COPIAS].AsInteger;
end;
procedure TFacturasCliente_RefreshDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasCliente_RefreshNUM_COPIAS].AsInteger := aValue;
end;
function TFacturasCliente_RefreshDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
begin
result := DataTable.Fields[idx_FacturasCliente_RefreshFECHA_VENCIMIENTO].AsDateTime;

64
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,16 +9,16 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_DarReferenciaDelta = '{2A3A12E9-C827-4E8E-87F4-66663046BCB0}';
RID_FacturasClienteDelta = '{EE0C8D6B-09A1-49BA-995E-D5813C219BC6}';
RID_FacturasCliente_DetallesDelta = '{E103EFA3-3E5A-4A51-BEA4-A455639671F8}';
RID_FacturasCliente_Detalles_RefreshDelta = '{59F4EB01-2245-46B8-B145-7B5B5559CFF0}';
RID_FacturasCliente_RefreshDelta = '{90BC3A87-5CD3-4430-9FE9-342CB1C9B5C7}';
RID_DarReferenciaDelta = '{EC8CF18D-9B28-4048-A90B-24F954D0DC5B}';
RID_FacturasClienteDelta = '{9DFFB51A-DD80-4EBA-B1A7-CFDE7A089FA6}';
RID_FacturasCliente_DetallesDelta = '{E2C9BB04-8C40-4E2C-991D-FE75784D4208}';
RID_FacturasCliente_Detalles_RefreshDelta = '{F1B97398-D0F8-40DC-8088-94984892518A}';
RID_FacturasCliente_RefreshDelta = '{75588952-1574-4345-9658-DB10B41E1C75}';
type
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
['{2A3A12E9-C827-4E8E-87F4-66663046BCB0}']
['{EC8CF18D-9B28-4048-A90B-24F954D0DC5B}']
{ Property getters and setters }
function GetOldVALORValue : String;
@ -47,7 +47,7 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
['{EE0C8D6B-09A1-49BA-995E-D5813C219BC6}']
['{9DFFB51A-DD80-4EBA-B1A7-CFDE7A089FA6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -82,6 +82,7 @@ type
function GetOldID_COMISION_LIQUIDADAValue : Integer;
function GetOldREFERENCIA_COMISIONValue : String;
function GetOldID_AGENTEValue : Integer;
function GetOldNUM_COPIASValue : Integer;
function GetOldFECHA_VENCIMIENTOValue : DateTime;
{ Properties }
@ -118,6 +119,7 @@ type
property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
end;
@ -225,6 +227,9 @@ type
function GetID_AGENTEValue: Integer; virtual;
function GetOldID_AGENTEValue: Integer; virtual;
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
@ -296,6 +301,8 @@ type
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
@ -307,7 +314,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{E103EFA3-3E5A-4A51-BEA4-A455639671F8}']
['{E2C9BB04-8C40-4E2C-991D-FE75784D4208}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -427,7 +434,7 @@ type
{ IFacturasCliente_Detalles_RefreshDelta }
IFacturasCliente_Detalles_RefreshDelta = interface(IFacturasCliente_Detalles_Refresh)
['{59F4EB01-2245-46B8-B145-7B5B5559CFF0}']
['{F1B97398-D0F8-40DC-8088-94984892518A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -547,7 +554,7 @@ type
{ IFacturasCliente_RefreshDelta }
IFacturasCliente_RefreshDelta = interface(IFacturasCliente_Refresh)
['{90BC3A87-5CD3-4430-9FE9-342CB1C9B5C7}']
['{75588952-1574-4345-9658-DB10B41E1C75}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -582,6 +589,7 @@ type
function GetOldID_COMISION_LIQUIDADAValue : Integer;
function GetOldREFERENCIA_COMISIONValue : String;
function GetOldID_AGENTEValue : Integer;
function GetOldNUM_COPIASValue : Integer;
function GetOldFECHA_VENCIMIENTOValue : DateTime;
{ Properties }
@ -618,6 +626,7 @@ type
property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
end;
@ -725,6 +734,9 @@ type
function GetID_AGENTEValue: Integer; virtual;
function GetOldID_AGENTEValue: Integer; virtual;
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
@ -796,6 +808,8 @@ type
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
@ -1345,6 +1359,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE] := aValue;
end;
function TFacturasClienteBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNUM_COPIAS];
end;
function TFacturasClienteBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNUM_COPIAS];
end;
procedure TFacturasClienteBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNUM_COPIAS] := aValue;
end;
function TFacturasClienteBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_VENCIMIENTO];
@ -2313,6 +2342,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshID_AGENTE] := aValue;
end;
function TFacturasCliente_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshNUM_COPIAS];
end;
function TFacturasCliente_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_RefreshNUM_COPIAS];
end;
procedure TFacturasCliente_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshNUM_COPIAS] := aValue;
end;
function TFacturasCliente_RefreshBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshFECHA_VENCIMIENTO];

1
Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas
View File

@ -28,7 +28,6 @@ uses
schFacturasClienteClient_Intf, uBusinessUtils, uReferenciasUtils, uROClasses;
{ TBizFacturasClienteServer }
procedure TBizFacturasClienteServer.BeforeProcessChange(
Sender: TDABusinessProcessor; aChangeType: TDAChangeType;
aChange: TDADeltaChange; var ProcessChange: Boolean);

67
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -1243,7 +1243,7 @@ object RptFacturasCliente: TRptFacturasCliente
Top = 158
end
object frxReport: TfrxReport
Version = '3.23.7'
Version = '4.3'
DotMatrixReport = False
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports'
@ -1251,6 +1251,7 @@ object RptFacturasCliente: TRptFacturasCliente
PreviewOptions.OutlineWidth = 180
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.LastChange = 39290.847101226850000000
ReportOptions.VersionBuild = '1'
@ -1406,70 +1407,6 @@ object RptFacturasCliente: TRptFacturasCliente
OnStartReport = 'frxReportOnStartReport'
Left = 169
Top = 16
Datasets = <
item
DataSet = frxDBCabecera
DataSetName = 'frxDBCabecera'
end
item
DataSet = frxDBDetalles
DataSetName = 'frxDBDetalles'
end
item
DataSet = frxDBDataset1
DataSetName = 'frxDBVencimientos'
end>
Variables = <
item
Name = ' Paginacion'
Value = Null
end
item
Name = 'Pagina'
Value = Null
end
item
Name = 'TotalPaginas'
Value = Null
end>
Style = <
item
Name = 'Concepto normal'
Color = clNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = []
end
item
Name = 'Concepto subtotal'
Color = clNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
end
item
Name = 'Cabecera de columna'
Color = 15790320
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
item
Name = 'Concepto titulo'
Color = clNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
end>
end
object frxDBCabecera: TfrxDBDataset
UserName = 'frxDBCabecera'

9
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -45,7 +45,7 @@ implementation
{$R *.dfm}
uses
uDataModuleServer, schFacturasClienteClient_Intf;
uDataModuleServer, schFacturasClienteClient_Intf, srvImpresiones_Impl;
const
rptFacturaCliente = 'InfFacturaCliente.fr3';
@ -120,6 +120,13 @@ begin
frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True);
frxReport.PrepareReport(False);
{ with TsrvImpresiones.Create(NIL) do
try
AnadirMarcaImpresion(nme_FacturasCliente, ID);
finally
Free;
end;
}
finally
AStream.Free;
dsMaster := Nil;

243
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -77,45 +77,9 @@ object srvFacturasCliente: TsrvFacturasCliente
'GO_POSTAL, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA' +
'_PAGO, RECARGO_EQUIVALENCIA, ID_TIPO_IVA,'#10' IMPORTE_NETO, IMPO' +
'RTE_PORTE, ID_COMISION_LIQUIDADA, REFERENCIA_COMISION,'#10' ID_AG' +
'ENTE'#10' FROM'#10' V_FACTURAS_CLIENTE'
'ENTE, NUM_COPIAS'#10' FROM'#10' V_FACTURAS_CLIENTE'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'IVA'
TableField = 'IVA'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'ID'
TableField = 'ID'
@ -124,6 +88,14 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA'
@ -136,18 +108,38 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'IMPORTE_DESCUENTO'
TableField = 'IMPORTE_DESCUENTO'
end
item
DatasetField = 'IVA'
TableField = 'IVA'
end
item
DatasetField = 'IMPORTE_IVA'
TableField = 'IMPORTE_IVA'
end
item
DatasetField = 'RE'
TableField = 'RE'
end
item
DatasetField = 'IMPORTE_RE'
TableField = 'IMPORTE_RE'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
@ -156,6 +148,22 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
@ -169,17 +177,21 @@ object srvFacturasCliente: TsrvFacturasCliente
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'RE'
TableField = 'RE'
end
item
DatasetField = 'IMPORTE_RE'
TableField = 'IMPORTE_RE'
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO'
end
item
DatasetField = 'RECARGO_EQUIVALENCIA'
TableField = 'RECARGO_EQUIVALENCIA'
end
item
DatasetField = 'ID_TIPO_IVA'
TableField = 'ID_TIPO_IVA'
end
item
DatasetField = 'IMPORTE_NETO'
TableField = 'IMPORTE_NETO'
@ -188,14 +200,6 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'IMPORTE_PORTE'
TableField = 'IMPORTE_PORTE'
end
item
DatasetField = 'ID_TIPO_IVA'
TableField = 'ID_TIPO_IVA'
end
item
DatasetField = 'RECARGO_EQUIVALENCIA'
TableField = 'RECARGO_EQUIVALENCIA'
end
item
DatasetField = 'ID_COMISION_LIQUIDADA'
TableField = 'ID_COMISION_LIQUIDADA'
@ -209,8 +213,8 @@ object srvFacturasCliente: TsrvFacturasCliente
TableField = 'ID_AGENTE'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
DatasetField = 'NUM_COPIAS'
TableField = 'NUM_COPIAS'
end>
end>
Name = 'FacturasCliente'
@ -556,6 +560,17 @@ object srvFacturasCliente: TsrvFacturasCliente
Lookup = False
LookupCache = False
end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
@ -1076,45 +1091,10 @@ object srvFacturasCliente: TsrvFacturasCliente
'DIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_FO' +
'RMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, ' +
'IMPORTE_PORTE, ID_COMISION_LIQUIDADA,'#10' REFERENCIA_COMISION, I' +
'D_AGENTE'#10' FROM'#10' V_FACTURAS_CLIENTE'#10' WHERE ID = :ID'
'D_AGENTE, NUM_COPIAS'#10' FROM'#10' V_FACTURAS_CLIENTE'#10' WHERE ID = ' +
':ID'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'IVA'
TableField = 'IVA'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'ID'
TableField = 'ID'
@ -1123,6 +1103,14 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA'
@ -1135,18 +1123,38 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'IMPORTE_DESCUENTO'
TableField = 'IMPORTE_DESCUENTO'
end
item
DatasetField = 'IVA'
TableField = 'IVA'
end
item
DatasetField = 'IMPORTE_IVA'
TableField = 'IMPORTE_IVA'
end
item
DatasetField = 'RE'
TableField = 'RE'
end
item
DatasetField = 'IMPORTE_RE'
TableField = 'IMPORTE_RE'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
@ -1155,6 +1163,22 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
@ -1168,17 +1192,21 @@ object srvFacturasCliente: TsrvFacturasCliente
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'RE'
TableField = 'RE'
end
item
DatasetField = 'IMPORTE_RE'
TableField = 'IMPORTE_RE'
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO'
end
item
DatasetField = 'RECARGO_EQUIVALENCIA'
TableField = 'RECARGO_EQUIVALENCIA'
end
item
DatasetField = 'ID_TIPO_IVA'
TableField = 'ID_TIPO_IVA'
end
item
DatasetField = 'IMPORTE_NETO'
TableField = 'IMPORTE_NETO'
@ -1187,14 +1215,6 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'IMPORTE_PORTE'
TableField = 'IMPORTE_PORTE'
end
item
DatasetField = 'ID_TIPO_IVA'
TableField = 'ID_TIPO_IVA'
end
item
DatasetField = 'RECARGO_EQUIVALENCIA'
TableField = 'RECARGO_EQUIVALENCIA'
end
item
DatasetField = 'ID_COMISION_LIQUIDADA'
TableField = 'ID_COMISION_LIQUIDADA'
@ -1208,8 +1228,8 @@ object srvFacturasCliente: TsrvFacturasCliente
TableField = 'ID_AGENTE'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
DatasetField = 'NUM_COPIAS'
TableField = 'NUM_COPIAS'
end>
end>
Name = 'FacturasCliente_Refresh'
@ -1559,6 +1579,17 @@ object srvFacturasCliente: TsrvFacturasCliente
Lookup = False
LookupCache = False
end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime

6
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -21,6 +21,12 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
end>
OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewNUM_COPIAS: TcxGridDBColumn
DataBinding.FieldName = 'NUM_COPIAS'
VisibleForCustomization = False
Width = 25
IsCaptionAssigned = True
end
object cxGridViewTIPO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO'
PropertiesClassName = 'TcxImageComboBoxProperties'

1
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
View File

@ -55,6 +55,7 @@ type
TBXItem3: TTBXItem;
TBXSeparatorItem2: TTBXSeparatorItem;
cxGridViewTIPO: TcxGridDBColumn;
cxGridViewNUM_COPIAS: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);

77
Source/Modulos/Impresiones/Data/uDataModuleImpresiones.dfm Normal file
View File

@ -0,0 +1,77 @@
object DataModuleImpresiones: TDataModuleImpresiones
OldCreateOrder = True
OnCreate = DAClientDataModuleCreate
RemoteService = RORemoteService
Adapter = DABinAdapter
SchemaCall.MethodName = 'GetSchemaAsXML'
SchemaCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtString
end>
Height = 414
Width = 518
object RORemoteService: TRORemoteService
ServiceName = 'srvImpresiones'
Message = ROBinMessage1
Channel = ROWinInetHTTPChannel1
Left = 48
Top = 24
end
object DABinAdapter: TDABINAdapter
Left = 48
Top = 80
end
object DADesigntimeCall1: TDADesigntimeCall
RemoteRequest.MethodName = 'Login'
RemoteRequest.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBoolean
end
item
Name = 'User'
ParamType = fIn
DataType = rtString
Value = 'Administrador'
end
item
Name = 'Password'
ParamType = fIn
DataType = rtString
Value = '1'
end
item
Name = 'LoginInfo'
ParamType = fOut
DataType = rtUserDefined
UserClassName = 'TRdxLoginInfo'
end>
RemoteService = LoginRemoteService
Left = 48
Top = 160
end
object LoginRemoteService: TRORemoteService
ServiceName = 'srvLogin'
Message = ROBinMessage1
Channel = ROWinInetHTTPChannel1
Left = 48
Top = 216
end
object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
ServerLocators = <>
DispatchOptions = []
ProbeServers = False
ProbeFrequency = 60000
UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8099/bin'
Left = 48
Top = 272
end
object ROBinMessage1: TROBinMessage
Left = 48
Top = 324
end
end

48
Source/Modulos/Impresiones/Data/uDataModuleImpresiones.pas Normal file
View File

@ -0,0 +1,48 @@
unit uDataModuleImpresiones;
interface
uses
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
uDADesigntimeCall;
type
TDataModuleImpresiones = class(TDAClientDataModule)
RORemoteService: TRORemoteService;
DABinAdapter: TDABINAdapter;
DADesigntimeCall1: TDADesigntimeCall;
LoginRemoteService: TRORemoteService;
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
ROBinMessage1: TROBinMessage;
procedure DAClientDataModuleCreate(Sender: TObject);
public
function AnadirMarcaImpresion(const Tabla: String; IdsTabla: String): Boolean;
end;
var
dmImpresiones: TDataModuleImpresiones;
implementation
{$R *.DFM}
uses
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
Dialogs;
{ TdmImpresiones }
function TDataModuleImpresiones.AnadirMarcaImpresion(const Tabla: String; IdsTabla: String): Boolean;
begin
Result := (RORemoteService as IsrvImpresiones).AnadirMarcaImpresion(Tabla, IdsTabla);
end;
procedure TDataModuleImpresiones.DAClientDataModuleCreate(Sender: TObject);
begin
RORemoteService.Channel := dmConexion.Channel;
RORemoteService.Message := dmConexion.Message;
end;
end.

136
Source/Modulos/Impresiones/Model/schImpresionesClient_Intf.pas Normal file
View File

@ -0,0 +1,136 @@
unit schImpresionesClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Impresiones = '{EAA2FFEA-7F70-4B38-A9DD-302CB54EDF1C}';
{ Data table names }
nme_Impresiones = 'Impresiones';
{ Impresiones fields }
fld_ImpresionesID = 'ID';
fld_ImpresionesTABLA = 'TABLA';
fld_ImpresionesID_TABLA = 'ID_TABLA';
fld_ImpresionesNUM_COPIAS = 'NUM_COPIAS';
{ Impresiones field indexes }
idx_ImpresionesID = 0;
idx_ImpresionesTABLA = 1;
idx_ImpresionesID_TABLA = 2;
idx_ImpresionesNUM_COPIAS = 3;
type
{ IImpresiones }
IImpresiones = interface(IDAStronglyTypedDataTable)
['{4CADBD7F-0B03-4453-BD72-CAB44E9F590D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetTABLAValue: String;
procedure SetTABLAValue(const aValue: String);
function GetID_TABLAValue: Integer;
procedure SetID_TABLAValue(const aValue: Integer);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property TABLA: String read GetTABLAValue write SetTABLAValue;
property ID_TABLA: Integer read GetID_TABLAValue write SetID_TABLAValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
end;
{ TImpresionesDataTableRules }
TImpresionesDataTableRules = class(TDADataTableRules, IImpresiones)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetTABLAValue: String; virtual;
procedure SetTABLAValue(const aValue: String); virtual;
function GetID_TABLAValue: Integer; virtual;
procedure SetID_TABLAValue(const aValue: Integer); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property TABLA: String read GetTABLAValue write SetTABLAValue;
property ID_TABLA: Integer read GetID_TABLAValue write SetID_TABLAValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
implementation
uses Variants;
{ TImpresionesDataTableRules }
constructor TImpresionesDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TImpresionesDataTableRules.Destroy;
begin
inherited;
end;
function TImpresionesDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_ImpresionesID].AsInteger;
end;
procedure TImpresionesDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_ImpresionesID].AsInteger := aValue;
end;
function TImpresionesDataTableRules.GetTABLAValue: String;
begin
result := DataTable.Fields[idx_ImpresionesTABLA].AsString;
end;
procedure TImpresionesDataTableRules.SetTABLAValue(const aValue: String);
begin
DataTable.Fields[idx_ImpresionesTABLA].AsString := aValue;
end;
function TImpresionesDataTableRules.GetID_TABLAValue: Integer;
begin
result := DataTable.Fields[idx_ImpresionesID_TABLA].AsInteger;
end;
procedure TImpresionesDataTableRules.SetID_TABLAValue(const aValue: Integer);
begin
DataTable.Fields[idx_ImpresionesID_TABLA].AsInteger := aValue;
end;
function TImpresionesDataTableRules.GetNUM_COPIASValue: Integer;
begin
result := DataTable.Fields[idx_ImpresionesNUM_COPIAS].AsInteger;
end;
procedure TImpresionesDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
begin
DataTable.Fields[idx_ImpresionesNUM_COPIAS].AsInteger := aValue;
end;
initialization
RegisterDataTableRules(RID_Impresiones, TImpresionesDataTableRules);
end.

145
Source/Modulos/Impresiones/Model/schImpresionesServer_Intf.pas Normal file
View File

@ -0,0 +1,145 @@
unit schImpresionesServer_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schImpresionesClient_Intf;
const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ImpresionesDelta = '{2013D757-4089-4550-B61B-481831BE4EF9}';
type
{ IImpresionesDelta }
IImpresionesDelta = interface(IImpresiones)
['{2013D757-4089-4550-B61B-481831BE4EF9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldTABLAValue : String;
function GetOldID_TABLAValue : Integer;
function GetOldNUM_COPIASValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldTABLA : String read GetOldTABLAValue;
property OldID_TABLA : Integer read GetOldID_TABLAValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
end;
{ TImpresionesBusinessProcessorRules }
TImpresionesBusinessProcessorRules = class(TDABusinessProcessorRules, IImpresiones, IImpresionesDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetOldIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetTABLAValue: String; virtual;
function GetOldTABLAValue: String; virtual;
procedure SetTABLAValue(const aValue: String); virtual;
function GetID_TABLAValue: Integer; virtual;
function GetOldID_TABLAValue: Integer; virtual;
procedure SetID_TABLAValue(const aValue: Integer); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property OldID : Integer read GetOldIDValue;
property TABLA : String read GetTABLAValue write SetTABLAValue;
property OldTABLA : String read GetOldTABLAValue;
property ID_TABLA : Integer read GetID_TABLAValue write SetID_TABLAValue;
property OldID_TABLA : Integer read GetOldID_TABLAValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
implementation
uses
Variants, uROBinaryHelpers;
{ TImpresionesBusinessProcessorRules }
constructor TImpresionesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TImpresionesBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TImpresionesBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ImpresionesID];
end;
function TImpresionesBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ImpresionesID];
end;
procedure TImpresionesBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ImpresionesID] := aValue;
end;
function TImpresionesBusinessProcessorRules.GetTABLAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ImpresionesTABLA];
end;
function TImpresionesBusinessProcessorRules.GetOldTABLAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ImpresionesTABLA];
end;
procedure TImpresionesBusinessProcessorRules.SetTABLAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ImpresionesTABLA] := aValue;
end;
function TImpresionesBusinessProcessorRules.GetID_TABLAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ImpresionesID_TABLA];
end;
function TImpresionesBusinessProcessorRules.GetOldID_TABLAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ImpresionesID_TABLA];
end;
procedure TImpresionesBusinessProcessorRules.SetID_TABLAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ImpresionesID_TABLA] := aValue;
end;
function TImpresionesBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ImpresionesNUM_COPIAS];
end;
function TImpresionesBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ImpresionesNUM_COPIAS];
end;
procedure TImpresionesBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ImpresionesNUM_COPIAS] := aValue;
end;
initialization
RegisterBusinessProcessorRules(RID_ImpresionesDelta, TImpresionesBusinessProcessorRules);
end.

184
Source/Modulos/Impresiones/Servidor/srvImpresiones_Impl.dfm Normal file
View File

@ -0,0 +1,184 @@
object srvImpresiones: TsrvImpresiones
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
RequiresSession = True
SessionManager = dmServer.SessionManager
AcquireConnection = True
ServiceSchema = schImpresiones
ServiceAdapter = DABINAdapter
OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection
Height = 202
Width = 392
object Diagrams: TDADiagrams
Left = 150
Top = 90
DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
end
object DataDictionary: TDADataDictionary
Fields = <
item
Name = 'Referencias_CODIGO'
DataType = datString
Size = 50
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'CODIGO'
Alignment = taLeftJustify
end
item
Name = 'Referencias_DESCRIPCION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Referencias'
Alignment = taLeftJustify
end
item
Name = 'Referencias_VALOR'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'C'#243'digo'
Alignment = taLeftJustify
end
item
Name = 'Referencias_ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_EMPRESA'
Alignment = taLeftJustify
end>
Left = 150
Top = 24
end
object schImpresiones: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary
Diagrams = Diagrams
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'IMPRESIONES'
SQL = 'select ID, TABLA, ID_TABLA, NUM_COPIAS'#10'from IMPRESIONES'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'TABLA'
TableField = 'TABLA'
end
item
DatasetField = 'ID_TABLA'
TableField = 'ID_TABLA'
end
item
DatasetField = 'NUM_COPIAS'
TableField = 'NUM_COPIAS'
end>
end>
Name = 'Impresiones'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
BlobType = dabtUnknown
GeneratorName = 'GEN_IMPRESIONES_ID'
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TABLA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_TABLA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end>
Commands = <
item
Params = <
item
Name = 'Tabla'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IdTabla'
BlobType = dabtUnknown
Value = ''
ParamType = daptUnknown
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'IMPRESIONES'
SQL = 'execute procedure PRO_ANADIR_MARCA_IMPRESION :Tabla, :IdTabla'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'AnadirMarcaImpresion'
end>
RelationShips = <>
UpdateRules = <>
Left = 48
Top = 24
end
object DABINAdapter: TDABINAdapter
Left = 48
Top = 90
end
object bpImpresiones: TDABusinessProcessor
Schema = schImpresiones
UpdateCommandName = 'Update_Referencias'
ReferencedDataset = 'Referencias'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 248
Top = 24
end
end

108
Source/Modulos/Impresiones/Servidor/srvImpresiones_Impl.pas Normal file
View File

@ -0,0 +1,108 @@
unit srvImpresiones_Impl;
{----------------------------------------------------------------------------}
{ This unit was automatically generated by the RemObjects SDK after reading }
{ the RODL file associated with this project . }
{ }
{ This is where you are supposed to code the implementation of your objects. }
{----------------------------------------------------------------------------}
interface
uses
{vcl:} Classes, SysUtils,
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
{Ancestor Implementation:} DARemoteService_Impl,
{Used RODLs:} DataAbstract_Intf,
{Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
uDAScriptingProvider, uDABusinessProcessor;
type
{ TsrvImpresiones }
TsrvImpresiones = class(TDARemoteService, IsrvImpresiones)
Diagrams: TDADiagrams;
DABINAdapter: TDABINAdapter;
bpImpresiones: TDABusinessProcessor;
schImpresiones: TDASchema;
DataDictionary: TDADataDictionary;
procedure DARemoteServiceCreate(Sender: TObject);
procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService;
var ConnectionName: string);
public
{ IsrvImpresiones methods }
function AnadirMarcaImpresion(const NombreTabla: String; const IdsTabla: String): Boolean;
end;
implementation
{$R *.dfm}
uses
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, uDAInterfaces,
uROClasses;
procedure Create_srvImpresiones(out anInstance : IUnknown);
begin
anInstance := TsrvImpresiones.Create(NIL);
end;
{ srvImpresiones }
procedure TsrvImpresiones.DARemoteServiceBeforeAcquireConnection(
Sender: TDARemoteService; var ConnectionName: string);
begin
ConnectionName := dmServer.ConnectionName;
end;
procedure TsrvImpresiones.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
end;
function TsrvImpresiones.AnadirMarcaImpresion(const NombreTabla: String; const IdsTabla: String): Boolean;
var
ASchema : TDASchema;
AConn : IDAConnection;
dsCommand: IDASQLCommand;
ListaIds: TStringList;
i: Integer;
begin
Result := False;
ASchema := schImpresiones;
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
try
try
ListaIds := TStringList.Create;
ListaIds.CommaText := IdsTabla;
//Vamos generando todas y cada una de las marcas de impresion
for i := 0 to ListaIds.Count - 1 do
begin
dsCommand := ASchema.NewCommand(AConn, 'AnadirMarcaImpresion');
with dsCommand do
begin
ParamByName('TABLA').AsString := NombreTabla;
ParamByName('IDTABLA').AsString := ListaIds.Strings[i];
end;
dsCommand.Execute;
AConn.CommitTransaction;
end;
FreeAndNil(ListaIds);
Result := True;
except
RaiseError('Error al añadir una nueva marca de impresion ' + NombreTabla + ' en tablas');
AConn.RollbackTransaction;
end;
finally
dsCommand := NIL;
end;
end;
initialization
TROClassFactory.Create('srvImpresiones', Create_srvImpresiones, TsrvImpresiones_Invoker);
finalization
end.

13
Source/Servicios/FactuGES.RODL
View File

@ -627,24 +627,17 @@
</Interfaces>
</Service>
<Service Name="srvImpresiones" UID="{FB192E4F-F42F-4AA5-81A5-30C18953573E}" Ancestor="DARemoteService">
<Group Under="{E062357C-11F0-4929-9F72-7C62D89F7912}" />
<Interfaces>
<Interface Name="Default" UID="{7610E29E-D4FD-4253-A519-A3559D111663}">
<Operations>
<Operation Name="InsertarMarcaImpresion" UID="{DD25FF77-F1F7-4CD4-ADC0-0097FDABE47A}">
<Operation Name="AnadirMarcaImpresion" UID="{DD25FF77-F1F7-4CD4-ADC0-0097FDABE47A}">
<Parameters>
<Parameter Name="Result" DataType="Boolean" Flag="Result">
</Parameter>
<Parameter Name="NombreTabla" DataType="String" Flag="In" >
</Parameter>
<Parameter Name="IdTabla" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="IncrementarMarcaImpresion" UID="{309EB080-E7A6-4C23-919D-D9AD59BEAAAA}">
<Parameters>
<Parameter Name="Result" DataType="Boolean" Flag="Result">
</Parameter>
<Parameter Name="IdMarcaImpresion" DataType="Integer" Flag="In" >
<Parameter Name="IdsTabla" DataType="String" Flag="In" >
</Parameter>
</Parameters>
</Operation>

35
Source/Servicios/FactuGES_Intf.pas
View File

@ -704,8 +704,7 @@ type
{ IsrvImpresiones }
IsrvImpresiones = interface(IDARemoteService)
['{7610E29E-D4FD-4253-A519-A3559D111663}']
function InsertarMarcaImpresion(const NombreTabla: String; const IdTabla: Integer): Boolean;
function IncrementarMarcaImpresion(const IdMarcaImpresion: Integer): Boolean;
function AnadirMarcaImpresion(const NombreTabla: String; const IdsTabla: String): Boolean;
end;
{ CosrvImpresiones }
@ -718,8 +717,7 @@ type
protected
function __GetInterfaceName:string; override;
function InsertarMarcaImpresion(const NombreTabla: String; const IdTabla: Integer): Boolean;
function IncrementarMarcaImpresion(const IdMarcaImpresion: Integer): Boolean;
function AnadirMarcaImpresion(const NombreTabla: String; const IdsTabla: String): Boolean;
end;
implementation
@ -2387,7 +2385,7 @@ begin
result := 'srvImpresiones';
end;
function TsrvImpresiones_Proxy.InsertarMarcaImpresion(const NombreTabla: String; const IdTabla: Integer): Boolean;
function TsrvImpresiones_Proxy.AnadirMarcaImpresion(const NombreTabla: String; const IdsTabla: String): Boolean;
var
__request, __response : TMemoryStream;
begin
@ -2395,32 +2393,9 @@ begin
__response := TMemoryStream.Create;
try
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'InsertarMarcaImpresion');
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'AnadirMarcaImpresion');
__Message.Write('NombreTabla', TypeInfo(String), NombreTabla, []);
__Message.Write('IdTabla', TypeInfo(Integer), IdTabla, []);
__Message.Finalize;
__Message.WriteToStream(__request);
__TransportChannel.Dispatch(__request, __response);
__Message.ReadFromStream(__response);
__Message.Read('Result', TypeInfo(Boolean), result, []);
finally
__request.Free;
__response.Free;
end
end;
function TsrvImpresiones_Proxy.IncrementarMarcaImpresion(const IdMarcaImpresion: Integer): Boolean;
var
__request, __response : TMemoryStream;
begin
__request := TMemoryStream.Create;
__response := TMemoryStream.Create;
try
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'IncrementarMarcaImpresion');
__Message.Write('IdMarcaImpresion', TypeInfo(Integer), IdMarcaImpresion, []);
__Message.Write('IdsTabla', TypeInfo(String), IdsTabla, []);
__Message.Finalize;
__Message.WriteToStream(__request);

34
Source/Servicios/FactuGES_Invk.pas
View File

@ -231,8 +231,7 @@ type
private
protected
published
procedure Invoke_InsertarMarcaImpresion(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_IncrementarMarcaImpresion(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_AnadirMarcaImpresion(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
implementation
@ -1389,39 +1388,20 @@ end;
{ TsrvImpresiones_Invoker }
procedure TsrvImpresiones_Invoker.Invoke_InsertarMarcaImpresion(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function InsertarMarcaImpresion(const NombreTabla: String; const IdTabla: Integer): Boolean; }
procedure TsrvImpresiones_Invoker.Invoke_AnadirMarcaImpresion(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function AnadirMarcaImpresion(const NombreTabla: String; const IdsTabla: String): Boolean; }
var
NombreTabla: String;
IdTabla: Integer;
IdsTabla: String;
lResult: Boolean;
begin
try
__Message.Read('NombreTabla', TypeInfo(String), NombreTabla, []);
__Message.Read('IdTabla', TypeInfo(Integer), IdTabla, []);
__Message.Read('IdsTabla', TypeInfo(String), IdsTabla, []);
lResult := (__Instance as IsrvImpresiones).InsertarMarcaImpresion(NombreTabla, IdTabla);
lResult := (__Instance as IsrvImpresiones).AnadirMarcaImpresion(NombreTabla, IdsTabla);
__Message.Initialize(__Transport, 'FactuGES', 'srvImpresiones', 'InsertarMarcaImpresionResponse');
__Message.Write('Result', TypeInfo(Boolean), lResult, []);
__Message.Finalize;
finally
end;
end;
procedure TsrvImpresiones_Invoker.Invoke_IncrementarMarcaImpresion(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function IncrementarMarcaImpresion(const IdMarcaImpresion: Integer): Boolean; }
var
IdMarcaImpresion: Integer;
lResult: Boolean;
begin
try
__Message.Read('IdMarcaImpresion', TypeInfo(Integer), IdMarcaImpresion, []);
lResult := (__Instance as IsrvImpresiones).IncrementarMarcaImpresion(IdMarcaImpresion);
__Message.Initialize(__Transport, 'FactuGES', 'srvImpresiones', 'IncrementarMarcaImpresionResponse');
__Message.Initialize(__Transport, 'FactuGES', 'srvImpresiones', 'AnadirMarcaImpresionResponse');
__Message.Write('Result', TypeInfo(Boolean), lResult, []);
__Message.Finalize;

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

11
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>
@ -175,10 +175,11 @@
<VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.0.3.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
<VersionInfoKeys Name="CompileDate">jueves, 26 de junio de 2008 11:49</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">jueves, 26 de junio de 2008 11:49</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]

8
Source/Servidor/FactuGES_Server.dpr
View File

@ -86,8 +86,6 @@ uses
uConexionOSC in 'Configuracion\uConexionOSC.pas' {frConexionOSC: TFrame},
uTiendaWebUtils in 'Utiles\uTiendaWebUtils.pas',
uBizOscOrderServer in '..\Modulos\Tienda web\Model\uBizOscOrderServer.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
srvHistoricoMovimientos_Impl in '..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas' {srvHistoricoMovimientos: TDARemoteService},
@ -133,7 +131,11 @@ uses
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
uCheckPrevious in 'Utiles\uCheckPrevious.pas',
srvImpresiones_Impl in '..\Modulos\Impresion\Servidor\srvImpresiones_Impl.pas' {srvImpresiones: TDARemoteService};
srvImpresiones_Impl in '..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas' {srvImpresiones: TDARemoteService},
schImpresionesClient_Intf in '..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas',
schImpresionesServer_Intf in '..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

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"

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "3.0.3.1\0"
VALUE "ProductName", "FactuGES Server\0"
VALUE "ProductVersion", "3.0.3.1\0"
VALUE "CompileDate", "miércoles, 09 de julio de 2008 13:53\0"
VALUE "CompileDate", "jueves, 10 de julio de 2008 17:32\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.