diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index e6af759..426db58 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -59,54 +59,54 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
TForm diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index e95f8e8..f44e3be 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,34 +58,34 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/GUIBase/uEditorGridBase.pas b/Source/GUIBase/uEditorGridBase.pas index 8e372b0..058e4af 100644 --- a/Source/GUIBase/uEditorGridBase.pas +++ b/Source/GUIBase/uEditorGridBase.pas @@ -241,7 +241,7 @@ begin if Assigned(ViewGrid) then begin ViewGrid.ShowEmbedded(Self); - //ViewGrid.RestoreFromIniFile; + ViewGrid.RestoreFromIniFile; end; cbxListaAnos.ItemIndex := 0; @@ -351,8 +351,8 @@ end; procedure TfEditorGridBase.CustomEditorDestroy(Sender: TObject); begin inherited; -{ if Assigned(ViewGrid) then - ViewGrid.StoreToIniFile;} + if Assigned(ViewGrid) then + ViewGrid.StoreToIniFile; end; procedure TfEditorGridBase.actAnchoAutoExecute(Sender: TObject); diff --git a/Source/Informes/1/InfFacturaCliente.fr3 b/Source/Informes/1/InfFacturaCliente.fr3 index 2041e53..30a1e79 100644 --- a/Source/Informes/1/InfFacturaCliente.fr3 +++ b/Source/Informes/1/InfFacturaCliente.fr3 @@ -1,8 +1,10 @@ - + + + @@ -12,25 +14,40 @@ - + - - - - - + + + + + - - + + + + + + + + + + + + + + + + + + - - - + + @@ -43,20 +60,9 @@ - - - - - - - - - - - - - - + + + diff --git a/Source/Informes/2/InfFacturaCliente.fr3 b/Source/Informes/2/InfFacturaCliente.fr3 index 1e0e954..e68361a 100644 --- a/Source/Informes/2/InfFacturaCliente.fr3 +++ b/Source/Informes/2/InfFacturaCliente.fr3 @@ -1,40 +1,53 @@ - + - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - - - - - + + + + + + + - - + + + + + + + + + + + + + + + + + + - - - + + @@ -47,20 +60,9 @@ - - - - - - - - - - - - - - + + + diff --git a/Source/Informes/3/InfFacturaCliente.fr3 b/Source/Informes/3/InfFacturaCliente.fr3 index fe18a78..5d587f3 100644 --- a/Source/Informes/3/InfFacturaCliente.fr3 +++ b/Source/Informes/3/InfFacturaCliente.fr3 @@ -1,8 +1,10 @@ - + + + @@ -10,27 +12,42 @@ - + - + - + - - - - - - + + + + + + - - + + + + + + + + + + + + + + + + + + - - - + + @@ -43,20 +60,9 @@ - - - - - - - - - - - - - - + + + diff --git a/Source/Informes/4/InfFacturaCliente.fr3 b/Source/Informes/4/InfFacturaCliente.fr3 index 920c8d9..5d587f3 100644 --- a/Source/Informes/4/InfFacturaCliente.fr3 +++ b/Source/Informes/4/InfFacturaCliente.fr3 @@ -1,8 +1,10 @@ - + + + @@ -10,27 +12,42 @@ - + - + - + - - - - - - - + + + + + + + - - + + + + + + + + + + + + + + + + + + - - - + + @@ -43,20 +60,9 @@ - - - - - - - - - - - - - - + + + diff --git a/Source/Informes/InformeIVAClientes.fr3 b/Source/Informes/InformeIVAClientes.fr3 index 62aadcf..8a8a063 100644 --- a/Source/Informes/InformeIVAClientes.fr3 +++ b/Source/Informes/InformeIVAClientes.fr3 @@ -1,5 +1,5 @@ - + @@ -14,31 +14,34 @@ - - - - - - - + + + + + + + - + + - - - - - - - - + + + + + + + + + - - - - + + + + + @@ -57,7 +60,7 @@ - + diff --git a/Source/Informes/InformeIVAClientesDesglosado.fr3 b/Source/Informes/InformeIVAClientesDesglosado.fr3 index ed491aa..ac01038 100644 --- a/Source/Informes/InformeIVAClientesDesglosado.fr3 +++ b/Source/Informes/InformeIVAClientesDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -15,30 +15,33 @@ - - - - - - - - + + + + + + + + + - - - - - - - - + + + + + + + + + - - - - + + + + + diff --git a/Source/Informes/InformeListadoFacturasRecibosCliente.fr3 b/Source/Informes/InformeListadoFacturasRecibosCliente.fr3 index e254edf..3de574e 100644 --- a/Source/Informes/InformeListadoFacturasRecibosCliente.fr3 +++ b/Source/Informes/InformeListadoFacturasRecibosCliente.fr3 @@ -1,63 +1,63 @@ - + - - - - - - - + + + + + + + - + - + - - + + - - - - - - - + + + + + + + - - - - - + + + + + - - - + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - + + + - - - + + + diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm index 0433d47..1ad5335 100644 --- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm @@ -614,6 +614,18 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente item Name = 'PORCENTAJE_BENEFICIO' DataType = datCurrency + end + item + Name = 'IMPORTE_FACTURAS_CLIENTE' + DataType = datCurrency + end + item + Name = 'IMPORTE_BENEFICIO_REAL' + DataType = datCurrency + end + item + Name = 'PORCENTAJE_BENEFICIO_REAL' + DataType = datCurrency end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas index 0492828..e212da2 100644 --- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas +++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas @@ -9,13 +9,13 @@ 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_Valores = '{72B7AEE8-325E-4838-9EFA-4A888B257897}'; - RID_Propiedades = '{204B145C-8E4B-42B5-8305-40B6D02D17A8}'; - RID_ListaAnosContratos = '{A9376B52-1BE5-4374-A5C9-A28ED0A55664}'; - RID_ContratosClienteBeneficios = '{465DF5E0-F5CF-4515-B7DC-B4BE11BE7934}'; - RID_ContratosCliente = '{8CB29C6D-A484-4B0A-8273-424E91DAF879}'; - RID_TiposCapitulos = '{A3D99F24-9CDC-4DC7-A89B-2AC340010C93}'; - RID_ContratosCliente_Detalles = '{421C5A4A-27CD-4656-9DC9-6D2E2E508231}'; + RID_Valores = '{FA28DA02-8C68-4321-8EBF-B87F6681AAFB}'; + RID_Propiedades = '{70A934F6-65E3-46CB-925B-42CF5B2149DA}'; + RID_ListaAnosContratos = '{B946A2C7-5BA5-4907-BBC1-5BF68ADE7D7A}'; + RID_ContratosClienteBeneficios = '{8D457DDB-766A-4BE9-8528-C6CD14B363FF}'; + RID_ContratosCliente = '{9D72F545-BC54-46D8-B947-7942681F5F72}'; + RID_TiposCapitulos = '{A6ED3952-D8BE-4945-B0E6-0445ECB32C46}'; + RID_ContratosCliente_Detalles = '{3ACB6A32-FAD2-45C9-86FF-D681CB3E4D7B}'; { Data table names } nme_Valores = 'Valores'; @@ -64,6 +64,9 @@ const fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR = 'IMPORTE_FACTURAS_PROVEEDOR'; fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO = 'IMPORTE_BENEFICIO'; fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 'PORCENTAJE_BENEFICIO'; + fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_CLIENTE = 'IMPORTE_FACTURAS_CLIENTE'; + fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO_REAL = 'IMPORTE_BENEFICIO_REAL'; + fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO_REAL = 'PORCENTAJE_BENEFICIO_REAL'; { ContratosClienteBeneficios field indexes } idx_ContratosClienteBeneficiosID = 0; @@ -77,6 +80,9 @@ const idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR = 8; idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO = 9; idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 10; + idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_CLIENTE = 11; + idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO_REAL = 12; + idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO_REAL = 13; { ContratosCliente fields } fld_ContratosClienteID = 'ID'; @@ -225,7 +231,7 @@ const type { IValores } IValores = interface(IDAStronglyTypedDataTable) - ['{FAEF0BA9-EE5E-4DBA-8566-920E9D426DC7}'] + ['{22EB6286-F205-40D3-9987-8300E2A9853F}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -284,7 +290,7 @@ type { IPropiedades } IPropiedades = interface(IDAStronglyTypedDataTable) - ['{E0116E85-FA5E-4B34-9EB7-CDD77FBE72DE}'] + ['{569F1642-7C0C-4370-ABF1-DAB4665459DB}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -343,7 +349,7 @@ type { IListaAnosContratos } IListaAnosContratos = interface(IDAStronglyTypedDataTable) - ['{B157E813-9175-49A8-B893-9A9924926C56}'] + ['{04A9E518-9929-4B89-80A8-7E7E5D7095E0}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -378,7 +384,7 @@ type { IContratosClienteBeneficios } IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) - ['{669F62EB-07E0-4A41-9D2A-B8FC81A11A12}'] + ['{324E56F5-35FA-4DCF-9CBD-E7B15B866EEE}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -424,6 +430,18 @@ type procedure SetPORCENTAJE_BENEFICIOValue(const aValue: Currency); function GetPORCENTAJE_BENEFICIOIsNull: Boolean; procedure SetPORCENTAJE_BENEFICIOIsNull(const aValue: Boolean); + function GetIMPORTE_FACTURAS_CLIENTEValue: Currency; + procedure SetIMPORTE_FACTURAS_CLIENTEValue(const aValue: Currency); + function GetIMPORTE_FACTURAS_CLIENTEIsNull: Boolean; + procedure SetIMPORTE_FACTURAS_CLIENTEIsNull(const aValue: Boolean); + function GetIMPORTE_BENEFICIO_REALValue: Currency; + procedure SetIMPORTE_BENEFICIO_REALValue(const aValue: Currency); + function GetIMPORTE_BENEFICIO_REALIsNull: Boolean; + procedure SetIMPORTE_BENEFICIO_REALIsNull(const aValue: Boolean); + function GetPORCENTAJE_BENEFICIO_REALValue: Currency; + procedure SetPORCENTAJE_BENEFICIO_REALValue(const aValue: Currency); + function GetPORCENTAJE_BENEFICIO_REALIsNull: Boolean; + procedure SetPORCENTAJE_BENEFICIO_REALIsNull(const aValue: Boolean); { Properties } @@ -449,6 +467,12 @@ type property IMPORTE_BENEFICIOIsNull: Boolean read GetIMPORTE_BENEFICIOIsNull write SetIMPORTE_BENEFICIOIsNull; property PORCENTAJE_BENEFICIO: Currency read GetPORCENTAJE_BENEFICIOValue write SetPORCENTAJE_BENEFICIOValue; property PORCENTAJE_BENEFICIOIsNull: Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull; + property IMPORTE_FACTURAS_CLIENTE: Currency read GetIMPORTE_FACTURAS_CLIENTEValue write SetIMPORTE_FACTURAS_CLIENTEValue; + property IMPORTE_FACTURAS_CLIENTEIsNull: Boolean read GetIMPORTE_FACTURAS_CLIENTEIsNull write SetIMPORTE_FACTURAS_CLIENTEIsNull; + property IMPORTE_BENEFICIO_REAL: Currency read GetIMPORTE_BENEFICIO_REALValue write SetIMPORTE_BENEFICIO_REALValue; + property IMPORTE_BENEFICIO_REALIsNull: Boolean read GetIMPORTE_BENEFICIO_REALIsNull write SetIMPORTE_BENEFICIO_REALIsNull; + property PORCENTAJE_BENEFICIO_REAL: Currency read GetPORCENTAJE_BENEFICIO_REALValue write SetPORCENTAJE_BENEFICIO_REALValue; + property PORCENTAJE_BENEFICIO_REALIsNull: Boolean read GetPORCENTAJE_BENEFICIO_REALIsNull write SetPORCENTAJE_BENEFICIO_REALIsNull; end; { TContratosClienteBeneficiosDataTableRules } @@ -500,6 +524,18 @@ type procedure SetPORCENTAJE_BENEFICIOValue(const aValue: Currency); virtual; function GetPORCENTAJE_BENEFICIOIsNull: Boolean; virtual; procedure SetPORCENTAJE_BENEFICIOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_FACTURAS_CLIENTEValue: Currency; virtual; + procedure SetIMPORTE_FACTURAS_CLIENTEValue(const aValue: Currency); virtual; + function GetIMPORTE_FACTURAS_CLIENTEIsNull: Boolean; virtual; + procedure SetIMPORTE_FACTURAS_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_BENEFICIO_REALValue: Currency; virtual; + procedure SetIMPORTE_BENEFICIO_REALValue(const aValue: Currency); virtual; + function GetIMPORTE_BENEFICIO_REALIsNull: Boolean; virtual; + procedure SetIMPORTE_BENEFICIO_REALIsNull(const aValue: Boolean); virtual; + function GetPORCENTAJE_BENEFICIO_REALValue: Currency; virtual; + procedure SetPORCENTAJE_BENEFICIO_REALValue(const aValue: Currency); virtual; + function GetPORCENTAJE_BENEFICIO_REALIsNull: Boolean; virtual; + procedure SetPORCENTAJE_BENEFICIO_REALIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -524,6 +560,12 @@ type property IMPORTE_BENEFICIOIsNull: Boolean read GetIMPORTE_BENEFICIOIsNull write SetIMPORTE_BENEFICIOIsNull; property PORCENTAJE_BENEFICIO: Currency read GetPORCENTAJE_BENEFICIOValue write SetPORCENTAJE_BENEFICIOValue; property PORCENTAJE_BENEFICIOIsNull: Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull; + property IMPORTE_FACTURAS_CLIENTE: Currency read GetIMPORTE_FACTURAS_CLIENTEValue write SetIMPORTE_FACTURAS_CLIENTEValue; + property IMPORTE_FACTURAS_CLIENTEIsNull: Boolean read GetIMPORTE_FACTURAS_CLIENTEIsNull write SetIMPORTE_FACTURAS_CLIENTEIsNull; + property IMPORTE_BENEFICIO_REAL: Currency read GetIMPORTE_BENEFICIO_REALValue write SetIMPORTE_BENEFICIO_REALValue; + property IMPORTE_BENEFICIO_REALIsNull: Boolean read GetIMPORTE_BENEFICIO_REALIsNull write SetIMPORTE_BENEFICIO_REALIsNull; + property PORCENTAJE_BENEFICIO_REAL: Currency read GetPORCENTAJE_BENEFICIO_REALValue write SetPORCENTAJE_BENEFICIO_REALValue; + property PORCENTAJE_BENEFICIO_REALIsNull: Boolean read GetPORCENTAJE_BENEFICIO_REALIsNull write SetPORCENTAJE_BENEFICIO_REALIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -533,7 +575,7 @@ type { IContratosCliente } IContratosCliente = interface(IDAStronglyTypedDataTable) - ['{6C9916A4-79AB-4C37-A48C-6012AB24C980}'] + ['{036A6578-3BE5-4535-B2D6-666D13D40ECD}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1099,7 +1141,7 @@ type } { ITiposCapitulos } ITiposCapitulos = interface(IDAStronglyTypedDataTable) - ['{CA80C6D6-6E5B-4E3A-9790-34416A07D6B6}'] + ['{C93A3AC0-EE98-4F02-BFB3-06817133648A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1194,7 +1236,7 @@ type { IContratosCliente_Detalles } IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{01A6BC62-F13E-40FD-A7CA-ACE471474C86}'] + ['{636577F2-0315-43C8-9372-BA688C2E6B72}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1824,6 +1866,69 @@ begin DataTable.Fields[idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO].AsVariant := Null; end; +function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_FACTURAS_CLIENTEValue: Currency; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_CLIENTE].AsCurrency; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_FACTURAS_CLIENTEValue(const aValue: Currency); +begin + DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_CLIENTE].AsCurrency := aValue; +end; + +function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_FACTURAS_CLIENTEIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_CLIENTE].IsNull; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_FACTURAS_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_CLIENTE].AsVariant := Null; +end; + +function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_BENEFICIO_REALValue: Currency; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO_REAL].AsCurrency; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_BENEFICIO_REALValue(const aValue: Currency); +begin + DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO_REAL].AsCurrency := aValue; +end; + +function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_BENEFICIO_REALIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO_REAL].IsNull; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_BENEFICIO_REALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO_REAL].AsVariant := Null; +end; + +function TContratosClienteBeneficiosDataTableRules.GetPORCENTAJE_BENEFICIO_REALValue: Currency; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO_REAL].AsCurrency; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetPORCENTAJE_BENEFICIO_REALValue(const aValue: Currency); +begin + DataTable.Fields[idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO_REAL].AsCurrency := aValue; +end; + +function TContratosClienteBeneficiosDataTableRules.GetPORCENTAJE_BENEFICIO_REALIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO_REAL].IsNull; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetPORCENTAJE_BENEFICIO_REALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO_REAL].AsVariant := Null; +end; + { TContratosClienteDataTableRules } constructor TContratosClienteDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas index c4f08e0..9ebb60c 100644 --- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas +++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas @@ -9,18 +9,18 @@ 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_ValoresDelta = '{70C4BC9D-7C37-4D4D-8DD1-28D18949AFCF}'; - RID_PropiedadesDelta = '{EAC18BA2-1808-42BD-B887-7780E0DE9339}'; - RID_ListaAnosContratosDelta = '{2E6083C4-12F7-4E98-B59D-C5DDBBA65708}'; - RID_ContratosClienteBeneficiosDelta = '{01CD2693-B234-4FED-ABDE-8B8E1C7A2508}'; - RID_ContratosClienteDelta = '{D54F00B0-E8DC-4A66-BE4C-3F39EE74EE66}'; - RID_TiposCapitulosDelta = '{6A3B35F6-2F7A-413B-AB11-9F05935C5774}'; - RID_ContratosCliente_DetallesDelta = '{01D29ED0-F4B1-45DD-A233-C0B689192303}'; + RID_ValoresDelta = '{D32E0D68-A35E-40C0-B392-2D39D3D21953}'; + RID_PropiedadesDelta = '{DCD3B700-14A4-4CD6-AA62-79DA5F6F5856}'; + RID_ListaAnosContratosDelta = '{383E48EC-36B7-42B2-B5CF-D03D68BE3274}'; + RID_ContratosClienteBeneficiosDelta = '{AF389F8F-27E2-41B9-9FDB-38E77D712993}'; + RID_ContratosClienteDelta = '{2153CB43-1F8B-40FD-A227-71C190E7D3B2}'; + RID_TiposCapitulosDelta = '{6FFB3E97-9DBC-4D0B-86BD-3E1B2825C119}'; + RID_ContratosCliente_DetallesDelta = '{31FC6830-EBF5-413C-921E-F2FD6FA71429}'; type { IValoresDelta } IValoresDelta = interface(IValores) - ['{70C4BC9D-7C37-4D4D-8DD1-28D18949AFCF}'] + ['{D32E0D68-A35E-40C0-B392-2D39D3D21953}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PROPIEDADValue : Integer; @@ -78,7 +78,7 @@ type { IPropiedadesDelta } IPropiedadesDelta = interface(IPropiedades) - ['{EAC18BA2-1808-42BD-B887-7780E0DE9339}'] + ['{DCD3B700-14A4-4CD6-AA62-79DA5F6F5856}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -136,7 +136,7 @@ type { IListaAnosContratosDelta } IListaAnosContratosDelta = interface(IListaAnosContratos) - ['{2E6083C4-12F7-4E98-B59D-C5DDBBA65708}'] + ['{383E48EC-36B7-42B2-B5CF-D03D68BE3274}'] { Property getters and setters } function GetOldANOValue : String; @@ -170,7 +170,7 @@ type { IContratosClienteBeneficiosDelta } IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) - ['{01CD2693-B234-4FED-ABDE-8B8E1C7A2508}'] + ['{AF389F8F-27E2-41B9-9FDB-38E77D712993}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREFERENCIAValue : String; @@ -183,6 +183,9 @@ type function GetOldIMPORTE_FACTURAS_PROVEEDORValue : Currency; function GetOldIMPORTE_BENEFICIOValue : Currency; function GetOldPORCENTAJE_BENEFICIOValue : Currency; + function GetOldIMPORTE_FACTURAS_CLIENTEValue : Currency; + function GetOldIMPORTE_BENEFICIO_REALValue : Currency; + function GetOldPORCENTAJE_BENEFICIO_REALValue : Currency; { Properties } property OldID : Integer read GetOldIDValue; @@ -196,6 +199,9 @@ type property OldIMPORTE_FACTURAS_PROVEEDOR : Currency read GetOldIMPORTE_FACTURAS_PROVEEDORValue; property OldIMPORTE_BENEFICIO : Currency read GetOldIMPORTE_BENEFICIOValue; property OldPORCENTAJE_BENEFICIO : Currency read GetOldPORCENTAJE_BENEFICIOValue; + property OldIMPORTE_FACTURAS_CLIENTE : Currency read GetOldIMPORTE_FACTURAS_CLIENTEValue; + property OldIMPORTE_BENEFICIO_REAL : Currency read GetOldIMPORTE_BENEFICIO_REALValue; + property OldPORCENTAJE_BENEFICIO_REAL : Currency read GetOldPORCENTAJE_BENEFICIO_REALValue; end; { TContratosClienteBeneficiosBusinessProcessorRules } @@ -269,6 +275,24 @@ type function GetOldPORCENTAJE_BENEFICIOIsNull: Boolean; virtual; procedure SetPORCENTAJE_BENEFICIOValue(const aValue: Currency); virtual; procedure SetPORCENTAJE_BENEFICIOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_FACTURAS_CLIENTEValue: Currency; virtual; + function GetIMPORTE_FACTURAS_CLIENTEIsNull: Boolean; virtual; + function GetOldIMPORTE_FACTURAS_CLIENTEValue: Currency; virtual; + function GetOldIMPORTE_FACTURAS_CLIENTEIsNull: Boolean; virtual; + procedure SetIMPORTE_FACTURAS_CLIENTEValue(const aValue: Currency); virtual; + procedure SetIMPORTE_FACTURAS_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_BENEFICIO_REALValue: Currency; virtual; + function GetIMPORTE_BENEFICIO_REALIsNull: Boolean; virtual; + function GetOldIMPORTE_BENEFICIO_REALValue: Currency; virtual; + function GetOldIMPORTE_BENEFICIO_REALIsNull: Boolean; virtual; + procedure SetIMPORTE_BENEFICIO_REALValue(const aValue: Currency); virtual; + procedure SetIMPORTE_BENEFICIO_REALIsNull(const aValue: Boolean); virtual; + function GetPORCENTAJE_BENEFICIO_REALValue: Currency; virtual; + function GetPORCENTAJE_BENEFICIO_REALIsNull: Boolean; virtual; + function GetOldPORCENTAJE_BENEFICIO_REALValue: Currency; virtual; + function GetOldPORCENTAJE_BENEFICIO_REALIsNull: Boolean; virtual; + procedure SetPORCENTAJE_BENEFICIO_REALValue(const aValue: Currency); virtual; + procedure SetPORCENTAJE_BENEFICIO_REALIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -315,6 +339,18 @@ type property PORCENTAJE_BENEFICIOIsNull : Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull; property OldPORCENTAJE_BENEFICIO : Currency read GetOldPORCENTAJE_BENEFICIOValue; property OldPORCENTAJE_BENEFICIOIsNull : Boolean read GetOldPORCENTAJE_BENEFICIOIsNull; + property IMPORTE_FACTURAS_CLIENTE : Currency read GetIMPORTE_FACTURAS_CLIENTEValue write SetIMPORTE_FACTURAS_CLIENTEValue; + property IMPORTE_FACTURAS_CLIENTEIsNull : Boolean read GetIMPORTE_FACTURAS_CLIENTEIsNull write SetIMPORTE_FACTURAS_CLIENTEIsNull; + property OldIMPORTE_FACTURAS_CLIENTE : Currency read GetOldIMPORTE_FACTURAS_CLIENTEValue; + property OldIMPORTE_FACTURAS_CLIENTEIsNull : Boolean read GetOldIMPORTE_FACTURAS_CLIENTEIsNull; + property IMPORTE_BENEFICIO_REAL : Currency read GetIMPORTE_BENEFICIO_REALValue write SetIMPORTE_BENEFICIO_REALValue; + property IMPORTE_BENEFICIO_REALIsNull : Boolean read GetIMPORTE_BENEFICIO_REALIsNull write SetIMPORTE_BENEFICIO_REALIsNull; + property OldIMPORTE_BENEFICIO_REAL : Currency read GetOldIMPORTE_BENEFICIO_REALValue; + property OldIMPORTE_BENEFICIO_REALIsNull : Boolean read GetOldIMPORTE_BENEFICIO_REALIsNull; + property PORCENTAJE_BENEFICIO_REAL : Currency read GetPORCENTAJE_BENEFICIO_REALValue write SetPORCENTAJE_BENEFICIO_REALValue; + property PORCENTAJE_BENEFICIO_REALIsNull : Boolean read GetPORCENTAJE_BENEFICIO_REALIsNull write SetPORCENTAJE_BENEFICIO_REALIsNull; + property OldPORCENTAJE_BENEFICIO_REAL : Currency read GetOldPORCENTAJE_BENEFICIO_REALValue; + property OldPORCENTAJE_BENEFICIO_REALIsNull : Boolean read GetOldPORCENTAJE_BENEFICIO_REALIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -324,7 +360,7 @@ type { IContratosClienteDelta } IContratosClienteDelta = interface(IContratosCliente) - ['{D54F00B0-E8DC-4A66-BE4C-3F39EE74EE66}'] + ['{2153CB43-1F8B-40FD-A227-71C190E7D3B2}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -890,7 +926,7 @@ type { ITiposCapitulosDelta } ITiposCapitulosDelta = interface(ITiposCapitulos) - ['{6A3B35F6-2F7A-413B-AB11-9F05935C5774}'] + ['{6FFB3E97-9DBC-4D0B-86BD-3E1B2825C119}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldPOSICIONValue : Integer; @@ -984,7 +1020,7 @@ type { IContratosCliente_DetallesDelta } IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) - ['{01D29ED0-F4B1-45DD-A233-C0B689192303}'] + ['{31FC6830-EBF5-413C-921E-F2FD6FA71429}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTRATOValue : Integer; @@ -1794,6 +1830,99 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO] := Null; end; +function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_FACTURAS_CLIENTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_CLIENTE]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_FACTURAS_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_CLIENTE]); +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_FACTURAS_CLIENTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_CLIENTE]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_FACTURAS_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_CLIENTE]); +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_FACTURAS_CLIENTEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_CLIENTE] := aValue; +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_FACTURAS_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_CLIENTE] := Null; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_BENEFICIO_REALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO_REAL]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_BENEFICIO_REALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO_REAL]); +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_BENEFICIO_REALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO_REAL]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_BENEFICIO_REALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO_REAL]); +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_BENEFICIO_REALValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO_REAL] := aValue; +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_BENEFICIO_REALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO_REAL] := Null; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetPORCENTAJE_BENEFICIO_REALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO_REAL]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetPORCENTAJE_BENEFICIO_REALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO_REAL]); +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldPORCENTAJE_BENEFICIO_REALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO_REAL]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldPORCENTAJE_BENEFICIO_REALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO_REAL]); +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetPORCENTAJE_BENEFICIO_REALValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO_REAL] := aValue; +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetPORCENTAJE_BENEFICIO_REALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO_REAL] := Null; +end; + { TContratosClienteBusinessProcessorRules } constructor TContratosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm index fc5a961..03fadd7 100644 --- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm +++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm @@ -139,8 +139,9 @@ object srvContratosCliente: TsrvContratosCliente SQL = 'SELECT '#10' ID, REFERENCIA, FECHA_CONTRATO, NOMBRE, NIF_CIF, IMP' + 'ORTE_NETO, '#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IMPORTE_FACTU' + - 'RAS_PROVEEDOR, '#10' IMPORTE_BENEFICIO, PORCENTAJE_BENEFICIO'#10' FR' + - 'OM'#10' V_CONTRATOS_BENEFICIOS'#10' WHERE {Where}' + 'RAS_PROVEEDOR, '#10' IMPORTE_BENEFICIO, PORCENTAJE_BENEFICIO, IMP' + + 'ORTE_FACTURAS_CLIENTE,'#10' IMPORTE_BENEFICIO_REAL, PORCENTAJE_BE' + + 'NEFICIO_REAL'#10' FROM'#10' V_CONTRATOS_BENEFICIOS'#10' WHERE {Where}'#10 StatementType = stSQL ColumnMappings = < item @@ -186,6 +187,18 @@ object srvContratosCliente: TsrvContratosCliente item DatasetField = 'PORCENTAJE_BENEFICIO' TableField = 'PORCENTAJE_BENEFICIO' + end + item + DatasetField = 'IMPORTE_FACTURAS_CLIENTE' + TableField = 'IMPORTE_FACTURAS_CLIENTE' + end + item + DatasetField = 'IMPORTE_BENEFICIO_REAL' + TableField = 'IMPORTE_BENEFICIO_REAL' + end + item + DatasetField = 'PORCENTAJE_BENEFICIO_REAL' + TableField = 'PORCENTAJE_BENEFICIO_REAL' end> end> Name = 'ContratosClienteBeneficios' @@ -236,6 +249,18 @@ object srvContratosCliente: TsrvContratosCliente item Name = 'PORCENTAJE_BENEFICIO' DataType = datCurrency + end + item + Name = 'IMPORTE_FACTURAS_CLIENTE' + DataType = datCurrency + end + item + Name = 'IMPORTE_BENEFICIO_REAL' + DataType = datCurrency + end + item + Name = 'PORCENTAJE_BENEFICIO_REAL' + DataType = datCurrency end> end item diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm index 92e62f9..7b3ca44 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm +++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm @@ -43,24 +43,44 @@ inherited frViewContratosClienteBeneficios: TfrViewContratosClienteBeneficios Properties.Alignment.Horz = taRightJustify end object cxGridViewIMPORTE_FACTURAS_PROVEEDOR: TcxGridDBColumn - Caption = 'Importe facturas proveedor' + Caption = 'Imp. fac. proveedor' DataBinding.FieldName = 'IMPORTE_FACTURAS_PROVEEDOR' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify end object cxGridViewIMPORTE_BENEFICIO: TcxGridDBColumn - Caption = 'Importe beneficio' + Caption = 'Imp. beneficio' DataBinding.FieldName = 'IMPORTE_BENEFICIO' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify end object cxGridViewPORCENTAJE_BENEFICIO: TcxGridDBColumn - Caption = 'Porcentaje beneficio' + Caption = '% beneficio' DataBinding.FieldName = 'PORCENTAJE_BENEFICIO' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify Properties.DisplayFormat = ',0.00 %;-,0.00 %' end + object cxGridViewIMPORTE_FACTURAS_CLIENTE: TcxGridDBColumn + Caption = 'Imp. fac. cliente' + DataBinding.FieldName = 'IMPORTE_FACTURAS_CLIENTE' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + end + object cxGridViewIMPORTE_BENEFICIO_REAL: TcxGridDBColumn + Caption = 'Imp. beneficio real' + DataBinding.FieldName = 'IMPORTE_BENEFICIO_REAL' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + Properties.DisplayFormat = ',0.00 '#8364';-,0.00 '#8364 + end + object cxGridViewPORCENTAJE_BENEFICIO_REAL: TcxGridDBColumn + Caption = '% beneficio real' + DataBinding.FieldName = 'PORCENTAJE_BENEFICIO_REAL' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + Properties.DisplayFormat = ',0.00 %;-,0.00 %' + end end end inherited frViewFiltroBase1: TfrViewFiltroBase diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas index 4000958..9d2c717 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas +++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas @@ -27,6 +27,9 @@ type cxGridViewIMPORTE_FACTURAS_PROVEEDOR: TcxGridDBColumn; cxGridViewIMPORTE_BENEFICIO: TcxGridDBColumn; cxGridViewPORCENTAJE_BENEFICIO: TcxGridDBColumn; + cxGridViewIMPORTE_FACTURAS_CLIENTE: TcxGridDBColumn; + cxGridViewIMPORTE_BENEFICIO_REAL: TcxGridDBColumn; + cxGridViewPORCENTAJE_BENEFICIO_REAL: TcxGridDBColumn; procedure CustomViewDestroy(Sender: TObject); private FContratos: IBizContratosClienteBeneficios; diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index 677d11e..19b10a4 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -1194,9 +1194,6 @@ begin AFormasPagoController := TFormasPagoController.Create; AFormaPago := AFormasPagoController.Buscar(AFactura.ID_FORMA_PAGO); AFormaPago.DataTable.Active := True; - if AFormaPago.Plazos.RecordCount = 0 then - Exit; //No hay plazos en la forma de pago en la factura y por lo tanto no se generan recibos - ARecibosClienteController := TRecibosClienteController.Create; //Eliminamos todos los recibos que tuviera la factura porque sabemos que todos @@ -1205,6 +1202,9 @@ begin ARecibos := ARecibosClienteController.BuscarRecibosFactura(AFactura.ID); ARecibosClienteController.EliminarTodo(ARecibos); + if AFormaPago.Plazos.RecordCount = 0 then + Exit; //No hay plazos en la forma de pago en la factura y por lo tanto no se generan recibos + //Se cambia la lógica a peticion de acana, en el caso de meter una fecha de vencimiento, //los plazos de la forma de pago no tendrán efecto, se generará un recibo con el 100% y fecha de vencimiento //de la factura. (Se permitirá para acana poder dar de alta facturas sin recibos asociados) diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index b005ed4..3e30fde 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -484,8 +484,8 @@ object RptFacturasCliente: TRptFacturasCliente 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' + 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' + 'UACION, NIF_CIF, REFERENCIA_CLIENTE, FECHA_FACTURA, BASE_IMPONIB' + - 'LE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where {w' + - 'here}'#10'order by ANO, MES, FECHA_FACTURA, NOMBRE'#10#10 + 'LE, IVA, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_cliente'#10'whe' + + 're {where}'#10'order by ANO, MES, FECHA_FACTURA, NOMBRE'#10#10 StatementType = stSQL ColumnMappings = < item @@ -543,6 +543,10 @@ object RptFacturasCliente: TRptFacturasCliente item DatasetField = 'REFERENCIA_CLIENTE' TableField = 'REFERENCIA_CLIENTE' + end + item + DatasetField = 'IVA' + TableField = 'IVA' end> end> Name = 'ListadoFacturas' @@ -581,7 +585,7 @@ object RptFacturasCliente: TRptFacturasCliente item Name = 'SITUACION' DataType = datString - Size = 19 + Size = 255 end item Name = 'NIF_CIF' @@ -601,6 +605,10 @@ object RptFacturasCliente: TRptFacturasCliente Name = 'BASE_IMPONIBLE' DataType = datCurrency end + item + Name = 'IVA' + DataType = datFloat + end item Name = 'IMPORTE_IVA' DataType = datCurrency @@ -1540,16 +1548,11 @@ object RptFacturasCliente: TRptFacturasCliente EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] - PreviewOptions.OutlineWidth = 180 PreviewOptions.Zoom = 1.000000000000000000 - PrintOptions.Printer = 'Default' + PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 - ReportOptions.CreateDate = 37871.995398692100000000 - ReportOptions.LastChange = 40946.583372962960000000 - ReportOptions.VersionBuild = '1' - ReportOptions.VersionMajor = '12' - ReportOptions.VersionMinor = '13' - ReportOptions.VersionRelease = '1' + ReportOptions.CreateDate = 37800.807714351900000000 + ReportOptions.LastChange = 40959.582460520830000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False @@ -1656,7 +1659,7 @@ object RptFacturasCliente: TRptFacturasCliente item Name = 'SITUACION' DataType = datString - Size = 19 + Size = 255 end item Name = 'NIF_CIF' @@ -1676,6 +1679,10 @@ object RptFacturasCliente: TRptFacturasCliente Name = 'BASE_IMPONIBLE' DataType = datCurrency end + item + Name = 'IVA' + DataType = datFloat + end item Name = 'IMPORTE_IVA' DataType = datCurrency diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm index 1c5e520..f4be71b 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm @@ -2263,6 +2263,10 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente item Caption = 'Listado de recibos' Value = 200 + end + item + Caption = 'Listado facturas/cobros del cliente seleccionado' + Value = 300 end> ButtonBar.Buttons = [cbCancel] MainIcon = tdiCustom diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas index 78e37f1..969367b 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas @@ -117,6 +117,9 @@ begin 200 : begin // Listado de recibos de cliente AGestorInformesController.VerInformeListadoRecibosCliente; end; + 300 : begin // Listado de facturas de cliente + AGestorInformesController.VerInformeListadoFacturasRecibosCli(RecibosCliente.ID_CLIENTE); + end; end; end; diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 9d71c49..7c9375b 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -129,14 +129,14 @@ uses schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', - schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', - schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', - schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas'; + schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', + schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', + schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 2fdf691..24d359e 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ