Se añade campo tipo_factura para las facturas, asi se podra sacar informe de facturas por tipo (Obra, banos....)
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@574 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
f33f66d892
commit
ef989ec3a0
@ -916,7 +916,8 @@ CREATE TABLE FACTURAS_CLIENTE (
|
||||
FECHA_VENCIMIENTO DATE,
|
||||
ID_DIRECCION TIPO_ID,
|
||||
ID_CONTRATO TIPO_ID,
|
||||
SIN_COMISION SMALLINT
|
||||
SIN_COMISION SMALLINT,
|
||||
TIPO_FACTURA VARCHAR(255) COLLATE ES_ES
|
||||
);
|
||||
|
||||
CREATE TABLE FACTURAS_CLIENTE_DETALLES (
|
||||
@ -2677,7 +2678,8 @@ CREATE VIEW V_FACTURAS_CLIENTE(
|
||||
ASIENTO_PUNTEADO,
|
||||
ID_CONTRATO,
|
||||
REF_CONTRATO,
|
||||
SIN_COMISION)
|
||||
SIN_COMISION,
|
||||
TIPO_FACTURA)
|
||||
AS
|
||||
SELECT FACTURAS_CLIENTE.ID,
|
||||
FACTURAS_CLIENTE.ID_EMPRESA,
|
||||
@ -2726,7 +2728,8 @@ SELECT FACTURAS_CLIENTE.ID,
|
||||
V_CONT_FAC_CLI_VENTAS.ASIENTO_PUNTEADO,
|
||||
FACTURAS_CLIENTE.ID_CONTRATO,
|
||||
CONTRATOS_CLIENTE.REFERENCIA,
|
||||
FACTURAS_CLIENTE.SIN_COMISION
|
||||
FACTURAS_CLIENTE.SIN_COMISION,
|
||||
FACTURAS_CLIENTE.TIPO_FACTURA
|
||||
|
||||
FROM V_FAC_CLI_SITUACION
|
||||
LEFT JOIN FACTURAS_CLIENTE
|
||||
|
||||
Binary file not shown.
@ -308,6 +308,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
|
||||
item
|
||||
Name = 'SIN_COMISION'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_FACTURA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -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 = '{0B7FFA50-F8E0-48C1-A562-D787DFD31113}';
|
||||
RID_FacturasCliente = '{17EE5BA0-9C09-4BC1-B224-ECBE27955EB5}';
|
||||
RID_FacturasCliente_Detalles = '{23406660-F90F-495F-8EDC-DE160A640BE3}';
|
||||
RID_ListaAnosFacturas = '{C6E2E8B4-2CB3-4679-BA75-D15FE79F93EE}';
|
||||
RID_FacturasCliente = '{FFE70CEB-56D8-4951-BA12-13F7C72BFE18}';
|
||||
RID_FacturasCliente_Detalles = '{B28CF6EF-D5C9-47F9-8D64-A80E8AF20724}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosFacturas = 'ListaAnosFacturas';
|
||||
@ -73,6 +73,7 @@ const
|
||||
fld_FacturasClienteID_CONTRATO = 'ID_CONTRATO';
|
||||
fld_FacturasClienteREF_CONTRATO = 'REF_CONTRATO';
|
||||
fld_FacturasClienteSIN_COMISION = 'SIN_COMISION';
|
||||
fld_FacturasClienteTIPO_FACTURA = 'TIPO_FACTURA';
|
||||
|
||||
{ FacturasCliente field indexes }
|
||||
idx_FacturasClienteID = 0;
|
||||
@ -123,6 +124,7 @@ const
|
||||
idx_FacturasClienteID_CONTRATO = 45;
|
||||
idx_FacturasClienteREF_CONTRATO = 46;
|
||||
idx_FacturasClienteSIN_COMISION = 47;
|
||||
idx_FacturasClienteTIPO_FACTURA = 48;
|
||||
|
||||
{ FacturasCliente_Detalles fields }
|
||||
fld_FacturasCliente_DetallesID = 'ID';
|
||||
@ -159,7 +161,7 @@ const
|
||||
type
|
||||
{ IListaAnosFacturas }
|
||||
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
|
||||
['{F7A21916-AD6A-4354-AC97-24ACEB11D229}']
|
||||
['{3A65D9C0-CBC7-49BD-890B-CB27E537E661}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -194,7 +196,7 @@ type
|
||||
|
||||
{ IFacturasCliente }
|
||||
IFacturasCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{2FE56E65-87BC-45FE-A4D5-CA3DF8D941B5}']
|
||||
['{0DB0095F-A024-45A3-9A3A-59E7029B3648}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -387,6 +389,10 @@ type
|
||||
procedure SetSIN_COMISIONValue(const aValue: SmallInt);
|
||||
function GetSIN_COMISIONIsNull: Boolean;
|
||||
procedure SetSIN_COMISIONIsNull(const aValue: Boolean);
|
||||
function GetTIPO_FACTURAValue: String;
|
||||
procedure SetTIPO_FACTURAValue(const aValue: String);
|
||||
function GetTIPO_FACTURAIsNull: Boolean;
|
||||
procedure SetTIPO_FACTURAIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -486,6 +492,8 @@ type
|
||||
property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
|
||||
property SIN_COMISION: SmallInt read GetSIN_COMISIONValue write SetSIN_COMISIONValue;
|
||||
property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
|
||||
property TIPO_FACTURA: String read GetTIPO_FACTURAValue write SetTIPO_FACTURAValue;
|
||||
property TIPO_FACTURAIsNull: Boolean read GetTIPO_FACTURAIsNull write SetTIPO_FACTURAIsNull;
|
||||
end;
|
||||
|
||||
{ TFacturasClienteDataTableRules }
|
||||
@ -686,6 +694,10 @@ type
|
||||
procedure SetSIN_COMISIONValue(const aValue: SmallInt); virtual;
|
||||
function GetSIN_COMISIONIsNull: Boolean; virtual;
|
||||
procedure SetSIN_COMISIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetTIPO_FACTURAValue: String; virtual;
|
||||
procedure SetTIPO_FACTURAValue(const aValue: String); virtual;
|
||||
function GetTIPO_FACTURAIsNull: Boolean; virtual;
|
||||
procedure SetTIPO_FACTURAIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -784,6 +796,8 @@ type
|
||||
property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
|
||||
property SIN_COMISION: SmallInt read GetSIN_COMISIONValue write SetSIN_COMISIONValue;
|
||||
property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
|
||||
property TIPO_FACTURA: String read GetTIPO_FACTURAValue write SetTIPO_FACTURAValue;
|
||||
property TIPO_FACTURAIsNull: Boolean read GetTIPO_FACTURAIsNull write SetTIPO_FACTURAIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -793,7 +807,7 @@ type
|
||||
|
||||
{ IFacturasCliente_Detalles }
|
||||
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{054390A6-7A81-4F0A-886E-29CE32371B63}']
|
||||
['{C8FB6F13-CC9F-4716-925A-56A598401F23}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2045,6 +2059,27 @@ begin
|
||||
DataTable.Fields[idx_FacturasClienteSIN_COMISION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetTIPO_FACTURAValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteTIPO_FACTURA].AsString;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetTIPO_FACTURAValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasClienteTIPO_FACTURA].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetTIPO_FACTURAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteTIPO_FACTURA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetTIPO_FACTURAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasClienteTIPO_FACTURA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TFacturasCliente_DetallesDataTableRules }
|
||||
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -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 = '{D5A9BC5A-02B1-4447-9B85-091759C3F578}';
|
||||
RID_FacturasClienteDelta = '{82202330-E0FD-415C-BCDF-BFC47BCB4B92}';
|
||||
RID_FacturasCliente_DetallesDelta = '{CC9347DB-60EC-498B-A524-61302BD37A6A}';
|
||||
RID_ListaAnosFacturasDelta = '{3340EDE9-C8BC-4A98-B867-A746A393909C}';
|
||||
RID_FacturasClienteDelta = '{D0017EBE-F53A-4E75-8BDB-A2AA4B6734B5}';
|
||||
RID_FacturasCliente_DetallesDelta = '{C71C0559-5EAC-4B7A-96BA-BCAF08A89042}';
|
||||
|
||||
type
|
||||
{ IListaAnosFacturasDelta }
|
||||
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
|
||||
['{D5A9BC5A-02B1-4447-9B85-091759C3F578}']
|
||||
['{3340EDE9-C8BC-4A98-B867-A746A393909C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -50,7 +50,7 @@ type
|
||||
|
||||
{ IFacturasClienteDelta }
|
||||
IFacturasClienteDelta = interface(IFacturasCliente)
|
||||
['{82202330-E0FD-415C-BCDF-BFC47BCB4B92}']
|
||||
['{D0017EBE-F53A-4E75-8BDB-A2AA4B6734B5}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -100,6 +100,7 @@ type
|
||||
function GetOldID_CONTRATOValue : Integer;
|
||||
function GetOldREF_CONTRATOValue : String;
|
||||
function GetOldSIN_COMISIONValue : SmallInt;
|
||||
function GetOldTIPO_FACTURAValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -150,6 +151,7 @@ type
|
||||
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
|
||||
property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
|
||||
property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue;
|
||||
property OldTIPO_FACTURA : String read GetOldTIPO_FACTURAValue;
|
||||
end;
|
||||
|
||||
{ TFacturasClienteBusinessProcessorRules }
|
||||
@ -446,6 +448,12 @@ type
|
||||
function GetOldSIN_COMISIONIsNull: Boolean; virtual;
|
||||
procedure SetSIN_COMISIONValue(const aValue: SmallInt); virtual;
|
||||
procedure SetSIN_COMISIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetTIPO_FACTURAValue: String; virtual;
|
||||
function GetTIPO_FACTURAIsNull: Boolean; virtual;
|
||||
function GetOldTIPO_FACTURAValue: String; virtual;
|
||||
function GetOldTIPO_FACTURAIsNull: Boolean; virtual;
|
||||
procedure SetTIPO_FACTURAValue(const aValue: String); virtual;
|
||||
procedure SetTIPO_FACTURAIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -640,6 +648,10 @@ type
|
||||
property SIN_COMISIONIsNull : Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
|
||||
property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue;
|
||||
property OldSIN_COMISIONIsNull : Boolean read GetOldSIN_COMISIONIsNull;
|
||||
property TIPO_FACTURA : String read GetTIPO_FACTURAValue write SetTIPO_FACTURAValue;
|
||||
property TIPO_FACTURAIsNull : Boolean read GetTIPO_FACTURAIsNull write SetTIPO_FACTURAIsNull;
|
||||
property OldTIPO_FACTURA : String read GetOldTIPO_FACTURAValue;
|
||||
property OldTIPO_FACTURAIsNull : Boolean read GetOldTIPO_FACTURAIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -649,7 +661,7 @@ type
|
||||
|
||||
{ IFacturasCliente_DetallesDelta }
|
||||
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
|
||||
['{CC9347DB-60EC-498B-A524-61302BD37A6A}']
|
||||
['{C71C0559-5EAC-4B7A-96BA-BCAF08A89042}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
@ -2392,6 +2404,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSIN_COMISION] := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetTIPO_FACTURAValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO_FACTURA];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetTIPO_FACTURAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO_FACTURA]);
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldTIPO_FACTURAValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteTIPO_FACTURA];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldTIPO_FACTURAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteTIPO_FACTURA]);
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetTIPO_FACTURAValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO_FACTURA] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetTIPO_FACTURAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO_FACTURA] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TFacturasCliente_DetallesBusinessProcessorRules }
|
||||
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -239,6 +239,10 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
item
|
||||
DatasetField = 'SIN_COMISION'
|
||||
TableField = 'SIN_COMISION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO_FACTURA'
|
||||
TableField = 'TIPO_FACTURA'
|
||||
end>
|
||||
end>
|
||||
Name = 'FacturasCliente'
|
||||
@ -492,6 +496,11 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
item
|
||||
Name = 'SIN_COMISION'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_FACTURA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -1075,6 +1084,12 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
Name = 'SIN_COMISION'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_FACTURA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -1091,16 +1106,17 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
'A_MODIFICACION,'#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUI' +
|
||||
'VALENCIA,'#10' ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10 +
|
||||
' IGNORAR_CONTABILIDAD,'#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SI' +
|
||||
'N_COMISION)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA' +
|
||||
','#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :BASE_IMPONIBL' +
|
||||
'E,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORT' +
|
||||
'E_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERV' +
|
||||
'ACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :CALLE,' +
|
||||
#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_' +
|
||||
'ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,' +
|
||||
#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,' +
|
||||
#10' :IMPORTE_PORTE,'#10' :IGNORAR_CONTABILIDAD,'#10' :ID_TIENDA,'#10 +
|
||||
' :ID_CONTRATO,'#10' :SIN_COMISION);'#10
|
||||
'N_COMISION,'#10' TIPO_FACTURA)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRES' +
|
||||
'A,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#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' :N' +
|
||||
'OMBRE,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_P' +
|
||||
'OSTAL,'#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' :IGNORAR_CONTABILIDAD' +
|
||||
','#10' :ID_TIENDA,'#10' :ID_CONTRATO,'#10' :SIN_COMISION,'#10' :TIPO' +
|
||||
'_FACTURA);'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1276,6 +1292,12 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_FACTURA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -1301,8 +1323,8 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
'A = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_' +
|
||||
'PORTE = :IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CONT' +
|
||||
'ABILIDAD,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_CONTRATO = :ID_CONT' +
|
||||
'RATO,'#10' SIN_COMISION = :SIN_COMISION'#10' WHERE'#10' (ID = :OLD_ID);' +
|
||||
#10
|
||||
'RATO,'#10' SIN_COMISION = :SIN_COMISION,'#10' TIPO_FACTURA = :TIPO' +
|
||||
'_FACTURA'#10' WHERE'#10' (ID = :OLD_ID);'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Width = 937
|
||||
Height = 382
|
||||
Width = 451
|
||||
Height = 304
|
||||
Align = alClient
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
@ -9,19 +9,17 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 937
|
||||
Height = 382
|
||||
Width = 451
|
||||
Height = 304
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 304
|
||||
DesignSize = (
|
||||
937
|
||||
382)
|
||||
451
|
||||
304)
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 135
|
||||
Top = 30
|
||||
@ -94,16 +92,16 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 2
|
||||
TabOrder = 3
|
||||
Width = 78
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 336
|
||||
Left = 311
|
||||
Top = 108
|
||||
Width = 132
|
||||
Height = 23
|
||||
Caption = 'Ver las formas de pago...'
|
||||
TabOrder = 3
|
||||
TabOrder = 4
|
||||
OnClick = bFormasPagoClick
|
||||
end
|
||||
inline frViewTienda1: TfrViewTienda
|
||||
@ -117,7 +115,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
TabOrder = 6
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 22
|
||||
ExplicitTop = 188
|
||||
@ -135,7 +133,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
end
|
||||
end
|
||||
inline frViewClienteFactura1: TfrViewClienteFactura
|
||||
Left = 496
|
||||
Left = 471
|
||||
Top = 30
|
||||
Width = 398
|
||||
Height = 265
|
||||
@ -145,9 +143,9 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 7
|
||||
TabOrder = 8
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 496
|
||||
ExplicitLeft = 471
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 398
|
||||
ExplicitHeight = 265
|
||||
@ -177,12 +175,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Width = 276
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 327
|
||||
ExplicitLeft = 327
|
||||
Left = 192
|
||||
ExplicitLeft = 192
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 217
|
||||
ExplicitLeft = 217
|
||||
Left = 82
|
||||
ExplicitLeft = 82
|
||||
end
|
||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||
ExplicitWidth = 283
|
||||
@ -209,7 +207,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
TabOrder = 5
|
||||
Width = 310
|
||||
end
|
||||
inline frViewObservaciones1: TfrViewObservaciones
|
||||
@ -223,7 +221,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 8
|
||||
TabOrder = 9
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 22
|
||||
ExplicitTop = 325
|
||||
@ -262,9 +260,35 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 6
|
||||
TabOrder = 7
|
||||
Width = 158
|
||||
end
|
||||
object cbTipoFactura: TcxDBComboBox
|
||||
Left = 367
|
||||
Top = 57
|
||||
DataBinding.DataField = 'TIPO_FACTURA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.ImmediatePost = True
|
||||
Properties.Items.Strings = (
|
||||
'Cocina'
|
||||
'Ba'#241'o'
|
||||
'Armarios'
|
||||
'Electrodom'#233'sticos'
|
||||
'Varios'
|
||||
'Obra')
|
||||
Properties.PostPopupValueOnTab = True
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 2
|
||||
Width = 76
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -289,11 +313,22 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Control = eReferencia
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Group10: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
Caption = 'Fecha de la factura:'
|
||||
Control = edtFecha
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item8: TdxLayoutItem
|
||||
Caption = 'Tipo factura:'
|
||||
Control = cbTipoFactura
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group8: TdxLayoutGroup
|
||||
Caption = 'Forma de pago'
|
||||
|
||||
@ -58,6 +58,9 @@ type
|
||||
dxLayoutControl1Item7: TdxLayoutItem;
|
||||
cbRecargoEquivalencia: TcxDBCheckBox;
|
||||
dxLayoutControl1Group9: TdxLayoutGroup;
|
||||
dxLayoutControl1Item8: TdxLayoutItem;
|
||||
cbTipoFactura: TcxDBComboBox;
|
||||
dxLayoutControl1Group10: TdxLayoutGroup;
|
||||
procedure bFormasPagoClick(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
|
||||
@ -8,7 +8,7 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
Height = 269
|
||||
RootLevelOptions.DetailTabsPosition = dtpTop
|
||||
OnActiveTabChanged = cxGridActiveTabChanged
|
||||
ExplicitWidth = 531
|
||||
ExplicitWidth = 802
|
||||
ExplicitHeight = 269
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.KeyFieldNames = 'ID'
|
||||
@ -43,6 +43,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Width = 69
|
||||
end
|
||||
object cxGridViewTIPO_FACTURA: TcxGridDBColumn
|
||||
Caption = 'Tipo factura'
|
||||
DataBinding.FieldName = 'TIPO_FACTURA'
|
||||
end
|
||||
object cxGridViewSITUACION: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'SITUACION'
|
||||
Width = 32
|
||||
@ -170,12 +174,12 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
Width = 802
|
||||
ExplicitWidth = 531
|
||||
ExplicitWidth = 802
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
ExplicitWidth = 531
|
||||
ExplicitWidth = 802
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 802
|
||||
ExplicitWidth = 531
|
||||
ExplicitWidth = 802
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
@ -205,10 +209,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 802
|
||||
ExplicitWidth = 531
|
||||
ExplicitWidth = 802
|
||||
inherited tbxBotones: TTBXToolbar
|
||||
Width = 792
|
||||
ExplicitWidth = 521
|
||||
ExplicitWidth = 792
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -217,13 +221,13 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
Top = 371
|
||||
Visible = True
|
||||
ExplicitTop = 371
|
||||
ExplicitWidth = 531
|
||||
ExplicitWidth = 802
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 802
|
||||
ExplicitWidth = 531
|
||||
ExplicitWidth = 802
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
Width = 792
|
||||
ExplicitWidth = 521
|
||||
ExplicitWidth = 792
|
||||
object TBXSeparatorItem2: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem3: TTBXItem
|
||||
|
||||
@ -62,6 +62,7 @@ type
|
||||
cxGridViewIMPORTE_RE: TcxGridDBColumn;
|
||||
cxGridViewRE: TcxGridDBColumn;
|
||||
cxGridViewREF_CONTRATO: TcxGridDBColumn;
|
||||
cxGridViewTIPO_FACTURA: TcxGridDBColumn;
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
|
||||
out AStyle: TcxStyle);
|
||||
|
||||
@ -42,7 +42,9 @@ object PluginUnidadesMedida: TPluginUnidadesMedida
|
||||
object actUnidadesMedida: TAction
|
||||
Category = 'Datos'
|
||||
Caption = 'Unidades de medida'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actUnidadesMedidaExecute
|
||||
end
|
||||
end
|
||||
|
||||
@ -119,8 +119,6 @@ uses
|
||||
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
|
||||
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
|
||||
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
|
||||
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
|
||||
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
|
||||
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
|
||||
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
|
||||
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
|
||||
@ -136,7 +134,9 @@ uses
|
||||
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
|
||||
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_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',
|
||||
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}
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
@ -29,7 +29,6 @@
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">1</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.5.1.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.5.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 05 de septiembre de 2012 20:56</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
|
||||
@ -16,7 +16,7 @@ BEGIN
|
||||
VALUE "FileVersion", "2.5.1.0\0"
|
||||
VALUE "ProductName", "FactuGES (Servidor)\0"
|
||||
VALUE "ProductVersion", "2.5.1.0\0"
|
||||
VALUE "CompileDate", "martes, 29 de enero de 2013 12:21\0"
|
||||
VALUE "CompileDate", "martes, 29 de enero de 2013 19:17\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user