Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SE activan los informes de recibos de cliente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@431 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-06-04 16:13:30 +00:00
parent f33845180b
commit 14f6e5d1b1
18 changed files with 656 additions and 616 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -708,11 +708,6 @@ begin
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
// if ARecibosCliente.EsNuevo then
// NuevoID := FDataModule.GetNextID(ARecibosCliente.DataTable.LogicalName)
// else
// NuevoID := ARecibosCliente.ID;
//Si el importe ha cambiado se debe hacer un recibo nuevo con el importe restante //Si el importe ha cambiado se debe hacer un recibo nuevo con el importe restante
if ImporteTotalModificado(ARecibosCliente, ImporteRestante) then if ImporteTotalModificado(ARecibosCliente, ImporteRestante) then
begin begin

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

@ -70,7 +70,7 @@ uses
function TDataModuleRecibosCliente.GetReport(const ID: String): Binary; function TDataModuleRecibosCliente.GetReport(const ID: String): Binary;
begin begin
// Result := (RORemoteService as IsrvRecibosCliente).GenerateReport(ID); Result := (RORemoteService as IsrvRecibosCliente).GenerateReport(ID);
end; end;
procedure TDataModuleRecibosCliente.DAClientDataModuleCreate(Sender: TObject); procedure TDataModuleRecibosCliente.DAClientDataModuleCreate(Sender: TObject);

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

@ -9,6 +9,7 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" /> <Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.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" />
@ -111,14 +112,23 @@
<Target Name="FactuGES_Server:Make"> <Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasCliente_controller">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_controller:Clean">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_controller:Make">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.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" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;RecibosCliente_model;RecibosCliente_data;RecibosCliente_controller;RecibosCliente_view;RecibosCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_controller" />
</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" /> <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;FacturasCliente_controller: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" /> <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;FacturasCliente_controller: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>

880
Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
View File

File diff suppressed because it is too large Load Diff

28
Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas
View File

@ -5,14 +5,14 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, frxClass, frxDBSet, uDAScriptingProvider, Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, uDADataTable, uDAMemDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
uDAInterfaces; uDAInterfaces, uDADataStreamer;
type type
TRptRecibosCliente = class(TDataModule) TRptRecibosCliente = class(TDataModule)
DADataCabecera: TDADataSource; DADataCabecera: TDADataSource;
tbl_Cabecera: TDACDSDataTable; tbl_Cabecera: TDAMemDataTable;
DABINAdapter: TDABINAdapter; DABINAdapter: TDABINAdapter;
frxRichObject1: TfrxRichObject; frxRichObject1: TfrxRichObject;
frxBarCodeObject1: TfrxBarCodeObject; frxBarCodeObject1: TfrxBarCodeObject;
@ -24,10 +24,10 @@ type
frxDBCabecera: TfrxDBDataset; frxDBCabecera: TfrxDBDataset;
DADataCompensados: TDADataSource; DADataCompensados: TDADataSource;
frxDBCompensados: TfrxDBDataset; frxDBCompensados: TfrxDBDataset;
tbl_Compensados: TDACDSDataTable; tbl_Compensados: TDAMemDataTable;
frxReport: TfrxReport;
schReport: TDASchema; schReport: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
frxReport: TfrxReport;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;
@ -67,7 +67,7 @@ var
begin begin
Result := Binary.Create; Result := Binary.Create;
FConnection.BeginTransaction; //FConnection.BeginTransaction; <--- Creo que no va a hacer falta.
try try
ID_Recibos := TStringList.Create; ID_Recibos := TStringList.Create;
@ -80,7 +80,7 @@ begin
frxReport.PreviewPages.SaveToStream(Result); frxReport.PreviewPages.SaveToStream(Result);
finally finally
FConnection.RollbackTransaction; //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta.
end; end;
end; end;
@ -94,16 +94,14 @@ begin
AStream := TMemoryStream.Create; AStream := TMemoryStream.Create;
try try
dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [ID]); frxDBCabecera.DataSource := DADataCabecera;
dsCompensados := schReport.NewDataset(FConnection, ds_InformeCompensados, ['ID_RECIBO'], [ID], False); frxDBCompensados.DataSource := DADataCompensados;
AStream.Clear; tbl_Cabecera.ParamByName('ID').AsInteger := ID;
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); tbl_Compensados.ParamByName('ID_RECIBO').AsInteger := ID;
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
AStream.Clear; tbl_Cabecera.Active := True;
DABINAdapter.WriteDataset(AStream, dsCompensados, [woRows, woSchema], -1); tbl_Compensados.Active := True;
DABINAdapter.ReadDataset(AStream, tbl_Compensados, TRUE, '', TRUE, TRUE);
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True); frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
frxReport.PrepareReport(False); frxReport.PrepareReport(False);

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

@ -42,8 +42,8 @@ implementation
uses uses
Dialogs, Dialogs,
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
schRecibosClienteClient_Intf, uRestriccionesUsuarioUtils; schRecibosClienteClient_Intf, uRestriccionesUsuarioUtils,
// uRptRecibosCliente_Server; uRptRecibosCliente_Server;
//, uBizRecibosClienteServer; //, uBizRecibosClienteServer;
procedure Create_srvRecibosCliente(out anInstance : IUnknown); procedure Create_srvRecibosCliente(out anInstance : IUnknown);
@ -77,16 +77,15 @@ begin
end; end;
function TsrvRecibosCliente.GenerateReport(const ID: String): Binary; function TsrvRecibosCliente.GenerateReport(const ID: String): Binary;
//var var
// AReportGenerator : TRptRecibosCliente; AReportGenerator : TRptRecibosCliente;
begin begin
{ AReportGenerator := TRptRecibosCliente.Create(nil); AReportGenerator := TRptRecibosCliente.Create(nil);
try try
Result := AReportGenerator.GenerarRecibo(ID); Result := AReportGenerator.GenerarRecibo(ID);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
}
end; end;
initialization initialization

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

@ -4,7 +4,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ClientWidth = 691 ClientWidth = 691
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 699 ExplicitWidth = 699
ExplicitHeight = 557 ExplicitHeight = 564
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -49,19 +49,20 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 691 Width = 685
Height = 335 Height = 329
ExplicitWidth = 691 ActivePage = pagPagos
ExplicitHeight = 335 ExplicitWidth = 685
ExplicitHeight = 329
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 307 ExplicitHeight = 301
inline frViewReciboCliente1: TfrViewReciboCliente inline frViewReciboCliente1: TfrViewReciboCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 683 Width = 677
Height = 335 Height = 335
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -72,15 +73,15 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 335 ExplicitHeight = 335
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 683 Width = 677
Height = 335 Height = 335
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 335 ExplicitHeight = 335
DesignSize = ( DesignSize = (
683 677
335) 335)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 217 ExplicitWidth = 217
@ -95,65 +96,65 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 217 Width = 217
end end
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
ExplicitWidth = 293 ExplicitWidth = 315
ExplicitHeight = 44 ExplicitHeight = 44
Height = 44 Height = 44
Width = 293 Width = 315
end end
inherited eFechaEmision: TcxDBTextEdit inherited eFechaEmision: TcxDBTextEdit
Left = 441 Left = 441
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitWidth = 253 ExplicitWidth = 214
Width = 253 Width = 214
end end
inherited eFormaPago: TcxDBTextEdit inherited eFormaPago: TcxDBTextEdit
Left = 441 Left = 441
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitWidth = 253 ExplicitWidth = 214
Width = 253 Width = 214
end end
inherited eImporteTotal: TcxDBCurrencyEdit inherited eImporteTotal: TcxDBCurrencyEdit
Left = 441 Left = 441
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitWidth = 253 ExplicitWidth = 214
Width = 253 Width = 214
end end
inherited eNombreCliente: TcxDBTextEdit inherited eNombreCliente: TcxDBTextEdit
Left = 441 Left = 441
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitWidth = 286 ExplicitWidth = 214
Width = 286 Width = 214
end end
inherited eNifCif: TcxDBTextEdit inherited eNifCif: TcxDBTextEdit
Left = 441 Left = 441
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitWidth = 286 ExplicitWidth = 214
Width = 286 Width = 214
end end
inherited eEntidad: TcxDBTextEdit inherited eEntidad: TcxDBTextEdit
Left = 441 Left = 441
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitWidth = 84 ExplicitWidth = 44
Width = 84 Width = 44
end end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 544 Left = 540
ExplicitLeft = 544 ExplicitLeft = 540
ExplicitWidth = 81 ExplicitWidth = 49
Width = 81 Width = 49
end end
inherited eDC: TcxDBTextEdit inherited eDC: TcxDBTextEdit
Left = 624 Left = 618
ExplicitLeft = 624 ExplicitLeft = 618
ExplicitWidth = 37 ExplicitWidth = 37
Width = 37 Width = 37
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
Left = 441 Left = 441
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitWidth = 286 ExplicitWidth = 214
Width = 286 Width = 214
end end
inherited eRemesa: TcxDBTextEdit inherited eRemesa: TcxDBTextEdit
ExplicitWidth = 217 ExplicitWidth = 217
@ -165,8 +166,12 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 217 Width = 217
end end
inherited rRefReciboCompensado: TcxDBTextEdit inherited rRefReciboCompensado: TcxDBTextEdit
ExplicitWidth = 191 ExplicitWidth = 217
Width = 191 Width = 217
end
inherited eConcepto: TcxDBTextEdit
ExplicitWidth = 217
Width = 217
end end
end end
end end
@ -177,8 +182,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inline frViewPagosCliente1: TfrViewPagosCliente inline frViewPagosCliente1: TfrViewPagosCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 683 Width = 677
Height = 307 Height = 301
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -188,28 +193,28 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 307 ExplicitHeight = 301
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 683 Width = 677
Height = 307 Height = 301
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 307 ExplicitHeight = 301
end end
inherited dxLayoutControl2: TdxLayoutControl inherited dxLayoutControl2: TdxLayoutControl
Width = 683 Width = 677
Height = 307 Height = 301
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 307 ExplicitHeight = 301
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 666 Width = 633
ExplicitWidth = 666 ExplicitWidth = 633
end end
inherited ListaPagosCliente: TcxGrid inherited ListaPagosCliente: TcxGrid
Width = 605 Width = 633
Height = 262 Height = 224
ExplicitWidth = 605 ExplicitWidth = 633
ExplicitHeight = 262 ExplicitHeight = 224
inherited ListaPagosClienteDBTableView1: TcxGridDBTableView inherited ListaPagosClienteDBTableView1: TcxGridDBTableView
inherited ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn inherited ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True
@ -236,11 +241,12 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
object pagCompensados: TTabSheet object pagCompensados: TTabSheet
Caption = 'Recibos compensados' Caption = 'Recibos compensados'
ImageIndex = 1 ImageIndex = 1
TabVisible = False
inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados
Left = 0 Left = 0
Top = 0 Top = 0
Width = 683 Width = 677
Height = 307 Height = 301
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -250,13 +256,13 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 307 ExplicitHeight = 301
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 683 Width = 677
Height = 282 Height = 276
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 282 ExplicitHeight = 276
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -268,20 +274,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 683 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
@ -324,15 +318,13 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited eImporte: TcxDBCurrencyEdit inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
ExplicitWidth = 150
Width = 150
end end
inherited eOtrosGastos: TcxDBCurrencyEdit inherited eOtrosGastos: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
end end
inherited eImporteTotalRecibo: TcxCurrencyEdit inherited eImporteTotalRecibo: TcxCurrencyEdit
ExplicitWidth = 183 ExplicitWidth = 315
Width = 183 Width = 315
end end
end end
end end

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

@ -264,11 +264,8 @@ end;
procedure TfEditorReciboCliente.ImprimirInterno; procedure TfEditorReciboCliente.ImprimirInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Print(FRecibo); FController.Print(FRecibo);
}
end; end;
procedure TfEditorReciboCliente.JvFormStorageRestorePlacement(Sender: TObject); procedure TfEditorReciboCliente.JvFormStorageRestorePlacement(Sender: TObject);
@ -306,11 +303,8 @@ end;
procedure TfEditorReciboCliente.PrevisualizarInterno; procedure TfEditorReciboCliente.PrevisualizarInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Preview(FRecibo); FController.Preview(FRecibo);
}
end; end;
procedure TfEditorReciboCliente.SetController(const Value: IRecibosClienteController); procedure TfEditorReciboCliente.SetController(const Value: IRecibosClienteController);

25
Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas
View File

@ -131,14 +131,12 @@ begin
end; end;
procedure TfEditorRecibosCliente.ImprimirInterno; procedure TfEditorRecibosCliente.ImprimirInterno;
{ var
Respuesta : Integer; Respuesta : Integer;
ARecibosCliente: IBizRecibosCliente; ARecibosCliente: IBizRecibosCliente;
} AllItems: Boolean;
begin begin
inherited;
{
ARecibosCliente := Nil; ARecibosCliente := Nil;
AllItems := False; AllItems := False;
@ -167,19 +165,18 @@ begin
ARecibosCliente := RecibosCliente; ARecibosCliente := RecibosCliente;
if Assigned(ARecibosCliente) then if Assigned(ARecibosCliente) then
FController.Preview(ARecibosCliente, AllItems); FController.Print(ARecibosCliente, AllItems);
end; end;
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorRecibosCliente.ModificarInterno; procedure TfEditorRecibosCliente.ModificarInterno;
begin begin
inherited; inherited;
FController.Ver(FRecibosCliente); FController.Ver(FRecibosCliente);
RefrescarInterno; RefrescarInterno;
end; end;
procedure TfEditorRecibosCliente.NuevoInterno; procedure TfEditorRecibosCliente.NuevoInterno;
@ -197,14 +194,13 @@ begin
end; end;
procedure TfEditorRecibosCliente.PrevisualizarInterno; procedure TfEditorRecibosCliente.PrevisualizarInterno;
{ var
Respuesta : Integer; Respuesta: Integer;
ARecibosCliente: IBizRecibosCliente; ARecibosCliente: IBizRecibosCliente;
} AllItems: Boolean;
begin
inherited; begin
{
ARecibosCliente := Nil; ARecibosCliente := Nil;
AllItems := False; AllItems := False;
@ -238,7 +234,6 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorRecibosCliente.SetController(const Value: IRecibosClienteController); procedure TfEditorRecibosCliente.SetController(const Value: IRecibosClienteController);

2
Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm
View File

@ -15,6 +15,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
object dxLayoutGroup1: TdxLayoutGroup object dxLayoutGroup1: TdxLayoutGroup
@ -31,6 +32,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 1 TabOrder = 1
TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
object ToolBar1: TToolBar object ToolBar1: TToolBar

8
Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas
View File

@ -11,7 +11,13 @@ uses
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxGridCustomView, cxGrid, uBizPagosCliente, ActnList, TB2Item, cxClasses, cxGridCustomView, cxGrid, uBizPagosCliente, ActnList, TB2Item,
TBX, TB2Dock, TB2Toolbar, cxImageComboBox, dxLayoutLookAndFeels, ImgList, TBX, TB2Dock, TB2Toolbar, cxImageComboBox, dxLayoutLookAndFeels, ImgList,
PngImageList, ComCtrls, ToolWin, uDAInterfaces; PngImageList, ComCtrls, ToolWin, uDAInterfaces, dxSkinsCore, dxSkinBlack,
dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinXmas2008Blue, dxSkinsdxLCPainter, dxSkinscxPCPainter;
type type
IViewPagosCliente = interface(IViewBase) IViewPagosCliente = interface(IViewBase)

1
Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.dfm
View File

@ -17,6 +17,7 @@ inherited frViewReciboCliImportes: TfrViewReciboCliImportes
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
object eImporte: TcxDBCurrencyEdit object eImporte: TcxDBCurrencyEdit
Left = 93 Left = 93

8
Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.pas
View File

@ -8,7 +8,13 @@ uses
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls,
cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit, cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit,
ComCtrls, dxLayoutControl, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, ComCtrls, dxLayoutControl, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, cxCheckBox; cxDBLookupComboBox, cxCheckBox, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
dxSkinsdxLCPainter;
type type
TfrViewReciboCliImportes = class(TfrViewBase) TfrViewReciboCliImportes = class(TfrViewBase)

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

@ -1,22 +1,23 @@
inherited frViewReciboCliente: TfrViewReciboCliente inherited frViewReciboCliente: TfrViewReciboCliente
Width = 690 Width = 690
Height = 307 Height = 361
ExplicitWidth = 690 ExplicitWidth = 690
ExplicitHeight = 307 ExplicitHeight = 361
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 690 Width = 690
Height = 307 Height = 361
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitHeight = 259 ExplicitHeight = 307
DesignSize = ( DesignSize = (
690 690
307) 361)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 120 Left = 120
Top = 30 Top = 30
@ -41,7 +42,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0 TabOrder = 0
Width = 129 Width = 216
end end
object eSituacion: TcxDBTextEdit object eSituacion: TcxDBTextEdit
Left = 120 Left = 120
@ -89,11 +90,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2 TabOrder = 2
Width = 129 Width = 216
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 240 Top = 267
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -105,9 +106,9 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 7
Height = 49 Height = 49
Width = 274 Width = 314
end end
object eFechaEmision: TcxDBTextEdit object eFechaEmision: TcxDBTextEdit
Left = 440 Left = 440
@ -132,8 +133,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 8
Width = 20 Width = 228
end end
object eFormaPago: TcxDBTextEdit object eFormaPago: TcxDBTextEdit
Left = 440 Left = 440
@ -158,8 +159,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8 TabOrder = 9
Width = 42 Width = 228
end end
object eImporteTotal: TcxDBCurrencyEdit object eImporteTotal: TcxDBCurrencyEdit
Left = 440 Left = 440
@ -189,9 +190,9 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 TabOrder = 10
Height = 21 Height = 21
Width = 182 Width = 228
end end
object eNombreCliente: TcxDBTextEdit object eNombreCliente: TcxDBTextEdit
Left = 440 Left = 440
@ -216,8 +217,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11 TabOrder = 12
Width = 171 Width = 228
end end
object eNifCif: TcxDBTextEdit object eNifCif: TcxDBTextEdit
Left = 440 Left = 440
@ -242,8 +243,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 TabOrder = 11
Width = 147 Width = 228
end end
object eEntidad: TcxDBTextEdit object eEntidad: TcxDBTextEdit
Left = 440 Left = 440
@ -268,8 +269,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12 TabOrder = 13
Width = 90 Width = 59
end end
object eSucursal: TcxDBTextEdit object eSucursal: TcxDBTextEdit
Left = 554 Left = 554
@ -294,8 +295,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 13 TabOrder = 14
Width = 75 Width = 52
end end
object eDC: TcxDBTextEdit object eDC: TcxDBTextEdit
Left = 635 Left = 635
@ -320,7 +321,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 14 TabOrder = 15
Width = 33 Width = 33
end end
object eCuenta: TcxDBTextEdit object eCuenta: TcxDBTextEdit
@ -346,8 +347,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 15 TabOrder = 16
Width = 83 Width = 228
end end
object eRemesa: TcxDBTextEdit object eRemesa: TcxDBTextEdit
Left = 120 Left = 120
@ -373,7 +374,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 4
Width = 113 Width = 216
end end
object edtFechaEmision: TcxDBDateEdit object edtFechaEmision: TcxDBDateEdit
Left = 120 Left = 120
@ -398,11 +399,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 1
Width = 113 Width = 216
end end
object rRefReciboCompensado: TcxDBTextEdit object rRefReciboCompensado: TcxDBTextEdit
Left = 120 Left = 120
Top = 189 Top = 216
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO' DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -423,8 +424,33 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
Width = 216
end
object eConcepto: TcxDBTextEdit
Left = 120
Top = 165
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DESCRIPCION'
DataBinding.DataSource = DADataSource
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 5
Width = 191 Width = 216
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
@ -432,6 +458,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
@ -470,6 +498,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Control = eRemesa Control = eRemesa
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item6: TdxLayoutItem
Caption = 'Concepto:'
Control = eConcepto
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Group2: TdxLayoutGroup object dxLayoutControl1Group2: TdxLayoutGroup
Caption = 'Compensado en recibo' Caption = 'Compensado en recibo'
@ -493,7 +526,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end end
object dxLayoutControl1Group8: TdxLayoutGroup object dxLayoutControl1Group8: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'New Group' Caption = 'New Group'
ShowCaption = False ShowCaption = False
ShowBorder = False ShowBorder = False

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

@ -7,7 +7,13 @@ 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, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,
dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
dxSkinsdxLCPainter;
type type
IViewReciboCliente = interface(IViewBase) IViewReciboCliente = interface(IViewBase)
@ -65,6 +71,8 @@ type
rRefReciboCompensado: TcxDBTextEdit; rRefReciboCompensado: TcxDBTextEdit;
dxLayoutControl1Group2: TdxLayoutGroup; dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Group3: TdxLayoutGroup; dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Item6: TdxLayoutItem;
eConcepto: TcxDBTextEdit;
private private
FRecibo : IBizRecibosCliente; FRecibo : IBizRecibosCliente;
function GetRecibo: IBizRecibosCliente; function GetRecibo: IBizRecibosCliente;

10
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm
View File

@ -78,25 +78,15 @@ inherited frViewRecibosCliCompensados: TfrViewRecibosCliCompensados
Width = 549 Width = 549
ExplicitWidth = 549 ExplicitWidth = 549
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
Top = 0
ExplicitWidth = 62 ExplicitWidth = 62
end end
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Top = 0
ExplicitWidth = 74 ExplicitWidth = 74
end end
inherited ToolButton5: TToolButton
Top = 0
end
inherited ToolButton2: TToolButton inherited ToolButton2: TToolButton
Top = 0
ExplicitWidth = 67 ExplicitWidth = 67
end end
inherited ToolButton6: TToolButton
Top = 0
end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Top = 0
ExplicitWidth = 117 ExplicitWidth = 117
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton

8
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas
View File

@ -10,7 +10,13 @@ uses
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosCliente, cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosCliente,
uBizRecibosCliente, uRecibosClienteController, Grids, DBGrids, cxSpinEdit, uBizRecibosCliente, uRecibosClienteController, Grids, DBGrids, cxSpinEdit,
dxLayoutControl, uDAInterfaces; dxLayoutControl, uDAInterfaces, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
dxSkinscxPCPainter;
type type
IViewRecibosCompensados = interface IViewRecibosCompensados = interface

4
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
View File

@ -52,11 +52,15 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn
Caption = 'Compensado' Caption = 'Compensado'
DataBinding.FieldName = 'ID_RECIBO_COMPENSADO' DataBinding.FieldName = 'ID_RECIBO_COMPENSADO'
Visible = False
OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell
VisibleForCustomization = False
end end
object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn
Caption = 'Ref. recibo compensado' Caption = 'Ref. recibo compensado'
DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO' DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO'
Visible = False
VisibleForCustomization = False
end end
object cxGridViewSITUACION: TcxGridDBColumn object cxGridViewSITUACION: TcxGridDBColumn
Caption = 'Situaci'#243'n' Caption = 'Situaci'#243'n'