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

Recibos de cliente: faltaba la dirección completa en el recibo impreso.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@266 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-07-09 15:21:27 +00:00
parent 382be690bb
commit 23bf48f313
26 changed files with 492 additions and 504 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
Source/Cliente/FactuGES.dproj
View File

@ -53,47 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">3</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 2,2,3,0
PRODUCTVERSION 2,2,3,0
FILEVERSION 2,2,4,0
PRODUCTVERSION 2,2,4,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.2.3.0\0"
VALUE "FileVersion", "2.2.4.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.2.3.0\0"
VALUE "ProductVersion", "2.2.4.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

28
Source/Informes/InfReciboCliente.fr3
View File

File diff suppressed because one or more lines are too long

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

@ -780,7 +780,7 @@ object RptRecibosCliente: TRptRecibosCliente
ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.Description.Strings = (
'Demonstrates how to create simple list report.')
ReportOptions.LastChange = 39563.534544155100000000
ReportOptions.LastChange = 39638.693800335650000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
@ -856,28 +856,6 @@ object RptRecibosCliente: TRptRecibosCliente
' end'
'end;'
''
'procedure Memo42OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBCabecera."ID_FACTURA"> < 1) then'
' begin'
' Memo42.visible := False; ' +
' '
' Memo45.visible := False;'
' Memo38.visible := False;'
' Memo39.visible := False;'
' Memo43.visible := False;'
''
' Memo27.visible := False; ' +
' '
' Memo28.visible := False;'
' Memo48.visible := False;'
' Memo49.visible := False;'
' Memo52.visible := False; '
' end;'
'end;'
''
'begin'
''
'end.')

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

@ -1,18 +1,18 @@
inherited fEditorReciboCliente: TfEditorReciboCliente
Caption = 'Recibo de cliente'
ClientHeight = 562
ClientWidth = 742
ClientWidth = 885
OnClose = CustomEditorClose
ExplicitWidth = 750
ExplicitWidth = 893
ExplicitHeight = 596
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 742
Width = 885
Caption = 'Recibo de cliente'
ExplicitWidth = 742
inherited Image1: TImage
Left = 715
Left = 858
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -39,18 +39,19 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
end
inherited TBXDock: TTBXDock
Width = 742
Width = 885
ExplicitWidth = 742
inherited tbxMain: TTBXToolbar
ExplicitWidth = 425
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 742
ExplicitWidth = 885
end
end
inherited pgPaginas: TPageControl
Width = 736
Width = 879
Height = 361
ActivePage = pagCompensados
OnChanging = pgPaginasChanging
ExplicitLeft = 3
ExplicitTop = 79
@ -64,9 +65,9 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inline frViewReciboCliente1: TfrViewReciboCliente
Left = 0
Top = 0
Width = 728
Height = 335
Align = alTop
Width = 871
Height = 333
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
@ -78,133 +79,139 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitWidth = 728
ExplicitHeight = 335
inherited dxLayoutControl1: TdxLayoutControl
Width = 728
Height = 335
Width = 871
Height = 333
ExplicitWidth = 728
ExplicitHeight = 335
DesignSize = (
728
335)
871
333)
inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 217
Width = 217
ExplicitWidth = 201
Width = 201
end
inherited eSituacion: TcxDBTextEdit
ExplicitWidth = 217
Width = 217
ExplicitWidth = 201
Width = 201
end
inherited edtFechaVencimiento: TcxDBDateEdit
ExplicitWidth = 217
Width = 217
Left = 305
ExplicitLeft = 305
ExplicitWidth = 67
Width = 67
end
inherited memObservaciones: TcxDBMemo
ExplicitWidth = 293
ExplicitWidth = 277
ExplicitHeight = 44
Height = 44
Width = 293
Width = 277
end
inherited eFechaEmision: TcxDBTextEdit
Left = 512
ExplicitLeft = 512
ExplicitWidth = 253
Width = 253
Left = 546
Top = 378
ExplicitLeft = 546
ExplicitTop = 378
ExplicitWidth = 286
Width = 286
end
inherited eImporteTotal: TcxDBCurrencyEdit
Left = 512
Left = 546
Top = 459
Style.IsFontAssigned = True
ExplicitLeft = 512
ExplicitWidth = 253
Width = 253
ExplicitLeft = 546
ExplicitTop = 459
ExplicitWidth = 286
Width = 286
end
inherited eNombreCliente: TcxDBTextEdit
Left = 512
ExplicitLeft = 512
Left = 546
Top = 432
ExplicitLeft = 546
ExplicitTop = 432
ExplicitWidth = 286
Width = 286
end
inherited eNifCif: TcxDBTextEdit
Left = 512
ExplicitLeft = 512
Left = 546
Top = 405
ExplicitLeft = 546
ExplicitTop = 405
ExplicitWidth = 286
Width = 286
end
inherited eRemesa: TcxDBTextEdit
ExplicitWidth = 217
Width = 217
ExplicitWidth = 201
Width = 201
end
inherited edtFechaEmision: TcxDBDateEdit
DataBinding.DataField = 'FECHA_EMISION'
ExplicitWidth = 217
Width = 217
ExplicitWidth = 62
Width = 62
end
inherited rRefReciboCompensado: TcxDBTextEdit
ExplicitWidth = 191
Width = 191
ExplicitWidth = 201
Width = 201
end
inherited eDescripcion: TcxDBTextEdit
ExplicitWidth = 437
Width = 437
ExplicitWidth = 201
Width = 201
end
inherited frViewTienda1: TfrViewTienda
Width = 451
ExplicitWidth = 451
Width = 201
ExplicitWidth = 201
inherited dxLayoutControl1: TdxLayoutControl
Width = 451
Width = 201
inherited cbTienda: TcxComboBox
ExplicitWidth = 200
Width = 200
ExplicitWidth = 181
Width = 181
end
end
end
inherited frViewClienteRecibo1: TfrViewClienteRecibo
Left = 436
Width = 350
ExplicitLeft = 436
ExplicitWidth = 350
Left = 470
Width = 362
ExplicitLeft = 470
ExplicitWidth = 362
inherited dxLayoutControl1: TdxLayoutControl
Width = 350
Width = 362
ExplicitWidth = 350
inherited Bevel1: TBevel
Width = 266
ExplicitWidth = 266
end
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource
ExplicitWidth = 276
Width = 276
ExplicitWidth = 271
Width = 271
end
inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource
ExplicitWidth = 276
Width = 276
ExplicitWidth = 271
Width = 271
end
inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource
ExplicitWidth = 276
Width = 276
ExplicitWidth = 271
Width = 271
end
inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource
ExplicitWidth = 158
Width = 158
ExplicitWidth = 153
Width = 153
end
inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource
ExplicitWidth = 276
Width = 276
ExplicitWidth = 271
Width = 271
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 192
Left = 270
DataBinding.DataSource = frViewReciboCliente1.DADataSource
ExplicitLeft = 192
ExplicitLeft = 270
end
inherited Button3: TBitBtn
Left = 82
ExplicitLeft = 82
Left = 160
ExplicitLeft = 160
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
ExplicitWidth = 271
Width = 271
end
end
end
@ -214,10 +221,11 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
object pagPagos: TTabSheet
Caption = 'Pagos'
ImageIndex = 2
ExplicitWidth = 728
inline frViewPagosCliente1: TfrViewPagosCliente
Left = 0
Top = 0
Width = 728
Width = 871
Height = 333
Align = alClient
Font.Charset = DEFAULT_CHARSET
@ -231,25 +239,25 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitWidth = 728
ExplicitHeight = 333
inherited dxLayoutControl1: TdxLayoutControl
Width = 728
Width = 871
Height = 333
ExplicitWidth = 728
ExplicitHeight = 333
end
inherited dxLayoutControl2: TdxLayoutControl
Width = 728
Width = 871
Height = 333
ExplicitWidth = 728
ExplicitHeight = 333
inherited ToolBar1: TToolBar
Width = 666
ExplicitWidth = 666
Width = 684
ExplicitWidth = 684
end
inherited ListaPagosCliente: TcxGrid
Width = 605
Height = 262
ExplicitWidth = 605
ExplicitHeight = 262
Width = 684
Height = 256
ExplicitWidth = 684
ExplicitHeight = 256
inherited ListaPagosClienteDBTableView1: TcxGridDBTableView
inherited ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn
IsCaptionAssigned = True
@ -276,10 +284,11 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
object pagCompensados: TTabSheet
Caption = 'Recibos compensados'
ImageIndex = 1
ExplicitWidth = 728
inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados
Left = 0
Top = 0
Width = 728
Width = 871
Height = 333
Align = alClient
Font.Charset = DEFAULT_CHARSET
@ -293,9 +302,9 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitWidth = 728
ExplicitHeight = 333
inherited cxGrid: TcxGrid
Width = 728
Width = 871
Height = 308
ExplicitWidth = 728
ExplicitWidth = 871
ExplicitHeight = 308
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
@ -308,20 +317,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
end
inherited ToolBar1: TToolBar
Width = 728
ExplicitWidth = 728
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 = 871
ExplicitWidth = 871
inherited ToolButton3: TToolButton
ExplicitWidth = 98
end
@ -334,7 +331,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
inherited StatusBar: TJvStatusBar
Top = 543
Width = 742
Width = 885
Panels = <
item
Width = 200
@ -345,7 +342,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4]
Left = 0
Top = 443
Width = 742
Width = 885
Height = 100
Align = alBottom
Font.Charset = DEFAULT_CHARSET
@ -359,20 +356,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitTop = 443
ExplicitWidth = 742
inherited dxLayoutControl1: TdxLayoutControl
Width = 742
Width = 885
ExplicitWidth = 742
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 = 366
Width = 366
end
end
end

15
Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.dfm
View File

@ -6,6 +6,11 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo
inherited dxLayoutControl1: TdxLayoutControl
Width = 357
Height = 318
ExplicitWidth = 357
ExplicitHeight = 318
DesignSize = (
357
318)
object Bevel1: TBevel [0]
Left = 81
Top = 71
@ -19,8 +24,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo
TabOrder = 3
ExplicitLeft = 81
ExplicitTop = 94
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 81
@ -28,8 +31,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo
TabOrder = 4
ExplicitLeft = 81
ExplicitTop = 121
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
Left = 81
@ -37,8 +38,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo
TabOrder = 5
ExplicitLeft = 81
ExplicitTop = 148
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
Left = 81
@ -46,8 +45,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo
TabOrder = 6
ExplicitLeft = 81
ExplicitTop = 175
ExplicitWidth = 177
Width = 177
end
inherited edtProvincia: TcxDBTextEdit
Left = 81
@ -55,8 +52,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo
TabOrder = 8
ExplicitLeft = 81
ExplicitTop = 202
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 265

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

@ -6,7 +6,13 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDatosYSeleccionCliente, ImgList, PngImageList, ActnList, DB,
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer,
cxEdit, cxTextEdit, cxDBEdit, cxControls, ExtCtrls;
cxEdit, cxTextEdit, cxDBEdit, cxControls, ExtCtrls, dxSkinsCore, dxSkinBlack,
dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinXmas2008Blue, dxSkinsdxLCPainter;
type
TfrViewClienteRecibo = class(TfrViewDatosYSeleccionCliente)

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)

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

@ -11,14 +11,14 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 905
DesignSize = (
854
509)
object eReferencia: TcxDBTextEdit
Left = 120
Left = 98
Top = 30
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA'
@ -41,11 +41,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 129
Width = 327
end
object eSituacion: TcxDBTextEdit
Left = 120
Top = 111
Left = 98
Top = 84
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource
@ -67,11 +67,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Width = 216
Width = 327
end
object edtFechaVencimiento: TcxDBDateEdit
Left = 120
Top = 84
Left = 306
Top = 57
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource
@ -89,11 +89,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Width = 129
Width = 327
end
object memObservaciones: TcxDBMemo
Left = 22
Top = 338
Top = 311
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
@ -107,11 +107,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8
Height = 49
Width = 274
Width = 425
end
object eFechaEmision: TcxDBTextEdit
Left = 551
Top = 30
Top = 391
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA'
DataBinding.DataSource = DADataSource
@ -132,12 +132,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9
Width = 20
TabOrder = 10
Width = 281
end
object eImporteTotal: TcxDBCurrencyEdit
Left = 551
Top = 111
Top = 472
AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA'
DataBinding.DataSource = DADataSource
@ -163,13 +163,13 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12
TabOrder = 13
Height = 21
Width = 182
Width = 281
end
object eNombreCliente: TcxDBTextEdit
Left = 551
Top = 84
Top = 445
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource
@ -190,12 +190,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11
Width = 171
TabOrder = 12
Width = 281
end
object eNifCif: TcxDBTextEdit
Left = 551
Top = 57
Top = 418
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = DADataSource
@ -216,12 +216,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10
Width = 147
TabOrder = 11
Width = 281
end
object eRemesa: TcxDBTextEdit
Left = 120
Top = 138
Left = 98
Top = 111
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_REMESA'
DataBinding.DataSource = DADataSource
@ -243,15 +243,14 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Width = 113
Width = 327
end
object edtFechaEmision: TcxDBDateEdit
Left = 120
Left = 98
Top = 57
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@ -268,11 +267,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
Width = 113
Width = 327
end
object rRefReciboCompensado: TcxDBTextEdit
Left = 120
Top = 216
Left = 98
Top = 189
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO'
DataBinding.DataSource = DADataSource
@ -294,11 +293,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
Width = 191
Width = 327
end
object eDescripcion: TcxDBTextEdit
Left = 120
Top = 165
Left = 98
Top = 138
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DESCRIPCION'
DataBinding.DataSource = DADataSource
@ -320,12 +319,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
Width = 437
Width = 349
end
inline frViewTienda1: TfrViewTienda
Left = 120
Top = 267
Width = 451
Left = 98
Top = 240
Width = 327
Height = 41
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -335,15 +334,16 @@ inherited frViewReciboCliente: TfrViewReciboCliente
ParentFont = False
TabOrder = 7
ReadOnly = False
ExplicitLeft = 120
ExplicitTop = 267
ExplicitLeft = 98
ExplicitTop = 240
ExplicitWidth = 327
inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 407
Width = 327
inherited cbTienda: TcxComboBox
Left = 10
ExplicitLeft = 10
ExplicitWidth = 200
Width = 200
ExplicitWidth = 307
Width = 307
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item1: TdxLayoutItem
@ -354,7 +354,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end
inline frViewClienteRecibo1: TfrViewClienteRecibo
Left = 475
Top = 162
Top = 30
Width = 357
Height = 318
Font.Charset = DEFAULT_CHARSET
@ -363,44 +363,29 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 13
TabOrder = 9
ReadOnly = False
ExplicitLeft = 475
ExplicitTop = 162
ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 328
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 276
Width = 276
end
inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 276
Width = 276
end
inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 276
Width = 276
end
inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 158
Width = 158
end
inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 276
Width = 276
end
inherited edtCodigoPostal: TcxDBTextEdit
DataBinding.DataSource = DADataSource
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
@ -425,17 +410,25 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Control = eReferencia
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item19: TdxLayoutItem
Caption = 'Fecha emisi'#243'n:'
Control = edtFechaEmision
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha vencimiento:'
Control = edtFechaVencimiento
ControlOptions.ShowBorder = False
object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item19: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha emisi'#243'n:'
Control = edtFechaEmision
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Vencimiento:'
Control = edtFechaVencimiento
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
@ -474,6 +467,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end
end
object dxLayoutControl1Group7: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Observaciones'
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaHorizontal]
@ -489,6 +484,16 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Caption = 'New Group'
ShowCaption = False
ShowBorder = False
object dxLayoutControlClienteModif: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Datos del cliente'
object dxLayoutControl1Item6: TdxLayoutItem
Control = frViewClienteRecibo1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlFactura: TdxLayoutGroup
Caption = 'Datos de la factura'
object dxLayoutControl1Item7: TdxLayoutItem
@ -514,16 +519,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlClienteModif: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Datos del cliente'
object dxLayoutControl1Item6: TdxLayoutItem
Control = frViewClienteRecibo1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
end
end
end

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

@ -8,7 +8,13 @@ uses
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
uDAInterfaces, uCustomView, uViewDatosYSeleccionCliente, uRecibosClienteController,
uViewTienda, uViewClienteRecibo;
uViewTienda, uViewClienteRecibo, 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,7 @@ type
dxLayoutControl1Group5: TdxLayoutGroup;
dxLayoutControl1Item6: TdxLayoutItem;
frViewClienteRecibo1: TfrViewClienteRecibo;
dxLayoutControl1Group4: TdxLayoutGroup;
private
FRecibo : IBizRecibosCliente;
FController : IRecibosClienteController;

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

54
Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj
View File

@ -47,33 +47,33 @@
<DelphiCompile Include="RecibosProveedor_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\adortl.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_view.dcp" />
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
<DCCReference Include="..\..\Lib\dsnap.dcp" />
<DCCReference Include="..\..\Lib\dxComnD11.dcp" />
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Lib\PNG_D10.dcp" />
<DCCReference Include="..\..\Lib\RecibosProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\RecibosProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
<DCCReference Include="..\..\Lib\vcldb.dcp" />
<DCCReference Include="..\..\Lib\vcljpg.dcp" />
<DCCReference Include="..\..\Lib\vclx.dcp" />
<DCCReference Include="..\..\Recibos de cliente\adortl.dcp" />
<DCCReference Include="..\..\Recibos de cliente\Contabilidad_view.dcp" />
<DCCReference Include="..\..\Recibos de cliente\Contactos_controller.dcp" />
<DCCReference Include="..\..\Recibos de cliente\Contactos_view.dcp" />
<DCCReference Include="..\..\Recibos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\dbrtl.dcp" />
<DCCReference Include="..\..\Recibos de cliente\dsnap.dcp" />
<DCCReference Include="..\..\Recibos de cliente\dxComnD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\GUIBase.dcp" />
<DCCReference Include="..\..\Recibos de cliente\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Recibos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Recibos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\..\Recibos de cliente\RecibosProveedor_controller.dcp" />
<DCCReference Include="..\..\Recibos de cliente\RecibosProveedor_model.dcp" />
<DCCReference Include="..\..\Recibos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\rtl.dcp" />
<DCCReference Include="..\..\Recibos de cliente\vcl.dcp" />
<DCCReference Include="..\..\Recibos de cliente\vclactnband.dcp" />
<DCCReference Include="..\..\Recibos de cliente\vcldb.dcp" />
<DCCReference Include="..\..\Recibos de cliente\vcljpg.dcp" />
<DCCReference Include="..\..\Recibos de cliente\vclx.dcp" />
<DCCReference Include="uEditorElegirRecibosProveedor.pas">
<Form>fEditorElegirRecibosProveedor</Form>
<DesignClass>TfEditorElegirRecibosProveedor</DesignClass>

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

@ -64,8 +64,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Left = 0
Top = 0
Width = 677
Height = 350
Align = alTop
Height = 325
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
@ -78,131 +78,139 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ExplicitHeight = 350
inherited dxLayoutControl1: TdxLayoutControl
Width = 677
Height = 350
Height = 325
ExplicitWidth = 677
ExplicitHeight = 350
DesignSize = (
677
350)
325)
inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 50
Width = 50
ExplicitWidth = 112
Width = 112
end
inherited eSituacion: TcxDBTextEdit
ExplicitWidth = 216
Width = 216
ExplicitWidth = 112
Width = 112
end
inherited edtFechaVencimiento: TcxDBDateEdit
ExplicitWidth = 216
Width = 216
end
inherited memObservaciones: TcxDBMemo
ExplicitWidth = 274
Width = 274
end
inherited eFechaEmision: TcxDBTextEdit
Left = 383
ExplicitLeft = 383
Left = 228
ExplicitLeft = 228
ExplicitWidth = 20
Width = 20
end
inherited memObservaciones: TcxDBMemo
ExplicitWidth = 226
ExplicitHeight = 169
Height = 169
Width = 226
end
inherited eFechaEmision: TcxDBTextEdit
Left = 384
ExplicitLeft = 384
ExplicitWidth = 255
Width = 255
end
inherited eImporteTotal: TcxDBCurrencyEdit
Left = 383
Left = 384
Style.IsFontAssigned = True
ExplicitLeft = 383
ExplicitWidth = 182
Width = 182
ExplicitLeft = 384
ExplicitWidth = 255
Width = 255
end
inherited eNombreCliente: TcxDBTextEdit
Left = 383
ExplicitLeft = 383
ExplicitWidth = 171
Width = 171
Left = 384
ExplicitLeft = 384
ExplicitWidth = 255
Width = 255
end
inherited eRemesa: TcxDBTextEdit
ExplicitWidth = 113
Width = 113
ExplicitWidth = 112
Width = 112
end
inherited edtFechaEmision: TcxDBDateEdit
ExplicitWidth = 97
Width = 97
ExplicitWidth = 20
Width = 20
end
inherited eReferenciaProveedor: TcxDBTextEdit
ExplicitWidth = 129
Width = 129
ExplicitWidth = 112
Width = 112
end
inherited rReferenciaFacturaProv: TcxDBTextEdit
Left = 383
ExplicitLeft = 383
ExplicitWidth = 157
Width = 157
Left = 384
ExplicitLeft = 384
ExplicitWidth = 255
Width = 255
end
inherited rRefReciboCompensado: TcxDBTextEdit
ExplicitWidth = 216
Width = 216
ExplicitWidth = 112
Width = 112
end
inherited frViewTienda1: TfrViewTienda
Width = 451
ExplicitWidth = 451
Width = 112
ExplicitWidth = 112
inherited dxLayoutControl1: TdxLayoutControl
Width = 451
Width = 112
inherited cbTienda: TcxComboBox
ExplicitWidth = 376
Width = 376
ExplicitWidth = 92
Width = 92
end
end
end
inherited eDescripcion: TcxDBTextEdit
ExplicitWidth = 407
Width = 407
ExplicitWidth = 112
Width = 112
end
inherited eNifCif: TcxDBTextEdit
Left = 383
ExplicitLeft = 383
Left = 384
ExplicitLeft = 384
ExplicitWidth = 255
Width = 255
end
inherited frViewProveedorRecibo1: TfrViewProveedorRecibo
Left = 286
Width = 350
ExplicitLeft = 286
ExplicitWidth = 350
Left = 276
Width = 374
ExplicitLeft = 276
ExplicitWidth = 374
inherited dxLayoutControl1: TdxLayoutControl
Width = 350
Width = 374
ExplicitWidth = 350
inherited Bevel1: TBevel
Width = 266
ExplicitWidth = 266
end
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
ExplicitWidth = 276
Width = 276
ExplicitWidth = 283
Width = 283
end
inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
ExplicitWidth = 562
Width = 562
ExplicitWidth = 283
Width = 283
end
inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
ExplicitWidth = 562
Width = 562
ExplicitWidth = 283
Width = 283
end
inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
ExplicitWidth = 177
Width = 177
ExplicitWidth = 165
Width = 165
end
inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
ExplicitWidth = 327
Width = 327
ExplicitWidth = 283
Width = 283
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 260
Left = 282
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
ExplicitLeft = 260
ExplicitLeft = 282
end
inherited Button3: TBitBtn
Left = 144
ExplicitLeft = 144
Left = 166
ExplicitLeft = 166
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
@ -238,10 +246,10 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ExplicitWidth = 677
ExplicitHeight = 325
inherited ListaPagosProveedor: TcxGrid
Width = 252
Height = 105
ExplicitWidth = 252
ExplicitHeight = 105
Width = 633
Height = 248
ExplicitWidth = 633
ExplicitHeight = 248
inherited ListaPagosProveedorDBTableView1: TcxGridDBTableView
inherited ListaPagosProveedorDBTableView1TIPO: TcxGridDBColumn
IsCaptionAssigned = True
@ -249,8 +257,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
end
end
inherited ToolBar1: TToolBar
Width = 622
ExplicitWidth = 622
Width = 633
ExplicitWidth = 633
end
end
inherited DADataSource: TDADataSource
@ -367,15 +375,13 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged
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

1
Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm
View File

@ -15,6 +15,7 @@ inherited frViewPagosProveedor: TfrViewPagosProveedor
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
object ListaPagosProveedor: TcxGrid

8
Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas
View File

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

8
Source/Modulos/Recibos de proveedor/Views/uViewProveedorRecibo.pas
View File

@ -6,7 +6,13 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDatosYSeleccionProveedor, ImgList, PngImageList, ActnList, DB,
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer,
cxEdit, cxTextEdit, cxDBEdit, cxControls, ExtCtrls;
cxEdit, cxTextEdit, cxDBEdit, cxControls, ExtCtrls, dxSkinsCore, dxSkinBlack,
dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinXmas2008Blue, dxSkinsdxLCPainter;
type
TfrViewProveedorRecibo = class(TfrViewDatosYSeleccionProveedor)

1
Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dfm
View File

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

8
Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.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
TfrViewReciboProvImportes = class(TfrViewBase)

206
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
View File

@ -11,6 +11,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
DesignSize = (
@ -40,11 +41,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 50
Width = 268
end
object eSituacion: TcxDBTextEdit
Left = 136
Top = 138
Top = 111
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource
@ -66,11 +67,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Width = 216
Width = 268
end
object edtFechaVencimiento: TcxDBDateEdit
Left = 136
Top = 111
Left = 283
Top = 84
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource
@ -88,11 +89,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Width = 216
Width = 268
end
object memObservaciones: TcxDBMemo
Left = 22
Top = 365
Top = 338
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
@ -106,11 +107,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9
Height = 49
Width = 200
Width = 382
end
object eFechaEmision: TcxDBTextEdit
Left = 529
Top = 57
Left = 518
Top = 400
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA'
DataBinding.DataSource = DADataSource
@ -131,12 +132,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11
Width = 20
TabOrder = 12
Width = 260
end
object eImporteTotal: TcxDBCurrencyEdit
Left = 529
Top = 138
Left = 518
Top = 481
AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA'
DataBinding.DataSource = DADataSource
@ -162,13 +163,13 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 14
TabOrder = 15
Height = 21
Width = 182
Width = 260
end
object eNombreCliente: TcxDBTextEdit
Left = 529
Top = 111
Left = 518
Top = 454
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource
@ -189,12 +190,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 13
Width = 171
TabOrder = 14
Width = 260
end
object eRemesa: TcxDBTextEdit
Left = 136
Top = 165
Top = 138
Anchors = [akLeft, akTop, akRight]
DataBinding.DataSource = DADataSource
Enabled = False
@ -215,7 +216,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
Width = 113
Width = 268
end
object edtFechaEmision: TcxDBDateEdit
Left = 136
@ -223,7 +224,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_EMISION'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@ -240,7 +240,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Width = 668
Width = 268
end
object eReferenciaProveedor: TcxDBTextEdit
Left = 136
@ -265,11 +265,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
Width = 287
Width = 268
end
object rReferenciaFacturaProv: TcxDBTextEdit
Left = 529
Top = 30
Left = 518
Top = 373
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_FACTURA_PROV'
DataBinding.DataSource = DADataSource
@ -290,12 +290,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10
Width = 157
TabOrder = 11
Width = 260
end
object rRefReciboCompensado: TcxDBTextEdit
Left = 136
Top = 243
Top = 216
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO'
DataBinding.DataSource = DADataSource
@ -317,12 +317,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Width = 200
Width = 268
end
inline frViewTienda1: TfrViewTienda
Left = 136
Top = 294
Width = 451
Top = 267
Width = 268
Height = 41
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -333,13 +333,15 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
TabOrder = 8
ReadOnly = False
ExplicitLeft = 136
ExplicitTop = 294
ExplicitTop = 267
ExplicitWidth = 268
inherited dxLayoutControl1: TdxLayoutControl
Width = 268
inherited cbTienda: TcxComboBox
Left = 10
ExplicitLeft = 10
ExplicitWidth = 200
Width = 200
ExplicitWidth = 248
Width = 248
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item1: TdxLayoutItem
@ -350,7 +352,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
end
object eDescripcion: TcxDBTextEdit
Left = 136
Top = 192
Top = 165
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DESCRIPCION'
DataBinding.DataSource = DADataSource
@ -372,11 +374,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
Width = 407
Width = 268
end
object eNifCif: TcxDBTextEdit
Left = 529
Top = 84
Left = 518
Top = 427
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = DADataSource
@ -397,12 +399,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12
Width = 199
TabOrder = 13
Width = 260
end
inline frViewProveedorRecibo1: TfrViewProveedorRecibo
Left = 432
Top = 189
Left = 410
Top = 30
Width = 357
Height = 318
Font.Charset = DEFAULT_CHARSET
@ -411,42 +413,34 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 15
TabOrder = 10
ReadOnly = False
ExplicitLeft = 432
ExplicitTop = 189
ExplicitLeft = 410
ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 177
Width = 177
end
inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 287
DataBinding.DataSource = DADataSource
ExplicitLeft = 287
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
inherited Button3: TBitBtn
Left = 171
ExplicitLeft = 171
end
end
end
@ -478,17 +472,25 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Control = eReferenciaProveedor
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item19: TdxLayoutItem
Caption = 'Fecha emisi'#243'n:'
Control = edtFechaEmision
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha vencimiento:'
Control = edtFechaVencimiento
ControlOptions.ShowBorder = False
object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item19: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha emisi'#243'n:'
Control = edtFechaEmision
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Vencimiento:'
Control = edtFechaVencimiento
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
@ -527,6 +529,8 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
end
end
object dxLayoutControl1Group7: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Observaciones'
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaHorizontal]
@ -542,36 +546,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Caption = 'New Group'
ShowCaption = False
ShowBorder = False
object dxLayoutControlFactura: TdxLayoutGroup
Caption = 'Datos de la factura'
object dxLayoutControl1Item21: TdxLayoutItem
Caption = 'Ref. factura prov.:'
Control = rReferenciaFacturaProv
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item7: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha emisi'#243'n:'
Control = eFechaEmision
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'NIF/CIF:'
Control = eNifCif
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item10: TdxLayoutItem
Caption = 'Nombre:'
Control = eNombreCliente
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
Caption = 'Total factura:'
Control = eImporteTotal
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlProveedorModif: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
@ -581,6 +555,36 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControlFactura: TdxLayoutGroup
Caption = 'Datos de la factura'
object dxLayoutControl1Item21: TdxLayoutItem
Caption = 'Ref. factura prov.:'
Control = rReferenciaFacturaProv
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item7: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha emisi'#243'n:'
Control = eFechaEmision
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'NIF/CIF:'
Control = eNifCif
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item10: TdxLayoutItem
Caption = 'Nombre:'
Control = eNombreCliente
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
Caption = 'Total factura:'
Control = eImporteTotal
ControlOptions.ShowBorder = False
end
end
end
end
end

9
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas
View File

@ -8,7 +8,13 @@ uses
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
uDAInterfaces, uCustomView, uViewDatosYSeleccionProveedor, uRecibosProveedorController, uViewTienda,
uViewProveedorRecibo;
uViewProveedorRecibo, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,
dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
dxSkinsdxLCPainter;
type
IViewReciboProveedor = interface(IViewBase)
@ -69,6 +75,7 @@ type
eNifCif: TcxDBTextEdit;
dxLayoutControl1Item6: TdxLayoutItem;
frViewProveedorRecibo1: TfrViewProveedorRecibo;
dxLayoutControl1Group4: TdxLayoutGroup;
private
FRecibo : IBizRecibosProveedor;
FController : IRecibosProveedorController;

8
Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.pas
View File

@ -10,7 +10,13 @@ uses
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosProveedor,
uBizRecibosProveedor, uRecibosProveedorController, 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