From ddab3f05357f285eb5e8d01107b299fe02d4382a Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 3 Jan 2008 18:55:33 +0000 Subject: [PATCH] Arreglo en recibos y facturas de proveedor para que no falle la contabilidad git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@91 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/Base/Base.dproj | 82 +++++------ Source/Base/Base.res | Bin 384 -> 4748 bytes .../Contabilidad/Contabilidad_Group.groupproj | 56 ++++--- .../Contabilidad/Data/Contabilidad_data.res | Bin 4748 -> 384 bytes .../Model/schContabilidadClient_Intf.pas | 18 +-- .../Contabilidad/Views/Contabilidad_view.res | Bin 4748 -> 384 bytes .../Contabilidad/Views/uEditorAsiento.dfm | 24 +-- .../Contabilidad/Views/uViewDiario.dfm | 6 + .../Model/schFacturasClienteClient_Intf.pas | 8 +- .../Model/schFacturasClienteServer_Intf.pas | 8 +- .../Model/uBizFacturasClienteServer.pas | 1 + .../Servidor/srvFacturasCliente_Impl.dfm | 8 +- .../Views/uEditorFacturaCliente.dfm | 104 ++++++------- .../Data/uDataModuleFacturasProveedor.dfm | 4 + .../Model/schFacturasProveedorClient_Intf.pas | 49 ++++++- .../Model/schFacturasProveedorServer_Intf.pas | 51 ++++++- .../Model/uBizFacturasProveedorServer.pas | 94 +++++++++++- .../Servidor/srvFacturasProveedor_Impl.dfm | 77 ++++++++-- .../Views/uEditorFacturaProveedor.dfm | 106 +++++++++----- .../Views/uEditorFacturaProveedor.pas | 7 +- .../Data/uDataModuleRecibosCliente.pas | 3 +- .../Model/schRecibosClienteClient_Intf.pas | 12 +- .../Model/schRecibosClienteServer_Intf.pas | 12 +- .../Model/uBizPagosClienteServer.pas | 1 + .../Servidor/srvRecibosCliente_Impl.dfm | 10 +- .../Servidor/srvRecibosCliente_Impl.pas | 3 +- .../Views/uEditorFechaPago.pas | 3 +- .../View/uIEditorFechaPagoProveedor.pas | 8 + .../Controller/uPagosProveedorController.pas | 16 +- .../uRecibosProveedorController.pas | 19 ++- .../Data/RecibosProveedor_data.dproj | 6 +- .../Data/uDataModuleRecibosProveedor.dfm | 30 ++-- .../Model/schRecibosProveedorClient_Intf.pas | 55 +++++-- .../Model/schRecibosProveedorServer_Intf.pas | 55 ++++++- .../Model/uBizPagosProveedor.pas | 18 ++- .../Model/uBizPagosProveedorServer.pas | 119 +++++++++++++++ .../RecibosProveedor_Group.groupproj | 16 +- .../Servidor/srvRecibosProveedor_Impl.dfm | 125 ++++++++-------- .../Servidor/srvRecibosProveedor_Impl.pas | 8 +- .../Views/uEditorFechaPagoProveedor.dfm | 92 +++++++++++- .../Views/uEditorFechaPagoProveedor.pas | 90 +++++++++++- .../Views/uEditorReciboProveedor.dfm | 138 +++++++++++------- Source/Servidor/FactuGES_Server.RES | Bin 23208 -> 23200 bytes Source/Servidor/FactuGES_Server.dpr | 19 +-- Source/Servidor/FactuGES_Server.dproj | 4 + Source/Servidor/FactuGES_Server.rc | 2 +- 46 files changed, 1161 insertions(+), 406 deletions(-) create mode 100644 Source/Modulos/Recibos de proveedor/Model/uBizPagosProveedorServer.pas diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 93ca12eb..8380d27b 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -58,48 +58,46 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Base/Base.res b/Source/Base/Base.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/Contabilidad/Contabilidad_Group.groupproj b/Source/Modulos/Contabilidad/Contabilidad_Group.groupproj index e856af51..84ec7d0c 100644 --- a/Source/Modulos/Contabilidad/Contabilidad_Group.groupproj +++ b/Source/Modulos/Contabilidad/Contabilidad_Group.groupproj @@ -9,9 +9,10 @@ - + - + + @@ -105,24 +106,6 @@ - - - - - - - - - - - - - - - - - - @@ -141,14 +124,41 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Contabilidad/Data/Contabilidad_data.res b/Source/Modulos/Contabilidad/Data/Contabilidad_data.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc 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 diff --git a/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas b/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas index 02e4cd45..d5f72705 100644 --- a/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas +++ b/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas @@ -3,7 +3,7 @@ unit schContabilidadClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids @@ -293,7 +293,7 @@ type end; { TDiarioDataTableRules } - TDiarioDataTableRules = class(TDADataTableRules, IDiario) + TDiarioDataTableRules = class(TIntfObjectDADataTableRules, IDiario) private protected { Property getters and setters } @@ -466,7 +466,7 @@ type end; { TApuntesDataTableRules } - TApuntesDataTableRules = class(TDADataTableRules, IApuntes) + TApuntesDataTableRules = class(TIntfObjectDADataTableRules, IApuntes) private protected { Property getters and setters } @@ -585,7 +585,7 @@ type end; { TAsientosDataTableRules } - TAsientosDataTableRules = class(TDADataTableRules, IAsientos) + TAsientosDataTableRules = class(TIntfObjectDADataTableRules, IAsientos) private protected { Property getters and setters } @@ -704,7 +704,7 @@ type end; { TSubCuentasDataTableRules } - TSubCuentasDataTableRules = class(TDADataTableRules, ISubCuentas) + TSubCuentasDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentas) private protected { Property getters and setters } @@ -853,7 +853,7 @@ type end; { TCuentasDataTableRules } - TCuentasDataTableRules = class(TDADataTableRules, ICuentas) + TCuentasDataTableRules = class(TIntfObjectDADataTableRules, ICuentas) private protected { Property getters and setters } @@ -954,7 +954,7 @@ type end; { TCuentasEspecialesDataTableRules } - TCuentasEspecialesDataTableRules = class(TDADataTableRules, ICuentasEspeciales) + TCuentasEspecialesDataTableRules = class(TIntfObjectDADataTableRules, ICuentasEspeciales) private protected { Property getters and setters } @@ -1031,7 +1031,7 @@ type end; { TEpigrafesDataTableRules } - TEpigrafesDataTableRules = class(TDADataTableRules, IEpigrafes) + TEpigrafesDataTableRules = class(TIntfObjectDADataTableRules, IEpigrafes) private protected { Property getters and setters } @@ -1144,7 +1144,7 @@ type end; { TBalancesDataTableRules } - TBalancesDataTableRules = class(TDADataTableRules, IBalances) + TBalancesDataTableRules = class(TIntfObjectDADataTableRules, IBalances) private protected { Property getters and setters } diff --git a/Source/Modulos/Contabilidad/Views/Contabilidad_view.res b/Source/Modulos/Contabilidad/Views/Contabilidad_view.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc 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 diff --git a/Source/Modulos/Contabilidad/Views/uEditorAsiento.dfm b/Source/Modulos/Contabilidad/Views/uEditorAsiento.dfm index 35a7b958..469d827b 100644 --- a/Source/Modulos/Contabilidad/Views/uEditorAsiento.dfm +++ b/Source/Modulos/Contabilidad/Views/uEditorAsiento.dfm @@ -5,19 +5,19 @@ inherited fEditorAsiento: TfEditorAsiento VertScrollBar.Visible = False Caption = 'Ficha de asiento' ClientHeight = 497 - ClientWidth = 906 + ClientWidth = 850 Scaled = False OnClose = CustomEditorClose - ExplicitWidth = 914 + ExplicitWidth = 858 ExplicitHeight = 524 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 906 + Width = 850 Caption = 'Asiento' ExplicitWidth = 906 inherited Image1: TImage - Left = 879 + Left = 823 Picture.Data = { 0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018 000000180806000000E0773DF8000000017352474200AECE1CE9000000046741 @@ -43,7 +43,7 @@ inherited fEditorAsiento: TfEditorAsiento end end inherited TBXDock: TTBXDock - Width = 906 + Width = 850 ExplicitWidth = 906 inherited tbxMain: TTBXToolbar ExplicitWidth = 330 @@ -62,7 +62,7 @@ inherited fEditorAsiento: TfEditorAsiento end inherited tbxMenu: TTBXToolbar DockPos = 0 - ExplicitWidth = 906 + ExplicitWidth = 850 inherited TBXSubmenuItem4: TTBXSubmenuItem inherited TBXItem8: TTBXItem Visible = False @@ -97,7 +97,7 @@ inherited fEditorAsiento: TfEditorAsiento end end inherited pgPaginas: TPageControl - Width = 900 + Width = 844 Height = 396 ExplicitLeft = 3 ExplicitTop = 79 @@ -111,13 +111,14 @@ inherited fEditorAsiento: TfEditorAsiento object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 - Width = 892 + Width = 836 Height = 368 Align = alClient TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] + ExplicitWidth = 892 DesignSize = ( - 892 + 836 368) object edtOrden: TcxDBSpinEdit Left = 49 @@ -151,7 +152,7 @@ inherited fEditorAsiento: TfEditorAsiento Width = 168 end object edtFecha: TcxDBDateEdit - Left = 414 + Left = 391 Top = 10 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_ASIENTO' @@ -177,7 +178,6 @@ inherited fEditorAsiento: TfEditorAsiento Top = 55 Width = 848 Height = 287 - AutoSize = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 @@ -261,7 +261,7 @@ inherited fEditorAsiento: TfEditorAsiento end inherited StatusBar: TJvStatusBar Top = 478 - Width = 906 + Width = 850 Panels = < item Width = 200 diff --git a/Source/Modulos/Contabilidad/Views/uViewDiario.dfm b/Source/Modulos/Contabilidad/Views/uViewDiario.dfm index 375d5083..767eafa2 100644 --- a/Source/Modulos/Contabilidad/Views/uViewDiario.dfm +++ b/Source/Modulos/Contabilidad/Views/uViewDiario.dfm @@ -20,20 +20,26 @@ inherited frViewDiario: TfrViewDiario BestFitMaxWidth = 22 MinWidth = 22 Options.HorzSizing = False + VisibleForCustomization = False Width = 22 IsCaptionAssigned = True end object cxGridViewID_APUNTE: TcxGridDBColumn DataBinding.FieldName = 'ID_APUNTE' Visible = False + VisibleForCustomization = False end object cxGridViewID_FACTURA: TcxGridDBColumn Caption = 'Fac.Asoc.' DataBinding.FieldName = 'ID_FACTURA' + Visible = False + VisibleForCustomization = False end object cxGridViewID_PAGO: TcxGridDBColumn Caption = 'Pag.Asoc.' DataBinding.FieldName = 'ID_PAGO' + Visible = False + VisibleForCustomization = False end object cxGridViewFECHA_ASIENTO: TcxGridDBColumn Caption = 'Fecha asiento' diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas index 18a77a3d..28024267 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 = '{F2391B37-1CFC-4278-9886-10B58EB16F64}'; - RID_FacturasCliente_Detalles = '{85136507-38CB-4985-B1C4-DFBDB0D69903}'; + RID_FacturasCliente = '{5CFC1F3A-C4C3-4B0D-A3D3-4B7228AC1A66}'; + RID_FacturasCliente_Detalles = '{00F71BAE-F97E-4623-822A-CABF96670B07}'; { Data table names } nme_FacturasCliente = 'FacturasCliente'; @@ -123,7 +123,7 @@ const type { IFacturasCliente } IFacturasCliente = interface(IDAStronglyTypedDataTable) - ['{EE310893-B940-40AD-B0F3-7BBF9128C629}'] + ['{313860F6-D8F4-464D-B088-46B3D21E0BF6}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -554,7 +554,7 @@ type { IFacturasCliente_Detalles } IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{69194180-6BEA-41D0-8DD9-21E562F1B351}'] + ['{4C9E0D36-778C-4B10-A259-7464E5477004}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas index d4ccfc90..05f13c00 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 = '{156A6AD0-D912-4FCF-AC71-2BB455BBC0AB}'; - RID_FacturasCliente_DetallesDelta = '{F4802AAF-93A6-40A6-8DC8-8BF1B5E4B06A}'; + RID_FacturasClienteDelta = '{D3AF6738-9259-4CD5-8C00-3759F8E7A324}'; + RID_FacturasCliente_DetallesDelta = '{A44965AF-2317-4817-8A12-BAF06CA8E77E}'; type { IFacturasClienteDelta } IFacturasClienteDelta = interface(IFacturasCliente) - ['{156A6AD0-D912-4FCF-AC71-2BB455BBC0AB}'] + ['{D3AF6738-9259-4CD5-8C00-3759F8E7A324}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -446,7 +446,7 @@ type { IFacturasCliente_DetallesDelta } IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) - ['{F4802AAF-93A6-40A6-8DC8-8BF1B5E4B06A}'] + ['{A44965AF-2317-4817-8A12-BAF06CA8E77E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas index cd52abd9..f3d5d303 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas @@ -101,6 +101,7 @@ begin with ACommand do begin ParamByName('IdFactura').Value := aChange.OldValueByName[fld_FacturasClienteID]; + ParamByName('Tipo').Value := 'c'; Execute; end; finally diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm index f4af2535..c0931165 100644 --- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm +++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm @@ -512,6 +512,10 @@ object srvFacturasCliente: TsrvFacturasCliente item Name = 'IdFactura' Value = '' + end + item + Name = 'Tipo' + Value = '' end> Statements = < item @@ -519,7 +523,7 @@ object srvFacturasCliente: TsrvFacturasCliente ConnectionType = 'Interbase' Default = True Name = 'IBX' - SQL = 'execute procedure proc_delete_asiento_factura :IdFactura'#10 + SQL = 'execute procedure proc_delete_asiento_factura :IdFactura, :Tipo'#10 StatementType = stSQL ColumnMappings = <> end> @@ -537,7 +541,7 @@ object srvFacturasCliente: TsrvFacturasCliente ConnectionType = 'Interbase' Default = True Name = 'IBX' - SQL = 'execute procedure proc_new_asiento_factura :IdFactura'#10 + SQL = 'execute procedure proc_new_asiento_factura_cli :IdFactura'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm index 6706959a..6136347d 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm @@ -69,22 +69,24 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end end inherited pgPaginas: TPageControl - Width = 788 - Height = 317 - ActivePage = pagContenido + Width = 782 + Height = 311 + ActivePage = pagContabilidad OnChanging = pgPaginasChanging - ExplicitWidth = 788 - ExplicitHeight = 317 + ExplicitLeft = 3 + ExplicitTop = 79 + ExplicitWidth = 782 + ExplicitHeight = 311 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 - ExplicitWidth = 780 - ExplicitHeight = 289 + ExplicitWidth = 774 + ExplicitHeight = 283 inline frViewFacturaCliente1: TfrViewFacturaCliente Left = 0 Top = 0 - Width = 780 - Height = 289 + Width = 774 + Height = 283 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -94,16 +96,16 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 780 - ExplicitHeight = 289 + ExplicitWidth = 774 + ExplicitHeight = 283 inherited dxLayoutControl1: TdxLayoutControl - Width = 780 - Height = 289 - ExplicitWidth = 780 - ExplicitHeight = 289 + Width = 774 + Height = 283 + ExplicitWidth = 774 + ExplicitHeight = 283 DesignSize = ( - 780 - 289) + 774 + 283) inherited eReferencia: TcxDBTextEdit ExplicitWidth = 393 Width = 393 @@ -119,9 +121,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Width = 473 end inherited frViewClienteFactura: TfrViewDatosYSeleccionCliente - Left = 474 + Left = 471 Width = 332 - ExplicitLeft = 474 + ExplicitLeft = 471 ExplicitWidth = 332 inherited dxLayoutControl1: TdxLayoutControl Width = 332 @@ -162,8 +164,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Width = 255 end inherited bFormasPago: TButton - Left = 314 - ExplicitLeft = 314 + Left = 311 + ExplicitLeft = 311 end end end @@ -174,8 +176,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente Left = 0 Top = 0 - Width = 780 - Height = 289 + Width = 774 + Height = 283 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -187,11 +189,11 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 780 - ExplicitHeight = 289 + ExplicitWidth = 774 + ExplicitHeight = 283 inherited ToolBar1: TToolBar - Width = 780 - ExplicitWidth = 780 + Width = 774 + ExplicitWidth = 774 inherited ToolButton4: TToolButton Wrap = False end @@ -213,51 +215,51 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ExplicitWidth = 57 end inherited UpDown1: TUpDown - Left = 217 - ExplicitLeft = 217 + Left = 202 + ExplicitLeft = 202 end inherited ToolButton13: TToolButton - Left = 234 - ExplicitLeft = 234 + Left = 219 + ExplicitLeft = 219 end inherited ToolButton6: TToolButton - Left = 242 - ExplicitLeft = 242 + Left = 227 + ExplicitLeft = 227 end inherited ToolButton7: TToolButton - Left = 276 - ExplicitLeft = 276 + Left = 261 + ExplicitLeft = 261 end inherited ToolButton8: TToolButton - Left = 310 - ExplicitLeft = 310 + Left = 295 + ExplicitLeft = 295 end inherited ToolButton12: TToolButton - Left = 344 - ExplicitLeft = 344 + Left = 329 + ExplicitLeft = 329 end inherited ToolButton9: TToolButton - Left = 352 - ExplicitLeft = 352 + Left = 337 + ExplicitLeft = 337 end inherited ToolButton10: TToolButton - Left = 386 - ExplicitLeft = 386 + Left = 371 + ExplicitLeft = 371 end inherited ToolButton11: TToolButton - Left = 420 - ExplicitLeft = 420 + Left = 405 + ExplicitLeft = 405 end end inherited cxGrid: TcxGrid - Width = 780 - Height = 217 - ExplicitWidth = 780 - ExplicitHeight = 217 + Width = 774 + Height = 211 + ExplicitWidth = 774 + ExplicitHeight = 211 end inherited TBXDock1: TTBXDock - Width = 780 - ExplicitWidth = 780 + Width = 774 + ExplicitWidth = 774 inherited TBXToolbar1: TTBXToolbar ExplicitWidth = 548 end diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm index 4ed16590..31418d84 100644 --- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm @@ -227,6 +227,10 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor DisplayLabel = 'Importe del porte' Alignment = taRightJustify DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE' + end + item + Name = 'IGNORAR_CONTABILIDAD' + DataType = datSmallInt end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas index 8f4569f0..a4fa0284 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas @@ -3,14 +3,14 @@ unit schFacturasProveedorClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; 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_FacturasProveedor = '{136699FF-423F-4F03-8EF2-2177BB023D1D}'; - RID_FacturasProveedor_Detalles = '{DEFE9C53-4E75-4151-97EB-0B915C6D0FA3}'; + RID_FacturasProveedor = '{5DE2E10C-A833-40C3-BE32-293A7D50E034}'; + RID_FacturasProveedor_Detalles = '{CF4A1BF0-15D1-4A05-B66A-73F2F32AEEA2}'; { Data table names } nme_FacturasProveedor = 'FacturasProveedor'; @@ -48,6 +48,7 @@ const fld_FacturasProveedorID_TIPO_IVA = 'ID_TIPO_IVA'; fld_FacturasProveedorIMPORTE_NETO = 'IMPORTE_NETO'; fld_FacturasProveedorIMPORTE_PORTE = 'IMPORTE_PORTE'; + fld_FacturasProveedorIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD'; { FacturasProveedor field indexes } idx_FacturasProveedorID = 0; @@ -81,6 +82,7 @@ const idx_FacturasProveedorID_TIPO_IVA = 28; idx_FacturasProveedorIMPORTE_NETO = 29; idx_FacturasProveedorIMPORTE_PORTE = 30; + idx_FacturasProveedorIGNORAR_CONTABILIDAD = 31; { FacturasProveedor_Detalles fields } fld_FacturasProveedor_DetallesID = 'ID'; @@ -117,7 +119,7 @@ const type { IFacturasProveedor } IFacturasProveedor = interface(IDAStronglyTypedDataTable) - ['{C77E17AB-983D-4BA0-9307-753EEACE24CA}'] + ['{BFF47882-8083-4762-8152-471606B73FDD}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -242,6 +244,10 @@ type procedure SetIMPORTE_PORTEValue(const aValue: Currency); function GetIMPORTE_PORTEIsNull: Boolean; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); + function GetIGNORAR_CONTABILIDADValue: SmallInt; + procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); + function GetIGNORAR_CONTABILIDADIsNull: Boolean; + procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); { Properties } @@ -307,10 +313,12 @@ type property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue; + property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull; end; { TFacturasProveedorDataTableRules } - TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor) + TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor) private f_OBSERVACIONES: IROStrings; procedure OBSERVACIONES_OnChange(Sender: TObject); @@ -439,6 +447,10 @@ type procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; function GetIMPORTE_PORTEIsNull: Boolean; virtual; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; + function GetIGNORAR_CONTABILIDADValue: SmallInt; virtual; + procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual; + function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual; + procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -503,6 +515,8 @@ type property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue; + property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -512,7 +526,7 @@ type { IFacturasProveedor_Detalles } IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{A0C91003-B79C-400B-815C-9CC93FBAB289}'] + ['{E1CE7258-5767-4D41-AD5D-B8A6AAB6CA66}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -604,7 +618,7 @@ type end; { TFacturasProveedor_DetallesDataTableRules } - TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles) + TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles) private protected { Property getters and setters } @@ -1374,6 +1388,27 @@ begin DataTable.Fields[idx_FacturasProveedorIMPORTE_PORTE].AsVariant := Null; end; +function TFacturasProveedorDataTableRules.GetIGNORAR_CONTABILIDADValue: SmallInt; +begin + result := DataTable.Fields[idx_FacturasProveedorIGNORAR_CONTABILIDAD].AsSmallInt; +end; + +procedure TFacturasProveedorDataTableRules.SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); +begin + DataTable.Fields[idx_FacturasProveedorIGNORAR_CONTABILIDAD].AsSmallInt := aValue; +end; + +function TFacturasProveedorDataTableRules.GetIGNORAR_CONTABILIDADIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorIGNORAR_CONTABILIDAD].IsNull; +end; + +procedure TFacturasProveedorDataTableRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorIGNORAR_CONTABILIDAD].AsVariant := Null; +end; + { TFacturasProveedor_DetallesDataTableRules } constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas index 0be45955..8581c2fc 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_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_FacturasProveedorDelta = '{49DEF80E-CE30-451C-9F9F-ACC792AF58B2}'; - RID_FacturasProveedor_DetallesDelta = '{2373FE62-65FF-43FC-86C0-82138300CDA1}'; + RID_FacturasProveedorDelta = '{AC5A5905-6BD4-4C36-A37A-3EEC30573F51}'; + RID_FacturasProveedor_DetallesDelta = '{CD5BD628-F822-44A4-8AE7-64D239ABC8B2}'; type { IFacturasProveedorDelta } IFacturasProveedorDelta = interface(IFacturasProveedor) - ['{49DEF80E-CE30-451C-9F9F-ACC792AF58B2}'] + ['{AC5A5905-6BD4-4C36-A37A-3EEC30573F51}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -48,6 +48,7 @@ type function GetOldID_TIPO_IVAValue : Integer; function GetOldIMPORTE_NETOValue : Currency; function GetOldIMPORTE_PORTEValue : Currency; + function GetOldIGNORAR_CONTABILIDADValue : SmallInt; { Properties } property OldID : Integer read GetOldIDValue; @@ -81,6 +82,7 @@ type property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; + property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue; end; { TFacturasProveedorBusinessProcessorRules } @@ -275,6 +277,12 @@ type function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; + function GetIGNORAR_CONTABILIDADValue: SmallInt; virtual; + function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual; + function GetOldIGNORAR_CONTABILIDADValue: SmallInt; virtual; + function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual; + procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual; + procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -401,6 +409,10 @@ type property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; + property IGNORAR_CONTABILIDAD : SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue; + property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull; + property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue; + property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -410,7 +422,7 @@ type { IFacturasProveedor_DetallesDelta } IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) - ['{2373FE62-65FF-43FC-86C0-82138300CDA1}'] + ['{CD5BD628-F822-44A4-8AE7-64D239ABC8B2}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -1583,6 +1595,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_PORTE] := Null; end; +function TFacturasProveedorBusinessProcessorRules.GetIGNORAR_CONTABILIDADValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIGNORAR_CONTABILIDAD]; +end; + +function TFacturasProveedorBusinessProcessorRules.GetIGNORAR_CONTABILIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIGNORAR_CONTABILIDAD]); +end; + +function TFacturasProveedorBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorIGNORAR_CONTABILIDAD]; +end; + +function TFacturasProveedorBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorIGNORAR_CONTABILIDAD]); +end; + +procedure TFacturasProveedorBusinessProcessorRules.SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIGNORAR_CONTABILIDAD] := aValue; +end; + +procedure TFacturasProveedorBusinessProcessorRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIGNORAR_CONTABILIDAD] := Null; +end; + { TFacturasProveedor_DetallesBusinessProcessorRules } constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas index d0bbedfa..6d821002 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas @@ -15,10 +15,12 @@ type function DarReferencia : String; function IncrementarReferencia : Boolean; protected - procedure BeforeProcessDelta(Sender: TDABusinessProcessor; - const aDelta: IDADelta); override; - procedure AfterProcessChange(Sender: TDABusinessProcessor; - aChange: TDADeltaChange; Processed: Boolean; + procedure Insert_Asiento_Factura(aChange: TDADeltaChange); virtual; + procedure Update_Asiento_Factura(aChange: TDADeltaChange); virtual; + procedure Delete_Asiento_Factura(aChange: TDADeltaChange); virtual; + + procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override; + procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override; end; @@ -36,12 +38,26 @@ const { TBizFacturasProveedorServer } -procedure TBizFacturasProveedorServer.AfterProcessChange( - Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; +procedure TBizFacturasProveedorServer.AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); begin inherited; - { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita } + + case aChange.ChangeType of + ctInsert: begin + Insert_Asiento_Factura(aChange); + end; + ctUpdate: begin + Update_Asiento_Factura(aChange); + end; + ctDelete: begin + Delete_Asiento_Factura(aChange); + end; + end; + + // No hay que quitar los deltas para que los datos del contacto se + // mantengan por si alguna tabla detalle lo necesita + // (por ejemplo, DireccionesContacto) CanRemoveFromDelta := False; case aChange.ChangeType of @@ -88,6 +104,28 @@ begin end; end; +procedure TBizFacturasProveedorServer.Delete_Asiento_Factura(aChange: TDADeltaChange); +var + ASchema : TDASchema; + ACurrentConn : IDAConnection; + ACommand : IDASQLCommand; +begin + ASchema := BusinessProcessor.Schema; + ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); + + ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_AsientoFactura'); + try + with ACommand do + begin + ParamByName('IdFactura').Value := aChange.OldValueByName[fld_FacturasProveedorID]; + ParamByName('Tipo').Value := 'p'; + Execute; + end; + finally + ACommand := NIL; + end; +end; + function TBizFacturasProveedorServer.IncrementarReferencia: Boolean; var ATipo : String; @@ -107,6 +145,48 @@ begin end; +procedure TBizFacturasProveedorServer.Insert_Asiento_Factura(aChange: TDADeltaChange); +var + ASchema : TDASchema; + ACurrentConn : IDAConnection; + ACommand : IDASQLCommand; +begin + ASchema := BusinessProcessor.Schema; + ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); + + ACommand := ASchema.NewCommand(ACurrentConn, 'Insert_AsientoFactura'); + try + with ACommand do + begin + ParamByName('IdFactura').Value := aChange.NewValueByName[fld_FacturasProveedorID]; + Execute; + end; + finally + ACommand := NIL; + end; +end; + +procedure TBizFacturasProveedorServer.Update_Asiento_Factura(aChange: TDADeltaChange); +var + ASchema : TDASchema; + ACurrentConn : IDAConnection; + ACommand : IDASQLCommand; +begin + ASchema := BusinessProcessor.Schema; + ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); + + ACommand := ASchema.NewCommand(ACurrentConn, 'Insert_AsientoFactura'); + try + with ACommand do + begin + ParamByName('IdFactura').Value := aChange.NewValueByName[fld_FacturasProveedorID]; + Execute; + end; + finally + ACommand := NIL; + end; +end; + initialization RegisterBusinessProcessorRules(BIZ_SERVER_FACTURAS_PROVEEDOR, TBizFacturasProveedorServer); diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm index 579b735e..30d32844 100644 --- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm +++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm @@ -146,6 +146,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor item DatasetField = 'IMPORTE_PORTE' TableField = 'IMPORTE_PORTE' + end + item + DatasetField = 'IGNORAR_CONTABILIDAD' + TableField = 'IGNORAR_CONTABILIDAD' end> end> Name = 'FacturasProveedor' @@ -318,6 +322,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor Name = 'IMPORTE_PORTE' DataType = datCurrency DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE' + end + item + Name = 'IGNORAR_CONTABILIDAD' + DataType = datSmallInt end> end item @@ -483,6 +491,46 @@ object srvFacturasProveedor: TsrvFacturasProveedor JoinDataTables = <> UnionDataTables = <> Commands = < + item + Params = < + item + Name = 'IdFactura' + Value = '' + end + item + Name = 'Tipo' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True + Name = 'IBX' + SQL = 'execute procedure proc_delete_asiento_factura :IdFactura, :Tipo'#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Delete_AsientoFactura' + end + item + Params = < + item + Name = 'IdFactura' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True + Name = 'IBX' + SQL = 'execute procedure proc_new_asiento_factura_prov :IdFactura'#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Insert_AsientoFactura' + end item Params = < item @@ -602,6 +650,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor item Name = 'IMPORTE_PORTE' Value = '' + end + item + Name = 'IGNORAR_CONTABILIDAD' + Value = '' end> Statements = < item @@ -615,15 +667,15 @@ object srvFacturasProveedor: TsrvFacturasProveedor ' '#10' IMPORTE_TOTAL, OBSERVACIONES, ID_PROVEEDOR, NIF_CIF, '#10' ' + ' NOMBRE, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, '#10' FECH' + 'A_ALTA, FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, '#10' RECARG' + - 'O_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE)'#10' VALU' + - 'ES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' ' + - ' :FECHA_FACTURA, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DE' + - 'SCUENTO, :IVA, :IMPORTE_IVA, :RE, :IMPORTE_RE, '#10' :IMPORTE_TO' + - 'TAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF, '#10' :NOMBRE, :CA' + - 'LLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' :FECHA_ALTA, ' + - ':FECHA_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10' :RECARGO_EQ' + - 'UIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_PORTE)'#10' ' + - ' '#10' '#10#10 + 'O_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE, IGNORA' + + 'R_CONTABILIDAD)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :RE' + + 'FERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :BASE_IMPONIBLE, :DESCU' + + 'ENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :RE, :IMPORTE' + + '_RE, '#10' :IMPORTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_C' + + 'IF, '#10' :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTA' + + 'L, '#10' :FECHA_ALTA, :FECHA_MODIFICACION, :USUARIO, :ID_FORMA_P' + + 'AGO, '#10' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10 + + ' :IMPORTE_PORTE, :IGNORAR_CONTABILIDAD)'#10' '#10' '#10#10 StatementType = stSQL ColumnMappings = <> end> @@ -766,6 +818,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor Name = 'IMPORTE_PORTE' Value = '' end + item + Name = 'IGNORAR_CONTABILIDAD' + Value = '' + end item Name = 'OLD_ID' Value = '' @@ -791,7 +847,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor ' :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' RECARGO_EQU' + 'IVALENCIA = :RECARGO_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_I' + 'VA, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMP' + - 'ORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'#10 + 'ORTE_PORTE,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD'#10' W' + + 'HERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm index 3b0c8efc..54095f61 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm @@ -69,21 +69,24 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor end end inherited pgPaginas: TPageControl - Width = 788 - Height = 315 + Width = 782 + Height = 309 + ActivePage = pagContabilidad OnChanging = pgPaginasChanging - ExplicitWidth = 788 - ExplicitHeight = 315 + ExplicitLeft = 3 + ExplicitTop = 79 + ExplicitWidth = 782 + ExplicitHeight = 309 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 - ExplicitWidth = 780 - ExplicitHeight = 287 + ExplicitWidth = 774 + ExplicitHeight = 281 inline frViewFacturaProveedor1: TfrViewFacturaProveedor Left = 0 Top = 0 - Width = 780 - Height = 287 + Width = 774 + Height = 281 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -93,13 +96,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 780 - ExplicitHeight = 287 + ExplicitWidth = 774 + ExplicitHeight = 281 inherited dxLayoutControl1: TdxLayoutControl - Width = 780 - Height = 287 - ExplicitWidth = 780 - ExplicitHeight = 287 + Width = 774 + Height = 281 + ExplicitWidth = 774 + ExplicitHeight = 281 inherited eReferencia: TcxDBTextEdit ExplicitWidth = 159 Width = 159 @@ -119,13 +122,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor Width = 78 end inherited bFormasPago: TButton - Left = 234 - ExplicitLeft = 234 + Left = 231 + ExplicitLeft = 231 end inherited frViewProveedorFactura: TfrViewDatosYSeleccionProveedor - Left = 394 + Left = 391 Width = 350 - ExplicitLeft = 394 + ExplicitLeft = 391 ExplicitWidth = 350 inherited dxLayoutControl1: TdxLayoutControl Width = 350 @@ -155,13 +158,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor Width = 327 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 272 + Left = 269 DataBinding.DataSource = frViewFacturaProveedor1.DADataSource - ExplicitLeft = 272 + ExplicitLeft = 269 end inherited Button3: TBitBtn - Left = 156 - ExplicitLeft = 156 + Left = 153 + ExplicitLeft = 153 end end end @@ -171,11 +174,15 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor object pagContenido: TTabSheet Caption = 'Contenido' ImageIndex = 1 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor Left = 0 Top = 0 - Width = 780 - Height = 287 + Width = 774 + Height = 281 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -187,11 +194,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 780 - ExplicitHeight = 287 + ExplicitWidth = 774 + ExplicitHeight = 281 inherited ToolBar1: TToolBar - Width = 780 - ExplicitWidth = 780 + Width = 774 + ExplicitWidth = 774 inherited ToolButton4: TToolButton Wrap = False end @@ -250,20 +257,51 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor end end inherited cxGrid: TcxGrid - Width = 780 - Height = 215 - ExplicitWidth = 780 - ExplicitHeight = 215 + Width = 774 + Height = 209 + ExplicitWidth = 774 + ExplicitHeight = 209 end inherited TBXDock1: TTBXDock - Width = 780 - ExplicitWidth = 780 + Width = 774 + ExplicitWidth = 774 inherited TBXToolbar1: TTBXToolbar ExplicitWidth = 548 end end end end + object pagContabilidad: TTabSheet + Caption = 'Contabilidad' + ImageIndex = 2 + ExplicitLeft = 0 + ExplicitTop = 25 + ExplicitWidth = 0 + ExplicitHeight = 0 + object cbIgnorarContabilidad: TcxDBCheckBox + Left = 16 + Top = 12 + Caption = 'Ignorar en contabilidad' + DataBinding.DataField = 'IGNORAR_CONTABILIDAD' + DataBinding.DataSource = dsDataTable + Properties.NullStyle = nssUnchecked + Properties.ValueChecked = 1 + Properties.ValueUnchecked = 0 + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 0 + Width = 300 + end + end end inherited StatusBar: TJvStatusBar Top = 554 diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas index e9cf84a6..a8220ef3 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas @@ -13,7 +13,8 @@ uses uBizFacturasProveedor, uIEditorFacturaProveedor, uFacturasProveedorController, uViewDetallesBase, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uBizTiposIVA, uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, - uViewDetallesFacturaProveedor, uViewFacturaProveedor, uDAInterfaces; + uViewDetallesFacturaProveedor, uViewFacturaProveedor, uDAInterfaces, + cxControls, cxContainer, cxEdit, cxCheckBox, cxDBEdit; type @@ -21,6 +22,8 @@ type frViewTotales1: TfrViewTotales; frViewFacturaProveedor1: TfrViewFacturaProveedor; frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor; + pagContabilidad: TTabSheet; + cbIgnorarContabilidad: TcxDBCheckBox; procedure FormShow(Sender: TObject); procedure frViewProveedorFactura1edtlNombrePropertiesEditValueChanged( Sender: TObject); @@ -75,7 +78,7 @@ implementation {$R *.dfm} uses - cxDBEdit, uBizContactos, uDataModuleUsuarios, cxControls, uFactuGES_App, + uBizContactos, uDataModuleUsuarios, uFactuGES_App, uDetallesFacturaProveedorController, uDialogUtils, uDataTableUtils; // uGenerarAlbaranesProvFacProvUtils; diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas index fc72e5b9..3ac5f4de 100644 --- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas @@ -47,6 +47,7 @@ type tbl_RecibosCompensadosCli: TDAMemDataTable; ds_RecibosCompensadosCli: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); + protected function _GetPagos: IBizPagosCliente; function _GetRecibosCompensados : IBizRecibosCompensadosCli; @@ -62,7 +63,7 @@ implementation {$R *.DFM} uses - FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, + FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, schRecibosClienteClient_Intf; { TDataModuleRecibosCliente } diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas index 7809596c..4bee1402 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas @@ -9,9 +9,9 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_RecibosCliente = '{BD713121-B67A-4555-B1F6-8C79907169A8}'; - RID_PagosCliente = '{51327032-C47B-4B5A-A2FB-4FF7FA518830}'; - RID_RecibosCompensadosCli = '{942FEF94-88F0-4687-9F8F-420A53607386}'; + RID_RecibosCliente = '{08D48C16-47F6-4396-B402-DCB79C0CF5E3}'; + RID_PagosCliente = '{782F3802-B17C-4448-9C21-5A971E79CA34}'; + RID_RecibosCompensadosCli = '{ABA4E332-F32B-4501-BAB6-388F1C2E5F90}'; { Data table names } nme_RecibosCliente = 'RecibosCliente'; @@ -175,7 +175,7 @@ const type { IRecibosCliente } IRecibosCliente = interface(IDAStronglyTypedDataTable) - ['{13B23B67-01E0-4206-8F77-7C86FAB5765C}'] + ['{B1690FE5-2752-4154-948C-AD438BDDC48B}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -546,7 +546,7 @@ type { IPagosCliente } IPagosCliente = interface(IDAStronglyTypedDataTable) - ['{CACDCDCC-257B-4007-87DE-DDB16A31FA1E}'] + ['{4A5990E2-A1FC-4839-8463-25AB1AFC1CD2}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -725,7 +725,7 @@ type { IRecibosCompensadosCli } IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable) - ['{318980D4-1AED-437D-A1BB-40D176B7F41A}'] + ['{F4602DC2-1B70-438C-A14E-D92C55A26766}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas index 4d1c75d6..04fd6f20 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas @@ -9,14 +9,14 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_RecibosClienteDelta = '{0886304E-ADCF-4985-93CD-63C479B0592E}'; - RID_PagosClienteDelta = '{D5A42190-E981-46DA-BADE-32C8DD8A03B3}'; - RID_RecibosCompensadosCliDelta = '{46B04689-C995-45CE-B3CA-C602E1142822}'; + RID_RecibosClienteDelta = '{5808EEBF-877B-4662-AE1D-C5D3E222230D}'; + RID_PagosClienteDelta = '{4BC06FA3-E27C-4E39-AC4E-03E78C1E25C3}'; + RID_RecibosCompensadosCliDelta = '{B414ABD6-606E-458D-A58F-ABAB88906CE9}'; type { IRecibosClienteDelta } IRecibosClienteDelta = interface(IRecibosCliente) - ['{0886304E-ADCF-4985-93CD-63C479B0592E}'] + ['{5808EEBF-877B-4662-AE1D-C5D3E222230D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -386,7 +386,7 @@ type { IPagosClienteDelta } IPagosClienteDelta = interface(IPagosCliente) - ['{D5A42190-E981-46DA-BADE-32C8DD8A03B3}'] + ['{4BC06FA3-E27C-4E39-AC4E-03E78C1E25C3}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBOValue : Integer; @@ -564,7 +564,7 @@ type { IRecibosCompensadosCliDelta } IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli) - ['{46B04689-C995-45CE-B3CA-C602E1142822}'] + ['{B414ABD6-606E-458D-A58F-ABAB88906CE9}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; diff --git a/Source/Modulos/Recibos de cliente/Model/uBizPagosClienteServer.pas b/Source/Modulos/Recibos de cliente/Model/uBizPagosClienteServer.pas index 2f3444f5..619cacc0 100644 --- a/Source/Modulos/Recibos de cliente/Model/uBizPagosClienteServer.pas +++ b/Source/Modulos/Recibos de cliente/Model/uBizPagosClienteServer.pas @@ -62,6 +62,7 @@ begin with ACommand do begin ParamByName('IdPago').Value := aChange.OldValueByName[fld_PagosClienteID]; + ParamByName('Tipo').Value := 'p'; Execute; end; finally diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm index 9ee35130..6a920682 100644 --- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm +++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm @@ -708,6 +708,10 @@ object srvRecibosCliente: TsrvRecibosCliente item Name = 'IdPago' Value = '' + end + item + Name = 'Tipo' + Value = '' end> Statements = < item @@ -715,7 +719,7 @@ object srvRecibosCliente: TsrvRecibosCliente ConnectionType = 'Interbase' Default = True Name = 'IBX' - SQL = 'execute procedure proc_delete_asiento_pago :IdPago'#10 + SQL = 'execute procedure proc_delete_asiento_pago :IdPago, :Tipo'#10 StatementType = stSQL ColumnMappings = <> end> @@ -738,8 +742,8 @@ object srvRecibosCliente: TsrvRecibosCliente Default = True Name = 'IBX' SQL = - 'execute procedure proc_new_asiento_pago :IdPago, :IdSubCuentaPag' + - 'o'#10 + 'execute procedure proc_new_asiento_pago_cli :IdPago, :IdSubCuent' + + 'aPago'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas index dd0284cb..bbdf9d34 100644 --- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas +++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas @@ -87,7 +87,8 @@ begin finally FreeAndNIL(AReportGenerator); end; -} +} + Result := NIL; end; initialization diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas index 4ba1b371..8926335d 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas +++ b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas @@ -96,8 +96,7 @@ begin FIDSubCuenta := eIDSubCuenta.EditValue; end; -procedure TfEditorFechaPago.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfEditorFechaPago.FormClose(Sender: TObject; var Action: TCloseAction); begin FController := Nil; end; diff --git a/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorFechaPagoProveedor.pas b/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorFechaPagoProveedor.pas index 5d67af74..d592bd43 100644 --- a/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorFechaPagoProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorFechaPagoProveedor.pas @@ -11,6 +11,14 @@ type function GetFechaPago: TDateTime; procedure SetFechaPago(const Value: TDateTime); property FechaPago: TDateTime Read GetFechaPago write SetFechaPago; + + function GetIgnorarContabilidad: Integer; + procedure SetIgnorarContabilidad(const Value: Integer); + property IgnorarContabilidad: Integer Read GetIgnorarContabilidad write SetIgnorarContabilidad; + + function GetIdSubCuenta: Integer; + procedure SetIdSubCuenta(const Value: Integer); + property IdSubCuenta: Integer Read GetIdSubCuenta write SetIdSubCuenta; end; implementation diff --git a/Source/Modulos/Recibos de proveedor/Controller/uPagosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uPagosProveedorController.pas index 97ac82e3..87b55f7e 100644 --- a/Source/Modulos/Recibos de proveedor/Controller/uPagosProveedorController.pas +++ b/Source/Modulos/Recibos de proveedor/Controller/uPagosProveedorController.pas @@ -32,8 +32,8 @@ uses type IPagosProveedorController = interface(ISujeto) ['{4F907D80-B184-4557-BAB7-9FDA23260E64}'] - function Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''): Boolean; - procedure Modificar(APagosProveedor: IBizPagosProveedor; Const Fecha: String); + function Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0): Boolean; + procedure Modificar(APagosProveedor: IBizPagosProveedor; Const Fecha: String; Const IgnorarContabilidad: Integer); function Eliminar(APagoCliente : IBizPagosProveedor): Boolean; function EliminarTodo(APagossCliente : IBizPagosProveedor): Boolean; end; @@ -46,8 +46,8 @@ type public constructor Create; virtual; destructor Destroy; override; - function Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''): Boolean; - procedure Modificar(APagosProveedor: IBizPagosProveedor; Const Fecha: String); + function Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0): Boolean; + procedure Modificar(APagosProveedor: IBizPagosProveedor; Const Fecha: String; Const IgnorarContabilidad: Integer); function Eliminar(APagoCliente : IBizPagosProveedor): Boolean; function EliminarTodo(APagosProveedor : IBizPagosProveedor): Boolean; end; @@ -62,7 +62,7 @@ uses { TPagosProveedorController } -function TPagosProveedorController.Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''): Boolean; +function TPagosProveedorController.Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0): Boolean; { Si el pago introducido es un pago y no una devolución devolvemos true en caso de ser una devolución devolvemos false} begin @@ -78,6 +78,9 @@ begin else APagosProveedor.TIPO := CTE_DEVOLUCION; + APagosProveedor.IGNORAR_CONTABILIDAD := IgnorarContabilidad; + APagosProveedor.CUENTA := IntToStr(IdSubCuenta); + Result := (APagosProveedor.TIPO = CTE_PAGO); APagosProveedor.Post; end; @@ -134,10 +137,11 @@ begin end; end; -procedure TPagosProveedorController.Modificar(APagosProveedor: IBizPagosProveedor; const Fecha: String); +procedure TPagosProveedorController.Modificar(APagosProveedor: IBizPagosProveedor; const Fecha: String; Const IgnorarContabilidad: Integer); begin APagosProveedor.DataTable.Edit; APagosProveedor.FECHA_PAGO := StrToDate(Fecha); + APagosProveedor.IGNORAR_CONTABILIDAD := IgnorarContabilidad; APagosProveedor.DataTable.Post; end; diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas index 64905e4f..c7ca3354 100644 --- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas +++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas @@ -156,6 +156,9 @@ end; function TRecibosProveedorController.AnadirPago(ARecibosProveedor: IBizRecibosProveedor; FechaPago: String =''): Boolean; var AEditor : IEditorFechaPagoProveedor; + AIgnorarContabilidad : Integer; + ASubCuenta: Integer; + begin Result := False; @@ -166,7 +169,11 @@ begin CreateEditor('EditorFechaPagoProveedor', IEditorFechaPagoProveedor, AEditor); if Assigned(AEditor) then if (AEditor.ShowModal = mrOk) then + begin FechaPago := DateToStr(AEditor.FechaPago); + AIgnorarContabilidad := AEditor.IgnorarContabilidad; + ASubCuenta := AEditor.IdSubcuenta; + end; AEditor.Release; finally AEditor := NIL; @@ -178,7 +185,7 @@ begin Exit; //Finalmente añadimos el pago (pago o devolucion) - if PagosController.Anadir(ARecibosProveedor.Pagos, FechaPago) then + if PagosController.Anadir(ARecibosProveedor.Pagos, FechaPago, AIgnorarContabilidad, ASubCuenta) then begin ARecibosProveedor.Edit; ARecibosProveedor.SITUACION := CTE_PAGADO; @@ -531,7 +538,9 @@ begin if Assigned(AEditor) then with AEditor do begin + Controller := Self; //OJO ORDEN MUY IMPORTANTE RecibosProveedor := ARecibosProveedor; + MultiSelect := True; ShowEmbedded; end; finally @@ -724,6 +733,7 @@ procedure TRecibosProveedorController.ModificarPago(ARecibosProveedor: IBizRecib var AEditor : IEditorFechaPagoProveedor; FechaPago: String; + IgnorarContabilidad: Integer; begin try //Pedimos la fecha del pago @@ -731,14 +741,17 @@ begin if Assigned(AEditor) then FechaPago:= ''; if (AEditor.ShowModal = mrOk) then - FechaPago := DateToStr(AEditor.FechaPago); + begin + FechaPago := DateToStr(AEditor.FechaPago); + IgnorarContabilidad := AEditor.IgnorarContabilidad; + end; AEditor.Release; finally AEditor := NIL; end; if Length(FechaPago) > 0 then - PagosController.Modificar(ARecibosProveedor.Pagos, FechaPago); + PagosController.Modificar(ARecibosProveedor.Pagos, FechaPago, IgnorarContabilidad); end; function TRecibosProveedorController.Nuevo: IBizRecibosProveedor; diff --git a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dproj b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dproj index 4d398c56..3e17d80a 100644 --- a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dproj +++ b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dproj @@ -49,9 +49,9 @@ MainSource - - - + + + diff --git a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm index 603e8f16..1e7f414f 100644 --- a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm @@ -6,7 +6,7 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor Message = dmConexion.ROMessage Channel = dmConexion.ROChannel ServiceName = 'srvRecibosProveedor' - Left = 56 + Left = 48 Top = 24 end object Bin2DataStreamer: TDABin2DataStreamer @@ -106,6 +106,10 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor Size = 20 DisplayLabel = 'PagosCliente_USUARIO' DictionaryEntry = 'PagosProveedor_USUARIO' + end + item + Name = 'IGNORAR_CONTABILIDAD' + DataType = datSmallInt end> Params = <> MasterMappingMode = mmWhere @@ -118,14 +122,14 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'PagosProveedor' IndexDefs = <> - Left = 280 - Top = 104 + Left = 288 + Top = 96 end object ds_PagosProveedor: TDADataSource DataSet = tbl_PagosProveedor.Dataset DataTable = tbl_PagosProveedor - Left = 280 - Top = 48 + Left = 288 + Top = 40 end object tbl_RecibosCompensadosProv: TDAMemDataTable RemoteUpdatesOptions = [] @@ -284,14 +288,14 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'RecibosCompensadosProv' IndexDefs = <> - Left = 416 - Top = 104 + Left = 424 + Top = 96 end object ds_RecibosCompensadosProv: TDADataSource DataSet = tbl_RecibosCompensadosProv.Dataset DataTable = tbl_RecibosCompensadosProv - Left = 416 - Top = 48 + Left = 424 + Top = 40 end object tbl_RecibosProveedor: TDAMemDataTable RemoteUpdatesOptions = [] @@ -493,13 +497,13 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'RecibosProveedor' IndexDefs = <> - Left = 160 - Top = 104 + Left = 176 + Top = 96 end object ds_RecibosProveedor: TDADataSource DataSet = tbl_RecibosProveedor.Dataset DataTable = tbl_RecibosProveedor - Left = 160 - Top = 48 + Left = 176 + Top = 40 end end diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas index f4a77f76..23f3f096 100644 --- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas +++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas @@ -3,15 +3,15 @@ unit schRecibosProveedorClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; 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_RecibosCompensadosProv = '{038EB6D0-2F4B-45EA-9008-1869EF2AD2A7}'; - RID_RecibosProveedor = '{520783CC-3FA1-47AD-9EB5-8864F919B8B5}'; - RID_PagosProveedor = '{5C9C9069-2E1F-4CD6-ACAC-B12F74426DB4}'; + RID_RecibosCompensadosProv = '{79E4C792-FBE0-4991-AEEB-C0EE4E1F8183}'; + RID_RecibosProveedor = '{9C35F5D6-0E7E-4C46-BE0E-BACD1FFDB567}'; + RID_PagosProveedor = '{ED4FAA5F-C675-494A-BA70-40FA218DBE18}'; { Data table names } nme_RecibosCompensadosProv = 'RecibosCompensadosProv'; @@ -163,6 +163,7 @@ const fld_PagosProveedorFECHA_ALTA = 'FECHA_ALTA'; fld_PagosProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_PagosProveedorUSUARIO = 'USUARIO'; + fld_PagosProveedorIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD'; { PagosProveedor field indexes } idx_PagosProveedorID = 0; @@ -177,11 +178,12 @@ const idx_PagosProveedorFECHA_ALTA = 9; idx_PagosProveedorFECHA_MODIFICACION = 10; idx_PagosProveedorUSUARIO = 11; + idx_PagosProveedorIGNORAR_CONTABILIDAD = 12; type { IRecibosCompensadosProv } IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable) - ['{61E35D46-8AB4-49CA-A4EF-F940AB11A43D}'] + ['{B2ADA390-B323-420E-8064-59A0D7BAD647}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -375,7 +377,7 @@ type end; { TRecibosCompensadosProvDataTableRules } - TRecibosCompensadosProvDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosProv) + TRecibosCompensadosProvDataTableRules = class(TDADataTableRules, IRecibosCompensadosProv) private protected { Property getters and setters } @@ -576,7 +578,7 @@ type { IRecibosProveedor } IRecibosProveedor = interface(IDAStronglyTypedDataTable) - ['{DCA30451-7CE9-4A08-991B-213799064ED6}'] + ['{D109DF21-A3FE-4397-A781-51007D94BC32}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -770,7 +772,7 @@ type end; { TRecibosProveedorDataTableRules } - TRecibosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IRecibosProveedor) + TRecibosProveedorDataTableRules = class(TDADataTableRules, IRecibosProveedor) private protected { Property getters and setters } @@ -971,7 +973,7 @@ type { IPagosProveedor } IPagosProveedor = interface(IDAStronglyTypedDataTable) - ['{16059EDF-B6FC-4A68-8505-CA9173A8EB5C}'] + ['{08F0D078-9A5D-4F40-958F-E28C7A1A21F5}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1021,6 +1023,10 @@ type procedure SetUSUARIOValue(const aValue: String); function GetUSUARIOIsNull: Boolean; procedure SetUSUARIOIsNull(const aValue: Boolean); + function GetIGNORAR_CONTABILIDADValue: SmallInt; + procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); + function GetIGNORAR_CONTABILIDADIsNull: Boolean; + procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); { Properties } @@ -1048,10 +1054,12 @@ type property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue; + property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull; end; { TPagosProveedorDataTableRules } - TPagosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPagosProveedor) + TPagosProveedorDataTableRules = class(TDADataTableRules, IPagosProveedor) private protected { Property getters and setters } @@ -1103,6 +1111,10 @@ type procedure SetUSUARIOValue(const aValue: String); virtual; function GetUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + function GetIGNORAR_CONTABILIDADValue: SmallInt; virtual; + procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual; + function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual; + procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -1129,6 +1141,8 @@ type property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue; + property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -2729,6 +2743,27 @@ begin DataTable.Fields[idx_PagosProveedorUSUARIO].AsVariant := Null; end; +function TPagosProveedorDataTableRules.GetIGNORAR_CONTABILIDADValue: SmallInt; +begin + result := DataTable.Fields[idx_PagosProveedorIGNORAR_CONTABILIDAD].AsSmallInt; +end; + +procedure TPagosProveedorDataTableRules.SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); +begin + DataTable.Fields[idx_PagosProveedorIGNORAR_CONTABILIDAD].AsSmallInt := aValue; +end; + +function TPagosProveedorDataTableRules.GetIGNORAR_CONTABILIDADIsNull: boolean; +begin + result := DataTable.Fields[idx_PagosProveedorIGNORAR_CONTABILIDAD].IsNull; +end; + +procedure TPagosProveedorDataTableRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PagosProveedorIGNORAR_CONTABILIDAD].AsVariant := Null; +end; + initialization RegisterDataTableRules(RID_RecibosCompensadosProv, TRecibosCompensadosProvDataTableRules); diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas index e75934ee..723cd3e0 100644 --- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas +++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas @@ -9,14 +9,14 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_RecibosCompensadosProvDelta = '{7D64E436-4A62-4815-9B17-18188D7EB661}'; - RID_RecibosProveedorDelta = '{8CC4F287-B555-4CB1-B413-10F941E621CF}'; - RID_PagosProveedorDelta = '{C62DC80C-8A6A-4FC1-899E-4A97895130AC}'; + RID_RecibosCompensadosProvDelta = '{9107E928-5D10-4B51-A676-BFA549256A77}'; + RID_RecibosProveedorDelta = '{9084E9BD-0A41-47E3-B3E2-7203D2766160}'; + RID_PagosProveedorDelta = '{0855D721-33C1-4937-B581-332046D7D4A3}'; type { IRecibosCompensadosProvDelta } IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv) - ['{7D64E436-4A62-4815-9B17-18188D7EB661}'] + ['{9107E928-5D10-4B51-A676-BFA549256A77}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -410,7 +410,7 @@ type { IRecibosProveedorDelta } IRecibosProveedorDelta = interface(IRecibosProveedor) - ['{8CC4F287-B555-4CB1-B413-10F941E621CF}'] + ['{9084E9BD-0A41-47E3-B3E2-7203D2766160}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -804,7 +804,7 @@ type { IPagosProveedorDelta } IPagosProveedorDelta = interface(IPagosProveedor) - ['{C62DC80C-8A6A-4FC1-899E-4A97895130AC}'] + ['{0855D721-33C1-4937-B581-332046D7D4A3}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBOValue : Integer; @@ -818,6 +818,7 @@ type function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; + function GetOldIGNORAR_CONTABILIDADValue : SmallInt; { Properties } property OldID : Integer read GetOldIDValue; @@ -832,6 +833,7 @@ type property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; + property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue; end; { TPagosProveedorBusinessProcessorRules } @@ -911,6 +913,12 @@ type function GetOldUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + function GetIGNORAR_CONTABILIDADValue: SmallInt; virtual; + function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual; + function GetOldIGNORAR_CONTABILIDADValue: SmallInt; virtual; + function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual; + procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual; + procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -961,6 +969,10 @@ type property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; + property IGNORAR_CONTABILIDAD : SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue; + property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull; + property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue; + property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -3302,6 +3314,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorUSUARIO] := Null; end; +function TPagosProveedorBusinessProcessorRules.GetIGNORAR_CONTABILIDADValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorIGNORAR_CONTABILIDAD]; +end; + +function TPagosProveedorBusinessProcessorRules.GetIGNORAR_CONTABILIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorIGNORAR_CONTABILIDAD]); +end; + +function TPagosProveedorBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorIGNORAR_CONTABILIDAD]; +end; + +function TPagosProveedorBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorIGNORAR_CONTABILIDAD]); +end; + +procedure TPagosProveedorBusinessProcessorRules.SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorIGNORAR_CONTABILIDAD] := aValue; +end; + +procedure TPagosProveedorBusinessProcessorRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorIGNORAR_CONTABILIDAD] := Null; +end; + initialization RegisterBusinessProcessorRules(RID_RecibosCompensadosProvDelta, TRecibosCompensadosProvBusinessProcessorRules); diff --git a/Source/Modulos/Recibos de proveedor/Model/uBizPagosProveedor.pas b/Source/Modulos/Recibos de proveedor/Model/uBizPagosProveedor.pas index b11e95c7..3d72aecf 100644 --- a/Source/Modulos/Recibos de proveedor/Model/uBizPagosProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Model/uBizPagosProveedor.pas @@ -40,14 +40,17 @@ type end; TBizPagosProveedor = class(TPagosProveedorDataTableRules, IBizPagosProveedor) + private + procedure IniciarValoresPagosProveedorNuevo; protected - procedure BeforeInsert(Sender: TDADataTable); override; + procedure OnNewRecord(Sender: TDADataTable); override; + procedure BeforeInsert(Sender: TDADataTable); override; end; implementation uses - DB; + DB; { TBizPagosProveedor } @@ -61,6 +64,17 @@ begin AMasterTable.Post; end; +procedure TBizPagosProveedor.IniciarValoresPagosProveedorNuevo; +begin + IGNORAR_CONTABILIDAD := 0; +end; + +procedure TBizPagosProveedor.OnNewRecord(Sender: TDADataTable); +begin + inherited; + IniciarValoresPagosProveedorNuevo; +end; + initialization RegisterDataTableRules(BIZ_CLIENT_IBIZPAGOSPROVEEDOR, TBizPagosProveedor); diff --git a/Source/Modulos/Recibos de proveedor/Model/uBizPagosProveedorServer.pas b/Source/Modulos/Recibos de proveedor/Model/uBizPagosProveedorServer.pas new file mode 100644 index 00000000..d685045d --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Model/uBizPagosProveedorServer.pas @@ -0,0 +1,119 @@ +unit uBizPagosProveedorServer; + +interface + +uses + uDAInterfaces, uDADelta, uDABusinessProcessor, + schRecibosProveedorServer_Intf; + +const + BIZ_SERVER_PAGOS_PROVEEDOR = 'Server.PagosProveedor'; + +type + TBizPagosProveedorServer = class(TPagosProveedorBusinessProcessorRules) + protected + procedure Insert_Asiento_Pago(aChange: TDADeltaChange); virtual; + procedure Update_Asiento_Pago(aChange: TDADeltaChange); virtual; + procedure Delete_Asiento_Pago(aChange: TDADeltaChange); virtual; + + procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override; + end; + +implementation + +uses + Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses, uDataModuleServer, + schRecibosProveedorClient_Intf; + +{ TBizPagosProveedorServer } + +procedure TBizPagosProveedorServer.AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; + var CanRemoveFromDelta: Boolean); +begin + case aChange.ChangeType of + ctInsert: begin + Insert_Asiento_Pago(aChange); + end; + ctUpdate: begin + Update_Asiento_Pago(aChange); + end; + ctDelete: begin + Delete_Asiento_Pago(aChange); + end; + end; + + // No hay que quitar los deltas para que los datos del contacto se + // mantengan por si alguna tabla detalle lo necesita + // (por ejemplo, DireccionesContacto) + CanRemoveFromDelta := False; +end; + +procedure TBizPagosProveedorServer.Delete_Asiento_Pago(aChange: TDADeltaChange); +var + ASchema : TDASchema; + ACurrentConn : IDAConnection; + ACommand : IDASQLCommand; +begin + ASchema := BusinessProcessor.Schema; + ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); + + ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_AsientoPago'); + try + with ACommand do + begin + ParamByName('IdPago').Value := aChange.OldValueByName[fld_PagosProveedorID]; + ParamByName('Tipo').Value := 'p'; + Execute; + end; + finally + ACommand := NIL; + end; +end; + +procedure TBizPagosProveedorServer.Insert_Asiento_Pago(aChange: TDADeltaChange); +var + ASchema : TDASchema; + ACurrentConn : IDAConnection; + ACommand : IDASQLCommand; +begin + ASchema := BusinessProcessor.Schema; + ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); + + ACommand := ASchema.NewCommand(ACurrentConn, 'Insert_AsientoPago'); + try + with ACommand do + begin + ParamByName('IdPago').Value := aChange.NewValueByName[fld_PagosProveedorID]; + ParamByName('IdSubCuentaPago').Value := aChange.NewValueByName[fld_PagosProveedorCUENTA]; + Execute; + end; + finally + ACommand := NIL; + end; +end; + +procedure TBizPagosProveedorServer.Update_Asiento_Pago(aChange: TDADeltaChange); +var + ASchema : TDASchema; + ACurrentConn : IDAConnection; + ACommand : IDASQLCommand; +begin + ASchema := BusinessProcessor.Schema; + ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); + + ACommand := ASchema.NewCommand(ACurrentConn, 'Insert_AsientoPago'); + try + with ACommand do + begin + ParamByName('IdPago').Value := aChange.NewValueByName[fld_PagosProveedorID]; + Execute; + end; + finally + ACommand := NIL; + end; +end; + +initialization + RegisterBusinessProcessorRules(BIZ_SERVER_PAGOS_PROVEEDOR, TBizPagosProveedorServer); + +end. diff --git a/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj b/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj index 985d07b4..62ab0d77 100644 --- a/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj +++ b/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj @@ -9,6 +9,7 @@ + @@ -111,14 +112,23 @@ + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm index 9a2049dd..56b43168 100644 --- a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm +++ b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm @@ -656,6 +656,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor item DatasetField = 'USUARIO' TableField = 'USUARIO' + end + item + DatasetField = 'IGNORAR_CONTABILIDAD' + TableField = 'IGNORAR_CONTABILIDAD' end> end> Name = 'PagosProveedor' @@ -728,11 +732,61 @@ object srvRecibosProveedor: TsrvRecibosProveedor DataType = datString Size = 20 DictionaryEntry = 'PagosProveedor_USUARIO' + end + item + Name = 'IGNORAR_CONTABILIDAD' + DataType = datSmallInt end> end> JoinDataTables = <> UnionDataTables = <> Commands = < + item + Params = < + item + Name = 'IdPago' + Value = '' + end + item + Name = 'Tipo' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True + Name = 'IBX' + SQL = 'execute procedure proc_delete_asiento_pago :IdPago, :Tipo'#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Delete_AsientoPago' + end + item + Params = < + item + Name = 'IdPago' + Value = '' + end + item + Name = 'IdSubCuentaPago' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True + Name = 'IBX' + SQL = + 'execute procedure proc_new_asiento_pago_prov :IdPago, :IdSubCuen' + + 'taPago'#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Insert_AsientoPago' + end item Params = < item @@ -930,68 +984,46 @@ object srvRecibosProveedor: TsrvRecibosProveedor DataType = datAutoInc GeneratorName = 'GEN_PAGOS_PROVEEDOR_ID' Value = '' - ParamType = daptInput end item Name = 'ID_RECIBO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'TIPO' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'FECHA_PAGO' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'TITULAR' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'ENTIDAD' - DataType = datString - Size = 15 Value = '' - ParamType = daptInput end item Name = 'SUCURSAL' - DataType = datString - Size = 15 Value = '' - ParamType = daptInput end item Name = 'DC' - DataType = datString - Size = 15 Value = '' - ParamType = daptInput end item Name = 'CUENTA' - DataType = datString - Size = 15 Value = '' - ParamType = daptInput end item Name = 'USUARIO' - DataType = datString - Size = 20 Value = '' - ParamType = daptInput + end + item + Name = 'IGNORAR_CONTABILIDAD' + Value = '' end> Statements = < item @@ -999,9 +1031,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor TargetTable = 'PAGOS_PROVEEDOR' SQL = 'INSERT'#10' INTO PAGOS_PROVEEDOR'#10' (ID, ID_RECIBO, TIPO, FECHA_PA' + - 'GO, TITULAR, ENTIDAD, '#10' SUCURSAL, DC, CUENTA, USUARIO)'#10' VAL' + - 'UES'#10' (:ID, :ID_RECIBO, :TIPO, :FECHA_PAGO, :TITULAR, :ENTIDAD' + - ', '#10' :SUCURSAL, :DC, :CUENTA, :USUARIO)' + 'GO, TITULAR, ENTIDAD, '#10' SUCURSAL, DC, CUENTA, USUARIO, IGNOR' + + 'AR_CONTABILIDAD)'#10' VALUES'#10' (:ID, :ID_RECIBO, :TIPO, :FECHA_PA' + + 'GO, :TITULAR, :ENTIDAD, '#10' :SUCURSAL, :DC, :CUENTA, :USUARIO,' + + ' :IGNORAR_CONTABILIDAD)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1029,69 +1062,47 @@ object srvRecibosProveedor: TsrvRecibosProveedor Params = < item Name = 'ID' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_RECIBO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'TIPO' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'FECHA_PAGO' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'TITULAR' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'ENTIDAD' - DataType = datString - Size = 15 Value = '' - ParamType = daptInput end item Name = 'SUCURSAL' - DataType = datString - Size = 15 Value = '' - ParamType = daptInput end item Name = 'DC' - DataType = datString - Size = 15 Value = '' - ParamType = daptInput end item Name = 'CUENTA' - DataType = datString - Size = 15 Value = '' - ParamType = daptInput + end + item + Name = 'IGNORAR_CONTABILIDAD' + Value = '' end item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -1101,8 +1112,8 @@ object srvRecibosProveedor: TsrvRecibosProveedor 'UPDATE PAGOS_PROVEEDOR'#10' SET '#10' ID = :ID, '#10' ID_RECIBO = :ID' + '_RECIBO, '#10' TIPO = :TIPO, '#10' FECHA_PAGO = :FECHA_PAGO, '#10' ' + 'TITULAR = :TITULAR, '#10' ENTIDAD = :ENTIDAD, '#10' SUCURSAL = :SU' + - 'CURSAL, '#10' DC = :DC, '#10' CUENTA = :CUENTA'#10' WHERE'#10' (ID = :' + - 'OLD_ID)' + 'CURSAL, '#10' DC = :DC, '#10' CUENTA = :CUENTA,'#10' IGNORAR_CONTAB' + + 'ILIDAD = :IGNORAR_CONTABILIDAD'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas index 0ba79204..f6f001b0 100644 --- a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas +++ b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas @@ -42,7 +42,8 @@ implementation uses Dialogs, {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, - schRecibosProveedorClient_Intf, uRestriccionesUsuarioUtils; + schRecibosProveedorClient_Intf, uRestriccionesUsuarioUtils, + uBizPagosProveedorServer; // uRptRecibosProveedor_Server; //, uBizRecibosProveedorServer; procedure Create_srvRecibosProveedor(out anInstance : IUnknown); @@ -56,20 +57,19 @@ procedure TsrvRecibosProveedor.DARemoteServiceBeforeGetDatasetData( const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); begin -{ if DataSet.Name = nme_RecibosProveedor then begin { Aquí se asegura que el usuario sólo accede a Recibos de las empresas a las que tiene permiso para acceder filtrando DataSet por ID_EMPRESA. } -{ FiltrarAccesoUsuario(Session, Connection, schRecibosProveedor, DataSet, fld_RecibosProveedorID_EMPRESA); + FiltrarAccesoUsuario(Session, Connection, schRecibosProveedor, DataSet, fld_RecibosProveedorID_EMPRESA); end; -} end; procedure TsrvRecibosProveedor.DARemoteServiceCreate(Sender: TObject); begin SessionManager := dmServer.SessionManager; + bpPagosProveedor.BusinessRulesID := BIZ_SERVER_PAGOS_PROVEEDOR; end; procedure TsrvRecibosProveedor.DataAbstractServiceBeforeAcquireConnection( diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm index 59e52778..18b612b8 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm @@ -3,8 +3,8 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor Top = 0 BorderStyle = bsDialog Caption = 'Fecha del cobro / devoluci'#243'n' - ClientHeight = 167 - ClientWidth = 283 + ClientHeight = 289 + ClientWidth = 409 Color = clWindow Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -13,7 +13,11 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor Font.Style = [] OldCreateOrder = False Position = poScreenCenter + OnClose = FormClose OnShow = FormShow + DesignSize = ( + 409 + 289) PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel @@ -51,11 +55,13 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor end object Panel1: TPanel Left = 0 - Top = 126 - Width = 283 + Top = 248 + Width = 409 Height = 41 Align = alBottom TabOrder = 1 + ExplicitTop = 126 + ExplicitWidth = 283 object bAceptar: TButton Left = 119 Top = 8 @@ -64,6 +70,7 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor Caption = 'Aceptar' ModalResult = 1 TabOrder = 0 + OnClick = bAceptarClick end object bCancelar: TButton Left = 200 @@ -75,4 +82,81 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor TabOrder = 1 end end + object eContabilizar: TcxCheckBox + Left = 38 + Top = 120 + Caption = 'Ignorar en contabiliad' + Properties.ValueChecked = 1 + Properties.ValueUnchecked = 0 + Properties.OnChange = eContabilizarPropertiesChange + TabOrder = 2 + Width = 203 + end + object eRefSubCuenta: TcxTextEdit + Left = 39 + Top = 147 + Anchors = [akLeft, akTop, akRight] + AutoSize = False + Properties.ReadOnly = True + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = 14745599 + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 3 + Height = 21 + Width = 215 + end + object eSubCuenta: TcxTextEdit + Left = 38 + Top = 174 + Anchors = [akLeft, akTop, akRight] + AutoSize = False + Properties.ReadOnly = True + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = 14745599 + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 4 + Height = 21 + Width = 297 + end + object eIDSubcuenta: TcxTextEdit + Left = 38 + Top = 201 + Anchors = [akLeft, akTop, akRight] + AutoSize = False + Properties.ReadOnly = True + Properties.ValidateOnEnter = True + Properties.OnChange = eIDSubcuentaPropertiesChange + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = 14745599 + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 5 + Height = 21 + Width = 43 + end + object BitBtn3: TBitBtn + Left = 260 + Top = 143 + Width = 75 + Height = 25 + Caption = 'Elegir subcuenta' + TabOrder = 6 + OnClick = BitBtn3Click + end end diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas index c331b881..fe898017 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas @@ -5,7 +5,8 @@ interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, - cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPagoProveedor; + cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPagoProveedor, + uSubCuentasController, Buttons, cxCheckBox; type TfEditorFechaPagoProveedor = class(TfEditorBasico, IEditorFechaPagoProveedor) @@ -15,27 +16,91 @@ type bCancelar: TButton; Label2: TLabel; Panel1: TPanel; + eContabilizar: TcxCheckBox; + eRefSubCuenta: TcxTextEdit; + eSubCuenta: TcxTextEdit; + eIDSubcuenta: TcxTextEdit; + BitBtn3: TBitBtn; procedure FormShow(Sender: TObject); procedure eFechaPagoPropertiesChange(Sender: TObject); + procedure BitBtn3Click(Sender: TObject); + procedure eContabilizarPropertiesChange(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure eIDSubcuentaPropertiesChange(Sender: TObject); + procedure bAceptarClick(Sender: TObject); private + FController : ISubcuentasController; + FIdSubCuenta : Integer; + FIgnorarContabilidad : Integer; FFechaPago : TDateTime; function GetFechaPago: TDateTime; procedure SetFechaPago(const Value: TDateTime); + function GetIgnorarContabilidad: Integer; + procedure SetIgnorarContabilidad(const Value: Integer); + function GetIdSubCuenta: Integer; + procedure SetIdSubCuenta(const Value: Integer); + public property FechaPago: TDateTime Read GetFechaPago write SetFechaPago; + property IgnorarContabilidad: Integer Read GetIgnorarContabilidad write SetIgnorarContabilidad; + property IdSubCuenta: Integer Read GetIdSubCuenta write SetIdSubCuenta; + constructor Create(AOwner: TComponent); override; end; implementation {$R *.dfm} +uses uBizSubCuentas; + +procedure TfEditorFechaPagoProveedor.bAceptarClick(Sender: TObject); +begin + if (not eContabilizar.Checked) + and (eIdSubcuenta.Text = '') then + raise Exception.Create ('Es necesario que elija la SubCuenta donde se realizará el pago'); +end; + +procedure TfEditorFechaPagoProveedor.BitBtn3Click(Sender: TObject); +var + ASubCuenta: IBizSubcuenta; +begin + ASubCuenta := FController.ElegirSubCuenta(FController.BuscarTodos,'sssss', False); + eIDSubcuenta.Text := IntToStr(ASubcuenta.ID); + eRefSubCuenta.Text := ASubcuenta.REF_SUBCUENTA; + eSubCuenta.Text := ASubcuenta.DESCRIPCION; + ASubCuenta := Nil; +end; + +constructor TfEditorFechaPagoProveedor.Create(AOwner: TComponent); +begin + inherited; + FController := TSubcuentasController.Create; +end; + +procedure TfEditorFechaPagoProveedor.eContabilizarPropertiesChange(Sender: TObject); +begin + FIgnorarContabilidad := eContabilizar.EditValue; +end; + procedure TfEditorFechaPagoProveedor.eFechaPagoPropertiesChange(Sender: TObject); begin FechaPago := eFechaPago.Date; end; +procedure TfEditorFechaPagoProveedor.eIDSubcuentaPropertiesChange(Sender: TObject); +begin + if not VarIsNull(eIDSubCuenta.EditValue) then + FIDSubCuenta := eIDSubCuenta.EditValue; +end; + +procedure TfEditorFechaPagoProveedor.FormClose(Sender: TObject; var Action: TCloseAction); +begin + FController := Nil; +end; + procedure TfEditorFechaPagoProveedor.FormShow(Sender: TObject); begin - eFechaPago.Date := Date; + if (length(eFechaPago.Text) = 0) then + eFechaPago.Date := Date; end; function TfEditorFechaPagoProveedor.GetFechaPago: TDateTime; @@ -43,9 +108,30 @@ begin Result := FFechaPago; end; +function TfEditorFechaPagoProveedor.GetIdSubCuenta: Integer; +begin + Result := eIDSubCuenta.EditValue; //FIdSubCuenta; +end; + +function TfEditorFechaPagoProveedor.GetIgnorarContabilidad: Integer; +begin + Result := FIgnorarContabilidad; +end; + procedure TfEditorFechaPagoProveedor.SetFechaPago(const Value: TDateTime); begin FFechaPago := Value; end; +procedure TfEditorFechaPagoProveedor.SetIdSubCuenta(const Value: Integer); +begin + FIdSubCuenta := Value; +end; + +procedure TfEditorFechaPagoProveedor.SetIgnorarContabilidad(const Value: Integer); +begin + FIgnorarContabilidad := Value; + eContabilizar.EditValue := FIgnorarContabilidad; +end; + end. diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm index 743556d1..f0ed2e8c 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm @@ -49,19 +49,22 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor end end inherited pgPaginas: TPageControl - Width = 691 - Height = 359 - ExplicitWidth = 691 - ExplicitHeight = 359 + Width = 685 + Height = 353 + ActivePage = pagPagos + ExplicitLeft = 3 + ExplicitTop = 79 + ExplicitWidth = 685 + ExplicitHeight = 353 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 - ExplicitWidth = 683 - ExplicitHeight = 331 + ExplicitWidth = 677 + ExplicitHeight = 325 inline frViewReciboProveedor1: TfrViewReciboProveedor Left = 0 Top = 0 - Width = 683 + Width = 677 Height = 350 Align = alTop Font.Charset = DEFAULT_CHARSET @@ -72,15 +75,15 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 683 + ExplicitWidth = 677 ExplicitHeight = 350 inherited dxLayoutControl1: TdxLayoutControl - Width = 683 + Width = 677 Height = 350 - ExplicitWidth = 683 + ExplicitWidth = 677 ExplicitHeight = 350 DesignSize = ( - 683 + 677 350) inherited eReferencia: TcxDBTextEdit ExplicitWidth = 50 @@ -99,55 +102,55 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor Width = 274 end inherited eFechaEmision: TcxDBTextEdit - Left = 431 - ExplicitLeft = 431 + Left = 428 + ExplicitLeft = 428 ExplicitWidth = 20 Width = 20 end inherited eFormaPago: TcxDBTextEdit - Left = 431 - ExplicitLeft = 431 + Left = 428 + ExplicitLeft = 428 ExplicitWidth = 42 Width = 42 end inherited eImporteTotal: TcxDBCurrencyEdit - Left = 431 + Left = 428 Style.IsFontAssigned = True - ExplicitLeft = 431 + ExplicitLeft = 428 ExplicitWidth = 182 Width = 182 end inherited eNombreCliente: TcxDBTextEdit - Left = 431 - ExplicitLeft = 431 + Left = 428 + ExplicitLeft = 428 ExplicitWidth = 171 Width = 171 end inherited eNifCif: TcxDBTextEdit - Left = 431 - ExplicitLeft = 431 + Left = 428 + ExplicitLeft = 428 ExplicitWidth = 255 Width = 255 end inherited eEntidad: TcxDBTextEdit - Left = 431 - ExplicitLeft = 431 + Left = 428 + ExplicitLeft = 428 ExplicitWidth = 90 Width = 90 end inherited eSucursal: TcxDBTextEdit - Left = 545 - ExplicitLeft = 545 + Left = 540 + ExplicitLeft = 540 ExplicitWidth = 75 Width = 75 end inherited eDC: TcxDBTextEdit - Left = 628 - ExplicitLeft = 628 + Left = 622 + ExplicitLeft = 622 end inherited eCuenta: TcxDBTextEdit - Left = 431 - ExplicitLeft = 431 + Left = 428 + ExplicitLeft = 428 ExplicitWidth = 83 Width = 83 end @@ -164,8 +167,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor Width = 129 end inherited rReferenciaFacturaProv: TcxDBTextEdit - Left = 431 - ExplicitLeft = 431 + Left = 428 + ExplicitLeft = 428 end inherited rRefReciboCompensado: TcxDBTextEdit ExplicitWidth = 216 @@ -180,8 +183,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor inline frViewPagosProveedor1: TfrViewPagosProveedor Left = 0 Top = 0 - Width = 683 - Height = 331 + Width = 677 + Height = 325 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -191,13 +194,13 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 683 - ExplicitHeight = 331 + ExplicitWidth = 677 + ExplicitHeight = 325 inherited dxLayoutControl1: TdxLayoutControl - Width = 683 - Height = 331 - ExplicitWidth = 683 - ExplicitHeight = 331 + Width = 677 + Height = 325 + ExplicitWidth = 677 + ExplicitHeight = 325 inherited ListaPagosProveedor: TcxGrid Width = 252 Height = 105 @@ -218,6 +221,19 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor Left = 32 Top = 80 end + inherited ActionListContenido: TActionList + inherited actAnadir: TAction + OnExecute = frViewPagosProveedor1actAnadirExecute + end + inherited actModificar: TAction + OnExecute = frViewPagosProveedor1actModificarExecute + OnUpdate = frViewPagosProveedor1actModificarUpdate + end + inherited actEliminar: TAction + OnExecute = frViewPagosProveedor1actEliminarExecute + OnUpdate = frViewPagosProveedor1actEliminarUpdate + end + end end end object pagCompensados: TTabSheet @@ -226,8 +242,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor inline frViewRecibosProvCompensados1: TfrViewRecibosProvCompensados Left = 0 Top = 0 - Width = 683 - Height = 331 + Width = 677 + Height = 325 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -237,13 +253,13 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 683 - ExplicitHeight = 331 + ExplicitWidth = 677 + ExplicitHeight = 325 inherited cxGrid: TcxGrid - Width = 683 - Height = 306 - ExplicitWidth = 683 - ExplicitHeight = 306 + Width = 677 + Height = 300 + ExplicitWidth = 677 + ExplicitHeight = 300 inherited cxGridView: TcxGridDBTableView DataController.Summary.FooterSummaryItems = < item @@ -255,24 +271,40 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor end end inherited ToolBar1: TToolBar - Width = 683 - ExplicitWidth = 683 + Width = 677 + ExplicitWidth = 677 inherited ToolButton1: TToolButton - ExplicitWidth = 113 + Top = 0 + ExplicitTop = 0 end inherited ToolButton4: TToolButton - ExplicitWidth = 113 + Top = 0 + ExplicitTop = 0 + end + inherited ToolButton5: TToolButton + Top = 0 + ExplicitTop = 0 end inherited ToolButton2: TToolButton - ExplicitWidth = 113 + Top = 0 + ExplicitTop = 0 + end + inherited ToolButton6: TToolButton + Top = 0 + ExplicitTop = 0 end inherited ToolButton7: TToolButton - ExplicitWidth = 113 + Top = 0 + ExplicitTop = 0 end inherited ToolButton3: TToolButton + Top = 0 + ExplicitTop = 0 ExplicitWidth = 98 end inherited ToolButton8: TToolButton + Top = 0 + ExplicitTop = 0 ExplicitWidth = 99 end end diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 7a546d56d1cd8fe464e56a80bad14806a4c65165..b3daf8526ce79abcd6b64a894461757c6901344e 100644 GIT binary patch delta 77 zcmZ3nm2tsV#tnBO7?(`G8zB!Q|3*YJvP_PQRAziIxi+$zIfX%K^6yAl;VgzyhE#?! fATDOmVNhT&U@)F+7^Ti`$Y8}_!eBl*G0GhPQopShCPzlO0{}C=8LR*R diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 58579bdb..ecff3499 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -66,8 +66,6 @@ uses schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', - schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', - schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', srvRemesasCliente_Impl in '..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas' {srvRemesasCliente: TDataAbstractService}, srvRemesasProveedor_Impl in '..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas' {srvRemesasProveedor: TDataAbstractService}, srvInventario_Impl in '..\Modulos\Inventario\Servidor\srvInventario_Impl.pas' {srvInventario: TDataAbstractService}, @@ -83,18 +81,12 @@ uses schEjerciciosClient_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas', srvContabilidad_Impl in '..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas' {srvContabilidad: TDataAbstractService}, uBizPagosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas', - schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', - schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas', schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', - schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', - schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', - schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', - schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', @@ -109,7 +101,16 @@ uses schUnidadesMedidaClient_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas', schUnidadesMedidaServer_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas', schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas', - schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas'; + schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas', + schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', + schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', + uBizPagosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas', + schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', + schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', + schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', + schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', + schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', + schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index f9a13a8d..3aed2d80 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -31,6 +31,9 @@ FalseTrueFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.03.0.0.0lunes, 19 de noviembre de 2007 18:58 + + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration FactuGES_Server.dpr @@ -153,6 +156,7 @@ +
srvRecibosProveedor
TDataAbstractService diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index c9d2dff9..1f3f044f 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -14,7 +14,7 @@ BEGIN BEGIN VALUE "FileVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0" - VALUE "CompileDate", "miércoles, 02 de enero de 2008 19:23\0" + VALUE "CompileDate", "jueves, 03 de enero de 2008 11:47\0" END END BLOCK "VarFileInfo"