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

Se adaptan las facturas de cliente para que se pueda añadir un descuento general a parte del de la linea de detalle

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@324 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2009-10-06 15:35:16 +00:00
parent 36497dc456
commit a5db1dab14
22 changed files with 795 additions and 389 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Database/VISTAS.SQL
View File

@ -928,6 +928,7 @@ CREATE VIEW V_FACTURAS_CLIENTE(
BASE_IMPONIBLE, BASE_IMPONIBLE,
DESCUENTO, DESCUENTO,
IMPORTE_DESCUENTO, IMPORTE_DESCUENTO,
DESCRIPCION_DESCUENTO,
IVA, IVA,
IMPORTE_IVA, IMPORTE_IVA,
RE, RE,
@ -964,6 +965,7 @@ SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.BASE_IMPONIBLE, FACTURAS_CLIENTE.BASE_IMPONIBLE,
FACTURAS_CLIENTE.DESCUENTO, FACTURAS_CLIENTE.DESCUENTO,
FACTURAS_CLIENTE.IMPORTE_DESCUENTO, FACTURAS_CLIENTE.IMPORTE_DESCUENTO,
FACTURAS_CLIENTE.DESCRIPCION_DESCUENTO,
FACTURAS_CLIENTE.IVA, FACTURAS_CLIENTE.IVA,
FACTURAS_CLIENTE.IMPORTE_IVA, FACTURAS_CLIENTE.IMPORTE_IVA,
FACTURAS_CLIENTE.RE, FACTURAS_CLIENTE.RE,

1
Database/factuges.sql
View File

@ -471,6 +471,7 @@ CREATE TABLE FACTURAS_CLIENTE (
BASE_IMPONIBLE TIPO_IMPORTE, BASE_IMPONIBLE TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE, DESCUENTO TIPO_PORCENTAJE,
IMPORTE_DESCUENTO TIPO_IMPORTE, IMPORTE_DESCUENTO TIPO_IMPORTE,
DESCRIPCION_DESCUENTO VARCHAR(255) COLLATE ES_ES,
IVA TIPO_PORCENTAJE, IVA TIPO_PORCENTAJE,
IMPORTE_IVA TIPO_IMPORTE, IMPORTE_IVA TIPO_IMPORTE,
RE TIPO_PORCENTAJE, RE TIPO_PORCENTAJE,

3
Source/Base/GUIBase/GUIBase.bdsproj
View File

@ -170,7 +170,8 @@
<VersionInfoKeys Name="ProductName"></VersionInfoKeys> <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys> <Excluded_Packages> </VersionInfoKeys>
<Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_IDE_D10.bpl">RemObjects Data Abstract - IDE Package</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_IDE_D10.bpl">RemObjects Data Abstract - IDE Package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\SMImportD2006.bpl">SMImport suite: data importing into dataset. Scalabium/Mike Shkolnik, 2000-2005</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\SMImportD2006.bpl">SMImport suite: data importing into dataset. Scalabium/Mike Shkolnik, 2000-2005</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\SMExportD2006.bpl">SMExport suite: data export from dataset. Written by Mike Shkolnik/Scalabium, 1998-2004.</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\SMExportD2006.bpl">SMExport suite: data export from dataset. Written by Mike Shkolnik/Scalabium, 1998-2004.</Excluded_Packages>

BIN
Source/Base/GUIBase/GUIBase.res
View File

Binary file not shown.

6
Source/Cliente/FactuGES.bdsproj
View File

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

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

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

@ -145,6 +145,18 @@ object DataModuleFacturasCliente: TDataModuleFacturasCliente
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'DESCRIPCION_DESCUENTO'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat DataType = datFloat

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

@ -9,12 +9,12 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_DarReferencia = '{A621C326-E4EC-467B-ADBC-3405D36E60EE}'; RID_DarReferencia = '{01226CA6-8C1F-4C81-99BD-69D484975D2B}';
RID_ListaAnosFacturas = '{4BE1F671-5EAA-439D-AFB9-0AD7989ADF34}'; RID_ListaAnosFacturas = '{4DC99931-20F9-4066-B3DD-F8C51BCFE9B6}';
RID_FacturasCliente = '{428E1B81-D8A3-4C5E-B021-5E4BF418E6B7}'; RID_FacturasCliente = '{2F18EAB0-8E58-430A-AC9C-0809354C7E27}';
RID_FacturasCliente_Detalles = '{8FB6D423-E42F-4A10-8C35-736C711FFA32}'; RID_FacturasCliente_Detalles = '{4C59D788-DAE0-4359-A266-0851D8711E67}';
RID_FacturasCliente_Detalles_Refresh = '{3618523F-C786-4185-A189-80867AA103C0}'; RID_FacturasCliente_Detalles_Refresh = '{58FC00E6-4F0C-4F06-89D2-48426F664F4A}';
RID_FacturasCliente_Refresh = '{3DCA7D8A-2508-4E3A-BE11-B6E06C9EA8B6}'; RID_FacturasCliente_Refresh = '{06C784AE-4E81-44D7-A1A6-22F30138B2D2}';
{ Data table names } { Data table names }
nme_DarReferencia = 'DarReferencia'; nme_DarReferencia = 'DarReferencia';
@ -46,6 +46,7 @@ const
fld_FacturasClienteBASE_IMPONIBLE = 'BASE_IMPONIBLE'; fld_FacturasClienteBASE_IMPONIBLE = 'BASE_IMPONIBLE';
fld_FacturasClienteDESCUENTO = 'DESCUENTO'; fld_FacturasClienteDESCUENTO = 'DESCUENTO';
fld_FacturasClienteIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO'; fld_FacturasClienteIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
fld_FacturasClienteDESCRIPCION_DESCUENTO = 'DESCRIPCION_DESCUENTO';
fld_FacturasClienteIVA = 'IVA'; fld_FacturasClienteIVA = 'IVA';
fld_FacturasClienteIMPORTE_IVA = 'IMPORTE_IVA'; fld_FacturasClienteIMPORTE_IVA = 'IMPORTE_IVA';
fld_FacturasClienteRE = 'RE'; fld_FacturasClienteRE = 'RE';
@ -84,33 +85,34 @@ const
idx_FacturasClienteBASE_IMPONIBLE = 6; idx_FacturasClienteBASE_IMPONIBLE = 6;
idx_FacturasClienteDESCUENTO = 7; idx_FacturasClienteDESCUENTO = 7;
idx_FacturasClienteIMPORTE_DESCUENTO = 8; idx_FacturasClienteIMPORTE_DESCUENTO = 8;
idx_FacturasClienteIVA = 9; idx_FacturasClienteDESCRIPCION_DESCUENTO = 9;
idx_FacturasClienteIMPORTE_IVA = 10; idx_FacturasClienteIVA = 10;
idx_FacturasClienteRE = 11; idx_FacturasClienteIMPORTE_IVA = 11;
idx_FacturasClienteIMPORTE_RE = 12; idx_FacturasClienteRE = 12;
idx_FacturasClienteIMPORTE_TOTAL = 13; idx_FacturasClienteIMPORTE_RE = 13;
idx_FacturasClienteOBSERVACIONES = 14; idx_FacturasClienteIMPORTE_TOTAL = 14;
idx_FacturasClienteID_CLIENTE = 15; idx_FacturasClienteOBSERVACIONES = 15;
idx_FacturasClienteNIF_CIF = 16; idx_FacturasClienteID_CLIENTE = 16;
idx_FacturasClienteNOMBRE = 17; idx_FacturasClienteNIF_CIF = 17;
idx_FacturasClienteCALLE = 18; idx_FacturasClienteNOMBRE = 18;
idx_FacturasClientePOBLACION = 19; idx_FacturasClienteCALLE = 19;
idx_FacturasClientePROVINCIA = 20; idx_FacturasClientePOBLACION = 20;
idx_FacturasClienteCODIGO_POSTAL = 21; idx_FacturasClientePROVINCIA = 21;
idx_FacturasClienteFECHA_ALTA = 22; idx_FacturasClienteCODIGO_POSTAL = 22;
idx_FacturasClienteFECHA_MODIFICACION = 23; idx_FacturasClienteFECHA_ALTA = 23;
idx_FacturasClienteUSUARIO = 24; idx_FacturasClienteFECHA_MODIFICACION = 24;
idx_FacturasClienteID_FORMA_PAGO = 25; idx_FacturasClienteUSUARIO = 25;
idx_FacturasClienteRECARGO_EQUIVALENCIA = 26; idx_FacturasClienteID_FORMA_PAGO = 26;
idx_FacturasClienteID_TIPO_IVA = 27; idx_FacturasClienteRECARGO_EQUIVALENCIA = 27;
idx_FacturasClienteIMPORTE_NETO = 28; idx_FacturasClienteID_TIPO_IVA = 28;
idx_FacturasClienteIMPORTE_PORTE = 29; idx_FacturasClienteIMPORTE_NETO = 29;
idx_FacturasClienteID_COMISION_LIQUIDADA = 30; idx_FacturasClienteIMPORTE_PORTE = 30;
idx_FacturasClienteREFERENCIA_COMISION = 31; idx_FacturasClienteID_COMISION_LIQUIDADA = 31;
idx_FacturasClienteID_AGENTE = 32; idx_FacturasClienteREFERENCIA_COMISION = 32;
idx_FacturasClienteNUM_COPIAS = 33; idx_FacturasClienteID_AGENTE = 33;
idx_FacturasClienteNUM_CORREOS = 34; idx_FacturasClienteNUM_COPIAS = 34;
idx_FacturasClienteFECHA_VENCIMIENTO = 35; idx_FacturasClienteNUM_CORREOS = 35;
idx_FacturasClienteFECHA_VENCIMIENTO = 36;
{ FacturasCliente_Detalles fields } { FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID'; fld_FacturasCliente_DetallesID = 'ID';
@ -186,6 +188,7 @@ const
fld_FacturasCliente_RefreshBASE_IMPONIBLE = 'BASE_IMPONIBLE'; fld_FacturasCliente_RefreshBASE_IMPONIBLE = 'BASE_IMPONIBLE';
fld_FacturasCliente_RefreshDESCUENTO = 'DESCUENTO'; fld_FacturasCliente_RefreshDESCUENTO = 'DESCUENTO';
fld_FacturasCliente_RefreshIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO'; fld_FacturasCliente_RefreshIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
fld_FacturasCliente_RefreshDESCRIPCION_DESCUENTO = 'DESCRIPCION_DESCUENTO';
fld_FacturasCliente_RefreshIVA = 'IVA'; fld_FacturasCliente_RefreshIVA = 'IVA';
fld_FacturasCliente_RefreshIMPORTE_IVA = 'IMPORTE_IVA'; fld_FacturasCliente_RefreshIMPORTE_IVA = 'IMPORTE_IVA';
fld_FacturasCliente_RefreshRE = 'RE'; fld_FacturasCliente_RefreshRE = 'RE';
@ -224,38 +227,39 @@ const
idx_FacturasCliente_RefreshBASE_IMPONIBLE = 6; idx_FacturasCliente_RefreshBASE_IMPONIBLE = 6;
idx_FacturasCliente_RefreshDESCUENTO = 7; idx_FacturasCliente_RefreshDESCUENTO = 7;
idx_FacturasCliente_RefreshIMPORTE_DESCUENTO = 8; idx_FacturasCliente_RefreshIMPORTE_DESCUENTO = 8;
idx_FacturasCliente_RefreshIVA = 9; idx_FacturasCliente_RefreshDESCRIPCION_DESCUENTO = 9;
idx_FacturasCliente_RefreshIMPORTE_IVA = 10; idx_FacturasCliente_RefreshIVA = 10;
idx_FacturasCliente_RefreshRE = 11; idx_FacturasCliente_RefreshIMPORTE_IVA = 11;
idx_FacturasCliente_RefreshIMPORTE_RE = 12; idx_FacturasCliente_RefreshRE = 12;
idx_FacturasCliente_RefreshIMPORTE_TOTAL = 13; idx_FacturasCliente_RefreshIMPORTE_RE = 13;
idx_FacturasCliente_RefreshOBSERVACIONES = 14; idx_FacturasCliente_RefreshIMPORTE_TOTAL = 14;
idx_FacturasCliente_RefreshID_CLIENTE = 15; idx_FacturasCliente_RefreshOBSERVACIONES = 15;
idx_FacturasCliente_RefreshNIF_CIF = 16; idx_FacturasCliente_RefreshID_CLIENTE = 16;
idx_FacturasCliente_RefreshNOMBRE = 17; idx_FacturasCliente_RefreshNIF_CIF = 17;
idx_FacturasCliente_RefreshCALLE = 18; idx_FacturasCliente_RefreshNOMBRE = 18;
idx_FacturasCliente_RefreshPOBLACION = 19; idx_FacturasCliente_RefreshCALLE = 19;
idx_FacturasCliente_RefreshPROVINCIA = 20; idx_FacturasCliente_RefreshPOBLACION = 20;
idx_FacturasCliente_RefreshCODIGO_POSTAL = 21; idx_FacturasCliente_RefreshPROVINCIA = 21;
idx_FacturasCliente_RefreshFECHA_ALTA = 22; idx_FacturasCliente_RefreshCODIGO_POSTAL = 22;
idx_FacturasCliente_RefreshFECHA_MODIFICACION = 23; idx_FacturasCliente_RefreshFECHA_ALTA = 23;
idx_FacturasCliente_RefreshUSUARIO = 24; idx_FacturasCliente_RefreshFECHA_MODIFICACION = 24;
idx_FacturasCliente_RefreshID_FORMA_PAGO = 25; idx_FacturasCliente_RefreshUSUARIO = 25;
idx_FacturasCliente_RefreshRECARGO_EQUIVALENCIA = 26; idx_FacturasCliente_RefreshID_FORMA_PAGO = 26;
idx_FacturasCliente_RefreshID_TIPO_IVA = 27; idx_FacturasCliente_RefreshRECARGO_EQUIVALENCIA = 27;
idx_FacturasCliente_RefreshIMPORTE_NETO = 28; idx_FacturasCliente_RefreshID_TIPO_IVA = 28;
idx_FacturasCliente_RefreshIMPORTE_PORTE = 29; idx_FacturasCliente_RefreshIMPORTE_NETO = 29;
idx_FacturasCliente_RefreshID_COMISION_LIQUIDADA = 30; idx_FacturasCliente_RefreshIMPORTE_PORTE = 30;
idx_FacturasCliente_RefreshREFERENCIA_COMISION = 31; idx_FacturasCliente_RefreshID_COMISION_LIQUIDADA = 31;
idx_FacturasCliente_RefreshID_AGENTE = 32; idx_FacturasCliente_RefreshREFERENCIA_COMISION = 32;
idx_FacturasCliente_RefreshNUM_COPIAS = 33; idx_FacturasCliente_RefreshID_AGENTE = 33;
idx_FacturasCliente_RefreshNUM_CORREOS = 34; idx_FacturasCliente_RefreshNUM_COPIAS = 34;
idx_FacturasCliente_RefreshFECHA_VENCIMIENTO = 35; idx_FacturasCliente_RefreshNUM_CORREOS = 35;
idx_FacturasCliente_RefreshFECHA_VENCIMIENTO = 36;
type type
{ IDarReferencia } { IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable) IDarReferencia = interface(IDAStronglyTypedDataTable)
['{DC6A031B-D148-478D-9BCA-101202CCC948}'] ['{1036E778-513F-4719-9E73-C3CC3090D3B9}']
{ Property getters and setters } { Property getters and setters }
function GetVALORValue: String; function GetVALORValue: String;
procedure SetVALORValue(const aValue: String); procedure SetVALORValue(const aValue: String);
@ -284,7 +288,7 @@ type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{FF89EDF2-3698-477F-B6DE-83A3FE03F68E}'] ['{BBAE1C42-C8C4-47A9-955E-41D90F595250}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -313,7 +317,7 @@ type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{AACD7C2D-E96C-430C-A07F-12AF77A42630}'] ['{9D3EEAA7-9311-44FF-BA47-3AE7A4B205B7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -333,6 +337,8 @@ type
procedure SetDESCUENTOValue(const aValue: Float); procedure SetDESCUENTOValue(const aValue: Float);
function GetIMPORTE_DESCUENTOValue: Currency; function GetIMPORTE_DESCUENTOValue: Currency;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency);
function GetDESCRIPCION_DESCUENTOValue: String;
procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String);
function GetIVAValue: Float; function GetIVAValue: Float;
procedure SetIVAValue(const aValue: Float); procedure SetIVAValue(const aValue: Float);
function GetIMPORTE_IVAValue: Currency; function GetIMPORTE_IVAValue: Currency;
@ -399,6 +405,7 @@ type
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property DESCRIPCION_DESCUENTO: String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
property IVA: Float read GetIVAValue write SetIVAValue; property IVA: Float read GetIVAValue write SetIVAValue;
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property RE: Float read GetREValue write SetREValue; property RE: Float read GetREValue write SetREValue;
@ -451,6 +458,8 @@ type
procedure SetDESCUENTOValue(const aValue: Float); virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetIMPORTE_DESCUENTOValue: Currency; virtual; function GetIMPORTE_DESCUENTOValue: Currency; virtual;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
function GetDESCRIPCION_DESCUENTOValue: String; virtual;
procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); virtual;
function GetIVAValue: Float; virtual; function GetIVAValue: Float; virtual;
procedure SetIVAValue(const aValue: Float); virtual; procedure SetIVAValue(const aValue: Float); virtual;
function GetIMPORTE_IVAValue: Currency; virtual; function GetIMPORTE_IVAValue: Currency; virtual;
@ -516,6 +525,7 @@ type
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property DESCRIPCION_DESCUENTO: String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
property IVA: Float read GetIVAValue write SetIVAValue; property IVA: Float read GetIVAValue write SetIVAValue;
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property RE: Float read GetREValue write SetREValue; property RE: Float read GetREValue write SetREValue;
@ -552,7 +562,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{B6A306E7-6C2F-46BC-A313-C6F68ED5C577}'] ['{39D48144-0270-459D-BF4B-989E70E2C2F7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -659,7 +669,7 @@ type
{ IFacturasCliente_Detalles_Refresh } { IFacturasCliente_Detalles_Refresh }
IFacturasCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
['{6C0D8072-B0E3-4774-A560-8336A4DFBF60}'] ['{9604E930-78C1-445E-BB78-C444EC2B5FFF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -766,7 +776,7 @@ type
{ IFacturasCliente_Refresh } { IFacturasCliente_Refresh }
IFacturasCliente_Refresh = interface(IDAStronglyTypedDataTable) IFacturasCliente_Refresh = interface(IDAStronglyTypedDataTable)
['{C8BA494B-931B-4C73-8E06-1F3846B17070}'] ['{7233BE3E-E6CB-4FA8-9947-FEBACA722450}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -786,6 +796,8 @@ type
procedure SetDESCUENTOValue(const aValue: Float); procedure SetDESCUENTOValue(const aValue: Float);
function GetIMPORTE_DESCUENTOValue: Currency; function GetIMPORTE_DESCUENTOValue: Currency;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency);
function GetDESCRIPCION_DESCUENTOValue: String;
procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String);
function GetIVAValue: Float; function GetIVAValue: Float;
procedure SetIVAValue(const aValue: Float); procedure SetIVAValue(const aValue: Float);
function GetIMPORTE_IVAValue: Currency; function GetIMPORTE_IVAValue: Currency;
@ -852,6 +864,7 @@ type
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property DESCRIPCION_DESCUENTO: String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
property IVA: Float read GetIVAValue write SetIVAValue; property IVA: Float read GetIVAValue write SetIVAValue;
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property RE: Float read GetREValue write SetREValue; property RE: Float read GetREValue write SetREValue;
@ -904,6 +917,8 @@ type
procedure SetDESCUENTOValue(const aValue: Float); virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetIMPORTE_DESCUENTOValue: Currency; virtual; function GetIMPORTE_DESCUENTOValue: Currency; virtual;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
function GetDESCRIPCION_DESCUENTOValue: String; virtual;
procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); virtual;
function GetIVAValue: Float; virtual; function GetIVAValue: Float; virtual;
procedure SetIVAValue(const aValue: Float); virtual; procedure SetIVAValue(const aValue: Float); virtual;
function GetIMPORTE_IVAValue: Currency; virtual; function GetIMPORTE_IVAValue: Currency; virtual;
@ -969,6 +984,7 @@ type
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property DESCRIPCION_DESCUENTO: String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
property IVA: Float read GetIVAValue write SetIVAValue; property IVA: Float read GetIVAValue write SetIVAValue;
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property RE: Float read GetREValue write SetREValue; property RE: Float read GetREValue write SetREValue;
@ -1152,6 +1168,16 @@ begin
DataTable.Fields[idx_FacturasClienteIMPORTE_DESCUENTO].AsCurrency := aValue; DataTable.Fields[idx_FacturasClienteIMPORTE_DESCUENTO].AsCurrency := aValue;
end; end;
function TFacturasClienteDataTableRules.GetDESCRIPCION_DESCUENTOValue: String;
begin
result := DataTable.Fields[idx_FacturasClienteDESCRIPCION_DESCUENTO].AsString;
end;
procedure TFacturasClienteDataTableRules.SetDESCRIPCION_DESCUENTOValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClienteDESCRIPCION_DESCUENTO].AsString := aValue;
end;
function TFacturasClienteDataTableRules.GetIVAValue: Float; function TFacturasClienteDataTableRules.GetIVAValue: Float;
begin begin
result := DataTable.Fields[idx_FacturasClienteIVA].AsFloat; result := DataTable.Fields[idx_FacturasClienteIVA].AsFloat;
@ -1829,6 +1855,16 @@ begin
DataTable.Fields[idx_FacturasCliente_RefreshIMPORTE_DESCUENTO].AsCurrency := aValue; DataTable.Fields[idx_FacturasCliente_RefreshIMPORTE_DESCUENTO].AsCurrency := aValue;
end; end;
function TFacturasCliente_RefreshDataTableRules.GetDESCRIPCION_DESCUENTOValue: String;
begin
result := DataTable.Fields[idx_FacturasCliente_RefreshDESCRIPCION_DESCUENTO].AsString;
end;
procedure TFacturasCliente_RefreshDataTableRules.SetDESCRIPCION_DESCUENTOValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasCliente_RefreshDESCRIPCION_DESCUENTO].AsString := aValue;
end;
function TFacturasCliente_RefreshDataTableRules.GetIVAValue: Float; function TFacturasCliente_RefreshDataTableRules.GetIVAValue: Float;
begin begin
result := DataTable.Fields[idx_FacturasCliente_RefreshIVA].AsFloat; result := DataTable.Fields[idx_FacturasCliente_RefreshIVA].AsFloat;

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

@ -9,17 +9,17 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_DarReferenciaDelta = '{DCB4C31D-2825-4AED-A0D5-085D371E73FF}'; RID_DarReferenciaDelta = '{254C7AC1-F65E-444E-9B90-6EB7785F4626}';
RID_ListaAnosFacturasDelta = '{BE0BAF1D-C955-44C4-872C-6DD555772691}'; RID_ListaAnosFacturasDelta = '{B39BA7C5-8427-4866-A863-2A939994969D}';
RID_FacturasClienteDelta = '{91BB9203-1A6A-4FC1-AD02-41A181969867}'; RID_FacturasClienteDelta = '{7EEA294E-8B7C-4997-AF74-F6B3BD16472C}';
RID_FacturasCliente_DetallesDelta = '{7DCB2097-1E44-42CC-BA9E-9CF8645A18E3}'; RID_FacturasCliente_DetallesDelta = '{1DDF9134-3164-4E38-950B-63305DE9398B}';
RID_FacturasCliente_Detalles_RefreshDelta = '{4C1BB5AD-9C14-47AC-8CB9-B298E9CBC9E4}'; RID_FacturasCliente_Detalles_RefreshDelta = '{98C8D6ED-1DE6-4AD5-886C-13A4B9D9556F}';
RID_FacturasCliente_RefreshDelta = '{94A51D8A-EC34-4716-8531-4CC62F89C1CD}'; RID_FacturasCliente_RefreshDelta = '{07965967-879D-4386-9C9A-DD8C2950A6FC}';
type type
{ IDarReferenciaDelta } { IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia) IDarReferenciaDelta = interface(IDarReferencia)
['{DCB4C31D-2825-4AED-A0D5-085D371E73FF}'] ['{254C7AC1-F65E-444E-9B90-6EB7785F4626}']
{ Property getters and setters } { Property getters and setters }
function GetOldVALORValue : String; function GetOldVALORValue : String;
@ -48,7 +48,7 @@ type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{BE0BAF1D-C955-44C4-872C-6DD555772691}'] ['{B39BA7C5-8427-4866-A863-2A939994969D}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -77,7 +77,7 @@ type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{91BB9203-1A6A-4FC1-AD02-41A181969867}'] ['{7EEA294E-8B7C-4997-AF74-F6B3BD16472C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -88,6 +88,7 @@ type
function GetOldBASE_IMPONIBLEValue : Currency; function GetOldBASE_IMPONIBLEValue : Currency;
function GetOldDESCUENTOValue : Float; function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_DESCUENTOValue : Currency; function GetOldIMPORTE_DESCUENTOValue : Currency;
function GetOldDESCRIPCION_DESCUENTOValue : String;
function GetOldIVAValue : Float; function GetOldIVAValue : Float;
function GetOldIMPORTE_IVAValue : Currency; function GetOldIMPORTE_IVAValue : Currency;
function GetOldREValue : Float; function GetOldREValue : Float;
@ -126,6 +127,7 @@ type
property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
property OldDESCRIPCION_DESCUENTO : String read GetOldDESCRIPCION_DESCUENTOValue;
property OldIVA : Float read GetOldIVAValue; property OldIVA : Float read GetOldIVAValue;
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property OldRE : Float read GetOldREValue; property OldRE : Float read GetOldREValue;
@ -187,6 +189,9 @@ type
function GetIMPORTE_DESCUENTOValue: Currency; virtual; function GetIMPORTE_DESCUENTOValue: Currency; virtual;
function GetOldIMPORTE_DESCUENTOValue: Currency; virtual; function GetOldIMPORTE_DESCUENTOValue: Currency; virtual;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
function GetDESCRIPCION_DESCUENTOValue: String; virtual;
function GetOldDESCRIPCION_DESCUENTOValue: String; virtual;
procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); virtual;
function GetIVAValue: Float; virtual; function GetIVAValue: Float; virtual;
function GetOldIVAValue: Float; virtual; function GetOldIVAValue: Float; virtual;
procedure SetIVAValue(const aValue: Float); virtual; procedure SetIVAValue(const aValue: Float); virtual;
@ -288,6 +293,8 @@ type
property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
property DESCRIPCION_DESCUENTO : String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
property OldDESCRIPCION_DESCUENTO : String read GetOldDESCRIPCION_DESCUENTOValue;
property IVA : Float read GetIVAValue write SetIVAValue; property IVA : Float read GetIVAValue write SetIVAValue;
property OldIVA : Float read GetOldIVAValue; property OldIVA : Float read GetOldIVAValue;
property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
@ -351,7 +358,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{7DCB2097-1E44-42CC-BA9E-9CF8645A18E3}'] ['{1DDF9134-3164-4E38-950B-63305DE9398B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -471,7 +478,7 @@ type
{ IFacturasCliente_Detalles_RefreshDelta } { IFacturasCliente_Detalles_RefreshDelta }
IFacturasCliente_Detalles_RefreshDelta = interface(IFacturasCliente_Detalles_Refresh) IFacturasCliente_Detalles_RefreshDelta = interface(IFacturasCliente_Detalles_Refresh)
['{4C1BB5AD-9C14-47AC-8CB9-B298E9CBC9E4}'] ['{98C8D6ED-1DE6-4AD5-886C-13A4B9D9556F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -591,7 +598,7 @@ type
{ IFacturasCliente_RefreshDelta } { IFacturasCliente_RefreshDelta }
IFacturasCliente_RefreshDelta = interface(IFacturasCliente_Refresh) IFacturasCliente_RefreshDelta = interface(IFacturasCliente_Refresh)
['{94A51D8A-EC34-4716-8531-4CC62F89C1CD}'] ['{07965967-879D-4386-9C9A-DD8C2950A6FC}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -602,6 +609,7 @@ type
function GetOldBASE_IMPONIBLEValue : Currency; function GetOldBASE_IMPONIBLEValue : Currency;
function GetOldDESCUENTOValue : Float; function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_DESCUENTOValue : Currency; function GetOldIMPORTE_DESCUENTOValue : Currency;
function GetOldDESCRIPCION_DESCUENTOValue : String;
function GetOldIVAValue : Float; function GetOldIVAValue : Float;
function GetOldIMPORTE_IVAValue : Currency; function GetOldIMPORTE_IVAValue : Currency;
function GetOldREValue : Float; function GetOldREValue : Float;
@ -640,6 +648,7 @@ type
property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
property OldDESCRIPCION_DESCUENTO : String read GetOldDESCRIPCION_DESCUENTOValue;
property OldIVA : Float read GetOldIVAValue; property OldIVA : Float read GetOldIVAValue;
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property OldRE : Float read GetOldREValue; property OldRE : Float read GetOldREValue;
@ -701,6 +710,9 @@ type
function GetIMPORTE_DESCUENTOValue: Currency; virtual; function GetIMPORTE_DESCUENTOValue: Currency; virtual;
function GetOldIMPORTE_DESCUENTOValue: Currency; virtual; function GetOldIMPORTE_DESCUENTOValue: Currency; virtual;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
function GetDESCRIPCION_DESCUENTOValue: String; virtual;
function GetOldDESCRIPCION_DESCUENTOValue: String; virtual;
procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); virtual;
function GetIVAValue: Float; virtual; function GetIVAValue: Float; virtual;
function GetOldIVAValue: Float; virtual; function GetOldIVAValue: Float; virtual;
procedure SetIVAValue(const aValue: Float); virtual; procedure SetIVAValue(const aValue: Float); virtual;
@ -802,6 +814,8 @@ type
property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
property DESCRIPCION_DESCUENTO : String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
property OldDESCRIPCION_DESCUENTO : String read GetOldDESCRIPCION_DESCUENTOValue;
property IVA : Float read GetIVAValue write SetIVAValue; property IVA : Float read GetIVAValue write SetIVAValue;
property OldIVA : Float read GetOldIVAValue; property OldIVA : Float read GetOldIVAValue;
property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
@ -1068,6 +1082,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_DESCUENTO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_DESCUENTO] := aValue;
end; end;
function TFacturasClienteBusinessProcessorRules.GetDESCRIPCION_DESCUENTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCRIPCION_DESCUENTO];
end;
function TFacturasClienteBusinessProcessorRules.GetOldDESCRIPCION_DESCUENTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDESCRIPCION_DESCUENTO];
end;
procedure TFacturasClienteBusinessProcessorRules.SetDESCRIPCION_DESCUENTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCRIPCION_DESCUENTO] := aValue;
end;
function TFacturasClienteBusinessProcessorRules.GetIVAValue: Float; function TFacturasClienteBusinessProcessorRules.GetIVAValue: Float;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIVA]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIVA];
@ -2066,6 +2095,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshIMPORTE_DESCUENTO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshIMPORTE_DESCUENTO] := aValue;
end; end;
function TFacturasCliente_RefreshBusinessProcessorRules.GetDESCRIPCION_DESCUENTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshDESCRIPCION_DESCUENTO];
end;
function TFacturasCliente_RefreshBusinessProcessorRules.GetOldDESCRIPCION_DESCUENTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_RefreshDESCRIPCION_DESCUENTO];
end;
procedure TFacturasCliente_RefreshBusinessProcessorRules.SetDESCRIPCION_DESCUENTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshDESCRIPCION_DESCUENTO] := aValue;
end;
function TFacturasCliente_RefreshBusinessProcessorRules.GetIVAValue: Float; function TFacturasCliente_RefreshBusinessProcessorRules.GetIVAValue: Float;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshIVA]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshIVA];

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

@ -104,27 +104,28 @@ object RptFacturasCliente: TRptFacturasCliente
'SELECT'#10' V_FACTURAS_CLIENTE.ID, V_FACTURAS_CLIENTE.REFERENCIA,' + 'SELECT'#10' V_FACTURAS_CLIENTE.ID, V_FACTURAS_CLIENTE.REFERENCIA,' +
' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10' V_FACTURAS_CLIENTE.BASE_I' + ' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10' V_FACTURAS_CLIENTE.BASE_I' +
'MPONIBLE, V_FACTURAS_CLIENTE.DESCUENTO, V_FACTURAS_CLIENTE.IMPOR' + 'MPONIBLE, V_FACTURAS_CLIENTE.DESCUENTO, V_FACTURAS_CLIENTE.IMPOR' +
'TE_DESCUENTO,'#10' V_FACTURAS_CLIENTE.IVA, V_FACTURAS_CLIENTE.IMP' + 'TE_DESCUENTO,'#10' V_FACTURAS_CLIENTE.DESCRIPCION_DESCUENTO,'#10' ' +
'ORTE_IVA,'#10' V_FACTURAS_CLIENTE.RE, V_FACTURAS_CLIENTE.IMPORTE_' + 'V_FACTURAS_CLIENTE.IVA, V_FACTURAS_CLIENTE.IMPORTE_IVA,'#10' V_FA' +
'RE,'#10' V_FACTURAS_CLIENTE.IMPORTE_TOTAL,'#10' V_FACTURAS_CLIENTE' + 'CTURAS_CLIENTE.RE, V_FACTURAS_CLIENTE.IMPORTE_RE,'#10' V_FACTURAS' +
'.OBSERVACIONES, FORMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURA' + '_CLIENTE.IMPORTE_TOTAL,'#10' V_FACTURAS_CLIENTE.OBSERVACIONES, FO' +
'S_CLIENTE.ID_CLIENTE,'#10' V_FACTURAS_CLIENTE.NIF_CIF, V_FACTURAS' + 'RMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURAS_CLIENTE.ID_CLIEN' +
'_CLIENTE.NOMBRE, V_FACTURAS_CLIENTE.CALLE,'#10' V_FACTURAS_CLIENT' + 'TE,'#10' V_FACTURAS_CLIENTE.NIF_CIF, V_FACTURAS_CLIENTE.NOMBRE, V' +
'E.PROVINCIA, V_FACTURAS_CLIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENT' + '_FACTURAS_CLIENTE.CALLE,'#10' V_FACTURAS_CLIENTE.PROVINCIA, V_FAC' +
'E.POBLACION,'#10' CONTACTOS_DATOS_BANCO.TITULAR,'#10' CONTACTOS_DA' + 'TURAS_CLIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,'#10' C' +
'TOS_BANCO.ENTIDAD,'#10' CONTACTOS_DATOS_BANCO.SUCURSAL,'#10' CONTA' + 'ONTACTOS_DATOS_BANCO.TITULAR,'#10' CONTACTOS_DATOS_BANCO.ENTIDAD,' +
'CTOS_DATOS_BANCO.DC,'#10' CONTACTOS_DATOS_BANCO.CUENTA,'#10' ID_EM' + #10' CONTACTOS_DATOS_BANCO.SUCURSAL,'#10' CONTACTOS_DATOS_BANCO.D' +
'PRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIA' + 'C,'#10' CONTACTOS_DATOS_BANCO.CUENTA,'#10' ID_EMPRESA, EMPRESAS.NI' +
'L,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as PO' + 'F_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CA' +
'BLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EM' + 'LLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' ' +
'PRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELE' + ' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POST' +
'FONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EM' + 'AL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.F' +
'PRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIP' + 'AX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB,' +
'O'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID' + ' EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10'FROM V_FACTURAS_' +
'_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_C' + 'CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN' +
'LIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTAC' + ' FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PA' +
'TOS_DATOS_BANCO.ID_CONTACTO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHE' + 'GO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID' +
'RE V_FACTURAS_CLIENTE.ID = :ID' '_CONTACTO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_FACTURAS_CLIE' +
'NTE.ID = :ID'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -282,6 +283,10 @@ object RptFacturasCliente: TRptFacturasCliente
item item
DatasetField = 'CUENTA' DatasetField = 'CUENTA'
TableField = 'CUENTA' TableField = 'CUENTA'
end
item
DatasetField = 'DESCRIPCION_DESCUENTO'
TableField = 'DESCRIPCION_DESCUENTO'
end> end>
end> end>
Name = 'InformeFacturasCliente' Name = 'InformeFacturasCliente'
@ -347,6 +352,18 @@ object RptFacturasCliente: TRptFacturasCliente
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'DESCRIPCION_DESCUENTO'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat DataType = datFloat
@ -1253,7 +1270,7 @@ object RptFacturasCliente: TRptFacturasCliente
PrintOptions.Printer = 'Default' PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.LastChange = 39701.539507187500000000 ReportOptions.LastChange = 40092.714477893520000000
ReportOptions.VersionBuild = '1' ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12' ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13' ReportOptions.VersionMinor = '13'
@ -1325,6 +1342,7 @@ object RptFacturasCliente: TRptFacturasCliente
'var' 'var'
' Cadena: String;' ' Cadena: String;'
'begin' 'begin'
' { '
' DatosEmpresa.Lines.Clear;' ' DatosEmpresa.Lines.Clear;'
' DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">);' ' DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">);'
' DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">);' ' DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">);'
@ -1348,6 +1366,7 @@ object RptFacturasCliente: TRptFacturasCliente
' Cadena := Cadena + '#39' - '#39' + <frxDBCabecera."PROVINCIA_EMPR' + ' Cadena := Cadena + '#39' - '#39' + <frxDBCabecera."PROVINCIA_EMPR' +
'ESA">;' 'ESA">;'
' DatosEmpresa.Lines.Add(Cadena);' ' DatosEmpresa.Lines.Add(Cadena);'
' } '
'end;' 'end;'
'' ''
'procedure Memo15OnBeforePrint(Sender: TfrxComponent);' 'procedure Memo15OnBeforePrint(Sender: TfrxComponent);'
@ -1359,18 +1378,6 @@ object RptFacturasCliente: TRptFacturasCliente
' Memo15.Lines.Add('#39'FACTURA'#39')' ' Memo15.Lines.Add('#39'FACTURA'#39')'
'end;' 'end;'
'' ''
'procedure Memo20OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (StrToFloat(<frxDBCabecera."RE">) = 0) then'
' begin'
' Memo20.Lines.Clear;'
' Memo28.Lines.Clear;'
' Memo21.Lines.Clear;'
' Memo29.Lines.Clear;'
' end;'
''
'end;'
''
'procedure Memo11OnBeforePrint(Sender: TfrxComponent);' 'procedure Memo11OnBeforePrint(Sender: TfrxComponent);'
'var' 'var'
' Cadena : String;' ' Cadena : String;'
@ -1402,9 +1409,40 @@ object RptFacturasCliente: TRptFacturasCliente
'procedure Picture1OnBeforePrint(Sender: TfrxComponent);' 'procedure Picture1OnBeforePrint(Sender: TfrxComponent);'
'begin' 'begin'
' if <ShowLogotipo> then' ' if <ShowLogotipo> then'
' Picture1.Visible := True' ' begin '
' Picture1.Visible := True; '
' Picture2.Visible := True; '
' Picture3.Visible := True; '
' Picture4.Visible := True; '
' Picture5.Visible := True; '
' Picture6.Visible := True; '
' Memo12.Visible := True;'
' Memo14.Visible := True; ' +
' '
' end'
' else' ' else'
' Picture1.Visible := False; ' ' begin '
' Picture1.Visible := False;'
' Picture2.Visible := False;'
' Picture3.Visible := False;'
' Picture4.Visible := False;'
' Picture5.Visible := False;'
' Picture6.Visible := False;'
' Memo12.Visible := False;'
' Memo14.Visible := False; ' +
' '
' end'
'end;'
''
'procedure Memo21OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (StrToFloat(<frxDBCabecera."RE">) = 0) then'
' begin'
' Memo21.Lines.Clear;'
' Memo29.Lines.Clear;'
' end;'
'end;' 'end;'
'' ''
'begin' 'begin'

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

@ -28,10 +28,10 @@ type
DADataVencimientos: TDADataSource; DADataVencimientos: TDADataSource;
tbl_Vencimientos: TDACDSDataTable; tbl_Vencimientos: TDACDSDataTable;
frxDBDataset1: TfrxDBDataset; frxDBDataset1: TfrxDBDataset;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
frxReport: TfrxReport; frxReport: TfrxReport;
frxPDFExport1: TfrxPDFExport; frxPDFExport1: TfrxPDFExport;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
procedure frxReportGetValue(const VarName: string; var Value: Variant); procedure frxReportGetValue(const VarName: string; var Value: Variant);
private private

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

@ -104,13 +104,14 @@ object srvFacturasCliente: TsrvFacturasCliente
TargetTable = 'V_FACTURAS_CLIENTE' TargetTable = 'V_FACTURAS_CLIENTE'
SQL = SQL =
'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, TIPO, FECHA_FACTURA, SIT' + 'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, TIPO, FECHA_FACTURA, SIT' +
'UACION, BASE_IMPONIBLE,'#10' DESCUENTO, IMPORTE_DESCUENTO, IVA, I' + 'UACION, BASE_IMPONIBLE,'#10' DESCUENTO, IMPORTE_DESCUENTO, DESCRI' +
'MPORTE_IVA, RE, IMPORTE_RE,'#10' IMPORTE_TOTAL, OBSERVACIONES, ID' + 'PCION_DESCUENTO, IVA, IMPORTE_IVA, RE, IMPORTE_RE,'#10' IMPORTE_T' +
'_CLIENTE, NIF_CIF, NOMBRE, CALLE,'#10' POBLACION, PROVINCIA, CODI' + 'OTAL, OBSERVACIONES, ID_CLIENTE, NIF_CIF, NOMBRE, CALLE,'#10' POB' +
'GO_POSTAL, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA' + 'LACION, PROVINCIA, CODIGO_POSTAL, FECHA_ALTA, FECHA_MODIFICACION' +
'_PAGO, RECARGO_EQUIVALENCIA, ID_TIPO_IVA,'#10' IMPORTE_NETO, IMPO' + ','#10' USUARIO, ID_FORMA_PAGO, RECARGO_EQUIVALENCIA, ID_TIPO_IVA,' +
'RTE_PORTE, ID_COMISION_LIQUIDADA, REFERENCIA_COMISION,'#10' ID_AG' + #10' IMPORTE_NETO, IMPORTE_PORTE, ID_COMISION_LIQUIDADA, REFEREN' +
'ENTE, NUM_COPIAS, NUM_CORREOS'#10' FROM'#10' V_FACTURAS_CLIENTE' 'CIA_COMISION,'#10' ID_AGENTE, NUM_COPIAS, NUM_CORREOS'#10' FROM'#10' ' +
'V_FACTURAS_CLIENTE'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -252,6 +253,10 @@ object srvFacturasCliente: TsrvFacturasCliente
item item
DatasetField = 'NUM_CORREOS' DatasetField = 'NUM_CORREOS'
TableField = 'NUM_CORREOS' TableField = 'NUM_CORREOS'
end
item
DatasetField = 'DESCRIPCION_DESCUENTO'
TableField = 'DESCRIPCION_DESCUENTO'
end> end>
end> end>
Name = 'FacturasCliente' Name = 'FacturasCliente'
@ -349,6 +354,18 @@ object srvFacturasCliente: TsrvFacturasCliente
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'DESCRIPCION_DESCUENTO'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat DataType = datFloat
@ -1133,14 +1150,14 @@ object srvFacturasCliente: TsrvFacturasCliente
TargetTable = 'V_FACTURAS_CLIENTE' TargetTable = 'V_FACTURAS_CLIENTE'
SQL = SQL =
'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, TIPO, FECHA_FACTURA, SIT' + 'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, TIPO, FECHA_FACTURA, SIT' +
'UACION, BASE_IMPONIBLE,'#10' DESCUENTO, IMPORTE_DESCUENTO, IVA, I' + 'UACION, BASE_IMPONIBLE,'#10' DESCUENTO, IMPORTE_DESCUENTO, DESCRI' +
'MPORTE_IVA, RE, '#10' IMPORTE_RE, IMPORTE_TOTAL, OBSERVACIONES, I' + 'PCION_DESCUENTO, IVA, IMPORTE_IVA, RE,'#10' IMPORTE_RE, IMPORTE_T' +
'D_CLIENTE, '#10' NIF_CIF, NOMBRE, CALLE, POBLACION, PROVINCIA, CO' + 'OTAL, OBSERVACIONES, ID_CLIENTE, '#10' NIF_CIF, NOMBRE, CALLE, PO' +
'DIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_FO' + 'BLACION, PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFI' +
'RMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, ' + 'CACION, USUARIO, ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TI' +
'IMPORTE_PORTE, ID_COMISION_LIQUIDADA,'#10' REFERENCIA_COMISION, I' + 'PO_IVA, IMPORTE_NETO, IMPORTE_PORTE, ID_COMISION_LIQUIDADA,'#10' ' +
'D_AGENTE, NUM_COPIAS, NUM_CORREOS'#10' FROM'#10' V_FACTURAS_CLIENTE'#10 + 'REFERENCIA_COMISION, ID_AGENTE, NUM_COPIAS, NUM_CORREOS'#10' FROM'#10' ' +
' WHERE ID = :ID' ' V_FACTURAS_CLIENTE'#10' WHERE ID = :ID'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -1282,6 +1299,10 @@ object srvFacturasCliente: TsrvFacturasCliente
item item
DatasetField = 'NUM_CORREOS' DatasetField = 'NUM_CORREOS'
TableField = 'NUM_CORREOS' TableField = 'NUM_CORREOS'
end
item
DatasetField = 'DESCRIPCION_DESCUENTO'
TableField = 'DESCRIPCION_DESCUENTO'
end> end>
end> end>
Name = 'FacturasCliente_Refresh' Name = 'FacturasCliente_Refresh'
@ -1379,6 +1400,18 @@ object srvFacturasCliente: TsrvFacturasCliente
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'DESCRIPCION_DESCUENTO'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat DataType = datFloat
@ -1999,6 +2032,14 @@ object srvFacturasCliente: TsrvFacturasCliente
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item
Name = 'DESCRIPCION_DESCUENTO'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat DataType = datFloat
@ -2160,20 +2201,21 @@ object srvFacturasCliente: TsrvFacturasCliente
SQL = SQL =
'INSERT INTO FACTURAS_CLIENTE ('#10' ID,'#10' ID_EMPRESA,'#10' REFER' + 'INSERT INTO FACTURAS_CLIENTE ('#10' ID,'#10' ID_EMPRESA,'#10' REFER' +
'ENCIA,'#10' FECHA_FACTURA,'#10' BASE_IMPONIBLE,'#10' DESCUENTO,'#10' ' + 'ENCIA,'#10' FECHA_FACTURA,'#10' BASE_IMPONIBLE,'#10' DESCUENTO,'#10' ' +
' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA,'#10' RE,'#10' IMPORT' + ' IMPORTE_DESCUENTO,'#10' DESCRIPCION_DESCUENTO,'#10' IVA,'#10' IMPO' +
'E_RE,'#10' IMPORTE_TOTAL,'#10' OBSERVACIONES,'#10' ID_CLIENTE,'#10' ' + 'RTE_IVA,'#10' RE,'#10' IMPORTE_RE,'#10' IMPORTE_TOTAL,'#10' OBSERVAC' +
'NIF_CIF,'#10' NOMBRE,'#10' CALLE,'#10' POBLACION,'#10' PROVINCIA,'#10' ' + 'IONES,'#10' ID_CLIENTE,'#10' NIF_CIF,'#10' NOMBRE,'#10' CALLE,'#10' P' +
' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USU' + 'OBLACION,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' ' +
'ARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_I' + 'FECHA_MODIFICACION,'#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_' +
'VA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE)'#10' VALUES ('#10' :ID,'#10' ' + 'EQUIVALENCIA,'#10' ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_POR' +
' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :BASE_IMP' + 'TE)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :F' +
'ONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :I' + 'ECHA_FACTURA,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_' +
'MPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :O' + 'DESCUENTO,'#10' :DESCRIPCION_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IV' +
'BSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :C' + 'A,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIO' +
'ALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :F' + 'NES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :CALLE,'#10' ' +
'ECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_' + ' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA' +
'PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_' + ','#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' ' +
'NETO,'#10' :IMPORTE_PORTE);' ' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' ' +
' :IMPORTE_PORTE);'
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -2224,6 +2266,14 @@ object srvFacturasCliente: TsrvFacturasCliente
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item
Name = 'DESCRIPCION_DESCUENTO'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat DataType = datFloat
@ -2393,18 +2443,18 @@ object srvFacturasCliente: TsrvFacturasCliente
'UPDATE FACTURAS_CLIENTE'#10' SET'#10' ID_EMPRESA = :ID_EMPRESA,'#10' ' + 'UPDATE FACTURAS_CLIENTE'#10' SET'#10' ID_EMPRESA = :ID_EMPRESA,'#10' ' +
'REFERENCIA = :REFERENCIA,'#10' FECHA_FACTURA = :FECHA_FACTURA,'#10' ' + 'REFERENCIA = :REFERENCIA,'#10' FECHA_FACTURA = :FECHA_FACTURA,'#10' ' +
' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO,'#10 + ' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO,'#10 +
' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' ' + ' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' DESCRIPCION_DESC' +
'IMPORTE_IVA = :IMPORTE_IVA,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPO' + 'UENTO = :DESCRIPCION_DESCUENTO,'#10' IVA = :IVA,'#10' IMPORTE_IVA ' +
'RTE_RE,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES = ' + '= :IMPORTE_IVA,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_RE,'#10' ' +
':OBSERVACIONES,'#10' ID_CLIENTE = :ID_CLIENTE,'#10' NIF_CIF = :NIF' + 'IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES = :OBSERVACION' +
'_CIF,'#10' NOMBRE = :NOMBRE,'#10' CALLE = :CALLE,'#10' POBLACION = ' + 'ES,'#10' ID_CLIENTE = :ID_CLIENTE,'#10' NIF_CIF = :NIF_CIF,'#10' NO' +
':POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :COD' + 'MBRE = :NOMBRE,'#10' CALLE = :CALLE,'#10' POBLACION = :POBLACION,'#10 +
'IGO_POSTAL,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION' + ' PROVINCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10 +
' = :FECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ID_FORMA_PAG' + ' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_MO' +
'O = :ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALE' + 'DIFICACION,'#10' USUARIO = :USUARIO,'#10' ID_FORMA_PAGO = :ID_FORM' +
'NCIA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORT' + 'A_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' ID' +
'E_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_' + '_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' ' +
'ID);' 'IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID);'
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

7
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk
View File

@ -89,7 +89,9 @@ requires
Articulos_view, Articulos_view,
FormasPago_model, FormasPago_model,
FormasPago_controller, FormasPago_controller,
AlbCli_FacCli_relation; AlbCli_FacCli_relation,
dxGDIPlusD10,
dxLayoutControlD10;
contains contains
uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas', uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas',
@ -102,6 +104,7 @@ contains
uEditorElegirArticulosFacturaCliente in 'uEditorElegirArticulosFacturaCliente.pas' {fEditorElegirArticulosFacturaCliente: TForm}, uEditorElegirArticulosFacturaCliente in 'uEditorElegirArticulosFacturaCliente.pas' {fEditorElegirArticulosFacturaCliente: TForm},
uViewElegirArticulosFacturasCliente in 'uViewElegirArticulosFacturasCliente.pas' {frViewElegirArticulosFacturasCliente: TFrame}, uViewElegirArticulosFacturasCliente in 'uViewElegirArticulosFacturasCliente.pas' {frViewElegirArticulosFacturasCliente: TFrame},
uEditorElegirFacturasCliente in 'uEditorElegirFacturasCliente.pas' {fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente}, uEditorElegirFacturasCliente in 'uEditorElegirFacturasCliente.pas' {fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente},
uDialogListaFacturasEnvioEMail in 'uDialogListaFacturasEnvioEMail.pas' {fDialogListaFacturasEnvioEMail}; uDialogListaFacturasEnvioEMail in 'uDialogListaFacturasEnvioEMail.pas' {fDialogListaFacturasEnvioEMail},
uViewTotalesFacturaCliente in 'uViewTotalesFacturaCliente.pas' {frViewTotalesFacturaCliente: TFrame};
end. end.

BIN
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res
View File

Binary file not shown.

270
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -2,20 +2,20 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Left = 454 Left = 454
Top = 208 Top = 208
Caption = 'Nueva factura de cliente' Caption = 'Nueva factura de cliente'
ClientHeight = 575 ClientHeight = 718
ClientWidth = 788 ClientWidth = 891
Position = poScreenCenter Position = poScreenCenter
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 796 ExplicitWidth = 899
ExplicitHeight = 602 ExplicitHeight = 745
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 788 Width = 891
Caption = 'Nueva factura de cliente' Caption = 'Nueva factura de cliente'
ExplicitWidth = 788 ExplicitWidth = 789
inherited Image1: TImage inherited Image1: TImage
Left = 761 Left = 864
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -39,8 +39,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 788 Width = 891
ExplicitWidth = 788 ExplicitWidth = 789
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 613 ExplicitWidth = 613
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
@ -60,7 +60,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 788 ExplicitWidth = 891
inherited TBXSubmenuItem4: TTBXSubmenuItem inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem inherited TBXItem8: TTBXItem
Visible = False Visible = False
@ -82,21 +82,21 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 788 Width = 891
Height = 317 Height = 434
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 788 ExplicitWidth = 789
ExplicitHeight = 317 ExplicitHeight = 308
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 780 ExplicitWidth = 781
ExplicitHeight = 289 ExplicitHeight = 280
inline frViewFacturaCliente1: TfrViewFacturaCliente inline frViewFacturaCliente1: TfrViewFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 780 Width = 883
Height = 289 Height = 406
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -106,16 +106,16 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 780 ExplicitWidth = 781
ExplicitHeight = 289 ExplicitHeight = 280
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 780 Width = 883
Height = 289 Height = 406
ExplicitWidth = 780 ExplicitWidth = 781
ExplicitHeight = 289 ExplicitHeight = 280
DesignSize = ( DesignSize = (
780 883
289) 406)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 393 ExplicitWidth = 393
Width = 393 Width = 393
@ -131,9 +131,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 473 Width = 473
end end
inherited frViewClienteFactura: TfrViewDatosYSeleccionCliente inherited frViewClienteFactura: TfrViewDatosYSeleccionCliente
Left = 474 Left = 536
Width = 332 Width = 332
ExplicitLeft = 474 ExplicitLeft = 536
ExplicitWidth = 332 ExplicitWidth = 332
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 332 Width = 332
@ -165,7 +165,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 233
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
ExplicitLeft = 233
end
inherited Button3: TBitBtn
Left = 123
ExplicitLeft = 123
end end
end end
end end
@ -174,8 +180,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 255 Width = 255
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 314 Left = 376
ExplicitLeft = 314 ExplicitLeft = 376
end end
end end
end end
@ -183,11 +189,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitWidth = 781
ExplicitHeight = 280
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 780 Width = 883
Height = 289 Height = 406
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -199,61 +207,108 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 780 ExplicitWidth = 781
ExplicitHeight = 289 ExplicitHeight = 280
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 780 Width = 883
ExplicitWidth = 780 Height = 24
ExplicitWidth = 883
inherited ToolButton14: TToolButton [1]
Left = 109
Top = 2
ExplicitLeft = 109
ExplicitTop = 2
end
inherited ToolButton2: TToolButton [2]
Left = 143
end
inherited ToolButton3: TToolButton [3]
Left = 257
end
inherited ToolButton4: TToolButton [4]
Left = 312
Wrap = False
end
inherited FontName: TJvFontComboBox
Left = 368
Top = 2
ExplicitLeft = 368
ExplicitTop = 2
end
inherited FontSize: TEdit inherited FontSize: TEdit
Width = 58 Left = 513
ExplicitWidth = 58 Top = 2
Width = 73
ExplicitLeft = 513
ExplicitTop = 2
ExplicitWidth = 73
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 252 Left = 586
ExplicitLeft = 252 Top = 2
ExplicitLeft = 586
ExplicitTop = 2
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 269 Left = 603
ExplicitLeft = 269 Top = 2
ExplicitLeft = 603
ExplicitTop = 2
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 277 Left = 611
ExplicitLeft = 277 Top = 2
ExplicitLeft = 611
ExplicitTop = 2
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 311 Left = 645
ExplicitLeft = 311 Top = 2
ExplicitLeft = 645
ExplicitTop = 2
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 345 Left = 679
ExplicitLeft = 345 Top = 2
ExplicitLeft = 679
ExplicitTop = 2
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 379 Left = 713
ExplicitLeft = 379 Top = 2
ExplicitLeft = 713
ExplicitTop = 2
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 387 Left = 721
ExplicitLeft = 387 Top = 2
ExplicitLeft = 721
ExplicitTop = 2
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 421 Left = 755
ExplicitLeft = 421 Top = 2
ExplicitLeft = 755
ExplicitTop = 2
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 455 Left = 789
ExplicitLeft = 455 Top = 2
ExplicitLeft = 789
ExplicitTop = 2
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 780 Top = 50
Height = 217 Width = 883
ExplicitWidth = 780 Height = 356
ExplicitHeight = 217 ExplicitWidth = 781
ExplicitHeight = 208
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 780 Top = 24
ExplicitWidth = 780 Width = 883
ExplicitWidth = 781
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548 ExplicitWidth = 548
end end
@ -262,20 +317,20 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 556 Top = 699
Width = 788 Width = 891
Panels = < Panels = <
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 556 ExplicitTop = 573
ExplicitWidth = 788 ExplicitWidth = 789
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotalesFacturaCliente [4]
Left = 0 Left = 0
Top = 393 Top = 510
Width = 788 Width = 891
Height = 163 Height = 189
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -285,13 +340,15 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitTop = 393 ExplicitTop = 384
ExplicitWidth = 788 ExplicitWidth = 789
ExplicitHeight = 163 ExplicitHeight = 189
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 788 Width = 891
Height = 218
LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1 LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1
ExplicitWidth = 788 ExplicitWidth = 789
ExplicitHeight = 218
inherited Bevel1: TBevel inherited Bevel1: TBevel
Top = 111 Top = 111
Width = 73 Width = 73
@ -299,18 +356,18 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 73 ExplicitWidth = 73
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 441 Left = 495
Top = 30 Top = 30
Height = 122 Height = 122
ExplicitLeft = 441 ExplicitLeft = 495
ExplicitTop = 30 ExplicitTop = 30
ExplicitHeight = 122 ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 553 Left = 607
Top = 111 Top = 111
Width = 186 Width = 186
ExplicitLeft = 553 ExplicitLeft = 607
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 186 ExplicitWidth = 186
end end
@ -322,19 +379,19 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 624 Left = 678
Top = 57 Top = 57
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 624 ExplicitLeft = 678
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 554 Left = 608
Top = 131 Top = 131
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 554 ExplicitLeft = 608
ExplicitTop = 131 ExplicitTop = 131
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
@ -346,34 +403,34 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitTop = 131 ExplicitTop = 131
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 553 Left = 607
Top = 57 Top = 57
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 553 ExplicitLeft = 607
ExplicitTop = 57 ExplicitTop = 57
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 553 Left = 607
Top = 30 Top = 30
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 553 ExplicitLeft = 607
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 553 Left = 607
Top = 84 Top = 84
Properties.AssignedValues.MinValue = True Properties.AssignedValues.MinValue = True
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 553 ExplicitLeft = 607
ExplicitTop = 84 ExplicitTop = 84
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 624 Left = 678
Top = 84 Top = 84
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 624 ExplicitLeft = 678
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
@ -386,14 +443,14 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 147 Width = 147
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Top = 158 Top = 185
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Properties.OnValidate = frViewTotales1ePortePropertiesValidate Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.IsFontAssigned = True Style.IsFontAssigned = True
OnEditing = frViewTotales1ePorteEditing OnEditing = frViewTotales1ePorteEditing
ExplicitTop = 158 ExplicitTop = 185
ExplicitWidth = 147 ExplicitWidth = 327
Width = 147 Width = 327
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Top = 57 Top = 57
@ -404,10 +461,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 134 Width = 134
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 293 Left = 347
Top = 57 Top = 57
OnClick = frViewTotales1bTiposIVAClick OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 293 ExplicitLeft = 347
ExplicitTop = 57 ExplicitTop = 57
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
@ -416,24 +473,19 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 314 ExplicitWidth = 314
Width = 314 Width = 314
end end
inherited eDescripciondescuento: TcxDBTextEdit
Top = 158
Style.IsFontAssigned = True
ExplicitTop = 158
ExplicitWidth = 327
Width = 327
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Item8: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item10: TdxLayoutItem inherited dxLayoutControl1Item10: TdxLayoutItem
Visible = False Visible = False
end end
inherited dxLayoutControl1Group7: TdxLayoutGroup
Visible = False
inherited dxLayoutControl1Item4: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item1: TdxLayoutItem
Visible = False
end
end
inherited dxLayoutControl1Item9: TdxLayoutItem inherited dxLayoutControl1Item9: TdxLayoutItem
Visible = False Visible = False
end end

6
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -8,21 +8,21 @@ uses
JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList, JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock, PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane, TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane,
uViewFacturaCliente, uCustomView, uViewBase, uViewTotales, uViewFacturaCliente, uCustomView, uViewBase, uViewTotalesFacturaCliente,
StdCtrls, pngimage, AppEvnts, JvComponentBase, StdCtrls, pngimage, AppEvnts, JvComponentBase,
uBizFacturasCliente, uBizFacturasCliente,
uIEditorFacturaCliente, uFacturasClienteController, uViewDetallesBase, uIEditorFacturaCliente, uFacturasClienteController, uViewDetallesBase,
uViewDetallesFacturaCliente, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewDetallesFacturaCliente, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar,
uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController; uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uViewTotales;
type type
TfEditorFacturaCliente = class(TfEditorDBItem, IEditorFacturaCliente) TfEditorFacturaCliente = class(TfEditorDBItem, IEditorFacturaCliente)
frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente; frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente;
frViewFacturaCliente1: TfrViewFacturaCliente; frViewFacturaCliente1: TfrViewFacturaCliente;
frViewTotales1: TfrViewTotales; frViewTotales1: TfrViewTotalesFacturaCliente;
actEnviarEMail: TAction; actEnviarEMail: TAction;
TBXSubmenuItem2: TTBXSubmenuItem; TBXSubmenuItem2: TTBXSubmenuItem;
TBXItem7: TTBXItem; TBXItem7: TTBXItem;

139
Source/Modulos/Facturas de cliente/Views/uViewTotalesFacturaCliente.dfm Normal file
View File

@ -0,0 +1,139 @@
inherited frViewTotalesFacturaCliente: TfrViewTotalesFacturaCliente
Width = 853
Height = 231
ExplicitHeight = 231
inherited dxLayoutControl1: TdxLayoutControl
Width = 853
inherited Bevel1: TBevel
Width = 73
ExplicitWidth = 73
end
inherited Bevel3: TBevel
Left = 413
Height = 122
ExplicitLeft = 413
ExplicitHeight = 122
end
inherited Bevel4: TBevel
Left = 525
Width = 192
ExplicitLeft = 525
ExplicitWidth = 192
end
inherited ImporteDto: TcxDBCurrencyEdit
Style.IsFontAssigned = True
ExplicitWidth = 93
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 596
Style.IsFontAssigned = True
TabOrder = 10
ExplicitLeft = 596
ExplicitWidth = 137
Width = 137
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 526
Style.IsFontAssigned = True
TabOrder = 13
ExplicitLeft = 526
ExplicitWidth = 137
Width = 137
end
inherited edtDescuento: TcxDBSpinEdit
Style.IsFontAssigned = True
end
inherited edtIVA: TcxDBSpinEdit
Left = 525
Style.IsFontAssigned = True
TabOrder = 9
ExplicitLeft = 525
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 525
Style.IsFontAssigned = True
TabOrder = 8
ExplicitLeft = 525
ExplicitWidth = 92
Width = 92
end
inherited edtRE: TcxDBSpinEdit
Left = 525
Style.IsFontAssigned = True
TabOrder = 11
ExplicitLeft = 525
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 596
Style.IsFontAssigned = True
TabOrder = 12
ExplicitLeft = 596
ExplicitWidth = 56
Width = 56
end
inherited eImporteNeto: TcxDBCurrencyEdit
Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end
inherited ePorte: TcxDBCurrencyEdit
Top = 183
Style.IsFontAssigned = True
TabOrder = 7
ExplicitTop = 183
end
inherited eIVA: TcxDBLookupComboBox
ExplicitWidth = 81
Width = 81
end
inherited bTiposIVA: TButton
Left = 265
ExplicitLeft = 265
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
ExplicitWidth = 219
Width = 219
end
object eDescripciondescuento: TcxDBTextEdit [16]
Left = 104
Top = 156
AutoSize = False
DataBinding.DataField = 'DESCRIPCION_DESCUENTO'
DataBinding.DataSource = DADataSource
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = False
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.TextColor = clWindowText
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
Height = 21
Width = 158
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup
object dxLayoutControl1Item17: TdxLayoutItem [5]
Caption = 'Descripci'#243'n:'
Control = eDescripciondescuento
ControlOptions.ShowBorder = False
end
end
end
end
end
end

29
Source/Modulos/Facturas de cliente/Views/uViewTotalesFacturaCliente.pas Normal file
View File

@ -0,0 +1,29 @@
unit uViewTotalesFacturaCliente;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewTotales, cxGraphics, dxLayoutLookAndFeels, DB, uDADataTable,
dxLayoutControl, cxCheckBox, cxDBEdit, StdCtrls, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, cxMaskEdit, cxSpinEdit, cxContainer,
cxEdit, cxTextEdit, cxCurrencyEdit, ExtCtrls, cxControls;
type
TfrViewTotalesFacturaCliente = class(TfrViewTotales)
dxLayoutControl1Item17: TdxLayoutItem;
eDescripciondescuento: TcxDBTextEdit;
private
{ Private declarations }
public
{ Public declarations }
end;
var
frViewTotalesFacturaCliente: TfrViewTotalesFacturaCliente;
implementation
{$R *.dfm}
end.

19
Source/Servidor/FactuGES_Server.bdsproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<PersonalityInfo> <PersonalityInfo>
<Option> <Option>
@ -154,7 +154,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo> <VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo> <VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">3</VersionInfo> <VersionInfo Name="MinorVer">3</VersionInfo>
<VersionInfo Name="Release">5</VersionInfo> <VersionInfo Name="Release">6</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo> <VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo> <VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo> <VersionInfo Name="PreRelease">False</VersionInfo>
@ -167,21 +167,20 @@
<VersionInfoKeys> <VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys> <VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys> <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.3.5.0</VersionInfoKeys> <VersionInfoKeys Name="FileVersion">3.3.6.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys> <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys> <VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.3.5.0</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion">3.3.6.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys>
<VersionInfoKeys Name="CompileDate">miércoles, 05 de agosto de 2009 17:47</VersionInfoKeys></VersionInfoKeys> <VersionInfoKeys Name="CompileDate">miércoles, 05 de agosto de 2009 18:10</VersionInfoKeys></VersionInfoKeys> <Excluded_Packages>
<Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> </Excluded_Packages>
</Excluded_Packages> </Delphi.Personality>
</Delphi.Personality>
<ModelSupport>False</ModelSupport> <ModelSupport>False</ModelSupport>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6014 EurekaLog Version=6014
Activate=0 Activate=0

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -117,8 +117,6 @@ uses
srvRegistroCorreos_Impl in '..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas' {srvRegistroCorreos: TDARemoteService}, srvRegistroCorreos_Impl in '..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas' {srvRegistroCorreos: TDARemoteService},
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas', schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas',
schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas', schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas',
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas', schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
@ -136,7 +134,9 @@ uses
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas'; schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_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 *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

202
Source/Servidor/FactuGES_Server.drc
View File

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

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.