Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo en recibos y facturas de proveedor para que no falle la contabilidad

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@91 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-01-03 18:55:33 +00:00
parent 97af05fb8b
commit ddab3f0535
46 changed files with 1161 additions and 406 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
Source/Base/Base.dproj
View File

@ -58,48 +58,46 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Cliente\DataAbstract_Core_D10.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\adortl.dcp" />
<DCCReference Include="..\Cliente\RemObjects_Core_D10.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\adortl.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\cxIntl6D11.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\cxIntlPrintSys3D11.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\dbrtl.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\designide.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\dclIndyCore.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\designide.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\dsnap.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\GUISDK_D11.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\IndyCore.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\IndyProtocols.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\IndySystem.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\Jcl.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JclVcl.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JSDialog100.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvCmpD11R.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvCoreD11R.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvCtrlsD11R.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvDlgsD11R.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvMMD11R.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvNetD11R.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvPageCompsD11R.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvSystemD11R.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\pckMD5.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\pckUCDataConnector.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\pckUserControl_RT.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\PngComponentsD10.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\PNG_D10.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\rtl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\rtl.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\TB2k_D10.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\vcl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\tbx_d10.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vcl.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vclactnband.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vcldb.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vcljpg.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\vclx.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\VclSmp.dcp" /> <DCCReference Include="..\..\Output\Debug\Servidor\Informes\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vclx.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

BIN
Source/Base/Base.res
View File

Binary file not shown.

56
Source/Modulos/Contabilidad/Contabilidad_Group.groupproj
View File

@ -9,9 +9,10 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" /> <Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" /> <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" /> <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
<Projects Include="Controller\Contabilidad_controller.dproj" /> <Projects Include="Controller\Contabilidad_controller.dproj" />
<Projects Include="Data\Contabilidad_data.dproj" /> <Projects Include="Data\Contabilidad_data.dproj" />
<Projects Include="Model\Contabilidad_model.dproj" /> <Projects Include="Model\Contabilidad_model.dproj" />
@ -105,24 +106,6 @@
<Target Name="Contabilidad_plugin:Make"> <Target Name="Contabilidad_plugin:Make">
<MSBuild Projects="Plugin\Contabilidad_plugin.dproj" Targets="Make" /> <MSBuild Projects="Plugin\Contabilidad_plugin.dproj" Targets="Make" />
</Target> </Target>
<Target Name="PedidosProveedor_view">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_view:Clean">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_view:Make">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_controller">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
</Target>
<Target Name="Contactos_controller:Clean">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_controller:Make">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES"> <Target Name="FactuGES">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" /> <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
</Target> </Target>
@ -141,14 +124,41 @@
<Target Name="FactuGES_Server:Make"> <Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasProveedor_view">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_view:Clean">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_view:Make">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_view">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_view:Clean">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Articulos_view">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="" />
</Target>
<Target Name="Articulos_view:Clean">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Articulos_view:Make">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contabilidad_view;Contabilidad_plugin;PedidosProveedor_view;Contactos_controller;FactuGES;FactuGES_Server" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contabilidad_view;Contabilidad_plugin;FactuGES;FactuGES_Server;FacturasProveedor_view;FacturasCliente_view;Articulos_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;Contabilidad_plugin:Clean;PedidosProveedor_view:Clean;Contactos_controller:Clean;FactuGES:Clean;FactuGES_Server:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;Contabilidad_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasProveedor_view:Clean;FacturasCliente_view:Clean;Articulos_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contabilidad_view:Make;Contabilidad_plugin:Make;PedidosProveedor_view:Make;Contactos_controller:Make;FactuGES:Make;FactuGES_Server:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contabilidad_view:Make;Contabilidad_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasProveedor_view:Make;FacturasCliente_view:Make;Articulos_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

BIN
Source/Modulos/Contabilidad/Data/Contabilidad_data.res
View File

Binary file not shown.

18
Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schContabilidadClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
@ -293,7 +293,7 @@ type
end; end;
{ TDiarioDataTableRules } { TDiarioDataTableRules }
TDiarioDataTableRules = class(TDADataTableRules, IDiario) TDiarioDataTableRules = class(TIntfObjectDADataTableRules, IDiario)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -466,7 +466,7 @@ type
end; end;
{ TApuntesDataTableRules } { TApuntesDataTableRules }
TApuntesDataTableRules = class(TDADataTableRules, IApuntes) TApuntesDataTableRules = class(TIntfObjectDADataTableRules, IApuntes)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -585,7 +585,7 @@ type
end; end;
{ TAsientosDataTableRules } { TAsientosDataTableRules }
TAsientosDataTableRules = class(TDADataTableRules, IAsientos) TAsientosDataTableRules = class(TIntfObjectDADataTableRules, IAsientos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -704,7 +704,7 @@ type
end; end;
{ TSubCuentasDataTableRules } { TSubCuentasDataTableRules }
TSubCuentasDataTableRules = class(TDADataTableRules, ISubCuentas) TSubCuentasDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentas)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -853,7 +853,7 @@ type
end; end;
{ TCuentasDataTableRules } { TCuentasDataTableRules }
TCuentasDataTableRules = class(TDADataTableRules, ICuentas) TCuentasDataTableRules = class(TIntfObjectDADataTableRules, ICuentas)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -954,7 +954,7 @@ type
end; end;
{ TCuentasEspecialesDataTableRules } { TCuentasEspecialesDataTableRules }
TCuentasEspecialesDataTableRules = class(TDADataTableRules, ICuentasEspeciales) TCuentasEspecialesDataTableRules = class(TIntfObjectDADataTableRules, ICuentasEspeciales)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1031,7 +1031,7 @@ type
end; end;
{ TEpigrafesDataTableRules } { TEpigrafesDataTableRules }
TEpigrafesDataTableRules = class(TDADataTableRules, IEpigrafes) TEpigrafesDataTableRules = class(TIntfObjectDADataTableRules, IEpigrafes)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1144,7 +1144,7 @@ type
end; end;
{ TBalancesDataTableRules } { TBalancesDataTableRules }
TBalancesDataTableRules = class(TDADataTableRules, IBalances) TBalancesDataTableRules = class(TIntfObjectDADataTableRules, IBalances)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

BIN
Source/Modulos/Contabilidad/Views/Contabilidad_view.res
View File

Binary file not shown.

24
Source/Modulos/Contabilidad/Views/uEditorAsiento.dfm
View File

@ -5,19 +5,19 @@ inherited fEditorAsiento: TfEditorAsiento
VertScrollBar.Visible = False VertScrollBar.Visible = False
Caption = 'Ficha de asiento' Caption = 'Ficha de asiento'
ClientHeight = 497 ClientHeight = 497
ClientWidth = 906 ClientWidth = 850
Scaled = False Scaled = False
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 914 ExplicitWidth = 858
ExplicitHeight = 524 ExplicitHeight = 524
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 906 Width = 850
Caption = 'Asiento' Caption = 'Asiento'
ExplicitWidth = 906 ExplicitWidth = 906
inherited Image1: TImage inherited Image1: TImage
Left = 879 Left = 823
Picture.Data = { Picture.Data = {
0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018 0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018
000000180806000000E0773DF8000000017352474200AECE1CE9000000046741 000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
@ -43,7 +43,7 @@ inherited fEditorAsiento: TfEditorAsiento
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 906 Width = 850
ExplicitWidth = 906 ExplicitWidth = 906
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 330 ExplicitWidth = 330
@ -62,7 +62,7 @@ inherited fEditorAsiento: TfEditorAsiento
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
DockPos = 0 DockPos = 0
ExplicitWidth = 906 ExplicitWidth = 850
inherited TBXSubmenuItem4: TTBXSubmenuItem inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem inherited TBXItem8: TTBXItem
Visible = False Visible = False
@ -97,7 +97,7 @@ inherited fEditorAsiento: TfEditorAsiento
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 900 Width = 844
Height = 396 Height = 396
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
@ -111,13 +111,14 @@ inherited fEditorAsiento: TfEditorAsiento
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 892 Width = 836
Height = 368 Height = 368
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 892
DesignSize = ( DesignSize = (
892 836
368) 368)
object edtOrden: TcxDBSpinEdit object edtOrden: TcxDBSpinEdit
Left = 49 Left = 49
@ -151,7 +152,7 @@ inherited fEditorAsiento: TfEditorAsiento
Width = 168 Width = 168
end end
object edtFecha: TcxDBDateEdit object edtFecha: TcxDBDateEdit
Left = 414 Left = 391
Top = 10 Top = 10
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ASIENTO' DataBinding.DataField = 'FECHA_ASIENTO'
@ -177,7 +178,6 @@ inherited fEditorAsiento: TfEditorAsiento
Top = 55 Top = 55
Width = 848 Width = 848
Height = 287 Height = 287
AutoSize = True
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -261,7 +261,7 @@ inherited fEditorAsiento: TfEditorAsiento
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 478 Top = 478
Width = 906 Width = 850
Panels = < Panels = <
item item
Width = 200 Width = 200

6
Source/Modulos/Contabilidad/Views/uViewDiario.dfm
View File

@ -20,20 +20,26 @@ inherited frViewDiario: TfrViewDiario
BestFitMaxWidth = 22 BestFitMaxWidth = 22
MinWidth = 22 MinWidth = 22
Options.HorzSizing = False Options.HorzSizing = False
VisibleForCustomization = False
Width = 22 Width = 22
IsCaptionAssigned = True IsCaptionAssigned = True
end end
object cxGridViewID_APUNTE: TcxGridDBColumn object cxGridViewID_APUNTE: TcxGridDBColumn
DataBinding.FieldName = 'ID_APUNTE' DataBinding.FieldName = 'ID_APUNTE'
Visible = False Visible = False
VisibleForCustomization = False
end end
object cxGridViewID_FACTURA: TcxGridDBColumn object cxGridViewID_FACTURA: TcxGridDBColumn
Caption = 'Fac.Asoc.' Caption = 'Fac.Asoc.'
DataBinding.FieldName = 'ID_FACTURA' DataBinding.FieldName = 'ID_FACTURA'
Visible = False
VisibleForCustomization = False
end end
object cxGridViewID_PAGO: TcxGridDBColumn object cxGridViewID_PAGO: TcxGridDBColumn
Caption = 'Pag.Asoc.' Caption = 'Pag.Asoc.'
DataBinding.FieldName = 'ID_PAGO' DataBinding.FieldName = 'ID_PAGO'
Visible = False
VisibleForCustomization = False
end end
object cxGridViewFECHA_ASIENTO: TcxGridDBColumn object cxGridViewFECHA_ASIENTO: TcxGridDBColumn
Caption = 'Fecha asiento' Caption = 'Fecha asiento'

8
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -9,8 +9,8 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_FacturasCliente = '{F2391B37-1CFC-4278-9886-10B58EB16F64}'; RID_FacturasCliente = '{5CFC1F3A-C4C3-4B0D-A3D3-4B7228AC1A66}';
RID_FacturasCliente_Detalles = '{85136507-38CB-4985-B1C4-DFBDB0D69903}'; RID_FacturasCliente_Detalles = '{00F71BAE-F97E-4623-822A-CABF96670B07}';
{ Data table names } { Data table names }
nme_FacturasCliente = 'FacturasCliente'; nme_FacturasCliente = 'FacturasCliente';
@ -123,7 +123,7 @@ const
type type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{EE310893-B940-40AD-B0F3-7BBF9128C629}'] ['{313860F6-D8F4-464D-B088-46B3D21E0BF6}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -554,7 +554,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{69194180-6BEA-41D0-8DD9-21E562F1B351}'] ['{4C9E0D36-778C-4B10-A259-7464E5477004}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);

8
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_FacturasClienteDelta = '{156A6AD0-D912-4FCF-AC71-2BB455BBC0AB}'; RID_FacturasClienteDelta = '{D3AF6738-9259-4CD5-8C00-3759F8E7A324}';
RID_FacturasCliente_DetallesDelta = '{F4802AAF-93A6-40A6-8DC8-8BF1B5E4B06A}'; RID_FacturasCliente_DetallesDelta = '{A44965AF-2317-4817-8A12-BAF06CA8E77E}';
type type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{156A6AD0-D912-4FCF-AC71-2BB455BBC0AB}'] ['{D3AF6738-9259-4CD5-8C00-3759F8E7A324}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -446,7 +446,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{F4802AAF-93A6-40A6-8DC8-8BF1B5E4B06A}'] ['{A44965AF-2317-4817-8A12-BAF06CA8E77E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;

1
Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas
View File

@ -101,6 +101,7 @@ begin
with ACommand do with ACommand do
begin begin
ParamByName('IdFactura').Value := aChange.OldValueByName[fld_FacturasClienteID]; ParamByName('IdFactura').Value := aChange.OldValueByName[fld_FacturasClienteID];
ParamByName('Tipo').Value := 'c';
Execute; Execute;
end; end;
finally finally

8
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -512,6 +512,10 @@ object srvFacturasCliente: TsrvFacturasCliente
item item
Name = 'IdFactura' Name = 'IdFactura'
Value = '' Value = ''
end
item
Name = 'Tipo'
Value = ''
end> end>
Statements = < Statements = <
item item
@ -519,7 +523,7 @@ object srvFacturasCliente: TsrvFacturasCliente
ConnectionType = 'Interbase' ConnectionType = 'Interbase'
Default = True Default = True
Name = 'IBX' Name = 'IBX'
SQL = 'execute procedure proc_delete_asiento_factura :IdFactura'#10 SQL = 'execute procedure proc_delete_asiento_factura :IdFactura, :Tipo'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -537,7 +541,7 @@ object srvFacturasCliente: TsrvFacturasCliente
ConnectionType = 'Interbase' ConnectionType = 'Interbase'
Default = True Default = True
Name = 'IBX' Name = 'IBX'
SQL = 'execute procedure proc_new_asiento_factura :IdFactura'#10 SQL = 'execute procedure proc_new_asiento_factura_cli :IdFactura'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

104
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -69,22 +69,24 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 788 Width = 782
Height = 317 Height = 311
ActivePage = pagContenido ActivePage = pagContabilidad
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 788 ExplicitLeft = 3
ExplicitHeight = 317 ExplicitTop = 79
ExplicitWidth = 782
ExplicitHeight = 311
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 780 ExplicitWidth = 774
ExplicitHeight = 289 ExplicitHeight = 283
inline frViewFacturaCliente1: TfrViewFacturaCliente inline frViewFacturaCliente1: TfrViewFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 780 Width = 774
Height = 289 Height = 283
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -94,16 +96,16 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 780 ExplicitWidth = 774
ExplicitHeight = 289 ExplicitHeight = 283
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 780 Width = 774
Height = 289 Height = 283
ExplicitWidth = 780 ExplicitWidth = 774
ExplicitHeight = 289 ExplicitHeight = 283
DesignSize = ( DesignSize = (
780 774
289) 283)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 393 ExplicitWidth = 393
Width = 393 Width = 393
@ -119,9 +121,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 473 Width = 473
end end
inherited frViewClienteFactura: TfrViewDatosYSeleccionCliente inherited frViewClienteFactura: TfrViewDatosYSeleccionCliente
Left = 474 Left = 471
Width = 332 Width = 332
ExplicitLeft = 474 ExplicitLeft = 471
ExplicitWidth = 332 ExplicitWidth = 332
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 332 Width = 332
@ -162,8 +164,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 255 Width = 255
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 314 Left = 311
ExplicitLeft = 314 ExplicitLeft = 311
end end
end end
end end
@ -174,8 +176,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 780 Width = 774
Height = 289 Height = 283
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -187,11 +189,11 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 780 ExplicitWidth = 774
ExplicitHeight = 289 ExplicitHeight = 283
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 780 Width = 774
ExplicitWidth = 780 ExplicitWidth = 774
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Wrap = False Wrap = False
end end
@ -213,51 +215,51 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 57 ExplicitWidth = 57
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 217 Left = 202
ExplicitLeft = 217 ExplicitLeft = 202
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 234 Left = 219
ExplicitLeft = 234 ExplicitLeft = 219
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 242 Left = 227
ExplicitLeft = 242 ExplicitLeft = 227
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 276 Left = 261
ExplicitLeft = 276 ExplicitLeft = 261
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 310 Left = 295
ExplicitLeft = 310 ExplicitLeft = 295
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 344 Left = 329
ExplicitLeft = 344 ExplicitLeft = 329
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 352 Left = 337
ExplicitLeft = 352 ExplicitLeft = 337
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 386 Left = 371
ExplicitLeft = 386 ExplicitLeft = 371
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 420 Left = 405
ExplicitLeft = 420 ExplicitLeft = 405
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 780 Width = 774
Height = 217 Height = 211
ExplicitWidth = 780 ExplicitWidth = 774
ExplicitHeight = 217 ExplicitHeight = 211
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 780 Width = 774
ExplicitWidth = 780 ExplicitWidth = 774
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548 ExplicitWidth = 548
end end

4
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
View File

@ -227,6 +227,10 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
DisplayLabel = 'Importe del porte' DisplayLabel = 'Importe del porte'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE' DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE'
end
item
Name = 'IGNORAR_CONTABILIDAD'
DataType = datSmallInt
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

49
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
View File

@ -3,14 +3,14 @@ unit schFacturasProveedorClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_FacturasProveedor = '{136699FF-423F-4F03-8EF2-2177BB023D1D}'; RID_FacturasProveedor = '{5DE2E10C-A833-40C3-BE32-293A7D50E034}';
RID_FacturasProveedor_Detalles = '{DEFE9C53-4E75-4151-97EB-0B915C6D0FA3}'; RID_FacturasProveedor_Detalles = '{CF4A1BF0-15D1-4A05-B66A-73F2F32AEEA2}';
{ Data table names } { Data table names }
nme_FacturasProveedor = 'FacturasProveedor'; nme_FacturasProveedor = 'FacturasProveedor';
@ -48,6 +48,7 @@ const
fld_FacturasProveedorID_TIPO_IVA = 'ID_TIPO_IVA'; fld_FacturasProveedorID_TIPO_IVA = 'ID_TIPO_IVA';
fld_FacturasProveedorIMPORTE_NETO = 'IMPORTE_NETO'; fld_FacturasProveedorIMPORTE_NETO = 'IMPORTE_NETO';
fld_FacturasProveedorIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_FacturasProveedorIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_FacturasProveedorIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
{ FacturasProveedor field indexes } { FacturasProveedor field indexes }
idx_FacturasProveedorID = 0; idx_FacturasProveedorID = 0;
@ -81,6 +82,7 @@ const
idx_FacturasProveedorID_TIPO_IVA = 28; idx_FacturasProveedorID_TIPO_IVA = 28;
idx_FacturasProveedorIMPORTE_NETO = 29; idx_FacturasProveedorIMPORTE_NETO = 29;
idx_FacturasProveedorIMPORTE_PORTE = 30; idx_FacturasProveedorIMPORTE_PORTE = 30;
idx_FacturasProveedorIGNORAR_CONTABILIDAD = 31;
{ FacturasProveedor_Detalles fields } { FacturasProveedor_Detalles fields }
fld_FacturasProveedor_DetallesID = 'ID'; fld_FacturasProveedor_DetallesID = 'ID';
@ -117,7 +119,7 @@ const
type type
{ IFacturasProveedor } { IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable) IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{C77E17AB-983D-4BA0-9307-753EEACE24CA}'] ['{BFF47882-8083-4762-8152-471606B73FDD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -242,6 +244,10 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Currency); procedure SetIMPORTE_PORTEValue(const aValue: Currency);
function GetIMPORTE_PORTEIsNull: Boolean; function GetIMPORTE_PORTEIsNull: Boolean;
procedure SetIMPORTE_PORTEIsNull(const aValue: 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 } { Properties }
@ -307,10 +313,12 @@ type
property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; 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; end;
{ TFacturasProveedorDataTableRules } { TFacturasProveedorDataTableRules }
TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor) TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject);
@ -439,6 +447,10 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual; function GetIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: 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 } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -503,6 +515,8 @@ type
property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; 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 public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -512,7 +526,7 @@ type
{ IFacturasProveedor_Detalles } { IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{A0C91003-B79C-400B-815C-9CC93FBAB289}'] ['{E1CE7258-5767-4D41-AD5D-B8A6AAB6CA66}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -604,7 +618,7 @@ type
end; end;
{ TFacturasProveedor_DetallesDataTableRules } { TFacturasProveedor_DetallesDataTableRules }
TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles) TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1374,6 +1388,27 @@ begin
DataTable.Fields[idx_FacturasProveedorIMPORTE_PORTE].AsVariant := Null; DataTable.Fields[idx_FacturasProveedorIMPORTE_PORTE].AsVariant := Null;
end; 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 } { TFacturasProveedor_DetallesDataTableRules }
constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);

51
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_FacturasProveedorDelta = '{49DEF80E-CE30-451C-9F9F-ACC792AF58B2}'; RID_FacturasProveedorDelta = '{AC5A5905-6BD4-4C36-A37A-3EEC30573F51}';
RID_FacturasProveedor_DetallesDelta = '{2373FE62-65FF-43FC-86C0-82138300CDA1}'; RID_FacturasProveedor_DetallesDelta = '{CD5BD628-F822-44A4-8AE7-64D239ABC8B2}';
type type
{ IFacturasProveedorDelta } { IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor) IFacturasProveedorDelta = interface(IFacturasProveedor)
['{49DEF80E-CE30-451C-9F9F-ACC792AF58B2}'] ['{AC5A5905-6BD4-4C36-A37A-3EEC30573F51}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -48,6 +48,7 @@ type
function GetOldID_TIPO_IVAValue : Integer; function GetOldID_TIPO_IVAValue : Integer;
function GetOldIMPORTE_NETOValue : Currency; function GetOldIMPORTE_NETOValue : Currency;
function GetOldIMPORTE_PORTEValue : Currency; function GetOldIMPORTE_PORTEValue : Currency;
function GetOldIGNORAR_CONTABILIDADValue : SmallInt;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -81,6 +82,7 @@ type
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
end; end;
{ TFacturasProveedorBusinessProcessorRules } { TFacturasProveedorBusinessProcessorRules }
@ -275,6 +277,12 @@ type
function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); 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 } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -401,6 +409,10 @@ type
property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; 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 public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -410,7 +422,7 @@ type
{ IFacturasProveedor_DetallesDelta } { IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{2373FE62-65FF-43FC-86C0-82138300CDA1}'] ['{CD5BD628-F822-44A4-8AE7-64D239ABC8B2}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -1583,6 +1595,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_PORTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_PORTE] := Null;
end; 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 } { TFacturasProveedor_DetallesBusinessProcessorRules }
constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

94
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas
View File

@ -15,10 +15,12 @@ type
function DarReferencia : String; function DarReferencia : String;
function IncrementarReferencia : Boolean; function IncrementarReferencia : Boolean;
protected protected
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; procedure Insert_Asiento_Factura(aChange: TDADeltaChange); virtual;
const aDelta: IDADelta); override; procedure Update_Asiento_Factura(aChange: TDADeltaChange); virtual;
procedure AfterProcessChange(Sender: TDABusinessProcessor; procedure Delete_Asiento_Factura(aChange: TDADeltaChange); virtual;
aChange: TDADeltaChange; Processed: Boolean;
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
var CanRemoveFromDelta: Boolean); override; var CanRemoveFromDelta: Boolean); override;
end; end;
@ -36,12 +38,26 @@ const
{ TBizFacturasProveedorServer } { TBizFacturasProveedorServer }
procedure TBizFacturasProveedorServer.AfterProcessChange( procedure TBizFacturasProveedorServer.AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
var CanRemoveFromDelta: Boolean); var CanRemoveFromDelta: Boolean);
begin begin
inherited; 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; CanRemoveFromDelta := False;
case aChange.ChangeType of case aChange.ChangeType of
@ -88,6 +104,28 @@ begin
end; end;
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; function TBizFacturasProveedorServer.IncrementarReferencia: Boolean;
var var
ATipo : String; ATipo : String;
@ -107,6 +145,48 @@ begin
end; 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 initialization
RegisterBusinessProcessorRules(BIZ_SERVER_FACTURAS_PROVEEDOR, TBizFacturasProveedorServer); RegisterBusinessProcessorRules(BIZ_SERVER_FACTURAS_PROVEEDOR, TBizFacturasProveedorServer);

77
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

@ -146,6 +146,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item item
DatasetField = 'IMPORTE_PORTE' DatasetField = 'IMPORTE_PORTE'
TableField = 'IMPORTE_PORTE' TableField = 'IMPORTE_PORTE'
end
item
DatasetField = 'IGNORAR_CONTABILIDAD'
TableField = 'IGNORAR_CONTABILIDAD'
end> end>
end> end>
Name = 'FacturasProveedor' Name = 'FacturasProveedor'
@ -318,6 +322,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE' DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE'
end
item
Name = 'IGNORAR_CONTABILIDAD'
DataType = datSmallInt
end> end>
end end
item item
@ -483,6 +491,46 @@ object srvFacturasProveedor: TsrvFacturasProveedor
JoinDataTables = <> JoinDataTables = <>
UnionDataTables = <> UnionDataTables = <>
Commands = < 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 item
Params = < Params = <
item item
@ -602,6 +650,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
Value = '' Value = ''
end
item
Name = 'IGNORAR_CONTABILIDAD'
Value = ''
end> end>
Statements = < Statements = <
item item
@ -615,15 +667,15 @@ object srvFacturasProveedor: TsrvFacturasProveedor
' '#10' IMPORTE_TOTAL, OBSERVACIONES, ID_PROVEEDOR, NIF_CIF, '#10' ' + ' '#10' IMPORTE_TOTAL, OBSERVACIONES, ID_PROVEEDOR, NIF_CIF, '#10' ' +
' NOMBRE, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, '#10' FECH' + ' NOMBRE, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, '#10' FECH' +
'A_ALTA, FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, '#10' RECARG' + 'A_ALTA, FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, '#10' RECARG' +
'O_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE)'#10' VALU' + 'O_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE, IGNORA' +
'ES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' ' + 'R_CONTABILIDAD)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :RE' +
' :FECHA_FACTURA, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DE' + 'FERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :BASE_IMPONIBLE, :DESCU' +
'SCUENTO, :IVA, :IMPORTE_IVA, :RE, :IMPORTE_RE, '#10' :IMPORTE_TO' + 'ENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :RE, :IMPORTE' +
'TAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF, '#10' :NOMBRE, :CA' + '_RE, '#10' :IMPORTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_C' +
'LLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' :FECHA_ALTA, ' + 'IF, '#10' :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTA' +
':FECHA_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10' :RECARGO_EQ' + 'L, '#10' :FECHA_ALTA, :FECHA_MODIFICACION, :USUARIO, :ID_FORMA_P' +
'UIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_PORTE)'#10' ' + 'AGO, '#10' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10 +
' '#10' '#10#10 ' :IMPORTE_PORTE, :IGNORAR_CONTABILIDAD)'#10' '#10' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -766,6 +818,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
Value = '' Value = ''
end end
item
Name = 'IGNORAR_CONTABILIDAD'
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -791,7 +847,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
' :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' RECARGO_EQU' + ' :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' RECARGO_EQU' +
'IVALENCIA = :RECARGO_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_I' + 'IVALENCIA = :RECARGO_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_I' +
'VA, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMP' + '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 StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

106
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -69,21 +69,24 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 788 Width = 782
Height = 315 Height = 309
ActivePage = pagContabilidad
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 788 ExplicitLeft = 3
ExplicitHeight = 315 ExplicitTop = 79
ExplicitWidth = 782
ExplicitHeight = 309
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 780 ExplicitWidth = 774
ExplicitHeight = 287 ExplicitHeight = 281
inline frViewFacturaProveedor1: TfrViewFacturaProveedor inline frViewFacturaProveedor1: TfrViewFacturaProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 780 Width = 774
Height = 287 Height = 281
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -93,13 +96,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 780 ExplicitWidth = 774
ExplicitHeight = 287 ExplicitHeight = 281
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 780 Width = 774
Height = 287 Height = 281
ExplicitWidth = 780 ExplicitWidth = 774
ExplicitHeight = 287 ExplicitHeight = 281
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 159 ExplicitWidth = 159
Width = 159 Width = 159
@ -119,13 +122,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 78 Width = 78
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 234 Left = 231
ExplicitLeft = 234 ExplicitLeft = 231
end end
inherited frViewProveedorFactura: TfrViewDatosYSeleccionProveedor inherited frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
Left = 394 Left = 391
Width = 350 Width = 350
ExplicitLeft = 394 ExplicitLeft = 391
ExplicitWidth = 350 ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 350 Width = 350
@ -155,13 +158,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 272 Left = 269
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
ExplicitLeft = 272 ExplicitLeft = 269
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 156 Left = 153
ExplicitLeft = 156 ExplicitLeft = 153
end end
end end
end end
@ -171,11 +174,15 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 780 Width = 774
Height = 287 Height = 281
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -187,11 +194,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 780 ExplicitWidth = 774
ExplicitHeight = 287 ExplicitHeight = 281
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 780 Width = 774
ExplicitWidth = 780 ExplicitWidth = 774
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Wrap = False Wrap = False
end end
@ -250,20 +257,51 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 780 Width = 774
Height = 215 Height = 209
ExplicitWidth = 780 ExplicitWidth = 774
ExplicitHeight = 215 ExplicitHeight = 209
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 780 Width = 774
ExplicitWidth = 780 ExplicitWidth = 774
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548 ExplicitWidth = 548
end end
end end
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 end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 554 Top = 554

7
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
View File

@ -13,7 +13,8 @@ uses
uBizFacturasProveedor, uIEditorFacturaProveedor, uFacturasProveedorController, uViewDetallesBase, uBizFacturasProveedor, uIEditorFacturaProveedor, uFacturasProveedorController, uViewDetallesBase,
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uBizTiposIVA, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uBizTiposIVA,
uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController,
uViewDetallesFacturaProveedor, uViewFacturaProveedor, uDAInterfaces; uViewDetallesFacturaProveedor, uViewFacturaProveedor, uDAInterfaces,
cxControls, cxContainer, cxEdit, cxCheckBox, cxDBEdit;
type type
@ -21,6 +22,8 @@ type
frViewTotales1: TfrViewTotales; frViewTotales1: TfrViewTotales;
frViewFacturaProveedor1: TfrViewFacturaProveedor; frViewFacturaProveedor1: TfrViewFacturaProveedor;
frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor; frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor;
pagContabilidad: TTabSheet;
cbIgnorarContabilidad: TcxDBCheckBox;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure frViewProveedorFactura1edtlNombrePropertiesEditValueChanged( procedure frViewProveedorFactura1edtlNombrePropertiesEditValueChanged(
Sender: TObject); Sender: TObject);
@ -75,7 +78,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
cxDBEdit, uBizContactos, uDataModuleUsuarios, cxControls, uFactuGES_App, uBizContactos, uDataModuleUsuarios, uFactuGES_App,
uDetallesFacturaProveedorController, uDialogUtils, uDataTableUtils; uDetallesFacturaProveedorController, uDialogUtils, uDataTableUtils;
// uGenerarAlbaranesProvFacProvUtils; // uGenerarAlbaranesProvFacProvUtils;

3
Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas
View File

@ -47,6 +47,7 @@ type
tbl_RecibosCompensadosCli: TDAMemDataTable; tbl_RecibosCompensadosCli: TDAMemDataTable;
ds_RecibosCompensadosCli: TDADataSource; ds_RecibosCompensadosCli: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject); procedure DAClientDataModuleCreate(Sender: TObject);
protected protected
function _GetPagos: IBizPagosCliente; function _GetPagos: IBizPagosCliente;
function _GetRecibosCompensados : IBizRecibosCompensadosCli; function _GetRecibosCompensados : IBizRecibosCompensadosCli;
@ -62,7 +63,7 @@ implementation
{$R *.DFM} {$R *.DFM}
uses uses
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
schRecibosClienteClient_Intf; schRecibosClienteClient_Intf;
{ TDataModuleRecibosCliente } { TDataModuleRecibosCliente }

12
Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosCliente = '{BD713121-B67A-4555-B1F6-8C79907169A8}'; RID_RecibosCliente = '{08D48C16-47F6-4396-B402-DCB79C0CF5E3}';
RID_PagosCliente = '{51327032-C47B-4B5A-A2FB-4FF7FA518830}'; RID_PagosCliente = '{782F3802-B17C-4448-9C21-5A971E79CA34}';
RID_RecibosCompensadosCli = '{942FEF94-88F0-4687-9F8F-420A53607386}'; RID_RecibosCompensadosCli = '{ABA4E332-F32B-4501-BAB6-388F1C2E5F90}';
{ Data table names } { Data table names }
nme_RecibosCliente = 'RecibosCliente'; nme_RecibosCliente = 'RecibosCliente';
@ -175,7 +175,7 @@ const
type type
{ IRecibosCliente } { IRecibosCliente }
IRecibosCliente = interface(IDAStronglyTypedDataTable) IRecibosCliente = interface(IDAStronglyTypedDataTable)
['{13B23B67-01E0-4206-8F77-7C86FAB5765C}'] ['{B1690FE5-2752-4154-948C-AD438BDDC48B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -546,7 +546,7 @@ type
{ IPagosCliente } { IPagosCliente }
IPagosCliente = interface(IDAStronglyTypedDataTable) IPagosCliente = interface(IDAStronglyTypedDataTable)
['{CACDCDCC-257B-4007-87DE-DDB16A31FA1E}'] ['{4A5990E2-A1FC-4839-8463-25AB1AFC1CD2}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -725,7 +725,7 @@ type
{ IRecibosCompensadosCli } { IRecibosCompensadosCli }
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable) IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
['{318980D4-1AED-437D-A1BB-40D176B7F41A}'] ['{F4602DC2-1B70-438C-A14E-D92C55A26766}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);

12
Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosClienteDelta = '{0886304E-ADCF-4985-93CD-63C479B0592E}'; RID_RecibosClienteDelta = '{5808EEBF-877B-4662-AE1D-C5D3E222230D}';
RID_PagosClienteDelta = '{D5A42190-E981-46DA-BADE-32C8DD8A03B3}'; RID_PagosClienteDelta = '{4BC06FA3-E27C-4E39-AC4E-03E78C1E25C3}';
RID_RecibosCompensadosCliDelta = '{46B04689-C995-45CE-B3CA-C602E1142822}'; RID_RecibosCompensadosCliDelta = '{B414ABD6-606E-458D-A58F-ABAB88906CE9}';
type type
{ IRecibosClienteDelta } { IRecibosClienteDelta }
IRecibosClienteDelta = interface(IRecibosCliente) IRecibosClienteDelta = interface(IRecibosCliente)
['{0886304E-ADCF-4985-93CD-63C479B0592E}'] ['{5808EEBF-877B-4662-AE1D-C5D3E222230D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -386,7 +386,7 @@ type
{ IPagosClienteDelta } { IPagosClienteDelta }
IPagosClienteDelta = interface(IPagosCliente) IPagosClienteDelta = interface(IPagosCliente)
['{D5A42190-E981-46DA-BADE-32C8DD8A03B3}'] ['{4BC06FA3-E27C-4E39-AC4E-03E78C1E25C3}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer; function GetOldID_RECIBOValue : Integer;
@ -564,7 +564,7 @@ type
{ IRecibosCompensadosCliDelta } { IRecibosCompensadosCliDelta }
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli) IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
['{46B04689-C995-45CE-B3CA-C602E1142822}'] ['{B414ABD6-606E-458D-A58F-ABAB88906CE9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;

1
Source/Modulos/Recibos de cliente/Model/uBizPagosClienteServer.pas
View File

@ -62,6 +62,7 @@ begin
with ACommand do with ACommand do
begin begin
ParamByName('IdPago').Value := aChange.OldValueByName[fld_PagosClienteID]; ParamByName('IdPago').Value := aChange.OldValueByName[fld_PagosClienteID];
ParamByName('Tipo').Value := 'p';
Execute; Execute;
end; end;
finally finally

10
Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
View File

@ -708,6 +708,10 @@ object srvRecibosCliente: TsrvRecibosCliente
item item
Name = 'IdPago' Name = 'IdPago'
Value = '' Value = ''
end
item
Name = 'Tipo'
Value = ''
end> end>
Statements = < Statements = <
item item
@ -715,7 +719,7 @@ object srvRecibosCliente: TsrvRecibosCliente
ConnectionType = 'Interbase' ConnectionType = 'Interbase'
Default = True Default = True
Name = 'IBX' Name = 'IBX'
SQL = 'execute procedure proc_delete_asiento_pago :IdPago'#10 SQL = 'execute procedure proc_delete_asiento_pago :IdPago, :Tipo'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -738,8 +742,8 @@ object srvRecibosCliente: TsrvRecibosCliente
Default = True Default = True
Name = 'IBX' Name = 'IBX'
SQL = SQL =
'execute procedure proc_new_asiento_pago :IdPago, :IdSubCuentaPag' + 'execute procedure proc_new_asiento_pago_cli :IdPago, :IdSubCuent' +
'o'#10 'aPago'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

3
Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas
View File

@ -87,7 +87,8 @@ begin
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
} }
Result := NIL;
end; end;
initialization initialization

3
Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas
View File

@ -96,8 +96,7 @@ begin
FIDSubCuenta := eIDSubCuenta.EditValue; FIDSubCuenta := eIDSubCuenta.EditValue;
end; end;
procedure TfEditorFechaPago.FormClose(Sender: TObject; procedure TfEditorFechaPago.FormClose(Sender: TObject; var Action: TCloseAction);
var Action: TCloseAction);
begin begin
FController := Nil; FController := Nil;
end; end;

8
Source/Modulos/Recibos de proveedor/Controller/View/uIEditorFechaPagoProveedor.pas
View File

@ -11,6 +11,14 @@ type
function GetFechaPago: TDateTime; function GetFechaPago: TDateTime;
procedure SetFechaPago(const Value: TDateTime); procedure SetFechaPago(const Value: TDateTime);
property FechaPago: TDateTime Read GetFechaPago write SetFechaPago; 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; end;
implementation implementation

16
Source/Modulos/Recibos de proveedor/Controller/uPagosProveedorController.pas
View File

@ -32,8 +32,8 @@ uses
type type
IPagosProveedorController = interface(ISujeto) IPagosProveedorController = interface(ISujeto)
['{4F907D80-B184-4557-BAB7-9FDA23260E64}'] ['{4F907D80-B184-4557-BAB7-9FDA23260E64}']
function Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''): Boolean; function Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0): Boolean;
procedure Modificar(APagosProveedor: IBizPagosProveedor; Const Fecha: String); procedure Modificar(APagosProveedor: IBizPagosProveedor; Const Fecha: String; Const IgnorarContabilidad: Integer);
function Eliminar(APagoCliente : IBizPagosProveedor): Boolean; function Eliminar(APagoCliente : IBizPagosProveedor): Boolean;
function EliminarTodo(APagossCliente : IBizPagosProveedor): Boolean; function EliminarTodo(APagossCliente : IBizPagosProveedor): Boolean;
end; end;
@ -46,8 +46,8 @@ type
public public
constructor Create; virtual; constructor Create; virtual;
destructor Destroy; override; destructor Destroy; override;
function Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''): Boolean; function Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0): Boolean;
procedure Modificar(APagosProveedor: IBizPagosProveedor; Const Fecha: String); procedure Modificar(APagosProveedor: IBizPagosProveedor; Const Fecha: String; Const IgnorarContabilidad: Integer);
function Eliminar(APagoCliente : IBizPagosProveedor): Boolean; function Eliminar(APagoCliente : IBizPagosProveedor): Boolean;
function EliminarTodo(APagosProveedor : IBizPagosProveedor): Boolean; function EliminarTodo(APagosProveedor : IBizPagosProveedor): Boolean;
end; end;
@ -62,7 +62,7 @@ uses
{ TPagosProveedorController } { 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 { Si el pago introducido es un pago y no una devolución devolvemos true en caso de ser
una devolución devolvemos false} una devolución devolvemos false}
begin begin
@ -78,6 +78,9 @@ begin
else else
APagosProveedor.TIPO := CTE_DEVOLUCION; APagosProveedor.TIPO := CTE_DEVOLUCION;
APagosProveedor.IGNORAR_CONTABILIDAD := IgnorarContabilidad;
APagosProveedor.CUENTA := IntToStr(IdSubCuenta);
Result := (APagosProveedor.TIPO = CTE_PAGO); Result := (APagosProveedor.TIPO = CTE_PAGO);
APagosProveedor.Post; APagosProveedor.Post;
end; end;
@ -134,10 +137,11 @@ begin
end; end;
end; end;
procedure TPagosProveedorController.Modificar(APagosProveedor: IBizPagosProveedor; const Fecha: String); procedure TPagosProveedorController.Modificar(APagosProveedor: IBizPagosProveedor; const Fecha: String; Const IgnorarContabilidad: Integer);
begin begin
APagosProveedor.DataTable.Edit; APagosProveedor.DataTable.Edit;
APagosProveedor.FECHA_PAGO := StrToDate(Fecha); APagosProveedor.FECHA_PAGO := StrToDate(Fecha);
APagosProveedor.IGNORAR_CONTABILIDAD := IgnorarContabilidad;
APagosProveedor.DataTable.Post; APagosProveedor.DataTable.Post;
end; end;

19
Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
View File

@ -156,6 +156,9 @@ end;
function TRecibosProveedorController.AnadirPago(ARecibosProveedor: IBizRecibosProveedor; FechaPago: String =''): Boolean; function TRecibosProveedorController.AnadirPago(ARecibosProveedor: IBizRecibosProveedor; FechaPago: String =''): Boolean;
var var
AEditor : IEditorFechaPagoProveedor; AEditor : IEditorFechaPagoProveedor;
AIgnorarContabilidad : Integer;
ASubCuenta: Integer;
begin begin
Result := False; Result := False;
@ -166,7 +169,11 @@ begin
CreateEditor('EditorFechaPagoProveedor', IEditorFechaPagoProveedor, AEditor); CreateEditor('EditorFechaPagoProveedor', IEditorFechaPagoProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
if (AEditor.ShowModal = mrOk) then if (AEditor.ShowModal = mrOk) then
begin
FechaPago := DateToStr(AEditor.FechaPago); FechaPago := DateToStr(AEditor.FechaPago);
AIgnorarContabilidad := AEditor.IgnorarContabilidad;
ASubCuenta := AEditor.IdSubcuenta;
end;
AEditor.Release; AEditor.Release;
finally finally
AEditor := NIL; AEditor := NIL;
@ -178,7 +185,7 @@ begin
Exit; Exit;
//Finalmente añadimos el pago (pago o devolucion) //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 begin
ARecibosProveedor.Edit; ARecibosProveedor.Edit;
ARecibosProveedor.SITUACION := CTE_PAGADO; ARecibosProveedor.SITUACION := CTE_PAGADO;
@ -531,7 +538,9 @@ begin
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do with AEditor do
begin begin
Controller := Self; //OJO ORDEN MUY IMPORTANTE
RecibosProveedor := ARecibosProveedor; RecibosProveedor := ARecibosProveedor;
MultiSelect := True;
ShowEmbedded; ShowEmbedded;
end; end;
finally finally
@ -724,6 +733,7 @@ procedure TRecibosProveedorController.ModificarPago(ARecibosProveedor: IBizRecib
var var
AEditor : IEditorFechaPagoProveedor; AEditor : IEditorFechaPagoProveedor;
FechaPago: String; FechaPago: String;
IgnorarContabilidad: Integer;
begin begin
try try
//Pedimos la fecha del pago //Pedimos la fecha del pago
@ -731,14 +741,17 @@ begin
if Assigned(AEditor) then if Assigned(AEditor) then
FechaPago:= ''; FechaPago:= '';
if (AEditor.ShowModal = mrOk) then if (AEditor.ShowModal = mrOk) then
FechaPago := DateToStr(AEditor.FechaPago); begin
FechaPago := DateToStr(AEditor.FechaPago);
IgnorarContabilidad := AEditor.IgnorarContabilidad;
end;
AEditor.Release; AEditor.Release;
finally finally
AEditor := NIL; AEditor := NIL;
end; end;
if Length(FechaPago) > 0 then if Length(FechaPago) > 0 then
PagosController.Modificar(ARecibosProveedor.Pagos, FechaPago); PagosController.Modificar(ARecibosProveedor.Pagos, FechaPago, IgnorarContabilidad);
end; end;
function TRecibosProveedorController.Nuevo: IBizRecibosProveedor; function TRecibosProveedorController.Nuevo: IBizRecibosProveedor;

6
Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dproj
View File

@ -49,9 +49,9 @@
<DelphiCompile Include="RecibosProveedor_data.dpk"> <DelphiCompile Include="RecibosProveedor_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\RecibosProveedor_model.dcp" /> <DCCReference Include="..\RecibosProveedor_model.dcp" />
<DCCReference Include="uDataModuleRecibosProveedor.pas" /> <DCCReference Include="uDataModuleRecibosProveedor.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>

30
Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
View File

@ -6,7 +6,7 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Message = dmConexion.ROMessage Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel Channel = dmConexion.ROChannel
ServiceName = 'srvRecibosProveedor' ServiceName = 'srvRecibosProveedor'
Left = 56 Left = 48
Top = 24 Top = 24
end end
object Bin2DataStreamer: TDABin2DataStreamer object Bin2DataStreamer: TDABin2DataStreamer
@ -106,6 +106,10 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Size = 20 Size = 20
DisplayLabel = 'PagosCliente_USUARIO' DisplayLabel = 'PagosCliente_USUARIO'
DictionaryEntry = 'PagosProveedor_USUARIO' DictionaryEntry = 'PagosProveedor_USUARIO'
end
item
Name = 'IGNORAR_CONTABILIDAD'
DataType = datSmallInt
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere
@ -118,14 +122,14 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PagosProveedor' LogicalName = 'PagosProveedor'
IndexDefs = <> IndexDefs = <>
Left = 280 Left = 288
Top = 104 Top = 96
end end
object ds_PagosProveedor: TDADataSource object ds_PagosProveedor: TDADataSource
DataSet = tbl_PagosProveedor.Dataset DataSet = tbl_PagosProveedor.Dataset
DataTable = tbl_PagosProveedor DataTable = tbl_PagosProveedor
Left = 280 Left = 288
Top = 48 Top = 40
end end
object tbl_RecibosCompensadosProv: TDAMemDataTable object tbl_RecibosCompensadosProv: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
@ -284,14 +288,14 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'RecibosCompensadosProv' LogicalName = 'RecibosCompensadosProv'
IndexDefs = <> IndexDefs = <>
Left = 416 Left = 424
Top = 104 Top = 96
end end
object ds_RecibosCompensadosProv: TDADataSource object ds_RecibosCompensadosProv: TDADataSource
DataSet = tbl_RecibosCompensadosProv.Dataset DataSet = tbl_RecibosCompensadosProv.Dataset
DataTable = tbl_RecibosCompensadosProv DataTable = tbl_RecibosCompensadosProv
Left = 416 Left = 424
Top = 48 Top = 40
end end
object tbl_RecibosProveedor: TDAMemDataTable object tbl_RecibosProveedor: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
@ -493,13 +497,13 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'RecibosProveedor' LogicalName = 'RecibosProveedor'
IndexDefs = <> IndexDefs = <>
Left = 160 Left = 176
Top = 104 Top = 96
end end
object ds_RecibosProveedor: TDADataSource object ds_RecibosProveedor: TDADataSource
DataSet = tbl_RecibosProveedor.Dataset DataSet = tbl_RecibosProveedor.Dataset
DataTable = tbl_RecibosProveedor DataTable = tbl_RecibosProveedor
Left = 160 Left = 176
Top = 48 Top = 40
end end
end end

55
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas
View File

@ -3,15 +3,15 @@ unit schRecibosProveedorClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosCompensadosProv = '{038EB6D0-2F4B-45EA-9008-1869EF2AD2A7}'; RID_RecibosCompensadosProv = '{79E4C792-FBE0-4991-AEEB-C0EE4E1F8183}';
RID_RecibosProveedor = '{520783CC-3FA1-47AD-9EB5-8864F919B8B5}'; RID_RecibosProveedor = '{9C35F5D6-0E7E-4C46-BE0E-BACD1FFDB567}';
RID_PagosProveedor = '{5C9C9069-2E1F-4CD6-ACAC-B12F74426DB4}'; RID_PagosProveedor = '{ED4FAA5F-C675-494A-BA70-40FA218DBE18}';
{ Data table names } { Data table names }
nme_RecibosCompensadosProv = 'RecibosCompensadosProv'; nme_RecibosCompensadosProv = 'RecibosCompensadosProv';
@ -163,6 +163,7 @@ const
fld_PagosProveedorFECHA_ALTA = 'FECHA_ALTA'; fld_PagosProveedorFECHA_ALTA = 'FECHA_ALTA';
fld_PagosProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_PagosProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_PagosProveedorUSUARIO = 'USUARIO'; fld_PagosProveedorUSUARIO = 'USUARIO';
fld_PagosProveedorIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
{ PagosProveedor field indexes } { PagosProveedor field indexes }
idx_PagosProveedorID = 0; idx_PagosProveedorID = 0;
@ -177,11 +178,12 @@ const
idx_PagosProveedorFECHA_ALTA = 9; idx_PagosProveedorFECHA_ALTA = 9;
idx_PagosProveedorFECHA_MODIFICACION = 10; idx_PagosProveedorFECHA_MODIFICACION = 10;
idx_PagosProveedorUSUARIO = 11; idx_PagosProveedorUSUARIO = 11;
idx_PagosProveedorIGNORAR_CONTABILIDAD = 12;
type type
{ IRecibosCompensadosProv } { IRecibosCompensadosProv }
IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable) IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable)
['{61E35D46-8AB4-49CA-A4EF-F940AB11A43D}'] ['{B2ADA390-B323-420E-8064-59A0D7BAD647}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -375,7 +377,7 @@ type
end; end;
{ TRecibosCompensadosProvDataTableRules } { TRecibosCompensadosProvDataTableRules }
TRecibosCompensadosProvDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosProv) TRecibosCompensadosProvDataTableRules = class(TDADataTableRules, IRecibosCompensadosProv)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -576,7 +578,7 @@ type
{ IRecibosProveedor } { IRecibosProveedor }
IRecibosProveedor = interface(IDAStronglyTypedDataTable) IRecibosProveedor = interface(IDAStronglyTypedDataTable)
['{DCA30451-7CE9-4A08-991B-213799064ED6}'] ['{D109DF21-A3FE-4397-A781-51007D94BC32}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -770,7 +772,7 @@ type
end; end;
{ TRecibosProveedorDataTableRules } { TRecibosProveedorDataTableRules }
TRecibosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IRecibosProveedor) TRecibosProveedorDataTableRules = class(TDADataTableRules, IRecibosProveedor)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -971,7 +973,7 @@ type
{ IPagosProveedor } { IPagosProveedor }
IPagosProveedor = interface(IDAStronglyTypedDataTable) IPagosProveedor = interface(IDAStronglyTypedDataTable)
['{16059EDF-B6FC-4A68-8505-CA9173A8EB5C}'] ['{08F0D078-9A5D-4F40-958F-E28C7A1A21F5}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1021,6 +1023,10 @@ type
procedure SetUSUARIOValue(const aValue: String); procedure SetUSUARIOValue(const aValue: String);
function GetUSUARIOIsNull: Boolean; function GetUSUARIOIsNull: Boolean;
procedure SetUSUARIOIsNull(const aValue: 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 } { Properties }
@ -1048,10 +1054,12 @@ type
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; 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; end;
{ TPagosProveedorDataTableRules } { TPagosProveedorDataTableRules }
TPagosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPagosProveedor) TPagosProveedorDataTableRules = class(TDADataTableRules, IPagosProveedor)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1103,6 +1111,10 @@ type
procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOValue(const aValue: String); virtual;
function GetUSUARIOIsNull: Boolean; virtual; function GetUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOIsNull(const aValue: 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 } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1129,6 +1141,8 @@ type
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; 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 public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -2729,6 +2743,27 @@ begin
DataTable.Fields[idx_PagosProveedorUSUARIO].AsVariant := Null; DataTable.Fields[idx_PagosProveedorUSUARIO].AsVariant := Null;
end; 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 initialization
RegisterDataTableRules(RID_RecibosCompensadosProv, TRecibosCompensadosProvDataTableRules); RegisterDataTableRules(RID_RecibosCompensadosProv, TRecibosCompensadosProvDataTableRules);

55
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosCompensadosProvDelta = '{7D64E436-4A62-4815-9B17-18188D7EB661}'; RID_RecibosCompensadosProvDelta = '{9107E928-5D10-4B51-A676-BFA549256A77}';
RID_RecibosProveedorDelta = '{8CC4F287-B555-4CB1-B413-10F941E621CF}'; RID_RecibosProveedorDelta = '{9084E9BD-0A41-47E3-B3E2-7203D2766160}';
RID_PagosProveedorDelta = '{C62DC80C-8A6A-4FC1-899E-4A97895130AC}'; RID_PagosProveedorDelta = '{0855D721-33C1-4937-B581-332046D7D4A3}';
type type
{ IRecibosCompensadosProvDelta } { IRecibosCompensadosProvDelta }
IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv) IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
['{7D64E436-4A62-4815-9B17-18188D7EB661}'] ['{9107E928-5D10-4B51-A676-BFA549256A77}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -410,7 +410,7 @@ type
{ IRecibosProveedorDelta } { IRecibosProveedorDelta }
IRecibosProveedorDelta = interface(IRecibosProveedor) IRecibosProveedorDelta = interface(IRecibosProveedor)
['{8CC4F287-B555-4CB1-B413-10F941E621CF}'] ['{9084E9BD-0A41-47E3-B3E2-7203D2766160}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -804,7 +804,7 @@ type
{ IPagosProveedorDelta } { IPagosProveedorDelta }
IPagosProveedorDelta = interface(IPagosProveedor) IPagosProveedorDelta = interface(IPagosProveedor)
['{C62DC80C-8A6A-4FC1-899E-4A97895130AC}'] ['{0855D721-33C1-4937-B581-332046D7D4A3}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer; function GetOldID_RECIBOValue : Integer;
@ -818,6 +818,7 @@ type
function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldIGNORAR_CONTABILIDADValue : SmallInt;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -832,6 +833,7 @@ type
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
end; end;
{ TPagosProveedorBusinessProcessorRules } { TPagosProveedorBusinessProcessorRules }
@ -911,6 +913,12 @@ type
function GetOldUSUARIOIsNull: Boolean; virtual; function GetOldUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOValue(const aValue: String); virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); 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 } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -961,6 +969,10 @@ type
property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; 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 public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -3302,6 +3314,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorUSUARIO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorUSUARIO] := Null;
end; 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 initialization
RegisterBusinessProcessorRules(RID_RecibosCompensadosProvDelta, TRecibosCompensadosProvBusinessProcessorRules); RegisterBusinessProcessorRules(RID_RecibosCompensadosProvDelta, TRecibosCompensadosProvBusinessProcessorRules);

18
Source/Modulos/Recibos de proveedor/Model/uBizPagosProveedor.pas
View File

@ -40,14 +40,17 @@ type
end; end;
TBizPagosProveedor = class(TPagosProveedorDataTableRules, IBizPagosProveedor) TBizPagosProveedor = class(TPagosProveedorDataTableRules, IBizPagosProveedor)
private
procedure IniciarValoresPagosProveedorNuevo;
protected protected
procedure BeforeInsert(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override;
end; end;
implementation implementation
uses uses
DB; DB;
{ TBizPagosProveedor } { TBizPagosProveedor }
@ -61,6 +64,17 @@ begin
AMasterTable.Post; AMasterTable.Post;
end; end;
procedure TBizPagosProveedor.IniciarValoresPagosProveedorNuevo;
begin
IGNORAR_CONTABILIDAD := 0;
end;
procedure TBizPagosProveedor.OnNewRecord(Sender: TDADataTable);
begin
inherited;
IniciarValoresPagosProveedorNuevo;
end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_IBIZPAGOSPROVEEDOR, TBizPagosProveedor); RegisterDataTableRules(BIZ_CLIENT_IBIZPAGOSPROVEEDOR, TBizPagosProveedor);

119
Source/Modulos/Recibos de proveedor/Model/uBizPagosProveedorServer.pas Normal file
View File

@ -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.

16
Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj
View File

@ -9,6 +9,7 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" /> <Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Recibos de cliente\Data\RecibosCliente_data.dproj" />
<Projects Include="Controller\RecibosProveedor_controller.dproj" /> <Projects Include="Controller\RecibosProveedor_controller.dproj" />
<Projects Include="Data\RecibosProveedor_data.dproj" /> <Projects Include="Data\RecibosProveedor_data.dproj" />
<Projects Include="Model\RecibosProveedor_model.dproj" /> <Projects Include="Model\RecibosProveedor_model.dproj" />
@ -111,14 +112,23 @@
<Target Name="FactuGES_Server:Make"> <Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </Target>
<Target Name="RecibosCliente_data">
<MSBuild Projects="..\Recibos de cliente\Data\RecibosCliente_data.dproj" Targets="" />
</Target>
<Target Name="RecibosCliente_data:Clean">
<MSBuild Projects="..\Recibos de cliente\Data\RecibosCliente_data.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosCliente_data:Make">
<MSBuild Projects="..\Recibos de cliente\Data\RecibosCliente_data.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view;RecibosProveedor_plugin;FactuGES;FactuGES_Server" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view;RecibosProveedor_plugin;FactuGES;FactuGES_Server;RecibosCliente_data" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean;RecibosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean;RecibosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_data:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make;RecibosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make;RecibosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_data:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

125
Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm
View File

@ -656,6 +656,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor
item item
DatasetField = 'USUARIO' DatasetField = 'USUARIO'
TableField = 'USUARIO' TableField = 'USUARIO'
end
item
DatasetField = 'IGNORAR_CONTABILIDAD'
TableField = 'IGNORAR_CONTABILIDAD'
end> end>
end> end>
Name = 'PagosProveedor' Name = 'PagosProveedor'
@ -728,11 +732,61 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datString DataType = datString
Size = 20 Size = 20
DictionaryEntry = 'PagosProveedor_USUARIO' DictionaryEntry = 'PagosProveedor_USUARIO'
end
item
Name = 'IGNORAR_CONTABILIDAD'
DataType = datSmallInt
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>
UnionDataTables = <> UnionDataTables = <>
Commands = < 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 item
Params = < Params = <
item item
@ -930,68 +984,46 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_PAGOS_PROVEEDOR_ID' GeneratorName = 'GEN_PAGOS_PROVEEDOR_ID'
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_RECIBO' Name = 'ID_RECIBO'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TIPO' Name = 'TIPO'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_PAGO' Name = 'FECHA_PAGO'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TITULAR' Name = 'TITULAR'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ENTIDAD' Name = 'ENTIDAD'
DataType = datString
Size = 15
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'SUCURSAL' Name = 'SUCURSAL'
DataType = datString
Size = 15
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'DC' Name = 'DC'
DataType = datString
Size = 15
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CUENTA' Name = 'CUENTA'
DataType = datString
Size = 15
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString
Size = 20
Value = '' Value = ''
ParamType = daptInput end
item
Name = 'IGNORAR_CONTABILIDAD'
Value = ''
end> end>
Statements = < Statements = <
item item
@ -999,9 +1031,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor
TargetTable = 'PAGOS_PROVEEDOR' TargetTable = 'PAGOS_PROVEEDOR'
SQL = SQL =
'INSERT'#10' INTO PAGOS_PROVEEDOR'#10' (ID, ID_RECIBO, TIPO, FECHA_PA' + 'INSERT'#10' INTO PAGOS_PROVEEDOR'#10' (ID, ID_RECIBO, TIPO, FECHA_PA' +
'GO, TITULAR, ENTIDAD, '#10' SUCURSAL, DC, CUENTA, USUARIO)'#10' VAL' + 'GO, TITULAR, ENTIDAD, '#10' SUCURSAL, DC, CUENTA, USUARIO, IGNOR' +
'UES'#10' (:ID, :ID_RECIBO, :TIPO, :FECHA_PAGO, :TITULAR, :ENTIDAD' + 'AR_CONTABILIDAD)'#10' VALUES'#10' (:ID, :ID_RECIBO, :TIPO, :FECHA_PA' +
', '#10' :SUCURSAL, :DC, :CUENTA, :USUARIO)' 'GO, :TITULAR, :ENTIDAD, '#10' :SUCURSAL, :DC, :CUENTA, :USUARIO,' +
' :IGNORAR_CONTABILIDAD)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1029,69 +1062,47 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_RECIBO' Name = 'ID_RECIBO'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TIPO' Name = 'TIPO'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_PAGO' Name = 'FECHA_PAGO'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TITULAR' Name = 'TITULAR'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ENTIDAD' Name = 'ENTIDAD'
DataType = datString
Size = 15
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'SUCURSAL' Name = 'SUCURSAL'
DataType = datString
Size = 15
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'DC' Name = 'DC'
DataType = datString
Size = 15
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CUENTA' Name = 'CUENTA'
DataType = datString
Size = 15
Value = '' Value = ''
ParamType = daptInput end
item
Name = 'IGNORAR_CONTABILIDAD'
Value = ''
end end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -1101,8 +1112,8 @@ object srvRecibosProveedor: TsrvRecibosProveedor
'UPDATE PAGOS_PROVEEDOR'#10' SET '#10' ID = :ID, '#10' ID_RECIBO = :ID' + 'UPDATE PAGOS_PROVEEDOR'#10' SET '#10' ID = :ID, '#10' ID_RECIBO = :ID' +
'_RECIBO, '#10' TIPO = :TIPO, '#10' FECHA_PAGO = :FECHA_PAGO, '#10' ' + '_RECIBO, '#10' TIPO = :TIPO, '#10' FECHA_PAGO = :FECHA_PAGO, '#10' ' +
'TITULAR = :TITULAR, '#10' ENTIDAD = :ENTIDAD, '#10' SUCURSAL = :SU' + 'TITULAR = :TITULAR, '#10' ENTIDAD = :ENTIDAD, '#10' SUCURSAL = :SU' +
'CURSAL, '#10' DC = :DC, '#10' CUENTA = :CUENTA'#10' WHERE'#10' (ID = :' + 'CURSAL, '#10' DC = :DC, '#10' CUENTA = :CUENTA,'#10' IGNORAR_CONTAB' +
'OLD_ID)' 'ILIDAD = :IGNORAR_CONTABILIDAD'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

8
Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas
View File

@ -42,7 +42,8 @@ implementation
uses uses
Dialogs, Dialogs,
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
schRecibosProveedorClient_Intf, uRestriccionesUsuarioUtils; schRecibosProveedorClient_Intf, uRestriccionesUsuarioUtils,
uBizPagosProveedorServer;
// uRptRecibosProveedor_Server; //, uBizRecibosProveedorServer; // uRptRecibosProveedor_Server; //, uBizRecibosProveedorServer;
procedure Create_srvRecibosProveedor(out anInstance : IUnknown); procedure Create_srvRecibosProveedor(out anInstance : IUnknown);
@ -56,20 +57,19 @@ procedure TsrvRecibosProveedor.DARemoteServiceBeforeGetDatasetData(
const Dataset: IDADataset; const IncludeSchema: Boolean; const Dataset: IDADataset; const IncludeSchema: Boolean;
const MaxRecords: Integer); const MaxRecords: Integer);
begin begin
{
if DataSet.Name = nme_RecibosProveedor then if DataSet.Name = nme_RecibosProveedor then
begin begin
{ Aquí se asegura que el usuario sólo accede a Recibos { Aquí se asegura que el usuario sólo accede a Recibos
de las empresas a las que tiene permiso para acceder de las empresas a las que tiene permiso para acceder
filtrando DataSet por ID_EMPRESA. } filtrando DataSet por ID_EMPRESA. }
{ FiltrarAccesoUsuario(Session, Connection, schRecibosProveedor, DataSet, fld_RecibosProveedorID_EMPRESA); FiltrarAccesoUsuario(Session, Connection, schRecibosProveedor, DataSet, fld_RecibosProveedorID_EMPRESA);
end; end;
}
end; end;
procedure TsrvRecibosProveedor.DARemoteServiceCreate(Sender: TObject); procedure TsrvRecibosProveedor.DARemoteServiceCreate(Sender: TObject);
begin begin
SessionManager := dmServer.SessionManager; SessionManager := dmServer.SessionManager;
bpPagosProveedor.BusinessRulesID := BIZ_SERVER_PAGOS_PROVEEDOR;
end; end;
procedure TsrvRecibosProveedor.DataAbstractServiceBeforeAcquireConnection( procedure TsrvRecibosProveedor.DataAbstractServiceBeforeAcquireConnection(

92
Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm
View File

@ -3,8 +3,8 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
Top = 0 Top = 0
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Fecha del cobro / devoluci'#243'n' Caption = 'Fecha del cobro / devoluci'#243'n'
ClientHeight = 167 ClientHeight = 289
ClientWidth = 283 ClientWidth = 409
Color = clWindow Color = clWindow
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -13,7 +13,11 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow OnShow = FormShow
DesignSize = (
409
289)
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object Label1: TLabel object Label1: TLabel
@ -51,11 +55,13 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 126 Top = 248
Width = 283 Width = 409
Height = 41 Height = 41
Align = alBottom Align = alBottom
TabOrder = 1 TabOrder = 1
ExplicitTop = 126
ExplicitWidth = 283
object bAceptar: TButton object bAceptar: TButton
Left = 119 Left = 119
Top = 8 Top = 8
@ -64,6 +70,7 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
Caption = 'Aceptar' Caption = 'Aceptar'
ModalResult = 1 ModalResult = 1
TabOrder = 0 TabOrder = 0
OnClick = bAceptarClick
end end
object bCancelar: TButton object bCancelar: TButton
Left = 200 Left = 200
@ -75,4 +82,81 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
TabOrder = 1 TabOrder = 1
end end
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 end

90
Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas
View File

@ -5,7 +5,8 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPagoProveedor; cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPagoProveedor,
uSubCuentasController, Buttons, cxCheckBox;
type type
TfEditorFechaPagoProveedor = class(TfEditorBasico, IEditorFechaPagoProveedor) TfEditorFechaPagoProveedor = class(TfEditorBasico, IEditorFechaPagoProveedor)
@ -15,27 +16,91 @@ type
bCancelar: TButton; bCancelar: TButton;
Label2: TLabel; Label2: TLabel;
Panel1: TPanel; Panel1: TPanel;
eContabilizar: TcxCheckBox;
eRefSubCuenta: TcxTextEdit;
eSubCuenta: TcxTextEdit;
eIDSubcuenta: TcxTextEdit;
BitBtn3: TBitBtn;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure eFechaPagoPropertiesChange(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 private
FController : ISubcuentasController;
FIdSubCuenta : Integer;
FIgnorarContabilidad : Integer;
FFechaPago : TDateTime; FFechaPago : TDateTime;
function GetFechaPago: TDateTime; function GetFechaPago: TDateTime;
procedure SetFechaPago(const Value: TDateTime); procedure SetFechaPago(const Value: TDateTime);
function GetIgnorarContabilidad: Integer;
procedure SetIgnorarContabilidad(const Value: Integer);
function GetIdSubCuenta: Integer;
procedure SetIdSubCuenta(const Value: Integer);
public public
property FechaPago: TDateTime Read GetFechaPago write SetFechaPago; 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; end;
implementation implementation
{$R *.dfm} {$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); procedure TfEditorFechaPagoProveedor.eFechaPagoPropertiesChange(Sender: TObject);
begin begin
FechaPago := eFechaPago.Date; FechaPago := eFechaPago.Date;
end; 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); procedure TfEditorFechaPagoProveedor.FormShow(Sender: TObject);
begin begin
eFechaPago.Date := Date; if (length(eFechaPago.Text) = 0) then
eFechaPago.Date := Date;
end; end;
function TfEditorFechaPagoProveedor.GetFechaPago: TDateTime; function TfEditorFechaPagoProveedor.GetFechaPago: TDateTime;
@ -43,9 +108,30 @@ begin
Result := FFechaPago; Result := FFechaPago;
end; 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); procedure TfEditorFechaPagoProveedor.SetFechaPago(const Value: TDateTime);
begin begin
FFechaPago := Value; FFechaPago := Value;
end; 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. end.

138
Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
View File

@ -49,19 +49,22 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 691 Width = 685
Height = 359 Height = 353
ExplicitWidth = 691 ActivePage = pagPagos
ExplicitHeight = 359 ExplicitLeft = 3
ExplicitTop = 79
ExplicitWidth = 685
ExplicitHeight = 353
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 331 ExplicitHeight = 325
inline frViewReciboProveedor1: TfrViewReciboProveedor inline frViewReciboProveedor1: TfrViewReciboProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 683 Width = 677
Height = 350 Height = 350
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -72,15 +75,15 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 350 ExplicitHeight = 350
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 683 Width = 677
Height = 350 Height = 350
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 350 ExplicitHeight = 350
DesignSize = ( DesignSize = (
683 677
350) 350)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 50 ExplicitWidth = 50
@ -99,55 +102,55 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Width = 274 Width = 274
end end
inherited eFechaEmision: TcxDBTextEdit inherited eFechaEmision: TcxDBTextEdit
Left = 431 Left = 428
ExplicitLeft = 431 ExplicitLeft = 428
ExplicitWidth = 20 ExplicitWidth = 20
Width = 20 Width = 20
end end
inherited eFormaPago: TcxDBTextEdit inherited eFormaPago: TcxDBTextEdit
Left = 431 Left = 428
ExplicitLeft = 431 ExplicitLeft = 428
ExplicitWidth = 42 ExplicitWidth = 42
Width = 42 Width = 42
end end
inherited eImporteTotal: TcxDBCurrencyEdit inherited eImporteTotal: TcxDBCurrencyEdit
Left = 431 Left = 428
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 431 ExplicitLeft = 428
ExplicitWidth = 182 ExplicitWidth = 182
Width = 182 Width = 182
end end
inherited eNombreCliente: TcxDBTextEdit inherited eNombreCliente: TcxDBTextEdit
Left = 431 Left = 428
ExplicitLeft = 431 ExplicitLeft = 428
ExplicitWidth = 171 ExplicitWidth = 171
Width = 171 Width = 171
end end
inherited eNifCif: TcxDBTextEdit inherited eNifCif: TcxDBTextEdit
Left = 431 Left = 428
ExplicitLeft = 431 ExplicitLeft = 428
ExplicitWidth = 255 ExplicitWidth = 255
Width = 255 Width = 255
end end
inherited eEntidad: TcxDBTextEdit inherited eEntidad: TcxDBTextEdit
Left = 431 Left = 428
ExplicitLeft = 431 ExplicitLeft = 428
ExplicitWidth = 90 ExplicitWidth = 90
Width = 90 Width = 90
end end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 545 Left = 540
ExplicitLeft = 545 ExplicitLeft = 540
ExplicitWidth = 75 ExplicitWidth = 75
Width = 75 Width = 75
end end
inherited eDC: TcxDBTextEdit inherited eDC: TcxDBTextEdit
Left = 628 Left = 622
ExplicitLeft = 628 ExplicitLeft = 622
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
Left = 431 Left = 428
ExplicitLeft = 431 ExplicitLeft = 428
ExplicitWidth = 83 ExplicitWidth = 83
Width = 83 Width = 83
end end
@ -164,8 +167,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Width = 129 Width = 129
end end
inherited rReferenciaFacturaProv: TcxDBTextEdit inherited rReferenciaFacturaProv: TcxDBTextEdit
Left = 431 Left = 428
ExplicitLeft = 431 ExplicitLeft = 428
end end
inherited rRefReciboCompensado: TcxDBTextEdit inherited rRefReciboCompensado: TcxDBTextEdit
ExplicitWidth = 216 ExplicitWidth = 216
@ -180,8 +183,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inline frViewPagosProveedor1: TfrViewPagosProveedor inline frViewPagosProveedor1: TfrViewPagosProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 683 Width = 677
Height = 331 Height = 325
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -191,13 +194,13 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 331 ExplicitHeight = 325
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 683 Width = 677
Height = 331 Height = 325
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 331 ExplicitHeight = 325
inherited ListaPagosProveedor: TcxGrid inherited ListaPagosProveedor: TcxGrid
Width = 252 Width = 252
Height = 105 Height = 105
@ -218,6 +221,19 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Left = 32 Left = 32
Top = 80 Top = 80
end 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
end end
object pagCompensados: TTabSheet object pagCompensados: TTabSheet
@ -226,8 +242,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inline frViewRecibosProvCompensados1: TfrViewRecibosProvCompensados inline frViewRecibosProvCompensados1: TfrViewRecibosProvCompensados
Left = 0 Left = 0
Top = 0 Top = 0
Width = 683 Width = 677
Height = 331 Height = 325
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -237,13 +253,13 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 331 ExplicitHeight = 325
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 683 Width = 677
Height = 306 Height = 300
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 306 ExplicitHeight = 300
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -255,24 +271,40 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
end end
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 683 Width = 677
ExplicitWidth = 683 ExplicitWidth = 677
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 113 Top = 0
ExplicitTop = 0
end end
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
ExplicitWidth = 113 Top = 0
ExplicitTop = 0
end
inherited ToolButton5: TToolButton
Top = 0
ExplicitTop = 0
end end
inherited ToolButton2: TToolButton inherited ToolButton2: TToolButton
ExplicitWidth = 113 Top = 0
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Top = 0
ExplicitTop = 0
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
ExplicitWidth = 113 Top = 0
ExplicitTop = 0
end end
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 98 ExplicitWidth = 98
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 99 ExplicitWidth = 99
end end
end end

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

19
Source/Servidor/FactuGES_Server.dpr
View File

@ -66,8 +66,6 @@ uses
schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas', schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_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}, 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}, srvRemesasProveedor_Impl in '..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas' {srvRemesasProveedor: TDataAbstractService},
srvInventario_Impl in '..\Modulos\Inventario\Servidor\srvInventario_Impl.pas' {srvInventario: 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', schEjerciciosClient_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas',
srvContabilidad_Impl in '..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas' {srvContabilidad: TDataAbstractService}, srvContabilidad_Impl in '..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas' {srvContabilidad: TDataAbstractService},
uBizPagosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas', 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', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas', schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_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', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_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', schUnidadesMedidaClient_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas',
schUnidadesMedidaServer_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas', schUnidadesMedidaServer_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas',
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_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 *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

4
Source/Servidor/FactuGES_Server.dproj
View File

@ -31,6 +31,9 @@
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
@ -153,6 +156,7 @@
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form> <Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.0.0\0" VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "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
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"