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

Version 2.0.8

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1114 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2015-05-28 16:37:55 +00:00
parent b1f3c7c1f0
commit 04de5dd364
17 changed files with 301 additions and 87 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Database/scripts/factuges.sql
View File

@ -660,7 +660,7 @@ CREATE TABLE FACTURAS_CLIENTE (
ID_EMPRESA TIPO_ID,
REFERENCIA VARCHAR(255),
FECHA_FACTURA DATE,
FECHA_VENCIMIENTO DATE,
FECHA_VENCIMIENTO DATE,
FECHA_RETENCION DATE,
BASE_IMPONIBLE TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
@ -674,7 +674,7 @@ CREATE TABLE FACTURAS_CLIENTE (
ID_CLIENTE TIPO_ID,
NIF_CIF VARCHAR(15),
NOMBRE VARCHAR(255),
ID_DIRECCION TIPO_ID,
ID_DIRECCION TIPO_ID,
CALLE VARCHAR(255),
POBLACION VARCHAR(255),
PROVINCIA VARCHAR(255),
@ -689,10 +689,12 @@ CREATE TABLE FACTURAS_CLIENTE (
RECARGO_EQUIVALENCIA TIPO_BOOLEANO,
ID_COMISION_LIQUIDADA TIPO_ID,
DATOS_BANCARIOS VARCHAR(255),
CLIENTE_FINAL VARCHAR(255),
CLIENTE_FINAL VARCHAR(255),
RETENCION TIPO_PORCENTAJE,
IMPORTE_RETENCION TIPO_IMPORTE,
CERTIFICADO_ISO TIPO_BOOLEANO
CERTIFICADO_ISO TIPO_BOOLEANO,
ID_PRESUPUESTO TIPO_ID,
FACTURA_WEB TIPO_BOOLEANO DEFAULT 0 NOT NULL
);
CREATE TABLE FACTURAS_CLIENTE_DETALLES (
@ -2103,7 +2105,8 @@ CREATE VIEW V_FACTURAS_CLIENTE(
IMPORTE_RETENCION,
CERTIFICADO_ISO,
ID_PRESUPUESTO,
REFERENCIA_PRESUPUESTO)
REFERENCIA_PRESUPUESTO,
FACTURA_WEB)
AS
SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_EMPRESA,
@ -2147,7 +2150,8 @@ SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.IMPORTE_RETENCION,
FACTURAS_CLIENTE.CERTIFICADO_ISO,
FACTURAS_CLIENTE.ID_PRESUPUESTO,
PRESUPUESTOS_CLIENTE.REFERENCIA as REFERENCIA_PRE
PRESUPUESTOS_CLIENTE.REFERENCIA as REFERENCIA_PRE,
FACTURAS_CLIENTE.FACTURA_WEB
FROM V_FAC_CLI_SITUACION
LEFT JOIN FACTURAS_CLIENTE
ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)
@ -2160,6 +2164,7 @@ SELECT FACTURAS_CLIENTE.ID,
;
/* View: V_FACTURAS_PROVEEDOR */
CREATE VIEW V_FACTURAS_PROVEEDOR(
ID,

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 2,0,7,0
PRODUCTVERSION 2,0,7,0
FILEVERSION 2,0,8,0
PRODUCTVERSION 2,0,8,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.0.7.0\0"
VALUE "FileVersion", "2.0.8.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.0.7.0\0"
VALUE "ProductVersion", "2.0.8.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

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

@ -283,6 +283,10 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'REFERENCIA_PRESUPUESTO'
DataType = datString
Size = 255
end
item
Name = 'FACTURA_WEB'
DataType = datSmallInt
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{16572AF4-9D62-43E1-82BE-070FD956E657}';
RID_FacturasCliente = '{4F822E48-FDE7-401F-B607-FF5C03C42CFD}';
RID_FacturasCliente_Detalles = '{C830455C-688C-4B62-8104-24B21CD60BFD}';
RID_ListaAnosFacturas = '{B6420F5C-D91E-48CE-B5AE-1601C339BCFB}';
RID_FacturasCliente = '{CFAF95F1-1417-4EFB-9434-9F6E72BEC0A2}';
RID_FacturasCliente_Detalles = '{48E213DD-72ED-44BB-9E6F-FB5D350B50D4}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -68,6 +68,7 @@ const
fld_FacturasClienteCERTIFICADO_ISO = 'CERTIFICADO_ISO';
fld_FacturasClienteID_PRESUPUESTO = 'ID_PRESUPUESTO';
fld_FacturasClienteREFERENCIA_PRESUPUESTO = 'REFERENCIA_PRESUPUESTO';
fld_FacturasClienteFACTURA_WEB = 'FACTURA_WEB';
{ FacturasCliente field indexes }
idx_FacturasClienteID = 0;
@ -113,6 +114,7 @@ const
idx_FacturasClienteCERTIFICADO_ISO = 40;
idx_FacturasClienteID_PRESUPUESTO = 41;
idx_FacturasClienteREFERENCIA_PRESUPUESTO = 42;
idx_FacturasClienteFACTURA_WEB = 43;
{ FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID';
@ -151,7 +153,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{609E2895-4415-41C7-93B4-0273A1C0D906}']
['{5CB55BC4-3F60-4960-A0CB-B487CC69AE87}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -186,7 +188,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{1098D2D9-46DC-453C-8DF2-A159BCDB5401}']
['{DD0C6685-6F03-48F9-9628-0C1B2255F118}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -359,6 +361,10 @@ type
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String);
function GetREFERENCIA_PRESUPUESTOIsNull: Boolean;
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean);
function GetFACTURA_WEBValue: SmallInt;
procedure SetFACTURA_WEBValue(const aValue: SmallInt);
function GetFACTURA_WEBIsNull: Boolean;
procedure SetFACTURA_WEBIsNull(const aValue: Boolean);
{ Properties }
@ -448,6 +454,8 @@ type
property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull;
property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
property FACTURA_WEB: SmallInt read GetFACTURA_WEBValue write SetFACTURA_WEBValue;
property FACTURA_WEBIsNull: Boolean read GetFACTURA_WEBIsNull write SetFACTURA_WEBIsNull;
end;
{ TFacturasClienteDataTableRules }
@ -628,6 +636,10 @@ type
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual;
function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
function GetFACTURA_WEBValue: SmallInt; virtual;
procedure SetFACTURA_WEBValue(const aValue: SmallInt); virtual;
function GetFACTURA_WEBIsNull: Boolean; virtual;
procedure SetFACTURA_WEBIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -716,6 +728,8 @@ type
property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull;
property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
property FACTURA_WEB: SmallInt read GetFACTURA_WEBValue write SetFACTURA_WEBValue;
property FACTURA_WEBIsNull: Boolean read GetFACTURA_WEBIsNull write SetFACTURA_WEBIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -725,7 +739,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{33EBA6E5-6C58-408A-8673-6D46447E3B8F}']
['{C6858DC1-BBDE-4EC0-93E6-E1D177191707}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1884,6 +1898,27 @@ begin
DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetFACTURA_WEBValue: SmallInt;
begin
result := DataTable.Fields[idx_FacturasClienteFACTURA_WEB].AsSmallInt;
end;
procedure TFacturasClienteDataTableRules.SetFACTURA_WEBValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_FacturasClienteFACTURA_WEB].AsSmallInt := aValue;
end;
function TFacturasClienteDataTableRules.GetFACTURA_WEBIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteFACTURA_WEB].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetFACTURA_WEBIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteFACTURA_WEB].AsVariant := Null;
end;
{ TFacturasCliente_DetallesDataTableRules }
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{550EADCB-EE2C-4BA0-A501-40C59A395CE1}';
RID_FacturasClienteDelta = '{09E87A98-15E6-4D62-8E4E-91005D037D1D}';
RID_FacturasCliente_DetallesDelta = '{3E85AA5C-FE35-452C-9A31-E85D8D57F742}';
RID_ListaAnosFacturasDelta = '{4545AB94-BA1A-498B-82CC-6BB34ACFBF86}';
RID_FacturasClienteDelta = '{AB0BB13F-03DD-46A7-9C1E-82C075A9DE7B}';
RID_FacturasCliente_DetallesDelta = '{3C02B67E-221C-403B-AE8D-FAD1AB3E0FCC}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{550EADCB-EE2C-4BA0-A501-40C59A395CE1}']
['{4545AB94-BA1A-498B-82CC-6BB34ACFBF86}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
['{09E87A98-15E6-4D62-8E4E-91005D037D1D}']
['{AB0BB13F-03DD-46A7-9C1E-82C075A9DE7B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -95,6 +95,7 @@ type
function GetOldCERTIFICADO_ISOValue : SmallInt;
function GetOldID_PRESUPUESTOValue : Integer;
function GetOldREFERENCIA_PRESUPUESTOValue : String;
function GetOldFACTURA_WEBValue : SmallInt;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -140,6 +141,7 @@ type
property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue;
property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue;
property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
property OldFACTURA_WEB : SmallInt read GetOldFACTURA_WEBValue;
end;
{ TFacturasClienteBusinessProcessorRules }
@ -406,6 +408,12 @@ type
function GetOldREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual;
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
function GetFACTURA_WEBValue: SmallInt; virtual;
function GetFACTURA_WEBIsNull: Boolean; virtual;
function GetOldFACTURA_WEBValue: SmallInt; virtual;
function GetOldFACTURA_WEBIsNull: Boolean; virtual;
procedure SetFACTURA_WEBValue(const aValue: SmallInt); virtual;
procedure SetFACTURA_WEBIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -580,6 +588,10 @@ type
property REFERENCIA_PRESUPUESTOIsNull : Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
property OldREFERENCIA_PRESUPUESTOIsNull : Boolean read GetOldREFERENCIA_PRESUPUESTOIsNull;
property FACTURA_WEB : SmallInt read GetFACTURA_WEBValue write SetFACTURA_WEBValue;
property FACTURA_WEBIsNull : Boolean read GetFACTURA_WEBIsNull write SetFACTURA_WEBIsNull;
property OldFACTURA_WEB : SmallInt read GetOldFACTURA_WEBValue;
property OldFACTURA_WEBIsNull : Boolean read GetOldFACTURA_WEBIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -589,7 +601,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{3E85AA5C-FE35-452C-9A31-E85D8D57F742}']
['{3C02B67E-221C-403B-AE8D-FAD1AB3E0FCC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -2189,6 +2201,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetFACTURA_WEBValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFACTURA_WEB];
end;
function TFacturasClienteBusinessProcessorRules.GetFACTURA_WEBIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFACTURA_WEB]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldFACTURA_WEBValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFACTURA_WEB];
end;
function TFacturasClienteBusinessProcessorRules.GetOldFACTURA_WEBIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFACTURA_WEB]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetFACTURA_WEBValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFACTURA_WEB] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetFACTURA_WEBIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFACTURA_WEB] := Null;
end;
{ TFacturasCliente_DetallesBusinessProcessorRules }
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -269,6 +269,7 @@ begin
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
RE := 0;
SITUACION := CTE_PENDIENTE;
FACTURA_WEB := 0;
end;
procedure TBizFacturaCliente.IVAOnChange(Sender: TDACustomField);

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

@ -219,6 +219,10 @@ object srvFacturasCliente: TsrvFacturasCliente
item
DatasetField = 'REFERENCIA_PRESUPUESTO'
TableField = 'REFERENCIA_PRESUPUESTO'
end
item
DatasetField = 'FACTURA_WEB'
TableField = 'FACTURA_WEB'
end>
end>
Name = 'FacturasCliente'
@ -446,6 +450,10 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'REFERENCIA_PRESUPUESTO'
DataType = datString
Size = 255
end
item
Name = 'FACTURA_WEB'
DataType = datSmallInt
end>
end
item
@ -1018,6 +1026,11 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'ID_PRESUPUESTO'
DataType = datInteger
Value = ''
end
item
Name = 'FACTURA_WEB'
DataType = datSmallInt
Value = ''
end>
Statements = <
item
@ -1035,18 +1048,18 @@ object srvFacturasCliente: TsrvFacturasCliente
'IO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA' +
','#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DATOS_BANCARIOS,'#10' ' +
'CLIENTE_FINAL,'#10' RETENCION,'#10' IMPORTE_RETENCION,'#10' CERTIFI' +
'CADO_ISO,'#10' ID_PRESUPUESTO)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRES' +
'A,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10 +
' :FECHA_RETENCION,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :' +
'IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMP' +
'ORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE' +
','#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' ' +
':POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,' +
#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' ' +
':RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' ' +
':IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :CLIENTE_FINAL,'#10' :R' +
'ETENCION,'#10' :IMPORTE_RETENCION,'#10' :CERTIFICADO_ISO,'#10' :ID_' +
'PRESUPUESTO);'#10
'CADO_ISO,'#10' ID_PRESUPUESTO,'#10' FACTURA_WEB)'#10' VALUES ('#10' :I' +
'D,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FE' +
'CHA_VENCIMIENTO,'#10' :FECHA_RETENCION,'#10' :BASE_IMPONIBLE,'#10' ' +
':DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10 +
' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES' +
','#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,' +
#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,' +
#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID' +
'_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :I' +
'MPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :CLIE' +
'NTE_FINAL,'#10' :RETENCION,'#10' :IMPORTE_RETENCION,'#10' :CERTIFIC' +
'ADO_ISO,'#10' :ID_PRESUPUESTO,'#10' :FACTURA_WEB);'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1244,6 +1257,11 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datInteger
Value = ''
end
item
Name = 'FACTURA_WEB'
DataType = datSmallInt
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
@ -1272,7 +1290,7 @@ object srvFacturasCliente: TsrvFacturasCliente
'ANCARIOS,'#10' CLIENTE_FINAL = :CLIENTE_FINAL,'#10' RETENCION = :R' +
'ETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' CERTIF' +
'ICADO_ISO = :CERTIFICADO_ISO,'#10' ID_PRESUPUESTO = :ID_PRESUPUES' +
'TO'#10' WHERE'#10' (ID = :OLD_ID);'#10
'TO,'#10' FACTURA_WEB = :FACTURA_WEB'#10' WHERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL
ColumnMappings = <>
end>

100
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 451
Height = 304
Width = 896
Height = 553
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@ -9,19 +9,21 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 451
Height = 304
Width = 896
Height = 553
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = (
451
304)
896
553)
object Label1: TLabel
Left = 354
Left = 488
Top = 193
Width = 311
Height = 26
@ -98,7 +100,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
TabOrder = 11
Height = 345
Width = 355
end
@ -136,16 +138,16 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
TabOrder = 4
Width = 269
end
object bFormasPago: TButton
Left = 172
Left = 306
Top = 130
Width = 132
Height = 23
Caption = 'Ver las formas de pago...'
TabOrder = 4
TabOrder = 5
OnClick = bFormasPagoClick
end
object cbCuentaBancaria: TcxDBComboBox
@ -167,11 +169,11 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
TabOrder = 7
Width = 165
end
object cbClienteFinal: TcxDBTextEdit
Left = 354
Left = 488
Top = 227
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'CLIENTE_FINAL'
@ -195,19 +197,19 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
TabOrder = 9
Width = 339
end
object bElegirClienteFinal: TButton
Left = 410
Left = 840
Top = 225
Width = 23
Height = 25
Action = actElegirClienteFinal
TabOrder = 9
TabOrder = 10
end
inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente
Left = 343
Left = 477
Top = 30
Width = 505
Height = 138
@ -217,9 +219,9 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 7
TabOrder = 8
ReadOnly = False
ExplicitLeft = 343
ExplicitLeft = 477
ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
@ -227,28 +229,32 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 171
Left = 284
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 171
ExplicitLeft = 284
end
inherited Button3: TBitBtn
Left = 82
ExplicitLeft = 82
Left = 195
ExplicitLeft = 195
end
inherited edtDireccion: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited Button4: TButton
Left = 251
ExplicitLeft = 251
Left = 364
ExplicitLeft = 364
end
end
inherited ActionList1: TActionList
@ -287,7 +293,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
TabOrder = 6
Width = 275
end
object eCertificadoISO: TcxDBCheckBox
@ -308,7 +314,28 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Transparent = True
Width = 428
Width = 125
end
object eFacturaWeb: TcxDBCheckBox
Left = 153
Top = 84
Caption = 'Factura WEB'
DataBinding.DataField = 'FACTURA_WEB'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Transparent = True
Width = 293
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
@ -337,10 +364,23 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Control = edtFecha
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item11: TdxLayoutItem
object dxLayoutControl1Group10: TdxLayoutGroup
ShowCaption = False
Control = eCertificadoISO
ControlOptions.ShowBorder = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item11: TdxLayoutItem
ShowCaption = False
Control = eCertificadoISO
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item12: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False
Control = eFacturaWeb
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group6: TdxLayoutGroup
Caption = 'Forma de pago'

3
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
View File

@ -69,6 +69,9 @@ type
dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Item11: TdxLayoutItem;
eCertificadoISO: TcxDBCheckBox;
dxLayoutControl1Item12: TdxLayoutItem;
eFacturaWeb: TcxDBCheckBox;
dxLayoutControl1Group10: TdxLayoutGroup;
procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);

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

@ -8,6 +8,8 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Height = 290
RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged
ExplicitLeft = 48
ExplicitTop = 96
ExplicitWidth = 665
ExplicitHeight = 290
inherited cxGridView: TcxGridDBTableView
@ -22,6 +24,23 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
DataController.OnCompare = cxGridViewDataControllerCompare
OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewWEB: TcxGridDBColumn
Caption = 'Web'
DataBinding.FieldName = 'FACTURA_WEB'
PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = GridPNGImageList
Properties.Items = <
item
Description = 'Factura Web'
ImageIndex = 2
Value = 1
end
item
Description = 'Factura Normal'
Value = 0
end>
Properties.ShowDescriptions = False
end
object cxGridViewTIPO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO'
PropertiesClassName = 'TcxImageComboBoxProperties'
@ -154,6 +173,8 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Description = 'ISO'
Value = 1
end>
Visible = False
VisibleForCustomization = False
end
object cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn
Caption = 'Ref. presupuesto'
@ -163,6 +184,9 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
inherited cxGridLevel: TcxGridLevel
Caption = 'Todas'
end
object cxGridTiendaWEB: TcxGridLevel
Caption = 'Tienda Web'
end
object cxGridPendientes: TcxGridLevel
Caption = 'Pendientes'
end
@ -198,32 +222,34 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Width = 144
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 209
Left = 185
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 209
ExplicitLeft = 185
ExplicitWidth = 273
Width = 273
end
inherited eLista: TcxComboBox
Left = 468
Left = 414
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 468
ExplicitLeft = 414
ExplicitWidth = 97
Width = 97
end
inherited eLista2: TcxComboBox
Left = 585
Left = 518
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 585
ExplicitLeft = 518
ExplicitWidth = 207
Width = 207
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -406,6 +432,42 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
4E44AE426082}
Name = 'PngImage1'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C18000003734944415478DA
5D536D685B55187ECEBDB99FB9371F26CB92ACADE9D66E75DDA6D356A6881B82
6C32904DA63074B66EEA90CDFDEC3EF0D7500A4357D18A286D6163A820289BCC
0A83EE872875FB51964E6AD79936ED9A6459BE939B9BDCE4DEEBA1B2317DE1E1
1C78CFFB9CE77DCE7909FE17472F7ED6EEF0048E36D5F8FE464509A5EACBD0ED
DB497DE9E0B71E73FBF04FEF4AF30F9F27F7375F5DBA244795F90F798FF350C8
25A8204D52327E455ABB89997B69CC2C1EB3513958DEE81646BB4CF183AF0F93
EA03826D9FBC2AADEFDE7CCE15C8EF0BAB3D64B5732B54BE84941647AC30821B
A934A6E2A750486E876054EC8857FFDEBB5CEE9F1C7A565F21D83DBE635075E5
06DABD9DCCA3AE67D04A21D18C6ECAB8BA78067FDC791A7F67A7908C1F875D8E
81E3BEB4D6284367164E6C3849768D7DD1BB208C4F74866795764F184165275A
DDCF839851F8A55770FD6E0197E782984EA4A06573407314D0AEC04DF6547A5A
4EBF403A07EF8D2CE84B879E78EA30DABC15F8652F9C9C8FEA62B04AFE18B17C
04130B04F3E93C6CBD9F220E946F8194FDE80A7E33420283E94CBA58F2B56F7A
072DBE3928BC0889E321B2AF51834E60BEE0403449FD2B14815A3FD0B806948A
60AA1236C8C359221C9BB6EB848510FE19ABDB4E83C536B0CC2A18D647D08C16
54AA26EAC51250BD492DEFA32B07520C436E5610300E8084DF9CB4133207A880
103A0F8BB3C092000813815EDB4D9DB4695181DEFC2325380ED44DB055111EAB
036AE92D9035AF4FDACBA60EB85C802C03920628BF81F0E760D75F048A8F5382
C7A879598A8B609A0978B95904C94658ECFE1CF1EF9918CF98DA2EA8EABF04A2
08B8AF52A201C034687100C89C070C9A2B95C19ACB5817BC8247ECB53095BDA3
6473DF54FF5CECAFB19A53249024DA070F7035C07792BEC46D20F73255F10695
5E072A1A78AB82273B0A10A52D0D67CF8EE748C7FBB70423BE185DCA26D6DBA2
408BB91510FF59DAB7053B71844A6F50050618D3845BE2B135E2B36AFEAE0BBF
9F5DD7B7F2137B07FEEC4ECEDEB99CCFA4DAEAB64D2C16F0847F41F9EE26587A
081C6120700E04A84F1EA76AF3A2F707D3E73B3039D4A63F18A6EEF7AEB53A74
32ACE5F22FD51A794E76C5A16522B4230E0A55E6969CB620AB5A4351C6F219F5
54F44248FBCF34DE8FDE23333B19ADFAB683AFED330A26388103E371A6ACAAF5
5D59653E9FFE744BECE1F3FF00F7B9639E6BE4CA2D0000000049454E44AE4260
82}
Name = 'PngImage2'
Background = clWindow
end>
Bitmap = {}
end

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

@ -42,10 +42,7 @@ type
cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
cxGridViewPOBLACION: TcxGridDBColumn;
cxStylePagada: TcxStyle;
cxGridPendientes: TcxGridLevel;
cxGridParcial: TcxGridLevel;
cxStyleAbono: TcxStyle;
cxGridPagadas: TcxGridLevel;
cxGridViewREFERENCIA_COMISION: TcxGridDBColumn;
cxStylePendientes: TcxStyle;
cxStyleParciales: TcxStyle;
@ -60,6 +57,11 @@ type
cxGridViewIMPORTE_RETENCION: TcxGridDBColumn;
cxGridViewCERTIFICADO_ISO: TcxGridDBColumn;
cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn;
cxGridViewWEB: TcxGridDBColumn;
cxGridTiendaWEB: TcxGridLevel;
cxGridPendientes: TcxGridLevel;
cxGridParcial: TcxGridLevel;
cxGridPagadas: TcxGridLevel;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);
@ -168,9 +170,10 @@ begin
FFiltro := AddFilterGrid(fboAnd);
case cxGrid.ActiveLevel.Index of
1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PENDIENTE, CTE_PENDIENTE);
2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PARCIAMENTE_PAGADA, CTE_PARCIAMENTE_PAGADA);
3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PAGADA, CTE_PAGADA);
1 : FFiltro.AddItem(cxGridViewWEB, foEqual, '1', '1');
2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PENDIENTE, CTE_PENDIENTE);
3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PARCIAMENTE_PAGADA, CTE_PARCIAMENTE_PAGADA);
4 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PAGADA, CTE_PAGADA);
end;
end;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -128,14 +128,14 @@ uses
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_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',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas';
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -35,7 +35,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 06 de junio de 2014 10:17</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 17 de febrero de 2015 16:12</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 2,0,7,0
PRODUCTVERSION 2,0,7,0
FILEVERSION 2,0,8,0
PRODUCTVERSION 2,0,8,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.0.7.0\0"
VALUE "FileVersion", "2.0.8.0\0"
VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "2.0.7.0\0"
VALUE "CompileDate", "martes, 17 de febrero de 2015 16:12\0"
VALUE "ProductVersion", "2.0.8.0\0"
VALUE "CompileDate", "jueves, 28 de mayo de 2015 13:23\0"
END
END
BLOCK "VarFileInfo"