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

Se detallan las cuentas bancarias si son del cliente/proveedor o de la empresa

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1125 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2016-02-11 15:52:36 +00:00
parent 88b262cdf6
commit 9aef2177ae
8 changed files with 150 additions and 150 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 896 Width = 451
Height = 553 Height = 304
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,21 +9,19 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 896 Width = 451
Height = 553 Height = 304
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
896 451
553) 304)
object Label1: TLabel object Label1: TLabel
Left = 488 Left = 354
Top = 193 Top = 193
Width = 311 Width = 311
Height = 26 Height = 26
@ -142,7 +140,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 269 Width = 269
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 306 Left = 172
Top = 130 Top = 130
Width = 132 Width = 132
Height = 23 Height = 23
@ -173,7 +171,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 165 Width = 165
end end
object cbClienteFinal: TcxDBTextEdit object cbClienteFinal: TcxDBTextEdit
Left = 488 Left = 354
Top = 227 Top = 227
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'CLIENTE_FINAL' DataBinding.DataField = 'CLIENTE_FINAL'
@ -201,7 +199,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 339 Width = 339
end end
object bElegirClienteFinal: TButton object bElegirClienteFinal: TButton
Left = 840 Left = 410
Top = 225 Top = 225
Width = 23 Width = 23
Height = 25 Height = 25
@ -209,7 +207,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
TabOrder = 10 TabOrder = 10
end end
inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente
Left = 477 Left = 343
Top = 30 Top = 30
Width = 505 Width = 505
Height = 138 Height = 138
@ -221,7 +219,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 8 TabOrder = 8
ReadOnly = False ReadOnly = False
ExplicitLeft = 477 ExplicitLeft = 343
ExplicitTop = 30 ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
@ -229,32 +227,28 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 224
Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 284 Left = 171
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 284 ExplicitLeft = 171
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 195 Left = 82
ExplicitLeft = 195 ExplicitLeft = 82
end end
inherited edtDireccion: TcxTextEdit inherited edtDireccion: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end end
inherited Button4: TButton inherited Button4: TButton
Left = 364 Left = 251
ExplicitLeft = 364 ExplicitLeft = 251
end end
end end
inherited ActionList1: TActionList inherited ActionList1: TActionList

4
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
View File

@ -214,14 +214,14 @@ begin
if AListaIBAN.Count > 0 then if AListaIBAN.Count > 0 then
begin begin
Add('--------------'); Add('Cuentas de ' + AppFactuGES.EmpresaActiva.NOMBRE + '-----------------');
for i := 0 to AListaIBAN.Count - 1 do for i := 0 to AListaIBAN.Count - 1 do
Add(AListaIBAN.Names[i]); Add(AListaIBAN.Names[i]);
end; end;
if AListaCliente.Count > 0 then if AListaCliente.Count > 0 then
begin begin
Add('--------------'); Add('Cuentas del Cliente -----------------');
for i := 0 to AListaCliente.Count - 1 do for i := 0 to AListaCliente.Count - 1 do
Add(AListaCliente.Names[i]); Add(AListaCliente.Names[i]);
end; end;

218
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -2,20 +2,20 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Left = 454 Left = 454
Top = 208 Top = 208
Caption = 'Nueva factura de proveedor' Caption = 'Nueva factura de proveedor'
ClientHeight = 633 ClientHeight = 811
ClientWidth = 819 ClientWidth = 922
Position = poScreenCenter Position = poScreenCenter
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 827 ExplicitWidth = 930
ExplicitHeight = 667 ExplicitHeight = 845
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 819 Width = 922
Caption = 'Nueva factura de proveedor' Caption = 'Nueva factura de proveedor'
ExplicitWidth = 819 ExplicitWidth = 819
inherited Image1: TImage inherited Image1: TImage
Left = 686 Left = 789
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -38,14 +38,14 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitLeft = 742 ExplicitLeft = 742
end end
inherited lblDesbloquear: TcxLabel inherited lblDesbloquear: TcxLabel
Left = 721 Left = 824
ExplicitLeft = 721 ExplicitLeft = 721
AnchorX = 766 AnchorX = 869
AnchorY = 14 AnchorY = 14
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 819 Width = 922
ExplicitWidth = 819 ExplicitWidth = 819
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 330 ExplicitWidth = 330
@ -60,7 +60,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 819 ExplicitWidth = 922
inherited TBXSubmenuItem4: TTBXSubmenuItem inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem inherited TBXItem8: TTBXItem
Visible = False Visible = False
@ -75,9 +75,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 813 Width = 916
Height = 278 Height = 456
ActivePage = pagContenido
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 813 ExplicitWidth = 813
ExplicitHeight = 278 ExplicitHeight = 278
@ -90,8 +89,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inline frViewFacturaProveedor1: TfrViewFacturaProveedor inline frViewFacturaProveedor1: TfrViewFacturaProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 805 Width = 908
Height = 250 Height = 428
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -104,8 +103,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 805 ExplicitWidth = 805
ExplicitHeight = 250 ExplicitHeight = 250
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 805 Width = 908
Height = 250 Height = 428
ExplicitWidth = 805 ExplicitWidth = 805
ExplicitHeight = 250 ExplicitHeight = 250
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
@ -144,8 +143,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 104 Width = 104
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 242 Left = 301
ExplicitLeft = 242 ExplicitLeft = 301
end end
inherited eReferenciaProveedor: TcxDBTextEdit inherited eReferenciaProveedor: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -156,9 +155,9 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 242 Width = 242
end end
inherited frViewProveedorFactura: TfrViewDatosYSeleccionProveedor inherited frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
Left = 402 Left = 461
Width = 377 Width = 377
ExplicitLeft = 402 ExplicitLeft = 461
ExplicitWidth = 377 ExplicitWidth = 377
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 377 Width = 377
@ -209,17 +208,17 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 303 Width = 303
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 272 Left = 333
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 272 ExplicitLeft = 333
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 156 Left = 217
ExplicitLeft = 156 ExplicitLeft = 217
end end
end end
end end
@ -245,6 +244,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
end end
inherited eFacturaWeb: TcxDBCheckBox
ExplicitWidth = 312
Width = 312
end
end end
end end
end end
@ -252,11 +255,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
OnShow = pagContenidoShow OnShow = pagContenidoShow
ExplicitWidth = 805
ExplicitHeight = 250
inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 805 Width = 908
Height = 250 Height = 428
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -271,8 +276,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 805 ExplicitWidth = 805
ExplicitHeight = 250 ExplicitHeight = 250
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 805 Width = 908
Height = 73 Height = 51
ExplicitWidth = 805 ExplicitWidth = 805
ExplicitHeight = 73 ExplicitHeight = 73
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
@ -290,87 +295,88 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox [5]
Top = 22 Left = 399
ExplicitTop = 22 Top = 0
ExplicitLeft = 399
ExplicitTop = 0
end end
inherited FontSize: TEdit inherited FontSize: TEdit [6]
Top = 22 Left = 544
Width = 344 Top = 0
ExplicitTop = 22 Width = 360
ExplicitWidth = 344 ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 360
end end
inherited ToolButton13: TToolButton [7] inherited ToolButton13: TToolButton [7]
Left = 0 Top = 0
Top = 22 ExplicitTop = 0
Wrap = True
ExplicitLeft = 0
ExplicitTop = 22
ExplicitHeight = 27
end end
inherited UpDown1: TUpDown [8] inherited UpDown1: TUpDown [8]
Left = 0 Left = 0
Top = 49 Top = 27
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 49 ExplicitTop = 27
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 17 Left = 17
Top = 49 Top = 27
ExplicitLeft = 17 ExplicitLeft = 17
ExplicitTop = 49 ExplicitTop = 27
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton [10]
Left = 83 Left = 83
Top = 49 Top = 27
ExplicitLeft = 83 ExplicitLeft = 83
ExplicitTop = 49 ExplicitTop = 27
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton [11]
Left = 150 Left = 150
Top = 49 Top = 27
ExplicitLeft = 150 ExplicitLeft = 150
ExplicitTop = 49 ExplicitTop = 27
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton [12]
Left = 233 Left = 233
Top = 49 Top = 27
ExplicitLeft = 233 ExplicitLeft = 233
ExplicitTop = 49 ExplicitTop = 27
ExplicitHeight = 22
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton [13]
Left = 241 Left = 241
Top = 49 Top = 27
ExplicitLeft = 241 ExplicitLeft = 241
ExplicitTop = 49 ExplicitTop = 27
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 386 Left = 386
Top = 49 Top = 27
ExplicitLeft = 386 ExplicitLeft = 386
ExplicitTop = 49 ExplicitTop = 27
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton [15]
Left = 511 Left = 511
Top = 49 Top = 27
ExplicitLeft = 511 ExplicitLeft = 511
ExplicitTop = 49 ExplicitTop = 27
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 99 Top = 77
Width = 805 Width = 908
Height = 151 Height = 351
ExplicitWidth = 805 ExplicitWidth = 805
ExplicitHeight = 151 ExplicitHeight = 151
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 73 Top = 51
Width = 805 Width = 908
ExplicitTop = 73 ExplicitTop = 73
ExplicitWidth = 805 ExplicitWidth = 805
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 805 ExplicitWidth = 838
end end
end end
inherited cxGridPopupMenu: TcxGridPopupMenu inherited cxGridPopupMenu: TcxGridPopupMenu
@ -391,11 +397,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Caption = 'Pedidos' Caption = 'Pedidos'
ImageIndex = 2 ImageIndex = 2
TabVisible = False TabVisible = False
ExplicitWidth = 805
ExplicitHeight = 250
inline frViewPedidosFacturaProveedor1: TfrViewPedidosFacturaProveedor inline frViewPedidosFacturaProveedor1: TfrViewPedidosFacturaProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 805 Width = 908
Height = 250 Height = 428
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -408,13 +416,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 805 ExplicitWidth = 805
ExplicitHeight = 250 ExplicitHeight = 250
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 805 Width = 908
Height = 225 Height = 403
ExplicitWidth = 805 ExplicitWidth = 805
ExplicitHeight = 225 ExplicitHeight = 225
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 805 Width = 908
ExplicitWidth = 805 ExplicitWidth = 805
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 113 ExplicitWidth = 113
@ -433,8 +441,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 614 Top = 792
Width = 819 Width = 922
Panels = < Panels = <
item item
Width = 200 Width = 200
@ -444,8 +452,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
inline frViewTotales1: TfrViewTotalesVariosIVA [4] inline frViewTotales1: TfrViewTotalesVariosIVA [4]
Left = 0 Left = 0
Top = 360 Top = 538
Width = 819 Width = 922
Height = 254 Height = 254
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -460,26 +468,24 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 819 ExplicitWidth = 819
ExplicitHeight = 254 ExplicitHeight = 254
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 819 Width = 922
Height = 254 Height = 254
ExplicitWidth = 819 ExplicitWidth = 819
ExplicitHeight = 254 ExplicitHeight = 254
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 392 Left = 440
Height = 100 ExplicitLeft = 440
ExplicitLeft = 392
ExplicitHeight = 100
end end
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 504 Left = 552
Width = 368 Width = 368
ExplicitLeft = 504 ExplicitLeft = 552
ExplicitWidth = 368 ExplicitWidth = 368
end end
inherited Bevel2: TBevel inherited Bevel2: TBevel
Left = 504 Left = 552
Width = 368 Width = 368
ExplicitLeft = 504 ExplicitLeft = 552
ExplicitWidth = 368 ExplicitWidth = 368
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
@ -487,13 +493,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 388 ExplicitWidth = 388
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 575 Left = 623
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 575 ExplicitLeft = 623
ExplicitWidth = 290 ExplicitWidth = 290
Width = 290 Width = 290
end end
@ -507,60 +513,60 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 234 Width = 234
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 505 Left = 553
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 505 ExplicitLeft = 553
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 504 Left = 552
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 504 ExplicitLeft = 552
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 504 Left = 552
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 504 ExplicitLeft = 552
ExplicitWidth = 284 ExplicitWidth = 284
Width = 284 Width = 284
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 504 Left = 552
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 504 ExplicitLeft = 552
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 575 Left = 623
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 575 ExplicitLeft = 623
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 504 Left = 552
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 504 ExplicitLeft = 552
ExplicitWidth = 297 ExplicitWidth = 297
Width = 297 Width = 297
end end
@ -629,22 +635,22 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 358 Width = 358
end end
inherited edtRetencion: TcxDBSpinEdit inherited edtRetencion: TcxDBSpinEdit
Left = 504 Left = 552
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 504 ExplicitLeft = 552
end end
inherited ImporteRetencion: TcxDBCurrencyEdit inherited ImporteRetencion: TcxDBCurrencyEdit
Left = 575 Left = 623
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 575 ExplicitLeft = 623
ExplicitWidth = 345 ExplicitWidth = 345
Width = 345 Width = 345
end end

28
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaProveedor: TfrViewFacturaProveedor inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 910 Width = 451
Height = 484 Height = 304
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,19 +9,17 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 910 Width = 451
Height = 484 Height = 304
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
910 451
484) 304)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 136 Left = 136
Top = 30 Top = 30
@ -131,7 +129,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 78 Width = 78
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 318 Left = 162
Top = 189 Top = 189
Width = 132 Width = 132
Height = 23 Height = 23
@ -164,7 +162,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 158 Width = 158
end end
inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
Left = 478 Left = 322
Top = 30 Top = 30
Width = 350 Width = 350
Height = 202 Height = 202
@ -176,7 +174,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ParentFont = False ParentFont = False
TabOrder = 10 TabOrder = 10
ReadOnly = False ReadOnly = False
ExplicitLeft = 478 ExplicitLeft = 322
ExplicitTop = 30 ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
@ -218,16 +216,16 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 318 Left = 203
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 318 ExplicitLeft = 203
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 202 Left = 87
ExplicitLeft = 202 ExplicitLeft = 87
end end
end end
end end

3
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
View File

@ -185,13 +185,14 @@ begin
if AListaIBAN.Count > 0 then if AListaIBAN.Count > 0 then
begin begin
Add('Cuentas de ' + AppFactuGES.EmpresaActiva.NOMBRE + '-----------------');
for i := 0 to AListaIBAN.Count - 1 do for i := 0 to AListaIBAN.Count - 1 do
Add(AListaIBAN.Names[i]); Add(AListaIBAN.Names[i]);
end; end;
if AListaProveedor.Count > 0 then if AListaProveedor.Count > 0 then
begin begin
Add('--------------'); Add('Cuentas del Proveedor ------------------- ');
for i := 0 to AListaProveedor.Count - 1 do for i := 0 to AListaProveedor.Count - 1 do
Add(AListaProveedor.Names[i]); Add(AListaProveedor.Names[i]);
end; end;

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

@ -128,13 +128,14 @@ begin
if AListaIBAN.Count > 0 then if AListaIBAN.Count > 0 then
begin begin
Add('Cuentas de ' + AppFactuGES.EmpresaActiva.NOMBRE + '-----------------');
for i := 0 to AListaIBAN.Count - 1 do for i := 0 to AListaIBAN.Count - 1 do
Add(AListaIBAN.Names[i]); Add(AListaIBAN.Names[i]);
end; end;
if AListaProveedor.Count > 0 then if AListaProveedor.Count > 0 then
begin begin
Add('--------------'); Add('Cuentas del Proveedor -----------------');
for i := 0 to AListaProveedor.Count - 1 do for i := 0 to AListaProveedor.Count - 1 do
Add(AListaProveedor.Names[i]); Add(AListaProveedor.Names[i]);
end; end;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.1.1.0\0" VALUE "FileVersion", "2.1.1.0\0"
VALUE "ProductName", "FactuGES Servidor\0" VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "2.1.1.0\0" VALUE "ProductVersion", "2.1.1.0\0"
VALUE "CompileDate", "jueves, 29 de octubre de 2015 12:49\0" VALUE "CompileDate", "jueves, 11 de febrero de 2016 11:43\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"