From 22a2d02820bd9d702eadbe76e6de468a1148d3fb Mon Sep 17 00:00:00 2001 From: david Date: Fri, 26 Sep 2008 14:58:40 +0000 Subject: [PATCH] =?UTF-8?q?Ticket=20#134=20->=20A=C3=B1adir=20en=20factura?= =?UTF-8?q?s=20el=20campo=20de=20cliente=20final?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@630 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Build/Installer.fbp5 | 4 +- Database/scripts/factuges.sql | 5 +- Source/Base/Base.dproj | 102 ++++----- Source/Cliente/FactuGES.dproj | 2 +- Source/Cliente/FactuGES.res | Bin 171984 -> 172156 bytes .../Data/uDataModuleFacturasCliente.dfm | 7 + .../Model/schFacturasClienteClient_Intf.pas | 63 ++++-- .../Model/schFacturasClienteServer_Intf.pas | 51 ++++- .../Servidor/srvFacturasCliente_Impl.dfm | 195 ++++-------------- .../Views/uEditorFacturaCliente.dfm | 112 ++++++---- .../Views/uEditorFacturaCliente.pas | 2 +- .../Views/uViewFacturaCliente.dfm | 122 +++++++++-- .../Views/uViewFacturaCliente.pas | 49 ++++- Source/Servidor/FactuGES_Server.RES | Bin 23212 -> 23212 bytes Source/Servidor/FactuGES_Server.dproj | 3 +- Source/Servidor/FactuGES_Server.rc | 10 +- 16 files changed, 431 insertions(+), 296 deletions(-) diff --git a/Build/Installer.fbp5 b/Build/Installer.fbp5 index 0e437fac..4afcfd95 100644 --- a/Build/Installer.fbp5 +++ b/Build/Installer.fbp5 @@ -1413,7 +1413,7 @@ updateclient_path False 0 1000 - False + True True 2 _aux_xml_document @@ -1468,7 +1468,7 @@ updateclient_path False 0 1000 - False + True True 2 _aux_xml_document diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 9f46715c..0138b601 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -734,7 +734,8 @@ CREATE TABLE FACTURAS_CLIENTE ( ID_TIPO_IVA TIPO_ID, RECARGO_EQUIVALENCIA TIPO_BOOLEANO, ID_COMISION_LIQUIDADA TIPO_ID, - DATOS_BANCARIOS VARCHAR(255) + DATOS_BANCARIOS VARCHAR(255), + CLIENTE_FINAL VARCHAR(255) ); CREATE TABLE FACTURAS_CLIENTE_DETALLES ( @@ -2071,6 +2072,7 @@ CREATE VIEW V_FACTURAS_CLIENTE( PROVINCIA, CODIGO_POSTAL, DATOS_BANCARIOS, + CLIENTE_FINAL, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, @@ -2106,6 +2108,7 @@ SELECT FACTURAS_CLIENTE.ID, FACTURAS_CLIENTE.PROVINCIA, FACTURAS_CLIENTE.CODIGO_POSTAL, FACTURAS_CLIENTE.DATOS_BANCARIOS, + FACTURAS_CLIENTE.CLIENTE_FINAL, FACTURAS_CLIENTE.FECHA_ALTA, FACTURAS_CLIENTE.FECHA_MODIFICACION, FACTURAS_CLIENTE.USUARIO, diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 051a55aa..77e6e01b 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -53,58 +53,58 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfigurarConexion
TForm diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 1a300a25..bba362e5 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -54,7 +54,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1340FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.3.4.0FactuGESFactuGES1.3.4.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1350FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.3.5.0FactuGESFactuGES1.3.5.0 diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 1b72be38ef0851faf192dda962813e7bf92ba26c..357a80d6f72c3ec1fc40a5977c9311cf37ba6c6a 100644 GIT binary patch delta 488 zcmY+9y-or_6otPTS%j6CEh#r4{x=j_86#0+NHnpbhm9H_iW0Q3fz+@X(S{}gG zXlZF_ZRb0X;GLaC;!S2}PR`Fg`}yWh-re4#deNz2*Yn&Qf1}9Zd7#M9aLjFyPa_4I zeBN>&X;?^*Pd^JOeBW~83^)n$8B1E4Vlm;CVKG6%tx%OkrII0i)(;>{xolCt0xq?h zMdN2!qSs558B-Jn8u7t&>d8^^f+F)D8tCwQsJGV~DQj4V{a9n_nxy|T3HKshP+wsX z>FUO&@QP!aTyx2hoIB3x2ySyP-&=01J$#Mymf8t_BE8#Pja{drt`ms!P;_k`Vqcwx vIPKW@ delta 318 zcmYL^J#NB45Jull7BCKq+(dF|DMGlQa3nf}f~b(vP|#z#+#)V0d;p}aFqAn!dMGJ5 zL+TV9014JVvPW8d^X8jb&D>7z<>)3G^(%V!9eHk#Iut!T4-`IMtz2u;Aozaio!jtK zQ`!Yh5R~4J1FeSaZ*8Ke@?N0RP@feJ(`jjjGw3p(my|BSC624XEj*JXRi~3L3ReYz z)%)GE&w`DJ=Af%Ge>)isv|ToLH6KM!p6Q}eVId1M$>dE9%{r5n`OhR&BlEhKvAOIe Jw)y)(J|77)Dt-U} diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm index 3994ac37..4fcfa348 100644 --- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm @@ -186,6 +186,13 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente DisplayLabel = 'Datos bancarios' DictionaryEntry = 'FacturasCliente_DATOS_BANCARIOS' end + item + Name = 'CLIENTE_FINAL' + DataType = datString + Size = 255 + DisplayLabel = 'Cliente final' + DictionaryEntry = 'FacturasCliente_CLIENTE_FINAL' + end item Name = 'FECHA_ALTA' DataType = datDateTime diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas index 082b444f..bf9411ad 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas @@ -9,8 +9,8 @@ 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_FacturasCliente = '{4E42B55F-F2F8-410E-BCE0-62687554F3C8}'; - RID_FacturasCliente_Detalles = '{A0F7CFA0-6C55-4A53-A777-C282018410A6}'; + RID_FacturasCliente = '{905E4452-EC9B-42D6-B7D5-34DD181D5334}'; + RID_FacturasCliente_Detalles = '{76206BC3-9926-4361-A2A2-23CD55C558FD}'; { Data table names } nme_FacturasCliente = 'FacturasCliente'; @@ -41,6 +41,7 @@ const fld_FacturasClientePROVINCIA = 'PROVINCIA'; fld_FacturasClienteCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_FacturasClienteDATOS_BANCARIOS = 'DATOS_BANCARIOS'; + fld_FacturasClienteCLIENTE_FINAL = 'CLIENTE_FINAL'; fld_FacturasClienteFECHA_ALTA = 'FECHA_ALTA'; fld_FacturasClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_FacturasClienteUSUARIO = 'USUARIO'; @@ -77,16 +78,17 @@ const idx_FacturasClientePROVINCIA = 21; idx_FacturasClienteCODIGO_POSTAL = 22; idx_FacturasClienteDATOS_BANCARIOS = 23; - idx_FacturasClienteFECHA_ALTA = 24; - idx_FacturasClienteFECHA_MODIFICACION = 25; - idx_FacturasClienteUSUARIO = 26; - idx_FacturasClienteID_FORMA_PAGO = 27; - idx_FacturasClienteRECARGO_EQUIVALENCIA = 28; - idx_FacturasClienteID_TIPO_IVA = 29; - idx_FacturasClienteIMPORTE_NETO = 30; - idx_FacturasClienteIMPORTE_PORTE = 31; - idx_FacturasClienteID_AGENTE = 32; - idx_FacturasClienteREFERENCIA_COMISION = 33; + idx_FacturasClienteCLIENTE_FINAL = 24; + idx_FacturasClienteFECHA_ALTA = 25; + idx_FacturasClienteFECHA_MODIFICACION = 26; + idx_FacturasClienteUSUARIO = 27; + idx_FacturasClienteID_FORMA_PAGO = 28; + idx_FacturasClienteRECARGO_EQUIVALENCIA = 29; + idx_FacturasClienteID_TIPO_IVA = 30; + idx_FacturasClienteIMPORTE_NETO = 31; + idx_FacturasClienteIMPORTE_PORTE = 32; + idx_FacturasClienteID_AGENTE = 33; + idx_FacturasClienteREFERENCIA_COMISION = 34; { FacturasCliente_Detalles fields } fld_FacturasCliente_DetallesID = 'ID'; @@ -125,7 +127,7 @@ const type { IFacturasCliente } IFacturasCliente = interface(IDAStronglyTypedDataTable) - ['{ED9B9F34-C0EB-4988-B293-1D0482D48E72}'] + ['{A8586B84-68BF-45F1-8B9D-31CE5E7D3E9C}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -222,6 +224,10 @@ type procedure SetDATOS_BANCARIOSValue(const aValue: String); function GetDATOS_BANCARIOSIsNull: Boolean; procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); + function GetCLIENTE_FINALValue: String; + procedure SetCLIENTE_FINALValue(const aValue: String); + function GetCLIENTE_FINALIsNull: Boolean; + procedure SetCLIENTE_FINALIsNull(const aValue: Boolean); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_ALTAIsNull: Boolean; @@ -313,6 +319,8 @@ type property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; + property CLIENTE_FINAL: String read GetCLIENTE_FINALValue write SetCLIENTE_FINALValue; + property CLIENTE_FINALIsNull: Boolean read GetCLIENTE_FINALIsNull write SetCLIENTE_FINALIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; @@ -437,6 +445,10 @@ type procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; function GetDATOS_BANCARIOSIsNull: Boolean; virtual; procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; + function GetCLIENTE_FINALValue: String; virtual; + procedure SetCLIENTE_FINALValue(const aValue: String); virtual; + function GetCLIENTE_FINALIsNull: Boolean; virtual; + procedure SetCLIENTE_FINALIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; @@ -527,6 +539,8 @@ type property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; + property CLIENTE_FINAL: String read GetCLIENTE_FINALValue write SetCLIENTE_FINALValue; + property CLIENTE_FINALIsNull: Boolean read GetCLIENTE_FINALIsNull write SetCLIENTE_FINALIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; @@ -556,7 +570,7 @@ type { IFacturasCliente_Detalles } IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{164E9DC0-C0D9-4ABB-A06C-B3731839929F}'] + ['{304C4E66-6E40-44E9-8AC0-E82711020403}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1283,6 +1297,27 @@ begin DataTable.Fields[idx_FacturasClienteDATOS_BANCARIOS].AsVariant := Null; end; +function TFacturasClienteDataTableRules.GetCLIENTE_FINALValue: String; +begin + result := DataTable.Fields[idx_FacturasClienteCLIENTE_FINAL].AsString; +end; + +procedure TFacturasClienteDataTableRules.SetCLIENTE_FINALValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasClienteCLIENTE_FINAL].AsString := aValue; +end; + +function TFacturasClienteDataTableRules.GetCLIENTE_FINALIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasClienteCLIENTE_FINAL].IsNull; +end; + +procedure TFacturasClienteDataTableRules.SetCLIENTE_FINALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasClienteCLIENTE_FINAL].AsVariant := Null; +end; + function TFacturasClienteDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_FacturasClienteFECHA_ALTA].AsDateTime; diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas index 34c47898..c53e1c8a 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas @@ -9,13 +9,13 @@ 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_FacturasClienteDelta = '{DF1FD699-5232-4833-B096-A6497A86329D}'; - RID_FacturasCliente_DetallesDelta = '{F24D2321-3AF8-4E72-BC06-4F35B3F688BF}'; + RID_FacturasClienteDelta = '{E6D0EAB3-B50E-445C-8F6D-111617271847}'; + RID_FacturasCliente_DetallesDelta = '{DE5E67CA-CF82-423B-8D29-7708BEFF1F3E}'; type { IFacturasClienteDelta } IFacturasClienteDelta = interface(IFacturasCliente) - ['{DF1FD699-5232-4833-B096-A6497A86329D}'] + ['{E6D0EAB3-B50E-445C-8F6D-111617271847}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -41,6 +41,7 @@ type function GetOldPROVINCIAValue : String; function GetOldCODIGO_POSTALValue : String; function GetOldDATOS_BANCARIOSValue : String; + function GetOldCLIENTE_FINALValue : String; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; @@ -77,6 +78,7 @@ type property OldPROVINCIA : String read GetOldPROVINCIAValue; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; + property OldCLIENTE_FINAL : String read GetOldCLIENTE_FINALValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; @@ -239,6 +241,12 @@ type function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual; procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; + function GetCLIENTE_FINALValue: String; virtual; + function GetCLIENTE_FINALIsNull: Boolean; virtual; + function GetOldCLIENTE_FINALValue: String; virtual; + function GetOldCLIENTE_FINALIsNull: Boolean; virtual; + procedure SetCLIENTE_FINALValue(const aValue: String); virtual; + procedure SetCLIENTE_FINALIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; @@ -397,6 +405,10 @@ type property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull; + property CLIENTE_FINAL : String read GetCLIENTE_FINALValue write SetCLIENTE_FINALValue; + property CLIENTE_FINALIsNull : Boolean read GetCLIENTE_FINALIsNull write SetCLIENTE_FINALIsNull; + property OldCLIENTE_FINAL : String read GetOldCLIENTE_FINALValue; + property OldCLIENTE_FINALIsNull : Boolean read GetOldCLIENTE_FINALIsNull; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; @@ -446,7 +458,7 @@ type { IFacturasCliente_DetallesDelta } IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) - ['{F24D2321-3AF8-4E72-BC06-4F35B3F688BF}'] + ['{DE5E67CA-CF82-423B-8D29-7708BEFF1F3E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -1414,6 +1426,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDATOS_BANCARIOS] := Null; end; +function TFacturasClienteBusinessProcessorRules.GetCLIENTE_FINALValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCLIENTE_FINAL]; +end; + +function TFacturasClienteBusinessProcessorRules.GetCLIENTE_FINALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCLIENTE_FINAL]); +end; + +function TFacturasClienteBusinessProcessorRules.GetOldCLIENTE_FINALValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCLIENTE_FINAL]; +end; + +function TFacturasClienteBusinessProcessorRules.GetOldCLIENTE_FINALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCLIENTE_FINAL]); +end; + +procedure TFacturasClienteBusinessProcessorRules.SetCLIENTE_FINALValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCLIENTE_FINAL] := aValue; +end; + +procedure TFacturasClienteBusinessProcessorRules.SetCLIENTE_FINALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCLIENTE_FINAL] := Null; +end; + function TFacturasClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_ALTA]; diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm index e467d3e0..2c93b154 100644 --- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm +++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm @@ -157,6 +157,10 @@ object srvFacturasCliente: TsrvFacturasCliente item DatasetField = 'DATOS_BANCARIOS' TableField = 'DATOS_BANCARIOS' + end + item + DatasetField = 'CLIENTE_FINAL' + TableField = 'CLIENTE_FINAL' end> end> Name = 'FacturasCliente' @@ -294,6 +298,12 @@ object srvFacturasCliente: TsrvFacturasCliente Size = 255 DictionaryEntry = 'FacturasCliente_DATOS_BANCARIOS' end + item + Name = 'CLIENTE_FINAL' + DataType = datString + Size = 255 + DictionaryEntry = 'FacturasCliente_CLIENTE_FINAL' + end item Name = 'FECHA_ALTA' DataType = datDateTime @@ -722,13 +732,6 @@ object srvFacturasCliente: TsrvFacturasCliente end item Params = < - item - Name = 'DATOS_BANCARIOS' - DataType = datString - Size = 255 - Value = '' - ParamType = daptInput - end item Name = 'ID' DataType = datAutoInc @@ -737,173 +740,119 @@ object srvFacturasCliente: TsrvFacturasCliente end item Name = 'ID_EMPRESA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'REFERENCIA' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'FECHA_FACTURA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'BASE_IMPONIBLE' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'DESCUENTO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_DESCUENTO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IVA' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_IVA' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'RE' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_RE' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_TOTAL' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'OBSERVACIONES' - DataType = datMemo Value = '' - ParamType = daptInput end item Name = 'ID_CLIENTE' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'NIF_CIF' - DataType = datString - Size = 15 Value = '' - ParamType = daptInput end item Name = 'NOMBRE' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'CALLE' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'POBLACION' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'PROVINCIA' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'CODIGO_POSTAL' - DataType = datString - Size = 10 Value = '' - ParamType = daptInput end item Name = 'FECHA_ALTA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'FECHA_MODIFICACION' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'USUARIO' - DataType = datString - Size = 20 Value = '' - ParamType = daptInput end item Name = 'ID_FORMA_PAGO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'RECARGO_EQUIVALENCIA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_TIPO_IVA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'IMPORTE_NETO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_PORTE' - DataType = datFloat Value = '' - ParamType = daptInput + end + item + Name = 'DATOS_BANCARIOS' + Value = '' + end + item + Name = 'CLIENTE_FINAL' + Value = '' end> Statements = < item @@ -918,16 +867,16 @@ object srvFacturasCliente: TsrvFacturasCliente 'NIF_CIF,'#10' NOMBRE,'#10' CALLE,'#10' POBLACION,'#10' PROVINCIA,'#10' ' + ' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USU' + 'ARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_I' + - 'VA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DATOS_BANCARIOS)'#10' ' + - 'VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_F' + - 'ACTURA,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUE' + - 'NTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :' + - 'IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF' + - ','#10' :NOMBRE,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :' + - 'CODIGO_POSTAL,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :US' + - 'UARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TI' + - 'PO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :DATOS_BANCAR' + - 'IOS);'#10 + 'VA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DATOS_BANCARIOS,'#10' ' + + ' CLIENTE_FINAL)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFER' + + 'ENCIA,'#10' :FECHA_FACTURA,'#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_CL' + + 'IENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :CALLE,'#10' :POBLACION,'#10' ' + + ' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,'#10' :FECHA_MO' + + 'DIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIV' + + 'ALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE' + + ','#10' :DATOS_BANCARIOS,'#10' :CLIENTE_FINAL);'#10 StatementType = stSQL ColumnMappings = <> end> @@ -935,188 +884,125 @@ object srvFacturasCliente: TsrvFacturasCliente end item Params = < - item - Name = 'DATOS_BANCARIOS' - DataType = datString - Size = 255 - Value = '' - ParamType = daptInput - end item Name = 'ID_EMPRESA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'REFERENCIA' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'FECHA_FACTURA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'BASE_IMPONIBLE' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'DESCUENTO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_DESCUENTO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IVA' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_IVA' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'RE' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_RE' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_TOTAL' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'OBSERVACIONES' - DataType = datMemo Value = '' - ParamType = daptInput end item Name = 'ID_CLIENTE' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'NIF_CIF' - DataType = datString - Size = 15 Value = '' - ParamType = daptInput end item Name = 'NOMBRE' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'CALLE' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'POBLACION' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'PROVINCIA' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'CODIGO_POSTAL' - DataType = datString - Size = 10 Value = '' - ParamType = daptInput end item Name = 'FECHA_ALTA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'FECHA_MODIFICACION' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'USUARIO' - DataType = datString - Size = 20 Value = '' - ParamType = daptInput end item Name = 'ID_FORMA_PAGO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'RECARGO_EQUIVALENCIA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_TIPO_IVA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'IMPORTE_NETO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_PORTE' - DataType = datFloat Value = '' - ParamType = daptInput + end + item + Name = 'DATOS_BANCARIOS' + Value = '' + end + item + Name = 'CLIENTE_FINAL' + Value = '' end item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -1137,7 +1023,8 @@ object srvFacturasCliente: TsrvFacturasCliente 'O = :ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALE' + 'NCIA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORT' + 'E_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' DATOS_BANCARIOS ' + - '= :DATOS_BANCARIOS'#10' WHERE'#10' (ID = :OLD_ID);'#10 + '= :DATOS_BANCARIOS,'#10' CLIENTE_FINAL = :CLIENTE_FINAL'#10' WHERE'#10' ' + + ' (ID = :OLD_ID);'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1206,6 +1093,12 @@ object srvFacturasCliente: TsrvFacturasCliente end object DataDictionary: TDADataDictionary Fields = < + item + Name = 'FacturasCliente_CLIENTE_FINAL' + DataType = datString + Size = 255 + DisplayLabel = 'Cliente final' + end item Name = 'FacturasCliente_ID' DataType = datAutoInc diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm index f00e5ead..2fffa83d 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm @@ -37,6 +37,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente 454E44AE426082} ExplicitLeft = 742 end + inherited lblDesbloquear: TcxLabel + Left = 687 + ExplicitLeft = 499 + end end inherited TBXDock: TTBXDock Width = 812 @@ -115,6 +119,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente DesignSize = ( 798 316) + inherited Label1: TLabel + Left = 439 + Width = 311 + ExplicitLeft = 439 + ExplicitWidth = 311 + end inherited eReferencia: TcxDBTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' @@ -142,9 +152,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Width = 445 end inherited frViewClienteFactura: TfrViewDatosYSeleccionCliente - Left = 485 + Left = 428 Width = 298 - ExplicitLeft = 485 + ExplicitLeft = 428 ExplicitWidth = 298 inherited dxLayoutControl1: TdxLayoutControl Width = 298 @@ -196,17 +206,17 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Width = 224 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 199 + Left = 239 DataBinding.DataSource = frViewFacturaCliente1.DADataSource Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 199 + ExplicitLeft = 239 end inherited Button3: TBitBtn - Left = 89 - ExplicitLeft = 89 + Left = 129 + ExplicitLeft = 129 end end end @@ -219,8 +229,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Width = 205 end inherited bFormasPago: TButton - Left = 325 - ExplicitLeft = 325 + Left = 268 + ExplicitLeft = 268 end inherited cbCuentaBancaria: TcxDBComboBox Style.LookAndFeel.SkinName = '' @@ -230,6 +240,20 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ExplicitWidth = 343 Width = 343 end + inherited cbClienteFinal: TcxDBTextEdit + Left = 439 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 439 + ExplicitWidth = 339 + Width = 339 + end + inherited bElegirClienteFinal: TButton + Left = 725 + ExplicitLeft = 725 + end end end end @@ -268,13 +292,14 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ExplicitLeft = 278 ExplicitTop = 0 end - inherited ToolButton14: TToolButton [4] + inherited ToolButton14: TToolButton Left = 334 Top = 0 + Wrap = False ExplicitLeft = 334 ExplicitTop = 0 end - inherited FontName: TJvFontComboBox [5] + inherited FontName: TJvFontComboBox Left = 399 Top = 0 ExplicitLeft = 399 @@ -283,18 +308,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente inherited FontSize: TEdit Left = 544 Top = 0 - Width = 136 + Width = 152 ExplicitLeft = 544 ExplicitTop = 0 - ExplicitWidth = 136 + ExplicitWidth = 152 end - inherited UpDown1: TUpDown - Left = 680 - Top = 0 - ExplicitLeft = 680 - ExplicitTop = 0 - end - inherited ToolButton13: TToolButton + inherited ToolButton13: TToolButton [7] Left = 0 Top = 0 Wrap = True @@ -302,47 +321,52 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ExplicitTop = 0 ExplicitHeight = 27 end - inherited ToolButton6: TToolButton [9] + inherited UpDown1: TUpDown [8] Left = 0 Top = 27 ExplicitLeft = 0 ExplicitTop = 27 end - inherited ToolButton7: TToolButton [10] - Left = 66 + inherited ToolButton6: TToolButton + Left = 17 Top = 27 - ExplicitLeft = 66 + ExplicitLeft = 17 ExplicitTop = 27 end - inherited ToolButton8: TToolButton [11] - Left = 133 + inherited ToolButton7: TToolButton + Left = 83 Top = 27 - ExplicitLeft = 133 + ExplicitLeft = 83 ExplicitTop = 27 end - inherited ToolButton12: TToolButton [12] - Left = 216 + inherited ToolButton8: TToolButton + Left = 150 Top = 27 - ExplicitLeft = 216 - ExplicitTop = 27 - ExplicitHeight = 22 - end - inherited ToolButton9: TToolButton [13] - Left = 224 - Top = 27 - ExplicitLeft = 224 + ExplicitLeft = 150 ExplicitTop = 27 end - inherited ToolButton10: TToolButton [14] - Left = 369 + inherited ToolButton12: TToolButton + Left = 233 Top = 27 - ExplicitLeft = 369 + ExplicitLeft = 233 ExplicitTop = 27 end - inherited ToolButton11: TToolButton [15] - Left = 494 + inherited ToolButton9: TToolButton + Left = 241 Top = 27 - ExplicitLeft = 494 + ExplicitLeft = 241 + ExplicitTop = 27 + end + inherited ToolButton10: TToolButton + Left = 386 + Top = 27 + ExplicitLeft = 386 + ExplicitTop = 27 + end + inherited ToolButton11: TToolButton + Left = 511 + Top = 27 + ExplicitLeft = 511 ExplicitTop = 27 end end @@ -351,14 +375,14 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Width = 798 Height = 239 ExplicitTop = 77 - ExplicitWidth = 815 + ExplicitWidth = 798 ExplicitHeight = 239 end inherited TBXDock1: TTBXDock Top = 51 Width = 798 ExplicitTop = 51 - ExplicitWidth = 815 + ExplicitWidth = 798 inherited TBXToolbar1: TTBXToolbar ExplicitWidth = 702 end diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas index c9e99ee5..5c5dce73 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas @@ -17,7 +17,7 @@ uses uViewDetallesFacturaCliente, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uDAInterfaces, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Grids, DBGrids, - uViewDetallesArticulosParaVenta; + uViewDetallesArticulosParaVenta, cxLabel; type diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm index f76b0a68..f9979d07 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 = 451 - Height = 304 + Width = 828 + Height = 525 Align = alClient OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy @@ -9,17 +9,29 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 - Width = 451 - Height = 304 + Width = 828 + Height = 525 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 + ExplicitWidth = 451 + ExplicitHeight = 304 DesignSize = ( - 451 - 304) + 828 + 525) + object Label1: TLabel + Left = 421 + Top = 270 + Width = 311 + Height = 26 + Caption = + 'Opcionalmente, puede escribir el nombre del cliente final de est' + + 'e presupuesto o elegirlo de la lista de clientes.' + WordWrap = True + end object eReferencia: TcxDBTextEdit Left = 124 Top = 30 @@ -89,13 +101,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 5 - Height = 124 - Width = 267 + Height = 345 + Width = 355 end inline frViewClienteFactura: TfrViewDatosYSeleccionCliente - Left = 317 + Left = 410 Top = 30 - Width = 112 + Width = 294 Height = 215 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -105,12 +117,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente ParentFont = False TabOrder = 6 ReadOnly = False - ExplicitLeft = 317 + ExplicitLeft = 410 ExplicitTop = 30 - ExplicitWidth = 112 + ExplicitWidth = 294 ExplicitHeight = 215 inherited dxLayoutControl1: TdxLayoutControl - Width = 112 + Width = 294 Height = 215 ExplicitWidth = 112 ExplicitHeight = 215 @@ -160,17 +172,17 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 210 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 192 + Left = 304 DataBinding.DataSource = DADataSource Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 192 + ExplicitLeft = 304 end inherited Button3: TBitBtn - Left = 82 - ExplicitLeft = 82 + Left = 194 + ExplicitLeft = 194 end end end @@ -211,7 +223,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 27 end object bFormasPago: TButton - Left = 157 + Left = 250 Top = 84 Width = 132 Height = 23 @@ -240,6 +252,42 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente TabOrder = 4 Width = 165 end + object cbClienteFinal: TcxDBTextEdit + Left = 421 + Top = 304 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'CLIENTE_FINAL' + DataBinding.DataSource = DADataSource + Properties.ReadOnly = False + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clWindow + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 7 + Width = 339 + end + object bElegirClienteFinal: TButton + Left = 772 + Top = 302 + Width = 23 + Height = 25 + Action = actElegirClienteFinal + TabOrder = 8 + end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True @@ -323,6 +371,35 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end + object dxLayoutControl1Group7: TdxLayoutGroup + Caption = 'Cliente final' + object dxLayoutControl1Item7: TdxLayoutItem + ShowCaption = False + Control = Label1 + ControlOptions.AutoColor = True + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Group8: TdxLayoutGroup + ShowCaption = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item8: TdxLayoutItem + AutoAligns = [] + AlignHorz = ahClient + AlignVert = avCenter + Control = cbClienteFinal + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item9: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahRight + ShowCaption = False + Control = bElegirClienteFinal + ControlOptions.ShowBorder = False + end + end + end end end end @@ -347,4 +424,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Left = 16 Top = 24 end + object ActionList1: TActionList + Left = 16 + Top = 96 + object actElegirClienteFinal: TAction + Caption = '...' + OnExecute = actElegirClienteFinalExecute + OnUpdate = actElegirClienteFinalUpdate + end + end end diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas index 2aaea5e9..ccb1809f 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas @@ -9,7 +9,8 @@ uses cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, dxLayoutControl, cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxSpinEdit, StdCtrls, Mask, DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, - cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, uBizFormasPago; + cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, uBizFormasPago, + ActnList; type IViewFacturaCliente = interface(IViewBase) @@ -46,9 +47,21 @@ type dxLayoutControl1Item3: TdxLayoutItem; cbCuentaBancaria: TcxDBComboBox; dxLayoutControl1Group4: TdxLayoutGroup; + dxLayoutControl1Item7: TdxLayoutItem; + Label1: TLabel; + dxLayoutControl1Item8: TdxLayoutItem; + cbClienteFinal: TcxDBTextEdit; + dxLayoutControl1Item9: TdxLayoutItem; + bElegirClienteFinal: TButton; + dxLayoutControl1Group7: TdxLayoutGroup; + dxLayoutControl1Group8: TdxLayoutGroup; + ActionList1: TActionList; + actElegirClienteFinal: TAction; procedure bFormasPagoClick(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); procedure CustomViewCreate(Sender: TObject); + procedure actElegirClienteFinalExecute(Sender: TObject); + procedure actElegirClienteFinalUpdate(Sender: TObject); protected FFactura : IBizFacturaCliente; FFormasPago : IBizFormaPago; @@ -65,12 +78,44 @@ implementation uses uDataModuleContactos, schFacturasClienteClient_Intf, uFactuGES_App, - uEmpresasController; + uEmpresasController, uClientesController, uBizContactos, uBizDireccionesContacto; {$R *.dfm} { TfrViewFacturaCliente } +procedure TfrViewFacturaCliente.actElegirClienteFinalExecute(Sender: TObject); +var + ACliente : IBizCliente; + AClienteController : IClientesController; +begin + inherited; + AClienteController := TClientesController.Create; + try + ACliente := (AClienteController.ElegirContacto(AClienteController.BuscarTodos, + 'Elija el cliente final de esta factura', False) as IBizCliente); + if Assigned(ACliente) then + begin + ShowHourglassCursor; + try + FFactura.Edit; + FFactura.CLIENTE_FINAL := ACliente.NOMBRE; + finally + HideHourglassCursor; + end; + end; + finally + ACliente := NIL; + AClienteController := NIL; + end; +end; + +procedure TfrViewFacturaCliente.actElegirClienteFinalUpdate(Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := (not ReadOnly); +end; + procedure TfrViewFacturaCliente.bFormasPagoClick(Sender: TObject); begin inherited; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 9a3910fa395c383ac592a19bed85d5e7d6ec6d7e..7a5a1511b60a7dbcfc17a220f0191ed6c7ec8555 100644 GIT binary patch delta 95 zcmZ3pm2u5h#tlZ1oU9DY42%p646Ku_BV`!{CPzjpGrpNz8)?sII(cuTF}Ep$9)kf; wzJNhv^6yAl(K3cihE#?khCCoy%%H=dz+l8+Hd#B$klmEQ3dlB{oEqg00Bz(JIRF3v delta 95 zcmZ3pm2u5h#tlZ1oGc8?42%p63@nqaBV`%+CPzjpGrpQ!8)?sIGI?*LF}DeW9)kf; xK950t^6yAl;VgzyhE#?!ATDOmVNhT&VlbVo8)e98!C=K;!eGh3FgZ2K9ROy-70v(v diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 1c5082e6..49b6fd71 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -35,7 +35,7 @@ Delphi.Personality - FalseTrueFalse/standaloneTrueFalse1340FalseFalseFalseFalseFalse308212521.3.4.01.3.4.0viernes, 19 de septiembre de 2008 17:48FactuGES_Server.dpr + FalseTrueFalse/standaloneTrueFalse1350FalseFalseFalseFalseFalse308212521.3.5.01.3.5.0viernes, 26 de septiembre de 2008 14:47FactuGES_Server.dpr @@ -143,7 +143,6 @@ -
srvGestorDocumentos
TDataAbstractService diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 1d911254..639f508d 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico" 1 VERSIONINFO -FILEVERSION 1,3,4,0 -PRODUCTVERSION 1,3,4,0 +FILEVERSION 1,3,5,0 +PRODUCTVERSION 1,3,5,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -12,9 +12,9 @@ BEGIN BEGIN BLOCK "0C0A04E4" BEGIN - VALUE "FileVersion", "1.3.4.0\0" - VALUE "ProductVersion", "1.3.4.0\0" - VALUE "CompileDate", "jueves, 25 de septiembre de 2008 18:49\0" + VALUE "FileVersion", "1.3.5.0\0" + VALUE "ProductVersion", "1.3.5.0\0" + VALUE "CompileDate", "viernes, 26 de septiembre de 2008 15:25\0" END END BLOCK "VarFileInfo"