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

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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">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> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,0,7,0 FILEVERSION 2,0,8,0
PRODUCTVERSION 2,0,7,0 PRODUCTVERSION 2,0,8,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" 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 "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.0.7.0\0" VALUE "ProductVersion", "2.0.8.0\0"
END END
END END
BLOCK "VarFileInfo" 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' Name = 'REFERENCIA_PRESUPUESTO'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'FACTURA_WEB'
DataType = datSmallInt
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -9,9 +9,9 @@ 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_ListaAnosFacturas = '{16572AF4-9D62-43E1-82BE-070FD956E657}'; RID_ListaAnosFacturas = '{B6420F5C-D91E-48CE-B5AE-1601C339BCFB}';
RID_FacturasCliente = '{4F822E48-FDE7-401F-B607-FF5C03C42CFD}'; RID_FacturasCliente = '{CFAF95F1-1417-4EFB-9434-9F6E72BEC0A2}';
RID_FacturasCliente_Detalles = '{C830455C-688C-4B62-8104-24B21CD60BFD}'; RID_FacturasCliente_Detalles = '{48E213DD-72ED-44BB-9E6F-FB5D350B50D4}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -68,6 +68,7 @@ const
fld_FacturasClienteCERTIFICADO_ISO = 'CERTIFICADO_ISO'; fld_FacturasClienteCERTIFICADO_ISO = 'CERTIFICADO_ISO';
fld_FacturasClienteID_PRESUPUESTO = 'ID_PRESUPUESTO'; fld_FacturasClienteID_PRESUPUESTO = 'ID_PRESUPUESTO';
fld_FacturasClienteREFERENCIA_PRESUPUESTO = 'REFERENCIA_PRESUPUESTO'; fld_FacturasClienteREFERENCIA_PRESUPUESTO = 'REFERENCIA_PRESUPUESTO';
fld_FacturasClienteFACTURA_WEB = 'FACTURA_WEB';
{ FacturasCliente field indexes } { FacturasCliente field indexes }
idx_FacturasClienteID = 0; idx_FacturasClienteID = 0;
@ -113,6 +114,7 @@ const
idx_FacturasClienteCERTIFICADO_ISO = 40; idx_FacturasClienteCERTIFICADO_ISO = 40;
idx_FacturasClienteID_PRESUPUESTO = 41; idx_FacturasClienteID_PRESUPUESTO = 41;
idx_FacturasClienteREFERENCIA_PRESUPUESTO = 42; idx_FacturasClienteREFERENCIA_PRESUPUESTO = 42;
idx_FacturasClienteFACTURA_WEB = 43;
{ FacturasCliente_Detalles fields } { FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID'; fld_FacturasCliente_DetallesID = 'ID';
@ -151,7 +153,7 @@ const
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{609E2895-4415-41C7-93B4-0273A1C0D906}'] ['{5CB55BC4-3F60-4960-A0CB-B487CC69AE87}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -186,7 +188,7 @@ type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{1098D2D9-46DC-453C-8DF2-A159BCDB5401}'] ['{DD0C6685-6F03-48F9-9628-0C1B2255F118}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -359,6 +361,10 @@ type
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String);
function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; function GetREFERENCIA_PRESUPUESTOIsNull: Boolean;
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: 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 } { Properties }
@ -448,6 +454,8 @@ type
property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull; property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull;
property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue; property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull; 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; end;
{ TFacturasClienteDataTableRules } { TFacturasClienteDataTableRules }
@ -628,6 +636,10 @@ type
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual; procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual;
function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual; function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: 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 } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -716,6 +728,8 @@ type
property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull; property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull;
property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue; property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull; 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 public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -725,7 +739,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{33EBA6E5-6C58-408A-8673-6D46447E3B8F}'] ['{C6858DC1-BBDE-4EC0-93E6-E1D177191707}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1884,6 +1898,27 @@ begin
DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].AsVariant := Null; DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].AsVariant := Null;
end; 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 } { TFacturasCliente_DetallesDataTableRules }
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); 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 { 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_ListaAnosFacturasDelta = '{550EADCB-EE2C-4BA0-A501-40C59A395CE1}'; RID_ListaAnosFacturasDelta = '{4545AB94-BA1A-498B-82CC-6BB34ACFBF86}';
RID_FacturasClienteDelta = '{09E87A98-15E6-4D62-8E4E-91005D037D1D}'; RID_FacturasClienteDelta = '{AB0BB13F-03DD-46A7-9C1E-82C075A9DE7B}';
RID_FacturasCliente_DetallesDelta = '{3E85AA5C-FE35-452C-9A31-E85D8D57F742}'; RID_FacturasCliente_DetallesDelta = '{3C02B67E-221C-403B-AE8D-FAD1AB3E0FCC}';
type type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{550EADCB-EE2C-4BA0-A501-40C59A395CE1}'] ['{4545AB94-BA1A-498B-82CC-6BB34ACFBF86}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{09E87A98-15E6-4D62-8E4E-91005D037D1D}'] ['{AB0BB13F-03DD-46A7-9C1E-82C075A9DE7B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -95,6 +95,7 @@ type
function GetOldCERTIFICADO_ISOValue : SmallInt; function GetOldCERTIFICADO_ISOValue : SmallInt;
function GetOldID_PRESUPUESTOValue : Integer; function GetOldID_PRESUPUESTOValue : Integer;
function GetOldREFERENCIA_PRESUPUESTOValue : String; function GetOldREFERENCIA_PRESUPUESTOValue : String;
function GetOldFACTURA_WEBValue : SmallInt;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -140,6 +141,7 @@ type
property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue; property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue;
property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue; property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue;
property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue; property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
property OldFACTURA_WEB : SmallInt read GetOldFACTURA_WEBValue;
end; end;
{ TFacturasClienteBusinessProcessorRules } { TFacturasClienteBusinessProcessorRules }
@ -406,6 +408,12 @@ type
function GetOldREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual; function GetOldREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual; procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual;
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); 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 } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -580,6 +588,10 @@ type
property REFERENCIA_PRESUPUESTOIsNull : Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull; property REFERENCIA_PRESUPUESTOIsNull : Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue; property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
property OldREFERENCIA_PRESUPUESTOIsNull : Boolean read GetOldREFERENCIA_PRESUPUESTOIsNull; 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 public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -589,7 +601,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{3E85AA5C-FE35-452C-9A31-E85D8D57F742}'] ['{3C02B67E-221C-403B-AE8D-FAD1AB3E0FCC}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -2189,6 +2201,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO] := Null;
end; 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 } { TFacturasCliente_DetallesBusinessProcessorRules }
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); 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; ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
RE := 0; RE := 0;
SITUACION := CTE_PENDIENTE; SITUACION := CTE_PENDIENTE;
FACTURA_WEB := 0;
end; end;
procedure TBizFacturaCliente.IVAOnChange(Sender: TDACustomField); 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 item
DatasetField = 'REFERENCIA_PRESUPUESTO' DatasetField = 'REFERENCIA_PRESUPUESTO'
TableField = 'REFERENCIA_PRESUPUESTO' TableField = 'REFERENCIA_PRESUPUESTO'
end
item
DatasetField = 'FACTURA_WEB'
TableField = 'FACTURA_WEB'
end> end>
end> end>
Name = 'FacturasCliente' Name = 'FacturasCliente'
@ -446,6 +450,10 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'REFERENCIA_PRESUPUESTO' Name = 'REFERENCIA_PRESUPUESTO'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'FACTURA_WEB'
DataType = datSmallInt
end> end>
end end
item item
@ -1018,6 +1026,11 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'ID_PRESUPUESTO' Name = 'ID_PRESUPUESTO'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end
item
Name = 'FACTURA_WEB'
DataType = datSmallInt
Value = ''
end> end>
Statements = < Statements = <
item item
@ -1035,18 +1048,18 @@ object srvFacturasCliente: TsrvFacturasCliente
'IO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA' + 'IO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA' +
','#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DATOS_BANCARIOS,'#10' ' + ','#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DATOS_BANCARIOS,'#10' ' +
'CLIENTE_FINAL,'#10' RETENCION,'#10' IMPORTE_RETENCION,'#10' CERTIFI' + 'CLIENTE_FINAL,'#10' RETENCION,'#10' IMPORTE_RETENCION,'#10' CERTIFI' +
'CADO_ISO,'#10' ID_PRESUPUESTO)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRES' + 'CADO_ISO,'#10' ID_PRESUPUESTO,'#10' FACTURA_WEB)'#10' VALUES ('#10' :I' +
'A,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10 + 'D,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FE' +
' :FECHA_RETENCION,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :' + 'CHA_VENCIMIENTO,'#10' :FECHA_RETENCION,'#10' :BASE_IMPONIBLE,'#10' ' +
'IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMP' + ':DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10 +
'ORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE' + ' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES' +
','#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' ' + ','#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,' +
':POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,' + #10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,' +
#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' ' + #10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID' +
':RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' ' + '_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :I' +
':IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :CLIENTE_FINAL,'#10' :R' + 'MPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :CLIE' +
'ETENCION,'#10' :IMPORTE_RETENCION,'#10' :CERTIFICADO_ISO,'#10' :ID_' + 'NTE_FINAL,'#10' :RETENCION,'#10' :IMPORTE_RETENCION,'#10' :CERTIFIC' +
'PRESUPUESTO);'#10 'ADO_ISO,'#10' :ID_PRESUPUESTO,'#10' :FACTURA_WEB);'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1244,6 +1257,11 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end end
item
Name = 'FACTURA_WEB'
DataType = datSmallInt
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1272,7 +1290,7 @@ object srvFacturasCliente: TsrvFacturasCliente
'ANCARIOS,'#10' CLIENTE_FINAL = :CLIENTE_FINAL,'#10' RETENCION = :R' + 'ANCARIOS,'#10' CLIENTE_FINAL = :CLIENTE_FINAL,'#10' RETENCION = :R' +
'ETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' CERTIF' + 'ETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' CERTIF' +
'ICADO_ISO = :CERTIFICADO_ISO,'#10' ID_PRESUPUESTO = :ID_PRESUPUES' + '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 StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

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

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

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

@ -69,6 +69,9 @@ type
dxLayoutControl1Group3: TdxLayoutGroup; dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Item11: TdxLayoutItem; dxLayoutControl1Item11: TdxLayoutItem;
eCertificadoISO: TcxDBCheckBox; eCertificadoISO: TcxDBCheckBox;
dxLayoutControl1Item12: TdxLayoutItem;
eFacturaWeb: TcxDBCheckBox;
dxLayoutControl1Group10: TdxLayoutGroup;
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(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 Height = 290
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitLeft = 48
ExplicitTop = 96
ExplicitWidth = 665 ExplicitWidth = 665
ExplicitHeight = 290 ExplicitHeight = 290
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -22,6 +24,23 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
DataController.OnCompare = cxGridViewDataControllerCompare DataController.OnCompare = cxGridViewDataControllerCompare
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible 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 object cxGridViewTIPO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO' DataBinding.FieldName = 'TIPO'
PropertiesClassName = 'TcxImageComboBoxProperties' PropertiesClassName = 'TcxImageComboBoxProperties'
@ -154,6 +173,8 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Description = 'ISO' Description = 'ISO'
Value = 1 Value = 1
end> end>
Visible = False
VisibleForCustomization = False
end end
object cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn object cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn
Caption = 'Ref. presupuesto' Caption = 'Ref. presupuesto'
@ -163,6 +184,9 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todas' Caption = 'Todas'
end end
object cxGridTiendaWEB: TcxGridLevel
Caption = 'Tienda Web'
end
object cxGridPendientes: TcxGridLevel object cxGridPendientes: TcxGridLevel
Caption = 'Pendientes' Caption = 'Pendientes'
end end
@ -198,32 +222,34 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Width = 144 Width = 144
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 209 Left = 185
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 209 ExplicitLeft = 185
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 468 Left = 414
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 468 ExplicitLeft = 414
ExplicitWidth = 97 ExplicitWidth = 97
Width = 97 Width = 97
end end
inherited eLista2: TcxComboBox inherited eLista2: TcxComboBox
Left = 585 Left = 518
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 585 ExplicitLeft = 518
ExplicitWidth = 207
Width = 207
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -406,6 +432,42 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
4E44AE426082} 4E44AE426082}
Name = 'PngImage1' Name = 'PngImage1'
Background = clWindow 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> end>
Bitmap = {} Bitmap = {}
end end

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

@ -42,10 +42,7 @@ type
cxGridViewCODIGO_POSTAL: TcxGridDBColumn; cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
cxGridViewPOBLACION: TcxGridDBColumn; cxGridViewPOBLACION: TcxGridDBColumn;
cxStylePagada: TcxStyle; cxStylePagada: TcxStyle;
cxGridPendientes: TcxGridLevel;
cxGridParcial: TcxGridLevel;
cxStyleAbono: TcxStyle; cxStyleAbono: TcxStyle;
cxGridPagadas: TcxGridLevel;
cxGridViewREFERENCIA_COMISION: TcxGridDBColumn; cxGridViewREFERENCIA_COMISION: TcxGridDBColumn;
cxStylePendientes: TcxStyle; cxStylePendientes: TcxStyle;
cxStyleParciales: TcxStyle; cxStyleParciales: TcxStyle;
@ -60,6 +57,11 @@ type
cxGridViewIMPORTE_RETENCION: TcxGridDBColumn; cxGridViewIMPORTE_RETENCION: TcxGridDBColumn;
cxGridViewCERTIFICADO_ISO: TcxGridDBColumn; cxGridViewCERTIFICADO_ISO: TcxGridDBColumn;
cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn; cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn;
cxGridViewWEB: TcxGridDBColumn;
cxGridTiendaWEB: TcxGridLevel;
cxGridPendientes: TcxGridLevel;
cxGridParcial: TcxGridLevel;
cxGridPagadas: TcxGridLevel;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); out AStyle: TcxStyle);
@ -168,9 +170,10 @@ begin
FFiltro := AddFilterGrid(fboAnd); FFiltro := AddFilterGrid(fboAnd);
case cxGrid.ActiveLevel.Index of case cxGrid.ActiveLevel.Index of
1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PENDIENTE, CTE_PENDIENTE); 1 : FFiltro.AddItem(cxGridViewWEB, foEqual, '1', '1');
2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PARCIAMENTE_PAGADA, CTE_PARCIAMENTE_PAGADA); 2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PENDIENTE, CTE_PENDIENTE);
3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PAGADA, CTE_PAGADA); 3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PARCIAMENTE_PAGADA, CTE_PARCIAMENTE_PAGADA);
4 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PAGADA, CTE_PAGADA);
end; end;
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', schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
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',
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',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_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 *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -35,7 +35,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <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 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> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

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