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

poArreglo de recibos para que funcionen de forma autónoma sin necesidad de Facturas de (Tercera parte solo queda rematarlo)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@145 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-02-25 19:11:13 +00:00
parent a53f6dec32
commit 4ec0f6b8f1
21 changed files with 388 additions and 150 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/ApplicationBase/ApplicationBase.res
View File

Binary file not shown.

82
Source/Base/Base.dproj
View File

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

BIN
Source/Base/Base.res
View File

Binary file not shown.

17
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

@ -33,6 +33,9 @@ uses
type type
IRecibosClienteController = interface(IObservador) IRecibosClienteController = interface(IObservador)
['{CBC8BDB8-FBE0-4D54-B2F1-A9330E8339EB}'] ['{CBC8BDB8-FBE0-4D54-B2F1-A9330E8339EB}']
function GetClienteController: IClientesController;
procedure SetClienteController(const Value: IClientesController);
property ClienteController: IClientesController read GetClienteController write SetClienteController;
function GetPagosController: IPagosClienteController; function GetPagosController: IPagosClienteController;
procedure SetPagosController(const Value: IPagosClienteController); procedure SetPagosController(const Value: IPagosClienteController);
@ -90,6 +93,9 @@ type
FPagosController : IPagosClienteController; FPagosController : IPagosClienteController;
FClienteController : IClientesController; FClienteController : IClientesController;
function GetClienteController: IClientesController;
procedure SetClienteController(const Value: IClientesController);
function GetPagosController: IPagosClienteController; function GetPagosController: IPagosClienteController;
procedure SetPagosController(const Value: IPagosClienteController); procedure SetPagosController(const Value: IPagosClienteController);
@ -100,6 +106,7 @@ type
function DarNuevaReferencia(ID_FACTURA : Integer; REFERENCIA: String): String; function DarNuevaReferencia(ID_FACTURA : Integer; REFERENCIA: String): String;
public public
property ClienteController: IClientesController read GetClienteController write SetClienteController;
property PagosController: IPagosClienteController read GetPagosController write SetPagosController; property PagosController: IPagosClienteController read GetPagosController write SetPagosController;
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
@ -654,11 +661,21 @@ begin
AReciboCliente._Cliente := (FClienteController.Buscar(AReciboCliente.ID_Cliente) as IBizCliente); AReciboCliente._Cliente := (FClienteController.Buscar(AReciboCliente.ID_Cliente) as IBizCliente);
end; end;
function TRecibosClienteController.GetClienteController: IClientesController;
begin
Result := FClienteController;
end;
function TRecibosClienteController.GetPagosController: IPagosClienteController; function TRecibosClienteController.GetPagosController: IPagosClienteController;
begin begin
Result := FPagosController; Result := FPagosController;
end; end;
procedure TRecibosClienteController.SetClienteController(const Value: IClientesController);
begin
FClienteController := Value;
end;
procedure TRecibosClienteController.SetPagosController(const Value: IPagosClienteController); procedure TRecibosClienteController.SetPagosController(const Value: IPagosClienteController);
begin begin
FPagosController := Value; FPagosController := Value;

BIN
Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.res
View File

Binary file not shown.

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

@ -3,7 +3,7 @@ unit schRecibosClienteClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
@ -365,7 +365,7 @@ type
end; end;
{ TRecibosClienteDataTableRules } { TRecibosClienteDataTableRules }
TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente) TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -646,7 +646,7 @@ type
end; end;
{ TPagosClienteDataTableRules } { TPagosClienteDataTableRules }
TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente) TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -921,7 +921,7 @@ type
end; end;
{ TRecibosCompensadosCliDataTableRules } { TRecibosCompensadosCliDataTableRules }
TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli) TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

55
Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas
View File

@ -27,7 +27,7 @@ interface
uses uses
uDAInterfaces, uDADataTable, uDBSelectionListUtils, schRecibosClienteClient_Intf, uDAInterfaces, uDADataTable, uDBSelectionListUtils, schRecibosClienteClient_Intf,
uBizPagosCliente, uBizRecibosCliCompensados, uBizContactos; uBizContactos, uBizPagosCliente, uBizRecibosCliCompensados;
const const
BIZ_CLIENT_IBIZRECIBOSCLIENTE = 'Client.IBizRecibosCliente'; BIZ_CLIENT_IBIZRECIBOSCLIENTE = 'Client.IBizRecibosCliente';
@ -41,10 +41,12 @@ type
IBizRecibosCliente = interface(IRecibosCliente) IBizRecibosCliente = interface(IRecibosCliente)
['{93758493-260C-450D-9018-E5339C2E09B2}'] ['{93758493-260C-450D-9018-E5339C2E09B2}']
function EsNuevo : Boolean; function EsNuevo : Boolean;
function ConFactura : Boolean;
// No se puede cambiar el cliente por que depende de la factura // En Acana se puede cambiar el cliente por que un recibo puede corresponder o no a una factura
procedure SetCliente(AValue : IBizCliente);
function GetCliente : IBizCliente; function GetCliente : IBizCliente;
property Cliente : IBizCliente read GetCliente; property Cliente : IBizCliente read GetCliente write SetCliente;
// Esta propidad es para que el controlador pueda acceder directamente // Esta propidad es para que el controlador pueda acceder directamente
// a la propiedad Cliente // a la propiedad Cliente
@ -70,15 +72,14 @@ type
FCliente : IBizCliente; FCliente : IBizCliente;
FSeleccionableInterface : ISeleccionable; FSeleccionableInterface : ISeleccionable;
// No se puede cambiar el cliente por que depende de la factura // En Acana se puede cambiar el cliente por que un recibo puede corresponder o no a una factura
procedure SetCliente(AValue : IBizCliente);
function GetCliente : IBizCliente; function GetCliente : IBizCliente;
property Cliente : IBizCliente read GetCliente;
// Esta propidad es para que el controlador pueda acceder directamente // Esta propidad es para que el controlador pueda acceder directamente
// a la propiedad Cliente // a la propiedad Cliente
procedure _SetCliente(AValue : IBizCliente); procedure _SetCliente(AValue : IBizCliente);
function _GetCliente : IBizCliente; function _GetCliente : IBizCliente;
property _Cliente : IBizCliente read _GetCliente write _SetCliente;
procedure SetPagos(AValue : IBizPagosCliente); procedure SetPagos(AValue : IBizPagosCliente);
function GetPagos : IBizPagosCliente; function GetPagos : IBizPagosCliente;
@ -91,6 +92,9 @@ type
procedure SetID_REMESAValue(const aValue: Integer); override; procedure SetID_REMESAValue(const aValue: Integer); override;
public public
property Cliente : IBizCliente read GetCliente write SetCliente;
property _Cliente : IBizCliente read _GetCliente write _SetCliente;
property RecibosCompensados: IBizRecibosCompensadosCli read GetRecibosCompensados write SetRecibosCompensados; property RecibosCompensados: IBizRecibosCompensadosCli read GetRecibosCompensados write SetRecibosCompensados;
property Pagos : IBizPagosCliente read GetPagos write SetPagos; property Pagos : IBizPagosCliente read GetPagos write SetPagos;
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
@ -99,6 +103,7 @@ type
procedure IniciarValoresIBizRecibosClienteNuevo; procedure IniciarValoresIBizRecibosClienteNuevo;
function EsNuevo : Boolean; function EsNuevo : Boolean;
function ConFactura : Boolean;
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override; destructor Destroy; override;
@ -109,7 +114,7 @@ implementation
{ TBizRecibosCliente } { TBizRecibosCliente }
uses uses
SysUtils, uDataTableUtils, schContactosClient_Intf, uFactuGES_App, uBizEmpresasTiendas; SysUtils, DB, uDataTableUtils, schContactosClient_Intf, uFactuGES_App, uBizEmpresasTiendas;
function TBizRecibosCliente.GetCliente: IBizCliente; function TBizRecibosCliente.GetCliente: IBizCliente;
begin begin
@ -131,6 +136,37 @@ begin
result := Trim(DataTable.Fields[idx_RecibosClienteSITUACION].AsString); result := Trim(DataTable.Fields[idx_RecibosClienteSITUACION].AsString);
end; end;
procedure TBizRecibosCliente.SetCliente(AValue: IBizCliente);
var
bEnEdicion : Boolean;
begin
FCliente := AValue;
bEnEdicion := (DataTable.State in dsEditModes);
if not bEnEdicion then
Edit;
if Assigned(FCliente) then
begin
if not FCliente.DataTable.Active then
FCliente.DataTable.Active := True;
ID_CLIENTE := FCliente.ID;
NOMBRE_CLIENTE := FCliente.NOMBRE;
NIF_CIF_CLIENTE := FCliente.NIF_CIF;
{ CALLE := FCliente.CALLE;
CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
PROVINCIA := FCliente.PROVINCIA;
POBLACION := FCliente.POBLACION;
}
Post;
if bEnEdicion then
Edit;
end
end;
procedure TBizRecibosCliente.SetID_REMESAValue(const aValue: Integer); procedure TBizRecibosCliente.SetID_REMESAValue(const aValue: Integer);
begin begin
if (aValue = 0) then if (aValue = 0) then
@ -165,6 +201,11 @@ begin
FCliente := AValue; FCliente := AValue;
end; end;
function TBizRecibosCliente.ConFactura: Boolean;
begin
Result := ID_FACTURAIsNull;
end;
constructor TBizRecibosCliente.Create(aDataTable: TDADataTable); constructor TBizRecibosCliente.Create(aDataTable: TDADataTable);
begin begin
inherited; inherited;

44
Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj
View File

@ -9,8 +9,10 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" /> <Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" /> <Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="Controller\RecibosCliente_controller.dproj" /> <Projects Include="Controller\RecibosCliente_controller.dproj" />
<Projects Include="Data\RecibosCliente_data.dproj" /> <Projects Include="Data\RecibosCliente_data.dproj" />
<Projects Include="Model\RecibosCliente_model.dproj" /> <Projects Include="Model\RecibosCliente_model.dproj" />
@ -50,6 +52,15 @@
<Target Name="ApplicationBase:Make"> <Target Name="ApplicationBase:Make">
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" /> <MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Contactos_view">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" />
</Target>
<Target Name="Contactos_view:Clean">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_view:Make">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
</Target>
<Target Name="RecibosCliente_model"> <Target Name="RecibosCliente_model">
<MSBuild Projects="Model\RecibosCliente_model.dproj" Targets="" /> <MSBuild Projects="Model\RecibosCliente_model.dproj" Targets="" />
</Target> </Target>
@ -113,15 +124,6 @@
<Target Name="FactuGES_Server:Make"> <Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Contactos_view">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" />
</Target>
<Target Name="Contactos_view:Clean">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_view:Make">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_controller"> <Target Name="Contabilidad_controller">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="" /> <MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="" />
</Target> </Target>
@ -131,14 +133,32 @@
<Target Name="Contabilidad_controller:Make"> <Target Name="Contabilidad_controller:Make">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Make" /> <MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasCliente_view">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_view:Clean">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Articulos_view">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="" />
</Target>
<Target Name="Articulos_view:Clean">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Articulos_view:Make">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;RecibosCliente_model;RecibosCliente_data;RecibosCliente_controller;RecibosCliente_view;RecibosCliente_plugin;FactuGES;FactuGES_Server;Contactos_view;Contabilidad_controller" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;RecibosCliente_model;RecibosCliente_data;RecibosCliente_controller;RecibosCliente_view;RecibosCliente_plugin;FactuGES;FactuGES_Server;Contabilidad_controller;FacturasCliente_view;Articulos_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;RecibosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contactos_view:Clean;Contabilidad_controller:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;RecibosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_controller:Clean;FacturasCliente_view:Clean;Articulos_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;RecibosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contactos_view:Make;Contabilidad_controller:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;RecibosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_controller:Make;FacturasCliente_view:Make;Articulos_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

@ -42,7 +42,8 @@ implementation
uses uses
Dialogs, Dialogs,
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
schRecibosClienteClient_Intf, uRestriccionesUsuarioUtils, uBizPagosClienteServer, schRecibosClienteClient_Intf, uRestriccionesUsuarioUtils, uBizRecibosClienteServer,
uBizPagosClienteServer,
uRptRecibosCliente_Server; uRptRecibosCliente_Server;
@ -69,7 +70,8 @@ end;
procedure TsrvRecibosCliente.DARemoteServiceCreate(Sender: TObject); procedure TsrvRecibosCliente.DARemoteServiceCreate(Sender: TObject);
begin begin
SessionManager := dmServer.SessionManager; SessionManager := dmServer.SessionManager;
bpPagosCliente.BusinessRulesID := BIZ_SERVER_PAGOS_CLIENTE; bpRecibosCliente.BusinessRulesID := BIZ_SERVER_RECIBOS_CLIENTE;
bpPagosCliente.BusinessRulesID := BIZ_SERVER_PAGOS_CLIENTE;
end; end;
procedure TsrvRecibosCliente.DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); procedure TsrvRecibosCliente.DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);

3
Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dpk
View File

@ -28,7 +28,8 @@ requires
GUIBase, GUIBase,
RecibosCliente_model, RecibosCliente_model,
RecibosCliente_controller, RecibosCliente_controller,
JvGlobusD11R; JvGlobusD11R,
Contactos_view;
contains contains
uRecibosClienteViewRegister in 'uRecibosClienteViewRegister.pas', uRecibosClienteViewRegister in 'uRecibosClienteViewRegister.pas',

61
Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dproj
View File

@ -39,91 +39,60 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RecibosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<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">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">RecibosCliente_view.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="RecibosCliente_view.dpk"> <DelphiCompile Include="RecibosCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
<DCCReference Include="JvGlobusD11R.dcp" /> <DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="RecibosCliente_controller.dcp" /> <DCCReference Include="..\..\Lib\JvGlobusD11R.dcp" />
<DCCReference Include="RecibosCliente_model.dcp" /> <DCCReference Include="..\..\Lib\RecibosCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\RecibosCliente_model.dcp" />
<DCCReference Include="uEditorElegirRecibosCliente.pas"> <DCCReference Include="uEditorElegirRecibosCliente.pas">
<Form>fEditorElegirRecibosCliente</Form> <Form>fEditorElegirRecibosCliente</Form>
<DesignClass>TfEditorElegirRecibosCliente</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorFechaPago.pas"> <DCCReference Include="uEditorFechaPago.pas">
<Form>fEditorFechaPago</Form> <Form>fEditorFechaPago</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorReciboCliente.pas"> <DCCReference Include="uEditorReciboCliente.pas">
<Form>fEditorReciboCliente</Form> <Form>fEditorReciboCliente</Form>
<DesignClass>TfEditorReciboCliente</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorReciboClienteReport.pas"> <DCCReference Include="uEditorReciboClienteReport.pas">
<Form>fEditorReciboClienteReport</Form> <Form>fEditorReciboClienteReport</Form>
<DesignClass>TfEditorReciboClienteReport</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorRecibosCliente.pas"> <DCCReference Include="uEditorRecibosCliente.pas">
<Form>fEditorRecibosCliente</Form> <Form>fEditorRecibosCliente</Form>
<DesignClass>TfEditorRecibosCliente</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uRecibosClienteViewRegister.pas" /> <DCCReference Include="uRecibosClienteViewRegister.pas" />
<DCCReference Include="uViewPagosCliente.pas"> <DCCReference Include="uViewPagosCliente.pas">
<Form>frViewPagosCliente</Form> <Form>frViewPagosCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewReciboCliente.pas"> <DCCReference Include="uViewReciboCliente.pas">
<Form>frViewReciboCliente</Form> <Form>frViewReciboCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewReciboCliImportes.pas"> <DCCReference Include="uViewReciboCliImportes.pas">
<Form>frViewReciboCliImportes</Form> <Form>frViewReciboCliImportes</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewRecibosCliCompensados.pas"> <DCCReference Include="uViewRecibosCliCompensados.pas">
<Form>frViewRecibosCliCompensados</Form> <Form>frViewRecibosCliCompensados</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewRecibosCliente.pas"> <DCCReference Include="uViewRecibosCliente.pas">
<Form>frViewRecibosCliente</Form> <Form>frViewRecibosCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006

22
Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.res
View File

Binary file not shown.

95
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
View File

@ -51,6 +51,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 685 Width = 685
Height = 329 Height = 329
ExplicitLeft = 3
ExplicitTop = 79
ExplicitWidth = 685 ExplicitWidth = 685
ExplicitHeight = 329 ExplicitHeight = 329
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -83,18 +85,26 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
677 677
335) 335)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Top = -112
ExplicitTop = -112
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end end
inherited eSituacion: TcxDBTextEdit inherited eSituacion: TcxDBTextEdit
Top = -31
ExplicitTop = -31
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end end
inherited edtFechaVencimiento: TcxDBDateEdit inherited edtFechaVencimiento: TcxDBDateEdit
Top = -58
ExplicitTop = -58
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end end
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
Top = 98
ExplicitTop = 98
ExplicitWidth = 293 ExplicitWidth = 293
ExplicitHeight = 44 ExplicitHeight = 44
Height = 44 Height = 44
@ -102,72 +112,135 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
inherited eFechaEmision: TcxDBTextEdit inherited eFechaEmision: TcxDBTextEdit
Left = 441 Left = 441
Top = -112
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitTop = -112
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
inherited eFormaPago: TcxDBTextEdit inherited eFormaPago: TcxDBTextEdit
Left = 441 Left = 441
Top = -85
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitTop = -85
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
inherited eImporteTotal: TcxDBCurrencyEdit inherited eImporteTotal: TcxDBCurrencyEdit
Left = 441 Left = 441
Top = -58
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitTop = -58
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
inherited eNombreCliente: TcxDBTextEdit inherited eNombreCliente: TcxDBTextEdit
Left = 441 Left = 441
Top = 25
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitTop = 25
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eNifCif: TcxDBTextEdit inherited eNifCif: TcxDBTextEdit
Left = 441 Left = 441
Top = -2
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitTop = -2
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eEntidad: TcxDBTextEdit inherited eEntidad: TcxDBTextEdit
Left = 441 Left = 441
Top = 52
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitTop = 52
ExplicitWidth = 84 ExplicitWidth = 84
Width = 84 Width = 84
end end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 540 Left = 531
ExplicitLeft = 540 Top = 52
ExplicitLeft = 531
ExplicitTop = 52
ExplicitWidth = 81 ExplicitWidth = 81
Width = 81 Width = 81
end end
inherited eDC: TcxDBTextEdit inherited eDC: TcxDBTextEdit
Left = 618 Left = 602
ExplicitLeft = 618 Top = 52
ExplicitLeft = 602
ExplicitTop = 52
ExplicitWidth = 37 ExplicitWidth = 37
Width = 37 Width = 37
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
Left = 441 Left = 441
Top = 79
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitTop = 79
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eRemesa: TcxDBTextEdit inherited eRemesa: TcxDBTextEdit
Top = -4
ExplicitTop = -4
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end end
inherited edtFechaEmision: TcxDBDateEdit inherited edtFechaEmision: TcxDBDateEdit
Top = -85
DataBinding.DataField = 'FECHA_EMISION' DataBinding.DataField = 'FECHA_EMISION'
ExplicitTop = -85
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end end
inherited rRefReciboCompensado: TcxDBTextEdit inherited rRefReciboCompensado: TcxDBTextEdit
Top = 47
ExplicitTop = 47
ExplicitWidth = 191 ExplicitWidth = 191
Width = 191 Width = 191
end end
inherited frViewClienteRecibo: TfrViewDatosYSeleccionCliente
Left = 365
Top = 130
Width = 350
ExplicitLeft = 365
ExplicitTop = 130
ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl
Width = 350
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 177
Width = 177
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 192
ExplicitLeft = 192
end
inherited Button3: TBitBtn
Left = 82
ExplicitLeft = 82
end
end
end
end end
end end
end end
@ -269,19 +342,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 677 Width = 677
ExplicitWidth = 683 ExplicitWidth = 677
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
ExplicitWidth = 98 ExplicitWidth = 98
end end

10
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
View File

@ -63,6 +63,7 @@ type
procedure GuardarInterno; override; procedure GuardarInterno; override;
procedure PonerTitulos(const ATitulo: string = ''); override; procedure PonerTitulos(const ATitulo: string = ''); override;
procedure OnClienteChanged(Sender: TObject);
public public
property Recibo: IBizRecibosCliente read GetRecibo write SetRecibo; property Recibo: IBizRecibosCliente read GetRecibo write SetRecibo;
@ -280,6 +281,11 @@ begin
frViewPagosCliente1.ListaPagosCliente.ActiveView.StoreToRegistry(JvAppRegistryStorage.Root); frViewPagosCliente1.ListaPagosCliente.ActiveView.StoreToRegistry(JvAppRegistryStorage.Root);
end; end;
procedure TfEditorReciboCliente.OnClienteChanged(Sender: TObject);
begin
FRecibo.Cliente := frViewReciboCliente1.frViewClienteRecibo.Cliente;
end;
procedure TfEditorReciboCliente.PonerTitulos(const ATitulo: string); procedure TfEditorReciboCliente.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
@ -312,7 +318,7 @@ begin
FController := Value; FController := Value;
if Assigned(FController) then if Assigned(FController) then
frViewRecibosCliCompensados1.Controller := FController; frViewRecibosCliCompensados1.Controller := FController;
// (ViewRecibo as IViewReciboCliente).Controller := (FController as IRecibosClienteController); (ViewRecibo as IViewReciboCliente).Controller := (FController as IRecibosClienteController);
end; end;
procedure TfEditorReciboCliente.SetRecibo(const Value: IBizRecibosCliente); procedure TfEditorReciboCliente.SetRecibo(const Value: IBizRecibosCliente);
@ -323,6 +329,8 @@ begin
if Assigned(FViewRecibo) and Assigned(Recibo) then if Assigned(FViewRecibo) and Assigned(Recibo) then
begin begin
FViewRecibo.Recibo := Recibo; FViewRecibo.Recibo := Recibo;
frViewReciboCliente1.frViewClienteRecibo.Cliente := FRecibo.Cliente;
frViewReciboCliente1.frViewClienteRecibo.OnClienteChanged := OnClienteChanged;
frViewPagosCliente1.Pagos := Recibo.Pagos; frViewPagosCliente1.Pagos := Recibo.Pagos;
frViewRecibosCliCompensados1.ReciboCliente := FRecibo; frViewRecibosCliCompensados1.ReciboCliente := FRecibo;

81
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
View File

@ -1,22 +1,23 @@
inherited frViewReciboCliente: TfrViewReciboCliente inherited frViewReciboCliente: TfrViewReciboCliente
Width = 690 Width = 899
Height = 307 Height = 509
ExplicitWidth = 690 ExplicitWidth = 899
ExplicitHeight = 307 ExplicitHeight = 509
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 690 Width = 899
Height = 307 Height = 509
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitHeight = 259 ExplicitWidth = 690
ExplicitHeight = 307
DesignSize = ( DesignSize = (
690 899
307) 509)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 120 Left = 120
Top = 30 Top = 30
@ -272,7 +273,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Width = 90 Width = 90
end end
object eSucursal: TcxDBTextEdit object eSucursal: TcxDBTextEdit
Left = 554 Left = 674
Top = 194 Top = 194
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'SUCURSAL_CLIENTE' DataBinding.DataField = 'SUCURSAL_CLIENTE'
@ -298,7 +299,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Width = 75 Width = 75
end end
object eDC: TcxDBTextEdit object eDC: TcxDBTextEdit
Left = 635 Left = 844
Top = 194 Top = 194
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DC_CLIENTE' DataBinding.DataField = 'DC_CLIENTE'
@ -426,6 +427,52 @@ inherited frViewReciboCliente: TfrViewReciboCliente
TabOrder = 5 TabOrder = 5
Width = 191 Width = 191
end end
inline frViewClienteRecibo: TfrViewDatosYSeleccionCliente
Left = 364
Top = 281
Width = 350
Height = 212
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 16
ReadOnly = False
ExplicitLeft = 364
ExplicitTop = 281
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 177
Width = 177
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 421
ExplicitLeft = 421
end
inherited Button3: TBitBtn
Left = 311
ExplicitLeft = 311
end
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -497,7 +544,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Caption = 'New Group' Caption = 'New Group'
ShowCaption = False ShowCaption = False
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControlFactura: TdxLayoutGroup
Caption = 'Datos de la factura' Caption = 'Datos de la factura'
object dxLayoutControl1Item7: TdxLayoutItem object dxLayoutControl1Item7: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
@ -519,7 +566,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group6: TdxLayoutGroup object dxLayoutControlCliente: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'Datos del cliente' Caption = 'Datos del cliente'
@ -574,6 +621,14 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end end
end end
end end
object dxLayoutControlClienteModif: TdxLayoutGroup
Caption = 'Datos del cliente'
object dxLayoutControl1Item6: TdxLayoutItem
Control = frViewClienteRecibo
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
end end
end end
end end

48
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas
View File

@ -7,11 +7,15 @@ uses
Dialogs, uViewBase, uBizRecibosCliente, DB, uDADataTable, dxLayoutControl, Dialogs, uViewBase, uBizRecibosCliente, DB, uDADataTable, dxLayoutControl,
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit, cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls, cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
uDAInterfaces; uDAInterfaces, uCustomView, uViewDatosYSeleccionCliente, uRecibosClienteController;
type type
IViewReciboCliente = interface(IViewBase) IViewReciboCliente = interface(IViewBase)
['{5DDA0CF0-1A57-492E-B7AE-614E6A7236B5}'] ['{5DDA0CF0-1A57-492E-B7AE-614E6A7236B5}']
function GetController : IRecibosClienteController;
procedure SetController (const Value : IRecibosClienteController);
property Controller : IRecibosClienteController read GetController write SetController;
function GetRecibo: IBizRecibosCliente; function GetRecibo: IBizRecibosCliente;
procedure SetRecibo(const Value: IBizRecibosCliente); procedure SetRecibo(const Value: IBizRecibosCliente);
property Recibo: IBizRecibosCliente read GetRecibo write SetRecibo; property Recibo: IBizRecibosCliente read GetRecibo write SetRecibo;
@ -37,7 +41,7 @@ type
eFormaPago: TcxDBTextEdit; eFormaPago: TcxDBTextEdit;
dxLayoutControl1Item9: TdxLayoutItem; dxLayoutControl1Item9: TdxLayoutItem;
eImporteTotal: TcxDBCurrencyEdit; eImporteTotal: TcxDBCurrencyEdit;
dxLayoutControl1Group5: TdxLayoutGroup; dxLayoutControlFactura: TdxLayoutGroup;
dxLayoutControl1Item10: TdxLayoutItem; dxLayoutControl1Item10: TdxLayoutItem;
eNombreCliente: TcxDBTextEdit; eNombreCliente: TcxDBTextEdit;
dxLayoutControl1Item11: TdxLayoutItem; dxLayoutControl1Item11: TdxLayoutItem;
@ -50,7 +54,7 @@ type
eDC: TcxDBTextEdit; eDC: TcxDBTextEdit;
dxLayoutControl1Item15: TdxLayoutItem; dxLayoutControl1Item15: TdxLayoutItem;
eCuenta: TcxDBTextEdit; eCuenta: TcxDBTextEdit;
dxLayoutControl1Group6: TdxLayoutGroup; dxLayoutControlCliente: TdxLayoutGroup;
dxLayoutControl1Group8: TdxLayoutGroup; dxLayoutControl1Group8: TdxLayoutGroup;
dxLayoutControl1Item16: TdxLayoutItem; dxLayoutControl1Item16: TdxLayoutItem;
eRemesa: TcxDBTextEdit; eRemesa: TcxDBTextEdit;
@ -65,12 +69,20 @@ type
rRefReciboCompensado: TcxDBTextEdit; rRefReciboCompensado: TcxDBTextEdit;
dxLayoutControl1Group2: TdxLayoutGroup; dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Group3: TdxLayoutGroup; dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Item6: TdxLayoutItem;
frViewClienteRecibo: TfrViewDatosYSeleccionCliente;
dxLayoutControlClienteModif: TdxLayoutGroup;
private private
FRecibo : IBizRecibosCliente; FRecibo : IBizRecibosCliente;
FController : IRecibosClienteController;
function GetRecibo: IBizRecibosCliente; function GetRecibo: IBizRecibosCliente;
procedure SetRecibo(const Value: IBizRecibosCliente); procedure SetRecibo(const Value: IBizRecibosCliente);
function GetController : IRecibosClienteController;
procedure SetController (const Value : IRecibosClienteController);
public public
property Recibo: IBizRecibosCliente read GetRecibo write SetRecibo; property Recibo: IBizRecibosCliente read GetRecibo write SetRecibo;
property Controller : IRecibosClienteController read GetController write SetController;
end; end;
var var
@ -82,16 +94,44 @@ implementation
{ TfrViewReciboCliente } { TfrViewReciboCliente }
function TfrViewReciboCliente.GetController: IRecibosClienteController;
begin
Result := FController;
end;
function TfrViewReciboCliente.GetRecibo: IBizRecibosCliente; function TfrViewReciboCliente.GetRecibo: IBizRecibosCliente;
begin begin
Result := FRecibo; Result := FRecibo;
end; end;
procedure TfrViewReciboCliente.SetController(
const Value: IRecibosClienteController);
begin
FController := Value;
if Assigned(FController) then
frViewClienteRecibo.Controller := FController.ClienteController;
end;
procedure TfrViewReciboCliente.SetRecibo(const Value: IBizRecibosCliente); procedure TfrViewReciboCliente.SetRecibo(const Value: IBizRecibosCliente);
begin begin
FRecibo := Value; FRecibo := Value;
//Por defecto
dxLayoutControlFactura.Visible := true;
dxLayoutControlCliente.Visible := true;
dxLayoutControlClienteModif.Visible := false;
if Assigned(FRecibo) then if Assigned(FRecibo) then
DADataSource.DataTable := FRecibo.DataTable begin
DADataSource.DataTable := FRecibo.DataTable;
if FRecibo.ConFactura then
begin
dxLayoutControlFactura.Visible := false;
dxLayoutControlCliente.Visible := false;
dxLayoutControlClienteModif.Visible := true;
end;
end
else else
DADataSource.DataTable := NIL; DADataSource.DataTable := NIL;
end; end;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

3
Source/Servidor/FactuGES_Server.dpr
View File

@ -114,7 +114,8 @@ uses
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas', schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas', schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas'; schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
uBizRecibosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

1
Source/Servidor/FactuGES_Server.dproj
View File

@ -157,6 +157,7 @@
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form> <Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.0.0\0" VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "sábado, 23 de febrero de 2008 13:45\0" VALUE "CompileDate", "lunes, 25 de febrero de 2008 19:48\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"