diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 9b52f9cd..cd7528a2 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -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 diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339f..8b251f31 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm index 7b7cdae2..65241aa3 100644 --- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm @@ -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] diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas index 8da6f829..5839070f 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas @@ -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); diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas index 562a5d92..629300fd 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas @@ -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); diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm index dd4a2747..230de931 100644 --- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm +++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm @@ -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> diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm index 0669f9a0..ddec41e6 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm @@ -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,10 +313,21 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Control = eReferencia ControlOptions.ShowBorder = False end - object dxLayoutControl1Item2: TdxLayoutItem - Caption = 'Fecha de la factura:' - Control = edtFecha - ControlOptions.ShowBorder = False + 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 diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas index 27170cec..f766bcc0 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas @@ -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); diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm index 1c981fb0..e1328fec 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm @@ -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 diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas index 3b182298..c00780f1 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas @@ -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); diff --git a/Source/Modulos/Unidades de medida/Plugin/uPluginUnidadesMedida.dfm b/Source/Modulos/Unidades de medida/Plugin/uPluginUnidadesMedida.dfm index 814bee06..b940b46c 100644 --- a/Source/Modulos/Unidades de medida/Plugin/uPluginUnidadesMedida.dfm +++ b/Source/Modulos/Unidades de medida/Plugin/uPluginUnidadesMedida.dfm @@ -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 diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 40239798..d2fca630 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -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} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index b1480f7a..3028a017 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,295 +1,294 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - - - Delphi.Personality - - -FalseTrueFalseTrueFalse2510FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.1.0FactuGES (Servidor)2.5.1.0miércoles, 05 de septiembre de 2012 20:56 - - File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found - FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEjercicios
- TDataAbstractService - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones
- TRORemoteDataModule - - - - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - - - - -
RptComisiones
- TDataModule - - -
srvComisiones
- TDataAbstractService - - - - - -
srvContabilidad
- TDataAbstractService - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
srvContactos
- TDARemoteService - - - - - -
RptContratosCliente
- - -
srvContratosCliente
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - - - -
RptRecibosProveedor
- TDataModule - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + + + Delphi.Personality + + + FalseTrueFalseTrueFalse2510FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.1.0FactuGES (Servidor)2.5.1.0miércoles, 05 de septiembre de 2012 20:56 + File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found + FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEjercicios
+ TDataAbstractService + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones
+ TRORemoteDataModule + + + + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + + + + +
RptComisiones
+ TDataModule + + +
srvComisiones
+ TDataAbstractService + + + + + +
srvContabilidad
+ TDataAbstractService + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + + +
RptContratosCliente
+ + +
srvContratosCliente
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + +