From a5db1dab1419218499f33193ba2e8a04442e02fb Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 6 Oct 2009 15:35:16 +0000 Subject: [PATCH] =?UTF-8?q?Se=20adaptan=20las=20facturas=20de=20cliente=20?= =?UTF-8?q?para=20que=20se=20pueda=20a=C3=B1adir=20un=20descuento=20genera?= =?UTF-8?q?l=20a=20parte=20del=20de=20la=20linea=20de=20detalle?= 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.LuisLeon_FactuGES/trunk@324 c93665c3-c93d-084d-9b98-7d5f4a9c3376 --- Database/VISTAS.SQL | 2 + Database/factuges.sql | 1 + Source/Base/GUIBase/GUIBase.bdsproj | 3 +- Source/Base/GUIBase/GUIBase.res | Bin 384 -> 4748 bytes Source/Cliente/FactuGES.bdsproj | 6 +- Source/Cliente/FactuGES.res | Bin 171932 -> 172140 bytes .../Data/uDataModuleFacturasCliente.dfm | 12 + .../Model/schFacturasClienteClient_Intf.pas | 168 ++++++----- .../Model/schFacturasClienteServer_Intf.pas | 68 ++++- .../Reports/uRptFacturasCliente_Server.dfm | 110 ++++--- .../Reports/uRptFacturasCliente_Server.pas | 4 +- .../Servidor/srvFacturasCliente_Impl.dfm | 132 ++++++--- .../Views/FacturasCliente_view.dpk | 7 +- .../Views/FacturasCliente_view.res | Bin 384 -> 4748 bytes .../Views/uEditorFacturaCliente.dfm | 270 +++++++++++------- .../Views/uEditorFacturaCliente.pas | 6 +- .../Views/uViewTotalesFacturaCliente.dfm | 139 +++++++++ .../Views/uViewTotalesFacturaCliente.pas | 29 ++ Source/Servidor/FactuGES_Server.bdsproj | 19 +- Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.drc | 202 ++++++------- Source/Servidor/FactuGES_Server.res | Bin 23344 -> 23552 bytes 22 files changed, 795 insertions(+), 389 deletions(-) create mode 100644 Source/Modulos/Facturas de cliente/Views/uViewTotalesFacturaCliente.dfm create mode 100644 Source/Modulos/Facturas de cliente/Views/uViewTotalesFacturaCliente.pas diff --git a/Database/VISTAS.SQL b/Database/VISTAS.SQL index 1b49abcf..ba8fc5f5 100644 --- a/Database/VISTAS.SQL +++ b/Database/VISTAS.SQL @@ -928,6 +928,7 @@ CREATE VIEW V_FACTURAS_CLIENTE( BASE_IMPONIBLE, DESCUENTO, IMPORTE_DESCUENTO, + DESCRIPCION_DESCUENTO, IVA, IMPORTE_IVA, RE, @@ -964,6 +965,7 @@ SELECT FACTURAS_CLIENTE.ID, FACTURAS_CLIENTE.BASE_IMPONIBLE, FACTURAS_CLIENTE.DESCUENTO, FACTURAS_CLIENTE.IMPORTE_DESCUENTO, + FACTURAS_CLIENTE.DESCRIPCION_DESCUENTO, FACTURAS_CLIENTE.IVA, FACTURAS_CLIENTE.IMPORTE_IVA, FACTURAS_CLIENTE.RE, diff --git a/Database/factuges.sql b/Database/factuges.sql index c965a060..cf61d2a0 100644 --- a/Database/factuges.sql +++ b/Database/factuges.sql @@ -471,6 +471,7 @@ CREATE TABLE FACTURAS_CLIENTE ( BASE_IMPONIBLE TIPO_IMPORTE, DESCUENTO TIPO_PORCENTAJE, IMPORTE_DESCUENTO TIPO_IMPORTE, + DESCRIPCION_DESCUENTO VARCHAR(255) COLLATE ES_ES, IVA TIPO_PORCENTAJE, IMPORTE_IVA TIPO_IMPORTE, RE TIPO_PORCENTAJE, diff --git a/Source/Base/GUIBase/GUIBase.bdsproj b/Source/Base/GUIBase/GUIBase.bdsproj index 52b5e8c7..af1363d7 100644 --- a/Source/Base/GUIBase/GUIBase.bdsproj +++ b/Source/Base/GUIBase/GUIBase.bdsproj @@ -170,7 +170,8 @@ 1.0.0.0 - + + RemObjects Data Abstract - IDE Package SMImport suite: data importing into dataset. Scalabium/Mike Shkolnik, 2000-2005 SMExport suite: data export from dataset. Written by Mike Shkolnik/Scalabium, 1998-2004. diff --git a/Source/Base/GUIBase/GUIBase.res b/Source/Base/GUIBase/GUIBase.res index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP delta 11 ScmeBCZD5|Duvteife`=|>;pCc diff --git a/Source/Cliente/FactuGES.bdsproj b/Source/Cliente/FactuGES.bdsproj index b59f2601..3d59982c 100644 --- a/Source/Cliente/FactuGES.bdsproj +++ b/Source/Cliente/FactuGES.bdsproj @@ -149,7 +149,7 @@ False 3 3 - 5 + 6 0 False False @@ -162,13 +162,13 @@ Rodax Software S.L. - 3.3.5.0 + 3.3.6.0 FactuGES - 3.3.5.0 + 3.3.6.0 Muststang Peak EasyListview Runtime Package diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 65ffd167b483b28bbecf80f930c74949ba7650a4..d09fa540d07c6070d365ed9f8a2d68e659438c03 100644 GIT binary patch delta 522 zcmY+9OG^S#7>1uY>ZFszEZsE}-8Tl&Mk1*Qq38mxOS_;_rkE{S>7s=Tm%(gu-1-CB zMlJmv?E?RUeKTiF`ryntFYo1h=k3!PeOc`n<6T92E!(z|{Ea~p+XjO;<(PkKM-q|+fc2QwiOZi!1-l+F62!|EO+$mKNZe1;_U0xJLZp2rWyTP4on~c_;h8Y#v>nBf|`KT(sU>p{L0%szwN!*iEZgMh} OxbuCrDP_<5>gX3_a7bSO delta 319 zcmY+9u}Z^G6o$WhlGHR7$s%Ov5D_thLk69sv^WJ^oojLOEzIDM2N3RJ5=S4vv7n>R z;oQ-oTRkx$p+6kX`S{Ph{AcqOynY7xv-uFWd`iP$LNCLFFa$%yqu2DFTo9tD^}a{o z^i+(&C5~I~-3M`y6|=bnaj)bp7C?=*2;J#Jr9JFDbWw%CVCmUdG~Vy^6QE!Xz9 LmJ6Lv-sJWVzLY9a diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm index 17c941b9..59ca51fe 100644 --- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm @@ -145,6 +145,18 @@ object DataModuleFacturasCliente: TDataModuleFacturasCliente Lookup = False LookupCache = False end + item + Name = 'DESCRIPCION_DESCUENTO' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'IVA' DataType = datFloat diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas index 927a7240..0f3b8221 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas @@ -9,12 +9,12 @@ 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_DarReferencia = '{A621C326-E4EC-467B-ADBC-3405D36E60EE}'; - RID_ListaAnosFacturas = '{4BE1F671-5EAA-439D-AFB9-0AD7989ADF34}'; - RID_FacturasCliente = '{428E1B81-D8A3-4C5E-B021-5E4BF418E6B7}'; - RID_FacturasCliente_Detalles = '{8FB6D423-E42F-4A10-8C35-736C711FFA32}'; - RID_FacturasCliente_Detalles_Refresh = '{3618523F-C786-4185-A189-80867AA103C0}'; - RID_FacturasCliente_Refresh = '{3DCA7D8A-2508-4E3A-BE11-B6E06C9EA8B6}'; + RID_DarReferencia = '{01226CA6-8C1F-4C81-99BD-69D484975D2B}'; + RID_ListaAnosFacturas = '{4DC99931-20F9-4066-B3DD-F8C51BCFE9B6}'; + RID_FacturasCliente = '{2F18EAB0-8E58-430A-AC9C-0809354C7E27}'; + RID_FacturasCliente_Detalles = '{4C59D788-DAE0-4359-A266-0851D8711E67}'; + RID_FacturasCliente_Detalles_Refresh = '{58FC00E6-4F0C-4F06-89D2-48426F664F4A}'; + RID_FacturasCliente_Refresh = '{06C784AE-4E81-44D7-A1A6-22F30138B2D2}'; { Data table names } nme_DarReferencia = 'DarReferencia'; @@ -46,6 +46,7 @@ const fld_FacturasClienteBASE_IMPONIBLE = 'BASE_IMPONIBLE'; fld_FacturasClienteDESCUENTO = 'DESCUENTO'; fld_FacturasClienteIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO'; + fld_FacturasClienteDESCRIPCION_DESCUENTO = 'DESCRIPCION_DESCUENTO'; fld_FacturasClienteIVA = 'IVA'; fld_FacturasClienteIMPORTE_IVA = 'IMPORTE_IVA'; fld_FacturasClienteRE = 'RE'; @@ -84,33 +85,34 @@ const idx_FacturasClienteBASE_IMPONIBLE = 6; idx_FacturasClienteDESCUENTO = 7; idx_FacturasClienteIMPORTE_DESCUENTO = 8; - idx_FacturasClienteIVA = 9; - idx_FacturasClienteIMPORTE_IVA = 10; - idx_FacturasClienteRE = 11; - idx_FacturasClienteIMPORTE_RE = 12; - idx_FacturasClienteIMPORTE_TOTAL = 13; - idx_FacturasClienteOBSERVACIONES = 14; - idx_FacturasClienteID_CLIENTE = 15; - idx_FacturasClienteNIF_CIF = 16; - idx_FacturasClienteNOMBRE = 17; - idx_FacturasClienteCALLE = 18; - idx_FacturasClientePOBLACION = 19; - idx_FacturasClientePROVINCIA = 20; - idx_FacturasClienteCODIGO_POSTAL = 21; - idx_FacturasClienteFECHA_ALTA = 22; - idx_FacturasClienteFECHA_MODIFICACION = 23; - idx_FacturasClienteUSUARIO = 24; - idx_FacturasClienteID_FORMA_PAGO = 25; - idx_FacturasClienteRECARGO_EQUIVALENCIA = 26; - idx_FacturasClienteID_TIPO_IVA = 27; - idx_FacturasClienteIMPORTE_NETO = 28; - idx_FacturasClienteIMPORTE_PORTE = 29; - idx_FacturasClienteID_COMISION_LIQUIDADA = 30; - idx_FacturasClienteREFERENCIA_COMISION = 31; - idx_FacturasClienteID_AGENTE = 32; - idx_FacturasClienteNUM_COPIAS = 33; - idx_FacturasClienteNUM_CORREOS = 34; - idx_FacturasClienteFECHA_VENCIMIENTO = 35; + idx_FacturasClienteDESCRIPCION_DESCUENTO = 9; + idx_FacturasClienteIVA = 10; + idx_FacturasClienteIMPORTE_IVA = 11; + idx_FacturasClienteRE = 12; + idx_FacturasClienteIMPORTE_RE = 13; + idx_FacturasClienteIMPORTE_TOTAL = 14; + idx_FacturasClienteOBSERVACIONES = 15; + idx_FacturasClienteID_CLIENTE = 16; + idx_FacturasClienteNIF_CIF = 17; + idx_FacturasClienteNOMBRE = 18; + idx_FacturasClienteCALLE = 19; + idx_FacturasClientePOBLACION = 20; + idx_FacturasClientePROVINCIA = 21; + idx_FacturasClienteCODIGO_POSTAL = 22; + idx_FacturasClienteFECHA_ALTA = 23; + idx_FacturasClienteFECHA_MODIFICACION = 24; + idx_FacturasClienteUSUARIO = 25; + idx_FacturasClienteID_FORMA_PAGO = 26; + idx_FacturasClienteRECARGO_EQUIVALENCIA = 27; + idx_FacturasClienteID_TIPO_IVA = 28; + idx_FacturasClienteIMPORTE_NETO = 29; + idx_FacturasClienteIMPORTE_PORTE = 30; + idx_FacturasClienteID_COMISION_LIQUIDADA = 31; + idx_FacturasClienteREFERENCIA_COMISION = 32; + idx_FacturasClienteID_AGENTE = 33; + idx_FacturasClienteNUM_COPIAS = 34; + idx_FacturasClienteNUM_CORREOS = 35; + idx_FacturasClienteFECHA_VENCIMIENTO = 36; { FacturasCliente_Detalles fields } fld_FacturasCliente_DetallesID = 'ID'; @@ -186,6 +188,7 @@ const fld_FacturasCliente_RefreshBASE_IMPONIBLE = 'BASE_IMPONIBLE'; fld_FacturasCliente_RefreshDESCUENTO = 'DESCUENTO'; fld_FacturasCliente_RefreshIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO'; + fld_FacturasCliente_RefreshDESCRIPCION_DESCUENTO = 'DESCRIPCION_DESCUENTO'; fld_FacturasCliente_RefreshIVA = 'IVA'; fld_FacturasCliente_RefreshIMPORTE_IVA = 'IMPORTE_IVA'; fld_FacturasCliente_RefreshRE = 'RE'; @@ -224,38 +227,39 @@ const idx_FacturasCliente_RefreshBASE_IMPONIBLE = 6; idx_FacturasCliente_RefreshDESCUENTO = 7; idx_FacturasCliente_RefreshIMPORTE_DESCUENTO = 8; - idx_FacturasCliente_RefreshIVA = 9; - idx_FacturasCliente_RefreshIMPORTE_IVA = 10; - idx_FacturasCliente_RefreshRE = 11; - idx_FacturasCliente_RefreshIMPORTE_RE = 12; - idx_FacturasCliente_RefreshIMPORTE_TOTAL = 13; - idx_FacturasCliente_RefreshOBSERVACIONES = 14; - idx_FacturasCliente_RefreshID_CLIENTE = 15; - idx_FacturasCliente_RefreshNIF_CIF = 16; - idx_FacturasCliente_RefreshNOMBRE = 17; - idx_FacturasCliente_RefreshCALLE = 18; - idx_FacturasCliente_RefreshPOBLACION = 19; - idx_FacturasCliente_RefreshPROVINCIA = 20; - idx_FacturasCliente_RefreshCODIGO_POSTAL = 21; - idx_FacturasCliente_RefreshFECHA_ALTA = 22; - idx_FacturasCliente_RefreshFECHA_MODIFICACION = 23; - idx_FacturasCliente_RefreshUSUARIO = 24; - idx_FacturasCliente_RefreshID_FORMA_PAGO = 25; - idx_FacturasCliente_RefreshRECARGO_EQUIVALENCIA = 26; - idx_FacturasCliente_RefreshID_TIPO_IVA = 27; - idx_FacturasCliente_RefreshIMPORTE_NETO = 28; - idx_FacturasCliente_RefreshIMPORTE_PORTE = 29; - idx_FacturasCliente_RefreshID_COMISION_LIQUIDADA = 30; - idx_FacturasCliente_RefreshREFERENCIA_COMISION = 31; - idx_FacturasCliente_RefreshID_AGENTE = 32; - idx_FacturasCliente_RefreshNUM_COPIAS = 33; - idx_FacturasCliente_RefreshNUM_CORREOS = 34; - idx_FacturasCliente_RefreshFECHA_VENCIMIENTO = 35; + idx_FacturasCliente_RefreshDESCRIPCION_DESCUENTO = 9; + idx_FacturasCliente_RefreshIVA = 10; + idx_FacturasCliente_RefreshIMPORTE_IVA = 11; + idx_FacturasCliente_RefreshRE = 12; + idx_FacturasCliente_RefreshIMPORTE_RE = 13; + idx_FacturasCliente_RefreshIMPORTE_TOTAL = 14; + idx_FacturasCliente_RefreshOBSERVACIONES = 15; + idx_FacturasCliente_RefreshID_CLIENTE = 16; + idx_FacturasCliente_RefreshNIF_CIF = 17; + idx_FacturasCliente_RefreshNOMBRE = 18; + idx_FacturasCliente_RefreshCALLE = 19; + idx_FacturasCliente_RefreshPOBLACION = 20; + idx_FacturasCliente_RefreshPROVINCIA = 21; + idx_FacturasCliente_RefreshCODIGO_POSTAL = 22; + idx_FacturasCliente_RefreshFECHA_ALTA = 23; + idx_FacturasCliente_RefreshFECHA_MODIFICACION = 24; + idx_FacturasCliente_RefreshUSUARIO = 25; + idx_FacturasCliente_RefreshID_FORMA_PAGO = 26; + idx_FacturasCliente_RefreshRECARGO_EQUIVALENCIA = 27; + idx_FacturasCliente_RefreshID_TIPO_IVA = 28; + idx_FacturasCliente_RefreshIMPORTE_NETO = 29; + idx_FacturasCliente_RefreshIMPORTE_PORTE = 30; + idx_FacturasCliente_RefreshID_COMISION_LIQUIDADA = 31; + idx_FacturasCliente_RefreshREFERENCIA_COMISION = 32; + idx_FacturasCliente_RefreshID_AGENTE = 33; + idx_FacturasCliente_RefreshNUM_COPIAS = 34; + idx_FacturasCliente_RefreshNUM_CORREOS = 35; + idx_FacturasCliente_RefreshFECHA_VENCIMIENTO = 36; type { IDarReferencia } IDarReferencia = interface(IDAStronglyTypedDataTable) - ['{DC6A031B-D148-478D-9BCA-101202CCC948}'] + ['{1036E778-513F-4719-9E73-C3CC3090D3B9}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); @@ -284,7 +288,7 @@ type { IListaAnosFacturas } IListaAnosFacturas = interface(IDAStronglyTypedDataTable) - ['{FF89EDF2-3698-477F-B6DE-83A3FE03F68E}'] + ['{BBAE1C42-C8C4-47A9-955E-41D90F595250}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -313,7 +317,7 @@ type { IFacturasCliente } IFacturasCliente = interface(IDAStronglyTypedDataTable) - ['{AACD7C2D-E96C-430C-A07F-12AF77A42630}'] + ['{9D3EEAA7-9311-44FF-BA47-3AE7A4B205B7}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -333,6 +337,8 @@ type procedure SetDESCUENTOValue(const aValue: Float); function GetIMPORTE_DESCUENTOValue: Currency; procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); + function GetDESCRIPCION_DESCUENTOValue: String; + procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); function GetIVAValue: Float; procedure SetIVAValue(const aValue: Float); function GetIMPORTE_IVAValue: Currency; @@ -399,6 +405,7 @@ type property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; + property DESCRIPCION_DESCUENTO: String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue; property IVA: Float read GetIVAValue write SetIVAValue; property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; property RE: Float read GetREValue write SetREValue; @@ -451,6 +458,8 @@ type procedure SetDESCUENTOValue(const aValue: Float); virtual; function GetIMPORTE_DESCUENTOValue: Currency; virtual; procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; + function GetDESCRIPCION_DESCUENTOValue: String; virtual; + procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); virtual; function GetIVAValue: Float; virtual; procedure SetIVAValue(const aValue: Float); virtual; function GetIMPORTE_IVAValue: Currency; virtual; @@ -516,6 +525,7 @@ type property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; + property DESCRIPCION_DESCUENTO: String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue; property IVA: Float read GetIVAValue write SetIVAValue; property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; property RE: Float read GetREValue write SetREValue; @@ -552,7 +562,7 @@ type { IFacturasCliente_Detalles } IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{B6A306E7-6C2F-46BC-A313-C6F68ED5C577}'] + ['{39D48144-0270-459D-BF4B-989E70E2C2F7}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -659,7 +669,7 @@ type { IFacturasCliente_Detalles_Refresh } IFacturasCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable) - ['{6C0D8072-B0E3-4774-A560-8336A4DFBF60}'] + ['{9604E930-78C1-445E-BB78-C444EC2B5FFF}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -766,7 +776,7 @@ type { IFacturasCliente_Refresh } IFacturasCliente_Refresh = interface(IDAStronglyTypedDataTable) - ['{C8BA494B-931B-4C73-8E06-1F3846B17070}'] + ['{7233BE3E-E6CB-4FA8-9947-FEBACA722450}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -786,6 +796,8 @@ type procedure SetDESCUENTOValue(const aValue: Float); function GetIMPORTE_DESCUENTOValue: Currency; procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); + function GetDESCRIPCION_DESCUENTOValue: String; + procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); function GetIVAValue: Float; procedure SetIVAValue(const aValue: Float); function GetIMPORTE_IVAValue: Currency; @@ -852,6 +864,7 @@ type property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; + property DESCRIPCION_DESCUENTO: String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue; property IVA: Float read GetIVAValue write SetIVAValue; property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; property RE: Float read GetREValue write SetREValue; @@ -904,6 +917,8 @@ type procedure SetDESCUENTOValue(const aValue: Float); virtual; function GetIMPORTE_DESCUENTOValue: Currency; virtual; procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; + function GetDESCRIPCION_DESCUENTOValue: String; virtual; + procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); virtual; function GetIVAValue: Float; virtual; procedure SetIVAValue(const aValue: Float); virtual; function GetIMPORTE_IVAValue: Currency; virtual; @@ -969,6 +984,7 @@ type property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; + property DESCRIPCION_DESCUENTO: String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue; property IVA: Float read GetIVAValue write SetIVAValue; property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; property RE: Float read GetREValue write SetREValue; @@ -1152,6 +1168,16 @@ begin DataTable.Fields[idx_FacturasClienteIMPORTE_DESCUENTO].AsCurrency := aValue; end; +function TFacturasClienteDataTableRules.GetDESCRIPCION_DESCUENTOValue: String; +begin + result := DataTable.Fields[idx_FacturasClienteDESCRIPCION_DESCUENTO].AsString; +end; + +procedure TFacturasClienteDataTableRules.SetDESCRIPCION_DESCUENTOValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasClienteDESCRIPCION_DESCUENTO].AsString := aValue; +end; + function TFacturasClienteDataTableRules.GetIVAValue: Float; begin result := DataTable.Fields[idx_FacturasClienteIVA].AsFloat; @@ -1829,6 +1855,16 @@ begin DataTable.Fields[idx_FacturasCliente_RefreshIMPORTE_DESCUENTO].AsCurrency := aValue; end; +function TFacturasCliente_RefreshDataTableRules.GetDESCRIPCION_DESCUENTOValue: String; +begin + result := DataTable.Fields[idx_FacturasCliente_RefreshDESCRIPCION_DESCUENTO].AsString; +end; + +procedure TFacturasCliente_RefreshDataTableRules.SetDESCRIPCION_DESCUENTOValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasCliente_RefreshDESCRIPCION_DESCUENTO].AsString := aValue; +end; + function TFacturasCliente_RefreshDataTableRules.GetIVAValue: Float; begin result := DataTable.Fields[idx_FacturasCliente_RefreshIVA].AsFloat; diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas index 2a830b51..745adae5 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas @@ -9,17 +9,17 @@ 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_DarReferenciaDelta = '{DCB4C31D-2825-4AED-A0D5-085D371E73FF}'; - RID_ListaAnosFacturasDelta = '{BE0BAF1D-C955-44C4-872C-6DD555772691}'; - RID_FacturasClienteDelta = '{91BB9203-1A6A-4FC1-AD02-41A181969867}'; - RID_FacturasCliente_DetallesDelta = '{7DCB2097-1E44-42CC-BA9E-9CF8645A18E3}'; - RID_FacturasCliente_Detalles_RefreshDelta = '{4C1BB5AD-9C14-47AC-8CB9-B298E9CBC9E4}'; - RID_FacturasCliente_RefreshDelta = '{94A51D8A-EC34-4716-8531-4CC62F89C1CD}'; + RID_DarReferenciaDelta = '{254C7AC1-F65E-444E-9B90-6EB7785F4626}'; + RID_ListaAnosFacturasDelta = '{B39BA7C5-8427-4866-A863-2A939994969D}'; + RID_FacturasClienteDelta = '{7EEA294E-8B7C-4997-AF74-F6B3BD16472C}'; + RID_FacturasCliente_DetallesDelta = '{1DDF9134-3164-4E38-950B-63305DE9398B}'; + RID_FacturasCliente_Detalles_RefreshDelta = '{98C8D6ED-1DE6-4AD5-886C-13A4B9D9556F}'; + RID_FacturasCliente_RefreshDelta = '{07965967-879D-4386-9C9A-DD8C2950A6FC}'; type { IDarReferenciaDelta } IDarReferenciaDelta = interface(IDarReferencia) - ['{DCB4C31D-2825-4AED-A0D5-085D371E73FF}'] + ['{254C7AC1-F65E-444E-9B90-6EB7785F4626}'] { Property getters and setters } function GetOldVALORValue : String; @@ -48,7 +48,7 @@ type { IListaAnosFacturasDelta } IListaAnosFacturasDelta = interface(IListaAnosFacturas) - ['{BE0BAF1D-C955-44C4-872C-6DD555772691}'] + ['{B39BA7C5-8427-4866-A863-2A939994969D}'] { Property getters and setters } function GetOldANOValue : String; @@ -77,7 +77,7 @@ type { IFacturasClienteDelta } IFacturasClienteDelta = interface(IFacturasCliente) - ['{91BB9203-1A6A-4FC1-AD02-41A181969867}'] + ['{7EEA294E-8B7C-4997-AF74-F6B3BD16472C}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -88,6 +88,7 @@ type function GetOldBASE_IMPONIBLEValue : Currency; function GetOldDESCUENTOValue : Float; function GetOldIMPORTE_DESCUENTOValue : Currency; + function GetOldDESCRIPCION_DESCUENTOValue : String; function GetOldIVAValue : Float; function GetOldIMPORTE_IVAValue : Currency; function GetOldREValue : Float; @@ -126,6 +127,7 @@ type property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; + property OldDESCRIPCION_DESCUENTO : String read GetOldDESCRIPCION_DESCUENTOValue; property OldIVA : Float read GetOldIVAValue; property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; property OldRE : Float read GetOldREValue; @@ -187,6 +189,9 @@ type function GetIMPORTE_DESCUENTOValue: Currency; virtual; function GetOldIMPORTE_DESCUENTOValue: Currency; virtual; procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; + function GetDESCRIPCION_DESCUENTOValue: String; virtual; + function GetOldDESCRIPCION_DESCUENTOValue: String; virtual; + procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); virtual; function GetIVAValue: Float; virtual; function GetOldIVAValue: Float; virtual; procedure SetIVAValue(const aValue: Float); virtual; @@ -288,6 +293,8 @@ type property OldDESCUENTO : Float read GetOldDESCUENTOValue; property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; + property DESCRIPCION_DESCUENTO : String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue; + property OldDESCRIPCION_DESCUENTO : String read GetOldDESCRIPCION_DESCUENTOValue; property IVA : Float read GetIVAValue write SetIVAValue; property OldIVA : Float read GetOldIVAValue; property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; @@ -351,7 +358,7 @@ type { IFacturasCliente_DetallesDelta } IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) - ['{7DCB2097-1E44-42CC-BA9E-9CF8645A18E3}'] + ['{1DDF9134-3164-4E38-950B-63305DE9398B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -471,7 +478,7 @@ type { IFacturasCliente_Detalles_RefreshDelta } IFacturasCliente_Detalles_RefreshDelta = interface(IFacturasCliente_Detalles_Refresh) - ['{4C1BB5AD-9C14-47AC-8CB9-B298E9CBC9E4}'] + ['{98C8D6ED-1DE6-4AD5-886C-13A4B9D9556F}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -591,7 +598,7 @@ type { IFacturasCliente_RefreshDelta } IFacturasCliente_RefreshDelta = interface(IFacturasCliente_Refresh) - ['{94A51D8A-EC34-4716-8531-4CC62F89C1CD}'] + ['{07965967-879D-4386-9C9A-DD8C2950A6FC}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -602,6 +609,7 @@ type function GetOldBASE_IMPONIBLEValue : Currency; function GetOldDESCUENTOValue : Float; function GetOldIMPORTE_DESCUENTOValue : Currency; + function GetOldDESCRIPCION_DESCUENTOValue : String; function GetOldIVAValue : Float; function GetOldIMPORTE_IVAValue : Currency; function GetOldREValue : Float; @@ -640,6 +648,7 @@ type property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; + property OldDESCRIPCION_DESCUENTO : String read GetOldDESCRIPCION_DESCUENTOValue; property OldIVA : Float read GetOldIVAValue; property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; property OldRE : Float read GetOldREValue; @@ -701,6 +710,9 @@ type function GetIMPORTE_DESCUENTOValue: Currency; virtual; function GetOldIMPORTE_DESCUENTOValue: Currency; virtual; procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; + function GetDESCRIPCION_DESCUENTOValue: String; virtual; + function GetOldDESCRIPCION_DESCUENTOValue: String; virtual; + procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); virtual; function GetIVAValue: Float; virtual; function GetOldIVAValue: Float; virtual; procedure SetIVAValue(const aValue: Float); virtual; @@ -802,6 +814,8 @@ type property OldDESCUENTO : Float read GetOldDESCUENTOValue; property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; + property DESCRIPCION_DESCUENTO : String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue; + property OldDESCRIPCION_DESCUENTO : String read GetOldDESCRIPCION_DESCUENTOValue; property IVA : Float read GetIVAValue write SetIVAValue; property OldIVA : Float read GetOldIVAValue; property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; @@ -1068,6 +1082,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_DESCUENTO] := aValue; end; +function TFacturasClienteBusinessProcessorRules.GetDESCRIPCION_DESCUENTOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCRIPCION_DESCUENTO]; +end; + +function TFacturasClienteBusinessProcessorRules.GetOldDESCRIPCION_DESCUENTOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDESCRIPCION_DESCUENTO]; +end; + +procedure TFacturasClienteBusinessProcessorRules.SetDESCRIPCION_DESCUENTOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCRIPCION_DESCUENTO] := aValue; +end; + function TFacturasClienteBusinessProcessorRules.GetIVAValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIVA]; @@ -2066,6 +2095,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshIMPORTE_DESCUENTO] := aValue; end; +function TFacturasCliente_RefreshBusinessProcessorRules.GetDESCRIPCION_DESCUENTOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshDESCRIPCION_DESCUENTO]; +end; + +function TFacturasCliente_RefreshBusinessProcessorRules.GetOldDESCRIPCION_DESCUENTOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_RefreshDESCRIPCION_DESCUENTO]; +end; + +procedure TFacturasCliente_RefreshBusinessProcessorRules.SetDESCRIPCION_DESCUENTOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshDESCRIPCION_DESCUENTO] := aValue; +end; + function TFacturasCliente_RefreshBusinessProcessorRules.GetIVAValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshIVA]; diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index fd5bbd26..60ccea9e 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -104,27 +104,28 @@ object RptFacturasCliente: TRptFacturasCliente 'SELECT'#10' V_FACTURAS_CLIENTE.ID, V_FACTURAS_CLIENTE.REFERENCIA,' + ' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10' V_FACTURAS_CLIENTE.BASE_I' + 'MPONIBLE, V_FACTURAS_CLIENTE.DESCUENTO, V_FACTURAS_CLIENTE.IMPOR' + - 'TE_DESCUENTO,'#10' V_FACTURAS_CLIENTE.IVA, V_FACTURAS_CLIENTE.IMP' + - 'ORTE_IVA,'#10' V_FACTURAS_CLIENTE.RE, V_FACTURAS_CLIENTE.IMPORTE_' + - 'RE,'#10' V_FACTURAS_CLIENTE.IMPORTE_TOTAL,'#10' V_FACTURAS_CLIENTE' + - '.OBSERVACIONES, FORMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURA' + - 'S_CLIENTE.ID_CLIENTE,'#10' V_FACTURAS_CLIENTE.NIF_CIF, V_FACTURAS' + - '_CLIENTE.NOMBRE, V_FACTURAS_CLIENTE.CALLE,'#10' V_FACTURAS_CLIENT' + - 'E.PROVINCIA, V_FACTURAS_CLIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENT' + - 'E.POBLACION,'#10' CONTACTOS_DATOS_BANCO.TITULAR,'#10' CONTACTOS_DA' + - 'TOS_BANCO.ENTIDAD,'#10' CONTACTOS_DATOS_BANCO.SUCURSAL,'#10' CONTA' + - 'CTOS_DATOS_BANCO.DC,'#10' CONTACTOS_DATOS_BANCO.CUENTA,'#10' ID_EM' + - 'PRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIA' + - 'L,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as PO' + - 'BLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EM' + - 'PRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELE' + - 'FONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EM' + - 'PRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIP' + - 'O'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID' + - '_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_C' + - 'LIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTAC' + - 'TOS_DATOS_BANCO.ID_CONTACTO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHE' + - 'RE V_FACTURAS_CLIENTE.ID = :ID' + 'TE_DESCUENTO,'#10' V_FACTURAS_CLIENTE.DESCRIPCION_DESCUENTO,'#10' ' + + 'V_FACTURAS_CLIENTE.IVA, V_FACTURAS_CLIENTE.IMPORTE_IVA,'#10' V_FA' + + 'CTURAS_CLIENTE.RE, V_FACTURAS_CLIENTE.IMPORTE_RE,'#10' V_FACTURAS' + + '_CLIENTE.IMPORTE_TOTAL,'#10' V_FACTURAS_CLIENTE.OBSERVACIONES, FO' + + 'RMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURAS_CLIENTE.ID_CLIEN' + + 'TE,'#10' V_FACTURAS_CLIENTE.NIF_CIF, V_FACTURAS_CLIENTE.NOMBRE, V' + + '_FACTURAS_CLIENTE.CALLE,'#10' V_FACTURAS_CLIENTE.PROVINCIA, V_FAC' + + 'TURAS_CLIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,'#10' C' + + 'ONTACTOS_DATOS_BANCO.TITULAR,'#10' CONTACTOS_DATOS_BANCO.ENTIDAD,' + + #10' CONTACTOS_DATOS_BANCO.SUCURSAL,'#10' CONTACTOS_DATOS_BANCO.D' + + 'C,'#10' CONTACTOS_DATOS_BANCO.CUENTA,'#10' ID_EMPRESA, EMPRESAS.NI' + + 'F_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CA' + + 'LLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' ' + + ' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POST' + + 'AL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.F' + + 'AX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB,' + + ' EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10'FROM V_FACTURAS_' + + 'CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN' + + ' FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PA' + + 'GO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID' + + '_CONTACTO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_FACTURAS_CLIE' + + 'NTE.ID = :ID' StatementType = stSQL ColumnMappings = < item @@ -282,6 +283,10 @@ object RptFacturasCliente: TRptFacturasCliente item DatasetField = 'CUENTA' TableField = 'CUENTA' + end + item + DatasetField = 'DESCRIPCION_DESCUENTO' + TableField = 'DESCRIPCION_DESCUENTO' end> end> Name = 'InformeFacturasCliente' @@ -347,6 +352,18 @@ object RptFacturasCliente: TRptFacturasCliente Lookup = False LookupCache = False end + item + Name = 'DESCRIPCION_DESCUENTO' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'DESCUENTO' DataType = datFloat @@ -1253,7 +1270,7 @@ object RptFacturasCliente: TRptFacturasCliente PrintOptions.Printer = 'Default' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 37871.995398692100000000 - ReportOptions.LastChange = 39701.539507187500000000 + ReportOptions.LastChange = 40092.714477893520000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' @@ -1325,6 +1342,7 @@ object RptFacturasCliente: TRptFacturasCliente 'var' ' Cadena: String;' 'begin' + ' { ' ' DatosEmpresa.Lines.Clear;' ' DatosEmpresa.Lines.Add();' ' DatosEmpresa.Lines.Add();' @@ -1348,6 +1366,7 @@ object RptFacturasCliente: TRptFacturasCliente ' Cadena := Cadena + '#39' - '#39' + ;' ' DatosEmpresa.Lines.Add(Cadena);' + ' } ' 'end;' '' 'procedure Memo15OnBeforePrint(Sender: TfrxComponent);' @@ -1359,18 +1378,6 @@ object RptFacturasCliente: TRptFacturasCliente ' Memo15.Lines.Add('#39'FACTURA'#39')' 'end;' '' - 'procedure Memo20OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if (StrToFloat() = 0) then' - ' begin' - ' Memo20.Lines.Clear;' - ' Memo28.Lines.Clear;' - ' Memo21.Lines.Clear;' - ' Memo29.Lines.Clear;' - ' end;' - '' - 'end;' - '' 'procedure Memo11OnBeforePrint(Sender: TfrxComponent);' 'var' ' Cadena : String;' @@ -1402,9 +1409,40 @@ object RptFacturasCliente: TRptFacturasCliente 'procedure Picture1OnBeforePrint(Sender: TfrxComponent);' 'begin' ' if then' - ' Picture1.Visible := True' + ' begin ' + ' Picture1.Visible := True; ' + ' Picture2.Visible := True; ' + ' Picture3.Visible := True; ' + ' Picture4.Visible := True; ' + ' Picture5.Visible := True; ' + ' Picture6.Visible := True; ' + ' Memo12.Visible := True;' + + ' Memo14.Visible := True; ' + + ' ' + ' end' ' else' - ' Picture1.Visible := False; ' + ' begin ' + ' Picture1.Visible := False;' + ' Picture2.Visible := False;' + ' Picture3.Visible := False;' + ' Picture4.Visible := False;' + ' Picture5.Visible := False;' + ' Picture6.Visible := False;' + ' Memo12.Visible := False;' + + ' Memo14.Visible := False; ' + + ' ' + ' end' + 'end;' + '' + 'procedure Memo21OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' if (StrToFloat() = 0) then' + ' begin' + ' Memo21.Lines.Clear;' + ' Memo29.Lines.Clear;' + ' end;' 'end;' '' 'begin' diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas index 53d19779..30963eda 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas @@ -28,10 +28,10 @@ type DADataVencimientos: TDADataSource; tbl_Vencimientos: TDACDSDataTable; frxDBDataset1: TfrxDBDataset; - schReport: TDASchema; - DataDictionary: TDADataDictionary; frxReport: TfrxReport; frxPDFExport1: TfrxPDFExport; + schReport: TDASchema; + DataDictionary: TDADataDictionary; procedure DataModuleCreate(Sender: TObject); procedure frxReportGetValue(const VarName: string; var Value: Variant); private diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm index 8b129ddf..194fbb13 100644 --- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm +++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm @@ -104,13 +104,14 @@ object srvFacturasCliente: TsrvFacturasCliente TargetTable = 'V_FACTURAS_CLIENTE' SQL = 'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, TIPO, FECHA_FACTURA, SIT' + - 'UACION, BASE_IMPONIBLE,'#10' DESCUENTO, IMPORTE_DESCUENTO, IVA, I' + - 'MPORTE_IVA, RE, IMPORTE_RE,'#10' IMPORTE_TOTAL, OBSERVACIONES, ID' + - '_CLIENTE, NIF_CIF, NOMBRE, CALLE,'#10' POBLACION, PROVINCIA, CODI' + - 'GO_POSTAL, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA' + - '_PAGO, RECARGO_EQUIVALENCIA, ID_TIPO_IVA,'#10' IMPORTE_NETO, IMPO' + - 'RTE_PORTE, ID_COMISION_LIQUIDADA, REFERENCIA_COMISION,'#10' ID_AG' + - 'ENTE, NUM_COPIAS, NUM_CORREOS'#10' FROM'#10' V_FACTURAS_CLIENTE' + 'UACION, BASE_IMPONIBLE,'#10' DESCUENTO, IMPORTE_DESCUENTO, DESCRI' + + 'PCION_DESCUENTO, IVA, IMPORTE_IVA, RE, IMPORTE_RE,'#10' IMPORTE_T' + + 'OTAL, OBSERVACIONES, ID_CLIENTE, NIF_CIF, NOMBRE, CALLE,'#10' POB' + + 'LACION, PROVINCIA, CODIGO_POSTAL, FECHA_ALTA, FECHA_MODIFICACION' + + ','#10' USUARIO, ID_FORMA_PAGO, RECARGO_EQUIVALENCIA, ID_TIPO_IVA,' + + #10' IMPORTE_NETO, IMPORTE_PORTE, ID_COMISION_LIQUIDADA, REFEREN' + + 'CIA_COMISION,'#10' ID_AGENTE, NUM_COPIAS, NUM_CORREOS'#10' FROM'#10' ' + + 'V_FACTURAS_CLIENTE' StatementType = stSQL ColumnMappings = < item @@ -252,6 +253,10 @@ object srvFacturasCliente: TsrvFacturasCliente item DatasetField = 'NUM_CORREOS' TableField = 'NUM_CORREOS' + end + item + DatasetField = 'DESCRIPCION_DESCUENTO' + TableField = 'DESCRIPCION_DESCUENTO' end> end> Name = 'FacturasCliente' @@ -349,6 +354,18 @@ object srvFacturasCliente: TsrvFacturasCliente Lookup = False LookupCache = False end + item + Name = 'DESCRIPCION_DESCUENTO' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'IVA' DataType = datFloat @@ -1133,14 +1150,14 @@ object srvFacturasCliente: TsrvFacturasCliente TargetTable = 'V_FACTURAS_CLIENTE' SQL = 'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, TIPO, FECHA_FACTURA, SIT' + - 'UACION, BASE_IMPONIBLE,'#10' DESCUENTO, IMPORTE_DESCUENTO, IVA, I' + - 'MPORTE_IVA, RE, '#10' IMPORTE_RE, IMPORTE_TOTAL, OBSERVACIONES, I' + - 'D_CLIENTE, '#10' NIF_CIF, NOMBRE, CALLE, POBLACION, PROVINCIA, CO' + - 'DIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_FO' + - 'RMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, ' + - 'IMPORTE_PORTE, ID_COMISION_LIQUIDADA,'#10' REFERENCIA_COMISION, I' + - 'D_AGENTE, NUM_COPIAS, NUM_CORREOS'#10' FROM'#10' V_FACTURAS_CLIENTE'#10 + - ' WHERE ID = :ID' + 'UACION, BASE_IMPONIBLE,'#10' DESCUENTO, IMPORTE_DESCUENTO, DESCRI' + + 'PCION_DESCUENTO, IVA, IMPORTE_IVA, RE,'#10' IMPORTE_RE, IMPORTE_T' + + 'OTAL, OBSERVACIONES, ID_CLIENTE, '#10' NIF_CIF, NOMBRE, CALLE, PO' + + 'BLACION, PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFI' + + 'CACION, USUARIO, ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TI' + + 'PO_IVA, IMPORTE_NETO, IMPORTE_PORTE, ID_COMISION_LIQUIDADA,'#10' ' + + 'REFERENCIA_COMISION, ID_AGENTE, NUM_COPIAS, NUM_CORREOS'#10' FROM'#10' ' + + ' V_FACTURAS_CLIENTE'#10' WHERE ID = :ID' StatementType = stSQL ColumnMappings = < item @@ -1282,6 +1299,10 @@ object srvFacturasCliente: TsrvFacturasCliente item DatasetField = 'NUM_CORREOS' TableField = 'NUM_CORREOS' + end + item + DatasetField = 'DESCRIPCION_DESCUENTO' + TableField = 'DESCRIPCION_DESCUENTO' end> end> Name = 'FacturasCliente_Refresh' @@ -1379,6 +1400,18 @@ object srvFacturasCliente: TsrvFacturasCliente Lookup = False LookupCache = False end + item + Name = 'DESCRIPCION_DESCUENTO' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'IVA' DataType = datFloat @@ -1999,6 +2032,14 @@ object srvFacturasCliente: TsrvFacturasCliente Value = '' ParamType = daptInput end + item + Name = 'DESCRIPCION_DESCUENTO' + DataType = datString + Size = 255 + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end item Name = 'IVA' DataType = datFloat @@ -2160,20 +2201,21 @@ object srvFacturasCliente: TsrvFacturasCliente SQL = 'INSERT INTO FACTURAS_CLIENTE ('#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' IMPORT' + - 'E_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' USU' + - 'ARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_I' + - 'VA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE)'#10' VALUES ('#10' :ID,'#10' ' + - ' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :BASE_IMP' + - 'ONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :I' + - 'MPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :O' + - 'BSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :C' + - 'ALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :F' + - 'ECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_' + - 'PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_' + - 'NETO,'#10' :IMPORTE_PORTE);' + ' IMPORTE_DESCUENTO,'#10' DESCRIPCION_DESCUENTO,'#10' IVA,'#10' IMPO' + + 'RTE_IVA,'#10' RE,'#10' IMPORTE_RE,'#10' IMPORTE_TOTAL,'#10' OBSERVAC' + + 'IONES,'#10' ID_CLIENTE,'#10' NIF_CIF,'#10' NOMBRE,'#10' CALLE,'#10' P' + + 'OBLACION,'#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_POR' + + 'TE)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :F' + + 'ECHA_FACTURA,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_' + + 'DESCUENTO,'#10' :DESCRIPCION_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IV' + + 'A,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIO' + + 'NES,'#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);' StatementType = stSQL ColumnMappings = <> end> @@ -2224,6 +2266,14 @@ object srvFacturasCliente: TsrvFacturasCliente Value = '' ParamType = daptInput end + item + Name = 'DESCRIPCION_DESCUENTO' + DataType = datString + Size = 255 + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end item Name = 'IVA' DataType = datFloat @@ -2393,18 +2443,18 @@ object srvFacturasCliente: TsrvFacturasCliente 'UPDATE FACTURAS_CLIENTE'#10' SET'#10' ID_EMPRESA = :ID_EMPRESA,'#10' ' + 'REFERENCIA = :REFERENCIA,'#10' FECHA_FACTURA = :FECHA_FACTURA,'#10' ' + ' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO,'#10 + - ' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' ' + - 'IMPORTE_IVA = :IMPORTE_IVA,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPO' + - 'RTE_RE,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES = ' + - ':OBSERVACIONES,'#10' ID_CLIENTE = :ID_CLIENTE,'#10' NIF_CIF = :NIF' + - '_CIF,'#10' NOMBRE = :NOMBRE,'#10' CALLE = :CALLE,'#10' POBLACION = ' + - ':POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :COD' + - 'IGO_POSTAL,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION' + - ' = :FECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ID_FORMA_PAG' + - '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' WHERE'#10' (ID = :OLD_' + - 'ID);' + ' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' DESCRIPCION_DESC' + + 'UENTO = :DESCRIPCION_DESCUENTO,'#10' IVA = :IVA,'#10' IMPORTE_IVA ' + + '= :IMPORTE_IVA,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_RE,'#10' ' + + 'IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES = :OBSERVACION' + + 'ES,'#10' ID_CLIENTE = :ID_CLIENTE,'#10' NIF_CIF = :NIF_CIF,'#10' NO' + + 'MBRE = :NOMBRE,'#10' CALLE = :CALLE,'#10' POBLACION = :POBLACION,'#10 + + ' PROVINCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10 + + ' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_MO' + + 'DIFICACION,'#10' USUARIO = :USUARIO,'#10' ID_FORMA_PAGO = :ID_FORM' + + 'A_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' ID' + + '_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' ' + + 'IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID);' StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk index 6b92d5b8..44d80c33 100644 --- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk +++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk @@ -89,7 +89,9 @@ requires Articulos_view, FormasPago_model, FormasPago_controller, - AlbCli_FacCli_relation; + AlbCli_FacCli_relation, + dxGDIPlusD10, + dxLayoutControlD10; contains uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas', @@ -102,6 +104,7 @@ contains uEditorElegirArticulosFacturaCliente in 'uEditorElegirArticulosFacturaCliente.pas' {fEditorElegirArticulosFacturaCliente: TForm}, uViewElegirArticulosFacturasCliente in 'uViewElegirArticulosFacturasCliente.pas' {frViewElegirArticulosFacturasCliente: TFrame}, uEditorElegirFacturasCliente in 'uEditorElegirFacturasCliente.pas' {fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente}, - uDialogListaFacturasEnvioEMail in 'uDialogListaFacturasEnvioEMail.pas' {fDialogListaFacturasEnvioEMail}; + uDialogListaFacturasEnvioEMail in 'uDialogListaFacturasEnvioEMail.pas' {fDialogListaFacturasEnvioEMail}, + uViewTotalesFacturaCliente in 'uViewTotalesFacturaCliente.pas' {frViewTotalesFacturaCliente: TFrame}; end. diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP delta 11 ScmeBCZD5|Duvteife`=|>;pCc diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm index d44da54f..74581bba 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm @@ -2,20 +2,20 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Left = 454 Top = 208 Caption = 'Nueva factura de cliente' - ClientHeight = 575 - ClientWidth = 788 + ClientHeight = 718 + ClientWidth = 891 Position = poScreenCenter OnClose = CustomEditorClose - ExplicitWidth = 796 - ExplicitHeight = 602 + ExplicitWidth = 899 + ExplicitHeight = 745 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 788 + Width = 891 Caption = 'Nueva factura de cliente' - ExplicitWidth = 788 + ExplicitWidth = 789 inherited Image1: TImage - Left = 761 + Left = 864 Picture.Data = { 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0000180806000000E0773DF80000000970485973000017120000171201679FD2 @@ -39,8 +39,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end end inherited TBXDock: TTBXDock - Width = 788 - ExplicitWidth = 788 + Width = 891 + ExplicitWidth = 789 inherited tbxMain: TTBXToolbar ExplicitWidth = 613 inherited TBXItem2: TTBXItem @@ -60,7 +60,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end end inherited tbxMenu: TTBXToolbar - ExplicitWidth = 788 + ExplicitWidth = 891 inherited TBXSubmenuItem4: TTBXSubmenuItem inherited TBXItem8: TTBXItem Visible = False @@ -82,21 +82,21 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end end inherited pgPaginas: TPageControl - Width = 788 - Height = 317 + Width = 891 + Height = 434 OnChanging = pgPaginasChanging - ExplicitWidth = 788 - ExplicitHeight = 317 + ExplicitWidth = 789 + ExplicitHeight = 308 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 - ExplicitWidth = 780 - ExplicitHeight = 289 + ExplicitWidth = 781 + ExplicitHeight = 280 inline frViewFacturaCliente1: TfrViewFacturaCliente Left = 0 Top = 0 - Width = 780 - Height = 289 + Width = 883 + Height = 406 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -106,16 +106,16 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 780 - ExplicitHeight = 289 + ExplicitWidth = 781 + ExplicitHeight = 280 inherited dxLayoutControl1: TdxLayoutControl - Width = 780 - Height = 289 - ExplicitWidth = 780 - ExplicitHeight = 289 + Width = 883 + Height = 406 + ExplicitWidth = 781 + ExplicitHeight = 280 DesignSize = ( - 780 - 289) + 883 + 406) inherited eReferencia: TcxDBTextEdit ExplicitWidth = 393 Width = 393 @@ -131,9 +131,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Width = 473 end inherited frViewClienteFactura: TfrViewDatosYSeleccionCliente - Left = 474 + Left = 536 Width = 332 - ExplicitLeft = 474 + ExplicitLeft = 536 ExplicitWidth = 332 inherited dxLayoutControl1: TdxLayoutControl Width = 332 @@ -165,7 +165,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Width = 327 end inherited edtCodigoPostal: TcxDBTextEdit + Left = 233 DataBinding.DataSource = frViewFacturaCliente1.DADataSource + ExplicitLeft = 233 + end + inherited Button3: TBitBtn + Left = 123 + ExplicitLeft = 123 end end end @@ -174,8 +180,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Width = 255 end inherited bFormasPago: TButton - Left = 314 - ExplicitLeft = 314 + Left = 376 + ExplicitLeft = 376 end end end @@ -183,11 +189,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente object pagContenido: TTabSheet Caption = 'Contenido' ImageIndex = 1 + ExplicitWidth = 781 + ExplicitHeight = 280 inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente Left = 0 Top = 0 - Width = 780 - Height = 289 + Width = 883 + Height = 406 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -199,61 +207,108 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 780 - ExplicitHeight = 289 + ExplicitWidth = 781 + ExplicitHeight = 280 inherited ToolBar1: TToolBar - Width = 780 - ExplicitWidth = 780 + Width = 883 + Height = 24 + ExplicitWidth = 883 + inherited ToolButton14: TToolButton [1] + Left = 109 + Top = 2 + ExplicitLeft = 109 + ExplicitTop = 2 + end + inherited ToolButton2: TToolButton [2] + Left = 143 + end + inherited ToolButton3: TToolButton [3] + Left = 257 + end + inherited ToolButton4: TToolButton [4] + Left = 312 + Wrap = False + end + inherited FontName: TJvFontComboBox + Left = 368 + Top = 2 + ExplicitLeft = 368 + ExplicitTop = 2 + end inherited FontSize: TEdit - Width = 58 - ExplicitWidth = 58 + Left = 513 + Top = 2 + Width = 73 + ExplicitLeft = 513 + ExplicitTop = 2 + ExplicitWidth = 73 end inherited UpDown1: TUpDown - Left = 252 - ExplicitLeft = 252 + Left = 586 + Top = 2 + ExplicitLeft = 586 + ExplicitTop = 2 end inherited ToolButton13: TToolButton - Left = 269 - ExplicitLeft = 269 + Left = 603 + Top = 2 + ExplicitLeft = 603 + ExplicitTop = 2 end inherited ToolButton6: TToolButton - Left = 277 - ExplicitLeft = 277 + Left = 611 + Top = 2 + ExplicitLeft = 611 + ExplicitTop = 2 end inherited ToolButton7: TToolButton - Left = 311 - ExplicitLeft = 311 + Left = 645 + Top = 2 + ExplicitLeft = 645 + ExplicitTop = 2 end inherited ToolButton8: TToolButton - Left = 345 - ExplicitLeft = 345 + Left = 679 + Top = 2 + ExplicitLeft = 679 + ExplicitTop = 2 end inherited ToolButton12: TToolButton - Left = 379 - ExplicitLeft = 379 + Left = 713 + Top = 2 + ExplicitLeft = 713 + ExplicitTop = 2 end inherited ToolButton9: TToolButton - Left = 387 - ExplicitLeft = 387 + Left = 721 + Top = 2 + ExplicitLeft = 721 + ExplicitTop = 2 end inherited ToolButton10: TToolButton - Left = 421 - ExplicitLeft = 421 + Left = 755 + Top = 2 + ExplicitLeft = 755 + ExplicitTop = 2 end inherited ToolButton11: TToolButton - Left = 455 - ExplicitLeft = 455 + Left = 789 + Top = 2 + ExplicitLeft = 789 + ExplicitTop = 2 end end inherited cxGrid: TcxGrid - Width = 780 - Height = 217 - ExplicitWidth = 780 - ExplicitHeight = 217 + Top = 50 + Width = 883 + Height = 356 + ExplicitWidth = 781 + ExplicitHeight = 208 end inherited TBXDock1: TTBXDock - Width = 780 - ExplicitWidth = 780 + Top = 24 + Width = 883 + ExplicitWidth = 781 inherited TBXToolbar1: TTBXToolbar ExplicitWidth = 548 end @@ -262,20 +317,20 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end end inherited StatusBar: TJvStatusBar - Top = 556 - Width = 788 + Top = 699 + Width = 891 Panels = < item Width = 200 end> - ExplicitTop = 556 - ExplicitWidth = 788 + ExplicitTop = 573 + ExplicitWidth = 789 end - inline frViewTotales1: TfrViewTotales [4] + inline frViewTotales1: TfrViewTotalesFacturaCliente [4] Left = 0 - Top = 393 - Width = 788 - Height = 163 + Top = 510 + Width = 891 + Height = 189 Align = alBottom Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -285,13 +340,15 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ParentFont = False TabOrder = 4 ReadOnly = False - ExplicitTop = 393 - ExplicitWidth = 788 - ExplicitHeight = 163 + ExplicitTop = 384 + ExplicitWidth = 789 + ExplicitHeight = 189 inherited dxLayoutControl1: TdxLayoutControl - Width = 788 + Width = 891 + Height = 218 LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1 - ExplicitWidth = 788 + ExplicitWidth = 789 + ExplicitHeight = 218 inherited Bevel1: TBevel Top = 111 Width = 73 @@ -299,18 +356,18 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ExplicitWidth = 73 end inherited Bevel3: TBevel - Left = 441 + Left = 495 Top = 30 Height = 122 - ExplicitLeft = 441 + ExplicitLeft = 495 ExplicitTop = 30 ExplicitHeight = 122 end inherited Bevel4: TBevel - Left = 553 + Left = 607 Top = 111 Width = 186 - ExplicitLeft = 553 + ExplicitLeft = 607 ExplicitTop = 111 ExplicitWidth = 186 end @@ -322,19 +379,19 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Width = 93 end inherited ImporteIVA: TcxDBCurrencyEdit - Left = 624 + Left = 678 Top = 57 Style.IsFontAssigned = True - ExplicitLeft = 624 + ExplicitLeft = 678 ExplicitTop = 57 ExplicitWidth = 137 Width = 137 end inherited ImporteTotal: TcxDBCurrencyEdit - Left = 554 + Left = 608 Top = 131 Style.IsFontAssigned = True - ExplicitLeft = 554 + ExplicitLeft = 608 ExplicitTop = 131 ExplicitWidth = 137 Width = 137 @@ -346,34 +403,34 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ExplicitTop = 131 end inherited edtIVA: TcxDBSpinEdit - Left = 553 + Left = 607 Top = 57 Style.IsFontAssigned = True - ExplicitLeft = 553 + ExplicitLeft = 607 ExplicitTop = 57 end inherited ImporteBase: TcxDBCurrencyEdit - Left = 553 + Left = 607 Top = 30 Style.IsFontAssigned = True - ExplicitLeft = 553 + ExplicitLeft = 607 ExplicitTop = 30 ExplicitWidth = 92 Width = 92 end inherited edtRE: TcxDBSpinEdit - Left = 553 + Left = 607 Top = 84 Properties.AssignedValues.MinValue = True Style.IsFontAssigned = True - ExplicitLeft = 553 + ExplicitLeft = 607 ExplicitTop = 84 end inherited ImporteRE: TcxDBCurrencyEdit - Left = 624 + Left = 678 Top = 84 Style.IsFontAssigned = True - ExplicitLeft = 624 + ExplicitLeft = 678 ExplicitTop = 84 ExplicitWidth = 56 Width = 56 @@ -386,14 +443,14 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Width = 147 end inherited ePorte: TcxDBCurrencyEdit - Top = 158 + Top = 185 DataBinding.DataSource = dsDataTable Properties.OnValidate = frViewTotales1ePortePropertiesValidate Style.IsFontAssigned = True OnEditing = frViewTotales1ePorteEditing - ExplicitTop = 158 - ExplicitWidth = 147 - Width = 147 + ExplicitTop = 185 + ExplicitWidth = 327 + Width = 327 end inherited eIVA: TcxDBLookupComboBox Top = 57 @@ -404,10 +461,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Width = 134 end inherited bTiposIVA: TButton - Left = 293 + Left = 347 Top = 57 OnClick = frViewTotales1bTiposIVAClick - ExplicitLeft = 293 + ExplicitLeft = 347 ExplicitTop = 57 end inherited cbRecargoEquivalencia: TcxDBCheckBox @@ -416,24 +473,19 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ExplicitWidth = 314 Width = 314 end + inherited eDescripciondescuento: TcxDBTextEdit + Top = 158 + Style.IsFontAssigned = True + ExplicitTop = 158 + ExplicitWidth = 327 + Width = 327 + end inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group2: TdxLayoutGroup - inherited dxLayoutControl1Item8: TdxLayoutItem - Visible = False - end inherited dxLayoutControl1Item10: TdxLayoutItem Visible = False end - inherited dxLayoutControl1Group7: TdxLayoutGroup - Visible = False - inherited dxLayoutControl1Item4: TdxLayoutItem - Visible = False - end - inherited dxLayoutControl1Item1: TdxLayoutItem - Visible = False - end - end inherited dxLayoutControl1Item9: TdxLayoutItem Visible = False end diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas index 9b5c9955..a716c272 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas @@ -8,21 +8,21 @@ uses JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane, - uViewFacturaCliente, uCustomView, uViewBase, uViewTotales, + uViewFacturaCliente, uCustomView, uViewBase, uViewTotalesFacturaCliente, StdCtrls, pngimage, AppEvnts, JvComponentBase, uBizFacturasCliente, uIEditorFacturaCliente, uFacturasClienteController, uViewDetallesBase, uViewDetallesFacturaCliente, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, - uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController; + uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uViewTotales; type TfEditorFacturaCliente = class(TfEditorDBItem, IEditorFacturaCliente) frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente; frViewFacturaCliente1: TfrViewFacturaCliente; - frViewTotales1: TfrViewTotales; + frViewTotales1: TfrViewTotalesFacturaCliente; actEnviarEMail: TAction; TBXSubmenuItem2: TTBXSubmenuItem; TBXItem7: TTBXItem; diff --git a/Source/Modulos/Facturas de cliente/Views/uViewTotalesFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewTotalesFacturaCliente.dfm new file mode 100644 index 00000000..1e83699e --- /dev/null +++ b/Source/Modulos/Facturas de cliente/Views/uViewTotalesFacturaCliente.dfm @@ -0,0 +1,139 @@ +inherited frViewTotalesFacturaCliente: TfrViewTotalesFacturaCliente + Width = 853 + Height = 231 + ExplicitHeight = 231 + inherited dxLayoutControl1: TdxLayoutControl + Width = 853 + inherited Bevel1: TBevel + Width = 73 + ExplicitWidth = 73 + end + inherited Bevel3: TBevel + Left = 413 + Height = 122 + ExplicitLeft = 413 + ExplicitHeight = 122 + end + inherited Bevel4: TBevel + Left = 525 + Width = 192 + ExplicitLeft = 525 + ExplicitWidth = 192 + end + inherited ImporteDto: TcxDBCurrencyEdit + Style.IsFontAssigned = True + ExplicitWidth = 93 + Width = 93 + end + inherited ImporteIVA: TcxDBCurrencyEdit + Left = 596 + Style.IsFontAssigned = True + TabOrder = 10 + ExplicitLeft = 596 + ExplicitWidth = 137 + Width = 137 + end + inherited ImporteTotal: TcxDBCurrencyEdit + Left = 526 + Style.IsFontAssigned = True + TabOrder = 13 + ExplicitLeft = 526 + ExplicitWidth = 137 + Width = 137 + end + inherited edtDescuento: TcxDBSpinEdit + Style.IsFontAssigned = True + end + inherited edtIVA: TcxDBSpinEdit + Left = 525 + Style.IsFontAssigned = True + TabOrder = 9 + ExplicitLeft = 525 + end + inherited ImporteBase: TcxDBCurrencyEdit + Left = 525 + Style.IsFontAssigned = True + TabOrder = 8 + ExplicitLeft = 525 + ExplicitWidth = 92 + Width = 92 + end + inherited edtRE: TcxDBSpinEdit + Left = 525 + Style.IsFontAssigned = True + TabOrder = 11 + ExplicitLeft = 525 + end + inherited ImporteRE: TcxDBCurrencyEdit + Left = 596 + Style.IsFontAssigned = True + TabOrder = 12 + ExplicitLeft = 596 + ExplicitWidth = 56 + Width = 56 + end + inherited eImporteNeto: TcxDBCurrencyEdit + Style.IsFontAssigned = True + ExplicitWidth = 147 + Width = 147 + end + inherited ePorte: TcxDBCurrencyEdit + Top = 183 + Style.IsFontAssigned = True + TabOrder = 7 + ExplicitTop = 183 + end + inherited eIVA: TcxDBLookupComboBox + ExplicitWidth = 81 + Width = 81 + end + inherited bTiposIVA: TButton + Left = 265 + ExplicitLeft = 265 + end + inherited cbRecargoEquivalencia: TcxDBCheckBox + ExplicitWidth = 219 + Width = 219 + end + object eDescripciondescuento: TcxDBTextEdit [16] + Left = 104 + Top = 156 + AutoSize = False + DataBinding.DataField = 'DESCRIPCION_DESCUENTO' + DataBinding.DataSource = DADataSource + ParentFont = False + Properties.Alignment.Horz = taRightJustify + Properties.ReadOnly = False + Properties.UseLeftAlignmentOnEditing = False + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Font.Charset = DEFAULT_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -11 + Style.Font.Name = 'Tahoma' + Style.Font.Style = [] + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.TextColor = clWindowText + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 6 + Height = 21 + Width = 158 + end + inherited dxLayoutControl1Group_Root: TdxLayoutGroup + inherited dxLayoutControl1Group1: TdxLayoutGroup + inherited dxLayoutControl1Group2: TdxLayoutGroup + object dxLayoutControl1Item17: TdxLayoutItem [5] + Caption = 'Descripci'#243'n:' + Control = eDescripciondescuento + ControlOptions.ShowBorder = False + end + end + end + end + end +end diff --git a/Source/Modulos/Facturas de cliente/Views/uViewTotalesFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewTotalesFacturaCliente.pas new file mode 100644 index 00000000..37c0e5c1 --- /dev/null +++ b/Source/Modulos/Facturas de cliente/Views/uViewTotalesFacturaCliente.pas @@ -0,0 +1,29 @@ +unit uViewTotalesFacturaCliente; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewTotales, cxGraphics, dxLayoutLookAndFeels, DB, uDADataTable, + dxLayoutControl, cxCheckBox, cxDBEdit, StdCtrls, cxDropDownEdit, cxLookupEdit, + cxDBLookupEdit, cxDBLookupComboBox, cxMaskEdit, cxSpinEdit, cxContainer, + cxEdit, cxTextEdit, cxCurrencyEdit, ExtCtrls, cxControls; + +type + TfrViewTotalesFacturaCliente = class(TfrViewTotales) + dxLayoutControl1Item17: TdxLayoutItem; + eDescripciondescuento: TcxDBTextEdit; + private + { Private declarations } + public + { Public declarations } + end; + +var + frViewTotalesFacturaCliente: TfrViewTotalesFacturaCliente; + +implementation + +{$R *.dfm} + +end. diff --git a/Source/Servidor/FactuGES_Server.bdsproj b/Source/Servidor/FactuGES_Server.bdsproj index e69ce483..a4ecbefa 100644 --- a/Source/Servidor/FactuGES_Server.bdsproj +++ b/Source/Servidor/FactuGES_Server.bdsproj @@ -1,4 +1,4 @@ - +