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">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Cliente\DataAbstract_Core_D10.dcp" />
<DCCReference Include="..\Cliente\RemObjects_Core_D10.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\adortl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\designide.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\rtl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vcl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vclx.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\xmlrtl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\adortl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxIntl6D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\dbrtl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\dclIndyCore.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\designide.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\dsnap.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\GUISDK_D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\IndyCore.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\IndyProtocols.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\IndySystem.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\Jcl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JclVcl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JSDialog100.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvCmpD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvDlgsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvMMD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvNetD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\pckMD5.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\pckUCDataConnector.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\pckUserControl_RT.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\PNG_D10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\rtl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\TB2k_D10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\tbx_d10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\vcl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\vclactnband.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\vcldb.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\vcljpg.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\VclSmp.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\vclx.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<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="..\..\GUIBase\GUIBase.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="..\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="Data\Contabilidad_data.dproj" />
<Projects Include="Model\Contabilidad_model.dproj" />
@ -105,24 +106,6 @@
<Target Name="Contabilidad_plugin:Make">
<MSBuild Projects="Plugin\Contabilidad_plugin.dproj" Targets="Make" />
</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">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
</Target>
@ -141,14 +124,41 @@
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</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">
<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 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 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>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</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
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@ -293,7 +293,7 @@ type
end;
{ TDiarioDataTableRules }
TDiarioDataTableRules = class(TDADataTableRules, IDiario)
TDiarioDataTableRules = class(TIntfObjectDADataTableRules, IDiario)
private
protected
{ Property getters and setters }
@ -466,7 +466,7 @@ type
end;
{ TApuntesDataTableRules }
TApuntesDataTableRules = class(TDADataTableRules, IApuntes)
TApuntesDataTableRules = class(TIntfObjectDADataTableRules, IApuntes)
private
protected
{ Property getters and setters }
@ -585,7 +585,7 @@ type
end;
{ TAsientosDataTableRules }
TAsientosDataTableRules = class(TDADataTableRules, IAsientos)
TAsientosDataTableRules = class(TIntfObjectDADataTableRules, IAsientos)
private
protected
{ Property getters and setters }
@ -704,7 +704,7 @@ type
end;
{ TSubCuentasDataTableRules }
TSubCuentasDataTableRules = class(TDADataTableRules, ISubCuentas)
TSubCuentasDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentas)
private
protected
{ Property getters and setters }
@ -853,7 +853,7 @@ type
end;
{ TCuentasDataTableRules }
TCuentasDataTableRules = class(TDADataTableRules, ICuentas)
TCuentasDataTableRules = class(TIntfObjectDADataTableRules, ICuentas)
private
protected
{ Property getters and setters }
@ -954,7 +954,7 @@ type
end;
{ TCuentasEspecialesDataTableRules }
TCuentasEspecialesDataTableRules = class(TDADataTableRules, ICuentasEspeciales)
TCuentasEspecialesDataTableRules = class(TIntfObjectDADataTableRules, ICuentasEspeciales)
private
protected
{ Property getters and setters }
@ -1031,7 +1031,7 @@ type
end;
{ TEpigrafesDataTableRules }
TEpigrafesDataTableRules = class(TDADataTableRules, IEpigrafes)
TEpigrafesDataTableRules = class(TIntfObjectDADataTableRules, IEpigrafes)
private
protected
{ Property getters and setters }
@ -1144,7 +1144,7 @@ type
end;
{ TBalancesDataTableRules }
TBalancesDataTableRules = class(TDADataTableRules, IBalances)
TBalancesDataTableRules = class(TIntfObjectDADataTableRules, IBalances)
private
protected
{ Property getters and setters }

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -15,10 +15,12 @@ type
function DarReferencia : String;
function IncrementarReferencia : Boolean;
protected
procedure BeforeProcessDelta(Sender: TDABusinessProcessor;
const aDelta: IDADelta); override;
procedure AfterProcessChange(Sender: TDABusinessProcessor;
aChange: TDADeltaChange; Processed: Boolean;
procedure Insert_Asiento_Factura(aChange: TDADeltaChange); virtual;
procedure Update_Asiento_Factura(aChange: TDADeltaChange); virtual;
procedure Delete_Asiento_Factura(aChange: TDADeltaChange); virtual;
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
var CanRemoveFromDelta: Boolean); override;
end;
@ -36,12 +38,26 @@ const
{ TBizFacturasProveedorServer }
procedure TBizFacturasProveedorServer.AfterProcessChange(
Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
procedure TBizFacturasProveedorServer.AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
var CanRemoveFromDelta: Boolean);
begin
inherited;
{ Por defecto, mantenemos los deltas por si alguna tabla hija los necesita }
case aChange.ChangeType of
ctInsert: begin
Insert_Asiento_Factura(aChange);
end;
ctUpdate: begin
Update_Asiento_Factura(aChange);
end;
ctDelete: begin
Delete_Asiento_Factura(aChange);
end;
end;
// No hay que quitar los deltas para que los datos del contacto se
// mantengan por si alguna tabla detalle lo necesita
// (por ejemplo, DireccionesContacto)
CanRemoveFromDelta := False;
case aChange.ChangeType of
@ -88,6 +104,28 @@ begin
end;
end;
procedure TBizFacturasProveedorServer.Delete_Asiento_Factura(aChange: TDADeltaChange);
var
ASchema : TDASchema;
ACurrentConn : IDAConnection;
ACommand : IDASQLCommand;
begin
ASchema := BusinessProcessor.Schema;
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_AsientoFactura');
try
with ACommand do
begin
ParamByName('IdFactura').Value := aChange.OldValueByName[fld_FacturasProveedorID];
ParamByName('Tipo').Value := 'p';
Execute;
end;
finally
ACommand := NIL;
end;
end;
function TBizFacturasProveedorServer.IncrementarReferencia: Boolean;
var
ATipo : String;
@ -107,6 +145,48 @@ begin
end;
procedure TBizFacturasProveedorServer.Insert_Asiento_Factura(aChange: TDADeltaChange);
var
ASchema : TDASchema;
ACurrentConn : IDAConnection;
ACommand : IDASQLCommand;
begin
ASchema := BusinessProcessor.Schema;
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
ACommand := ASchema.NewCommand(ACurrentConn, 'Insert_AsientoFactura');
try
with ACommand do
begin
ParamByName('IdFactura').Value := aChange.NewValueByName[fld_FacturasProveedorID];
Execute;
end;
finally
ACommand := NIL;
end;
end;
procedure TBizFacturasProveedorServer.Update_Asiento_Factura(aChange: TDADeltaChange);
var
ASchema : TDASchema;
ACurrentConn : IDAConnection;
ACommand : IDASQLCommand;
begin
ASchema := BusinessProcessor.Schema;
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
ACommand := ASchema.NewCommand(ACurrentConn, 'Insert_AsientoFactura');
try
with ACommand do
begin
ParamByName('IdFactura').Value := aChange.NewValueByName[fld_FacturasProveedorID];
Execute;
end;
finally
ACommand := NIL;
end;
end;
initialization
RegisterBusinessProcessorRules(BIZ_SERVER_FACTURAS_PROVEEDOR, TBizFacturasProveedorServer);

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

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

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

@ -69,21 +69,24 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end
end
inherited pgPaginas: TPageControl
Width = 788
Height = 315
Width = 782
Height = 309
ActivePage = pagContabilidad
OnChanging = pgPaginasChanging
ExplicitWidth = 788
ExplicitHeight = 315
ExplicitLeft = 3
ExplicitTop = 79
ExplicitWidth = 782
ExplicitHeight = 309
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 780
ExplicitHeight = 287
ExplicitWidth = 774
ExplicitHeight = 281
inline frViewFacturaProveedor1: TfrViewFacturaProveedor
Left = 0
Top = 0
Width = 780
Height = 287
Width = 774
Height = 281
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -93,13 +96,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 780
ExplicitHeight = 287
ExplicitWidth = 774
ExplicitHeight = 281
inherited dxLayoutControl1: TdxLayoutControl
Width = 780
Height = 287
ExplicitWidth = 780
ExplicitHeight = 287
Width = 774
Height = 281
ExplicitWidth = 774
ExplicitHeight = 281
inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 159
Width = 159
@ -119,13 +122,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 78
end
inherited bFormasPago: TButton
Left = 234
ExplicitLeft = 234
Left = 231
ExplicitLeft = 231
end
inherited frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
Left = 394
Left = 391
Width = 350
ExplicitLeft = 394
ExplicitLeft = 391
ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl
Width = 350
@ -155,13 +158,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 272
Left = 269
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
ExplicitLeft = 272
ExplicitLeft = 269
end
inherited Button3: TBitBtn
Left = 156
ExplicitLeft = 156
Left = 153
ExplicitLeft = 153
end
end
end
@ -171,11 +174,15 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
Left = 0
Top = 0
Width = 780
Height = 287
Width = 774
Height = 281
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@ -187,11 +194,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 780
ExplicitHeight = 287
ExplicitWidth = 774
ExplicitHeight = 281
inherited ToolBar1: TToolBar
Width = 780
ExplicitWidth = 780
Width = 774
ExplicitWidth = 774
inherited ToolButton4: TToolButton
Wrap = False
end
@ -250,20 +257,51 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end
end
inherited cxGrid: TcxGrid
Width = 780
Height = 215
ExplicitWidth = 780
ExplicitHeight = 215
Width = 774
Height = 209
ExplicitWidth = 774
ExplicitHeight = 209
end
inherited TBXDock1: TTBXDock
Width = 780
ExplicitWidth = 780
Width = 774
ExplicitWidth = 774
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548
end
end
end
end
object pagContabilidad: TTabSheet
Caption = 'Contabilidad'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 25
ExplicitWidth = 0
ExplicitHeight = 0
object cbIgnorarContabilidad: TcxDBCheckBox
Left = 16
Top = 12
Caption = 'Ignorar en contabilidad'
DataBinding.DataField = 'IGNORAR_CONTABILIDAD'
DataBinding.DataSource = dsDataTable
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 300
end
end
end
inherited StatusBar: TJvStatusBar
Top = 554

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -11,6 +11,14 @@ type
function GetFechaPago: TDateTime;
procedure SetFechaPago(const Value: TDateTime);
property FechaPago: TDateTime Read GetFechaPago write SetFechaPago;
function GetIgnorarContabilidad: Integer;
procedure SetIgnorarContabilidad(const Value: Integer);
property IgnorarContabilidad: Integer Read GetIgnorarContabilidad write SetIgnorarContabilidad;
function GetIdSubCuenta: Integer;
procedure SetIdSubCuenta(const Value: Integer);
property IdSubCuenta: Integer Read GetIdSubCuenta write SetIdSubCuenta;
end;
implementation

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Recibos de cliente\Data\RecibosCliente_data.dproj" />
<Projects Include="Controller\RecibosProveedor_controller.dproj" />
<Projects Include="Data\RecibosProveedor_data.dproj" />
<Projects Include="Model\RecibosProveedor_model.dproj" />
@ -111,14 +112,23 @@
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</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">
<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 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 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>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

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

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

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

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

@ -3,8 +3,8 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
Top = 0
BorderStyle = bsDialog
Caption = 'Fecha del cobro / devoluci'#243'n'
ClientHeight = 167
ClientWidth = 283
ClientHeight = 289
ClientWidth = 409
Color = clWindow
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -13,7 +13,11 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
DesignSize = (
409
289)
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
@ -51,11 +55,13 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
end
object Panel1: TPanel
Left = 0
Top = 126
Width = 283
Top = 248
Width = 409
Height = 41
Align = alBottom
TabOrder = 1
ExplicitTop = 126
ExplicitWidth = 283
object bAceptar: TButton
Left = 119
Top = 8
@ -64,6 +70,7 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
Caption = 'Aceptar'
ModalResult = 1
TabOrder = 0
OnClick = bAceptarClick
end
object bCancelar: TButton
Left = 200
@ -75,4 +82,81 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
TabOrder = 1
end
end
object eContabilizar: TcxCheckBox
Left = 38
Top = 120
Caption = 'Ignorar en contabiliad'
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
Properties.OnChange = eContabilizarPropertiesChange
TabOrder = 2
Width = 203
end
object eRefSubCuenta: TcxTextEdit
Left = 39
Top = 147
Anchors = [akLeft, akTop, akRight]
AutoSize = False
Properties.ReadOnly = True
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = 14745599
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Height = 21
Width = 215
end
object eSubCuenta: TcxTextEdit
Left = 38
Top = 174
Anchors = [akLeft, akTop, akRight]
AutoSize = False
Properties.ReadOnly = True
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = 14745599
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Height = 21
Width = 297
end
object eIDSubcuenta: TcxTextEdit
Left = 38
Top = 201
Anchors = [akLeft, akTop, akRight]
AutoSize = False
Properties.ReadOnly = True
Properties.ValidateOnEnter = True
Properties.OnChange = eIDSubcuentaPropertiesChange
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = 14745599
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
Height = 21
Width = 43
end
object BitBtn3: TBitBtn
Left = 260
Top = 143
Width = 75
Height = 25
Caption = 'Elegir subcuenta'
TabOrder = 6
OnClick = BitBtn3Click
end
end

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

@ -5,7 +5,8 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPagoProveedor;
cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPagoProveedor,
uSubCuentasController, Buttons, cxCheckBox;
type
TfEditorFechaPagoProveedor = class(TfEditorBasico, IEditorFechaPagoProveedor)
@ -15,27 +16,91 @@ type
bCancelar: TButton;
Label2: TLabel;
Panel1: TPanel;
eContabilizar: TcxCheckBox;
eRefSubCuenta: TcxTextEdit;
eSubCuenta: TcxTextEdit;
eIDSubcuenta: TcxTextEdit;
BitBtn3: TBitBtn;
procedure FormShow(Sender: TObject);
procedure eFechaPagoPropertiesChange(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure eContabilizarPropertiesChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure eIDSubcuentaPropertiesChange(Sender: TObject);
procedure bAceptarClick(Sender: TObject);
private
FController : ISubcuentasController;
FIdSubCuenta : Integer;
FIgnorarContabilidad : Integer;
FFechaPago : TDateTime;
function GetFechaPago: TDateTime;
procedure SetFechaPago(const Value: TDateTime);
function GetIgnorarContabilidad: Integer;
procedure SetIgnorarContabilidad(const Value: Integer);
function GetIdSubCuenta: Integer;
procedure SetIdSubCuenta(const Value: Integer);
public
property FechaPago: TDateTime Read GetFechaPago write SetFechaPago;
property IgnorarContabilidad: Integer Read GetIgnorarContabilidad write SetIgnorarContabilidad;
property IdSubCuenta: Integer Read GetIdSubCuenta write SetIdSubCuenta;
constructor Create(AOwner: TComponent); override;
end;
implementation
{$R *.dfm}
uses uBizSubCuentas;
procedure TfEditorFechaPagoProveedor.bAceptarClick(Sender: TObject);
begin
if (not eContabilizar.Checked)
and (eIdSubcuenta.Text = '') then
raise Exception.Create ('Es necesario que elija la SubCuenta donde se realizará el pago');
end;
procedure TfEditorFechaPagoProveedor.BitBtn3Click(Sender: TObject);
var
ASubCuenta: IBizSubcuenta;
begin
ASubCuenta := FController.ElegirSubCuenta(FController.BuscarTodos,'sssss', False);
eIDSubcuenta.Text := IntToStr(ASubcuenta.ID);
eRefSubCuenta.Text := ASubcuenta.REF_SUBCUENTA;
eSubCuenta.Text := ASubcuenta.DESCRIPCION;
ASubCuenta := Nil;
end;
constructor TfEditorFechaPagoProveedor.Create(AOwner: TComponent);
begin
inherited;
FController := TSubcuentasController.Create;
end;
procedure TfEditorFechaPagoProveedor.eContabilizarPropertiesChange(Sender: TObject);
begin
FIgnorarContabilidad := eContabilizar.EditValue;
end;
procedure TfEditorFechaPagoProveedor.eFechaPagoPropertiesChange(Sender: TObject);
begin
FechaPago := eFechaPago.Date;
end;
procedure TfEditorFechaPagoProveedor.eIDSubcuentaPropertiesChange(Sender: TObject);
begin
if not VarIsNull(eIDSubCuenta.EditValue) then
FIDSubCuenta := eIDSubCuenta.EditValue;
end;
procedure TfEditorFechaPagoProveedor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FController := Nil;
end;
procedure TfEditorFechaPagoProveedor.FormShow(Sender: TObject);
begin
eFechaPago.Date := Date;
if (length(eFechaPago.Text) = 0) then
eFechaPago.Date := Date;
end;
function TfEditorFechaPagoProveedor.GetFechaPago: TDateTime;
@ -43,9 +108,30 @@ begin
Result := FFechaPago;
end;
function TfEditorFechaPagoProveedor.GetIdSubCuenta: Integer;
begin
Result := eIDSubCuenta.EditValue; //FIdSubCuenta;
end;
function TfEditorFechaPagoProveedor.GetIgnorarContabilidad: Integer;
begin
Result := FIgnorarContabilidad;
end;
procedure TfEditorFechaPagoProveedor.SetFechaPago(const Value: TDateTime);
begin
FFechaPago := Value;
end;
procedure TfEditorFechaPagoProveedor.SetIdSubCuenta(const Value: Integer);
begin
FIdSubCuenta := Value;
end;
procedure TfEditorFechaPagoProveedor.SetIgnorarContabilidad(const Value: Integer);
begin
FIgnorarContabilidad := Value;
eContabilizar.EditValue := FIgnorarContabilidad;
end;
end.

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

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

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',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
srvRemesasCliente_Impl in '..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas' {srvRemesasCliente: TDataAbstractService},
srvRemesasProveedor_Impl in '..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas' {srvRemesasProveedor: TDataAbstractService},
srvInventario_Impl in '..\Modulos\Inventario\Servidor\srvInventario_Impl.pas' {srvInventario: TDataAbstractService},
@ -83,18 +81,12 @@ uses
schEjerciciosClient_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas',
srvContabilidad_Impl in '..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas' {srvContabilidad: TDataAbstractService},
uBizPagosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
@ -109,7 +101,16 @@ uses
schUnidadesMedidaClient_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas',
schUnidadesMedidaServer_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas',
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas';
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
uBizPagosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

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>
<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>
</ProjectExtensions>
@ -153,6 +156,7 @@
</DCCReference>
<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\uBizPagosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "miércoles, 02 de enero de 2008 19:23\0"
VALUE "CompileDate", "jueves, 03 de enero de 2008 11:47\0"
END
END
BLOCK "VarFileInfo"