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
ShowHourglassCursor;
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
if ImporteTotalModificado(ARecibosCliente, ImporteRestante) then
begin

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

@ -70,7 +70,7 @@ uses
function TDataModuleRecibosCliente.GetReport(const ID: String): Binary;
begin
// Result := (RORemoteService as IsrvRecibosCliente).GenerateReport(ID);
Result := (RORemoteService as IsrvRecibosCliente).GenerateReport(ID);
end;
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="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="Controller\RecibosCliente_controller.dproj" />
<Projects Include="Data\RecibosCliente_data.dproj" />
<Projects Include="Model\RecibosCliente_model.dproj" />
@ -111,14 +112,23 @@
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</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">
<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 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 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>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</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
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
uDADataTable, uDAMemDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
uDAInterfaces;
uDAInterfaces, uDADataStreamer;
type
TRptRecibosCliente = class(TDataModule)
DADataCabecera: TDADataSource;
tbl_Cabecera: TDACDSDataTable;
tbl_Cabecera: TDAMemDataTable;
DABINAdapter: TDABINAdapter;
frxRichObject1: TfrxRichObject;
frxBarCodeObject1: TfrxBarCodeObject;
@ -24,10 +24,10 @@ type
frxDBCabecera: TfrxDBDataset;
DADataCompensados: TDADataSource;
frxDBCompensados: TfrxDBDataset;
tbl_Compensados: TDACDSDataTable;
tbl_Compensados: TDAMemDataTable;
frxReport: TfrxReport;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
frxReport: TfrxReport;
procedure DataModuleCreate(Sender: TObject);
private
FConnection: IDAConnection;
@ -67,7 +67,7 @@ var
begin
Result := Binary.Create;
FConnection.BeginTransaction;
//FConnection.BeginTransaction; <--- Creo que no va a hacer falta.
try
ID_Recibos := TStringList.Create;
@ -80,7 +80,7 @@ begin
frxReport.PreviewPages.SaveToStream(Result);
finally
FConnection.RollbackTransaction;
//FConnection.RollbackTransaction; <--- Creo que no va a hacer falta.
end;
end;
@ -94,16 +94,14 @@ begin
AStream := TMemoryStream.Create;
try
dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [ID]);
dsCompensados := schReport.NewDataset(FConnection, ds_InformeCompensados, ['ID_RECIBO'], [ID], False);
frxDBCabecera.DataSource := DADataCabecera;
frxDBCompensados.DataSource := DADataCompensados;
AStream.Clear;
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
tbl_Cabecera.ParamByName('ID').AsInteger := ID;
tbl_Compensados.ParamByName('ID_RECIBO').AsInteger := ID;
AStream.Clear;
DABINAdapter.WriteDataset(AStream, dsCompensados, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Compensados, TRUE, '', TRUE, TRUE);
tbl_Cabecera.Active := True;
tbl_Compensados.Active := True;
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
frxReport.PrepareReport(False);

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

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

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

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

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

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

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

@ -131,14 +131,12 @@ begin
end;
procedure TfEditorRecibosCliente.ImprimirInterno;
{
var
Respuesta : Integer;
ARecibosCliente: IBizRecibosCliente;
}
AllItems: Boolean;
begin
inherited;
{
ARecibosCliente := Nil;
AllItems := False;
@ -167,19 +165,18 @@ begin
ARecibosCliente := RecibosCliente;
if Assigned(ARecibosCliente) then
FController.Preview(ARecibosCliente, AllItems);
FController.Print(ARecibosCliente, AllItems);
end;
end;
end;
end;
}
end;
procedure TfEditorRecibosCliente.ModificarInterno;
begin
inherited;
FController.Ver(FRecibosCliente);
RefrescarInterno;
RefrescarInterno;
end;
procedure TfEditorRecibosCliente.NuevoInterno;
@ -197,14 +194,13 @@ begin
end;
procedure TfEditorRecibosCliente.PrevisualizarInterno;
{
Respuesta : Integer;
var
Respuesta: Integer;
ARecibosCliente: IBizRecibosCliente;
}
begin
inherited;
AllItems: Boolean;
begin
{
ARecibosCliente := Nil;
AllItems := False;
@ -238,7 +234,6 @@ begin
end;
end;
end;
}
end;
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
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
object dxLayoutGroup1: TdxLayoutGroup
@ -31,6 +32,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente
Align = alClient
ParentBackground = True
TabOrder = 1
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
object ToolBar1: TToolBar

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

@ -11,7 +11,13 @@ uses
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxGridCustomView, cxGrid, uBizPagosCliente, ActnList, TB2Item,
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
IViewPagosCliente = interface(IViewBase)

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

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

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

@ -8,7 +8,13 @@ uses
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls,
cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit,
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
TfrViewReciboCliImportes = class(TfrViewBase)

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

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

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

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

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

@ -10,7 +10,13 @@ uses
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosCliente,
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
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
Caption = 'Compensado'
DataBinding.FieldName = 'ID_RECIBO_COMPENSADO'
Visible = False
OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell
VisibleForCustomization = False
end
object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn
Caption = 'Ref. recibo compensado'
DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO'
Visible = False
VisibleForCustomization = False
end
object cxGridViewSITUACION: TcxGridDBColumn
Caption = 'Situaci'#243'n'