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.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <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" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,2,3,0 FILEVERSION 2,2,4,0
PRODUCTVERSION 2,2,3,0 PRODUCTVERSION 2,2,4,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" 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 "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.2.3.0\0" VALUE "ProductVersion", "2.2.4.0\0"
END END
END END
BLOCK "VarFileInfo" 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.CreateDate = 37871.995398692100000000
ReportOptions.Description.Strings = ( ReportOptions.Description.Strings = (
'Demonstrates how to create simple list report.') 'Demonstrates how to create simple list report.')
ReportOptions.LastChange = 39563.534544155100000000 ReportOptions.LastChange = 39638.693800335650000000
ReportOptions.VersionBuild = '1' ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12' ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13' ReportOptions.VersionMinor = '13'
@ -856,28 +856,6 @@ object RptRecibosCliente: TRptRecibosCliente
' end' ' end'
'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' 'begin'
'' ''
'end.') 'end.')

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

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

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

@ -6,6 +6,11 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 357 Width = 357
Height = 318 Height = 318
ExplicitWidth = 357
ExplicitHeight = 318
DesignSize = (
357
318)
object Bevel1: TBevel [0] object Bevel1: TBevel [0]
Left = 81 Left = 81
Top = 71 Top = 71
@ -19,8 +24,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo
TabOrder = 3 TabOrder = 3
ExplicitLeft = 81 ExplicitLeft = 81
ExplicitTop = 94 ExplicitTop = 94
ExplicitWidth = 224
Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 81 Left = 81
@ -28,8 +31,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo
TabOrder = 4 TabOrder = 4
ExplicitLeft = 81 ExplicitLeft = 81
ExplicitTop = 121 ExplicitTop = 121
ExplicitWidth = 562
Width = 562
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
Left = 81 Left = 81
@ -37,8 +38,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo
TabOrder = 5 TabOrder = 5
ExplicitLeft = 81 ExplicitLeft = 81
ExplicitTop = 148 ExplicitTop = 148
ExplicitWidth = 562
Width = 562
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
Left = 81 Left = 81
@ -46,8 +45,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo
TabOrder = 6 TabOrder = 6
ExplicitLeft = 81 ExplicitLeft = 81
ExplicitTop = 175 ExplicitTop = 175
ExplicitWidth = 177
Width = 177
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
Left = 81 Left = 81
@ -55,8 +52,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo
TabOrder = 8 TabOrder = 8
ExplicitLeft = 81 ExplicitLeft = 81
ExplicitTop = 202 ExplicitTop = 202
ExplicitWidth = 327
Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 265 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, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDatosYSeleccionCliente, ImgList, PngImageList, ActnList, DB, Dialogs, uViewDatosYSeleccionCliente, ImgList, PngImageList, ActnList, DB,
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer, 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 type
TfrViewClienteRecibo = class(TfrViewDatosYSeleccionCliente) TfrViewClienteRecibo = class(TfrViewDatosYSeleccionCliente)

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)

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

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

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

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

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

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

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

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

@ -15,6 +15,7 @@ inherited frViewPagosProveedor: TfrViewPagosProveedor
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 ListaPagosProveedor: TcxGrid object ListaPagosProveedor: TcxGrid

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

@ -11,7 +11,13 @@ uses
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxGridCustomView, cxGrid, uBizPagosProveedor, ActnList, TB2Item, cxClasses, cxGridCustomView, cxGrid, uBizPagosProveedor, 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
IViewPagosProveedor = interface(IViewBase) 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, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDatosYSeleccionProveedor, ImgList, PngImageList, ActnList, DB, Dialogs, uViewDatosYSeleccionProveedor, ImgList, PngImageList, ActnList, DB,
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer, 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 type
TfrViewProveedorRecibo = class(TfrViewDatosYSeleccionProveedor) TfrViewProveedorRecibo = class(TfrViewDatosYSeleccionProveedor)

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

@ -17,6 +17,7 @@ inherited frViewReciboProvImportes: TfrViewReciboProvImportes
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 proveedor/Views/uViewReciboProvImportes.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
TfrViewReciboProvImportes = class(TfrViewBase) TfrViewReciboProvImportes = class(TfrViewBase)

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

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

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

@ -10,7 +10,13 @@ uses
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosProveedor, cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosProveedor,
uBizRecibosProveedor, uRecibosProveedorController, Grids, DBGrids, cxSpinEdit, 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 type
IViewRecibosCompensados = interface IViewRecibosCompensados = interface