Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@124 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Browse Source
This commit is contained in:
roberto 2007-11-17 18:28:52 +00:00
parent f3c2e1cc39
commit cfde383927
11 changed files with 494 additions and 531 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
View File

@ -205,7 +205,7 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datInteger
DataType = datSmallInt
DisplayLabel = #194#191'Con R.E.?'
DictionaryEntry = 'FacturasProveedor_RECARGO_EQUIVALENCIA'
end
@ -235,13 +235,13 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'FacturasProveedor'
IndexDefs = <>
Left = 208
Top = 112
Left = 216
Top = 96
end
object ds_FacturasProveedor: TDADataSource
DataSet = tbl_FacturasProveedor.Dataset
DataTable = tbl_FacturasProveedor
Left = 208
Left = 216
Top = 48
end
object tbl_FacturasProveedor_Detalles: TDAMemDataTable
@ -303,7 +303,7 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
end
item
Name = 'VISIBLE'
DataType = datInteger
DataType = datSmallInt
DisplayLabel = #194#191'Visible?'
DictionaryEntry = 'FacturasProveedor_Detalles_VISIBLE'
end
@ -319,7 +319,7 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
end
item
Name = 'IMPORTE_PORTE'
DataType = datFloat
DataType = datCurrency
DictionaryEntry = 'FacturasProveedor_Detalles_IMPORTE_PORTE'
end
item
@ -345,13 +345,13 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'FacturasProveedor_Detalles'
IndexDefs = <>
Left = 400
Top = 112
Left = 392
Top = 88
end
object ds_FacturasProveedor_Detalles: TDADataSource
DataSet = tbl_FacturasProveedor_Detalles.Dataset
DataTable = tbl_FacturasProveedor_Detalles
Left = 400
Left = 392
Top = 40
end
end

16
Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
View File

@ -10,7 +10,6 @@
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="Controller\FacturasProveedor_controller.dproj" />
<Projects Include="Data\FacturasProveedor_data.dproj" />
<Projects Include="Model\FacturasProveedor_model.dproj" />
@ -122,23 +121,14 @@
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_view">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_view:Clean">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;FacturasCliente_view" />
<CallTarget Targets="Base;GUIBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

80
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
View File

@ -3,15 +3,15 @@ unit schFacturasProveedorClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
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 = '{56BD23E4-C4B1-4330-BA93-6ABE078D7890}';
RID_FacturasProveedor = '{C5251FED-8060-492E-BE27-0374DB7C03BF}';
RID_FacturasProveedor_Detalles = '{430708DE-0382-4AD6-9973-D44B84BCFB13}';
RID_DarReferencia = '{2D20E4FE-0D36-4FAD-97D5-B2DB2E68DFDC}';
RID_FacturasProveedor = '{633FE4C4-C35E-42BE-B796-5AED0E1A22BE}';
RID_FacturasProveedor_Detalles = '{E6326236-9200-46E8-95A0-A2F8FF9CC4E2}';
{ Data table names }
nme_DarReferencia = 'DarReferencia';
@ -125,7 +125,7 @@ const
type
{ IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable)
['{60AE026D-F31D-4387-9EDC-FC7A49B19194}']
['{9968E89F-9FA7-4C1B-87F0-185E647FA3EF}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
@ -139,7 +139,7 @@ type
end;
{ TDarReferenciaDataTableRules }
TDarReferenciaDataTableRules = class(TIntfObjectDADataTableRules, IDarReferencia)
TDarReferenciaDataTableRules = class(TDADataTableRules, IDarReferencia)
private
protected
{ Property getters and setters }
@ -160,7 +160,7 @@ type
{ IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{A5C77209-2C1B-4526-8C24-54CCFB5A6311}']
['{4DA09039-4EBF-40D5-85F7-8CC58CB881A7}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -269,8 +269,8 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetID_FORMA_PAGOIsNull: Boolean;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
function GetRECARGO_EQUIVALENCIAValue: Integer;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
function GetRECARGO_EQUIVALENCIAValue: SmallInt;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
function GetRECARGO_EQUIVALENCIAIsNull: Boolean;
procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
function GetID_TIPO_IVAValue: Integer;
@ -342,7 +342,7 @@ type
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
@ -353,7 +353,7 @@ type
end;
{ TFacturasProveedorDataTableRules }
TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor)
TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor)
private
f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject);
@ -466,8 +466,8 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
function GetRECARGO_EQUIVALENCIAValue: Integer; virtual;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual;
function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
function GetID_TIPO_IVAValue: Integer; virtual;
@ -538,7 +538,7 @@ type
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
@ -555,7 +555,7 @@ type
{ IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{8C3B5CD4-29A7-4243-AD27-E53D419F0D26}']
['{653B610A-A413-48D5-97C4-A6BFE55F378A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -589,8 +589,8 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
function GetIMPORTE_TOTALIsNull: Boolean;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
function GetVISIBLEValue: Integer;
procedure SetVISIBLEValue(const aValue: Integer);
function GetVISIBLEValue: SmallInt;
procedure SetVISIBLEValue(const aValue: SmallInt);
function GetVISIBLEIsNull: Boolean;
procedure SetVISIBLEIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer;
@ -601,8 +601,8 @@ type
procedure SetDESCUENTOValue(const aValue: Float);
function GetDESCUENTOIsNull: Boolean;
procedure SetDESCUENTOIsNull(const aValue: Boolean);
function GetIMPORTE_PORTEValue: Float;
procedure SetIMPORTE_PORTEValue(const aValue: Float);
function GetIMPORTE_PORTEValue: Currency;
procedure SetIMPORTE_PORTEValue(const aValue: Currency);
function GetIMPORTE_PORTEIsNull: Boolean;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
@ -632,13 +632,13 @@ type
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
@ -647,7 +647,7 @@ type
end;
{ TFacturasProveedor_DetallesDataTableRules }
TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles)
TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles)
private
protected
{ Property getters and setters }
@ -683,8 +683,8 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: Integer; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetVISIBLEValue: SmallInt; virtual;
procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
function GetVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
@ -695,8 +695,8 @@ type
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_PORTEValue: Float; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Float); virtual;
function GetIMPORTE_PORTEValue: Currency; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
@ -725,13 +725,13 @@ type
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
@ -1366,14 +1366,14 @@ begin
DataTable.Fields[idx_FacturasProveedorID_FORMA_PAGO].AsVariant := Null;
end;
function TFacturasProveedorDataTableRules.GetRECARGO_EQUIVALENCIAValue: Integer;
function TFacturasProveedorDataTableRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
begin
result := DataTable.Fields[idx_FacturasProveedorRECARGO_EQUIVALENCIA].AsInteger;
result := DataTable.Fields[idx_FacturasProveedorRECARGO_EQUIVALENCIA].AsSmallInt;
end;
procedure TFacturasProveedorDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
procedure TFacturasProveedorDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_FacturasProveedorRECARGO_EQUIVALENCIA].AsInteger := aValue;
DataTable.Fields[idx_FacturasProveedorRECARGO_EQUIVALENCIA].AsSmallInt := aValue;
end;
function TFacturasProveedorDataTableRules.GetRECARGO_EQUIVALENCIAIsNull: boolean;
@ -1630,14 +1630,14 @@ begin
DataTable.Fields[idx_FacturasProveedor_DetallesIMPORTE_TOTAL].AsVariant := Null;
end;
function TFacturasProveedor_DetallesDataTableRules.GetVISIBLEValue: Integer;
function TFacturasProveedor_DetallesDataTableRules.GetVISIBLEValue: SmallInt;
begin
result := DataTable.Fields[idx_FacturasProveedor_DetallesVISIBLE].AsInteger;
result := DataTable.Fields[idx_FacturasProveedor_DetallesVISIBLE].AsSmallInt;
end;
procedure TFacturasProveedor_DetallesDataTableRules.SetVISIBLEValue(const aValue: Integer);
procedure TFacturasProveedor_DetallesDataTableRules.SetVISIBLEValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_FacturasProveedor_DetallesVISIBLE].AsInteger := aValue;
DataTable.Fields[idx_FacturasProveedor_DetallesVISIBLE].AsSmallInt := aValue;
end;
function TFacturasProveedor_DetallesDataTableRules.GetVISIBLEIsNull: boolean;
@ -1693,14 +1693,14 @@ begin
DataTable.Fields[idx_FacturasProveedor_DetallesDESCUENTO].AsVariant := Null;
end;
function TFacturasProveedor_DetallesDataTableRules.GetIMPORTE_PORTEValue: Float;
function TFacturasProveedor_DetallesDataTableRules.GetIMPORTE_PORTEValue: Currency;
begin
result := DataTable.Fields[idx_FacturasProveedor_DetallesIMPORTE_PORTE].AsFloat;
result := DataTable.Fields[idx_FacturasProveedor_DetallesIMPORTE_PORTE].AsCurrency;
end;
procedure TFacturasProveedor_DetallesDataTableRules.SetIMPORTE_PORTEValue(const aValue: Float);
procedure TFacturasProveedor_DetallesDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency);
begin
DataTable.Fields[idx_FacturasProveedor_DetallesIMPORTE_PORTE].AsFloat := aValue;
DataTable.Fields[idx_FacturasProveedor_DetallesIMPORTE_PORTE].AsCurrency := aValue;
end;
function TFacturasProveedor_DetallesDataTableRules.GetIMPORTE_PORTEIsNull: boolean;

72
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_DarReferenciaDelta = '{63FA0002-1E1F-4066-B76C-877FD4BE86CD}';
RID_FacturasProveedorDelta = '{5C96E61B-5758-411C-B93D-8AC0229A8C40}';
RID_FacturasProveedor_DetallesDelta = '{514C8A59-C317-4816-AF2D-8168382A6DA9}';
RID_DarReferenciaDelta = '{A7A756C6-B082-46D7-825F-60D9E4F96393}';
RID_FacturasProveedorDelta = '{1EEB760A-51A9-4DF6-A426-1CC7959C83AC}';
RID_FacturasProveedor_DetallesDelta = '{6F45C011-FBB1-4ED0-9638-F24FBCF9ECC9}';
type
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
['{63FA0002-1E1F-4066-B76C-877FD4BE86CD}']
['{A7A756C6-B082-46D7-825F-60D9E4F96393}']
{ Property getters and setters }
function GetOldVALORValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor)
['{5C96E61B-5758-411C-B93D-8AC0229A8C40}']
['{1EEB760A-51A9-4DF6-A426-1CC7959C83AC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -79,7 +79,7 @@ type
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldRECARGO_EQUIVALENCIAValue : Integer;
function GetOldRECARGO_EQUIVALENCIAValue : SmallInt;
function GetOldID_TIPO_IVAValue : Integer;
function GetOldIMPORTE_NETOValue : Currency;
function GetOldIMPORTE_PORTEValue : Currency;
@ -112,7 +112,7 @@ type
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
@ -286,11 +286,11 @@ type
function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
function GetRECARGO_EQUIVALENCIAValue: Integer; virtual;
function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
function GetOldRECARGO_EQUIVALENCIAValue: Integer; virtual;
function GetOldRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
function GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
function GetID_TIPO_IVAValue: Integer; virtual;
function GetID_TIPO_IVAIsNull: Boolean; virtual;
@ -420,9 +420,9 @@ type
property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
property RECARGO_EQUIVALENCIA : Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIA : SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
property OldRECARGO_EQUIVALENCIAIsNull : Boolean read GetOldRECARGO_EQUIVALENCIAIsNull;
property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
@ -445,7 +445,7 @@ type
{ IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{514C8A59-C317-4816-AF2D-8168382A6DA9}']
['{6F45C011-FBB1-4ED0-9638-F24FBCF9ECC9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -455,10 +455,10 @@ type
function GetOldCANTIDADValue : Integer;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : Integer;
function GetOldVISIBLEValue : SmallInt;
function GetOldID_ARTICULOValue : Integer;
function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_PORTEValue : Float;
function GetOldIMPORTE_PORTEValue : Currency;
function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String;
@ -471,10 +471,10 @@ type
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Float read GetOldIMPORTE_PORTEValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
end;
@ -532,11 +532,11 @@ type
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: Integer; virtual;
function GetVISIBLEValue: SmallInt; virtual;
function GetVISIBLEIsNull: Boolean; virtual;
function GetOldVISIBLEValue: Integer; virtual;
function GetOldVISIBLEValue: SmallInt; virtual;
function GetOldVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
@ -550,11 +550,11 @@ type
function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_PORTEValue: Float; virtual;
function GetIMPORTE_PORTEValue: Currency; virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual;
function GetOldIMPORTE_PORTEValue: Float; virtual;
function GetOldIMPORTE_PORTEValue: Currency; virtual;
function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Float); virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
@ -602,9 +602,9 @@ type
property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLE : SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
@ -614,9 +614,9 @@ type
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
property IMPORTE_PORTE : Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property OldIMPORTE_PORTE : Float read GetOldIMPORTE_PORTEValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
@ -1537,7 +1537,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_FORMA_PAGO] := Null;
end;
function TFacturasProveedorBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: Integer;
function TFacturasProveedorBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRECARGO_EQUIVALENCIA];
end;
@ -1547,7 +1547,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRECARGO_EQUIVALENCIA]);
end;
function TFacturasProveedorBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: Integer;
function TFacturasProveedorBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorRECARGO_EQUIVALENCIA];
end;
@ -1557,7 +1557,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorRECARGO_EQUIVALENCIA]);
end;
procedure TFacturasProveedorBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
procedure TFacturasProveedorBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRECARGO_EQUIVALENCIA] := aValue;
end;
@ -1921,7 +1921,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesIMPORTE_TOTAL] := Null;
end;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetVISIBLEValue: Integer;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetVISIBLEValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesVISIBLE];
end;
@ -1931,7 +1931,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesVISIBLE]);
end;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEValue: Integer;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesVISIBLE];
end;
@ -1941,7 +1941,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesVISIBLE]);
end;
procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer);
procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesVISIBLE] := aValue;
end;
@ -2014,7 +2014,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesDESCUENTO] := Null;
end;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetIMPORTE_PORTEValue: Float;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesIMPORTE_PORTE];
end;
@ -2024,7 +2024,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesIMPORTE_PORTE]);
end;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Float;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesIMPORTE_PORTE];
end;
@ -2034,7 +2034,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesIMPORTE_PORTE]);
end;
procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Float);
procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesIMPORTE_PORTE] := aValue;
end;

2
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
View File

@ -292,7 +292,7 @@ begin
PROVINCIA := FProveedor.PROVINCIA;
POBLACION := FProveedor.POBLACION;
ID_FORMA_PAGO := FProveedor.ID_FORMA_PAGO;
// ID_TIPO_IVA := FProveedor.ID_TIPO_IVA; //REPASAR DA UN PETE QUE TE CAGAS
ID_TIPO_IVA := FProveedor.ID_TIPO_IVA;
// RECARGO_EQUIVALENCIA := FProveedor.RECARGO_EQUIVALENCIA;
Post;

465
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

@ -337,7 +337,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datInteger
DataType = datSmallInt
DictionaryEntry = 'FacturasProveedor_RECARGO_EQUIVALENCIA'
end
item
@ -485,7 +485,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Name = 'VISIBLE'
DataType = datInteger
DataType = datSmallInt
DictionaryEntry = 'FacturasProveedor_Detalles_VISIBLE'
end
item
@ -500,7 +500,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Name = 'IMPORTE_PORTE'
DataType = datFloat
DataType = datCurrency
DictionaryEntry = 'FacturasProveedor_Detalles_IMPORTE_PORTE'
end
item
@ -544,175 +544,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end>
Name = 'ModificarReferencia'
end
item
Params = <
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'FACTURAS_PROVEEDOR'
SQL = 'DELETE '#10' FROM'#10' FACTURAS_PROVEEDOR'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_FacturasProveedor'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_FACTURA_PROV_DETALLES_ID'
Value = ''
end
item
Name = 'CANTIDAD'
Value = ''
end
item
Name = 'POSICION'
Value = ''
end
item
Name = 'ID_FACTURA'
Value = ''
end
item
Name = 'TIPO_DETALLE'
Value = ''
end
item
Name = 'CONCEPTO'
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
Value = ''
end
item
Name = 'VISIBLE'
Value = ''
end
item
Name = 'ID_ARTICULO'
Value = ''
end
item
Name = 'DESCUENTO'
Value = ''
end
item
Name = 'IMPORTE_PORTE'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'FACTURAS_PROVEEDOR_DETALLES'
SQL =
'INSERT'#10' INTO FACTURAS_PROVEEDOR_DETALLES'#10' (ID, CANTIDAD, POS' +
'ICION, ID_FACTURA, TIPO_DETALLE, CONCEPTO,'#10' IMPORTE_UNIDAD, ' +
'IMPORTE_TOTAL, VISIBLE,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_POR' +
'TE)'#10' VALUES'#10' (:ID, :CANTIDAD, :POSICION, :ID_FACTURA, :TIPO_' +
'DETALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIB' +
'LE,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_FacturasProveedor_Detalles'
end
item
Params = <
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'FACTURAS_PROVEEDOR_DETALLES'
SQL =
'DELETE '#10' FROM'#10' FACTURAS_PROVEEDOR_DETALLES'#10' WHERE'#10' (ID =' +
' :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_FacturasProveedor_Detalles'
end
item
Params = <
item
Name = 'CANTIDAD'
Value = ''
end
item
Name = 'POSICION'
Value = ''
end
item
Name = 'ID_FACTURA'
Value = ''
end
item
Name = 'TIPO_DETALLE'
Value = ''
end
item
Name = 'CONCEPTO'
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
Value = ''
end
item
Name = 'VISIBLE'
Value = ''
end
item
Name = 'ID_ARTICULO'
Value = ''
end
item
Name = 'DESCUENTO'
Value = ''
end
item
Name = 'IMPORTE_PORTE'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'FACTURAS_PROVEEDOR_DETALLES'
SQL =
'UPDATE FACTURAS_PROVEEDOR_DETALLES'#10' SET '#10' CANTIDAD = :CANTID' +
'AD, '#10' POSICION = :POSICION, '#10' ID_FACTURA = :ID_FACTURA, '#10' ' +
' TIPO_DETALLE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' ' +
' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE' +
'_TOTAL,'#10' VISIBLE = :VISIBLE,'#10' ID_ARTICULO = :ID_ARTICULO,'#10 +
' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' ' +
' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_FacturasProveedor_Detalles'
end
item
Params = <
item
@ -836,30 +667,48 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'FACTURAS_PROVEEDOR'
SQL =
'INSERT INTO FACTURAS_PROVEEDOR ('#10' ID,'#10' ID_EMPRESA,'#10' REF' +
'ERENCIA,'#10' REFERENCIA_PROVEEDOR,'#10' FECHA_FACTURA,'#10' BASE_I' +
'MPONIBLE,'#10' DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMP' +
'ORTE_IVA,'#10' RE,'#10' IMPORTE_RE,'#10' IMPORTE_TOTAL,'#10' OBSERVA' +
'CIONES,'#10' ID_PROVEEDOR,'#10' NIF_CIF,'#10' NOMBRE,'#10' CALLE,'#10' ' +
' POBLACION,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' ' +
' FECHA_MODIFICACION,'#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECAR' +
'GO_EQUIVALENCIA,'#10' ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_' +
'PORTE)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' ' +
' :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA,'#10' :BASE_IMPONIBLE,' +
#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_' +
'IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVAC' +
'IONES,'#10' :ID_PROVEEDOR,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :CALLE,' +
#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_' +
'ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,' +
#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,' +
#10' :IMPORTE_PORTE);'
'INSERT'#10' INTO FACTURAS_PROVEEDOR'#10' (ID, ID_EMPRESA, REFERENCIA' +
', REFERENCIA_PROVEEDOR,'#10' FECHA_FACTURA, BASE_IMPONIBLE, DESC' +
'UENTO,'#10' IMPORTE_DESCUENTO, IVA, IMPORTE_IVA, RE, IMPORTE_RE,' +
' '#10' IMPORTE_TOTAL, OBSERVACIONES, ID_PROVEEDOR, NIF_CIF, '#10' ' +
' NOMBRE, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, '#10' FECH' +
'A_ALTA, FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, '#10' RECARG' +
'O_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE)'#10' VALU' +
'ES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' ' +
' :FECHA_FACTURA, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DE' +
'SCUENTO, :IVA, :IMPORTE_IVA, :RE, :IMPORTE_RE, '#10' :IMPORTE_TO' +
'TAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF, '#10' :NOMBRE, :CA' +
'LLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' :FECHA_ALTA, ' +
':FECHA_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10' :RECARGO_EQ' +
'UIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_PORTE)'#10' ' +
' '#10' '#10#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_FacturasProveedor'
end
item
Params = <
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'FACTURAS_PROVEEDOR'
SQL =
'DELETE '#10' FROM'#10' FACTURAS_PROVEEDOR'#10' WHERE'#10' (ID = :OLD_ID)' +
#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_FacturasProveedor'
end
item
Params = <
item
@ -985,28 +834,190 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'FACTURAS_PROVEEDOR'
SQL =
'UPDATE FACTURAS_PROVEEDOR'#10' SET'#10' ID = :ID,'#10' ID_EMPRESA = :' +
'ID_EMPRESA,'#10' REFERENCIA = :REFERENCIA,'#10' REFERENCIA_PROVEED' +
'OR = :REFERENCIA_PROVEEDOR,'#10' FECHA_FACTURA = :FECHA_FACTURA,'#10 +
' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO' +
','#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' ' +
' IMPORTE_IVA = :IMPORTE_IVA,'#10' RE = :RE,'#10' IMPORTE_RE = :IM' +
'PORTE_RE,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES ' +
'= :OBSERVACIONES,'#10' ID_PROVEEDOR = :ID_PROVEEDOR,'#10' NIF_CIF ' +
'= :NIF_CIF,'#10' NOMBRE = :NOMBRE,'#10' CALLE = :CALLE,'#10' POBLAC' +
'ION = :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POSTAL ' +
'= :CODIGO_POSTAL,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFI' +
'CACION = :FECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ID_FOR' +
'MA_PAGO = :ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQ' +
'UIVALENCIA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :' +
'IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID =' +
' :OLD_ID);'#10
'UPDATE FACTURAS_PROVEEDOR'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA = ' +
':ID_EMPRESA, '#10' REFERENCIA = :REFERENCIA, '#10' REFERENCIA_PROV' +
'EEDOR = :REFERENCIA_PROVEEDOR,'#10' FECHA_FACTURA = :FECHA_FACTUR' +
'A, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCU' +
'ENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' IVA = :I' +
'VA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' RE = :RE, '#10' IMPORTE' +
'_RE = :IMPORTE_RE, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' OBS' +
'ERVACIONES = :OBSERVACIONES, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, ' +
#10' NIF_CIF = :NIF_CIF, '#10' NOMBRE = :NOMBRE, '#10' CALLE = :CA' +
'LLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10 +
' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' FECHA_ALTA = :FECHA_ALT' +
'A, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO =' +
' :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' RECARGO_EQU' +
'IVALENCIA = :RECARGO_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_I' +
'VA, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMP' +
'ORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_FacturasProveedor'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_FACTURA_PROV_DETALLES_ID'
Value = ''
end
item
Name = 'ID_FACTURA'
Value = ''
end
item
Name = 'POSICION'
Value = ''
end
item
Name = 'TIPO_DETALLE'
Value = ''
end
item
Name = 'CONCEPTO'
Value = ''
end
item
Name = 'CANTIDAD'
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
Value = ''
end
item
Name = 'VISIBLE'
Value = ''
end
item
Name = 'ID_ARTICULO'
Value = ''
end
item
Name = 'DESCUENTO'
Value = ''
end
item
Name = 'IMPORTE_PORTE'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'FACTURAS_PROVEEDOR_DETALLES'
SQL =
'INSERT'#10' INTO FACTURAS_PROVEEDOR_DETALLES'#10' (ID, ID_FACTURA, P' +
'OSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, ' +
'IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, '#10' DESCUENTO, IMPORTE_PO' +
'RTE)'#10' VALUES'#10' (:ID, :ID_FACTURA, :POSICION, :TIPO_DETALLE, :' +
'CONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISI' +
'BLE, :ID_ARTICULO, '#10' :DESCUENTO, :IMPORTE_PORTE)'#10' '#10' ' +
#10#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_FacturasProveedor_Detalles'
end
item
Params = <
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'FACTURAS_PROVEEDOR_DETALLES'
SQL =
'DELETE '#10' FROM'#10' FACTURAS_PROVEEDOR_DETALLES'#10' WHERE'#10' (ID =' +
' :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_FacturasProveedor_Detalles'
end
item
Params = <
item
Name = 'ID'
Value = ''
end
item
Name = 'ID_FACTURA'
Value = ''
end
item
Name = 'POSICION'
Value = ''
end
item
Name = 'TIPO_DETALLE'
Value = ''
end
item
Name = 'CONCEPTO'
Value = ''
end
item
Name = 'CANTIDAD'
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
Value = ''
end
item
Name = 'VISIBLE'
Value = ''
end
item
Name = 'ID_ARTICULO'
Value = ''
end
item
Name = 'DESCUENTO'
Value = ''
end
item
Name = 'IMPORTE_PORTE'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'FACTURAS_PROVEEDOR_DETALLES'
SQL =
'UPDATE FACTURAS_PROVEEDOR_DETALLES'#10' SET '#10' ID = :ID,'#10' ID_F' +
'ACTURA = :ID_FACTURA, '#10' POSICION = :POSICION, '#10' TIPO_DETAL' +
'LE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :' +
'CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' IMPORTE_TO' +
'TAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO ' +
'= :ID_ARTICULO, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE ' +
'= :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_FacturasProveedor_Detalles'
end>
RelationShips = <
item
@ -1242,7 +1253,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Name = 'FacturasProveedor_Detalles_VISIBLE'
DataType = datInteger
DataType = datSmallInt
DisplayLabel = #191'Visible?'
end
item
@ -1303,7 +1314,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Name = 'FacturasProveedor_RECARGO_EQUIVALENCIA'
DataType = datInteger
DataType = datSmallInt
DisplayLabel = #191'Con R.E.?'
end
item
@ -1315,15 +1326,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datInteger
DisplayLabel = 'ID_TIPO_IVA'
end
item
Name = 'FacturasProveedor_Refresh_ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'FacturasProveedor_Refresh_ID_TIPO_IVA'
DataType = datInteger
DisplayLabel = 'ID_TIPO_IVA'
end
item
Name = 'FacturasProveedor_Detalles_DESCUENTO'
DataType = datFloat
@ -1336,7 +1338,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Name = 'FacturasProveedor_Detalles_IMPORTE_PORTE'
DataType = datFloat
DataType = datCurrency
DisplayLabel = 'IMPORTE_PORTE'
end
item
@ -1351,33 +1353,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Size = 255
DisplayLabel = 'REFERENCIA_PROVEEDOR'
end
item
Name = 'FacturasProveedor_Detalles_Refresh_DESCUENTO'
DataType = datFloat
DisplayLabel = 'DESCUENTO'
end
item
Name = 'FacturasProveedor_Detalles_Refresh_ID_ARTICULO'
DataType = datInteger
DisplayLabel = 'ID_ARTICULO'
end
item
Name = 'FacturasProveedor_Detalles_Refresh_IMPORTE_PORTE'
DataType = datFloat
DisplayLabel = 'IMPORTE_PORTE'
end
item
Name = 'FacturasProveedor_Detalles_Refresh_REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'REFERENCIA'
end
item
Name = 'FacturasProveedor_Detalles_Refresh_REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'REFERENCIA_PROVEEDOR'
end
item
Name = 'FacturasProveedor_TIPO'
DataType = datString
@ -1398,7 +1373,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor
InsertCommandName = 'Insert_FacturasProveedor'
DeleteCommandName = 'Delete_FacturasProveedor'
UpdateCommandName = 'Update_FacturasProveedor'
RefreshDatasetName = 'FacturasProveedor_Refresh'
ReferencedDataset = 'FacturasProveedor'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
@ -1410,7 +1384,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor
InsertCommandName = 'Insert_FacturasProveedor_Detalles'
DeleteCommandName = 'Delete_FacturasProveedor_Detalles'
UpdateCommandName = 'Update_FacturasProveedor_Detalles'
RefreshDatasetName = 'FacturasProveedor_Detalles_Refresh'
ReferencedDataset = 'FacturasProveedor_Detalles'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly

10
Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj
View File

@ -44,6 +44,8 @@
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
@ -52,10 +54,10 @@
<DelphiCompile Include="FacturasProveedor_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\FacturasProveedor_controller.dcp" />
<DCCReference Include="..\FacturasProveedor_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Articulos_view.dcp" />
<DCCReference Include="..\..\..\Servidor\FacturasProveedor_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\FacturasProveedor_model.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="uEditorElegirArticulosFacturaProveedor.pas">
<Form>fEditorElegirArticulosFacturaProveedor</Form>
<DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass>

BIN
Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.res
View File

Binary file not shown.

4
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -122,10 +122,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Left = 234
ExplicitLeft = 234
end
inherited eReferenciaProveedor: TcxDBTextEdit
ExplicitWidth = 158
Width = 158
end
inherited frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
Left = 394
Width = 350

358
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,182 +1,184 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">domingo, 30 de septiembre de 2007 20:47</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">domingo, 30 de septiembre de 2007 20:47</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]

BIN
Source/Servidor/FactuGES_Server.rsb
View File

Binary file not shown.